ibm:vm370-lib:copy:pgblok.copy_src
Table of Contents
PGBLOK Source
References
- Fixes Applied : 0
- This Source Date : Friday, December 8, 1978
- Last Fix ID : [Unmodified]
Source Listing
- PGBLOK.COPY.txt
- *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
ibm/vm370-lib/copy/pgblok.copy_src.txt · Last modified: 2023/08/06 13:36 by Site Administrator