TAPET JOB TEST TAPE INDICATORS ORG 500 START CS 332 CS SW INBUF MLCWA@TAPE INDICATOR TEST@,250 W CS 299 H READ1 MLCWA@READ FIRST RECORD. SHOULD BE OK.@,250 W CS 299 DCW @M%U0@ DC @!0!@ DC @R@ BER RD1ER BEF RD1EF B READ2 RD1ER MLCWA@UNEXPECTED ER IN FIRST READ@,250 W H RD1EF MLCWA@UNEXPECTED EF IN FIRST READ@,250 W H READ2 MLCWA@READ SECOND RECORD. SHOULD HAVE PARITY ERROR@,250 W CS 299 DCW @M%U0@ DC @!0!@ DC @R@ BEF RD2EF BER READ3 MLCWA@MISSING ER AFTER SECOND READ@,250 W H RD2EF MLCWA@UNEXPECTED EF IN SECOND READ@,250 W H READ3 MLCWA@READ 3 AND FOURTH RECORDS. SHOULD BE OK@,250 W CS 299 DCW @M%U0@ DC @!0!@ DC @R@ BEF RD34EF BER RD34ER DCW @M%U0@ DC @!0!@ DC @R@ BEF RD34EF BER RD34ER B READ5 RD34EF MLCWA@UNEXPECTED EF AFTER 3RD OR 4TH READ@,250 W H RD34ER MLCWA@UNEXPECTED ER AFTER 3RD OR 4TH READ@,250 W H READ5 MLCWA@READ FIFTH RECORD FROM TAPE. EF EXPECTED@,250 W CS 299 DCW @M%U0@ DC @!0!@ DC @R@ BER RD5ER BEF RD5EF MLCWA@MISSING EF AFTER FIFTH READ@,250 W H RD5ER MLCWA@UNEXPECTED ER READING 5TH RECORD@,250 W H RD5EF BEF RD5EF2 B READ6 RD5EF2 MLCWA@BEF DID NOT RESET EF AFTER FIFTH READ@,250 W H READ6 MLCWA@READ 6TH AND 7TH RECORD FROM TAPE@,250 W CS 299 DCW @M%U0@ DC @!0!@ DC @R@ BER RD67ER BEF RD67EF DCW @M%U0@ DC @!0!@ DC @R@ BER RD67ER BEF RD67EF B READ8 RD67ER MLCWA@UNEXPECTED ER ON 6TH OR 7TH RECORD@,250 W H RD67EF MLCWA@UNEXPECTED EF ON 6TH OR 7TH RECORD@,250 W H READ8 MLCWA@READ RECORD 8: EF EXPECTED@,250 W CS 299 DCW @M%U0@ DC @!0!@ DC @R@ BER RD8ER BEF DONE MLCWA@MISSING EF ON 8TH RECORD@,250 W H RD8ER MLCWA@UNEXPECTED ER ON 8TH RECORD@,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