User Tools

Site Tools


Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:copyb.003

Deck COPYB Part 003

11 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
04651  M00S03826.copyb   +++|*                B - 3, 4, 5.
Line S03827 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04652  M01S03827.v23l617 ---|*                X - 0, 1, 2, 3, 4, 6.
Line S00167 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04653  M01S00167.v23l617 +++|*                X - 0, 1, 2, 3, 4, 6, 7.
04654  M00S03828.copyb   +++|*
04655  M00S03829.copyb   +++|*         CALLS  CNS, SFM.
04656  M00S03830.copyb   +++|
04657  M00S03831.copyb   +++|
04658  M00S03832.copyb   +++| VCY      SUBR               ENTRY/EXIT
04659  M00S03833.copyb   +++|
04660  M00S03834.copyb   +++|*         VALIDATE COPY FILE TYPES.
04661  M00S03835.copyb   +++|
04662  M00S03836.copyb   +++|          SA1    I+SLF
04663  M00S03837.copyb   +++|          SA2    O+SLF
04664  M00S03838.copyb   +++|          SB3    X1
04665  M00S03839.copyb   +++|          SB4    X2
Line S03840 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04666  M01S03840.v23l617 ---|          SB5    PERF        * ILLEGAL COPY.*
Line S00168 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04667  M01S00168.v23l617 +++|          SB5    PERF        * INCORRECT COPY.*
04668  M00S03841.copyb   +++|          ZR     B4,VCY1     IF OUTPUT FILE NOT S, L, OR F TAPE
04669  M00S03842.copyb   +++|          EQ     B3,B4,VCY1  IF INPUT = OUTPUT FILE TYPE
04670  M00S03843.copyb   +++|          LT     B3,PER1     IF INPUT FILE IS F TAPE
04671  M00S03844.copyb   +++|          LT     B4,PER1     IF OUTPUT FILE IS F TAPE
04672  M00S03845.copyb   +++|          GT     B3,B1,PER1  IF INPUT FILE IS L TAPE
04673  M00S03846.copyb   +++|          NE     B3,B1,VCY1  IF NOT S TO L TAPE COPY
04674  M00S03847.copyb   +++|          SX6    B1          PROCESS AS S TO S TAPE COPY
04675  M00S03848.copyb   +++|          SB4    B1
04676  M00S03849.copyb   +++|          SA6    A2+
04677  M00S03850.copyb   +++|
04678  M00S03851.copyb   +++|*         SET FILE MODE.
04679  M00S03852.copyb   +++|
04680  M00S03853.copyb   +++| VCY1     RJ     SFM
04681  M00S03854.copyb   +++|
04682  M00S03855.copyb   +++|*         VALIDATE R AND D PROCESSING OPTIONS.
04683  M00S03856.copyb   +++|
04684  M00S03857.copyb   +++|          SA1    RSAI        RECORD SPLIT ALLOWED INDICATOR
04685  M00S03858.copyb   +++|          SA2    NPDI        NOISE BLOCKS PADDED/DELETED INDICATOR
04686  M00S03859.copyb   +++|          BX1    X1+X2
04687  M00S03860.copyb   +++|          ZR     X1,VCY2     IF R AND D PROCESSING OPTIONS NOT SELECTED
04688  M00S03861.copyb   +++|          SB5    PERL        * PROCESSING OPTION NOT APPLICABLE.*
Line S03862 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04689  M01S03862.274l797 ---|          NZ     B3,PER1     IF INPUT NOT MS/I/SI-B
Line S00246 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04690  M01S00246.274l797 +++|          NZ     B3,PER1     IF INPUT NOT MS/I/LI/SI-B
04691  M00S03863.copyb   +++|          LE     B4,PER1     IF OUTPUT NOT S OR L TAPE
04692  M00S03864.copyb   +++|
04693  M00S03865.copyb   +++|*         CALCULATE NOISE SIZE FOR S, L, AND F TAPES.  VERIFY NOISE
04694  M00S03866.copyb   +++|*         SIZES IF S TO S, L TO L, OR F TO F TAPE COPY.
04695  M00S03867.copyb   +++|
04696  M00S03868.copyb   +++| VCY2     SA0    I           CALCULATE INPUT FILE NOISE SIZE
04697  M00S03869.copyb   +++|          RJ     CNS
Line S03870 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04698  M01S03870.v23l617 ---|          BX0    X6
04699  M01S03871.v23l617 ---|          SA0    O           CALCULATE OUTPUT FILE NOISE SIZE
04700  M01S03872.v23l617 ---|          RJ     CNS
04701  M01S03873.v23l617 ---|          NE     B3,B4,VCY3  IF INPUT .NE. OUTPUT FILE TYPE
04702  M01S03874.v23l617 ---|          ZR     B3,VCY3     IF NOT S, L, OR F TAPE COPY
04703  M01S03875.v23l617 ---|          IX6    X0-X6
04704  M01S03876.v23l617 ---|          SB5    PERG        * INVALID NOISE SIZE ON LFN.*
04705  M01S03877.v23l617 ---|          SA1    O
04706  M01S03878.v23l617 ---|          NG     X6,PER      IF INPUT NOISE SIZE .LT. OUTPUT NOISE SIZE
Line S00169 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04707  M01S00169.v23l617 +++|          SA2    NS          NOISE SIZE IN CHARACTERS
04708  M01S00170.v23l617 +++|          SX3    6
04709  M01S00171.v23l617 +++|          IX1    X2*X3
04710  M01S00172.v23l617 +++|          ZR     X1,VCY2.1   IF NS PARAMETER NOT SPECIFIED
04711  M01S00173.v23l617 +++|          IX7    X6-X1
04712  M01S00174.v23l617 +++|          ZR     B3,PER2     IF INPUT TAPE NOT S/L/F FORMAT
04713  M01S00175.v23l617 +++|          PL     X7,VCY2.1   IF NS PARAMETER .LE. INPUT TAPE NOISE SIZE
04714  M01S00176.v23l617 +++|          BX6    X2          NOISE SIZE IN CHARACTERS
04715  M01S00177.v23l617 +++|          SA6    A0+NSZ      INCREASE INPUT TAPE NOISE SIZE TO NS
04716  M01S00178.v23l617 +++|          SX6    B1          FLAG FOR NOISE SIZE PROCESSING
04717  M01S00179.v23l617 +++|          SA6    NSFG
04718  M01S00180.v23l617 +++|          RJ     CNS
04719  M01S00181.v23l617 +++| VCY2.1   BX0    X6
04720  M01S00182.v23l617 +++|          SA0    O           CALCULATE OUTPUT FILE NOISE SIZE
04721  M01S00183.v23l617 +++|          RJ     CNS
04722  M01S00184.v23l617 +++|          NE     B3,B4,VCY3  IF INPUT .NE. OUTPUT FILE TYPE
04723  M01S00185.v23l617 +++|          ZR     B3,VCY3     IF NOT S, L, OR F TAPE COPY
04724  M01S00186.v23l617 +++|          IX6    X0-X6
04725  M01S00187.v23l617 +++|          PL     X6,VCY2.2   IF INPUT NOISE SIZE .GT. OUTPUT NOISE SIZE
04726  M01S00188.v23l617 +++|          SA1    O+NSZ       SET INPUT NOISE SIZE = OUTPUT NOISE SIZE
04727  M01S00189.v23l617 +++|          BX6    X1
04728  M01S00190.v23l617 +++|          SA6    I+NSZ
04729  M01S00191.v23l617 +++|          SA1    NS
04730  M01S00192.v23l617 +++|          SX6    B1+         SET NOISE SIZE PROCESSING IN EFFECT
04731  M01S00193.v23l617 +++|          SA6    NSFG
04732  M01S00194.v23l617 +++|          ZR     X1,VCY2.2   IF NOISE SIZE PARAMETER NOT SPECIFIED
04733  M01S00195.v23l617 +++|          SX6    B1+B1       NOISE BLOCK SIZE AUTOMATICALLY INCREASED
04734  M01S00196.v23l617 +++|          SA6    A6          SET NOISE SIZE FORCED UP FLAG
04735  M00S03879.copyb   +++|
04736  M00S03880.copyb   +++|*         VALIDATE F TO F TAPE COPY BLOCK SIZE.
04737  M00S03881.copyb   +++|
Line S03882 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04738  M01S03882.v23l617 ---|          GE     B3,VCY3     IF NOT F TO F TAPE COPY
Line S00197 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04739  M01S00197.v23l617 +++| VCY2.2   GE     B3,VCY3     IF NOT F TO F TAPE COPY
04740  M00S03883.copyb   +++|          SA2    I+PRU       GET INPUT FILE BLOCK SIZE
04741  M00S03884.copyb   +++|          SA3    O+PRU       GET OUTPUT FILE BLOCK SIZE
04742  M00S03885.copyb   +++|          IX3    X3-X2
04743  M00S03886.copyb   +++|          SB5    PERC        * BLOCK SIZE TOO SMALL ON LFN.*
04744  M00S03887.copyb   +++|          NG     X3,PER      IF INPUT .GT. OUTPUT BLOCK SIZE
04745  M00S03888.copyb   +++|
04746  M00S03889.copyb   +++|*         VALIDATE BS AND CC PARAMETER USAGE.
04747  M00S03890.copyb   +++|
04748  M00S03891.copyb   +++| VCY3     SA1    BS
04749  M00S03892.copyb   +++|          SA2    CC
04750  M00S03893.copyb   +++|          SX3    10
04751  M00S03894.copyb   +++|          BX4    X1+X2
04752  M00S03895.copyb   +++|          IX6    X1*X3
04753  M00S03896.copyb   +++|          ZR     X2,VCY4     IF CC NOT SPECIFIED
04754  M00S03897.copyb   +++|          NZ     X1,PER2     IF BS AND CC SPECIFIED
04755  M00S03898.copyb   +++|          BX6    X2
Line S03899 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04756  M01S03899.v23l617 ---| VCY4     ZR     X4,VCYX     IF BS AND CC NOT SPECIFIED
Line S00198 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04757  M01S00198.v23l617 +++| VCY4     ZR     X4,VCY5     IF BS AND CC NOT SPECIFIED
04758  M00S03900.copyb   +++|          SA6    MCC
Line S03901 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04759  M01S03901.v23l617 ---|          GE     B3,B1,VCYX  IF S OR L INPUT TAPE
Line S00199 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04760  M01S00199.v23l617 +++|          GE     B3,B1,VCY5  IF S OR L INPUT TAPE
04761  M00S03902.copyb   +++|          SB5    PERK        * BLOCK SIZE NOT APPLICABLE.*
04762  M00S03903.copyb   +++|          LE     B4,PER1     IF NOT S OR L TAPE
Line S00200 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04763  M01S00200.v23l617 +++| VCY5     SA1    NSFG
04764  M01S00201.v23l617 +++|          ZR     X1,VCYX     IF NO NOISE PROCESSING
04765  M01S00202.v23l617 +++|          SB2    X1
04766  M01S00203.v23l617 +++|          SB5    VCYA        * INSUFFICIENT NOISE SIZE.*
04767  M01S00204.v23l617 +++|          NE     B2,B1,VCY6  IF NOISE SIZE AUTOMATICALLY INCREASED
04768  M01S00205.v23l617 +++|          SA1    NS
04769  M01S00206.v23l617 +++|          NZ     X1,VCYX     IF NOISE SIZE PARAMETER SPECIFIED
04770  M01S00207.v23l617 +++|          SB5    VCYB        * NOISE BLOCK PROCESSING IN EFFECT.*
04771  M01S00208.v23l617 +++| VCY6     MESSAGE B5,3
04772  M00S03904.copyb   +++|          EQ     VCYX        RETURN
Line S00209 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04773  M01S00209.v23l617 +++|
04774  M01S00210.v23l617 +++|
04775  M01S00211.v23l617 +++| VCYA     DATA   C* INSUFFICIENT NOISE SIZE, AUTOMATICALLY INCREASED.*
04776  M01S00212.v23l617 +++| VCYB     DATA   C* NOISE BLOCK PROCESSING IN EFFECT.*
04777  M00S03905.copyb   +++| VTY      SPACE  4,15
04778  M00S03906.copyb   +++|**        VTY - VALIDATE TCOPY.
04779  M00S03907.copyb   +++|*
Line S03908 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04780  M01S03908.v23l617 ---|*         EXIT   TO *PER*, IF LABELED TAPE NOT ALLOWED OR INVALID
04781  M01S03909.v23l617 ---|*                     NOISE SIZE, OR INVALID BLOCK SIZE.
04782  M01S03910.v23l617 ---|*                TO *PER1*, IF ILLEGAL FILE/CONVERSION TYPES FOR COPY.
Line S00213 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04783  M01S00213.v23l617 +++|*         EXIT   TO *PER*, IF LABELED TAPE NOT ALLOWED OR INCORRECT
04784  M01S00214.v23l617 +++|*                     NOISE SIZE, OR INCORRECT BLOCK SIZE.
04785  M01S00215.v23l617 +++|*                TO *PER1* IF INCORRECT FILE/CONVERSION TYPES FOR COPY.
04786  M00S03911.copyb   +++|*                TO *PER2*, IF ARGUMENT ERROR.
04787  M00S03912.copyb   +++|*
04788  M00S03913.copyb   +++|*         USES   A - 0, 1, 2, 3, 4, 6, 7.
04789  M00S03914.copyb   +++|*                B - 2, 3, 4, 5, 6, 7.
04790  M00S03915.copyb   +++|*                X - 1, 2, 3, 4, 6, 7.
04791  M00S03916.copyb   +++|*
04792  M00S03917.copyb   +++|*         CALLS  CNS, SFM.
04793  M00S03918.copyb   +++|
04794  M00S03919.copyb   +++|
04795  M00S03920.copyb   +++| VTY8     SB2    O           DISABLE CONTROL WORD WRITE FOR E/B TO MS
04796  M00S03921.copyb   +++|          SX7    B0+
Line S03922 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04797  M01S03922.274l797 ---|          NZ     B3,VTY9     IF NOT MS/I/SI-B INPUT FILE
Line S00247 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04798  M01S00247.274l797 +++|          NZ     B3,VTY9     IF NOT MS/I/LI/SI-B INPUT FILE
04799  M00S03923.copyb   +++|          SB2    I           DISABLE CONTROL WORD READ FOR MS TO E/B
04800  M00S03924.copyb   +++| VTY9     SA7    B2+CWF      DISABLE CONTROL WORD READ/WRITE
04801  M00S03925.copyb   +++|
04802  M00S03926.copyb   +++| VTY      SUBR               ENTRY/EXIT
04803  M00S03927.copyb   +++|
04804  M00S03928.copyb   +++|*         VALIDATE TCOPY FILE TYPES AND CONVERSION FORMAT.
04805  M00S03929.copyb   +++|
04806  M00S03930.copyb   +++|          SA1    I+SLF
04807  M00S03931.copyb   +++|          SA2    O+SLF
04808  M00S03932.copyb   +++|          SA3    CF
04809  M00S03933.copyb   +++|          SB3    X1
04810  M00S03934.copyb   +++|          SB4    X2
Line S03935 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04811  M01S03935.v23l617 ---|          SB5    PERF        * ILLEGAL COPY.*
Line S00216 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04812  M01S00216.v23l617 +++|          SB5    PERF        * INCORRECT COPY.*
Line S03936 Modification History
M01 (Removed by) copyb5
Seq #  *Modification Id* Act 
----------------------------+
04813  M01S03936.copyb5  ---|          NE     B3,B1,VTY1  IF NOT S INPUT TAPE
Line S00179 Modification History
M01 (Added by) copyb5
Seq #  *Modification Id* Act 
----------------------------+
04814  M01S00179.copyb5  +++|          LT     B3,B1,VTY1  IF NOT S/L INPUT TAPE
Line S03937 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04815  M01S03937.v23l617 ---|          SA2    TLLI        CHECK FOR ILLEGAL PROCESSING OPTION
Line S00217 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04816  M01S00217.v23l617 +++|          SA2    TLLI        CHECK FOR INCORRECT PROCESSING OPTION
04817  M00S03938.copyb   +++|          SB5    PERL        * PROCESSING OPTION NOT APPLICABLE.*
04818  M00S03939.copyb   +++|          NZ     X2,PER1     IF *PO=T* PROCESSING OPTION SPECIFIED
04819  M00S03940.copyb   +++|          SA1    SK
04820  M00S03941.copyb   +++|          SA0    I
04821  M00S03942.copyb   +++|          NZ     X1,VTY2     IF SKIP SET
Line S03943 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04822  M01S03943.274l797 ---|          NZ     B4,PER1     IF OUTPUT FILE NOT MS/I/SI-B
Line S00248 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04823  M01S00248.274l797 +++|          NZ     B4,PER1     IF OUTPUT FILE NOT MS/OD/I/LI/SI-B
04824  M00S03944.copyb   +++|          EQ     VTY2        CONTINUE TCOPY VALIDATION
04825  M00S03945.copyb   +++|
Line S03946 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04826  M01S03946.274l797 ---| VTY1     NZ     B3,PER1     IF INPUT FILE NOT MS/I/SI-B
Line S00249 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04827  M01S00249.274l797 +++| VTY1     NZ     B3,PER1     IF INPUT FILE NOT MS/OD/I/LI/SI-B
04828  M00S03947.copyb   +++|          NE     B4,B1,PER1  IF OUTPUT FILE IS NOT S TAPE
04829  M00S03948.copyb   +++|          NG     X3,PER1     IF NOT E OR B CONVERSION FORMAT
04830  M00S03949.copyb   +++|          SA0    O
04831  M00S03950.copyb   +++|
04832  M00S03951.copyb   +++|*         ENFORCE UNLABELED S TAPE FOR E, B, AND X CONVERSION.
04833  M00S03952.copyb   +++|
04834  M00S03953.copyb   +++| VTY2     BX6    X3          SET CONVERSION FORMAT ON S TAPE
04835  M00S03954.copyb   +++|          SB7    -B1
04836  M00S03955.copyb   +++|          SA6    A0+TCF
04837  M00S03956.copyb   +++|          SB6    X3+
04838  M00S03957.copyb   +++|          LT     B6,B7,VTY3  IF SI-C CONVERSION
04839  M00S03958.copyb   +++|          SA2    A0+TRK      CHECK LABEL TYPE
04840  M00S03959.copyb   +++|          SA1    A0
04841  M00S03960.copyb   +++|          SX2    X2
04842  M00S03961.copyb   +++|          SB5    PERH        * UNLABELED TAPE REQUIRED - LFN.*
04843  M00S03962.copyb   +++|          NZ     X2,PER      IF LABELED S TAPE
04844  M00S03963.copyb   +++|
04845  M00S03964.copyb   +++|*         VALIDATE CC PARAMETER USAGE AND SET MAXIMUM CHARACTER COUNT.
04846  M00S03965.copyb   +++|
04847  M00S03966.copyb   +++| VTY3     SA3    CC
Line S03967 Modification History
M01 (Removed by) copyb5
Seq #  *Modification Id* Act 
----------------------------+
04848  M01S03967.copyb5  ---|          SA4    TTCD+2+B6   DEFAULT MAXIMUM CHARACTER COUNT
Line S00180 Modification History
M01 (Added by) copyb5
Seq #  *Modification Id* Act 
----------------------------+
04849  M01S00180.copyb5  +++|          SA4    TTCD+B6     DEFAULT MAXIMUM CHARACTER COUNT
04850  M00S03968.copyb   +++|          SX6    X4
04851  M00S03969.copyb   +++|          ZR     X3,VTY5     IF CC PARAMETER NOT SPECIFIED
04852  M00S03970.copyb   +++|          BX6    X3
04853  M00S03971.copyb   +++|          SB5    PERK        * BLOCK SIZE NOT APPLICABLE.*
04854  M00S03972.copyb   +++|          LE     B6,PER1     IF NOT E OR B CONVERSION
04855  M00S03973.copyb   +++|          SX2    MCBS
04856  M00S03974.copyb   +++|          SB5    PERB        * BLOCK SIZE TOO LARGE ON LFN.*
04857  M00S03975.copyb   +++|          IX2    X2-X3
04858  M00S03976.copyb   +++|          SA1    A0
04859  M00S03977.copyb   +++|          NG     X2,PER      IF EXCEEDS MAXIMUM BLOCK SIZE
04860  M00S03978.copyb   +++|          GT     B6,B1,VTY4  IF B CONVERSION
04861  M00S03979.copyb   +++|          SX2    A0-I
04862  M00S03980.copyb   +++|          ZR     X2,VTY4     IF READING E TAPE
04863  M00S03981.copyb   +++|          LX3    -1          TRUNCATE CC VALUE TO EVEN NUMBER
04864  M00S03982.copyb   +++|          PL     X3,VTY5     IF EVEN NUMBER
04865  M00S03983.copyb   +++|          SX6    X6-1
04866  M00S03984.copyb   +++|          EQ     VTY5        SET MODE ON S TAPE
04867  M00S03985.copyb   +++|
04868  M00S03986.copyb   +++| VTY4     SX2    10          ROUND UP CC VALUE TO MULTIPLE OF 10
04869  M00S03987.copyb   +++|          SX6    X6+9
04870  M00S03988.copyb   +++|          BX1    X2
04871  M00S03989.copyb   +++|          IX6    X6/X2
04872  M00S03990.copyb   +++|          IX6    X6*X1
04873  M00S03991.copyb   +++|
04874  M00S03992.copyb   +++|*         GENERATE CODED MODE FLAG.
04875  M00S03993.copyb   +++|
04876  M00S03994.copyb   +++| VTY5     AX4    18
04877  M00S03995.copyb   +++|          SA6    MCC
04878  M00S03996.copyb   +++|          SB2    X4
04879  M00S03997.copyb   +++|          BX6    X6-X6
04880  M00S03998.copyb   +++|          EQ     B2,VTY7     IF BINARY MODE
04881  M00S03999.copyb   +++|          SX6    B1
04882  M00S04000.copyb   +++|          EQ     B3,B1,VTY6  IF S INPUT TAPE
04883  M00S04001.copyb   +++|          SX6    B1+1
04884  M00S04002.copyb   +++| VTY6     EQ     B2,B1,VTY7  IF CODED MODE
04885  M00S04003.copyb   +++|          SA1    A0+TRK      GET TRACK BITS
Line S04004 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04886  M01S04004.274l797 ---|          PL     X1,VTY7     IF 7-TRACK
04887  M01S04005.274l797 ---|          SX6    B0+
Line S00250 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
04888  M01S00250.274l797 +++|          LX1    59-58
04889  M01S00251.274l797 +++|          NG     X1,VTY7     IF 7-TRACK TAPE
04890  M01S00252.274l797 +++|          SX6    B0
04891  M00S04006.copyb   +++| VTY7     SA6    CM
04892  M00S04007.copyb   +++|          RJ     SFM         SET FILE MODE
04893  M00S04008.copyb   +++|
Line S04009 Modification History
M01 (Removed by) copyb5
Seq #  *Modification Id* Act 
----------------------------+
04894  M01S04009.copyb5  ---|*         CALCULATE NOISE SIZE AND VALIDATE NOISE SIZE FOR X AND SI-C
04895  M01S04010.copyb5  ---|*         FILE (REQUIRED NOISE SIZE OF 8 FOR 7-TRACK, 6 FOR 9-TRACK).
Line S00218 Modification History
M01 (Added by) v23l617
M02 (Removed by) copyb5
Seq #  *Modification Id* Act 
----------------------------+
04896  M02S00218.copyb5  ---|*         CALCULATE NOISE SIZE FOR E/B TAPE AND SET TO THROW AWAY BLOCKS
04897  M02S00219.copyb5  ---|*         LESS THAN NS PARAMETER WHICH USER SPECIFIED.
Line S00181 Modification History
M01 (Added by) copyb5
Seq #  *Modification Id* Act 
----------------------------+
04898  M01S00181.copyb5  +++|*         CALCULATE NOISE SIZE AND VALIDATE NOISE FOR X, SI-CODED, AND
04899  M01S00182.copyb5  +++|*         I FILES (REQUIRED NOISE SIZE OF EIGHT FOR 7-TRACK, SIX FOR
04900  M01S00183.copyb5  +++|*         9-TRACK).  CALCULATE NOISE SIZE FOR E/B TAPE AND SET TO THROW
04901  M01S00184.copyb5  +++|*         AWAY BLOCKS LESS THAN THE NS PARAMETER WHICH THE USER
04902  M01S00185.copyb5  +++|*         SPECIFIED.
04903  M00S04011.copyb   +++|
04904  M00S04012.copyb   +++|          RJ     CNS         CALCULATE NOISE SIZE ON S TAPE
Line S04013 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04905  M01S04013.v23l617 ---|          PL     B6,VTY8     IF NOT X OR SI-C CONVERSION
04906  M01S04014.v23l617 ---|          SA1    A0+
04907  M01S04015.v23l617 ---|          SX6    X6-48
04908  M01S04016.v23l617 ---|          SB5    PERG        * INVALID NOISE SIZE ON LFN.*
04909  M01S04017.v23l617 ---|          NZ     X6,PER      IF INVALID NOISE SIZE
04910  M01S04018.v23l617 ---|          EQ     VTYX        RETURN
Line S00220 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04911  M01S00220.v23l617 +++|          SA2    NS          CHECK NOISE SIZE PARAMETER
Line S00221 Modification History
M01 (Added by) v23l617
M02 (Removed by) copyb5
Seq #  *Modification Id* Act 
----------------------------+
04912  M02S00221.copyb5  ---|          PL     B6,VTY7.2   IF NOT X OR SI-C CONVERSION
Line S00186 Modification History
M01 (Added by) copyb5
Seq #  *Modification Id* Act 
----------------------------+
04913  M01S00186.copyb5  +++|          PL     B6,VTY7.2   IF NOT X, SI-C, OR I CONVERSION
Line S00222 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
04914  M01S00222.v23l617 +++|          NZ     X2,PER2     IF NOISE SIZE PARAMETER SPECIFIED
04915  M01S00223.v23l617 +++|          SA1    A0+
04916  M01S00224.v23l617 +++|          SX6    X6-48
04917  M01S00225.v23l617 +++|          SB5    PERG        * INCORRECT NOISE SIZE ON LFN.*
04918  M01S00226.v23l617 +++|          ZR     X6,VTYX     IF CORRECT NOISE SIZE
04919  M01S00227.v23l617 +++|          PL     X6,PER      IF INCORRECT NOISE SIZE
04920  M01S00228.v23l617 +++|          SA2    A0+TRK      GET TRACK BIT
04921  M01S00229.v23l617 +++|          SX6    8
04922  M01S00230.v23l617 +++|          PL     X2,VTY7.1   IF 7 TRACK
04923  M01S00231.v23l617 +++|          SX6    6
04924  M01S00232.v23l617 +++| VTY7.1   SA6    A0+NSZ      FORCE IT UP TO 48 BITS
04925  M01S00233.v23l617 +++|          RJ     CNS
04926  M01S00234.v23l617 +++|          SX6    B1+B1       SET FLAG FOR INSUFFICIENT NOISE SIZE
04927  M01S00235.v23l617 +++|          SA6    NSFG
04928  M01S00236.v23l617 +++|          EQ     VTYX        RETURN
04929  M01S00237.v23l617 +++|
04930  M01S00238.v23l617 +++| VTY7.2   SX3    6
04931  M01S00239.v23l617 +++|          IX1    X3*X2
04932  M01S00240.v23l617 +++|          ZR     X1,VTY8     IF NS PARAMETER NOT SPECIFIED
04933  M01S00241.v23l617 +++|          IX6    X6-X1
04934  M01S00242.v23l617 +++|          PL     X6,VTY8     IF NS PARAMETER .LE. INPUT TAPE NOISE SIZE
04935  M01S00243.v23l617 +++|          BX6    X2
04936  M01S00244.v23l617 +++|          SA6    A0+NSZ      THROW AWAY BLOCKS .LT. NS PARAMETER
04937  M01S00245.v23l617 +++|          RJ     CNS
04938  M01S00246.v23l617 +++|          SX6    B1+         SET FLAG FOR NOISE SIZE PROCESSING
04939  M01S00247.v23l617 +++|          SA6    NSFG
04940  M01S00248.v23l617 +++|          EQ     VTY8        DISABLE CONTROL WORD WRITE FOR E/B TO MS
04941  M00S04019.copyb   +++| TTCD     SPACE  4,10
04942  M00S04020.copyb   +++|**        TTCD - TABLE OF TCOPY DEFAULTS FOR CONVERSION TYPE.
04943  M00S04021.copyb   +++|*
04944  M00S04022.copyb   +++|*T        42/MODE, 18/CHCNT
Figure

0171829CHCNTMODE3059MODE

04945  M00S04023.copyb   +++|*         MODE   0=BINARY, 1=CODED, 2=CODED 7-TRACK, BINARY 9-TRACK
04946  M00S04024.copyb   +++|*         CHCNT  DEFAULT MAXIMUM CHARACTER COUNT
Line S00187 Modification History
M01 (Added by) copyb5
Seq #  *Modification Id* Act 
----------------------------+
04947  M01S00187.copyb5  +++|*
04948  M01S00188.copyb5  +++|*         NOTE - THIS TABLE IS BOTH POSITIVELY AND NEGATIVELY INDEXED.
04949  M00S04025.copyb   +++|
04950  M00S04026.copyb   +++|
Line S04027 Modification History
M01 (Removed by) copyb5
Seq #  *Modification Id* Act 
----------------------------+
04951  M01S04027.copyb5  ---| TTCD     BSS    0
Line S00189 Modification History
M01 (Added by) copyb5
Seq #  *Modification Id* Act 
----------------------------+
04952  M01S00189.copyb5  +++|          VFD    42/0,18/1001B*10  I
04953  M00S04028.copyb   +++|          VFD    42/2,18/200B*10   SI-C
04954  M00S04029.copyb   +++|          VFD    42/0,18/1000B*10  X
Line S04030 Modification History
M01 (Removed by) copyb5
Seq #  *Modification Id* Act 
----------------------------+
04955  M01S04030.copyb5  ---|          CON    0
Line S00190 Modification History
M01 (Added by) copyb5
Seq #  *Modification Id* Act 
----------------------------+
04956  M01S00190.copyb5  +++| TTCD     CON    0
04957  M00S04031.copyb   +++|          VFD    42/1,18/136       E
04958  M00S04032.copyb   +++|          VFD    42/1,18/150       B
04959  M00S04033.copyb   +++|          SPACE  4,10
04960  M00S04034.copyb   +++|**        PRESET DATA STORAGE.
04961  M00S04035.copyb   +++|
04962  M00S04036.copyb   +++|
04963  M00S04037.copyb   +++| BS       CON    0           BLOCK SIZE
04964  M00S04038.copyb   +++| CC       CON    0           CHARACTER COUNT
04965  M00S04039.copyb   +++| CF       CON    0           CONVERSION FORMAT
04966  M00S04040.copyb   +++| CM       CON    0           CODED MODE (-1=BOTH,0=NEITHER,1=1ST,2=2ND)
04967  M00S04041.copyb   +++| DCT      CON    1L1         DISPLAY CODE COPY COUNT
04968  M00S04042.copyb   +++| MAXFL    CON    0           CURRENT MAXIMUM FIELD LENGTH
04969  M00S04043.copyb   +++| MCC      CON    0           MAXIMUM CHARACTER COUNT
04970  M00S04044.copyb   +++| PO       CON    0           PROCESSING OPTIONS
04971  M00S04045.copyb   +++| STAT     VFD    30/-1,30/0  FIELD LENGTH STATUS WORD
04972  M00S04046.copyb   +++|
04973  M00S04047.copyb   +++|*         THE ORDER OF THE FOLLOWING MUST BE PRESERVED.
04974  M00S04048.copyb   +++|
04975  M00S04049.copyb   +++| WBL      CON    BUFL        WORKING BUFFER LENGTH
04976  M00S04050.copyb   +++| IBL      CON    FBUFL       INPUT BUFFER LENGTH
04977  M00S04051.copyb   +++| OBL      CON    FBUFL       OUTPUT BUFFER LENGTH
04978  M00S04052.copyb   +++|          SPACE  4,10
04979  M00S04053.copyb   +++|**        COMMON DECKS.
04980  M00S04054.copyb   +++|
04981  M00S04055.copyb   +++|
04982  M00S04056.copyb   +++|*CALL     COMCARM
04983  M00S04057.copyb   +++|*CALL     COMCCPA
04984  M00S04058.copyb   +++|*CALL     COMCDXB
04985  M00S04059.copyb   +++|*CALL     COMCLFM
04986  M00S04060.copyb   +++|*CALL     COMCPOP
04987  M00S04061.copyb   +++|*CALL     COMCUSB
04988  M00S04062.copyb   +++|          SPACE  4,10
04989  M00S04063.copyb   +++|**        PRESET BUFFERS.
04990  M00S04064.copyb   +++|
04991  M00S04065.copyb   +++|
04992  M00S04066.copyb   +++| PASB     EQU    *           POSITIONAL ARGUMENT STRING BUFFER
04993  M00S04067.copyb   +++|          ERRNG  RFL=-PASB-200  CHECK FOR BUFFER OVERFLOW FL
04994  M00S04068.copyb   +++|          SPACE  4,10
04995  M00S04069.copyb   +++|          END
cdc/nos2.source/opl.opl871/deck/copyb.003.txt ยท Last modified: by 127.0.0.1