cdc:nos2.source:opl.opl871:deck:files
Deck FILES
5 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.files +++| IDENT FILES,FILES 00002 M01S00002.files +++| ABS 00003 M01S00003.files +++| SST 00004 M01S00004.files +++| SYSCOM B1 00005 M01S00005.files +++| ENTRY BKSP 00006 M01S00001.files2 +++| ENTRY BKSPRU 00007 M01S00006.files +++| ENTRY COMMON 00008 M01S00007.files +++| ENTRY EVICT 00009 M01S00008.files +++| ENTRY LOCK 00010 M01S00009.files +++| ENTRY PRIMARY 00011 M01S00010.files +++| ENTRY RENAME 00012 M01S00011.files +++| ENTRY SKIPEI 00013 M01S00012.files +++| ENTRY SKIPF 00014 M01S00013.files +++| ENTRY SKIPFB 00015 M01S00014.files +++| ENTRY SKIPR 00016 M01S00015.files +++| ENTRY UNLOCK 00017 M01S00016.files +++| ENTRY WRITEF 00018 M01S00017.files +++| ENTRY WRITER 00019 M01S00001.ns2402 +++| ENTRY NPC= 00020 M01S00018.files +++| ENTRY RFL= 00021 M01S00019.files +++|*COMMENT FILES - LOCAL FILE MANIPULATOR.
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00022 M02S00020.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1970. 00023 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00024 M01S00021.files +++| TITLE FILES - LOCAL FILE MANIPULATOR. 00025 M01S00022.files +++| SPACE 4 00026 M01S00023.files +++|*** FILES - LOCAL FILE MANIPULATOR. 00027 M01S00024.files +++|* G. R. MANSFIELD. 70/11/25. 00028 M01S00025.files +++| SPACE 4 00029 M01S00026.files +++|*** FILES PROCESSES LOCAL FILE FUNCTIONS FOR A JOB AS 00030 M01S00027.files +++|* LISTED BELOW. NUMERIC ARGUMENTS, EXCEPT SKIPR EOR LEVEL AND 00031 M01S00028.files +++|* SETID ID CODE, ARE ASSUMED DECIMAL, BUT A TRAILING RADIX OF 00032 M01S00029.files +++|* *D* OR *B* MAY BE USED. 00033 M01S00030.files +++| SPACE 4 00034 M01S00031.files +++|*** DAYFILE MESSAGES. 00035 M01S00032.files +++|* 00036 M01S00033.files +++|* 00037 M01S00034.files +++|* * ERROR IN FILE ARGUMENTS.* = AN ARGUMENT TO A FILE 00038 M01S00035.files +++|* FUNCTON WAS ILLEGAL.
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00039 M02S00036.files1 ---| SPACE 4
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00040 M02S00037.files1 ---|*** OPERATOR MESSAGES.
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00041 M02S00038.files1 ---|*
| Line S00039 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00042 M02S00039.files1 ---|*
| Line S00040 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00043 M02S00040.files1 ---|* NONE. 00044 M01S00041.files +++| SPACE 4 00045 M01S00042.files +++|*CALL COMCCMD 00046 M01S00043.files +++|*CALL COMCMAC 00047 M01S00001.files1 +++|*CALL COMSDSP 00048 M01S00044.files +++|*CALL COMSJIO
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00049 M02S00045.files1 ---| SPACE 4,10
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00050 M02S00046.files1 ---|* *DSP* FLAG BIT EQUIVALENCES.
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00051 M02S00047.files1 ---|
| Line S00048 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00052 M02S00048.files1 ---|
| Line S00049 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00053 M02S00049.files1 ---| FRCS EQU 2 ROUTE TO CENTRAL SITE
| Line S00050 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00054 M02S00050.files1 ---| FRTI EQU 4 TID OR FM/UN
| Line S00051 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00055 M02S00051.files1 ---| FRDC EQU 20B DISPOSITION CODE
| Line S00052 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00056 M02S00052.files1 ---| FREC EQU 200B EXTERNAL CHARACTERISTICS 00057 M01S00002.ns2402 +++| SPACE 4,10 00058 M01S00003.ns2402 +++|* SPECIAL ENTRY POINT. 00059 M01S00004.ns2402 +++| 00060 M01S00005.ns2402 +++| NPC= EQU 0 FORCE OPERATING SYSTEM PARAMETER FORMAT 00061 M01S00053.files +++| TITLE MULTI FILE PROCESSOR. 00062 M01S00054.files +++| FILES SPACE 4 00063 M01S00055.files +++|** FILES - MULTI FILE PROCESSOR. 00064 M01S00056.files +++|* ENTRY (B5) = PROCESSOR ADDRESS. 00065 M01S00057.files +++| 00066 M01S00058.files +++| 00067 M01S00059.files +++| ORG 150B 00068 M01S00060.files +++| FILES SA5 2+B6 SET FILE NAME 00069 M01S00061.files +++| BX6 X5 00070 M01S00062.files +++| SB6 B6+B1 00071 M01S00063.files +++| SA6 F 00072 M01S00064.files +++| JP B5 PROCESS OPERATION 00073 M01S00065.files +++| 00074 M01S00066.files +++| FIL1 NE B6,B7,FILES LOOP FOR ALL FILES 00075 M01S00067.files +++| FIL2 SA1 JOPR CHECK FOR *DIS* CALL 00076 M01S00068.files +++| LX1 59-19 00077 M01S00069.files +++| NG X1,FIL4 IF *DIS* CALL 00078 M01S00070.files +++| CONTROL CCDR,RSS 00079 M01S00071.files +++| SA1 PGNR 00080 M01S00072.files +++| ZR X1,FIL4 IF NO CONTROL CARD 00081 M01S00073.files +++| SA2 FILES-1 FIRST ENTRY NAME 00082 M01S00074.files +++| MX0 42 00083 M01S00075.files +++| BX1 X0*X1 00084 M01S00076.files +++| FIL3 NG X2,FIL4 IF END OF ENTRY NAMES 00085 M01S00077.files +++| BX3 X0*X2 00086 M01S00078.files +++| BX6 X3-X1 00087 M01S00079.files +++| SB2 X2 00088 M01S00080.files +++| SA2 A2-B1 00089 M01S00081.files +++| NZ X6,FIL3 IF NO MATCH 00090 M01S00082.files +++| CONTROL CCDR ADVANCE CONTROL CARD 00091 M01S00083.files +++| SA3 PGNR 00092 M01S00084.files +++| SA1 F+1 CLEAR FET STATUS 00093 M01S00085.files +++| ZR X3,ERR1 IF CONTROL STATEMENT LIMIT 00094 M01S00086.files +++| MX2 -24 00095 M01S00087.files +++| BX6 -X2*X1 00096 M01S00088.files +++| SA6 A1 00097 M01S00089.files +++| JP B2 PROCESS CALL 00098 M01S00090.files +++| FIL4 ENDRUN 00099 M01S00091.files +++| TITLE FUNCTION PROCESSORS. 00100 M01S00092.files +++| ASSIGN SPACE 4 00101 M01S00093.files +++| BKSP SPACE 4 00102 M01S00094.files +++|*** BKSP (F,N,M) 00103 M01S00095.files +++|* BACKSPACE N RECORDS ON FILE F 00104 M01S00096.files +++|* WITH FILE MODE *M*. 00105 M01S00097.files +++| 00106 M01S00098.files +++| 00107 M01S00099.files +++| BKSP SB2 -1 PROCESS F,X,M ARGUMENTS 00108 M01S00100.files +++| RJ ARG 00109 M01S00001.274l797 +++| OPEN F,READNR,R 00110 M01S00101.files +++| SKIPB F,X0,R 00111 M01S00102.files +++| EQ SKF2 RESET FILE MODE 00112 M01S00002.files2 +++| BKSPRU SPACE 4,5 00113 M01S00003.files2 +++|*** BKSPRU (F,N,M) 00114 M01S00004.files2 +++|* 00115 M01S00005.files2 +++|* BACKSPACE N PHYSICAL RECORD UNITS ON FILE *F* 00116 M01S00006.files2 +++|* WITH FILE MODE *M*. 00117 M01S00007.files2 +++| 00118 M01S00008.files2 +++| 00119 M01S00009.files2 +++| BKSPRU SB2 -1 PROCESS F,N,M ARGUMENTS 00120 M01S00010.files2 +++| RJ ARG 00121 M01S00011.files2 +++| OPEN F,READNR,R 00122 M01S00012.files2 +++| BKSPRU F,X0,R 00123 M01S00013.files2 +++| EQ SKF2 RESET FILE MODE 00124 M01S00103.files +++| COMMON SPACE 4 00125 M01S00104.files +++|*** COMMON (F1,F2,...,FN) 00126 M01S00105.files +++|* FOR FILES FN, THE FOLLOWING OPERATION IS PERFORMED. 00127 M01S00106.files +++|* IF FILE FN IS NOT ASSIGNED TO THE JOB, *COMMON* FILE FN 00128 M01S00107.files +++|* IS ASSIGNED TO THE JOB. 00129 M01S00108.files +++|* IF FILE FN IS ALREADY ASSIGNED TO THE JOB, NO ACTION IS 00130 M01S00109.files +++|* TAKEN. 00131 M01S00110.files +++| 00132 M01S00111.files +++| 00133 M01S00112.files +++| COMMON SB2 1 CHECK SINGLE ARGUMENTS 00134 M01S00113.files +++| RJ ARG 00135 M01S00114.files +++| SB5 COM SET COMMON ENTRY 00136 M01S00115.files +++| EQ FILES 00137 M01S00116.files +++| 00138 M01S00117.files +++| COM ASSIGN F 00139 M01S00118.files +++| EQ FIL1
| Line S00119 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files2 |
Seq # *Modification Id* Act ----------------------------+ 00140 M02S00119.files2 ---| LOC 0
| Line S00120 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files2 |
Seq # *Modification Id* Act ----------------------------+ 00141 M02S00120.files2 ---| VFD 12/2HPR,12/,12/2HPR,3/0,3/,18/FRDC
| Line S00121 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files2 |
Seq # *Modification Id* Act ----------------------------+ 00142 M02S00121.files2 ---| VFD 12/2HPH,12/,12/2HPH,3/0,3/,18/FRDC
| Line S00122 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files2 |
Seq # *Modification Id* Act ----------------------------+ 00143 M02S00122.files2 ---| VFD 12/2HPB,12/,12/2HPB,3/0,3/,18/FRDC
| Line S00123 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files2 |
Seq # *Modification Id* Act ----------------------------+ 00144 M02S00123.files2 ---| VFD 12/2HP8,12/,12/2HP8,3/0,3/,18/FRDC
| Line S00124 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files2 |
Seq # *Modification Id* Act ----------------------------+ 00145 M02S00124.files2 ---| VFD 12/2HP9,12/,12/2HPH,3/P9FR,3/,18/FREC+FRDC
| Line S00125 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files2 |
Seq # *Modification Id* Act ----------------------------+ 00146 M02S00125.files2 ---| CON 0 END OF TABLE
| Line S00126 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files2 |
Seq # *Modification Id* Act ----------------------------+ 00147 M02S00126.files2 ---| LOC *O 00148 M01S00127.files +++| EVICT SPACE 4 00149 M01S00128.files +++|*** EVICT(F1,F2,...,FN) 00150 M01S00129.files +++|* EVICT FILES FN. 00151 M01S00130.files +++| 00152 M01S00131.files +++| 00153 M01S00132.files +++| EVICT SB2 1 CHECK SINGLE ARGUMENTS 00154 M01S00133.files +++| RJ ARG 00155 M01S00134.files +++| SB5 EVI SET EVICT ENTRY 00156 M01S00135.files +++| JP FILES 00157 M01S00136.files +++| 00158 M01S00137.files +++| EVI EVICT A6,R 00159 M01S00138.files +++| JP FIL1 PROCESS NEXT FILE 00160 M01S00139.files +++| LOCK SPACE 4 00161 M01S00140.files +++|*** LOCK (F1,F2,...,FN) 00162 M01S00141.files +++|* LOCK FILES FN. 00163 M01S00142.files +++| 00164 M01S00143.files +++| 00165 M01S00144.files +++| LOCK SB2 1 CHECK SINGLE ARGUMENTS 00166 M01S00145.files +++| RJ ARG 00167 M01S00146.files +++| SB5 LCK SET LOCK ENTRY 00168 M01S00147.files +++| EQ FILES 00169 M01S00148.files +++| 00170 M01S00149.files +++| LCK LOCK A6,R 00171 M01S00150.files +++| EQ FIL1 PROCESS NEXT FILE 00172 M01S00151.files +++| PRIMARY SPACE 4,2 00173 M01S00152.files +++|*** PRIMARY (F) 00174 M01S00153.files +++|* MAKE FILE F USER S NEW PRIMARY FILE. 00175 M01S00154.files +++| 00176 M01S00155.files +++| 00177 M01S00156.files +++| PRIMARY SB2 1 CHECK SINGLE ARGUMENT 00178 M01S00157.files +++| RJ ARG 00179 M01S00158.files +++| NE B1,B7,ERR IF MORE THAN 1 ARGUMENT SPECIFIED 00180 M01S00159.files +++| SB5 PRI 00181 M01S00160.files +++| EQ FILES 00182 M01S00161.files +++| 00183 M01S00162.files +++| PRI PRIMARY F 00184 M01S00163.files +++| EQ FIL1 00185 M01S00164.files +++| RENAME SPACE 4 00186 M01S00165.files +++|*** RENAME (N1=F1,N2=F2,...,NI=FI) 00187 M01S00166.files +++|* RENAME FILES FN TO NN. 00188 M01S00167.files +++|* IF FILE NN WAS PREVIOUSLY DEFINED, THAT FILE WILL BE DROPPED 00189 M01S00168.files +++|* FROM THE JOB. 00190 M01S00169.files +++| 00191 M01S00170.files +++| 00192 M01S00171.files +++| RENAME SB2 2 CHECK EQUIVALENCED ARGUMENTS 00193 M01S00172.files +++| RJ ARG 00194 M01S00173.files +++| SB6 B1 BEGIN WITH SECOND NAME 00195 M01S00174.files +++| SB7 B7+B1 00196 M01S00175.files +++| SB5 REN SET RENAME ENTRY 00197 M01S00176.files +++| EQ FILES 00198 M01S00177.files +++| 00199 M01S00178.files +++| REN SA4 A6 SAVE OLD NAME 00200 M01S00179.files +++| SA1 A5-B1 SET NEW NAME 00201 M01S00180.files +++| BX7 X1 00202 M01S00181.files +++| SA7 A6 00203 M01S00182.files +++| SA1 F SET NEW NAME 00204 M01S00183.files +++| BX6 X4 SET OLD NAME 00205 M01S00184.files +++| LX7 X1 00206 M01S00185.files +++| SA6 A1 00207 M01S00186.files +++| SA7 F+6 00208 M01S00187.files +++| RENAME A6,,R 00209 M01S00188.files +++| SB6 B6+B1 00210 M01S00189.files +++| EQ FIL1 PROCESS NEXT FILE 00211 M01S00190.files +++| SKIPEI SPACE 4 00212 M01S00191.files +++|*** SKIPEI (F) 00213 M01S00192.files +++|* SKIP TO END OF INFORMATION ON FILE F (MASS STORAGE ONLY). 00214 M01S00193.files +++| 00215 M01S00194.files +++| 00216 M01S00195.files +++| SKIPEI SB2 B0 PROCESS F,X ARGUMENTS 00217 M01S00196.files +++| RJ ARG 00218 M01S00197.files +++| NZ B7,ERR ERROR IF MORE THAN 1 ARGUMENT 00219 M01S00002.274l797 +++| OPEN F,READNR,R 00220 M01S00198.files +++| SKIPEI F,R 00221 M01S00199.files +++| EQ FIL2 00222 M01S00200.files +++| SKIPF SPACE 4 00223 M01S00201.files +++|*** SKIPF (F,N,M) 00224 M01S00202.files +++|* SKIP N FILES FORWARD ON FILE F. 00225 M01S00203.files +++|* WITH FILE MODE *M*. 00226 M01S00204.files +++| 00227 M01S00205.files +++| 00228 M01S00206.files +++| SKIPF SB2 -1 PROCESS F,X,M ARGUMENTS 00229 M01S00207.files +++| RJ ARG 00230 M01S00003.274l797 +++| OPEN F,READNR,R 00231 M01S00208.files +++| SKF1 SKIPFF F,X0,R 00232 M01S00209.files +++| SKF2 SA1 F RESET FILE MODE 00233 M01S00210.files +++| SX4 3 00234 M01S00211.files +++| MX0 42 00235 M01S00212.files +++| BX6 X0*X1 00236 M01S00213.files +++| BX6 X6+X4 00237 M01S00214.files +++| SA6 A1 00238 M01S00215.files +++| EQ FIL2 00239 M01S00216.files +++| SKIPFB SPACE 4 00240 M01S00217.files +++|*** SKIPFB (F,N,M) 00241 M01S00218.files +++|* SKIP N FILES BACKWARD ON FILE F. 00242 M01S00219.files +++|* WITH FILE MODE *M*. 00243 M01S00220.files +++| 00244 M01S00221.files +++| 00245 M01S00222.files +++| SKIPFB SB2 -1 PROCESS F,X,M ARGUMENTS 00246 M01S00223.files +++| RJ ARG 00247 M01S00004.274l797 +++| OPEN F,READNR,R 00248 M01S00224.files +++| SKB1 SKIPFB F,X0,R 00249 M01S00225.files +++| EQ SKF2 00250 M01S00226.files +++| SKIPR SPACE 4 00251 M01S00227.files +++|*** SKIPR (F,N,L,M) 00252 M01S00228.files +++|* SKIP N RECORDS FORWARD ON FILE F. 00253 M01S00229.files +++|* WITH EOR LEVEL *L*, ASSUMED OCTAL, AND/OR FILE MODE *M*. 00254 M01S00230.files +++| 00255 M01S00231.files +++|
| Line S00232 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00256 M02S00232.files1 ---| SKIPR SB2 -1 PROCESS F,X,L,M ARGUMENTS 00257 M01S00002.files1 +++| SKIPR SB2 -2 PROCESS F,X,L,M ARGUMENTS 00258 M01S00233.files +++| RJ ARG 00259 M01S00005.274l797 +++| BX4 X7 SAVE LEVEL NUMBER 00260 M01S00006.274l797 +++| OPEN F,READNR,R 00261 M01S00007.274l797 +++| BX7 X4 RESTORE LEVEL NUMBER 00262 M01S00234.files +++| SKR1 SX2 F 00263 M01S00235.files +++| LX0 18 00264 M01S00236.files +++| BX2 X2+X0 00265 M01S00237.files +++| LX7 14 00266 M01S00238.files +++| SX6 240B 00267 M01S00239.files +++| BX7 X7+X6 00268 M01S00240.files +++| MX6 60 00269 M01S00241.files +++| BX7 X7-X6 00270 M01S00242.files +++| RJ =XCIO= 00271 M01S00243.files +++| EQ SKF2 00272 M01S00244.files +++| UNLOCK SPACE 4 00273 M01S00245.files +++|*** UNLOCK (F1,F2,...,FN) 00274 M01S00246.files +++|* UNLOCK FILES FN. 00275 M01S00247.files +++| 00276 M01S00248.files +++| 00277 M01S00249.files +++| UNLOCK SB2 1 CHECK SINGLE ARGUMENTS 00278 M01S00250.files +++| RJ ARG 00279 M01S00251.files +++| SB5 ULK SET LOCK ENTRY 00280 M01S00252.files +++| EQ FILES 00281 M01S00253.files +++| 00282 M01S00254.files +++| ULK UNLOCK A6,R 00283 M01S00255.files +++| EQ FIL1 PROCESS NEXT FILE 00284 M01S00256.files +++| WRITEF SPACE 4 00285 M01S00257.files +++|*** WRITEF(F,N) 00286 M01S00258.files +++|* WRITE N FILE MARKS ON FILE F. 00287 M01S00259.files +++| 00288 M01S00260.files +++| 00289 M01S00261.files +++| WRITEF SB2 B0 PROCESS F,X ARGUMENTS 00290 M01S00262.files +++| RJ ARG 00291 M01S00263.files +++| WRF1 WRITEF F,R 00292 M01S00264.files +++| SX0 X0-1 00293 M01S00265.files +++| NZ X0,WRF1 LOOP FOR ALL FILES 00294 M01S00266.files +++| EQ FIL2 00295 M01S00267.files +++| WRITER SPACE 4 00296 M01S00268.files +++|*** WRITER (F,N) 00297 M01S00269.files +++|* WRITE N EMPTY RECORDS ON FILE F. 00298 M01S00270.files +++| 00299 M01S00271.files +++| 00300 M01S00272.files +++| WRITER SB2 B0 PROCESS F,X ARGUMENTS 00301 M01S00273.files +++| RJ ARG 00302 M01S00274.files +++| WRR1 WRITER F,R 00303 M01S00275.files +++| SX0 X0-1 00304 M01S00276.files +++| NZ X0,WRR1 LOOP FOR ALL RECORDS 00305 M01S00277.files +++| EQ FIL2 00306 M01S00278.files +++| TITLE SUBROUTINES. 00307 M01S00279.files +++| AMO SPACE 4 00308 M01S00280.files +++| ARG SPACE 4 00309 M01S00281.files +++|** ARG - PROCESS ARGUMENTS. 00310 M01S00282.files +++|*
| Line S00283 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00311 M02S00283.files1 ---|* ENTRY (B2) = -1 IF F,X,L,M FORM
| Line S00284 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00312 M02S00284.files1 ---|* (B2) = 0 IF F,X FORM
| Line S00285 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00313 M02S00285.files1 ---|* (B2) = 1 IF SINGLE VALUE ARGUMENT
| Line S00286 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00314 M02S00286.files1 ---|* (B2) = 2 IF EQUIVALENCED ARGUMENT 00315 M01S00003.files1 +++|* ENTRY (B2) = -2 IF F,X,L,M FORM. 00316 M01S00004.files1 +++|* (B2) = -1 IF F,X,M FORM. 00317 M01S00005.files1 +++|* (B2) = 0 IF F,X FORM. 00318 M01S00006.files1 +++|* (B2) = 1 IF SINGLE VALUE ARGUMENT. 00319 M01S00007.files1 +++|* (B2) = 2 IF EQUIVALENCED ARGUMENT. 00320 M01S00287.files +++|*
| Line S00288 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00321 M02S00288.files1 ---|* EXIT (B1) = 1
| Line S00289 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00322 M02S00289.files1 ---|* (B6) = 0
| Line S00290 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00323 M02S00290.files1 ---|* (B7) = ARGUMENT COUNT 00324 M01S00008.files1 +++|* EXIT (B1) = 1. 00325 M01S00009.files1 +++|* (B6) = 0. 00326 M01S00010.files1 +++|* (B7) = ARGUMENT COUNT. 00327 M01S00011.files1 +++|* (X0) = COUNT OF FILES OR RECORDS. 00328 M01S00012.files1 +++|* (X7) = LEVEL NUMBER. 00329 M01S00013.files1 +++|* 00330 M01S00014.files1 +++|* CALLS DXB. 00331 M01S00291.files +++| 00332 M01S00292.files +++| 00333 M01S00293.files +++| ARG PS 0 ENTRY/EXIT 00334 M01S00294.files +++| SB1 1 (B1) = CONSTANT 1 00335 M01S00295.files +++| SA1 ACTR CHECK ARGUMENT COUNT 00336 M01S00296.files +++| SB3 X1
| Line S00297 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00337 M02S00297.files1 ---| ZR B3,ERR 00338 M01S00015.files1 +++| ZR B3,ERR IF NO ARGUMENTS 00339 M01S00298.files +++| SB7 X1 00340 M01S00299.files +++| MX0 42
| Line S00300 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00341 M02S00300.files1 ---| SA5 B1+B1 FIRST ARGUMENT 00342 M01S00016.files1 +++| SA5 ARGR GET FIRST ARGUMENT 00343 M01S00301.files +++| SB6 B0
| Line S00302 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00344 M02S00302.files1 ---| SX2 B1
| Line S00303 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00345 M02S00303.files1 ---| SB4 3
| Line S00304 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00346 M02S00304.files1 ---| SB5 B1 PRESET SPECIAL FORM INDICATOR
| Line S00305 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00347 M02S00305.files1 ---| SX6 B0
| Line S00306 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00348 M02S00306.files1 ---| GE B2,ARG0 IF NOT F,X,L,M FORM
| Line S00307 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00349 M02S00307.files1 ---| SX6 B1
| Line S00308 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00350 M02S00308.files1 ---| EQ ARG3
| Line S00309 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00351 M02S00309.files1 ---| ARG0 NZ B2,ARG1 IF NOT F,X FORM
| Line S00310 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00352 M02S00310.files1 ---|
| Line S00311 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00353 M02S00311.files1 ---|* PROCESS F,X ARGUMENT FORM.
| Line S00312 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00354 M02S00312.files1 ---|
| Line S00313 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00355 M02S00313.files1 ---| ARG3 SX7 X5-1R=
| Line S00314 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00356 M02S00314.files1 ---| ZR X7,ERR ERROR IF EQUIVALENCE FORM 00357 M01S00017.files1 +++| SX2 1 00358 M01S00018.files1 +++| SX6 B2+ 00359 M01S00019.files1 +++| ZR B2,ARG1 IF F,X FORM 00360 M01S00020.files1 +++| PL B2,ARG8 IF SINGLE VALUE OR EQUIVALENCED ARGUMENT 00361 M01S00021.files1 +++| 00362 M01S00022.files1 +++|* PROCESS F,X OR F,X,M OR F,X,L,M ARGUMENT FORM. 00363 M01S00023.files1 +++| 00364 M01S00024.files1 +++| ARG1 SA6 ARGA SAVE ARGUMENT FORM 00365 M01S00025.files1 +++| SX7 X5-1R= 00366 M01S00026.files1 +++| ZR X7,ERR IF EQUIVALENCED ARGUMENT 00367 M01S00315.files +++| SX2 3 STORE FILE NAME 00368 M01S00316.files +++| BX7 X5+X2 00369 M01S00317.files +++| SX0 B1 PRESET COUNT = 1
| Line S00318 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00370 M02S00318.files1 ---| SB7 B7-B1
| Line S00319 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00371 M02S00319.files1 ---| SA7 F 00372 M01S00027.files1 +++| SA7 F SET FILE NAME IN FET 00373 M01S00028.files1 +++| SB7 B7-B1 00374 M01S00320.files +++| BX7 X7-X7 SET LEVEL TO ZERO 00375 M01S00321.files +++| ZR B7,ARG RETURN IF 1 ARGUMENT
| Line S00322 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00376 M02S00322.files1 ---| ZR X6,ARG3.5 IF NOT F,X,L,M FORM
| Line S00323 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00377 M02S00323.files1 ---| SA6 ARGA
| Line S00324 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00378 M02S00324.files1 ---| EQ ARG3.6
| Line S00325 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00379 M02S00325.files1 ---| ARG3.5 NE B7,B1,ERR IF MORE THAN 2 ARGUMENTS
| Line S00326 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00380 M02S00326.files1 ---| ARG3.6 SA5 A5+B1 CONVERT COUNT 00381 M01S00029.files1 +++| NZ B2,ARG2 IF NOT F,X FORM 00382 M01S00030.files1 +++| NE B7,B1,ERR IF MORE THAN 2 ARGUMENTS 00383 M01S00031.files1 +++| ARG2 SA5 A5+B1 GET SECOND ARGUMENT 00384 M01S00327.files +++| MX0 42 CHECK FOR DEFAULT COUNT 00385 M01S00328.files +++| SX6 B1 SET DEFAULT COUNT OF 1 00386 M01S00329.files +++| BX2 X0*X5
| Line S00330 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00387 M02S00330.files1 ---| ZR X2,ARG3.61 IF COUNT NOT SPECIFIED
| Line S00331 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00388 M02S00331.files1 ---| SB7 B1 ASSUME DECIMAL BASE 00389 M01S00032.files1 +++| ZR X2,ARG3 IF COUNT NOT SPECIFIED 00390 M01S00033.files1 +++| SB7 1 ASSUME DECIMAL BASE 00391 M01S00332.files +++| RJ DXB
| Line S00333 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00392 M02S00333.files1 ---| NZ X4,ERR
| Line S00334 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00393 M02S00334.files1 ---| ZR X6,ERR ERROR IF ZERO
| Line S00335 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00394 M02S00335.files1 ---| ARG3.61 BX0 X6 SET COUNT 00395 M01S00034.files1 +++| NZ X4,ERR IF CONVERSION ERROR 00396 M01S00035.files1 +++| ZR X6,ERR IF ZERO COUNT 00397 M01S00036.files1 +++| ARG3 BX0 X6 SET COUNT 00398 M01S00336.files +++| SA6 ARGB 00399 M01S00337.files +++| BX7 X7-X7 SET LEVEL TO ZERO 00400 M01S00338.files +++| MX2 42 00401 M01S00339.files +++| BX3 X2*X6 00402 M01S00340.files +++| NZ X3,ERR IF TOO LARGE
| Line S00341 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00403 M02S00341.files1 ---| SA1 ARGA CHECK IF F,X,L,M FORM
| Line S00342 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00404 M02S00342.files1 ---| ZR X1,ARG IF NOT 00405 M01S00037.files1 +++| SA3 ARGA 00406 M01S00038.files1 +++| ZR X3,ARG IF F,X FORM 00407 M01S00343.files +++| SA1 ACTR
| Line S00344 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00408 M02S00344.files1 ---| SX2 X1-5 00409 M01S00039.files1 +++| SX3 X3+1 00410 M01S00040.files1 +++| NG X3,ARG4 IF F,X,L,M FORM 00411 M01S00041.files1 +++| SX2 X1-4 00412 M01S00042.files1 +++| PL X2,ERR IF MORE THAN 3 ARGUMENTS 00413 M01S00043.files1 +++| EQ ARG5 CONTINUE TO PROCESS 00414 M01S00044.files1 +++| 00415 M01S00045.files1 +++| ARG4 SX2 X1-5 00416 M01S00345.files +++| PL X2,ERR IF MORE THAN 4 ARGUMENTS
| Line S00346 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00417 M02S00346.files1 ---| SX2 X1-2 00418 M01S00046.files1 +++| ARG5 SX2 X1-2 00419 M01S00347.files +++| ZR X2,ARG IF ONLY 2 ARGUMENTS
| Line S00348 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00420 M02S00348.files1 ---| SA5 4 GET THIRD ARGUMENT
| Line S00349 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00421 M02S00349.files1 ---| SB7 B0 SET OCTAL MODE 00422 M01S00047.files1 +++| SA5 A5+B1 GET THIRD ARGUMENT 00423 M01S00048.files1 +++| SB7 B0 SET OCTAL MODE 00424 M01S00350.files +++| RJ DXB 00425 M01S00351.files +++| SA2 ARGB RESET COUNT
| Line S00352 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00426 M02S00352.files1 ---| SX0 X2
| Line S00353 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00427 M02S00353.files1 ---| NZ X4,ARG3.65 IF CONVERSION ERROR 00428 M01S00049.files1 +++| SX0 X2+ 00429 M01S00050.files1 +++| NZ X4,ARG6 IF CONVERSION ERROR 00430 M01S00354.files +++| MX4 -4 00431 M01S00355.files +++| BX7 -X4*X6 00432 M01S00356.files +++| SA1 ACTR 00433 M01S00357.files +++| SX1 X1-4 00434 M01S00358.files +++| NG X1,ARG IF ONLY THREE ARGUMENTS
| Line S00359 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00435 M02S00359.files1 ---| SA5 5 GET FOURTH ARGUMENT
| Line S00360 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00436 M02S00360.files1 ---| ARG3.65 SA5 A5 00437 M01S00051.files1 +++| SA5 A5+1 GET FOURTH ARGUMENT 00438 M01S00052.files1 +++| ARG6 SA5 A5+ 00439 M01S00361.files +++| SX4 1LC 00440 M01S00362.files +++| LX4 42 00441 M01S00363.files +++| IX4 X5-X4
| Line S00364 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00442 M02S00364.files1 ---| ZR X4,ARG3.7 IF CODED
| Line S00365 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00443 M02S00365.files1 ---| SX4 B1 BINARY
| Line S00366 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00444 M02S00366.files1 ---| ARG3.7 LX4 1 SET MODE BIT IN FET 00445 M01S00053.files1 +++| ZR X4,ARG7 IF CODED 00446 M01S00054.files1 +++| SX4 1LB 00447 M01S00055.files1 +++| LX4 42 00448 M01S00056.files1 +++| IX4 X5-X4 00449 M01S00057.files1 +++| NZ X4,ERR IF NOT BINARY 00450 M01S00058.files1 +++| SX4 B1+ BINARY 00451 M01S00059.files1 +++| ARG7 LX4 1 SET MODE BIT IN FET 00452 M01S00367.files +++| SA1 F 00453 M01S00368.files +++| SX2 B1+B1 00454 M01S00369.files +++| BX6 -X2*X1 00455 M01S00370.files +++| BX6 X6+X4 00456 M01S00371.files +++| SA6 A1+ 00457 M01S00372.files +++| EQ ARG 00458 M01S00373.files +++| 00459 M01S00374.files +++|* PROCESS MULTI FILE FORM. 00460 M01S00375.files +++|
| Line S00376 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00461 M02S00376.files1 ---| ARG1 EQ B2,B1,ARG2 IF SINGLE ARGUMENT REQUESTED 00462 M01S00060.files1 +++| ARG8 EQ B2,B1,ARG9 IF SINGLE ARGUMENT REQUESTED 00463 M01S00377.files +++| SX7 X5-1R= 00464 M01S00378.files +++| NZ X7,ERR ERROR IF NO EQUIVALENCE 00465 M01S00379.files +++| BX6 X0*X5 00466 M01S00380.files +++| IX7 X6+X2 ADD COMPLETE BIT 00467 M01S00381.files +++| ZR X6,ERR ERROR IF BLANK NAME
| Line S00382 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00468 M02S00382.files1 ---| SA7 A5
| Line S00383 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00469 M02S00383.files1 ---| SB3 B3-B1 NEXT ARGUMENT 00470 M01S00061.files1 +++| SA7 A5+ 00471 M01S00062.files1 +++| SB3 B3-1 NEXT ARGUMENT 00472 M01S00384.files +++| SA5 A5+B1 00473 M01S00385.files +++| BX5 X0*X5
| Line S00386 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00474 M02S00386.files1 ---| ARG2 ZR X5,ERR ERROR IF BLANK NAME 00475 M01S00063.files1 +++| ARG9 ZR X5,ERR IF BLANK NAME 00476 M01S00387.files +++| BX7 X5+X2 ADD COMPLETE BIT 00477 M01S00388.files +++| SA7 A5 00478 M01S00389.files +++| SB3 B3-B1 DECREMENT ARGUMENT COUNT 00479 M01S00390.files +++| SA5 A5+B1 NEXT ARGUMENT
| Line S00391 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | files1 |
Seq # *Modification Id* Act ----------------------------+ 00480 M02S00391.files1 ---| NZ B3,ARG1 LOOP FOR ALL ARGUMENTS 00481 M01S00064.files1 +++| NZ B3,ARG8 IF MORE ARGUMENTS TO PROCESS 00482 M01S00392.files +++| EQ ARG RETURN 00483 M01S00393.files +++| 00484 M01S00394.files +++| 00485 M01S00395.files +++| ARGA CON 0 FORM OF ARGUMENTS FLAG 00486 M01S00396.files +++| ARGB CON 0 COUNT HOLD 00487 M01S00397.files +++| ERR SPACE 4 00488 M01S00398.files +++|** ERR - PROCESS ARGUMENT ERROR. 00489 M01S00399.files +++| 00490 M01S00400.files +++| 00491 M01S00401.files +++| ERR BSS 0 00492 M01S00402.files +++| MESSAGE (=C* ERROR IN FILE ARGUMENTS.*) 00493 M01S00403.files +++| ERR1 ABORT 00494 M01S00404.files +++| FET SPACE 4 00495 M01S00008.274l797 +++| ODEBL EQU 20B OPTICAL DISK EXTENSION BUFFER LENGTH 00496 M01S00405.files +++| F BSS 0
| Line S00406 Modification History | |
|---|---|
M01 (Added by) | files |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00497 M02S00406.274l797 ---| FILE FILEB BUF,BUFL,(FET=8) 00498 M01S00009.274l797 +++|FILE FILEB BUF,BUFL,(FET=10) 00499 M01S00010.274l797 +++| ORG F+11B 00500 M01S00011.274l797 +++| VFD 36/,6/ODEBL,18/FODEB POINTER TO *OD* EXT. BUFFER 00501 M01S00012.274l797 +++| ORG F+10 00502 M01S00013.274l797 +++| 00503 M01S00014.274l797 +++|* OPTICAL DISK EXTENSION BUFFER. 00504 M01S00015.274l797 +++| 00505 M01S00016.274l797 +++| FODEB BSSZ ODEBL 00506 M01S00407.files +++| 00507 M01S00408.files +++| BUF BSS 0 00508 M01S00409.files +++| BUFL EQU 1 00509 M01S00410.files +++| SPACE 4 00510 M01S00411.files +++|*CALL COMCCIO 00511 M01S00412.files +++|*CALL COMCDXB 00512 M01S00413.files +++|*CALL COMCLFM 00513 M01S00414.files +++|*CALL COMCSYS 00514 M01S00415.files +++| USE // 00515 M01S00416.files +++| RFL= BSS 0 00516 M01S00417.files +++| SPACE 4 00517 M01S00418.files +++| END
cdc/nos2.source/opl.opl871/deck/files.txt · Last modified: by 127.0.0.1