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