*        %GOTO TAIEBSL  ; /*                                            03000000
         MACRO                                                          06000000
         IKJTAIE                                                        09000000
TAIE     DSECT                                                          12000000
TAIEMSGL DS    CL2 .    MESSAGE LENGTH                                  15000000
TAIETGET DS    CL1 .    RET CODE FROM TGET ISSUED BY ATTN PROL LOG      18000000
*                       TO BE CHECKED BY USER ATTN RTN                  21000000
TAIEATTN DS    CL1 .    TO BE USED BY THE TMP                  @ZA08099 21050003
TAIEIAD  DS    1F .     RIGHT HALF OF INTERRUPT PSW                     27000000
TAIERSAV DS    CL64 .   REGS. STORED HERE WHEN AN INTERRUPT             30000000
*                       TO MAINLINE OR ATTEN. EXIT OCCURS               33000000
TAIELNGT EQU   *-TAIE   LENGTH OF TAIE                                  36000000
**/                                                                     39000000
         MEND                                                           42000000
* %TAIEBSL :  ;                                                         45000000
* DECLARE                                                               48000000
*   1 TAIE     BASED(TAIEPTR),                                          51000000
*    2 TAIEMSGL FIXED(15),           /* MESSAGE LENGTH               */ 54000000
*    2 TAIETGET PTR(8),              /* RET CODE FROM TGET ISSUED BY    57000000
*                                       ATTN PROL LOG TO BE CHECKED     60000000
*                                       BY USER ATTN RTN             */ 63000000
*    2 TAIEATTN FIXED(8),            /* TO BE USED BY THE TMP. IF       63050003
*                                       TAIEATTN NOT = 0 THEN ATTN IS   63100003
*                                       IN EFFECT            @ZA08099*/ 63150003
*    2 TAIEIAD  FIXED(31),           /* RIGHT HALF OF INTERRUPT PSW  */ 69000000
*    2 TAIERSAV CHAR(64);            /* REGS. STORED HERE WHEN AN       72000000
*                                       INTERRUPT TO MAINLINE OR        75000000
*                                       ATTEN. EXIT OCCURS           */ 78000000
*                                                                       81000000