MACRO 00001000
IOSECT &SECT 00002000
PUSH PRINT 00002200
AIF ('&SYSPARM' NE 'SUP').ACC01 00002400
PRINT OFF,NOGEN 00002600
.ACC01 ANOP 00002800
AIF ('&SECT' EQ 'CSECT').CSECT 00003000
IOSECT DSECT 00004000
AGO .CONT 00005000
.CSECT ANOP 00006000
IOSECT DS 0D 00007000
ENTRY IOSECT 00008000
ENTRY IONTABL 00009000
.CONT ANOP 00010000
IOSAVE DS 16F - REGISTER SAVE AREA 00011000
* 00012000
IONTABL DC F'0' - SIZE OF USER INTERRUPT TABLE (DBL-WORDS) 00013000
AUSRITBL DC A(0) - ADDRESS OF USER INTERRUPT TABLE 00014000
DC F'28' - LENGTH OF EACH ENTRY 00015000
AUSRILST DC A(0) - ADDRESS OF LAST ENTRY IN TABLE 00016000
* 00017000
OLDEST DS 4F - OLDEST I/O OLD PSW AND CSW 00018000
NEXTO DS 4F - NEXT OLDEST I/O OLD PSW AND CSW 00019000
IOPSW DS 2F - NEWEST I/O OLD PSW 00020000
IOCSW DS 2F - NEWEST CSW 00021000
* 00022000
HOLD DC F'0' - HOLDS ENTRY POINTER FOR DEVICE 00023000
* 00024000
VSTRANGE DC H'0' - UNKNOWN DEVICE ADDRESS SAVED HERE 00025000
* 00026000
DC 1H'0' - RESERVED FOR FUTURE USE 00027000
DC 2F'0' - RESERVED FOR FUTURE USE 00028000
EJECT 00029000
POP PRINT 00029100
MEND 00030000