| |
Hex Dec Type/Val Lng Label (dup) Comments
---- ---- --------- ---- -------------- --------
0000 0 Structure PGMSECT Program Interrupt Work Area
STOREAGE FOR PROGRAM INTERRUPT ROUTINE ("INTPROG")
0000 0 Signed 4 DEBPSW Used to point to DEBUG
0008 8 Signed 4 PICADDR - PICA ADDRESS FROM RECENT "SPIE"
000C 12 Signed 4 PIEPTR Anchor for SPIE/ESPIE exit rtns
0010 16 Dbl-Word 8 PIE (0) - ***PROGRAM INTERRUPT ELEMENT***
0010 16 Character 4 *
0014 20 Address 4 EPIEPARM Pointer to ESPIE plist
0018 24 Signed 4 EPIEREGS (16) Save area for regs at interrupt
0058 88 Signed 4 EPIEPSW (2) Saved PGM old PSW In XA-mode, it
is an XA PSW In XC-mode, it is an
XC PSW In 370-mode, it is a
BC-mode PSW
0060 96 Signed 4 EPIEINT Interrupt code save area First 2
bytes=ILC Last 2 bytes=interrupt
code
0064 100 Signed 4 EPIETXCP XA or XC Translation exception
information ***END PROGRAM
INTERRUPT ELEMENT
0068 104 Bitstring 1 TEMPOLD (8) - WORK AREA
0070 112 Bitstring 1 TEMPNEW (8) -
0078 120 Signed 4 R13AREA - SAVED R13
007C 124 Signed 4 PSAVE (16) - REGS SAVED AT INT TIME
00BC 188 Signed 4 SCBPTR - POINTER TO FIRST STAE CONTROL
BLOCK
1... .... STAEBIT X'80' STAEBIT
.1.. .... STAIBIT X'40' STAIBIT
..1. .... RETRYBIT X'20' RETRYBIT
00C0 192 Address 4 SCBWORK - ADDRESS OF WORK AREA FOR STAE
EXIT ROUTINE
00C4 196 Address 4 SCBSAV12 - ADDRESS OF REG 12 SAVE AREA FOR
DMSSAB
00C8 200 Address 4 SCBSAV13 - ADDRESS OF REG 13 SAVE AREA FOR
DMSSAB
00CC 204 Address 4 SCBSAV14 - ADDRESS OF REG 14 SAVE AREA FOR
DMSSAB
00D0 208 Address 4 SCBSAV15 - Address of DMSSAB REG15 save
area.
00D4 212 Address 4 AUPIE - ADDRESS OF USER'S PIE, IN SPIE
EXI
The following fields are needed to handle the MC 0,10 and
MC 2,10 interupts that come back from CP when running in
XA or XC mode and tracing events in TRSOURCE BLOCK mode.
00D8 216 Signed 4 PGMSAVE (18) Save area for calls to DMSBMRAR
and DMSJDX
0120 288 Character 24 PGMEXHD Area for EXTRA HEADER needed to
get CMS to format trace data
0138 312 Signed 4 AREGS (0) Save area for Access Registers
0138 312 Signed 4 AREG0 Access Register 0
013C 316 Signed 4 AREG1 Access Register 1
0140 320 Signed 4 AREG2 Access Register 2
0144 324 Signed 4 AREG3 Access Register 3
0148 328 Signed 4 AREG4 Access Register 4
014C 332 Signed 4 AREG5 Access Register 5
0150 336 Signed 4 AREG6 Access Register 6
0154 340 Signed 4 AREG7 Access Register 7
0158 344 Signed 4 AREG8 Access Register 8
015C 348 Signed 4 AREG9 Access Register 9
0160 352 Signed 4 AREG10 Access Register 10
0164 356 Signed 4 AREG11 Access Register 11
0168 360 Signed 4 AREG12 Access Register 12
016C 364 Signed 4 AREG13 Access Register 13
0170 368 Signed 4 AREG14 Access Register 14
0174 372 Signed 4 AREG15 Access Register 15
0178 376 Signed 4 ARALET Access Register ALET
017C 380 Bitstring 1 AREXID Access Register id
017D 381 Bitstring 2 * Reserved for future IBM use
The ABEFLAG is used to communicate between DMSABE & DMSSAB.
017F 383 Bitstring 1 ABEFLAG ABE to/from SAB communication
1... .... ABEABN X'80' ABEABN Indictes this was a
DMSABN initiated abend.
.1.. .... ABEBRENT X'40' ABEBRENT Indictes that the
DMSABN call was branch entered.
If off, SVC enterd
..1. .... ABESVC13 X'20' ABESVC13 Indictes that
DMSABE was entered via a SVC 13,
the MVS ABEND macro
...1 .... ABEXFRES X'10' ABEXFRES Indictes that
DMSABE transferred control to
DMSSAB to drive ESTAE
0180 384 Address 4 ABESDWA Save area for CMS's SDWA address
Save areas for 64-bit registers
0188 392 Dbl-Word 8 PSAVEG (16) - Z-mode regs saved at int time
0208 520 Dbl-Word 8 EPIERG (16) Z-mode regs saved at int time
| |