User Tools

Site Tools


ibm:vm370-lib:cms:dmsina.assemble_src

โˆ’Table of Contents

DMSINA Source

References

Source Listing

DMSINA.ASSEMBLE.txt
  1. INA TITLE 'DMSINA (CMS) VM/370 - RELEASE 6' 00001000
  2. SPACE 2 00002000
  3. *. 00003000
  4. * MODULE NAME: 00010000
  5. * 00011000
  6. * DMSINA (ABBREV) 00012000
  7. * 00013000
  8. * FUNCTION: 00014000
  9. * 00015000
  10. * HANDLES EITHER USER DEFINED SYNONYM ABBREVIATIONS 00016000
  11. * AND/OR SYSTEM DEFINED SYNONYM ABBREVIATIONS FOR 00017000
  12. * COMMAND NAMES. 00018000
  13. * 00019000
  14. * ATTRIBUTES: 00020000
  15. * 00021000
  16. * NUCLEUS, REENTRANT, CALLED VIA BALR R14, R15 00022000
  17. * 00023000
  18. * ENTRY POINTS: 00024000
  19. * 00025000
  20. * DMSINA (ABBREV) 00026000
  21. * | DMSINA1S (FIRSTAB) 00026100
  22. * | DMSINALT (LASTAB) 00026200
  23. * 00027000
  24. * ENTRY CONDITIONS: 00028000
  25. * 00029000
  26. * GPR0,GPR1 = THE TYPED IN SYNONYM FOR WHICH A MATCH IS TO 00030100
  27. * BE FOUND, LEFT JUSTIFIED. 00032000
  28. * 00033000
  29. * EXIT CONDITIONS: 00034000
  30. * 00035000
  31. * NORMAL - 00036000
  32. * GPR15 = 0 00037100
  33. * GPR0,GPR1 = THE MATCH TO THE TYPED IN SYNONYM 00037200
  34. * 00041000
  35. * ERROR 00042000
  36. * GPR15 = 1 - NO MATCH FOUND 00043000
  37. * 2 - MATCH FOUND AND IS EXACTLY THE SAME 00044000
  38. * AS THE ABBREVIATION. 00045000
  39. * 00046000
  40. * CALLS TO OTHER ROUTINES: 00047000
  41. * 00048000
  42. * NONE. 00049000
  43. * 00050000
  44. * EXTERNAL REFERENCES: 00051000
  45. * 00052000
  46. * NUCON - NUCLEUS AREA CONSTANTS 00053000
  47. * | BALRSAVE (IN DMSNUC) 00053100
  48. * | USABRV TABLE (IN DMSNUC) 00053200
  49. * 00054000
  50. * TABLES/WORKAREAS: 00055000
  51. * 00056000
  52. * FIRSTAB - STANDARD CMS ABBREVIATION TABLE 00057000
  53. * USABRV - IDENTIFIES LOCATION, ETC. OF USER DEFINED 00058000
  54. * ABBREVIATIONS, IF ANY 00059000
  55. * 00060000
  56. * NOTES: NONE 00061100
  57. * 00061200
  58. * OPERATION: 00061300
  59. * 00061400
  60. * 1. COMPUTES THE NUMBER OF CHARACTERS IN THE TYPED IN 00061500
  61. * COMMAND SYNONYM (IN GPR0,GPR1). 00061600
  62. * 00061700
  63. * 2. IF A USER-DEFINED SYNONYM TABLE EXISTS, SEARCH IT FOR 00061800
  64. * A MATCH WITH THE TYPED IN NAME. OTHERWISE, GO TO 4. 00061900
  65. * 00062000
  66. * 3. SEARCH USER SYNONYM TABLE FOR MATCH. IF ONE IS FOUND, 00062100
  67. * LOAD IT INTO GPR0,GPR1 AND EXIT WITH RETURN CODE 0, 00062200
  68. * UNLESS ONE OF THE FOLLOWING: 00062300
  69. * -GIVEN SYNONYM SHORTER THAN MINIMUM ALLOWED TRUNCATION - 00062400
  70. * GO BACK AND KEEP SEARCHING THE TABLE. 00062500
  71. * -ABBREVIATION IS NOT ALLOWED ('NOABBREV' FLAG), AND THE 00062600
  72. * GIVEN SYNONYM IS A TRUNCATED VERSION - GO BACK AND 00062700
  73. * KEEP SEARCHING THE TABLE. 00062800
  74. * -THE GIVEN SYNONYM IS THE SAME AS THE REAL COMMAND 00062900
  75. * NAME - SET RETURN CODE 2 AND EXIT. 00063000
  76. * 00063100
  77. * 4. DETERMINE IF THE STANDARD CMS SYNONYM TABLE IS TO BE 00063200
  78. * SEARCHED. IF NOT ('NOABBREV' FLAG OR 'NOSTDSYN' FLAG), 00063300
  79. * EXIT WITH RETURN CODE 1. 00063400
  80. * 00063500
  81. * 5. SEARCH STANDARD CMS SYNONYM TABLE FOR MATCH. IF ONE IS 00063600
  82. * FOUND, LOAD IT INTO GPR0,GPR1 AND EXIT WITH RETURN CODE 0, 00063700
  83. * UNLESS ONE OF THE FOLLOWING: 00063800
  84. * -GIVEN SYNONYM SHORTER THAN MINIMUM ALLOWED TRUNCATION - 00063900
  85. * GO BACK AND KEEP SEARCHING THE TABLE. 00064000
  86. * -GIVEN SYNONYM IS THE SAME AS THE REAL COMMAND 00064100
  87. * NAME - SET RETURN CODE 2 AND EXIT. 00064200
  88. * 00064300
  89. * 6. IF NO ACCEPTABLE MATCH IS FOUND IN EITHER TABLE, EXIT 00064400
  90. * WITH RETURN CODE 1. 00064500
  91. *. 00096000
  92. EJECT 00097000
  93. *********************************************************************** 00098000
  94. * * 00099000
  95. * 'ABBREV' * 00100000
  96. * * 00101000
  97. * CMS ABBREVIATION-CHECKER, WITH STANDARD (DEFAULT) TABLE. * 00102000
  98. * * 00103000
  99. * HANDLES EITHER USER-DEFINED "SYNONYM" ABBREVIATIONS (17 BYTES) * 00104000
  100. * OR STANDARD "SHORT-FORM" ABBREVIATIONS (9 BYTES) OR BOTH. * 00105000
  101. * * 00106000
  102. * 'ABBREV' TO BE CALLED (BY SVCINT) WHEN * 00107000
  103. * A COMMAND 'AS GIVEN' IS 'NOT FOUND'. * 00108000
  104. * * 00109000
  105. * CALLING SEQUENCE ... * 00110000
  106. * * 00111000
  107. * AT ENTRY, R0 & R1 (TOGETHER) MUST CONTAIN AN 8-BYTE QUANTITY * 00112000
  108. * (PRESUMABLY AN ABBREVIATION) FOR WHICH * 00113000
  109. * A FULL 8-BYTE 'MATCH' IS TO BE FOUND. * 00114000
  110. * (E.G. 'A' = 'ASSEMBLE', 'ED' = 'EDIT' ETC.) * 00115000
  111. * * 00116000
  112. * AT ENTRY ..... * 00117000
  113. * (R0 & R1 MUST HOLD 8-BYTE QUANTITY) * 00118000
  114. * L R15,=A(ABBREV) * 00119000
  115. * BALR R14,R15 * 00120000
  116. * * 00121000
  117. * ON RETURN: * 00122000
  118. * IF A 'MATCH' WAS FOUND (E.G. 'ASSEMBLE' FOR 'A'), * 00123000
  119. * R15 = 0, AND THE 8-BYTE 'MATCH' HAS BEEN * 00124000
  120. * SUBSTITUTED IN R0 & R1 FOR ITS ABBREVIATION. * 00125000
  121. * (ALL OTHER REGISTERS ETC. PRESERVED) * 00126000
  122. * * 00127000
  123. * IF NO 'MATCH' IS FOUND, RETURNS WITH R15 = 1. * 00128000
  124. * (ALL OTHER REGISTERS ETC. PRESERVED) * 00129000
  125. * * 00130000
  126. * IF A 'MATCH' IS FOUND, BUT THE 8-BYTE MATCH IS * 00131000
  127. * EXACTLY THE SAME AS THE ABBREVIATION, * 00132000
  128. * RETURNS WITH R15 = 2, AND OTHER REG. PRESERVED * 00133000
  129. * * 00134000
  130. * LOOKS IN USER-DEFINED ABBREVIATION-TABLE (IF ANY) FIRST. * 00135000
  131. * * 00136000
  132. * DOESN'T USE STANDARD TABLE AT ALL IF 'NOABBREV' FLAG 00137100
  133. * OR 'NOSTDSYN' FLAG IS SET. 00137200
  134. * * 00138000
  135. * NOTE - STANDARD (DEFAULT) TABLE EASILY CHANGED BY * 00139000
  136. * CHANGING 'ABRV' CARDS & RE-ASSEMBLING * 00140000
  137. * (ACCORDING TO REQUIREMENTS & JUDGMENT OF ANY INSTALLATION) * 00141000
  138. * * 00142000
  139. * NOTE: THE 'NOSTDSYN' FLAG AND THE USER SYNONYM TABLES 00143100
  140. * ARE SET UP BY THE SYNONYM COMMAND, A TRANSIENT 00143200
  141. * AREA ROUTINE. 00143300
  142. * * 00146000
  143. *********************************************************************** 00147000
  144. EJECT 00148000
  145. MACRO 00151000
  146. ABRV &NAME,&NUM 00152000
  147. DC CL8'&NAME' 00153000
  148. DC AL1(&NUM) 00154000
  149. MEND 00155000
  150. SPACE 2 00156000
  151. DMSINA CSECT MODULE NAME @V305032 00157100
  152. ENTRY ABBREV CALLED BY THIS NAME @V305032 00157200
  153. ENTRY DMSINA1S EXTERNAL NAME FOR 'FIRSTAB' @V305032 00157300
  154. ENTRY DMSINALT EXTERNAL NAME FOR 'LASTAB' @V305032 00157400
  155. * 00162000
  156. * ENTER HERE ... 00163000
  157. USING NUCON,R0 REFERENCE NUCLEUS CONSTANTS 00165000
  158. USING ABBREV,R15 ENTER HERE: @V305032 00166100
  159. ABBREV STM R0,R9,BALRSAVE SAVE ALL REGISTERS WE'LL USE, @V305032 00166200
  160. L R9,AUSABRV REFERENCE REAL 'USABRV' TABLE @V305032 00166300
  161. USING INADSECT,R9 ... @V305032 00166400
  162. * COMPUTE (IN R2) THE NUMBER OF NON-BLANK BYTES (LESS 1) ... 00167000
  163. LA R2,7 START WITH 7, 00168000
  164. LA R3,BALRSAVE(R2) START WITH EIGHTH CHARACTER, @V305032 00169100
  165. BLOOP CLI 0(R3),C' ' IS 'LAST' CHARACTER BLANK ? 00170000
  166. BNE CNTFND BNE IF NOT, WE'VE GOT R2. 00171000
  167. BCTR R3,0 DECREMENT R3 FOR NEXT TIME, 00172000
  168. BCT R2,BLOOP ITERATE DOWN TO 1 CHARACTER, 00173000
  169. CNTFND EQU * R2 NOW HOLDS NO. OF NON-BLANK CHARACTERS LESS 1 .. 00174000
  170. LA R6,1(,R2) GET ACTUAL COUNT IN R6, IN ... @V305032 00175100
  171. SLL R6,24 LEFTMOST BYTE FOR FAST CLM USE @V305032 00176100
  172. LM R3,R5,USABRV4 SET UP R3-R5 AS NEEDED, @V305032 00191100
  173. LTR R3,R3 IS THERE ANY TABLE AT ALL ? 00192000
  174. BZ CHEKFLG BZ IF NOT, CHECK FLAG ... 00193000
  175. LA R8,BXLE1 R8 MUST POINT TO BXLE1, @V305032 00194100
  176. CLCLOOP EX R2,EXCLC DO WE HAVE A MATCH ? @V305032 00194600
  177. BE APMSYN TRANSFER IF APPARENTLY YES. @V305032 00195100
  178. BXLE1 BXLE R3,R4,CLCLOOP ITERATE THRU USER-TABLE. 00198000
  179. * (DROPS THRU BXLE IF NO MATCH FOUND IN USER-TABLE) 00199000
  180. * 00200000
  181. CHEKFLG EQU * CHECK FLAG TO MAKE SURE OK TO USE REGULAR TABLE ... 00201000
  182. TM OPTFLAGS,NOSTDSYN+NOABBREV NO ABBREV'S WANTED ? @V305032 00202100
  183. BNZ ERROR1 IF YES, GIVE UP NOW (ERROR 1). @V305032 00203100
  184. * OK TO USE REGULAR TABLE (SPECIAL FLAG NOT SET) ... 00204000
  185. OKREG LM R3,R5,REGTABA SET UP REGULAR-TABLE ADDRESSES ETC. 00205000
  186. DROP R9 (THRU WITH INADSECT) @V305032 00206100
  187. LA R7,APMABB SET R7 FOR APPARENT MATCH, @V305032 00206200
  188. CH R2,H3 CHECK BYTE-COUNT-LESS-1, @V305032 00206300
  189. BL SET13 TRANSFER IF ABB. IS 1 TO 3 BYTES @V305032 00206400
  190. LR R9,R7 SET R9 IN CASE ABB. = 4 BYTES, @V305032 00206500
  191. BE SET4UP TRANSFER IF ABB. IS 4 BYTES. @V305032 00206600
  192. LA R9,CLM5UP SET R9 FOR ABB. = 5 TO 8 BYTES @V305032 00206700
  193. IC R2,EXTBL-4(R2) GET MODIFIER FOR EXECUTED CLM @V305032 00206800
  194. SET4UP LA R8,BXLE4UP LET R8 POINT TO THE RIGHT BXLE @V305032 00206900
  195. * LOOP TO CHECK ABBREVIATION OF FOUR OR 5-TO-8 BYTES: 00207000
  196. CL4UP CL R0,0(,R3) COMPARE FIRST <OR ONLY> 4 BYTES @V305032 00207100
  197. BER R9 IF MATCH, GO TO APMABB OR CLM5UP @V305032 00207200
  198. BXLE4UP BXLE R3,R4,CL4UP ITERATE THRU ABBREVIATION TABLE @V305032 00207300
  199. B ERROR1 ERROR 1 IF NOT FOUND. @V305032 00207400
  200. * ABBREVIATION IS 5 TO 8 BYTES AND THE FIRST FOUR MATCH: 00207500
  201. CLM5UP EX R2,EXCLM1 CHECK THE REMAINING BYTE(S), @V305032 00207600
  202. BNER R8 "BNE BXLE4UP" IF NO MATCH. @V305032 00207700
  203. * HERE FOR AN APPARENT MATCH IN STANDARD ABBREVIATION TABLE: 00207800
  204. APMABB CLM R6,8,8(R3) IS GIVEN NUMBER OF BYTES ENOUGH? @V305032 00207900
  205. BLR R8 IF NOT, GO BACK TO SOME BXLE. @V305032 00208000
  206. B CHEKMTCH IF OK, GO TO "CHEKMTCH" ETC. @V305032 00208100
  207. SPACE 00208200
  208. * ABBREVIATION IS 1 TO 3 BYTES: 00208300
  209. SET13 IC R2,EXTBL(R2) GET MODIFIER FOR EXECUTED CLM @V305032 00208400
  210. LA R8,BXLE13 LET R8 POINT TO THE RIGHT BXLE @V305032 00208500
  211. * LOOP TO CHECK 1-TO-3-BYTE ABBREVIATION: 00208600
  212. CLM13 EX R2,EXCLM0 CHECK 1-TO-3-BYTE ABBREVIATION @V305032 00208700
  213. BER R7 "BE APMABB" IF APPARENT MATCH @V305032 00208800
  214. BXLE13 BXLE R3,R4,CLM13 ITERATE THRU ABBREVIATION TABLE @V305032 00208900
  215. * 00209000
  216. * (DROPS THRU BXLE IF NO MATCH IN REGULAR TABLE EITHER) 00209100
  217. * 00209200
  218. ERROR1 LM R0,R9,BALRSAVE RESTORE ALL REGISTERS WE USED, @V305032 00209300
  219. LA R15,ERR1 ERROR NO. 1 @V305066 00209400
  220. LTR R15,R15 SET CONDITION-CODE, @V305032 00209500
  221. BR R14 AND EXIT. 00215000
  222. SPACE 2 00216000
  223. * HERE FOR AN APPARENT MATCH IN SYNONYM TABLE: 00217200
  224. APMSYN CLM R6,8,16(R3) GIVEN NUMBER OF BYTES ENOUGH ? @V305032 00217400
  225. BLR R8 IF NOT, GO BACK TO BXLE1 @V305032 00217600
  226. TM OPTFLAGS,NOABBREV ABBREVIATION ALLOWED? @V305032 00217800
  227. BZ CHEKMTCH BRANCH IF SO @V305032 00218000
  228. CLC 8(8,R3),BALRSAVE FULL SYNONYM GIVEN? @V305032 00218200
  229. BNER R8 'BNE' IF NOT, RETURN TO BXLE1 @V305032 00218400
  230. CHEKMTCH CLC 0(8,R3),BALRSAVE SYNONYM SAME AS REAL NAME? @V305032 00218600
  231. BE ERROR2 BE IF YES (RATHER STRANGE). 00221000
  232. * 00222000
  233. LM R0,R1,0(R3) SUBSTITUTE 'MATCH' FOR @V305032 00223100
  234. * ABBREVIATION, 00223600
  235. LM R2,R9,BALRSAVE+8 RESTORE THE OTHER REGISTERS, @V305032 00224100
  236. SR R15,R15 CLEAR ERROR-CODE, 00225000
  237. BR R14 AND EXIT. 00226000
  238. * 00227000
  239. ERROR2 LM R0,R9,BALRSAVE RESTORE ALL REGISTERS WE USED, @V305032 00228100
  240. LA R15,2 ERROR NO. 2 00229000
  241. LTR R15,R15 SET CONDITION-CODE, @V305032 00229100
  242. BR R14 AND EXIT. 00230000
  243. * 00231000
  244. DS 0F CONSTANTS AND EXECUTED @V305032 00232100
  245. * INSTRUCTIONS: 00232200
  246. EXCLC CLC BALRSAVE(*-*),8(R3) TO CHECK SYNONYMS @V305032 00232300
  247. H3 DC H'03' @V305032 00232400
  248. EXCLM0 CLM R0,*-*,0(R3) CHECK 1ST 4 BYTES FOR A MATCH @V305032 00232500
  249. EXCLM1 CLM R1,*-*,4(R3) CHECK 2ND 4 BYTES FOR A MATCH @V305032 00232600
  250. EXTBL DC AL1(X'08',X'0C',X'0E',X'0F') FOR CLM USE @V305032 00232700
  251. EJECT 00234000
  252. * TABLE GIVING WHEREABOUTS OF USER-DEFINED-ABBREVIATIONS, IF ANY 00235000
  253. * 00236000
  254. * PLEASE KEEP THE FOLLOWING SEVEN AD-CON'S IN ORDER ........ 00237100
  255. * (MUST CORRESPOND TO "LIVE" USABRV TABLE IN DMSNUC) 00237200
  256. INADSECT DSECT ... @V305032 00237300
  257. DC F'0' NO. DBL-WORDS FREE-STORAGE IN @V305032 00237400
  258. * USER-TABLE. 00237500
  259. USABRV4 DC A(*-*) ADDRESS OF 1ST ITEM IN @V305032 00237600
  260. * USER-ABRV-TABLE 00237700
  261. DC F'17' (FOR BXLE) 00241000
  262. DC A(*-*) ADDRESS OF LAST ITEM IN USER-ABRV-TABLE. 00242000
  263. * 00243000
  264. REGTABA DC A(FIRSTAB) REFERENCE 'REGULAR' TABLE ... 00244000
  265. DC F'9' (FOR BXLE) 00245000
  266. DC A(LASTAB) (FOR BXLE) 00246000
  267. * 00247000
  268. DMSINA CSECT REVERT TO CSECT ADDRESSABILITY @V305032 00247100
  269. SPACE 2 00248000
  270. * NOTE - USER-DEFINED ABBREVIATION TABLE (17 BYTES PER ITEM) 00249000
  271. * IS A 'SYNONYM' TABLE, OF THE FOLLOWING FORM (FOR EACH ONE)... 00250000
  272. * DC CL8'CMS-NAME' CMS SYSTEM COMMAND - E.G. ERASE 00251000
  273. * DC CL8'USER-SYN' USER-SYNONYM FOR SAME - E.G. DELETE 00252000
  274. * DC AL1(NUMBER) MINIMUM NO. OF BYTES ACCEPTABLE FOR MATCH 00253000
  275. * 00254000
  276. SPACE 2 00255000
  277. * STANDARD (DEFAULT) CMS ABBREVIATION-TABLE ... 00256000
  278. * (REVISE AND RE-ASSEMBLE AT PLEASURE OF INSTALLATION) 00257000
  279. * 00258000
  280. * THE NUMBER WITH EACH NAME IS THE MINIMUM NUMBER OF BYTES 00259000
  281. * REQUIRED FOR AN ABBREVIATION OF THAT NAME, 00260000
  282. * TO SAFELY IDENTIFY IT WITHOUT AMBIGUITY. 00261000
  283. * 00262000
  284. * FOR EXAMPLE, COULD SPECIFY 2, 3, OR 4 BYTES FOR 'ACCESS' 00263100
  285. * (2 FOR ABSOLUTE MINIMUM, 3 OR 4 IF DESIRED) 00264100
  286. * E.G. ... ABRV ACCESS,2 OR ABRV ACCESS,3 ETC. 00265100
  287. * 00266000
  288. * 00267000
  289. * 'FIRSTAB' MUST PRECEDE FIRST ONE, 'LASTAB' MUST FOLLOW LAST. 00268000
  290. * OTHERWISE, THEY CAN BE IN ANY REASONABLE ORDER 00269000
  291. * (E.G. FREQUENTLY-USED FLAVORS FIRST) 00270000
  292. * 00271000
  293. * NOTE - 9 BYTES FOR EACH ITEM IS THE BRIEFEST THIS CAN BE MADE. 00272000
  294. * 00273000
  295. * EVEN SO, THIS TABLE SHOULD BE KEPT TO A MINIMUM TO SAVE SPACE. 00274000
  296. * 00275000
  297. * NOTE - SOME POSSIBLE ABBREVIATIONS ARE PURPOSELY OMITTED 00276000
  298. * EITHER BECAUSE THE COMMAND IS VERY SHORT OR SELDOM USED, 00277100
  299. * OR FOR GREATER USER SAFETY AGAINST AN ACCIDENTAL ERROR 00278100
  300. * FOR A COMMAND SUCH AS 'FORMAT' OR 'ERASE' WHICH CLEARS 00279100
  301. * USER FILES. 00280100
  302. EJECT 00283000
  303. FIRSTAB EQU * MUST PRECEDE THE FIRST ONE ..... 00284000
  304. DMSINA1S EQU FIRSTAB EXTERNAL NAME FOR 'FIRSTAB' @V305032 00284100
  305. SPACE 2 00285000
  306. ABRV ASSEMBLE,1 A 00286000
  307. ABRV ACCESS,2 AC 00287000
  308. ABRV AMSERV,TWO AM @V305066 00287100
  309. ABRV BASIC,3 BAS BASIC ABBREVIATION @VA08182 00288000
  310. ABRV COBOL,2 CO 00289000
  311. ABRV COMPARE,3 COM 00290000
  312. ABRV COPYFILE,4 COPY 00291000
  313. ABRV DIRMAINT,4 DIRM @VMI0052 00291050
  314. ABRV DOSLKED,FOUR DOSL @V305066 00291100
  315. ABRV EDIT,1 E 00292000
  316. ABRV EXEC,2 EX 00293000
  317. ABRV FETCH,THREE FET @V305066 00294000
  318. ABRV FILEDEF,2 FI 00295000
  319. ABRV GENMOD,1 G 00296000
  320. ABRV GLOBAL,2 GL 00297000
  321. ABRV INCLUDE,2 IN 00298000
  322. ABRV LISTFILE,1 L 00299000
  323. ABRV LOADMOD,5 LOADM 00300000
  324. ABRV MACLIB,3 MAC 00301000
  325. ABRV MODMAP,3 MOD 00302000
  326. ABRV MOVEFILE,4 MOVE 00303000
  327. ABRV OPTION,TWO OP @V305066 00303100
  328. ABRV PLIOPT,FOUR PLIO @V305066 00303200
  329. ABRV PRINT,2 PR 00304000
  330. ABRV PUNCH,2 PU 00305000
  331. ABRV QUERY,1 Q 00306000
  332. ABRV RENAME,1 R 00307000
  333. ABRV RELEASE,3 REL 00308000
  334. ABRV READCARD,4 READ 00309000
  335. ABRV SCRIPT,2 SC 00310000
  336. ABRV SVCTRACE,4 SVCT 00311000
  337. ABRV SYNONYM,3 SYN 00312000
  338. ABRV TYPE,1 T 00313000
  339. ABRV TXTLIB,3 TXT 00314000
  340. ABRV UPDATE,1 U 00315000
  341. ABRV VSBASIC,THREE VSB @V305066 00315100
  342. SPACE 2 00316000
  343. LASTAB EQU *-9 MUST FOLLOW THE LAST ONE. 00317000
  344. DMSINALT EQU LASTAB EXTERNAL NAME FOR 'LASTAB' @V305032 00317100
  345. ERR1 EQU 1 ERROR 1 @V305066 00317200
  346. TWO EQU 2 @V305066 00317300
  347. THREE EQU 3 @V305066 00317400
  348. FOUR EQU 4 @V305066 00317500
  349. EJECT 00318000
  350. NUCON 00319000
  351. EJECT 00320000
  352. REGEQU 00321000
  353. END 00322000
ibm/vm370-lib/cms/dmsina.assemble_src.txt ยท Last modified: 2023/08/06 13:35 by Site Administrator