+24
*        UPDATES FOR VERSION F01 BY DICK SHREWSBURY, 2/15/77,
*        TO MAKE TCOPY COMPATIBLE WITH NEW CP-V LT AND
*        FSAVE TAPES (NO :EOF SENTINEL).
+53,54
* WHICH SWITCH FROM UNLABELED TO LABELED (CP-V PO) CAN BE COPIED,      *
* BUT NOT TAPES WHICH SWITCH FROM LABELED TO UNLABELED (UNLESS :EOF'S  *
* ARE PRESENT). EACH TIME THE TCOPY PROGRAM READS A 'BEGINNING-OF-     *
+57,58
* CAUSE TERMINATION, ALLOWING NULL FILES ON LABELED TAPES TO BE COPIED.*
+226,228
* REWINDING FOR VERIFY OPERATION    * INFORMATION ONLY - AFTER THE     *
*                                   * REWIND, VERIFY WILL BEGIN        *
*                                   * AUTOMATICALLY.                   *
+371,371
         LW,8     NOOP              SET COPY FLAG
+401,401
         LW,8     NOOP              SET VERIFY-ONLY FLAG
+416,416
         LW,8     NOOP              SET VERIFY FLAG
+437,437
         LW,8     NOOP              SET COPY FLAG
+450,450
         STW,8    FLOP
+492,492
         STW,9    FLOP
+501,501
         STW,9    FLOP
+656,656
+659,659
FLOP     EQU      $                 THIS BRANCH CHANGES BASED ON'|
         BNE      READEOF           :EOF(OLD FORMAT) OR :BOF SENTINELS
+736,737
         LW,8     NORETRNV          SET FOR FT INITIALLY
         STW,8    FLOPV
+743,754
         BE       VFYWAIT           B/IF VERIFY ONLY
         M:TYPE   (MESS,MOVETAPE)
         B        CHABER
VFYWAIT  EQU      $
         M:TYPE   (MESS,VFYMES)
CHABER   EQU      $
+791,792
         LW,9     NORETRNV          FORCE CHECK ON EOF RETURN
         STW,9    FLOPV
+798,798
         STW,9    FLOPV
+851,851
+854,854
         BNE      READEOFV          :EOF(OLD FORMAT) OR :BOF SENTINELS
+978
         B        READEOFV          :EOF(OLD FORMAT) OR :BOF SENTINELS
+1012,1013
GREETING TEXTC    '      TAPE COPY/VERIFY - F01  '
CPYMES   TEXTC    'BEGIN COPY OPERATION - TAPE COPY/VERIFY VERSION F01'
+1022,1022
MOVETAPE TEXTC    'REWINDING FOR VERIFY OPERATION'
+1045,1045
HEADING  TEXTC    '                   TAPE COPY AND VERIFY - F01'
+1060,1060
+1081,1083
RETURN   BNE      READ
NORETRN  BNE      READEOF
RETURNV  BNE      READV
NORETRNV BNE      READEOFV
NOOP     NOP
+END
