cdc:nos2.source:opl.opl871:deck:0bf
Deck 0BF
4 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.0bf +++| IDENT 0BF,BGFX 00002 M01S00002.0bf +++| PERIPH J 00003 M01S00003.0bf +++| BASE MIXED 00004 M01S00004.0bf +++| SST 00005 M01S00005.0bf +++|*COMMENT 0BF - BEGIN FILE.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 0bf |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M02S00006.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1970. 00007 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M01S00007.0bf +++| TITLE 0BF - BEGIN FILE. 00009 M01S00008.0bf +++| SPACE 4 00010 M01S00009.0bf +++|*** 0BF - BEGIN FILE. 00011 M01S00010.0bf +++|* 00012 M01S00011.0bf +++|* G. R. MANSFIELD. 70/09/01. 00013 M01S00012.0bf +++|* J. L. LARSON. 81/10/05. 00014 M01S00013.0bf +++| SPACE 4 00015 M01S00014.0bf +++|*** 0BF IS A LOCATION FREE ROUTINE WHICH ENTERS FILES INTO 00016 M01S00015.0bf +++|* THE LOCAL FNT (IN NFL). IT MAY BE USED BY ANY PP PROGRAM OR 00017 M01S00016.0bf +++|* ROUTINE FOR THIS PURPOSE. IF THE FILE HAS BEEN PREVIOUSLY 00018 M01S00017.0bf +++|* ENTERED INTO THE *FNT*, *0BF* ADVANCES THE EXIT ADDRESS BY 00019 M01S00018.0bf +++|* ONE AND RETURNS WITH THE FILE LEFT NOT BUSY. IF THE FILE HAS 00020 M01S00019.0bf +++|* NOT BEEN PREVIOUSLY ENTERED INTO THE *FNT* IT WILL BE ENTERED 00021 M01S00020.0bf +++|* AND LEFT BUSY UPON RETURN. 00022 M01S00021.0bf +++|* DEPENDING ON OPTIONS SELECTED BY THE CALLER, 00023 M01S00022.0bf +++|* THE FILE WILL BE ASSIGNED TO A SPECIFIED EQUIPMENT, 00024 M01S00023.0bf +++|* TO THE BEST MASS STORAGE EQUIPMENT, OR TO THE 00025 M01S00024.0bf +++|* TERMINAL EQUIPMENT. 00026 M01S00025.0bf +++| SPACE 4 00027 M01S00026.0bf +++|*** OPERATOR MESSAGES. 00028 M01S00027.0bf +++|* 00029 M01S00028.0bf +++|* 00030 M01S00029.0bf +++|* *WAIT FNT SPACE.* = *0BF* IS WAITING FOR ADDITIONAL NFL TO 00031 M01S00030.0bf +++|* BE ASSIGNED SO ANOTHER LOCAL FNT ENTRY CAN BE CREATED. 00032 M01S00031.0bf +++| SPACE 4 00033 M01S00032.0bf +++|*** ENTRY CONDITIONS. 00034 M01S00033.0bf +++|* 00035 M01S00034.0bf +++|*
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | 0bf |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00036 M02S00035.ns22000 ---|* ((LA)-1) = 6/,1/S,2/,1/L,1/R,1/N 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 M01S00036.0bf +++|* S IF SET, CREATE SPECIAL FILE USING
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | 0bf |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00041 M02S00037.v23l617 ---|* RESERVED FNT ENTRY. THIS OPTION IS USED
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | 0bf |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 00042 M02S00038.v23l617 ---|* ONLY BY *1RO* TO BUILD THE DM* FILE. 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 M01S00039.0bf +++|* L IF SET, RETURN TO CALLER ON LOCAL FILE 00047 M01S00040.0bf +++|* LIMIT (MAXIMUM NFL REACHED). IF THIS 00048 M01S00041.0bf +++|* OPTION IS NOT SELECTED, *0BF* WILL SET 00049 M01S00042.0bf +++|* THE *FLET* ERROR FLAG ON THE CONTROL 00050 M01S00043.0bf +++|* POINT AND DROP THE PP. 00051 M01S00044.0bf +++|* R IF SET, RETURN TO CALLER TO ENTER PP 00052 M01S00045.0bf +++|* RECALL STACK ON WAIT FOR NFL INCREASE. 00053 M01S00046.0bf +++|* *0BF* HAS ALREADY ISSUED *ROCM* FOR 00054 M01S00047.0bf +++|* ROLLABLE JOB WHEN FL INCREASE IS NOT 00055 M01S00048.0bf +++|* AVAILABLE, OR DISPLAYED *WAIT FNT SPACE* 00056 M01S00049.0bf +++|* MESSAGE AT THE CONTROL POINT. THE 00057 M01S00050.0bf +++|* CALLER SHOULD NOW ISSUE *RECM* TO ENTER 00058 M01S00051.0bf +++|* THE PP RECALL STACK. IF THIS OPTION IS 00059 M01S00052.0bf +++|* NOT SELECTED, *0BF* WILL ISSUE *ROCM* OR 00060 M01S00053.0bf +++|* DISPLAY MESSAGE, AND ISSUE THE *RECM* TO 00061 M01S00054.0bf +++|* ENTER THE CALLER PP REQUEST INTO THE 00062 M01S00055.0bf +++|* PP RECALL STACK AND DROP THE PP. 00063 M01S00056.0bf +++|* N IF SET, RETURN TO CALLER ON NFL INCREASE 00064 M01S00057.0bf +++|* IN PROGRESS. *0BF* EXITS WITH STATUS 00065 M01S00058.0bf +++|* FROM *COMPNFL*. IF THIS OPTION IS NOT 00066 M01S00059.0bf +++|* SELECTED, ACTION DEPENDS ON *R* OPTION 00067 M01S00060.0bf +++|* SETTING. 00068 M01S00061.0bf +++|* 00069 M01S00062.0bf +++|* (FS) = 1/0,1/T,1/M,9/EQ 00070 M01S00063.0bf +++|* T IF SET, PREVENT TRACK ASSIGNMENT 00071 M01S00064.0bf +++|* IF FILE TO BE ASSIGNED TO MASS STORAGE. 00072 M01S00065.0bf +++|* M IF SET, FORCE MASS STORAGE ASSIGNMENT 00073 M01S00066.0bf +++|* RATHER THAN TERMINAL EQUIPMENT IF 00074 M01S00067.0bf +++|* *EQ* = 0 SPECIFIED. 00075 M01S00068.0bf +++|* EQ IF NONZERO, ASSIGN FILE TO THIS 00076 M01S00069.0bf +++|* EQUIPMENT (FOR NON-MASS STORAGE 00077 M01S00070.0bf +++|* NON-ALLOCATABLE EQUIPMENT, CALLER MUST 00078 M01S00071.0bf +++|* PREVIOUSLY HAVE COMPLETED *REQM* 00079 M01S00072.0bf +++|* FUNCTION TO REQUEST THIS EQUIPMENT). 00080 M01S00073.0bf +++|* IF *EQ* = 0, *M* = 0, AND 00081 M01S00074.0bf +++|* *T* = 0 FOR A TERMINAL ORIGIN JOB, 00082 M01S00075.0bf +++|* ASSIGN TERMINAL EQUIPMENT FOR SPECIAL 00083 M01S00076.0bf +++|* FILES *INPUT* AND *OUTPUT*. OTHERWISE 00084 M01S00077.0bf +++|* FOR *EQ* = 0, ASSIGN FILE TO THE BEST 00085 M01S00078.0bf +++|* MASS STORAGE EQUIPMENT. NOTE THAT 00086 M01S00079.0bf +++|* IF THE CALLER REQUESTS ASSIGNMENT 00087 M01S00080.0bf +++|* OF THE NULL EQUIPMENT (*EQ* = *NEEQ*), 00088 M01S00081.0bf +++|* THIS PREVENTS MASS STORAGE ASSIGNMENT 00089 M01S00082.0bf +++|* AND THE CALLER CAN LATER OVERRIDE THE 00090 M01S00083.0bf +++|* NULL EQUIPMENT WITH A DIFFERENT 00091 M01S00084.0bf +++|* EQUIPMENT SELECTION (SINCE THE NULL 00092 M01S00085.0bf +++|* EQUIPMENT DOES NOT NEED TO BE RELEASED 00093 M01S00086.0bf +++|* AND THERE ARE NO TRACKS ASSOCIATED WITH 00094 M01S00087.0bf +++|* IT THAT NEED TO BE DROPPED). 00095 M01S00088.0bf +++|* 00096 M01S00089.0bf +++|* (FN - FN+3) = FILE NAME LEFT JUSTIFIED WITH 0 FILL. 00097 M01S00090.0bf +++|* 00098 M01S00091.0bf +++|* (IR - IR+4) = CALLER PP REQUEST. 00099 M01S00092.0bf +++| SPACE 4 00100 M01S00093.0bf +++|*** EXIT CONDITIONS. 00101 M01S00094.0bf +++|* 00102 M01S00095.0bf +++|* 00103 M01S00096.0bf +++|* (A) = 0 IF FILE LOCAL FNT ENTRY CREATED. 00104 M01S00097.0bf +++|* .LT. 0 IF STORAGE FOR NFL INCREASE IS NOT AVAILABLE 00105 M01S00098.0bf +++|* WHEN *N* OPTION IS SELECTED BY CALLER. 00106 M01S00099.0bf +++|* = 1 IF WAITING FOR NFL INCREASE TO COMPLETE 00107 M01S00100.0bf +++|* WHEN *N* OPTION IS SELECTED BY CALLER. 00108 M01S00101.0bf +++|* = 2 IF CALLER IS TO ENTER PP RECALL STACK TO WAIT FOR 00109 M01S00102.0bf +++|* NFL INCREASE WHEN *R* OPTION IS SELECTED BY CALLER. 00110 M01S00103.0bf +++|* = 4 IF LOCAL FILE LIMIT (MAXIMUM NFL) REACHED 00111 M01S00104.0bf +++|* WHEN *L* OPTION IS SELECTED BY CALLER. 00112 M01S00105.0bf +++|* = LARGE POSITIVE NUMBER IF ADVANCE EXIT TAKEN 00113 M01S00106.0bf +++|* FOR FILE ALREADY EXISTS CONDITION. 00114 M01S00107.0bf +++|* 00115 M01S00108.0bf +++|* (FN - FN+4) = FNT ENTRY. 00116 M01S00109.0bf +++|* 00117 M01S00110.0bf +++|* (FS - FS+4) = FST ENTRY. 00118 M01S00111.0bf +++|* 00119 M01S00112.0bf +++|* (FA) = RELATIVE ADDRESS OF LOCAL FNT ENTRY IN NFL. 00120 M01S00113.0bf +++|* 00121 M01S00114.0bf +++|* ADVANCE EXIT IF FILE PREVIOUSLY ASSIGNED. 00122 M01S00115.0bf +++|* FST ENTRY SET BUSY IF NEW ENTRY IS MADE. 00123 M01S00116.0bf +++| SPACE 4 00124 M01S00117.0bf +++|*CALL COMPMAC 00125 M01S00118.0bf +++|*CALL COMSCPS 00126 M01S00119.0bf +++|*CALL COMSLFD 00127 M01S00120.0bf +++|*CALL COMPREL 00128 M01S00121.0bf +++|*CALL COMSZOL 00129 M01S00122.0bf +++| SPACE 4 00130 M01S00123.0bf +++|**** DIRECT LOCATION ASSIGNMENTS. 00131 M01S00124.0bf +++| 00132 M01S00125.0bf +++| 00133 M01S00126.0bf +++| FS EQU 20 - 24 FST ENTRY (5 LOCATIONS) 00134 M01S00127.0bf +++| FN EQU 40 - 44 FILE NAME (5 LOCATIONS) 00135 M01S00128.0bf +++| FA EQU 57 FNT RELATIVE ADDRESS 00136 M01S00129.0bf +++|**** 00137 M01S00130.0bf +++| TITLE MAIN ROUTINE. 00138 M01S00131.0bf +++| 0BF SPACE 4 00139 M01S00132.0bf +++|* BGF - MAIN ROUTINE. 00140 M01S00133.0bf +++| 00141 M01S00134.0bf +++| 00142 M01S00135.0bf +++| ORG 5 00143 M01S00136.0bf +++| BGF SUBR ENTRY/EXIT 00144 M01S00137.0bf +++| LDM -1 SAVE OPTIONS 00145 M01S00138.0bf +++| STI LA 00146 M01S00139.0bf +++| LPN 1
| Line S00140 Modification History | |
|---|---|
M01 (Added by) | 0bf |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00147 M02S00140.ns22000 ---| ZJN BGF1 IF NO RETURN ON NFL INCREASE 00148 M01S00004.ns22000 +++| ZJN BGF0 IF NO RETURN ON NFL INCREASE 00149 M01S00141.0bf +++| LCN BGF6-BGF5 SET TO RETURN ON NFL INCREASE 00150 M01S00142.0bf +++| RAM BGFA 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 M01S00143.0bf +++| 00168 M01S00144.0bf +++|* CREATE LOCAL FNT ENTRY. 00169 M01S00145.0bf +++|
| Line S00146 Modification History | |
|---|---|
M01 (Added by) | 0bf |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00170 M02S00146.ns22000 ---| BGF1 LDD FS SAVE EQUIPMENT NUMBER AND FLAGS 00171 M01S00021.ns22000 +++| BGF1 LDD FS SAVE EST ORDINAL AND FLAGS 00172 M01S00147.0bf +++| STD T2 00173 M01S00148.0bf +++| LDI LA GET SPECIAL FILE FLAG 00174 M01S00149.0bf +++| LPN 40 00175 M01S00150.0bf +++| LMN CRFS CREATE LOCAL FNT ENTRY SUBFUNCTION 00176 M01S00151.0bf +++| STD CM+1 00177 M01S00152.0bf +++| LDD MA SET FILE NAME 00178 M01S00153.0bf +++| CWD FN 00179 M01S00154.0bf +++| MONITOR PLFM PROCESS LOCAL FNT ENTRY 00180 M01S00155.0bf +++| LDD CM+1 SET FNT ADDRESS 00181 M01S00156.0bf +++| STD FA 00182 M01S00157.0bf +++| LDD CM+4 00183 M01S00158.0bf +++| NJN BGF2 IF FILE NOT CREATED 00184 M01S00159.0bf +++| 00185 M01S00160.0bf +++|* PROCESS NEWLY CREATED FILE. 00186 M01S00161.0bf +++| 00187 M01S00162.0bf +++| LDC LOFT*100 SET FILE TYPE 00188 M01S00163.0bf +++| STD FN+4 00189 M01S00164.0bf +++| LDN ZERL CLEAR FST INFORMATION 00190 M01S00165.0bf +++| CRD FS 00191 M01S00166.0bf +++| LJM SFT SET FILE TYPE 00192 M01S00167.0bf +++| 00193 M01S00168.0bf +++|* IF THE FILE IS FOUND, ADVANCE EXIT FROM ROUTINE. 00194 M01S00169.0bf +++| 00195 M01S00170.0bf +++| BGF2 SHN 21-0 00196 M01S00171.0bf +++| PJN BGF3 IF NOT FILE ALREADY EXISTS STATUS 00197 M01S00172.0bf +++| NFA FA,R GET FNT ENTRY 00198 M01S00173.0bf +++| CRD FN 00199 M01S00174.0bf +++| ADN FSTL GET FST ENTRY 00200 M01S00175.0bf +++| CRD FS 00201 M01S00176.0bf +++| AOM BGF ADVANCE EXIT 00202 M01S00177.0bf +++| UJN BGF5 EXIT 00203 M01S00178.0bf +++| 00204 M01S00179.0bf +++|* PROCESS LOCAL FILE LIMIT (MAXIMUM NFL REACHED). 00205 M01S00180.0bf +++| 00206 M01S00181.0bf +++| BGF3 SHN 21-1-21+0+22 00207 M01S00182.0bf +++| PJN BGF4 IF NOT LOCAL FILE LIMIT 00208 M01S00183.0bf +++| LDI LA 00209 M01S00184.0bf +++| LPN 4 00210 M01S00185.0bf +++| NJN BGF5 IF RETURN REQUESTED 00211 M01S00186.0bf +++| LDN FLET SET LOCAL FILE LIMIT ERROR FLAG 00212 M01S00187.0bf +++| STD CM+1 00213 M01S00188.0bf +++| MONITOR CEFM 00214 M01S00189.0bf +++| MONITOR DPPM DROP PP 00215 M01S00190.0bf +++| LJP PPR EXIT TO PP RESIDENT 00216 M01S00191.0bf +++| 00217 M01S00192.0bf +++|* PROCESS NFL INCREASE. 00218 M01S00193.0bf +++| 00219 M01S00194.0bf +++| BGF4 LDD CP GET CURRENT NFL SIZE 00220 M01S00195.0bf +++| ADN FLSW 00221 M01S00196.0bf +++| CRD CM 00222 M01S00197.0bf +++| AOD CM REQUEST ADDITIONAL 100B WORDS 00223 M01S00198.0bf +++| RJM NFL REQUEST STORAGE INCREASE 00224 M01S00199.0bf +++| BGFA NJN BGF6 IF NFL NOT ASSIGNED 00225 M01S00200.0bf +++|* NJN BGF5 (RETURN ON NFL INCREASE) 00226 M01S00201.0bf +++| LJM BGF1 RETRY CREATE OF FNT ENTRY 00227 M01S00202.0bf +++| 00228 M01S00203.0bf +++| BGF5 LJM BGFX EXIT 00229 M01S00204.0bf +++| 00230 M01S00205.0bf +++| BGF6 PJN BGF7 IF WAITING FOR COMPLETION OF NFL INCREASE 00231 M01S00206.0bf +++| LDD CP 00232 M01S00207.0bf +++| ADN JCIW 00233 M01S00208.0bf +++| CRD CM 00234 M01S00209.0bf +++| LDD CM+3 CHECK FOR *DIS* JOB 00235 M01S00210.0bf +++| LPC 1000 00236 M01S00211.0bf +++| ADD CM+2 CHECK FOR NON-ROLLABLE JOB 00237 M01S00212.0bf +++| NJN BGF7 IF JOB NOT ROLLABLE 00238 M01S00213.0bf +++|* LDN ROSR JOB SCHEDULAR ROLLOUT OPTION 00239 M01S00214.0bf +++| ERRNZ ROSR CODE DEPENDS ON ZERO VALUE 00240 M01S00215.0bf +++| STD CM+1 ROLLOUT THIS CONTROL POINT 00241 M01S00216.0bf +++| MONITOR ROCM 00242 M01S00217.0bf +++| UJN BGF8 CHECK RETURN OPTION 00243 M01S00218.0bf +++| 00244 M01S00219.0bf +++| BGF7 LDD LA 00245 M01S00220.0bf +++| RAM BGFB 00246 M01S00221.0bf +++| LDD CP CONSOLE MESSAGE *WAIT FNT SPACE.* 00247 M01S00222.0bf +++| ADN MS2W 00248 M01S00223.0bf +++| CWM. =C*WAIT FNT SPACE.*,TR 00249 M01S00224.0bf +++| BGFB EQU *-1 00250 M01S00225.0bf +++| BGF8 LDI LA 00251 M01S00226.0bf +++| LPN 2 00252 M01S00227.0bf +++| NJN BGF5 IF RETURN TO ENTER PP RECALL STACK 00253 M01S00228.0bf +++|* UJN EPR ENTER PP RECALL 00254 M01S00229.0bf +++| TITLE SUBROUTINES. 00255 M01S00230.0bf +++| EPR SPACE 4,10 00256 M01S00231.0bf +++|** EPR - ENTER PP RECALL. 00257 M01S00232.0bf +++|* 00258 M01S00233.0bf +++|* ENTRY (IR - IR+4) = RECALL PARAMETERS. 00259 M01S00234.0bf +++|* 00260 M01S00235.0bf +++|* EXIT TO *PPR*. 00261 M01S00236.0bf +++|* 00262 M01S00237.0bf +++|* USES CM - CM+4. 00263 M01S00238.0bf +++|* 00264 M01S00239.0bf +++|* MACROS LJP, MONITOR. 00265 M01S00240.0bf +++| 00266 M01S00241.0bf +++| 00267 M01S00242.0bf +++| EPR LDN ZERL ENTER DEFAULT TIMED RECALL 00268 M01S00243.0bf +++| CRD CM 00269 M01S00244.0bf +++| LDN NFIR NFL INCREASE PENDING REASON CODE 00270 M01S00245.0bf +++| STD CM 00271 M01S00246.0bf +++| LDD MA STORE PP CALL IN MESSAGE BUFFER 00272 M01S00247.0bf +++| CWD IR 00273 M01S00248.0bf +++| ADN 1 00274 M01S00249.0bf +++| CWD CM STORE RECALL STACK REASON CODE 00275 M01S00250.0bf +++| MONITOR RECM 00276 M01S00251.0bf +++| LJP PPR ENTER PP RESIDENT
| Line S00252 Modification History | |
|---|---|
M01 (Added by) | 0bf |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00277 M02S00252.ns22000 ---| SFT SPACE 4,10 00278 M01S00022.ns22000 +++| SFT SPACE 4,15 00279 M01S00253.0bf +++|** SFT - SET FILE TYPE. 00280 M01S00254.0bf +++|* 00281 M01S00255.0bf +++|* EXIT (T1) = RELOCATION ADDRESS. 00282 M01S00256.0bf +++|* (FN - FN+4) = FNT WORD. 00283 M01S00257.0bf +++|* (FS - FS+4) = FST WORD. 00284 M01S00258.0bf +++|* TO *AMS* IF NOT MS EQUIPMENT. 00285 M01S00259.0bf +++|* TO *PSI* IF MS EQUIPMENT. 00286 M01S00260.0bf +++|* 00287 M01S00261.0bf +++|* USES FN+4, FS, T1, CM - CM+4. 00288 M01S00262.0bf +++|* 00289 M01S00263.0bf +++|* MACROS SFA. 00290 M01S00264.0bf +++| 00291 M01S00265.0bf +++| 00292 M01S00266.0bf +++| SFT LDC TSFN-4 SET SPECIAL FILE ADDRESS 00293 M01S00267.0bf +++| ADD LA 00294 M01S00268.0bf +++| STD T1 00295 M01S00269.0bf +++| SFT1 LDN 4 ADVANCE TABLE 00296 M01S00270.0bf +++| RAD T1 00297 M01S00271.0bf +++| LDI T1 CHECK ENTRY 00298 M01S00272.0bf +++| ZJN SFT2 IF END OF TABLE 00299 M01S00273.0bf +++| LMD FN COMPARE NAMES 00300 M01S00274.0bf +++| NJN SFT1 IF NAMES DO NOT MATCH 00301 M01S00275.0bf +++| LDM. 1,T1 00302 M01S00276.0bf +++| LMD FN+1 00303 M01S00277.0bf +++| NJN SFT1 IF NAMES DO NOT MATCH 00304 M01S00278.0bf +++| LDM. 2,T1 00305 M01S00279.0bf +++| LMD FN+2 00306 M01S00280.0bf +++| NJN SFT1 IF NAMES DO NOT MATCH 00307 M01S00281.0bf +++| LDM. 3,T1 00308 M01S00282.0bf +++| LMD FN+3 00309 M01S00283.0bf +++| SCN 77 00310 M01S00284.0bf +++| NJN SFT1 IF NAMES DO NOT MATCH 00311 M01S00285.0bf +++| SFT2 LDD T2 CHECK EQUIPMENT 00312 M01S00286.0bf +++| LPC 1777 00313 M01S00287.0bf +++| NJN SFT3 IF EQUIPMENT SPECIFIED 00314 M01S00288.0bf +++| LDM. 3,T1 CHECK ASSIGNMENT BYTE 00315 M01S00289.0bf +++| LPN 40 00316 M01S00290.0bf +++| ZJN SFT4 IF NOT TERMINAL ASSOCIATED FILE 00317 M01S00291.0bf +++| LDD CP GET JOB EJT ORDINAL 00318 M01S00292.0bf +++| ADN TFSW 00319 M01S00293.0bf +++| CRD CM 00320 M01S00294.0bf +++| SFA EJT,CM GET JOB EJT ENTRY ADDRESS 00321 M01S00295.0bf +++| ADN SCLE 00322 M01S00296.0bf +++| CRD CM 00323 M01S00297.0bf +++| LDD CM GET JOB ORIGIN TYPE 00324 M01S00298.0bf +++| LPN 17 00325 M01S00299.0bf +++| LMN TXOT 00326 M01S00300.0bf +++| NJN SFT4 IF NOT TERMINAL JOB
| Line S00301 Modification History | |
|---|---|
M01 (Added by) | 0bf |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00327 M02S00301.ns22000 ---| LDN TTEQ TTY EQUIPMENT NUMBER 00328 M01S00023.ns22000 +++| LDN TTEQ TTY EST ORDINAL 00329 M01S00302.0bf +++| SFT3 LPC 777 00330 M01S00303.0bf +++| ZJN SFT4 IF NO EQUIPMENT SPECIFIED
| Line S00304 Modification History | |
|---|---|
M01 (Added by) | 0bf |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00331 M02S00304.ns22000 ---| STD FS SET EQUIPMENT NUMBER IN *FST* 00332 M01S00024.ns22000 +++| STD FS SET EST ORDINAL IN FST
| Line S00305 Modification History | |
|---|---|
M01 (Added by) | 0bf |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00333 M02S00305.ns22000 ---| ADM. ESTS READ *EST* ENTRY 00334 M01S00025.ns22000 +++| SFA EST READ EST ENTRY 00335 M01S00026.ns22000 +++| ADK EQDE 00336 M01S00306.0bf +++| CRD CM 00337 M01S00307.0bf +++| LDD CM CHECK FOR MASS STORAGE EQUIPMENT 00338 M01S00308.0bf +++| SHN 21-13 00339 M01S00309.0bf +++| PJN PSI IF NOT MASS STORAGE 00340 M01S00310.0bf +++| SFT4 LDD T2 CHECK REQUEST 00341 M01S00311.0bf +++| SHN 21-12 00342 M01S00312.0bf +++| MJN PSI IF MS SPACE NOT TO BE ASSIGNED 00343 M01S00313.0bf +++|* UJN AMS ALLOCATE MS SPACE
| Line S00314 Modification History | |
|---|---|
M01 (Added by) | 0bf |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00344 M02S00314.ns22000 ---| AMS SPACE 4,10 00345 M01S00027.ns22000 +++| AMS SPACE 4,15 00346 M01S00315.0bf +++|** AMS - ALLOCATE MASS STORAGE SPACE. 00347 M01S00316.0bf +++|* 00348 M01S00317.0bf +++|* ENTRY (T1) = RELOCATION ADDRESS. 00349 M01S00028.ns22000 +++|* (T3) = FILE ACCESS LEVEL.
| Line S00318 Modification History | |
|---|---|
M01 (Added by) | 0bf |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00350 M02S00318.ns22000 ---|* (FS) = EQUIPMENT NUMBER IF SPECIFIED. 00351 M01S00029.ns22000 +++|* (FS) = EST ORDINAL IF SPECIFIED. 00352 M01S00319.0bf +++|*
| Line S00320 Modification History | |
|---|---|
M01 (Added by) | 0bf |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00353 M02S00320.ns22000 ---|* EXIT (FS) = EQUIPMENT NUMBER. 00354 M01S00030.ns22000 +++|* EXIT (FS) = EST ORDINAL. 00355 M01S00321.0bf +++|* (FS+1) = FIRST TRACK FOR FILE. 00356 M01S00322.0bf +++|* TO *PSI*. 00357 M01S00323.0bf +++|* 00358 M01S00324.0bf +++|* USES FS, FS+1, CM - CM+4. 00359 M01S00325.0bf +++|* 00360 M01S00326.0bf +++|* MACROS MONITOR. 00361 M01S00327.0bf +++| 00362 M01S00328.0bf +++| 00363 M01S00329.0bf +++| AMS LDN ZERL CLEAR PARAMETERS 00364 M01S00330.0bf +++| CRD CM
| Line S00331 Modification History | |
|---|---|
M01 (Added by) | 0bf |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00365 M02S00331.ns22000 ---| LDD FS SET EQUIPMENT NUMBER IN REQUEST 00366 M01S00031.ns22000 +++| LDD FS SET EST ORDINAL IN REQUEST 00367 M01S00332.0bf +++| STD CM+1 00368 M01S00333.0bf +++| NJN AMS1 IF EQUIPMENT 00369 M01S00334.0bf +++| LDM. 3,T1 SET MASS STORAGE ASSIGNMENT PARAMETER 00370 M01S00335.0bf +++| LPN 7 00371 M01S00336.0bf +++| STD CM+2 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 M01S00337.0bf +++| AMS1 MONITOR RTCM REQUEST TRACK CHAIN 00377 M01S00338.0bf +++| LDD CM+1 SET EQUIPMENT 00378 M01S00001.ns2423 +++| LPC 777 EST ORDINAL = 0 IF NO EQUIPMENT ASSIGNED 00379 M01S00339.0bf +++| STD FS 00380 M01S00340.0bf +++| LDD CM+4 SET FIRST TRACK 00381 M01S00341.0bf +++| STD FS+1 00382 M01S00342.0bf +++|* UJN PSI PROCESS SPECIAL FILE STATUS
| Line S00343 Modification History | |
|---|---|
M01 (Added by) | 0bf |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00383 M02S00343.ns22000 ---| PSI SPACE 4,10 00384 M01S00036.ns22000 +++| PSI SPACE 4,15 00385 M01S00344.0bf +++|** PSI - PROCESS SPECIAL FILE STATUS. 00386 M01S00345.0bf +++|* 00387 M01S00346.0bf +++|* ENTRY (FN - FN+4) = FNT WORD. 00388 M01S00347.0bf +++|* (FS - FS+4) = FST WORD. 00389 M01S00037.ns22000 +++|* (T3) = ACCESS LEVEL. 00390 M01S00348.0bf +++|*
| Line S00349 Modification History | |
|---|---|
M01 (Added by) | 0bf |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 00391 M02S00349.ns22000 ---|* EXIT UPDATED FNT/FST INFORMATION COPIED TO NFL. 00392 M01S00038.ns22000 +++|* EXIT UPDATED FNT/FST/FUT INFORMATION COPIED TO NFL. 00393 M01S00350.0bf +++|* 00394 M01S00351.0bf +++|* USES CM - CM+4. 00395 M01S00352.0bf +++|* 00396 M01S00353.0bf +++|* MACROS NFA. 00397 M01S00354.0bf +++| 00398 M01S00355.0bf +++| 00399 M01S00356.0bf +++| PSI LDD CP CHECK FOR JOB WITH SSJ= BLOCK 00400 M01S00357.0bf +++| ADC SEPW 00401 M01S00358.0bf +++| CRD CM 00402 M01S00359.0bf +++| LDD CM+3 00403 M01S00360.0bf +++| LPN 37 00404 M01S00361.0bf +++| ADD CM+4 00405 M01S00362.0bf +++| ZJN PSI1 IF NO SSJ= ADDRESS SPECIFIED 00406 M01S00363.0bf +++| LDN SSST SET SPECIAL SYSTEM FILE 00407 M01S00364.0bf +++| UJN PSI2 COMPLETE FNT/FST 00408 M01S00365.0bf +++| 00409 M01S00366.0bf +++| PSI1 LDD CP CHECK FOR USER FILE PRIVACY 00410 M01S00367.0bf +++| ADN JCIW 00411 M01S00368.0bf +++| CRD CM 00412 M01S00369.0bf +++| LDD CM+3 SET USER FILE PRIVACY STATUS 00413 M01S00370.0bf +++| SHN 0-7 00414 M01S00371.0bf +++| LPN 1 00415 M01S00372.0bf +++| ERRNZ UPST-1 ADJUST CODE IF VALUE CHANGES 00416 M01S00373.0bf +++| PSI2 RAD FN+4 00417 M01S00374.0bf +++| NFA FA,R STORE FNT ENTRY 00418 M01S00375.0bf +++| CWD FN 00419 M01S00376.0bf +++| ADN FSTL STORE FST WORD 00420 M01S00377.0bf +++| CWD FS 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 M01S00378.0bf +++| LDN 0 SET EXIT 00429 M01S00379.0bf +++| LJM BGFX RETURN 00430 M01S00380.0bf +++| TSFN SPACE 4,10 00431 M01S00381.0bf +++|** TSFN - TABLE OF SPECIAL FILE NAMES. 00432 M01S00382.0bf +++|* ENTRY = 5 WORDS. 00433 M01S00383.0bf +++|* 00434 M01S00384.0bf +++|*T 42/ FILE NAME,1/T,2/,3/MS
Figure
00435 M01S00385.0bf +++|* T TERMINAL FILE ASSIGNMENT 00436 M01S00386.0bf +++|* MS RTCM MASS STORAGE ALLOCATION PARAMETER. 00437 M01S00387.0bf +++| 00438 M01S00388.0bf +++| TSFN BSS 0 00439 M01S00389.0bf +++| 00440 M01S00390.0bf +++| VFD 42/0LINPUT,1/1,2/0,3/LOCS 00441 M01S00391.0bf +++| VFD 42/0LOUTPUT,1/1,2/0,3/OUTS 00442 M01S00392.0bf +++| VFD 42/0LPUNCH,3/0,3/OUTS 00443 M01S00393.0bf +++| VFD 42/0LPUNCHB,3/0,3/OUTS 00444 M01S00394.0bf +++| VFD 42/0LP8,3/0,3/OUTS 00445 M01S00395.0bf +++| VFD 42/0LLGO,3/0,3/LGOS 00446 M01S00396.0bf +++| VFD 42/0,3/0,3/LOCS ALL SCRATCH FILES 00447 M01S00397.0bf +++| SPACE 4,10 00448 M01S00398.0bf +++|** EJT MANAGED TABLE PROCESSOR. 00449 M01S00399.0bf +++| 00450 M01S00400.0bf +++| 00451 M01S00401.0bf +++| CEJT 00452 M01S00402.0bf +++| NFI SPACE 4 00453 M01S00403.0bf +++|** COMMON DECK. 00454 M01S00404.0bf +++| 00455 M01S00405.0bf +++| 00456 M01S00406.0bf +++|*CALL COMPNFL 00457 M01S00407.0bf +++| SPACE 4,10 00458 M01S00408.0bf +++| OVERFLOW 5,ZBFL 00459 M01S00409.0bf +++| END
cdc/nos2.source/opl.opl871/deck/0bf.txt · Last modified: by 127.0.0.1