*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