* %GOTO ATBPLS1;                                                        00052021
         MACRO                                                          00060021
         IECDATB                                                        00100021
* %ATBPLS1: ;                                                           00110021
* /************************************************************/        00150021
* /*                                                          */        00200021
* /*           THIS DSECT DESCRIBES THE SHAPE OF THE ENTRIES  */        00250021
* /*           IN THE ATTENTION TABLE.                        */        00300021
* /*                                                          */        00350021
* /*           THE VALUES FOR UCBATI ARE AS FOLLOWS           */        00360021
* /*            0=RESERVED FOR NO ATTENTION ROUTINE           */        00370021
* /*            4=CONSOLE                                     */        00380021
* /*            8=RESERVED                                    */        00390021
* /*           12=SCHEDULER POST ROUTINE                      */        00392002
* /*           16=GRAPHICS ATTENTION HANDLER                  */        00394021
* /*           20=TP ATTENTION HANDLER (TCAM)                 */        00396021
* /*           24=JES/2 ATTENTION HANDLER                     */        00398002
* /*           28=ANR ATTENTION HANDLER                       */        00398421
* /*           32=RESERVED                                    */        00398821
* /*           36=JES/3 ATTENTION HANDLER                     */        00398902
* /*           40=JES/3 ATTENTION HANDLER                     */        00399003
* /*           44=CHANNEL TO CHANNEL ADAPTER                  */        00399103
* /*           48=VTAM ATTENTION HANDLER                      */        00399203
* /*           52=VTAM ATTENTION HANDLER                      */        00401203
* /*           56=SS1/DSM ATTENTION HANDLER                  @Y30LPLC*/ 00403203
* /*                                                          */        00405203
* /************************************************************/        00407203
* %GOTO ATBPLS;                                                         00410021
ATB      DSECT                                                          00450021
ATBFLA   DS    C                   ATTENTION TABLE FLAGS                00500021
         SPACE 1                                                        00550021
*    BIT DEFINITIONS FOR ATBFLA                                         00600021
         SPACE 1                                                        00650021
ATBSEP   EQU   X'80'               ATTENTION SEPERATION REQUIRED        00700021
ATBLLKR  EQU   X'40'               LOCAL LOCK REQUIRED                  00750021
ATBQSC   EQU   X'20'               QUIESCE BIT                 @YM06128 00770002
ATBITF   EQU   X'10'               INTERCEPT BIT               @YM06128 00780002
ATBRESVR EQU   X'0F'               RESERVED                             00800002
         SPACE 1                                                        00850021
         DS    C                   RESERVED                             00900021
ATBASID  DS    H                   ASID TO SCHEDULE ATTENTION           00950021
*                                  *ROUTINE INTO                        01000021
ATBRTN   DS    A                   ADDRESS OF ATTENTION ROUTINE         01050021
ATBMP2   EQU   1                   POWER OF 2 MULTIPLIER FOR            01060021
*                                  UCBATI                               01070021
         MEND                                                           01100021
* %ATBPLS: ;                                                            01150021
*   DCL 1 ATB  BDY(WORD)  BASED(ATBPTR),                                01160021
*        2 ATBFLA   BIT(8),        /*ATTENTION TABLE FLAGS    */        01200021
*          3 ATBSEP   BIT(1),      /*SEPERATION REQUIRED      */        01250021
*          3 ATBLLKR  BIT(1),      /*LOCAL LOCK REQUIRED      */        01300021
*          3 ATBQSC  BIT(1),       /*QUIESCE BIT             @YM06128*/ 01305002
*          3 ATBITF  BIT(1),       /*INTERCEPT BIT           @YM06128*/ 01310002
*        2 *        BIT(8),        /*RESERVED                 */        01350021
*        2 ATBASID  PTR(15),       /*ASID TO SCHEDULE                   01400002
*                                    ATTENTION ROUTINE INTO   */        01450002
*        2 ATBRTN   PTR(31),       /*ATTENTION ROUTINE ADDRESS*/        01500021
*        2 *        CHAR(0);       /*END OF ATTENTION ENTRY   */        01550021
*  DCL  ATBMP2 BIT(8) CONSTANT('01'X);  /*                              01600002
*                                     POWER OF 2 MULTIPLIER             01650002
*                                     FOR UCBATI              */        01700002