User Tools

Site Tools


ibm:vm370-lib:copy:vmblok.copy_src

VMBLOK Source

References

Source Listing

VMBLOK.COPY.txt
  1. *COPY VMBLOK 00001000
  2. PUSH PRINT 00001200
  3. AIF ('&SYSPARM' NE 'SUP').VMB01 00001400
  4. PRINT OFF,NOGEN 00001600
  5. .VMB01 ANOP 00001800
  6. VMBLOK DSECT 00009000
  7. SPACE 1 00010000
  8. *** VMBLOK - VIRTUAL MACHINE CONTROL BLOCK 00012000
  9. * 00012500
  10. * 0 +-----------------------+-----------------------+ 00013000
  11. * | VMQFPNT | VMQBPNT | 00013500
  12. * 8 +-----------------------+-----------------------+ 00014000
  13. * | VMPNT | VMECEXT | 00014500
  14. * 10 +-----------------------+-----------------------+ 00015000
  15. * | VMSEG | VMSIZE | 00015500
  16. * 18 +-----------------------+-----------------------+ 00016000
  17. * | VMCHSTRT | VMCUSTRT | 00016500
  18. * 20 +-----------------------+-----------------------+ 00017000
  19. * | VMDVSTRT | VMTERM | 00017500
  20. * 28 +-----------+-----------+-----+-----+-----+-----+ 00018000
  21. * | VMVTERM | VMTRMID | V*1 | V*2 | V*3 | V*4 | 00018500
  22. * 30 +-----------+-----------+-----+-----+-----+-----+ 00019000
  23. * | VMCHCNT | VMCUCNT | VMDVCNT | VMIOACTV | 00019500
  24. * 38 +-----------+-----------+-----------+-----------+ 00020000
  25. * | | 00020500
  26. * = VMCHTBL = 00021000
  27. * | | 00021500
  28. * 58 +-----+-----+-----+-----+-----+-----+-----+-----+ 00022000
  29. * | V*5 | V*6 | V*7 | V*8 | V*9 | V*10| V*11| V*12| 00022500
  30. * 60 +-----+-----+-----+-----+-----+-----+-----+-----+ 00023000
  31. * | V*13| V*14| V*15| V*16| VMLOCKER | 00023510
  32. * 68 +-----+-----+-----+-----+-----------+-----------+ 00024000
  33. * | V*19| V*20| VMIOINT | VMTIMER | 00024550
  34. * 70 +-----------+-----------+-----------------------+ 00025000
  35. * | VMVTIME | 00025500
  36. * 78 +-----------------------------------------------+ 00026000
  37. * | VMTMOUTQ | 00026500
  38. * 80 +-----------------------------------------------+ 00027000
  39. * | VMTTIME | 00027500
  40. * 88 +-----------------------------------------------+ 00028000
  41. * | VMTMINQ | 00028500
  42. * 90 +-----------------------------------------------+ 00029000
  43. * | VMTODINQ | 00029500
  44. * 98 +-----------------------------------+-----+-----+ 00030000
  45. * | VMINST | V*17| V*18| 00030500
  46. * A0 +-----------------------+-----------+-----+-----+ 00031000
  47. * | VMPERCTL | VMADSTOP |RC013DK 00031690
  48. * A8 +-----------------------+-----------------------+ 00032000
  49. * | VMPSW | 00032500
  50. * B0 +-----------------------------------------------+ 00033000
  51. * | (CONT) | 00033500
  52. EJECT 00034000
  53. * | (CONT) | 00034500
  54. * B0 +-----------------------------------------------+ 00035000
  55. * | | 00035500
  56. * = VMGPRS = 00036000
  57. * | | 00036500
  58. * F0 +-----------------------------------------------+ 00037000
  59. * | | 00037500
  60. * = VMFPRS = 00038000
  61. * | | 00038500
  62. * 110 +-----------------------------------------------+ 00039000
  63. * | VMUSER | 00039500
  64. * 118 +-----------------------------------------------+ 00040000
  65. * | VMACNT | 00040500
  66. * 120 +-----------------------------------------------+ 00041000
  67. * | VMDIST | 00041500
  68. * 128 +-----------------------+-----------------------+ 00042000
  69. * | VMPGREAD | VMPGWRIT | 00042500
  70. * 130 +-----------+-----------+-----------------------+ 00043000
  71. * | VMWCNT | VMSEGDSP | VMSTOR | 00043510
  72. * 138 +-----------+-----------+-----------------------+ 00044000
  73. * | VMIOCNT | VMPNCH | 00044500
  74. * 140 +-----------------------+-----------------------+ 00045000
  75. * | VMLINS | VMCRDS | 00045500
  76. * 148 +-----------------------+-----------------------+ 00046000
  77. * | VMCOMND | 00046500
  78. * 150 +-----------+-----------+-----------+-----------+ 00047000
  79. * | VMPDRUM | VMPDISK | VMPAGES | VMPRGIL | 00047500
  80. * 158 +-----------+-----------+-----------+-----------+ 00048000
  81. * | VMDEDCH | VMQPRIOR | VMWSPROJ | VMSTEALS | 00048500
  82. * 160 +-----------+-----------+-----------+-----------+ 00049000
  83. * | VMTIMEON | VMTRQBLK | 00049500
  84. * 168 +-----------------------+-----------------------+ 00050000
  85. * | VMACOUNT | VMRDINQ | 00050500
  86. * 170 +-----------------------+-----------------------+ 00051000
  87. * | VMPGRINQ | VMEPRIOR | 00051500
  88. * 178 +-----------------------+-----------------------+ 00052000
  89. * | VMSTKO | VMMICRO | 00052500
  90. * 180 +-----------------------+-----------------------+ 00053000
  91. * | VMPFUNC | VMPXINT | 00053500
  92. * 188 +-----------------------+-----------------------+ 00054000
  93. * | VMDELAY | VMRPRIOR | 00054750
  94. * 190 +-----------------------+-----------------------+ 00055000
  95. * | VMPGPNT | VMNDCNT | VMSHRSYS | 00055511
  96. * 198 +-----+-----+-----------+-----------+-----------+ 00056100
  97. * | V*21| V*22| V*26| V*27| VMASSIST | 00056310
  98. * 1A0 +-----+-----+-----------+-----------------+-----+ 00056500
  99. * | VMCPNT | VMCPUID | V*25| 00056600
  100. * 1A8 +-----------------------+-----------------+-----+ 00056700
  101. * | VMLOCK | VMDFTPNT | 00057810
  102. * 1B0 +-----------+-----------+-----------------------HRC101DK 00057980
  103. * | VMMORETM | VMUSERH1 | VMUSER2 HRC101DK 00058060
  104. * 1B8 +-----------+-----------+-----------------------HRC101DK 00058140
  105. * | VMTREXT | P*1 | P*2 | P*3 | RSV |RC018DK 00058260
  106. * 1C0 +-----------------------+-----------------------+ 00058300
  107. * | VMUHS | VMPCKP | 00058310
  108. * 1C8 +-----------+-----+-----+-----------------------+ 00058360
  109. * | VMXPG | C*1 | C*2 | VMSTKCNT | VMPRRCT | 00058420
  110. * 1D0 +-----------+-----+-----+-----------------------+ 00058460
  111. * | VMSWPMIG | C*3 | C*4 |V*28 |V*29 | 00058520
  112. * 1D8 +-----------------------+-----+-----+-----+-----+ 00058560
  113. * | VMCPTIME | 00058610
  114. * 1E0 +-----------------------------------------------+ 00058660
  115. * | VMAPTIME | 00058710
  116. * 1E8 +-----------------------------------------------+ 00058760
  117. * | VMACTDEV | VMFLPAG | V*30| | VMCONLN | 00058800
  118. * 1F0 +-----------+-----------|-----+-----+-----------| 00058900
  119. * | VMCONBUF | V*31| RESERVED | 00059000
  120. * 1F8 +-----------------------+-----------+-----------| 00059100
  121. * 00059500
  122. *** VMBLOK - VIRTUAL MACHINE CONTROL BLOCK 00060000
  123. EJECT 00060500
  124. SPACE 1 00097000
  125. VMQFPNT DS 1F POINTER TO NEXT VMBLOK IN QUEUE 00098000
  126. VMQBPNT DS 1F POINTER TO PREVIOUS VMBLOK IN QUEUE 00099000
  127. VMPNT DS 1F POINTER (CYCLIC) TO NEXT VMBLOK 00100000
  128. VMECEXT DS 1F VMBLOK EXTENDED CONTROL POINTER - ECBLOK 00101000
  129. VMVCR0 EQU VMECEXT VIRTUAL C-REG 0 FOR NON-EC MACHINE 00102000
  130. VMSEG DS 1F POINTER TO VMSEGTBL 00103000
  131. VMSIZE DS 1F TEMPORARY STORAGE SIZE (BYTES) 00104100
  132. VMCHSTRT DS 1F POINTER TO VCHBLOK TABLE 00105000
  133. VMCUSTRT DS 1F POINTER TO VCUBLOK TABLE 00106000
  134. VMDVSTRT DS 1F POINTER TO VDEVBLOK TABLE 00107000
  135. VMTERM DS 1F POINTER TO RDEVBLOK FOR USER TERMINAL 00108000
  136. VMVTERM DS 1H DISPLACEMENT TO VIRTUAL CONSOLE VDEVBLOK 00108100
  137. VMTRMID DS 1H RESOURCE ID OF REAL TERMINAL IF 370X 00108200
  138. VMTLEND DS 1C V*1 TERMINAL LINE END CHARACTER 00108300
  139. VMTLDEL DS 1C V*2 TERMINAL LINE DELETE CHARACTER 00108400
  140. VMTCDEL DS 1C V*3 TERMINAL CHARACTER DELETE CHARACTER 00108500
  141. VMTESCP DS 1C V*4 TERMINAL ESCAPE CHARACTER 00108600
  142. VMCHCNT DS 1H VIRTUAL CHANNEL COUNT 00109000
  143. VMCUCNT DS 1H VIRTUAL CONTROL UNIT COUNT 00110000
  144. VMDVCNT DS 1H VIRTUAL DEVICE COUNT 00111000
  145. VMIOACTV DS 1H ACTIVE CHANNEL MASK 00112000
  146. VMCHTBL DS 16H CHANNELS ATTACHED - VMCHSTRT INDEX 00113000
  147. VMRSTAT DS 1X V*5 VIRTUAL MACHINE RUNNING STATUS 00114000
  148. VMDSTAT DS 1X V*6 VIRTUAL MACHINE DISPATCHING STATUS 00115000
  149. VMOSTAT DS 1X V*7 VIRTUAL MACHINE OPERATING STATUS 00116000
  150. VMQSTAT DS 1X V*8 VIRTUAL MACHINE QUEUEING STATUS 00117000
  151. VMPSTAT DS 1X V*9 VIRTUAL MACHINE PROCESSING STATUS 00118000
  152. VMESTAT DS 1X V*10 VIRTUAL MACHINE CONTROL STATUS 00119000
  153. VMTRCTL DS 1X V*11 VIRTUAL MACHINE TRACING CONTROL 00120000
  154. VMMLEVEL DS 1X V*12 MESSAGE LEVEL 00121000
  155. VMQLEVEL DS 1X V*13 QUEUE LEVEL 00122000
  156. VMCLEVEL DS 1X V*14 COMMAND LEVEL 00123000
  157. VMTLEVEL DS 1X V*15 TIMER LEVEL 00124000
  158. VMPEND DS 1X V*16 INTERRUPT PENDING SUMMARY FLAG 00125000
  159. VMLOCKER DS 1F BASE ADDR OF HOLDER OF VMLOCK @V4075A0 00126100
  160. VMFSTAT DS 1X V*19 VIRTUAL MACHINE FEATURE STATUS 00128100
  161. VMMLVL2 DS 1X V*20 MORE MSG HANDLING INFO 00128250
  162. VMIOINT DS 1H I/O INTERRUPT PENDING FLAGS 00129000
  163. VMTIMER DS 1F VIRTUAL TIMER VALUE - X'50' 00130000
  164. VMVTIME DS 1D VIRTUAL CPU TIME USED - 2'S COMPLEMENT 00131000
  165. VMTMOUTQ DS 1D TIME REMAINING IN QUEUE 1 - QUEUE 2 00132000
  166. VMTTIME DS 1D TOTAL TIME WHILE IN SUPERVISOR STATE 00133000
  167. VMTMINQ DS 1D VMTTIME VALUE AT ENTRY TO Q 00134000
  168. VMTODINQ DS 1D TOD CLOCK TIME STAMP AT QUEUE ENTRY 00135000
  169. VMINST DS CL6 VM PRIVILEGED OR TRACING INSTRUCTION 00136525
  170. VMUPRIOR DS 1X V*17 USER PRIORITY FROM DIRECTORY 00137300
  171. VMPSWDCT DS 1X V*18 INVALID 'LINK' PASSWORD COUNT 00137700
  172. VMPERCTL DS 1F ADDRESS OF PER TRACE CONTROL BLOKHRC013DK 00138490
  173. VMADSTOP DS 1F ADDRESS OF ADDRESS STOP CONTRON BLOK 00139000
  174. VMPSW DS 1D VIRTUAL MACHINE PSW 00140000
  175. VMGPRS DS 16F VIRTUAL MACHINE GEN. PURP. REGISTERS 00141000
  176. VMFPRS DS 4D VIRTUAL MACHINE FLT. PT. REGISTERS 00142000
  177. VMUSER DS CL8 VIRTUAL MACHINE IDENTIFICATION 00143000
  178. VMACNT DS CL8 VIRTUAL MACHINE ACCOUNTING NUMBER 00144000
  179. VMDIST DS CL8 VIRTUAL MACHINE DISTRIBUTION CODE 00145000
  180. VMPGREAD DS 1F TOTAL PAGE READS 00146000
  181. VMPGWRIT DS 1F TOTAL PAGE WRITES 00147000
  182. VMWCNT DS 1H PAGE WAIT COUNT 00148000
  183. VMSEGDSP DS 1H DISP. OF VM SEGTABLE FROM START OF BLOK 00149000
  184. VMSTOR DS 1F PERMANENT STORAGE SIZE (BYTES) 00150100
  185. VMIOCNT DS 1F VIRTUAL SIO COUNT FOR NON-SPOOLED IO 00151000
  186. VMPNCH DS 1F VIRTUAL CARD COUNT - SPOOLED PUNCH 00152000
  187. VMLINS DS 1F VIRTUAL LINE COUNT - SPOOLED PRINTER 00153000
  188. VMCRDS DS 1F VIRTUAL CARD COUNT - SPOOLED READER 00154000
  189. VMCOMND DS CL8 LAST CP COMMAND EXECUTED 00155000
  190. VMPDRUM DS 1H COUNT OF USER PAGES ON DRUM 00156000
  191. VMPDISK DS 1H COUNT OF USER PAGES ON DISK 00157000
  192. VMPAGES DS 1H NUMBER OF CURRENTLY RESIDENT REAL PAGES 00158000
  193. VMPRGIL DS 1H ILC FOR LATEST PROGRAM INTERRUPT 00159000
  194. VMDEDCH DS 1H MASK FOR DEDICATED CHANNELS 00160000
  195. VMQPRIOR DS 1H PRIORITY IN DISPATCHING QUEUE 00161000
  196. VMWSPROJ DS 1H PROJECTED WORKING SET SIZE 00162000
  197. VMSTEALS DS 1H NUMBER OF WAITS FOR STOLEN PAGES 00163000
  198. VMTIMEON DS 1F LOGON TIME - TOD CLOCK WORD ZERO 00164000
  199. VMTRQBLK DS 1F ADDRESS OF TRQBLOK FOR REAL TIMER 00165000
  200. VMACOUNT DS 1F ADDRESS OF USER ACCTBLOK 00166000
  201. VMRDINQ DS 1F PAGE READ TOTAL (VMPGREAD) @ Q ENTRY 00167000
  202. VMPGRINQ DS 1F SUM OF VMPAGES COUNT @ EACH PAGE READ 00168000
  203. VMEPRIOR DS 1F ELIGIBLE LIST PRIORITY 00169000
  204. VMSTKO DS 1F CONSOLE FUNCTION OUTPUT STACK 00172100
  205. VMMICRO DS 1F VM ASSIST - REAL CNTRL REG 6 00173100
  206. VMPFUNC DS 1F PFNN FUNCTION TABLE 00174100
  207. VMPXINT DS 1F EXTENDED EXTERNAL INTERRUPT STACK 00174200
  208. VMDELAY DS 1F TRQBLOK FOR DELAYED SLEEP OR LOGOFF 00174300
  209. VMRPRIOR DS 1F RUNLIST DISPATCHING PRIORITY 00174450
  210. VMPGPNT DS 1F POINTER TO LIST OF PGBLOKS 00174510
  211. VMNDCNT DS 1H NON-DEFERED PAGE READ COUNT 00174520
  212. VMSHRSYS DS 1H NUMBER OF SHARED NAMED SYSTEMS 00174531
  213. VMRBSC DS 1X V*21 3270 REMOTE DISPLAY LINE COUNT 00174710
  214. VMCXSTAT DS 1X V*22 VMCF STATUS BYTE 00174730
  215. VMVCR14 EQU VMCXSTAT V*22 DATA FROM C-REG 14, PARALLELS ECBLOK. 00174740
  216. VMAFF DS 1X V*26 AFFINITY REQUEST FIELD @V4075A0 00174750
  217. VMLSTPRC DS 1X V*27 LAST PROCSR EXECUTED PROB STATE @V4075A0 00174751
  218. VMASSIST DS 1F POINTER TO LIST OF VMABLOKS 00174810
  219. VMCPNT DS 1F VMCBLOK ANCHOR 00174830
  220. VMCPUID DS XL3 CPUID SERIAL IN BINARY 00174855
  221. VMNOECPS DS 1X V*25 ECPS FLAG BYTE 00174865
  222. VMLOCK DS 1F LOCKWORD FOR CS LOCKING @V4075A0 00174873
  223. VMDFTPNT DS 1F DEFERRED TASK POINTER @V4075A0 00174893
  224. VMMORETM DS 0H CONTAINS TIME INTERVALS FOR GRAF HRC101DK 00175190
  225. VMMOREBP DS 1X BEEP TIME HRC101DK 00175380
  226. VMMORECL DS 1X CLEAR TIME HRC101DK 00175570
  227. VMUSERH1 DS 1H RESERVED FOR INSTALLATION USE HRC101DK 00175760
  228. VMHRCALL DS 1F ADDRESS OF RECALL BUFFER HRC001DK 00176490
  229. VMTREXT DS 1F ADDRESS OF TRACE CONTROL BLOCK HRC013DK 00177190
  230. VMPERFLG DS 1X P*1 PER FLAGS HRC013DK 00177380
  231. VMHRCFLG DS 1X P*2 HRC FLAGS HRC018DK 00177660
  232. VMHRCPRV DS 1X P*3 COPY OF CLASS FROM DIRECTORY HRC018DK 00177750
  233. VMLCLRSV DS 1X RESERVED FOR INSTALLATION USE HRC018DK 00177840
  234. VMUHS DS 1F RECENT HISTORY USER CPU UTIL. @V408246 00178010
  235. VMPCKP DS 1F USER PAGE READ CHECKPOINT @V408246 00178060
  236. VMXPG DS 1H MAXIMUM VMPAGES COUNT IN-QUEUE @V408246 00178110
  237. VMQ2CNT DS 1X (C*1) CONSECUTIVE QUEUE 2 COUNT @V408246 00178160
  238. VMQ3CNT DS 1X (C*2) COUNT OF CONSECATIVE Q2S @V408246 00178210
  239. * ALLOWED 00178260
  240. VMSTKCNT DS 1H COUNT OF STACKED IOB + CPEXBLOKS @V4075A0 00178315
  241. VMPRRCT DS 1H COUNT OF PRIORITY CPEXBLOKS @V4M0141 00178320
  242. VMSWPMIG DS 1A POINTER TO PSUEDO PAGE TABLE @V408246 00178360
  243. VMFVRF DS 1X (C*3) SET FAVORED PERCENTAGE @V408246 00178410
  244. * FOR USER 00178460
  245. VMCRTO DS 1X (C*4) COMPUTE/ELAPSED RATIO @V408246 00178510
  246. VMSHRPRC DS 1X V*28 PROCESSOR WHOSE SHRD SEGS WE HAV @V4075A0 00178565
  247. VMGRFTAB DS 1X V*29 GRAF VIRTUAL CONSOLE LOGICAL TAB @V60A6B6 00178570
  248. VMCPTIME DS 1D MAIN PROCESSOR SUPERVISOR TIME @V4M0203 00178610
  249. VMAPTIME DS 1D ATTACHD PROCESSR SUPERVISOR TIME @V4M0203 00178620
  250. VMACTDEV DS 1H VDEV ADDRESS FOR LAST SIO/TIO/HIO @VM13658 00178636
  251. VMFLPAG DS H COUNT OF NON-SHARED FLUSHED PAGES 00178640
  252. VMSPMFLG DS 1X V*30 MISCELLANEOUS STATUS BYTE @VA13304 00178645
  253. DS 1X RESERVED 00178650
  254. VMCONLN DS 1H BYTES LEFT IN RESPONSE BUFFER 00178655
  255. VMCONBUF DS 1F VIRTUAL ADDRESS OF RESPONSE BUFFER 00178660
  256. VMPSWDCA DS 1X V*31 INVALID 'AUTOLOG' PASSWORD COUNT @V60BBBB 00178665
  257. VMSVSTAT DS 1X V*32 VMSAVE STATUS AND OTHER @VA13026 00178670
  258. * PARMS 00178770
  259. VMLGFORC EQU X'10' INDICATE FORCED LOGOFF @VA13026 00178870
  260. VMLGNMSG EQU X'08' INDICATE NO OPERATOR MESSAGE @VA13026 00178970
  261. DS 1X RESERVED FOR FUTURE USE @VA13026 00179070
  262. VMWSADJ DS 1H WORKING SET SIZE ADJUSTED @VA13026 00179170
  263. VMTSOUTQ EQU VMTMINQ SUPRV. TIME ALLOWED (REDEFINE @VA13026 00179270
  264. * LABEL) 00179370
  265. VMVMPS DS 1F ANCHOR FOR VIRTUAL RDEVBLOK @VA13026 00179470
  266. * CHAIN 00179570
  267. DS 1F RESERVED FOR FUTURE USE @VA13026 00179670
  268. SPACE 1 00179770
  269. VMBSIZE EQU (*-VMBLOK)/8 VMBLOK SIZE IN DOUBLE WORDS 00180000
  270. SPACE 1 00181000
  271. ORG VMMICRO DEFINITION FOR VMMICRO: 00181100
  272. VMMCR6 DS 1X CR 6 - HARDWARE FLAG BYTE 00181200
  273. VMMADDR DS 3X CR 6 - ADDR OF V. MACH PTR LIST 00181300
  274. EJECT 00181400
  275. * BITS DEFINED IN VMRSTAT 00182000
  276. VMCFWAIT EQU X'80' WAITING - EXECUTING CONSOLE FUNCTION 00183000
  277. VMPGWAIT EQU X'40' WAITING - PAGING OPERATION(S) 00184000
  278. VMIOWAIT EQU X'20' WAITING - SCHEDULED IOBLOK START 00185000
  279. VMPSWAIT EQU X'10' WAITING - VIRTUAL PSW WAIT STATE 00186000
  280. VMEXWAIT EQU X'08' WAITING - INSTRUCTION SIMULATION 00187000
  281. VMLOGON EQU X'04' USER NOT YET LOGGED ON 00188000
  282. VMLOGOFF EQU X'02' USER LOGGING OFF 00189000
  283. VMIDLE EQU X'01' VIRTUAL MACHINE IN IDLE WAIT STATE 00190000
  284. VMCPWAIT EQU VMCFWAIT+VMPGWAIT+VMIOWAIT+VMEXWAIT+VMLOGOFF+VMLOGON 00191000
  285. VMNORUN EQU VMCPWAIT+VMPSWAIT 00192000
  286. VMLONGWT EQU VMCFWAIT+VMLOGON+VMLOGOFF+VMIDLE 00193000
  287. SPACE 1 00194000
  288. * BITS DEFINED IN VMDSTAT 00195000
  289. VMDSP EQU X'80' VIRTUAL MACHINE IS DISPATCHED RUNUSER 00196000
  290. VMTSEND EQU X'40' VIRTUAL MACHINE HAS GONE COMPUTE BOUND 00197000
  291. VMQSEND EQU X'20' VIRTUAL MACHINE IN-QUEUE TIME SLICE END 00198000
  292. VMTIO EQU X'10' VIRTUAL MACHINE IS IN TIO BUSY LOOP 00199000
  293. VMRUN EQU X'08' VIRTUAL MACHINE RUNNABLE 00200000
  294. VMINQ EQU X'04' VIRTUAL MACHINE IN A Q 00201000
  295. VMELIG EQU X'02' VIRTUAL MACHINE IN ELIGIBLE LIST @V4M0202 00201500
  296. VMDSPCH EQU X'01' USE DISPATCH PATH 'DMKDSPCH' 00202100
  297. SPACE 1 00203000
  298. * BITS DEFINED IN VMOSTAT 00204000
  299. VMSYSOP EQU X'80' VIRTUAL MACHINE IS SYSTEM OPERATOR 00205000
  300. VMSHR EQU X'40' VIRTUAL MACHINE RUNNING SHARED SYSTEM 00206000
  301. VMSLEEP EQU X'20' VIRTUAL MACHINE IN SLEEP STATE 00206100
  302. VMDISC EQU X'10' VIRTUAL MACHINE CONSOLE DISCONNECTED 00207000
  303. VMCFRUN EQU X'08' VIRTUAL MACHINE RUNNING IN CF MODE 00208000
  304. VMVIRCF EQU X'04' VIRTUAL MACHINE EXECUTING VIRTUAL CF 00209000
  305. VMCF EQU X'02' VIRTUAL MACHINE EXECUTING CF 00210000
  306. VMKILL EQU X'01' VIRTUAL MACHINE TO BE LOGGED OFF 00211100
  307. SPACE 1 00212000
  308. * BITS DEFINED IN VMQSTAT 00213000
  309. VMPRIDSP EQU X'80' VIRTUAL MACHINE ELIGIBLE FOR Q1 00214000
  310. VMAUTLOG EQU X'40' AUTOLOGGED USER IN DISCONNECT MODE 00215000
  311. VMWSERNG EQU X'20' LAST WORKING SET ERROR WAS NEGATIVE 00216000
  312. VMDLDRP EQU X'10' DELAYED QUEUE DROP FLAG @V408246 00217050
  313. VMWSCHG EQU X'08' FORCE NEW WORKING SET ON QUEUE ENTRY 00217100
  314. VMINHMIG EQU X'04' PAGE MIGRATION SWITCH @V408246 00217105
  315. VMCFREAD EQU X'02' VIRTUAL MACHINE WITH CF READ UP 00217110
  316. VMPA2APL EQU X'01' REFLECT EXTERNAL INTERRUPT TO MACHINE 00217200
  317. SPACE 1 00218000
  318. * BITS DEFINED IN VMPSTAT 00219000
  319. VMISAM EQU X'80' VIRTUAL MACHINE HAS ISAM CCW CHECKING 00220000
  320. VMV370R EQU X'40' VIRTUAL MACHINE CAN USE EXTENDED FORMAT 00221000
  321. VMRPAGE EQU X'20' VIRTUAL MACHINE MAY RESERVE PAGES 00222000
  322. VMREAL EQU X'10' VIRTUAL MACHINE HAS VIRT=REAL OPTION 00223000
  323. VMNOTRAN EQU X'08' NO CCW TRANSLATION FOR VIRT=REAL USER 00224000
  324. VMNSHR EQU X'04' RUNNING NON-SHARED NAMED SAVED SYSTEM 00224100
  325. VMACCOUN EQU X'02' VIRTUAL MACHINE MAY PUNCH ACCOUNT CARD 00226000
  326. VMPAGEX EQU X'01' VIRT. MACH. RECEIVING PSEUDO PAGE FAULTS 00227100
  327. EJECT 00228000
  328. * BITS DEFINED IN VMESTAT 00229000
  329. VMSHADT EQU X'80' SHADOW TABLES ARE PRESENT 00230000
  330. VMPERCM EQU X'40' VRT/CP PER ACTIVE 00231000
  331. VMBADCR0 EQU X'20' VIRTUAL C-REG ZERO IN INVALID 00232000
  332. VMMICSVC EQU X'10' USER WANTS SVCS DONE BY VM ASSIST 00233100
  333. VMEXTCM EQU X'08' VIRTUAL MACHINE IN EXTENDED CONTROL MODE 00234000
  334. VMNEWCR0 EQU X'04' VIRTUAL C-REG 0 HAS CHANGED 00235000
  335. VMINVSEG EQU X'02' ALL SHADOW TABLES INVALID 00236000
  336. VMINVPAG EQU X'01' SHADOW PAGE TABLES INVALID 00237000
  337. VMECZAP EQU 255-VMMICSVC ALL BITS EXCEPT VMMICSVC 00237100
  338. SPACE 00238000
  339. * BITS DEFINED IN VMTRCTL 00239000
  340. VMTRPER EQU X'80' VIRTUAL PER TRACING ACTIVE 00240000
  341. VMTRSVC EQU X'40' TRACE USER SVC INSTRUCTIONS 00241000
  342. VMTRPRG EQU X'20' TRACE VIRTUAL PROGRAM INTERRUPTS 00242000
  343. VMTRIO EQU X'10' TRACE VIRTUAL I/O INTERRUPTS 00243000
  344. VMTREX EQU X'08' TRACE EXTERNAL INTERRUPTS 00244000
  345. VMTRPRV EQU X'04' TRACE USER PRIVILEGED INSTRUCTIONS 00245000
  346. VMTRSIO EQU X'02' TRACE VIRTUAL I/O INSTRUCTIONS 00246000
  347. VMTRBRIN EQU X'01' TRACE SUCCESSFUL BRANCHES OR ALL INSTR. 00247000
  348. VMTRINT EQU VMTRSVC+VMTRPRG+VMTRIO+VMTREX TRACE ALL USER INTERRUPTS 00248000
  349. SPACE 1 00249000
  350. * BITS DEFINED IN VMMLEVEL 00250000
  351. VMMSGON EQU X'80' RECEIVING MESSAGES 00251000
  352. VMWNGON EQU X'40' RECEIVING WARNINGS 00252000
  353. VMMCODE EQU X'20' RECEIVING ERROR MESSAGE CODES 00253000
  354. VMMTEXT EQU X'10' RECEIVING TEXTS OF ERROR MESSAGES 00254000
  355. VMMLINED EQU X'08' LINE EDITING ON 00255000
  356. VMMACCON EQU X'04' RECEIVING ACCOUNTING INFORMATION 00256000
  357. VMMCPENV EQU X'02' TERMINAL ENVIROMENT IN CP MODE 00257000
  358. VMMSTMP EQU X'01' TIME STAMP DESIRED ON CONSOLE OUTPUT 00257500
  359. SPACE 1 00258000
  360. * BITS DEFINED IN VMMLVL2 00258100
  361. VMMIMSG EQU X'80' RECEIVING ALL INFORMATIONAL MSGS 00258200
  362. VMMHLITE EQU X'40' HIGHLIGHT INPUT REDISPLAY HRC101DK 00258220
  363. VMMDIAL EQU X'20' USER IS DIALING @VA11241 00258250
  364. VMMAUTCR EQU X'08' AUTOCR ON 3215S HRC101DK 00258260
  365. VMMNHOLD EQU X'04' DON'T GOING HOLDING MODE ON GRAF HRC101DK 00258270
  366. SPACE 00258300
  367. * BITS DEFINED IN VMQLEVEL 00259000
  368. VMQ1 EQU X'80' VIRTUAL MACHINE IS INTERACTIVE 00260000
  369. VMCOMP EQU X'40' VIRTUAL MACHINE IS COMPUTE BOUND 00261000
  370. VMHIPRI EQU X'20' VIRTUAL MACHINE IS HIGHEST PRIORITY 00262000
  371. VMLOPRI EQU X'10' VIRTUAL MACHINE IS LOWEST PRIORITY 00263000
  372. VMAEX EQU X'08' VIRTUAL MACHINE IS ASSURED EXECUTION 00264000
  373. VMAEXP EQU X'04' VIRTUAL MACHINE IS ASSURED PERCETAGE 00265000
  374. VMQ3 EQU X'02' VIRTUAL MACHINE USING MULTIPLE Q2@V408246 00266100
  375. * VMQ3 IS USED ONLY BY THE FAIR SHARE SCHEDULAR 00266200
  376. VMDROP1 EQU X'02' VIRT. MACHINE DROPPED FROM Q1 @V408246 00266300
  377. * VMDROP1 IS USED ONLY BY THE STANDARD SCHEDULAR 00266400
  378. VMFS EQU X'01' USING MORE THAN FAIR SHARE FLAG @V408246 00266500
  379. SPACE 1 00267000
  380. * BITS DEFINED IN VMCLEVEL 00268000
  381. VMCLASSA EQU X'80' CLASS A FUNCTIONS 00269000
  382. VMCLASSB EQU X'40' CLASS B FUNCTIONS 00270000
  383. VMCLASSC EQU X'20' CLASS C FUNCTIONS 00271000
  384. VMCLASSD EQU X'10' CLASS D FUNCTIONS 00272000
  385. VMCLASSE EQU X'08' CLASS E FUNCTIONS 00273000
  386. VMCLASSF EQU X'04' CLASS F FUNCTIONS 00274000
  387. VMCLASSG EQU X'02' CLASS G FUNCTIONS 00275000
  388. VMCLASSH EQU X'01' RESERVED - IBM USE ONLY 00276100
  389. EJECT 00277000
  390. * BITS DEFINED IN VMTLEVEL 00278000
  391. VMTON EQU X'80' VIRTUAL TIMER RUNNING 00279000
  392. VMRON EQU X'40' VIRTUAL REAL TIMER RUNNING 00280000
  393. VMCPUTMR EQU X'20' VIRTUAL CPU TIMER IN REAL CPU TIMER 00281000
  394. VMSTMPI EQU X'08' VIRTUAL INTERVAL TIMER REQUEST QUEUED 00282000
  395. VMSTMPT EQU X'04' VIRTUAL CPU TIMER REQUEST QUEUED 00283000
  396. VMTMRINT EQU X'01' INTERRUPT FROM REAL CPU TIMER PENDING 00284000
  397. SPACE , HRC013DK 00284070
  398. * HRC013DK 00284140
  399. * BITS DEFINED IN VMPERFLG HRC013DK 00284210
  400. * HRC013DK 00284280
  401. VMPERUSE EQU X'80' A PER TRACE BLOCK EXISTS HRC013DK 00284350
  402. VMPERANY EQU X'40' EITHER USER PER ON OR PER TRACE HRC013DK 00284420
  403. SPACE 1 HRC021DK 00284430
  404. * BITS DEFINED IN VMHRCFLG HRC021DK 00284440
  405. VMTRMOFF EQU X'80' SUPPRESS CONSOLE OUTPUT HRC021DK 00284450
  406. SPACE 1 HRC021DK 00284460
  407. EJECT 00284500
  408. * 00285000
  409. * BITS RE-DEFINED FOR SYSTEM VMBLOK 00286000
  410. * 00287000
  411. VMTIDLE EQU VMTON CPU TIMER CONTAINS IDLE WAIT STATE TIME 00288000
  412. VMTPAGE EQU VMRON CPU TIMER CONTAINS SYSTEM PAGE WAIT TIME 00289000
  413. VMTIONT EQU VMSTMPI CPU TIMER CONTAINS I/O WAIT STATE TIME 00290000
  414. SPACE 1 00291000
  415. * BITS DEFINED IN VMPEND 00292000
  416. VMDEFSTK EQU X'80' DEFERRED TASK WAIT 4 SYSTEM LOCK @V4075A0 00292100
  417. VMPERPND EQU X'40' VIRTUAL PER INTERRUPT PENDING 00293000
  418. VMPRGPND EQU X'20' VIRTUAL PROGRAM INTERRUPT DEFERRED 00294000
  419. VMSVCPND EQU X'10' VIRTUAL SVC INTERRUPT DEFERRED 00295000
  420. VMPGPND EQU X'08' VIRTUAL PSEUDO PAGE FAULT PENDING 00295500
  421. VMIOPND EQU X'02' VIRTUAL I/O INTERRUPT PENDING 00296000
  422. VMEXTPND EQU X'01' VIRTUAL EXTERNAL INTERRUPT PENDING 00297000
  423. SPACE 1 00297100
  424. * BITS DEFINED IN VMFSTAT 00297200
  425. VMFBMX EQU X'80' VIRTUAL BLOCK MULTIPLEXER CHANNELS 00297300
  426. VMFAUTO EQU X'40' AUTOPOLL HANDSHAKE FEATURE IN USE 00298300
  427. VMFVTMR EQU X'20' USER REQUESTED VIRTUAL TIMER ASSIST 00299300
  428. VMFDLNKN EQU X'10' LINK NOPASS ALLOWED HRC011DK 00299600
  429. VMSTFRST EQU X'08' USER HAS STFIRST DIRECTORY OPTN HRC068DK 00299700
  430. VMNPWOCL EQU X'04' VM REQUESTED PASSWORD SUPPRESSION@V60BBBB 00300100
  431. SPACE 1 00306100
  432. * BITS DEFINED IN VMMCR6: 00306200
  433. VMMFE EQU X'80' VM ASSIST FEATURE ENABLED 00306300
  434. VMMPROB EQU X'40' VIRTUAL MACHINE IN PROBLEM STATE 00306400
  435. VMMNOSK EQU X'20' VM ASSIST DOESN'T HANDLE SSK,ISK 00306500
  436. VMM360 EQU X'10' 360 OPS ONLY-NO ECMODE OPS ALLOWD 00306600
  437. VMMSVC EQU X'08' VM ASSIST DOES NOT HANDLE SVCS 00306700
  438. VMMSHADT EQU X'04' SHADOW TABLES PRESENT-EC, TRANS 00306800
  439. VMMCPAST EQU X'02' CP ASSIST FEATURE ENABLED 00306850
  440. VMMVTMR EQU X'01' VIRTUAL INTERVAL TIMER FEATURE ENABLED 00306900
  441. SPACE 00306910
  442. * BITS DEFINED IN VMCXSTAT (V*22) 00306920
  443. VMBCAUTH EQU X'80' VMCF ACTIVE 00306930
  444. VMIOLOG EQU X'20' C-REG 14 IOLOG MASK. REF'D VIA VMVCR14. 00306938
  445. VMSTBYPS EQU X'04' STBYPASS VR IS ACTIVE HRC068DK 00306939
  446. SPACE 1 @V4075A0 00306940
  447. * DEFINITION OF VMAFF @V4075A0 00306950
  448. VMAFFON EQU X'40' AFFINITY SET ON @V4075A0 00306960
  449. SPACE 00306965
  450. * BITS DEFINED FOR VMSPMFLG 00306970
  451. VMLOGON2 EQU X'80' VDEVBLOK GOTTEN DURING LOGON @VA13304 00306972
  452. VMSPMON EQU X'40' RECEIVING SPECIAL MESSAGES @VA09952 00306975
  453. VMSMSGON EQU X'20' PROCESSING SPACIAL MESSAGES @VA09952 00306976
  454. VMCPVIRT EQU X'08' WE GOT A CP UNDER CP SITUATION @VA09952 00306977
  455. VMCPSV76 EQU X'04' AND IT ISSUED AN SVC76 @VA09952 00306978
  456. VMCFRD1 EQU X'01' BACK UP OF VMCFREAD @VA13025 00306979
  457. SPACE 1 00306984
  458. * BITS DEFINED IN VMSVSTAT 00306989
  459. VMLGHOLD EQU X'02' HOLD LINE AFTER MSG, KEEP ENABLE 00306994
  460. EJECT 00307000
  461. ECBLOK DSECT 00308000
  462. SPACE 1 00309000
  463. *** ECBLOK - VMBLOK EXTENSION FOR VIRTUAL 370R 00311000
  464. * 00312000
  465. * 0 +-----------------------+-----------------------+ 00313000
  466. * | EXTCR0 | EXTCR1 | 00314000
  467. * 8 +-----------------------+-----------------------+ 00315000
  468. * | EXTCR2 | EXTCR3 | 00316000
  469. * 10 +-----------------------+-----------------------+ 00317000
  470. * | EXTCR4 | EXTCR5 | 00318000
  471. * 18 +-----------------------+-----------------------+ 00319000
  472. * | EXTCR6 | EXTCR7 | 00320000
  473. * 20 +-----------------------+-----------------------+ 00321000
  474. * | EXTCR8 | EXTCR9 | 00322000
  475. * 28 +-----------------------+-----------------------+ 00323000
  476. * | EXTCR10 | EXTCR11 | 00324000
  477. * 30 +-----------------------+-----------------------+ 00325000
  478. * | EXTCR12 | EXTCR13 | 00326000
  479. * 38 +-----------------------+-----------------------+ 00327000
  480. * | EXTCR14 | EXTCR15 | 00328000
  481. * 40 +-----------------------+-----------------------+ 00329000
  482. * | EXTSHCR0 | EXTSHCR1 | 00330000
  483. * 48 +-----------+-----------+-----------------------+ 00331000
  484. * | EXTSHLEN | EXTVSEGS | EXTSTOLD | 00332000
  485. * 50 +-----------+-----------+-----------+-----------+ 00333000
  486. * | EXTSHSEG | EXTSEGLN | EXTARCH | 00334000
  487. * 58 +-----------------------+-----------+-----------+ 00335000
  488. * | EXTPERAD | EXTPERCD | EXTCOPY | 00336000
  489. * 60 +-----------------------+-----------+-----------+ 00337000
  490. * | EXTCPTMR | 00338000
  491. * 68 +-----------------------+-----------------------+ 00339000
  492. * | EXTCPTRQ | EXTCCTRQ | 00340000
  493. * 70 +-----------------------+-----------------------+ 00341000
  494. * 00342000
  495. *** ECBLOK - VMBLOK EXTENSION FOR VIRTUAL 370R 00343000
  496. SPACE 1 00345000
  497. EXTCR0 DS 1F VIRTUAL C-REG 0; ARCHITECTURE CONTROLS 00346000
  498. EXTCR1 DS 1F VIRTUAL C-REG 1; SEGMENT TABLE POINTER 00347000
  499. EXTCR2 DS 1F VIRTUAL CONTROL REGISTER 2 00348000
  500. EXTCR3 DS 1F ...THRU REGISTER 15 00349000
  501. EXTCR4 DS 1F 00350000
  502. EXTCR5 DS 1F 00351000
  503. EXTCR6 DS 1F 00352000
  504. EXTCR7 DS 1F 00353000
  505. EXTCR8 DS 1F 00354000
  506. EXTCR9 DS 1F 00355000
  507. EXTCR10 DS 1F 00356000
  508. EXTCR11 DS 1F 00357000
  509. EXTCR12 DS 1F 00358000
  510. EXTCR13 DS 1F 00359000
  511. EXTCR14 DS 1F 00360000
  512. EXTCR15 DS 1F 00361000
  513. EXTSHCR0 DS 1F SHADOW CONTROL REGISTER 0 00362000
  514. EXTSHCR1 DS 1F SHADOW CONTROL REGISTER 1 00363000
  515. EXTSHLEN DS 1H LENGTH OF SHADOW SEGTABLE IN BYTES 00364000
  516. EXTVSEGS DS 1H LENGTH OF VIRTUAL SEGTABLE IN BYTES 00365000
  517. EXTSTOLD DS 1F C-REG 1 VALUE CORRESPONDING TO TABLES 00366000
  518. EXTSHSEG DS 1F REAL ADDRESS OF SHADOW SEGTABLE 00367000
  519. EXTSEGLN DS 1H LENGTH OF SHADOW SEGTABLE IN DBL WORDS 00368000
  520. EXTARCH DS 1H ARCHITECTURE CONTROL INDEX 00369000
  521. EXTPERAD DS 1F ADDRESS OF INSTRUCTION CAUSING PER INT. 00370000
  522. EXTPERCD DS 1H PER CODE TO BE REFLECTED 00371000
  523. EXTCOPY DS 1H LENGTH CODE FROM ACTIVE SEGTABLE ENTRY 00372000
  524. EXTCPTMR DS 1D VIRTUAL CPU TIMER 00373000
  525. EXTCPTRQ DS 1F ADDRESS OF TRQBLOK FOR CPU TIMER 00374000
  526. EXTCCTRQ DS 1F ADDRESS OF TRQBLOK FOR CLOCK COMPARATOR 00375000
  527. SPACE 1 00376000
  528. EXTSIZE EQU (*-ECBLOK)/8 ECBLOK SIZE IN DOUBLE WORDS 00377000
  529. EJECT 00378000
  530. POP PRINT 00379000
  531. SPACE 00380000
ibm/vm370-lib/copy/vmblok.copy_src.txt ยท Last modified: 2023/08/06 13:36 by Site Administrator