cdc:nos2.source:opl.opl871:deck:0df
Deck 0DF
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.0df +++| IDENT 0DF,DRFX 00002 M00S00002.0df +++| PERIPH J 00003 M00S00003.0df +++| BASE MIXED 00004 M00S00004.0df +++| SST 00005 M00S00005.0df +++|*COMMENT 0DF - DROP FILE.
| Line S00006 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M01S00006.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1979.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M00S00007.0df +++| TITLE 0DF - DROP FILE. 00009 M00S00008.0df +++| SPACE 4,10 00010 M00S00009.0df +++|*** 0DF - DROP FILE. 00011 M00S00010.0df +++|* G. R. MANSFIELD. 70/07/30. 00012 M00S00011.0df +++|* R. E. TATE. 70/11/30. 00013 M00S00012.0df +++|* M. E. MADDEN. 73/04/01. 00014 M00S00013.0df +++|* D. D. SADLER 75/01/18. 00015 M00S00014.0df +++|* P. D. HAAS. 85/01/20. 00016 M00S00015.0df +++| SPACE 4,10 00017 M00S00016.0df +++|*** 0DF IS A LOCATION FREE ROUTINE TO BE USED FOR 00018 M00S00017.0df +++|* DROPPING ANY SYSTEM FILE. 00019 M00S00018.0df +++|* 00020 M00S00019.0df +++|* ALL FILES ARE REMOVED FROM THE LOCAL FNT 00021 M00S00020.0df +++|* AND THE ASSIGNED EQUIPMENT OR TRACKS WILL BE RELEASED. 00022 M00S00021.0df +++|* THE JOBS MASS STORAGE PRU LIMIT IS ALSO INCREMENTED, UNLESS 00023 M00S00022.0df +++|* BIT 0 OF ((LA)-1) IS SET. 00024 M00S00023.0df +++|* *0DF* DOES NOT SET THE FILE BUSY BEFORE DROPPING. 00025 M00S00024.0df +++|* NOTE - *0DF* WILL HANG WITH AN *HNGM* MONITOR FUNCTION 00026 M00S00025.0df +++|* FOR THE FOLLOWING CONDITIONS - 00027 M00S00026.0df +++|* 1. FNT ADDRESS FOR FILE TO BE DROPPED IS ZERO. 00028 M00S00027.0df +++|* 2. FILE TYPE IN FNT ENTRY IS ILLEGAL. 00029 M00S00028.0df +++|* 3. PROCESSOR IS NOT DEFINED FOR THE FILE TYPE. 00030 M00S00029.0df +++| SPACE 4,10 00031 M00S00030.0df +++|*** ENTRY CONDITIONS. 00032 M00S00031.0df +++|* 00033 M00S00032.0df +++|* 00034 M00S00033.0df +++|* (FA) = 12/FNT ENTRY RELATIVE ADDRESS IN NFL 00035 M00S00034.0df +++|* 00036 M00S00035.0df +++|* ((LA)-1) = 10/, 1/D, 1/R 00037 M00S00036.0df +++|* 00038 M00S00037.0df +++|* WHERE - 00039 M00S00038.0df +++|* 00040 M00S00039.0df +++|* D = PROCESS *ROFT* FILES. THIS SHOULD ONLY BE SET BY
| Line S00040 Modification History | |
|---|---|
M01 (Removed by) | ns2685 |
Seq # *Modification Id* Act ----------------------------+ 00041 M01S00040.ns2685 ---|* *1AJ* DURING JOB TERMINATION, TO ALLOW THE DM* 00042 M01S00041.ns2685 ---|* FILE TO BE RELEASED.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2685 |
Seq # *Modification Id* Act ----------------------------+ 00043 M01S00001.ns2685 +++|* *1RO* DURING ERROR PROCESSING OR BY *1AJ* DURING 00044 M01S00002.ns2685 +++|* *DMP=* PROGRAM ABNORMAL TERMINATION PROCESSING TO 00045 M01S00003.ns2685 +++|* ALLOW THE DM* FILE TO BE RELEASED. 00046 M00S00042.0df +++|* 00047 M00S00043.0df +++|* R = RESOURCE UPDATE CONTROL. FOR MAGNETIC TAPE 00048 M00S00044.0df +++|* FILES AND PERMANENT FILES ON PACKS (FOR 00049 M00S00045.0df +++|* SUBSEQUENT CALL TO *0RF*/*0RT*). 00050 M00S00046.0df +++|* 0 = *RETURN* FILE. 00051 M00S00047.0df +++|* 1 = *UNLOAD* FILE (DOES NOT DECREMENT RESOURCE 00052 M00S00048.0df +++|* FILE COUNT). 00053 M00S00049.0df +++| SPACE 4,10 00054 M00S00050.0df +++|*** EXIT CONDITIONS. 00055 M00S00051.0df +++|* 00056 M00S00052.0df +++|* 00057 M00S00053.0df +++|* (A) = (FA) = 0 IF OPERATION COMPLETED SUCCESSFULLY. 00058 M00S00054.0df +++|* 00059 M00S00055.0df +++|* (A) .LT. 0 IF MASS STORAGE DEVICE INACCESSIBLE.
| Line S00056 Modification History | |
|---|---|
M01 (Removed by) | ns2553 |
Seq # *Modification Id* Act ----------------------------+ 00060 M01S00056.ns2553 ---|*
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2553 |
Seq # *Modification Id* Act ----------------------------+ 00061 M01S00001.ns2553 +++|* (T5) = EST ORDINAL OF INACCESSIBLE DEVICE, IF INACCESSIBLE. 00062 M01S00002.ns2553 +++|* NOTE - THE INACCESSIBLE DEVICE MAY BE A DEVICE OTHER 00063 M01S00003.ns2553 +++|* THAN THE ONE ON WHICH THE FILE BEING RETURNED 00064 M01S00004.ns2553 +++|* RESIDES. 00065 M01S00005.ns2553 +++|* (FA) = FNT ORDINAL, IF DEVICE INACCESSIBLE. 00066 M01S00006.ns2553 +++|* FNT LEFT BUSY, IF DEVICE INACCESSIBLE. 00067 M00S00057.0df +++|* (FS - FS+4) = FST WORD OF FNT ENTRY. 00068 M00S00058.0df +++| SPACE 4,10 00069 M00S00059.0df +++|** 0-LEVEL OVERLAYS CALLED. 00070 M00S00060.0df +++|* 00071 M00S00061.0df +++|* 00072 M00S00062.0df +++|* *0DQ*, *0FA*, *0PT*, *0RF*, *0RP*, *0RT*. 00073 M00S00063.0df +++| SPACE 4,10 00074 M00S00064.0df +++|** COMMON DECKS. 00075 M00S00065.0df +++| 00076 M00S00066.0df +++| 00077 M00S00067.0df +++|*CALL COMPMAC 00078 M00S00068.0df +++|*CALL COMPREL 00079 M00S00069.0df +++|*CALL COMSCPS 00080 M00S00070.0df +++|*CALL COMSLFD 00081 M00S00071.0df +++|*CALL COMSZOL 00082 M00S00072.0df +++| SPACE 4,10 00083 M00S00073.0df +++|**** DIRECT LOCATION ASSIGNMENTS. 00084 M00S00074.0df +++| 00085 M00S00075.0df +++| 00086 M00S00076.0df +++| T8 EQU 16 CHECKPOINT REQUEST 00087 M00S00077.0df +++| FS EQU 20 - 24 FST INFORMATION (5 LOCATIONS) 00088 M00S00078.0df +++| QA EQU 26 00089 M00S00079.0df +++| FA EQU 57 FNT ENTRY RELATIVE ADDRESS IN NFL 00090 M00S00080.0df +++| 00091 M00S00081.0df +++|**** 00092 M00S00082.0df +++| TITLE MAIN ROUTINE. 00093 M00S00083.0df +++| DRF SPACE 4,10 00094 M00S00084.0df +++|** DRF - MAIN ROUTINE. 00095 M00S00085.0df +++| 00096 M00S00086.0df +++| 00097 M00S00087.0df +++| ORG 5 00098 M00S00088.0df +++| DRF SUBR ENTRY/EXIT 00099 M00S00089.0df +++| LJM IFP IDENTIFY AND EXECUTE FILE PROCESSOR 00100 M00S00090.0df +++| EZO SPACE 4,25 00101 M00S00091.0df +++|** EZO - EXECUTE ZERO-LEVEL OVERLAY. 00102 M00S00092.0df +++|* 00103 M00S00093.0df +++|* ENTRY (A) = OVERLAY NAME. 00104 M00S00094.0df +++|* (FA) = RELATIVE FNT ADDRESS IN NFL. 00105 M00S00095.0df +++|* (FS - FS+4) = FST INFORMATION. 00106 M00S00096.0df +++|* ((OVL)-1) = FLAGS. 00107 M00S00097.0df +++|* 00108 M00S00098.0df +++|* EXIT (A) = (FA) = 0. 00109 M00S00099.0df +++|* 00110 M00S00100.0df +++|* ERROR TO *DRFX* IF MASS STORAGE DEVICE INACCESSIBLE. 00111 M00S00101.0df +++|* 00112 M00S00102.0df +++|* CALLS EXR, *0DQ*, *0FA*, *0PT*, *0RF*, *0RP*, *0RT*. 00113 M00S00103.0df +++|* 00114 M00S00104.0df +++|* MACROS EXECUTE. 00115 M00S00105.0df +++| 00116 M00S00106.0df +++| 00117 M00S00107.0df +++| EZO BSS 0 00118 M00S00108.0df +++| EXECUTE 0DQ,= 00119 M00S00109.0df +++| EXECUTE 0FA,= 00120 M00S00110.0df +++| EXECUTE 0PT,= 00121 M00S00111.0df +++| EXECUTE 0RF,= 00122 M00S00112.0df +++| EXECUTE 0RP,= 00123 M00S00113.0df +++| EXECUTE 0RT,= 00124 M00S00114.0df +++| RJM. EXR 00125 M00S00115.0df +++| PJN DRF2 IF NO INACCESSIBLE DEVICE ERROR 00126 M00S00116.0df +++| NFA FA,R 00127 M00S00117.0df +++| ADN FSTL RESTORE FST INFORMATION 00128 M00S00118.0df +++| CRD FS 00129 M00S00119.0df +++| LCN 0 00130 M00S00120.0df +++| DRF1 UJN DRFX EXIT 00131 M00S00121.0df +++| 00132 M00S00122.0df +++| DRF2 UJN *+2 CHECK EQUIPMENT ASSIGNED 00133 M00S00123.0df +++| DRFA EQU DRF2 00134 M00S00124.0df +++| UJN PFT4 CONTINUE WITH *0RF* CALL 00135 M00S00125.0df +++| 00136 M00S00126.0df +++| DRF3 LDC 0 00137 M00S00127.0df +++| DRFB EQU *-1
| Line S00128 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00138 M01S00128.282l826 ---| ZJN DRF4 IF EQUIPMENT NOT ASSIGNED
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00139 M01S00001.282l826 +++| ZJN DRF4 IF NOT TO RELEASE EQUIPMENT 00140 M00S00129.0df +++| STD CM+1 00141 M00S00130.0df +++| MONITOR DEQM RELEASE ASSIGNED EQUIPMENT 00142 M00S00131.0df +++| 00143 M00S00132.0df +++|* CLEAR FNT ENTRY IN NFL. 00144 M00S00133.0df +++| 00145 M00S00134.0df +++| DRF4 LDD FA SET RELATIVE FNT ADDRESS 00146 M00S00135.0df +++| STD CM+4 00147 M00S00136.0df +++| LDN DLFS SELECT DELETE LOCAL FILE 00148 M00S00137.0df +++| STD CM+1 00149 M00S00138.0df +++| MONITOR PLFM CLEAR FNT ENTRY 00150 M00S00139.0df +++|* LDN 0 00151 M00S00140.0df +++| STD FA 00152 M00S00141.0df +++| UJN DRFX EXIT 00153 M00S00142.0df +++| PFT SPACE 4,30 00154 M00S00143.0df +++|** PFT - RELEASE PERMANENT FILE. 00155 M00S00144.0df +++|* 00156 M00S00145.0df +++|* USES CM - CM+4. 00157 M00S00146.0df +++|* 00158 M00S00147.0df +++|* CALLS EZO. 00159 M00S00148.0df +++|* 00160 M00S00149.0df +++|* MACROS MONITOR, NFA, SFA. 00161 M00S00150.0df +++|*
| Line S00151 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00162 M01S00151.274l797 ---|* NOTE LOADING *0FA*, *0PT*, *0RF*, *0RP*, OR *0RT* AND THEIR 00163 M01S00152.274l797 ---|* PARAMETERS OVERLAYS CODE BEGINNING AT *PFT*.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00164 M01S00001.274l797 +++|* NOTE LOADING *0FA*, *0OD*, *0PT*, *0RF*, *0RP*, OR *0RT* 00165 M01S00002.274l797 +++|* AND THEIR PARAMETERS OVERLAYS CODE STARTING AT *PFT*. 00166 M00S00153.0df +++|* 00167 M00S00154.0df +++|* *0FA* IS CALLED TO RETURN A PERMANENT FILE FOR 00168 M00S00155.0df +++|* WHICH A MATCHING FAST-ATTACH FNT ENTRY WAS FOUND. 00169 M00S00156.0df +++|*
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00170 M01S00003.274l797 +++|* *0OD* IS CALLED TO RETURN ALL OPTICAL DISK FILES. 00171 M00S00157.0df +++|* *OPT* IS CALLED TO CLEAR THE PRIMARY FILE POINTERS 00172 M00S00158.0df +++|* IN THE JOB EJT ENTRY WHEN DROPPING THE PRIMARY FILE. 00173 M00S00159.0df +++|* 00174 M00S00160.0df +++|* *0RP* IS CALLED TO RETURN ALL OTHER PERMANENT FILES. 00175 M00S00161.0df +++|* 00176 M00S00162.0df +++|* *0RF* IS CALLED AFTER *0RP* TO DECREMENT THE JOB 00177 M00S00163.0df +++|* RESOURCE COUNTS WHENEVER THE PERMANENT FILE IS THE 00178 M00S00164.0df +++|* LAST DIRECT ACCESS FILE ATTACHED TO THIS JOB THAT 00179 M00S00165.0df +++|* RESIDES ON A SPECIFIC REMOVABLE AUXILIARY PACK. 00180 M00S00166.0df +++|* 00181 M00S00167.0df +++|* *0RT* IS CALLED FOR ALL FILES ASSIGNED TO TAPE
| Line S00168 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00182 M01S00168.274l797 ---|* EQUIPMENT (*MT*, *NT*, OR *TE*) TO CLEAR THE 00183 M01S00169.274l797 ---|* ASSOCIATED VSN FILE ENTRY AND TO DECREMENT THE
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00184 M01S00004.274l797 +++|* EQUIPMENT (*MT*, *NT*, *CT*, *AT* OR *TE*) TO CLEAR 00185 M01S00005.274l797 +++|* THE ASSOCIATED VSN FILE ENTRY AND TO DECREMENT THE 00186 M00S00170.0df +++|* JOB RESOURCE COUNTS. 00187 M00S00171.0df +++| 00188 M00S00172.0df +++| 00189 M00S00173.0df +++| PFT4 LDN 5 FLAG *0RP* PROCESSING COMPLETED 00190 M00S00174.0df +++| STD FS+1 00191 M00S00175.0df +++| NFA FA,R STORE FST (FIRST TRACK BYTE CLEAR) 00192 M00S00176.0df +++| ADN FSTL 00193 M00S00177.0df +++| CWD FS 00194 M00S00178.0df +++| AOM DRFA-OVL ENABLE DELETION OF FNT ENTRY 00195 M00S00179.0df +++| PFT5 LDM -1-OVL GET *0DF* PARAMETER WORD 00196 M00S00180.0df +++| LPN 1 00197 M00S00181.0df +++| STM -1 SET RESOURCE UPDATE CONTROL 00198 M00S00182.0df +++| LDC 3R0RF 00199 M00S00183.0df +++| LJM EZO-OVL LOAD AND EXECUTE *0RF* 00200 M00S00184.0df +++| 00201 M00S00185.0df +++| 00202 M00S00186.0df +++| OVL EQU *+1 ZERO-LEVEL OVERLAY LOAD ADDRESS 00203 M00S00187.0df +++| 00204 M00S00188.0df +++| 00205 M00S00189.0df +++| PFT BSS 0 ENTRY 00206 M00S00190.0df +++| LDD CM+3 SET FILE MODE 00207 M00S00191.0df +++| LPN 77 00208 M00S00192.0df +++| STM OVL-1 SET *0RP* PARAMETER WORD 00209 M00S00193.0df +++| LDD FS+4 CHECK FILE TYPE 00210 M00S00194.0df +++| SHN 21-12 00211 M00S00195.0df +++| PJN PFT1 IF NOT FAFT 00212 M00S00196.0df +++| LDC 2RFA SET *0FA* CALL 00213 M00S00197.0df +++| STM EZOA 00214 M00S00198.0df +++| PFT1 SFA EST,FS FETCH EST ENTRY 00215 M00S00199.0df +++| ADK EQDE 00216 M00S00200.0df +++| CRD CM 00217 M00S00201.0df +++| LDD CM+4 00218 M00S00202.0df +++| SHN 3 00219 M00S00203.0df +++| ADN MDGL 00220 M00S00204.0df +++| CRD CM 00221 M00S00205.0df +++| LDD CM 00222 M00S00206.0df +++| SHN 0-12 00223 M00S00207.0df +++| LMN 3 00224 M00S00208.0df +++| NJN DRF5 IF NOT REMOVABLE AUXILIARY DEVICE 00225 M00S00209.0df +++| LDD FA 00226 M00S00210.0df +++| STD CM+4 SET RELATIVE FNT ADDRESS 00227 M00S00211.0df +++| LDN DLCS 00228 M00S00212.0df +++| STD CM+1 00229 M00S00213.0df +++| MONITOR PLFM COUNT FILES ATTACHED ON DEVICE 00230 M00S00214.0df +++| SOD CM+3 00231 M00S00215.0df +++| NJN DRF5 IF NOT LAST FILE 00232 M00S00216.0df +++| 00233 M00S00217.0df +++|* PROCESS LAST FILE ON A REMOVABLE AUXILIARY DEVICE. 00234 M00S00218.0df +++| 00235 M00S00219.0df +++| LDD FS+1 00236 M00S00220.0df +++| SHN 0-13 00237 M00S00221.0df +++| NJN PFT3 IF *0RP* NOT YET CALLED 00238 M00S00222.0df +++| LDN OVL 00239 M00S00223.0df +++| RAD LA 00240 M00S00224.0df +++| LDD FS+1 00241 M00S00225.0df +++| NJN PFT2 IF INTERMEDIATE PROCESSING STATE 00242 M00S00226.0df +++| LJM PFT4-OVL DECREMENT RESOURCE COUNTS 00243 M00S00227.0df +++| 00244 M00S00228.0df +++| PFT2 LJM PFT5-OVL CONTINUE PROCESSING 00245 M00S00229.0df +++| 00246 M00S00230.0df +++| PFT3 SOM DRFA ENABLE *0RF* PROCESSING 00247 M00S00231.0df +++| 00248 M00S00232.0df +++|* SET ZERO-LEVEL OVERLAY ENTRY CONDITIONS. 00249 M00S00233.0df +++| 00250 M00S00234.0df +++| DRF5 LDN OVL ADJUST LOAD ADDRESS 00251 M00S00235.0df +++| RAD LA 00252 M00S00236.0df +++| LDC 3R0RP SET OVERLAY NAME 00253 M00S00237.0df +++| EZOA EQU *-1 00254 M00S00238.0df +++| LJM EZO-OVL EXECUTE OVERLAY 00255 M00S00239.0df +++| IFP SPACE 4,15 00256 M00S00240.0df +++|** IFP - IDENTIFY FILE PROCESSOR. 00257 M00S00241.0df +++|* 00258 M00S00242.0df +++|* ENTRY (FA) = FNT ENTRY RELATIVE ADDRESS IN NFL. 00259 M00S00243.0df +++|* 00260 M00S00244.0df +++|* EXIT TO FILE PROCESSORS WITH FOLLOWING - 00261 M00S00245.0df +++|* (A) = 2. 00262 M00S00246.0df +++|* (T8) = CHECKPOINT REQUEST. 00263 M00S00247.0df +++|* (CM - CM+4) = FNT ENTRY. 00264 M00S00248.0df +++|* (FS - FS+4) = FST INFORMATION. 00265 M00S00249.0df +++|* 00266 M00S00250.0df +++|* USES T1. 00267 M00S00251.0df +++|* 00268 M00S00252.0df +++|* MACROS MONITOR, NFA. 00269 M00S00253.0df +++| 00270 M00S00254.0df +++| 00271 M00S00255.0df +++| IFP BSS 0 ENTRY 00272 M00S00256.0df +++| LDM -1 CHECK *DROP ROFT* FLAG 00273 M00S00257.0df +++| LPN 2 00274 M00S00258.0df +++| NJN IFP1 IF *ROFT* FILE TO BE DROPPED 00275 M00S00259.0df +++| STM TFTY+ROFT CLEAR PROCESSOR 00276 M00S00260.0df +++| IFP1 LDD FA 00277 M00S00261.0df +++| ZJN IFP2 IF NO FNT ADDRESS 00278 M00S00262.0df +++| NFA FA,R 00279 M00S00263.0df +++| CRD CM READ FNT 00280 M00S00264.0df +++| ADN FSTL 00281 M00S00265.0df +++| CRD FS 00282 M00S00266.0df +++| LDD CM+4 GET FILE TYPE 00283 M00S00267.0df +++| SHN -6 00284 M00S00268.0df +++| SBN MXFT 00285 M00S00269.0df +++| PJN IFP2 IF ILLEGAL FILE TYPE 00286 M00S00270.0df +++| ADC TFTY+MXFT SET TABLE ADDRESS 00287 M00S00271.0df +++| ADD LA 00288 M00S00272.0df +++| STD T1 00289 M00S00273.0df +++| LDI T1 00290 M00S00274.0df +++| NJN IFP3 IF PROCESSOR PRESENT 00291 M00S00275.0df +++| IFP2 MONITOR HNGM HANG PP 00292 M00S00276.0df +++|* LDN 0 00293 M00S00277.0df +++| LJM DRFX EXIT 00294 M00S00278.0df +++| 00295 M00S00279.0df +++| IFP3 LPC 3777 SET PROCESSOR ADDRESS 00296 M00S00280.0df +++| STM IFPA 00297 M00S00281.0df +++| LMI T1 SET CHECKPOINT REQUEST 00298 M00S00282.0df +++| STD T8 00299 M00S00283.0df +++| LDN 2 00300 M00S00284.0df +++| LJM * EXIT TO FILE PROCESSOR 00301 M00S00285.0df +++| IFPA EQU *-1 00302 M00S00286.0df +++| TFTY SPACE 4,10 00303 M00S00287.0df +++|** TFTY - TABLE OF FILE TYPE PROCESSORS. 00304 M00S00288.0df +++|* 00305 M00S00289.0df +++|* ENTRY 1 WORD. 00306 M00S00290.0df +++|* INDEXED BY FILE TYPE. 00307 M00S00291.0df +++|* 00308 M00S00292.0df +++|*T, 1/C, 11/ADDR
Figure
00309 M00S00293.0df +++|* 00310 M00S00294.0df +++|* C = CHECKPOINT REQUEST. 00311 M00S00295.0df +++|* ADDR = ADDRESS OF FILE PROCESSOR. 00312 M00S00296.0df +++| 00313 M00S00297.0df +++| 00314 M00S00298.0df +++| TFTY INDEX 00315 M00S00299.0df +++| 00316 M00S00300.0df +++| INDEX INFT,INP+4000 INPUT 00317 M00S00301.0df +++| INDEX QFFT,QUE+4000 QUEUED = DROP FILE 00318 M00S00302.0df +++| 00319 M00S00303.0df +++| INDEX ROFT,RFA ROLLOUT = RELEASE FILE 00320 M00S00304.0df +++|* INDEX ROFT,0 (IF *ROFT* FILE ILLEGAL) 00321 M00S00305.0df +++| INDEX LIFT,LIB LIBRARY 00322 M00S00306.0df +++| INDEX PTFT,PTY PRIMARY 00323 M00S00307.0df +++| 00324 M00S00308.0df +++| INDEX PMFT,PFT PERMANENT = 0RP 00325 M00S00309.0df +++| INDEX SYFT,SYS SYSTEM FILE TYPE 00326 M00S00310.0df +++| INDEX LOFT,RFA LOCAL FILE TYPE = DROP FILE 00327 M00S00311.0df +++| INDEX MXFT 00328 M00S00312.0df +++| LIB TITLE FILE TYPE PROCESSORS. 00329 M00S00313.0df +++| LIB SPACE 4,20 00330 M00S00314.0df +++|** LIB - PROCESS LIBRARY FILE. 00331 M00S00315.0df +++|* 00332 M00S00316.0df +++|* EXIT TO *SYS*. 00333 M00S00317.0df +++|* IF THE TRACK INTERLOCK BIT (BIT 11 OF FST BYTE 4) 00334 M00S00318.0df +++|* IS SET, THE TRACK INTERLOCK ON THE FIRST TRACK IS 00335 M00S00319.0df +++|* CLEARED. IF THE PF ACTIVITY BIT (BIT 3 OF FUT BYTE 2) 00336 M00S00320.0df +++|* IS SET, THE PF ACTIVITY COUNT FOR THAT EQUIPMENT 00337 M00S00321.0df +++|* IS DECREMENTED. 00338 M00S00322.0df +++|* 00339 M00S00323.0df +++|* USES CM - CM+4. 00340 M00S00324.0df +++|* 00341 M00S00325.0df +++|* MACROS MONITOR, NFA. 00342 M00S00326.0df +++| 00343 M00S00327.0df +++| 00344 M00S00328.0df +++| LIB BSS 0 ENTRY 00345 M00S00329.0df +++| LDD FS+4 CHECK TRACK INTERLOCK 00346 M00S00330.0df +++| SHN 21-11 00347 M00S00331.0df +++| PJN LIB1 IF INTERLOCK NOT SET 00348 M00S00332.0df +++| LDD FS+1 00349 M00S00333.0df +++| STD CM+2 00350 M00S00334.0df +++| LDD FS SET EST ORDINAL 00351 M00S00335.0df +++| STD CM+1 00352 M00S00336.0df +++| LDN CTIS SELECT CLEARING OF TRACK INTERLOCK 00353 M00S00337.0df +++| STD CM+3 00354 M00S00338.0df +++| MONITOR STBM CLEAR INTERLOCK 00355 M00S00339.0df +++| LIB1 NFA FA,R READ *FUTL* WORD OF FNT 00356 M00S00340.0df +++| ADN FUTL 00357 M00S00341.0df +++| CRD CM 00358 M00S00342.0df +++| LDD CM+2 00359 M00S00343.0df +++| LPN 10 00360 M00S00344.0df +++| ZJN LIB2 IF PF ACTIVITY BIT NOT SET 00361 M00S00345.0df +++| LDD FS 00362 M00S00346.0df +++| STD CM+1 00363 M00S00347.0df +++| LDN DPAS DECREMENT PF ACTIVITY 00364 M00S00348.0df +++| STD CM+3 00365 M00S00349.0df +++| MONITOR STBM 00366 M00S00350.0df +++| LIB2 LJM SYS RETURN SYSTEM FILE 00367 M00S00351.0df +++| INP SPACE 4,15 00368 M00S00352.0df +++|** INP - PROCESS INPUT FILE. 00369 M00S00353.0df +++|* 00370 M00S00354.0df +++|* EXIT TO *DRFX*, IF INPUT FILE IS CONTROL STATEMENT FILE. 00371 M00S00355.0df +++|* TO *RFA*, IF NOT CONTROL STATEMENT FILE. 00372 M00S00356.0df +++|* 00373 M00S00357.0df +++|* MACROS NFA. 00374 M00S00358.0df +++| 00375 M00S00359.0df +++| 00376 M00S00360.0df +++| INP BSS 0 ENTRY 00377 M00S00361.0df +++| LDC FNTN CHECK FNT RELATIVE ADDRESS 00378 M00S00362.0df +++| LMD FA 00379 M00S00363.0df +++| NJN INP2 IF NOT CONTROL STATEMENT FILE 00380 M00S00364.0df +++| LDD CM+4 00381 M00S00365.0df +++| SCN 77 CHANGE FILE NAME TO -INPUT*- 00382 M00S00366.0df +++| RAM INPB+4 00383 M00S00367.0df +++| AOD FS+4 SET STATUS COMPLETE 00384 M00S00368.0df +++| LDD LA 00385 M00S00369.0df +++| RAM INPA 00386 M00S00370.0df +++| NFA FA,R 00387 M00S00371.0df +++| CWM. INPB,ON REWRITE FILE NAME 00388 M00S00372.0df +++| INPA EQU *-1 00389 M00S00373.0df +++| ADK FSTL-1 STORE FILE STATUS 00390 M00S00374.0df +++| CWD FS 00391 M00S00375.0df +++| LDN 0 00392 M00S00376.0df +++| LJM DRFX EXIT 00393 M00S00377.0df +++| 00394 M00S00378.0df +++| INP2 LDN 0 00395 M00S00379.0df +++| UJN RFA RELEASE FILE ASSIGNMENT 00396 M00S00380.0df +++| 00397 M00S00381.0df +++| 00398 M00S00382.0df +++| INPB VFD 42/6LINPUT*,6/1,12/NDST 00399 M00S00383.0df +++| PTY SPACE 4,10 00400 M00S00384.0df +++|** PTY - PROCESS PRIMARY FILE. 00401 M00S00385.0df +++|* 00402 M00S00386.0df +++|* EXIT TO *RFA*. 00403 M00S00387.0df +++|* 00404 M00S00388.0df +++|* USES CM - CM+4. 00405 M00S00389.0df +++| 00406 M00S00390.0df +++| 00407 M00S00391.0df +++| PTY BSS 0 ENTRY 00408 M00S00392.0df +++| LDD CP 00409 M00S00393.0df +++| ADN TFSW 00410 M00S00394.0df +++| CRD CM 00411 M00S00395.0df +++| LDN 0 CLEAR PRIMARY FILE RELATIVE ADDRESS 00412 M00S00396.0df +++| STD CM+1 00413 M00S00397.0df +++| LDD CP 00414 M00S00398.0df +++| ADN TFSW 00415 M00S00399.0df +++| CWD CM 00416 M00S00400.0df +++| LDN 1 00417 M00S00401.0df +++|* UJN RFA RELEASE FILE ASSIGNMENT 00418 M00S00402.0df +++| QUE SPACE 4,10 00419 M00S00403.0df +++|** QUE - PROCESS QUEUE FILE. 00420 M00S00404.0df +++|* 00421 M00S00405.0df +++|* EXIT TO *RFA*. 00422 M00S00406.0df +++| 00423 M00S00407.0df +++| 00424 M00S00408.0df +++| QUE EQU INP2 00425 M00S00409.0df +++| SYS SPACE 4,10 00426 M00S00410.0df +++|** SYS - PROCESS SYSTEM FILE. 00427 M00S00411.0df +++|* 00428 M00S00412.0df +++|* EXIT TO *DRF3*. 00429 M00S00413.0df +++| 00430 M00S00414.0df +++| 00431 M00S00415.0df +++| SYS EQU DRF3 00432 M00S00416.0df +++| RFA SPACE 4,25 00433 M00S00417.0df +++|** RFA - RELEASE FILE ASSIGNMENT. 00434 M00S00418.0df +++|* 00435 M00S00419.0df +++|* ENTRY (A) = 0 IF QUEUE FILE. 00436 M00S00420.0df +++|* = 1 IF PRIMARY FILE. 00437 M00S00421.0df +++|* = 2 FOR OTHER FILE TYPES. 00438 M00S00422.0df +++|* (T8) = CHECKPOINT REQUEST. 00439 M00S00423.0df +++|* (FA) = FNT ADDRESS. 00440 M00S00424.0df +++|* (FS - FS+4) = FST INFORMATION. 00441 M00S00425.0df +++|* 00442 M00S00426.0df +++|* EXIT TO *DRF5* TO LOAD AND EXECUTE - 00443 M00S00427.0df +++|* *0DQ* IF QUEUE FILE.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00444 M01S00006.274l797 +++|* *0OD* IF OPTICAL DISK FILE. 00445 M00S00428.0df +++|* *0PT* IF PRIMARY FILE. 00446 M00S00429.0df +++|* *0RT* IF TAPE FILE. 00447 M00S00430.0df +++|* TO *SYS* FOR ALL OTHER FILES. 00448 M00S00431.0df +++|* 00449 M00S00432.0df +++|* USES T2, QA, CM - CM+4. 00450 M00S00433.0df +++|* 00451 M00S00434.0df +++|* CALLS RMS. 00452 M00S00435.0df +++|* 00453 M00S00436.0df +++|* MACROS SFA. 00454 M00S00437.0df +++| 00455 M00S00438.0df +++| 00456 M00S00439.0df +++| RFA BSS 0 ENTRY 00457 M00S00440.0df +++| STD T2 00458 M00S00441.0df +++| LDM -1 SET RETURN / UNLOAD FLAG 00459 M00S00442.0df +++| LPN 1 00460 M00S00443.0df +++| STM OVL-1 00461 M00S00444.0df +++| LDD FS 00462 M00S00445.0df +++| ZJN RFA3 IF EST ORDINAL ZERO 00463 M00S00446.0df +++| SFA EST 00464 M00S00447.0df +++| ADK EQDE READ EST ENTRY 00465 M00S00448.0df +++| CRD CM 00466 M00S00449.0df +++| LDD CM CHECK EQUIPMENT TYPE 00467 M00S00450.0df +++| SHN 21-13 00468 M00S00451.0df +++| PJN RFA6 IF NOT MASS STORAGE 00469 M00S00452.0df +++| SOD T2 00470 M00S00453.0df +++| MJN RFA2 IF QUEUE FILE 00471 M00S00454.0df +++| RJM RMS RELEASE MASS STORAGE SPACE 00472 M00S00455.0df +++| LDD T2 00473 M00S00456.0df +++| NJN RFA3 IF NOT PRIMARY FILE 00474 M00S00457.0df +++| STD FS 00475 M00S00458.0df +++| STD FS+1 00476 M00S00459.0df +++| LDC 2RPT SELECT *0PT* 00477 M00S00460.0df +++| RFA1 STM EZOA 00478 M00S00461.0df +++| LJM DRF5 LOAD AND EXECUTE OVERLAY 00479 M00S00462.0df +++| 00480 M00S00463.0df +++| RFA2 LDD FS+1 00481 M00S00464.0df +++| NJN RFA4 IF FILE USED 00482 M00S00465.0df +++| RFA3 LJM SYS DELETE FNT ENTRY 00483 M00S00466.0df +++| 00484 M00S00467.0df +++| RFA4 LDN 0 SELECT QFT SEARCH 00485 M00S00468.0df +++| STD QA 00486 M00S00469.0df +++| STM OVL-1 RELEASE DISK SPACE 00487 M00S00470.0df +++| LDC 2RDQ
| Line S00471 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00488 M01S00471.274l797 ---| RFA5 UJN RFA1 LOAD AND EXECUTE *0DQ*
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00489 M01S00007.274l797 +++| UJN RFA1 LOAD AND EXECUTE *0DQ* 00490 M00S00472.0df +++|
| Line S00473 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00491 M01S00473.282l826 ---| RFA6 SHN 13-12
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00492 M01S00002.282l826 +++| RFA6 LDD CM+3 CHECK DEVICE TYPE 00493 M01S00003.282l826 +++| LMC 2RNT 00494 M01S00004.282l826 +++| ZJN RFA8 IF TAPE DEVICE 00495 M01S00005.282l826 +++| LMC 2RMT&2RNT 00496 M01S00006.282l826 +++| ZJN RFA8 IF TAPE DEVICE 00497 M01S00007.282l826 +++| LMC 2RCT&2RMT 00498 M01S00008.282l826 +++| ZJN RFA8 IF TAPE DEVICE 00499 M01S00009.282l826 +++| LMC 2RAT&2RCT 00500 M01S00010.282l826 +++| ZJN RFA8 IF TAPE DEVICE 00501 M01S00011.282l826 +++| LDD CM 00502 M01S00012.282l826 +++| SHN 21-12 00503 M00S00474.0df +++| MJN RFA7 IF ALLOCATABLE DEVICE 00504 M00S00475.0df +++| LDD FS
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2511 |
Seq # *Modification Id* Act ----------------------------+ 00505 M01S00001.ns2511 +++| LPC 777 00506 M00S00476.0df +++| STM DRFB SET EQUIPMENT TO RELEASE
| Line S00477 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00507 M01S00477.282l826 ---| 00508 M01S00478.282l826 ---|* CHECK FOR TAPE EQUIPMENT. 00509 M01S00479.282l826 ---| 00510 M01S00480.282l826 ---| RFA7 LDD CM+3 EXAMINE DEVICE TYPE
| Line S00481 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00511 M02S00481.282l826 ---| LPC 3777
| Line S00482 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00512 M01S00482.282l826 ---| LMC 2RNT 00513 M01S00483.282l826 ---| ZJN RFA8 IF *NT* 00514 M01S00484.282l826 ---| LMC 2RMT&2RNT 00515 M01S00485.282l826 ---| ZJN RFA8 IF *MT*
| Line S00486 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00516 M02S00486.282l826 ---| LMC 2RTE&2RMT 00517 M02S00487.282l826 ---| NJN RFA3 IF NOT *TE*
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00518 M02S00008.282l826 ---| LMC 2RCT&2RMT 00519 M02S00009.282l826 ---| ZJN RFA8 IF *CT* 00520 M02S00010.282l826 ---| LMC 2RAT&2RCT 00521 M02S00011.282l826 ---| ZJN RFA8 IF *AT* 00522 M02S00012.282l826 ---| LMC 2RTE&2RAT
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 00523 M01S00013.282l826 +++| RFA7 LDD CM+3 CHECK DEVICE TYPE 00524 M01S00014.282l826 +++| LMC 2RTE
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00525 M01S00013.274l797 +++| ZJN RFA8 IF *TE* 00526 M01S00014.274l797 +++| LMC 2ROD&2RTE 00527 M01S00015.274l797 +++| NJP RFA3 IF NOT *OD* 00528 M01S00016.274l797 +++| LDC 2ROD SET *0OD* OVERLAY 00529 M01S00017.274l797 +++| STM RFAA 00530 M00S00488.0df +++| RFA8 LDD FS+2 00531 M00S00489.0df +++| LPN 77 ISOLATE RANDOM ADDRESS 00532 M00S00490.0df +++| STD FS+2 00533 M00S00491.0df +++| LDD FS+4 00534 M00S00492.0df +++| SHN 21-2 00535 M00S00493.0df +++| MJN RFA9 IF PREVIOUS *0RT* REJECT 00536 M00S00494.0df +++| SHN 2-21 00537 M00S00495.0df +++| STD FS+4 00538 M00S00496.0df +++| RFA9 LDC 2RRT
| Line S00497 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00539 M01S00497.274l797 ---| UJN RFA5 LOAD AND EXECUTE *0RT*
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00540 M01S00018.274l797 +++|* LDC 2ROD (IF OPTICAL DISK) 00541 M01S00019.274l797 +++| RFAA EQU *-1 00542 M01S00020.274l797 +++| UJP RFA1 LOAD AND EXECUTE *0RT* OR *0OD* 00543 M00S00498.0df +++| RMS SPACE 4,15 00544 M00S00499.0df +++|** RMS - RELEASE MASS STORAGE. 00545 M00S00500.0df +++|* 00546 M00S00501.0df +++|* ENTRY (FA) = FNT ENTRY RELATIVE ADDRESS IN NFL. 00547 M00S00502.0df +++|* (T8) = CHECKPOINT REQUEST. 00548 M00S00503.0df +++|* (FS - FS+4) = FST INFORMATION. 00549 M00S00504.0df +++|* 00550 M00S00505.0df +++|* USES CM - CM+4. 00551 M00S00506.0df +++|* 00552 M00S00507.0df +++|* MACROS MONITOR. 00553 M00S00508.0df +++| 00554 M00S00509.0df +++| 00555 M00S00510.0df +++| RMS SUBR ENTRY/EXIT 00556 M00S00511.0df +++| LDD FS+1 00557 M00S00512.0df +++| ZJN RMSX IF FILE UNUSED 00558 M00S00513.0df +++| STD CM+2 00559 M00S00514.0df +++| LDD FS 00560 M00S00515.0df +++| LMD T8 MERGE CHECKPOINT REQUEST 00561 M00S00516.0df +++| STD CM+1 00562 M00S00517.0df +++| MONITOR DTKM DROP TRACKS 00563 M00S00518.0df +++| 00564 M00S00519.0df +++|* INCREMENT PRU LIMIT FIELD IN CONTROL POINT AREA. 00565 M00S00520.0df +++|* ACTUAL COUNT OF SECTORS RETURNED VIA DTKM IS IN CM+3 - CM+4. 00566 M00S00521.0df +++| 00567 M00S00522.0df +++| LDN CICS INCREMENT CP AREA FIELD FUNCTION CODE 00568 M00S00523.0df +++| STD CM 00569 M00S00524.0df +++| LDK ACLW ADDRESS OF MASS STORAGE SECTOR LIMIT 00570 M00S00525.0df +++| STD CM+1 00571 M00S00526.0df +++| LDN 0D*100+18D POSITION AND WIDTH OF LIMIT FIELD 00572 M00S00527.0df +++| STD CM+2 00573 M00S00528.0df +++| LDD MA UADM FUNCTION MESSAGE BUFFER CONTENTS 00574 M00S00529.0df +++| CWD CM 00575 M00S00530.0df +++| LDN 1 SET UADM REQUEST COUNT AND NO DROP OF PPU 00576 M00S00531.0df +++| STD CM+1 00577 M00S00532.0df +++| STD CM+2 00578 M00S00533.0df +++| MONITOR UADM INCREMENT MASS STORAGE SECTOR LIMIT 00579 M00S00534.0df +++|* LDN 0 00580 M00S00535.0df +++| UJN RMSX RETURN 00581 M00S00536.0df +++| SPACE 4,10 00582 M00S00537.0df +++| RSTR RESTORE INSTRUCTIONS 00583 M00S00538.0df +++| OVERFLOW SPACE 4,10 00584 M00S00539.0df +++|** OVERFLOW CHECKS. 00585 M00S00540.0df +++|* 00586 M00S00541.0df +++|* BYTES WHICH CAN BE ADDED BEFORE *OVL* IN *0DF* 00587 M00S00542.0df +++|* AND STILL ALLOW *0DQ*, *0FA*, *0PT*, *0RF*, *0RP*, AND 00588 M00S00543.0df +++|* *0RT* TO LOAD. 00589 M00S00544.0df +++| 00590 M00S00545.0df +++| 00591 M00S00546.0df +++| ERRNG ZDFL-OVL-ZDQL CHECK LENGTH OF *0DQ* 00592 M00S00547.0df +++| ERRNG ZDFL-OVL-ZFAL CHECK LENGTH OF *0FA*
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00593 M01S00021.274l797 +++| ERRNG ZDFL-OVL-ZODL CHECK LENGTH OF *0OD* 00594 M00S00548.0df +++| ERRNG ZDFL-OVL-ZPTL CHECK LENGTH OF *0PT* 00595 M00S00549.0df +++| ERRNG ZDFL-OVL-ZRFL CHECK LENGTH OF *0RF* 00596 M00S00550.0df +++| ERRNG ZDFL-OVL-ZRPL CHECK LENGTH OF *0RP* 00597 M00S00551.0df +++| ERRNG ZDFL-OVL-ZRTL CHECK LENGTH OF *0RT* 00598 M00S00552.0df +++| 00599 M00S00553.0df +++| ERRNG ZDFL-* BYTES WHICH CAN BE ADDED TO *0DF* 00600 M00S00554.0df +++| 00601 M00S00555.0df +++| END
cdc/nos2.source/opl.opl871/deck/0df.txt · Last modified: by 127.0.0.1