User Tools

Site Tools


ibm:vm370-lib:copy:savtable.copy_src

SAVTABLE Source

References

Source Listing

SAVTABLE.COPY.txt
  1. *COPY SAVTABLE 00001000
  2. PUSH PRINT 00001200
  3. AIF ('&SYSPARM' NE 'SUP').SVT01 00001400
  4. PRINT OFF,NOGEN 00001600
  5. .SVT01 ANOP 00001800
  6. SAVTABLE DSECT 00002000
  7. SPACE 00002500
  8. *** SAVTABLE - FIRST DASD PAGE FOR SAVED SYSTEMS 00003500
  9. * 00004500
  10. * 0 +-----------------------------------------------+ 00005500
  11. * | SAVPSW | 00006500
  12. * 8 +-----------------------------------------------+ 00007500
  13. * | | 00008500
  14. * = SAVGREGS = 00009500
  15. * | | 00010500
  16. * 48 +-----------------------------------------------+ 00011500
  17. * | | 00012500
  18. * = SAVFPRES = 00013500
  19. * | | 00014500
  20. * 68 +-----------------------------------------------+ 00015500
  21. * | | 00016500
  22. * = SAVCREGS = 00017500
  23. * | | 00018500
  24. * A8 +-----------------------------------------------+ 00019500
  25. * | | 00020500
  26. * = SAVKEYS = 00021500
  27. * | | 00022500
  28. * +-----------------------------------------------+ 00023500
  29. * 00024500
  30. *** SAVTABLE - FIRST DASD PAGE FOR SAVED SYSTEMS 00025500
  31. SPACE 00026500
  32. SAVPSW DS 1D PSW OF VIRTUAL MACHINE AT SAVSYS TIME 00027000
  33. SAVGREGS DS 16F GENERAL PURPOSE REGISTERS 00028000
  34. SAVFPRES DS 4D FLOATING POINT REGISTERS 00029000
  35. SAVCREGS DS 16F CONTROL REGISTERS 00030000
  36. SAVKEYS DS 1H TWO BYTE ENTRY FOR EACH SAVED PAGE 00031000
  37. * CONTAINING STORAGE KEYS FOR EACH PAGE 00032000
  38. EJECT 00033000
  39. POP PRINT 00034000
  40. SPACE 00035000
ibm/vm370-lib/copy/savtable.copy_src.txt ยท Last modified: 2023/08/06 13:36 by Site Administrator