TAPET      JOB  TEST TAPE I/O
           ORG  500
START      CS   332
           CS   
           SW   INBUF
           MLCWA@TAPE TEST@,250
           W
           CS   299
           H
BADDEV     MLCWA@BAD DEVICE INSTRUCTION FOLLOWS@,250
           W
           CS   299
           DCW  @M%X0@
           DC   @!0!@
           DC   @R@
           H
BADDCHAR   MLCWA@BAD D CHARACTER ON I/O INSTRUCTION FOLLOWS@,250
           W
           CS   299
           DCW  @M%U0@
           DC   @!0!@
           DC   @Z@
BADUNIT    MLCWA@I/O TO UNIT 9 FOLLOWS.  SHOULD FAIL@,250
           W
           CS   299
           DCW  @M%U9@
           DC   @!0!@
           DC   @R@
READ1      MLCWA@READ RECORD FROM TAPE@,250
           W
           CS   299
           DCW  @M%U0@
           DC   @!0!@
           DC   @R@
           MLCWAINBUF+79,280
           W
           CS   299
READ2      MLCWA@READ RECORD FROM TAPE INTO LARGE AREA@,250
           W
           CS   299
           DCW  @M%U0@
           DC   @J0!@
           DC   @R@
           MLCWAINBUF2+79,280
           W
           CS   299
LOAD1      MLCWA@READ RECORD IN LOAD MODE FROM UNIT 1@,250
           W
           CS   299
           DCW  @L%U1@
           DC   @L0!@
           DC   @R@
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