MINI-AUTOCODER SWITCHES WEDNESDAY, 21-DEC-94 20:00:13 Page 1 SWITCH TEST SWITCHES SWITCH JOB TEST SWITCHES 500 500 ORG 500 500 500 /332 START CS 332 504 504 / CS 505 505 L828250 MLCWA@SENSE SWITCH TEST@,250 512 512 2 W 513 513 /299 CS 299 517 517 B538A BLC FIRSTA 522 522 L859250 MLCWA@SENSE SWITCH A OFF/NO LAST CARD@,250 529 529 2 W 530 530 /299 CS 299 534 534 B550 B GO 538 538 L886250 FIRSTA MLCWA@SENSE SWITCH A ON/LAST CARD@,250 545 545 2 W 546 546 /299 CS 299 * * MAIN LOOP. SCAN SWITCHES. IF THERE IS A CHANGE, PRI * CONFIGURATION AS 'A*B*C*D*E*F*G*' WHERE * IS + OR - * 550 550 . GO H 551 551 B582A BSS A1,A IS THE 556 556 B604804- BCE A0,STATE+0,- NO, WAS 564 564 M887811 MLC @Y@,CHANGE STATE 571 571 M888804 MLC @-@,STATE+0 SET STA 578 578 B604 B A0 582 582 B604804+ A1 BCE A0,STATE+0,+ IT IS 590 590 M887811 MLC @Y@,CHANGE STATE 597 597 M889804 MLC @+@,STATE+0 SET STA 604 604 A0 EQU * 604 604 B635B BSS B1,B IS THE 609 609 B657805- BCE B0,STATE+1,- NO, WAS 617 617 M887811 MLC @Y@,CHANGE STATE 624 624 M888805 MLC @-@,STATE+1 SET STA 631 631 B657 B B0 635 635 B657805+ B1 BCE B0,STATE+1,+ IT IS 643 643 M887811 MLC @Y@,CHANGE STATE 650 650 M889805 MLC @+@,STATE+1 SET STA 657 657 B0 EQU * 657 657 B688C BSS C1,C IS THE 662 662 B710806- BCE C0,STATE+2,- NO, WAS 670 670 M887811 MLC @Y@,CHANGE STATE 677 677 M888806 MLC @-@,STATE+2 SET STA 684 684 B710 B C0 688 688 B710806+ C1 BCE C0,STATE+2,+ IT IS 696 696 M887811 MLC @Y@,CHANGE STATE 703 703 M889806 MLC @+@,STATE+2 SET STA 710 710 C0 EQU * * REPEAT AS NEEDED... 710 710 B550811N BCE GO,CHANGE,N IF NO * WE DON'T HAVE WORKING INDEX REGISTERS, SO DO THIS THE 718 718 L810250 MLCWAESTATE,250 725 725 L803 MLCWAENAMES MINI-AUTOCODER SWITCHES WEDNESDAY, 21-DEC-94 20:00:13 Page 2 SWITCH TEST SWITCHES 729 729 L809 MLCWAESTATE-1 733 733 L802 MLCWAENAMES-1 737 737 L808 MLCWAESTATE-2 741 741 L801 MLCWAENAMES-2 745 745 L807 MLCWAESTATE-3 749 749 L800 MLCWAENAMES-3 753 753 L806 MLCWAESTATE-4 757 757 L799 MLCWAENAMES-4 761 761 L805 MLCWAESTATE-5 765 765 L798 MLCWAENAMES-5 769 769 L804 MLCWAESTATE-6 773 773 L797 MLCWAENAMES-6 777 777 L924 MLCWA@SWITCH STATUS CHANGED; NEW STATUS: @ 781 781 2 W 782 782 /299 CS 299 786 786 M925811 MLC @N@,CHANGE 793 793 B550 B GO * * 797 797 NAMES DCW @A@ 798 798 DCW @B@ 799 799 DCW @C@ 800 800 DCW @D@ 801 801 DCW @E@ 802 802 DCW @F@ 803 803 ENAMES DCW @G@ 804 804 STATE DCW @ @ A STATE 805 805 DCW @ @ B STATE 806 806 DCW @ @ C STATE 807 807 DCW @ @ D STATE 808 808 DCW @ @ E STATE 809 809 DCW @ @ F STATE 810 810 ESTATE DCW @ @ G STATE 811 811 CHANGE DCW @Y@ Y OR N, 500 500 END START 828 828 LTRL @SENSE SWITCH TEST@ 859 859 LTRL @SENSE SWITCH A OFF/NO LAST CARD@ 886 886 LTRL @SENSE SWITCH A ON/LAST CARD@ 887 887 LTRL @Y@ 888 888 LTRL @-@ 889 889 LTRL @+@ 924 924 LTRL @SWITCH STATUS CHANGED; NEW STATUS: 925 925 LTRL @N@ MINI-AUTOCODER SWITCHES WEDNESDAY, 21-DEC-94 20:00:13 Page 3 SWITCH TEST SWITCHES A0 00604 A1 00582 B0 00657 B1 00635 C0 00710 C1 00688 CHANGE 00811 ENAMES 00803 ESTATE 00810 FIRSTA 00538 GO 00550 NAMES 00797 START 00500 STATE 00804