Table of Contents

RBLOKS Source

References

Source Listing

RBLOKS.COPY.txt
  1. *COPY RBLOKS 00001000
  2. PUSH PRINT 00001200
  3. AIF ('&SYSPARM' NE 'SUP').RBL01 00001400
  4. PRINT OFF,NOGEN 00001600
  5. .RBL01 ANOP 00001800
  6. RCHBLOK DSECT 00006000
  7. SPACE 1 00007000
  8. *** RCHBLOK - REAL CHANNEL BLOCK 00009000
  9. * 00010000
  10. * 0 +-----------+-----------+-----+-----+-----------+ 00011000
  11. * | RCHADD | RCHLOCK | R*1 | R*2 | RCHQCNT | 00012000
  12. * 8 +-----------+-----------+-----+-----+-----------+ 00013000
  13. * | RCHFIOB | RCHLIOB | 00014000
  14. * 10 +-----+-----+-----+-----+-----------------------+ 00015000
  15. * | R*3 | R*4 | R*5 | R*6 | RCHSTIDC | 00016010
  16. * 18 +-----+-----+-----+-----+-----------------------+ 00017000
  17. * | RCHRSTQ | RCHOPER | 00018000
  18. * 20 +-----------------------+-----------------------+ 00019000
  19. * | | 00020000
  20. * = RCHCUTBL = 00021000
  21. * | | 00022000
  22. * 60 +-----------------------------------------------+ 00023000
  23. * 00024000
  24. *** RCHBLOK - REAL CHANNEL BLOCK 00025000
  25. SPACE 1 00027000
  26. RCHADD DS 1H CHANNEL ADDRESS 00028000
  27. RCHLOCK DS 1H CHANNEL LOCK 00029000
  28. RCHSTAT DS 1X R*1 CHANNEL STATUS 00030000
  29. RCHTYPE DS 1X R*2 CHANNEL TYPE 00031000
  30. RCHQCNT DS 1H NO. IOBLOKS QUEUED OFF CHANNEL 00032100
  31. RCHFIOB DS 1F POINTER TO FIRST IOBLOK QUEUED 00033000
  32. RCHLIOB DS 1F POINTER TO LAST IOBLOK QUEUED 00034000
  33. RCHDTCK DS 1X R*3 CHANNEL DATA CHECK COUNT 00035000
  34. RCHCCCK DS 1X R*4 CHANNEL CONTROL CHECK COUNT 00036000
  35. RCHIFCC DS 1X R*5 INTERFACE CONTROL CHECK COUNT 00037000
  36. RCHCHCK DS 1X R*6 CHANNEL CHAINING CHECK COUNT 00038000
  37. RCHSTIDC DS 1F RESULT OF STIDC AT CP IPL OR F'S IF CC=3. 00039010
  38. RCHRSTQ DS 1F ADDRESS OF CHANNEL TO BE RESTARTED 00040000
  39. RCHOPER DS 1F IOBLOK OPERATIONAL ON CHANNEL TIME 00041000
  40. RCHCUTBL DS 32H CONTROL UNITS ATTACHED - RCUSTART INDEX 00042000
  41. SPACE 1 00043000
  42. RCHSIZE EQU (*-RCHBLOK)/8 RCHBLOK SIZE IN DOUBLE WORDS 00044000
  43. SPACE 1 00045000
  44. * BITS DEFINED IN RCHSTAT 00046000
  45. RCHBUSY EQU X'80' CHANNEL BUSY 00047000
  46. RCHSCED EQU X'40' IOB SCHEDULED ON CHANNEL 00048000
  47. RCHDED EQU X'01' CHANNEL DEDICATED 00050000
  48. SPACE 1 00051000
  49. * BITS DEFINED IN RCHTYPE 00052000
  50. RCHSEL EQU X'80' SELECTOR CHANNEL 00053000
  51. RCHBMX EQU X'40' BLOCK-MULTIPLEXER CHANNEL 00054000
  52. RCHMPX EQU X'20' BYTE-MULTIPLEXER CHANNEL 00055000
  53. RCH370 EQU X'01' 370 TYPE CHANNEL (370 I/O INST SUPPORT) 00056000
  54. EJECT 00057000
  55. RCUBLOK DSECT 00058000
  56. SPACE 1 00059000
  57. *** RCUBLOK - REAL CONTROL UNIT BLOCK 00061000
  58. * 00062000
  59. * 0 +-----------+-----------+-----+-----+-----------+ 00063000
  60. * | RCUADD | RCULOCK | R*1 | R*2 | RCUQCNT | 00064000
  61. * 8 +-----------+-----------+-----+-----+-----------+ 00065000
  62. * | RCUFIOB | RCULIOB | 00066000
  63. * 10 +-----------------------+-----------------------+ 00067000
  64. * | RCUCHA | RCUCHB | 00068000
  65. * 18 +-----------------------+-----------------------+ 00069000
  66. * | RCUCHC | RCUCHD | 00069500
  67. * 20 +-----------------------+-----------------------+ 00070000
  68. * | RCURSTQ | RCUOPER | 00070500
  69. * 28 +-----------------------+-----------------------+ 00071000
  70. * | | 00072000
  71. * = RCUDVTBL = 00073000
  72. * | | 00074000
  73. * 48 +-----------------------+-----------------------+ 00075000
  74. * 00076000
  75. *** RCUBLOK - REAL CONTROL UNIT BLOCK 00077000
  76. SPACE 1 00079000
  77. RCUADD DS 1H CONTROL UNIT ADDRESS 00080000
  78. RCULOCK DS 1H CONTROL UNIT LOCK 00081000
  79. RCUSTAT DS 1X R*1 CONTROL UNIT STATUS 00082000
  80. RCUTYPE DS 1X R*2 CONTROL UNIT TYPE 00083000
  81. RCUQCNT DS 1H NO. IOBLOKS QUEUED OFF C.U. 00084100
  82. RCUFIOB DS 1F POINTER TO FIRST IOBLOK QUEUED 00085000
  83. RCULIOB DS 1F POINTER TO LAST IOBLOK QUEUED 00086000
  84. RCUCHA DS 1F POINTER TO RCHBLOK - INTERFACE A 00087000
  85. RCUCHB DS 1F POINTER TO RCHBLOK - INTERFACE B 00088000
  86. RCUCHC DS 1F POINTER TO RCHBLOK - INTERFACE C 00088500
  87. RCUCHD DS 1F POINTER TO RCHBLOK - INTERFACE D 00089000
  88. RCURSTQ DS 1F ADDRESS OF CONTROL UNIT TO RESTART 00089500
  89. RCUOPER DS 1F IOBLOK OPERATIONAL ON CONTROL UNIT TIME 00090000
  90. RCUDVTBL DS 16H DEVICES ATTACHED - RDVSTART INDEX 00091000
  91. SPACE 1 00092000
  92. RCUSIZE EQU (*-RCUBLOK)/8 RCUBLOK SIZE IN DOUBLE WORDS 00093000
  93. SPACE 1 00094000
  94. ORG RCUCHA 00094100
  95. RCUPRIME DS 1F POINTER TO THE PRIMEARY CONTROL UNIT 00094200
  96. SPACE 1 00094300
  97. * BITS DEFINED IN RCUSTAT 00095000
  98. RCUBUSY EQU X'80' CONTROL UNIT BUSY 00096000
  99. RCUSCED EQU X'40' IOB SCHEDULED ON CONTROL UNIT 00097000
  100. RCUDISA EQU X'20' CONTROL UNIT DISABLED 00098000
  101. RCUCHAOF EQU X'08' RCUCHA TO RCHBLOK PATH NOT AVAILABLE 00098400
  102. RCUCHBOF EQU X'04' RCUCHB TO RCHBLOK PATH NOT AVAILABLE 00098800
  103. RCUCHCOF EQU X'02' RCUCHC TO RCHBLOK PATH NOT AVAILABLE 00099200
  104. RCUCHDOF EQU X'01' RCUCHD TO RCHBLOK PATH NOT AVAILABLE 00099600
  105. SPACE 1 00100000
  106. * BITS DEFINED IN RCUTYPE 00101000
  107. RCUSHRD EQU X'80' THIS CU MAY ATTACH TO ONLY 1 SUBCHANNEL 00102000
  108. RCU2701 EQU X'01' TCU IS A 2701 00103000
  109. RCUSUB EQU X'40' THIS IS A SUBORDINATE CONTROL UNIT 00103100
  110. RCU2702 EQU X'02' TCU IS A 2702 00104000
  111. RCU2703 EQU X'03' TCU IS A 2703 00105000
  112. EJECT 00106000
  113. RDEVBLOK DSECT 00107000
  114. SPACE 1 00108000
  115. *** RDEVBLOK - REAL DEVICE BLOCK 00110000
  116. * 00111000
  117. * 0 +-----------+-----------+-----+-----+-----+-----+ 00112000
  118. * | RDEVADD | RDEVLOCK | R*1 | R*2 | R*3 | R*4 | 00113000
  119. * 8 +-----------+-----------+-----+-----+-----+-----+ 00114000
  120. * | RDEVFIOB | RDEVLIOB | 00115000
  121. * 10 +-----------------------+-----------------------+ 00116000
  122. * | RDEVCUA | RDEVCUB | 00117000
  123. * 18 +-----------------------+-----------------------+ 00118000
  124. * | RDEVQUED | 00119000
  125. * 20 +-----------------------+-----------------------+ 00120000
  126. * | RDEVIOCT | RDEVAIOB | 00121000
  127. * 28 +-----------------------+-----------+-----------+ 00122000
  128. * | RDEVUSER | RDEVATT | RDEVCYL | 00123000
  129. * 30 +-----------------------+-----------+-----------+ 00124000
  130. * | RDEVSER | RDEVLNKS | 00125000
  131. * 38 +-----+-----+-----+-----+-----+-----+-----+-----+ 00126000
  132. * | R | D | E | V | T | C | T | L | 00127000
  133. * 40 +-----+-----+-----+-----+-----+-----+-----+-----+ 00128000
  134. * | RDEVTMAT | R*5 | R*6 | R*7 | R*8 | 00129000
  135. * 48 +-----------------------+-----+-----+-----+-----+ 00130000
  136. * | RDEVIOER | RDEVCTRS | 00131000
  137. * 50 +-----------+-----------+-----------------------+ 00132125
  138. * | RDEVNAME | R*9 | R*10| RDEVIOBL | 00132230
  139. * 58 +-----------+-----------+-----------------------+ 00132300
  140. * 00133000
  141. *** RDEVBLOK - REAL DEVICE BLOCK 00134000
  142. SPACE 1 00136000
  143. RDEVADD DS 1H DEVICE ADDRESS 00137000
  144. RDEVLDEV EQU X'80' Logical Device pseudo-RDEVBLOK HRC065DK 00137050
  145. RDEVLDTR EQU X'90' Logical Device is terminating HRC065DK 00137100
  146. RDEVLOCK DS 1H DEVICE LOCK 00138000
  147. RDEVSTAT DS 1X R*1 DEVICE STATUS @VA08988 00139000
  148. RDEVFLAG DS 1X R*2 DEVICE FLAGS, DEVICE DEPENDENT @VA08988 00139100
  149. RDEVTYPC DS 1X R*3 DEVICE TYPE CLASS @VA08988 00139200
  150. RDEVTYPE DS 1X R*4 DEVICE TYPE @VA08988 00139300
  151. RDEVFIOB DS 1F POINTER TO FIRST IOBLOK QUEUED 00143000
  152. RDEVLIOB DS 1F POINTER TO LAST IOBLOK QUEUED 00144000
  153. RDEVCUA DS 1F POINTER TO RCUBLOK - INTERFACE A 00145000
  154. RDEVCUB DS 1F POINTER TO RCUBLOK - INTERFACE B 00146000
  155. RDEVQUED DS 1D IOBLOK QUEUED TIME - TOD CLOCK UNITS 00147000
  156. RDEVIOCT DS 1F DEVICE IO COUNT 00148000
  157. RDEVAIOB DS 1F ACTIVE IOBLOK 00149000
  158. RDEVUSER DS 1F POINTER TO VMBLOK OF DEDICATED USER 00150000
  159. RDEVATT DS 1H ATTACHED VIRTUAL ADDRESS 00151000
  160. RDEVCYL DS 1H DASD - CURRENT CYLINDER LOCATION 00152000
  161. RDEVSER DS CL6 DEVICE VOLUME SERIAL NUMBER 00153000
  162. RDEVLNKS DS 1H DASD - NUMBER OF LINKS TO THIS DISK 00154000
  163. RDEVTCTL DS 8X TERMINAL CONTROL BYTES 00155000
  164. RDEVTMAT DS 1F DEVICE ATTACHED TIME - TOD CLOCK WORD 0 00156000
  165. RDEVQCNT DS 1X R*5 NUMBER OF QUEUED IOBLOK'S @VA08988 00157000
  166. RDEVSTA2 DS 1X R*6 DEVICE STATUS (2ND BYTE) @VA08988 00157100
  167. RDEVMDL DS 1X R*7 DEVICE MODEL NUMBER @VA08988 00157200
  168. RDEVFTR DS 1X R*8 DEVICE FEATURE CODE @VA08988 00157300
  169. RDEVIOER DS 1F POINTER TO IOERBLOK FOR LAST CP ERROR 00161000
  170. RDEVCTRS DS 1F POINTER TO ERROR COUNTER CONTROL BLOK 00162000
  171. RDEVNAME DS 1H REAL DEVICE NAME 00162100
  172. RDEVSTA3 DS 1X R*9 DEVICE STATUS (3RD BYTE) @VA08988 00162150
  173. RDEVPCNT DS 1X R*10 DISAB/ENAB/PREP RETRY COUNT @VA08988 00162250
  174. RDEVIOBL DS F IOBLOK QUEUE LOCK @V407594 00162300
  175. SPACE 1 00163000
  176. RDEVSIZE EQU (*-RDEVBLOK)/8 RDEVBLOK SIZE IN DOUBLE WORDS 00164000
  177. SPACE 00165000
  178. * FOR CP OWNED DEVICES 00166000
  179. ORG RDEVUSER 00167000
  180. RDEVALLN DS 1F ANCHOR FOR ALOCBLOK CHAIN FOR THIS DEVICE 00168000
  181. RDEVCODE DS 1H DEVICE CODE - SYSOWNED INDEX 00169000
  182. ORG RDEVTCTL 00170000
  183. RDEVPAGE DS 1F ANCHOR FOR RECBLOK CHAIN FOR PAGING 00171000
  184. RDEVRECS DS 1F ANCHOR FOR RECBLOK CHAIN FOR SPOOLING 00172000
  185. RDEVPNT DS 1F POINTER TO NEXT RDEVBLOK FOR ALLOCATION 00173000
  186. SPACE 00174000
  187. * FOR SLOTTED 2301 PAGING DRUMS 00175000
  188. ORG RDEVRECS 00176000
  189. RDEVDCTL DS 1F POINTER TO DRUMTABL CONTROL BLOK 00177000
  190. SPACE 1 00178000
  191. * FOR GRAPHIC DEVICES 00179000
  192. ORG RDEVCYL 00180000
  193. RDEVCORD DS 1H CURRENT LINE CORRDINATES 00181000
  194. RDEVGRTB DS 1F ADDRESS OF TABLE OF CCWS AND DATA STREAMS 00181100
  195. RDEVTMCD DS 1X TERMINAL CODE 00181200
  196. RDEVPART DS 1X GRAF: number of partitions HRC072DK
  197. RDEVGRIC DS 1X FLAG BYTE FOR GRAPHIC ATTNS HRC101DK 00181400
  198. RDEVEXTC EQU X'80' GRAF: has extended color HRC072DK 00181420
  199. RDEVEXTH EQU X'40' GRAF: has extended highlight HRC072DK 00181425
  200. RDEVPSS EQU X'20' GRAF: has program symbol sets HRC072DK 00181430
  201. RDEVAD14 EQU X'10' GRAF: has 14-bit addressing HRC072DK 00181435
  202. RDEVERPQ EQU X'08' GRAF: issue WSF RPQ at enable HRC072DK 00181440
  203. * EQU X'04' GRAF: available bit HRC072DK 00181445
  204. * EQU X'02' GRAF: available bit HRC072DK 00181450
  205. GRAPHAT EQU X'01' TERMINAL RESET NEEDS TO BE DONE HRC101DK 00181500
  206. DS 1X GRAF: available byte/bits HRC072DK 00181700
  207. SPACE 1 00182000
  208. * FOR SPOOLING UNIT RECORD DEVICES 00183000
  209. ORG RDEVQUED 00184000
  210. RDEVSPL DS 1F POINTER TO ACTIVE RSPLCTL BLOCK 00185000
  211. RDEVCLAS DS 4C DEVICE CLASS(ES) 00186000
  212. ORG RDEVUSER 00186050
  213. RDEVDELP DS A ANCHOR FOR DELAY PURGE QUEUE @V60B9BA 00186100
  214. RDEVCURP DS X CURR PAGE LENGTH IN HALF-INCHES @V60B9BA 00186150
  215. DS X RESERVED @V60B9BA 00186200
  216. RDEVMAXP DS X MAX NO. ENTRIES IN DEL PURGE QUEU@V60B9BA 00186250
  217. RDEVFSEP DS X FCB FOR SEP PAGE (6, 8, OR 12) @V60B9BA 00186300
  218. RDEVXSEP DS CL4 NAME OF CHAR ARR TBL FOR SEP PAGE@V60B9BA 00186350
  219. RDEVEXTN DS 1A POINTER TO THE 3800 EXTENSION @V60B9BA 00186400
  220. RDEVIMAG DS CL8 NAME OF CURRENT IMAGE LIBRARY @V60B9BA 00186450
  221. RDEVOVLY DS CL4 NAME OF CURRENT FORMS OVERLAY @V60B9BA 00186500
  222. SPACE 1 00187000
  223. * FOR TERMINAL DEVICES 00188000
  224. ORG RDEVQUED 00189000
  225. RDEVCON DS 1F POINTER TO CONTASK LIST 00190000
  226. RDEVAIRA DS 1F ATTENTION INTERRUPT RETURN ADDRESS 00191000
  227. ORG RDEVTCTL 00192000
  228. RDEVRCNT DS 1H START-STOP LINE RETRY COUNT 00194500
  229. RDEVTFLG DS 1X ADDITIONAL TERMINAL FLAGS 00194610
  230. RDEVGRTY DS 1X DISPLAY ALTERNATE SCREEN SIZE INDEX 00195620
  231. RDEVLLEN DS 1X DEVICE LINE LENGTH 00197000
  232. RDEVATNC DS 1X DEVICE ATTENTION COUNT 00198000
  233. RDEVBASE DS 1H 370X BASE ADDRESS FOR EMULATOR LINE 00199100
  234. ORG RDEVFTR 00201000
  235. RDEVSADN DS 1X TERMINAL SET-ADDRESS NUMBER 00203000
  236. SPACE 00204000
  237. * FOR REAL 3705 COMMUNICATIONS CONTROLLER 00204100
  238. ORG RDEVAIRA 00204200
  239. RDEVEPDV DS 1F START OF FREE RDEVBLOK LIST FOR EP LINES 00204300
  240. ORG RDEVCYL 00204400
  241. RDEVMAX DS 1H HIGHEST VALID NCP RESOURCE NAME 00204500
  242. RDEVNCP DS CL8 REFERENCE NAME OF ACTIVE 3705 NCP 00204600
  243. RDEVNICL DS 1F POINTER TO NETWORK CONTROL LIST 00204700
  244. RDEVCKPT DS 1F POINTER TO CKPBLOK FOR RE-ENABLE 00204800
  245. SPACE 1 00204805
  246. * FOR 3270 REMOTE SUPPORT 00204810
  247. ORG RDEVNCP 00204815
  248. RDEVBSC DS 1F PTR. TO BINARY SYNCHRONOUS CONTROL BLOCK 00204820
  249. RDEVPDLY DS 1F POLL DELAY TIMER INTERVAL 00204825
  250. EJECT 00204900
  251. * BITS DEFINED IN RDEVTMCD 00205000
  252. RDEVPTTC EQU X'00' PTTC/EBCD 00206000
  253. RDEVCORR EQU X'04' CORRESPONDENCE 00207000
  254. RDEVAPLP EQU X'08' APL PTTC/EBCD 00208000
  255. RDEVAPLC EQU X'0C' APL CORRESPONDENCE 00209000
  256. RDEVUSC8 EQU X'10' UASCII-8 LEVEL 00210000
  257. RDEVTEXT EQU X'20' 3270 TEXT CHARACTER SET @VM00000 00210100
  258. SPACE 1 00211000
  259. * BITS DEFINED IN RDEVSTAT 00212000
  260. RDEVBUSY EQU X'80' DEVICE BUSY 00213000
  261. RDEVSCED EQU X'40' IOB SCHEDULED ON DEVICE 00214000
  262. RDEVDISA EQU X'20' DEVICE DISABLED (OFFLINE) 00215000
  263. RDEVRSVD EQU X'10' DEVICE RESERVED 00216000
  264. RDEVIRM EQU X'08' DEVICE IN INTENSIVE ERROR RECORDING MODE 00217000
  265. RDEVNRDY EQU X'04' DEVICE INTERVENTION REQUIRED 00218000
  266. RDEVWAII EQU X'02' GRAF - IOBLOK PENDING; QUEUE REQUESTS 00218100
  267. RDEVDED EQU X'01' DEDICATED DEVICE (ATTACHED TO A USER) 00219000
  268. SPACE 1 00220000
  269. * BITS DEFINED IN RDEVFLAG 00221000
  270. RDEVSKUP EQU X'80' DASD - ASCENDING ORDER SEEK QUEUEING 00222000
  271. RDEVPREF EQU X'40' DASD - VOLUME PREFERRED FOR PAGING 00223000
  272. RDEVSYS EQU X'20' DASD - VOLUME ATTACHED TO SYSTEM 00224000
  273. RDEVOWN EQU X'10' DASD - CP OWNED VOLUME 00225000
  274. RDEVMOUT EQU X'08' DASD - VOLUME MOUNTED; NOT ATTACHED 00226000
  275. RDEV333V EQU X'04' DASD - VOL DED AS 3330V @V60B6B8 00226100
  276. RDEVSEL EQU X'02' DASD - DEVICE SELECTED FOR MSS @V60B6B8 00226110
  277. * MOUNT 00226120
  278. RDEVVMNT EQU X'01' DASD - MSS VOL MTD BY VM/370 CP @VA11344 00226125
  279. SPACE 00226500
  280. RDEVPSUP EQU X'80' CONSOLE - TERMINAL HAS PRINT SUPPRESS 00227000
  281. RDEVPREP EQU X'40' CONSOLE - TERMINAL EXECUTING PREPARE COMD 00228000
  282. RDEVACTV EQU X'20' CONSOLE - IOBLOK PENDING; QUEUE REQUEST 00229000
  283. RDEVIDNT EQU X'10' CONSOLE - 2741 TERMINAL CODE IDENTIFIED 00230000
  284. RDEVENAB EQU X'08' CONSOLE - DEVICE IS ENABLED 00231000
  285. RDEVHIO EQU X'04' CONSOLE - NEXT INTERRUPT FROM A HALT I/O 00232000
  286. RDEVDISB EQU X'02' CONSOLE - DEVICE IS TO BE DISABLED 00233000
  287. RDEVEPMD EQU X'01' CONSOLE - 370X NCP RESOURCE IN EP MODE 00233300
  288. SPACE 00233700
  289. RDEVDRAN EQU X'80' SPOOLING - DEVICE OUTPUT DRAINED 00234000
  290. RDEVTERM EQU X'40' SPOOLING - DEVICE OUTPUT TERMINATED 00235000
  291. RDEVACNT EQU X'20' SPOOLING - DEVICE BUSY WITH ACCOUNTING 00236000
  292. RDEVSPAC EQU X'10' SPOOLING - FORCE PRINTER TO SINGLE SPACE 00237000
  293. RDEVRSTR EQU X'08' SPOOLING - RESTART CURRENT FILE 00238000
  294. RDEVBACK EQU X'04' SPOOLING - BACKSPACE THE CURRENT FILE 00239000
  295. RDEVSEP EQU X'02' SPOOLING - PRINT/PUNCH JOB SEPARATOR 00240000
  296. RDEVLOAD EQU X'01' SPOOLING - UCS BUFFER VERIFIED 00241000
  297. SPACE 00242050
  298. RDEVLNCP EQU X'80' SPECIAL - NETWORK CONTROL PROGRAM ACTIVE 00242100
  299. RDEVLCEP EQU X'40' SPECIAL - 270X EMULATION PROGRAM ACTIVE 00242150
  300. RDEVSLOW EQU X'20' SPECIAL - 370X IN BUFFER SLOWDOWN MODE 00242200
  301. RDEVAUTO EQU X'10' SPECIAL - AUTOMATIC DUMP/LOAD ENABLED 00242250
  302. RDEVWAIT EQU X'08' SPECIAL - IOBLOK PENDING; QUEUE REQUESTS 00242300
  303. RDEVEPLN EQU X'04' SPECIAL - EMULATOR LINES IN USE BY SYSTEM 00242350
  304. RDEVRCVY EQU X'02' SPECIAL - AUTO DUMP/LOAD PROCESS ACTIVE 00242400
  305. RDEVTBTU EQU X'01' SPECIAL - BTU TRACE REQUESTED 00242450
  306. EJECT 00242500
  307. * BITS DEFINED IN RDEVTFLG 00243000
  308. RDEVLOG EQU X'80' TERM - LOGON PROCESS HAS BEEN INITIATED 00244000
  309. RDEVREST EQU X'40' TERM - TERMINAL IN RESET PROCESS 00245000
  310. RDEVATOF EQU X'20' TERM - SUPPRESS ATTENTION SIGNAL 00246000
  311. SPACE 00247000
  312. *RDEVLOG EQU X'80' GRAF - LOGON PROCESS HAS BEEN INITIATED 00248100
  313. RDEVMORE EQU X'40' GRAF - SCREEN FULL, MORE DATA WAITING 00249000
  314. RDEVRUN EQU X'20' GRAF - SCREEN IN RUNNING STATUS 00250000
  315. RDEVREAD EQU X'10' GRAF - READ PENDING FOR SCREEN INPUT 00251000
  316. RDEVCPNA EQU X'08' GRAF - LAST INPUT NOT ACCEPTED 00252000
  317. RDEVTRQ EQU X'04' GRAF - TIMER REQUEST PENDING 00253000
  318. RDEVCTL EQU X'02' GRAF - CONTROL FUNCTION INTERRUPT PENDING 00254000
  319. RDEVHOLD EQU X'01' GRAF - SCREEN FULL, HOLD STATUS 00254500
  320. SPACE 1 00255000
  321. * BITS DEFINED IN RDEVSTA2 00256000
  322. RDEVRACT EQU X'80' ACTIVE DEVICE IS BEING RESET 00257000
  323. RDEVBUCH EQU X'40' DEVICE IS BUSY WITH THE CHANNEL 00258000
  324. RDEVCONC EQU X'20' CONTINGENT CONNECTION PRESENT 00258100
  325. RDEVNOHD EQU X'20' TERM - ISSUE HALT DEVICE IF OFF 00258200
  326. RDEVDROP EQU X'10' LOGDROP/LOGHOLD INDICATED 00258225
  327. RETRYSW EQU X'01' RETRY COUNT SWITCH 00258250
  328. RDEVSYNC EQU X'04' ATTENTION DURING ACTIVE I/O @VA08275 00258275
  329. RDEVALT EQU X'08' ALTERNATE PATH DEVICE 00258300
  330. RDEVPURG EQU X'02' 3800 - PURGE FILES IN ERROR @V60B9BA 00258325
  331. SPACE , HRC011DK 00258350
  332. * BITS DEFINED IN RDEVMDL HRC011DK 00258375
  333. RDEVECKD EQU X'C0' EXTENDED CKD FEATURE AVAILABLE HRC011DK 00258400
  334. RDEVLOW EQU X'20' RUNNING WITH LOW SPEED CHANNEL HRC011DK 00258425
  335. RDEVMD83 EQU X'0C' 3380 MODEL CLASS 3 HRC011DK 00258450
  336. RDEVMD82 EQU X'08' 3380 MODEL CLASS 2 HRC011DK 00258475
  337. RDEVMD81 EQU X'04' 3380 MODEL CLASS 1 HRC011DK 00258500
  338. RDEVMD80 EQU X'00' 3380 MODEL CLASS 0 HRC011DK 00258525
  339. RDEVMD03 EQU X'1E' 3380 AK4/BK4 HRC011DK 00258550
  340. RDEVMD02 EQU X'0A' 3380 AE4/BE4 HRC011DK 00258575
  341. RDEVMD01 EQU X'06' 3380 AD4/BD4/AJ4/BJ4/CJ2 HRC011DK 00258600
  342. RDEVMD00 EQU X'02' 3380 AA4/B04 HRC011DK 00258625
  343. SPACE , HRC011DK 00258650
  344. * BITS DEFINED IN RDEVSTA3 HRC011DK 00258675
  345. RDEVDIIP EQU X'80' DIAL IN PROCESS HRC011DK 00258700
  346. RDEVPS EQU X'40' LOGICAL DEVICE RDEVBLOK HRC011DK 00258725
  347. RDEVATSW EQU X'20' ATTN SWITCH HRC011DK 00258750
  348. RDEVPEND EQU X'10' DEVICE IS PENDING ONLINE/OFFLINE HRC011DK 00258775
  349. RDEVCKDX EQU X'08' DASD: SUPPORTS EXT-CKD CCWS HRC011DK 00258800
  350. RDEVEWRT EQU X'08' GRAF: ERASE/WRITE REQUIRED HRC071DK 00258825
  351. RDEVPBYP EQU X'04' MULTIPLE REQUESTS TO VARY SAME HRC011DK 00258850
  352. RDEVCC3 EQU X'02' CC=3 DEVICE NOT AVAILABLE HRC011DK 00258875
  353. RDEVFULL EQU X'01' 3270 VCONS IS IN FULL SCREEN MODEHRC062DK 00258900
  354. EJECT , HRC062DK 00259040
  355. RSPXBLOK DSECT , HRC062DK 00259044
  356. SPACE 1 HRC062DK 00259048
  357. *** RSPXBLOK - REAL DEVICE EXTENSION BLOCK 00259050
  358. * 00259060
  359. * 0 +-----------------------+-----------------------+ 00259070
  360. * | RSPXCHR | RSPXCRWC | 00259080
  361. * 8 +-----------------------+-----------------------+ 00259090
  362. * | RSPXCMOD | RSPXFCB | 00259100
  363. * 10 +-----------------------+-----------------------+ 00259110
  364. * 00259120
  365. *** RSPXBLOK - REAL DEVICE EXTENSION BLOCK 00259130
  366. SPACE 1 00259140
  367. RSPXCHR DS CL4 CHAR ARR TBL NOW IN 3800 @V60B9BA 00259150
  368. RSPXCRWC DS 4X CURRENT CONTENTS OF WCGMS @V60B9BA 00259160
  369. RSPXCMOD DS CL4 COPY MOD NOW IN 3800 @V60B9BA 00259170
  370. RSPXFCB DS CL4 FCB NOW IN 3800 @V60B9BA 00259180
  371. RSPXSIZE EQU (*-RSPXBLOK)/8 SIZE IN DOUBLE-WORDS @V60B9BA 00259190
  372. EJECT 00259500
  373. POP PRINT 00260000
  374. SPACE 00261000
  375. * 00262000
  376. *-- If any LDEV control blocks are changed or offsets altered, 00263000
  377. *-- you must reassemble HDKD7C,DMKGRF,DMKDIA,DMKLOG. 00264000
  378. * 00265000
  379. LDEVCTL DSECT Local work area 00266000
  380. LDEVCNT DS F Number of LDEV slots 00267000
  381. LDEVRSV1 DS F Unused, available 00268000
  382. LDEVNUM EQU 32 Number of LDEVs to support 00269000
  383. LDEVIDX DS (LDEVNUM)A Ptrs to LDEV slots 00270000
  384. DS 0D Force doubleword size 00271000
  385. LDEVCSZ EQU (*-LDEVCTL)/8 Size in doublewords 00272000
  386. * 00273000
  387. LDEVBLOK DSECT 00274000
  388. LDEVRDEV DS (RDEVSIZE*8)X Area containing pseudo-RDEVBLOK 00275000
  389. LDEVCSW DS D Last CSW issued by LDEV 00276000
  390. LDEVUSER DS A -> VMBLOK owning this LDEV 00277000
  391. LDEVQIOB DS A -> IOBLOK queued for delayed 00278000
  392. * PRESENT (a READ is in progress) 00279000
  393. LDEVLIST DS A -> PRESENT list of buffer ptrs 00280000
  394. LDEVSTRM DS A -> LDEVDATA containing datastrm 00281000
  395. LDEVRSV2 DS F Unused, available 00282000
  396. LDEVSENS DS X Sense byte 00283000
  397. LDEVFLG1 DS X Flag bits 00284000
  398. LDEVF1DQ EQU X'80' 1... .... Another LDEVDATA queued 00285000
  399. LDEVF1RD EQU X'40' .1.. .... LDEVDATA is for a READ oper 00286000
  400. LDEVF1SH EQU X'20' ..1. .... Short length ACCEPT in progress 00287000
  401. LDEVF1EX EQU X'10' ...1 .... LDEV has extended features 00288000
  402. LDEVF1RB EQU X'08' .... 1... READ BUFFER issued 00289000
  403. LDEVF1WR EQU X'04' .... .1.. WRITE then READ CCW encountered 00290000
  404. LDEVF1PL EQU X'02' .... ..1. PRESENT list form aborted 00291000
  405. * .... ..xx Available bits 00292000
  406. LDEVFLG2 DS X Flag bits 00293000
  407. LDEVF2WO EQU X'80' 1... .... CCW string contains WRITE oper 00294000
  408. LDEVF2RO EQU X'40' .1.. .... CCW string contains READ oper 00295000
  409. LDEVF2SN EQU X'20' ..1. .... SENSE/SENSE ID in progress 00296000
  410. * ..xx xxxx Available bits 00297000
  411. LDEVKEY DS X PSW key at time of PRESNT DIAG7C 00298000
  412. * xxxx xxxx Available bits 00299000
  413. DS 0D Force doubleword size 00300000
  414. LDEVSIZE EQU (*-LDEVBLOK)/8 Size in doublewords 00301000
  415. * 00302000
  416. LDEVDATA DSECT Datastream buffer from CCWs 00303000
  417. LDEVSLEN DS F # of doublewords in this stg 00304000
  418. LDEVCMD DS X Command code of 1st CCW 00305000
  419. LDEVDLEN DS AL3 Actual length of datastream 00306000
  420. LDEVNEXT DS A -> next LDEVDATA or 0 00307000
  421. LDEVIOB DS A -> IOBLOK assoc with datastr 00308000
  422. LDEVDSIZ EQU (*-LDEVDATA)/8 d-word length of fixed portion 00309000
  423. LDEVBUFF DS 0X Start of datastream 00310000
  424. * 00311000