MACRO                                                          00001000
&NAME    PAGTBL &SWPTBL=,&FRSTP=0,&LASTP=                               00002000
.*  THIS MACRO GENERATES A PAGE TABLE                                   00003000
         LCLA  &NP                                                      00004000
&NP      SETA  &LASTP-&FRSTP+1                                          00005000
         AIF   (T'&SWPTBL EQ 'O').P1                                    00006000
         DC    A(&SWPTBL)     PAGSWP                                    00007000
&NAME    DC    &NP.H'8'       PAGCORE                                   00008000
         SPACE 3                                                        00009000
         MEXIT                                                          00010000
.P1      ANOP                                                           00011000
&NAME    DC    F'0'           SHARED SYSTEM USE COUNT                   00012000
         DC    A(&FRSTP)      1ST PAGE NUMBER                           00013000
         DC    A(&NP)         NUMBER OF PAGES                           00014000
         DC    &NP.H'8'       PAGCORE                                   00015000
         SPACE 3                                                        00016000
         MEND                                                           00017000