* %GOTO PGTEBSL; /* 01000021 MACRO 02000021 IHAPGTE 03000021 ** PAGE TABLE ENTRY 04000021 ** 04050021 * RELEASE 3 MVS, 4/2/76, LEVEL=1 04100003 ** 04150021 PGTPTE DSECT , PTEPTR 05000021 PGTRSA DS 0BL2 - THE PAGE FRAME NUMBER (HIGH 06000021 * 12 BITS) IS CONCATENATED WITH 07000021 * 12 LOW ORDER BITS OF VIRTUAL 08000021 * ADDRESS TO FORM THE 24-BIT REAL 09000021 * ADDRESS CORRESPONDING TO ANY 10000021 * VIRTUAL ADDRESS. 11000021 PGTREAL DS BL1 - HIGH ORDER BYTE OF REAL ADDRESS 12000021 PGTBITS DS BL1 - LOW ORDER FOUR BITS OF 13000021 * REAL ADDRESS AND FLAG BITS 14000021 PGTPVM EQU X'08' - PAGE VALIDITY FLAG, WHEN 1 = 15000021 * PAGE IS INVALID 16000021 PGTPAM EQU X'01' - PAGE ASSIGNED FLAG, WHEN 1 = 17000021 * PAGE HAS BEEN ASSIGNED BY GETMAIN 18000021 PGTEND DS 0C - END OF PAGE TABLE ENTRY 19000021 PGTLEN EQU PGTEND-PGTPTE - LENGTH OF PAGE TABLE ENTRY 20000021 MEND , */ 21000021 *%PGTEBSL : ; 22000021 */* PAGE TABLE ENTRY */ 23000021 * 23050021 */* RELEASE 3 MVS, 4/2/76, LEVEL=1 */ 23100003 * 23150021 *DECLARE 24000021 * 1 PGTPTE BASED(PTEPTR), 25000021 * 2 PGTRSA CHAR(2), /* THE PAGE FRAME NUMBER 26000021 * (HIGH 12 BITS) IS 27000021 * CONCATENATED WITH 12 28000021 * LOW ORDER BITS OF 29000021 * VIRTUAL ADDRESS TO 30000021 * FORM THE 24-BIT REAL 31000021 * ADDRESS CORRESPONDING TO 32000021 * ANY VIRTUAL ADDRESS. */ 33000021 * 3 PGTREAL CHAR(1), /* HIGH ORDER BYTE OF REAL 34000021 * ADDRESS */ 35000021 * 3 PGTBITS CHAR(1), /* LOW ORDER FOUR BITS OF 36000021 * REAL ADDRESS AND FLAG 37000021 * BITS */ 38000021 * 4 * BIT(1), /* RESERVED */ 39000021 * 4 * BIT(1), /* RESERVED */ 40000021 * 4 * BIT(1), /* RESERVED */ 41000021 * 4 * BIT(1), /* RESERVED */ 42000021 * 4 PGTPVM BIT(1), /* PAGE VALIDITY FLAG, WHEN 43000021 * 1 = PAGE IS INVALID */ 44000021 * 4 * BIT(1), /* RESERVED */ 45000021 * 4 * BIT(1), /* RESERVED */ 46000021 * 4 PGTPAM BIT(1); /* PAGE ASSIGNED FLAG, WHEN 47000021 * 1 = PAGE HAS BEEN 48000021 * ASSIGNED BY GETMAIN */ 49000021 *DECLARE 1 PGTEND (*) CHAR(1) BASED 50000021 * (ADDR(PGTPTE )+LENGTH(PGTPTE )); 51000021 * /* END OF PAGE TABLE ENTRY */ 52000021