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