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