*        %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