MINI-AUTOCODER INDEX WEDNESDAY, 21-DEC-94 19:59:23 Page 1 INDEX TEST INDEX REGISTERS INDEX JOB TEST INDEX REGISTERS 500 500 ORG 500 500 500 /332 START CS 332 504 504 / CS 505 505 L952250 MLCWA@TEST OF INDEX REGISTERS@,250 512 512 2 W 513 513 /299 CS 299 517 517 . H * START SIMPLE 518 518 H089001 SBR X1,1 525 525 N0Ø0 NOP 0+X1 529 529 H794 SBR ADDR 533 533 H929001 SBR EXP,1 540 540 B697 B WRT * THOUSANDS 544 544 H089Ø00 SBR X1,1000 551 551 N0Ø1 NOP 1+X1 555 555 H794 SBR ADDR 559 559 H929Ø01 SBR EXP,1001 566 566 B697 B WRT * TWELVE THOUSAND 570 570 H08900? SBR X1,12000 577 577 NØØ1 NOP 1001+X1 581 581 H794 SBR ADDR 585 585 H929Ø0A SBR EXP,13001 592 592 B697 B WRT * DECREMENT 596 596 H089100 SBR X1,100 603 603 NIZI NOP 15999+X1 607 607 H794 SBR ADDR 611 611 H929099 SBR EXP,99 618 618 B697 B WRT * DECREMENT INDEX 622 622 H089IZI SBR X1,15999+X1 629 629 N0Ø0 NOP 0+X1 633 633 H794 SBR ADDR 637 637 B697 B WRT * TRY OTHER INDEX REGISTERS 641 641 H094400 SBR X2,400 648 648 N?!0 NOP 3000+X2 652 652 H794 SBR ADDR 656 656 H929D00 SBR EXP,3400 663 663 B697 B WRT * 667 667 H099I9I SBR X3,15999 674 674 NIII NOP 15999+X3 678 678 H794 SBR ADDR 682 682 H929I9H SBR EXP,15998 689 689 B697 B WRT 693 693 .693 H *-3 * SUBROUTINE TO WRITE OUT RESULTS 697 697 H763 WRT SBR WRTR+3 MINI-AUTOCODER INDEX WEDNESDAY, 21-DEC-94 19:59:23 Page 2 INDEX TEST INDEX REGISTERS 701 701 B800 B CADDR 705 705 M955771 MLC @270@,PLOC 712 712 B764 B PADDR 716 716 L962258 MLCWA@, GOT: @,258 723 723 L929 MLCWAEXP 727 727 L972 MLCWA@EXPECTED: @ 731 731 H750 SBR P1+3 735 735 C929794 C EXP,ADDR 742 742 B755S BE OK1 747 747 N000 P1 NOP 0 751 751 L982 MLCWA@********* @ 755 755 2 OK1 W 756 756 /299 CS 299 760 760 B000 WRTR B 0 * * SUBROUTINE TO MOVE THE ADDRESS AND ITS NUMERIC VALUE * IS STORED IN PLOC * 764 764 H791 PADDR SBR PADDRR+3 768 768 N000 NOP 0 771 771 PLOC EQU *-1 772 772 L983 MLCWA@)@ 776 776 L799 MLCWAADDRD 780 780 L985 MLCWA@ (@ 784 784 L794 MLCWAADDR 788 788 B000 PADDRR B 0 * * SUBROUTINE TO CONVERT THE CONTENTS OF 'ADDR' IN DECIM * RESULT IS LEFT IN ADDRD * 794 794 ADDR DCW #3 799 799 ADDRD DCW #5 * 800 800 H926 CADDR SBR CADDRR+3 804 804 D794799 MLNS ADDR,ADDRD 811 811 D MLNS 812 812 D MLNS 813 813 M987 MLC @00@ 817 817 V8707922 BWZ ZNH,ADDR-2,2 825 825 V863792B BWZ Z12H,ADDR-2,B 833 833 V852792K BWZ Z11H,ADDR-2,K * MUST BE ZERO ZONE 841 841 A991799 A @1000@,ADDRD 848 848 B870 B ZNH 852 852 A995799 Z11H A @2000@,ADDRD 859 859 B870 B ZNH 863 863 A999799 Z12H A @3000@,ADDRD 870 870 V9237942 ZNH BWZ ZNU,ADDR,2 878 878 V905794K BWZ Z11U,ADDR,K 886 886 V916794B BWZ Z12U,ADDR,B * MUST BE 0-ZONE 894 894 AØ03799 A @4000@,ADDRD MINI-AUTOCODER INDEX WEDNESDAY, 21-DEC-94 19:59:23 Page 3 INDEX TEST INDEX REGISTERS 901 901 B923 B ZNU 905 905 AØ07799 Z11U A @8000@,ADDRD 912 912 B923 B ZNU 916 916 AØ12799 Z12U A @12000@,ADDRD 923 923 ZNU EQU * 923 923 B000 CADDRR B 0 * 929 929 EXP DCW #3 500 500 END START 952 952 LTRL @TEST OF INDEX REGISTERS@ 955 955 LTRL @270@ 962 962 LTRL @, GOT: 972 972 LTRL @EXPECTED: 982 982 LTRL @********* 983 983 LTRL @)@ 985 985 LTRL @ (@ 987 987 LTRL @00@ 991 991 LTRL @1000@ 995 995 LTRL @2000@ 999 999 LTRL @3000@ 1003 Ø03 LTRL @4000@ 1007 Ø07 LTRL @8000@ 1012 Ø12 LTRL @12000@ MINI-AUTOCODER INDEX WEDNESDAY, 21-DEC-94 19:59:23 Page 4 INDEX TEST INDEX REGISTERS ADDR 00794 ADDRD 00799 CADDR 00800 CADDRR 00923 EXP 00929 OK1 00755 P1 00747 PADDR 00764 PADDRR 00788 PLOC 00771 START 00500 WRT 00697 WRTR 00760 Z11H 00852 Z11U 00905 Z12H 00863 Z12U 00916 ZNH 00870 ZNU 00923