User Tools

Site Tools


ibm:vm370-lib:macro:psa.macro_src

PSA Source

References

Source Listing

PSA.MACRO.txt
  1. MACRO 00001000
  2. PSA 00002000
  3. AIF ('&SYSECT' EQ 'DMKPSA').PSA1 00008000
  4. PUSH PRINT 00008200
  5. AIF ('&SYSPARM' NE 'SUP').PSA01 00008400
  6. PRINT OFF,NOGEN 00008600
  7. .PSA01 ANOP 00008800
  8. PSA DSECT 00009000
  9. .PSA1 ANOP 00010000
  10. GBLB &AP 00010100
  11. SPACE 1 00011000
  12. *** PSA - PREFIX STORAGE AREA - MACHINE USAGE 00012000
  13. * 00012500
  14. * 0 +-----------------------+-----------------------+ 00013000
  15. * | IPLPSW | IPLCCW1 | 00013500
  16. * 10 +-----------------------+-----------------------+ 00014000
  17. * | IPLCCW2 | EXOPSW | 00014500
  18. * 20 +-----------------------+-----------------------+ 00015000
  19. * | SVCOPSW | PROPSW | 00015500
  20. * 30 +-----------------------+-----------------------+ 00016000
  21. * | MCOPSW | IOOPSW | 00016500
  22. * 40 +-----------------------+-----------+-----------+ 00017000
  23. * | CSW | CAW | QUANTUMR | 00017500
  24. * 50 +-----------+-----------+-----------+-----------+ 00018000
  25. * | TIMER | QUANTUM | EXNPSW | 00018500
  26. * 60 +-----------+-----------+-----------------------+ 00019000
  27. * | SVCNPSW | PRNPSW | 00019500
  28. * 70 +-----------------------+-----------------------+ 00020000
  29. * | MCNPSW | IONPSW | 00020500
  30. * 80 +-----------------------+-----------------------+ 00021000
  31. * | | 00021500
  32. * = CPULOG = 00022000
  33. * | | 00022500
  34. * 100 +-----------------------------------------------+ 00023000
  35. * | | 00023500
  36. * = FXDLOG = 00024000
  37. * | | 00024500
  38. * 160 +-----------------------------------------------+ 00025000
  39. * | | 00025500
  40. * = FPRLOG = 00026000
  41. * | | 00026500
  42. * 180 +-----------------------------------------------+ 00027000
  43. * | | 00027500
  44. * = GPRLOG = 00028000
  45. * | | 00028500
  46. * 1C0 +-----------------------------------------------+ 00029000
  47. * | | 00029500
  48. * = CRLOG = 00030000
  49. * | | 00030500
  50. * 200 +-----------------------------------------------+ 00031000
  51. * 00031500
  52. *** PSA - PREFIX STORAGE AREA - MACHINE USAGE 00032000
  53. EJECT 00032500
  54. *** PSA - PREFIX STORAGE AREA - VM/370 USAGE 00033000
  55. * 00033500
  56. * 200 +-----------------------------------------------+ 00034000
  57. * | | 00034500
  58. * = TEMPSAVE = 00035000
  59. * | | 00035500
  60. * 240 +-----------------------------------------------+ 00036000
  61. * | | 00036500
  62. * = BALRSAVE = 00037000
  63. * | | 00037500
  64. * 280 +-----------------------------------------------+ 00038000
  65. * | | 00038500
  66. * = FREESAVE = 00039000
  67. * | | 00039500
  68. * 2C0 +-----------------------------------------------+ 00040000
  69. * | | 00040500
  70. * = FREEWORK = 00041000
  71. * | | 00041500
  72. * 2F0 +-----------------------+-----------------------+ 00042000
  73. * | DATE | TODATE | 00042500
  74. * 300 +-----------------------+-----------------------+ 00043000
  75. * | STARTIME | CPUID | 00043500
  76. * 310 +-----------------------+-----------------------+ 00044000
  77. * | IDLEWAIT | PAGEWAIT | 00044500
  78. * 320 +-----------------------+-----------------------+ 00045000
  79. * | IONTWAIT | PROBTIME | 00045500
  80. * 330 +-----------------------+-----------+-----------+ 00046000
  81. * | RUNPSW | RUNUSER | DSPLPSW | 00046500
  82. * 340 +-----------+-----------+-----------+-----------+ 00047000
  83. * | RUNCR0 | RUNCR1 | CPSTAT | CPRESTRT | 00047500
  84. * 350 +-----------+-----------+-----------+-----------+ 00048000
  85. * | PGREAD | PGWRITE | PGWAITIM | 00048500
  86. * 360 +-----------+-----------+-----------+-----+-----+ 00049000
  87. * | PGWAITPG | PSASVCCT | P*1 | P*2 | 00049500
  88. * 370 +-----------+-----------+-----+-----+-----+-----+ 00050000
  89. * | CPID | CPABEND | P*3 | P*4 | ASYSVM | 00050500
  90. * 380 +-----------+-----------+-----+-----+-----------+ 00051000
  91. * | ARSPPR | ARSPPU | ARSPRD | ARIOPU | 00051500
  92. * 390 +-----------+-----------+-----------+-----------+ 00052000
  93. * | ARIOPR | ARIORD | P*5 | S*6 | ARSPAC | 00052510
  94. * 3A0 +-----------+-----------+-----------+-----------+ 00053000
  95. * | AVMREAL | ASYSABND | ASYSLC | ASYSOP | 00053500
  96. * 3B0 +-----------+-----------+-----------+-----------+ 00054000
  97. * | ARIOCT | ARIOCH | ARIOCU | ARIODV | 00054500
  98. * 3C0 +-----------+-----------+-----------+-----------+ 00055000
  99. * | ARIOCC | ARIOUC | ARIODC | ACORETBL | 00055500
  100. * 3D0 +-----------+-----------+-----------+-----------+ 00056000
  101. * | APAGCP | CPCREG0 | CPCREG6 | CPCREG8 | 00056610
  102. * 3E0 +-----------+-----------+-----------+-----------+ 00057000
  103. * | TIMEDISP | ASVCLIST | AVMALIST | LASTUSER | 00057520
  104. * 3F0 +-----------+-----------+-----------+-----------+ 00058000
  105. * | (CONT) | 00058500
  106. EJECT 00059000
  107. * 00059500
  108. * | (CONT) | 00060000
  109. * 3F0 +-----------+-----------+-----------+-----------+ 00060500
  110. * | PAGECUR | PAGENXT | MONNEXT | PAGEND | 00061000
  111. * 400 +-----------+-----------+-----+-----+-----------+ 00061500
  112. * | TRACEFLG | TTSEGCNT | P*6 | P*14| RESERVED | 00061900
  113. * 410 +-----------+-----------+-----+-----+-----------+ 00062300
  114. * | ALOKFR | ALOKSY | RSVD-ECPS | RESERVED | 00062600
  115. * 420 +-----------+-----------+-----------+-----------+ 00062900
  116. * | RESERVED | 00063200
  117. * 430 +-----------+-----------+-----------+-----------+ 00063500
  118. * | INSTWRD1 | INSTWRD2 | INSTWRD3 | QCPSTAT | 00064000
  119. * 440 +-----------+-----------+-----------+-----------+ 00064500
  120. * | | 00065000
  121. * = CONSTANTS POOL = 00065500
  122. * | | 00066000
  123. * 4D0 +-----------+-----------+-----------+-----------+ 00066500
  124. * | APTRLK | NOADD | X40FFS | XRIGHT24 | 00067000
  125. * 4E0 +-----------+-----------+-----------+-----------+ 00067500
  126. * | XPAGNUM | XRIGHT16 | AFREE | AFRET | 00068000
  127. * 4F0 +-----------+-----------+-----------+-----------+ 00068500
  128. * | AQCNWT | ADSPCH | APTRAN | X2048BND | 00069000
  129. * 500 +-----------+-----------+-----------+-----------+ 00069500
  130. * | | 00069505
  131. * = DUMPSAVE = 00069510
  132. * | | 00069515
  133. * 540 +-----------------------------------------------+ 00069520
  134. * | | 00069525
  135. * = SIGSAVE = 00069530
  136. * | | 00069535
  137. * 580 +-----------------------------------------------+ 00069540
  138. * | | 00069545
  139. * = LOKSAVE = 00069550
  140. * | | 00069555
  141. * 5C0 +-----------------------------------------------+ 00069560
  142. * | | 00069565
  143. * = MFASAVE = 00069570
  144. * | | 00069575
  145. * 600 +-----------------------------------------------+ 00069580
  146. * | | 00069585
  147. * = SWTHSAVE = 00069590
  148. * | | 00069595
  149. * 640 +-----------------------------------------------+ 00069600
  150. * | LOCKSAV | 00069605
  151. * 650 +-----------------------------------------------+ 00069610
  152. * | SVCREGS | 00069615
  153. * 660 +-----------+-----------+-----------+-----------+ 00069620
  154. * | PREFIXA | PREFIXB | PSACPXBP | RESERVED | 00069625
  155. * 670 +-----------+-----------+-----------+-----------+ 00069630
  156. * | WAITSTRT | WAITEND | 00069635
  157. * 680 +-----------+-----------+-----------+-----------+ 00069640
  158. * | PWTPAGES | ACTIVTRQ | EMSPEND | EMSREC | 00069645
  159. * 690 +-----------+-----+-----+-----+-----+-----------+ 00069650
  160. * | XCPEND | P*7 | P*8 | P*9 | APSTATUS | 00069655
  161. * 6A0 +-----------+-----+-----+-----+-----------------+ 00069660
  162. * | AMCHAREA | SHRLKCNT | PROBSTRT | 00069665
  163. * 6B0 +-----------+-----------+-----------------------+ 00069670
  164. * | CHGREGS | RESERVED | 00069675
  165. * 6C0 +-----------+-----+-----+-----------------------+ 00069680
  166. * | UNSHRVM |P*10 |P*11 | RESERVED | 00069685
  167. * 6D0 +-----------+-----+-----+-----------------------+ 00069690
  168. * | STACKVM | UNSHRVM2 | RESERVED | 00069695
  169. * 6E0 +-----------+-----------+-----------------------+ 00069700
  170. * | RESERVED | 00069705
  171. * 6F0 +-----------+-----------+-----------+-----------+ 00069710
  172. * | ALOKVM | RESERVED | ALOKSP | AEXTSP | 00069715
  173. * 700 +-----------+-----------+-----------+-----------+ 00069720
  174. * | ATMRSN | ADMKCPE | RESERVED | 00069725
  175. * 710 +-----------+-----------------------------------+ 00069730
  176. * | | 00069735
  177. * = MONREGS = 00069740
  178. * | | 00069745
  179. * 750 +-----------------------------------------------+ 00069750
  180. * | | 00069755
  181. * = LOKSAV2 = 00069760
  182. * | | 00069765
  183. * +-----------------------------------------------+ 00069770
  184. * 00070000
  185. * 00070020
  186. * ALL FIELDS RESIDE IN REAL PSA UNLESS OTHERWISE SPECIFIED. 00070040
  187. * FIELDS RESIDING IN ABSOLUTE PSA ARE SPECIFICALLY IDENTIFIED. 00070060
  188. * FOR UNIPROCESSOR OPERATION REAL PSA = ABSOLUTE PSA. 00070080
  189. * 00070100
  190. *** PSA - PREFIX STORAGE AREA - VM/370 USAGE 00070500
  191. SPACE 1 00071000
  192. * MACHINE USAGE 00071500
  193. IPLPSW DS 1D - IPL START PSW 00128000
  194. IPLCCW1 DS 1D - IPL CCW 00129000
  195. ORG IPLPSW 00129100
  196. RSRTNPSW DS D RESTART NEW PSW @V407594 00129110
  197. RSRTOPSW DS D RESTART OLD PSW @V407594 00129120
  198. IPLCCW2 DS 1D - IPL CCW 00130000
  199. ORG IPLCCW1 00131000
  200. PSARSV3 DS 1F - RESERVED 00132000
  201. TRACSTRT DS 1F - ADDRESS OF START OF TRACE TABLE 00133000
  202. * TRACSTRT IS IN ABSOLUTE PSA @V407594 00133010
  203. TRACEND DS 1F - ADDRESS OF END OF TRACE TABLE 00134000
  204. * TRACEND IS IN ABSOLUTE PSA @V407594 00134010
  205. TRACCURR DS 1F - ADDR OF NEXT AVAILABLE TRACE TABLE ENTRY 00135000
  206. * TRACCURR IS IN ABSOLUTE PSA @V407594 00135010
  207. EXOPSW DS 1D - EXTERNAL OLD PSW 00136000
  208. SVCOPSW DS 1D - SVC OLD PSW 00137000
  209. PROPSW DS 1D - PROGRAM OLD PSW 00138000
  210. MCOPSW DS 1D - MACHINE-CHECK OLD PSW 00139000
  211. IOOPSW DS 1D - IO OLD PSW 00140000
  212. CSW DS 1D - CHANNEL STATUS WORD 00141000
  213. CAW DS 1F - CHANNEL ADDRESS WORD 00142000
  214. QUANTUMR DS 1F - INTERVAL TIMER VALUE AT LAST INTERRUPT 00143000
  215. TIMER DS 1F - 13 MICROSECOND INTERVAL TIMER 00144000
  216. QUANTUM DS 1F - INTERVAL TIMER VALUE AT LAST DISPATCH 00145000
  217. EXNPSW DS 1D - EXTERNAL NEW PSW 00146000
  218. SVCNPSW DS 1D - SVC NEW PSW 00147000
  219. PRNPSW DS 1D - PROGRAM NEW PSW 00148000
  220. MCNPSW DS 1D - MACHINE-CHECK NEW PSW 00149000
  221. IONPSW DS 1D - IO NEW PSW 00150000
  222. CPULOG DS 16D - CPU AND STORAGE LOGOUT AREA 00151000
  223. FXDLOG DS 12D - FIXED LOGOUT AREA 00152000
  224. FPRLOG DS 4D - FLOATING POINT REGISTER LOGOUT AREA 00153000
  225. GRLOG DS 16F - GENERAL REGISTER LOGOUT AREA 00154000
  226. CRLOG DS 16F - CONTROL REGISTER LOGOUT AREA 00155000
  227. CPUSAGE DS 0H - END OF MACHINE USAGE, START OF CP USAGE 00156000
  228. SPACE 1 00157000
  229. * DEFINITION FOR CPULOG 00158000
  230. ORG CPULOG 00159000
  231. DS 1F - RESERVED FOR FUTURE HARDWARE USE 00160000
  232. INTEXF DS 1F - EXTERNAL INTERRUPT CODE (FULLWORD) 00161000
  233. INTEX EQU INTEXF+2 - EXTERNAL INTERRUPT CODE (HALFWORD) 00162000
  234. INTSVCL DS 1H - SVC INSTRUCTION LENGTH (ILC) CODE 00163000
  235. INTSVC DS 1H - SVC INTERRUPT CODE 00164000
  236. INTPRL DS 1H - PROGRAM INSTRUCTION LENGTH (ILC) CODE 00165000
  237. INTPR DS 1H - PROGRAM INTERRUPT CODE 00166000
  238. TREXADD DS 1F - TRANSLATION EXCEPTION ADDRESS 00167000
  239. MONCLASS DS 1H - MONITOR CLASS 00168000
  240. PERCODE DS 1H - PROGRAM EVENT RECORDER (PER) CODE 00169000
  241. PERADD DS 1F - PER ADDRESS 00170000
  242. MONCODE DS 1F - MONITOR CODE 00171000
  243. DS 1D - RESERVED FOR FUTURE HARDWARE USE 00172000
  244. CHANID DS 1F - CHANNEL ID 00173000
  245. IOELPNTR DS 1F - IO EXTENDED LOGOUT (IOEL) POINTER 00174000
  246. ECSWLOG DS 1F - LIMITED CHANNEL LOGOUT (ECSW) 00175000
  247. ORG ECSWLOG 00175100
  248. DS 3X 1ST 3 BYTES OF LCL 00175200
  249. ECSWBYT3 DS 1X 3RD BYTE OF LCL -- I/O INTERFACE 00175300
  250. * HANGUP IS INDICATED IN BIT 27 00175400
  251. DS 1F - RESERVED FOR FUTURE HARDWARE USE 00176000
  252. INTKFLIN DS 1F - IO INTERRUPT KEY, FLAGS, INTERFACE ADDRESS 00177000
  253. INTTIO EQU INTKFLIN+2 - IO INTERRUPT DEVICE ADDRESS (HALFWORD) 00178000
  254. DS 11F - RESERVED FOR FUTURE HARDWARE USE 00179000
  255. INTMC DS 1D - MACHINE-CHECK INTERRUPT CODE 00180000
  256. DS 1F RESERVED FOR FUTURE USE 00181100
  257. INTRC DS 1X EXTERNAL DAMAGE REASON CODE 00181300
  258. DS 3X RESERVED 00181500
  259. FAILSTAD DS 1F - FAILING STORAGE ADDRESS 00182000
  260. REGNCODE DS 1F - REGION CODE 00183000
  261. EJECT 00184000
  262. * CP370 USAGE 00185000
  263. SPACE 1 00186000
  264. ORG CPUSAGE 00187000
  265. TEMPSAVE DS 16F - TEMPORARY SAVE AREA 00188000
  266. BALRSAVE DS 16F - BALR LINKAGE SAVE AREA 00189000
  267. FREESAVE DS 16F - DMKFRE SAVE AREA 00190000
  268. FREEWORK DS 12F - DMKFRE WORK AREA 00191000
  269. DATE DS CL8 - DATE - MM/DD/YY - EDITED EBCDIC 00192000
  270. TODATE DS 1D - TOD CLOCK AT 00.00.00 TODAY - LOCAL TIME 00193000
  271. STARTIME DS 1D - DATE AND TIME STARTED - TOD CLOCK VALUE 00194000
  272. CPUID DS 1D - CPU IDENTIFICATION FIELD 00195000
  273. IDLEWAIT DC X'7FFFFFFFFFFFF000' TOTAL SYSTEM IDLE WAIT TIME 00196000
  274. PAGEWAIT DC X'7FFFFFFFFFFFF000' TOTAL SYSTEM PAGE WAIT TIME 00197000
  275. IONTWAIT DC X'7FFFFFFFFFFFF000' TOTAL SYSTEM I/O WAIT TIME 00198000
  276. PROBTIME DC X'7FFFFFFFFFFFF000' TOTAL SYSTEM PROBLEM STATE TIME 00199000
  277. RUNPSW DS 1D - PSW LAST LOADED BY DISPATCH 00200000
  278. RUNUSER DS 1F - ADDRESS OF DISPATCHED VMBLOK 00201000
  279. DSPLPSW DS 1F - LOAD PSW INSTRUCTION USED TO DISPATCH 00202000
  280. RUNCR0 DS 1F - CONTROL REGISTER ZERO AT DISPATCH 00203000
  281. RUNCR1 DS 1F - CONTROL REGISTER ONE AT DISPATCH 00204000
  282. CPSTAT DS 1F - CP370 RUNNING STATUS 00205000
  283. CPRESTRT DS 1F - RESTART ADDRESS IF EXT MARKS PAGE INVALID 00206000
  284. PGREAD DS 1F - TOTAL NUMBER OF PAGE READS 00207000
  285. PGWRITE DS 1F - TOTAL NUMBER OF PAGE WRITES 00208000
  286. PGWAITIM DS 1D - TIME SPENT IN PAGE WAIT (TOD UNITS) 00209000
  287. PGWAITPG DS 1D - TIME SPENT IN PAGE WAIT X PAGES WAITING 00210000
  288. PSASVCCT DS 1F - TOTAL NUMBER OF USER SVC'S 00211000
  289. PAGELOAD DS 1H - P*1 PAGE WAIT PERCENT, LAST MEASUREMENT 00212000
  290. PAGERATE DS 1H - P*2 PAGING RATE, PAGES / SECOND 00213000
  291. * PAGERATE IS IN ABSOLUTE PSA @V4M0121 00213010
  292. PSENDCLR DS 0F - END OF AREA CLEARED BY DMKCPINT 00214000
  293. CPID DS 1F - CP RUNNING IDENTIFIER 00215000
  294. * CPID IS CHANGED IN ABSOLUTE PSA @V4M0132 00215010
  295. CPABEND DS 1F - CP ABEND CODE 00216000
  296. PSTARTSV DS 0F - START OF SAVE/RESTORED CODE 00217000
  297. SYSIPLDV DS 1H - P*3 DEVICE ADDRESS OF SYSTEM IPL DEVICE 00218000
  298. PGSRATIO DC H'0' - P*4 PAGE STEALS/TOTAL REPLENISHED 00219000
  299. ASYSVM DC V(DMKSYSVM) - ADDRESS OF SYSTEM VMBLOK 00220000
  300. ARSPPR DC V(DMKRSPPR) - ADDRESS OF SYSTEM PRINTER FILE CHAIN 00221000
  301. ARSPPU DC V(DMKRSPPU) - ADDRESS OF SYSTEM PUNCH FILE CHAIN 00222000
  302. ARSPRD DC V(DMKRSPRD) - ADDRESS OF SYSTEM READER FILE CHAIN 00223000
  303. ARIOPU DC V(DMKRIOPU) - ADDRESS OF SYSTEM PUNCH TABLE 00224000
  304. ARIOPR DC V(DMKRIOPR) - ADDRESS OF SYSTEM PRINTER TABLE 00225000
  305. ARIORD DC V(DMKRIORD) - ADDRESS OF SYSTEM READER TABLE 00226000
  306. IPUADDR DS 1H P*5 INSTRUCTION PROCESSING ADDRESS 00227100
  307. PSARSV6 DS 1X S*6 RESERVED FOR FUTURE USE 00227200
  308. * 00227210
  309. * REDEFINITION OF PSARSV6 FOR MSS 00227220
  310. * 00227230
  311. PSAMSS EQU PSARSV6 FLAGS USED DURING MSS PROCESSING @V60B6B8 00227240
  312. MSSPRES EQU X'80' AN MSS IS PRESENT AT @V60B6B8 00227250
  313. * INITIALIZATION 00227260
  314. CPAPRINP DC X'00' ALTERNATE PROCESSOR RECOVERY IN @VA12934 00227360
  315. * PROCESS WHEN SET TO X'FF' 00227460
  316. * CPAPRINP IS IN ABSOLUTE PSA 00227560
  317. ARSPAC DC V(DMKRSPAC) - ADDRESS OF SYSTEM ACCOUNTING CHAIN 00228000
  318. AVMREAL DC A(0) - VMBLOK ADDRESS OF VIRTUAL = REAL USER 00229000
  319. * AVMREAL IS MAINTAINED IN BOTH PSA'S @V4M0132 00229010
  320. ASYSABND DC A(0) - ADDRESS OF SYSTEM ABEND PRINTER 00230000
  321. ASYSLC DC V(DMKSYSLC) - ADDRESS OF "SYSLOCS" INFORMATION 00231000
  322. ASYSOP DC V(DMKSYSOP) - ADDRESS OF SYSTEM OPERATOR VMBLOK 00232000
  323. ARIOCT DC V(DMKRIOCT) - ADDRESS OF REAL CHANNEL INDEX TABLE 00233000
  324. ARIOCH DC V(DMKRIOCH) - ADDRESS OF FIRST RCHBLOK 00234000
  325. ARIOCU DC V(DMKRIOCU) - ADDRESS OF FIRST RCUBLOK 00235000
  326. ARIODV DC V(DMKRIODV) - ADDRESS OF FIRST RDEVBLOK 00236000
  327. ARIOCC DC V(DMKRIOCC) - ADDRESS OF COUNT OF REAL SYSTEM CHANNELS 00237000
  328. ARIOUC DC V(DMKRIOUC) - ADDRESS OF COUNT OF REAL SYSTEM CU'S 00238000
  329. ARIODC DC V(DMKRIODC) - ADDRESS OF COUNT OF REAL SYSTEM DEVICES 00239000
  330. ACORETBL DC V(DMKSYSCS) - ADDRESS OF SYSTEM CORE TABLE 00240000
  331. APAGCP DC A(X'FFFFFF') - ADDRESS OF FIRST PAGEABLE PROGRAM 00241000
  332. CPCREG0 DC X'81800CC0' CP ARCH CONTROL AND EXTERNAL MASK HRC004DK 00242490
  333. CPCREG6 DC F'0' - CP ASSIST AND VMA MASK 00243000
  334. CPCREG8 DC F'0' - MONITOR CALL ENABLE MASK 00244000
  335. TIMEDISP DC F'0' TIMER DISPLACEMENT FOR CHARGE @V4M0203 00245100
  336. ASVCLIST DC V(DMKSVCNS) ADDR OF CP ASSIST POINTER LIST @V407594 00246000
  337. AVMALIST DC V(DMKPRVMA) - ADDRESS OF EXPANDED VMA POINTER LIST 00247000
  338. LASTUSER DC V(DMKSYSVM) - LAST USER TO BE DISPATCHED 00248000
  339. PAGECUR DS F CURRENT MONITOR BUFFER PAGE ADDR 00249000
  340. * PAGECUR IS IN ABSOLUTE PSA @V407594 00249010
  341. PAGENXT DS F ALTERNTE MONITR BUFFER PAGE ADDR @VA09843 00249050
  342. * PAGENXT IS IN ABSOLUTE PSA 00249070
  343. MONNEXT DS F NEXT AVAIL ADDR IN MONITOR BUFFER 00250000
  344. * MONNEXT IS IN ABSOLUTE PSA @V407594 00250010
  345. PAGEND DS F LAST ADDR IN CURRENT MON BUFFER PAGE 00251000
  346. * PAGEND IS IN ABSOLUTE PSA @V407594 00251010
  347. TRACEFLG DS 1F - TRACE TABLE FLAGS 00253000
  348. TTSEGCNT DC F'0' COUNT OF TOTAL PAGE/SWAP TABLES @V408246 00254100
  349. * IN SYSTEM 00254200
  350. * TTSEGCNT IS IN ABSOLUTE PSA @V407594 00254210
  351. CSADDR DC H'0' P*6 CHANNEL SET ADDRESS @V60B7AB 00255050
  352. DC X'00' RESERVED FOR FUTURE USE 00255100
  353. PSAEVMA DC X'00' P*14 ECPS:VM ENABLE/DISABLE BITS 00255110
  354. * (SEE MICBLOK/MICEVMA FOR DEFINITIONS) 00255120
  355. * PSAEVMA IS IN ABSOLUTE PSA 00255130
  356. DS 1F RESERVED 00255150
  357. SPACE 00255200
  358. AIF (NOT &AP).LOKSY1 00255250
  359. ALOKFR DC V(DMKLOKFR) AP-FREE LOCKWORD ADDRESS @V5DAACD 00255300
  360. ALOKSY DC V(DMKLOKSY) AP-SYSTEM LOCKWORD ADDRESS @V5DAACD 00255350
  361. AGO .LOKSY2 00255400
  362. .LOKSY1 DS 2F USED ONLY WITH ECPS-AP SUPPORT @V5DAACD 00255450
  363. .LOKSY2 ANOP 00255500
  364. DC F'0' RESERVED FOR ECPS @V5DAACD 00255550
  365. DS 5F - RESERVED 00255600
  366. INSTWRD1 DC F'0' - RESERVED FOR INSTALLATION USE 00256000
  367. INSTWRD2 DC F'0' - RESERVED FOR INSTALLATION USE 00257000
  368. INSTWRD3 DC F'0' - RESERVED FOR INSTALLATION USE 00258000
  369. QCPSTAT DC F'0' - QCPBLOK FOR EXTENDED QUERY HRC019DK 00259000
  370. SPACE 2 00260000
  371. * POOL OF FREQUENTLY-USED CONSTANTS: 00261000
  372. SPACE 00262000
  373. ZEROES DC 6D'0' 00263000
  374. BLANKS DC 8X'40' 00264000
  375. FFS DC 8X'FF' - ALSO = -1 00265000
  376. SPACE 00266000
  377. F0 EQU ZEROES,4,C'F' @VA10394 00267100
  378. F1 DC F'1' 00268000
  379. F2 DC F'2' 00269000
  380. F3 DC F'3' 00270000
  381. F4 DC F'4' 00271000
  382. F5 DC F'5' 00272000
  383. F6 DC F'6' 00273000
  384. F7 DC F'7' 00274000
  385. F8 DC F'8' 00275000
  386. F9 DC F'9' 00276000
  387. F10 DC F'10' 00277000
  388. F15 DC F'15' - ALSO = X'0000000F' 00278000
  389. F16 DC F'16' 00279000
  390. F20 DC F'20' 00280000
  391. F24 DC F'24' 00281000
  392. F60 DC F'60' - ALSO = X'0000003C' 00282000
  393. F240 DC F'240' - ALSO = X'000000F0' = C'0' 00283000
  394. F255 DC F'255' - ALSO = X'000000FF' 00284000
  395. F256 DC F'256' - ALSO = X'00000100' 00285000
  396. F4095 DC F'4095' - ALSO = X'00000FFF' 00286000
  397. F4096 DC F'4096' - ALSO = X'00001000' 00287000
  398. SPACE 00288000
  399. APTRLK DC V(DMKPTRLK) - ENTRY TO LOCK A PAGE IN STORAGE 00289000
  400. NOADD DC X'FF000000' 00290000
  401. X40FFS DC X'40FFFFFF' 00291000
  402. XRIGHT24 DC X'00FFFFFF' 00292000
  403. XPAGNUM DC X'00FFF000' 00293000
  404. XRIGHT16 DC X'0000FFFF' 00294000
  405. AFREE DC V(DMKFREE) - ENTRY TO ALLOCATE FREE STORAGE 00295000
  406. AFRET DC V(DMKFRET) - ENTRY TO RELEASE FREE STORAGE 00296000
  407. AQCNWT DC V(DMKQCNWT) - ENTRY TO WRITE A TERMINAL MESSAGE 00297000
  408. ADSPCH DC V(DMKDSPCH) - ENTRY TO THE VM/370 DISPATCHER 00298000
  409. APTRAN DC V(DMKPTRAN) - ENTRY TO THE PAGING SUPERVISOR 00299000
  410. X2048BND DC X'00FFF800' 00300000
  411. SPACE 1 @V407594 00301100
  412. PSBCLR2 DS 0F START OF 2ND AREA CLEARED BY CPI @V407594 00301110
  413. DUMPSAVE DS 16F SAVE AREA FOR DUMP ROUTINE @V407594 00301120
  414. SIGSAVE DS 16F SAVE AREA FOR DMKEXT @V407594 00301130
  415. LOKSAVE DS 16F DMKLOK SAVE AREA @V407594 00301140
  416. MFASAVE DS 16F SAVE AREA FOR MALFUNCTION ALERT @V407594 00301150
  417. SWTHSAVE DS 16F DMKVMASW SAVE AREA @V407594 00301160
  418. LOCKSAV DS 4F LOCK MACRO SAVE AREA @V407594 00301170
  419. SVCREGS DS 4F SVC SAVE AREA @V407594 00301180
  420. PREFIXA DC F'0' PREFIX VALUE OF THIS PROCESSOR @V407594 00301190
  421. PREFIXB DC F'0' PREFIX VALUE OF OTHER PROCESSOR @V407594 00301200
  422. PSACPXBP DC A(0) ADDR OF CPEXBLOK FOR SWITCH SVC @V407594 00301210
  423. * PSACPXBP IS IN ABSOLUTE PSA @V407594 00301220
  424. DS 1F RESERVED @V4M0173 00301230
  425. WAITSTRT DS D TIMER VALUE AT START OF WAIT @V407594 00301240
  426. WAITEND DS D TIMER VALUE AT END OF WAIT @V407594 00301250
  427. PWTPAGES DC F'0' PGS IN PGWAIT AT START OF WAIT @V407594 00301260
  428. ACTIVTRQ DC A(0) ADDRESS OF ACTIVE TRQ @V407594 00301270
  429. EMSPEND DC F'0' EMERGENCY SIGNAL PENDING FLAGS @V407594 00301280
  430. EMSREC DC F'0' EMERGENCY SIGNAL RECEIVED FLAGS @V407594 00301290
  431. XCPEND DC F'0' EXTERNAL CALL PENDING FLAGS @V407594 00301300
  432. IPUADDRX DC H'0' P*7 PROCESSOR ADDR OF OTHER PROC'R @V407594 00301310
  433. LPUADDR DC H'0' P*8 LOGICAL ADDR OF THIS PROCESSOR @V407594 00301320
  434. LPUADDRX DC H'0' P*9 LOGICAL ADDR OF OTHER PROCESSOR @V407594 00301330
  435. APSTATUS DS 6X AP STATUS BYTES @V407594 00301340
  436. AMCHAREA DC F'0' ADDR OF DMKMCH WORK AREA @V407594 00301350
  437. SHRLKCNT DC F'0' CNT OF TIMES CPSHRLK IS SET @V407594 00301360
  438. * (USED TO CLEAR CPSHRLK) @V407594 00301370
  439. PROBSTRT DS D VMTMOUTQ AT DISPATCH @V407594 00301380
  440. CHGREGS DS 2F SAVE AREA FOR CHARGE SYNC @V4M0203 00301390
  441. DS 7X RESERVED 00301396
  442. CPSTAT4 DS 1X MORE CPSTATUS BITS @VA12314 00301406
  443. UNSHRVM DC A(0) VMBLOK FOR PENDING DMKVMAPS CALL @V407594 00301410
  444. * (ATTACHED PROCESSOR ONLY) @V407594 00301420
  445. TRACPROC DC X'00' PROC'R ID FOR CP TRACE TBL ENTRYS@V407594 00301430
  446. APSTAT DS 3X MORE AP STATUS BYTES 00301440
  447. DS 2F RESERVED 00301442
  448. STACKVM DC A(0) R11 FOR DISPATCHER UNSTACK @V407594 00301450
  449. UNSHRVM2 DC A(0) R2 VALUE FOR PENDING VMAPS CALL @V4M0136 00301460
  450. * (ATTACHED PROCESSOR ONLY) @V4M0136 00301462
  451. DS 6F RESERVED @VA09885 00301464
  452. PSECLR2 DS 0F END OF 2ND AREA CLEARED BY CPI @V407594 00301470
  453. SPACE 1 00301480
  454. AIF (NOT &AP).LOKVM1 00301488
  455. ALOKVM DC V(DMKLOKVM) ENTRY TO LOCK VMBLOK @V407594 00301490
  456. AGO .LOKVM2 00301492
  457. .LOKVM1 DS 1F USED ONLY WITH AP SUPPORT 00301494
  458. .LOKVM2 ANOP 00301496
  459. DS 1F RESERVED @V407510 00301500
  460. AIF (NOT &AP).LOKSP1 00301508
  461. ALOKSP DC V(DMKLOKSP) ENTRY TO SPIN ON LOCK @V407594 00301510
  462. AEXTSP DC V(DMKEXTSP) ENTRY TO SIGNAL PROC'R ROUTINE @V407594 00301520
  463. AGO .LOKSP2 00301522
  464. .LOKSP1 DS 2F USED ONLY WITH AP SUPPORT 00301524
  465. .LOKSP2 ANOP 00301526
  466. ATMRSN DC V(DMKTMRSN) ENTRY TO CHARGE SYNC ROUTINE @V4M0203 00301530
  467. ADMKCPE DC V(DMKCPE) ADDRESS OF LAST RESIDENT MODULE @VA09885 00301540
  468. DC 2F'0' RESERVED @VA09885 00301545
  469. MONREGS DS 16F REG SAVE AREA FOR MONITOR CALL @V407594 00301550
  470. LOKSAV2 DS 16F SAVE AREA FOR SWTCHVM IN DMKLOK @V4M0193 00301555
  471. PSAEND DS 0D - END OF PAGE 0 USAGE @V407594 00301560
  472. SPACE 2 00303000
  473. * DEFINITION FOR CPUID 00304000
  474. ORG CPUID 00305000
  475. CPUVERSN DS 1X - VERSION CODE 00306000
  476. CPUSER DS XL3 CPU SERIAL NUMBER, PACK UNSIGN @VA09802 00307100
  477. CPUMODEL DS XL2 CPU MODEL NUMBER @VA09802 00308100
  478. CPUMCELL DS 1H - MAXIMUM LENGTH IN BYTES OF MCEL 00309000
  479. SPACE 1 00310000
  480. * DEFINITION FOR TEMPSAVE 00311000
  481. ORG TEMPSAVE 00312000
  482. TEMPR0 DS 1F 00313000
  483. TEMPR1 DS 1F 00314000
  484. TEMPR2 DS 1F 00315000
  485. TEMPR3 DS 1F 00316000
  486. TEMPR4 DS 1F 00317000
  487. TEMPR5 DS 1F 00318000
  488. TEMPR6 DS 1F 00319000
  489. TEMPR7 DS 1F 00320000
  490. TEMPR8 DS 1F 00321000
  491. TEMPR9 DS 1F 00322000
  492. TEMPR10 DS 1F 00323000
  493. TEMPR11 DS 1F 00324000
  494. TEMPR12 DS 1F 00325000
  495. TEMPR13 DS 1F 00326000
  496. TEMPR14 DS 1F 00327000
  497. TEMPR15 DS 1F 00328000
  498. SPACE 1 00329000
  499. * DEFINITION FOR BALRSAVE 00330000
  500. ORG BALRSAVE 00331000
  501. BALR0 DS 1F 00332000
  502. BALR1 DS 1F 00333000
  503. BALR2 DS 1F 00334000
  504. BALR3 DS 1F 00335000
  505. BALR4 DS 1F 00336000
  506. BALR5 DS 1F 00337000
  507. BALR6 DS 1F 00338000
  508. BALR7 DS 1F 00339000
  509. BALR8 DS 1F 00340000
  510. BALR9 DS 1F 00341000
  511. BALR10 DS 1F 00342000
  512. BALR11 DS 1F 00343000
  513. BALR12 DS 1F 00344000
  514. BALR13 DS 1F 00345000
  515. BALR14 DS 1F 00346000
  516. BALR15 DS 1F 00347000
  517. SPACE 1 00348000
  518. * DEFINITION FOR FREESAVE 00349000
  519. ORG FREESAVE 00350000
  520. FREER0 DS 1F 00351000
  521. FREER1 DS 1F 00352000
  522. FREER2 DS 1F 00353000
  523. FREER3 DS 1F 00354000
  524. FREER4 DS 1F 00355000
  525. FREER5 DS 1F 00356000
  526. FREER6 DS 1F 00357000
  527. FREER7 DS 1F 00358000
  528. FREER8 DS 1F 00359000
  529. FREER9 DS 1F 00360000
  530. FREER10 DS 1F 00361000
  531. FREER11 DS 1F 00362000
  532. FREER12 DS 1F 00363000
  533. FREER13 DS 1F 00364000
  534. FREER14 DS 1F 00365000
  535. FREER15 DS 1F 00366000
  536. SPACE 1 00367000
  537. * DEFINITION FOR CPSTAT 00368000
  538. ORG CPSTAT 00369000
  539. CPSTATUS DS 1X - CP RUNNING STATUS 00370000
  540. SPACE 1 00371000
  541. * BITS DEFINED IN CPSTATUS 00372000
  542. CPWAIT EQU X'80' - CP IN WAIT STATE 00373000
  543. CPRUN EQU X'40' - CP RUNNING USER IN RUNUSER 00374000
  544. CPEX EQU X'20' - CP EXECUTING STACKED REQUEST 00375000
  545. CPFVRUN EQU X'10' - RESERVED FOR FUTURE USE 00376000
  546. CPSUPER EQU X'08' PROC'R EXECUTING IN SUPVR STATE @V407594 00376010
  547. SPACE 1 00376020
  548. XTNDLOCK DC X'00' FREE STORAGE EXTENDING IF=X'FF' @V4M0198 00376030
  549. * XTNDLOCK IS IN ABSOLUTE PSA @V4M0198 00376040
  550. SPACE 1 00377000
  551. CPSTAT2 DS 1X - FLAG BYTE 00379100
  552. SPACE 1 00379200
  553. * BITS DEFINED IN CPSTAT2 00379300
  554. CPMICAVL EQU X'80' VM ASSIST AVAILABLE ON CPU 00379400
  555. CPMICON EQU X'40' VM ASSIST IS ON FOR SYSTEM 00379500
  556. CPSHRLK EQU X'20' CP PROCESSING SHARED NAMED SYSTEM PAGE 00379550
  557. CPASTAVL EQU X'08' CP ASSIST AVAILABLE ON CPU 00379551
  558. CPASTON EQU X'04' CP ASSIST IS ON FOR SYSTEM 00379552
  559. SPACE 1 00379600
  560. CPSTAT3 DS X WAIT TIME ACCOUNTING FLAG BYTE @V407594 00379610
  561. SPACE 1 @V407594 00379620
  562. * BITS DEFINED IN CPSTAT3 @V407594 00379630
  563. CPTIDLE EQU X'80' TIMER CONTAINS IDLE TIME @V407594 00379640
  564. CPTPAGE EQU X'40' TIMER CONTAINS PAGE WAIT TIME @V407594 00379650
  565. CPTIONT EQU X'20' TIMER CONTAINS I/O WAIT TIME @V407594 00379660
  566. SPACE 1 @V407594 00379670
  567. * BITS DEFINED IN CPSTAT4 00379700
  568. CPSHUT EQU X'20' SHUTDOWN INDICATOR @VA12314 00379710
  569. CPPWROFF EQU X'40' POWEROFF INDICATOR HRC002DK 00379712
  570. CPREIPL EQU X'10' REIPL INDICATOR HRC002DK 00379714
  571. SPACE 00379720
  572. * DEFINITION FOR TRACEFLG 00380000
  573. ORG TRACEFLG 00381000
  574. TRACFLG1 DS 1X - TRACE TABLE FLAG 00382000
  575. TRACFLG2 DS 1X - TRACE TABLE FLAG 00383000
  576. TRACFLG3 DS 1H - RESERVED FOR FUTURE USE 00384000
  577. SPACE 1 00385000
  578. * BITS DEFINED IN TRACFLG1 00386000
  579. TRAC01 EQU X'80' EXTERNAL INTERRUPT TRACING ON 00387000
  580. TRAC02 EQU X'40' SVC INTERRUPT TRACING ON 00388000
  581. TRAC03 EQU X'20' PROGRAM INTERRUPT TRACING ON 00389000
  582. TRAC04 EQU X'10' MACHINE CHECK TRACING ON 00390100
  583. TRAC05 EQU X'08' I/O INTERRUPT TRACING ON 00391000
  584. TRAC67 EQU X'04' FREE/FRET CALL TRACING ON 00392000
  585. TRAC08 EQU X'02' ENTER DISPATCH TRACING ON 00393000
  586. TRAC09 EQU X'01' Q DROP TRACING ON 00394000
  587. SPACE 1 00395000
  588. * BITS DEFINED IN TRACFLG2 00396000
  589. TRAC0A EQU X'80' RUN USER TRACING ON 00397000
  590. TRAC0C EQU X'40' UNSTACK I/O INT. TRACING ON 00398000
  591. TRAC0D EQU X'20' VIRT. CSW STORED TRACING ON 00399000
  592. TRACBEF EQU X'10' SIO, TIO, HDV TRACING ON 00400000
  593. TRAC10 EQU X'08' UNSTACK IOBLOK OR TRQBLOK TRACING ON 00400100
  594. TRAC11 EQU X'04' TRACE BTU ACTIVITY FOR 370X NCP 00400200
  595. TRAC12 EQU X'02' LOCK SPIN TRACING ACTIVE @V407594 00400210
  596. TRAC13 EQU X'01' SIGNAL PROCESSOR TRACING ACTIVE @V407594 00400220
  597. SPACE 1 @V407594 00400300
  598. * DEFINITION FOR EMSPEND @V407594 00400400
  599. EMSPQUI EQU X'80' QUIESCE PENDING @V407594 00400500
  600. EMSPEXT EQU X'40' EXTEND PENDING @V407594 00400600
  601. EMSPSYNC EQU X'20' SYNC PENDING @V407594 00400700
  602. EMSPSHD EQU X'10' SHUTDOWN PENDING @V407594 00400800
  603. EMSPCLKC EQU X'08' HI-ORDER TOD SYNC PENDING @V407594 00400900
  604. EMSINQSC EQU X'01' PROCESSOR IS QUIESCED @V4M0210 00400950
  605. SPACE 1 @V407594 00401000
  606. * DEFINITION FOR EMSREC @V407594 00401100
  607. EMSRQUI EQU X'80' QUIESCE REQUEST RECEIVED @V407594 00401200
  608. EMSREXT EQU X'40' EXTEND REQUEST RECEIVED @V407594 00401300
  609. EMSRSYNC EQU X'20' SYNC REQUEST RECEIVED @V407594 00401400
  610. EMSRSHD EQU X'10' SHUTDOWN REQUEST RECEIVED @V407594 00401500
  611. EMSRCLKC EQU X'08' HI-ORDER TOD SYNC RECEIVED @V407594 00401600
  612. SPACE 1 @V407594 00401700
  613. * DEFINITION FOR XCPEND @V407594 00401800
  614. XCAPR EQU X'80' AUTOMATIC PROC'R RECOVERY PEND'G @V407594 00401900
  615. XCRES EQU X'40' RESUME REQUEST PENDING @V407594 00402000
  616. XCWAK EQU X'20' WAKEUP REQUEST PENDING @V407594 00402100
  617. XCDISP EQU X'10' DISPATCH REQUEST PENDING @V407594 00402200
  618. SPACE 1 @V407594 00402300
  619. * DEFINITION FOR APSTATUS @V407594 00402400
  620. ORG APSTATUS @V407594 00402500
  621. SPACE 1 @V407594 00402600
  622. APSTAT1 DC X'00' AP STATUS @V407594 00402700
  623. SPACE 1 @V407594 00402800
  624. * BITS DEFINED IN APSTAT1 @V407594 00402900
  625. APUOPER EQU X'80' ATTACHED PROCESSOR OPERATIONAL @V407594 00403000
  626. PROCIO EQU X'40' PROCESSOR HAS I/O CAPABILITY @V407594 00403100
  627. APUNONLN EQU X'20' SYS GEN'D FOR AP, RUNNING AS UP @V407594 00403200
  628. MPFEAT EQU X'10' MP FEATURE IS INSTALLED @V5BC0AB 00403202
  629. PROCIPL EQU X'08' PROCESSOR IS THE IPL PROCESSOR @V60B7AA 00403207
  630. CPINITD EQU X'01' SYSTEM INITIALIZATION COMPLETE 00403210
  631. CSSFEAT EQU X'02' CHANNEL SET SWITCHING FACILITY @V60B7AB 00403220
  632. * IS INSTALLED 00403230
  633. SPACE 1 @V407594 00403300
  634. APSTAT2 DC X'00' SECOND FLAG BYTE @V407594 00403400
  635. SPACE 1 @V407594 00403500
  636. * BITS DEFINED IN APSTAT2 @V407594 00403600
  637. * NO OTHER FLAGS SHOULD BE PLACED IN APSTAT2 SO THAT CPPTLBR 00403700
  638. * CAN BE MANIPULATED WITHOUT C&S LOGIC; CPMCHLK HAS BEEN 00403800
  639. * RETAINED FOR ECPS ONLY. 00403900
  640. CPMCHLK EQU X'10' MACH CHECK PROCESSING PENDING @V407594 00404000
  641. CPPTLBR EQU X'02' PTLB REQUIRED FOR PROCESSOR @V407594 00404300
  642. SPACE 1 @V407594 00404500
  643. CPTERMLK DC X'00' DMKMCT SYS TERMINATION IN PROG @V4M0198 00404600
  644. * CPTERMLK IS IN ABSOLUTE PSA @V4M0198 00404700
  645. SPACE 1 @V407594 00404800
  646. CPFRELK DC X'00' FREE STORAGE EXTEND PENDING @V407594 00404900
  647. * CPFRELK IS IN ABSOLUTE PSA @V407594 00405000
  648. SPACE 1 @V407594 00405100
  649. FRLKPROC DC X'00' LOGICAL PROC'R ID FOR CPFRELK @V407594 00405200
  650. * FRLKPROC IS IN ABSOLUTE PSA @V407594 00405300
  651. SPACE 1 @V407594 00405400
  652. CPFRESW DC X'00' DMKFRE MUST XFER EXECUTION TO AP @V407594 00405500
  653. * CPFRESW IS IN ABSOLUTE PSA @V407594 00405600
  654. SPACE 00405605
  655. * DEFINITION FOR APSTAT 00405610
  656. ORG APSTAT 00405615
  657. SPACE 00405620
  658. APSTAT3 DC X'00' THIRD AP STATUS FLAG BYTE 00405625
  659. SPACE 00405630
  660. * CPSYSLK IS MANIPULATED IN THE OPPOSITE PROCESSOR'S PSA - 00405635
  661. * IT IS SET WITHOUT THE SYSTEM LOCK AND RESET WITH THE SYSTEM 00405640
  662. * LOCK; ONLY FLAGS WITH THE SAME CHARACTERISTICS SHOULD BE 00405645
  663. * PLACED IN APSTAT3. 00405650
  664. CPSYSLK EQU X'80' OTHER PROC IS SPINNING ON LOCK 00405655
  665. SPACE 00405660
  666. APSTAT4 DC X'00' FOURTH AP STATUS FLAG BYTE 00405665
  667. SPACE 00405670
  668. * BITS DEFINED IN APSTAT4 00405675
  669. CPLOKFL EQU X'80' DMKLOK ENABLED FOR EXTERNAL INTS 00405680
  670. RECMODE EQU X'40' PROC'R WILL RECORD SOFT MACH CKS 00405685
  671. CPMCHSE EQU X'20' MACH CHECK PROCESSING PENDING 00405690
  672. * CPMCHSE IS THE REPLACEMENT OF CPMCHLK IN APSTAT2 00405695
  673. PROCSCHK EQU X'10' TOD SYNCH CHECK RECEIVED 00405700
  674. CPAPRPND EQU X'08' AUTO PROC'R RECOVERY PENDING 00405705
  675. POFFLINE EQU X'04' VARY PROCESSOR FUNCTION IN USE @V5BC0AB 00405706
  676. SPACE 00405710
  677. * DEFINITION OF INTRC 00405720
  678. ORG INTRC 00405730
  679. EXDRESVD EQU X'80' RESERVED 00405740
  680. EXDCNO EQU X'10' CHANNEL NOT OPERATIONAL 00405750
  681. EXDCCF EQU X'08' CHANNEL CONTROL FAILURE 00405760
  682. SPACE 00405770
  683. AIF ('&SYSECT' EQ 'DMKPSA').PSA02 00405800
  684. EJECT 00405900
  685. POP PRINT 00406000
  686. SPACE 1 00406100
  687. .PSA02 ANOP 00406200
  688. MEND 00406300
ibm/vm370-lib/macro/psa.macro_src.txt ยท Last modified: 2023/08/06 13:38 by Site Administrator