MACRO 00001000 SVCSAVE 00002000 PUSH PRINT 00002200 AIF ('&SYSPARM' NE 'SUP').ACC01 00002400 PRINT OFF,NOGEN 00002600 .ACC01 ANOP 00002800 * FORMAT OF SYSTEM SAVE AREA 00003000 SSAVE DSECT 00004000 OVIND DS X OVERRIDE INDICATOR: 0,1,2,3 00005000 TYPFLAG DS BL1 SVC TYPE FLAG BYTE 00006000 TPFERT EQU X'80' ERROR RETURN DESIRED 00007000 TPFNS EQU X'40' NO SAVE AREA ALLOCATED 00008000 TPFR01 EQU X'20' RETURN CALLEE'S R0-R1 TO CALLER 00009000 TPFUSR EQU X'10' 'USER' SVC CALL 00010000 TPFACB EQU X'08' OS VSAM SVC REQUEST 00010100 TPFSV3 EQU X'02' SVC 203 00011000 TPFSVO EQU X'01' OS SIMULATION SVC 00012000 SPACE 00013000 CODE DS H SVC 203 CODE VALUE 00014000 SPACE 00015000 CALLER DS A ADDRESS OF SVC CALLER 00016000 CALLEE DS D NAME OF ROUTINE BEING CALLED 00017000 SPACE 00018000 OLDPSW DS D SVC OLDPSW OF CALLER 00019000 NRMRET DS A ADDRESS FOR NORMAL RETURN 00020000 ERRET DS A ADDRESS FOR ERROR RETURN 00021000 SPACE 00022000 EGPRS DS 0F GENERAL REGS AT ENTRY TO SVC 00023000 EGPR0 DS F R0 00024000 EGPR1 DS F R1 00025000 EGPR2 DS F R2 00026000 EGPR3 DS F R3 00027000 EGPR4 DS F R4 00028000 EGPR5 DS F R5 00029000 EGPR6 DS F R6 00030000 EGPR7 DS F R7 00031000 EGPR8 DS F R8 00032000 EGPR9 DS F R9 00033000 EGPR10 DS F R10 00034000 EGPR11 DS F R11 00035000 EGPR12 DS F R12 00036000 EGPR13 DS F R13 00037000 EGPR14 DS F R14 00038000 EGPR15 DS F R15 00039000 SPACE 00040000 EFPRS DS 0D FLOATING POINT REGS AT ENTRY 00041000 EFPR0 DS D FPR0 00042000 EFPR2 DS D FPR2 00043000 EFPR4 DS D FPR4 00044000 EFPR6 DS D FPR6 00045000 SPACE 00046000 CHKWRD1 DC C'ABCD' CHECK WORD ONE 00047000 SSAVENXT DS A ADDRESS OF NEXT SSAVE AREA 00048000 SSAVEPRV DS A ADDRESS OF PREVIOUS SSAVE AREA 00049000 USAVEPTR DS A ADDRESS OF CORRESPONDING USER *00050000 SAVE AREA 00051000 OSTEMP DS F TEMP FOR OS SIMULATION ROUTINES 00052000 SPACE 00053000 * 'DMSKEY' KEY STACK 00054000 KEYMAX EQU 7 MAXIMUM NUMBER OF KEYS IN STACK 00055000 KEYP DC X'00' NUMBER OF KEYS ON STACK 00056000 KEYS DS (KEYMAX)X KEY STACK 00057000 SPACE 00058000 * THE FOLLOWING FIELDS ARE FILLED IN ONLY BY DMSOVS, THE SVCTRACE 00059000 * SUBROUTINE. 00060000 XGPR0 DS F EXTRA COPY OF EGPR0 00061000 XGPR1 DS F EXTRA COPY OF EGPR1 00062000 XGPR15 DS F EXTRA COPY OF EGPR15 00063000 XCOUNT DS F EXTRA COPY OF SVCOUNT 00064000 SPACE 00065000 CHKWRD2 DC C'EFGH' SECOND CHECK WORD 00066000 SSAVESZ EQU (*-SSAVE+7)/8 SIZE OF SYSTEM SAVE AREA 00067000 EJECT 00068000 * FORMAT OF USER SAVE AREA 00069000 USAVE DSECT 00070000 SPACE 00071000 * THIS IS A SCRATCH AREA PASSED TO USER WITH POINTER IN REGISTER 13. 00072000 DS 12D 00073000 USAVESZ EQU (*-USAVE+7)/8 SIZE OF USER SAVE AREA 00074000 EJECT 00075000 POP PRINT 00075100 MEND 00076000