MACRO                                                          00001000
         PGMSECT &SECT                                                  00002000
         PUSH  PRINT                                                    00002200
         AIF   ('&SYSPARM' NE 'SUP').ACC01                              00002400
         PRINT OFF,NOGEN                                                00002600
.ACC01   ANOP                                                           00002800
         AIF   ('&SECT' EQ 'CSECT').CSECT                               00003000
PGMSECT  DSECT                                                          00004000
         AGO   .CONT                                                    00005000
.CSECT   ANOP                                                           00006000
PGMSECT  DS    0D                                                       00007000
         ENTRY PGMSECT                                                  00008000
         ENTRY PIE                                                      00009000
.CONT    ANOP                                                           00010000
*                                                                       00011000
*   STOREAGE FOR PROGRAM INTERRUPT ROUTINE ("INTPROG")                  00012000
*                                                                       00013000
DEBPSW   DC    F'0',V(DMSDBG) -    POINT TO DEBUG                       00014000
*                                                                       00015000
PIE      DS    0D -           ***PROGRAM INTERRUPT ELEMENT***           00016000
PICADDR  DC    F'0' -         PICA ADDRESS FROM RECENT "SPIE"           00017000
OPSW     DC    2F'0' -        OLD PSW AFTER PROGRAM INT.                00018000
         DC    5F'0' -        REGS: R14,R15,R0,R1,R2                    00019000
*                                 ***END PROGRAM INTERRUPT ELEMENT***   00020000
TEMPOLD  DC    8X'00' -       WORK AREA                                 00021000
TEMPNEW  DC    8X'00' -                                                 00022000
R13AREA  DC    F'0' -         SAVED R13                                 00023000
PSAVE    DC    16F'0' -       REGS SAVED AT INT TIME                    00024000
*                                                                       00025000
SCBPTR   DC    F'0' -        POINTER TO FIRST STAE CONTROL BLOCK        00026000
STAEBIT  EQU   X'80'                                           @V1D1709 00027000
STAIBIT  EQU   X'40'                                           @V1D1709 00028000
RETRYBIT EQU   X'20'                                           @V1D1709 00029000
SCBWORK  DC    A(0) -        ADDRESS OF WORK AREA FOR STAE EXIT ROUTINE 00030000
SCBSAV12 DC    A(0) -        ADDRESS OF REG 12 SAVE AREA FOR DMSSAB     00031000
SCBSAV13 DC    A(0) -        ADDRESS OF REG 13 SAVE AREA FOR DMSSAB     00032000
SCBSAV14 DC    A(0) -        ADDRESS OF REG 14 SAVE AREA FOR DMSSAB     00033000
AUPIE    DS    A -           ADDRESS OF USER'S PIE, IN SPIE EXIT        00034000
         EJECT                                                          00035000
         POP   PRINT                                                    00035100
         MEND                                                           00036000