User Tools

Site Tools


Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:mfiles.001

Deck MFILES Part 001

11 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
01182  M00S00731.mfiles  +++|          RJ     RSR         RESTORE REGISTERS
Line S00732 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01183  M01S00732.ns22000 ---| PAF1.2   SA1    FICT        INCREMENT FILE COUNT
Line S00225 Modification History
M01 (Added by) ns22000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
01184  M02S00225.274l797 ---| PAF5     SA1    FICT        INCREMENT FILE COUNT
Line S00156 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
01185  M01S00156.274l797 +++| POF4     SA1    FICT        INCREMENT FILE COUNT
01186  M00S00733.mfiles  +++|          SX6    X1+B1
01187  M00S00734.mfiles  +++|          SA6    A1
Line S00735 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01188  M01S00735.ns22000 ---| PAF2     SB3    B3+2
Line S00226 Modification History
M01 (Added by) ns22000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
01189  M02S00226.274l797 ---| PAF6     SB3    B3+2
Line S00736 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
01190  M01S00736.274l797 ---|          NE     B3,B4,PAF1  IF MORE FNT ENTRIES
01191  M01S00737.274l797 ---|          SX1    B1+
01192  M01S00738.274l797 ---|          EQ     PAFX        RETURN
Line S00157 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
01193  M01S00157.274l797 +++| POF5     SX1    B0+
01194  M01S00158.274l797 +++|          EQ     POFX        RETURN
01195  M00S00739.mfiles  +++|
Line S00740 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
01196  M01S00740.274l797 ---| PAFA     DATA   C* ======= ROUTED.  JSN IS ++++. *
01197  M01S00741.274l797 ---| PAFB     DATA   C* ======= ROUTED.  JSN IS ++++. *
01198  M01S00742.274l797 ---|
Line S00159 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
01199  M01S00159.274l797 +++| POFA     DATA   C* ======= ROUTED.  JSN IS ++++. *
01200  M01S00160.274l797 +++| POFB     DATA   C* ======= ROUTED.  JSN IS ++++. *
01201  M00S00743.mfiles  +++| RSR      SPACE  4,10
01202  M00S00744.mfiles  +++|**        RSR - RESTORE RESERVED REGISTERS.
01203  M00S00745.mfiles  +++|*
Line S00746 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01204  M01S00746.ns22000 ---|*         RESTORES THE CONTENTS OF X3, A3, B2, AND B4.
Line S00227 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01205  M01S00227.ns22000 +++|*         RESTORES THE CONTENTS OF X3, A3, B2, B3, AND B4.
01206  M00S00747.mfiles  +++|*
01207  M00S00748.mfiles  +++|*         ENTRY  (SVA3)   = (A3).
01208  M00S00749.mfiles  +++|*                ((SVA3)) = (X3).
01209  M00S00750.mfiles  +++|*                (SVB2)   = (B2).
01210  M00S00751.mfiles  +++|*                (SVB4)   = (B4).
Line S00752 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01211  M01S00752.ns22000 ---|*                (SVB3) = (B3).
Line S00228 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01212  M01S00228.ns22000 +++|*                (SVB3)   = (B3).
01213  M01S00229.ns22000 +++|*
01214  M01S00230.ns22000 +++|*         USES   X - 3.
01215  M01S00231.ns22000 +++|*                A - 3.
01216  M01S00232.ns22000 +++|*                B - 2, 3, 4.
01217  M00S00753.mfiles  +++|
01218  M00S00754.mfiles  +++|
01219  M00S00755.mfiles  +++| RSR      SUBR               ENTRY/EXIT
01220  M00S00756.mfiles  +++|          SA3    SVB4        RESTORE (B4)
01221  M00S00757.mfiles  +++|          SB4    X3
01222  M00S00758.mfiles  +++|          SA3    A3-B1       RESTORE (B3)
01223  M00S00759.mfiles  +++|          SB3    X3
01224  M00S00760.mfiles  +++|          SA3    A3-B1       RESTORE (B2)
01225  M00S00761.mfiles  +++|          SB2    X3
Line S00762 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01226  M01S00762.ns22000 ---|          SA3    A3-1        READ A3
01227  M01S00763.ns22000 ---|          SA3    X3          RESTORE (A3) AND (X3)
Line S00233 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01228  M01S00233.ns22000 +++|          SA3    A3-B1       READ A3
01229  M01S00234.ns22000 +++|          SA3    X3+         RESTORE (A3) AND (X3)
01230  M00S00764.mfiles  +++|          EQ     RSRX        RETURN
01231  M00S00765.mfiles  +++| SVR      SPACE  4,15
01232  M00S00766.mfiles  +++|**        SVR - SAVE RESERVED REGISTERS.
01233  M00S00767.mfiles  +++|*
Line S00768 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
01234  M01S00768.274l797 ---|*         SAVES RESERVED REGISTERS A3, X3, B2, AND B4.
Line S00161 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
01235  M01S00161.274l797 +++|*         SAVES RESERVED REGISTERS A3, X3, B2, B3, AND B4.
01236  M00S00769.mfiles  +++|*         THESE REGISTERS MAY LATER BE RESTORED BY
01237  M00S00770.mfiles  +++|*         EXECUTING *RSR*.  NOTE THAT X3 IS NOT SAVED
01238  M00S00771.mfiles  +++|*         DIRECTLY, BUT IS AUTOMATICALLY RELOADED WHEN
01239  M00S00772.mfiles  +++|*         A3 IS RESTORED.
01240  M00S00773.mfiles  +++|*
01241  M00S00774.mfiles  +++|*         EXIT   (SVA3) = (A3).
01242  M00S00775.mfiles  +++|*                (SVB2) = (B2).
01243  M00S00776.mfiles  +++|*                (SVB4) = (B4).
01244  M00S00777.mfiles  +++|*                (SVB3) = (B3).
01245  M00S00778.mfiles  +++|*
01246  M00S00779.mfiles  +++|*         USES   X - 6.
01247  M00S00780.mfiles  +++|*                A - 6.
01248  M00S00781.mfiles  +++|
01249  M00S00782.mfiles  +++|
01250  M00S00783.mfiles  +++| SVR      SUBR               ENTRY/EXIT
01251  M00S00784.mfiles  +++|          SX6    A3          SAVE (A3)
01252  M00S00785.mfiles  +++|          SA6    SVA3
01253  M00S00786.mfiles  +++|          SX6    B2          SAVE (B2)
01254  M00S00787.mfiles  +++|          SA6    A6+B1
01255  M00S00788.mfiles  +++|          SX6    B3+         SAVE (B3)
01256  M00S00789.mfiles  +++|          SA6    A6+B1
Line S00790 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01257  M01S00790.ns22000 ---|          SX6    B4+         SAVE (B4)
Line S00235 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01258  M01S00235.ns22000 +++|          SX6    B4          SAVE (B4)
01259  M00S00791.mfiles  +++|          SA6    A6+B1
01260  M00S00792.mfiles  +++|          EQ     SVRX        RETURN
01261  M00S00793.mfiles  +++|          SPACE  4,10
01262  M00S00794.mfiles  +++|*         COMMON DECKS.
01263  M00S00795.mfiles  +++|
01264  M00S00796.mfiles  +++|
01265  M00S00797.mfiles  +++|*CALL     COMCCDD
01266  M00S00798.mfiles  +++|*CALL     COMCCIO
01267  M00S00799.mfiles  +++|*CALL     COMCCPM
01268  M00S00800.mfiles  +++|*CALL     COMCLFM
01269  M00S00801.mfiles  +++|*CALL     COMCSNM
01270  M00S00802.mfiles  +++|*CALL     COMCSYS
01271  M00S00803.mfiles  +++| BUFFERS  SPACE  4,10
01272  M00S00804.mfiles  +++|**        BUFFER ASSIGNMENTS.
01273  M00S00805.mfiles  +++|
01274  M00S00806.mfiles  +++|
01275  M00S00807.mfiles  +++|          USE    BUFFERS
01276  M00S00808.mfiles  +++|
01277  M00S00809.mfiles  +++| PSBF     EQU    *           PSEUDO BUFFER FOR FETS
01278  M00S00810.mfiles  +++| FNTB     EQU    PSBF+PSBFL  BUFFER FOR *GETFNT*
01279  M00S00811.mfiles  +++| RFL=     EQU    FNTB+FNTBL
Line S00002 Modification History
M01 (Added by) ns2402
Seq #  *Modification Id* Act 
----------------------------+
01280  M01S00002.ns2402  +++| NPC=     EQU    0           FORCE OPERATING SYSTEM PARAMETER FORMAT
01281  M00S00812.mfiles  +++| SSM=     EQU    0           DECLARE *SSM=* ENTRY POINT
01282  M00S00813.mfiles  +++|
01283  M00S00814.mfiles  +++|          ERRNG  JTFL*100B-RFL=  IF OVERFLOW MAXIMUM JOB TERMINATION FL
01284  M00S00815.mfiles  +++| MFILES   TITLE  OVERLAID PRESET.
01285  M00S00816.mfiles  +++| PRS      SPACE  4,30
01286  M00S00817.mfiles  +++|**        PRS - PRESET.
01287  M00S00818.mfiles  +++|*
01288  M00S00819.mfiles  +++|*         *PRS* DETERMINES THE FORMAT OF THE CALLING CONTROL
Line S00820 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01289  M01S00820.v23l617 ---|*         STATEMENT, SETS THE ADDRESS OF THE FIRST ARGUMENT
Line S00030 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01290  M01S00030.v23l617 +++|*         COMMAND, SETS THE ADDRESS OF THE FIRST ARGUMENT
01291  M00S00821.mfiles  +++|*         TO PROCESS AND CHECKS FOR THE PRESENCE OF NONZERO
01292  M00S00822.mfiles  +++|*         SEPARATORS (= OR /).
01293  M00S00823.mfiles  +++|*
Line S00824 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01294  M01S00824.v23l617 ---|*         ENTRY  (B2) = CONTROL STATEMENT CONTROL WORD ADDRESS.
Line S00031 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01295  M01S00031.v23l617 +++|*         ENTRY  (B2) = COMMAND WORD ADDRESS.
01296  M00S00825.mfiles  +++|*
Line S00826 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01297  M01S00826.ns22000 ---|*         EXIT   (X0) = 42 BIT FILE NAME MASK.
01298  M01S00827.ns22000 ---|*                (X3) = FIRST ARGUMENT.
Line S00236 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01299  M01S00236.ns22000 +++|*         EXIT   (X3) = FIRST ARGUMENT.
01300  M00S00828.mfiles  +++|*                (A3) = ADDRESS OF FIRST ARGUMENT TO PROCESS.
Line S00829 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01301  M01S00829.ns22000 ---|*                (B4) = CONTROL STATEMENT FORMAT CODE.
Line S00237 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01302  M02S00237.v23l617 ---|*                (FRMT) = CONTROL STATEMENT FORMAT CODE.
Line S00032 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01303  M01S00032.v23l617 +++|*                (FRMT) = COMMAND FORMAT CODE.
01304  M00S00830.mfiles  +++|*                TO *ABT* IF ARGUMENT ERROR.
01305  M00S00831.mfiles  +++|*
01306  M00S00832.mfiles  +++|*         USES   X - 0, 1, 2, 3, 4, 5, 6.
01307  M00S00833.mfiles  +++|*                A - 1, 3, 4, 6.
Line S00834 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01308  M01S00834.ns22000 ---|*                B - 3, 4, 5, 6, 7.
Line S00238 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01309  M01S00238.ns22000 +++|*                B - 1, 3, 4, 5, 6.
01310  M00S00835.mfiles  +++|*
01311  M00S00836.mfiles  +++|*         CALLS  MOL, POL.
01312  M00S00837.mfiles  +++|*
01313  M00S00838.mfiles  +++|*         ERROR  TO *ABT*.
Line S00839 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01314  M01S00839.ns22000 ---|*
01315  M01S00840.ns22000 ---|*         MACROS GETJCI, GETLC.
01316  M00S00841.mfiles  +++|
01317  M00S00842.mfiles  +++|
01318  M00S00843.mfiles  +++| PRS      SUBR               ENTRY/EXIT
01319  M00S00844.mfiles  +++|          SB1    1           SET CONSTANT B1=1
01320  M00S00845.mfiles  +++|          RJ     MOL         MOVE */* OPTION LIST
01321  M00S00846.mfiles  +++|          SX2    =C* ERROR IN ARGUMENTS.*
01322  M00S00847.mfiles  +++|          SB4    B0          INITIALIZE FORMAT CODE TO 0
Line S00239 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01323  M01S00239.ns22000 +++|          ERRNZ  FMT0        ADJUST IF VALUE CHANGES
01324  M00S00848.mfiles  +++|          MX0    42
01325  M00S00849.mfiles  +++|          SA3    ARGR        GET FIRST ARGUMENT
01326  M00S00850.mfiles  +++|          SA4    ACTR        GET ARGUMENT COUNT
01327  M00S00851.mfiles  +++|          SB3    X4+
01328  M00S00852.mfiles  +++|          ZR     B3,PRS1     IF NO ARGUMENTS - FORMAT 0
Line S00853 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01329  M01S00853.ns22000 ---|          SB4    3
Line S00240 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01330  M01S00240.ns22000 +++|          SB4    FMT3
01331  M00S00854.mfiles  +++|          SA4    PRSA        GET SPECIAL ARGUMENT VALUE (*)
01332  M00S00855.mfiles  +++|          BX4    X3-X4
01333  M00S00856.mfiles  +++|          NZ     X4,PRS1     IF ARGUMENT NOT * - FORMAT 3
01334  M00S00857.mfiles  +++|          SA3    A3+B1
01335  M00S00858.mfiles  +++|          SB3    B3-B1       ADJUST ARGUMENT COUNT FOR *
01336  M00S00859.mfiles  +++|          SB4    B1
Line S00241 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01337  M01S00241.ns22000 +++|          ERRNZ  FMT1-1      ADJUST IF VALUE CHANGES
01338  M00S00860.mfiles  +++|          ZR     B3,PRS1     IF ONLY * - FORMAT 1
01339  M00S00861.mfiles  +++|          SB4    B4+B1       SET FORMAT CODE TO 2
Line S00242 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01340  M01S00242.ns22000 +++|          ERRNZ  FMT2-FMT1-1 ADJUST IF VALUE CHANGES
01341  M00S00862.mfiles  +++|
Line S00863 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01342  M01S00863.v23l617 ---|*         CHECK CONTROL STATEMENT FORMAT VALIDITY.
Line S00033 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01343  M01S00033.v23l617 +++|*         CHECK COMMAND FORMAT VALIDITY.
01344  M00S00864.mfiles  +++|
01345  M00S00865.mfiles  +++| PRS1     SA1    B2          GET CONTROL WORD
01346  M00S00866.mfiles  +++|          LX4    X1,B4
Line S00867 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01347  M01S00867.v23l617 ---|          PL     X4,ABT      IF INVALID CONTROL STATEMENT FORMAT
Line S00034 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01348  M01S00034.v23l617 +++|          PL     X4,ABT      IF INCORRECT COMMAND FORMAT
01349  M00S00868.mfiles  +++|
01350  M00S00869.mfiles  +++|*         CHECK SEPARATORS OF ARGUMENTS.
01351  M00S00870.mfiles  +++|
01352  M00S00871.mfiles  +++|          SA1    A3          GET FIRST ARGUMENT
01353  M00S00872.mfiles  +++|          SB5    B0
Line S00873 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01354  M01S00873.ns22000 ---|          SB6    B4-3
Line S00243 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01355  M01S00243.ns22000 +++|          SX6    B4+         SAVE FORMAT CODE
01356  M01S00244.ns22000 +++|          SA6    FRMT
01357  M01S00245.ns22000 +++|          SB6    B4-FMT3
01358  M00S00874.mfiles  +++|          NZ     B6,PRS2     IF NOT FORMAT 3
01359  M00S00875.mfiles  +++|          MX6    6
01360  M00S00876.mfiles  +++|          BX4    X6*X1
01361  M00S00877.mfiles  +++|          SX5    1R*
01362  M00S00878.mfiles  +++|          LX4    6
01363  M00S00879.mfiles  +++|          BX4    X4-X5
01364  M00S00880.mfiles  +++|          ZR     X4,ABT      IF FIRST CHARACTER OF FILENAME IS *
01365  M00S00881.mfiles  +++| PRS2     EQ     B5,B3,PRS3  IF END OF ARGUMENTS
01366  M00S00882.mfiles  +++|          BX4    -X0*X1
01367  M00S00883.mfiles  +++|          ZR     X1,ABT      IF BLANK ARGUMENT
01368  M00S00884.mfiles  +++|          NZ     X4,ABT      IF SEPARATOR IS = OR /
01369  M00S00885.mfiles  +++|          SA1    A1+B1
01370  M00S00886.mfiles  +++|          SB5    B5+B1
01371  M00S00887.mfiles  +++|          EQ     PRS2        CHECK NEXT ARGUMENT
01372  M00S00888.mfiles  +++|
01373  M00S00889.mfiles  +++| PRS3     NZ     X1,ABT      IF NOT ZERO LAST WORD
01374  M00S00890.mfiles  +++|          RJ     POL         PROCESS */* OPTION LIST
01375  M00S00891.mfiles  +++|          EQ     PRSX        RETURN
01376  M00S00892.mfiles  +++|
01377  M00S00893.mfiles  +++| PRSA     DATA   0L*         SPECIAL ARGUMENT
01378  M00S00894.mfiles  +++| MFILES   TITLE  OVERLAID PRESET SUBROUTINES.
01379  M00S00895.mfiles  +++| MOL      SPACE  4,20
01380  M00S00896.mfiles  +++|**        MOL - MOVE */* OPTION LIST.
01381  M00S00897.mfiles  +++|*
01382  M00S00898.mfiles  +++|*         MOVES THE OPTION LIST DELIMITED BY THE */* SEPARATOR
01383  M00S00899.mfiles  +++|*         TO A SEPARATE OPTION LIST AND CLEARS IT FROM THE
Line S00900 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01384  M01S00900.v23l617 ---|*         ORIGINAL CONTROL CARD PARAMETER LIST.  THE PARAMETER
01385  M01S00901.v23l617 ---|*         COUNT OF THE REMAINING CONTROL CARD PARAMETER LIST
Line S00035 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01386  M01S00035.v23l617 +++|*         ORIGINAL COMMAND PARAMETER LIST.  THE PARAMETER
01387  M01S00036.v23l617 +++|*         COUNT OF THE REMAINING COMMAND PARAMETER LIST
01388  M00S00902.mfiles  +++|*         IS ADJUSTED TO REFLECT THE NEW PARAMETER COUNT.
01389  M00S00903.mfiles  +++|*
Line S00904 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01390  M01S00904.v23l617 ---|*         ENTRY  (B2) = CONTROL STATEMENT CONTROL WORD ADDRESS.
Line S00037 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01391  M01S00037.v23l617 +++|*         ENTRY  (B2) = COMMAND WORD ADDRESS.
01392  M00S00905.mfiles  +++|*
01393  M00S00906.mfiles  +++|*         EXIT   (CSOC) = COUNT OF */* OPTION LIST PARAMETERS.
01394  M00S00907.mfiles  +++|*                (TOPS) = */* OPTION LIST.
01395  M00S00908.mfiles  +++|*                (ACTR) = ADJUSTED PARAMETER COUNT.
01396  M00S00909.mfiles  +++|*
01397  M00S00910.mfiles  +++|*         ERROR  TO *ABT* IF NO FILE STATUS SPECIFIED ON *SETFS*.
01398  M00S00911.mfiles  +++|*
01399  M00S00912.mfiles  +++|*         USES   X - 0, 1, 2, 6, 7.
01400  M00S00913.mfiles  +++|*                A - 1, 6, 7.
Line S00914 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01401  M01S00914.ns22000 ---|*                B - 4, 6, 7.
Line S00246 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01402  M01S00246.ns22000 +++|*                B - 4, 5, 6, 7.
01403  M00S00915.mfiles  +++|
01404  M00S00916.mfiles  +++|
01405  M00S00917.mfiles  +++| MOL      SUBR               ENTRY/EXIT
01406  M00S00918.mfiles  +++|          SA1    ACTR        GET ARGUMENT COUNT
01407  M00S00919.mfiles  +++|          SB6    B0          CLEAR INDEX
01408  M00S00920.mfiles  +++|          MX0    42          SET PARAMETER MASK
01409  M00S00921.mfiles  +++|          SB7    X1+         (B7) = ARGUMENT COUNT
01410  M00S00922.mfiles  +++|          ZR     B7,MOLX     IF NO ARGUMENTS, RETURN
01411  M00S00923.mfiles  +++|
01412  M00S00924.mfiles  +++|*         SEARCH FOR */* DELIMITER IN PARAMETER LIST.
01413  M00S00925.mfiles  +++|
01414  M00S00926.mfiles  +++| MOL1     SA1    ARGR+B6     READ ARGUMENT
01415  M00S00927.mfiles  +++|          SB6    B6+B1       COUNT ARGUMENT
01416  M00S00928.mfiles  +++|          BX6    -X0*X1      CHECK SEPARATOR
01417  M00S00929.mfiles  +++|          SX6    X6-1R/
01418  M00S00930.mfiles  +++|          ZR     X6,MOL2     IF */*
01419  M00S00931.mfiles  +++|          NE     B6,B7,MOL1  IF NOT END OF PARAMETER LIST
01420  M00S00932.mfiles  +++|          SX2    =C* FILE STATUS NOT SPECIFIED.*
01421  M00S00933.mfiles  +++|          SB5    B2-SFCC
01422  M00S00934.mfiles  +++|          ZR     B5,ABT      IF *SETFS* COMMAND
01423  M00S00935.mfiles  +++|          EQ     MOLX        RETURN
01424  M00S00936.mfiles  +++|
01425  M00S00937.mfiles  +++|*         ADJUST PARAMETER COUNT.
01426  M00S00938.mfiles  +++|
01427  M00S00939.mfiles  +++| MOL2     BX7    X0*X1       CLEAR */* FROM PARAMETER
01428  M00S00940.mfiles  +++|          SA7    A1
01429  M00S00941.mfiles  +++|          SA1    ACTR        READ PARAMETER COUNT WORD
01430  M00S00942.mfiles  +++|          SX6    B6          SET NEW PARAMETER COUNT
01431  M00S00943.mfiles  +++|          BX1    X0*X1
01432  M00S00944.mfiles  +++|          NZ     X7,MOL3     IF NOT NOW A NULL LAST PARAMETER
01433  M00S00945.mfiles  +++|          SX6    X6-1        DECREMENT PARAMETER COUNT
01434  M00S00946.mfiles  +++| MOL3     BX6    X1+X6       STORE NEW PARAMETER COUNT
01435  M00S00947.mfiles  +++|          SA6    A1+
01436  M00S00948.mfiles  +++|          SX7    B7-B6       SET OPTION LIST ARGUMENT COUNT
01437  M00S00949.mfiles  +++|          SA7    CSOC
01438  M00S00950.mfiles  +++|          SX7    B0          CLEAR (X7)
01439  M00S00951.mfiles  +++|          SB4    B0          CLEAR INDEX
01440  M00S00952.mfiles  +++|
01441  M00S00953.mfiles  +++|*         MOVE OPTIONS TO SEPARATE LIST.
01442  M00S00954.mfiles  +++|
01443  M00S00955.mfiles  +++| MOL4     SA1    ARGR+B6     READ OPTION FROM PARAMETER LIST
01444  M00S00956.mfiles  +++|          SB6    B6+B1       COUNT OPTION
01445  M00S00957.mfiles  +++|          BX6    X1
01446  M00S00958.mfiles  +++|          SA6    TOPS+B4     STORE OPTION IN OPTION LIST
01447  M00S00959.mfiles  +++|          SA7    A1          CLEAR OPTION FROM PARAMETER LIST
01448  M00S00960.mfiles  +++|          SB4    B4+B1
01449  M00S00961.mfiles  +++|          NE     B6,B7,MOL4  IF NOT END OF LIST
01450  M00S00962.mfiles  +++|          EQ     MOLX        RETURN
Line S00162 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00963.mfiles  +++| OAP      SPACE  4,25
01484  M00S00964.mfiles  +++|**        OAP - *OUT* ARGUMENT PROCESSOR.
01485  M00S00965.mfiles  +++|*
01486  M00S00966.mfiles  +++|*         PROCESSES THE OPTIONAL ARGUMENTS FOR THE *OUT*
01487  M00S00967.mfiles  +++|*         COMMAND.
01488  M00S00968.mfiles  +++|*
01489  M00S00969.mfiles  +++|*         ENTRY  (OPARG) = *OP=* ARGUMENT.
01490  M00S00970.mfiles  +++|*
01491  M00S00971.mfiles  +++|*         EXIT   (EOJS) = END-OF-JOB STATUS IF PROCESSING
01492  M00S00972.mfiles  +++|*                         *E* OPTION.
Line S00973 Modification History
M01 (Removed by) ns2010
Seq #  *Modification Id* Act 
----------------------------+
01493  M01S00973.ns2010  ---|*                (TDSP) = BIT 59 OF WORD TDSP+1 SET IF PROCESSING
01494  M01S00974.ns2010  ---|*                         *Q* OPTION.
01495  M00S00975.mfiles  +++|*
Line S00976 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01496  M01S00976.v23l617 ---|*         ERROR  TO *ABT* IF INVALID ARGUMENT.
Line S00038 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01497  M01S00038.v23l617 +++|*         ERROR  TO *ABT* IF INCORRECT ARGUMENT.
01498  M00S00977.mfiles  +++|*
01499  M00S00978.mfiles  +++|*         USES   X - 1, 2, 4, 6.
01500  M00S00979.mfiles  +++|*                A - 1, 4, 6.
01501  M00S00980.mfiles  +++|*
01502  M00S00981.mfiles  +++|*         MACROS GETEOJS.
01503  M00S00982.mfiles  +++|
01504  M00S00983.mfiles  +++|
01505  M00S00984.mfiles  +++| OAP      SUBR               ENTRY/EXIT
Line S00985 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01506  M01S00985.v23l617 ---|          SX2    =C+ INVALID */* OPTION.+  PRESET ERROR MESSAGE
Line S00039 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01507  M01S00039.v23l617 +++|          SX2    =C+ INCORRECT */* OPTION.+  PRESET ERROR MESSAGE
01508  M00S00986.mfiles  +++|          ZR     B4,ABT      IF FORMAT CODE = 0
01509  M00S00987.mfiles  +++|          SA1    OPARG       READ ARGUMENT
01510  M00S00988.mfiles  +++|          SX6    1RE
01511  M00S00989.mfiles  +++|          LX1    6
01512  M00S00990.mfiles  +++|          BX6    X6-X1
01513  M00S00991.mfiles  +++|          NZ     X6,ABT      IF NOT *E* OPTION
01514  M00S00992.mfiles  +++|
01515  M00S00993.mfiles  +++|*         CHECK FOR JOB TERMINATION IN PROGRESS.
01516  M00S00994.mfiles  +++|
01517  M00S00995.mfiles  +++|          GETEOJS  OAPA      READ END-OF-JOB STATUS
01518  M00S00996.mfiles  +++|          SA4    OAPA        READ REPLY WORD
Line S00997 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01519  M01S00997.v23l617 ---|          SX2    =C+ INVALID */* OPTION.+
Line S00040 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01520  M01S00040.v23l617 +++|          SX2    =C+ INCORRECT */* OPTION.+
Line S00998 Modification History
M01 (Removed by) ns2635
Seq #  *Modification Id* Act 
----------------------------+
01521  M01S00998.ns2635  ---|          SX6    X4-40B      CHECK FOR TERMINATION IN PROGRESS
Line S00001 Modification History
M01 (Added by) ns2635
Seq #  *Modification Id* Act 
----------------------------+
01522  M01S00001.ns2635  +++|          SX6    X4-100B     CHECK FOR TERMINATION IN PROGRESS
01523  M00S00999.mfiles  +++|          NG     X6,ABT      IF TERMINATION NOT IN PROGRESS
Line S00006 Modification History
M01 (Added by) ns2010
Seq #  *Modification Id* Act 
----------------------------+
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  M00S01000.mfiles  +++|
01529  M00S01001.mfiles  +++|*         PROCESS *E* OPTION.
01530  M00S01002.mfiles  +++|
01531  M00S01003.mfiles  +++|          SX6    X4+         SET END-OF-JOB PROCESSING STATUS
01532  M00S01004.mfiles  +++|          SA6    EOJS
01533  M00S01005.mfiles  +++|          EQ     OAPX        RETURN
01534  M00S01006.mfiles  +++|
01535  M00S01007.mfiles  +++| OAPA     CON    0           *GETEOJS* REPLY WORD
01536  M00S01008.mfiles  +++| SAP      SPACE  4,15
01537  M00S01009.mfiles  +++|**        SAP - *SETFS* ARGUMENT PROCESSOR.
01538  M00S01010.mfiles  +++|*
01539  M00S01011.mfiles  +++|*         PROCESSES THE ARGUMENTS FOR THE *SETFS* COMMAND.
01540  M00S01012.mfiles  +++|*
01541  M00S01013.mfiles  +++|*         ENTRY  (FLST) = SPECIFIED FILE STATUS (DISPLAY CODE).
01542  M00S01014.mfiles  +++|*
01543  M00S01015.mfiles  +++|*         EXIT   (FLST) = FILE STATUS (BINARY).
01544  M00S01016.mfiles  +++|*
Line S01017 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01545  M01S01017.v23l617 ---|*         ERROR  TO *ABT* IF INVALID ARGUMENT.
Line S00041 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01546  M01S00041.v23l617 +++|*         ERROR  TO *ABT* IF INCORRECT ARGUMENT.
01547  M00S01018.mfiles  +++|*
01548  M00S01019.mfiles  +++|*         USES   X - 0, 1, 2, 4, 6.
01549  M00S01020.mfiles  +++|*                A - 1, 4, 6.
01550  M00S01021.mfiles  +++|
01551  M00S01022.mfiles  +++|
01552  M00S01023.mfiles  +++| SAP      SUBR               ENTRY/EXIT
01553  M00S01024.mfiles  +++|          SA1    FLST
Line S01025 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01554  M01S01025.v23l617 ---|          SX2    =C* INVALID FILE STATUS.*
Line S00042 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01555  M01S00042.v23l617 +++|          SX2    =C* INCORRECT FILE STATUS.*
01556  M00S01026.mfiles  +++|          MX0    42
01557  M00S01027.mfiles  +++|          SA4    SAPA
01558  M00S01028.mfiles  +++| SAP1     BX6    X0*X4       CHECK TABLE FOR MATCH
01559  M00S01029.mfiles  +++|          BX6    X1-X6
01560  M00S01030.mfiles  +++|          ZR     X6,SAP2     IF SPECIFIED FILE STATUS FOUND
01561  M00S01031.mfiles  +++|          SA4    A4+B1
01562  M00S01032.mfiles  +++|          NZ     X4,SAP1     IF NOT END OF TABLE
Line S01033 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01563  M01S01033.v23l617 ---|          EQ     ABT         PROCESS INVALID FILE STATUS
Line S00043 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01564  M01S00043.v23l617 +++|          EQ     ABT         PROCESS INCORRECT FILE STATUS
01565  M00S01034.mfiles  +++|
01566  M00S01035.mfiles  +++| SAP2     SX6    X4          SAVE FILE STATUS VALUE
01567  M00S01036.mfiles  +++|          SA6    A1
01568  M00S01037.mfiles  +++|          EQ     SAPX        RETURN
01569  M00S01038.mfiles  +++|
01570  M00S01039.mfiles  +++|
01571  M00S01040.mfiles  +++| SAPA     BSS    0           TABLE OF VALID FILE STATUSES
01572  M00S01041.mfiles  +++|          VFD    42/0LAD,18/0
01573  M00S01042.mfiles  +++|          VFD    42/0LNAD,18/NDST
01574  M00S01043.mfiles  +++|          CON    0
Line S00247 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01584  M02S00256.v23l617 ---|*                (B2) = CONTROL STATEMENT CONTROL WORD ADDRESS.
Line S00044 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01585  M01S00044.v23l617 +++|*                (B2) = COMMAND WORD ADDRESS.
Line S00257 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01586  M01S00257.ns22000 +++|*
Line S00258 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01587  M02S00258.v23l617 ---|*         ERROR  TO *ABT* IF INVALID ARGUMENT.
Line S00045 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01588  M01S00045.v23l617 +++|*         ERROR  TO *ABT* IF INCORRECT ARGUMENT.
Line S00259 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01595  M02S00265.v23l617 ---|          SX2    =C+ INVALID */* OPTION.+
Line S00046 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01596  M01S00046.v23l617 +++|          SX2    =C+ INCORRECT */* OPTION.+
Line S00266 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01610  M02S00279.v23l617 ---|          SB2    OVCR        RESET CONTROL STATEMENT
Line S00047 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01611  M01S00047.v23l617 +++|          SB2    OVCR        RESET COMMAND
Line S00280 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
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 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01618  M02S00286.v23l617 ---| VAT4     LT     B3,ABT      IF ILLEGAL OPTION COMBINATION
Line S00048 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01619  M01S00048.v23l617 +++| VAT4     LT     B3,ABT      IF INCORRECT OPTION COMBINATION
Line S00287 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01620  M01S00287.ns22000 +++|          EQ     VATX        RETURN
01621  M00S01044.mfiles  +++| POL      SPACE  4,15
01622  M00S01045.mfiles  +++|**        POL - PROCESS OPTION LIST.
01623  M00S01046.mfiles  +++|*
Line S01047 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01624  M01S01047.v23l617 ---|*         CRACKS THE CONTROL STATEMENT OPTIONAL ARGUMENTS
Line S00049 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01625  M01S00049.v23l617 +++|*         CRACKS THE COMMAND OPTIONAL ARGUMENTS
01626  M00S01048.mfiles  +++|*         AND EXECUTES THE ARGUMENT PROCESSOR DEFINED FOR
Line S01049 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01627  M01S01049.v23l617 ---|*         THE CONTROL STATEMENT.
Line S00050 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01628  M01S00050.v23l617 +++|*         THE COMMAND.
01629  M00S01050.mfiles  +++|*
01630  M00S01051.mfiles  +++|*         ERROR  TO *ABT* IF ARGUMENT ERROR.
01631  M00S01052.mfiles  +++|*
Line S01053 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01632  M01S01053.ns22000 ---|*         USES   X - 1, 4.
Line S00288 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01633  M01S00288.ns22000 +++|*         USES   X - 1, 2, 4.
01634  M00S01054.mfiles  +++|*                A - 1, 4.
Line S01055 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01635  M01S01055.ns22000 ---|*                B - 5, 7.
Line S00289 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01636  M01S00289.ns22000 +++|*                B - 4, 5, 7.
01637  M00S01056.mfiles  +++|*
01638  M00S01057.mfiles  +++|*         CALLS  ARG, IRJ, RSR, SVR.
Line S00290 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01639  M01S00290.ns22000 +++|*
01640  M01S00291.ns22000 +++|*         NOTE   THE ARGUMENT PROCESSOR SUBROUTINES MUST NOT
01641  M01S00292.ns22000 +++|*                DESTROY (B4), (A3), OR (X3).
01642  M00S01058.mfiles  +++|
01643  M00S01059.mfiles  +++|
01644  M00S01060.mfiles  +++| POL      SUBR               ENTRY/EXIT
01645  M00S01061.mfiles  +++|          SA4    CSOC        CHECK OPTION LIST PARAMETER COUNT
01646  M00S01062.mfiles  +++|          ZR     X4,POLX     IF NULL LIST, RETURN
01647  M00S01063.mfiles  +++|          SA1    B2+TACW     GET ARGUMENT CONTROL WORD
01648  M00S01064.mfiles  +++|          ZR     X1,POL1     IF NO ARGUMENTS ALLOWED
01649  M00S01065.mfiles  +++|
01650  M00S01066.mfiles  +++|*         PROCESS ARGUMENT LIST.
01651  M00S01067.mfiles  +++|
01652  M00S01068.mfiles  +++|          RJ     SVR         SAVE RESERVED REGISTERS
01653  M00S01069.mfiles  +++|          SB4    X4          SET ARGUMENT COUNT
01654  M00S01070.mfiles  +++|          SB5    X1          SET ARGUMENT TABLE ADDRESS
01655  M00S01071.mfiles  +++|          SA4    TOPS        READ FIRST ARGUMENT
01656  M00S01072.mfiles  +++|          RJ     ARG         CRACK ARGUMENT LIST
01657  M00S01073.mfiles  +++|          RJ     RSR         RESTORE RESERVED REGISTERS
01658  M00S01074.mfiles  +++|          NZ     X1,POL1     IF ERROR IN ARGUMENT LIST
01659  M00S01075.mfiles  +++|
01660  M00S01076.mfiles  +++|*         EXECUTE ARGUMENT PROCESSOR.
01661  M00S01077.mfiles  +++|
01662  M00S01078.mfiles  +++|          SA1    B2+TACW     GET ARGUMENT CONTROL WORD
01663  M00S01079.mfiles  +++|          AX1    18
01664  M00S01080.mfiles  +++|          SB7    X1          SET PROCESSOR ADDRESS
01665  M00S01081.mfiles  +++|          ZR     B7,POLX     IF NO PROCESSOR DEFINED
01666  M00S01082.mfiles  +++|          RJ     IRJ         EXECUTE PROCESSOR
01667  M00S01083.mfiles  +++|          EQ     POLX        RETURN
01668  M00S01084.mfiles  +++|
01669  M00S01085.mfiles  +++|*         PROCESS ARGUMENT ERROR.
01670  M00S01086.mfiles  +++|
Line S01087 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01671  M01S01087.v23l617 ---| POL1     SX2    =C+ INVALID */* OPTION.+
Line S00051 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01672  M01S00051.v23l617 +++| POL1     SX2    =C+ INCORRECT */* OPTION.+
01673  M00S01088.mfiles  +++|          EQ     ABT         ABORT
01674  M00S01089.mfiles  +++|          SPACE  4,10
Line S01090 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01675  M01S01090.ns22000 ---|*         *OUT* COMMAND ARGUMENT TABLE.
Line S00293 Modification History
M01 (Added by) ns22000
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
01676  M02S00293.274l797 ---|*         *OUT* AND *OVWRITE* COMMAND ARGUMENT TABLE.
Line S00194 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
01677  M01S00194.274l797 +++|*         *CLEAR*, *OUT*, *OVWRITE*, *RETURN* AND *UNLOAD*
01678  M01S00195.274l797 +++|*         COMMAND ARGUMENT TABLE.
01679  M00S01091.mfiles  +++|
01680  M00S01092.mfiles  +++|
01681  M00S01093.mfiles  +++| TOARG    BSS    0           ARGUMENT TABLE FOR *COMCARG*
01682  M00S01094.mfiles  +++| OP       ARG    OPARG,OPARG
01683  M00S01095.mfiles  +++|          ARG
01684  M00S01096.mfiles  +++| TSARG    SPACE  4,10
01685  M00S01097.mfiles  +++|*         *SETFS* COMMAND ARGUMENT TABLE.
01686  M00S01098.mfiles  +++|
01687  M00S01099.mfiles  +++|
01688  M00S01100.mfiles  +++| TSARG    BSS    0
01689  M00S01101.mfiles  +++| FS       ARG    FLST,FLST
01690  M00S01102.mfiles  +++|          ARG
01691  M00S01103.mfiles  +++| MFILES   SPACE  4,10
01692  M00S01104.mfiles  +++|**        OVERLAID COMMON DECKS.
01693  M00S01105.mfiles  +++|
01694  M00S01106.mfiles  +++|
01695  M00S01107.mfiles  +++|*CALL     COMCARG
01696  M00S01108.mfiles  +++| MFILES   SPACE  4,10
Line S01109 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01697  M01S01109.v23l617 ---|**        TOPS - TABLE OF CONTROL CARD */* OPTIONS.
Line S00052 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01698  M01S00052.v23l617 +++|**        TOPS - TABLE OF COMMAND */* OPTIONS.
01699  M00S01110.mfiles  +++|
01700  M00S01111.mfiles  +++|
01701  M00S01112.mfiles  +++| TOPS     BSS    0           OPTIONS TABLE FWA
01702  M00S01113.mfiles  +++| TOPSE    EQU    TOPS+64     END OF TABLE
01703  M00S01114.mfiles  +++|
01704  M00S01115.mfiles  +++|
01705  M00S01116.mfiles  +++|          ERRNG  RFL=-TOPSE  PRESET OVERFLOWS BUFFERS.
01706  M00S01117.mfiles  +++|
01707  M00S01118.mfiles  +++|
01708  M00S01119.mfiles  +++|          END
cdc/nos2.source/opl.opl871/deck/mfiles.001.txt ยท Last modified: by 127.0.0.1