*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