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
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