TAPEB      JOB  TAPE BOOT
           ORG  15000
START      CS   332
           CS   
           MLCWA@TAPE BOOT.  LOAD TAPE IN UNIT 0@,250
           W
           CS   299
           H
           DCW  @L%U0@
           DC   @001@
           DC   @R@
           BER  RD1ER
           BEF  RD1EF
           H    001
RD1ER      MLCWA@UNEXPECTED ER IN READ@,250
           W
           H
RD1EF      MLCWA@UNEXPECTED EF IN READ@,250
           W
           H
           END  START