cdc:nos2.source:opl.opl871:deck:mfiles.001
Deck MFILES Part 001
11 Modifications
Listing Sections
- Deck MFILES Start
- Deck MFILES Part 1 (Line 1220)
Source
Seq # *Modification Id* Act ----------------------------+ 01220 M01S00756.mfiles +++| SA3 SVB4 RESTORE (B4) 01221 M01S00757.mfiles +++| SB4 X3 01222 M01S00758.mfiles +++| SA3 A3-B1 RESTORE (B3) 01223 M01S00759.mfiles +++| SB3 X3 01224 M01S00760.mfiles +++| SA3 A3-B1 RESTORE (B2) 01225 M01S00761.mfiles +++| SB2 X3
| Line S00762 Modification History | |
|---|---|
M01 (Added by) | mfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01226 M02S00762.ns22000 ---| SA3 A3-1 READ A3
| Line S00763 Modification History | |
|---|---|
M01 (Added by) | mfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01227 M02S00763.ns22000 ---| SA3 X3 RESTORE (A3) AND (X3) 01228 M01S00233.ns22000 +++| SA3 A3-B1 READ A3 01229 M01S00234.ns22000 +++| SA3 X3+ RESTORE (A3) AND (X3) 01230 M01S00764.mfiles +++| EQ RSRX RETURN 01231 M01S00765.mfiles +++| SVR SPACE 4,15 01232 M01S00766.mfiles +++|** SVR - SAVE RESERVED REGISTERS. 01233 M01S00767.mfiles +++|*
| Line S00768 Modification History | |
|---|---|
M01 (Added by) | mfiles |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01234 M02S00768.274l797 ---|* SAVES RESERVED REGISTERS A3, X3, B2, AND B4. 01235 M01S00161.274l797 +++|* SAVES RESERVED REGISTERS A3, X3, B2, B3, AND B4. 01236 M01S00769.mfiles +++|* THESE REGISTERS MAY LATER BE RESTORED BY 01237 M01S00770.mfiles +++|* EXECUTING *RSR*. NOTE THAT X3 IS NOT SAVED 01238 M01S00771.mfiles +++|* DIRECTLY, BUT IS AUTOMATICALLY RELOADED WHEN 01239 M01S00772.mfiles +++|* A3 IS RESTORED. 01240 M01S00773.mfiles +++|* 01241 M01S00774.mfiles +++|* EXIT (SVA3) = (A3). 01242 M01S00775.mfiles +++|* (SVB2) = (B2). 01243 M01S00776.mfiles +++|* (SVB4) = (B4). 01244 M01S00777.mfiles +++|* (SVB3) = (B3). 01245 M01S00778.mfiles +++|* 01246 M01S00779.mfiles +++|* USES X - 6. 01247 M01S00780.mfiles +++|* A - 6. 01248 M01S00781.mfiles +++| 01249 M01S00782.mfiles +++| 01250 M01S00783.mfiles +++| SVR SUBR ENTRY/EXIT 01251 M01S00784.mfiles +++| SX6 A3 SAVE (A3) 01252 M01S00785.mfiles +++| SA6 SVA3 01253 M01S00786.mfiles +++| SX6 B2 SAVE (B2) 01254 M01S00787.mfiles +++| SA6 A6+B1 01255 M01S00788.mfiles +++| SX6 B3+ SAVE (B3) 01256 M01S00789.mfiles +++| SA6 A6+B1
| Line S00790 Modification History | |
|---|---|
M01 (Added by) | mfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01257 M02S00790.ns22000 ---| SX6 B4+ SAVE (B4) 01258 M01S00235.ns22000 +++| SX6 B4 SAVE (B4) 01259 M01S00791.mfiles +++| SA6 A6+B1 01260 M01S00792.mfiles +++| EQ SVRX RETURN 01261 M01S00793.mfiles +++| SPACE 4,10 01262 M01S00794.mfiles +++|* COMMON DECKS. 01263 M01S00795.mfiles +++| 01264 M01S00796.mfiles +++| 01265 M01S00797.mfiles +++|*CALL COMCCDD 01266 M01S00798.mfiles +++|*CALL COMCCIO 01267 M01S00799.mfiles +++|*CALL COMCCPM 01268 M01S00800.mfiles +++|*CALL COMCLFM 01269 M01S00801.mfiles +++|*CALL COMCSNM 01270 M01S00802.mfiles +++|*CALL COMCSYS 01271 M01S00803.mfiles +++| BUFFERS SPACE 4,10 01272 M01S00804.mfiles +++|** BUFFER ASSIGNMENTS. 01273 M01S00805.mfiles +++| 01274 M01S00806.mfiles +++| 01275 M01S00807.mfiles +++| USE BUFFERS 01276 M01S00808.mfiles +++| 01277 M01S00809.mfiles +++| PSBF EQU * PSEUDO BUFFER FOR FETS 01278 M01S00810.mfiles +++| FNTB EQU PSBF+PSBFL BUFFER FOR *GETFNT* 01279 M01S00811.mfiles +++| RFL= EQU FNTB+FNTBL 01280 M01S00002.ns2402 +++| NPC= EQU 0 FORCE OPERATING SYSTEM PARAMETER FORMAT 01281 M01S00812.mfiles +++| SSM= EQU 0 DECLARE *SSM=* ENTRY POINT 01282 M01S00813.mfiles +++| 01283 M01S00814.mfiles +++| ERRNG JTFL*100B-RFL= IF OVERFLOW MAXIMUM JOB TERMINATION FL 01284 M01S00815.mfiles +++| MFILES TITLE OVERLAID PRESET. 01285 M01S00816.mfiles +++| PRS SPACE 4,30 01286 M01S00817.mfiles +++|** PRS - PRESET. 01287 M01S00818.mfiles +++|* 01288 M01S00819.mfiles +++|* *PRS* DETERMINES THE FORMAT OF THE CALLING CONTROL
| Line S00820 Modification History | |
|---|---|
M01 (Added by) | mfiles |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01289 M02S00820.v23l617 ---|* STATEMENT, SETS THE ADDRESS OF THE FIRST ARGUMENT 01290 M01S00030.v23l617 +++|* COMMAND, SETS THE ADDRESS OF THE FIRST ARGUMENT 01291 M01S00821.mfiles +++|* TO PROCESS AND CHECKS FOR THE PRESENCE OF NONZERO 01292 M01S00822.mfiles +++|* SEPARATORS (= OR /). 01293 M01S00823.mfiles +++|*
| Line S00824 Modification History | |
|---|---|
M01 (Added by) | mfiles |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01294 M02S00824.v23l617 ---|* ENTRY (B2) = CONTROL STATEMENT CONTROL WORD ADDRESS. 01295 M01S00031.v23l617 +++|* ENTRY (B2) = COMMAND WORD ADDRESS. 01296 M01S00825.mfiles +++|*
| Line S00826 Modification History | |
|---|---|
M01 (Added by) | mfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01297 M02S00826.ns22000 ---|* EXIT (X0) = 42 BIT FILE NAME MASK.
| Line S00827 Modification History | |
|---|---|
M01 (Added by) | mfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01298 M02S00827.ns22000 ---|* (X3) = FIRST ARGUMENT. 01299 M01S00236.ns22000 +++|* EXIT (X3) = FIRST ARGUMENT. 01300 M01S00828.mfiles +++|* (A3) = ADDRESS OF FIRST ARGUMENT TO PROCESS.
| Line S00829 Modification History | |
|---|---|
M01 (Added by) | mfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01301 M02S00829.ns22000 ---|* (B4) = CONTROL STATEMENT FORMAT CODE.
| Line S00237 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01302 M02S00237.v23l617 ---|* (FRMT) = CONTROL STATEMENT FORMAT CODE. 01303 M01S00032.v23l617 +++|* (FRMT) = COMMAND FORMAT CODE. 01304 M01S00830.mfiles +++|* TO *ABT* IF ARGUMENT ERROR. 01305 M01S00831.mfiles +++|* 01306 M01S00832.mfiles +++|* USES X - 0, 1, 2, 3, 4, 5, 6. 01307 M01S00833.mfiles +++|* A - 1, 3, 4, 6.
| Line S00834 Modification History | |
|---|---|
M01 (Added by) | mfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01308 M02S00834.ns22000 ---|* B - 3, 4, 5, 6, 7. 01309 M01S00238.ns22000 +++|* B - 1, 3, 4, 5, 6. 01310 M01S00835.mfiles +++|* 01311 M01S00836.mfiles +++|* CALLS MOL, POL. 01312 M01S00837.mfiles +++|* 01313 M01S00838.mfiles +++|* ERROR TO *ABT*.
| Line S00839 Modification History | |
|---|---|
M01 (Added by) | mfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01314 M02S00839.ns22000 ---|*
| Line S00840 Modification History | |
|---|---|
M01 (Added by) | mfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01315 M02S00840.ns22000 ---|* MACROS GETJCI, GETLC. 01316 M01S00841.mfiles +++| 01317 M01S00842.mfiles +++| 01318 M01S00843.mfiles +++| PRS SUBR ENTRY/EXIT 01319 M01S00844.mfiles +++| SB1 1 SET CONSTANT B1=1 01320 M01S00845.mfiles +++| RJ MOL MOVE */* OPTION LIST 01321 M01S00846.mfiles +++| SX2 =C* ERROR IN ARGUMENTS.* 01322 M01S00847.mfiles +++| SB4 B0 INITIALIZE FORMAT CODE TO 0 01323 M01S00239.ns22000 +++| ERRNZ FMT0 ADJUST IF VALUE CHANGES 01324 M01S00848.mfiles +++| MX0 42 01325 M01S00849.mfiles +++| SA3 ARGR GET FIRST ARGUMENT 01326 M01S00850.mfiles +++| SA4 ACTR GET ARGUMENT COUNT 01327 M01S00851.mfiles +++| SB3 X4+ 01328 M01S00852.mfiles +++| ZR B3,PRS1 IF NO ARGUMENTS - FORMAT 0
| Line S00853 Modification History | |
|---|---|
M01 (Added by) | mfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01329 M02S00853.ns22000 ---| SB4 3 01330 M01S00240.ns22000 +++| SB4 FMT3 01331 M01S00854.mfiles +++| SA4 PRSA GET SPECIAL ARGUMENT VALUE (*) 01332 M01S00855.mfiles +++| BX4 X3-X4 01333 M01S00856.mfiles +++| NZ X4,PRS1 IF ARGUMENT NOT * - FORMAT 3 01334 M01S00857.mfiles +++| SA3 A3+B1 01335 M01S00858.mfiles +++| SB3 B3-B1 ADJUST ARGUMENT COUNT FOR * 01336 M01S00859.mfiles +++| SB4 B1 01337 M01S00241.ns22000 +++| ERRNZ FMT1-1 ADJUST IF VALUE CHANGES 01338 M01S00860.mfiles +++| ZR B3,PRS1 IF ONLY * - FORMAT 1 01339 M01S00861.mfiles +++| SB4 B4+B1 SET FORMAT CODE TO 2 01340 M01S00242.ns22000 +++| ERRNZ FMT2-FMT1-1 ADJUST IF VALUE CHANGES 01341 M01S00862.mfiles +++|
| Line S00863 Modification History | |
|---|---|
M01 (Added by) | mfiles |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01342 M02S00863.v23l617 ---|* CHECK CONTROL STATEMENT FORMAT VALIDITY. 01343 M01S00033.v23l617 +++|* CHECK COMMAND FORMAT VALIDITY. 01344 M01S00864.mfiles +++| 01345 M01S00865.mfiles +++| PRS1 SA1 B2 GET CONTROL WORD 01346 M01S00866.mfiles +++| LX4 X1,B4
| Line S00867 Modification History | |
|---|---|
M01 (Added by) | mfiles |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01347 M02S00867.v23l617 ---| PL X4,ABT IF INVALID CONTROL STATEMENT FORMAT 01348 M01S00034.v23l617 +++| PL X4,ABT IF INCORRECT COMMAND FORMAT 01349 M01S00868.mfiles +++| 01350 M01S00869.mfiles +++|* CHECK SEPARATORS OF ARGUMENTS. 01351 M01S00870.mfiles +++| 01352 M01S00871.mfiles +++| SA1 A3 GET FIRST ARGUMENT 01353 M01S00872.mfiles +++| SB5 B0
| Line S00873 Modification History | |
|---|---|
M01 (Added by) | mfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01354 M02S00873.ns22000 ---| SB6 B4-3 01355 M01S00243.ns22000 +++| SX6 B4+ SAVE FORMAT CODE 01356 M01S00244.ns22000 +++| SA6 FRMT 01357 M01S00245.ns22000 +++| SB6 B4-FMT3 01358 M01S00874.mfiles +++| NZ B6,PRS2 IF NOT FORMAT 3 01359 M01S00875.mfiles +++| MX6 6 01360 M01S00876.mfiles +++| BX4 X6*X1 01361 M01S00877.mfiles +++| SX5 1R* 01362 M01S00878.mfiles +++| LX4 6 01363 M01S00879.mfiles +++| BX4 X4-X5 01364 M01S00880.mfiles +++| ZR X4,ABT IF FIRST CHARACTER OF FILENAME IS * 01365 M01S00881.mfiles +++| PRS2 EQ B5,B3,PRS3 IF END OF ARGUMENTS 01366 M01S00882.mfiles +++| BX4 -X0*X1 01367 M01S00883.mfiles +++| ZR X1,ABT IF BLANK ARGUMENT 01368 M01S00884.mfiles +++| NZ X4,ABT IF SEPARATOR IS = OR / 01369 M01S00885.mfiles +++| SA1 A1+B1 01370 M01S00886.mfiles +++| SB5 B5+B1 01371 M01S00887.mfiles +++| EQ PRS2 CHECK NEXT ARGUMENT 01372 M01S00888.mfiles +++| 01373 M01S00889.mfiles +++| PRS3 NZ X1,ABT IF NOT ZERO LAST WORD 01374 M01S00890.mfiles +++| RJ POL PROCESS */* OPTION LIST 01375 M01S00891.mfiles +++| EQ PRSX RETURN 01376 M01S00892.mfiles +++| 01377 M01S00893.mfiles +++| PRSA DATA 0L* SPECIAL ARGUMENT 01378 M01S00894.mfiles +++| MFILES TITLE OVERLAID PRESET SUBROUTINES. 01379 M01S00895.mfiles +++| MOL SPACE 4,20 01380 M01S00896.mfiles +++|** MOL - MOVE */* OPTION LIST. 01381 M01S00897.mfiles +++|* 01382 M01S00898.mfiles +++|* MOVES THE OPTION LIST DELIMITED BY THE */* SEPARATOR 01383 M01S00899.mfiles +++|* TO A SEPARATE OPTION LIST AND CLEARS IT FROM THE
| Line S00900 Modification History | |
|---|---|
M01 (Added by) | mfiles |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01384 M02S00900.v23l617 ---|* ORIGINAL CONTROL CARD PARAMETER LIST. THE PARAMETER
| Line S00901 Modification History | |
|---|---|
M01 (Added by) | mfiles |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01385 M02S00901.v23l617 ---|* COUNT OF THE REMAINING CONTROL CARD PARAMETER LIST 01386 M01S00035.v23l617 +++|* ORIGINAL COMMAND PARAMETER LIST. THE PARAMETER 01387 M01S00036.v23l617 +++|* COUNT OF THE REMAINING COMMAND PARAMETER LIST 01388 M01S00902.mfiles +++|* IS ADJUSTED TO REFLECT THE NEW PARAMETER COUNT. 01389 M01S00903.mfiles +++|*
| Line S00904 Modification History | |
|---|---|
M01 (Added by) | mfiles |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01390 M02S00904.v23l617 ---|* ENTRY (B2) = CONTROL STATEMENT CONTROL WORD ADDRESS. 01391 M01S00037.v23l617 +++|* ENTRY (B2) = COMMAND WORD ADDRESS. 01392 M01S00905.mfiles +++|* 01393 M01S00906.mfiles +++|* EXIT (CSOC) = COUNT OF */* OPTION LIST PARAMETERS. 01394 M01S00907.mfiles +++|* (TOPS) = */* OPTION LIST. 01395 M01S00908.mfiles +++|* (ACTR) = ADJUSTED PARAMETER COUNT. 01396 M01S00909.mfiles +++|* 01397 M01S00910.mfiles +++|* ERROR TO *ABT* IF NO FILE STATUS SPECIFIED ON *SETFS*. 01398 M01S00911.mfiles +++|* 01399 M01S00912.mfiles +++|* USES X - 0, 1, 2, 6, 7. 01400 M01S00913.mfiles +++|* A - 1, 6, 7.
| Line S00914 Modification History | |
|---|---|
M01 (Added by) | mfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01401 M02S00914.ns22000 ---|* B - 4, 6, 7. 01402 M01S00246.ns22000 +++|* B - 4, 5, 6, 7. 01403 M01S00915.mfiles +++| 01404 M01S00916.mfiles +++| 01405 M01S00917.mfiles +++| MOL SUBR ENTRY/EXIT 01406 M01S00918.mfiles +++| SA1 ACTR GET ARGUMENT COUNT 01407 M01S00919.mfiles +++| SB6 B0 CLEAR INDEX 01408 M01S00920.mfiles +++| MX0 42 SET PARAMETER MASK 01409 M01S00921.mfiles +++| SB7 X1+ (B7) = ARGUMENT COUNT 01410 M01S00922.mfiles +++| ZR B7,MOLX IF NO ARGUMENTS, RETURN 01411 M01S00923.mfiles +++| 01412 M01S00924.mfiles +++|* SEARCH FOR */* DELIMITER IN PARAMETER LIST. 01413 M01S00925.mfiles +++| 01414 M01S00926.mfiles +++| MOL1 SA1 ARGR+B6 READ ARGUMENT 01415 M01S00927.mfiles +++| SB6 B6+B1 COUNT ARGUMENT 01416 M01S00928.mfiles +++| BX6 -X0*X1 CHECK SEPARATOR 01417 M01S00929.mfiles +++| SX6 X6-1R/ 01418 M01S00930.mfiles +++| ZR X6,MOL2 IF */* 01419 M01S00931.mfiles +++| NE B6,B7,MOL1 IF NOT END OF PARAMETER LIST 01420 M01S00932.mfiles +++| SX2 =C* FILE STATUS NOT SPECIFIED.* 01421 M01S00933.mfiles +++| SB5 B2-SFCC 01422 M01S00934.mfiles +++| ZR B5,ABT IF *SETFS* COMMAND 01423 M01S00935.mfiles +++| EQ MOLX RETURN 01424 M01S00936.mfiles +++| 01425 M01S00937.mfiles +++|* ADJUST PARAMETER COUNT. 01426 M01S00938.mfiles +++| 01427 M01S00939.mfiles +++| MOL2 BX7 X0*X1 CLEAR */* FROM PARAMETER 01428 M01S00940.mfiles +++| SA7 A1 01429 M01S00941.mfiles +++| SA1 ACTR READ PARAMETER COUNT WORD 01430 M01S00942.mfiles +++| SX6 B6 SET NEW PARAMETER COUNT 01431 M01S00943.mfiles +++| BX1 X0*X1 01432 M01S00944.mfiles +++| NZ X7,MOL3 IF NOT NOW A NULL LAST PARAMETER 01433 M01S00945.mfiles +++| SX6 X6-1 DECREMENT PARAMETER COUNT 01434 M01S00946.mfiles +++| MOL3 BX6 X1+X6 STORE NEW PARAMETER COUNT 01435 M01S00947.mfiles +++| SA6 A1+ 01436 M01S00948.mfiles +++| SX7 B7-B6 SET OPTION LIST ARGUMENT COUNT 01437 M01S00949.mfiles +++| SA7 CSOC 01438 M01S00950.mfiles +++| SX7 B0 CLEAR (X7) 01439 M01S00951.mfiles +++| SB4 B0 CLEAR INDEX 01440 M01S00952.mfiles +++| 01441 M01S00953.mfiles +++|* MOVE OPTIONS TO SEPARATE LIST. 01442 M01S00954.mfiles +++| 01443 M01S00955.mfiles +++| MOL4 SA1 ARGR+B6 READ OPTION FROM PARAMETER LIST 01444 M01S00956.mfiles +++| SB6 B6+B1 COUNT OPTION 01445 M01S00957.mfiles +++| BX6 X1 01446 M01S00958.mfiles +++| SA6 TOPS+B4 STORE OPTION IN OPTION LIST 01447 M01S00959.mfiles +++| SA7 A1 CLEAR OPTION FROM PARAMETER LIST 01448 M01S00960.mfiles +++| SB4 B4+B1 01449 M01S00961.mfiles +++| NE B6,B7,MOL4 IF NOT END OF LIST 01450 M01S00962.mfiles +++| EQ MOLX RETURN 01451 M01S00162.274l797 +++| CAP SPACE 4,25 01452 M01S00163.274l797 +++|** CAP - *CLEAR* ARGUMENT PROCESSOR. 01453 M01S00164.274l797 +++|* 01454 M01S00165.274l797 +++|* PROCESSES THE OPTIONAL ARGUMENTS FOR THE *CLEAR*, 01455 M01S00166.274l797 +++|* *RETURN* AND *UNLOAD* COMMANDS. *OP=O* ALLOWED 01456 M01S00167.274l797 +++|* ONLY ON FORMAT 0 OR 1 FOR THESE COMMANDS. 01457 M01S00168.274l797 +++|* 01458 M01S00169.274l797 +++|* ENTRY (OPARG) = *OP=* ARGUMENT. 01459 M01S00170.274l797 +++|* (B4) = FORMAT MODE. 01460 M01S00171.274l797 +++|* 01461 M01S00172.274l797 +++|* EXIT (OPOF) = NON-ZERO IF PROCESSING ONLY OPTICAL DISK 01462 M01S00173.274l797 +++|* FILES AND THE *ZZZZZOD* FILE (*O* OPTION). 01463 M01S00174.274l797 +++|* 01464 M01S00175.274l797 +++|* ERROR TO *ABT* IF INCORRECT ARGUMENT OR FORMAT. 01465 M01S00176.274l797 +++|* 01466 M01S00177.274l797 +++|* USES X - 1, 2, 6. 01467 M01S00178.274l797 +++|* A - 1, 6. 01468 M01S00179.274l797 +++| 01469 M01S00180.274l797 +++| 01470 M01S00181.274l797 +++| CAP SUBR ENTRY/EXIT 01471 M01S00182.274l797 +++| SX2 =C+ INCORRECT */* OPTION.+ PRESET ERROR MESSAGE 01472 M01S00183.274l797 +++| SA1 OPARG READ ARGUMENT 01473 M01S00184.274l797 +++| SX6 1RO CLEAR, RETURN OR UNLOAD W/OP=O. 01474 M01S00185.274l797 +++| LX1 6 01475 M01S00186.274l797 +++| BX1 X6-X1 01476 M01S00187.274l797 +++| NZ X1,ABT IF NOT *O* OPTION 01477 M01S00188.274l797 +++| 01478 M01S00189.274l797 +++|* PROCESS *O* OPTION. 01479 M01S00190.274l797 +++| 01480 M01S00191.274l797 +++| GT B4,B1,ABT IF NOT FORMAT 0 OR 1. 01481 M01S00192.274l797 +++| SA6 OPOF 01482 M01S00193.274l797 +++| EQ CAPX RETURN 01483 M01S00963.mfiles +++| OAP SPACE 4,25 01484 M01S00964.mfiles +++|** OAP - *OUT* ARGUMENT PROCESSOR. 01485 M01S00965.mfiles +++|* 01486 M01S00966.mfiles +++|* PROCESSES THE OPTIONAL ARGUMENTS FOR THE *OUT* 01487 M01S00967.mfiles +++|* COMMAND. 01488 M01S00968.mfiles +++|* 01489 M01S00969.mfiles +++|* ENTRY (OPARG) = *OP=* ARGUMENT. 01490 M01S00970.mfiles +++|* 01491 M01S00971.mfiles +++|* EXIT (EOJS) = END-OF-JOB STATUS IF PROCESSING 01492 M01S00972.mfiles +++|* *E* OPTION.
| Line S00973 Modification History | |
|---|---|
M01 (Added by) | mfiles |
M02 (Updated by) | ns2010 |
Seq # *Modification Id* Act ----------------------------+ 01493 M02S00973.ns2010 ---|* (TDSP) = BIT 59 OF WORD TDSP+1 SET IF PROCESSING
| Line S00974 Modification History | |
|---|---|
M01 (Added by) | mfiles |
M02 (Updated by) | ns2010 |
Seq # *Modification Id* Act ----------------------------+ 01494 M02S00974.ns2010 ---|* *Q* OPTION. 01495 M01S00975.mfiles +++|*
| Line S00976 Modification History | |
|---|---|
M01 (Added by) | mfiles |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01496 M02S00976.v23l617 ---|* ERROR TO *ABT* IF INVALID ARGUMENT. 01497 M01S00038.v23l617 +++|* ERROR TO *ABT* IF INCORRECT ARGUMENT. 01498 M01S00977.mfiles +++|* 01499 M01S00978.mfiles +++|* USES X - 1, 2, 4, 6. 01500 M01S00979.mfiles +++|* A - 1, 4, 6. 01501 M01S00980.mfiles +++|* 01502 M01S00981.mfiles +++|* MACROS GETEOJS. 01503 M01S00982.mfiles +++| 01504 M01S00983.mfiles +++| 01505 M01S00984.mfiles +++| OAP SUBR ENTRY/EXIT
| Line S00985 Modification History | |
|---|---|
M01 (Added by) | mfiles |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01506 M02S00985.v23l617 ---| SX2 =C+ INVALID */* OPTION.+ PRESET ERROR MESSAGE 01507 M01S00039.v23l617 +++| SX2 =C+ INCORRECT */* OPTION.+ PRESET ERROR MESSAGE 01508 M01S00986.mfiles +++| ZR B4,ABT IF FORMAT CODE = 0 01509 M01S00987.mfiles +++| SA1 OPARG READ ARGUMENT 01510 M01S00988.mfiles +++| SX6 1RE 01511 M01S00989.mfiles +++| LX1 6 01512 M01S00990.mfiles +++| BX6 X6-X1 01513 M01S00991.mfiles +++| NZ X6,ABT IF NOT *E* OPTION 01514 M01S00992.mfiles +++| 01515 M01S00993.mfiles +++|* CHECK FOR JOB TERMINATION IN PROGRESS. 01516 M01S00994.mfiles +++| 01517 M01S00995.mfiles +++| GETEOJS OAPA READ END-OF-JOB STATUS 01518 M01S00996.mfiles +++| SA4 OAPA READ REPLY WORD
| Line S00997 Modification History | |
|---|---|
M01 (Added by) | mfiles |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01519 M02S00997.v23l617 ---| SX2 =C+ INVALID */* OPTION.+ 01520 M01S00040.v23l617 +++| SX2 =C+ INCORRECT */* OPTION.+
| Line S00998 Modification History | |
|---|---|
M01 (Added by) | mfiles |
M02 (Updated by) | ns2635 |
Seq # *Modification Id* Act ----------------------------+ 01521 M02S00998.ns2635 ---| SX6 X4-40B CHECK FOR TERMINATION IN PROGRESS 01522 M01S00001.ns2635 +++| SX6 X4-100B CHECK FOR TERMINATION IN PROGRESS 01523 M01S00999.mfiles +++| NG X6,ABT IF TERMINATION NOT IN PROGRESS 01524 M01S00006.ns2010 +++| MX2 -3 MASK FOR TERMINATION DISPOSITION 01525 M01S00007.ns2010 +++| BX2 -X2*X4 01526 M01S00008.ns2010 +++| SX6 X2-NOJT 01527 M01S00009.ns2010 +++| SA6 NOJF SET *NOJT* TERMINATION OPTION 01528 M01S01000.mfiles +++| 01529 M01S01001.mfiles +++|* PROCESS *E* OPTION. 01530 M01S01002.mfiles +++| 01531 M01S01003.mfiles +++| SX6 X4+ SET END-OF-JOB PROCESSING STATUS 01532 M01S01004.mfiles +++| SA6 EOJS 01533 M01S01005.mfiles +++| EQ OAPX RETURN 01534 M01S01006.mfiles +++| 01535 M01S01007.mfiles +++| OAPA CON 0 *GETEOJS* REPLY WORD 01536 M01S01008.mfiles +++| SAP SPACE 4,15 01537 M01S01009.mfiles +++|** SAP - *SETFS* ARGUMENT PROCESSOR. 01538 M01S01010.mfiles +++|* 01539 M01S01011.mfiles +++|* PROCESSES THE ARGUMENTS FOR THE *SETFS* COMMAND. 01540 M01S01012.mfiles +++|* 01541 M01S01013.mfiles +++|* ENTRY (FLST) = SPECIFIED FILE STATUS (DISPLAY CODE). 01542 M01S01014.mfiles +++|* 01543 M01S01015.mfiles +++|* EXIT (FLST) = FILE STATUS (BINARY). 01544 M01S01016.mfiles +++|*
| Line S01017 Modification History | |
|---|---|
M01 (Added by) | mfiles |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01545 M02S01017.v23l617 ---|* ERROR TO *ABT* IF INVALID ARGUMENT. 01546 M01S00041.v23l617 +++|* ERROR TO *ABT* IF INCORRECT ARGUMENT. 01547 M01S01018.mfiles +++|* 01548 M01S01019.mfiles +++|* USES X - 0, 1, 2, 4, 6. 01549 M01S01020.mfiles +++|* A - 1, 4, 6. 01550 M01S01021.mfiles +++| 01551 M01S01022.mfiles +++| 01552 M01S01023.mfiles +++| SAP SUBR ENTRY/EXIT 01553 M01S01024.mfiles +++| SA1 FLST
| Line S01025 Modification History | |
|---|---|
M01 (Added by) | mfiles |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01554 M02S01025.v23l617 ---| SX2 =C* INVALID FILE STATUS.* 01555 M01S00042.v23l617 +++| SX2 =C* INCORRECT FILE STATUS.* 01556 M01S01026.mfiles +++| MX0 42 01557 M01S01027.mfiles +++| SA4 SAPA 01558 M01S01028.mfiles +++| SAP1 BX6 X0*X4 CHECK TABLE FOR MATCH 01559 M01S01029.mfiles +++| BX6 X1-X6 01560 M01S01030.mfiles +++| ZR X6,SAP2 IF SPECIFIED FILE STATUS FOUND 01561 M01S01031.mfiles +++| SA4 A4+B1 01562 M01S01032.mfiles +++| NZ X4,SAP1 IF NOT END OF TABLE
| Line S01033 Modification History | |
|---|---|
M01 (Added by) | mfiles |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01563 M02S01033.v23l617 ---| EQ ABT PROCESS INVALID FILE STATUS 01564 M01S00043.v23l617 +++| EQ ABT PROCESS INCORRECT FILE STATUS 01565 M01S01034.mfiles +++| 01566 M01S01035.mfiles +++| SAP2 SX6 X4 SAVE FILE STATUS VALUE 01567 M01S01036.mfiles +++| SA6 A1 01568 M01S01037.mfiles +++| EQ SAPX RETURN 01569 M01S01038.mfiles +++| 01570 M01S01039.mfiles +++| 01571 M01S01040.mfiles +++| SAPA BSS 0 TABLE OF VALID FILE STATUSES 01572 M01S01041.mfiles +++| VFD 42/0LAD,18/0 01573 M01S01042.mfiles +++| VFD 42/0LNAD,18/NDST 01574 M01S01043.mfiles +++| CON 0 01575 M01S00247.ns22000 +++| VAT SPACE 4,15 01576 M01S00248.ns22000 +++|** VAT - *OVWRITE* ARGUMENT PROCESSOR. 01577 M01S00249.ns22000 +++|* 01578 M01S00250.ns22000 +++|* PROCESSES THE OPTIONAL ARGUMENTS FOR THE *OVWRITE* COMMAND. 01579 M01S00251.ns22000 +++|* 01580 M01S00252.ns22000 +++|* ENTRY (OPARG) = *OP=* ARGUMENT. 01581 M01S00253.ns22000 +++|* 01582 M01S00254.ns22000 +++|* EXIT (OVWF) = 0, IF *Z* OPTION SELECTED. 01583 M01S00255.ns22000 +++|* 3, IF *X* OPTION SELECTED.
| Line S00256 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01584 M02S00256.v23l617 ---|* (B2) = CONTROL STATEMENT CONTROL WORD ADDRESS. 01585 M01S00044.v23l617 +++|* (B2) = COMMAND WORD ADDRESS. 01586 M01S00257.ns22000 +++|*
| Line S00258 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01587 M02S00258.v23l617 ---|* ERROR TO *ABT* IF INVALID ARGUMENT. 01588 M01S00045.v23l617 +++|* ERROR TO *ABT* IF INCORRECT ARGUMENT. 01589 M01S00259.ns22000 +++|* 01590 M01S00260.ns22000 +++|* USES X - 0, 2, 4, 6, 7. 01591 M01S00261.ns22000 +++|* A - 4, 6. 01592 M01S00262.ns22000 +++|* B - 2, 3, 5. 01593 M01S00263.ns22000 +++| 01594 M01S00264.ns22000 +++| VAT SUBR ENTRY/EXIT
| Line S00265 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01595 M02S00265.v23l617 ---| SX2 =C+ INVALID */* OPTION.+ 01596 M01S00046.v23l617 +++| SX2 =C+ INCORRECT */* OPTION.+ 01597 M01S00266.ns22000 +++| SX6 3 PRESET *X* OPTION 01598 M01S00267.ns22000 +++| MX0 -6 01599 M01S00268.ns22000 +++| SA4 OPARG LIST OF OPTIONAL PARAMETERS 01600 M01S00269.ns22000 +++| SB3 B1 INITIALIZE OPTION COUNTER 01601 M01S00270.ns22000 +++| VAT1 LX4 6 RIGHT JUSTIFY CHARACTER 01602 M01S00271.ns22000 +++| BX7 -X0*X4 01603 M01S00272.ns22000 +++| ZR X7,VAT4 IF END OF OPTIONAL PARAMETERS 01604 M01S00273.ns22000 +++| SB5 X7-1RZ 01605 M01S00274.ns22000 +++| ZR B5,VAT3 IF *Z* PARAMETER 01606 M01S00275.ns22000 +++| SB5 X7-1RX 01607 M01S00276.ns22000 +++| ZR B5,VAT2 IF *X* PARAMETER 01608 M01S00277.ns22000 +++| SB5 X7-1RR 01609 M01S00278.ns22000 +++| NZ B5,ABT IF NOT A LEGAL OPTION
| Line S00279 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01610 M02S00279.v23l617 ---| SB2 OVCR RESET CONTROL STATEMENT 01611 M01S00047.v23l617 +++| SB2 OVCR RESET COMMAND 01612 M01S00280.ns22000 +++| EQ VAT1 CHECK NEXT OPTION 01613 M01S00281.ns22000 +++| 01614 M01S00282.ns22000 +++| VAT2 SA6 OVWF SET *X* OPTION FLAG 01615 M01S00283.ns22000 +++| VAT3 SB3 B3-1 DECREMENT OPTION COUNT 01616 M01S00284.ns22000 +++| EQ VAT1 PROCESS NEXT OPTION 01617 M01S00285.ns22000 +++|
| Line S00286 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01618 M02S00286.v23l617 ---| VAT4 LT B3,ABT IF ILLEGAL OPTION COMBINATION 01619 M01S00048.v23l617 +++| VAT4 LT B3,ABT IF INCORRECT OPTION COMBINATION 01620 M01S00287.ns22000 +++| EQ VATX RETURN 01621 M01S01044.mfiles +++| POL SPACE 4,15 01622 M01S01045.mfiles +++|** POL - PROCESS OPTION LIST. 01623 M01S01046.mfiles +++|*
| Line S01047 Modification History | |
|---|---|
M01 (Added by) | mfiles |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01624 M02S01047.v23l617 ---|* CRACKS THE CONTROL STATEMENT OPTIONAL ARGUMENTS 01625 M01S00049.v23l617 +++|* CRACKS THE COMMAND OPTIONAL ARGUMENTS 01626 M01S01048.mfiles +++|* AND EXECUTES THE ARGUMENT PROCESSOR DEFINED FOR
| Line S01049 Modification History | |
|---|---|
M01 (Added by) | mfiles |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01627 M02S01049.v23l617 ---|* THE CONTROL STATEMENT. 01628 M01S00050.v23l617 +++|* THE COMMAND. 01629 M01S01050.mfiles +++|* 01630 M01S01051.mfiles +++|* ERROR TO *ABT* IF ARGUMENT ERROR. 01631 M01S01052.mfiles +++|*
| Line S01053 Modification History | |
|---|---|
M01 (Added by) | mfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01632 M02S01053.ns22000 ---|* USES X - 1, 4. 01633 M01S00288.ns22000 +++|* USES X - 1, 2, 4. 01634 M01S01054.mfiles +++|* A - 1, 4.
| Line S01055 Modification History | |
|---|---|
M01 (Added by) | mfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01635 M02S01055.ns22000 ---|* B - 5, 7. 01636 M01S00289.ns22000 +++|* B - 4, 5, 7. 01637 M01S01056.mfiles +++|* 01638 M01S01057.mfiles +++|* CALLS ARG, IRJ, RSR, SVR. 01639 M01S00290.ns22000 +++|* 01640 M01S00291.ns22000 +++|* NOTE THE ARGUMENT PROCESSOR SUBROUTINES MUST NOT 01641 M01S00292.ns22000 +++|* DESTROY (B4), (A3), OR (X3). 01642 M01S01058.mfiles +++| 01643 M01S01059.mfiles +++| 01644 M01S01060.mfiles +++| POL SUBR ENTRY/EXIT 01645 M01S01061.mfiles +++| SA4 CSOC CHECK OPTION LIST PARAMETER COUNT 01646 M01S01062.mfiles +++| ZR X4,POLX IF NULL LIST, RETURN 01647 M01S01063.mfiles +++| SA1 B2+TACW GET ARGUMENT CONTROL WORD 01648 M01S01064.mfiles +++| ZR X1,POL1 IF NO ARGUMENTS ALLOWED 01649 M01S01065.mfiles +++| 01650 M01S01066.mfiles +++|* PROCESS ARGUMENT LIST. 01651 M01S01067.mfiles +++| 01652 M01S01068.mfiles +++| RJ SVR SAVE RESERVED REGISTERS 01653 M01S01069.mfiles +++| SB4 X4 SET ARGUMENT COUNT 01654 M01S01070.mfiles +++| SB5 X1 SET ARGUMENT TABLE ADDRESS 01655 M01S01071.mfiles +++| SA4 TOPS READ FIRST ARGUMENT 01656 M01S01072.mfiles +++| RJ ARG CRACK ARGUMENT LIST 01657 M01S01073.mfiles +++| RJ RSR RESTORE RESERVED REGISTERS 01658 M01S01074.mfiles +++| NZ X1,POL1 IF ERROR IN ARGUMENT LIST 01659 M01S01075.mfiles +++| 01660 M01S01076.mfiles +++|* EXECUTE ARGUMENT PROCESSOR. 01661 M01S01077.mfiles +++| 01662 M01S01078.mfiles +++| SA1 B2+TACW GET ARGUMENT CONTROL WORD 01663 M01S01079.mfiles +++| AX1 18 01664 M01S01080.mfiles +++| SB7 X1 SET PROCESSOR ADDRESS 01665 M01S01081.mfiles +++| ZR B7,POLX IF NO PROCESSOR DEFINED 01666 M01S01082.mfiles +++| RJ IRJ EXECUTE PROCESSOR 01667 M01S01083.mfiles +++| EQ POLX RETURN 01668 M01S01084.mfiles +++| 01669 M01S01085.mfiles +++|* PROCESS ARGUMENT ERROR. 01670 M01S01086.mfiles +++|
| Line S01087 Modification History | |
|---|---|
M01 (Added by) | mfiles |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01671 M02S01087.v23l617 ---| POL1 SX2 =C+ INVALID */* OPTION.+ 01672 M01S00051.v23l617 +++| POL1 SX2 =C+ INCORRECT */* OPTION.+ 01673 M01S01088.mfiles +++| EQ ABT ABORT 01674 M01S01089.mfiles +++| SPACE 4,10
| Line S01090 Modification History | |
|---|---|
M01 (Added by) | mfiles |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 01675 M02S01090.ns22000 ---|* *OUT* COMMAND ARGUMENT TABLE.
| Line S00293 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01676 M02S00293.274l797 ---|* *OUT* AND *OVWRITE* COMMAND ARGUMENT TABLE. 01677 M01S00194.274l797 +++|* *CLEAR*, *OUT*, *OVWRITE*, *RETURN* AND *UNLOAD* 01678 M01S00195.274l797 +++|* COMMAND ARGUMENT TABLE. 01679 M01S01091.mfiles +++| 01680 M01S01092.mfiles +++| 01681 M01S01093.mfiles +++| TOARG BSS 0 ARGUMENT TABLE FOR *COMCARG* 01682 M01S01094.mfiles +++| OP ARG OPARG,OPARG 01683 M01S01095.mfiles +++| ARG 01684 M01S01096.mfiles +++| TSARG SPACE 4,10 01685 M01S01097.mfiles +++|* *SETFS* COMMAND ARGUMENT TABLE. 01686 M01S01098.mfiles +++| 01687 M01S01099.mfiles +++| 01688 M01S01100.mfiles +++| TSARG BSS 0 01689 M01S01101.mfiles +++| FS ARG FLST,FLST 01690 M01S01102.mfiles +++| ARG 01691 M01S01103.mfiles +++| MFILES SPACE 4,10 01692 M01S01104.mfiles +++|** OVERLAID COMMON DECKS. 01693 M01S01105.mfiles +++| 01694 M01S01106.mfiles +++| 01695 M01S01107.mfiles +++|*CALL COMCARG 01696 M01S01108.mfiles +++| MFILES SPACE 4,10
| Line S01109 Modification History | |
|---|---|
M01 (Added by) | mfiles |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 01697 M02S01109.v23l617 ---|** TOPS - TABLE OF CONTROL CARD */* OPTIONS. 01698 M01S00052.v23l617 +++|** TOPS - TABLE OF COMMAND */* OPTIONS. 01699 M01S01110.mfiles +++| 01700 M01S01111.mfiles +++| 01701 M01S01112.mfiles +++| TOPS BSS 0 OPTIONS TABLE FWA 01702 M01S01113.mfiles +++| TOPSE EQU TOPS+64 END OF TABLE 01703 M01S01114.mfiles +++| 01704 M01S01115.mfiles +++| 01705 M01S01116.mfiles +++| ERRNG RFL=-TOPSE PRESET OVERFLOWS BUFFERS. 01706 M01S01117.mfiles +++| 01707 M01S01118.mfiles +++| 01708 M01S01119.mfiles +++| END
cdc/nos2.source/opl.opl871/deck/mfiles.001.txt · Last modified: by 127.0.0.1