User Tools

Site Tools


cdc:nos2.source:opl871:mac1

Table of Contents

MAC1

Table Of Contents

  • [00005] MACREL - SYSTEM MACRO INTERFACE ROUTINES.
  • [00009] MACREL - SYSTEM MACRO INTERFACE ROUTINES.
  • [00026] MACREL - SYSTEM MACRO INTERFACE ROUTINES.
  • [00058] MACREL. - UNDEFINED MACRO PROCESSOR.
  • [00078] MACREL= - ILLEGAL ARGUMENT PROCESSOR.
  • [00113] ABORT - ABORT JOB / ENDRUN - END CENTRAL PROGRAM.
  • [00151] BKSP - BACKSPACE 1 LOGICAL RECORD.
  • [00189] BKSPRU - BACKSPACE PHYSICAL RECORDS.
  • [00233] CHECKPT - TAKE CHECKPOINT DUMP.
  • [00273] CLOCK - OBTAIN TIME OF DAY.
  • [00308] CLOSE - CLOSE FILE.
  • [00403] CLOSER - CLOSE REEL.
  • [00487] CONSOLE - COMMUNICATE WITH THE *K* AND *L* DISPLAY.
  • [00519] DATE - OBTAIN DATE.
  • [00553] EDATE - EDIT DATE FROM PACKED FORMAT.
  • [00590] ETIME - EDIT TIME FROM PACKED FORMAT.
  • [00627] EVICT - RELEASE FILE SPACE.
  • [00665] FILINFO - FILE INFORMATION.
  • [00702] GETJN - GET JOB SEQUENCE NUMBER.
  • [00730] JDATE - OBTAIN JULIAN DATE.
  • [00765] MACHID - GET TWO CHARACTER MACHINE *ID*.
  • [00794] MEMORY - REQUEST MEMORY.
  • [00883] MESSAGE - SEND MESSAGE.
  • [00936] MOVE - MOVE BLOCK OF CENTRAL MEMORY WORDS.
  • [00977] MOVEI - MOVE A BLOCK OF CM WORDS.
  • [01023] OPEN - OPEN FILE FOR PROCESSING.
  • [01185] PDATE - RETURN PACK DATE AND TIME.
  • [01214] PFD - PERMANENT FILE REQUEST DELAYS.
  • [01285] POSMF - POSITION MULTI-FILE SET.
  • [01324] READ - READ FILE TO *CIO* BUFFER.
  • [01362] READC - READ CODED LINE IN *C* FORMAT.
  • [01414] READCW - READ FILE NON-STOP WITH CONTROL WORDS.
  • [01460] READEI - READ FILE TO END OF INFORMATION.
  • [01497] READH - READ CODED LINE IN *H* FORMAT.
  • [01548] READLS - READ FILE WITH LIST.
  • [01586] READN - READ FILE NON-STOP FOR TAPES.
  • [01623] READNS - READ FILE NON-STOP (READ TO EOF).
  • [01661] READO - READ ONE WORD.
  • [01706] READS - READ CODED LINE TO CHARACTER BUFFER.
  • [01759] READSKP - READ FILE AND SKIP.
  • [01808] READW - READ DATA TO WORKING BUFFER.
  • [01859] RECALL - PLACE PROGRAM IN RECALL STATUS.
  • [01897] RENAME - RENAME ASSIGNED FILE.
  • [01935] REQUEST - REQUEST ASSIGNMENT OF EQUIPMENT TO FILE.
  • [01964] REQWEST - REQUEST AUTO ASSIGNMENT OF EQUIPMENT.
  • [02005] RETURN - RETURN FILE TO SYSTEM.
  • [02049] REWIND - REWIND FILE.
  • [02087] REWRITE - REWRITE DATA FROM *CIO* BUFFER.
  • [02126] REWRITF - REWRITE END OF FILE.
  • [02165] REWRITR - REWRITE END OF RECORD.
  • [02204] ROLLOUT - ROLLOUT THE JOB.
  • [02234] ROUTE - ROUTE A FILE TO A SPECIFIC DISPOSITION.
  • [02272] RPHR - READ PHYSICAL RECORD TO *CIO* BUFFER.
  • [02310] RPHRLS - READ PRUS WITH LIST.
  • [02348] RTIME - OBTAIN REAL TIME CLOCK READING.
  • [02385] SETJCI - SET JOB CONTROL INFORMATION.
  • [02433] SKIPB - SKIP RECORDS BACKWARDS.
  • [02474] SKIPEI - SKIP TO END OF INFORMATION.
  • [02512] SKIPF - SKIP RECORDS FORWARD.
  • [02554] SKIPFB - SKIP FILES BACKWARD.
  • [02597] SKIPFF - SKIP FILES FORWARD.
  • [02639] SYSTEM - REQUEST SYSTEM FUNCTION.
  • [02683] TIME - OBTAIN ACCUMULATED CPU TIME.
  • [02717] UNLOAD - UNLOAD FILE.
  • [02755] VERSION - RETURN THE OPERATING SYSTEM VERSION NAME.
  • [02791] WPHR - WRITE 1 PHYSICAL RECORD FROM *CIO* BUFFER.
  • [02829] WRITE - WRITE DATA FROM *CIO* BUFFER.
  • [02867] WRITEC - WRITE CODED LINE IN *C* FORMAT.
  • [02902] WRITECW - WRITE FILE NON-STOP WITH CONTROL WORDS.
  • [02941] WRITEF - WRITE END OF FILE.
  • [02979] WRITEH - WRITE CODED LINE IN *H* FORMAT.
  • [03019] WRITEN - WRITE FILE NON-STOP FOR TAPES.
  • [03058] WRITEO - WRITE ONE WORD.
  • [03093] WRITER - WRITE END OF RECORD.
  • [03131] WRITES - WRITE CODED LINE FROM CHARACTER BUFFER.
  • [03171] WRITEW - WRITE DATA FROM WORKING BUFFER.
  • [03216] XARG - CRACK CONTROL STATEMENT PARAMETERS.
  • [03276] XCDD - CONVERT INTEGER TO DECIMAL DISPLAY CODE.
  • [03310] XCFD - CONVERT INTEGER TO F10.3 FORMAT.
  • [03343] XCHD - CONVERT HEXIDECIMAL INTEGER TO DISPLAY CODE.
  • [03397] XCOD - CONVERT INTEGER TO OCTAL DISPLAY CODE.
  • [03430] XDXB - CONVERT WORD OF DISPLAY CODE DIGITS TO BINARY.
  • [03484] XPRC - CALL USER SPECIFIED *SYMPL* PROCEDURE.
  • [03526] XREL - COMMON DECK INTERFACE ROUTINES.
  • [03530] XREL - COMMON DECK INTERFACE ROUTINES.
  • [03539] XREL. - UNDEFINED COMMON DECK PROCESSOR.
  • [03560] XREL= - ILLEGAL ARGUMENT PROCESSOR.
  • [03595] XSFN - SPACE FILL NAME.
  • [03631] XSFW - SPACE FILL WORD.
  • [03707] XWOD - CONVERT WORD TO OCTAL DISPLAY CODE.
  • [03748] XZAP - *Z* ARGUMENT PROCESSOR.

Source Code

MAC1.txt
  1. IDENT MACREL
  2. SYSCOM B1
  3. ENTRY MACREL.
  4. ENTRY MACREL=
  5. TITLE MACREL - SYSTEM MACRO INTERFACE ROUTINES.
  6. *COMMENT SYSTEM MACRO INTERFACE ROUTINES.
  7. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  8. MACREL SPACE 4,10
  9. ** MACREL - SYSTEM MACRO INTERFACE ROUTINES.
  10. *
  11. * T. R. RAMSEY. 76/08/08.
  12. * M. D. PICKARD 77/03/14.
  13. * J. D. BRANHAM. 78/09/12.
  14. *
  15. MACREL SPACE 4,10
  16. ** *MACREL* IS A COLLECTION OF RELOCATABLE MODULES THAT
  17. * PROVIDE THE INTERFACE BETWEEN HIGHER LEVEL LANGUAGE MODULES
  18. * AND THE SYSTEM MACROS.
  19. *
  20. * *FORTRAN* CALLING SEQUENCES ARE SHOWN IN EACH MODULE ALONG
  21. * WITH OTHER PERTINENT INFORMATION, E.G., ENTRY, EXIT.
  22. *
  23. * ALSO *SYMPL* CALLING SEQUENCES ARE SHOWN IN EACH MODULE
  24. * ALONG WITH THE APPROPRIATE *SYMPL* DATA TYPES NEEDED
  25. * FOR ENTRY/EXIT.
  26. TITLE MACREL - SYSTEM MACRO INTERFACE ROUTINES.
  27. MACREL SPACE 4,10
  28. ** *MACREL* MODULES TRANSLATE PARAMETERS IN HIGHER LEVEL
  29. * LANGUAGE CALLING SEQUENCES INTO MACRO CALLING SEQUENCES.
  30. * *FORTRAN* CALLING SEQUENCES MENTIONED ARE EQUIVALENT TO
  31. * COBOL (ENTER USING), *SYMPL*, ETC.
  32. *
  33. * ENTRY *FORTRAN* CALL AND FUNCTION REFERENCE CALLING
  34. * SEQUENCES USE THE ACTUAL PARAMETER LIST, CALL BY
  35. * REFERENCE CALLING SEQUENCE WHERE -
  36. * (A1) = FWA OF PARAMETER ADDRESS LIST.
  37. * ((A1)) = FIRST PARAMETER
  38. * ((A1+1)) = SECOND PARAMETER
  39. * . .
  40. * . .
  41. * . .
  42. * ((A1+N)) = N-TH PARAMETER
  43. * ((A1+N+1)) = 0 (ZERO) (NOMINALLY)
  44. * (X1) = FIRST PARAMETER
  45. *
  46. * EXIT (X6) = FUNCTION RESULT.
  47. * (X7) = SECOND WORD OF TWO WORD RESULT, E.G., COMPLEX.
  48. *
  49. * NEEDS EACH MODULE CONTAINS A CALL TO A MACRO WHOSE NAME IS
  50. * THE SAME AS THE MODULE (EXCEPT WHERE NOTED). THESE
  51. * MACROS ARE DEFINED IN *PSSTEXT* AND *NOSTEXT*.
  52. *
  53. * NOTE B1 IS SET TO ONE UPON ENTRY TO EACH MODULE
  54. *
  55. * OTHER *MACREL* IS A COLLECTION OF RELOCATABLE MODULES
  56. * COMBINED INTO ONE *MODIFY* DECK ENTITY NAMED *LIB*.
  57. MACREL. SPACE 4,10
  58. ** MACREL. - UNDEFINED MACRO PROCESSOR.
  59. *
  60. * ENTRY (X1) = MACRO NAME IN 0L FORMAT.
  61. *
  62. * USES X - 6.
  63. * A - 6.
  64. * B - 1.
  65. *
  66. * MACROS ABORT, MESSAGE.
  67.  
  68.  
  69. MACREL. SUBR ENTRY/EXIT
  70. SB1 1
  71. BX6 X1
  72. SA6 MACA+3
  73. MESSAGE MACA,LOCAL,R
  74. ABORT
  75.  
  76. MACA DATA C* MACREL - UNDEFINED MACRO - FILL-IN.*
  77. MACREL= SPACE 4,10
  78. ** MACREL= - ILLEGAL ARGUMENT PROCESSOR.
  79. *
  80. * ENTRY (X1) = MACRO NAME IN 0L FORMAT.
  81. * (X2) = THE ILLEGAL ARGUMENT.
  82. *
  83. * USES X - 0, 1, 2, 6.
  84. * A - 6.
  85. * B - 1.
  86. *
  87. * CALLS SFW.
  88. *
  89. * MACROS ABORT, MESSAGE.
  90.  
  91.  
  92. MACREL= SUBR ENTRY/EXIT
  93. SB1 1
  94. BX0 X2 SAVE SECOND ARGUMENT
  95. LX1 -6
  96. SX2 1R-
  97. BX1 X1+X2
  98. RJ =XSFW
  99. BX1 X0
  100. SA6 MACB
  101. RJ =XSFW
  102. SA6 MACB+3
  103. MESSAGE MACB,LOCAL,R
  104. ABORT
  105.  
  106. MACB DATA C* FILL-IN - ILLEGAL ARGUMENT >FILL-IT-IN<.*
  107.  
  108. END
  109. IDENT ABEND
  110. ENTRY ABORT
  111. ENTRY ENDRUN
  112. SYSCOM B1
  113. TITLE ABORT - ABORT JOB / ENDRUN - END CENTRAL PROGRAM.
  114. *COMMENT ABORT/ENDRUN.
  115. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  116. ABORT SPACE 4,10
  117. *** ABORT - ABORT JOB.
  118. *
  119. * CALL ABORT
  120. *
  121. * ABORT; (*SYMPL* CALL)
  122. *
  123. * USES B - 1.
  124. *
  125. * MACROS ABORT.
  126.  
  127.  
  128. ABORT SUBR ENTRY/EXIT
  129. SB1 1
  130. ABORT
  131. ENDRUN SPACE 4,10
  132. *** ENDRUN - END CENTRAL PROGRAM.
  133. *
  134. * CALL ENDRUN.
  135. *
  136. * ENDRUN; (*SYMPL* CALL)
  137. *
  138. * USES B - 1.
  139. *
  140. * NOTE - A *STOP;* IN *SYMPL* DOES THE SAME THING.
  141.  
  142.  
  143. ENDRUN SUBR ENTRY/EXIT
  144. SB1 1
  145. ENDRUN
  146.  
  147. END
  148. IDENT BKSP
  149. ENTRY BKSP
  150. SYSCOM B1
  151. TITLE BKSP - BACKSPACE 1 LOGICAL RECORD.
  152. *COMMENT BACKSPACE 1 LOGICAL RECORD.
  153. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  154. BKSP SPACE 4,10
  155. *** BKSP - BACKSPACE 1 LOGICAL RECORD.
  156. *
  157. * CALL BKSP (FILE,R)
  158. *
  159. * ENTRY (FILE) = FIRST WORD OF THE FET.
  160. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  161. *
  162. * BKSP(FILE,R); ( *SYMPL* CALL )
  163. *
  164. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  165. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  166. *
  167. * USES X - 2.
  168. * A - 2.
  169. * B - 1.
  170. *
  171. * MACROS BKSP.
  172.  
  173.  
  174. BKSP SUBR ENTRY/EXIT
  175. SB1 1
  176. SA2 A1+B1 ADDRESS OF RECALL
  177. SA2 X2 RECALL VALUE
  178. NZ X2,BKS1 IF RECALL
  179. BKSP X1
  180. EQ BKSPX
  181.  
  182. BKS1 BKSP X1,R
  183. EQ BKSPX
  184.  
  185. END
  186. IDENT BKSPRU
  187. ENTRY BKSPRU
  188. SYSCOM B1
  189. TITLE BKSPRU - BACKSPACE PHYSICAL RECORDS.
  190. *COMMENT BACKSPACE PHYSICAL RECORDS.
  191. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  192. BKSPRU SPACE 4,10
  193. *** BKSPRU - BACKSPACE PHYSICAL RECORDS.
  194. *
  195. * CALL BKSPRU (FILE,N,R)
  196. *
  197. * ENTRY (FILE) = FIRST WORD OF THE FET.
  198. * (N) = NUMBER OF RECORDS.
  199. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  200. *
  201. * BKSPRU(FILE,N,R); (*SYMPL* CALL)
  202. *
  203. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  204. * (N) = AN ITEM CONTAINING THE NUMBER OF PRU*S TO
  205. * BACKSPACE
  206. * (R) = RECALL,IF .NE. 0, RECALL IS REQUESTED.
  207. *
  208. * USES X - 2, 3.
  209. * A - 2, 3.
  210. * B - 1.
  211. *
  212. * MACROS BKSPRU.
  213. *
  214.  
  215.  
  216. BKSPRU SUBR ENTRY/EXIT
  217. SB1 1
  218. SA3 A1+B1 ADDRESS OF N
  219. SA2 A3+B1 GET RECALL PARAMETER
  220. SA3 X3 N
  221. SA2 X2
  222. NZ X2,BKP1 IF RECALL REQUESTED
  223. BKSPRU X1,X3
  224. EQ BKSPRUX
  225.  
  226. BKP1 BKSPRU X1,X3,R
  227. EQ BKSPRUX
  228.  
  229. END
  230. IDENT CHECKPT
  231. ENTRY CHECKPT
  232. SYSCOM B1
  233. TITLE CHECKPT - TAKE CHECKPOINT DUMP.
  234. *COMMENT TAKE CHECKPOINT DUMP.
  235. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  236. CHECKPT SPACE 4,10
  237. *** CHECKPT - TAKE CHECKPOINT DUMP.
  238. *
  239. * CALL CHECKPT (LIST,OPTION)
  240. *
  241. * ENTRY (LIST) = LIST OF FILE PROCESSING SPECIFICATIONS.
  242. * (OPTION) = 0, PROCESS ALL FILES.
  243. * = OTHER, PROCESS ONLY THE SPECIFIED FILES.
  244. *
  245. * CHECKPT(LIST,OPTION); (*SYMPL* CALL)
  246. *
  247. * ENTRY LIST, AN ARRAY THAT CONTAINS A LIST OF FILE
  248. * PROCESSING SPECIFICATIONS.
  249. * OPTION, AN ITEM THAT CONTAINS THE OPTION.
  250. *
  251. * USES X - 2.
  252. * A - 2.
  253. * B - 1.
  254. *
  255. * MACROS CHECKPT.
  256.  
  257.  
  258. CHECKPT SUBR ENTRY/EXIT
  259. SB1 1
  260. SA2 A1+B1 ADDRESS OF OPTION
  261. SA2 X2 OPTION
  262. ZR X2,CHE1 IF ALL FILES TO BE PROCESSED
  263. CHECKPT X1,OPTION
  264. EQ CHECKPTX
  265.  
  266. CHE1 CHECKPT X1
  267. EQ CHECKPTX
  268.  
  269. END
  270. IDENT CLOCK
  271. ENTRY CLOCK
  272. SYSCOM B1
  273. TITLE CLOCK - OBTAIN TIME OF DAY.
  274. *COMMENT OBTAIN TIME OF DAY.
  275. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  276. CLOCK SPACE 4,10
  277. *** CLOCK - OBTAIN TIME OF DAY.
  278. *
  279. * CALL CLOCK (STATUS)
  280. *
  281. * EXIT (STATUS) = TIME OF DAY.
  282. *T 60/ * HH.MM.SS.*
  283. *
  284. * CLOCK(STATUS); (*SYMPL* CALL)
  285. *
  286. * EXIT STATUS, A CHARACTER ITEM THAT WILL CONTAIN THE
  287. * CLOCK READING.
  288. *
  289. * USES X - 1, 5, 6.
  290. * A - 1.
  291. * B - 1.
  292. *
  293. * MACROS CLOCK.
  294.  
  295.  
  296. CLOCK SUBR ENTRY/EXIT
  297. SB1 1
  298. BX5 X1
  299. CLOCK X1
  300. SA1 X5
  301. BX6 X1 RETURN TIME OF DAY AS FUNCTION RESULT
  302. EQ CLOCKX
  303.  
  304. END
  305. IDENT CLOSE
  306. ENTRY CLOSE
  307. SYSCOM B1
  308. TITLE CLOSE - CLOSE FILE.
  309. *COMMENT CLOSE FILE.
  310. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  311. CLOSE SPACE 4,10
  312. *** CLOSE - CLOSE FILE.
  313. *
  314. * CALL CLOSE (FILE,OPTION,R)
  315. *
  316. * ENTRY (FILE) = FIRST WORD OF THE FET.
  317. * (OPTION) = 0, CLOSE WITH REWIND.
  318. * = 2HNR, CLOSE WITHOUT REWIND.
  319. * = 6HRETURN, CLOSE WITH REWIND, RETURN.
  320. * = 6HREWIND, CLOSE WITH REWIND.
  321. * = 6HUNLOAD, CLOSE WITH REWIND, UNLOAD.
  322. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  323. *
  324. * CLOSE(FILE,OPTION,R); (*SYMPL* CALL)
  325. *
  326. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  327. * OPTION, AN ITEM CONTAINING ONE OF THE FOLLOWING
  328. * CHARACTER STRINGS, LEFT JUSTIFIED, BLANK
  329. * FILL, OR A BINARY 0.
  330. * NR (NO REWIND).
  331. * RETURN.
  332. * REWIND (SAME AS 0).
  333. * UNLOAD.
  334. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  335. *
  336. * EXIT TO ARGUMENT-ERROR PROCESSOR IF OPTION IS UNRECOGNIZED.
  337. *
  338. * USES X - 2, 3, 4.
  339. * A - 2, 3, 4.
  340. * B - 1.
  341. *
  342. * CALLS MACREL.
  343. *
  344. * MACROS CLOSE.
  345.  
  346.  
  347. CLOSE SUBR ENTRY/EXIT
  348. SB1 1
  349. SA2 A1+B1 ADDRESS OF OPTION
  350. SA3 A2+B1 GET ADDRESS OF RECALL PARAMETER
  351. SA2 X2 OPTION
  352. SA3 X3 RECALL OPTION
  353. ZR X2,CLO1 IF REWIND
  354. NO
  355. SA4 =0HNR
  356. BX4 X2-X4
  357. ZR X4,CLO2 IF NR
  358. SA4 =0HRETURN
  359. BX4 X2-X4
  360. ZR X4,CLO6 IF RETURN
  361. SA4 =0HREWIND
  362. BX4 X2-X4
  363. ZR X4,CLO1 IF REWIND
  364. SA4 =0HUNLOAD
  365. BX4 X2-X4
  366. ZR X4,CLO8 IF UNLOAD
  367. SA1 =0LCLOSE
  368. RJ =XMACREL= DIAGNOSE ILLEGAL ARGUMENT
  369. EQ CLOSEX
  370.  
  371. CLO1 NZ X3,CLO5 IF RECALL
  372. CLOSE X1
  373. EQ CLOSEX
  374.  
  375. CLO2 NZ X3,CLO6 IF RECALL
  376. CLOSE X1,NR
  377. EQ CLOSEX
  378.  
  379. CLO3 NZ X3,CLO7 IF RECALL
  380. CLOSE X1,RETURN
  381. EQ CLOSEX
  382.  
  383. CLO4 NZ X3,CLO8 IF RECALL
  384. CLOSE X1,UNLOAD
  385. EQ CLOSEX
  386.  
  387. CLO5 CLOSE X1,,R
  388. EQ CLOSEX
  389.  
  390. CLO6 CLOSE X1,NR,R
  391. EQ CLOSEX
  392.  
  393. CLO7 CLOSE X1,RETURN,R
  394. EQ CLOSEX
  395.  
  396. CLO8 CLOSE X1,UNLOAD,R
  397. EQ CLOSEX
  398.  
  399. END
  400. IDENT CLOSER
  401. ENTRY CLOSER
  402. SYSCOM B1
  403. TITLE CLOSER - CLOSE REEL.
  404. *COMMENT CLOSE REEL.
  405. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  406. CLOSER SPACE 4,10
  407. *** CLOSER - CLOSER REEL.
  408. *
  409. * CALL CLOSER (FILE,OPTION,R)
  410. *
  411. * ENTRY (FILE) = FIRST WORD OF THE FET.
  412. * (OPTION) = 0, CLOSE WITH REWIND.
  413. * = 2HNR, CLOSE WITHOUT REWIND.
  414. * = 6HREWIND, CLOSE WITH REWIND.
  415. * = 6HUNLOAD, CLOSE WITH REWIND, UNLOAD.
  416. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  417. *
  418. * CLOSER(FILE,OPTION,R); (*SYMPL* CALL)
  419. *
  420. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  421. * OPTION, AN ITEM THE CONTAINS ONE OF THE FOLLOWING
  422. * CHARACTER STRINGS, LEFT JUSTIFIED, BLANK
  423. * FILL, OR A BINARY 0.
  424. * NR (NO REWIND).
  425. * REWIND (SAME AS 0).
  426. * UNLOAD.
  427. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  428. *
  429. * EXIT TO ARGUMENT ERROR PROCESSOR IF OPTION IS UNRECOGNIZED.
  430. *
  431. * USES X - 1, 2, 3, 4.
  432. * A - 1, 2, 3, 4.
  433. * B - 1.
  434. *
  435. * CALLS MACREL.
  436. *
  437. * MACROS CLOSER.
  438.  
  439.  
  440.  
  441. CLOSER SUBR ENTRY/EXIT
  442. SB1 1
  443. SA2 A1+B1 ADDRESS OF OPTION
  444. SA3 A2+B1 GET RECALL PARAMETER ADDRESS
  445. SA2 X2 OPTION
  446. SA3 X3 GET RECALL VALUE
  447. ZR X2,CLO1 IF REWIND
  448. NO
  449. SA4 =0HNR
  450. BX4 X2-X4
  451. ZR X4,CLO2 IF NR
  452. SA4 =0HREWIND
  453. BX4 X2-X4
  454. ZR X4,CLO1 IF REWIND
  455. SA4 =0HUNLOAD
  456. BX4 X2-X4
  457. ZR X4,CLO3 IF UNLOAD
  458. SA1 =0LCLOSER
  459. RJ =XMACREL= DIAGNOSE ILLEGAL ARGUMENT
  460. EQ CLOSERX
  461.  
  462. CLO1 NZ X3,CLO4 IF RECALL
  463. CLOSER X1
  464. EQ CLOSERX
  465.  
  466. CLO2 NZ X3,CLO5 IF RECALL
  467. CLOSER X1,NR
  468. EQ CLOSERX
  469.  
  470. CLO3 NZ X3,CLO6 IF RECALL
  471. CLOSER X1,UNLOAD
  472. EQ CLOSERX
  473.  
  474. CLO4 CLOSER X1,,R
  475. EQ CLOSERX
  476.  
  477. CLO5 CLOSER X1,NR,R
  478. EQ CLOSERX
  479.  
  480. CLO6 CLOSER X1,UNLOAD,R
  481. EQ CLOSERX
  482.  
  483. END
  484. IDENT CONSOLE
  485. ENTRY CONSOLE
  486. SYSCOM B1
  487. TITLE CONSOLE - COMMUNICATE WITH THE *K* AND *L* DISPLAY.
  488. *COMMENT COMMUNICATE WITH THE *K* AND *L* DISPLAY.
  489. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  490. CONSOLE SPACE 4,10
  491. *** CONSOLE - COMMUNICATE WITH THE *K* AND *L* DISPLAY.
  492. *
  493. * CALL CONSOLE (ADDR)
  494. *
  495. * CONSOLE(ADDR); (*SYMPL* CALL)
  496. *
  497. * ENTRY (ADDR) = ADDRESS OF CONSOLE PARAMETER WORD.
  498. * IF (ADDR) = 0, CONSOLE OPERATIONS ARE TERMINATED.
  499. *T, 6/0,18/IB,18/RB,18/LB
  500. * IB = KEYBOARD BUFFER ADDRESS.
  501. * RB = ADDRESS OF FORMATTED BUFFER FOR RIGHT SCREEN.
  502. * LB = ADDRESS OF FORMATTED BUFFER FOR LEFT SCREEN.
  503. *
  504. * USES B - 1.
  505. *
  506. * MACROS CONSOLE.
  507.  
  508.  
  509. CONSOLE BSS 0
  510. CONSL SUBR ENTRY/EXIT
  511. SB1 1
  512. CONSOLE X1
  513. EQ CONSLX EXIT
  514.  
  515. END
  516. IDENT DATE
  517. ENTRY DATE
  518. SYSCOM B1
  519. TITLE DATE - OBTAIN DATE.
  520. *COMMENT OBTAIN DATE.
  521. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  522. DATE SPACE 4,10
  523. *** DATE - OBTAIN DATE.
  524. *
  525. * CALL DATE (STATUS)
  526. *
  527. * EXIT (STATUS) = DATE.
  528. *T 60/ * YY/MM/DD.*
  529. *
  530. * DATE(STATUS); (*SYMPL* CALL)
  531. *
  532. * EXIT (STATUS), A CHARACTER ITEM CONTAINING THE TIME.
  533. *
  534. * USES X - 1, 5, 6.
  535. * A - 1.
  536. * B - 1.
  537. *
  538. * MACROS DATE.
  539.  
  540.  
  541. DATE SUBR ENTRY/EXIT
  542. SB1 1
  543. BX5 X1
  544. DATE X1
  545. SA1 X5
  546. BX6 X1 RETURN DATE AS FUNCTION RESULT
  547. EQ DATEX
  548.  
  549. END
  550. IDENT EDATE
  551. ENTRY EDATE
  552. SYSCOM B1
  553. TITLE EDATE - EDIT DATE FROM PACKED FORMAT.
  554. *COMMENT EDIT DATE FROM PACKED FORMAT.
  555. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  556. EDATE SPACE 4,15
  557. *** EDATE - EDIT DATE FROM PACKED FORMAT.
  558. *
  559. * STAT = EDATE(PKDT)
  560. *
  561. * STAT = EDATE(PKDT); (*SYMPL* CALL)
  562. *
  563. * ENTRY (PKDT) = PACKED DATE IN LOWER 18 BITS.
  564. *
  565. * EXIT (X6) = A 10 CHARACTER, DECIMAL DISPLAY,
  566. * EDITED DATE IN THE FOLLOWING
  567. * FORMAT -
  568. * * YY/MM/DD.*.
  569. *
  570. * USES X - 1.
  571. * A - 1.
  572. * B - 1.
  573. *
  574. * MACROS EDATE.
  575.  
  576.  
  577. EDATE SUBR ENTRY/EXIT
  578. SB1 1
  579. SA1 X1 GET PACKED DATE
  580. EDATE X1
  581. EQ EDATEX RETURN
  582.  
  583. *CALL COMCCDD
  584. *CALL COMCEDT
  585.  
  586. END
  587. IDENT ETIME
  588. ENTRY ETIME
  589. SYSCOM B1
  590. TITLE ETIME - EDIT TIME FROM PACKED FORMAT.
  591. *COMMENT EDIT TIME FROM PACKED FORMAT.
  592. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  593. ETIME SPACE 4,15
  594. *** ETIME - EDIT TIME FROM PACKED FORMAT.
  595. *
  596. * STAT = ETIME(PKTM)
  597. *
  598. * STAT = ETIME(PKTM); (*SYMPL* CALL)
  599. *
  600. * ENTRY (PKTM) = PACKED TIME IN LOWER 18 BITS.
  601. *
  602. * EXIT (X6) = A 10 CHARACTER, DECIMAL DISPLAY,
  603. * EDITED TIME IN THE FOLLOWING
  604. * FORMAT -
  605. * * HH.MM.SS.*.
  606. *
  607. * USES X - 1.
  608. * A - 1.
  609. * B - 1.
  610. *
  611. * MACROS ETIME.
  612.  
  613.  
  614. ETIME SUBR ENTRY/EXIT
  615. SB1 1
  616. SA1 X1 GET PACKED TIME
  617. ETIME X1
  618. EQ ETIMEX RETURN
  619.  
  620. *CALL COMCCDD
  621. *CALL COMCEDT
  622.  
  623. END
  624. IDENT EVICT
  625. ENTRY EVICT
  626. SYSCOM B1
  627. TITLE EVICT - RELEASE FILE SPACE.
  628. *COMMENT RELEASE FILE SPACE.
  629. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  630. EVICT SPACE 4,10
  631. *** EVICT - RELEASE FILE SPACE.
  632. *
  633. * CALL EVICT (FILE,R)
  634. *
  635. * ENTRY (FILE) = FIRST WORD OF THE FET.
  636. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  637. *
  638. * EVICT(FILE,R); (*SYMPL* CALL)
  639. *
  640. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  641. * (R)=RECALL, IF .NE. 0, RECALL IS REQUESTED.
  642. *
  643. * USES X - 2.
  644. * A - 2.
  645. * B - 1.
  646. *
  647. * MACROS EVICT.
  648.  
  649.  
  650. EVICT SUBR ENTRY/EXIT
  651. SB1 1
  652. SA2 A1+B1
  653. SA2 X2 RECALL VALUE
  654. NZ X2,EVT1 IF RECALL ON
  655. EVICT X1
  656. EQ EVICTX
  657.  
  658. EVT1 EVICT X1,R
  659. EQ EVICTX
  660.  
  661. END
  662. IDENT FILINFO
  663. ENTRY FILINFO
  664. SYSCOM B1
  665. TITLE FILINFO - FILE INFORMATION.
  666. COMMENT 82/11/15. FILE INFORMATION.
  667. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  668. SPACE 4,10
  669. *** FILINFO - FILE INFORMATION.
  670. *
  671. * CALL FILINFO(PAR) *FORTRAN*
  672. *
  673. * FILINFO(PAR); *SYMPL*
  674. *
  675. * ENTRY (PAR) = FIVE WORD PARAMETER BLOCK.
  676. * THE FIRST WORD MUST HAVE THE
  677. * FOLLOWING FORMAT :
  678. *
  679. * VFD 42/LFN, 6/LEN, 11/0, 1/1
  680. *
  681. * WHERE
  682. *
  683. * LFN FILE NAME, LEFT JUSTIFIED, 0 FILLED.
  684. * LEN MUST BE AT LEAST 5 WORDS.
  685. *
  686. * EXIT INFORMATION ABOUT THE FILE IS RETURNED IN THE
  687. * PARAMETER BLOCK (SEE NOS VERS. 2, VOL. 4).
  688. *
  689. * USE B - 1.
  690. *
  691. * MACRO FILINFO.
  692.  
  693.  
  694. FILINFO SUBR ENTRY/EXIT
  695. SB1 1
  696. FILINFO X1
  697. EQ FILINFOX RETURN
  698. END
  699. IDENT GETJN
  700. ENTRY GETJN
  701. SYSCOM 1
  702. TITLE GETJN - GET JOB SEQUENCE NUMBER.
  703. *COMMENT GET JOB SEQUENCE NUMBER.
  704. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  705. GETJN SPACE 4,10
  706. *** GETJN - GET JOB SEQUENCE NUMBER.
  707. *
  708. * CALL GETJN(ADDR)
  709. *
  710. * GETJN(ADDR)
  711. *
  712. * ENTRY (ADDR) = ADDRESS TO RECIEVE JOB SEQUENCE NUMBER.
  713. *
  714. * EXIT ((ADDR)) = JOB SEQUENCE NUMBER.
  715. *
  716. * USES B - 1.
  717. *
  718. * MACROS GETJN.
  719.  
  720.  
  721. GETJN SUBR ENTRY/EXIT
  722. SB1 1
  723. GETJN X1
  724. EQ GETJNX EXIT
  725.  
  726. END
  727. IDENT JDATE
  728. ENTRY JDATE
  729. SYSCOM B1
  730. TITLE JDATE - OBTAIN JULIAN DATE.
  731. *COMMENT OBTAIN JULIAN DATE.
  732. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  733. JDATE SPACE 4,10
  734. *** JDATE - OBTAIN JULIAN DATE.
  735. *
  736. * CALL JDATE (STATUS)
  737. *
  738. * EXIT (STATUS) = JULIAN DATE.
  739. *T 30/ 0, 30/ *YYDDD*
  740. *
  741. * JDATE(STATUS); (*SYMPL* CALL)
  742. *
  743. * EXIT STATUS, A CHARACTER ITEM TO CONTAIN JULIAN
  744. * DATE ON EXIT.
  745. *
  746. * USES X - 1, 5, 6.
  747. * A - 1.
  748. * B - 1.
  749. *
  750. * MACROS JDATE.
  751.  
  752.  
  753. JDATE SUBR ENTRY/EXIT
  754. SB1 1
  755. BX5 X1
  756. JDATE X1
  757. SA1 X5
  758. BX6 X1 RETURN JULIAN DATE AS FUNCTION RESULT
  759. EQ JDATEX
  760.  
  761. END
  762. IDENT MACHID
  763. ENTRY MACHID
  764. SYSCOM 1
  765. TITLE MACHID - GET TWO CHARACTER MACHINE *ID*.
  766. *COMMENT GET TWO CHARACTER MACHINE *ID*.
  767. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  768. MACHID SPACE 4,10
  769. *** MACHID - GET TWO CHARACTER MACHINE *ID*.
  770. *
  771. * CALL MACHID (ADDR)
  772. *
  773. * MACHID(ADDR); (*SYMPL* CALL)
  774. *
  775. * ENTRY (ADDR) = ADDRESS TO RECEIVE MACHINE *ID*.
  776. *
  777. * EXIT ((ADDR)) = MACHINE *ID*.
  778. *
  779. * USES B - 1.
  780. *
  781. * MACROS MACHID.
  782.  
  783.  
  784. MACHID SUBR ENTRY/EXIT
  785. SB1 1
  786. MACHID X1
  787. EQ MACHIDX EXIT
  788.  
  789.  
  790. END
  791. IDENT MEMORY
  792. ENTRY MEMORY
  793. SYSCOM B1
  794. TITLE MEMORY - REQUEST MEMORY.
  795. *COMMENT REQUEST MEMORY.
  796. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  797. MEMORY SPACE 4,10
  798. *** MEMORY - REQUEST MEMORY.
  799. *
  800. * CALL MEMORY(TYPE,STATUS,R,NA)
  801. *
  802. * ENTRY (TYPE) = 2HCM OR 3HSCM OR 3HECS OR 3HLCM.
  803. * (STATUS) = 30/N,30/0 N=AMOUNT REQUESTED.
  804. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  805. * (NA) = BLANK IF THE PROGRAM IS TO BE ABORTED
  806. * IF THE REQUESTED MEMORY IS NOT AVAILABLE.
  807. * IF NON BLANK AND THE MEMORY IS UNAVAILABLE,
  808. * THE CURRENT FIELD LENGTH IS RETURNED IN
  809. * BITS 59-30 OF *STATUS*.
  810. *
  811. * MEMORY(TYPE,STATUS,R,NA); (*SYMPL* CALL)
  812. *
  813. * ENTRY TYPE, AN ITEM CONTAINING A *CM* OR *SCM*, LEFT
  814. * JUSTIFIED, BLANK FILLED.
  815. * STATUS, AN ITEM CONTAINING THE MEMORY REQUEST
  816. * STATUS WORD.
  817. * THE FORMAT OF MEMORY REQUEST STATUS WORD IS
  818. *T 30/VALUE, 26/0, 3/RESERVED, 1/COMPLETE BIT.
  819. * (R)=RECALL, IF .NE. 0, RECALL IS REQUESTED.
  820. * (NA) = BLANK IF THE PROGRAM IS TO BE ABORTED
  821. * IF THE REQUESTED MEMORY IS NOT AVAILABLE.
  822. * IF NON BLANK AND THE MEMORY IS UNAVAILABLE,
  823. * THE CURRENT FIELD LENGTH IS RETURNED IN
  824. * BITS 59-30 OF *STATUS*.
  825. *
  826. * EXIT TO ARGUMENT-ERROR PROCESSOR IF OPTION IS UNRECOGNIZED.
  827. * IF N = 0, CURRENT AMOUNT ASSIGNED IS RETURNED IN
  828. * BITS 59-30 OF STATUS WORD.
  829. *
  830. * USES X - 1, 2, 3, 4, 5.
  831. * A - 1, 2, 3, 4, 5.
  832. * B - 1, 2.
  833. *
  834. * CALLS MACREL.
  835. *
  836. * MACROS MEMORY.
  837.  
  838.  
  839. MEMORY SUBR ENTRY/EXIT
  840. SB1 1
  841. SA2 X1 TYPE
  842. SA1 A1+B1 ADDRESS OF STATUS WORD
  843. SA3 A1+B1 GET RECALL PARAMETER
  844. SA5 X3
  845. SB2 X5
  846. SA5 A3+B1 GET NO ABORT OPTION
  847. SA3 =0HCM
  848. SA4 =0HSCM
  849. BX3 X2-X3
  850. BX4 X2-X4
  851. SA5 X5
  852. BX4 X3*X4
  853. ZR X4,MEM1 IF CM OR SCM
  854. SA3 =0HECS
  855. SA4 =0HLCM
  856. BX3 X2-X3
  857. BX4 X2-X4
  858. BX4 X3*X4
  859. ZR X4,MEM2 IF ECS OR LCM
  860. BX2 X1
  861. SA1 =0LMEMORY
  862. RJ =XMACREL= DIAGNOSE ILLEGAL ARGUMENT
  863. EQ MEMORYX
  864.  
  865. MEM1 ZR B2,MEM3 IF NO RECALL
  866. MEMORY CM,X1,R,,X5
  867. EQ MEMORYX
  868.  
  869. MEM2 ZR B2,MEM4 IF NO RECALL
  870. MEMORY ECS,X1,R,,X5
  871. EQ MEMORYX
  872.  
  873. MEM3 MEMORY CM,X1,,,X5
  874. EQ MEMORYX
  875.  
  876. MEM4 MEMORY ECS,X1,,,X5
  877. EQ MEMORYX
  878.  
  879. END
  880. IDENT MESSAGE
  881. ENTRY MESSAGE
  882. SYSCOM B1
  883. TITLE MESSAGE - SEND MESSAGE.
  884. *COMMENT SEND MESSAGE.
  885. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  886. MESSAGE SPACE 4,10
  887. *** MESSAGE - SEND MESSAGE.
  888. *
  889. * CALL MESSAGE (TEXT,OPTION,R)
  890. *
  891. * ENTRY (TEXT) = MESSAGE ARRAY, TERMINATED BY ZERO BYTE
  892. * (OPTION) = 0, SEND MESSAGE TO SYSTEM DAYFILE,
  893. * LOCAL JOB DAYFILE, AND A AND B DISPLAYS.
  894. * = 1, SEND MESSAGE TO LINE 1 OF CONTROL POINT.
  895. * = 2, SEND MESSAGE TO LINE 2 OF CONTROL POINT.
  896. * = 3, SEND MESSAGE TO USER DAYFILE AND LINE
  897. * 1 OF CONTROL POINT.
  898. * = 4, SEND MESSAGE TO ERROR LOG DAYFILE.
  899. * = 5, SEND MESSAGE TO ACCOUNT DAYFILE.
  900. * = 6, SAME AS 0.
  901. * = 7, SAME AS 3.
  902. * = 9, SEND MESSAGE TO BINARY MAINTENANCE LOG.
  903. * = 5HLOCAL, SEND MESSAGE TO LOCAL JOB DAYFILE.
  904. *
  905. * MESSAGE(TEXT,OPTION); (*SYMPL* CALL)
  906. *
  907. * ENTRY TEXT, AN ARRAY WITH THE TEXT IN IT, OR AN ITEM
  908. * WITH TEXT IN IT.
  909. * OPTION, AN ITEM CONTAINING ONE OF THE OPTIONS.
  910. *
  911. * USES X - 2, 3, 4.
  912. * A - 2, 3.
  913. * B - 1.
  914. *
  915. * MACROS MESSAGE.
  916.  
  917.  
  918. MESSAGE SUBR ENTRY/EXIT
  919. SB1 1
  920. SA2 A1+B1 ADDRESS OF OPTION
  921. SA2 X2 OPTION
  922. SA3 =0HLOCAL
  923. BX4 X2-X3
  924. ZR X4,MES1 IF LOCAL
  925. MESSAGE X1,X2,R
  926. EQ MESSAGEX
  927.  
  928.  
  929. MES1 MESSAGE X1,LOCAL,R
  930. EQ MESSAGEX
  931.  
  932. END
  933. IDENT MOVE
  934. ENTRY MOVE
  935. SYSCOM B1
  936. TITLE MOVE - MOVE BLOCK OF CENTRAL MEMORY WORDS.
  937. *COMMENT MOVE BLOCK OF CENTRAL MEMORY WORDS.
  938. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  939. MOVE SPACE 4,10
  940. *** MOVE - MOVE BLOCK OF CENTRAL MEMORY WORDS, DIRECT ADDRESSING.
  941. *
  942. * CALL MOVE (COUNT,FROM,TO)
  943. *
  944. * ENTRY (COUNT) = COUNT OF WORDS TO MOVE.
  945. * (FROM) = FIRST WORD OF THE *FROM* BLOCK.
  946. * (TO) = FIRST WORD OF THE *TO* BLOCK.
  947. *
  948. * MOVE(COUNT,FROM,TO); (*SYMPL* CALL)
  949. *
  950. * ENTRY COUNT, AN ITEM THAT CONTAINS THE NUMBER OF WORDS TO
  951. * MOVE.
  952. * FROM, AN ARRAY TO MOVE FROM.
  953. * TO, AN ARRAY TO MOVE TO.
  954. *
  955. * USES X - 1, 2, 3.
  956. * A - 1, 2, 3.
  957. * B - 1.
  958. *
  959. * MACROS MOVE.
  960.  
  961.  
  962. MOVE SUBR ENTRY/EXIT
  963. SB1 1 (B1) = 1
  964. SA2 A1+B1 (X2) = FROM FWA
  965. SA3 A2+B1 (X3) = TO FWA
  966. SA1 X1 (X1) = COUNT
  967. SX2 X2
  968. SX3 X3 CLEAR UPPER BITS
  969. SX1 X1
  970. MOVE X1,X2,X3 MOVE DATA
  971. EQ MOVEX RETURN
  972.  
  973. END
  974. IDENT MOVEI
  975. ENTRY MOVEI
  976. SYSCOM B1
  977. TITLE MOVEI - MOVE A BLOCK OF CM WORDS.
  978. *COMMENT MOVE A BLOCK OF CM WORDS.
  979. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  980. MOVEI SPACE 4,10
  981. *** MOVEI - MOVE BLOCK OF CENTRAL MEMORY WORDS, INDIRECT ADDRESS.
  982. *
  983. * CALL MOVEI (COUNT,LOC(FROM),LOC(TO))
  984. *
  985. * ENTRY (COUNT) = COUNT OF WORDS TO MOVE.
  986. * (FROM) = FIRST WORD OF THE *FROM* BLOCK.
  987. * (TO) = FIRST WORD OF THE *TO* BLOCK.
  988. * LOC = LOCATION OF.
  989. *
  990. * MOVEI(COUNT,FROM,TO); (*SYMPL* CALL)
  991. *
  992. * ENTRY COUNT, AN ITEM THAT CONTAINS THE NUMBER OF WORDS TO
  993. * MOVE.
  994. * FROM, AN ITEM THAT CONTAINS THE ADDRESS OF WHERE TO
  995. * MOVE FROM, OR A LOC OF AN ARRAY.
  996. * TO, AN ITEM THAT CONTAINS THE ADDRESS OF WHERE TO
  997. * MOVE TO, OR A LOC OF AN ARRAY.
  998. *
  999. * USES X - 1, 2, 3.
  1000. * A - 1, 2, 3.
  1001. * B - 1.
  1002. *
  1003. * MACROS MOVE.
  1004.  
  1005.  
  1006. MOVEI SUBR ENTRY/EXIT
  1007. SB1 1
  1008. SA2 A1+B1 (X2) = LOC (FROM FWA)
  1009. SA3 A2+B1 (X3) = LOC (TO FWA)
  1010. SA1 X1 (X1) = COUNT
  1011. SA2 X2 (X2) = FROM FWA
  1012. SA3 X3 (X3) = TO FWA
  1013. SX1 X1
  1014. SX2 X2 CLEAR UPPER BITS
  1015. SX3 X3
  1016. MOVE X1,X2,X3 MOVE DATA
  1017. EQ MOVEIX RETURN
  1018.  
  1019. END
  1020. IDENT OPEN
  1021. ENTRY OPEN
  1022. SYSCOM B1
  1023. TITLE OPEN - OPEN FILE FOR PROCESSING.
  1024. *COMMENT OPEN FILE FOR PROCESSING.
  1025. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  1026. OPEN SPACE 4,10
  1027. *** OPEN - OPEN FILE FOR PROCESSING.
  1028. *
  1029. * CALL OPEN (FILE,OPTION,R)
  1030. *
  1031. * ENTRY (FILE) = FIRST WORD OF THE FET.
  1032. * (OPTION) = 0, SAME AS ALTER.
  1033. * = 5HALTER.
  1034. * = 7HALTERNR.
  1035. * = 2HNR.
  1036. * = 4HREAD.
  1037. * = 6HREADNR.
  1038. * = 4HREEL.
  1039. * = 6HREELNR.
  1040. * = 5HWRITE.
  1041. * = 7HWRITENR.
  1042. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  1043. *
  1044. * OPEN(FILE,OPTION,R); (*SYMPL* CALL)
  1045. *
  1046. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  1047. * OPTION, AN ITEM CONTAINING ONE OF THE FOLLOWING
  1048. * CHARACTER STRINGS, LEFT JUSTIFIED, BLANK
  1049. * FILL WITH BINARY 0.
  1050. * ALTER.
  1051. * ALTERNR (ALTER, NO REWIND).
  1052. * NR (NO REWIND).
  1053. * READ.
  1054. * READNR (READ, NO REWIND).
  1055. * REEL.
  1056. * REELNR (REEL, NO REWIND).
  1057. * WRITE.
  1058. * WRITENR (WRITE, NO REWIND).
  1059. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  1060. *
  1061. * EXIT TO ARGUMENT-ERROR PROCESSOR IF OPTION IS UNRECOGNIZED.
  1062. *
  1063. * USES X - 1, 2, 3, 4, 5, 6.
  1064. * A - 1, 2, 3, 4, 5.
  1065. * B - 1.
  1066. *
  1067. * CALLS MACREL.
  1068. *
  1069. * MACROS OPEN.
  1070.  
  1071.  
  1072. OPEN SUBR ENTRY/EXIT
  1073. SB1 1
  1074. SA2 A1+B1 ADDRESS OF OPTION
  1075. SA3 A2+B1 GET ADDRESS OF RECALL PARAMETER
  1076. SA2 X2+ OPTION
  1077. SA3 X3
  1078. BX6 X3
  1079. ZR X2,OPE1 IF NO OPTION
  1080. SA3 =0HALTER
  1081. SA4 =0HALTERNR
  1082. SA5 =0HNR
  1083. BX3 X2-X3
  1084. BX4 X2-X4
  1085. ZR X3,OPE2 IF ALTER
  1086. BX5 X2-X5
  1087. ZR X4,OPE3 IF ALTERNR
  1088. ZR X5,OPE4 IF NR
  1089. SA3 =0HREAD
  1090. SA4 =0HREADNR
  1091. SA5 =0HREEL
  1092. BX3 X2-X3
  1093. BX4 X2-X4
  1094. ZR X3,OPE5 IF READ
  1095. BX5 X2-X5
  1096. ZR X4,OPE6 IF READNR
  1097. ZR X5,OPE7 IF REEL
  1098. SA3 =0HREELNR
  1099. SA4 =0HWRITE
  1100. SA5 =0HWRITENR
  1101. BX3 X2-X3
  1102. BX4 X2-X4
  1103. ZR X3,OPE8 IF REELNR
  1104. BX5 X2-X5
  1105. ZR X4,OPE9 IF WRITE
  1106. ZR X5,OPE10 IF WRITENR
  1107. SA1 =0LOPEN
  1108. RJ =XMACREL= DIAGNOSE ILLEGAL ARGUMENT
  1109. EQ OPENX
  1110.  
  1111. OPE1 NZ X6,OPE11 IF RECALL
  1112. OPEN X1
  1113. EQ OPENX
  1114.  
  1115. OPE2 NZ X6,OPE12 IF RECALL
  1116. OPEN X1,ALTER
  1117. EQ OPENX
  1118.  
  1119. OPE3 NZ X6,OPE13 IF RECALL
  1120. OPEN X1,ALTERNR
  1121. EQ OPENX
  1122.  
  1123. OPE4 NZ X6,OPE14 IF RECALL
  1124. OPEN X1,NR
  1125. EQ OPENX
  1126.  
  1127. OPE5 NZ X6,OPE15 IF RECALL
  1128. OPEN X1,READ
  1129. EQ OPENX
  1130.  
  1131. OPE6 NZ X6,OPE16 IF RECALL
  1132. OPEN X1,READNR
  1133. EQ OPENX
  1134.  
  1135. OPE7 NZ X6,OPE17 IF RECALL
  1136. OPEN X1,REEL
  1137. EQ OPENX
  1138.  
  1139. OPE8 NZ X6,OPE18 IF RECALL
  1140. OPEN X1,REELNR
  1141. EQ OPENX
  1142.  
  1143. OPE9 NZ X6,OPE19 IF RECALL
  1144. OPEN X1,WRITE
  1145. EQ OPENX
  1146.  
  1147. OPE10 NZ X6,OPE20 IF RECALL
  1148. OPEN X1,WRITENR
  1149. EQ OPENX
  1150.  
  1151. OPE11 OPEN X1,,R
  1152. EQ OPENX
  1153.  
  1154. OPE12 OPEN X1,ALTER,R
  1155. EQ OPENX
  1156.  
  1157. OPE13 OPEN X1,ALTERNR,R
  1158. EQ OPENX
  1159.  
  1160. OPE14 OPEN X1,NR,R
  1161. EQ OPENX
  1162.  
  1163. OPE15 OPEN X1,READ,R
  1164. EQ OPENX
  1165.  
  1166. OPE16 OPEN X1,READNR,R
  1167. EQ OPENX
  1168.  
  1169. OPE17 OPEN X1,REEL,R
  1170. EQ OPENX
  1171.  
  1172. OPE18 OPEN X1,REELNR,R
  1173. EQ OPENX
  1174.  
  1175. OPE19 OPEN X1,WRITE,R
  1176. EQ OPENX
  1177.  
  1178. OPE20 OPEN X1,WRITENR,R
  1179. EQ OPENX
  1180.  
  1181. END
  1182. IDENT PDATE
  1183. ENTRY PDATE
  1184. SYSCOM B1
  1185. TITLE PDATE - RETURN PACK DATE AND TIME.
  1186. *COMMENT RETURN PACK DATE AND TIME.
  1187. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  1188. PDATE SPACE 4,10
  1189. *** PDATE - RETURN PACK DATE AND TIME.
  1190. *
  1191. * CALL PDATE (STAT)
  1192. *
  1193. * PDATE(STAT); (*SYMPL* CALL)
  1194. *
  1195. * ENTRY (STAT) = ADDRESS TO RECEIVE THE PACK DATE.
  1196. *
  1197. * EXIT (STAT) =
  1198. *T, 24/0,6/YY, 6/MO, 6/DD, 6/HH, 6/MM, 6/SS (YY = YEAR - 1970)
  1199. *
  1200. * USES B - 1.
  1201. *
  1202. * MACROS PDATE.
  1203.  
  1204.  
  1205. PDATE SUBR ENTRY/EXIT
  1206. SB1 1
  1207. PDATE X1
  1208. EQ PDATEX EXIT
  1209.  
  1210. END
  1211. IDENT PFD
  1212. ENTRY PFD
  1213. SYSCOM B1
  1214. TITLE PFD - PERMANENT FILE REQUEST DELAYS.
  1215. *COMMENT MAC1 - PERMANENT FILE REQUEST DELAYS.
  1216. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  1217.  
  1218. *CALL COMCMAC
  1219. *CALL COMAPFS
  1220. *CALL COMSPFM
  1221. PFD SPACE 4,30
  1222. *** PFD - PERMANENT FILE REQUEST DELAYS.
  1223. *
  1224. * *PFD* IS AN INTERFACE TO THE *PF* ROUTINES IN *CPUREL*.
  1225. * WHEN THE *PF* ROUTINES ARE CALLED WITH THE USER PROCESSING
  1226. * OPTION SELECTED, SEVERAL ERROR CODES MAY BE RETURNED BY
  1227. * *PFM* WHICH ARE TEMPORARY CONDITIONS. *PFD* WILL REISSUE
  1228. * THE *PF* CALL FOLLOWING A DELAY UNTIL THE REQUEST IS COMPLETE
  1229. * OR SOME OTHER RESPONSE IS RETURNED FOR THE FOLLOWING ERRORS.
  1230. *
  1231. * * PF UTILITY ACTIVE.*
  1232. * * INTERLOCK NOT AVAILABLE.*
  1233. * * FNT FULL.*
  1234. * * PFM EXCESS ACTIVITY.*
  1235. *
  1236. * *SYMPL* CALL -
  1237. *
  1238. * PFD(REQ,LFN,PFN,KEY(1),OPT(1),...,KEY(N),OPT(N),0);
  1239. *
  1240. * REFER TO THE *PF* ROUTINE DOCUMENTATION FOR A DESCRIPTION
  1241. * OF THE PARAMETERS (SEE FTN 5 REFERENCE MANUAL, 60481300).
  1242. *
  1243. * NOTE - THE STATUS WORD *PFSTAT* DEFINED IN *COMAPFS*
  1244. * MUST BE USED WITH THE *RC* KEYWORD AS THE RETURN CODE
  1245. * PARAMETER.
  1246. *
  1247. * USES X - 1, 2, 6.
  1248. * A - 1, 2, 6.
  1249. * B - 2.
  1250. *
  1251. * CALLS PF.
  1252. *
  1253. * MACROS RECALL.
  1254.  
  1255.  
  1256. PFD SUBR ENTRY/EXIT
  1257. SX6 A1 SAVE PARAMETER LIST ADDRESS
  1258. SA6 PFDA
  1259. BX6 X6-X6 CLEAR *PF* RETURN CODE
  1260. SA6 PFSTAT
  1261. PFD1 RJ =XPF
  1262. SA2 PFSTAT CHECK *PF* RETURN CODE
  1263. ZR X2,PFDX IF NO ERROR
  1264. SB2 X2-/ERRMSG/PFA
  1265. ZR B2,PFD2 IF DELAY REQUIRED
  1266. SB2 X2-/ERRMSG/INA
  1267. ZR B2,PFD2 IF DELAY REQUIRED
  1268. SB2 X2-/ERRMSG/FTF
  1269. ZR B2,PFD2 IF DELAY REQUIRED
  1270. SB2 X2-/ERRMSG/PEA
  1271. ZR B2,PFD2 IF DELAY REQUIRED
  1272. EQ PFDX RETURN
  1273.  
  1274. PFD2 RECALL
  1275. SA1 PFDA
  1276. SA1 X1+
  1277. EQ PFD1 REISSUE *PF* CALL
  1278.  
  1279. PFDA BSS 1 PARAMETER LIST ADDRESS
  1280.  
  1281. END
  1282. IDENT POSMF
  1283. ENTRY POSMF
  1284. SYSCOM B1
  1285. TITLE POSMF - POSITION MULTI-FILE SET.
  1286. *COMMENT POSITION MULTI-FILE SET.
  1287. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  1288. POSMF SPACE 4,10
  1289. *** POSMF - POSITION MULTI-FILE SET.
  1290. * LABELED MULTI-FILE MAGNETIC TAPE ONLY.
  1291. *
  1292. * CALL POSMF (MFILNAM,R)
  1293. *
  1294. * ENTRY (MFILNAM) = FIRST WORD OF THE FET.
  1295. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  1296. *
  1297. * POSMF(MFILNAM,R); (*SYMPL* CALL)
  1298. *
  1299. * ENTRY MFILNAM, AN ARRAY THAT CONTAINS THE FET.
  1300. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  1301. *
  1302. * USES X - 2.
  1303. * A - 2.
  1304. * B - 1.
  1305. *
  1306. * MACROS POSMF.
  1307.  
  1308.  
  1309. POSMF SUBR ENTRY/EXIT
  1310. SB1 1
  1311. SA2 A1+B1 GET RECALL PARAMETER
  1312. SA2 X2
  1313. NZ X2,POF1 IF RECALL
  1314. POSMF X1
  1315. EQ POSMFX
  1316.  
  1317. POF1 POSMF X1,R
  1318. EQ POSMFX
  1319.  
  1320. END
  1321. IDENT READ
  1322. ENTRY READ
  1323. SYSCOM B1
  1324. TITLE READ - READ FILE TO *CIO* BUFFER.
  1325. *COMMENT READ FILE TO *CIO* BUFFER.
  1326. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  1327. READ SPACE 4,10
  1328. *** READ - READ FILE TO *CIO* BUFFER.
  1329. *
  1330. * CALL READ (FILE,R)
  1331. *
  1332. * ENTRY (FILE) = FIRST WORD OF THE FET.
  1333. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  1334. *
  1335. * READ(FILE); (*SYMPL* CALL)
  1336. *
  1337. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  1338. * (R) = RECALL IF .NE. 0, RECALL IS REQUESTED.
  1339. *
  1340. * USES X - 2.
  1341. * A - 2.
  1342. * B - 1.
  1343. *
  1344. * MACROS READ.
  1345.  
  1346.  
  1347. READ SUBR ENTRY/EXIT
  1348. SB1 1
  1349. SA2 A1+B1 GET RECALL PARAMETER
  1350. SA2 X2
  1351. NZ X2,RED1 IF RECALL
  1352. READ X1
  1353. EQ READX
  1354.  
  1355. RED1 READ X1,R
  1356. EQ READX
  1357.  
  1358. END
  1359. IDENT READC
  1360. ENTRY READC
  1361. SYSCOM B1
  1362. TITLE READC - READ CODED LINE IN *C* FORMAT.
  1363. *COMMENT READ CODED LINE IN *C* FORMAT.
  1364. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  1365. READC SPACE 4,10
  1366. *** READC - READ CODED LINE IN *C* FORMAT.
  1367. *
  1368. * CALL READC (FILE,BUF,N,STATUS)
  1369. *
  1370. * TRANSFERS DATA UNTIL THE END OF LINE BYTE (0000) IS SENSED.
  1371. *
  1372. * ENTRY (FILE) = FIRST WORD OF THE FET.
  1373. * (BUF) = FIRST WORD OF THE WORKING BUFFER.
  1374. * (N) = WORD COUNT OF THE WORKING BUFFER.
  1375. *
  1376. * READC(FILE,BUF,N,STATUS); (*SYMPL* CALL)
  1377. *
  1378. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  1379. * BUF, AN ARRAY TO BE USED AS READ BUFFER.
  1380. * N, AN ITEM THAT CONTAINS THE NUMBER OF WORDS
  1381. * IN *BUF*.
  1382. *
  1383. * EXIT (STATUS) = 0, TRANSFER COMPLETE.
  1384. * = -1, END-OF-FILE DETECTED ON FILE.
  1385. * = -2, END-OF-INFORMATION DETECTED ON FILE.
  1386. * = LWA, END-OF-RECORD DETECTED ON FILE BEFORE
  1387. * TRANSFER WAS COMPLETE.
  1388. * LWA = ADDRESS + 1 OF LAST WORD TRANSFERRED TO
  1389. * WORKING BUFFER.
  1390. *
  1391. * USES X - 3, 4, 5, 6.
  1392. * A - 3, 4, 5, 6.
  1393. * B - 1.
  1394. *
  1395. * MACROS READC.
  1396.  
  1397.  
  1398.  
  1399. READC SUBR ENTRY/EXIT
  1400. SB1 1
  1401. SA3 A1+B1 FWA OF WORKING BUFFER
  1402. SA4 A3+B1 ADDRESS OF WORD COUNT
  1403. SA5 A4+B1 (X5) = ADDRESS OF STATUS WORD
  1404. SA4 X4 WORD COUNT
  1405. READC X1,X3,X4
  1406. BX6 X1
  1407. SA6 X5
  1408. EQ READCX
  1409.  
  1410. END
  1411. IDENT READCW
  1412. ENTRY READCW
  1413. SYSCOM B1
  1414. TITLE READCW - READ FILE NON-STOP WITH CONTROL WORDS.
  1415. *COMMENT READ FILE NON-STOP WITH CONTROL WORDS.
  1416. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  1417. READCW SPACE 4,10
  1418. *** READCW - READ FILE NON-STOP WITH CONTROL WORDS.
  1419. *
  1420. * CALL READCW (FILE,LEVEL,R)
  1421. *
  1422. * ENTRY (FILE) = FIRST WORD OF THE FET.
  1423. * (LEVEL) = RECORD LEVEL.
  1424. * = 0, STOP AT END OF INFORMATION.
  1425. * = 17B, STOP AT END OF FILE.
  1426. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  1427. *
  1428. * READCW(FILE,LEVEL,R); (*SYMPL* CALL)
  1429. *
  1430. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  1431. * LEVEL, AN ITEM CONTAINING ONE OF THE FOLLOWING
  1432. * VALUES.
  1433. * 0, STOP AT EOI.
  1434. * 17B, STOP AT EOF.
  1435. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  1436. *
  1437. * USES X - 2, 3.
  1438. * A - 2, 3.
  1439. * B - 1.
  1440. *
  1441. * MACROS READCW.
  1442.  
  1443. READCW SUBR ENTRY/EXIT
  1444. SB1 1
  1445. SA3 A1+B1 ADDRESS OF LEVEL
  1446. SA2 A3+B1 GET ADDRESS OF RECALL PARAMETER
  1447. SA3 X3 LEVEL
  1448. SA2 X2
  1449. NZ X2,RED1 IF RECALL REQUESTED
  1450. READCW X1,X3
  1451. EQ READCWX
  1452.  
  1453. RED1 READCW X1,X3,R
  1454. EQ READCWX EXIT
  1455.  
  1456. END
  1457. IDENT READEI
  1458. ENTRY READEI
  1459. SYSCOM B1
  1460. TITLE READEI - READ FILE TO END OF INFORMATION.
  1461. *COMMENT READ FILE TO END OF INFORMATION.
  1462. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  1463. READEI SPACE 4,10
  1464. *** READEI - READ FILE TO END OF INFORMATION.
  1465. *
  1466. * CALL READEI (FILE,R)
  1467. *
  1468. * ENTRY (FILE) = FIRST WORD OF THE FET.
  1469. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  1470. *
  1471. * READEI(FILE,R); (*SYMPL* CALL)
  1472. *
  1473. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  1474. *
  1475. * USES X - 2.
  1476. * A - 2.
  1477. * B - 1.
  1478. *
  1479. * MACROS READEI.
  1480.  
  1481.  
  1482. READEI SUBR ENTRY/EXIT
  1483. SB1 1
  1484. SA2 A1+B1
  1485. SA2 X2
  1486. NZ X2,RED1 IF RECALL REQUESTED
  1487. READEI X1
  1488. EQ READEIX
  1489.  
  1490. RED1 READEI X1,R
  1491. EQ READEIX
  1492.  
  1493. END
  1494. IDENT READH
  1495. ENTRY READH
  1496. SYSCOM B1
  1497. TITLE READH - READ CODED LINE IN *H* FORMAT.
  1498. *COMMENT READ CODED LINE IN *H* FORMAT.
  1499. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  1500. READH SPACE 4,10
  1501. *** READH - READ CODED LINE IN *H* FORMAT.
  1502. *
  1503. * CALL READH (FILE,BUF,N,STATUS)
  1504. *
  1505. * TRANSFERS DATA UNTIL THE END OF LINE BYTE (0000) IS SENSED.
  1506. * FILLS TRAILING SPACES INTO THE WORKING BUFFER.
  1507. *
  1508. * ENTRY (FILE) = FIRST WORD OF THE FET.
  1509. * (BUF) = FIRST WORD OF THE WORKING BUFFER.
  1510. * (N) = WORD COUNT OF THE WORKING BUFFER.
  1511. *
  1512. * READH(FILE,BUF,N,STATUS); (*SYMPL* CALL)
  1513. *
  1514. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  1515. * BUF, AN ARRAY TO BE USED AS READ BUFFER.
  1516. * N, AN ITEM THAT CONTAINS THE NUMBER OF WORDS IN BUF.
  1517. *
  1518. * EXIT (STATUS) = 0, TRANSFER COMPLETE
  1519. * = -1, END-OF-FILE DETECTED ON FILE.
  1520. * = -2, END-OF-INFORMATION DETECTED ON FILE.
  1521. * = LWA, END-OF-RECORD DETECTED ON FILE BEFORE
  1522. * TRANSFER WAS COMPLETE.
  1523. * LWA = ADDRESS + 1 OF LAST WORD TRANSFERRED TO
  1524. * WORKING BUFFER.
  1525. *
  1526. * USES X - 3, 4, 5, 6.
  1527. * A - 3, 4, 5, 6.
  1528. * B - 1.
  1529. *
  1530. * MACROS READH.
  1531.  
  1532.  
  1533. READH SUBR ENTRY/EXIT
  1534. SB1 1
  1535. SA3 A1+B1 FWA OF WORKING BUFFER
  1536. SA4 A3+B1 ADDRESS OF WORD COUNT
  1537. SA5 A4+B1 (X5) = ADDRESS OF STATUS WORD
  1538. SA4 X4 WORD COUNT
  1539. READH X1,X3,X4
  1540. BX6 X1
  1541. SA6 X5
  1542. EQ READHX
  1543.  
  1544. END
  1545. IDENT READLS
  1546. ENTRY READLS
  1547. SYSCOM B1
  1548. TITLE READLS - READ FILE WITH LIST.
  1549. *COMMENT READ FILE WITH LIST.
  1550. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  1551. READLS SPACE 4,10
  1552. *** READLS - READ FILE WITH LIST.
  1553. * MASS STORAGE FILES ONLY.
  1554. *
  1555. * CALL READLS (FILE,R)
  1556. *
  1557. * ENTRY (FILE) = FIRST WORD OF THE FET.
  1558. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  1559. *
  1560. * READS(FILE,R); (*SYMPL* CALL)
  1561. *
  1562. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  1563. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  1564. *
  1565. * USES X - 2.
  1566. * A - 2.
  1567. * B - 1.
  1568. *
  1569. * MACROS READLS.
  1570.  
  1571.  
  1572. READLS SUBR ENTRY/EXIT
  1573. SB1 1
  1574. SA2 A1+B1 GET RECALL PARAMETER
  1575. SA2 X2
  1576. NZ X2,RED1 IF RECALL REQUESTED
  1577. READLS X1
  1578. EQ READLSX
  1579.  
  1580. RED1 READLS X1,R
  1581. EQ READLSX
  1582.  
  1583. END
  1584. IDENT READN
  1585. ENTRY READN
  1586. TITLE READN - READ FILE NON-STOP FOR TAPES.
  1587. *COMMENT READ FILE NON-STOP FOR TAPES.
  1588. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  1589. READN SPACE 4,10
  1590. *** READN - READ FILE NON-STOP FOR TAPES.
  1591. * MAGNETIC TAPES IN S OR L FORMAT ONLY.
  1592. *
  1593. * CALL READN (FILE,R)
  1594. *
  1595. * ENTRY (FILE) = FIRST WORD OF THE FET.
  1596. *
  1597. * READN(FILE,R); (*SYMPL* CALL)
  1598. *
  1599. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  1600. *
  1601. * USES X - 2.
  1602. * A - 2.
  1603. * B - 1.
  1604. *
  1605. * MACROS READN.
  1606.  
  1607.  
  1608. READN SUBR ENTRY/EXIT
  1609. SB1 1
  1610. SA2 A1+B1 GET RECALL PARAMETER
  1611. SA2 X2
  1612. NZ X2,RED1 IF RECALL REQUESTED
  1613. READN X1
  1614. EQ READNX
  1615.  
  1616. RED1 READN X1,R
  1617. EQ READNX
  1618.  
  1619. END
  1620. IDENT READNS
  1621. ENTRY READNS
  1622. SYSCOM B1
  1623. TITLE READNS - READ FILE NON-STOP (READ TO EOF).
  1624. *COMMENT READ FILE NON-STOP (READ TO EOF).
  1625. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  1626. READNS SPACE 4,10
  1627. *** READNS - READ FILE NON-STOP (READ TO EOF).
  1628. *
  1629. * CALL READNS (FILE,R)
  1630. *
  1631. * ENTRY (FILE) = FIRST WORD OF THE FET.
  1632. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  1633. *
  1634. * READNS(FILE,R); (*SYMPL* CALL)
  1635. *
  1636. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  1637. * (R) = RECALL, IF .NE. 0, RECALL REQUESTED.
  1638. *
  1639. * USES X - 2.
  1640. * A - 2.
  1641. * B - 1.
  1642. *
  1643. * MACROS READNS.
  1644.  
  1645.  
  1646. READNS SUBR ENTRY/EXIT
  1647. SB1 1
  1648. SA2 A1+B1 GET RECALL PARAMETER
  1649. SA2 X2
  1650. NZ X2,RED1 IF RECALL REQUESTED
  1651. READNS X1
  1652. EQ READNSX
  1653.  
  1654. RED1 READNS X1,R
  1655. EQ READNSX EXIT
  1656.  
  1657. END
  1658. IDENT READO
  1659. ENTRY READO
  1660. SYSCOM B1
  1661. TITLE READO - READ ONE WORD.
  1662. *COMMENT READ ONE WORD.
  1663. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  1664. READO SPACE 4,10
  1665. *** READO - READ ONE WORD.
  1666. *
  1667. * CALL READO (FILE,WORD,STATUS)
  1668. *
  1669. * ENTRY (FILE) = FIRST WORD OF THE FET.
  1670. *
  1671. * READO(FILE,WORD,STATUS); (*SYMPL* CALL)
  1672. *
  1673. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  1674. *
  1675. * EXIT (WORD) = WORD READ IF (STATUS) = 0.
  1676. * (STATUS) = 0, TRANSFER COMPLETE.
  1677. * = -1, END-OF-FILE DETECTED ON FILE.
  1678. * = -2, END-OF-INFORMATION DETECTED ON FILE.
  1679. * = LWA, END-OF-RECORD DETECTED ON FILE BEFORE
  1680. * TRANSFER WAS COMPLETE.
  1681. * LWA = ADDRESS + 1 OF LAST WORD TRANSFERRED TO
  1682. * WORKING BUFFER.
  1683. *
  1684. * USES X - 3, 5, 6, 7.
  1685. * A - 3, 5, 6, 7.
  1686. * B - 1.
  1687. *
  1688. * MACROS READO.
  1689.  
  1690.  
  1691. READO SUBR ENTRY/EXIT
  1692. SB1 1
  1693. SA3 A1+B1 ADDRESS OF WORD
  1694. SA5 A3+B1 (X5) = ADDRESS OF STATUS WORD
  1695. BX0 X3
  1696. READO X1
  1697. SA6 X0 WORD READ
  1698. BX7 X1 STATUS
  1699. SA7 X5
  1700. EQ READOX
  1701.  
  1702. END
  1703. IDENT READS
  1704. ENTRY READS
  1705. SYSCOM B1
  1706. TITLE READS - READ CODED LINE TO CHARACTER BUFFER.
  1707. *COMMENT READ CODED LINE TO CHARACTER BUFFER.
  1708. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  1709. READS SPACE 4,10
  1710. *** READS - READ CODED LINE TO CHARACTER BUFFER.
  1711. *
  1712. * CALL READS (FILE,BUF,N,STATUS)
  1713. *
  1714. * UNPACKS WORDS AND STORES THEM IN THE WORKING BUFFER, ONE
  1715. * CHARACTER/WORD, UNTIL THE END OF LINE BYTE (0000) IS SENSED.
  1716. * FILLS THE WORKING BUFFER WITH SPACE CODES IF THE CODED LINE
  1717. * TERMINATES BEFORE *N* CHARACTERS ARE STORED.
  1718. *
  1719. * ENTRY (FILE) = FIRST WORD OF THE FET.
  1720. * (BUF) = FIRST WORD OF THE WORKING BUFFER.
  1721. * (N) = WORD COUNT OF THE WORKING BUFFER.
  1722. *
  1723. * READS(FILE,BUF,N,STATUS); (*SYMPL* CALL)
  1724. *
  1725. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  1726. * BUF, AN ARRAY TO BE USED AS READ BUFFER.
  1727. * N, AN ITEM THAT CONTAINS THE NUMBER OF WORD IN BUF.
  1728. *
  1729. * EXIT (STATUS) = 0, TRANSFER COMPLETE
  1730. * = -1, END-OF-FILE DETECTED ON FILE.
  1731. * = -2, END-OF-INFORMATION DETECTED ON FILE.
  1732. * = LWA, END-OF-RECORD DETECTED ON FILE BEFORE
  1733. * TRANSFER WAS COMPLETE.
  1734. * LWA = ADDRESS + 1 OF LAST WORD TRANSFERRED TO
  1735. * WORKING BUFFER.
  1736. *
  1737. * USES X - 3, 4, 5, 6.
  1738. * A - 3, 4, 5, 6.
  1739. * B - 1.
  1740. *
  1741. * MACROS READS.
  1742.  
  1743.  
  1744. READS SUBR ENTRY/EXIT
  1745. SB1 1
  1746. SA3 A1+B1 FWA OF WORKING BUFFER
  1747. SA4 A3+B1 ADDRESS OF WORD COUNT
  1748. SA5 A4+B1 (X5) = ADDRESS OF STATUS WORD
  1749. SA4 X4 WORD COUNT
  1750. READS X1,X3,X4
  1751. BX6 X1
  1752. SA6 X5
  1753. EQ READSX
  1754.  
  1755. END
  1756. IDENT READSKP
  1757. ENTRY READSKP
  1758. SYSCOM B1
  1759. TITLE READSKP - READ FILE AND SKIP.
  1760. *COMMENT READ FILE AND SKIP.
  1761. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  1762. READSKP SPACE 4,10
  1763. *** READSKP - READ FILE AND SKIP.
  1764. *
  1765. * CALL READSKP (FILE,LEVEL,R)
  1766. *
  1767. * ENTRY (FILE) = FIRST WORD OF THE FET.
  1768. * (LEVEL) = RECORD LEVEL.
  1769. * = 0, SKIP TO END OF RECORD.
  1770. * = 17B, SKIP TO END OF FILE.
  1771. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  1772. *
  1773. * READSKP(FILE,LEVEL,R); (*SYMPL* CALL)
  1774. *
  1775. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  1776. * LEVEL, AN ITEM THAT CONTAINS ONE OF THE FOLLOWING
  1777. * VALUES.
  1778. * 0, SKIP TO EOR.
  1779. * 17B, SKIP TO EOF.
  1780. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  1781. *
  1782. * USES X - 2, 3.
  1783. * A - 2, 3.
  1784. * B - 1.
  1785. *
  1786. * MACROS READSKP.
  1787.  
  1788.  
  1789.  
  1790.  
  1791. READSKP SUBR ENTRY/EXIT
  1792. SB1 1
  1793. SA3 A1+B1 ADDRESS OF LEVEL
  1794. SA2 A3+B1 GET ADDRESS OF RECALL PARAMETER
  1795. SA3 X3 LEVEL
  1796. SA2 X2
  1797. NZ X2,RED1 IF RECALL REQUESTED
  1798. READSKP X1,X3
  1799. EQ READSKPX
  1800.  
  1801. RED1 READSKP X1,X3,R
  1802. EQ READSKPX
  1803.  
  1804. END
  1805. IDENT READW
  1806. ENTRY READW
  1807. SYSCOM B1
  1808. TITLE READW - READ DATA TO WORKING BUFFER.
  1809. *COMMENT READ DATA TO WORKING BUFFER.
  1810. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  1811. READW SPACE 4,10
  1812. *** READW - READ DATA TO WORKING BUFFER.
  1813. *
  1814. * CALL READW (FILE,BUF,N,STATUS)
  1815. *
  1816. * ENTRY (FILE) = FIRST WORD OF THE FET.
  1817. * (BUF) = FIRST WORD OF THE WORKING BUFFER.
  1818. * (N) = WORD COUNT OF THE WORKING BUFFER.
  1819. *
  1820. * EXIT (STATUS) = 0, TRANSFER COMPLETE.
  1821. * = -1, END-OF-FILE DETECTED ON FILE.
  1822. * = -2, END-OF-INFORMATION DETECTED ON FILE.
  1823. * = LWA, END-OF-RECORD DETECTED ON FILE BEFORE
  1824. * TRANSFER WAS COMPLETE.
  1825. * LWA = ADDRESS + 1 OF LAST WORD TRANSFERRED TO
  1826. * WORKING BUFFER.
  1827. *
  1828. * READW(FILE,BUF,N,STATUS); (*SYMPL* CALL)
  1829. *
  1830. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  1831. * BUF, AN ARRAY TO BE USED AS READ BUFFER.
  1832. * N, AN ITEM THAT CONTAINS THE NUMBER OF WORD IN BUF.
  1833. *
  1834. * EXIT STATUS, AN ITEM THAT WILL HAVE THE RESPONSE VALUE
  1835. * PUT IN IT.
  1836. *
  1837. * USES X - 3, 4, 5, 6.
  1838. * A - 3, 4, 5, 6.
  1839. * B - 1.
  1840. *
  1841. * MACROS READW.
  1842.  
  1843.  
  1844. READW SUBR ENTRY/EXIT
  1845. SB1 1
  1846. SA3 A1+B1 FWA OF WORKING BUFFER
  1847. SA4 A3+B1 ADDRESS OF WORD COUNT
  1848. SA5 A4+B1 (X5) = ADDRESS OF STATUS WORD
  1849. SA4 X4 WORD COUNT
  1850. READW X1,X3,X4
  1851. BX6 X1
  1852. SA6 X5
  1853. EQ READWX
  1854.  
  1855. END
  1856. IDENT RECALL
  1857. ENTRY RECALL
  1858. SYSCOM B1
  1859. TITLE RECALL - PLACE PROGRAM IN RECALL STATUS.
  1860. *COMMENT PLACE PROGRAM IN RECALL STATUS.
  1861. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  1862. RECALL SPACE 4,10
  1863. *** RECALL - PLACE PROGRAM IN RECALL STATUS.
  1864. *
  1865. * CALL RECALL (STATUS)
  1866. *
  1867. * ENTRY (STATUS) = 0, ONE SYSTEM PERIODIC RECALL IS ISSUED.
  1868. * = OTHER, PROGRAM IS RECALLED WHEN
  1869. * BIT 0 IS SET.
  1870. *
  1871. * RECALL(STATUS); (*SYMPL* CALL)
  1872. *
  1873. * ENTRY STATUS, AN ITEM CONTAINING 0 OR THE ADDRESS
  1874. * OF THE WORD CONTAINING THE COMPLETION BIT.
  1875. *
  1876. * USES X - 2.
  1877. * A - 2.
  1878. * B - 1.
  1879. *
  1880. * MACROS RECALL.
  1881.  
  1882.  
  1883. RECALL SUBR ENTRY/EXIT
  1884. SB1 1
  1885. SA2 X1 STATUS WORD
  1886. ZR X2,REC1 IF SINGLE RECALL
  1887. RECALL X1 AUTO-RECALL
  1888. EQ RECALLX
  1889.  
  1890. REC1 RECALL
  1891. EQ RECALLX
  1892.  
  1893. END
  1894. IDENT RENAME
  1895. ENTRY RENAME
  1896. SYSCOM B1
  1897. TITLE RENAME - RENAME ASSIGNED FILE.
  1898. *COMMENT RENAME ASSIGNED FILE.
  1899. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  1900. RENAME SPACE 4,10
  1901. *** RENAME - RENAME ASSIGNED FILE.
  1902. *
  1903. * CALL RENAME (FILE,NFN)
  1904. *
  1905. * ENTRY (FILE) = FIRST WORD OF THE FET.
  1906. * (NFN) = NEW FILE NAME, LEFT JUSTIFIED, ZERO FILLED,
  1907. * SEVEN CHARACTER MAXIMUM.
  1908. *
  1909. * RENAME(FILE,NFN); (*SYMPL* CALL)
  1910. *
  1911. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  1912. * (NFN) = NEW FILE NAME, LEFT JUSTIFIED, ZERO FILLED,
  1913. * SEVEN CHARACTER MAXIMUM.
  1914. *
  1915. * USES X - 2, 6.
  1916. * A - 2, 6.
  1917. * B - 1.
  1918. *
  1919. * MACROS RENAME.
  1920.  
  1921.  
  1922. RENAME SUBR ENTRY/EXIT
  1923. SB1 1
  1924. SA2 A1+B1 GET NEW FILE NAME
  1925. SA2 X2
  1926. BX6 X2
  1927. SA6 X1+6 STORE NEW FILE NAME IN FET
  1928. RENAME X1
  1929. EQ RENAMEX RETURN
  1930.  
  1931. END
  1932. IDENT REQUEST
  1933. ENTRY REQUEST
  1934. SYSCOM B1
  1935. TITLE REQUEST - REQUEST ASSIGNMENT OF EQUIPMENT TO FILE.
  1936. *COMMENT REQUEST ASSIGNMENT OF EQUIPMENT TO FILE.
  1937. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  1938. REQUEST SPACE 4,10
  1939. *** REQUEST - REQUEST ASSIGNMENT OF EQUIPMENT TO FILE.
  1940. *
  1941. * CALL REQUEST (LIST)
  1942. *
  1943. * ENTRY SEE *NOS SYSTEM REFERENCE MANUAL*.
  1944. *
  1945. * REQUEST(LIST); (*SYMPL* CALL)
  1946. *
  1947. * ENTRY AN ARRAY CONTAINING A REQUEST LIST, SEE *NOS
  1948. * REFERENCE MANUAL*.
  1949. *
  1950. * USES B - 1.
  1951. *
  1952. * MACROS REQUEST.
  1953.  
  1954.  
  1955. REQUEST SUBR ENTRY/EXIT
  1956. SB1 1
  1957. REQUEST X1
  1958. EQ REQUESTX
  1959.  
  1960. END
  1961. IDENT REQWEST
  1962. ENTRY REQWEST
  1963. SYSCOM B1
  1964. TITLE REQWEST - REQUEST AUTO ASSIGNMENT OF EQUIPMENT.
  1965. *COMMENT MAC1 - REQUEST AUTO ASSIGNMENT OF EQUIPMENT.
  1966. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  1967. SPACE 4,10
  1968. *** REQWEST - REQUEST (015) AUTO ASSIGNMENT OF EQUIPMENT TO FILE.
  1969. *
  1970. * NOTE - *REQWEST* (*LFM* FUNCTION 015) IS SPELLED WITH A *W*
  1971. * TO DISTINGUISH IT FROM *REQUEST* (*LFM* FUNCTION 014).
  1972. *
  1973. * *SYMPL* CALL -
  1974. * REQWEST(FILE,M);
  1975. *
  1976. * ENTRY (FILE) = FET, (FET+1 BITS 59-48 CONTAIN DEVICE TYPE).
  1977. * (M) = IF NON ZERO, DAYFILE MESSAGE INDICATING
  1978. * DEVICE TO WHICH THE FILE IS ASSIGNED WILL BE
  1979. * ISSUED BY *LFM*.
  1980. * IF ZERO, NO DAYFILE MESSAGE WILL BE ISSUED.
  1981. *
  1982. * USES X - 2.
  1983. * A - 2.
  1984. * B - 1.
  1985. *
  1986. * MACROS REQUEST.
  1987.  
  1988.  
  1989. REQWEST SUBR ENTRY/EXIT
  1990. SB1 1
  1991. SA2 A1+B1
  1992. SA2 X2
  1993. ZR X2,REQW1 IF NO DAYFILE MESSAGE
  1994. REQUEST X1,U
  1995. EQ REQWESTX RETURN
  1996.  
  1997. REQW1 REQUEST X1,U,N
  1998. EQ REQWESTX RETURN
  1999.  
  2000. END
  2001. IDENT RETURN
  2002. ENTRY RETURN
  2003. ENTRY RETERN
  2004. SYSCOM B1
  2005. TITLE RETURN - RETURN FILE TO SYSTEM.
  2006. *COMMENT RETURN FILE TO SYSTEM.
  2007. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  2008. RETURN SPACE 4,10
  2009. *** RETURN - RETURN FILE TO SYSTEM.
  2010. *
  2011. * CALL RETURN (FILE,R)
  2012. *
  2013. * ENTRY (FILE) = FIRST WORD OF THE FET.
  2014. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  2015. *
  2016. * RETERN(FILE,R); (*SYMPL* CALL)
  2017. *
  2018. * NOTE RETURN IS A RESERVED WORD IN *SYMPL*, A CALL TO
  2019. * THE RETURN MACRO IN *SYMPL* MUST SPELL RETURN WITH
  2020. * AN *E* INSTEAD OF A *U*.
  2021. *
  2022. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  2023. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  2024. *
  2025. * USES X - 2.
  2026. * A - 2.
  2027. * B - 1.
  2028. *
  2029. * MACROS RETURN.
  2030.  
  2031.  
  2032.  
  2033. RETERN BSS 0 ENTRY FOR *SYMPL* ROUTINES
  2034. RETURN SUBR ENTRY/EXIT
  2035. SB1 1
  2036. SA2 A1+B1 GET RECALL PARAMETER
  2037. SA2 X2
  2038. NZ X2,RET1 IF RECALL REQUESTED
  2039. RETURN X1
  2040. EQ RETURNX
  2041.  
  2042. RET1 RETURN X1,R
  2043. EQ RETURNX
  2044.  
  2045. END
  2046. IDENT REWIND
  2047. ENTRY REWIND
  2048. SYSCOM B1
  2049. TITLE REWIND - REWIND FILE.
  2050. *COMMENT REWIND FILE.
  2051. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  2052. REWIND SPACE 4,10
  2053. *** REWIND - REWIND FILE.
  2054. *
  2055. * CALL REWIND (FILE,R)
  2056. *
  2057. * ENTRY (FILE) = FIRST WORD OF THE FET.
  2058. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  2059. *
  2060. * REWIND(FILE,R); (*SYMPL* CALL)
  2061. *
  2062. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  2063. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  2064. *
  2065. * USES X - 2.
  2066. * A - 2.
  2067. * B - 1.
  2068. *
  2069. * MACROS REWIND.
  2070.  
  2071.  
  2072. REWIND SUBR ENTRY/EXIT
  2073. SB1 1
  2074. SA2 A1+B1 GET RECALL PARAMETER
  2075. SA2 X2
  2076. NZ X2,REW1 IF RECALL REQUESTED
  2077. REWIND X1
  2078. EQ REWINDX
  2079.  
  2080. REW1 REWIND X1,R
  2081. EQ REWINDX
  2082.  
  2083. END
  2084. IDENT REWRITE
  2085. ENTRY REWRITE
  2086. SYSCOM B1
  2087. TITLE REWRITE - REWRITE DATA FROM *CIO* BUFFER.
  2088. *COMMENT REWRITE DATA FROM *CIO* BUFFER.
  2089. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  2090. REWRITE SPACE 4,10
  2091. *** REWRITE - REWITE DATA FROM *CIO* BUFFER.
  2092. * MASS STORAGE FILES ONLY.
  2093. *
  2094. * CALL REWRITE (FILE,R)
  2095. *
  2096. * ENTRY (FILE) = FIRST WORD OF THE FET.
  2097. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  2098. *
  2099. * REWRITE(FILE,R); (*SYMPL* CALL)
  2100. *
  2101. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  2102. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  2103. *
  2104. * USES X - 2.
  2105. * A - 2.
  2106. * B - 1.
  2107. *
  2108. * MACROS REWRITE.
  2109.  
  2110.  
  2111. REWRITE SUBR ENTRY/EXIT
  2112. SB1 1
  2113. SA2 A1+B1 GET RECALL PARAMETER
  2114. SA2 X2
  2115. NZ X2,REW1 IF RECALL REQUESTED
  2116. REWRITE X1
  2117. EQ REWRITEX
  2118.  
  2119. REW1 REWRITE X1,R
  2120. EQ REWRITEX
  2121.  
  2122. END
  2123. IDENT REWRITF
  2124. ENTRY REWRITF
  2125. SYSCOM B1
  2126. TITLE REWRITF - REWRITE END OF FILE.
  2127. *COMMENT REWRITE END OF FILE.
  2128. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  2129. REWRITF SPACE 4,10
  2130. *** REWRITF - REWRITE END OF FILE.
  2131. * MASS STORAGE FILES ONLY.
  2132. *
  2133. * CALL REWRITF (FILE,R)
  2134. *
  2135. * ENTRY (FILE) = FIRST WORD OF THE FET.
  2136. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  2137. *
  2138. * REWRITE(FILE,R); (*SYMPL* CALL)
  2139. *
  2140. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  2141. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  2142. *
  2143. * USES X - 2.
  2144. * A - 2.
  2145. * B - 1.
  2146. *
  2147. * MACROS REWRITEF.
  2148.  
  2149.  
  2150. REWRITF SUBR ENTRY/EXIT
  2151. SB1 1
  2152. SA2 A1+B1 GET RECALL PARAMETER
  2153. SA2 X2
  2154. NZ X2,REW1 IF RECALL REQUESTED
  2155. REWRITEF X1
  2156. EQ REWRITFX
  2157.  
  2158. REW1 REWRITEF X1,R
  2159. EQ REWRITFX
  2160.  
  2161. END
  2162. IDENT REWRITR
  2163. ENTRY REWRITR
  2164. SYSCOM B1
  2165. TITLE REWRITR - REWRITE END OF RECORD.
  2166. *COMMENT REWRITE END OF RECORD.
  2167. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  2168. REWRITR SPACE 4,10
  2169. *** REWRITR - REWRITE END OF RECORD.
  2170. * MASS STORAGE FILES ONLY.
  2171. *
  2172. * CALL REWRITR (FILE,R)
  2173. *
  2174. * ENTRY (FILE) = FIRST WORD OF THE FET.
  2175. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  2176. *
  2177. * REWRITR(FILE,R); (*SYMPL* CALL)
  2178. *
  2179. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  2180. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  2181. *
  2182. * USES X - 2.
  2183. * A - 2.
  2184. * B - 1.
  2185. *
  2186. * MACROS REWRITER.
  2187.  
  2188.  
  2189. REWRITR SUBR ENTRY/EXIT
  2190. SB1 1
  2191. SA2 A1+B1 GET ADDRESS OF RECALL PARAMETER
  2192. SA2 X2
  2193. NZ X2,REW1 IF RECALL PARAMETER REQUESTED
  2194. REWRITER X1
  2195. EQ REWRITRX
  2196.  
  2197. REW1 REWRITER X1,R
  2198. EQ REWRITRX
  2199.  
  2200. END
  2201. IDENT ROLLOUT
  2202. ENTRY ROLLOUT
  2203. SYSCOM B1
  2204. TITLE ROLLOUT - ROLLOUT THE JOB.
  2205. *COMMENT ROLLOUT THE JOB.
  2206. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  2207. ROLLOUT SPACE 4,10
  2208. *** ROLLOUT - ROLLOUT THE JOB.
  2209. *
  2210. * CALL ROLLOUT (ADDR)
  2211. *
  2212. * ROLLOUT(ADDR); (*SYMPL* CALL)
  2213. *
  2214. * ENTRY (ADDR) = ADDRESS OF EVENT DEPENDENCIES.
  2215. *T, 30/0,18/EVD,12/RTP
  2216. * EVD = EVENT VALUE.
  2217. * RTP = ROLLOUT TIME PERIOD.
  2218. *
  2219. * USES B - 1.
  2220. *
  2221. * MACROS ROLLOUT.
  2222.  
  2223.  
  2224. ROLLOUT BSS 0
  2225. ROLLT SUBR ENTRY/EXIT
  2226. SB1 1
  2227. ROLLOUT X1
  2228. EQ ROLLTX EXIT
  2229.  
  2230. END
  2231. IDENT ROUTE
  2232. ENTRY ROUTE
  2233. SYSCOM B1
  2234. TITLE ROUTE - ROUTE A FILE TO A SPECIFIC DISPOSITION.
  2235. *COMMENT ROUTE A FILE TO A SPECIFIC DISPOSITION.
  2236. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  2237. SPACE 4,10
  2238. *** ROUTE - ROUTE A FILE TO A SPECIFIC DISPOSITION.
  2239. *
  2240. * CALL ROUTE(ADDR,R)
  2241. *
  2242. * ENTRY (ADDR) = ADDRESS OF PARAMETER BLOCK.
  2243. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  2244. *
  2245. * ROUTE(ADDR,R); (*SYMPL* CALL)
  2246. *
  2247. * ENTRY (ADDR) = ADDRESS OF PARAMETER BLOCK.
  2248. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  2249. *
  2250. * USES X - 1, 2.
  2251. * A - 1, 2.
  2252. * B - 1.
  2253. *
  2254. * MACROS ROUTE.
  2255.  
  2256.  
  2257. ROUTE SUBR ENTRY/EXIT
  2258. SB1 1
  2259. SA2 A1+B1 GET RECALL PARAMETER
  2260. SA2 X2
  2261. NZ X2,ROU1 IF RECALL PARAMETER
  2262. ROUTE X1
  2263. EQ ROUTEX EXIT
  2264.  
  2265. ROU1 ROUTE X1,R
  2266. EQ ROUTEX EXIT
  2267.  
  2268. END
  2269. IDENT RPHR
  2270. ENTRY RPHR
  2271. SYSCOM B1
  2272. TITLE RPHR - READ PHYSICAL RECORD TO *CIO* BUFFER.
  2273. *COMMENT READ PHYSICAL RECORD TO *CIO* BUFFER.
  2274. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  2275. RPHR SPACE 4,10
  2276. *** RPHR - READ PHYSICAL RECORD TO *CIO* BUFFER.
  2277. *
  2278. * CALL RPHR (FILE,R)
  2279. *
  2280. * ENTRY (FILE) = FIRST WORD OF THE FET.
  2281. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  2282. *
  2283. * RPHR(FILE,R); (*SYMPL* CALL)
  2284. *
  2285. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  2286. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  2287. *
  2288. * USES X - 2.
  2289. * A - 2.
  2290. * B - 1.
  2291. *
  2292. * MACROS RPHR.
  2293.  
  2294.  
  2295. RPHR SUBR ENTRY/EXIT
  2296. SB1 1
  2297. SA2 A1+B1 GET RECALL PARAMETER
  2298. SA2 X2
  2299. NZ X2,RPH1 IF RECALL REQUESTED
  2300. RPHR X1
  2301. EQ RPHRX
  2302.  
  2303. RPH1 RPHR X1,R
  2304. EQ RPHRX
  2305.  
  2306. END
  2307. IDENT RPHRLS
  2308. ENTRY RPHRLS
  2309. SYSCOM B1
  2310. TITLE RPHRLS - READ PRUS WITH LIST.
  2311. *COMMENT READ PRUS WITH LIST.
  2312. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  2313. RPHRLS SPACE 4,10
  2314. *** RPHRLS - READ PRUS WITH LIST.
  2315. *
  2316. * CALL RPHRLS (FILE,R)
  2317. *
  2318. * ENTRY (FILE) = FIRST WORD OF THE FET.
  2319. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  2320. *
  2321. * RPHRLS(FILE,R); (*SYMPL* CALL)
  2322. *
  2323. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  2324. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  2325. *
  2326. * USES X - 2.
  2327. * A - 2.
  2328. * B - 1.
  2329. *
  2330. * MACROS RPHRLS.
  2331.  
  2332.  
  2333. RPHRLS SUBR ENTRY/EXIT
  2334. SB1 1
  2335. SA2 A1+B1 GET RECALL PARAMETER
  2336. SA2 X2
  2337. NZ X2,RPH1 IF RECALL REQUESTED
  2338. RPHRLS X1
  2339. EQ RPHRLSX
  2340.  
  2341. RPH1 RPHRLS X1,R
  2342. EQ RPHRLSX
  2343.  
  2344. END
  2345. IDENT RTIME
  2346. ENTRY RTIME
  2347. SYSCOM B1
  2348. TITLE RTIME - OBTAIN REAL TIME CLOCK READING.
  2349. *COMMENT OBTAIN REAL TIME CLOCK READING.
  2350. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  2351. RTIME SPACE 4,10
  2352. *** RTIME - OBTAIN REAL TIME CLOCK READING.
  2353. *
  2354. * CALL RTIME (STATUS)
  2355. *
  2356. * EXIT (STATUS) = RESPONSE.
  2357. * RESPONSE =
  2358. *T 24/ SECONDS,36/ MILLISECONDS
  2359. * TIME IS SYSTEM SOFTWARE CLOCK TIME SINCE DEADSTART.
  2360. *
  2361. * RTIME(STATUS); (*SYMPL* CALL)
  2362. *
  2363. * EXIT STATUS, AN ITEM THAT WILL CONTAIN THE RTIME
  2364. * STATUS WORD ON EXIT.
  2365. *
  2366. * USES X - 1, 6.
  2367. * A - 1.
  2368. * B - 1.
  2369. *
  2370. * MACROS RTIME.
  2371.  
  2372.  
  2373. RTIME SUBR ENTRY/EXIT
  2374. SB1 1
  2375. BX5 X1
  2376. RTIME X1
  2377. SA1 X5
  2378. BX6 X1 RETURN RESPONSE AS FUNCTION RESULT
  2379. EQ RTIMEX
  2380.  
  2381. END
  2382. IDENT SETJCI
  2383. ENTRY SETJCI
  2384. SYSCOM B1
  2385. TITLE SETJCI - SET JOB CONTROL INFORMATION.
  2386. *COMMENT SET JOB CONTROL INFORMATION.
  2387. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  2388. SETJCI SPACE 4,25
  2389. *** SETJCI - SET JOB CONTROL INFORMATION.
  2390. *
  2391. * CALL SETJCI(ADDR)
  2392. *
  2393. * ENTRY (ADDR) = A TWO WORD ARRAY SPECIFYING JOB
  2394. * CONTROL INFORMATION.
  2395. *
  2396. * EXIT JOB CONTROL INFORMATION SET IN USER,S
  2397. * CONTROL POINT AREA.
  2398. *
  2399. * SETJCI(ADDR); (*SYMPL* CALL)
  2400. *
  2401. * ENTRY (ADDR) = A TWO WORD ARRAY SPECIFYING
  2402. * JOB CONTROL INFORMATION.
  2403. * THE FORMAT OF THE ARRAY IS-
  2404. *T ADDR 6/EFG,18/REG,12/CCL,12/EM,6/SSW,6/0
  2405. *T, 6/EF,18/R3,18/R2,18/R1
  2406. * EFG = GLOBAL ERROR FLAG.
  2407. * REG = GLOBAL REGISTER.
  2408. * CCL = RESERVED FOR CCL USE.
  2409. * EM = EXIT MODE (REFER TO *NOS* REFERENCE VOL. 2).
  2410. * SSW = SENSE SWITCHES.
  2411. * EF = LAST ERROR FLAG ENCOUNTERED.
  2412. * R3 = JOB CONTROL REGISTER 3.
  2413. * R2 = JOB CONTROL REGISTER 2.
  2414. * R1 = JOB CONTROL REGISTER 1.
  2415. *
  2416. * EXIT JOB CONTROL INFORMATION SET IN USER,S
  2417. * CONTROL POINT AREA.
  2418. *
  2419. * USES B - 1.
  2420. *
  2421. * MACROS SETJCI.
  2422.  
  2423.  
  2424. SETJCI SUBR ENTRY/EXIT
  2425. SB1 1
  2426. SETJCI X1
  2427. EQ SETJCIX RETURN
  2428.  
  2429. END
  2430. IDENT SKIPB
  2431. ENTRY SKIPB
  2432. SYSCOM B1
  2433. TITLE SKIPB - SKIP RECORDS BACKWARDS.
  2434. *COMMENT SKIP RECORDS BACKWARDS.
  2435. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  2436. SKIPB SPACE 4,10
  2437. *** SKIPB - SKIP RECORDS BACKWARDS.
  2438. *
  2439. * CALL SKIPB (FILE,N,R)
  2440. *
  2441. * ENTRY (FILE) = FIRST WORD OF THE FET.
  2442. * (N) = NUMBER OF RECORDS.
  2443. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  2444. *
  2445. * SKIPB(FILE,N,R); (*SYMPL* CALL)
  2446. *
  2447. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  2448. * N, AN ITEM CONTAINING THE NUMBER OF RECORDS TO SKIP.
  2449. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  2450. *
  2451. * USES X - 2, 3.
  2452. * A - 2, 3.
  2453. * B - 1.
  2454. *
  2455. * MACROS SKIPB.
  2456.  
  2457. SKIPB SUBR ENTRY/EXIT
  2458. SB1 1
  2459. SA3 A1+B1 ADDRESS OF N
  2460. SA2 A3+B1 GET ADDRESS OF RECALL PARAMETER
  2461. SA3 X3 N
  2462. SA2 X2
  2463. NZ X2,SKI1 IF RECALL REQUESTED
  2464. SKIPB X1,X3
  2465. EQ SKIPBX
  2466.  
  2467. SKI1 SKIPB X1,X3,R
  2468. EQ SKIPBX
  2469.  
  2470. END
  2471. IDENT SKIPEI
  2472. ENTRY SKIPEI
  2473. SYSCOM B1
  2474. TITLE SKIPEI - SKIP TO END OF INFORMATION.
  2475. *COMMENT SKIP TO END OF INFORMATION.
  2476. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  2477. SKIPEI SPACE 4,10
  2478. *** SKIPEI - SKIP TO END OF INFORMATION.
  2479. *
  2480. * CALL SKIPEI (FILE,R)
  2481. *
  2482. * ENTRY (FILE) = FIRST WORD OF THE FET.
  2483. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  2484. *
  2485. * SKIPEI(FILE,R); (*SYMPL* CALL)
  2486. *
  2487. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  2488. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  2489. *
  2490. * USES X - 2.
  2491. * A - 2.
  2492. * B - 1.
  2493. *
  2494. * MACROS SKIPEI.
  2495.  
  2496.  
  2497. SKIPEI SUBR ENTRY/EXIT
  2498. SB1 1
  2499. SA2 A1+B1 GET RECALL PARAMETER
  2500. SA2 X2
  2501. NZ X2,SKI1 IF RECALL REQUESTED
  2502. SKIPEI X1
  2503. EQ SKIPEIX
  2504.  
  2505. SKI1 SKIPEI X1,R
  2506. EQ SKIPEIX
  2507.  
  2508. END
  2509. IDENT SKIPF
  2510. ENTRY SKIPF
  2511. SYSCOM B1
  2512. TITLE SKIPF - SKIP RECORDS FORWARD.
  2513. *COMMENT SKIP RECORDS FORWARD.
  2514. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  2515. SKIPF SPACE 4,10
  2516. *** SKIPF - SKIP RECORDS FORWARD.
  2517. *
  2518. * CALL SKIPF (FILE,N,R)
  2519. *
  2520. * ENTRY (FILE) = FIRST WORD OF THE FET.
  2521. * (N) = NUMBER OF RECORDS.
  2522. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  2523. *
  2524. * SKIPF(FILE,N,R); (*SYMPL* CALL)
  2525. *
  2526. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  2527. * N, AN ITEM CONTAINING THE NUMBER OF RECORDS TO SKIP.
  2528. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  2529. *
  2530. * USES X - 2, 3.
  2531. * A - 2, 3.
  2532. * B - 1.
  2533. *
  2534. * MACROS SKIPF.
  2535.  
  2536.  
  2537. SKIPF SUBR ENTRY/EXIT
  2538. SB1 1
  2539. SA3 A1+B1 ADDRESS OF N
  2540. SA2 A3+B1 GET RECALL PARAMETER
  2541. SA2 X2
  2542. SA3 X3 N
  2543. NZ X2,SKI1 IF RECALL REQUESTED
  2544. SKIPF X1,X3
  2545. EQ SKIPFX
  2546.  
  2547. SKI1 SKIPF X1,X3,R
  2548. EQ SKIPFX
  2549.  
  2550. END
  2551. IDENT SKIPFB
  2552. ENTRY SKIPFB
  2553. SYSCOM B1
  2554. TITLE SKIPFB - SKIP FILES BACKWARD.
  2555. *COMMENT SKIP FILES BACKWARD.
  2556. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  2557. SKIPFB SPACE 4,10
  2558. *** SKIPFB - SKIP FILES BACKWARD.
  2559. *
  2560. * CALL SKIPFB (FILE,N,R)
  2561. *
  2562. * ENTRY (FILE) = FIRST WORD OF THE FET.
  2563. * (N) = NUMBER OF FILES.
  2564. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  2565. *
  2566. * SKIPFB(FILE,N,R); (*SYMPL* CALL)
  2567. *
  2568. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  2569. * N, AN ITEM CONTAING THE NUMBER OF FILES TO SKIP.
  2570. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  2571. *
  2572. * USES X - 2, 3.
  2573. * A - 2, 3.
  2574. * B - 1.
  2575. *
  2576. * MACROS SKIPFB.
  2577.  
  2578.  
  2579.  
  2580. SKIPFB SUBR ENTRY/EXIT
  2581. SB1 1
  2582. SA3 A1+B1 ADDRESS OF N
  2583. SA2 A3+B1 GET ADDRESS OF RECALL PARAMETER
  2584. SA3 X3 N
  2585. SA2 X2
  2586. NZ X2,SKI1 IF RECALL REQUESTED
  2587. SKIPFB X1,X3
  2588. EQ SKIPFBX
  2589.  
  2590. SKI1 SKIPFB X1,X3,R
  2591. EQ SKIPFBX
  2592.  
  2593. END
  2594. IDENT SKIPFF
  2595. ENTRY SKIPFF
  2596. SYSCOM B1
  2597. TITLE SKIPFF - SKIP FILES FORWARD.
  2598. *COMMENT SKIP FILES FORWARD.
  2599. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  2600. SKIPFF SPACE 4,10
  2601. *** SKIPFF - SKIP FILES FORWARD.
  2602. *
  2603. * CALL SKIPFF (FILE,N,R)
  2604. *
  2605. * ENTRY (FILE) = FIRST WORD OF THE FET.
  2606. * (N) = NUMBER OF FILES
  2607. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  2608. *
  2609. * SKIPFF(FILE,N,R); (*SYMPL* CALL)
  2610. *
  2611. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  2612. * N, AN ITEM THAT CONTAINS THE NUMBER OF FILES TO SKIP.
  2613. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  2614. *
  2615. * USES X - 2, 3.
  2616. * A - 2, 3.
  2617. * B - 1.
  2618. *
  2619. * MACROS SKIPFF.
  2620.  
  2621.  
  2622. SKIPFF SUBR ENTRY/EXIT
  2623. SB1 1
  2624. SA3 A1+B1 ADDRESS OF N
  2625. SA2 A3+B1 ADDRESS OF RECALL PARAMETER
  2626. SA3 X3 N
  2627. SA2 X2
  2628. NZ X2,SKI1 IF RECALL REQUESTED
  2629. SKIPFF X1,X3
  2630. EQ SKIPFFX
  2631.  
  2632. SKI1 SKIPFF X1,X3,R
  2633. EQ SKIPFFX
  2634.  
  2635. END
  2636. IDENT SYSTEM
  2637. ENTRY SYSTEM
  2638. SYSCOM B1
  2639. TITLE SYSTEM - REQUEST SYSTEM FUNCTION.
  2640. *COMMENT REQUEST SYSTEM FUNCTION.
  2641. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  2642. SYSTEM SPACE 4,10
  2643. *** SYSTEM - REQUEST SYSTEM FUNCTION.
  2644. *
  2645. * CALL SYSTEM(ARGUMENT,R)
  2646. *
  2647. * ENTRY (ARGUMENT) = 3 CHARACTER SYSTEM REQUEST NAME,
  2648. * INCLUDING OPTIONAL PARAMETERS.
  2649. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  2650. *
  2651. * SYSTEM(ARGUMENTS,R); (*SYMPL* CALL)
  2652. *
  2653. * ENTRY ARGUMENTS, AN ITEM CONTAINING THE REQUEST ARGUMENT.
  2654. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  2655. *
  2656. * EXIT DEPENDS ON CALL, SEE *NOS REFERENCE MANUAL*.
  2657. *
  2658. * USES X - 1, 2, 6.
  2659. * A - 1, 2.
  2660. * B - 1.
  2661. *
  2662. * MACROS SYSTEM.
  2663.  
  2664.  
  2665. SYSTEM SUBR ENTRY/EXIT
  2666. SB1 1
  2667. SA2 A1+B1 GET RECALL PARAMETER
  2668. SA1 X1
  2669. BX6 X1 SYSTEM REQUEST
  2670. SA2 X2
  2671. ZR X2,SYS1 IF RECALL NOT REQUESTED
  2672. MX2 1
  2673. LX2 41
  2674. BX6 X6+X2
  2675. SYS1 BSS 0
  2676. SYSTEM
  2677. EQ SYSTEMX
  2678.  
  2679. END
  2680. IDENT TIME
  2681. ENTRY TIME
  2682. SYSCOM B1
  2683. TITLE TIME - OBTAIN ACCUMULATED CPU TIME.
  2684. *COMMENT OBTAIN ACCUMULATED CPU TIME.
  2685. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  2686. TIME SPACE 4,10
  2687. *** TIME - OBTAIN ACCUMULATED CPU TIME.
  2688. *
  2689. * CALL TIME (STATUS)
  2690. *
  2691. * EXIT (STATUS) = RESPONSE
  2692. * RESPONSE =
  2693. *T 12/ 2000B,12/0,24/ SECONDS,12/ MILLISECONDS
  2694. *
  2695. * TIME(STATUS); (*SYMPL* CALL)
  2696. *
  2697. * EXIT (STATUS) = TIME STATUS WORD.
  2698. *
  2699. * USES X - 1, 5, 6.
  2700. * A - 1.
  2701. * B - 1.
  2702. *
  2703. * MACROS TIME.
  2704.  
  2705.  
  2706. TIME SUBR ENTRY/EXIT
  2707. SB1 1
  2708. BX5 X1
  2709. TIME X1
  2710. SA1 X5
  2711. BX6 X1 RETURN RESPONSE AS FUNCTION RESULT
  2712. EQ TIMEX
  2713.  
  2714. END
  2715. IDENT UNLOAD
  2716. ENTRY UNLOAD
  2717. TITLE UNLOAD - UNLOAD FILE.
  2718. *COMMENT UNLOAD FILE.
  2719. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  2720. UNLOAD SPACE 4,10
  2721. *** UNLOAD - UNLOAD FILE.
  2722. *
  2723. * CALL UNLOAD (FILE,R)
  2724. *
  2725. * ENTRY (FILE) = FIRST WORD OF THE FET.
  2726. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  2727. *
  2728. * UNLOAD(FILE,R); (*SYMPL* CALL)
  2729. *
  2730. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  2731. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  2732. *
  2733. * USES X - 2.
  2734. * A - 2.
  2735. * B - 1.
  2736. *
  2737. * MACROS UNLOAD.
  2738.  
  2739.  
  2740. UNLOAD SUBR ENTRY/EXIT
  2741. SB1 1
  2742. SA2 A1+B1 GET RECALL PARAMETER
  2743. SA2 X2
  2744. NZ X2,UNL1 IF RECALL REQUESTED
  2745. UNLOAD X1
  2746. EQ UNLOADX
  2747.  
  2748. UNL1 UNLOAD X1,R
  2749. EQ UNLOADX
  2750.  
  2751. END
  2752. IDENT VERSION
  2753. ENTRY VERSION
  2754. SYSCOM B1
  2755. TITLE VERSION - RETURN THE OPERATING SYSTEM VERSION NAME.
  2756. *COMMENT RETURN VERSION NAME.
  2757. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  2758. VERSION SPACE 4,10
  2759. *** VERSION - RETURN THE VERSION NAME OF THE OPERATING SYSTEM.
  2760. *
  2761. * CALL VERSION (ADDR)
  2762. *
  2763. * VERSION(ADDR); (*SYMPL* CALL)
  2764. *
  2765. * ENTRY (ADDR) = ADDRESS TO RECEIVE VERSION NAME.
  2766. *
  2767. * EXIT (ADDR) = VERSION NAME.
  2768. *
  2769. * USES X - 2, 3, 6.
  2770. * A - 2, 6.
  2771. *
  2772. * MACROS VERSION.
  2773.  
  2774.  
  2775. VERSION BSS 0
  2776. VERSIN SUBR ENTRY/EXIT
  2777. MX3 42
  2778. SA2 ADDR
  2779. BX2 X3*X2
  2780. BX6 X1+X2
  2781. SA6 A2
  2782. VERSION A2
  2783. EQ VERSINX EXIT
  2784.  
  2785. ADDR VFD 12/10,12/0,12/0,6/0,18/0
  2786.  
  2787. END
  2788. IDENT WPHR
  2789. ENTRY WPHR
  2790. SYSCOM B1
  2791. TITLE WPHR - WRITE 1 PHYSICAL RECORD FROM *CIO* BUFFER.
  2792. *COMMENT WRITE 1 PHYSICAL RECORD FROM *CIO* BUFFER.
  2793. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  2794. WPHR SPACE 4,10
  2795. *** WPHR - WRITE 1 PHYSICAL RECORD FROM *CIO* BUFFER.
  2796. *
  2797. * CALL WPHR (FILE,R)
  2798. *
  2799. * ENTRY (FILE) = FIRST WORD OF THE FET.
  2800. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  2801. *
  2802. * WPHR(FILE,R); (*SYMPL* CALL)
  2803. *
  2804. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  2805. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  2806. *
  2807. * USES X - 2.
  2808. * A - 2.
  2809. * B - 1.
  2810. *
  2811. * MACROS WPHR.
  2812.  
  2813.  
  2814. WPHR SUBR ENTRY/EXIT
  2815. SB1 1
  2816. SA2 A1+B1 GET RECALL PARAMETER
  2817. SA2 X2
  2818. NZ X2,WPH1 IF RECALL REQUESTED
  2819. WPHR X1
  2820. EQ WPHRX
  2821.  
  2822. WPH1 WPHR X1,R
  2823. EQ WPHRX
  2824.  
  2825. END
  2826. IDENT WRITE
  2827. ENTRY WRITE
  2828. SYSCOM B1
  2829. TITLE WRITE - WRITE DATA FROM *CIO* BUFFER.
  2830. *COMMENT WRITE DATA FROM *CIO* BUFFER.
  2831. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  2832. WRITE SPACE 4,10
  2833. *** WRITE - WRITE DATA FROM *CIO* BUFFER.
  2834. *
  2835. * CALL WRITE (FILE,R)
  2836. *
  2837. * ENTRY (FILE) = FIRST WORD OF THE FET.
  2838. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  2839. *
  2840. * WRITE(FILE,R); (*SYMPL* CALL)
  2841. *
  2842. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  2843. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  2844. *
  2845. * USES X - 2.
  2846. * A - 2.
  2847. * B - 1.
  2848. *
  2849. * MACROS WRITE.
  2850.  
  2851.  
  2852. WRITE SUBR ENTRY/EXIT
  2853. SB1 1
  2854. SA2 A1+B1 GET RECALL PARAMETER
  2855. SA2 X2
  2856. NZ X2,WRT1 IF RECALL PARAMETER REQUESTED
  2857. WRITE X1
  2858. EQ WRITEX
  2859.  
  2860. WRT1 WRITE X1,R
  2861. EQ WRITEX
  2862.  
  2863. END
  2864. IDENT WRITEC
  2865. ENTRY WRITEC
  2866. SYSCOM B1
  2867. TITLE WRITEC - WRITE CODED LINE IN *C* FORMAT.
  2868. *COMMENT WRITE CODED LINE IN *C* FORMAT.
  2869. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  2870. WRITEC SPACE 4,10
  2871. *** WRITEC - WRITE CODED LINE IN *C* FORMAT.
  2872. *
  2873. * CALL WRITEC (FILE,BUF)
  2874. *
  2875. * TRANSFERS DATA UNTIL THE END OF LINE BYTE (0000) IS SENSED.
  2876. *
  2877. * ENTRY (FILE) = FIRST WORD OF THE FET.
  2878. * (BUF) = FIRST WORD OF THE WORKING BUFFER.
  2879. *
  2880. * WRITEC(FILE,BUF); (*SYMPL* CALL)
  2881. *
  2882. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  2883. * BUF, AN ARRAY TO BE USED AS READ BUFFER.
  2884. *
  2885. * USES X - 3.
  2886. * A - 3.
  2887. * B - 1.
  2888. *
  2889. * MACROS WRITEC.
  2890.  
  2891.  
  2892. WRITEC SUBR ENTRY/EXIT
  2893. SB1 1
  2894. SA3 A1+B1 FWA OF WORKING BUFFER
  2895. WRITEC X1,X3
  2896. EQ WRITECX
  2897.  
  2898. END
  2899. IDENT WRITECW
  2900. ENTRY WRITECW
  2901. SYSCOM B1
  2902. TITLE WRITECW - WRITE FILE NON-STOP WITH CONTROL WORDS.
  2903. *COMMENT WRITE FILE NON-STOP WITH CONTROL WORDS.
  2904. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  2905. WRITECW SPACE 4,10
  2906. *** WRITECW - WRITE FILE NON-STOP WITH CONTROL WORDS.
  2907. *
  2908. * CALL WRITECW (FILE,R)
  2909. *
  2910. * ENTRY (FILE) = FIRST WORD OF THE FET.
  2911. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  2912. *
  2913. * WRITECW(FILE,R); (*SYMPL* CALL)
  2914. *
  2915. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  2916. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  2917. *
  2918. * USES X - 2.
  2919. * A - 2.
  2920. * B - 1.
  2921. *
  2922. *
  2923. * MACROS WRITECW.
  2924.  
  2925.  
  2926. WRITECW SUBR ENTRY/EXIT
  2927. SB1 1
  2928. SA2 A1+B1 GET RECALL PARAMETER
  2929. SA2 X2
  2930. NZ X2,WCW1 IF RECALL
  2931. WRITECW X1
  2932. EQ WRITECWX
  2933.  
  2934. WCW1 WRITECW X1,R
  2935. EQ WRITECWX EXIT
  2936.  
  2937. END
  2938. IDENT WRITEF
  2939. ENTRY WRITEF
  2940. SYSCOM B1
  2941. TITLE WRITEF - WRITE END OF FILE.
  2942. *COMMENT WRITE END OF FILE.
  2943. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  2944. WRITEF SPACE 4,10
  2945. *** WRITEF - WRITE END OF FILE.
  2946. *
  2947. * CALL WRITEF (FILE,R)
  2948. *
  2949. * ENTRY (FILE) = FIRST WORD OF THE FET.
  2950. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  2951. *
  2952. * WRITEF(FILE,R); (*SYMPL* CALL)
  2953. *
  2954. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  2955. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  2956. *
  2957. * USES X - 2.
  2958. * A - 2.
  2959. * B - 1.
  2960. *
  2961. * MACROS WRITEF.
  2962.  
  2963.  
  2964. WRITEF SUBR ENTRY/EXIT
  2965. SB1 1
  2966. SA2 A1+B1 GET RECALL PARAMETER
  2967. SA2 X2
  2968. NZ X2,WRT1 IF RECALL REQUESTED
  2969. WRITEF X1
  2970. EQ WRITEFX
  2971.  
  2972. WRT1 WRITEF X1,R
  2973. EQ WRITEFX
  2974.  
  2975. END
  2976. IDENT WRITEH
  2977. ENTRY WRITEH
  2978. SYSCOM B1
  2979. TITLE WRITEH - WRITE CODED LINE IN *H* FORMAT.
  2980. *COMMENT WRITE CODED LINE IN *H* FORMAT.
  2981. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  2982. WRITEH SPACE 4,10
  2983. *** WRITEH - WRITE CODED LINE IN *H* FORMAT.
  2984. *
  2985. * CALL WRITEH (FILE,BUF,N)
  2986. *
  2987. * TRANSFERS ONE LINE OF DATA. DELETES TRAILING SPACES.
  2988. *
  2989. * ENTRY (FILE) = FIRST WORD OF THE FET.
  2990. * (BUF) = FIRST WORD OF THE WORKING BUFFER.
  2991. * (N) = WORD COUNT OF THE WORKING BUFFER.
  2992. *
  2993. * WRITEH(FILE,BUF,N); (*SYMPL* CALL)
  2994. *
  2995. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  2996. * BUF, AN ARRAY TO BE USED AS READ BUFFER.
  2997. * N, AN ITEM THAT CONTAINS THE NUMBER OF WORDS
  2998. * IN *BUF*.
  2999. *
  3000. * USES X - 3, 4.
  3001. * A - 3, 4.
  3002. * B - 1.
  3003. *
  3004. * MACROS WRITEH.
  3005.  
  3006.  
  3007. WRITEH SUBR ENTRY/EXIT
  3008. SB1 1
  3009. SA3 A1+B1 FWA OF WORKING BUFFER
  3010. SA4 A3+B1 ADDRESS OF WORD COUNT
  3011. SA4 X4 WORD COUNT
  3012. WRITEH X1,X3,X4
  3013. EQ WRITEHX
  3014.  
  3015. END
  3016. IDENT WRITEN
  3017. ENTRY WRITEN
  3018. SYSCOM B1
  3019. TITLE WRITEN - WRITE FILE NON-STOP FOR TAPES.
  3020. *COMMENT WRITE FILE NON-STOP FOR TAPES.
  3021. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  3022. WRITEN SPACE 4,10
  3023. *** WRITEN - WRITE FILE NON-STOP FOR TAPES.
  3024. * MAGNETIC TAPES IN S OR L FORMAT ONLY.
  3025. *
  3026. * CALL WRITEN (FILE,R)
  3027. *
  3028. * ENTRY (FILE) = FIRST WORD OF THE FET.
  3029. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  3030. *
  3031. * WRITEN(FILE,R); (*SYMPL* CALL)
  3032. *
  3033. * ENTRY FILE, AN ENTRY THAT CONTAINS THE FET.
  3034. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  3035. *
  3036. * USES X - 2.
  3037. * A - 2.
  3038. * B - 1.
  3039. *
  3040. * MACROS WRITEN.
  3041.  
  3042.  
  3043. WRITEN SUBR ENTRY/EXIT
  3044. SB1 1
  3045. SA2 A1+B1 GET RECALL PARAMETER
  3046. SA2 X2
  3047. NZ X2,WRT1 IF RECALL REQUESTED
  3048. WRITEN X1
  3049. EQ WRITENX
  3050.  
  3051. WRT1 WRITEN X1,R
  3052. EQ WRITENX
  3053.  
  3054. END
  3055. IDENT WRITEO
  3056. ENTRY WRITEO
  3057. SYSCOM B1
  3058. TITLE WRITEO - WRITE ONE WORD.
  3059. *COMMENT WRITE ONE WORD.
  3060. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  3061. WRITEO SPACE 4,10
  3062. *** WRITEO - WRITE ONE WORD.
  3063. *
  3064. * CALL WRITEO (FILE,WORD)
  3065. *
  3066. * ENTRY (FILE) = FIRST WORD OF THE FET.
  3067. * (WORD) = WORD TO BE TRANSFERRED.
  3068. *
  3069. * WRITEO(FILE,WORD); (*SYMPL* CALL)
  3070. *
  3071. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  3072. * WORD, ITEM TO BE TRANSFERRED.
  3073. *
  3074. * USES X - 3, 6.
  3075. * A - 3.
  3076. * B - 1.
  3077. *
  3078. * MACROS WRITEO.
  3079.  
  3080.  
  3081. WRITEO SUBR ENTRY/EXIT
  3082. SB1 1
  3083. SA3 A1+B1 ADDRESS OF WORD
  3084. SA3 X3 WORD
  3085. BX6 X3
  3086. WRITEO X1
  3087. EQ WRITEOX
  3088.  
  3089. END
  3090. IDENT WRITER
  3091. ENTRY WRITER
  3092. SYSCOM B1
  3093. TITLE WRITER - WRITE END OF RECORD.
  3094. *COMMENT WRITE END OF RECORD.
  3095. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  3096. WRITER SPACE 4,10
  3097. *** WRITER - WRITE END OF RECORD.
  3098. *
  3099. * CALL WRITER (FILE,R)
  3100. *
  3101. * ENTRY (FILE) = FIRST WORD OF THE FET.
  3102. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  3103. *
  3104. * WRITER(FILE,R); (*SYMPL* CALL)
  3105. *
  3106. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  3107. * (R) = RECALL, IF .NE. 0, RECALL IS REQUESTED.
  3108. *
  3109. * USES X - 2.
  3110. * A - 2.
  3111. * B - 1.
  3112. *
  3113. * MACROS WRITER.
  3114.  
  3115.  
  3116. WRITER SUBR ENTRY/EXIT
  3117. SB1 1
  3118. SA2 A1+B1 GET RECALL PARAMETER
  3119. SA2 X2
  3120. NZ X2,WRT1 IF RECALL REQUESTED
  3121. WRITER X1
  3122. EQ WRITERX
  3123.  
  3124. WRT1 WRITER X1,R
  3125. EQ WRITERX
  3126.  
  3127. END
  3128. IDENT WRITES
  3129. ENTRY WRITES
  3130. SYSCOM B1
  3131. TITLE WRITES - WRITE CODED LINE FROM CHARACTER BUFFER.
  3132. *COMMENT WRITE CODED LINE FROM CHARACTER BUFFER.
  3133. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  3134. WRITES SPACE 4,10
  3135. *** WRITES - WRITE CODED LINE FROM CHARACTER BUFFER.
  3136. *
  3137. * CALL WRITES (FILE,BUF,N)
  3138. *
  3139. * PACKS CHARACTERS FROM THE WORKING BUFFER TEN CHARACTERS/WORD.
  3140. * DELETES TRAILING SPACE CODES BEFORE PACKING CHARACTERS.
  3141. *
  3142. * ENTRY (FILE) = FIRST WORD OF THE FET.
  3143. * (BUF) = FIRST WORD OF THE WORKING BUFFER.
  3144. * (N) = WORD COUNT OF THE WORKING BUFFER.
  3145. *
  3146. * WRITES(FILE,BUF,N); (*SYMPL* CALL)
  3147. *
  3148. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  3149. * BUF, AN ARRAY TO BE USED AS READ BUFFER.
  3150. * N, AN ITEM THAT CONTAINS THE NUMBER OF WORD IN BUF.
  3151. *
  3152. * USES X - 3, 4.
  3153. * A - 3, 4.
  3154. * B - 1.
  3155. *
  3156. * MACROS WRITES.
  3157.  
  3158.  
  3159. WRITES SUBR ENTRY/EXIT
  3160. SB1 1
  3161. SA3 A1+B1 FWA OF WORKING BUFFER
  3162. SA4 A3+B1 ADDRESS OF WORD COUNT
  3163. SA4 X4 WORD COUNT
  3164. WRITES X1,X3,X4
  3165. EQ WRITESX
  3166.  
  3167. END
  3168. IDENT WRITEW
  3169. ENTRY WRITEW
  3170. SYSCOM B1
  3171. TITLE WRITEW - WRITE DATA FROM WORKING BUFFER.
  3172. *COMMENT WRITE DATA FROM WORKING BUFFER.
  3173. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  3174. WRITEW SPACE 4,10
  3175. *** WRITEW - WRITE DATA FROM WORKING BUFFER.
  3176. *
  3177. * CALL WRITEW (FILE,BUF,N,STATUS)
  3178. *
  3179. * ENTRY (FILE) = FIRST WORD OF THE FET.
  3180. * (BUF) = FIRST WORD OF THE WORKING BUFFER.
  3181. * (N) = WORD COUNT OF THE WORKING BUFFER.
  3182. * (STATUS) = RETURN STATUS, NE. 0 INDICATES AN ERROR.
  3183. *
  3184. * WRITEW(FILE,BUF,N,STATUS); (*SYMPL* CALL)
  3185. *
  3186. * ENTRY FILE, AN ARRAY THAT CONTAINS THE FET.
  3187. * BUF, AN ARRAY TO BE USED AS READ BUFFER.
  3188. * N, AN ITEM THAT CONTAINS THE NUMBER OF WORDS IN BUF.
  3189. * STATUS, .NE. 0 INDICATES AN ERROR.
  3190. *
  3191. * USES X - 3, 4, 5, 6, 7.
  3192. * A - 3, 4, 5, 6, 7.
  3193. * B - 1.
  3194. *
  3195. * MACROS WRITEW.
  3196.  
  3197.  
  3198. WRITEW SUBR ENTRY/EXIT
  3199. SB1 1
  3200. SA3 A1+B1 FWA OF WORKING BUFFER
  3201. SA4 A3+B1 ADDRESS OF WORD COUNT
  3202. SA5 A4+B1 STATUS RESULT ADDRESS
  3203. SA4 X4 WORD COUNT
  3204. WRITEW X1,X3,X4
  3205. NZ B7,WRITEW1 IF AN ERROR
  3206. BX7 X7-X7 CLEAR ERROR STATUS
  3207. WRITEW1 SA7 X5 RETURN ERROR STATUS
  3208. EQ WRITEWX
  3209.  
  3210. END
  3211. IDENT XARG
  3212. LDSET PRESET=ZERO
  3213. ENTRY XARG
  3214. ENTRY SSJ=
  3215. SYSCOM B1
  3216. TITLE XARG - CRACK CONTROL STATEMENT PARAMETERS.
  3217. *COMMENT CRACK CONTROL STATEMENT PARAMETERS.
  3218. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  3219.  
  3220. *CALL COMCMAC
  3221.  
  3222. SSJ= EQU 0
  3223. XARG SPACE 4,25
  3224. *** XARG - CRACK CONTROL STATEMENT PARAMETERS.
  3225. *
  3226. * XARG(ARGLIST,OPTION,FLAG); (*SYMPL* CALL)
  3227. *
  3228. * ENTRY (ARGLIST) = ADDRESS OF ARGUMENT LIST.
  3229. * (OPTION) = OPTION FOR SKIPING OVER PROGRAM NAME.
  3230. * 0, SKIP OVER PROGRAM NAME.
  3231. * ADDR, DO NOT SKIP OVER PROGRAM NAME.
  3232. * *ADDR* IS THE FWA OF THE CONTROL
  3233. * CARD BUFFER.
  3234. *
  3235. * EXIT CONTROL STATEMENT CRACKED.
  3236. * (FLAG) = ERROR STATUS.
  3237. * 0, NO ERROR.
  3238. * -1, ARGUMENT ERROR.
  3239. *
  3240. * USES A - 1, 3, 4, 5, 6.
  3241. * B - 1, 2, 3.
  3242. * X - 1, 3, 4, 5, 6.
  3243. *
  3244. * CALLS ARM, POP, USB.
  3245.  
  3246.  
  3247. XARG SUBR ENTRY/EXIT
  3248. SB1 1
  3249. SA3 A1+B1 ADDRESS OF *OPTION*
  3250. SA5 A3+B1 SAVE ADDRESS OF *FLAG*
  3251. SB2 X3 SET ADDRESS OF *OPTION*
  3252. SA3 X3
  3253. NZ X3,ARG1 IF OPTION IS *NO SKIP OVER PROGRAM NAME*
  3254. SB2 CCDR SET ADDRESS OF CONTROL STATEMENT BUFFER
  3255. ARG1 SA4 X1 ADDRESS OF ARGUMENT LIST
  3256. RJ USB UNPACK CONTROL STATEMENT
  3257. SA1 A6 ASSURE TERMINATION
  3258. SX6 1R.
  3259. SA6 X1+B1
  3260. NZ X3,ARG2 IF *DO NOT SKIP OVER PROGRAM NAME*
  3261. RJ POP SKIP OVER PROGRAM NAME
  3262. ARG2 SB3 X4 CRACK THE PARAMETERS
  3263. RJ ARM
  3264. LX6 X1 SET UP ERROR STATUS IN *FLAG*
  3265. SA6 X5
  3266. EQ XARGX RETURN
  3267.  
  3268. *CALL COMCARM
  3269. *CALL COMCPOP
  3270. *CALL COMCUSB
  3271.  
  3272. END
  3273. IDENT XCDD
  3274. ENTRY XCDD
  3275. SYSCOM B1
  3276. TITLE XCDD - CONVERT INTEGER TO DECIMAL DISPLAY CODE.
  3277. *COMMENT CONVERT INTEGER TO DECIMAL DISPLAY CODE.
  3278. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  3279. XCDD SPACE 4,10
  3280. *** XCDD - CONVERT INTEGER TO DECIMAL DISPLAY CODE.
  3281. *
  3282. * HOLLERITH = XCDD (INTEGER)
  3283. *
  3284. * XX = XCDD(YY); (*SYMPL* CALL)
  3285. *
  3286. * ENTRY (YY) = THE INTEGER TO BE CONVERTED.
  3287. *
  3288. * EXIT XX, A CHARACTER ITEM TO CONTAIN DISPLAY CODE ON EXIT.
  3289. *
  3290. * USES X - 1.
  3291. * A - 1.
  3292. * B - 1.
  3293. *
  3294. * CALLS COD.
  3295.  
  3296.  
  3297. XCDD SUBR ENTRY/EXIT
  3298. SB1 1
  3299. SA1 X1+
  3300. RJ CDD
  3301. EQ XCDDX RETURN, RESULT IN X6
  3302.  
  3303. *CALL COMCCDD CONVERT INTEGER TO DECIMAL DISPLAY CODE.
  3304.  
  3305. END
  3306. IDENT XCFD
  3307. ENTRY XCFD
  3308. ENTRY CFD
  3309. SYSCOM B1
  3310. TITLE XCFD - CONVERT INTEGER TO F10.3 FORMAT.
  3311. *COMMENT CONVERT INTEGER TO F10.3 FORMAT.
  3312. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  3313. XCFD SPACE 4,10
  3314. *** XVFD - CONVERT INTEGER TO F10.3 FORMAT.
  3315. *
  3316. * HOLLERITH = XCFD (INTEGER).
  3317. *
  3318. * XX = XCFD(YY); (*SYMPL* CALL)
  3319. *
  3320. * ENTRY (YY) = THE INTEGER TO BE CONVERTED.
  3321. *
  3322. * EXIT XX, A CHARACTER ITEM TO CONTAIN DISPLAY CODE ON EXIT.
  3323. *
  3324. * USES X - 1.
  3325. * A - 1.
  3326. * B - 1.
  3327. *
  3328. * CALLS CFD
  3329.  
  3330.  
  3331. XCFD SUBR ENTRY/EXIT
  3332. SB1 1
  3333. SA1 X1+
  3334. RJ =XCFD CONVERT
  3335. EQ XCFDX RETURN, RESULT IN X6
  3336.  
  3337. *CALL COMCCFD CONVERT INTEGER TO F10.3 FORMAT.
  3338.  
  3339. END
  3340. IDENT XCHD
  3341. ENTRY XCHD
  3342. SYSCOM B1
  3343. TITLE XCHD - CONVERT HEXIDECIMAL INTEGER TO DISPLAY CODE.
  3344. *COMMENT CONVERT HEXIDECIMAL INTEGER TO DISPLAY CODE.
  3345. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  3346. SPACE 4,10
  3347. *** XCHD - CONVERT HEXIDECIMAL INTEGER TO DISPLAY CODE.
  3348. *
  3349. * CONVERT RIGHT MOST 40 BITS OF A BINARY WORD (10/4 BIT
  3350. * HEX DIGITS) TO 10 HEXIDECIMAL DISPLAY CODE CHARACTERS
  3351. * (LEFT ZEROES SUPPRESSED).
  3352. *
  3353. * XX = XCHD(YY); (*SYMPL* CALL)
  3354. *
  3355. * ENTRY XY, AN ITEM CONTAINING THE WORD TO BE CONVERTED.
  3356. *
  3357. * EXIT XX, HEX DISPLAY CODE EQUIVILENCE OF THE RIGHT MOST
  3358. * 10 HEX DIGIT IN YY.
  3359. *
  3360. * USES X - 1, 2, 3, 4, 5, 6, 7.
  3361. * A - 1, 4.
  3362. * B - 1, 2, 3, 4, 5, 6, 7.
  3363.  
  3364.  
  3365. XCHD SUBR ENTRY/EXIT
  3366. SB1 1 SYSCOM B1
  3367. SA4 XCHDA =1H
  3368. SA1 X1 (X1) = HEXIDECIMAL INTEGER IN BINARY
  3369. SB7 1R0 (B7) = CHARACTER ZERO
  3370. MX2 -4 (X2) = DIGIT MASK
  3371. SB3 6 (B3) = SHIFT COUNT FOR EACH CHARACTER
  3372. SB6 1R (B6) = CHARACTER BLANK
  3373. SB5 1R9 (B5) = CHARACTER 9
  3374. SB2 -B3 INITIALIZE SHIFT COUNT
  3375. SB4 B7-B6 (B4) = CONVERSION VALUE FOR NUMERIC
  3376. XCHD1 BX7 -X2*X1 EXTRACT DIGIT
  3377. SX5 X7+B7 ADD CHARACTER ZERO TO DIGIT
  3378. SB2 B2+B3
  3379. LX4 -6
  3380. SX3 X7+B4 CONVERT DIGIT (W/BLANK BIAS)
  3381. AX1 4 SHIFT OFF DIGIT FROM INPUT WORD
  3382. SX5 X5-1R9 SEE IF CHARACTER GREATER THAT NINE
  3383. NG X5,XCHD2 IF LESS THAN NINE
  3384. ZR X5,XCHD2 IF EQUAL TO NINE
  3385. SX3 X5-1R BIAS DIGIT BY CHARACTER BLANK INVERSE
  3386. XCHD2 IX4 X4+X3 ADD DIGIT TO ASSEMBLY
  3387. NZ X1,XCHD1 IF NOT A ZERO DIGIT
  3388. LX6 X4,B2
  3389. EQ XCHDX
  3390.  
  3391. XCHDA CON 1H BLANK FILLED WORD
  3392.  
  3393. END
  3394. IDENT XCOD
  3395. ENTRY XCOD
  3396. SYSCOM B1
  3397. TITLE XCOD - CONVERT INTEGER TO OCTAL DISPLAY CODE.
  3398. *COMMENT CONVERT INTEGER TO OCTAL DISPLAY CODE.
  3399. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  3400. XCOD SPACE 4,10
  3401. *** XCOD - CONVERT INTEGER TO OCTAL DISPLAY CODE.
  3402. *
  3403. * HOLLERITH = XCOD (INTEGER)
  3404. *
  3405. * XX = XCOD(YY); (*SYMPL* CALL)
  3406. *
  3407. * ENTRY (YY) = THE INTEGER TO BE CONVERTED.
  3408. *
  3409. * EXIT XX, A CHAR. ITEM TO CONTAIN DISPLAY CODE ON EXIT.
  3410. *
  3411. * USES X - 1.
  3412. * A - 1.
  3413. * B - 1.
  3414. *
  3415. * CALLS COD.
  3416.  
  3417.  
  3418. XCOD SUBR ENTRY/EXIT
  3419. SB1 1
  3420. SA1 X1+
  3421. RJ COD
  3422. EQ XCODX RETURN, RESULT IN X6
  3423.  
  3424. *CALL COMCCOD CONVERT INTEGER TO OCTAL DISPLAY CODE.
  3425.  
  3426. END
  3427. IDENT XDXB
  3428. ENTRY XDXB
  3429. SYSCOM B1
  3430. TITLE XDXB - CONVERT WORD OF DISPLAY CODE DIGITS TO BINARY.
  3431. *COMMENT CONVERT WORD OF DISPLAY CODE DIGITS TO BINARY.
  3432. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  3433. SPACE 4,10
  3434. *** XDXB - CONVERT WORD OF DISPLAY CODE DIGITS TO BINARY.
  3435. *
  3436. * *SYMPL* CALLABLE ROUTINE TO CONVERT ONE 60 BIT WORD
  3437. * OF DISPLAY CODE DIGITS INTO BINARY.
  3438. *
  3439. * STAT = XDXB(OWORD,TYPE,NWORD); (*SYMPL* CALL)
  3440. *
  3441. * OWORD - AN ITEM THAT CONTAINS THE WORD
  3442. * BE CONVERTED.
  3443. * TYPE - CONVERSION TYPE.
  3444. * - .GT. 0, CONVERSION IN DECIMAL.
  3445. * - = 0, CONVERSION IN OCTAL.
  3446. * NWORD - AN ITEM TO CONTAIN THE CONVERTED DIGITS.
  3447. * STAT - = 0, NO ERROR.
  3448. * - NON ZERO, ERROR IN ASSEMBLY.
  3449. *
  3450. * USES X - 2, 3, 5, 6.
  3451. * A - 2, 3, 5, 6.
  3452. * B - 1, 2, 7.
  3453. *
  3454. * CALLS DXB.
  3455.  
  3456.  
  3457. XDXB SUBR ENTRY/EXIT
  3458. SB1 1
  3459. SA5 X1 (X5) = WORD
  3460. SA2 A1+B1 ADDRESS OF TYPE IN X2
  3461. SA3 X2
  3462. SB7 X3 (B7) = TYPE
  3463. SB2 10D DO TEN CHARACTERS
  3464. MX6 -6
  3465. DXB1 LX5 6
  3466. BX2 -X6*X5
  3467. SX2 X2-1R
  3468. SB2 B2-B1
  3469. NZ X2,DXB2 IF NOT A SPACE CHARACTER
  3470. MX3 54
  3471. BX5 X3*X5
  3472. DXB2 NZ B2,DXB1 IF MORE CHARACTERS
  3473. RJ =XDXB
  3474. SA3 A2+B1
  3475. SA6 X3 STORE CONVERTED DIGITS
  3476. BX6 X4 PUT STATUS IN (X6)
  3477. EQ XDXBX
  3478.  
  3479. *CALL COMCDXB
  3480.  
  3481. END
  3482. IDENT XPRC
  3483. ENTRY XPRC
  3484. TITLE XPRC - CALL USER SPECIFIED *SYMPL* PROCEDURE.
  3485. *COMMENT CALL USER SPECIFIED *SYMPL* PROCEDURE.
  3486. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  3487. SPACE 4,10
  3488. *** XPRC - INTERFACE ROUTINE USED TO CALL A *SYMPL*
  3489. * PROCEDURE, GIVEN THE ADDRESS OF THE PROCEDURE.
  3490. *
  3491. * XPRC(PADDR,P1,P2,...,PN); (*SYMPL* CALL)
  3492. *
  3493. * PADDR - ADDRESS OF PROCEDURE.
  3494. * P1 - FIRST PARAMETER TO BE PASSED TO PROCEDURE.
  3495. * ...
  3496. * PN - N-TH PARAMETER TO BE PASSED TO PROCEDURE.
  3497. *
  3498. * USES X - 1, 2, 3, 4, 6, 7.
  3499. * A - 1, 2, 6, 7.
  3500. * B - 1, 2.
  3501.  
  3502. XPRC SUBR ENTRY/EXIT
  3503. SB1 1
  3504. SA2 X1
  3505. BX7 X2
  3506. SA7 PRADR STORE PROCEDURE ADDRESS
  3507. SA1 A1+B1
  3508. MX3 1
  3509. LX3 57
  3510. SA2 PRADR
  3511. SX4 PRC1
  3512. SB2 X2
  3513. LX4 30
  3514. BX6 X3+X4
  3515. SA6 X2
  3516. JP B2+1
  3517. PRC1 EQ XPRCX
  3518.  
  3519. PRADR BSSZ 1 ADDRESS OF PROCEDURE TO CALL
  3520.  
  3521. END
  3522. IDENT XREL
  3523. ENTRY XREL=
  3524. ENTRY XREL.
  3525. SYSCOM B1
  3526. TITLE XREL - COMMON DECK INTERFACE ROUTINES.
  3527. *COMMENT COMMON DECK INTERFACE ROUTINES.
  3528. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  3529. XREL SPACE 4,10
  3530. ** XREL - COMMON DECK INTERFACE ROUTINES.
  3531. *
  3532. * XREL IS A COLLECTION OF RELOCATABLE MODULES THAT
  3533. * PROVIDE THE INTERFACE BETWEEN HIGHER LEVEL LANGUAGE MODULES
  3534. * AND THE STANDARD COMMON DECK ROUTINES THAT ARE NOT CALLED
  3535. * BY SYSTEM MACROS.
  3536. XREL SPACE 4,10
  3537. LOCAL EQU 3
  3538. XREL. SPACE 4,10
  3539. ** XREL. - UNDEFINED COMMON DECK PROCESSOR.
  3540. *
  3541. * ENTRY (X1) = LAST 3 CHARACTERS OF COMMON DECK NAME,
  3542. * LEFT JUSTIFIED.
  3543. *
  3544. * USES X - 6.
  3545. * A - 6.
  3546. * B - 1.
  3547. *
  3548. * MACROS ABORT, MESSAGE.
  3549.  
  3550.  
  3551. XREL. SUBR ENTRY/EXIT
  3552. SB1 1
  3553. BX6 X1
  3554. SA6 XREA+3
  3555. MESSAGE XREA,LOCAL,R
  3556. ABORT
  3557.  
  3558. XREA DATA C* XREL - UNDEFINED ROUTINE - FILL-IN.*
  3559. XREL= SPACE 4,10
  3560. ** XREL= - ILLEGAL ARGUMENT PROCESSOR.
  3561. *
  3562. * ENTRY (X1) = LAST 3 CHARACTERS OF COMMON DECK NAME,
  3563. * LEFT JUSTIFIED.
  3564. * (X2) = ILLEGAL ARGUMENT.
  3565. *
  3566. * USES X - 0, 1, 2, 6.
  3567. * A - 6.
  3568. * B - 1.
  3569. *
  3570. * CALLS SFW.
  3571. *
  3572. * MACROS ABORT, MESSAGE.
  3573.  
  3574.  
  3575. XREL= SUBR ENTRY/EXIT
  3576. SB1 1
  3577. BX0 X2 SAVE SECOND ARGUMENT
  3578. LX1 -6
  3579. SX2 1R-
  3580. BX1 X1+X2
  3581. RJ =XSFW
  3582. BX1 X0
  3583. SA6 XREB
  3584. RJ =XSFW
  3585. SA6 XREB+3
  3586. MESSAGE XREB,LOCAL,R
  3587. ABORT
  3588.  
  3589. XREB DATA C* FILL-IN - ILLEGAL ARGUMENT .GT.FILL-IT-IN.LT..*
  3590.  
  3591. END
  3592. IDENT XSFN
  3593. ENTRY XSFN
  3594. SYSCOM B1
  3595. TITLE XSFN - SPACE FILL NAME.
  3596. *COMMENT SPACE FILL NAME.
  3597. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  3598. XSFN SPACE 4,10
  3599. *** XSFN - SPACE FILL NAME.
  3600. *
  3601. * HOLLERITH = XSFN (NAME)
  3602. *
  3603. * XX = XSFN(NAME); (*SYMPL* CALL)
  3604. *
  3605. * ENTRY NAME, AN ITEM CONTAINING THE NAME, LEFT JUSTIFIED,
  3606. * ZERO FILLED.
  3607. *
  3608. * EXIT XX, A CHAR. ITEM TO CONTAIN DISPLAY CODE ON EXIT.
  3609. *
  3610. * USES X - 1.
  3611. * A - 1.
  3612. * B - 1.
  3613. *
  3614. * CALLS SFN.
  3615.  
  3616.  
  3617. XSFN SUBR ENTRY/EXIT
  3618. SB1 1
  3619. SA1 X1+
  3620. RJ =XSFN SPACE FILL NAME
  3621. EQ XSFNX RETURN, RESULT IN X6
  3622.  
  3623. ENTRY SFN
  3624. *CALL COMCSFN SPACE FILL NAME.
  3625.  
  3626. END
  3627. IDENT XSFW
  3628. ENTRY XSFW
  3629. SYSCOM B1
  3630. ENTRY SFW
  3631. TITLE XSFW - SPACE FILL WORD.
  3632. *COMMENT SPACE FILL WORD.
  3633. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  3634. XSFW SPACE 4,10
  3635. *** XSFW - SPACE FILL WORD.
  3636. *
  3637. * HOLLERITH = XSFW (WORD)
  3638. *
  3639. * XX = XSFW(WORD); (*SYMPL* CALL)
  3640. *
  3641. * ENTRY WORD, AN ITEM CONTAINING THE WORD TO CHANGE ZEROES TO
  3642. * BLANKS.
  3643. *
  3644. * EXIT XX, A CHAR. ITEM TO CONTAIN DISPLAY CODE ON EXIT.
  3645. *
  3646. * USES X - 1.
  3647. * A - 1.
  3648. * B - 1.
  3649. *
  3650. * CALLS SFW.
  3651.  
  3652.  
  3653. XSFW SUBR ENTRY/EXIT
  3654. SB1 1
  3655. SA1 X1+
  3656. RJ =XSFW SPACE FILL WORD
  3657. EQ XSFWX RETURN, RESULT IN X6
  3658. SFW SPACE 4,10
  3659. IF -DEF,QUAL$,1
  3660. QUAL COMCSFW
  3661. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  3662. SFW SPACE 4,10
  3663. *** SFW - SPACE FILL WORD.
  3664. *
  3665. * SFW REPLACES ALL 00 CODES WITH 55 CODES IN A WORD.
  3666. *
  3667. * ENTRY (X1) = WORD WITH 00 CODES.
  3668. * (B1) = 1.
  3669. *
  3670. * EXIT (X6) = WORD SPACE FILLED.
  3671. * (X7) = FINAL CHARACTER MASK.
  3672. *
  3673. * USES X - 3, 6, 7.
  3674. * A - 3.
  3675.  
  3676.  
  3677. SFW SUBR ENTRY/EXIT
  3678. SA3 SFWA =37373737373737373737B
  3679. BX6 X3*X1 EXTRACT UPPER BIT FROM EACH CHARACTER
  3680. BX7 -X3*X1 EXTRACT LOWER 5 BITS FROM EACH CHARACTER
  3681. IX6 X6+X3 EACH NON-00 CHARACTER GIVES CARRY
  3682. BX6 X6+X7
  3683. BX7 -X3*X6 EACH NON-00 CHARACTER = 40B
  3684. SA3 A3+B1 =10H
  3685. BX6 X7
  3686. LX7 -5 GENERATE SPACE MASK
  3687. IX7 X6-X7
  3688. BX7 X6+X7
  3689. BX3 -X7*X3 SELECT SPACE CODES
  3690. IX6 X1+X3 MERGE SPACES
  3691. EQ SFWX EXIT
  3692.  
  3693. SFWA CON 37373737373737373737B MASK
  3694. CON 10H
  3695. SFW SPACE 4,10
  3696. BASE *
  3697. QUAL$ IF -DEF,QUAL$
  3698. QUAL *
  3699. SFW EQU /COMCSFW/SFW
  3700. QUAL$ ENDIF
  3701. ENDX
  3702.  
  3703. END
  3704. IDENT XWOD
  3705. ENTRY XWOD
  3706. SYSCOM B1
  3707. TITLE XWOD - CONVERT WORD TO OCTAL DISPLAY CODE.
  3708. *COMMENT CONVERT WORD TO OCTAL DISPLAY CODE.
  3709. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  3710. XWOD SPACE 4,8
  3711. *** XWOD - CONVERT WORD TO OCTAL DISPLAY CODE.
  3712. *
  3713. * *SYMPL* CALLABLE ROUTINE TO CONVERT ONE 60 BIT WORD INTO
  3714. * TWO 60 BIT WORDS CONTAINING THE THE OCTAL REPRESENTATION
  3715. * OF THE INPUT WORD.
  3716. *
  3717. * XWOD(W,A); (*SYMPL* CALL)
  3718. *
  3719. * ENTRY W, AN ITEM THAT CONTAINS THE WORD TO BE CONVERTED.
  3720. * A, A 20 CHARACTER BUFFER FWA.
  3721. * (AN ARRAY OR ITEM 20 CHARACTERS LONG)
  3722. *
  3723. * EXIT A AND A+1, CONTAIN CONVERTED WORD.
  3724. *
  3725. * USES X - 1, 2, 6, 7.
  3726. * A - 1, 2, 6, 7.
  3727. * B - 1, 7.
  3728. *
  3729. * CALLS WOD.
  3730.  
  3731.  
  3732. XWOD SUBR ENTRY/EXIT
  3733. SB1 1 (B1) = 1
  3734. SB7 A1 SAVE (A1)
  3735. SA1 X1 FETCH W
  3736. RJ WOD
  3737. SA2 B7+B1 FETCH LOCATION (A)
  3738. SA6 X2 STORE UPPER 10 CHARACTERS
  3739. SA7 X2+B1 STORE LOWER 10 CHARACTERS
  3740. EQ XWODX RETURN
  3741.  
  3742. *CALL COMCWOD CONVERT WORD TO OCTAL DISPLAY CODE.
  3743.  
  3744. END
  3745. IDENT XZAP
  3746. ENTRY XZAP
  3747. SYSCOM B1
  3748. TITLE XZAP - *Z* ARGUMENT PROCESSOR.
  3749. *COMMENT *Z* ARGUMENT PROCESSOR.
  3750. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  3751.  
  3752. *CALL COMCMAC
  3753. XZAP SPACE 4,15
  3754. *** XZAP - *Z* ARGUMENT PROCESSOR.
  3755. *
  3756. * XZAP(FADDR); (*SYMPL* CALL)
  3757. *
  3758. * ENTRY FADDR = FWA OF FET.
  3759. *
  3760. * EXIT DIRECTIVES ENTERED INTO THE BUFFER
  3761. * SPECIFIED IN THE FET.
  3762. *
  3763. * USES B - 1.
  3764. * X - 2.
  3765. *
  3766. * CALLS ZAP.
  3767.  
  3768.  
  3769. XZAP SUBR ENTRY/EXIT
  3770. SB1 1
  3771. BX2 X1 SET ADDRESS OF FET
  3772. RJ ZAP PROCESS *Z* ARGUMENT
  3773. EQ XZAPX RETURN
  3774.  
  3775. *CALL COMCUSB
  3776. *CALL COMCZAP
  3777.  
  3778. END
cdc/nos2.source/opl871/mac1.txt ยท Last modified: 2023/08/05 17:24 by Site Administrator