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