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