MINI-AUTOCODER MCE WEDNESDAY, 21-DEC-94 19:59:38 Page 1 MCE TEST MCE INSTRUCTION MCE JOB TEST MCE INSTRUCTION 500 500 ORG 500 500 500 /332 START CS 332 504 504 / CS 505 505 L952250 MLCWA@TEST OF MCE INSTRUCTION@,250 512 512 2 W 513 513 /299 CS 299 517 517 . H 518 518 L998266 MLCWA@---------------- SIMPLE EDITS -------- 525 525 2 W 526 526 /299 CS 299 * POSITIVE VALUE WITH - SIGN 530 530 L851836 MLCWAF1,FMT 537 537 L915816 MLCWAC1,VAL 544 544 B748 B WRT * NEGATIVE VALUE WITH - SIGN 548 548 L918816 MLCWAC2,VAL 555 555 B748 B WRT * LARGE POSITIVE VALUE TO TEST COMMA INSERTION 559 559 L925816 MLCWAC3,VAL 566 566 B748 B WRT * POSITIVE VALUE WITH CR SIGN 570 570 L867836 MLCWAF2,FMT 577 577 L915816 MLCWAC1,VAL 584 584 B748 B WRT * NEGATIVE VALUE WITH CR SIGN 588 588 L918816 MLCWAC2,VAL 595 595 B748 B WRT * 599 599 LØ48266 MLCWA@---------------- FLOATING $ EDITS ---- 606 606 2 W 607 607 /299 CS 299 * FLOATING $ 611 611 L882836 MLCWAF3,FMT 618 618 L915816 MLCWAC1,VAL 625 625 B748 B WRT 629 629 L925816 MLCWAC3,VAL 636 636 B748 B WRT * 640 640 LØ94266 MLCWA@---------------- * FILL EDITS -------- 647 647 2 W 648 648 /299 CS 299 * ASTERISK FILL 652 652 L898836 MLCWAF4,FMT 659 659 L915816 MLCWAC1,VAL 666 666 B748 B WRT 670 670 L918816 MLCWAC2,VAL 677 677 B748 B WRT 681 681 L925816 MLCWAC3,VAL 688 688 B748 B WRT * 692 692 L/49266 MLCWA@---------------- DECIMAL CONTROL EDITS MINI-AUTOCODER MCE WEDNESDAY, 21-DEC-94 19:59:39 Page 2 MCE TEST MCE INSTRUCTION 699 699 2 W 700 700 /299 CS 299 * DECIMAL FILL 704 704 L912836 MLCWAF5,FMT 711 711 L915816 MLCWAC1,VAL 718 718 B748 B WRT 722 722 L927816 MLCWAC4,VAL 729 729 B748 B WRT 733 733 L929816 MLCWAC5,VAL 740 740 B748 B WRT 744 744 .744 H *-3 * * SUBROUTINE TO EDIT AND PRINT * 748 748 H796 WRT SBR WRTR+3 752 752 L/50270 MLCWA@'@,270 759 759 L836 MLCWAFMT 763 763 L/60 MLCWA@' GIVES: '@ 767 767 L836 MLCWAFMT 771 771 L/68 MLCWA@ UNDER '@ 775 775 L816 MLCWAVAL 779 779 E816269 MCE VAL,269 786 786 2 W 787 787 2) WM WRITE 789 789 /299 CS 299 793 793 B000 WRTR B 0 * 816 816 VAL DCW #20 836 836 FMT DCW #20 851 851 F1 DCW @ , , 0. -@ 867 867 F2 DCW @ , , 0. CR@ 882 882 F3 DCW @ , , $0. -@ 898 898 F4 DCW @ , , *0. CR@ 912 912 F5 DCW @ , . 0&&CR@ 915 915 C1 DCW +123 918 918 C2 DCW -457 925 925 C3 DCW 9876543 927 927 C4 DCW 00 929 929 C5 DCW 01 500 500 END START 952 952 LTRL @TEST OF MCE INSTRUCTION@ 998 998 LTRL @---------------- SIMPLE EDITS -------- 1048 Ø48 LTRL @---------------- FLOATING $ EDITS ---- 1094 Ø94 LTRL @---------------- * FILL EDITS -------- 1149 /49 LTRL @---------------- DECIMAL CONTROL EDITS 1150 /50 LTRL @'@ 1160 /60 LTRL @' GIVES: '@ 1168 /68 LTRL @ UNDER '@ MINI-AUTOCODER MCE WEDNESDAY, 21-DEC-94 19:59:39 Page 3 MCE TEST MCE INSTRUCTION C1 00915 C2 00918 C3 00925 C4 00927 C5 00929 F1 00851 F2 00867 F3 00882 F4 00898 F5 00912 FMT 00836 START 00500 VAL 00816 WRT 00748 WRTR 00793