* /*     05/10/72                                                   */  00050002
*   %GOTO ZB506PLS;                                                 /*  00100002
         MACRO                                                          00150002
         IEFZB506                                                       00200002
ZB506    DSECT                                                          00250002
SWBUFPTR DS    0F                  FOR READ OR WRITE - BUFFER ADDRESS   00300002
SWASNVA  DS    CL3                 FOR ASSIGNS (SVA)                    00350002
SWASNZO  DS    CL1                 4TH BYTE OF SVA0 - FOR ASSIGNS       00400002
*                                  REMAINDER NOT USED FOR ASSIGNS       00450002
SWROWVA  DS    CL3                 SVA FOR READ OR WRITE                00500002
SWWRTID  DS    CL1                 BLOCK ID FOR WRITE                   00550002
         MEND                                                       */  00600002
*%ZB506PLS:;                                                            00650002
*   DCL                                                                 00700002
*         1 SWAMMEPA BASED(EPAPTR),        /* MOVE MODE EPA MAPPING */  00750002
*           2 SWBUFPTR PTR(31),            /* BUFFER ADDRESS FOR    */  00800002
*                                          /* READ OR WRITE         */  00850002
*             3 SWASNVA PTR(24) BDY(BYTE), /* 3 BYTE SVA FOR ASSIGN */  00900002
*             3 SWASNZO PTR(8),            /* SET TO 0 BY ASSIGN    */  00950002
*                                          /* REMAINDER NOT USED    */  01000002
*                                          /* FOR ASSIGNS           */  01050002
*           2 SWROWVA PTR(24) BDY(BYTE),   /* SVA FOR READ OR WRITE */  01100002
*           2 SWWRTID CHAR(1);             /* BLOCK ID FOR WRITE    */  01150002