User Tools

Site Tools


ibm:vm370-lib:copy:dmpbloks.copy_src

DMPBLOKS Source

References

Source Listing

DMPBLOKS.COPY.txt
  1. *COPY DMPBLOKS 00001000
  2. PUSH PRINT 00001200
  3. AIF ('&SYSPARM' NE 'SUP').DMP01 00001400
  4. PRINT OFF,NOGEN 00001600
  5. .DMP01 ANOP 00001800
  6. DMPTBREC DSECT 00002000
  7. SPACE 1 00003000
  8. * 00004000
  9. *** DMPTBREC - DUMP FILE SYMBOL TABLE RECORD 00005000
  10. * 00006000
  11. * +---------------------------------------+ 00007000
  12. * 0 | DMPSYMNM | 00008000
  13. * +-------------------+-------------------+ 00009000
  14. * 8 | DMPSYMVA | | 00010000
  15. * +-------------------+ + 00011000
  16. * | | 00012000
  17. * | | 00013000
  18. * | | 00014000
  19. * = DMPSYMEN = 00015000
  20. * | | 00016000
  21. * | | 00017000
  22. * | | 00018000
  23. * | | 00019000
  24. * +---------------------------------------+ 00020000
  25. * 00021000
  26. *** DMPTBREC - DUMP FILE SYMBOL TABLE RECORD 00022000
  27. * 00023000
  28. SPACE 1 00024000
  29. DMPSYMEN DS 341XL12 SYMBOL TABLE ENTRIES 00025000
  30. ORG DMPSYMEN 00026000
  31. DMPSYMNM DS CL8 CSECT OR ENTRY POINT NAME 00027000
  32. DMPSYMVA DS A LOCATION IN MAIN MEMORY OF THIS SYMBOL 00028000
  33. EJECT 00029000
  34. DMPINREC DSECT 00030000
  35. SPACE 1 00031000
  36. * 00032000
  37. *** DMPINREC - DUMP FILE INFORMATION RECORD 00033000
  38. * 00034000
  39. * +---------------------------------------+ 00035000
  40. * | | 00036000
  41. * 0 = DMPGPRS = 00037000
  42. * | | 00038000
  43. * +---------------------------------------+ 00039000
  44. * | | 00040000
  45. * 40 = DMPCRS = 00041000
  46. * | | 00042000
  47. * +---------------------------------------+ 00043000
  48. * | | 00044000
  49. * 80 = DMPFPRS = 00045000
  50. * | | 00046000
  51. * +---------------------------------------+ 00047000
  52. * A0 | DMPTODCK | 00048000
  53. * +---------------------------------------+ 00049000
  54. * A8 | DMPCPUTM | 00050000
  55. * +---------------------------------------+ 00051000
  56. * B0 | DMPCKCOM | 00052000
  57. * +----+----+---------+-------------------+ 00053000
  58. * B8 |S*1 |S*2 | DMPPROCA| DMPSYSRV | 00054100
  59. * +----+----+---------+-------------------+ 00055000
  60. * | | 00056000
  61. * | | 00057000
  62. * C0 = DMPLCORE = 00058000
  63. * | | 00059000
  64. * | | 00060000
  65. * +-------------------+-------------------+ 00061100
  66. * 1C0 | DMPPRFRG | DMPABEND | 00061200
  67. * +-------------------+-------------------+ 00061300
  68. * 1C8 | | 00062000
  69. * | | 00063000
  70. * | | 00064000
  71. * | DMPPGMAP | 00065100
  72. * | | 00066000
  73. * | | 00067000
  74. * | | 00068000
  75. * +---------------------------------------+ 00068050
  76. * 3C8 | DMPCPUID | 00068100
  77. * +---------------------------------------+ 00068150
  78. * 3D0 | DMPVMTYP | 00068200
  79. * +---------------------------------------+ 00068250
  80. * 3D8 | DMPPSW | 00068300
  81. * +---------------------------------------+ 00068350
  82. * 3E0 | DMPSYSRM | DMPIPCS | 00068400
  83. * +-------------------+ | 00068450
  84. * | | 00068500
  85. * | +-------------------+ 00068550
  86. * 430 | | DMPDMPID | 00068600
  87. * +-------------------+ | 00068650
  88. * | | 00068700
  89. * 490 | | 00068750
  90. * +---------------------------------------+ 00068800
  91. * 498 | | 00068850
  92. * - - 00068900
  93. * FF8 | | 00068950
  94. * +---------------------------------------+ 00069000
  95. * 00070000
  96. *** DMPINREC - DUMP FILE INFORMATION RECORD 00071000
  97. * 00072000
  98. SPACE 1 00073000
  99. DMPGPRS DS 16F 16 GENERAL PURPOSE REGISTERS 00074000
  100. DMPCRS DS 16F 16 CONTROL REGISTERS 00075000
  101. DMPFPRS DS 4D 4 FLOATING POINT REGISTERS (IF FLOATING *00076000
  102. POINT FEATURE INSTALLED ON MACHINE) 00077000
  103. DMPTODCK DS 1D TIME OF DAY CLOCK 00078000
  104. DMPCPUTM DS 1D CPU TIMER 00079000
  105. DMPCKCOM DS 1D TIME OF DAY CLOCK COMPARATOR 00080000
  106. DMPFLAG DS 1X S*1 - FLAG BYTE 00081000
  107. DMPRSV1 DS 1X S*2 - RESERVED FOR FUTURE USE 00082000
  108. DMPPROCA DS 1H ABENDING PROCESSOR ADDRESS @V407510 00083100
  109. DMPSYSRV DS 1F SYSTEM GENERATED STORAGE SIZE @V407510 00083200
  110. DMPLCORE DS 256X LOCATIONS 0-256 OF REAL MEMORY 00085000
  111. DMPPRFRG DS 1F PREFIX REGISTER @V407510 00085100
  112. DMPABEND DS 1F ABEND CODE FOR FAILING PROCESSOR @V407510 00085200
  113. DMPPGMAP DS 256C @V407510 00086100
  114. DS 256C @V407510 00086200
  115. * 4096 BITS INDICATE WHICH @V407510 00086300
  116. * PAGES APPEAR IN THE DUMP FILE @V407510 00086400
  117. * (EACH BIT REPRESENTS A 4K BLOCK) @V407510 00086500
  118. DMPCPUID DS 1D CPU IDENTIFICATION FROM REAL CPU @V67CAH7 00086600
  119. DMPVMTYP DS 1D ID OF VM MACHINE TYPE, OBTAINED @V67CAH7 00086700
  120. * FROM 'FORMAT' PARAMETER 00086800
  121. * ONLY FOR VMDUMPS NOT CP DUMPS 00086900
  122. DMPPSW DS 1D PSW OF VIRTUAL MACHINE @V67CAH7 00087000
  123. * ONLY FOR VMDUMPS NOT CP DUMPS 00087100
  124. DMPSYSRM DS 1F REAL SIZE OF STORAGE...IT IS THE @V67CAH7 00087200
  125. * HARDWARE SIZE OF THE MACHINE FOR 00087300
  126. * CP DUMPS AND THE VIRTUAL MACHINE 00087400
  127. * INCLUDING DISCONTIGUOUS SAVED 00087500
  128. * SEGMENTS FOR VMDUMPS 00087600
  129. DMPIPCS DS 20F RESERVED FOR USE BY IPCS DURING @V67CAH7 00087700
  130. * THEIR BUILDING OF A CMS FILE 00087800
  131. DMPDMPID DS CL100 DUMP INFORMATION...FROM VMDUMP @V67CAH7 00087900
  132. * COMMENT (*) 00088000
  133. * ONLY FOR VMDUMPS NOT CP DUMPS 00088100
  134. SPACE 00089000
  135. * BITS DEFINED IN DMPFLAG 00090000
  136. HALFPAGE EQU X'80' ON MEANS LAST RECORD IN DUMP FILE = 2K 00091000
  137. EJECT 00092000
  138. DMPKYREC DSECT 00093000
  139. SPACE 1 00094000
  140. * 00095000
  141. *** DMPKYREC - DUMP FILE KEY RECORD 00096000
  142. * 00097000
  143. * +----+----------------------------------+ 00098000
  144. * |S*1 | | 00099000
  145. * +----+ + 00100000
  146. * | | 00101000
  147. * | | 00102000
  148. * | | 00103000
  149. * = DMPKEYS = 00104000
  150. * | | 00105000
  151. * | | 00106000
  152. * | | 00107000
  153. * | | 00108000
  154. * +---------------------------------------+ 00109000
  155. * 00110000
  156. *** DMPKYREC - DUMP FILE KEY RECORD 00111000
  157. * 00112000
  158. SPACE 1 00113000
  159. DMPKEYS DS 4096X MAIN MEMORY STORAGE KEYS 00114000
  160. ORG DMPKEYS 00115000
  161. DMPKEY DS 1X S*1 - STORAGE KEY FOR EACH 2K BLOCK 00116000
  162. EJECT 00117000
  163. POP PRINT 00118000
  164. SPACE 00119000
ibm/vm370-lib/copy/dmpbloks.copy_src.txt ยท Last modified: 2023/08/06 13:36 by Site Administrator