* /*     04/01/72                                                    */ 00050002
*   %GOTO ZB505PLS;                                                  /* 00100002
         MACRO                                                          00150002
         IEFZB505                                                       00200002
ZB505    DSECT                                                          00250002
SWBLKPTR DS    F                   POINTER TO BLOCK                     00300002
SWVAFW   DS    0F                  4 BYTE SWA VIRTUAL ADDRESS           00350002
SWVA     DS    CL3                 3 BYTE SWA VIRTUAL ADDRESS           00400002
SWBLKID  DS    CL1                 BLOCK ID OR ZERO                     00450002
SWLNGTH  DS    F                   LENGTH OF SWA BLOCK (NOT INCLUDING   00600002
*                                  SWA PREFIX)                          00650002
SWCHNPTR DS    F                   CHAIN POINTER OR ZERO                00700002
         MEND                                                        */ 00750002
*%ZB505PLS:;                                                            00800002
*   DCL                                                                 00850002
*         1 SWAEPA BASED(SWEPAPTR),                                     00900002
*           2 SWBLKPTR PTR(31),    /* POINTER TO BLOCK               */ 00950002
*           2 SWVAFW   PTR(32),    /* 4 BYTE SWA VIRTUAL ADDRESS     */ 01000002
*             3 SWVA   PTR(24) BDY(BYTE),  /* 3 BYTE SVA             */ 01050002
*             3 SWBLKID CHAR(1),   /* BLOCK ID OR ZERO               */ 01100002
*           2 SWLNGTH FIXED(31),   /* LENGTH OF SWA BLOCK (NOT          01350000
*                                     INCLUDING SWA PREFIX)          */ 01400000
*           2 SWCHNPTR PTR(31);    /* CHAIN POINTER OR ZERO          */ 01450002