MINI-AUTOCODER TAPETEST SATURDAY, 07-JAN-95 21:07:55 Page 1 TAPET TEST TAPE I/O TAPET JOB TEST TAPE I/O 500 500 ORG 500 500 500 /332 START CS 332 504 504 / CS 505 505 ,!0! SW INBUF 509 509 LC0Q250 MLCWA@TAPE TEST@,250 516 516 2 W 517 517 /299 CS 299 521 521 . H 522 522 LC3Q250 BADDEV MLCWA@BAD DEVICE INSTRUCTION FOLLOWS@,250 529 529 2 W 530 530 /299 CS 299 537 537 DCW @M%X0@ 540 540 DC @!0!@ 541 541 DC @R@ 542 542 . H 543 543 LC8!250 BADDCHAR MLCWA@BAD D CHARACTER ON I/O INSTRUCTION FOL 550 550 2 W 551 551 /299 CS 299 558 558 DCW @M%U0@ 561 561 DC @!0!@ 562 562 DC @Z@ 563 563 LD1N250 BADUNIT MLCWA@I/O TO UNIT 9 FOLLOWS. SHOULD FAIL@,2 570 570 2 W 571 571 /299 CS 299 578 578 DCW @M%U9@ 581 581 DC @!0!@ 582 582 DC @R@ 583 583 LD3O250 READ1 MLCWA@READ RECORD FROM TAPE@,250 590 590 2 W 591 591 /299 CS 299 598 598 DCW @M%U0@ 601 601 DC @!0!@ 602 602 DC @R@ 603 603 L!7R280 MLCWAINBUF+79,280 610 610 2 W 611 611 /299 CS 299 615 615 LD7L250 READ2 MLCWA@READ RECORD FROM TAPE INTO LARGE AREA@ 622 622 2 W 623 623 /299 CS 299 630 630 DCW @M%U0@ 633 633 DC @J0!@ 634 634 DC @R@ 635 635 LJ7R280 MLCWAINBUF2+79,280 642 642 2 W 643 643 /299 CS 299 647 647 LE0R250 LOAD1 MLCWA@READ RECORD IN LOAD MODE FROM UNIT 1@, 654 654 2 W 655 655 /299 CS 299 662 662 DCW @L%U1@ 665 665 DC @L0!@ 666 666 DC @R@ MINI-AUTOCODER TAPETEST SATURDAY, 07-JAN-95 21:07:55 Page 2 TAPET TEST TAPE I/O 667 667 LE2!250 DONE MLCWA@END OF TEST@,250 674 674 2 W 675 675 /299 CS 299 679 679 .679 H *-3 683 683 . H 10000 !0! ORG 10000 10000 !0! INBUF DA 1X79,G 10100 J0! ORG *+X00 10100 J0! INBUF2 DA 1X199 10300 L0! ORG *+X00 10300 L0! LOADBUF DA 1X1000 500 500 END START 11308 C0Q LTRL @TAPE TEST@ 11338 C3Q LTRL @BAD DEVICE INSTRUCTION FOLLOWS@ 11380 C8! LTRL @BAD D CHARACTER ON I/O INSTRUCTION FOL 11415 D1N LTRL @I/O TO UNIT 9 FOLLOWS. SHOULD FAIL@ 11436 D3O LTRL @READ RECORD FROM TAPE@ 11473 D7L LTRL @READ RECORD FROM TAPE INTO LARGE AREA@ 11509 E0R LTRL @READ RECORD IN LOAD MODE FROM UNIT 1@ 11520 E2! LTRL @END OF TEST@ MINI-AUTOCODER TAPETEST SATURDAY, 07-JAN-95 21:07:55 Page 3 TAPET TEST TAPE I/O BADDCH 00543 BADDEV 00522 BADUNI 00563 DONE 00667 INBUF 10000 INBUF2 10100 LOAD1 00647 LOADBU 10300 READ1 00583 READ2 00615 START 00500