*COPY PGBLOK                                                            00001000
         PUSH  PRINT                                                    00001200
         AIF   ('&SYSPARM' NE 'SUP').PGB01                              00001400
         PRINT OFF,NOGEN                                                00001600
.PGB01   ANOP                                                           00001800
PGBLOK   DSECT                                                          00002000
         SPACE 1                                                        00003000
***      PGBLOK  - PSEUDO PAGE FAULT STACK BLOCK                        00004000
*                                                                       00005000
*          0   +-----------------------+-----------------------+        00006000
*              |        PGPNT          |        PGADDR         |        00007000
*          8   +-----------------------+-----------------------+        00008000
*                                                                       00009000
***      PGBLOK  - PSEUDO PAGE FAULT STACK BLOCK                        00010000
         SPACE 1                                                        00011000
PGPNT    DS    1F             POINTER TO NEXT PGBLOK ON STACK           00012000
PGADDR   DS    1F             VIRTUAL PAGE FAULT ADDRESS                00013000
         SPACE 1                                                        00014000
PGBSIZE  EQU   (*-PGBLOK+7)/8 PGBLOK SIZE IN DOUBLE WORDS               00015000
         EJECT                                                          00016000
         POP   PRINT                                                    00017000
         SPACE                                                          00018000