ibm:vm370-lib:macro:pgmsect.macro_src
Table of Contents
PGMSECT Source
References
- Fixes Applied : 0
- This Source Date : Saturday, December 9, 1978
- Last Fix ID : [Unmodified]
Source Listing
- PGMSECT.MACRO.txt
- 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
ibm/vm370-lib/macro/pgmsect.macro_src.txt · Last modified: 2023/08/06 13:38 by Site Administrator