Table of Contents

DMSSCT Source

References

Source Listing

DMSSCT.ASSEMBLE.txt
  1. SCT TITLE 'DMSSCT (CMS) VM/370 - RELEASE 6' 00001000
  2. SPACE 2 00002000
  3. *. 00003000
  4. * 00004000
  5. * 00005000
  6. * MODULE NAME: 00006000
  7. * 00007000
  8. * DMSSCT (SOCNTRL) 00008000
  9. * 00009000
  10. * FUNCTION: 00010000
  11. * 00011000
  12. * TO HANDLE OS NOTE, POINT, CHECK AND FIND (TYPE C) MACROES 00012000
  13. * DMSSCT ALSO HANDLES QSAM I/O ERRORS FOR DMSSQS 00013000
  14. * AND PDS (PARTITIONED DATA SET) AND KEYS ERRORS FOR 00014000
  15. * DMSSOP. 00015000
  16. * 00016000
  17. * ATTRIBUTES: 00017000
  18. * 00018000
  19. * REENTRANT, NUCLEUS RESIDENT 00019000
  20. * 00020000
  21. * ENTRY POINTS: 00021000
  22. * 00022000
  23. * DMSSCTNP - OS NOTE, POINT OR FIND (TYPE C) MACRO 00023000
  24. * DMSSCTCK - OS CHECK MACRO 00024000
  25. * DMSSCTCE - DMSSQS, DMSSOP 00025000
  26. * 00026000
  27. * ENTRY CONDITIONS: 00027000
  28. * 00028000
  29. * DMSSCTNP - OS NOTE, POINT OR FIND (TYPE C) MACRO 00029000
  30. * DMSSCTCK - OS CHECK MACRO 00030000
  31. * DMSSCTCE - R2 - A(DCB) 00031000
  32. * R6 - A(DECB) 00032000
  33. * R11 - A(FCB) 00033000
  34. * R12 - A(DMSSCTCK) 00034000
  35. * R13 - A(SAVE AREA) 00035000
  36. * 00036000
  37. * 00037000
  38. * EXIT CONDITIONS: 00038000
  39. * 00039000
  40. * NOTE, POINT AND FIND - 00040000
  41. * CONTROL IS RETURNED TO THE USER 00041000
  42. * 00042000
  43. * CHECK AND DMSSCTCE - 00043000
  44. * IF NO ERROR FLAGS ARE SET IN THE ECB OR DECB, CONTROL 00044000
  45. * IS RETURNED TO THE USER. IF THE ECB INPUT 00045000
  46. * END-OF-DATA (EODAD) FLAG IS SET, CONTROL IS GIVEN TO 00046000
  47. * THE EODAD ROUTINE. IF OTHER DECB OR ECB ERROR FLAGS 00047000
  48. * ARE SET, THE ERROR ANALYSIS (SYNAD) ROUTINE IS GIVEN 00048000
  49. * CONTROL, OR, IF NO ERROR ANALYSIS ROUTINE IS 00049000
  50. * PROVIDED, ERROR MSG DMSSCT120S IS TYPED OUT AND 00050000
  51. * THE TASK IS ABNORMALLY TERMINATED. 00051000
  52. * 00052000
  53. * CALLS TO OTHER ROUTINES: 00053000
  54. * 00054000
  55. * NOTE, POINT AND FIND - DMSROS 00055000
  56. * CHECK AND DMSSCTCE - EODAD ROUTINE, SYNAD ROUTINE, DMSSVT, 00056000
  57. * DMSSAB, DMSERR 00057000
  58. * 00058000
  59. * EXTERNAL REFERENCES: 00059000
  60. * 00060000
  61. * IHADECB, IHADCB, OPSECT, NUCON, FCBSECT 00061000
  62. * 00062000
  63. * TABLES/WORKAREAS: 00063000
  64. * 00064000
  65. * NONE 00065000
  66. * 00066000
  67. * REGISTER USAGE: 00067000
  68. * 00068000
  69. * NOTE AND POINT - R0,R3-R10,R10,R12,R14 - WORK 00069000
  70. * R1 - A(DECB) 00070000
  71. * R2 - A(DCB) 00071000
  72. * R11 - A(FCB) 00072000
  73. * R13 - A(SAVE AREA) 00073000
  74. * R15 - A(DMSSCT) 00074000
  75. * 00075000
  76. * FIND - R12 - A(DMSSCT) 00076000
  77. * R15 - A(FCB) 00077000
  78. * R1 - A(DCB) 00078000
  79. * 00079000
  80. * CHECK AND DMSSCTCE - R0,R1,R3-R5,R7-R10,R14,R15-WORK 00080000
  81. * R2 - A(DCB) 00081000
  82. * R6 - A(DECB) 00082000
  83. * R11 - A(FCB) 00083000
  84. * R12 - A(DMSSCTCK) 00084000
  85. * R13 - A(SAVE AREA) 00085000
  86. * 00086000
  87. * OPERATION OF DMSSCT MACRO SIMULATION ROUTINES: 00087000
  88. * 00088000
  89. * *NOTE (BSAM, BDAM) 00089000
  90. * 00090000
  91. * OPERATION: 00091000
  92. * 00092000
  93. * UPON ENTRY TO NOTE, A CHECK IS MADE TO DETERMINE IF 00093000
  94. * THE DCB REFERS TO AN OS DISK. IF IT DOES, DMSROS IS 00094000
  95. * CALLED TO GET THE CURRENT TTR AND CONTROL IS RETURNED 00095000
  96. * TO THE USER. OTHERWISE, A CHECK IS MADE TO SEE IF A POINT 00096000
  97. * WAS JUST ISSUED. IF NOT, THE ITEM NUMBER OF NEXT 00097000
  98. * RECORD TO BE PROCESSED IS LOADED FROM FCBITEM INTO 00098000
  99. * REGISTER 1, REGISTER 1 IS DECREMENTED BY 1 AND 00099000
  100. * CONTROL IS RETURNED TO THE USER. IF A POINT WAS JUST 00100000
  101. * ISSUED, REGISTER 1 IS LOADED WITH THE VALUE IN 00101000
  102. * DCBFDAD AND CONTROL IS RETURNED TO THE USER. 00102000
  103. * 00103000
  104. * *CHECK (BDAM, BSAM, BPAM) 00104000
  105. * 00105000
  106. * OPERATION: 00106000
  107. * 00107000
  108. * CHECK IS CALLED BY DMSSQS, DMSSOP, AND OS CHECK MACROES. 00108000
  109. * UPON ENTRY, THE 00109000
  110. * DECB OR ECB IS TESTED FOR I/O ERRORS. IF THERE ARE 00110000
  111. * NO ERRORS, CONTROL IS RETURNED TO THE USER. IF AN 00111000
  112. * ECB END-OF-DATA-SET FLAG IS ON, THE EODAD ROUTINE IS 00112000
  113. * GIVEN CONTROL. IF AN EODAD ROUTINE IS NOT SPECIFIED OR 00113000
  114. * IF THE ERROR WAS OTHER THAN END OF FILE, THE SYNAD 00114000
  115. * ROUTINE IS GIVEN CONTROL. IF NO SYNAD ROUTINE IS 00115000
  116. * SPECIFIED, THE SYNADAF, DMSERR, AND SYNADRLS MACROES 00116000
  117. * ARE USED TO TYPE OUT ERROR MSG. DMSSCT120S AND THE TASK IS 00117000
  118. * ABENDED WITH A SYSTEM CODE. 00118000
  119. * 00119000
  120. * *POINT (BSAM, BDAM, BPAM) 00120000
  121. * 00121000
  122. * OPERATION: 00122000
  123. * 00123000
  124. * THE POINT ROUTINE IS CALLED BY THE USER. UPON ENTRY, 00124000
  125. * A CHECK IS MADE TO DETERMINE IF THE DCB REFERS TO 00125000
  126. * AN OS DISK. IF IT DOES, DMSROS IS CALLED TO RESET 00126000
  127. * THE CURRENT TTR, CKCONCAT IS CALLED AND CONTROL IS 00127000
  128. * RETURNED TO THE CALLER. OTHERWISE, 00128000
  129. * THE RELATIVE BLOCK ADDRESS IS LOADED INTO A REGISTER 00129000
  130. * AND RIGHT ADJUSTED. IF THE RIGHTMOST BYTE OF THE 00130000
  131. * BLOCK ADDRESS IS NOT SET TO ONE, A ONE IS SUBTRACTED 00131000
  132. * FROM THE REGISTER. THE CONTENTS OF THE REGISTER ARE 00132000
  133. * STORED IN THE LAST TWO BYTES OF DCBFDAD AND A 'P' IS 00133000
  134. * STORED IN THE FIRST BYTE. THEN CKCONCAT IS CALLED AND 00134000
  135. * CONTROL IS RETURNED TO THE USER. 00135000
  136. * 00136000
  137. * CKCONCAT: UPON ENTRY, A CHECK IS MADE TO DETERMINE 00137000
  138. * IF THE FCB MACLIB CONCAT BIT IS ON. IF NOT, CONTROL IS 00138000
  139. * RETURNED TO THE CALLER. IF IT IS, DCBRELAD+3 IS USED 00139000
  140. * TO SET THE CORRECT OS FST OR OS PDS POINTER IN THE 00140000
  141. * FCB AND CONTROL IS RETURNED TO THE CALLER. 00141000
  142. * 00142000
  143. * *FIND (TYPE C) (BPAM) 00143000
  144. * 00144000
  145. * OPERATION: 00145000
  146. * 00146000
  147. * FIND (TYPE C) MOVES SPECIFIED TTR TO THE ITEM NO. FIELD 00147000
  148. * OF THE FCB AND CALLS CKCONCAT. THEN IF THE DCB DOES 00148000
  149. * NOT REFER TO AN OS DISK, CONTROL IS RETURNED TO THE 00149000
  150. * CALLER. IF THE DCB REFERS TO AN OS DISK, DMSROS IS 00150000
  151. * CALLED TO UPDATE THE TTR AND CONTROL IS RETURNED TO 00151000
  152. * THE CALLER. 00152000
  153. * 00153000
  154. * 00154000
  155. *. 00155000
  156. * 00156000
  157. EJECT 00157000
  158. * 00158000
  159. * 00159000
  160. * 00160000
  161. DMSSCT START 0 00161000
  162. ENTRY DMSSCTNP,DMSSCTCK,DMSSCTCE 00162000
  163. SPACE 00163000
  164. USING IHADECB,R1 00164000
  165. USING IHADCB,R2 00165000
  166. USING OPSECT,R8 00166000
  167. USING NUCON,R0 00167000
  168. USING FCBSECT,R11 00168000
  169. USING DMSSCT,R12 BASE REG V0313 00169000
  170. USING DMSSCT,R15 00170000
  171. EJECT 00171000
  172. * 00172000
  173. * NOTE/POINT COMMON ENTRY 00173000
  174. * 00174000
  175. DMSSCTNP DS 0H NOTE: 0(R15) 00175000
  176. B NOTE 00176000
  177. CR R1,R0 IS THIS A CALL FOR FIND 00177000
  178. BE FINDC YES 00178000
  179. DROP R15 USE R12 AS BASE REG V0313 00179000
  180. * 00180000
  181. POINT STM R14,R12,12(R13) SAVE REGS 00181000
  182. L R12,16(,R13) SETUP BASE REG V0313 00182000
  183. LR R2,R1 GET V(DCB) 00183000
  184. L R11,DCBDEBAD GET ADDR OF DEB 00184000
  185. SH R11,=AL2(IHADEB-FCBINIT) GET ADDR OF FCB 00185000
  186. LA R5,NTPT2 GET RETURN ADDR @V201122 00186000
  187. TM FCBINIT,FCBOS IS THIS AN OS DATA SET @V201122 00187000
  188. BO CALLROS YES, GO TO DMSROS @V201122 00188000
  189. LR R4,R0 00189000
  190. L R5,0(R4) GET ITEM NO. 00190000
  191. CLI FCBDEV,FCBTAP IS DEVICE TAPE 00191000
  192. BE LESS1 YES, THEN DON'T SHIFT TTR 00192000
  193. SRL R5,8 00193000
  194. CLI 3(R4),X'01' SHOULD WE ADD ONE 00194000
  195. BNE LESS1 NO, DON'T ADD ONE P3036 00195000
  196. AH R5,FCBCOUT YES, ADD ONE BLOCK TO PTR P3036 00196000
  197. LESS1 BCTR R5,R0 SUBTRACT ONE FROM TTR 00197000
  198. STPTR STH R5,FCBOP ALLIGN ITEM NO. 00198000
  199. MVC DCBFDAD+6(2),FCBOP MOVE IT INTO DCBFDAD 00199000
  200. MVI DCBFDAD,C'P' INDICATE POINT 00200000
  201. NI DCBOFLGS,X'7F' 00201000
  202. BAL R14,CKCONCAT CHECK FOR PDS CONCATONATION V0313 00202000
  203. B NTPT2 RETURN 00203000
  204. NOTE DS 0H 00204000
  205. STM R14,R12,12(R13) SAVE REGS IN CALLERS SAVEAREA 00205000
  206. L R12,16(,R13) SETUP BASE REG V0313 00206000
  207. * 00207000
  208. * SOME HOUSEKEEPING 00208000
  209. * 00209000
  210. LR R2,R1 GET V(DCB) 00210000
  211. L R11,DCBDEBAD GET ADDR OF DEB 00211000
  212. SH R11,=AL2(IHADEB-FCBINIT) GET ADDR OF FCB 00212000
  213. * EXECUTE "NOTE": RECORD PRESENT I/O POINTERS 00213000
  214. SR R0,R0 INDICATE NOTE @V201122 00214000
  215. LA R5,SETR1 SET RETURN ADDRESS @V201122 00215000
  216. TM FCBINIT,FCBOS IS THIS AN OS FCB @V201122 00216000
  217. BNO GETITEM NO, DON'T GO TO DMSROS @V201122 00217000
  218. CALLROS DMSKEY NUCLEUS @V201122 00218000
  219. L R15,ADMSROS GET ADDRESS OF DMSROS @V201122 00219000
  220. BAL R14,16(R15) BAL TO DMSROS @V201122 00220000
  221. DMSKEY RESET @V201122 00221000
  222. BR R5 RETURN TO CALLER @V201122 00222000
  223. GETITEM EQU * GET ITEM NO. @V201122 00223000
  224. LH R0,FCBITEM GET FCBITEM 00224000
  225. N R0,HALFWORD 00225000
  226. CLI DCBFDAD,C'P' WAS A POINT ISSUED 00226000
  227. BNE SETCOUT NO, GO SAVE ITEM NO. 00227000
  228. CLC DCBFDAD+6(2),=XL2'FFF8' WAS THIS POINT ISSUED BY EOB 00228000
  229. BE SETCOUT YES, THEN IGNORE 00229000
  230. MVC FCBOP+1(3),DCBFDAD+5 ALLIGN ITEM NO. 00230000
  231. LH R3,FCBOP+2 GET ITEM NO. 00231000
  232. LA R0,1(R3) ADD ONE TO IT 00232000
  233. SETCOUT LR R3,R0 SAVE ITEM NO. 00233000
  234. SH R0,FCBCOUT GET ITEM NO. OF LAST BLK 00234000
  235. BNM ALIGN BRANCH ZERO OR POSITIVE @VA09010 00235000
  236. LR R0,R3 DO NOT ADJUST FOR LAST BLK 00236000
  237. ALIGN CLI FCBDEV,FCBTAP IS DEVICE TAPE 00237000
  238. BE SETR1 YES, THEN SET R1 IN SAVE AREA 00238000
  239. SLL R0,8 SHIFT TTR LEFT 8 FOR DISK 00239000
  240. SETR1 ST R0,24(,R13) SET R1 IN SAVE AREA 00240000
  241. NTPT2 EQU * EXIT FROM 'NOTE' OR 'POINT' ... 00241000
  242. ST R13,FCBR13 00242000
  243. LM R14,R12,12(R13) RESTORE REGS 00243000
  244. BR 14 RETURN 00244000
  245. HALFWORD DC F'65535' 00245000
  246. EJECT 00246000
  247. * "CHECK": DETERMINE STATUS OF PREVIOUS READ/WRITE OPERATION 00247000
  248. * 00248000
  249. DMSSCTCK DS 0H 00249000
  250. STM R14,R12,12(R13) SAVE REGS IN CALLER SAVEAREA 00250000
  251. USING DMSSCTCK,R12 00251000
  252. USING IHADECB,R6 00252000
  253. SPACE 00253000
  254. SPACE 00254000
  255. LR R12,R15 SETUP BASE REG 00255000
  256. LR R6,R1 SETUP DECB REG 00256000
  257. L R2,DECDCBAD GET V(DCB) 00257000
  258. CK1 TM DECSDECB,X'40' TEST ECB COMPLETION BIT 00258000
  259. BZ POSTERR SET ERROR BYTE 00259000
  260. CLI DECSDECB+3,0 TEST FOR I/O ERRORS 00260000
  261. BNE CK2 ERRORS. GOSH! 00261000
  262. CKRET EQU * 00262000
  263. LM R14,R12,12(R13) RESTORE USER6S REGS 00263000
  264. BR R14 RETURN TO USER 00264000
  265. POSTERR MVI DECSDECB+3,254 SET NOT COMPLETE ERROR CODE 00265000
  266. CK2 L R11,DCBDEBAD GET ADDR OF DEB IN FCB 00266000
  267. SH R11,=AL2(IHADEB-FCBINIT) GET ADDR OF FCB 00267000
  268. L R4,DECIOBPT GET ADDR OF IOB 00268000
  269. SH R4,=H'8' GET ADDR OF IOB PREFIX 00269000
  270. MVC IOBIOFLG(1),IOBBFLG(R4) GET PROPER IOB FLG 00270000
  271. DMSSCTCE EQU * 00271000
  272. LA R7,64 SET OUTPUT CODE 00272000
  273. TM IOBIOFLG,IOBOUT OUTPUT? 00273000
  274. BO GETSYNAD YES, USE ERROR EXIT 00274000
  275. LA R7,128 SET INPUT CODE 00275000
  276. CLI DECSDECB+3,X'0C' END-OF-FILE? 00276000
  277. BNE GETSYNAD PRINT I/O ERROR MSG 00277000
  278. L R1,DCBEODAD GET ADDR OF EOF RTN 00278000
  279. LA R15,0(R1) CLEAR HIGH ORDER BYTE 00279000
  280. CH R15,=H'1' IS EOF RTN SPECIFIED ? 00280000
  281. BNH GETSYNAD NO, ABEND V0277 00281000
  282. LM R0,R12,20(R13) RESTORE REGS V0277 00282000
  283. BALR R14,R15 CALL EXIT ROUTINE V0277 00283000
  284. LM R14,R12,12(R13) RESTORE V0277 00284000
  285. BR R14 RETURN TO CALLER V0277 00285000
  286. GETSYNAD L R1,DCBSYNAD GET SYNAD ADDR 00286000
  287. TM FCBIOSW,FCBCLOSE WAS ERROR DURING CLOSE @VA06290 00287000
  288. BO CKABEND YES, THEN DIE @VA06290 00288000
  289. LA R15,0(R1) ZERO HIGH ORDER BYTE @VA07120 00289000
  290. CH R15,=H'1' IS SYNAD ROUTINE SPECIFIED 00290000
  291. BH CKTYPE NO, ABEND 00291000
  292. CKABEND LA R15,SYNABEND GET ADDR OF ABEND ROUTINE 00292000
  293. CKTYPE ST R6,20(R13) SET R0 TO A(DECB) 00293000
  294. TM DCBCIND2,1 BSAM? 00294000
  295. BZ SYNADRTN YES, CONTINUE 00295000
  296. L R8,AOPSECT GET ADDR OF CMSOP 00296000
  297. XC 0(32,R8),0(R8) CLEAR FIRST 32 BYTES 00297000
  298. MVC CMSOP(4),DECSDECB SETUP STATUS BITS 00298000
  299. LA R9,16(R8) GET ADDR OF FAKE CCW 00299000
  300. ST R9,FILENAME USE IT FOR ADDR OF CCW 00300000
  301. MVC 14(2,R8),IOBCSW+6 SET LENGTH IN CSW 00301000
  302. ST R8,20(R13) SET R0 TO A(STATUS BITS) 00302000
  303. MVI 20(R13),8 SET DISPLACEMENT TO CCW ADDR 00303000
  304. SYNADRTN ST R2,24(R13) SET DCB ADDR IN REG1 SAVE AREA 00304000
  305. STC R7,24(R13) SET I/O CODE IN SAVE AREA 00305000
  306. CLC DECSDECB+1(2),=XL2'2000' IS THIS NO SPACE FOUND 00306000
  307. BNE ERREXIT NO, THEN CONTINUE 00307000
  308. MVI 24(R13),X'41' YES, THEN SIGNAL NO SPACE FOUND 00308000
  309. ERREXIT EQU * 00309000
  310. LM R0,R12,20(R13) RESTORE REGS 00310000
  311. BALR R14,R15 CALL EXIT ROUTINE 00311000
  312. LM R14,R1,12(R13) RESTORE BDAM REGS V0213 00312000
  313. TM X'1A'(R1),DA DCBDSORG= DA SPECIFIED V0300 00313000
  314. BCR 1,R14 YES, RETURN TO CALLER V0213 00314000
  315. LM R14,R12,12(R13) RESTORE REGS 00315000
  316. BR R14 RETURN TO USER 00316000
  317. SYNABEND BALR R14,R0 SETUP BASE REG 00317000
  318. USING *,R14 00318000
  319. SYNADAF ACSMETH=BSAM 00319000
  320. LA R4,54(R1) SET ADDR OF MSG. 00320000
  321. DMSERR MF=I,NUM=120,LET=S,SUB=(CHARA,(R4)), X00321000
  322. TEXT='.............................' 00322000
  323. SYNADRLS 00323000
  324. ABEND 1 00324000
  325. DROP R14 00325000
  326. EJECT 00326000
  327. FINDC STM R14,R12,12(R13) SAVE REGS 00327000
  328. LR R12,R15 SETUP BASE REG 00328000
  329. USING DMSSCT,R12 00329000
  330. LR R2,R1 SET DCB BASE REG V0313 00330000
  331. L R11,DCBDEBAD GET DEB ADDRESS V0313 00331000
  332. SH R11,=AL2(IHADEB-FCBINIT) GET FCB ADDRESS V0313 00332000
  333. MVC FCBITEM(2),DCBRELAD+1 SET ITEM NO. V0313 00333000
  334. BAL R14,CKCONCAT CHECK FOR CONCATONATION V0313 00334000
  335. TM FCBINIT,FCBOS OS FCB? @V201122 00335000
  336. BNO FINDCRET NO, RETURN TO CALLER @V201122 00336000
  337. L R6,DCBRELAD SAVE CONCAT BYTE @V201122 00337000
  338. MVI DCBRELAD+3,0 SETUP FOR POINT @V201122 00338000
  339. LA R0,DCBRELAD GET ADDR OF TTR @V201122 00339000
  340. BAL R5,CALLROS BRANCH TO OS POINT @V201122 00340000
  341. STC R6,DCBRELAD+3 RESTORE CONCAT @V201122 00341000
  342. FINDCRET LM R14,R12,12(R13) RESTORE REGS @V201122 00342000
  343. SR R15,R15 RETURN 00343000
  344. BR R14 RETURN TO CALLER 00344000
  345. CKCONCAT TM FCBINIT,FCBCATML CONCATONATION SPECIFIED V0313 00345000
  346. BCR 14,R14 NO, RETURN V0313 00346000
  347. SR R6,R6 ZERO REG FOR INSERT V0313 00347000
  348. IC R6,DCBRELAD+3 GET CONCAT NO. V0313 00348000
  349. NI FCBINIT,255-FCBOS TURN OFF FCB OS SWITCH @V201122 00349000
  350. L R15,MACDIRC(R6) GET ADDRESS OF FCB OR PDS @V201122 00350000
  351. LTR R15,R15 OS FCB? @V201122 00351000
  352. BNM GETMACNM NO, GET MACLIB NAME @V201122 00352000
  353. OI FCBINIT,FCBOS TURN ON FCB OS SWITCH @V201122 00353000
  354. ST R15,FCBOSFST SET OS FST POINTER @V201122 00354000
  355. BR R14 RETURN TO CALLER @V201122 00355000
  356. GETMACNM SLL R6,1 MULTIPLY BY 2 @V201122 00356000
  357. ST R15,FCBPDS SET NEW PDS ADDRESS @V201122 00357000
  358. LA R5,MACLIBL(R6) GET ADDR OF NAME IN MAC LIST @V201122 00358000
  359. MVC FCBDSNAM(8),0(R5) SET FCB TO NEW PDS NAME V0313 00359000
  360. BR R14 RETURN TO CALLER V0313 00360000
  361. EJECT 00361000
  362. ********************************************************************** 00362000
  363. * 00363000
  364. * DCB LAYOUT 00364000
  365. * 00365000
  366. ********************************************************************** 00366000
  367. DCBD DSORG=(PS) 00367000
  368. EJECT 00368000
  369. NUCON 00369000
  370. CMSCB 00370000
  371. IO 00371000
  372. EJECT 00372000
  373. REGEQU 00373000
  374. UTSAV EQU IOBCSW 00374000
  375. NOTEWD EQU SAVER14 00375000
  376. END 00376000