ibm:vm370-lib:macro:dosave.macro_src
Table of Contents
DOSAVE Source
References
- Fixes Applied : 0
- This Source Date : Friday, December 15, 1978
- Last Fix ID : [Unmodified]
Source Listing
- DOSAVE.MACRO.txt
- MACRO 00001000
- DOSAVE &SECT 00002000
- AIF ('&SECT' EQ 'CSECT').CSECT 00003000
- SVEARA DSECT LTA AND PP SAVEAREA DSECT 00004000
- DS 2F 00005000
- SVEPSW DS F FIRST HALF PSW 00006000
- SVEPSW2 DS F SECOND HALF PSW 00007000
- SVER09 DS F SAVE AREA FOR REGISTER 9 00008000
- SVER0A DS F SAVE AREA FOR REGISTER 10 00009000
- SVER0B DS F SAVE AREA FOR REGISTER 11 00010000
- SVER0C DS F SAVE AREA FOR REGISTER 12 00011000
- SVER0D DS F SAVE AREA FOR REGISTER 13 00012000
- SVER0E DS F SAVE AREA FOR REGISTER 14 00013000
- SVER0F DS F SAVE AREA FOR REGISTER 15 00014000
- SVER00 DS F SAVE AREA FOR REGISTER 0 00015000
- SVER01 DS F SAVE AREA FOR REGISTER 1 00016000
- SVER02 DS F SAVE AREA FOR REGISTER 2 00017000
- SVER03 DS F SAVE AREA FOR REGISTER 3 00018000
- SVER04 DS F SAVE AREA FOR REGISTER 4 00019000
- SVER05 DS F SAVE AREA FOR REGISTER 5 00020000
- SVER06 DS F SAVE AREA FOR REGISTER 6 00021000
- SVER07 DS F SAVE AREA FOR REGISTER 7 00022000
- SVER08 DS F SAVE AREA FOR REGISTER 8 00023000
- EJECT 00024000
- AGO .END 00025000
- .CSECT ANOP 00026000
- SAVE DS 0D . DOUBLE WORD ALIGN 00027000
- ENTRY SAVE 00028000
- LTASAVE EQU *-8 . SAVE AREA FOR LOGICAL TRANSIENTS 00029000
- LTAPSW DC X'070D0000' . B-TRANSIENT PSW 00030000
- DC A(8) . NEXT INSTRUCTION ADDRESS 00031000
- DC 16F'0' . LTA REGISTER SAVE AREA 00032000
- DC 2F'0' . RESERVED FOR COMPATIBILITY PURPOSES 00033000
- DC 4D'0' . SAVE AREA FOR FP REGISTERS 00034000
- DS 0D . 00035000
- PPSAVE EQU *-8 . PROB PROG SAVEAREA FOR USER 00036000
- DC 2F'0' . SAVE AREA FOR OLD PSW 00037000
- DC 16F'0' . SAVE AREA FOR GENERAL REGISTERS 00038000
- .END ANOP 00039000
- MEND 00040000
ibm/vm370-lib/macro/dosave.macro_src.txt · Last modified: 2023/08/06 13:38 by Site Administrator