*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