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