ibm:vm370-lib:copy:save.copy_src
Table of Contents
SAVE Source
References
- Fixes Applied : 0
- This Source Date : Friday, December 8, 1978
- Last Fix ID : [Unmodified]
Source Listing
- SAVE.COPY.txt
- *COPY SAVE 00001000
- PUSH PRINT 00001200
- AIF ('&SYSPARM' NE 'SUP').SAV01 00001400
- PRINT OFF,NOGEN 00001600
- .SAV01 ANOP 00001800
- SAVEAREA DSECT 00002000
- SPACE 1 00003000
- *** SAVEAREA - SVC CALL 00004000
- * 00005000
- * 0 +-----------------------+-----------------------+ 00006000
- * | SAVERETN | SAVER12 | 00007000
- * 8 +-----------------------+-----------------------+ 00008000
- * | SAVER13 | SAVEWRK1 | 00009000
- * 10 +-----------------------+-----------------------+ 00010000
- * | | 00011000
- * = SAVEREGS = 00012000
- * | | 00013000
- * 40 +-----------------------+-----------------------+ 00014000
- * | SAVEWRK2 | SAVEWRK3 | 00015000
- * 48 +-----------------------+-----------------------+ 00016000
- * | SAVEWRK4 | SAVEWRK5 | 00017000
- * 50 +-----------------------+-----------------------+ 00018000
- * | SAVEWRK6 | SAVEWRK7 | 00019000
- * 58 +-----------------------+-----------------------+ 00020000
- * | SAVEWRK8 | SAVEWRK9 | 00021000
- * 60 +-----------------------+-----------------------+ 00022000
- * 00023000
- *** SAVEAREA - SVC CALL 00024000
- SPACE 1 00025000
- SAVERETN DS 1F ACTIVE SAVEAREA - CALLERS RETURN ADDRESS 00026000
- * RE-DEFINITION OF SAVERETN TO INCLUDE PROCESSOR ADDR @V407508 00026050
- ORG SAVERETN @V407508 00026100
- SAVEPROC DS 1X ACTIVE SAVEAREA - PROCESSR ADDR @V407508 00026150
- SAVERTN DS 3X ACTIVE SAVEAREA - RETURN ADDR @V407508 00026200
- ORG SAVERETN 00027000
- SAVENEXT DS 1F INACTIVE SAVEAREA - NEXT SAVEAREA ADDRESS 00028000
- SAVER12 DS 1F CALLERS BASE - R12 00029000
- SAVER13 DS 1F CALLERS SAVEAREA - R13 00030000
- SAVEWRK1 DS 1F CALLEES WORKAREA 00031000
- SAVEREGS DS 12F CALLERS REGISTERS - R0 TO R11 00032000
- ORG SAVEREGS 00033000
- SAVER0 DS 1F 00034000
- SAVER1 DS 1F 00035000
- SAVER2 DS 1F 00036000
- SAVER3 DS 1F 00037000
- SAVER4 DS 1F 00038000
- SAVER5 DS 1F 00039000
- SAVER6 DS 1F 00040000
- SAVER7 DS 1F 00041000
- SAVER8 DS 1F 00042000
- SAVER9 DS 1F 00043000
- SAVER10 DS 1F 00044000
- SAVER11 DS 1F 00045000
- SAVEWRK2 DS 1F CALLEES WORKAREA - 8 WORDS 00046000
- SAVEWRK3 DS 1F 00047000
- SAVEWRK4 DS 1F 00048000
- SAVEWRK5 DS 1F 00049000
- SAVEWRK6 DS 1F 00050000
- SAVEWRK7 DS 1F 00051000
- SAVEWRK8 DS 1F 00052000
- SAVEWRK9 DS 1F 00053000
- SAVESIZE EQU (*-SAVEAREA)/8 SIZE IN DOUBLE WORDS 00054000
- EJECT 00100000
- POP PRINT 00101000
- SPACE 00102000
- COPY CPEXBLOK @V4M0004 00102100
ibm/vm370-lib/copy/save.copy_src.txt · Last modified: 2023/08/06 13:36 by Site Administrator