TAPET      JOB  TEST TAPE WRITE
           ORG  500
START      CS   332
           CS   
           SW   OUTBUF
           MLCWA@TAPE WRITE TEST@,250
           W
           CS   299
           H
WRITE1     MLCWA@WRITE FIRST RECORD.  SHOULD BE OK.@,250
           MLCWA@FIRST RECORD@,OUTBUF+11
           W
           CS   299
           DCW  @M%U0@
           DC   @!0!@
           DC   @W@
*  HALT SO YOU CHAN CHECK B REGISTER
           H
           BER  WT1ER
           BEF  WT1EF
           B    WRITE2
WT1ER      MLCWA@UNEXPECTED ER IN FIRST WRITE@,250
           W
           H
WT1EF      MLCWA@UNEXPECTED EF IN FIRST WRITE@,250
           W
           H
WRITE2     MLCWA@WRITE SECOND RECORD.  SHOULD BE OK.@,250
           MLCWA@SECOND RECORD@,OUTBUF+12
           W
           CS   299
           DCW  @M%U0@
           DC   @!0!@
           DC   @W@
           BEF  WT2EF
           BER  WT2ER
           B    WRITE3
WT2EF      MLCWA@UNEXPECTED EF IN SECOND WRITE@,250
           W
           H
WT2ER      MLCWA@UNEXPECTED ER IN SECOND WRITE@,250
           W
           H
WRITE3     MLCWA@WRITE PROGRAM TO UNIT 1 IN LOAD MODE@,250
           W
           CS   299
           DCW  @L%U1@
           DC   @500@
           DC   @W@
           BEF  WT3EF
           BER  WT3ER
           B    DONE
WT3EF      MLCWA@UNEXPECTED EF AFTER 3RD WRITE@,250
           W
           H
WT3ER      MLCWA@UNEXPECTED ER AFTER 3RD WRITE@,250
           W
           H
DONE       MLCWA@END OF TEST@,250
           W
           CS   299
           H    *-3
           H
           ORG  10000
OUTBUF     DA   1X79,G
           ORG  *+X00
INBUF2     DA   1X199
           ORG  *+X00
LOADBUF    DA   1X1000
           END  START