ibm:vm370-lib:copy:cpexblok.copy_src
Table of Contents
CPEXBLOK Source
References
- Fixes Applied : 0
- This Source Date : Friday, December 8, 1978
- Last Fix ID : [Unmodified]
Source Listing
- CPEXBLOK.COPY.txt
- *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
ibm/vm370-lib/copy/cpexblok.copy_src.txt · Last modified: 2023/08/06 13:36 by Site Administrator