         LIST,1   1
         DEF      NUMVP,PPLIST,NUMPAGES,P:ENTFLG,VPLIST,P:PADR
         REF      LPH
         DEF      LPH:1
LPH:1    EQU      LPH
NUMPAGES EQU      10
NUMVP    DATA     0
P:ENTFLG DATA     0
P:PADR   RES      1
PPLIST   EQU      %
         DO1      NUMPAGES+1
         DATA     -1
VPLIST   DO1      NUMPAGES+1
         DATA     -1
         END
