Table of Contents

DMSOR2 Source

References

Source Listing

DMSOR2.ASSEMBLE.txt
  1. OR2 TITLE 'DMSOR2 (CMS) VM/370 - RELEASE 6' 00001000
  2. SPACE 2 00002000
  3. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00003000
  4. *. * 00004000
  5. * MODULE NAME: * 00005000
  6. * DMSOR2 * 00006000
  7. * * 00007000
  8. * FUNCTION: * 00008000
  9. * THE FUNCTION OF DMSOR2 IS TO RELOCATE ALL DTF TABLE * 00009000
  10. * ADDRESS CONSTANTS FROM THE ASSEMBLED ADDRESSES TO * 00010000
  11. * EXECUTABLE STORAGE ADDRESSES. THIS IS ACCOMPLISHED BY * 00011000
  12. * SUBTRACTING FROM THE BAL ADDRESS PROVIDED BY THE * 00012000
  13. * OPENR MACRO IN REGISTER 0 A FOUR BYTE ASSEMBLED * 00013000
  14. * ADDRESS CONSTANT OF THE BAL ADDRESS. ANY DIFFERENCE * 00014000
  15. * INDICATES THAT THE PROGRAM HAS BEEN RELOCATED. * 00015000
  16. * RELOCATION IS PERFORMED FOR DTFCP AND DTFDI DTFS. * 00016000
  17. * * 00017000
  18. * ATTRIBUTES: * 00018000
  19. * DISCONTIGUOUS SHARED SEGMENT * 00019000
  20. * REENTRANT * 00020000
  21. * * 00021000
  22. * ENTRY POINTS: * 00022000
  23. * DMSOR2 * 00023000
  24. * * 00024000
  25. * ENTRY CONDITIONS: * 00025000
  26. * DMSOR2 IS INVOKED IN RESPONSE TO AN SVC 2 (FETCH) * 00026000
  27. * FROM $$BOPENR (DMSOR1). AT ENTRY TO DMSOR2, R0 POINTS * 00027000
  28. * TO A LIST OF DTF TABLES THAT REQUIRE ADDRESS * 00028000
  29. * MODIFICATION. * 00029000
  30. * * 00030000
  31. * EXIT CONDITIONS: * 00031000
  32. * * 00032000
  33. * NORMAL EXITS: * 00033000
  34. * SVC 2 TO $$BOPEN TO OPEN THE DTFS * 00034000
  35. * AFTER THE ADCONS HAVE BEEN MODIFIED. * 00035000
  36. * * 00036000
  37. * * 00037000
  38. * ABNORMAL EXITS: * 00038000
  39. * NONE * 00039000
  40. * * 00040000
  41. * ERROR MESSAGES ISSUED BY THIS PROGRAM: * 00041000
  42. * NONE * 00042000
  43. * * 00043000
  44. * CALLS TO OTHER ROUTINES: * 00044000
  45. * DMSBOP (SVC 2) * 00045000
  46. * * 00046000
  47. * EXTERNAL REFERENCES: * 00047000
  48. * REGEQU * 00048000
  49. * * 00049000
  50. * CALLED BY: * 00050000
  51. * INVOKED IN RESPONSE TO SVC 2 (FETCH FOR $$BOPNR2 FROM * 00051000
  52. * DMSOR1) * 00052000
  53. * * 00053000
  54. * TABLES AND WORK AREAS: * 00054000
  55. * ADCON TABLE - A TABLE CONSISTING OF INDIVIDUAL TABLES * 00055000
  56. * USED TO MODIFY DIFFERENT DTF TYPES. EACH* 00056000
  57. * HAS A UNIQUE NAME TO IDENTIFY IT. * 00057000
  58. * EACH TABLE HAS THE FOLLOWING LAYOUT: * 00058000
  59. * * 00059000
  60. * BYTE 1 CONTAINS THE COUNT OF ADCONS * 00060000
  61. * TO BE MODIFIED. * 00061000
  62. * * 00062000
  63. * BYTE 2 CONTAINS THE BYTE COUNT FROM * 00063000
  64. * THE LOGIC MODULE ADDRESS TO * 00064000
  65. * THE FIRST ADCON. * 00065000
  66. * * 00066000
  67. * SUBSEQUENT BYTES CONTAIN THE BYTE * 00067000
  68. * COUNT NEEDED TO ADDRESS THE NEXT * 00068000
  69. * ADCON. * 00069000
  70. * * 00070000
  71. * REGISTER USAGE: * 00071000
  72. * * 00072000
  73. * TABLEREG - 0 TABLE PARAMETER - INPUT * 00073000
  74. * BASEREG - 3 DTF TABLE ADDRESS * 00074000
  75. * MODREG - 4 DTF TABLE ADDRESS CONSTANT DISP. TABLE* 00075000
  76. * ADDRREG - 5 ADDRESS CONSTANT RELOCATE REGISTER * 00076000
  77. * COUNTREG - 6 COUNT OF DTF ADCONS TO BE CHANGED * 00077000
  78. * LINKREG - 7 LINK REGISTER TO ADDRESS MOD. RTN. * 00078000
  79. * TYPEREG - 8 USED TO DETERMINE DTF TYPE * 00079000
  80. * DTFREG - 9 DTF TYPE TABLE * 00080000
  81. * CCWREG - 10 POINTER TO START OF EACH DTF TABLE * 00081000
  82. * WORKREG1 - 11 TABLE PARAMETER WORK REGISTER * 00082000
  83. * R12 - BASE REGISTER * 00083000
  84. * RELOCREG - 13 RELOCATION FACTOR * 00084000
  85. * R14 - UNUSED * 00085000
  86. * R15 - UNUSED * 00086000
  87. * * 00087000
  88. * OPERATION: * 00088000
  89. * DMSOR2 PERFORMS THE FOLLOWING FUNCTIONS: * 00089000
  90. * 1. DETERMINES IF RELOCATION IS RE- * 00090000
  91. * QUIRED. IF NOT EXIT IS MADE TO * 00091000
  92. * $$BOPEN TO OPEN THE FILE. * 00092000
  93. * * 00093000
  94. * 2. DETERMINES WHAT DTF TYPE IS THE * 00094000
  95. * OBJECT OF THE OPENR MACRO. * 00095000
  96. * * 00096000
  97. * MODIFIES THE ADCONS IN THE * 00097000
  98. * DTFCP AND DTFDI DTFS. * 00098000
  99. * * 00099000
  100. * 3. A CHECK IS MADE TO SEE IF MORE * 00100000
  101. * FILES REMAIN TO BE OPENED. IF * 00101000
  102. * SO, ADDRESS MODIFICATION IS PER-* 00102000
  103. * FORMED ON THOSE DTFS AND THEN AN* 00103000
  104. * SVC 2 IS ISSUED TO FETCH $$BOPEN* 00104000
  105. *. PERFORM THE ACTUAL OPEN. * 00105000
  106. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00106000
  107. DMSOR2 CSECT @V305066 00107000
  108. TABLEREG EQU 0 POINTER TO TABLE SUPPLIED BY OPENR MACRO @V305066 00108000
  109. GR1 EQU 1 WORK REGISTER @V305066 00109000
  110. GR2 EQU 2 WORK REGISTER @V305066 00110000
  111. BASEREG EQU 3 CONTAINS ADDRESS OF THE ACTIVE DTF TABLE @V305066 00111000
  112. MODREG EQU 4 CONTAINS ADDRESS OF DTF DISPLACEMENT TABLE @V305066 00112000
  113. ADDRREG EQU 5 REG USED TO RELOCATE ADDRESS CONSTANTS @V305066 00113000
  114. COUNTREG EQU 6 CONTAINS COUNT OF ADDRESSES TO BE MODIFIED @V305066 00114000
  115. LINKREG EQU 7 LINK REGISTER @V305066 00115000
  116. TYPEREG EQU 8 REGISTER USED TO DETERMINE DTF TYPE @V305066 00116000
  117. DTFREG EQU 9 DTF TYPE TABLE @V305066 00117000
  118. CCBREG EQU 10 POINT TO DTFDA BUILDING ROUTINE @V305066 00118000
  119. WORKREG1 EQU 11 POINTER TO DTF TABLE LIST @V305066 00119000
  120. RELOCREG EQU 13 REGISTER CONTAINS THE RELOCATION FACTOR @V305066 00120000
  121. GRD EQU 15 WORK REG - VALIDATE DTF ADDRESS @V305066 00121000
  122. CCWREG EQU CCBREG @V305066 00122000
  123. DC CL8'$$BOPNR2' @V305066 00123000
  124. BALR R12,0 EST. ADDRESSABILITY @V305066 00124000
  125. USING *,R12 @V305066 00125000
  126. EJECT 00126000
  127. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00127000
  128. * THE ADDRESS OF THE DTF TABLE ADDRESSES IS PASSED IN REGISTER 0. * 00128000
  129. * THE RELOCATION FACTOR IS DETERMINED BY SUBTRACTING THE ASSEMBLED * 00129000
  130. * DTF TABLE ADDRESS FROM THE RELOCATED DTF TABLE ADDRESS. IF THE * 00130000
  131. * DIFFERENCE IS ZERO, NO RELOCATION IS NECESSARY, THEREFORE THE OPEN * 00131000
  132. * TRANSIENT IS CALLED IMMEDIATELY. * 00132000
  133. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00133000
  134. SPACE 2 00134000
  135. LR WORKREG1,TABLEREG PTR TO DTF TABLE ADDR. @V305066 00135000
  136. NEXT L CCWREG,0(WORKREG1) LOAD DTF TABLE ADDRESS @V305066 00136000
  137. LA BASEREG,16(CCWREG) INCREM 16 INTO DTF @V305066 00137000
  138. TM 0(BASEREG),RELOC HAS FILE BEEN RELOCATED @V305066 00138000
  139. BO RETURN YES RETURN @V305066 00139000
  140. OI 0(BASEREG),RELOC TURN ON RELOCATION BIT @V305066 00140000
  141. EJECT 00141000
  142. *********************************************************************** 00142000
  143. * EACH DTF TYPE HAS IN ITS TABLE A UNIQUE CODE LOCATED IN DECIMAL * 00143000
  144. * BYTE 20. THIS CODE IS USE TO DETERMINE WHICH DTF TYPE IS TO BE * 00144000
  145. * RELOCATED. * 00145000
  146. * AFTER THE DTF TYPE IS ESTABLISHED EXITS TO THE ADDRESS MODIFICATION * 00146000
  147. * SUBROUTINE ARE IN ONE OF TWO FORMS. * 00147000
  148. * THE FIRST FORM IS A BRANCH INSTRUCTION. THIS WILL CAUSE THE ADDRESS* 00148000
  149. * MODIFICATION SUBROUTINE TO EXIT TO THE ENDING ROUTINE. THE ENDING * 00149000
  150. * ROUTINE WILL DETERMINE IF ADDITIONAL DTF TABLES NEED MODIFICATION. * 00150000
  151. * THE SECOND FORM IS A BRANCH AND LINK. THIS WILL CAUSE THE ADDRESS * 00151000
  152. * MODIFICATION SUBROUTINE TO RETURN TO THE NEXT SEQUENTIAL INSTRUCTION* 00152000
  153. * THIS IS NEEDED BECAUSE OF ADDITIONAL CHECKS WITHIN THE TABLE TO * 00153000
  154. * DETERMINE IF FURTHER ADDRESS MODIFICATION IS NEEDED. FOLLOWING THE * 00154000
  155. * LAST BAL WILL BE A BRANCH TO THE ENDING ROUTINE. * 00155000
  156. *********************************************************************** 00156000
  157. SPACE 2 00157000
  158. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00158000
  159. * DTF TYPE 31 DTFCP TAPE * 00159000
  160. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00160000
  161. SPACE 2 00161000
  162. CPTEST CLI 4(BASEREG),DTFCPT IS THIS DTFCP TAPE @V305066 00162000
  163. BE CPDEC BRANCH NOT CP TAPE @V305066 00163000
  164. CLI 4(BASEREG),DTFDI IS THIS DTFDI TYPE @V305066 00164000
  165. BE DEVINDT YES @V305066 00165000
  166. BH RETURN INVALID DTF TYPE @V305066 00166000
  167. TM 15(BASEREG),CPTAPIP TEST FOR DTFCP TAPE INPUT @V305066 00167000
  168. LA MODREG,CPTBL1 LOAD INPUT TBL @V305066 00168000
  169. BO CPDEC1 BRANCH IF INPUT @V305066 00169000
  170. LA MODREG,CPTBL2 LOAD OUTPUT TABLE @V305066 00170000
  171. CPDEC1 BAL LINKREG,MODLOOP GO TO MODIFY ADDRESSES @V305066 00171000
  172. CLC 6(2,CCWREG),CON1 FURTHER RELOC NECESSARY? @V305066 00172000
  173. BNE RETURN NOT NECESSARY, RETURN @V305066 00173000
  174. LA MODREG,CPTBL3 LOAD CP TAPE TABLE @V305066 00174000
  175. B MODEXIT MODIFY LAST TABLE @V305066 00175000
  176. SPACE 2 00176000
  177. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00177000
  178. * DTF TYPE 32 DTFCP DISK * 00178000
  179. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00179000
  180. SPACE 2 00180000
  181. CPDEC LA MODREG,CPTBL4 ADCON TABLE @V305066 00181000
  182. BAL LINKREG,MODLOOP BR TO MAKE MODIFICATION @V305066 00182000
  183. TM 44(CCWREG),CPTAPIP IS THIS AN INPUT TABLE @V305066 00183000
  184. BZ CPDEC2 BRANCH IF OUTPUT @V305066 00184000
  185. LA MODREG,CPTBL5 MODIFY EOF ADDRESS @V305066 00185000
  186. BAL LINKREG,MODLOOP BR TO MAKE ADD MODIFICATION @V305066 00186000
  187. CPDEC2 LR BASEREG,CCWREG REST. BASEREG TO TABLE BEG. @V305066 00187000
  188. CLI 30(BASEREG),FF IS BYTE 30 ALL ONES @V305066 00188000
  189. BNE CPDEC3 NO BRANCH @V305066 00189000
  190. LA MODREG,CPTBL6 ADCON TABLE @V305066 00190000
  191. BAL LINKREG,MODLOOP BR TO MAKE ADD MODIFICATION @V305066 00191000
  192. CLC 6(2,CCWREG),CON1 TEST FOR SYS IPT @V305066 00192000
  193. BNE RETURN BRANCH IF NOT @V305066 00193000
  194. LA MODREG,CPTBL7 MAKE FURTHER MODIFICATION @V305066 00194000
  195. B MODEXIT MODIFY SYSIPT SAVE AREA @V305066 00195000
  196. CPDEC3 LA MODREG,CPTBL8 BYTE 30 ALL ONES @V305066 00196000
  197. BAL LINKREG,MODLOOP BR TO MAKE ADD MODIFICATION @V305066 00197000
  198. TM 44(CCWREG),CPTAPIP TEST FOR OUTPUT FILE @V305066 00198000
  199. BO RETURN BRANCH IF INPUT @V305066 00199000
  200. LA MODREG,CPTBL9 ADCON TABLE @V305066 00200000
  201. B MODEXIT MODIFY OUTPUT AREAS @V305066 00201000
  202. SPACE 2 00202000
  203. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00203000
  204. * DTF TYPE 33 DTFDI 00204000
  205. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00205000
  206. SPACE 2 00206000
  207. DEVINDT LA MODREG,DITBL ADDR. OF DTFDI TABLE @V305066 00207000
  208. BAL LINKREG,MODLOOP MOD. ADDRS., RET. TO NSI @V305066 00208000
  209. TM 44(CCWREG),CPTAPIP TEST IF INPUT FILE @V305066 00209000
  210. BZ DIOUT NO @V305066 00210000
  211. CLI 120(BASEREG),BRINST TEST IF BRANCH INSTRUCTION @V305066 00211000
  212. BE RETURN YES, BRANCH @V305066 00212000
  213. BAL LINKREG,MODLOOP MODIFY WLR ADDRESS @V305066 00213000
  214. CLI 4(BASEREG),BRINST TEST IF BRANCH INSTRUCTION @V305066 00214000
  215. BE RETURN YES, BRANCH @V305066 00215000
  216. B MODEXIT MODIFY ERROPT ADDRES @V305066 00216000
  217. DIOUT LA MODREG,DITBLOUT @V305066 00217000
  218. B MODEXIT @V305066 00218000
  219. EJECT 00219000
  220. *********************************************************************** 00220000
  221. * E N D I N G R O U T I N E * 00221000
  222. * * 00222000
  223. * A CHECK IS MADE TO DETERMINE IF MORE DTF TABLES REQUIRE ADDRESS * 00223000
  224. * MODIFICATION. IF SO, RETURN IS MADE TO THE START OF THIS TRANSIENT.* 00224000
  225. * IF NOT, A SUPERVISOR CALL 2 IS MADE TO CALL IN THE OPEN TRANSIENT. * 00225000
  226. *********************************************************************** 00226000
  227. RETURN LA WORKREG1,4(WORKREG1) BUMP TO NEXT DTF TABLE @V305066 00227000
  228. CLI 0(WORKREG1),ENDTAB END OF DTF TABLE ? @V305066 00228000
  229. BNE NEXT NO, PROCESS NEXT TABLE @V305066 00229000
  230. EXIT LA R1,BOPEN PREPARE TO CALL $$BOPEN @V305066 00230000
  231. SVC SVC2 CALL IN OPEN MONITOR @V305066 00231000
  232. EJECT 00232000
  233. *********************************************************************** 00233000
  234. * A D D R E S S M O D I F I C A T I O N S U B R O U T I N E * 00234000
  235. * * 00235000
  236. * BASEREG CONTAINS ADDRESS OF THE ADCON TO BE MODIFIED * 00236000
  237. * COUNTREG CONTAINS NUMBER OF ADDRESSES TO BE MODIFIED * 00237000
  238. * DTFREG CONTAINS THE DIFFERENCE FROM ONE ADDRESS TO NEXT ADDRESS * 00238000
  239. * RELOCREG CONTAINS THE RELOCATION FACTOR * 00239000
  240. * MODREG POINTS TO OR WITHIN DISPLACEMENT TABLE * 00240000
  241. * ADDRREG IS THE WORK REGISTER * 00241000
  242. * THE ORIGINAL CONTENTS OF MODREG POINTS TO THE START OF THE CURRENT * 00242000
  243. * ADCON TABLE. THE FIRST BYTE OF EACH TABLE CONTAINS THE COUNT OF * 00243000
  244. * ADDRESSES TO BE MODIFIED. THIS COUNT IS PLACED IN COUNTREG. THE * 00244000
  245. * SECOND BYTE IS THE DISPLACEMENT BYTE COUNT OF THE FIRST ADCON FROM * 00245000
  246. * THE LOGIC MODULE ADDRESS IN THE DTF TABLE. EACH TABLE BYTE THERE- * 00246000
  247. * AFTER IS THE BYTE COUNT BETWEEN SUBSEQUENT ADCONS. EACH BYTE COUNT* 00247000
  248. * IS ADDED TO BASEREG TO ADDRESS EACH ADCON. THE ADCON TO BE * 00248000
  249. * MODIFIED IS LOADED INTO ADDRREG. THE RELOCATION FACTOR IN RELOCREG * 00249000
  250. * IS ADDED TO THE ADCON WITH THE RESULTANT EXECUTABLE ADDRESS STORED * 00250000
  251. * BACK INTO THE ASSEMBLED ADCON LOCATION. * 00251000
  252. *********************************************************************** 00252000
  253. SPACE 2 00253000
  254. MODEXIT LA LINKREG,RETURN LAST MOD. TO TABLE ENTRY @V305066 00254000
  255. MODLOOP SR DTFREG,DTFREG CLEAR DISPLACEMENT REG @V305066 00255000
  256. SR COUNTREG,COUNTREG CLEAR BCT REG @V305066 00256000
  257. IC COUNTREG,0(MODREG) INSERT COUNT @V305066 00257000
  258. LR GR1,CCWREG PT. BEG. OF DTF TABLE @V305066 00258000
  259. LR GR2,GR1 LOAD MAX ADDRESS REGISTER @V305066 00259000
  260. SR GRD,GRD ZERO REGISTER @V305066 00260000
  261. VALIDATE IC GRD,0(COUNTREG,MODREG) INSERT ADDR DISP. @V305066 00261000
  262. AR GR2,GRD ADD TO START OF TABLE @V305066 00262000
  263. BCT COUNTREG,VALIDATE DECREM COUNT AND VALID ADD @V305066 00263000
  264. SVC SVC26 DO ADDRESS VALIDATION @V305066 00264000
  265. IC COUNTREG,0(MODREG) RESTORE COUNT @V305066 00265000
  266. MODLOOP1 LA MODREG,1(MODREG) POINT TO DISPLACEMENT @V305066 00266000
  267. IC DTFREG,0(MODREG) INSERT DISPLACEMENT FACTOR @V305066 00267000
  268. AR BASEREG,DTFREG ADD DISPLACE TO BASE @V305066 00268000
  269. CLC 1(3,BASEREG),ZERO COMPARE ADDR.TO ZERO @V305066 00269000
  270. BE MODLOOP2 ZERO ADDRESS, BYPASS UPDATE @V305066 00270000
  271. L ADDRREG,0(BASEREG) LOAD ADCON TO BE MODIFIED @V305066 00271000
  272. AR ADDRREG,RELOCREG ADD RELOCATION FACTOR @V305066 00272000
  273. ST ADDRREG,0(BASEREG) STORE RELOCATED ADCON @V305066 00273000
  274. MODLOOP2 BCT COUNTREG,MODLOOP1 RELOCATE NEXT ADDRESS @V305066 00274000
  275. LA MODREG,1(MODREG) ADD 1 TO POINT TO NEXT TABLE @V305066 00275000
  276. BR LINKREG RETURN TO ASKING ROUTINE @V305066 00276000
  277. CON1 DC X'0002' @V305066 00277000
  278. EJECT 00278000
  279. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00279000
  280. * * 00280000
  281. * CONSTANTS * 00281000
  282. * * 00282000
  283. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00283000
  284. SPACE 2 00284000
  285. BOPEN DC CL8'$$BOPEN' OPEN MONITOR @V305066 00285000
  286. ZERO DC XL3'000000' @V305066 00286000
  287. EJECT 00287000
  288. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00288000
  289. * * 00289000
  290. * EQUATES * 00290000
  291. * * 00291000
  292. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 00292000
  293. SPACE 2 00293000
  294. RELOC EQU X'08' RELOCATION BIT IN DTF @V305066 00294000
  295. DTFCPT EQU X'32' DTFCP TYPE = 32 @V305066 00295000
  296. DTFDI EQU X'33' DTFDI @V305066 00296000
  297. CPTAPIP EQU X'80' DTFCP TAPE INPUT FILE @V305066 00297000
  298. FF EQU X'FF' @V305066 00298000
  299. BRINST EQU X'47' BRANCH INSTRUCTION @V305066 00299000
  300. ENDTAB EQU X'0A' END OF LIST OF DTF TABLES @V305066 00300000
  301. SVC2 EQU 2 SVC 2 @V305066 00301000
  302. SVC26 EQU 26 SVC 26 @V305066 00302000
  303. EJECT 00303000
  304. *********************************************************************** 00304000
  305. * A D C O N T A B L E * 00305000
  306. * THE FOLLOWING TABLE CONSISTS OF INDIVIDUAL TABLES USED TO MODIFY * 00306000
  307. * DIFFERENT DTF TYPES. EACH INDIVIDUAL TABLE HAS A UNIQUE NAME TO * 00307000
  308. * IDENTIFY IT. * 00308000
  309. * THE TABLE LAYOUT IS AS FOLLOWS- * 00309000
  310. * BYTE 1 CONTAINS THE COUNT OF ADCONS TO BE MODIFIED. * 00310000
  311. * BYTE 2 CONTAINS THE BYTE COUNT FROM THE LOGIC MODULE ADDRESS TO * 00311000
  312. * THE FIRST ADCON * 00312000
  313. * SUBSEQUENT BYTES CONTAIN THE BYTE COUNT NEEDED TO ADDRESS THE NEXT * 00313000
  314. * ADCON. * 00314000
  315. *********************************************************************** 00315000
  316. SPACE 2 00316000
  317. CPTBL1 DC X'03080808' DTFCP TAPE INPUT @V305066 00317000
  318. CPTBL2 DC X'021008' DTFCP TAPE OUTPUT @V305066 00318000
  319. CPTBL3 DC X'020808' @V305066 00319000
  320. CPTBL4 DC X'011C' DTFCP DISK TABLE1 @V305066 00320000
  321. CPTBL5 DC X'0114' DTFCP DISK @V305066 00321000
  322. CPTBL6 DC X'0130' @V305066 00322000
  323. CPTBL7 DC X'020808' @V305066 00323000
  324. CPTBL8 DC X'0458080808' @V305066 00324000
  325. CPTBL9 DC X'03080808' @V305066 00325000
  326. DITBL DC X'061C1418080808' COMMON TABLE FOR DTFDI @V305066 00326000
  327. DC X'0178' @V305066 00327000
  328. DC X'0104' @V305066 00328000
  329. DITBLOUT DC X'03080808' TABLE FOR DTFDI OUTPUT @V305066 00329000
  330. EJECT 00330000
  331. REGEQU @V305066 00331000
  332. DMSOR2 CSECT @V305066 00332000
  333. LTORG @V305066 00333000
  334. END 00335000