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