*COPY CPEXBLOK 00001000
PUSH PRINT 00001200
AIF ('&SYSPARM' NE 'SUP').CPX01 00001400
PRINT OFF,NOGEN 00001600
.CPX01 ANOP 00001800
CPEXBLOK DSECT 00056000
SPACE 1 00057000
*** CPEXBLOK - CP EXECUTE BLOCK 00058000
* 00059000
* 0 +-----------------------+-----------------------+ 00060000
* | CPEXFPNT | CPEXBPNT | 00061000
* 8 +-----------------------+-----------------------+ 00062000
* | CPEXMISC | CPEXADD | 00063000
* 10 +-----------------------+-----------------------+ 00064000
* | | 00065000
* = CPEXREGS = 00066000
* | | 00067000
* 50 +-----------------------------------------------+ 00068000
* 00069000
*** CPEXBLOK - CP EXECUTE BLOCK 00070000
SPACE 1 00073000
CPEXFPNT DS 1F POINTER TO NEXT CPEXBLOK 00074000
CPEXBPNT DS 1F POINTER TO PREVIOUS CPEXBLOK 00075000
CPEXMISC DS 1F USE MAY VARY WITH STACKER 00076000
CPEXADD DS 1F EXECUTE ADDRESS 00077000
CPEXREGS DS 16F EXECUTE REGISTERS 00078000
SPACE 1 00079000
CPEXSIZE EQU (*-CPEXBLOK)/8 SIZE IN DOUBLE WORDS 00080000
SPACE 1 00080050
* DEFINITION OF CPEXMISC FOR DMKSTK AND DMKDSP @V407508 00080100
ORG CPEXMISC @V407508 00080150
CPEXTYPE DS 1X TYPE OF BLOK ON CPEXBLOK CHAIN @V407508 00080200
* BITS DEFINED IN CPEXTYPE @V407508 00080250
CPEXDEFR EQU X'80' DEFERRED INTERRUPT REQUEST @V407508 00080300
CPEXPRIO EQU X'40' CPEXBLOK WITH PRIORITY @V4M0141 00080350
CPEXLPSW EQU X'20' LPSW TO GO TO EXECUTION ADDRESS @V407508 00080400
DS 1X RESERVED @V407508 00080450
CPEXPROC DS 1H ADDR OF PROC RELATED TO BLOK @V407508 00080500
SPACE 1 00081000
* FOR CPEXREGS AREA 00082000
ORG CPEXREGS 00083000
CPEXR0 DS 1F 00084000
CPEXR1 DS 1F 00085000
CPEXR2 DS 1F 00086000
CPEXR3 DS 1F 00087000
CPEXR4 DS 1F 00088000
CPEXR5 DS 1F 00089000
CPEXR6 DS 1F 00090000
CPEXR7 DS 1F 00091000
CPEXR8 DS 1F 00092000
CPEXR9 DS 1F 00093000
CPEXR10 DS 1F 00094000
CPEXR11 DS 1F 00095000
CPEXR12 DS 1F 00096000
CPEXR13 DS 1F 00097000
CPEXR14 DS 1F 00098000
CPEXR15 DS 1F 00099000
EJECT 00100000
POP PRINT 00101000
SPACE 00102000