Table of Contents

0DF

Table Of Contents

  • [00007] 0DF - DROP FILE.
  • [00009] DROP FILE.
  • [00088] MAIN ROUTINE.
  • [00090] DRF - MAIN ROUTINE.
  • [00097] EZO - EXECUTE ZERO-LEVEL OVERLAY.
  • [00149] PFT - RELEASE PERMANENT FILE.
  • [00247] IFP - IDENTIFY FILE PROCESSOR.
  • [00294] TFTY - TABLE OF FILE TYPE PROCESSORS.
  • [00321] LIB - PROCESS LIBRARY FILE.
  • [00359] INP - PROCESS INPUT FILE.
  • [00391] PTY - PROCESS PRIMARY FILE.
  • [00410] QUE - PROCESS QUEUE FILE.
  • [00417] SYS - PROCESS SYSTEM FILE.
  • [00424] RFA - RELEASE FILE ASSIGNMENT.
  • [00516] RMS - RELEASE MASS STORAGE.

Source Code

0DF.txt
  1. IDENT 0DF,DRFX
  2. PERIPH J
  3. BASE MIXED
  4. SST
  5. *COMMENT 0DF - DROP FILE.
  6. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  7. TITLE 0DF - DROP FILE.
  8. SPACE 4,10
  9. *** 0DF - DROP FILE.
  10. * G. R. MANSFIELD. 70/07/30.
  11. * R. E. TATE. 70/11/30.
  12. * M. E. MADDEN. 73/04/01.
  13. * D. D. SADLER 75/01/18.
  14. * P. D. HAAS. 85/01/20.
  15. SPACE 4,10
  16. *** 0DF IS A LOCATION FREE ROUTINE TO BE USED FOR
  17. * DROPPING ANY SYSTEM FILE.
  18. *
  19. * ALL FILES ARE REMOVED FROM THE LOCAL FNT
  20. * AND THE ASSIGNED EQUIPMENT OR TRACKS WILL BE RELEASED.
  21. * THE JOBS MASS STORAGE PRU LIMIT IS ALSO INCREMENTED, UNLESS
  22. * BIT 0 OF ((LA)-1) IS SET.
  23. * *0DF* DOES NOT SET THE FILE BUSY BEFORE DROPPING.
  24. * NOTE - *0DF* WILL HANG WITH AN *HNGM* MONITOR FUNCTION
  25. * FOR THE FOLLOWING CONDITIONS -
  26. * 1. FNT ADDRESS FOR FILE TO BE DROPPED IS ZERO.
  27. * 2. FILE TYPE IN FNT ENTRY IS ILLEGAL.
  28. * 3. PROCESSOR IS NOT DEFINED FOR THE FILE TYPE.
  29. SPACE 4,10
  30. *** ENTRY CONDITIONS.
  31. *
  32. *
  33. * (FA) = 12/FNT ENTRY RELATIVE ADDRESS IN NFL
  34. *
  35. * ((LA)-1) = 10/, 1/D, 1/R
  36. *
  37. * WHERE -
  38. *
  39. * D = PROCESS *ROFT* FILES. THIS SHOULD ONLY BE SET BY
  40. * *1RO* DURING ERROR PROCESSING OR BY *1AJ* DURING
  41. * *DMP=* PROGRAM ABNORMAL TERMINATION PROCESSING TO
  42. * ALLOW THE DM* FILE TO BE RELEASED.
  43. *
  44. * R = RESOURCE UPDATE CONTROL. FOR MAGNETIC TAPE
  45. * FILES AND PERMANENT FILES ON PACKS (FOR
  46. * SUBSEQUENT CALL TO *0RF*/*0RT*).
  47. * 0 = *RETURN* FILE.
  48. * 1 = *UNLOAD* FILE (DOES NOT DECREMENT RESOURCE
  49. * FILE COUNT).
  50. SPACE 4,10
  51. *** EXIT CONDITIONS.
  52. *
  53. *
  54. * (A) = (FA) = 0 IF OPERATION COMPLETED SUCCESSFULLY.
  55. *
  56. * (A) .LT. 0 IF MASS STORAGE DEVICE INACCESSIBLE.
  57. * (T5) = EST ORDINAL OF INACCESSIBLE DEVICE, IF INACCESSIBLE.
  58. * NOTE - THE INACCESSIBLE DEVICE MAY BE A DEVICE OTHER
  59. * THAN THE ONE ON WHICH THE FILE BEING RETURNED
  60. * RESIDES.
  61. * (FA) = FNT ORDINAL, IF DEVICE INACCESSIBLE.
  62. * FNT LEFT BUSY, IF DEVICE INACCESSIBLE.
  63. * (FS - FS+4) = FST WORD OF FNT ENTRY.
  64. SPACE 4,10
  65. ** 0-LEVEL OVERLAYS CALLED.
  66. *
  67. *
  68. * *0DQ*, *0FA*, *0PT*, *0RF*, *0RP*, *0RT*.
  69. SPACE 4,10
  70. ** COMMON DECKS.
  71.  
  72.  
  73. *CALL COMPMAC
  74. *CALL COMPREL
  75. *CALL COMSCPS
  76. *CALL COMSLFD
  77. *CALL COMSZOL
  78. SPACE 4,10
  79. **** DIRECT LOCATION ASSIGNMENTS.
  80.  
  81.  
  82. T8 EQU 16 CHECKPOINT REQUEST
  83. FS EQU 20 - 24 FST INFORMATION (5 LOCATIONS)
  84. QA EQU 26
  85. FA EQU 57 FNT ENTRY RELATIVE ADDRESS IN NFL
  86.  
  87. ****
  88. TITLE MAIN ROUTINE.
  89. DRF SPACE 4,10
  90. ** DRF - MAIN ROUTINE.
  91.  
  92.  
  93. ORG 5
  94. DRF SUBR ENTRY/EXIT
  95. LJM IFP IDENTIFY AND EXECUTE FILE PROCESSOR
  96. EZO SPACE 4,25
  97. ** EZO - EXECUTE ZERO-LEVEL OVERLAY.
  98. *
  99. * ENTRY (A) = OVERLAY NAME.
  100. * (FA) = RELATIVE FNT ADDRESS IN NFL.
  101. * (FS - FS+4) = FST INFORMATION.
  102. * ((OVL)-1) = FLAGS.
  103. *
  104. * EXIT (A) = (FA) = 0.
  105. *
  106. * ERROR TO *DRFX* IF MASS STORAGE DEVICE INACCESSIBLE.
  107. *
  108. * CALLS EXR, *0DQ*, *0FA*, *0PT*, *0RF*, *0RP*, *0RT*.
  109. *
  110. * MACROS EXECUTE.
  111.  
  112.  
  113. EZO BSS 0
  114. EXECUTE 0DQ,=
  115. EXECUTE 0FA,=
  116. EXECUTE 0PT,=
  117. EXECUTE 0RF,=
  118. EXECUTE 0RP,=
  119. EXECUTE 0RT,=
  120. RJM. EXR
  121. PJN DRF2 IF NO INACCESSIBLE DEVICE ERROR
  122. NFA FA,R
  123. ADN FSTL RESTORE FST INFORMATION
  124. CRD FS
  125. LCN 0
  126. DRF1 UJN DRFX EXIT
  127.  
  128. DRF2 UJN *+2 CHECK EQUIPMENT ASSIGNED
  129. DRFA EQU DRF2
  130. UJN PFT4 CONTINUE WITH *0RF* CALL
  131.  
  132. DRF3 LDC 0
  133. DRFB EQU *-1
  134. ZJN DRF4 IF NOT TO RELEASE EQUIPMENT
  135. STD CM+1
  136. MONITOR DEQM RELEASE ASSIGNED EQUIPMENT
  137.  
  138. * CLEAR FNT ENTRY IN NFL.
  139.  
  140. DRF4 LDD FA SET RELATIVE FNT ADDRESS
  141. STD CM+4
  142. LDN DLFS SELECT DELETE LOCAL FILE
  143. STD CM+1
  144. MONITOR PLFM CLEAR FNT ENTRY
  145. * LDN 0
  146. STD FA
  147. UJN DRFX EXIT
  148. PFT SPACE 4,30
  149. ** PFT - RELEASE PERMANENT FILE.
  150. *
  151. * USES CM - CM+4.
  152. *
  153. * CALLS EZO.
  154. *
  155. * MACROS MONITOR, NFA, SFA.
  156. *
  157. * NOTE LOADING *0FA*, *0OD*, *0PT*, *0RF*, *0RP*, OR *0RT*
  158. * AND THEIR PARAMETERS OVERLAYS CODE STARTING AT *PFT*.
  159. *
  160. * *0FA* IS CALLED TO RETURN A PERMANENT FILE FOR
  161. * WHICH A MATCHING FAST-ATTACH FNT ENTRY WAS FOUND.
  162. *
  163. * *0OD* IS CALLED TO RETURN ALL OPTICAL DISK FILES.
  164. * *OPT* IS CALLED TO CLEAR THE PRIMARY FILE POINTERS
  165. * IN THE JOB EJT ENTRY WHEN DROPPING THE PRIMARY FILE.
  166. *
  167. * *0RP* IS CALLED TO RETURN ALL OTHER PERMANENT FILES.
  168. *
  169. * *0RF* IS CALLED AFTER *0RP* TO DECREMENT THE JOB
  170. * RESOURCE COUNTS WHENEVER THE PERMANENT FILE IS THE
  171. * LAST DIRECT ACCESS FILE ATTACHED TO THIS JOB THAT
  172. * RESIDES ON A SPECIFIC REMOVABLE AUXILIARY PACK.
  173. *
  174. * *0RT* IS CALLED FOR ALL FILES ASSIGNED TO TAPE
  175. * EQUIPMENT (*MT*, *NT*, *CT*, *AT* OR *TE*) TO CLEAR
  176. * THE ASSOCIATED VSN FILE ENTRY AND TO DECREMENT THE
  177. * JOB RESOURCE COUNTS.
  178.  
  179.  
  180. PFT4 LDN 5 FLAG *0RP* PROCESSING COMPLETED
  181. STD FS+1
  182. NFA FA,R STORE FST (FIRST TRACK BYTE CLEAR)
  183. ADN FSTL
  184. CWD FS
  185. AOM DRFA-OVL ENABLE DELETION OF FNT ENTRY
  186. PFT5 LDM -1-OVL GET *0DF* PARAMETER WORD
  187. LPN 1
  188. STM -1 SET RESOURCE UPDATE CONTROL
  189. LDC 3R0RF
  190. LJM EZO-OVL LOAD AND EXECUTE *0RF*
  191.  
  192.  
  193. OVL EQU *+1 ZERO-LEVEL OVERLAY LOAD ADDRESS
  194.  
  195.  
  196. PFT BSS 0 ENTRY
  197. LDD CM+3 SET FILE MODE
  198. LPN 77
  199. STM OVL-1 SET *0RP* PARAMETER WORD
  200. LDD FS+4 CHECK FILE TYPE
  201. SHN 21-12
  202. PJN PFT1 IF NOT FAFT
  203. LDC 2RFA SET *0FA* CALL
  204. STM EZOA
  205. PFT1 SFA EST,FS FETCH EST ENTRY
  206. ADK EQDE
  207. CRD CM
  208. LDD CM+4
  209. SHN 3
  210. ADN MDGL
  211. CRD CM
  212. LDD CM
  213. SHN 0-12
  214. LMN 3
  215. NJN DRF5 IF NOT REMOVABLE AUXILIARY DEVICE
  216. LDD FA
  217. STD CM+4 SET RELATIVE FNT ADDRESS
  218. LDN DLCS
  219. STD CM+1
  220. MONITOR PLFM COUNT FILES ATTACHED ON DEVICE
  221. SOD CM+3
  222. NJN DRF5 IF NOT LAST FILE
  223.  
  224. * PROCESS LAST FILE ON A REMOVABLE AUXILIARY DEVICE.
  225.  
  226. LDD FS+1
  227. SHN 0-13
  228. NJN PFT3 IF *0RP* NOT YET CALLED
  229. LDN OVL
  230. RAD LA
  231. LDD FS+1
  232. NJN PFT2 IF INTERMEDIATE PROCESSING STATE
  233. LJM PFT4-OVL DECREMENT RESOURCE COUNTS
  234.  
  235. PFT2 LJM PFT5-OVL CONTINUE PROCESSING
  236.  
  237. PFT3 SOM DRFA ENABLE *0RF* PROCESSING
  238.  
  239. * SET ZERO-LEVEL OVERLAY ENTRY CONDITIONS.
  240.  
  241. DRF5 LDN OVL ADJUST LOAD ADDRESS
  242. RAD LA
  243. LDC 3R0RP SET OVERLAY NAME
  244. EZOA EQU *-1
  245. LJM EZO-OVL EXECUTE OVERLAY
  246. IFP SPACE 4,15
  247. ** IFP - IDENTIFY FILE PROCESSOR.
  248. *
  249. * ENTRY (FA) = FNT ENTRY RELATIVE ADDRESS IN NFL.
  250. *
  251. * EXIT TO FILE PROCESSORS WITH FOLLOWING -
  252. * (A) = 2.
  253. * (T8) = CHECKPOINT REQUEST.
  254. * (CM - CM+4) = FNT ENTRY.
  255. * (FS - FS+4) = FST INFORMATION.
  256. *
  257. * USES T1.
  258. *
  259. * MACROS MONITOR, NFA.
  260.  
  261.  
  262. IFP BSS 0 ENTRY
  263. LDM -1 CHECK *DROP ROFT* FLAG
  264. LPN 2
  265. NJN IFP1 IF *ROFT* FILE TO BE DROPPED
  266. STM TFTY+ROFT CLEAR PROCESSOR
  267. IFP1 LDD FA
  268. ZJN IFP2 IF NO FNT ADDRESS
  269. NFA FA,R
  270. CRD CM READ FNT
  271. ADN FSTL
  272. CRD FS
  273. LDD CM+4 GET FILE TYPE
  274. SHN -6
  275. SBN MXFT
  276. PJN IFP2 IF ILLEGAL FILE TYPE
  277. ADC TFTY+MXFT SET TABLE ADDRESS
  278. ADD LA
  279. STD T1
  280. LDI T1
  281. NJN IFP3 IF PROCESSOR PRESENT
  282. IFP2 MONITOR HNGM HANG PP
  283. * LDN 0
  284. LJM DRFX EXIT
  285.  
  286. IFP3 LPC 3777 SET PROCESSOR ADDRESS
  287. STM IFPA
  288. LMI T1 SET CHECKPOINT REQUEST
  289. STD T8
  290. LDN 2
  291. LJM * EXIT TO FILE PROCESSOR
  292. IFPA EQU *-1
  293. TFTY SPACE 4,10
  294. ** TFTY - TABLE OF FILE TYPE PROCESSORS.
  295. *
  296. * ENTRY 1 WORD.
  297. * INDEXED BY FILE TYPE.
  298. *
  299. *T, 1/C, 11/ADDR
  300. *
  301. * C = CHECKPOINT REQUEST.
  302. * ADDR = ADDRESS OF FILE PROCESSOR.
  303.  
  304.  
  305. TFTY INDEX
  306.  
  307. INDEX INFT,INP+4000 INPUT
  308. INDEX QFFT,QUE+4000 QUEUED = DROP FILE
  309.  
  310. INDEX ROFT,RFA ROLLOUT = RELEASE FILE
  311. * INDEX ROFT,0 (IF *ROFT* FILE ILLEGAL)
  312. INDEX LIFT,LIB LIBRARY
  313. INDEX PTFT,PTY PRIMARY
  314.  
  315. INDEX PMFT,PFT PERMANENT = 0RP
  316. INDEX SYFT,SYS SYSTEM FILE TYPE
  317. INDEX LOFT,RFA LOCAL FILE TYPE = DROP FILE
  318. INDEX MXFT
  319. LIB TITLE FILE TYPE PROCESSORS.
  320. LIB SPACE 4,20
  321. ** LIB - PROCESS LIBRARY FILE.
  322. *
  323. * EXIT TO *SYS*.
  324. * IF THE TRACK INTERLOCK BIT (BIT 11 OF FST BYTE 4)
  325. * IS SET, THE TRACK INTERLOCK ON THE FIRST TRACK IS
  326. * CLEARED. IF THE PF ACTIVITY BIT (BIT 3 OF FUT BYTE 2)
  327. * IS SET, THE PF ACTIVITY COUNT FOR THAT EQUIPMENT
  328. * IS DECREMENTED.
  329. *
  330. * USES CM - CM+4.
  331. *
  332. * MACROS MONITOR, NFA.
  333.  
  334.  
  335. LIB BSS 0 ENTRY
  336. LDD FS+4 CHECK TRACK INTERLOCK
  337. SHN 21-11
  338. PJN LIB1 IF INTERLOCK NOT SET
  339. LDD FS+1
  340. STD CM+2
  341. LDD FS SET EST ORDINAL
  342. STD CM+1
  343. LDN CTIS SELECT CLEARING OF TRACK INTERLOCK
  344. STD CM+3
  345. MONITOR STBM CLEAR INTERLOCK
  346. LIB1 NFA FA,R READ *FUTL* WORD OF FNT
  347. ADN FUTL
  348. CRD CM
  349. LDD CM+2
  350. LPN 10
  351. ZJN LIB2 IF PF ACTIVITY BIT NOT SET
  352. LDD FS
  353. STD CM+1
  354. LDN DPAS DECREMENT PF ACTIVITY
  355. STD CM+3
  356. MONITOR STBM
  357. LIB2 LJM SYS RETURN SYSTEM FILE
  358. INP SPACE 4,15
  359. ** INP - PROCESS INPUT FILE.
  360. *
  361. * EXIT TO *DRFX*, IF INPUT FILE IS CONTROL STATEMENT FILE.
  362. * TO *RFA*, IF NOT CONTROL STATEMENT FILE.
  363. *
  364. * MACROS NFA.
  365.  
  366.  
  367. INP BSS 0 ENTRY
  368. LDC FNTN CHECK FNT RELATIVE ADDRESS
  369. LMD FA
  370. NJN INP2 IF NOT CONTROL STATEMENT FILE
  371. LDD CM+4
  372. SCN 77 CHANGE FILE NAME TO -INPUT*-
  373. RAM INPB+4
  374. AOD FS+4 SET STATUS COMPLETE
  375. LDD LA
  376. RAM INPA
  377. NFA FA,R
  378. CWM. INPB,ON REWRITE FILE NAME
  379. INPA EQU *-1
  380. ADK FSTL-1 STORE FILE STATUS
  381. CWD FS
  382. LDN 0
  383. LJM DRFX EXIT
  384.  
  385. INP2 LDN 0
  386. UJN RFA RELEASE FILE ASSIGNMENT
  387.  
  388.  
  389. INPB VFD 42/6LINPUT*,6/1,12/NDST
  390. PTY SPACE 4,10
  391. ** PTY - PROCESS PRIMARY FILE.
  392. *
  393. * EXIT TO *RFA*.
  394. *
  395. * USES CM - CM+4.
  396.  
  397.  
  398. PTY BSS 0 ENTRY
  399. LDD CP
  400. ADN TFSW
  401. CRD CM
  402. LDN 0 CLEAR PRIMARY FILE RELATIVE ADDRESS
  403. STD CM+1
  404. LDD CP
  405. ADN TFSW
  406. CWD CM
  407. LDN 1
  408. * UJN RFA RELEASE FILE ASSIGNMENT
  409. QUE SPACE 4,10
  410. ** QUE - PROCESS QUEUE FILE.
  411. *
  412. * EXIT TO *RFA*.
  413.  
  414.  
  415. QUE EQU INP2
  416. SYS SPACE 4,10
  417. ** SYS - PROCESS SYSTEM FILE.
  418. *
  419. * EXIT TO *DRF3*.
  420.  
  421.  
  422. SYS EQU DRF3
  423. RFA SPACE 4,25
  424. ** RFA - RELEASE FILE ASSIGNMENT.
  425. *
  426. * ENTRY (A) = 0 IF QUEUE FILE.
  427. * = 1 IF PRIMARY FILE.
  428. * = 2 FOR OTHER FILE TYPES.
  429. * (T8) = CHECKPOINT REQUEST.
  430. * (FA) = FNT ADDRESS.
  431. * (FS - FS+4) = FST INFORMATION.
  432. *
  433. * EXIT TO *DRF5* TO LOAD AND EXECUTE -
  434. * *0DQ* IF QUEUE FILE.
  435. * *0OD* IF OPTICAL DISK FILE.
  436. * *0PT* IF PRIMARY FILE.
  437. * *0RT* IF TAPE FILE.
  438. * TO *SYS* FOR ALL OTHER FILES.
  439. *
  440. * USES T2, QA, CM - CM+4.
  441. *
  442. * CALLS RMS.
  443. *
  444. * MACROS SFA.
  445.  
  446.  
  447. RFA BSS 0 ENTRY
  448. STD T2
  449. LDM -1 SET RETURN / UNLOAD FLAG
  450. LPN 1
  451. STM OVL-1
  452. LDD FS
  453. ZJN RFA3 IF EST ORDINAL ZERO
  454. SFA EST
  455. ADK EQDE READ EST ENTRY
  456. CRD CM
  457. LDD CM CHECK EQUIPMENT TYPE
  458. SHN 21-13
  459. PJN RFA6 IF NOT MASS STORAGE
  460. SOD T2
  461. MJN RFA2 IF QUEUE FILE
  462. RJM RMS RELEASE MASS STORAGE SPACE
  463. LDD T2
  464. NJN RFA3 IF NOT PRIMARY FILE
  465. STD FS
  466. STD FS+1
  467. LDC 2RPT SELECT *0PT*
  468. RFA1 STM EZOA
  469. LJM DRF5 LOAD AND EXECUTE OVERLAY
  470.  
  471. RFA2 LDD FS+1
  472. NJN RFA4 IF FILE USED
  473. RFA3 LJM SYS DELETE FNT ENTRY
  474.  
  475. RFA4 LDN 0 SELECT QFT SEARCH
  476. STD QA
  477. STM OVL-1 RELEASE DISK SPACE
  478. LDC 2RDQ
  479. UJN RFA1 LOAD AND EXECUTE *0DQ*
  480.  
  481. RFA6 LDD CM+3 CHECK DEVICE TYPE
  482. LMC 2RNT
  483. ZJN RFA8 IF TAPE DEVICE
  484. LMC 2RMT&2RNT
  485. ZJN RFA8 IF TAPE DEVICE
  486. LMC 2RCT&2RMT
  487. ZJN RFA8 IF TAPE DEVICE
  488. LMC 2RAT&2RCT
  489. ZJN RFA8 IF TAPE DEVICE
  490. LDD CM
  491. SHN 21-12
  492. MJN RFA7 IF ALLOCATABLE DEVICE
  493. LDD FS
  494. LPC 777
  495. STM DRFB SET EQUIPMENT TO RELEASE
  496. RFA7 LDD CM+3 CHECK DEVICE TYPE
  497. LMC 2RTE
  498. ZJN RFA8 IF *TE*
  499. LMC 2ROD&2RTE
  500. NJP RFA3 IF NOT *OD*
  501. LDC 2ROD SET *0OD* OVERLAY
  502. STM RFAA
  503. RFA8 LDD FS+2
  504. LPN 77 ISOLATE RANDOM ADDRESS
  505. STD FS+2
  506. LDD FS+4
  507. SHN 21-2
  508. MJN RFA9 IF PREVIOUS *0RT* REJECT
  509. SHN 2-21
  510. STD FS+4
  511. RFA9 LDC 2RRT
  512. * LDC 2ROD (IF OPTICAL DISK)
  513. RFAA EQU *-1
  514. UJP RFA1 LOAD AND EXECUTE *0RT* OR *0OD*
  515. RMS SPACE 4,15
  516. ** RMS - RELEASE MASS STORAGE.
  517. *
  518. * ENTRY (FA) = FNT ENTRY RELATIVE ADDRESS IN NFL.
  519. * (T8) = CHECKPOINT REQUEST.
  520. * (FS - FS+4) = FST INFORMATION.
  521. *
  522. * USES CM - CM+4.
  523. *
  524. * MACROS MONITOR.
  525.  
  526.  
  527. RMS SUBR ENTRY/EXIT
  528. LDD FS+1
  529. ZJN RMSX IF FILE UNUSED
  530. STD CM+2
  531. LDD FS
  532. LMD T8 MERGE CHECKPOINT REQUEST
  533. STD CM+1
  534. MONITOR DTKM DROP TRACKS
  535.  
  536. * INCREMENT PRU LIMIT FIELD IN CONTROL POINT AREA.
  537. * ACTUAL COUNT OF SECTORS RETURNED VIA DTKM IS IN CM+3 - CM+4.
  538.  
  539. LDN CICS INCREMENT CP AREA FIELD FUNCTION CODE
  540. STD CM
  541. LDK ACLW ADDRESS OF MASS STORAGE SECTOR LIMIT
  542. STD CM+1
  543. LDN 0D*100+18D POSITION AND WIDTH OF LIMIT FIELD
  544. STD CM+2
  545. LDD MA UADM FUNCTION MESSAGE BUFFER CONTENTS
  546. CWD CM
  547. LDN 1 SET UADM REQUEST COUNT AND NO DROP OF PPU
  548. STD CM+1
  549. STD CM+2
  550. MONITOR UADM INCREMENT MASS STORAGE SECTOR LIMIT
  551. * LDN 0
  552. UJN RMSX RETURN
  553. SPACE 4,10
  554. RSTR RESTORE INSTRUCTIONS
  555. OVERFLOW SPACE 4,10
  556. ** OVERFLOW CHECKS.
  557. *
  558. * BYTES WHICH CAN BE ADDED BEFORE *OVL* IN *0DF*
  559. * AND STILL ALLOW *0DQ*, *0FA*, *0PT*, *0RF*, *0RP*, AND
  560. * *0RT* TO LOAD.
  561.  
  562.  
  563. ERRNG ZDFL-OVL-ZDQL CHECK LENGTH OF *0DQ*
  564. ERRNG ZDFL-OVL-ZFAL CHECK LENGTH OF *0FA*
  565. ERRNG ZDFL-OVL-ZODL CHECK LENGTH OF *0OD*
  566. ERRNG ZDFL-OVL-ZPTL CHECK LENGTH OF *0PT*
  567. ERRNG ZDFL-OVL-ZRFL CHECK LENGTH OF *0RF*
  568. ERRNG ZDFL-OVL-ZRPL CHECK LENGTH OF *0RP*
  569. ERRNG ZDFL-OVL-ZRTL CHECK LENGTH OF *0RT*
  570.  
  571. ERRNG ZDFL-* BYTES WHICH CAN BE ADDED TO *0DF*
  572.  
  573. END