*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