Table of Contents

PAGTBL Source

References

Source Listing

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