User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:copyb

Deck COPYB

Library Member Format: MODIFY

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.copyb   +++|          IDENT  COPYB,FETS
00002  M00S00002.copyb   +++|          ABS
00003  M00S00003.copyb   +++|          ENTRY  COPY
00004  M00S00004.copyb   +++|          ENTRY  COPYBF
00005  M00S00005.copyb   +++|          ENTRY  COPYEI
00006  M00S00006.copyb   +++|          ENTRY  COPYBR
00007  M00S00007.copyb   +++|          ENTRY  COPYX
00008  M00S00008.copyb   +++|          ENTRY  TCOPY
Line S00001 Modification History
M01 (Added by) ns2402
Seq #  *Modification Id* Act 
----------------------------+
00009  M01S00001.ns2402  +++|          ENTRY  NPC=
00010  M00S00009.copyb   +++|          ENTRY  RFL=
00011  M00S00010.copyb   +++|          ENTRY  SSM=
00012  M00S00011.copyb   +++|          SYSCOM B1          DEFINE (B1) = 1
00013  M00S00012.copyb   +++|          TITLE  COPYB - BINARY FILE COPIES.
00014  M00S00013.copyb   +++|*COMMENT  COPYB - BINARY FILES COPIES.
Line S00014 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00015  M01S00014.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
Line S00001 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00016  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00017  M00S00015.copyb   +++|          SPACE  4,10
00018  M00S00016.copyb   +++|*****     COPYB - BINARY FILE COPIES.
00019  M00S00017.copyb   +++|*
00020  M00S00018.copyb   +++|*         G. R. MANSFIELD.   70/12/20.
00021  M00S00019.copyb   +++|*
00022  M00S00020.copyb   +++|*         J. C. BOHNHOFF.    73/03/01.
00023  M00S00021.copyb   +++|*         R. E. TATE.        73/04/03.
00024  M00S00022.copyb   +++|*         J. L. LARSON.      77/03/16.
00025  M00S00023.copyb   +++|*
00026  M00S00024.copyb   +++|*         THE COPYB DECK CONTAINS THE BINARY FILE AND RECORD COPY
00027  M00S00025.copyb   +++|*         UTILITIES, INCLUDING COPY, COPYBF, COPYEI, TCOPY, COPYBR,
00028  M00S00026.copyb   +++|*         AND COPYX.
00029  M00S00027.copyb   +++|          SPACE  4,10
00030  M00S00028.copyb   +++|***       THE COPY UTILITY COPIES DATA FROM ONE FILE TO ANOTHER UNTIL
00031  M00S00029.copyb   +++|*         THE SPECIFIED TERMINATION CONDITION IS MET.  THE FOLLOWING
00032  M00S00030.copyb   +++|*         TABLE DESCRIBES THE CAPABILITIES OF THE COPY UTILITY -
00033  M00S00031.copyb   +++|*
00034  M00S00032.copyb   +++|*                            OUTPUT MEDIA FORMAT
Line S00033 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00035  M01S00033.274l797 ---|*                +------+------+------+------+------+------+
00036  M01S00034.274l797 ---|*                +  MS  +  I   +  SI  +  S   +  L   +  F   +
00037  M01S00035.274l797 ---|*         +------+------+------+------+------+------+------+
00038  M01S00036.274l797 ---|*         +  MS  + YES* + YES* + YES* + YES  + YES  + NO   +
00039  M01S00037.274l797 ---|*         +------+------+------+------+------+------+------+
00040  M01S00038.274l797 ---|*         +  I   + YES* + YES* + YES* + YES  + YES  + NO   +
00041  M01S00039.274l797 ---|*  INPUT  +------+------+------+------+------+------+------+
00042  M01S00040.274l797 ---|*         +  SI  + YES* + YES* + YES* + YES  + YES  + NO   +
00043  M01S00041.274l797 ---|*  MEDIA  +------+------+------+------+------+------+------+
00044  M01S00042.274l797 ---|*         +  S   + YES  + YES  + YES  + YES* + YES  + NO   +
00045  M01S00043.274l797 ---|*  FORMAT +------+------+------+------+------+------+------+
00046  M01S00044.274l797 ---|*         +  L   + YES  + YES  + YES  + NO   + YES* + NO   +
00047  M01S00045.274l797 ---|*         +------+------+------+------+------+------+------+
00048  M01S00046.274l797 ---|*         +  F   + YES  + YES  + YES  + NO   + NO   + YES* +
00049  M01S00047.274l797 ---|*         +------+------+------+------+------+------+------+
Line S00001 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00050  M01S00001.274l797 +++|*                +------+------+------+------+------+------+------+
00051  M01S00002.274l797 +++|*                +  MS  +  I   +  SI  +  S   +  L   +  F   +  LI  +
00052  M01S00003.274l797 +++|*         +------+------+------+------+------+------+------+------+
00053  M01S00004.274l797 +++|*         +  MS  + YES* + YES* + YES* + YES  + YES  + NO   + YES* +
00054  M01S00005.274l797 +++|*         +------+------+------+------+------+------+------+------+
00055  M01S00006.274l797 +++|*         +  I   + YES* + YES* + YES* + YES  + YES  + NO   + YES* +
00056  M01S00007.274l797 +++|*  INPUT  +------+------+------+------+------+------+------+------+
00057  M01S00008.274l797 +++|*         +  SI  + YES* + YES* + YES* + YES  + YES  + NO   + YES* +
00058  M01S00009.274l797 +++|*  MEDIA  +------+------+------+------+------+------+------+------+
00059  M01S00010.274l797 +++|*         +  S   + YES  + YES  + YES  + YES* + YES  + NO   + YES  +
00060  M01S00011.274l797 +++|*  FORMAT +------+------+------+------+------+------+------+------+
00061  M01S00012.274l797 +++|*         +  L   + YES  + YES  + YES  + NO   + YES* + NO   + YES  +
00062  M01S00013.274l797 +++|*         +------+------+------+------+------+------+------+------+
00063  M01S00014.274l797 +++|*         +  F   + YES  + YES  + YES  + NO   + NO   + YES* + YES  +
00064  M01S00015.274l797 +++|*         +------+------+------+------+------+------+------+------+
00065  M01S00016.274l797 +++|*         +  LI  + YES* + YES* + YES* + YES  + YES  + NO   + YES* +
00066  M01S00017.274l797 +++|*         +------+------+------+------+------+------+------+------+
00067  M00S00048.copyb   +++|*
Line S00049 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00068  M01S00049.274l797 ---|*                MS REFERS TO MASS STORAGE, TERMINAL, OR UNIT RECORD
00069  M01S00050.274l797 ---|*                EQUIPMENT.  I, SI, S, L, AND F ARE TAPE FORMATS.
00070  M01S00051.274l797 ---|*                COPIES MARKED WITH (*) INDICATE VERIFY IS MEANINGFUL,
00071  M01S00052.274l797 ---|*                SINCE LOGICAL STRUCTURE OF FILES IS COMPATIBLE.
Line S00018 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00072  M01S00018.274l797 +++|*                MS REFERS TO MASS STORAGE, TERMINAL, OPTICAL DISK OR
00073  M01S00019.274l797 +++|*                UNIT RECORD EQUIPMENT.  I, SI, S, L, F AND LI REFER
00074  M01S00020.274l797 +++|*                TO TAPE FORMATS.  COPIES MARKED WITH (*) INDICATE
00075  M01S00021.274l797 +++|*                VERIFY IS MEANINGFUL, SINCE LOGICAL STRUCTURE OF
00076  M01S00022.274l797 +++|*                FILES IS COMPATIBLE.
00077  M00S00053.copyb   +++|*
00078  M00S00054.copyb   +++|*
00079  M00S00055.copyb   +++|*         COPY ( LFN1, LFN2, X, C, TC, COPYCNT, BSIZE, CHARCNT,
Line S00056 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00080  M01S00056.v23l617 ---|*                ERLIMIT, PO, LFN3 )
Line S00001 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00081  M01S00001.v23l617 +++|*                ERLIMIT, PO, LFN3, NSC )
00082  M00S00057.copyb   +++|*
00083  M00S00058.copyb   +++|*         COPY ( I=LFN1, O=LFN2, V=X, M=C, TC=TC, N=COPYCNT, BS=BSIZE,
Line S00059 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00084  M01S00059.v23l617 ---|*                CC=CHARCNT, EL=ERLIMIT, PO=PO, L=LFN3 )
Line S00002 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00085  M01S00002.v23l617 +++|*                CC=CHARCNT, EL=ERLIMIT, PO=PO, L=LFN3, NS=NSC )
00086  M00S00060.copyb   +++|*
00087  M00S00061.copyb   +++|*         LFN1     FILE TO COPY FROM.  DEFAULT = INPUT.
00088  M00S00062.copyb   +++|*
00089  M00S00063.copyb   +++|*         LFN2     FILE TO COPY TO.  DEFAULT = OUTPUT.
00090  M00S00064.copyb   +++|*                  IF LFN1 = LFN2, FILES ARE SKIPPED.
00091  M00S00065.copyb   +++|*
00092  M00S00066.copyb   +++|*         X        IF SPECIFIED (1 TO 7 ALPHANUMERIC CHARACTERS), FILES
00093  M00S00067.copyb   +++|*                  ARE REWOUND BEFORE COPY, AND REWOUND, VERIFIED, AND
00094  M00S00068.copyb   +++|*                  REWOUND AGAIN AFTER COPY.  DEFAULT = NO VERIFY.
00095  M00S00069.copyb   +++|*                  IF LFN1 = LFN2, FILE WILL BE REWOUND BEFORE
00096  M00S00070.copyb   +++|*                  SKIPPING, BUT VERIFY WILL NOT BE DONE.
00097  M00S00071.copyb   +++|*
00098  M00S00072.copyb   +++|*         C        CODED FILE MODE SELECTION -
00099  M00S00073.copyb   +++|*                  C1 = INPUT FILE ONLY, C2 = OUTPUT FILE ONLY,
00100  M00S00074.copyb   +++|*                  OTHER (1 TO 7 ALPHANUMERIC CHARACTERS) = BOTH FILES.
00101  M00S00075.copyb   +++|*                  APPLIES TO S, L, AND SI FORMAT TAPES.
00102  M00S00076.copyb   +++|*                  DEFAULT = BINARY MODE SELECTED ON BOTH FILES.
00103  M00S00077.copyb   +++|*
00104  M00S00078.copyb   +++|*         TC       COPY TERMINATION CONDITION.  DEFINES MEANING OF
00105  M00S00079.copyb   +++|*                  COPYCNT PARAMETER -
00106  M00S00080.copyb   +++|*                  F OR EOF = COPYCNT DEFINES NUMBER OF FILES TO COPY.
00107  M00S00081.copyb   +++|*                  I OR EOI = COPY TO EOI.  COPYCNT MEANINGLESS.
00108  M00S00082.copyb   +++|*                  D OR EOD = COPYCNT DEFINES NUMBER OF DOUBLE EOF,S
00109  M00S00083.copyb   +++|*                             TO COPY TO.
00110  M00S00084.copyb   +++|*                  DEFAULT = EOD.
00111  M00S00085.copyb   +++|*
00112  M00S00086.copyb   +++|*         COPYCNT  COPY COUNT, AS FURTHER DEFINED BY TC PARAMETER.
00113  M00S00087.copyb   +++|*                  DEFAULT = 1.
00114  M00S00088.copyb   +++|*
00115  M00S00089.copyb   +++|*         BSIZE    MAXIMUM BLOCK SIZE IN CM WORDS FOR S OR L TAPE.
00116  M00S00090.copyb   +++|*                  BSIZE CANNOT BE SPECIFIED TOGETHER WITH CHARCNT
00117  M00S00091.copyb   +++|*                  PARAMETER.  DEFAULT = 1000B FOR S TAPE, 2000B
00118  M00S00092.copyb   +++|*                  FOR L TAPE.
00119  M00S00093.copyb   +++|*
00120  M00S00094.copyb   +++|*         CHARCNT  MAXIMUM NUMBER OF CHARACTERS IN BLOCK FOR S OR L
00121  M00S00095.copyb   +++|*                  TAPE.  PRU SIZE AND UNUSED BIT COUNT ARE CALCULATED
00122  M00S00096.copyb   +++|*                  FROM CHARCNT, HOWEVER, UNUSED BIT COUNT IS USED
00123  M00S00097.copyb   +++|*                  ONLY WHEN WRITING A FULL BLOCK DURING GENERATION
Line S00098 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00124  M01S00098.274l797 ---|*                  OF AN S OR L TAPE FROM A MASS STORAGE, I OR
Line S00023 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00125  M01S00023.274l797 +++|*                  OF AN S OR L TAPE FROM A MASS STORAGE, I, LI OR
00126  M00S00099.copyb   +++|*                  SI-BINARY FILE.  CHARCNT CANNOT BE SPECIFIED
00127  M00S00100.copyb   +++|*                  TOGETHER WITH BSIZE PARAMETER.  NO DEFAULT
00128  M00S00101.copyb   +++|*                  (BSIZE DEFAULT USED).
00129  M00S00102.copyb   +++|*
00130  M00S00103.copyb   +++|*         ERLIMIT  ERROR LIMIT.  MAXIMUM NUMBER OF NON-FATAL TAPE
00131  M00S00104.copyb   +++|*                  ERRORS TO ALLOW BEFORE ABORT.  INCLUDES *PARITY*
00132  M00S00105.copyb   +++|*                  AND *BLOCK TOO LARGE* ERRORS, AS RETURNED BY THE
00133  M00S00106.copyb   +++|*                  SYSTEM AFTER RECOVERY ATTEMPTS FAILED.
00134  M00S00107.copyb   +++|*                  IF EL=U IS SPECIFIED, UNLIMITED ERROR PROCESSING
00135  M00S00108.copyb   +++|*                  IS ALLOWED.  ERROR LIMIT DOES NOT APPLY (IGNORED)
00136  M00S00109.copyb   +++|*                  IF CONTROL WORDS ARE NOT SUPPORTED ON THE INPUT
00137  M00S00110.copyb   +++|*                  DEVICE TYPE (TERMINAL AND UNIT RECORD EQUIPMENT),
00138  M00S00111.copyb   +++|*                  IN WHICH CASE, ANY ERROR WILL ABORT THE JOB.
00139  M00S00112.copyb   +++|*                  DEFAULT = 0.
00140  M00S00113.copyb   +++|*
00141  M00S00114.copyb   +++|*         PO       ONE OR MORE OF THE FOLLOWING PROCESSING OPTIONS -
00142  M00S00115.copyb   +++|*
00143  M00S00116.copyb   +++|*                  E   INPUT BLOCKS WITH *PARITY* OR *BLOCK TOO
00144  M00S00117.copyb   +++|*                      LARGE* ERRORS ARE TO BE PROCESSED.  DEFAULT =
00145  M00S00118.copyb   +++|*                      ERROR BLOCKS ARE SKIPPED.
00146  M00S00119.copyb   +++|*
Line S00120 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00147  M01S00120.274l797 ---|*                  D   NOISE BLOCKS GENERATED DURING MASS STORAGE, I OR
00148  M01S00121.274l797 ---|*                      SI COPY TO S OR L TAPE ARE DELETED.
Line S00024 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00149  M01S00024.274l797 +++|*                  D   NOISE BLOCKS GENERATED DURING MASS STORAGE, I,
00150  M01S00025.274l797 +++|*                      LI OR SI COPY TO S OR L TAPE ARE DELETED.
00151  M00S00122.copyb   +++|*                      DEFAULT = NOISE BLOCKS ARE PADDED TO NOISE SIZE
00152  M00S00123.copyb   +++|*                      WITH BINARY ZEROS IF BINARY S OR L TAPE OR WITH
00153  M00S00124.copyb   +++|*                      BLANKS IF CODED MODE.  PO=D ALLOWED ONLY ON
Line S00125 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00154  M01S00125.274l797 ---|*                      COPY FROM MASS STORAGE, I OR SI-BINARY TAPE
Line S00026 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00155  M01S00026.274l797 +++|*                      COPY FROM MASS STORAGE, I, LI OR SI-BINARY TAPE
00156  M00S00126.copyb   +++|*                      TO S OR L TAPE.
00157  M00S00127.copyb   +++|*
Line S00128 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00158  M01S00128.274l797 ---|*                  R   RECORD SPLITTING ALLOWED DURING GENERATION OF
00159  M01S00129.274l797 ---|*                      S OR L TAPE FROM MASS STORAGE, I OR SI-B FILE.
00160  M01S00130.274l797 ---|*                      INPUT RECORDS GREATER THAN OUTPUT FILE PRU SIZE
00161  M01S00131.274l797 ---|*                      WILL BE SPLIT INTO MULTIPLE BLOCKS ON OUTPUT.
00162  M01S00132.274l797 ---|*                      DEFAULT = NO RECORD SPLITTING ALLOWED, ABORT IF
00163  M01S00133.274l797 ---|*                      RECORD TOO LARGE ENCOUNTERED.  ALLOWED ONLY ON
00164  M01S00134.274l797 ---|*                      COPY FROM MASS STORAGE, I OR SI-BINARY TAPE TO
00165  M01S00135.274l797 ---|*                      S OR L TAPE.
Line S00027 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00166  M01S00027.274l797 +++|*                  R   RECORD SPLITTING ALLOWED DURING GENERATION OF S
00167  M01S00028.274l797 +++|*                      OR L TAPE FROM MASS STORAGE, I, LI OR SI-BINARY
00168  M01S00029.274l797 +++|*                      FILE.  INPUT RECORDS GREATER THAN OUTPUT FILE
00169  M01S00030.274l797 +++|*                      PRU SIZE WILL BE SPLIT INTO MULTIPLE BLOCKS ON
00170  M01S00031.274l797 +++|*                      OUTPUT.  DEFAULT = NO RECORD SPLITTING ALLOWED,
00171  M01S00032.274l797 +++|*                      ABORT IF RECORD TOO LARGE ENCOUNTERED.  ALLOWED
00172  M01S00033.274l797 +++|*                      ONLY ON COPY FROM MASS STORAGE, I, LI OR
00173  M01S00034.274l797 +++|*                      SI-BINARY TAPE TO S OR L TAPE.
00174  M00S00136.copyb   +++|*
00175  M00S00137.copyb   +++|*                  M   COPY FILES AS SPECIFIED BY COPY TERMINATION
00176  M00S00138.copyb   +++|*                      CONDITION, ELIMINATING EOF ON OUTPUT.  PRIMARILY
00177  M00S00139.copyb   +++|*                      PROVIDED FOR USE WITH LABELED S AND L OUTPUT
00178  M00S00140.copyb   +++|*                      TAPES, SINCE TAPE MARK HAS DOUBLE MEANING
00179  M00S00141.copyb   +++|*                      (EOF AND LABEL GROUP DELIMITER).
00180  M00S00142.copyb   +++|*                      DEFAULT = FILES ARE COPIED WITH EOF SEPARATORS.
00181  M00S00143.copyb   +++|*
00182  M00S00144.copyb   +++|*         LFN3     ALTERNATE OUTPUT FILE TO RECEIVE PARITY ERROR
00183  M00S00145.copyb   +++|*                  MESSAGES WHEN NON-ZERO ERLIMIT SPECIFIED,  IN
00184  M00S00146.copyb   +++|*                  WHICH CASE, FILE NAME LFN3 CANNOT BE THE SAME AS
00185  M00S00147.copyb   +++|*                  LFN1 OR LFN2.  DEFAULT = OUTPUT.
Line S00003 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00186  M01S00003.v23l617 +++|*
00187  M01S00004.v23l617 +++|*         NSC      NOISE SIZE. ANY INPUT BLOCK CONTAINING FEWER THAN
00188  M01S00005.v23l617 +++|*                  NSC CHARACTERS IS CONSIDERED NOISE AND IS DISCARDED.
00189  M01S00006.v23l617 +++|*                  ALLOWED ONLY WHEN INPUT TAPE IS S, L, OR F FORMAT.
00190  M01S00007.v23l617 +++|*                  MAXIMUM VALUE IS 41 CHARACTERS. IF NS=0 IS SPECIFIED,
00191  M01S00008.v23l617 +++|*                  THE DEFAULT OF 18 CHARACTERS IS USED.
00192  M01S00009.v23l617 +++|*
00193  M00S00148.copyb   +++|*
Line S00149 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00194  M01S00149.v23l617 ---|*         THE PARAMETERS ON THE COPY CONTROL CARD ARE BOTH POSITIONAL
Line S00010 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00195  M01S00010.v23l617 +++|*         THE PARAMETERS ON THE COPY COMMAND ARE BOTH POSITIONAL
00196  M00S00150.copyb   +++|*         AND EQUIVALENCED.  ANY COMBINATION OF POSITIONAL AND
00197  M00S00151.copyb   +++|*         EQUIVALENCED ARGUMENTS MAY BE SPECIFIED, HOWEVER, POSITIONAL
00198  M00S00152.copyb   +++|*         ARGUMENTS ARE INTERPRETTED SOLELY ON THE NUMBER OF PRECEDING
00199  M00S00153.copyb   +++|*         PARAMETERS.  ALL PARAMETERS ARE OPTIONAL.  UNLESS EXPLICITLY
00200  M00S00154.copyb   +++|*         STATED OTHERWISE IN THE PARAMETER DESCRIPTION, SPECIFICATION
00201  M00S00155.copyb   +++|*         OF NON-APPLICABLE PARAMETERS FOR A PARTICULAR TYPE OF COPY
Line S00156 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00202  M01S00156.v23l617 ---|*         IS ILLEGAL.
Line S00011 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00203  M01S00011.v23l617 +++|*         IS INCORRECT.
00204  M00S00157.copyb   +++|*
00205  M00S00158.copyb   +++|*         FOR IDENTICAL COPIES (MASS STORAGE TO MASS STORAGE, I TO I,
Line S00159 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00206  M01S00159.274l797 ---|*         SI TO SI, S TO S, L TO L, AND F TO F TAPE COPIES) AND FOR
00207  M01S00160.274l797 ---|*         INTERCHANGEABLE COPIES (I TO SI-BINARY, SI-BINARY TO I, AND
00208  M01S00161.274l797 ---|*         S TO L), WHERE DATA MANIPULATION IS NOT REQUIRED, A SINGLE
00209  M01S00162.274l797 ---|*         BUFFER COPY IS USED.  ALL OTHER TYPES OF COPIES REQUIRE
00210  M01S00163.274l797 ---|*         TWO I/O BUFFERS AND A WORKING STORAGE BUFFER.
00211  M01S00164.274l797 ---|*         COPY WILL RFL UP FOR ADDITIONAL FIELD LENGTH NEEDED TO
00212  M01S00165.274l797 ---|*         PROCESS L AND F TAPE COPIES.
Line S00035 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00213  M01S00035.274l797 +++|*         SI TO SI, S TO S, L TO L, F TO F, AND LI TO LI TAPE COPIES)
00214  M01S00036.274l797 +++|*         AND FOR INTERCHANGEABLE COPIES (I TO SI-BINARY, SI-BINARY TO
00215  M01S00037.274l797 +++|*         I, AND S TO L), WHERE DATA MANIPULATION IS NOT REQUIRED, A
00216  M01S00038.274l797 +++|*         SINGLE BUFFER COPY IS USED.  ALL OTHER TYPES OF COPIES
00217  M01S00039.274l797 +++|*         REQUIRE TWO I/O BUFFERS AND A WORKING STORAGE BUFFER.  COPY
00218  M01S00040.274l797 +++|*         WILL RFL UP FOR ADDITIONAL FIELD LENGTH NEEDED TO PROCESS L
00219  M01S00041.274l797 +++|*         AND F TAPE COPIES.
00220  M00S00166.copyb   +++|*
00221  M00S00167.copyb   +++|*         THE DATA COPY BEGINS AT THE CURRENT POSITION OF LFN1 AND
00222  M00S00168.copyb   +++|*         LFN2, UNLESS THE VERIFY OPTION IS SPECIFIED, AND CONTINUES
00223  M00S00169.copyb   +++|*         UNTIL THE COPY TERMINATION CONDITION IS MET OR EOI IS
00224  M00S00170.copyb   +++|*         ENCOUNTERED.  IF LFN1 = LFN2, FILES ARE SKIPPED.  IF PO=M
00225  M00S00171.copyb   +++|*         OPTION IS SELECTED, CORRESPONDING EOF,S ARE NOT GENERATED
00226  M00S00172.copyb   +++|*         ON LFN2.  WHEN THE COPY IS TERMINATED BY A DOUBLE EOF (FOR
00227  M00S00173.copyb   +++|*         TC=EOD OPTION), THE SECOND EOF IS NOT TRANSFERRED TO LFN2.
00228  M00S00174.copyb   +++|*         FOR A COPY WITH A FILE COUNT SPECIFIED (TC=EOF), IF EOI IS
00229  M00S00175.copyb   +++|*         ENCOUNTERED ON LFN1 BEFORE THE FILE COUNT IS SATISFIED, AN
00230  M00S00176.copyb   +++|*         ADDITIONAL EOF WILL BE GENERATED ON LFN2 IF DATA OR RECORDS
00231  M00S00177.copyb   +++|*         HAVE BEEN TRANSFERRED SINCE THE PREVIOUS EOF WAS WRITTEN.
00232  M00S00178.copyb   +++|          SPACE  4,10
00233  M00S00179.copyb   +++|***       THE COPYBF UTILITY COPIES A SPECIFIED NUMBER OF FILES FROM
00234  M00S00180.copyb   +++|*         ONE FILE TO ANOTHER.
00235  M00S00181.copyb   +++|*
00236  M00S00182.copyb   +++|*
00237  M00S00183.copyb   +++|*         COPYBF ( LFN1, LFN2, N, C )
00238  M00S00184.copyb   +++|*
00239  M00S00185.copyb   +++|*         LFN1     FILE TO COPY FROM.  DEFAULT = INPUT.
00240  M00S00186.copyb   +++|*
00241  M00S00187.copyb   +++|*         LFN2     FILE TO COPY TO.  DEFAULT = OUTPUT.
00242  M00S00188.copyb   +++|*                  IF LFN1 = LFN2, FILES ARE SKIPPED.
00243  M00S00189.copyb   +++|*
00244  M00S00190.copyb   +++|*         N        NUMBER OF FILES TO COPY.  DEFAULT = 1.
00245  M00S00191.copyb   +++|*
00246  M00S00192.copyb   +++|*         C        IF SPECIFIED (1 TO 7 ALPHANUMERIC CHARACTERS),
00247  M00S00193.copyb   +++|*                  CODED MODE SET ON BOTH FILES.
00248  M00S00194.copyb   +++|*                  APPLIES TO S, L, AND SI FORMAT TAPES.
00249  M00S00195.copyb   +++|*                  DEFAULT = BINARY MODE SELECTED ON BOTH FILES.
00250  M00S00196.copyb   +++|*
00251  M00S00197.copyb   +++|*         THE DATA COPY BEGINS AT THE CURRENT POSITION OF LFN1 AND LFN2
00252  M00S00198.copyb   +++|*         AND CONTINUES UNTIL THE SPECIFIED NUMBER OF FILES ARE COPIED
00253  M00S00199.copyb   +++|*         OR EOI IS ENCOUNTERED.  IF LFN1 = LFN2, FILES ARE SKIPPED.
00254  M00S00200.copyb   +++|*         IF EOI IS ENCOUNTERED ON LFN1 BEFORE THE FILE COUNT IS
00255  M00S00201.copyb   +++|*         SATISFIED, AN ADDITIONAL EOF WILL BE GENERATED ON LFN2 IF
00256  M00S00202.copyb   +++|*         DATA OR RECORDS HAVE BEEN TRANSFERRED SINCE THE PREVIOUS
00257  M00S00203.copyb   +++|*         EOF WAS WRITTEN.
00258  M00S00204.copyb   +++|          SPACE  4,10
00259  M00S00205.copyb   +++|***       THE COPYEI UTILITY COPIES ONE FILE TO ANOTHER UNTIL END
00260  M00S00206.copyb   +++|*         OF INFORMATION IS ENCOUNTERED.
00261  M00S00207.copyb   +++|*
00262  M00S00208.copyb   +++|*
00263  M00S00209.copyb   +++|*         COPYEI ( LFN1, LFN2, V, C )
00264  M00S00210.copyb   +++|*
00265  M00S00211.copyb   +++|*         LFN1     FILE TO COPY FROM.  DEFAULT = INPUT.
00266  M00S00212.copyb   +++|*
00267  M00S00213.copyb   +++|*         LFN2     FILE TO COPY TO.  DEFAULT = OUTPUT.
00268  M00S00214.copyb   +++|*                  IF LFN1 = LFN2, THE FILE IS SKIPPED TO EOI.
00269  M00S00215.copyb   +++|*
00270  M00S00216.copyb   +++|*         V        IF SPECIFIED (1 TO 7 ALPHANUMERIC CHARACTERS), FILES
00271  M00S00217.copyb   +++|*                  ARE REWOUND BEFORE COPY, AND REWOUND, VERIFIED, AND
00272  M00S00218.copyb   +++|*                  REWOUND AGAIN AFTER COPY.  DEFAULT = NO VERIFY.
00273  M00S00219.copyb   +++|*                  IF LFN1 = LFN2, FILE WILL BE REWOUND BEFORE
00274  M00S00220.copyb   +++|*                  SKIPPING, BUT VERIFY WILL NOT BE DONE.
00275  M00S00221.copyb   +++|*
00276  M00S00222.copyb   +++|*         C        IF SPECIFIED (1 TO 7 ALPHANUMERIC CHARACTERS),
00277  M00S00223.copyb   +++|*                  CODED MODE SET ON BOTH FILES.
00278  M00S00224.copyb   +++|*                  APPLIES TO S, L, AND SI FORMAT TAPES.
00279  M00S00225.copyb   +++|*                  DEFAULT = BINARY MODE SELECTED ON BOTH FILES.
00280  M00S00226.copyb   +++|*
00281  M00S00227.copyb   +++|*         THE DATA COPY BEGINS AT THE CURRENT POSITION OF LFN1 AND
00282  M00S00228.copyb   +++|*         LFN2, UNLESS THE VERIFY OPTION IS SELECTED, AND CONTINUES
00283  M00S00229.copyb   +++|*         UNTIL EOI IS ENCOUNTERED.  IF LFN1 = LFN2, THE FILE IS
00284  M00S00230.copyb   +++|*         SKIPPED TO EOI.
00285  M00S00231.copyb   +++|          SPACE  4,10
00286  M00S00232.copyb   +++|***       THE COPYBR UTILITY COPIES A SPECIFIED NUMBER OF RECORDS FROM
00287  M00S00233.copyb   +++|*         ONE FILE TO ANOTHER.
00288  M00S00234.copyb   +++|*
00289  M00S00235.copyb   +++|*
00290  M00S00236.copyb   +++|*         COPYBR ( LFN1, LFN2, N, C )
00291  M00S00237.copyb   +++|*
00292  M00S00238.copyb   +++|*         LFN1     FILE TO COPY FROM.  DEFAULT = INPUT.
00293  M00S00239.copyb   +++|*
00294  M00S00240.copyb   +++|*         LFN2     FILE TO COPY TO.  DEFAULT = OUTPUT.
00295  M00S00241.copyb   +++|*                  IF LFN1 = LFN2, RECORDS ARE SKIPPED.
00296  M00S00242.copyb   +++|*
00297  M00S00243.copyb   +++|*         N        NUMBER OF RECORDS TO COPY.  DEFAULT = 1.
00298  M00S00244.copyb   +++|*                  EACH EOF IS COUNTED AS AN ADDITIONAL RECORD.
00299  M00S00245.copyb   +++|*
00300  M00S00246.copyb   +++|*         C        IF SPECIFIED (1 TO 7 ALPHANUMERIC CHARACTERS),
00301  M00S00247.copyb   +++|*                  CODED MODE SET ON BOTH FILES.
00302  M00S00248.copyb   +++|*                  APPLIES TO S, L, AND SI FORMAT TAPES.
00303  M00S00249.copyb   +++|*                  DEFAULT = BINARY MODE SELECTED ON BOTH FILES.
00304  M00S00250.copyb   +++|*
00305  M00S00251.copyb   +++|*         THE DATA COPY BEGINS AT THE CURRENT POSITION OF LFN1 AND LFN2
00306  M00S00252.copyb   +++|*         AND CONTINUES UNTIL THE SPECIFIED NUMBER OF RECORDS ARE
00307  M00S00253.copyb   +++|*         COPIED OR EOI IS ENCOUNTERED.  IF LFN1 = LFN2, RECORDS ARE
00308  M00S00254.copyb   +++|*         SKIPPED.  IF EOI IS ENCOUNTERED ON LFN1 BEFORE THE RECORD
00309  M00S00255.copyb   +++|*         COUNT IS SATISFIED, AN ADDITIONAL EOR WILL BE GENERATED
00310  M00S00256.copyb   +++|*         ON LFN2 IF ANY DATA HAS BEEN TRANSFERRED SINCE THE PREVIOUS
00311  M00S00257.copyb   +++|*         EOR/EOF WAS WRITTEN.
00312  M00S00258.copyb   +++|          SPACE  4,10
00313  M00S00259.copyb   +++|***       THE COPYX UTILITY COPIES LOGICAL RECORDS FROM ONE FILE TO
00314  M00S00260.copyb   +++|*         ANOTHER UNTIL THE SPECIFIED TERMINATION CONDITION IS MET.
00315  M00S00261.copyb   +++|*
00316  M00S00262.copyb   +++|*
00317  M00S00263.copyb   +++|*         COPYX ( LFN1, LFN2, TERM, BKSP, C )
00318  M00S00264.copyb   +++|*
00319  M00S00265.copyb   +++|*         COPYX ( LFN1, LFN2, TYPE / NAME, BKSP, C )
00320  M00S00266.copyb   +++|*
00321  M00S00267.copyb   +++|*         LFN1     FILE TO COPY FROM.  DEFAULT = INPUT.
00322  M00S00268.copyb   +++|*
00323  M00S00269.copyb   +++|*         LFN2     FILE TO COPY TO.  DEFAULT = OUTPUT.
00324  M00S00270.copyb   +++|*                  IF LFN1 = LFN2, RECORDS ARE SKIPPED.
00325  M00S00271.copyb   +++|*
00326  M00S00272.copyb   +++|*         TERM     TERMINATION CONDITION.  DEFAULT = 1.
00327  M00S00273.copyb   +++|*                  *00* = COPY TO ZERO RECORD.
00328  M00S00274.copyb   +++|*                  N = NUMBER OF RECORDS TO COPY.
00329  M00S00275.copyb   +++|*                  NAME = NAME OF LAST RECORD TO COPY.
00330  M00S00276.copyb   +++|*
00331  M00S00277.copyb   +++|*         TYPE     MNEMONIC FOR RECORD TYPE.
00332  M00S00278.copyb   +++|*                  *ABS* = MULTIPLE ENTRY POINT OVERLAY
00333  M00S00279.copyb   +++|*                  *CAP* = FAST DYNAMIC LOAD CAPSULE
00334  M00S00280.copyb   +++|*                  *OPL* = MODIFY OLD PROGRAM LIBRARY DECK
00335  M00S00281.copyb   +++|*                  *OPLC* = MODIFY OLD PROGRAM LIBRARY COMMON DECK
00336  M00S00282.copyb   +++|*                  *OPLD* = MODIFY OLD PROGRAM LIBRARY DIRECTORY
00337  M00S00283.copyb   +++|*                  *OVL* = CENTRAL PROCESSOR OVERLAY
00338  M00S00284.copyb   +++|*                  *PP* = 6000 SERIES PERIPHERAL PROCESSOR PROGRAM
Line S00001 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00339  M01S00001.251l664 +++|*                  *PPL* = 16-BIT PERIPHERAL PROCESSOR PROGRAM
00340  M00S00285.copyb   +++|*                  *PPU* = 7600 PERIPHERAL PROCESSOR PROGRAM
00341  M00S00286.copyb   +++|*                  *PROC* = PROCEDURE TYPE RECORD
00342  M00S00287.copyb   +++|*                  *REL* = RELOCATABLE CENTRAL PROCESSOR PROGRAM
00343  M00S00288.copyb   +++|*                  *TEXT* = UNRECOGNIZABLE AS A PROGRAM
00344  M00S00289.copyb   +++|*                  *ULIB* = USER LIBRARY PROGRAM
00345  M00S00290.copyb   +++|*
00346  M00S00291.copyb   +++|*         NAME     RECORD NAME.
00347  M00S00292.copyb   +++|*
00348  M00S00293.copyb   +++|*         BKSP     BACKSPACE CONTROL.  DEFAULT = 0.
00349  M00S00294.copyb   +++|*                  *0* = NO BACKSPACE
00350  M00S00295.copyb   +++|*                  *1* = BACKSPACE LFN1 ONLY
00351  M00S00296.copyb   +++|*                  *2* = BACKSPACE LFN2 ONLY
00352  M00S00297.copyb   +++|*                  *3* = BACKSPACE BOTH FILES
00353  M00S00298.copyb   +++|*
00354  M00S00299.copyb   +++|*         C        IF SPECIFIED (1 TO 7 ALPHANUMERIC CHARACTERS),
00355  M00S00300.copyb   +++|*                  CODED MODE SET ON BOTH FILES.
00356  M00S00301.copyb   +++|*                  APPLIES TO S, L, AND SI FORMAT TAPES.
00357  M00S00302.copyb   +++|*                  DEFAULT = BINARY MODE SELECTED ON BOTH FILES.
00358  M00S00303.copyb   +++|*
00359  M00S00304.copyb   +++|*         THE DATA COPY BEGINS AT THE CURRENT POSITION OF LFN1 AND LFN2
00360  M00S00305.copyb   +++|*         AND CONTINUES UNTIL THE SPECIFIED TERMINATION CONDITION IS
00361  M00S00306.copyb   +++|*         MET OR EOF OR EOI IS ENCOUNTERED.  IF LFN1 = LFN2, RECORDS
00362  M00S00307.copyb   +++|*         ARE SKIPPED.  IF EOI IS ENCOUNTERED ON LFN1 BEFORE THE
00363  M00S00308.copyb   +++|*         TERMINATION CONDITION IS SATISFIED, AN ADDITIONAL EOR WILL
00364  M00S00309.copyb   +++|*         BE GENERATED ON LFN2 IF ANY DATA HAS BEEN TRANSFERRED SINCE
00365  M00S00310.copyb   +++|*         THE PREVIOUS EOR WAS WRITTEN.
00366  M00S00311.copyb   +++|          SPACE  4,10
00367  M00S00312.copyb   +++|***       THE TCOPY UTILITY PROVIDES CONVERSION SUPPORT FOR E, B,
00368  M00S00313.copyb   +++|*         X, AND SI-CODED FORMAT TAPES.  TAPES WRITTEN IN THESE
00369  M00S00314.copyb   +++|*         FORMATS SHOULD BE ASSIGNED IN S (STRANGER TAPE) FORMAT.
00370  M00S00315.copyb   +++|*         TCOPY WILL CONVERT THE DATA RECEIVED FROM THE S FORMAT
00371  M00S00316.copyb   +++|*         DRIVER AS NECESSARY TO MATCH THE SPECIFIED FORMAT
Line S00317 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00372  M01S00317.v23l617 ---|*         (PARAMETER ON TCOPY CONTROL CARD) AND COPY IT TO A MASS
Line S00012 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00373  M01S00012.v23l617 +++|*         (PARAMETER ON TCOPY COMMAND) AND COPY IT TO A MASS
Line S00318 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00374  M01S00318.274l797 ---|*         STORAGE FILE OR ITS EQUIVALENT (I OR SI-BINARY TAPE).
Line S00042 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00375  M01S00042.274l797 +++|*         STORAGE FILE OR ITS EQUIVALENT (I, LI OR SI-BINARY TAPE).
00376  M00S00319.copyb   +++|*         TCOPY ALSO PROVIDES THE CAPABILITY OF GENERATING E AND B
Line S00320 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00377  M01S00320.274l797 ---|*         TAPES, VIA S FORMAT, FROM A MASS STORAGE, I OR SI-BINARY
Line S00043 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00378  M01S00043.274l797 +++|*         TAPES, VIA S FORMAT, FROM A MASS STORAGE, I, LI OR SI-BINARY
00379  M00S00321.copyb   +++|*         FILE.
00380  M00S00322.copyb   +++|*
00381  M00S00323.copyb   +++|*
00382  M00S00324.copyb   +++|*         TCOPY ( LFN1, LFN2, FORMAT, TC, COPYCNT, CHARCNT, ERLIMIT,
Line S00325 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00383  M01S00325.v23l617 ---|*                PO, LFN3 )
Line S00013 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00384  M01S00013.v23l617 +++|*                PO, LFN3, NSC )
00385  M00S00326.copyb   +++|*
00386  M00S00327.copyb   +++|*         TCOPY ( I=LFN1, O=LFN2, F=FORMAT, TC=TC, N=COPYCNT,
Line S00328 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00387  M01S00328.v23l617 ---|*                CC=CHARCNT, EL=ERLIMIT, PO=PO, L=LFN3 )
Line S00014 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00388  M01S00014.v23l617 +++|*                CC=CHARCNT, EL=ERLIMIT, PO=PO, L=LFN3, NS=NSC )
00389  M00S00329.copyb   +++|*
00390  M00S00330.copyb   +++|*         LFN1     FILE TO COPY FROM.  DEFAULT = INPUT.
00391  M00S00331.copyb   +++|*
00392  M00S00332.copyb   +++|*         LFN2     FILE TO COPY TO.  DEFAULT = OUTPUT.
00393  M00S00333.copyb   +++|*                  IF LFN1 = LFN2, FILES ARE SKIPPED.
00394  M00S00334.copyb   +++|*
00395  M00S00335.copyb   +++|*         FORMAT   OBSOLETE TAPE FORMAT SPECIFYING THE TYPE OF
00396  M00S00336.copyb   +++|*                  CONVERSION FOR THE COPY.  DEFAULT = X.
00397  M00S00337.copyb   +++|*
Line S00338 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00398  M01S00338.274l797 ---|*                  E   COPY E FORMAT TAPE TO MASS STORAGE, I OR
Line S00044 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00399  M01S00044.274l797 +++|*                  E   COPY E FORMAT TAPE TO MASS STORAGE, I, LI OR
00400  M00S00339.copyb   +++|*                      SI-BINARY FILE, OR GENERATE NEW E TAPE FROM
Line S00340 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00401  M01S00340.274l797 ---|*                      MASS STORAGE, I OR SI-BINARY FILE.  THE E TAPE
00402  M01S00341.274l797 ---|*                      MUST BE UNLABELED AND ASSIGNED AS S FORMAT.
Line S00045 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00403  M01S00045.274l797 +++|*                      MASS STORAGE, I, LI OR SI-BINARY FILE.  THE E
00404  M01S00046.274l797 +++|*                      TAPE MUST BE UNLABELED AND ASSIGNED AS S FORMAT.
00405  M00S00342.copyb   +++|*
Line S00343 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00406  M01S00343.274l797 ---|*                  B   COPY B FORMAT TAPE TO MASS STORAGE, I OR
Line S00047 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00407  M01S00047.274l797 +++|*                  B   COPY B FORMAT TAPE TO MASS STORAGE, I, LI OR
00408  M00S00344.copyb   +++|*                      SI-BINARY FILE OR GENERATE A NEW B TAPE FROM
Line S00345 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00409  M01S00345.274l797 ---|*                      A MASS STORAGE, I OR SI-BINARY FILE.
Line S00048 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00410  M01S00048.274l797 +++|*                      A MASS STORAGE, I, LI OR SI-BINARY FILE.
00411  M00S00346.copyb   +++|*                      THE B TAPE MUST BE UNLABELED AND ASSIGNED AS
00412  M00S00347.copyb   +++|*                      S FORMAT.
00413  M00S00348.copyb   +++|*
Line S00349 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00414  M01S00349.274l797 ---|*                  X   COPY X FORMAT TAPE TO MASS STORAGE, I OR
Line S00049 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00415  M01S00049.274l797 +++|*                  X   COPY X FORMAT TAPE TO MASS STORAGE, I, LI OR
00416  M00S00350.copyb   +++|*                      SI-BINARY FILE.  THE X TAPE MUST BE UNLABELED
00417  M00S00351.copyb   +++|*                      AND ASSIGNED AS S FORMAT.
00418  M00S00352.copyb   +++|*
00419  M00S00353.copyb   +++|*                  SI  COPY SI-CODED FORMAT TAPE TO MASS STORAGE,
Line S00354 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00420  M01S00354.274l797 ---|*                      I OR SI-BINARY FILE.  THE SI-CODED TAPE MUST
Line S00050 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00421  M01S00050.274l797 +++|*                      I, LI OR SI-BINARY FILE.  THE SI-CODED TAPE MUST
00422  M00S00355.copyb   +++|*                      BE ASSIGNED AS S FORMAT AND MAY BE LABELED OR
00423  M00S00356.copyb   +++|*                      UNLABELED.
00424  M00S00357.copyb   +++|*                      NOTE - IF FILE COUNT WAS SPECIFIED, THE POSITION
00425  M00S00358.copyb   +++|*                      OF THE INPUT TAPE AFTER THE COPY IS INDETERMI-
00426  M00S00359.copyb   +++|*                      NATE SINCE CONTROL WORDS ARE USED ON THE SI-
00427  M00S00360.copyb   +++|*                      CODED FILE READ VIA S FORMAT (EOF ON SI-CODED
00428  M00S00361.copyb   +++|*                      TAPE IS LEVEL 17B BLOCK TERMINATOR BUT EOF ON
00429  M00S00362.copyb   +++|*                      S TAPE IS A TAPE MARK).
Line S00001 Modification History
M01 (Added by) copyb5
Seq #  *Modification Id* Act 
----------------------------+
00430  M01S00001.copyb5  +++|*
Line S00002 Modification History
M01 (Added by) copyb5
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00431  M02S00002.274l797 ---|*                  I   COPY I FORMAT TAPE TO MASS STORAGE, I OR
Line S00051 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00432  M01S00051.274l797 +++|*                  I   COPY I FORMAT TAPE TO MASS STORAGE, I, LI OR
Line S00003 Modification History
M01 (Added by) copyb5
Seq #  *Modification Id* Act 
----------------------------+
00433  M01S00003.copyb5  +++|*                      SI-BINARY FILE.  THE I FORMAT TAPE MUST BE
00434  M01S00004.copyb5  +++|*                      ASSIGNED AS L FORMAT AND MAY BE LABELED OR
00435  M01S00005.copyb5  +++|*                      UNLABELED.  I FORMAT IS NOT AN OBSOLETE FORMAT.
00436  M01S00006.copyb5  +++|*                      THIS OPTION HAS BEEN INCLUDED TO SIMPLIFY THE
00437  M01S00007.copyb5  +++|*                      RECOVERY OF DATA FROM OVERWRITTEN TAPES.
00438  M01S00008.copyb5  +++|*                      NOTE - IF THE TERMINATING CONDITION IS OTHER
00439  M01S00009.copyb5  +++|*                      THAN *EOI*, THEN THE POSITION OF THE INPUT TAPE
00440  M01S00010.copyb5  +++|*                      AFTER THE COPY IS INDETERMINATE, SINCE CONTROL
00441  M01S00011.copyb5  +++|*                      WORD READS ARE USED ON THE I FORMAT TAPE READ
00442  M01S00012.copyb5  +++|*                      VIA L FORMAT (EOF ON AN I FORMAT TAPE IS A
00443  M01S00013.copyb5  +++|*                      LEVEL 17B BLOCK TERMINATOR BUT EOF ON AN L
00444  M01S00014.copyb5  +++|*                      TAPE IS A TAPE MARK).
00445  M00S00363.copyb   +++|*
00446  M00S00364.copyb   +++|*         TC       COPY TERMINATION CONDITION.  DEFINES MEANING OF
00447  M00S00365.copyb   +++|*                  COPYCNT PARAMETER -
00448  M00S00366.copyb   +++|*                  F OR EOF = COPYCNT DEFINES NUMBER OF FILES TO COPY.
00449  M00S00367.copyb   +++|*                  I OR EOI = COPY TO EOI.  COPYCNT MEANINGLESS.
00450  M00S00368.copyb   +++|*                  D OR EOD = COPYCNT DEFINES NUMBER OF DOUBLE EOF,S
00451  M00S00369.copyb   +++|*                             TO COPY TO.
00452  M00S00370.copyb   +++|*                  DEFAULT = EOD.
00453  M00S00371.copyb   +++|*
00454  M00S00372.copyb   +++|*         COPYCNT  COPY COUNT, AS FURTHER DEFINED BY TC PARAMETER.
00455  M00S00373.copyb   +++|*                  DEFAULT = 1.
00456  M00S00374.copyb   +++|*
00457  M00S00375.copyb   +++|*         CHARCNT  CHARACTER COUNT.  DETERMINES MAXIMUM BLOCK SIZE
00458  M00S00376.copyb   +++|*                  (LINE LENGTH) IN CHARACTERS TO BE READ OR WRITTEN
00459  M00S00377.copyb   +++|*                  AND PRU SIZE.  APPLIES ONLY TO E AND B TAPE COPIES.
00460  M00S00378.copyb   +++|*                  DEFAULT = 136 CHARACTERS FOR E TAPE, 150 CHARACTERS
00461  M00S00379.copyb   +++|*                  FOR B TAPE.
00462  M00S00380.copyb   +++|*
00463  M00S00381.copyb   +++|*         ERLIMIT  ERROR LIMIT.  MAXIMUM NUMBER OF NON-FATAL TAPE
00464  M00S00382.copyb   +++|*                  ERRORS TO ALLOW BEFORE ABORT.  INCLUDES *PARITY*
00465  M00S00383.copyb   +++|*                  AND *BLOCK TOO LARGE* ERRORS, AS RETURNED BY THE
Line S00384 Modification History
M01 (Removed by) copyb5
Seq #  *Modification Id* Act 
----------------------------+
00466  M01S00384.copyb5  ---|*                  SYSTEM AFTER RECOVERY ATTEMPTS FAILED, AND FOR
Line S00385 Modification History
M01 (Removed by) v23l617
M02 (Removed by) copyb5
Seq #  *Modification Id* Act 
----------------------------+
00467  M02S00385.copyb5  ---|*                  X AND SI-CODED TAPES, *ILLEGAL BLOCK FORMAT* ERRORS
00468  M02S00386.copyb5  ---|*                  (ILLEGAL BYTE COUNT AND/OR UNUSED BIT COUNT FOR
Line S00015 Modification History
M01 (Added by) v23l617
M02 (Removed by) copyb5
Seq #  *Modification Id* Act 
----------------------------+
00469  M02S00015.copyb5  ---|*                  X, SI-CODED TAPES, *INCORRECT BLOCK FORMAT* ERRORS
00470  M02S00016.copyb5  ---|*                  (INCORRECT BYTE COUNT AND/OR UNUSED BIT COUNT FOR
Line S00387 Modification History
M01 (Removed by) copyb5
Seq #  *Modification Id* Act 
----------------------------+
00471  M01S00387.copyb5  ---|*                  THIS FORMAT).  IF EL=U IS SPECIFIED, UNLIMITED
00472  M01S00388.copyb5  ---|*                  ERROR PROCESSING IS ALLOWED.  ERROR LIMIT DOES NOT
00473  M01S00389.copyb5  ---|*                  APPLY (IGNORED) WHEN GENERATING AN E OR B TAPE
00474  M01S00390.copyb5  ---|*                  FROM A MASS STORAGE, I OR SI-BINARY FILE (SINCE
Line S00015 Modification History
M01 (Added by) copyb5
Seq #  *Modification Id* Act 
----------------------------+
00475  M01S00015.copyb5  +++|*                  SYSTEM AFTER RECOVERY ATTEMPTS FAILED.  FOR X, SI-
00476  M01S00016.copyb5  +++|*                  CODED AND I TAPES IT ALSO INCLUDES *INCORRECT BLOCK
00477  M01S00017.copyb5  +++|*                  FORMAT* ERRORS (INCORRECT BYTE COUNT AND/OR UNUSED
00478  M01S00018.copyb5  +++|*                  BIT COUNT FOR THIS FORMAT).  IF EL=U IS SPECIFIED,
00479  M01S00019.copyb5  +++|*                  UNLIMITED ERROR PROCESSING IS ALLOWED.  ERROR LIMIT
00480  M01S00020.copyb5  +++|*                  DOES NOT APPLY (IGNORED) WHEN GENERATING AN E OR B
Line S00021 Modification History
M01 (Added by) copyb5
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00481  M02S00021.274l797 ---|*                  TAPE FROM A MASS STORAGE, I OR SI-BINARY FILE (SINCE
Line S00391 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00482  M01S00391.274l797 ---|*                  CONTROL WORDS ARE NOT USED) OR IF CONTROL WORDS ARE
00483  M01S00392.274l797 ---|*                  NOT SUPPORTED ON THE INPUT FILE DEVICE TYPE
00484  M01S00393.274l797 ---|*                  (TERMINAL OR UNIT RECORD EQUIPMENT), IN WHICH CASE,
00485  M01S00394.274l797 ---|*                  ANY ERROR WILL ABORT THE JOB.  DEFAULT = 0.
Line S00052 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00486  M01S00052.274l797 +++|*                  TAPE FROM A MASS STORAGE, I, LI OR SI-BINARY FILE
00487  M01S00053.274l797 +++|*                  (SINCE CONTROL WORDS ARE NOT USED) OR IF CONTROL
00488  M01S00054.274l797 +++|*                  WORDS ARE NOT SUPPORTED ON THE INPUT FILE DEVICE
00489  M01S00055.274l797 +++|*                  TYPE (TERMINAL OR UNIT RECORD EQUIPMENT), IN WHICH
00490  M01S00056.274l797 +++|*                  CASE, ANY ERROR WILL ABORT THE JOB.  DEFAULT = 0.
00491  M00S00395.copyb   +++|*
00492  M00S00396.copyb   +++|*         PO       PROCESSING OPTION -
00493  M00S00397.copyb   +++|*
00494  M00S00398.copyb   +++|*                  E   INPUT BLOCKS WITH *PARITY* OR *BLOCK TOO
00495  M00S00399.copyb   +++|*                      LARGE* ERRORS ARE TO BE PROCESSED.  DEFAULT =
00496  M00S00400.copyb   +++|*                      ERROR BLOCKS ARE SKIPPED.
00497  M00S00401.copyb   +++|*
00498  M00S00402.copyb   +++|*                  T   WHEN GENERATING AN E OR B FORMAT TAPE, TRUNCATE
00499  M00S00403.copyb   +++|*                      DATA IN LINE BEYOND THE MAXIMUM E/B TAPE LINE
00500  M00S00404.copyb   +++|*                      SIZE (AS DEFINED BY CC= PARAMETER OR DEFAULT).
00501  M00S00405.copyb   +++|*                      LEGAL ONLY WHEN GENERATING AN E OR B TAPE FROM
Line S00406 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00502  M01S00406.274l797 ---|*                      A MASS STORAGE, I OR SI-BINARY TAPE FILE.
Line S00057 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00503  M01S00057.274l797 +++|*                      A MASS STORAGE, I, LI OR SI-BINARY TAPE FILE.
00504  M00S00407.copyb   +++|*
00505  M00S00408.copyb   +++|*         LFN3     ALTERNATE OUTPUT FILE TO RECEIVE PARITY ERROR
00506  M00S00409.copyb   +++|*                  MESSAGES WHEN NON-ZERO ERLIMIT SPECIFIED, IN
00507  M00S00410.copyb   +++|*                  WHICH CASE, FILE NAME LFN3 CANNOT BE THE SAME AS
00508  M00S00411.copyb   +++|*                  LFN1 OR LFN2.  DEFAULT = OUTPUT.
Line S00017 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00509  M01S00017.v23l617 +++|*
00510  M01S00018.v23l617 +++|*         NSC      NOISE SIZE. ANY BLOCK CONTAINING FEWER THAN NSC
00511  M01S00019.v23l617 +++|*                  CHARACTERS IS CONSIDERED NOISE AND IS DISCARDED.
00512  M01S00020.v23l617 +++|*                  ALLOWED ONLY FOR E/B FORMAT CONVERSION.
00513  M01S00021.v23l617 +++|*                  IF NS=0 IS SPECIFIED, THE DEFAULT OF 18
00514  M01S00022.v23l617 +++|*                  CHARACTERS IS USED.
00515  M01S00023.v23l617 +++|*
00516  M00S00412.copyb   +++|*
Line S00413 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00517  M01S00413.v23l617 ---|*         THE PARAMETERS ON THE TCOPY CONTROL CARD ARE BOTH POSITIONAL
Line S00024 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00518  M01S00024.v23l617 +++|*         THE PARAMETERS ON THE TCOPY COMMAND ARE BOTH POSITIONAL
00519  M00S00414.copyb   +++|*         AND EQUIVALENCED.  ANY COMBINATION OF POSITIONAL AND
00520  M00S00415.copyb   +++|*         EQUIVALENCED ARGUMENTS MAY BE SPECIFIED, HOWEVER, POSITIONAL
00521  M00S00416.copyb   +++|*         ARGUMENTS ARE INTERPRETTED SOLELY ON THE NUMBER OF PRECEDING
00522  M00S00417.copyb   +++|*         PARAMETERS.  ALL PARAMETERS ARE OPTIONAL.  UNLESS EXPLICITLY
00523  M00S00418.copyb   +++|*         STATED OTHERWISE IN THE PARAMETER DESCRIPTION, SPECIFICATION
00524  M00S00419.copyb   +++|*         OF NON-APPLICABLE PARAMETERS FOR A PARTICULAR TYPE OF COPY
Line S00420 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00525  M01S00420.v23l617 ---|*         IS ILLEGAL.
Line S00025 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00526  M01S00025.v23l617 +++|*         IS INCORRECT.
00527  M00S00421.copyb   +++|*
Line S00422 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00528  M01S00422.274l797 ---|*         WHEN GENERATING A NEW B TAPE FROM A MASS STORAGE, I OR
Line S00058 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00529  M01S00058.274l797 +++|*         WHEN GENERATING A NEW B TAPE FROM A MASS STORAGE, I, LI OR
00530  M00S00423.copyb   +++|*         SI-BINARY FILE, LINES MAY BE ENCOUNTERED THAT ARE TOO SMALL
00531  M00S00424.copyb   +++|*         TO BE COPIED DIRECTLY TO THE TAPE.  SMALL BLOCKS MAY ALSO
00532  M00S00425.copyb   +++|*         RESULT WHEN A LINE IS ENCOUNTERED THAT EXCEEDS THE MAXIMUM
00533  M00S00426.copyb   +++|*         LINE SIZE FOR THE B TAPE, SINCE IT IS SPLIT INTO MULTIPLE
00534  M00S00427.copyb   +++|*         LINES.  IF THE LINE LENGTH IS LESS THAN THE B TAPE NOISE
00535  M00S00428.copyb   +++|*         SIZE, IT WILL BE BLANK FILLED TO THE NOISE SIZE.
00536  M00S00429.copyb   +++|*         IF THE *PO=T* OPTION IS SPECIFIED, LINES THAT WOULD
00537  M00S00430.copyb   +++|*         NORMALLY BE SPLIT INTO MULTIPLE LINES WILL BE TRUNCATED
00538  M00S00431.copyb   +++|*         AT THE MAXIMUM LINE SIZE.
00539  M00S00432.copyb   +++|*
Line S00433 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00540  M01S00433.274l797 ---|*         WHEN GENERATING A NEW E TAPE FROM A MASS STORAGE, I OR
Line S00059 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00541  M01S00059.274l797 +++|*         WHEN GENERATING A NEW E TAPE FROM A MASS STORAGE, I, LI OR
00542  M00S00434.copyb   +++|*         SI-BINARY TAPE FILE, LINES THAT EXCEED THE MAXIMUM LINE
00543  M00S00435.copyb   +++|*         SIZE WILL BE SPLIT INTO MULTIPLE LINES.  A CONTINUATION
00544  M00S00436.copyb   +++|*         LINE CONSISTING OF AN EOL ONLY WILL BE DISCARDED (WILL NOT
00545  M00S00437.copyb   +++|*         GENERATE EXTRANEOUS BLANK BLOCK).  IF THE *PO=T* OPTION
00546  M00S00438.copyb   +++|*         IS SPECIFIED, LINES ARE TRUNCATED AT THE MAXIMUM LINE SIZE
00547  M00S00439.copyb   +++|*         (ALL CONTINUATION LINES ARE DISCARDED).
00548  M00S00440.copyb   +++|*
00549  M00S00441.copyb   +++|*         THE DATA COPY BEGINS AT THE CURRENT POSITION OF LFN1 AND LFN2
00550  M00S00442.copyb   +++|*         AND CONTINUES UNTIL THE COPY TERMINATION CONDITION IS MET OR
00551  M00S00443.copyb   +++|*         EOI IS ENCOUNTERED.  IF LFN1 = LFN2, FILES ARE SKIPPED.
00552  M00S00444.copyb   +++|*         WHEN THE COPY IS TERMINATED BY A DOUBLE EOF (FOR TC=EOD
00553  M00S00445.copyb   +++|*         OPTION), THE SECOND EOF IS NOT TRANSFERRED TO LFN2.
00554  M00S00446.copyb   +++|*         FOR A COPY WITH A FILE COUNT SPECIFIED (TC=EOF), IF EOI IS
00555  M00S00447.copyb   +++|*         ENCOUNTERED ON LFN1 BEFORE THE FILE COUNT IS SATISFIED, AN
00556  M00S00448.copyb   +++|*         ADDITIONAL EOF WILL BE GENERATED ON LFN2 IF ANY DATA OR
00557  M00S00449.copyb   +++|*         RECORDS HAVE BEEN TRANSFERRED SINCE THE PREVIOUS EOF WAS
00558  M00S00450.copyb   +++|*         WRITTEN.
00559  M00S00451.copyb   +++|          SPACE  4,10
00560  M00S00452.copyb   +++|***       DAYFILE ERROR MESSAGES.
00561  M00S00453.copyb   +++|*
00562  M00S00454.copyb   +++|*
Line S00455 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00563  M01S00455.v23l617 ---|*         * ARGUMENT ERROR.* - CONTROL CARD CONTAINS ILLEGAL OR
Line S00026 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00564  M01S00026.v23l617 +++|*         * ARGUMENT ERROR.* - COMMAND CONTAINS INCORRECT OR
00565  M00S00456.copyb   +++|*         NON-APPLICABLE PARAMETERS.
00566  M00S00457.copyb   +++|*
00567  M00S00458.copyb   +++|*         * BLOCK SIZE NOT APPLICABLE.* - SPECIFICATION OF *CC* OR
00568  M00S00459.copyb   +++|*         *BS* PARAMETER ON *COPY* IS ALLOWED ONLY WHEN COPYING
00569  M00S00460.copyb   +++|*         TO OR FROM AN S OR L FORMAT TAPE.  SPECIFICATION OF
00570  M00S00461.copyb   +++|*         *CC* PARAMETER ON *TCOPY* LEGAL ONLY WHEN CONVERTING
00571  M00S00462.copyb   +++|*         OR GENERATING AN E OR B FORMAT TAPE.
00572  M00S00463.copyb   +++|*
00573  M00S00464.copyb   +++|*         * BLOCK SIZE TOO LARGE ON LFN.* - FOR *COPY*, BLOCK SIZE FOR
00574  M00S00465.copyb   +++|*         S COPY EXCEEDS MAXIMUM FOR THAT FORMAT (1000B WORDS).
00575  M00S00466.copyb   +++|*         FOR *TCOPY*, CHARACTER COUNT FOR E OR B TAPE COPY EXCEEDS
00576  M00S00467.copyb   +++|*         MAXIMUM FOR THAT FORMAT (5120 CHARACTERS).
00577  M00S00468.copyb   +++|*         FOR *COPYBF* AND *COPYEI*, F TAPE BLOCK SIZE EXCEEDS WORKING
00578  M00S00469.copyb   +++|*         BUFFER LENGTH (ONLY *COPY* SUPPORTS S, L, AND F TAPES).
00579  M00S00470.copyb   +++|*
00580  M00S00471.copyb   +++|*         * BLOCK SIZE TOO SMALL ON LFN.* - FOR *COPY*, ON F TO F TAPE
00581  M00S00472.copyb   +++|*         COPY, MAXIMUM FRAME COUNT FOR THE FIRST FILE (AS SPECIFIED
00582  M00S00473.copyb   +++|*         DURING TAPE ASSIGNMENT) EXCEEDS THAT SPECIFIED FOR THE SECOND
00583  M00S00474.copyb   +++|*         FILE.  ON S AND L TAPE COPIES, BLOCK SIZE (AS SPECIFIED BY
00584  M00S00475.copyb   +++|*         *BS* PARAMETER OR CALCULATED FROM *CC* PARAMETER) IS LESS
00585  M00S00476.copyb   +++|*         THAN NOISE SIZE.  FOR *TCOPY*, ON E AND B TAPE COPIES, BLOCK
00586  M00S00477.copyb   +++|*         SIZE (AS CALCULATED FROM *CC* PARAMETER) IS LESS THAN THE
00587  M00S00478.copyb   +++|*         CORRESPONDING S TAPE NOISE SIZE.
00588  M00S00479.copyb   +++|*
00589  M00S00480.copyb   +++|*         * COPY FL ABOVE USER LIMIT.* - FOR *COPY*, FIELD LENGTH
00590  M00S00481.copyb   +++|*         REQUIRED FOR F OR L TAPE COPY EXCEEDS THE USER,S CURRENT
00591  M00S00482.copyb   +++|*         MAXIMUM FL.
00592  M00S00483.copyb   +++|*
00593  M00S00484.copyb   +++|*         * ERROR LIMIT EXCEEDED.* - FOR *COPY* AND *TCOPY*, NUMBER
Line S00485 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00594  M01S00485.v23l617 ---|*         OF *PARITY*, *BLOCK TOO LARGE* AND *ILLEGAL BLOCK FORMAT*
Line S00027 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00595  M01S00027.v23l617 +++|*         OF *PARITY*, *BLOCK TOO LARGE* AND *INCORRECT BLOCK FORMAT*
00596  M00S00486.copyb   +++|*         ERRORS DETECTED ON THE INPUT FILE EXCEEDS THE ERROR LIMIT
00597  M00S00487.copyb   +++|*         (AS SPECIFIED BY EL PARAMETER).
00598  M00S00488.copyb   +++|*
00599  M00S00489.copyb   +++|*         * FILE NAME CONFLICT.* - FOR *COPY* AND *TCOPY*, WITH
00600  M00S00490.copyb   +++|*         EXTENDED ERROR PROCESSING IN EFFECT (NONZERO *EL* SPECIFIED),
00601  M00S00491.copyb   +++|*         ALTERNATE OUTPUT FILE NAME IS SAME AS INPUT OR OUTPUT FILE
00602  M00S00492.copyb   +++|*         NAME.
00603  M00S00493.copyb   +++|*
Line S00494 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00604  M01S00494.v23l617 ---|*         * ILLEGAL COPY.* - FOR *COPY*, THE FILE TYPES (TAPE FORMAT
Line S00028 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00605  M01S00028.v23l617 +++|*         * INCORRECT COPY.* - FOR *COPY*, THE FILE TYPES (TAPE FORMAT
00606  M00S00495.copyb   +++|*         OR DEVICE TYPE) DO NOT MEET COPY REQUIREMENTS (REFER TO
00607  M00S00496.copyb   +++|*         CAPABILITY TABLE IN *COPY* DOCUMENTATION).  FOR *TCOPY*,
00608  M00S00497.copyb   +++|*         THE CONVERSION TYPE (E, B, X, SI) AND THE FILE TYPES
00609  M00S00498.copyb   +++|*         (TAPE FORMAT OR DEVICE TYPE) DO NOT MEET COPY REQUIRE-
00610  M00S00499.copyb   +++|*         MENTS (REFER TO *TCOPY* CAPABILITY DOCUMENTATION).
00611  M00S00500.copyb   +++|*
Line S00501 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00612  M01S00501.v23l617 ---|*         * INVALID NOISE SIZE ON LFN.* - FOR *COPY*, ON S TO S, L TO
Line S00029 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00613  M01S00029.v23l617 +++|*         * INCORRECT NOISE SIZE ON LFN.* - FOR *COPY*, ON S TO S, L TO
00614  M00S00502.copyb   +++|*         L, AND F TO F TAPE COPIES, THE NOISE SIZE FOR THE SECOND FILE
00615  M00S00503.copyb   +++|*         (AS SPECIFIED DURING TAPE ASSIGNMENT) EXCEEDS THAT DEFINED
00616  M00S00504.copyb   +++|*         FOR THE FIRST FILE.  FOR *TCOPY*, ON X AND SI-CODED TAPE
Line S00505 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00617  M01S00505.v23l617 ---|*         COPIES, ILLEGAL NOISE SIZE HAS BEEN SPECIFIED WHEN THE S
Line S00030 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00618  M01S00030.v23l617 +++|*         COPIES, INCORRECT NOISE SIZE HAS BEEN SPECIFIED WHEN THE S
00619  M00S00506.copyb   +++|*         FORMAT TAPE WAS ASSIGNED (REQUIRED NOISE SIZE IS 8 FRAMES FOR
00620  M00S00507.copyb   +++|*         7-TRACK, 6 FRAMES FOR 9-TRACK).
00621  M00S00508.copyb   +++|*
00622  M00S00509.copyb   +++|*         * PROCESSING OPTION NOT APPLICABLE.* - *PO=R* OR *PO=D*
Line S00510 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00623  M01S00510.274l797 ---|*         SPECIFICATION ALLOWED ONLY ON *COPY* FROM MASS STORAGE,
00624  M01S00511.274l797 ---|*         I, OR SI-BINARY FILE TO S OR L TAPE.  *PO=T* SPECIFICATION
Line S00060 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00625  M01S00060.274l797 +++|*         SPECIFICATION ALLOWED ONLY ON *COPY* FROM MASS STORAGE, I,
00626  M01S00061.274l797 +++|*         LI OR SI-BINARY FILE TO S OR L TAPE.  *PO=T* SPECIFICATION
00627  M00S00512.copyb   +++|*         ALLOWED ON *TCOPY* ONLY WHEN GENERATING AN E OR B TAPE.
00628  M00S00513.copyb   +++|*
00629  M00S00514.copyb   +++|*         * RECORD TOO LARGE ON LFN.* - FOR *COPY* WHEN RECORD
00630  M00S00515.copyb   +++|*         SPLITTING PROCESSING OPTION NOT SPECIFIED, *COPYBF*, AND
00631  M00S00516.copyb   +++|*         *COPYEI*, DURING GENERATION OF S OR L TAPE FROM MASS
Line S00517 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00632  M01S00517.274l797 ---|*         STORAGE, I OR SI-BINARY FILE, AN INPUT RECORD WAS
Line S00062 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00633  M01S00062.274l797 +++|*         STORAGE, I, LI OR SI-BINARY FILE, AN INPUT RECORD WAS
00634  M00S00518.copyb   +++|*         ENCOUNTERED THAT WAS LARGER THAN THE OUTPUT FILE PRU SIZE.
00635  M00S00519.copyb   +++|*
00636  M00S00520.copyb   +++|*         * UNLABELED TAPE REQUIRED - LFN.* - FOR *TCOPY*, THE
00637  M00S00521.copyb   +++|*         S FORMAT TAPE FOR AN E, B, OR X COPY MUST BE UNLABELED.
00638  M00S00522.copyb   +++|*
00639  M00S00523.copyb   +++|*         * UNRECOVERABLE ERROR ON LFN.* - FOR *COPY* AND *TCOPY*, AN
00640  M00S00524.copyb   +++|*         UNRECOVERABLE ERROR WAS DETECTED ON THE INPUT FILE (WRONG
00641  M00S00525.copyb   +++|*         PARITY, DENSITY CHANGE, READY DROP, ETC.).
00642  M00S00526.copyb   +++|*
00643  M00S00527.copyb   +++|*         * UNRECOGNIZED TERMINATION CONDITION.* - THE *COPYX*
00644  M00S00528.copyb   +++|*         TERMINATION RECORD COUNT OR RECORD TYPE WAS NOT RECOGNIZED.
00645  M00S00529.copyb   +++|*
00646  M00S00530.copyb   +++|*         * UNRECOGNIZED BACKSPACE CODE.* - THE BACKSPACE CODE
00647  M00S00531.copyb   +++|*         SPECIFIED TO *COPYX* WAS NOT 0, 1, 2, OR 3.
00648  M00S00532.copyb   +++|          SPACE  4,10
00649  M00S00533.copyb   +++|***       DAYFILE INFORMATIVE MESSAGES.
00650  M00S00534.copyb   +++|*
00651  M00S00535.copyb   +++|*
00652  M00S00536.copyb   +++|*         * CHECK DAYFILE FOR ERRORS.* - ALERTS TERMINAL USER THAT SOME
00653  M00S00537.copyb   +++|*         ERROR SUMMARY OR WARNING MESSAGES WERE ISSUED TO THE DAYFILE.
00654  M00S00538.copyb   +++|*
00655  M00S00539.copyb   +++|*         * COPY COMPLETE.* - COPY COUNT WAS EXHAUSTED BEFORE EOI
00656  M00S00540.copyb   +++|*         ENCOUNTERED.
00657  M00S00541.copyb   +++|*
00658  M00S00542.copyb   +++|*         * COPY INDETERMINATE.* - WARNING MESSAGE ISSUED BY *COPYBF*,
00659  M00S00543.copyb   +++|*         *COPYEI*, *COPYBR*, AND *COPYX* WHEN COPY INVOLVES AN S, L,
00660  M00S00544.copyb   +++|*         OR F FORMAT TAPE (ONLY *COPY* UTILITY PROVIDES SUPPORT
00661  M00S00545.copyb   +++|*         FOR THESE FORMAT TAPES).
00662  M00S00546.copyb   +++|*
00663  M00S00547.copyb   +++|*         * EOF ENCOUNTERED.* - END OF FILE WAS ENCOUNTERED BEFORE
00664  M00S00548.copyb   +++|*         *COPYX* TERMINATION CONDITION SATISFIED.
00665  M00S00549.copyb   +++|*
00666  M00S00550.copyb   +++|*         * EOI ENCOUNTERED.* - END OF INFORMATION WAS ENCOUNTERED
00667  M00S00551.copyb   +++|*         BEFORE THE COPY COUNT WAS EXHAUSTED.
00668  M00S00552.copyb   +++|*
00669  M00S00553.copyb   +++|*         * FILE NOT FOUND - LFN.* - INPUT FILE DID NOT EXIST PRIOR
00670  M00S00554.copyb   +++|*         TO COPY.
00671  M00S00555.copyb   +++|*
00672  M00S00556.copyb   +++|*         * N BAD FORMAT BLOCKS.* - *TCOPY* ERROR SUMMARY MESSAGE
00673  M00S00557.copyb   +++|*         ISSUED BEFORE ENDING OR ABORTING.  ALTERNATE OUTPUT FILE
00674  M00S00558.copyb   +++|*         CONTAINS DETAILED ERROR MESSAGES.
00675  M00S00559.copyb   +++|*
00676  M00S00560.copyb   +++|*         * N NOISE BLOCKS DELETED.* - DURING S OR L TAPE *COPY* FROM
Line S00561 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00677  M01S00561.274l797 ---|*         MASS STORAGE, I OR SI-BINARY FILE, N OUTPUT FILE BLOCKS WERE
00678  M01S00562.274l797 ---|*         DELETED SINCE THEY WERE LESS THAN NOISE SIZE.
Line S00063 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00679  M01S00063.274l797 +++|*         MASS STORAGE, I, LI OR SI-BINARY FILE, N OUTPUT FILE BLOCKS
00680  M01S00064.274l797 +++|*         WERE DELETED SINCE THEY WERE LESS THAN NOISE SIZE.
Line S00031 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00681  M01S00031.v23l617 +++|*         DURING *TCOPY* WITH S FORMAT INPUT TAPE FOR E/B FORMAT
00682  M01S00032.v23l617 +++|*         CONVERSION OR FOR *COPY* FROM S/L/F FORMAT INPUT TAPE,
00683  M01S00033.v23l617 +++|*         N INPUT BLOCKS WERE DELETED (NOT WRITTEN TO OUTPUT)
00684  M01S00034.v23l617 +++|*         SINCE THEY WERE LESS THAN NOISE SIZE.
00685  M01S00035.v23l617 +++|*
00686  M01S00036.v23l617 +++|*         * NOISE BLOCK PROCESSING IN EFFECT.* - IN *COPY* WHEN
00687  M01S00037.v23l617 +++|*         USER DOES NOT SPECIFY *NS* PARAMETER FOR S TO S/L, L TO L,
00688  M01S00038.v23l617 +++|*         OR F TO F TAPE COPY, NOISE PROCESSING IS AUTOMATICALLY
00689  M01S00039.v23l617 +++|*         SELECTED WHEN THE OUTPUT TAPE NOISE SIZE EXCEEDS THE INPUT
00690  M01S00040.v23l617 +++|*         TAPE NOISE SIZE. THIS WILL SLOW PROCESSING, SINCE DOUBLE
00691  M01S00041.v23l617 +++|*         BUFFER DATA MANIPULATION MUST THEN BE USED TO REMOVE INPUT
00692  M01S00042.v23l617 +++|*         NOISE BLOCKS.
00693  M01S00043.v23l617 +++|*
00694  M01S00044.v23l617 +++|*         * INSUFFICIENT NOISE SIZE, AUTOMATICALLY INCREASED.* -
00695  M01S00045.v23l617 +++|*         WARNING MESSAGE ISSUED IN *COPY* IF *NS* PARAMETER IS
00696  M01S00046.v23l617 +++|*         SPECIFIED BUT NOT LARGE ENOUGH FOR S TO S/L, L TO L, OR F TO
00697  M01S00047.v23l617 +++|*         F TAPE COPY (THE NOISE SIZE USED FOR THE INPUT TAPE MUST BE
00698  M01S00048.v23l617 +++|*         GREATER THAN OR EQUAL TO THAT OF THE OUTPUT TAPE).
00699  M00S00563.copyb   +++|*
00700  M00S00564.copyb   +++|*         * N NOISE BLOCKS PADDED.* - DURING S OR L TAPE *COPY* FROM
Line S00565 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00701  M01S00565.274l797 ---|*         MASS STORAGE, I OR SI-BINARY FILE, N OUTPUT FILE BLOCKS HAD
00702  M01S00566.274l797 ---|*         TO BE PADDED SINCE THEY WERE LESS THAN NOISE SIZE.
Line S00065 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00703  M01S00065.274l797 +++|*         MASS STORAGE, I, LI OR SI-BINARY FILE, N OUTPUT FILE BLOCKS
00704  M01S00066.274l797 +++|*         HAD TO BE PADDED SINCE THEY WERE LESS THAN NOISE SIZE.
00705  M00S00567.copyb   +++|*
00706  M00S00568.copyb   +++|*         * N PARITY/BLOCK TOO LARGE ERRORS.* - *COPY* AND *TCOPY*
00707  M00S00569.copyb   +++|*         ERROR SUMMARY MESSAGE ISSUED BEFORE ENDING OR ABORTING.
00708  M00S00570.copyb   +++|*         ALTERNATE OUTPUT FILE CONTAINS DETAILED ERROR MESSAGES.
00709  M00S00571.copyb   +++|*
00710  M00S00572.copyb   +++|*         * N RECORD SPLITS OCCURRED.* - DURING S OR L TAPE *COPY* FROM
Line S00573 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00711  M01S00573.274l797 ---|*         MASS STORAGE, I OR SI-BINARY FILE, MULTIPLE BLOCKS PER
Line S00067 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00712  M01S00067.274l797 +++|*         MASS STORAGE, I, LI OR SI-BINARY FILE, MULTIPLE BLOCKS PER
00713  M00S00574.copyb   +++|*         RECORD WERE WRITTEN FOR N INPUT RECORDS.
00714  M00S00575.copyb   +++|          SPACE  4,10
00715  M00S00576.copyb   +++|***       ALTERNATE OUTPUT FILE MESSAGES.
00716  M00S00577.copyb   +++|*
Line S00578 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00717  M01S00578.v23l617 ---|*         * ILLEGAL FORMAT IN BLOCK N.* - FOR *TCOPY* WITH EXTENDED
00718  M01S00579.v23l617 ---|*         ERROR PROCESSING IN EFFECT, AN *ILLEGAL BLOCK FORMAT* ERROR
00719  M01S00580.v23l617 ---|*         (ILLEGAL BYTE COUNT AND/OR UNUSED BIT COUNT FOR THIS FORMAT)
Line S00049 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00720  M01S00049.v23l617 +++|*         * INCORRECT FORMAT IN BLOCK N.* - FOR *TCOPY* WITH EXTENDED
00721  M01S00050.v23l617 +++|*         ERROR PROCESSING IN EFFECT, AN *INCORRECT BLOCK FORMAT* ERROR
00722  M01S00051.v23l617 +++|*         (INCORRECT BYTE COUNT AND/OR UNUSED BIT COUNT IN THIS FORMAT)
00723  M00S00581.copyb   +++|*         WAS DETECTED IN THIS BLOCK WITHOUT THE *PARITY* ERROR
00724  M00S00582.copyb   +++|*         INDICATOR SET.  N SPECIFIES BLOCK COUNT OF BLOCK IN
00725  M00S00583.copyb   +++|*         ERROR, AND IS INITIALLY SET TO 0 (FIRST BLOCK FROM INITIAL
00726  M00S00584.copyb   +++|*         POSITION OF INPUT FILE).
00727  M00S00585.copyb   +++|*
00728  M00S00586.copyb   +++|*         * PARITY/BLOCK TOO LARGE ERROR IN BLOCK N.* - FOR *COPY*
00729  M00S00587.copyb   +++|*         AND *TCOPY*, WITH EXTENDED ERROR PROCESSING IN EFFECT,
00730  M00S00588.copyb   +++|*         A *PARITY* OR *BLOCK TOO LARGE* ERROR WAS DETECTED ON THIS
00731  M00S00589.copyb   +++|*         BLOCK (ERROR INDICATOR SET IN CONTROL WORD HEADER).
00732  M00S00590.copyb   +++|*         N SPECIFIES BLOCK COUNT OF BLOCK IN ERROR, AND IS INITIALLY
00733  M00S00591.copyb   +++|*         SET TO 0 (FIRST BLOCK FROM INITIAL POSITION OF INPUT FILE).
00734  M00S00592.copyb   +++|          SPACE  4,10
00735  M00S00593.copyb   +++|****      ASSEMBLY CONSTANTS.
00736  M00S00594.copyb   +++|
00737  M00S00595.copyb   +++|
00738  M00S00596.copyb   +++| DPRS     EQU    1003B       DEFAULT PRU SIZE WITH CONTROL WORDS
00739  M00S00597.copyb   +++| BUFL     EQU    DPRS        DEFAULT WORKING STORAGE BUFFER LENGTH
Line S00598 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00740  M01S00598.274l797 ---| FBUFL    EQU    DPRS*4      DEFAULT CIO BUFFER LENGTH
Line S00068 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00741  M01S00068.274l797 +++| FBUFL    EQU    DPRS*30B    DEFAULT CIO BUFFER LENGTH
00742  M00S00599.copyb   +++| LBUFL    EQU    102B        ALTERNATE OUTPUT CIO BUFFER LENGTH
Line S00600 Modification History
M01 (Removed by) ns2272
Seq #  *Modification Id* Act 
----------------------------+
00743  M01S00600.ns2272  ---| RBFL     EQU    100B        RECORD COPY WORKING BUFFER LENGTH
Line S00001 Modification History
M01 (Added by) ns2272
Seq #  *Modification Id* Act 
----------------------------+
00744  M01S00001.ns2272  +++| RBFL     EQU    1000B       RECORD COPY WORKING BUFFER LENGTH
Line S00601 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00745  M01S00601.274l797 ---| SBUFL    EQU    DPRS*8      SINGLE BUFFER COPY DEFAULT BUFFER LENGTH
Line S00069 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00746  M01S00069.274l797 +++| SBUFL    EQU    FBUFL*2     SINGLE BUFFER COPY DEFAULT BUFFER LENGTH
00747  M00S00602.copyb   +++|
00748  M00S00603.copyb   +++| FETL     EQU    9           FET LENGTH
00749  M01S00070.274l797 +++| FETODL   EQU    16          OPTICAL DISK FET EXTENSION LENGTH
00750  M00S00604.copyb   +++|
Line S00052 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00751  M01S00052.v23l617 +++| DFNS     EQU    18          DEFAULT NOISE SIZE
00752  M01S00053.v23l617 +++| MNSZ     EQU    41          MAXIMUM NS PARAMETER IN CHARACTERS
00753  M00S00605.copyb   +++| DSPS     EQU    1000B       DEFAULT S TAPE PRU SIZE FOR *COPY*
00754  M00S00606.copyb   +++| DLPS     EQU    2000B       DEFAULT L TAPE PRU SIZE FOR *COPY*
00755  M00S00607.copyb   +++| MCBS     EQU    5120        MAXIMUM BLOCK SIZE (IN CHARACTERS)
00756  M00S00608.copyb   +++|
Line S00609 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00757  M01S00609.274l797 ---| MFLF     EQU    45000B-2    MAXIMUM FIELD LENGTH FACTOR
00758  M01S00610.274l797 ---| LOFL     EQU    20000B-2    LOWER OPTIMUM FL FOR L AND F TAPE COPIES
Line S00071 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00759  M01S00071.274l797 +++| MFLF     EQU    73000B-2    MAXIMUM FIELD LENGTH FACTOR
00760  M01S00072.274l797 +++| LOFL     EQU    43000B-2    LOWER OPTIMUM FL FOR L AND F TAPE COPIES
00761  M00S00611.copyb   +++|****
00762  M00S00612.copyb   +++|          SPACE  4,10
Line S00613 Modification History
M01 (Removed by) ns2402
Seq #  *Modification Id* Act 
----------------------------+
00763  M01S00613.ns2402  ---|*         SPECIAL ENTRY POINT.
00764  M01S00614.ns2402  ---|
Line S00002 Modification History
M01 (Added by) ns2402
Seq #  *Modification Id* Act 
----------------------------+
00765  M01S00002.ns2402  +++|*         SPECIAL ENTRY POINTS.
00766  M01S00003.ns2402  +++|
00767  M01S00004.ns2402  +++| NPC=     EQU    0           FORCE OPERATING SYSTEM PARAMETER FORMAT
00768  M00S00615.copyb   +++| SSM=     EQU    0           SUPPRESS DUMPS OF FIELD LENGTH
00769  M00S00616.copyb   +++|          TITLE  MACRO DEFINITIONS.
00770  M00S00617.copyb   +++| CWRW     SPACE  4,15
00771  M00S00618.copyb   +++|**        CWRW - CONTROL WORD READ WORDS TO WORKING BUFFER.
00772  M00S00619.copyb   +++|*
00773  M00S00620.copyb   +++|*         CWRW   FILE,BUF,N
00774  M00S00621.copyb   +++|*
00775  M00S00622.copyb   +++|*                FILE        FWA FET.  PARAMETER PROVIDED ONLY FOR
00776  M00S00623.copyb   +++|*                            COMPATIBILITY WITH READW MACRO.  INPUT
00777  M00S00624.copyb   +++|*                            FET IS ALWAYS USED BY CWR ROUTINE.
00778  M00S00625.copyb   +++|*                BUF         FWA WORKING BUFFER.  PARAMETER PROVIDED
00779  M00S00626.copyb   +++|*                            ONLY FOR COMPATIBILITY WITH READW MACRO.
00780  M00S00627.copyb   +++|*                            (FWWB) IS ALWAYS USED BY CWR ROUTINE.
00781  M00S00628.copyb   +++|*                N           NUMBER OF WORDS TO TRANSFER.
00782  M00S00629.copyb   +++|*
00783  M00S00630.copyb   +++|*         CALLS  CWR.
00784  M00S00631.copyb   +++|
00785  M00S00632.copyb   +++|
00786  M00S00633.copyb   +++| CWRW     MACRO  F,S,N
00787  M00S00634.copyb   +++|          R=     X7,N
00788  M00S00635.copyb   +++|          RJ     CWR
00789  M00S00636.copyb   +++|          ENDM
00790  M00S00637.copyb   +++| CWWW     SPACE  4,15
00791  M00S00638.copyb   +++|**        CWWW - CONTROL WORD WRITE WORDS FROM WORKING BUFFER.
00792  M00S00639.copyb   +++|*
00793  M00S00640.copyb   +++|*         CWWW   FILE,BUF,N
00794  M00S00641.copyb   +++|*
00795  M00S00642.copyb   +++|*                FILE        FWA FET.
00796  M00S00643.copyb   +++|*                BUF         FWA WORKING BUFFER.
00797  M00S00644.copyb   +++|*                N           NUMBER OF WORDS TO TRANSFER.
00798  M00S00645.copyb   +++|*
00799  M00S00646.copyb   +++|*         CALLS  CWW.
00800  M00S00647.copyb   +++|
00801  M00S00648.copyb   +++|
00802  M00S00649.copyb   +++| CWWW     MACRO  F,S,N
00803  M00S00650.copyb   +++|          R=     B7,N
00804  M00S00651.copyb   +++|          R=     B6,S
00805  M00S00652.copyb   +++|          R=     X2,F
00806  M00S00653.copyb   +++|          RJ     CWW
00807  M00S00654.copyb   +++|          ENDM
00808  M00S00655.copyb   +++|          SPACE  4,10
00809  M00S00656.copyb   +++|*CALL     COMCMAC
00810  M00S00657.copyb   +++|*CALL     COMSLFM
00811  M00S00658.copyb   +++|          QUAL   MTX
00812  M00S00659.copyb   +++|*CALL     COMSMTX
00813  M00S00660.copyb   +++|          QUAL   *
Line S00002 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
00814  M01S00002.251l664 +++|*CALL     COMSSRT
00815  M00S00661.copyb   +++|          TITLE  FETS.
00816  M00S00662.copyb   +++|          ORG    120B
00817  M00S00663.copyb   +++| FETS     BSS    0
00818  M00S00664.copyb   +++|
00819  M00S00665.copyb   +++|
00820  M00S00666.copyb   +++| I        BSS    0           INPUT FILE
00821  M00S00667.copyb   +++| INPUT    FILEB  IBUF,FBUFL,FET=FETL
Line S00073 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00822  M01S00073.274l797 +++|          BSSZ   FETODL      OPTICAL DISK FET EXTENSION
00823  M00S00668.copyb   +++| CWF      EQU    *-I         CONTROL WORD FLAG
00824  M00S00669.copyb   +++|          CON    0           NONZERO IF CONTROL WORDS ENABLED ON INPUT
00825  M00S00670.copyb   +++| SLF      EQU    *-I         FORMAT FLAG
00826  M00S00671.copyb   +++|          CON    0           1= S TAPE, 2= L TAPE, -1= F TAPE, 0= OTHER
00827  M00S00672.copyb   +++| TCF      EQU    *-I         TCOPY CONVERSION FORMAT
Line S00673 Modification History
M01 (Removed by) copyb5
Seq #  *Modification Id* Act 
----------------------------+
00828  M01S00673.copyb5  ---|          CON    0           -2=SI, -1=X, 1=E, 2=B, 0=NO CONVERSION
Line S00022 Modification History
M01 (Added by) copyb5
Seq #  *Modification Id* Act 
----------------------------+
00829  M01S00022.copyb5  +++|          CON    0           -3=I,-2=SI,-1=X,1=E,2=B,0=NO CONVERSION
00830  M00S00674.copyb   +++| PRU      EQU    *-I         PRU SIZE (IN CM WORDS)
00831  M00S00675.copyb   +++|          CON    -1
00832  M00S00676.copyb   +++| NSZ      EQU    *-I         NOISE SIZE (24/BITS, 18/UBC, 18/LENGTH)
00833  M00S00677.copyb   +++|          CON    0
Line S00678 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00834  M01S00678.274l797 ---| TRK      EQU    *-I         TAPE TRACK AND LABEL TYPE
00835  M01S00679.274l797 ---|          CON    0           1/9-TRACK, 1/7-TRACK, 52/0, 6/LABEL TYPE
Line S00074 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00836  M01S00074.274l797 +++| TRK      EQU    *-I         TRACK BITS, TAPE TYPE AND LABEL TYPE
00837  M01S00075.274l797 +++|          CON    0           1/NT,1/MT,2/TAPE TYPE,50/0,6/LABEL TYPE
Line S00680 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00838  M01S00680.274l797 ---|
Line S00076 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00839  M01S00076.274l797 +++| ODF      EQU    *-I         FORMAT FLAG (OD SIMILAR TO L)
00840  M01S00077.274l797 +++|          CON    0
00841  M01S00078.274l797 +++|
00842  M00S00681.copyb   +++|
00843  M00S00682.copyb   +++| O        BSS    0           OUTPUT FILE
00844  M00S00683.copyb   +++| OUTPUT   FILEB  OBUF,FBUFL,FET=FETL
00845  M01S00079.274l797 +++|          BSSZ   FETODL      OPTICAL DISK FET EXTENSION
00846  M00S00684.copyb   +++|          CON    0           NONZERO IF CONTROL WORDS ENABLED ON OUTPUT
00847  M00S00685.copyb   +++|          CON    0           1= S TAPE, 2= L TAPE, -1= F TAPE, 0= OTHER
00848  M00S00686.copyb   +++|          CON    0           1=E, 2=B, 0=NO CONVERSION
00849  M00S00687.copyb   +++|          CON    -1          PRU SIZE (IN CM WORDS)
00850  M00S00688.copyb   +++|          CON    0           NOISE SIZE (24/BITS, 18/UBC, 18/LENGTH)
Line S00689 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00851  M01S00689.274l797 ---|          CON    0           TAPE TRACK AND LABEL TYPE
Line S00080 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00852  M01S00080.274l797 +++|          CON    0           1/NT,1/MT,2/TAPE TYPE,50/0,6/LABEL TYPE
Line S00690 Modification History
M01 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00853  M01S00690.274l797 ---|
Line S00081 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00854  M01S00081.274l797 +++|          CON    0           FORMAT FLAG (OD SIMILAR TO L)
00855  M01S00082.274l797 +++|
00856  M00S00691.copyb   +++|
00857  M00S00692.copyb   +++| L        FILEB  LBUF,LBUFL  ALTERNATE OUTPUT FILE
00858  M00S00693.copyb   +++|          ORG    L
00859  M00S00694.copyb   +++|          VFD    42/0LOUTPUT,17/1,1/1
00860  M00S00695.copyb   +++|          ORG    L+FETL
00861  M00S00696.copyb   +++|          TITLE  DATA STORAGE.
00862  M00S00697.copyb   +++|**        DATA STORAGE.
00863  M00S00698.copyb   +++|
00864  M00S00699.copyb   +++|
00865  M00S00700.copyb   +++| BTSK     CON    0           BLOCK TERMINATOR/SKIP WORD INDICATOR
Line S00023 Modification History
M01 (Added by) copyb5
Seq #  *Modification Id* Act 
----------------------------+
00866  M01S00023.copyb5  +++| CWBC     CON    0           READCW BYTE COUNT
00867  M00S00701.copyb   +++| CRI      CON    -2          CALLING ROUTINE INDICATOR
00868  M00S00702.copyb   +++| CT       CON    1           COPY COUNT
00869  M00S00703.copyb   +++| EL       CON    0           ERROR LIMIT
00870  M00S00704.copyb   +++| EORF     CON    1           CURRENT BLOCK EOR FLAG
00871  M00S00705.copyb   +++| ERRF     CON    0           CURRENT BLOCK ERROR FLAG
00872  M00S00706.copyb   +++| FUBC     CON    0           FULL BLOCK UNUSED BIT COUNT (S, L TAPES)
00873  M00S00707.copyb   +++| FWWB     CON    BUF1+1      FWA WORKING BUFFER
00874  M00S00708.copyb   +++| LVL      CON    0           EOR LEVEL NUMBER
00875  M00S00709.copyb   +++| LWDB     CON    0           LWA+1 DATA TRANSFERRED TO WORKING BUFFER
Line S00054 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
00876  M01S00054.v23l617 +++| NS       CON    0           NOISE SIZE
00877  M01S00055.v23l617 +++| NSFG     CON    0           NOISE SIZE FORCED UP FLAG
00878  M00S00710.copyb   +++| RWCB     VFD    1/1,59/0    REMAINING WORDS IN CURRENT BLOCK
00879  M00S00711.copyb   +++| RWTT     CON    0           REMAINING WORDS TO TRANSFER
00880  M00S00712.copyb   +++| SBT      CON    -1          SINGLE BUFFER READ/WRITE THRESHOLD
00881  M00S00713.copyb   +++| SK       CON    0           SKIP FLAG
00882  M00S00714.copyb   +++| TC       CON    1           TERMINATION CONDITION (-1=EOI,0=EOD,1=EOF)
00883  M00S00715.copyb   +++| UBC      CON    0           UNUSED BIT COUNT FOR CURRENT WRITE
00884  M00S00716.copyb   +++| UBCB     CON    0           UNUSED BIT COUNT FOR CURRENT BLOCK
00885  M00S00717.copyb   +++| VF       CON    0           VERIFY FLAG
00886  M00S00718.copyb   +++|
00887  M00S00719.copyb   +++| BC       CON    -1          BLOCK COUNT
00888  M00S00720.copyb   +++| RC       CON    0           RECORD COUNT
00889  M00S00721.copyb   +++|
00890  M00S00722.copyb   +++| ESPI     CON    0           ERROR BLOCKS SKIPPED/PROCESSED INDICATOR
00891  M00S00723.copyb   +++| NPDI     CON    0           NOISE BLOCKS PADDED/DELETED INDICATOR
00892  M00S00724.copyb   +++| RSAI     CON    0           RECORD SPLIT ALLOWED INDICATOR
00893  M00S00725.copyb   +++| SEWI     CON    0           SKIP EOF WRITE INDICATOR
00894  M00S00726.copyb   +++| TLLI     CON    0           TRUNCATE LONG LINES INDICATOR
00895  M00S00727.copyb   +++|
00896  M00S00728.copyb   +++| BFCT     CON    0           BAD FORMAT BLOCK COUNT
00897  M00S00729.copyb   +++| NZCT     CON    0           NOISE BLOCK COUNT
00898  M00S00730.copyb   +++| PBCT     CON    0           PARITY/BLOCK TOO LARGE ERROR COUNT
00899  M00S00731.copyb   +++| RSCT     CON    0           RECORD SPLIT COUNT
Line S00001 Modification History
M01 (Added by) ns2701
Seq #  *Modification Id* Act 
----------------------------+
00900  M01S00001.ns2701  +++|
00901  M01S00002.ns2701  +++| FCPY     CON    0           FILE COPY COUNT
00902  M01S00003.ns2701  +++| RCPY     CON    0           RECORD COPY COUNT
00903  M01S00004.ns2701  +++| WCPY     CON    0           WORD COPY COUNT
00904  M00S00732.copyb   +++|          SPACE  4,10
00905  M00S00733.copyb   +++|**        TECA - TABLE OF ERROR COUNT ADDRESSES.
00906  M00S00734.copyb   +++|*
00907  M00S00735.copyb   +++|*T        6/ EF, 18/ DMSA, 18/ OMSA, 18/ ERCA
Figure

0171829 ERCA OMSA303536535459 OMSA DMSA EF

00908  M00S00736.copyb   +++|*
00909  M00S00737.copyb   +++|*         EF     ERROR FLAG VALUE.
00910  M00S00738.copyb   +++|*         DMSA   DAYFILE ERROR SUMMARY MESSAGE ADDRESS.
00911  M00S00739.copyb   +++|*         OMSA   ALTERNATE OUTPUT FILE ERROR MESSAGE ADDRESS.
00912  M00S00740.copyb   +++|*         ERCA   ERROR COUNT ADDRESS.
00913  M00S00741.copyb   +++|
00914  M00S00742.copyb   +++|
00915  M00S00743.copyb   +++| TECA     BSS    0
00916  M00S00744.copyb   +++|          VFD    6/-1,18/IESA,18/PDED,18/PBCT  PARITY/BLOCK TOO LARGE
00917  M00S00745.copyb   +++|          VFD    6/1,18/IESC,18/PDEF,18/BFCT   BAD FORMAT BLOCK ERROR
00918  M00S00746.copyb   +++| TECAL1   EQU    *-TECA
00919  M00S00747.copyb   +++|          VFD    6/0,18/IESD,18/0,18/NZCT      NOISE BLOCKS PROCESSED
00920  M00S00748.copyb   +++|          VFD    6/0,18/IESE,18/0,18/RSCT      RECORD SPLITS PROCESSED
00921  M00S00749.copyb   +++| TECAL2   EQU    *-TECA
00922  M00S00750.copyb   +++|          TITLE  COPY/COPYBF/COPYEI.
00923  M00S00751.copyb   +++| COPY     SPACE  4,10
00924  M00S00752.copyb   +++|**        COPY - COPY ONE FILE TO ANOTHER UNTIL SPECIFIED TERMINATION
00925  M00S00753.copyb   +++|*         CONDITION IS MET.
00926  M00S00754.copyb   +++|*
00927  M00S00755.copyb   +++|*         EXIT   TO *CPY*.
00928  M00S00756.copyb   +++|
00929  M00S00757.copyb   +++|
00930  M00S00758.copyb   +++| COPY     SX6    -1          INDICATE *COPY* CALL
00931  M00S00759.copyb   +++|          RJ     CTP         COPY/TCOPY PRESET PROGRAM
00932  M00S00760.copyb   +++|          EQ     CPY         PROCESS FILE COPY
00933  M00S00761.copyb   +++| COPYBF   SPACE  4,10
00934  M00S00762.copyb   +++|**        COPYBF - COPY SPECIFIED NUMBER OF FILES FROM ONE FILE TO
00935  M00S00763.copyb   +++|*         ANOTHER.
00936  M00S00764.copyb   +++|*
00937  M00S00765.copyb   +++|*         EXIT   TO *CPY*.
00938  M00S00766.copyb   +++|
00939  M00S00767.copyb   +++|
00940  M00S00768.copyb   +++| COPYBF   SX6    1           INDICATE *COPYBF* CALL
00941  M00S00769.copyb   +++|          RJ     PRS         PRESET PROGRAM
00942  M00S00770.copyb   +++|          EQ     CPY         PROCESS FILE COPY
00943  M00S00771.copyb   +++| COPYEI   SPACE  4,10
00944  M00S00772.copyb   +++|**        COPYEI - COPY ONE FILE TO ANOTHER UNTIL END OF INFORMATION
00945  M00S00773.copyb   +++|*         IS ENCOUNTERED.
00946  M00S00774.copyb   +++|*
00947  M00S00775.copyb   +++|*         EXIT   TO *CPY*.
00948  M00S00776.copyb   +++|
00949  M00S00777.copyb   +++|
00950  M00S00778.copyb   +++| COPYEI   SX7    -1          SET TERMINATION CONDITION
00951  M00S00779.copyb   +++|          SX6    2           INDICATE *COPYEI* CALL
00952  M00S00780.copyb   +++|          SA7    TC
00953  M00S00781.copyb   +++|          RJ     PRS         PRESET PROGRAM
00954  M00S00782.copyb   +++|*         EQ     CPY         PROCESS COPY TO EOI
00955  M00S00783.copyb   +++| CPY      SPACE  4,10
00956  M00S00784.copyb   +++|**        CPY - COPY FILES.
00957  M00S00785.copyb   +++|*
00958  M00S00786.copyb   +++|*         EXIT   TO *SBC*, IF SINGLE BUFFER COPY.
00959  M00S00787.copyb   +++|*                TO *END*, IF COPY COMPLETE.
00960  M00S00788.copyb   +++|*                TO *END5*, IF EOI ENCOUNTERED.
00961  M00S00789.copyb   +++|*
00962  M00S00790.copyb   +++|*         USES   A - 0, 1, 2.
00963  M00S00791.copyb   +++|*                X - 1, 2.
00964  M00S00792.copyb   +++|*
00965  M00S00793.copyb   +++|*         CALLS  CPF, WNB=.
00966  M00S00794.copyb   +++|
00967  M00S00795.copyb   +++|
00968  M00S00796.copyb   +++| CPY      SA2    SBT         GET SINGLE BUFFER COPY INDICATOR
00969  M00S00797.copyb   +++|          PL     X2,SBC      IF NO DATA MANIPULATION REQUIRED
00970  M00S00798.copyb   +++|          SA1    O+CWF
00971  M00S00799.copyb   +++|          SA0    BUFL-3      DEFAULT WORKING BUFFER LENGTH
00972  M00S00800.copyb   +++|          ZR     X1,CPY1     IF CONTROL WORD WRITE DISABLED
00973  M00S00801.copyb   +++|          RECALL O
00974  M00S00802.copyb   +++|          WRITECW O,*        PRESET CONTROL WORD WRITE FUNCTION
00975  M00S00803.copyb   +++|          SA2    O+PRU       GET OUTPUT PRU SIZE
00976  M00S00804.copyb   +++|          SA0    X2+
00977  M00S00805.copyb   +++| CPY1     RJ     CPF         COPY FILE
00978  M00S00806.copyb   +++|          SA1    CT
00979  M00S00807.copyb   +++|          NG     X0,END5     IF EOI ENCOUNTERED
00980  M00S00808.copyb   +++|          ZR     X1,END      IF COPY COMPLETE
00981  M00S00809.copyb   +++|          EQ     CPY1        CONTINUE COPY
00982  M00S00810.copyb   +++| SBC      SPACE  4,10
00983  M00S00811.copyb   +++|**        SBC - SINGLE BUFFER COPY.
00984  M00S00812.copyb   +++|*
00985  M00S00813.copyb   +++|*         EXIT   TO *END*, IF COPY COMPLETE.
00986  M00S00814.copyb   +++|*                TO *END5*, IF EOI ENCOUNTERED.
00987  M00S00815.copyb   +++|*
00988  M00S00816.copyb   +++|*         USES   A - 0, 1, 2, 3, 4, 6, 7.
00989  M00S00817.copyb   +++|*                B - 3, 6, 7.
00990  M00S00818.copyb   +++|*                X - ALL.
00991  M00S00819.copyb   +++|*
00992  M00S00820.copyb   +++|*         CALLS  ABP, CIO=, DRN, PDE, PEF, SYS=, WNB=.
00993  M00S00821.copyb   +++|*
00994  M00S00822.copyb   +++|*         PROGRAMMER,S NOTE - WHEN CHECKING FOR FET COMPLETE AND
00995  M00S00823.copyb   +++|*         DATA IN THE BUFFER, THE FET STATUS MUST BE PICKED UP
00996  M00S00824.copyb   +++|*         BEFORE THE BUFFER POINTER.
00997  M00S00825.copyb   +++|
00998  M00S00826.copyb   +++|
00999  M00S00827.copyb   +++| SBC      RECALL O
01000  M00S00828.copyb   +++|          WRITECW O,*        PRESET CONTROL WORD WRITE
01001  M00S00829.copyb   +++|          SA2    I+3
01002  M00S00830.copyb   +++|          BX5    X5-X5       INDICATE NO DATA TRANSFERRED
01003  M00S00831.copyb   +++|          SA0    X2+         INITIALIZE INPUT PSEUDO OUT POINTER
01004  M00S00832.copyb   +++|          BX0    X0-X0       INDICATE NO BLOCKS AVAILABLE OR COMPLETE
01005  M00S00833.copyb   +++|          EQ     SBC13       INITIATE CONTROL WORD READ
01006  M00S00834.copyb   +++|
01007  M00S00835.copyb   +++|*         CHECK FOR INPUT BLOCK AVAILABLE.
01008  M00S00836.copyb   +++|
01009  M00S00837.copyb   +++| SBC1     SA2    I           CHECK INPUT FILE STATUS
01010  M00S00838.copyb   +++|          SA3    I+2         CHECK INPUT IN = PSEUDO OUT POINTER
01011  M00S00839.copyb   +++|          BX0    X0-X0       INDICATE NO BLOCKS AVAILABLE OR COMPLETE
01012  M00S00840.copyb   +++|          SX1    A0
01013  M00S00841.copyb   +++|          IX1    X3-X1
01014  M00S00842.copyb   +++|          LX2    59-0
01015  M00S00843.copyb   +++|          NZ     X1,SBC3     IF INPUT BLOCK AVAILABLE
01016  M00S00844.copyb   +++|          PL     X2,SBC7     IF BUFFER BUSY
01017  M00S00845.copyb   +++|          LX2    59-11-59+0
01018  M00S00846.copyb   +++|          NG     X2,SBC17    IF PARITY ERROR STATUS IN FET
01019  M00S00847.copyb   +++|          LX2    59-3-59+11
01020  M00S00848.copyb   +++|          PL     X2,SBC7     IF NOT EOF
01021  M00S00849.copyb   +++|          LX2    59-9-59+3
01022  M00S00850.copyb   +++|          PL     X2,SBC2     IF NOT EOI
01023  M00S00851.copyb   +++|          SX0    -1          INDICATE EOI ENCOUNTERED
01024  M00S00852.copyb   +++|
01025  M00S00853.copyb   +++|*         PROCESS EOF OR EOI.
01026  M00S00854.copyb   +++|
01027  M00S00855.copyb   +++| SBC2     RJ     PEF         PROCESS EOF
01028  M00S00856.copyb   +++|          SA1    CT
01029  M00S00857.copyb   +++|          NG     X0,END5     IF EOI ENCOUNTERED
01030  M00S00858.copyb   +++|          ZR     X1,END      IF COPY COMPLETE
01031  M00S00859.copyb   +++|          SA2    O+2         UPDATE INPUT IN = OUTPUT IN
01032  M00S00860.copyb   +++|          LX6    X2
01033  M00S00861.copyb   +++|          BX5    X5-X5       INDICATE NO DATA TRANSFERRED
01034  M00S00862.copyb   +++|          SA6    I+2
01035  M00S00863.copyb   +++|          SA0    X2          UPDATE INPUT PSEUDO OUT POINTER
01036  M00S00864.copyb   +++|          SX0    B1          FORCE CHECK ON OUTPUT
01037  M00S00865.copyb   +++|          SA3    SBT
01038  M00S00866.copyb   +++|          NZ     X3,SBC13    IF NOT LARGE L OR F TAPE COPY
01039  M00S00867.copyb   +++|          SA2    SK
01040  M00S00868.copyb   +++|          NZ     X2,SBC13    IF SKIP SET
01041  M00S00869.copyb   +++|          SA6    A6+B1       UPDATE INPUT OUT = OUTPUT IN
01042  M00S00870.copyb   +++|          WRITECW O,R        FORCE WRITE ON LARGE L OR F TAPE
01043  M00S00871.copyb   +++|          EQ     SBC13       REINITIATE CONTROL WORD READ
01044  M00S00872.copyb   +++|
01045  M00S00873.copyb   +++|*         PROCESS INPUT BLOCK.
01046  M00S00874.copyb   +++|
01047  M00S00875.copyb   +++| SBC3     SX0    B1          INDICATE INPUT BLOCK TRANSFERRED
01048  M00S00876.copyb   +++|          SA3    BC          INCREMENT BLOCK COUNT
01049  M00S00877.copyb   +++|          SX5    B1          INDICATE DATA TRANSFERRED
01050  M00S00878.copyb   +++|          IX6    X3+X5
01051  M00S00879.copyb   +++|          SA4    A0          CRACK CONTROL WORD HEADER
01052  M00S00880.copyb   +++|          MX7    -24
01053  M00S00881.copyb   +++|          SA6    A3
01054  M00S00882.copyb   +++|          BX7    -X7*X4      BYTE COUNT
01055  M00S00883.copyb   +++|          SX2    4           CALCULATE WORD COUNT
01056  M00S00884.copyb   +++|          IX7    X7+X2
01057  M00S00885.copyb   +++|          SX2    X2+B1
01058  M00S00886.copyb   +++|          IX7    X7/X2
01059  M00S00887.copyb   +++|          AX4    36
01060  M00S00888.copyb   +++|          SB6    X7
01061  M00S00889.copyb   +++|          SA2    EORF        CHECK FOR PREVIOUS EOR
01062  M00S00890.copyb   +++|          SB7    X4          PRU SIZE
01063  M00S00891.copyb   +++|          ZR     X2,SBC4     IF PREVIOUS BLOCK NOT EOR
01064  M00S00892.copyb   +++|          SA2    I+4         GET FWA DATA IN BLOCK
01065  M00S00893.copyb   +++|          SX3    B1
01066  M00S00894.copyb   +++|          SX1    A0
01067  M00S00895.copyb   +++|          RJ     ABP
01068  M00S00896.copyb   +++|          BX2    -X6         INDICATE BLOCK IN CIO BUFFER
01069  M00S00897.copyb   +++|          SX1    X6+B6
01070  M00S00898.copyb   +++|          RJ     DRN         DISPLAY RECORD NAME
01071  M00S00899.copyb   +++| SBC4     SA4    I+SLF
01072  M00S00900.copyb   +++|          SA2    I+4
01073  M00S00901.copyb   +++|          SX6    -B1         INDICATE EOR STATUS FOR S, L, F TAPE
01074  M00S00902.copyb   +++|          NZ     X4,SBC5     IF S, L, OR F INPUT TAPE
01075  M00S00903.copyb   +++|          SX6    B6-B7       NO EOR IF FULL BLOCK
Line S00904 Modification History
M01 (Removed by) ns2701
Seq #  *Modification Id* Act 
----------------------------+
01076  M01S00904.ns2701  ---| SBC5     SA6    EORF        SAVE EOR FLAG
01077  M01S00905.ns2701  ---|          SX3    B6+2        ADVANCE OVER BLOCK AND CONTROL WORDS
Line S00005 Modification History
M01 (Added by) ns2701
Seq #  *Modification Id* Act 
----------------------------+
01078  M01S00005.ns2701  +++| SBC5     SA1    WCPY
01079  M01S00006.ns2701  +++|          SA6    EORF        SAVE EOR FLAG
01080  M01S00007.ns2701  +++|          SX7    B6
01081  M01S00008.ns2701  +++|          IX7    X1+X7       INCREMENT WORD COPY COUNT
01082  M01S00009.ns2701  +++|          SA7    A1
01083  M01S00010.ns2701  +++|          SX1    A0
01084  M01S00011.ns2701  +++|          ZR     X6,SCB5.1   IF NOT EOR/EOF
01085  M01S00012.ns2701  +++|          SX3    B6+1
01086  M01S00013.ns2701  +++|          RJ     ABP         FIND POSITION TRAILER CONTROL WORD
01087  M01S00014.ns2701  +++|          SA1    RCPY
01088  M01S00015.ns2701  +++|          SA2    I+4
01089  M01S00016.ns2701  +++|          SA4    X6          TRAILER CONTROL WORD
01090  M01S00017.ns2701  +++|          MX7    -12
01091  M01S00018.ns2701  +++|          LX4    12
01092  M01S00019.ns2701  +++|          SX6    X1+B1       INCREMENT RECORD COPY COUNT
01093  M01S00020.ns2701  +++|          SA6    A1
01094  M01S00021.ns2701  +++|          SA1    FCPY
01095  M01S00022.ns2701  +++|          BX7    -X7*X4
01096  M01S00023.ns2701  +++|          SX7    X7-17B      CHECK FOR EOF
01097  M01S00024.ns2701  +++|          NZ     X7,SCB5.1   IF NOT EOF
01098  M01S00025.ns2701  +++|          SX6    X1+1        INCREMENT FILE COUNT
01099  M01S00026.ns2701  +++|          SA6    A1+
01100  M01S00027.ns2701  +++| SCB5.1   SX3    B6+2        ADVANCE OVER BLOCK AND CONTROL WORDS
01101  M00S00906.copyb   +++|          SX1    A0
01102  M00S00907.copyb   +++|          RJ     ABP
01103  M00S00908.copyb   +++|          SA1    A0+         GET CONTROL WORD HEADER
01104  M00S00909.copyb   +++|          NG     X1,SBC16    IF ERROR OCCURRED ON THIS BLOCK
01105  M00S00910.copyb   +++|
01106  M00S00911.copyb   +++|*         TRANSFER BLOCK TO OUTPUT.
01107  M00S00912.copyb   +++|
01108  M00S00913.copyb   +++| SBC6     SA6    O+2         ADVANCE OUTPUT IN POINTER
01109  M00S00914.copyb   +++|          SA1    SK
01110  M00S00915.copyb   +++|          SA0    X6          ADVANCE INPUT PSEUDO OUT POINTER
01111  M00S00916.copyb   +++|          ZR     X1,SBC7     IF SKIP NOT SET
01112  M00S00917.copyb   +++|          SA6    A6+B1       ADVANCE OUTPUT OUT POINTER
01113  M00S00918.copyb   +++|          SA6    I+3         ADVANCE INPUT OUT POINTER
01114  M00S00919.copyb   +++|          EQ     SBC11       CONTINUE CONTROL WORD READ
01115  M00S00920.copyb   +++|
01116  M00S00921.copyb   +++|*         CHECK FOR REINITIATE CONTROL WORD WRITE.
01117  M00S00922.copyb   +++|
01118  M00S00923.copyb   +++| SBC7     SA1    SK
01119  M00S00924.copyb   +++|          NZ     X1,SBC11    IF SKIP SET
01120  M00S00925.copyb   +++|          SA2    O           CHECK OUTPUT FILE STATUS
01121  M00S00926.copyb   +++|          SA1    O+2
01122  M00S00927.copyb   +++|          LX2    59-0
01123  M00S00928.copyb   +++|          PL     X2,SBC10    IF BUFFER BUSY
01124  M00S00929.copyb   +++|          SA2    A1+B1       CHECK BUFFER THRESHOLD
01125  M00S00930.copyb   +++|          SA3    SBT
01126  M00S00931.copyb   +++|          IX1    X1-X2       (IN-OUT)
01127  M00S00932.copyb   +++|          IX2    X1-X3       (IN-OUT) - 1/3(BUFFER SIZE)
01128  M00S00933.copyb   +++|          ZR     X1,SBC10    IF BUFFER EMPTY
01129  M00S00934.copyb   +++|          ZR     X3,SBC9     IF FORCE WRITE ON LARGE L OR F TAPE
01130  M00S00935.copyb   +++|          PL     X1,SBC8     IF IN .GT. OUT
01131  M00S00936.copyb   +++|          LX3    1
01132  M00S00937.copyb   +++|          IX2    X3+X1       2/3(BUFFER SIZE) - (OUT-IN)
01133  M00S00938.copyb   +++| SBC8     NG     X2,SBC10    IF BUFFER THRESHOLD NOT REACHED
01134  M00S00939.copyb   +++| SBC9     WRITECW O          REINITIATE CONTROL WORD WRITE
01135  M00S00940.copyb   +++|
01136  M00S00941.copyb   +++|*         CHECK FOR OUTPUT BLOCK WRITTEN.
01137  M00S00942.copyb   +++|
01138  M00S00943.copyb   +++| SBC10    SA1    O+3         CHECK OUTPUT OUT = INPUT OUT
01139  M00S00944.copyb   +++|          SA2    I+3
01140  M00S00945.copyb   +++|          IX3    X1-X2
01141  M00S00946.copyb   +++|          ZR     X3,SBC11    IF BLOCK NOT WRITTEN
01142  M00S00947.copyb   +++|          BX6    X1
01143  M00S00948.copyb   +++|          SX0    X0+B1       INDICATE OUTPUT BLOCK COMPLETE
01144  M00S00949.copyb   +++|          SA6    A2          UPDATE INPUT OUT = OUTPUT OUT
01145  M00S00950.copyb   +++|
01146  M00S00951.copyb   +++|*         CHECK FOR REINITIATE CONTROL WORD READ.
01147  M00S00952.copyb   +++|
01148  M00S00953.copyb   +++| SBC11    SA4    I           CHECK INPUT FILE STATUS
01149  M00S00954.copyb   +++|          LX4    59-0
01150  M00S00955.copyb   +++|          PL     X4,SBC15    IF BUFFER BUSY
01151  M00S00956.copyb   +++|          SA1    I+2
01152  M00S00957.copyb   +++|          LX4    59-11-59+0
01153  M00S00958.copyb   +++|          NG     X4,SBC15    IF PARITY ERROR STATUS IN FET
01154  M00S00959.copyb   +++|          LX4    59-3-59+11
01155  M00S00960.copyb   +++|          NG     X4,SBC15    IF EOF/EOI ENCOUNTERED
01156  M00S00961.copyb   +++|          SA3    SBT         CHECK BUFFER THRESHOLD
01157  M00S00962.copyb   +++|          SA2    A1+B1
01158  M00S00963.copyb   +++|          IX1    X1-X2       (IN-OUT)
01159  M00S00964.copyb   +++|          IX2    X3+X1       1/3(BUFFER SIZE) + (IN-OUT)
01160  M00S00965.copyb   +++|          ZR     X1,SBC13    IF BUFFER EMPTY
01161  M00S00966.copyb   +++|          ZR     X3,SBC15    IF WAIT FOR WRITE ON LARGE L OR F TAPE
01162  M00S00967.copyb   +++|          NG     X1,SBC12    IF OUT .GT. IN
01163  M00S00968.copyb   +++|          LX3    1
01164  M00S00969.copyb   +++|          IX2    X1-X3       (IN-OUT) - 2/3(BUFFER SIZE)
01165  M00S00970.copyb   +++| SBC12    PL     X2,SBC15    IF BUFFER THRESHOLD NOT REACHED
01166  M00S00971.copyb   +++| SBC13    SA1    TC          CHECK TERMINATION CONDITION
01167  M00S00972.copyb   +++|          PL     X1,SBC14    IF NOT COPY TO EOI
01168  M00S00973.copyb   +++|          SA2    SEWI        CHECK SKIP EOF WRITE INDICATOR
01169  M00S00974.copyb   +++|          NZ     X2,SBC14    IF PO=M OPTION SELECTED
01170  M00S00975.copyb   +++|          READCW I,0         INITIATE CONTROL WORD READ TO EOI
01171  M00S00976.copyb   +++|          EQ     SBC15       CHECK FOR RECALL
01172  M00S00977.copyb   +++|
01173  M00S00978.copyb   +++| SBC14    READCW I,17B       INITIATE CONTROL WORD READ TO EOF
01174  M00S00979.copyb   +++|
01175  M00S00980.copyb   +++|*         CHECK FOR RECALL.
01176  M00S00981.copyb   +++|
01177  M00S00982.copyb   +++| SBC15    NZ     X0,SBC1     IF INPUT AND/OR OUTPUT BLOCKS TRANSFERRED
01178  M00S00983.copyb   +++|          RECALL             WAIT FOR DATA TRANSFER
01179  M00S00984.copyb   +++|          EQ     SBC1        CHECK FOR INPUT BLOCKS
01180  M00S00985.copyb   +++|
01181  M00S00986.copyb   +++|*         PROCESS PARITY OR BLOCK TOO LARGE ERROR.
01182  M00S00987.copyb   +++|
01183  M00S00988.copyb   +++| SBC16    BX5    X6          SAVE ADVANCED POINTER VALUE
01184  M00S00989.copyb   +++|          SB3    B0          INDICATE PARITY/BLOCK TOO LARGE ERROR
01185  M00S00990.copyb   +++|          RJ     PDE         PROCESS ERROR
01186  M00S00991.copyb   +++|          BX6    X5
01187  M00S00992.copyb   +++|          SA2    ESPI        CHECK ERROR BLOCKS SKIPPED OR PROCESSED
01188  M00S00993.copyb   +++|          SX7    A0
01189  M00S00994.copyb   +++|          NZ     X2,SBC6     IF BLOCK TO BE PROCESSED
01190  M00S00995.copyb   +++|          SA7    I+2         BACKUP INPUT IN POINTER
01191  M00S00996.copyb   +++|          RECALL I           WAIT FOR ERROR STATUS COMPLETION
01192  M00S00997.copyb   +++| SBC17    SX2    I
01193  M00S00998.copyb   +++|          RJ     CUE         CHECK FOR UNRECOVERABLE ERROR
01194  M00S00999.copyb   +++|          SX0    B1+         FORCE CHECK ON OUTPUT
01195  M00S01000.copyb   +++|          SA3    SBT
01196  M00S01001.copyb   +++|          NZ     X3,SBC13    IF NOT LARGE L OR F TAPE COPY
01197  M00S01002.copyb   +++|          RECALL O           WAIT FOR WRITE TO COMPLETE
01198  M00S01003.copyb   +++|          EQ     SBC13       REINITIATE CONTROL WORD READ
01199  M00S01004.copyb   +++|          TITLE  COMMON COPY ROUTINES.
01200  M00S01005.copyb   +++| ABP      SPACE  4,15
01201  M00S01006.copyb   +++|**        ABP - ADVANCE BUFFER POINTER.
01202  M00S01007.copyb   +++|*
01203  M00S01008.copyb   +++|*         EXIT   (A2) = ADDRESS OF LIMIT POINTER.
01204  M00S01009.copyb   +++|*                (X1) = IN OR OUT POINTER TO BE UPDATED.
01205  M00S01010.copyb   +++|*                (X2) = LIMIT POINTER.
01206  M00S01011.copyb   +++|*                (X3) = NUMBER OF WORDS TO ADVANCE.
01207  M00S01012.copyb   +++|*
01208  M00S01013.copyb   +++|*         EXIT   (X6) = ADVANCED IN OR OUT POINTER VALUE.
01209  M00S01014.copyb   +++|*
01210  M00S01015.copyb   +++|*         USES   A - 2.
01211  M00S01016.copyb   +++|*                X - 1, 2, 3, 6.
01212  M00S01017.copyb   +++|
01213  M00S01018.copyb   +++|
01214  M00S01019.copyb   +++| ABP      SUBR               ENTRY/EXIT
01215  M00S01020.copyb   +++|          SX2    X2+
01216  M00S01021.copyb   +++|          IX2    X2-X1
01217  M00S01022.copyb   +++|          IX6    X3-X2
01218  M00S01023.copyb   +++|          NG     X6,ABP1     IF NO WRAP AROUND
01219  M00S01024.copyb   +++|          SA2    A2-3        FIRST
01220  M00S01025.copyb   +++|          BX3    X6
01221  M00S01026.copyb   +++|          SX1    X2
01222  M00S01027.copyb   +++| ABP1     IX6    X1+X3
01223  M00S01028.copyb   +++|          EQ     ABPX        RETURN
01224  M00S01029.copyb   +++| ABT      SPACE  4,15
01225  M00S01030.copyb   +++|**        ABT - ABORT ROUTINE.
01226  M00S01031.copyb   +++|*
01227  M00S01032.copyb   +++|*         FLUSHES OUTPUT FILE BUFFER.  FLUSHES ALTERNATE OUTPUT FILE
01228  M00S01033.copyb   +++|*         BUFFER, IF NECESSARY.  ISSUES DAYFILE MESSAGES.
01229  M00S01034.copyb   +++|*
01230  M00S01035.copyb   +++|*         ENTRY  (B5) = FWA MESSAGE, IF ENTRY AT *ABT4*.
01231  M00S01036.copyb   +++|*
01232  M00S01037.copyb   +++|*         USES   A - 1, 2, 6.
01233  M00S01038.copyb   +++|*                B - 2.
01234  M00S01039.copyb   +++|*                X - 1, 2, 6.
01235  M00S01040.copyb   +++|*
01236  M00S01041.copyb   +++|*         CALLS  CIO=, IES, MSG=, SNM, SYS=.
01237  M00S01042.copyb   +++|
01238  M00S01043.copyb   +++|
01239  M00S01044.copyb   +++| ABT4     SX6    B5+         SAVE ABORT MESSAGE ADDRESS
01240  M00S01045.copyb   +++|          SA1    I           SET NAME IN MESSAGE
01241  M00S01046.copyb   +++|          MX2    42
01242  M00S01047.copyb   +++|          SA6    ABTA
01243  M00S01048.copyb   +++|          BX1    X2*X1
01244  M00S01049.copyb   +++|          SB2    1RX
01245  M00S01050.copyb   +++|          RJ     SNM
01246  M00S01051.copyb   +++|*         EQ     ABT
01247  M00S01052.copyb   +++|
01248  M00S01053.copyb   +++| ABT      SA1    SK
01249  M00S01054.copyb   +++|          NZ     X1,ABT2     IF SKIP SET
01250  M00S01055.copyb   +++|          SA1    O+CWF
01251  M00S01056.copyb   +++|          ZR     X1,ABT1     IF CONTROL WORDS DISABLED ON OUTPUT
01252  M00S01057.copyb   +++|          WRITECW O          FLUSH OUTPUT BUFFER
01253  M00S01058.copyb   +++|          EQ     ABT2        ABORT
01254  M00S01059.copyb   +++|
01255  M00S01060.copyb   +++| ABT1     WRITER O           FLUSH OUTPUT BUFFER
01256  M00S01061.copyb   +++|
01257  M00S01062.copyb   +++| ABT2     SA1    EL
01258  M00S01063.copyb   +++|          ZR     X1,ABT3     IF EXTENDED ERROR PROCESSING NOT IN EFFECT
01259  M00S01064.copyb   +++|          WRITER L           FLUSH ALTERNATE OUTPUT FILE BUFFER
01260  M00S01065.copyb   +++| ABT3     RECALL I           FORCE 1MT ERROR MESSAGES TO DAYFILE FIRST
01261  M00S01066.copyb   +++|          RJ     IES         ISSUE ERROR SUMMARY MESSAGES
01262  M00S01067.copyb   +++|          SA2    ABTA        ISSUE ABORT MESSAGE
01263  M00S01068.copyb   +++|          MESSAGE X2,0
01264  M00S01069.copyb   +++|          ABORT
01265  M00S01070.copyb   +++|
01266  M00S01071.copyb   +++|
01267  M00S01072.copyb   +++| ABTA     CON    ABTB        ABORT MESSAGE ADDRESS
01268  M00S01073.copyb   +++|
01269  M00S01074.copyb   +++| ABTB     DATA   C* ERROR LIMIT EXCEEDED.*
01270  M00S01075.copyb   +++| ABTC     DATA   C* RECORD TOO LARGE ON XXXXXXX.*
01271  M00S01076.copyb   +++| ABTD     DATA   C* UNRECOVERABLE ERROR ON XXXXXXX.*
01272  M00S01077.copyb   +++| BFL      SPACE  4,15
01273  M00S01078.copyb   +++|**        BFL - BLANK FILL LINE.
01274  M00S01079.copyb   +++|*
01275  M00S01080.copyb   +++|*         ENTRY  (B6) = LWA+1 CODED LINE.
01276  M00S01081.copyb   +++|*                (B7) = LENGTH OF FULL LINE.
01277  M00S01082.copyb   +++|*                (FWWB) = FWA WORKING BUFFER.
01278  M00S01083.copyb   +++|*
01279  M00S01084.copyb   +++|*         EXIT   (B6) = LWA+1 BLANK FILLED LINE.
01280  M00S01085.copyb   +++|*
01281  M00S01086.copyb   +++|*         USES   A - 1, 2, 6.
01282  M00S01087.copyb   +++|*                B - 4, 6.
01283  M00S01088.copyb   +++|*                X - 1, 2, 3, 6.
01284  M00S01089.copyb   +++|*
01285  M00S01090.copyb   +++|*         CALLS  SFN.
01286  M00S01091.copyb   +++|
01287  M00S01092.copyb   +++|
01288  M00S01093.copyb   +++| BFL      SUBR               ENTRY/EXIT
01289  M00S01094.copyb   +++|          SA2    FWWB        FWA WORKING BUFFER
01290  M00S01095.copyb   +++|          SA1    B6-B1       GET LAST WORD OF LINE
01291  M00S01096.copyb   +++|          SB4    X2+B7
01292  M00S01097.copyb   +++|          NZ     X1,BFL1     IF LAST WORD NOT ZERO
01293  M00S01098.copyb   +++|          SB6    B6-B1       GET PREVIOUS WORD OF LINE
01294  M00S01099.copyb   +++|          SA1    B6-B1
01295  M00S01100.copyb   +++| BFL1     RJ     SFN         BLANK FILL LAST DATA WORD
01296  M00S01101.copyb   +++|          SA6    A1
01297  M00S01102.copyb   +++|          SA2    =10H
01298  M00S01103.copyb   +++|          BX6    X2
01299  M00S01104.copyb   +++| BFL2     GE     B6,B4,BFLX  IF AT LINE LIMIT
01300  M00S01105.copyb   +++|          SA6    B6          BLANK FILL TO LINE LIMIT
01301  M00S01106.copyb   +++|          SB6    B6+B1
01302  M00S01107.copyb   +++|          EQ     BFL2        CONTINUE BLANK FILL
01303  M00S01108.copyb   +++| CPF      SPACE  4,15
01304  M00S01109.copyb   +++|**        CPF - COPY FILE.
01305  M00S01110.copyb   +++|*
01306  M00S01111.copyb   +++|*         ENTRY  (A0) = WORD COUNT FOR READ.
01307  M00S01112.copyb   +++|*                (FWWB) = FWA WORKING BUFFER.
01308  M00S01113.copyb   +++|*
01309  M00S01114.copyb   +++|*         EXIT   (X0) .LT. 0, IF EOI ENCOUNTERED.
01310  M00S01115.copyb   +++|*                (CT) = 0, IF COPY COMPLETE.
01311  M00S01116.copyb   +++|*
01312  M00S01117.copyb   +++|*         USES   A - 1, 2, 4.
01313  M00S01118.copyb   +++|*                B - 2, 3, 4, 5, 6, 7.
01314  M00S01119.copyb   +++|*                X - 0, 1, 2, 4, 5.
01315  M00S01120.copyb   +++|*
01316  M00S01121.copyb   +++|*         CALLS  CIO=, CWR, CWW, DRN, PEF, RDW=, SSL, WNB=, WTW=.
01317  M00S01122.copyb   +++|
01318  M00S01123.copyb   +++|
01319  M00S01124.copyb   +++| CPF9     SX0    X1+B1       PROCESS END OF FILE
01320  M00S01125.copyb   +++|          RJ     PEF
01321  M00S01126.copyb   +++|
01322  M00S01127.copyb   +++| CPF      SUBR               ENTRY/EXIT
01323  M00S01128.copyb   +++|          BX5    X5-X5       INDICATE NO DATA TRANSFERRED
01324  M00S01129.copyb   +++|          SA1    I+CWF
01325  M00S01130.copyb   +++|          SX0    B1          INDICATE READ TO BE REINITIATED
01326  M00S01131.copyb   +++|          ZR     X1,CPF1     IF CONTROL WORD READ DISABLED
01327  M00S01132.copyb   +++|          SA2    I+TCF
01328  M00S01133.copyb   +++|          SB3    -B1
01329  M00S01134.copyb   +++|          SB2    X2
Line S01135 Modification History
M01 (Removed by) copyb5
Seq #  *Modification Id* Act 
----------------------------+
01330  M01S01135.copyb5  ---|          LT     B2,B3,CPF1  IF SI-CODED TAPE READ VIA S FORMAT
Line S00024 Modification History
M01 (Added by) copyb5
M02 (Removed by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
01331  M02S00024.274l797 ---|          LT     B2,B3,CPF1  IF SI-C/I TAPE READ VIA S/L FORMAT
Line S00083 Modification History
M01 (Added by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
01332  M01S00083.274l797 +++|          LT     B2,B3,CPF1  IF I OR SI-C TAPE READ VIA S/L FORMAT
01333  M00S01136.copyb   +++|          READCW I,17B       INITIATE CONTROL WORD READ
01334  M00S01137.copyb   +++| CPF1     SA1    O+CWF
01335  M00S01138.copyb   +++|          NZ     X1,CPF2     IF CONTROL WORD WRITE ENABLED
01336  M00S01139.copyb   +++|          RECALL O
01337  M00S01140.copyb   +++|          WRITE  O,*         PRESET STANDARD WRITE
01338  M00S01141.copyb   +++| CPF2     SA1    I+CWF
01339  M00S01142.copyb   +++|          ZR     X1,CPF3     IF CONTROL WORD READ DISABLED
01340  M00S01143.copyb   +++|          CWRW   I,(FWWB),A0
01341  M00S01144.copyb   +++|          EQ     CPF5        CHECK READ STATUS
01342  M00S01145.copyb   +++|
01343  M00S01146.copyb   +++| CPF3     ZR     X0,CPF4     IF PREVIOUS READ STATUS NOT EOR
01344  M00S01147.copyb   +++|          READ   I           INITIATE STANDARD READ
01345  M00S01148.copyb   +++| CPF4     SA4    FWWB        FWA WORKING BUFFER
01346  M00S01149.copyb   +++|          READW  I,X4,A0
01347  M00S01150.copyb   +++| CPF5     NG     X1,CPF9     IF EOF/EOI ENCOUNTERED
01348  M00S01151.copyb   +++|          SX5    B1+         INDICATE DATA TRANSFERRED
01349  M00S01152.copyb   +++|          SB4    X0          SAVE PREVIOUS READ STATUS
01350  M00S01153.copyb   +++|          SB5    X1          SAVE CURRENT READ STATUS
01351  M00S01154.copyb   +++|          ZR     X0,CPF6     IF PREVIOUS READ STATUS NOT EOR
Line S00056 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
01352  M01S00056.v23l617 +++|          RJ     VNS         VERIFY NOISE SIZE BLOCK
01353  M01S00057.v23l617 +++|          SX0    B5          RESTORE CURRENT READ STATUS
01354  M01S00058.v23l617 +++|          NG     X4,CPF2     IF NOISE BLOCK
01355  M00S01155.copyb   +++|          SA2    FWWB        DISPLAY RECORD NAME
01356  M00S01156.copyb   +++|          RJ     DRN
01357  M00S01157.copyb   +++| CPF6     SA1    FWWB        FWA WORKING BUFFER
01358  M00S01158.copyb   +++|          SA2    SK
01359  M00S01159.copyb   +++|          SX0    B5          RESTORE CURRENT READ STATUS
01360  M00S01160.copyb   +++|          SB3    X1
Line S01161 Modification History
M01 (Removed by) ns2701
Seq #  *Modification Id* Act 
----------------------------+
01361  M01S01161.ns2701  ---|          NZ     X2,CPF2     IF SKIP SET
Line S00028 Modification History
M01 (Added by) ns2701
Seq #  *Modification Id* Act 
----------------------------+
01362  M01S00028.ns2701  +++|          SA3    WCPY
01363  M01S00029.ns2701  +++|          NZ     X2,CPF10    IF SKIP SET
01364  M00S01162.copyb   +++|          SA2    O+SLF
01365  M00S01163.copyb   +++|          SA1    O+CWF
01366  M00S01164.copyb   +++|          SB7    B6-B3
01367  M00S01165.copyb   +++|          SB2    X2
01368  M01S00030.ns2701  +++|          SX4    B7
01369  M01S00031.ns2701  +++|          IX6    X4+X3       ADD CURRENT WORD COPY COUNT
01370  M01S00032.ns2701  +++|          SA6    A3+
01371  M00S01166.copyb   +++|          ZR     X1,CPF8     IF CONTROL WORD WRITE DISABLED
01372  M00S01167.copyb   +++|          LE     B2,CPF7     IF NOT S OR L OUTPUT TAPE
01373  M00S01168.copyb   +++|          RJ     SSL         SPECIAL PROCESSING FOR S OR L OUTPUT TAPE
01374  M00S01169.copyb   +++| CPF7     CWWW   O,B3,B7
01375  M00S01170.copyb   +++|          EQ     CPF2        CONTINUE COPY
01376  M00S01171.copyb   +++|
01377  M00S01172.copyb   +++| CPF8     WRITEW O,B3,B7
01378  M00S01173.copyb   +++|          ZR     X0,CPF2     IF CURRENT READ STATUS NOT EOR
01379  M00S01174.copyb   +++|          WRITER O
01380  M01S00033.ns2701  +++|          SA1    RCPY        INCREMENT RECORD COUNT
01381  M01S00034.ns2701  +++|          SX6    X1+B1
01382  M01S00035.ns2701  +++|          SA6    A1
01383  M00S01175.copyb   +++|          EQ     CPF1        PRESET STANDARD WRITE
01384  M01S00036.ns2701  +++|
01385  M01S00037.ns2701  +++| CPF10    SX4    B6-B3
01386  M01S00038.ns2701  +++|          IX6    X4+X3       ADD WORDS COPIED
01387  M01S00039.ns2701  +++|          SA6    A3+
01388  M01S00040.ns2701  +++|          ZR     X0,CPF2     IF NOT EOR
01389  M01S00041.ns2701  +++|          SA1    RCPY        INCREMENT RECORD COUNT
01390  M01S00042.ns2701  +++|          SX6    X1+B1
01391  M01S00043.ns2701  +++|          SA6    A1
01392  M01S00044.ns2701  +++|          EQ     CPF2        CONTINUE COPY
01393  M00S01176.copyb   +++| CUE      SPACE  4,15
01394  M00S01177.copyb   +++|**        CUE - CHECK UNRECOVERABLE ERROR.
01395  M00S01178.copyb   +++|*
01396  M00S01179.copyb   +++|*         CLEARS ERROR STATUS FROM FET AND CLEARS BLOCK ERROR FLAG.
01397  M00S01180.copyb   +++|*         ABORTS IF UNRECOVERABLE ERROR IS DETECTED (IF LAST BLOCK
01398  M00S01181.copyb   +++|*         PROCESSED DID NOT HAVE A PARITY OR BLOCK TOO LARGE ERROR).
01399  M00S01182.copyb   +++|*
01400  M00S01183.copyb   +++|*         ENTRY  (X2) = FWA FET.
01401  M00S01184.copyb   +++|*                (ERRF) = ERROR FLAG FOR LAST BLOCK PROCESSED.
01402  M00S01185.copyb   +++|*
01403  M00S01186.copyb   +++|*         EXIT   TO *ABT4*, IF UNRECOVERABLE ERROR DETECTED.
01404  M00S01187.copyb   +++|*
01405  M00S01188.copyb   +++|*         USES   A - 1, 3, 6, 7.
01406  M00S01189.copyb   +++|*                B - 5.
01407  M00S01190.copyb   +++|*                X - 1, 3, 6, 7.
01408  M00S01191.copyb   +++|
01409  M00S01192.copyb   +++|
01410  M00S01193.copyb   +++| CUE      SUBR               ENTRY/EXIT
01411  M00S01194.copyb   +++|          SA3    ERRF        LAST BLOCK ERROR FLAG
01412  M00S01195.copyb   +++|          SB5    ABTD        * UNRECOVERABLE ERROR ON LFN.*
01413  M00S01196.copyb   +++|          SA1    X2
01414  M00S01197.copyb   +++|          PL     X3,ABT4     IF NO PARITY ERROR ON LAST BLOCK
01415  M00S01198.copyb   +++|          MX6    4           CLEAR ERROR STATUS FROM FET+0 BITS 10 - 13
01416  M00S01199.copyb   +++|          LX6    14
01417  M00S01200.copyb   +++|          SX7    B0          CLEAR BLOCK ERROR FLAG
01418  M00S01201.copyb   +++|          BX6    -X6*X1
01419  M00S01202.copyb   +++|          SA7    A3
01420  M00S01203.copyb   +++|          SA6    A1
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/copyb.txt ยท Last modified: (external edit)