TAPET4     JOB  TEST TAPE CU INSTRUCTIONS
           ORG  500
START      CS   332
           CS   
           SW   INBUF
           MLCWA@TAPE CONTROL TEST@,250
           W
           CS   299
           H
WRITE1     MLCWA@WRITE FIRST RECORD.@,250
           W
           CS   299
           MLCWA@TAPE RECORD 1@,INBUF+50
           DCW  @M%U0@
           DC   @!0!@
           DC   @W@
           BER  WT1ER
           B    WRITE2
WT1ER      MLCWA@UNEXPECTED ER IN FIRST WRITE@,250
           W
           H
WRITE2     MLCWA@WRITE SECOND RECORD.@,250
           W
           CS   299
           MLCWA@TAPE RECORD 2@,INBUF+50
           DCW  @M%U0@
           DC   @!0!@
           DC   @W@
           BER  WT2ER
           B    WTTM1
WT2ER      MLCWA@UNEXPECTED ER IN SECOND WRITE@,250
           W
           H
WTTM1      MLCWA@WRITE TAPE MARK.@,250
           W
           CS   299
           DCW  @U%U0M@
           BER  WM1ER
           B    RWND1
WM1ER      MLCWA@UNEXPECTED ER IN WRITING TAPE MARK@,250
           W
           H
RWND1      MLCWA@REWIND TAPE.@,250
           W
           CS   299
           DCW  @U%U0R@
           BER  RW1ER
           B    READ1
RW1ER      MLCWA@UNEXPECTED ER IN REWINDING TAPE@,250
           W
           H
READ1      MLCWA@READ FIRST RECORD.  SHOULD BE OK@,250
           W
           CS   299
           DCW  @M%U0@
           DC   @!0!@
           DC   @R@
           BEF  RD1EF
           BER  RD1ER
           B    PRT1
RD1EF      MLCWA@UNEXPECTED EF AFTER FIRST READ.@,250
           W
           H
RD1ER      MLCWA@UNEXPECTED ER AFTER FIRST READ.@,250
           W
           H
PRT1       MLCWAINBUF+78,278
           W
           CS   299
BKSP1      MLCWA@BACKSPACE TAPE.@,250
           W
           CS   299
           DCW  @U%U0B@
           BER  BK1ER
           B    READ2
BK1ER      MLCWA@UNEXPECTED ER AFTER BACKSPACE.@,250
           W
           H
READ2      MLCWA@RE-READ FIRST RECORD@
           DCW  @M%U0@
           DC   @!0!@
           DC   @R@
           BEF  RD2EF
           BER  RD2ER
           B    PRT2
RD2EF      MLCWA@UNEXPECTED EF AFTER SECOND READ@,250
           W
           H
RD2ER      MLCWA@UNEXPECTED ER AFTER SECOND READ@,250
           W
           H
PRT2       MLCWAINBUF+78,278
           W
           CS   299
READ3      MLCWA@READ SECOND RECORD FROM TAPE.@,250
           W
           CS   299
           DCW  @M%U0@
           DC   @!0!@
           DC   @R@
           BER  RD3ER
           BEF  RD3EF
           B    PRT3
RD3EF      MLCWA@UNEXPECTED EF READING SECOND RECORD@,250
           W
           H
RD3ER      MLCWA@UNEXPECTED ER READING SECOND RECORD@,250
           W
           H
PRT3       MLCWAINBUF+78,278
           W
           CS   299
READ4      MLCWA@READ RECORD 3: EF EXPECTED@,250
           W
           CS   299
           DCW  @M%U0@
           DC   @!0!@
           DC   @R@
           BER  RD4ER
           BEF  RWDUNL
           MLCWA@MISSING EF ON 3RD RECORD@,250
           W
           H
RD4ER      MLCWA@UNEXPECTED ER ON 3RD RECORD@,250
           W
           H
RWDUNL     MLCWA@REWIND/UNLOAD TAPE@,250
           W
           CS   299
           DCW  @U%U0U%
           BER  RU1ER
           B    DONE
RU1ER      MLCWA@UNEXPECTED ER AFTER REWIND/UNLOAD@,250
           W
           H
DONE       MLCWA@END OF TEST@,250
           W
           CS   299
           H    *-3
           H
           ORG  10000
INBUF      DA   1X79,G
           ORG  *+X00
INBUF2     DA   1X199
           ORG  *+X00
LOADBUF    DA   1X1000
           END  START