Table of Contents

SAVE Source

References

Source Listing

SAVE.COPY.txt 
  1. *COPY SAVE                                                              00001000
  2.          PUSH  PRINT                                                    00001200
  3.          AIF   ('&SYSPARM' NE 'SUP').SAV01                              00001400
  4.          PRINT OFF,NOGEN                                                00001600
  5. .SAV01   ANOP                                                           00001800
  6. SAVEAREA DSECT                                                          00002000
  7.          SPACE 1                                                        00003000
  8. ***                           SAVEAREA - SVC CALL                       00004000
  9. *                                                                       00005000
  10. *          0   +-----------------------+-----------------------+        00006000
  11. *              |        SAVERETN       |        SAVER12        |        00007000
  12. *          8   +-----------------------+-----------------------+        00008000
  13. *              |        SAVER13        |        SAVEWRK1       |        00009000
  14. *         10   +-----------------------+-----------------------+        00010000
  15. *              |                                               |        00011000
  16. *              =                    SAVEREGS                   =        00012000
  17. *              |                                               |        00013000
  18. *         40   +-----------------------+-----------------------+        00014000
  19. *              |        SAVEWRK2       |        SAVEWRK3       |        00015000
  20. *         48   +-----------------------+-----------------------+        00016000
  21. *              |        SAVEWRK4       |        SAVEWRK5       |        00017000
  22. *         50   +-----------------------+-----------------------+        00018000
  23. *              |        SAVEWRK6       |        SAVEWRK7       |        00019000
  24. *         58   +-----------------------+-----------------------+        00020000
  25. *              |        SAVEWRK8       |        SAVEWRK9       |        00021000
  26. *         60   +-----------------------+-----------------------+        00022000
  27. *                                                                       00023000
  28. ***                           SAVEAREA - SVC CALL                       00024000
  29.          SPACE 1                                                        00025000
  30. SAVERETN DS    1F             ACTIVE SAVEAREA - CALLERS RETURN ADDRESS  00026000
  31. *        RE-DEFINITION OF SAVERETN TO INCLUDE PROCESSOR ADDR   @V407508 00026050
  32.          ORG   SAVERETN                                        @V407508 00026100
  33. SAVEPROC DS    1X             ACTIVE SAVEAREA - PROCESSR ADDR  @V407508 00026150
  34. SAVERTN  DS    3X             ACTIVE SAVEAREA - RETURN ADDR    @V407508 00026200
  35.          ORG   SAVERETN                                                 00027000
  36. SAVENEXT DS    1F             INACTIVE SAVEAREA - NEXT SAVEAREA ADDRESS 00028000
  37. SAVER12  DS    1F             CALLERS BASE - R12                        00029000
  38. SAVER13  DS    1F             CALLERS SAVEAREA - R13                    00030000
  39. SAVEWRK1 DS    1F             CALLEES WORKAREA                          00031000
  40. SAVEREGS DS    12F            CALLERS REGISTERS - R0 TO R11             00032000
  41.          ORG   SAVEREGS                                                 00033000
  42. SAVER0   DS    1F                                                       00034000
  43. SAVER1   DS    1F                                                       00035000
  44. SAVER2   DS    1F                                                       00036000
  45. SAVER3   DS    1F                                                       00037000
  46. SAVER4   DS    1F                                                       00038000
  47. SAVER5   DS    1F                                                       00039000
  48. SAVER6   DS    1F                                                       00040000
  49. SAVER7   DS    1F                                                       00041000
  50. SAVER8   DS    1F                                                       00042000
  51. SAVER9   DS    1F                                                       00043000
  52. SAVER10  DS    1F                                                       00044000
  53. SAVER11  DS    1F                                                       00045000
  54. SAVEWRK2 DS    1F             CALLEES WORKAREA - 8 WORDS                00046000
  55. SAVEWRK3 DS    1F                                                       00047000
  56. SAVEWRK4 DS    1F                                                       00048000
  57. SAVEWRK5 DS    1F                                                       00049000
  58. SAVEWRK6 DS    1F                                                       00050000
  59. SAVEWRK7 DS    1F                                                       00051000
  60. SAVEWRK8 DS    1F                                                       00052000
  61. SAVEWRK9 DS    1F                                                       00053000
  62. SAVESIZE EQU   (*-SAVEAREA)/8 SIZE IN DOUBLE WORDS                      00054000
  63.          EJECT                                                          00100000
  64.          POP   PRINT                                                    00101000
  65.          SPACE                                                          00102000
  66.          COPY  CPEXBLOK                                        @V4M0004 00102100