*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