MINI-AUTOCODER MCS WEDNESDAY, 21-DEC-94 19:59:42 Page 1 MCS TEST MOVE AND SUPPRESS MCS JOB TEST MOVE AND SUPPRESS 500 500 ORG 500 500 500 /332 START CS 332 504 504 / CS 505 505 L729250 MLCWA@TEST OF MCS INSTRUCTION@,250 512 512 2 W 513 513 /299 CS 299 517 517 . H 518 518 L650636 MLCWAF1,ACTION 525 525 B566 B DOIT 529 529 L664636 MLCWAF2,ACTION 536 536 B566 B DOIT 540 540 L678636 MLCWAF3,ACTION 547 547 B566 B DOIT 551 551 L692636 MLCWAF4,ACTION 558 558 B566 B DOIT 562 562 .562 H *-3 * * SUBROUTINE TO MCS AND PRINT RESULT * 566 566 H616 DOIT SBR DOITR+3 570 570 L730280 MLCWA@'@,280 577 577 L636 MLCWAACTION 581 581 L730 MLCWA@'@ 585 585 L697 MLCWAGOT 589 589 L732 MLCWA@' @ 593 593 L636 MLCWAACTION 597 597 L706 MLCWAINIT 601 601 Z636279 MCS ACTION,279 608 608 2 W 609 609 /299 CS 299 613 613 B000 DOITR B 0 * 636 636 ACTION DCW #20 650 650 F1 DCW @000,000,000.00@ 664 664 F2 DCW @000,000,001.23@ 678 678 F3 DCW @000-000,002.45@ 692 692 F4 DCW @01.23 $004.56@ 697 697 GOT DCW @GOT: @ 706 706 INIT DCW @INITIAL: @ 500 500 END START 729 729 LTRL @TEST OF MCS INSTRUCTION@ 730 730 LTRL @'@ 732 732 LTRL @' MINI-AUTOCODER MCS WEDNESDAY, 21-DEC-94 19:59:42 Page 2 MCS TEST MOVE AND SUPPRESS ACTION 00636 DOIT 00566 DOITR 00613 F1 00650 F2 00664 F3 00678 F4 00692 GOT 00697 INIT 00706 START 00500