*COPY XINTBLOK                                                          00000500
         PUSH  PRINT                                                    00000510
         AIF   ('&SYSPARM' NE 'SUP').XIN01                              00000520
         PRINT OFF,NOGEN                                                00000530
.XIN01   ANOP                                                           00000540
XINTBLOK DSECT                                                          00001000
         SPACE                                                          00002000
*                                                                       00003000
***      XINTBLOK - EXTERNAL INTERRUPT BLOCK                            00004000
*                                                                       00005000
*              +-------------------+---------+---------+                00006000
*              |     XINTNEXT      |XINTSORT |XINTCPUA |                00007000
*              +---------+---------+---------+---------+                00008000
*              |XINTCODE |XINTMASK |     XINTPARM      |                00009000
*              +---------+---------+-------------------+                00010000
*                                                                       00011000
***      XINTBLOK - EXTERNAL INTERRUPT BLOCK                            00012000
*                                                                       00013000
         SPACE                                                          00014000
XINTNEXT DS    F              ADDRESS OF NEXT EXTERNAL INTERRUPT BLOCK  00015000
XINTSORT DS    H              1/2 OF COLLATING NUMBER OF INTERRUPT      00016000
XINTCPUA DS    H                  2/2 OF ABOVE                          00017000
XINTCODE DS    H              EXTERNAL INTERRUPT CODE                   00018000
XINTMASK DS    H              CONTROL REGISTER 0 MASK (BITS 16-31)      00019000
XINTPARM DS    F              EXTERNAL INTERRUPT PARAMETER WORD         00020000
         SPACE                                                          00021000
XINTSIZE EQU   (*-XINTBLOK+7)/8    SIZE OF BLOCK IN DOUBLEWORDS         00022000
         EJECT                                                          00023000
         POP   PRINT                                                    00024000
         SPACE                                                          00025000