cdc:nos2.source:opl.opl871:deck:0bf
Deck 0BF
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.0bf +++| IDENT 0BF,BGFX 00002 M00S00002.0bf +++| PERIPH J 00003 M00S00003.0bf +++| BASE MIXED 00004 M00S00004.0bf +++| SST 00005 M00S00005.0bf +++|*COMMENT 0BF - BEGIN FILE.
| Line S00006 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M01S00006.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M00S00007.0bf +++| TITLE 0BF - BEGIN FILE. 00009 M00S00008.0bf +++| SPACE 4 00010 M00S00009.0bf +++|*** 0BF - BEGIN FILE. 00011 M00S00010.0bf +++|* 00012 M00S00011.0bf +++|* G. R. MANSFIELD. 70/09/01. 00013 M00S00012.0bf +++|* J. L. LARSON. 81/10/05. 00014 M00S00013.0bf +++| SPACE 4 00015 M00S00014.0bf +++|*** 0BF IS A LOCATION FREE ROUTINE WHICH ENTERS FILES INTO 00016 M00S00015.0bf +++|* THE LOCAL FNT (IN NFL). IT MAY BE USED BY ANY PP PROGRAM OR 00017 M00S00016.0bf +++|* ROUTINE FOR THIS PURPOSE. IF THE FILE HAS BEEN PREVIOUSLY 00018 M00S00017.0bf +++|* ENTERED INTO THE *FNT*, *0BF* ADVANCES THE EXIT ADDRESS BY 00019 M00S00018.0bf +++|* ONE AND RETURNS WITH THE FILE LEFT NOT BUSY. IF THE FILE HAS 00020 M00S00019.0bf +++|* NOT BEEN PREVIOUSLY ENTERED INTO THE *FNT* IT WILL BE ENTERED 00021 M00S00020.0bf +++|* AND LEFT BUSY UPON RETURN. 00022 M00S00021.0bf +++|* DEPENDING ON OPTIONS SELECTED BY THE CALLER, 00023 M00S00022.0bf +++|* THE FILE WILL BE ASSIGNED TO A SPECIFIED EQUIPMENT, 00024 M00S00023.0bf +++|* TO THE BEST MASS STORAGE EQUIPMENT, OR TO THE 00025 M00S00024.0bf +++|* TERMINAL EQUIPMENT. 00026 M00S00025.0bf +++| SPACE 4 00027 M00S00026.0bf +++|*** OPERATOR MESSAGES. 00028 M00S00027.0bf +++|* 00029 M00S00028.0bf +++|* 00030 M00S00029.0bf +++|* *WAIT FNT SPACE.* = *0BF* IS WAITING FOR ADDITIONAL NFL TO 00031 M00S00030.0bf +++|* BE ASSIGNED SO ANOTHER LOCAL FNT ENTRY CAN BE CREATED. 00032 M00S00031.0bf +++| SPACE 4 00033 M00S00032.0bf +++|*** ENTRY CONDITIONS. 00034 M00S00033.0bf +++|* 00035 M00S00034.0bf +++|*
| Line S00035 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00036 M01S00035.ns22000 ---|* ((LA)-1) = 6/,1/S,2/,1/L,1/R,1/N
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00037 M01S00001.ns22000 +++|* ((LA)-1) = 2/,1/A,3/AL,1/S,2/,1/L,1/R,1/N 00038 M01S00002.ns22000 +++|* A ACCESS LEVEL SPECIFIED. 00039 M01S00003.ns22000 +++|* AL FILE ACCESS LEVEL. 00040 M00S00036.0bf +++|* S IF SET, CREATE SPECIAL FILE USING
| Line S00037 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00041 M01S00037.v23l617 ---|* RESERVED FNT ENTRY. THIS OPTION IS USED 00042 M01S00038.v23l617 ---|* ONLY BY *1RO* TO BUILD THE DM* FILE.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00043 M01S00001.v23l617 +++|* ONE OF THE RESERVED FNT ENTRIES. SEE 00044 M01S00002.v23l617 +++|* SYMBOL *SRFE* IN *PPCOM* FOR A LIST OF 00045 M01S00003.v23l617 +++|* SPECIAL FILES. 00046 M00S00039.0bf +++|* L IF SET, RETURN TO CALLER ON LOCAL FILE 00047 M00S00040.0bf +++|* LIMIT (MAXIMUM NFL REACHED). IF THIS 00048 M00S00041.0bf +++|* OPTION IS NOT SELECTED, *0BF* WILL SET 00049 M00S00042.0bf +++|* THE *FLET* ERROR FLAG ON THE CONTROL 00050 M00S00043.0bf +++|* POINT AND DROP THE PP. 00051 M00S00044.0bf +++|* R IF SET, RETURN TO CALLER TO ENTER PP 00052 M00S00045.0bf +++|* RECALL STACK ON WAIT FOR NFL INCREASE. 00053 M00S00046.0bf +++|* *0BF* HAS ALREADY ISSUED *ROCM* FOR 00054 M00S00047.0bf +++|* ROLLABLE JOB WHEN FL INCREASE IS NOT 00055 M00S00048.0bf +++|* AVAILABLE, OR DISPLAYED *WAIT FNT SPACE* 00056 M00S00049.0bf +++|* MESSAGE AT THE CONTROL POINT. THE 00057 M00S00050.0bf +++|* CALLER SHOULD NOW ISSUE *RECM* TO ENTER 00058 M00S00051.0bf +++|* THE PP RECALL STACK. IF THIS OPTION IS 00059 M00S00052.0bf +++|* NOT SELECTED, *0BF* WILL ISSUE *ROCM* OR 00060 M00S00053.0bf +++|* DISPLAY MESSAGE, AND ISSUE THE *RECM* TO 00061 M00S00054.0bf +++|* ENTER THE CALLER PP REQUEST INTO THE 00062 M00S00055.0bf +++|* PP RECALL STACK AND DROP THE PP. 00063 M00S00056.0bf +++|* N IF SET, RETURN TO CALLER ON NFL INCREASE 00064 M00S00057.0bf +++|* IN PROGRESS. *0BF* EXITS WITH STATUS 00065 M00S00058.0bf +++|* FROM *COMPNFL*. IF THIS OPTION IS NOT 00066 M00S00059.0bf +++|* SELECTED, ACTION DEPENDS ON *R* OPTION 00067 M00S00060.0bf +++|* SETTING. 00068 M00S00061.0bf +++|* 00069 M00S00062.0bf +++|* (FS) = 1/0,1/T,1/M,9/EQ 00070 M00S00063.0bf +++|* T IF SET, PREVENT TRACK ASSIGNMENT 00071 M00S00064.0bf +++|* IF FILE TO BE ASSIGNED TO MASS STORAGE. 00072 M00S00065.0bf +++|* M IF SET, FORCE MASS STORAGE ASSIGNMENT 00073 M00S00066.0bf +++|* RATHER THAN TERMINAL EQUIPMENT IF 00074 M00S00067.0bf +++|* *EQ* = 0 SPECIFIED. 00075 M00S00068.0bf +++|* EQ IF NONZERO, ASSIGN FILE TO THIS 00076 M00S00069.0bf +++|* EQUIPMENT (FOR NON-MASS STORAGE 00077 M00S00070.0bf +++|* NON-ALLOCATABLE EQUIPMENT, CALLER MUST 00078 M00S00071.0bf +++|* PREVIOUSLY HAVE COMPLETED *REQM* 00079 M00S00072.0bf +++|* FUNCTION TO REQUEST THIS EQUIPMENT). 00080 M00S00073.0bf +++|* IF *EQ* = 0, *M* = 0, AND 00081 M00S00074.0bf +++|* *T* = 0 FOR A TERMINAL ORIGIN JOB, 00082 M00S00075.0bf +++|* ASSIGN TERMINAL EQUIPMENT FOR SPECIAL 00083 M00S00076.0bf +++|* FILES *INPUT* AND *OUTPUT*. OTHERWISE 00084 M00S00077.0bf +++|* FOR *EQ* = 0, ASSIGN FILE TO THE BEST 00085 M00S00078.0bf +++|* MASS STORAGE EQUIPMENT. NOTE THAT 00086 M00S00079.0bf +++|* IF THE CALLER REQUESTS ASSIGNMENT 00087 M00S00080.0bf +++|* OF THE NULL EQUIPMENT (*EQ* = *NEEQ*), 00088 M00S00081.0bf +++|* THIS PREVENTS MASS STORAGE ASSIGNMENT 00089 M00S00082.0bf +++|* AND THE CALLER CAN LATER OVERRIDE THE 00090 M00S00083.0bf +++|* NULL EQUIPMENT WITH A DIFFERENT 00091 M00S00084.0bf +++|* EQUIPMENT SELECTION (SINCE THE NULL 00092 M00S00085.0bf +++|* EQUIPMENT DOES NOT NEED TO BE RELEASED 00093 M00S00086.0bf +++|* AND THERE ARE NO TRACKS ASSOCIATED WITH 00094 M00S00087.0bf +++|* IT THAT NEED TO BE DROPPED). 00095 M00S00088.0bf +++|* 00096 M00S00089.0bf +++|* (FN - FN+3) = FILE NAME LEFT JUSTIFIED WITH 0 FILL. 00097 M00S00090.0bf +++|* 00098 M00S00091.0bf +++|* (IR - IR+4) = CALLER PP REQUEST. 00099 M00S00092.0bf +++| SPACE 4 00100 M00S00093.0bf +++|*** EXIT CONDITIONS. 00101 M00S00094.0bf +++|* 00102 M00S00095.0bf +++|* 00103 M00S00096.0bf +++|* (A) = 0 IF FILE LOCAL FNT ENTRY CREATED. 00104 M00S00097.0bf +++|* .LT. 0 IF STORAGE FOR NFL INCREASE IS NOT AVAILABLE 00105 M00S00098.0bf +++|* WHEN *N* OPTION IS SELECTED BY CALLER. 00106 M00S00099.0bf +++|* = 1 IF WAITING FOR NFL INCREASE TO COMPLETE 00107 M00S00100.0bf +++|* WHEN *N* OPTION IS SELECTED BY CALLER. 00108 M00S00101.0bf +++|* = 2 IF CALLER IS TO ENTER PP RECALL STACK TO WAIT FOR 00109 M00S00102.0bf +++|* NFL INCREASE WHEN *R* OPTION IS SELECTED BY CALLER. 00110 M00S00103.0bf +++|* = 4 IF LOCAL FILE LIMIT (MAXIMUM NFL) REACHED 00111 M00S00104.0bf +++|* WHEN *L* OPTION IS SELECTED BY CALLER. 00112 M00S00105.0bf +++|* = LARGE POSITIVE NUMBER IF ADVANCE EXIT TAKEN 00113 M00S00106.0bf +++|* FOR FILE ALREADY EXISTS CONDITION. 00114 M00S00107.0bf +++|* 00115 M00S00108.0bf +++|* (FN - FN+4) = FNT ENTRY. 00116 M00S00109.0bf +++|* 00117 M00S00110.0bf +++|* (FS - FS+4) = FST ENTRY. 00118 M00S00111.0bf +++|* 00119 M00S00112.0bf +++|* (FA) = RELATIVE ADDRESS OF LOCAL FNT ENTRY IN NFL. 00120 M00S00113.0bf +++|* 00121 M00S00114.0bf +++|* ADVANCE EXIT IF FILE PREVIOUSLY ASSIGNED. 00122 M00S00115.0bf +++|* FST ENTRY SET BUSY IF NEW ENTRY IS MADE. 00123 M00S00116.0bf +++| SPACE 4 00124 M00S00117.0bf +++|*CALL COMPMAC 00125 M00S00118.0bf +++|*CALL COMSCPS 00126 M00S00119.0bf +++|*CALL COMSLFD 00127 M00S00120.0bf +++|*CALL COMPREL 00128 M00S00121.0bf +++|*CALL COMSZOL 00129 M00S00122.0bf +++| SPACE 4 00130 M00S00123.0bf +++|**** DIRECT LOCATION ASSIGNMENTS. 00131 M00S00124.0bf +++| 00132 M00S00125.0bf +++| 00133 M00S00126.0bf +++| FS EQU 20 - 24 FST ENTRY (5 LOCATIONS) 00134 M00S00127.0bf +++| FN EQU 40 - 44 FILE NAME (5 LOCATIONS) 00135 M00S00128.0bf +++| FA EQU 57 FNT RELATIVE ADDRESS 00136 M00S00129.0bf +++|**** 00137 M00S00130.0bf +++| TITLE MAIN ROUTINE. 00138 M00S00131.0bf +++| 0BF SPACE 4 00139 M00S00132.0bf +++|* BGF - MAIN ROUTINE. 00140 M00S00133.0bf +++| 00141 M00S00134.0bf +++| 00142 M00S00135.0bf +++| ORG 5 00143 M00S00136.0bf +++| BGF SUBR ENTRY/EXIT 00144 M00S00137.0bf +++| LDM -1 SAVE OPTIONS 00145 M00S00138.0bf +++| STI LA 00146 M00S00139.0bf +++| LPN 1
| Line S00140 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00147 M01S00140.ns22000 ---| ZJN BGF1 IF NO RETURN ON NFL INCREASE
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00148 M01S00004.ns22000 +++| ZJN BGF0 IF NO RETURN ON NFL INCREASE 00149 M00S00141.0bf +++| LCN BGF6-BGF5 SET TO RETURN ON NFL INCREASE 00150 M00S00142.0bf +++| RAM BGFA
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00151 M01S00005.ns22000 +++| 00152 M01S00006.ns22000 +++|* GET ACCESS LEVEL FOR FILE. 00153 M01S00007.ns22000 +++| 00154 M01S00008.ns22000 +++| BGF0 LDI LA GET PARAMETER WORD 00155 M01S00009.ns22000 +++| SHN 21-11 00156 M01S00010.ns22000 +++| PJN BGF0.1 IF NO ACCESS LEVEL SPECIFIED 00157 M01S00011.ns22000 +++| SHN 0-6-21+11 EXTRACT ACCESS LEVEL 00158 M01S00012.ns22000 +++| LPN 7 00159 M01S00013.ns22000 +++| UJN BGF0.2 SAVE ACCESS LEVEL 00160 M01S00014.ns22000 +++| 00161 M01S00015.ns22000 +++| BGF0.1 LDD CP GET JOB ACCESS LEVEL 00162 M01S00016.ns22000 +++| ADK JSCW 00163 M01S00017.ns22000 +++| CRD CM 00164 M01S00018.ns22000 +++| LDD CM+1 00165 M01S00019.ns22000 +++| SHN -11 00166 M01S00020.ns22000 +++| BGF0.2 STD T3 SAVE ACCESS LEVEL 00167 M00S00143.0bf +++| 00168 M00S00144.0bf +++|* CREATE LOCAL FNT ENTRY. 00169 M00S00145.0bf +++|
| Line S00146 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00170 M01S00146.ns22000 ---| BGF1 LDD FS SAVE EQUIPMENT NUMBER AND FLAGS
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00171 M01S00021.ns22000 +++| BGF1 LDD FS SAVE EST ORDINAL AND FLAGS 00172 M00S00147.0bf +++| STD T2 00173 M00S00148.0bf +++| LDI LA GET SPECIAL FILE FLAG 00174 M00S00149.0bf +++| LPN 40 00175 M00S00150.0bf +++| LMN CRFS CREATE LOCAL FNT ENTRY SUBFUNCTION 00176 M00S00151.0bf +++| STD CM+1 00177 M00S00152.0bf +++| LDD MA SET FILE NAME 00178 M00S00153.0bf +++| CWD FN 00179 M00S00154.0bf +++| MONITOR PLFM PROCESS LOCAL FNT ENTRY 00180 M00S00155.0bf +++| LDD CM+1 SET FNT ADDRESS 00181 M00S00156.0bf +++| STD FA 00182 M00S00157.0bf +++| LDD CM+4 00183 M00S00158.0bf +++| NJN BGF2 IF FILE NOT CREATED 00184 M00S00159.0bf +++| 00185 M00S00160.0bf +++|* PROCESS NEWLY CREATED FILE. 00186 M00S00161.0bf +++| 00187 M00S00162.0bf +++| LDC LOFT*100 SET FILE TYPE 00188 M00S00163.0bf +++| STD FN+4 00189 M00S00164.0bf +++| LDN ZERL CLEAR FST INFORMATION 00190 M00S00165.0bf +++| CRD FS 00191 M00S00166.0bf +++| LJM SFT SET FILE TYPE 00192 M00S00167.0bf +++| 00193 M00S00168.0bf +++|* IF THE FILE IS FOUND, ADVANCE EXIT FROM ROUTINE. 00194 M00S00169.0bf +++| 00195 M00S00170.0bf +++| BGF2 SHN 21-0 00196 M00S00171.0bf +++| PJN BGF3 IF NOT FILE ALREADY EXISTS STATUS 00197 M00S00172.0bf +++| NFA FA,R GET FNT ENTRY 00198 M00S00173.0bf +++| CRD FN 00199 M00S00174.0bf +++| ADN FSTL GET FST ENTRY 00200 M00S00175.0bf +++| CRD FS 00201 M00S00176.0bf +++| AOM BGF ADVANCE EXIT 00202 M00S00177.0bf +++| UJN BGF5 EXIT 00203 M00S00178.0bf +++| 00204 M00S00179.0bf +++|* PROCESS LOCAL FILE LIMIT (MAXIMUM NFL REACHED). 00205 M00S00180.0bf +++| 00206 M00S00181.0bf +++| BGF3 SHN 21-1-21+0+22 00207 M00S00182.0bf +++| PJN BGF4 IF NOT LOCAL FILE LIMIT 00208 M00S00183.0bf +++| LDI LA 00209 M00S00184.0bf +++| LPN 4 00210 M00S00185.0bf +++| NJN BGF5 IF RETURN REQUESTED 00211 M00S00186.0bf +++| LDN FLET SET LOCAL FILE LIMIT ERROR FLAG 00212 M00S00187.0bf +++| STD CM+1 00213 M00S00188.0bf +++| MONITOR CEFM 00214 M00S00189.0bf +++| MONITOR DPPM DROP PP 00215 M00S00190.0bf +++| LJP PPR EXIT TO PP RESIDENT 00216 M00S00191.0bf +++| 00217 M00S00192.0bf +++|* PROCESS NFL INCREASE. 00218 M00S00193.0bf +++| 00219 M00S00194.0bf +++| BGF4 LDD CP GET CURRENT NFL SIZE 00220 M00S00195.0bf +++| ADN FLSW 00221 M00S00196.0bf +++| CRD CM 00222 M00S00197.0bf +++| AOD CM REQUEST ADDITIONAL 100B WORDS 00223 M00S00198.0bf +++| RJM NFL REQUEST STORAGE INCREASE 00224 M00S00199.0bf +++| BGFA NJN BGF6 IF NFL NOT ASSIGNED 00225 M00S00200.0bf +++|* NJN BGF5 (RETURN ON NFL INCREASE) 00226 M00S00201.0bf +++| LJM BGF1 RETRY CREATE OF FNT ENTRY 00227 M00S00202.0bf +++| 00228 M00S00203.0bf +++| BGF5 LJM BGFX EXIT 00229 M00S00204.0bf +++| 00230 M00S00205.0bf +++| BGF6 PJN BGF7 IF WAITING FOR COMPLETION OF NFL INCREASE 00231 M00S00206.0bf +++| LDD CP 00232 M00S00207.0bf +++| ADN JCIW 00233 M00S00208.0bf +++| CRD CM 00234 M00S00209.0bf +++| LDD CM+3 CHECK FOR *DIS* JOB 00235 M00S00210.0bf +++| LPC 1000 00236 M00S00211.0bf +++| ADD CM+2 CHECK FOR NON-ROLLABLE JOB 00237 M00S00212.0bf +++| NJN BGF7 IF JOB NOT ROLLABLE 00238 M00S00213.0bf +++|* LDN ROSR JOB SCHEDULAR ROLLOUT OPTION 00239 M00S00214.0bf +++| ERRNZ ROSR CODE DEPENDS ON ZERO VALUE 00240 M00S00215.0bf +++| STD CM+1 ROLLOUT THIS CONTROL POINT 00241 M00S00216.0bf +++| MONITOR ROCM 00242 M00S00217.0bf +++| UJN BGF8 CHECK RETURN OPTION 00243 M00S00218.0bf +++| 00244 M00S00219.0bf +++| BGF7 LDD LA 00245 M00S00220.0bf +++| RAM BGFB 00246 M00S00221.0bf +++| LDD CP CONSOLE MESSAGE *WAIT FNT SPACE.* 00247 M00S00222.0bf +++| ADN MS2W 00248 M00S00223.0bf +++| CWM. =C*WAIT FNT SPACE.*,TR 00249 M00S00224.0bf +++| BGFB EQU *-1 00250 M00S00225.0bf +++| BGF8 LDI LA 00251 M00S00226.0bf +++| LPN 2 00252 M00S00227.0bf +++| NJN BGF5 IF RETURN TO ENTER PP RECALL STACK 00253 M00S00228.0bf +++|* UJN EPR ENTER PP RECALL 00254 M00S00229.0bf +++| TITLE SUBROUTINES. 00255 M00S00230.0bf +++| EPR SPACE 4,10 00256 M00S00231.0bf +++|** EPR - ENTER PP RECALL. 00257 M00S00232.0bf +++|* 00258 M00S00233.0bf +++|* ENTRY (IR - IR+4) = RECALL PARAMETERS. 00259 M00S00234.0bf +++|* 00260 M00S00235.0bf +++|* EXIT TO *PPR*. 00261 M00S00236.0bf +++|* 00262 M00S00237.0bf +++|* USES CM - CM+4. 00263 M00S00238.0bf +++|* 00264 M00S00239.0bf +++|* MACROS LJP, MONITOR. 00265 M00S00240.0bf +++| 00266 M00S00241.0bf +++| 00267 M00S00242.0bf +++| EPR LDN ZERL ENTER DEFAULT TIMED RECALL 00268 M00S00243.0bf +++| CRD CM 00269 M00S00244.0bf +++| LDN NFIR NFL INCREASE PENDING REASON CODE 00270 M00S00245.0bf +++| STD CM 00271 M00S00246.0bf +++| LDD MA STORE PP CALL IN MESSAGE BUFFER 00272 M00S00247.0bf +++| CWD IR 00273 M00S00248.0bf +++| ADN 1 00274 M00S00249.0bf +++| CWD CM STORE RECALL STACK REASON CODE 00275 M00S00250.0bf +++| MONITOR RECM 00276 M00S00251.0bf +++| LJP PPR ENTER PP RESIDENT
| Line S00252 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00277 M01S00252.ns22000 ---| SFT SPACE 4,10
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00278 M01S00022.ns22000 +++| SFT SPACE 4,15 00279 M00S00253.0bf +++|** SFT - SET FILE TYPE. 00280 M00S00254.0bf +++|* 00281 M00S00255.0bf +++|* EXIT (T1) = RELOCATION ADDRESS. 00282 M00S00256.0bf +++|* (FN - FN+4) = FNT WORD. 00283 M00S00257.0bf +++|* (FS - FS+4) = FST WORD. 00284 M00S00258.0bf +++|* TO *AMS* IF NOT MS EQUIPMENT. 00285 M00S00259.0bf +++|* TO *PSI* IF MS EQUIPMENT. 00286 M00S00260.0bf +++|* 00287 M00S00261.0bf +++|* USES FN+4, FS, T1, CM - CM+4. 00288 M00S00262.0bf +++|* 00289 M00S00263.0bf +++|* MACROS SFA. 00290 M00S00264.0bf +++| 00291 M00S00265.0bf +++| 00292 M00S00266.0bf +++| SFT LDC TSFN-4 SET SPECIAL FILE ADDRESS 00293 M00S00267.0bf +++| ADD LA 00294 M00S00268.0bf +++| STD T1 00295 M00S00269.0bf +++| SFT1 LDN 4 ADVANCE TABLE 00296 M00S00270.0bf +++| RAD T1 00297 M00S00271.0bf +++| LDI T1 CHECK ENTRY 00298 M00S00272.0bf +++| ZJN SFT2 IF END OF TABLE 00299 M00S00273.0bf +++| LMD FN COMPARE NAMES 00300 M00S00274.0bf +++| NJN SFT1 IF NAMES DO NOT MATCH 00301 M00S00275.0bf +++| LDM. 1,T1 00302 M00S00276.0bf +++| LMD FN+1 00303 M00S00277.0bf +++| NJN SFT1 IF NAMES DO NOT MATCH 00304 M00S00278.0bf +++| LDM. 2,T1 00305 M00S00279.0bf +++| LMD FN+2 00306 M00S00280.0bf +++| NJN SFT1 IF NAMES DO NOT MATCH 00307 M00S00281.0bf +++| LDM. 3,T1 00308 M00S00282.0bf +++| LMD FN+3 00309 M00S00283.0bf +++| SCN 77 00310 M00S00284.0bf +++| NJN SFT1 IF NAMES DO NOT MATCH 00311 M00S00285.0bf +++| SFT2 LDD T2 CHECK EQUIPMENT 00312 M00S00286.0bf +++| LPC 1777 00313 M00S00287.0bf +++| NJN SFT3 IF EQUIPMENT SPECIFIED 00314 M00S00288.0bf +++| LDM. 3,T1 CHECK ASSIGNMENT BYTE 00315 M00S00289.0bf +++| LPN 40 00316 M00S00290.0bf +++| ZJN SFT4 IF NOT TERMINAL ASSOCIATED FILE 00317 M00S00291.0bf +++| LDD CP GET JOB EJT ORDINAL 00318 M00S00292.0bf +++| ADN TFSW 00319 M00S00293.0bf +++| CRD CM 00320 M00S00294.0bf +++| SFA EJT,CM GET JOB EJT ENTRY ADDRESS 00321 M00S00295.0bf +++| ADN SCLE 00322 M00S00296.0bf +++| CRD CM 00323 M00S00297.0bf +++| LDD CM GET JOB ORIGIN TYPE 00324 M00S00298.0bf +++| LPN 17 00325 M00S00299.0bf +++| LMN TXOT 00326 M00S00300.0bf +++| NJN SFT4 IF NOT TERMINAL JOB
| Line S00301 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00327 M01S00301.ns22000 ---| LDN TTEQ TTY EQUIPMENT NUMBER
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00328 M01S00023.ns22000 +++| LDN TTEQ TTY EST ORDINAL 00329 M00S00302.0bf +++| SFT3 LPC 777 00330 M00S00303.0bf +++| ZJN SFT4 IF NO EQUIPMENT SPECIFIED
| Line S00304 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00331 M01S00304.ns22000 ---| STD FS SET EQUIPMENT NUMBER IN *FST*
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00332 M01S00024.ns22000 +++| STD FS SET EST ORDINAL IN FST
| Line S00305 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00333 M01S00305.ns22000 ---| ADM. ESTS READ *EST* ENTRY
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00334 M01S00025.ns22000 +++| SFA EST READ EST ENTRY 00335 M01S00026.ns22000 +++| ADK EQDE 00336 M00S00306.0bf +++| CRD CM 00337 M00S00307.0bf +++| LDD CM CHECK FOR MASS STORAGE EQUIPMENT 00338 M00S00308.0bf +++| SHN 21-13 00339 M00S00309.0bf +++| PJN PSI IF NOT MASS STORAGE 00340 M00S00310.0bf +++| SFT4 LDD T2 CHECK REQUEST 00341 M00S00311.0bf +++| SHN 21-12 00342 M00S00312.0bf +++| MJN PSI IF MS SPACE NOT TO BE ASSIGNED 00343 M00S00313.0bf +++|* UJN AMS ALLOCATE MS SPACE
| Line S00314 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00344 M01S00314.ns22000 ---| AMS SPACE 4,10
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00345 M01S00027.ns22000 +++| AMS SPACE 4,15 00346 M00S00315.0bf +++|** AMS - ALLOCATE MASS STORAGE SPACE. 00347 M00S00316.0bf +++|* 00348 M00S00317.0bf +++|* ENTRY (T1) = RELOCATION ADDRESS.
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00349 M01S00028.ns22000 +++|* (T3) = FILE ACCESS LEVEL.
| Line S00318 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00350 M01S00318.ns22000 ---|* (FS) = EQUIPMENT NUMBER IF SPECIFIED.
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00351 M01S00029.ns22000 +++|* (FS) = EST ORDINAL IF SPECIFIED. 00352 M00S00319.0bf +++|*
| Line S00320 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00353 M01S00320.ns22000 ---|* EXIT (FS) = EQUIPMENT NUMBER.
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00354 M01S00030.ns22000 +++|* EXIT (FS) = EST ORDINAL. 00355 M00S00321.0bf +++|* (FS+1) = FIRST TRACK FOR FILE. 00356 M00S00322.0bf +++|* TO *PSI*. 00357 M00S00323.0bf +++|* 00358 M00S00324.0bf +++|* USES FS, FS+1, CM - CM+4. 00359 M00S00325.0bf +++|* 00360 M00S00326.0bf +++|* MACROS MONITOR. 00361 M00S00327.0bf +++| 00362 M00S00328.0bf +++| 00363 M00S00329.0bf +++| AMS LDN ZERL CLEAR PARAMETERS 00364 M00S00330.0bf +++| CRD CM
| Line S00331 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00365 M01S00331.ns22000 ---| LDD FS SET EQUIPMENT NUMBER IN REQUEST
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00366 M01S00031.ns22000 +++| LDD FS SET EST ORDINAL IN REQUEST 00367 M00S00332.0bf +++| STD CM+1 00368 M00S00333.0bf +++| NJN AMS1 IF EQUIPMENT 00369 M00S00334.0bf +++| LDM. 3,T1 SET MASS STORAGE ASSIGNMENT PARAMETER 00370 M00S00335.0bf +++| LPN 7 00371 M00S00336.0bf +++| STD CM+2
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00372 M01S00032.ns22000 +++| LDD T3 SET ACCESS LEVEL PARAMETER 00373 M01S00033.ns22000 +++| ADN 40 SET ACCESS LEVEL FLAG PARAMETER 00374 M01S00034.ns22000 +++| SHN 6 00375 M01S00035.ns22000 +++| RAD CM+3 00376 M00S00337.0bf +++| AMS1 MONITOR RTCM REQUEST TRACK CHAIN 00377 M00S00338.0bf +++| LDD CM+1 SET EQUIPMENT
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2423 |
Seq # *Modification Id* Act ----------------------------+ 00378 M01S00001.ns2423 +++| LPC 777 EST ORDINAL = 0 IF NO EQUIPMENT ASSIGNED 00379 M00S00339.0bf +++| STD FS 00380 M00S00340.0bf +++| LDD CM+4 SET FIRST TRACK 00381 M00S00341.0bf +++| STD FS+1 00382 M00S00342.0bf +++|* UJN PSI PROCESS SPECIAL FILE STATUS
| Line S00343 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00383 M01S00343.ns22000 ---| PSI SPACE 4,10
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00384 M01S00036.ns22000 +++| PSI SPACE 4,15 00385 M00S00344.0bf +++|** PSI - PROCESS SPECIAL FILE STATUS. 00386 M00S00345.0bf +++|* 00387 M00S00346.0bf +++|* ENTRY (FN - FN+4) = FNT WORD. 00388 M00S00347.0bf +++|* (FS - FS+4) = FST WORD.
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00389 M01S00037.ns22000 +++|* (T3) = ACCESS LEVEL. 00390 M00S00348.0bf +++|*
| Line S00349 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00391 M01S00349.ns22000 ---|* EXIT UPDATED FNT/FST INFORMATION COPIED TO NFL.
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00392 M01S00038.ns22000 +++|* EXIT UPDATED FNT/FST/FUT INFORMATION COPIED TO NFL. 00393 M00S00350.0bf +++|* 00394 M00S00351.0bf +++|* USES CM - CM+4. 00395 M00S00352.0bf +++|* 00396 M00S00353.0bf +++|* MACROS NFA. 00397 M00S00354.0bf +++| 00398 M00S00355.0bf +++| 00399 M00S00356.0bf +++| PSI LDD CP CHECK FOR JOB WITH SSJ= BLOCK 00400 M00S00357.0bf +++| ADC SEPW 00401 M00S00358.0bf +++| CRD CM 00402 M00S00359.0bf +++| LDD CM+3 00403 M00S00360.0bf +++| LPN 37 00404 M00S00361.0bf +++| ADD CM+4 00405 M00S00362.0bf +++| ZJN PSI1 IF NO SSJ= ADDRESS SPECIFIED 00406 M00S00363.0bf +++| LDN SSST SET SPECIAL SYSTEM FILE 00407 M00S00364.0bf +++| UJN PSI2 COMPLETE FNT/FST 00408 M00S00365.0bf +++| 00409 M00S00366.0bf +++| PSI1 LDD CP CHECK FOR USER FILE PRIVACY 00410 M00S00367.0bf +++| ADN JCIW 00411 M00S00368.0bf +++| CRD CM 00412 M00S00369.0bf +++| LDD CM+3 SET USER FILE PRIVACY STATUS 00413 M00S00370.0bf +++| SHN 0-7 00414 M00S00371.0bf +++| LPN 1 00415 M00S00372.0bf +++| ERRNZ UPST-1 ADJUST CODE IF VALUE CHANGES 00416 M00S00373.0bf +++| PSI2 RAD FN+4 00417 M00S00374.0bf +++| NFA FA,R STORE FNT ENTRY 00418 M00S00375.0bf +++| CWD FN 00419 M00S00376.0bf +++| ADN FSTL STORE FST WORD 00420 M00S00377.0bf +++| CWD FS
| Line S00039 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00421 M01S00039.ns22000 +++| ADN FUTL-FSTL GET FUT WORD 00422 M01S00040.ns22000 +++| CRD CM 00423 M01S00041.ns22000 +++| LDD T3 SET ACCESS LEVEL IN FUT 00424 M01S00042.ns22000 +++| RAD CM+2 00425 M01S00043.ns22000 +++| NFA FA,R REPLACE FUT WORD 00426 M01S00044.ns22000 +++| ADN FUTL 00427 M01S00045.ns22000 +++| CWD CM 00428 M00S00378.0bf +++| LDN 0 SET EXIT 00429 M00S00379.0bf +++| LJM BGFX RETURN 00430 M00S00380.0bf +++| TSFN SPACE 4,10 00431 M00S00381.0bf +++|** TSFN - TABLE OF SPECIAL FILE NAMES. 00432 M00S00382.0bf +++|* ENTRY = 5 WORDS. 00433 M00S00383.0bf +++|* 00434 M00S00384.0bf +++|*T 42/ FILE NAME,1/T,2/,3/MS
Figure
00435 M00S00385.0bf +++|* T TERMINAL FILE ASSIGNMENT 00436 M00S00386.0bf +++|* MS RTCM MASS STORAGE ALLOCATION PARAMETER. 00437 M00S00387.0bf +++| 00438 M00S00388.0bf +++| TSFN BSS 0 00439 M00S00389.0bf +++| 00440 M00S00390.0bf +++| VFD 42/0LINPUT,1/1,2/0,3/LOCS 00441 M00S00391.0bf +++| VFD 42/0LOUTPUT,1/1,2/0,3/OUTS 00442 M00S00392.0bf +++| VFD 42/0LPUNCH,3/0,3/OUTS 00443 M00S00393.0bf +++| VFD 42/0LPUNCHB,3/0,3/OUTS 00444 M00S00394.0bf +++| VFD 42/0LP8,3/0,3/OUTS 00445 M00S00395.0bf +++| VFD 42/0LLGO,3/0,3/LGOS 00446 M00S00396.0bf +++| VFD 42/0,3/0,3/LOCS ALL SCRATCH FILES 00447 M00S00397.0bf +++| SPACE 4,10 00448 M00S00398.0bf +++|** EJT MANAGED TABLE PROCESSOR. 00449 M00S00399.0bf +++| 00450 M00S00400.0bf +++| 00451 M00S00401.0bf +++| CEJT 00452 M00S00402.0bf +++| NFI SPACE 4 00453 M00S00403.0bf +++|** COMMON DECK. 00454 M00S00404.0bf +++| 00455 M00S00405.0bf +++| 00456 M00S00406.0bf +++|*CALL COMPNFL 00457 M00S00407.0bf +++| SPACE 4,10 00458 M00S00408.0bf +++| OVERFLOW 5,ZBFL 00459 M00S00409.0bf +++| END
cdc/nos2.source/opl.opl871/deck/0bf.txt · Last modified: (external edit)