1 ;0000 set to 1 at the end of a keypad read and turned off at the next rti
2 ;0001 coin mask? (cf 0x001a, 0x3000, 0xc430)
3 ;0003 global only used in jump71
4 ;0005 number of motors we have
6 ;0007 06 stored into it sometimes.
7 ;0008 what byte of the packet we've read up to
11 ;0011 another reflection of 2000
12 ;0012 another buffer for 1800 - what change to give?
13 ;0013 location of decimal point?
14 ;0014 buffer for 3800 register
16 ;0016 new key state (cf 0029)
17 ;0017 bits 5-7 used mostly
18 ;0018 another loop variable
20 ; bit 0 - over current
21 ; bit 1 - home sensor failure
22 ; bit 2 - check prices
23 ;001a buffer for 3000 register - initialised to 7F
24 ;001b bit 3 - denote motor fault?
25 ;001c used for loop variables
27 ;001f display related? bit 2. bit 4 denotes service mode
28 ;0020 reflection of 2000
29 ;0021 lower 3 bits taken from SCI data somewhere
30 ; bit 5 denotes machine out of order
32 ;0025 timer of some sort? - set to #0a and decremented by RTI
33 ;0026 used exclusively in SCI interrupt handler
34 ;0027 price of current item
35 ;0029 previous key state (cf 0016)
36 ;002b machine language. 3 = english. 0,1,2 = german, spanish, french or something
37 ;002c inhibits display writes?
38 ;0032 to do with the beeper (see jump52)
40 ;0035 only ever contains #1e
41 ;003b commonly contains $0233
43 ;003e cash in bill acceptor?
45 ;0040 cash in european coin mech?
47 ;0042 current key press
48 ;0043 current byte being sent out serial port
51 ;0052 win-a-snack odds (in ram)
53 ;0056 last known keypad row 1 state
54 ;005b last known keypad row 0 state
55 ;005a - result of number to string operations (jump55)
57 ;0067 working space of 0bc0
59 ;0075 something about link master price holding
63 ;0800 motor information array - each is a 16-bit value
65 ;08c8 array of prices of each slot??
67 ;0b90 - 0b99 display buffer (backwards)
68 ;0b9a - some sort of id? press 89 on the machine
71 ;0bb5 win-a-snack odds (is this in NVRAM?)
73 ;0bd8 related to 0017 and 0021 (only lower 3 bits used)
75 ;0bc0 machine peripheral configuration flags
76 ; bit0: have dumb mech
77 ; bit1: have a changer
78 ; bit2: have card reader
79 ; bit3: have bill validator
80 ; bit4: link master - price holding enabled
81 ; bit5: link master - price display enabled
82 ; bit6: have $1 changer
84 ;0bc1 error status: (from jump72)
85 ; bit0: changer powerup
95 ;0bc2 multiplied by 10^0bc3 and stored into 0baa
96 ;0bc3 10 is raise to the power of this number shr 4, and multiplied by 0baa
97 ;0bc4 index of something
98 ;0bc5 index of something else
99 ;0bc6 index of another thing
100 ;0bc7 word number of something
102 ;0bc9 word number of something else
104 ;0bcb word number of another thing
106 ;0bcd word number of another else
109 ;0bc4 array index into 0bc7
111 ;0bc6 another array index into 0bc7
114 ;0bdd value of coin mech quarters
115 ;0bdf value of coin mech dimes
116 ;0be1 value of coin mech nickels
126 ;0cbc serial number (string)
127 ;0ccc machine ID (string)
128 ;0ce7 audit number (word)
130 ;0cd9 counter of something - reset to 4 on some serial input
131 ;0cda counter of something - reset to 4 on some serial input
132 ;0cdb also counts something - reset to 4 on some serial input
134 ;0ce9 value or number of $1 coins
135 ;0ceb value or number of 20c coins
136 ;0ced value or number of 10c coins
137 ;0cef value or number of 5c coins
139 ;0cdc number of value of $1 coins
140 ;0cdb number or value of 20c coin
141 ;0cda number or value of 10c coins
142 ;0cd9 number or value of 5c coins
144 ;0dff - 0e04 keypad buffer - most recent in 0e04
145 ;0e05 array index of the array to follow
146 ;0e06 - ?? array of digits*10
149 ;1016 - timer output compare 1 register
151 ;1028 SPCR (Serial Peripheral Control Register)
157 ;0800 - 0x0fff memory bank 2k
159 ;1800 Internal switches
175 ; 1 Language selection
176 ; 0 Language selection
177 ;Rows are numbered 1-9, skipping 5. There is no row 5.
187 ;Motor driver data is sent cols 7, 6, 5, 4, 3, 2, 1, 0 rows 9, 8, 7, 6, 4, 3, 2
188 ;1. Cols 8 and 9 are separate outputs (they ran out of driver chip outputs).
189 ;Motor driver column output enable is PA6
190 ;Motor driver serial clock is PA5
191 ;It looks like motor overcurrent sense is on PE1 (PE1 will be low if a motor
192 ;is drawing too much current)
193 ; the changer speaks at 600 baud, where as the coin validator speaks
194 ; 9600 baud. and printer at 2400.
195 ;3000 changer outputs
196 ; 7 motor driver row output enable
206 ; 6 col 9 motor driver
207 ; 5 col 8 motor driver
208 ; 4 motor driver serial data
209 ; 3 display write (clock) enable (active high)
211 ; 1 note acceptor connector
212 ; 0 note acceptor connector
218 ; PortA - Data: 0x1000, DDR for PA7 & PA3 in 0x1026
219 ; PA7 display reset (active low)
220 ; PA6 enables motor column drivers (when low)
221 ; PA5 clocks snack motor drivers (U16 5890 = serial-input latched source drivers (latch unused))
222 ; PA4 beepy thang (active high)
223 ; PA3 high - talking to coin vendie, low - talking to printer. (through PD1)
224 ; PA2 coin dispenser pin 6 (does what???)
225 ; PA1 bill validator 2
226 ; PA0 bill validator 1
228 ; PortB - not used directly
229 ; PB7 Address lines 8-15
238 ; PortC - Data: 0x1003, Latch: 0x1005, DDR: 0x1007
239 ; PC7 Data Bus 0-7 / Address bus 0-7
248 ; PortD - Data: 0x1008, DDR: 0x1009
251 ; PD5 keypad row select (output)
252 ; PD4 SPI - keypad & display clock signal (output)
253 ; PD3 display data (output)
254 ; PD2 keypad data (input)
255 ; PD1 RX of SCI - to coin disp or printer depending on PA3
256 ; PD0 TX of SCI - to coin disp or printer depending on PA3
258 ; PortE - Data: 0x100A
263 ; PE3 goes high when 24VUN line is *really* low (like 20V)
264 ; PE2 remote no-sale switch (active low)
265 ; PE1 motor overvoltage sense (active high)
266 ; PE0 motor overcurrent sense (active low)
457 80FB 93 73 00 .s. subd 73
462 ; initial menu when door opens?
463 8100 F6 00 1D ... ldab 001d
464 8103 C4 10 .. andb #10
465 8105 27 3D '= beq 3d ; to 8144
466 8107 BD D6 52 ..R jsr d652 ;jump5
467 810A CE 00 1D ... ldx #001d
468 810D 1D 00 10 ... bclr 00,x, #10
469 8110 CE 00 1D ... ldx #001d
470 8113 1C 00 80 .. bset 00,x, #80
471 8116 7F 00 42 .. clr 0042
472 8119 7F 00 60 ..` clr 0060
473 811C 7F 00 48 ..H clr 0048
474 811F 7F 00 38 ..8 clr 0038
475 8122 F6 0B A8 ... ldab 0ba8
477 8127 CE 0B A9 ... ldx #0ba9
478 812A 1C 00 02 .. bset 00,x, #02
480 812F CE 0B A9 ... ldx #0ba9
481 8132 1D 00 02 ... bclr 00,x, #02
482 8135 7F 0E 00 ... clr 0e00
483 8138 7F 0E 01 ... clr 0e01
484 813B 7F 0E 02 ... clr 0e02
485 813E 7F 0E 03 ... clr 0e03
486 8141 7F 0E 04 ... clr 0e04
488 8144 F6 00 42 ..B ldab 0042
489 8147 C1 0B .. cmpb #0b
491 814B BD AB 89 ... jsr ab89 ;jump7
492 814E 7F 00 19 ... clr 0019
493 8151 7F 00 60 ..` clr 0060
494 8154 7F 00 42 ..B clr 0042
495 8157 BD E6 1B ... jsr e61b ;jump4
496 815A F6 0B A8 ... ldab 0ba8
498 815F 7E 81 EF ~.. jmp 81ef ;goto1
499 8162 F6 00 60 ..` ldab 0060
500 8165 C1 04 .. cmpb #04
502 8169 F6 00 42 ..B ldab 0042
504 816E F6 00 42 ..B ldab 0042
505 8171 C1 0A .. cmpb #0a
507 8175 7F 00 42 ..B clr 0042
508 8178 F6 00 42 ..B ldab 0042
509 817B CB 30 .0 addb #30
511 817E F6 00 60 ..` ldab 0060
513 8182 C3 00 62 ..b addd #0062
516 8187 E7 00 .. stab 00,x
517 8189 7F 00 42 ..B clr 0042
518 818C 7C 00 60 |.` inc 0060
520 8191 F6 00 62 ..b ldab 0062
521 8194 F1 0B A4 ... cmpb 0ba4
523 8199 F6 00 63 ..c ldab 0063
524 819C F1 0B A5 ... cmpb 0ba5
526 81A1 F6 00 64 ..d ldab 0064
527 81A4 F1 0B A6 ... cmpb 0ba6
529 81A9 F6 00 65 ..e ldab 0065
530 81AC F1 0B A7 ... cmpb 0ba7
532 81B1 CE 0B A9 ... ldx #0ba9
533 81B4 1D 00 02 ... bclr 00,x, #02
534 81B7 CE 00 1F ... ldx #001f
535 81BA 1C 00 04 .. bset 00,x, #04
536 81BD CE 00 1F ... ldx #001f
537 81C0 1C 00 80 ... bset 00,x, #80
538 81C3 CE 00 1D ... ldx #001d
539 81C5 1C 00 10 ... bset 00,x, #10
540 81C9 CC 02 33 ..3 ldd #0233
541 81CC FD 00 3B ..; std 003b
542 81CF C6 05 .. ldab #05
543 81D1 F7 00 38 ..8 stab 0038
545 81D6 7F 00 42 ..B clr 0042
546 81D9 7F 00 60 ..` clr 0060
547 81DC BD BE 69 ..i jsr be69 ;displayreset
548 81DF BD BE 4B ..K jsr be4b ;displayblank
549 81E2 CC B0 81 ... ldd #b081 ;"NO ACCESS"
550 81E5 BD C0 BA ... jsr c0ba ;display:
551 81E8 C6 0A .. ldab #0a
552 81EA F7 00 38 ..8 stab 0038
555 81EF 7F 00 42 ..B clr 0042
556 81F2 F6 00 38 ..8 ldab 0038
558 81F7 7E 84 9F ~.. jmp 849f ;goto2
559 81FA BD BE 4B ..K jsr be4b ;displayblank
560 81FD F6 00 48 ..H ldab 0048
562 8202 BD AB A2 ... jsr aba2 ;jump8
563 8205 F6 00 48 ..H ldab 0048
565 8209 BD FE 16 ... jsr fe16 ;jump2
567 820E 00 0D .... ; list len-2
582 822C 84 78 .x ; end of jump2 data
583 822E F6 00 19 ... ldab 0019
584 8231 C4 01 .. andb #01
586 8235 CC AF F2 ... ldd #aff2 ;"OVER CRNT="
587 8238 BD C0 BA ... jsr c0ba ;display:
588 823B C6 0A .. ldab #0a
589 823D F7 00 38 ..8 stab 0038
590 8240 7F 00 54 ..T clr 0054
591 8243 7C 00 48 |.H inc 0048
593 8248 C6 02 .. ldab #02
594 824A F7 00 48 ..H stab 0048
595 824D 7E 84 9F ~.. jmp 849f ;goto2
596 8250 F6 00 54 ..T ldab 0054
598 8254 CE 00 05 ... ldx #0005
602 825B F6 00 54 ..T ldab 0054
603 825E F7 00 06 ... stab 0006
604 8261 F6 00 06 ... ldab 0006
605 8264 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
606 8267 83 00 00 ... subd #0000
608 826C CC 7F FF ... ldd #7fff
611 8271 F6 00 06 ... ldab 0006
614 8276 C3 08 00 ... addd #0800
617 827B A4 00 .. anda 00,x
618 827D E4 01 .. andb 01,x
619 827F ED 00 .. std 00,x
620 8281 F6 00 54 ..T ldab 0054
623 8286 C3 08 00 ... addd #0800
625 828A EC 00 .. ldd 00,x
626 828C 84 80 .. anda #80
628 8290 F6 00 54 ..T ldab 0054
631 8295 C3 08 C8 ... addd #08c8
633 8299 EC 00 .. ldd 00,x
634 829B 84 02 .. anda #02
636 829F BD 98 A5 ... jsr 98a5 ;jump11
637 82A2 C6 0A .. ldab #0a
638 82A4 F7 00 38 ..8 stab 0038
639 82A7 7C 00 54 |.T inc 0054
640 82AA F6 00 54 ..T ldab 0054
641 82AD C1 64 .d cmpb #64
643 82B1 7C 00 48 |.H inc 0048
644 82B4 7E 84 9F ~.. jmp 849f ;goto2
645 82B7 F6 00 19 ... ldab 0019
646 82BA C4 02 .. andb #02
648 82BE CC AF FD ... ldd #affd "HOME FAIL="
649 82C1 BD C0 BA ... jsr c0ba ;display:
650 82C4 C6 0A .. ldab #0a
651 82C6 F7 00 38 ..8 stab 0038
652 82C9 7F 00 54 ..T clr 0054
653 82CC 7C 00 48 |.H inc 0048
655 82D1 C6 04 .. ldab #04
656 82D3 F7 00 48 ..H stab 0048
657 82D6 7E 84 9F ~.. jmp 849f ;goto2
658 82D9 F6 00 54 ..T ldab 0054
660 82DD CE 00 05 ... ldx #0005
664 82E4 F6 00 54 ..T ldab 0054
665 82E7 F7 00 06 ... stab 0006
666 82EA F6 00 06 ... ldab 0006
667 82ED BD D7 A0 ... jsr d7a0 ;is_invalid_slot
668 82F0 83 00 00 ... subd #0000
670 82F5 CC 7F FF ... ldd #7fff
673 82FA F6 00 06 ... ldab 0006
676 82FF C3 08 00 ... addd #0800
679 8304 A4 00 .. anda 00,x
680 8306 E4 01 .. andb 01,x
681 8308 ED 00 .. std 00,x
682 830A F6 00 54 ..T ldab 0054
685 830F C3 08 00 ... addd #0800
687 8313 EC 00 .. ldd 00,x
688 8315 84 80 .. anda #80
690 8319 F6 00 54 ..T ldab 0054
693 831E C3 08 C8 ... addd #08c8
695 8322 EC 00 .. ldd 00,x
696 8324 84 04 .. anda #04
698 8328 BD 98 A5 ... jsr 98a5 ;jump11
699 832B C6 0A .. ldab #0a
700 832D F7 00 38 ..8 stab 0038
701 8330 7C 00 54 |.T inc 0054
702 8333 F6 00 54 ..T ldab 0054
703 8336 C1 64 .d cmpb #64
705 833A 7C 00 48 |.H inc 0048
706 833D 7E 84 9F ~.. jmp 849f ;goto2
707 8340 F6 00 19 ... ldab 0019
708 8343 C4 04 .. andb #04
710 8347 CC B0 08 ... ldd #b008 ; "CHK PRICES"
711 834A BD C0 BA ... jsr c0ba ;display:
712 834D C6 0A .. ldab #0a
713 834F F7 00 38 ..8 stab 0038
714 8352 7F 00 54 ..T clr 0054
715 8355 7C 00 48 |.H inc 0048
717 835A C6 06 .. ldab #06
718 835C F7 00 48 ..H stab 0048
719 835F 7E 84 9F ~.. jmp 849f ;goto2
720 8362 F6 00 54 ..T ldab 0054
722 8366 CE 00 05 ... ldx #0005
726 836D F6 00 54 ..T ldab 0054
727 8370 F7 00 06 ... stab 0006
728 8373 F6 00 06 ... ldab 0006
729 8376 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
730 8379 83 00 00 ... subd #0000
732 837E F6 00 54 ..T ldab 0054
735 8383 C3 08 C8 ... addd #08c8
737 8387 EC 00 .. ldd 00,x
738 8389 84 01 .. anda #01
740 838D BD 98 A5 ... jsr 98a5 ;jump11
741 8390 C6 0A .. ldab #0a
742 8392 F7 00 38 ..8 stab 0038
743 8395 7C 00 54 |.T inc 0054
744 8398 F6 00 54 ..T ldab 0054
745 839B C1 64 .d cmpb #64
747 839F 7C 00 48 |.H inc 0048
748 83A2 7E 84 9F ~.. jmp 849f ;goto2
750 83A5 F6 0B C1 ... ldab 0bc1
751 83A8 C4 01 .. andb #01
753 83AC CC B0 34 ..4 ldd #b034 "CHGR PWRUP"
754 83AF BD C0 BA ... jsr c0ba ;display:
755 83B2 7C 00 48 |.H inc 0048
756 83B5 C6 0A .. ldab #0a
757 83B7 F7 00 38 ..8 stab 0038
759 83BC 7C 00 48 |.H inc 0048
760 83BF 7E 84 9F ~.. jmp 849f ;goto2
761 83C2 F6 0B C1 ... ldab 0bc1
762 83C5 C4 02 .. andb #02
764 83C9 CC B0 4A ..J ldd #b04a "CARD PWRUP"
765 83CC BD C0 BA ... jsr c0ba ;display:
766 83CF 7C 00 48 |.H inc 0048
767 83D2 C6 0A .. ldab #0a
768 83D4 F7 00 38 ..8 stab 0038
770 83D9 7C 00 48 |.H inc 0048
771 83DC 7E 84 9F ~.. jmp 849f ;goto2
772 83DF F6 0B C1 ... ldab 0bc1
773 83E2 C4 04 .. andb #04
775 83E6 CC B0 3F ..? ldd #b03f "LINK PWRUP"
776 83E9 BD C0 BA ... jsr c0ba ;display:
777 83EC 7C 00 48 |.H inc 0048
778 83EF C6 0A .. ldab #0a
779 83F1 F7 00 38 ..8 stab 0038
781 83F6 7C 00 48 |.H inc 0048
782 83F9 7E 84 9F ~.. jmp 849f ;goto2
783 83FC F6 0B C1 ... ldab 0bc1
784 83FF C4 10 .. andb #10
786 8403 CC B0 1E ... ldd #b01e "COIN JAM"
787 8406 BD C0 BA ... jsr c0ba ;display:
788 8409 7C 00 48 |.H inc 0048
789 840C C6 0A .. ldab #0a
790 840E F7 00 38 ..8 stab 0038
792 8413 7C 00 48 |.H inc 0048
793 8416 7E 84 9F ~.. jmp 849f ;goto2
794 8419 F6 0B C1 ... ldab 0bc1
795 841C C4 20 . andb #20
797 8420 CC B0 29 ..) ldd #b029 "BAD SENSOR"
798 8423 BD C0 BA ... jsr c0ba ;display:
799 8426 7C 00 48 |.H inc 0048
800 8429 C6 0A .. ldab #0a
801 842B F7 00 38 ..8 stab 0038
803 8430 7C 00 48 |.H inc 0048
805 8435 F6 0B C1 ... ldab 0bc1
806 8438 C4 08 .. andb #08
808 843C CC B0 55 ..U ldd #b055 "BILL ERROR"
809 843F BD C0 BA ... jsr c0ba ;display:
810 8442 7C 00 48 |.H inc 0048
811 8445 C6 0A .. ldab #0a
812 8447 F7 00 38 ..8 stab 0038
814 844C 7C 00 48 |.H inc 0048
816 8451 F6 0B C1 ... ldab 0bc1
817 8454 C4 40 .@ andb #40
819 8458 CC B0 60 ..` ldd #b060 "TUBE ERROR"
820 845B BD C0 BA ... jsr c0ba ;display:
821 845E 7F 00 48 ..H clr 0048
822 8461 C6 0A .. ldab #0a
823 8463 F7 00 38 ..8 stab 0038
825 8468 7F 00 48 ..H clr 0048
826 846B CC B0 13 ... ldd #b013 "HIT RESET "
827 846E BD C0 BA ... jsr c0ba ;display:
828 8471 C6 0A .. ldab #0a
829 8473 F7 00 38 ..8 stab 0038
830 8476 20 27 ' bra 27 ; to 849f (exit)
831 8478 F6 00 1D ... ldab 001d
833 847D CC AE A8 ... ldd #aea8 " SYSTEM "
834 8480 BD C0 BA ... jsr c0ba ;display:
835 8483 CE 00 1D ... ldx #001d
836 8486 1D 00 80 .. bclr 00,x, #80
837 8489 20 0C . bra 0c ; to 8496
838 848B CC AE B3 ... ldd #aeb3 " OK "
839 848E BD C0 BA ... jsr c0ba ;display:
840 8491 CE 00 1D ... ldx #001d
841 8494 1C 00 80 .. bset 00,x, #80
842 8496 C6 0F .. ldab #0f
843 8499 F7 00 38 ..8 stab 0038
844 849C 7F 00 48 ..H clr 0048
850 84A0 FC 00 3B ..; ldd 003b
852 84A5 7E 85 96 ~.. jmp 8596 ;goto3
853 84A8 F6 00 1F ... ldab 001f
855 84AD BD D6 52 ..R jsr d652 ;jump5
856 84B0 7F 00 42 ..B clr 0042
857 84B3 7F 00 09 ... clr 0009
858 84B6 7F 00 0A ... clr 000a
859 84B9 7F 00 06 ... clr 0006
862 84BE FD 00 40 ..@ std 0040
865 84C3 FD 00 3E ..> std 003e
866 84C6 BD E5 AA ... jsr e5aa ;jump12
867 84C9 CE 00 1F ... ldx #001f
868 84CC 1D 00 80 .. bclr 00,x, #80
869 84CF CE 00 1F .. ldx #001f
870 84D2 1C 00 02 .... bset 00,x, #02
871 84D5 CE 00 1D ... ldx #001d
872 84D8 1C 00 10 .. bset 00,x, #10
873 84DB CE 00 17 ... ldx #0017
874 84DE 1D 00 20 .. bclr 00,x, #20
875 84E0 CE 00 17 . ldx #0017
876 84E4 1D 00 40 .. bclr 00,x, #40
877 84E7 CE 00 17 ... ldx #0017
878 84EA 1D 00 80 .. bclr 00,x, #80
879 84EC F6 0B A9 ... ldab 0ba9
880 84F0 C4 02 .. andb #02
881 84F2 27 20 ' beq 20 ; to 8414
882 84F4 F6 00 42 ..B ldab 0042
884 84F8 C3 0B E4 ... addd #0be4
886 84FC E6 00 .. ldab 00,x
888 8500 BD BE 4B ..K jsr be4b ;displayblank
889 8503 CC B0 81 ... ldd #b081 ;"NO ACCESS"
890 8506 BD C0 BA ... jsr c0ba ;display:
891 8509 CC 02 58 ..X ldd #0258 ;600
892 850C BD E5 71 ..q jsr e571 ;msdelay
893 850F BD 85 AF ... jsr 85af ;jump14
894 8512 20 6C l bra 6c ; to 8580
896 8514 F6 00 42 ..B ldab 0042
898 8518 BD FE 16 ... jsr fe16 ;jump2
901 851F 85 80 .. ; default action - leave menu?
902 8521 85 39 .9 ; 0 - no key pressed
903 8523 85 4A .J ; key 1 - changer loading & calibration
904 8525 85 4F .O ; key 2 - win-a-snack odds programming
905 8527 85 54 .T ; key 3 - set pricing
906 8529 85 59 .Y ; key 4 - smart shopping discount
907 852B 85 5E .^ ; key 5 - manual peripheral config
908 852D 85 63 .c ; key 6 - promo vend-pair programming
909 852F 85 68 .h ; key 7 - POS message & serial id
910 8531 85 6D .m ; key 8 - print info
911 8533 85 72 .r ; key 9 - security code programming
912 8535 85 77 .w ; key 0 - motor menu
913 8537 85 7C .| ; reset key -
915 8539 CC AE 92 ... ldd #ae92 "- "
916 853C BD C0 BA ... jsr c0ba ;display:
917 853F 7F 00 42 ..B clr 0042
918 8542 CE 00 1F ... ldx #001f
919 8545 1C 00 02 .. bset 00,x, #02
921 854A BD 86 84 ... jsr 8684 ;jump15
923 854F BD 88 2E ... jsr 882e ;jump16
925 8554 BD 88 B8 ... jsr 88b8 ;jump17
927 8559 BD 8C B4 ... jsr 8cb4 ;jump18
929 855E BD 8E 35 ..5 jsr 8e35 ;jump19
931 8563 BD 8F 0D ... jsr 8f0d ;jump20
933 8568 BD 90 D1 ... jsr 90d1 ;jump21
935 856D BD 92 EE ... jsr 92ee ;jump22
937 8572 BD 93 A5 ... jsr 93a5 ;jump23
939 8577 BD 94 DD ... jsr 94dd ;jump24
941 857C 8D 31 .1 bsr 31 ;jump14
944 8580 7F 00 0A ... clr 000a
945 8583 F6 00 42 ..B ldab 0042
946 8586 C1 0A .. cmpb #0a
948 858A F6 00 42 ..B ldab 0042
949 858D C1 07 .. cmpb #07
951 8591 7F 00 09 ... clr 0009
954 8596 CE 00 1F ... ldx #001f
955 8599 1D 00 04 ... bclr 00,x, #04
956 859C CE 00 1F ... ldx #001f
957 859F 1C 00 .. bset 00,x, #80
958 85A2 CE 00 1D ... ldx #001d
959 85A5 1C 00 10 ... bset 00,x, #10
960 85A8 BD BE 69 ..i jsr be69 ;displayreset
961 85AB BD E5 AA ... jsr e5aa ;jump12
965 85AF 7F 00 42 ..B clr 0042
966 85B2 7F 00 06 ... clr 0006
967 85B5 CE 00 1F ... ldx #001f
968 85B8 1C 00 02 .. bset 00,x, #02
969 85BB BD BE 69 ..i jsr be69 ;displayreset
973 ; drop some change out of the changer?
974 85BF F6 00 12 ... ldab 0012
975 85C2 C4 1E .. andb #1e ; 00011110
977 85C5 BD FE 32 ..2 jsr fe32 ;jump25
978 85C8 85 DE 00 0E .... ; 14 000 0111 0
979 85CC 86 08 00 08 .... ; 22 000 1011 0
980 85D0 86 32 00 04 .... ; 26 000 1101 0
981 85D4 86 5C 00 02 .... ; 28 000 1110 0
982 85D8 86 83 FF E4 .... ; 0
983 85DC 00 00 .. ; end of array
984 85DE F6 0B DC ... ldab 0bdc
985 85E1 F7 00 01 ... stab 0001
986 85E4 BD C4 30 ..0 jsr c430 ;jump26
987 85E7 C6 01 .. ldab #01
988 85E9 F7 00 48 ..H stab 0048
989 85EC 7F 00 2C .., clr 002c
990 85EF F6 0C D9 ... ldab 0cd9
992 85F4 7A 0C D9 z.. dec 0cd9 ; decrement number of 5c coins
993 85F7 BD 97 F6 ... jsr 97f6 ;jump27
994 85FA CC 01 5E ..^ ldd #015e
995 85FD BD E5 71 ..q jsr e571 ;msdelay
996 8600 CC 02 33 ..3 ldd #0233
997 8603 FD 00 3B ..; std 003b
999 8608 F6 0B DB ... ldab 0bdb
1000 860B F7 00 01 ... stab 0001
1001 860E BD C4 30 ..0 jsr c430 ;jump26
1002 8611 C6 02 .. ldab #02
1003 8613 F7 00 48 ..H stab 0048
1004 8616 7F 00 2C .., clr 002c
1005 8619 F6 0C DA ... ldab 0cda
1006 861C 27 03 '. beq 03
1007 861E 7A 0C DA z.. dec 0cda ; decrement number of 10c coins
1008 8621 BD 97 F6 ... jsr 97f6 ;jump27
1009 8624 CC 01 5E ..^ ldd #015e
1010 8627 BD E5 71 ..q jsr e571 ;msdelay
1011 862A CC 02 33 ..3 ldd #0233
1012 862D FD 00 3B ..; std 003b
1014 8632 F6 0B DA ... ldab 0bda
1015 8635 F7 00 01 ... stab 0001
1016 8638 BD C4 30 ..0 jsr c430 ;jump26
1017 863B C6 03 .. ldab #03
1018 863D F7 00 48 ..H stab 0048
1019 8640 7F 00 2C .., clr 002c
1020 8643 F6 0C DB ... ldab 0cdb
1021 8646 27 03 '. beq 03
1022 8648 7A 0C DB z.. dec 0cdb ; decrement number of 20c coins
1023 864B BD 97 F6 ... jsr 97f6 ;jump27
1024 864E CC 01 5E ..^ ldd #015e
1025 8651 BD E5 71 ..q jsr e571 ;msdelay
1026 8654 CC 02 33 ..3 ldd #0233
1027 8657 FD 00 3B ..; std 003b
1029 865C C6 40 .@ ldab #40
1030 865E F7 00 01 ... stab 0001
1031 8661 BD C4 30 ..0 jsr c430 ;jump26
1032 8664 C6 04 .. ldab #04
1033 8666 F7 00 48 ..H stab 0048
1034 8669 7F 00 2C .., clr 002c
1035 866C F6 0C DC ... ldab 0cdc
1036 866F 27 03 '. beq 03
1037 8671 7A 0C DC z.. dec 0cdc ; decrement number of $1 coins
1038 8674 BD 97 F6 ... jsr 97f6 ;jump27
1039 8677 CC 01 5E ..^ ldd #015e
1040 867A BD E5 71 ..q jsr e571 ;msdelay
1041 867D CC 02 33 ..3 ldd #0233
1042 8680 FD 00 3B ..; std 003b
1046 ; changer load & calibrate menu
1047 8684 F6 00 1F ... ldab 001f
1048 8687 C4 02 .. andb #02
1049 8689 27 2B '+ beq 2b
1050 868B CE 00 1F ... ldx #001f
1051 868E 1D 00 02 ... bclr 00,x, #02
1052 8691 C6 01 .. ldab #01
1053 8693 F7 00 48 ..H stab 0048
1054 8696 F6 0B C0 ... ldab 0bc0
1055 8699 C4 01 .. andb #01
1056 869B 27 16 '. beq 16
1057 869D C6 27 .' ldab #27
1058 869F F7 10 2D ..- stab 102d ; disable SCI transmission
1059 86A2 C6 07 .. ldab #07
1060 86A4 F7 10 2B ..+ stab 102b ; 600 baud
1061 86A7 CE 00 1A ... ldx #001a
1062 86AA 1D 00 01 .. bclr 00,x, #01
1063 86AD F6 00 1A ... ldab 001a
1064 86B0 F7 30 00 .0. stab 3000 ; changer accept on
1065 86B3 7E 87 E8 ~.. jmp 87e8 ;goto4
1066 86B6 F6 00 09 ... ldab 0009
1068 86BA BD FE 32 ..2 jsr fe32 ;jump25
1069 86BD 86 D7 00 00 .... ; no key
1070 86C1 87 39 00 01 .... ; key 1
1071 86C5 87 75 00 01 .... ; key 2
1072 86C9 87 C5 00 08 .... ; key 0
1073 86CD 87 D9 00 01 .... ; key reset
1074 86D1 87 E8 FF F5 .... ; no key
1075 86D5 00 00 .. ; end of array data
1076 86D7 C6 FF .. ldab #ff
1077 86D9 F7 0B BC ... stab 0bbc
1078 86DC F6 18 00 ... ldab 1800
1079 86DF 2D 29 -) blt 29
1080 86E1 F6 00 07 ... ldab 0007
1081 86E4 26 24 &$ bne 24
1082 86E6 CE 00 1A ... ldx #001a
1083 86E9 1D 00 02 .. bclr 00,x, #02
1084 86EC F6 00 1A ... ldab 001a
1085 86EF F7 30 00 .0. stab 3000 ; send msg to changer?
1086 86F2 CC 00 32 ..2 ldd #0032
1087 86F5 BD E5 71 ..q jsr e571 ;msdelay
1088 86F8 CE 00 1A ... ldx #001a
1089 86FB 1C 00 02 .. bset 00,x, #02
1090 86FE F6 00 1A ... ldab 001a
1091 8701 F7 30 00 .0. stab 3000 ; turn changer send line off
1092 8704 CC 02 33 ..3 ldd #0233
1093 8707 FD 00 3B ..; std 003b
1096 870C FD 00 40 ..@ std 0040
1099 8711 FD 00 3E ..> std 003e
1100 8714 F6 0B C0 ... ldab 0bc0
1101 8717 C4 01 .. andb #01
1102 8719 27 03 '. beq 03
1103 871B BD 85 BF ... jsr 85bf ;jump28
1104 871E BD DC A3 ... jsr dca3 ;jump29
1105 8721 BD 97 F6 ... jsr 97f6 ;jump27
1106 8724 CE 00 17 ... ldx #0017
1107 8727 1D 00 .. bclr add,x 00,x
1111 872D 1D 00 40 ... bclr 00,x, #40
1112 8730 CE 00 17 ... ldx #0017
1113 8733 1D 00 .. bclr add,x 00,x
1114 8735 80 7E .~ suba #7e
1116 8738 E8 F6 .. eorb f6,x
1119 873C 26 2F &/ bne 2f
1120 873E F6 00 48 ..H ldab 0048
1122 8742 BD FE 16 ... jsr fe16 ;jump2
1123 8745 00 01 00 03 . ; data for jump2
1128 8751 87 62 . ; end of data
1129 8753 7C 0C D9 |.. inc 0cd9
1131 8758 7C 0C DA |.. inc 0cda
1133 875D 7C 0C DB |.. inc 0cdb
1135 8762 7C 0C DC |.. inc 0cdc
1136 8765 BD 97 F6 ... jsr 97f6 ;jump27
1137 8768 C6 02 .. ldab #02
1138 876A F7 00 36 ..6 stab 0036
1139 876D CE 00 1B ... ldx #001b
1140 8770 1C 00 10 ... bset 00,x, #10
1142 8775 F6 00 36 ..6 ldab 0036
1143 8778 26 43 &C bne 43
1144 877A F6 00 48 ..H ldab 0048
1146 877E BD FE 16 ... jsr fe16 ;jump2
1152 8786 B5 87 8F ... bita 878f
1154 878A 99 87 A3 ... adca 87
1156 878E AD F6 .. jsr f6,x
1158 8791 D9 27 03 .'. adcb 27
1159 8794 7A 0C D9 z.. dec 0cd9
1161 8799 F6 0C DA ... ldab 0cda
1162 879C 27 03 '. beq 03
1163 879E 7A 0C DA z.. dec 0cda
1165 87A3 F6 0C DB ... ldab 0cdb
1166 87A6 27 03 '. beq 03
1167 87A8 7A 0C DB z.. dec 0cdb
1169 87AD F6 0C DC ... ldab 0cdc
1170 87B0 27 03 '. beq 03
1171 87B2 7A 0C DC z.. dec 0cdc
1172 87B5 BD 97 F6 ... jsr 97f6 ;jump27
1173 87B8 C6 02 .. ldab #02
1174 87BA F7 00 36 ..6 stab 0036
1175 87BD CE 00 1B ... ldx #001b
1176 87C0 1C 00 10 ... bset 00,x, #10
1178 87C5 7C 00 48 |.H inc 0048
1179 87C8 F6 00 48 ..H ldab 0048
1180 87CB C1 04 .. cmpb #04
1181 87CD 23 05 #. bls 05
1182 87CF C6 01 .. ldab #01
1183 87D1 F7 00 48 ..H stab 0048
1184 87D4 BD 97 F6 ... jsr 97f6 ;jump27
1186 87D9 CE 00 1A ... ldx #001a
1187 87DC 1C 00 01 .. bset 00,x, #01
1188 87DF F6 00 1A ... ldab 001a
1189 87E2 F7 30 00 .0. stab 3000 ; turn changer accept line off
1190 87E5 BD 85 AF ... jsr 85af ;jump14
1195 ;motor count procedure
1196 87E9 7F 00 05 ... clr 0005
1197 87EC 7F 00 54 ..T clr 0054
1198 87EF F6 00 54 ..T ldab 0054
1199 87F2 C1 50 .P cmpb #50 ; 80 entries in lookup table
1200 87F4 24 2E $. bcc 2e ; to 8824
1201 87F6 F6 00 54 ..T ldab 0054
1203 87FA C3 B0 D3 ... addd #b0d3 ; lookup table
1205 87FE E6 00 .. ldab 00,x
1206 8800 F7 00 06 ... stab 0006
1207 8803 F6 00 06 ... ldab 0006
1208 8806 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
1209 8809 83 00 00 ... subd #0000
1210 880C 26 11 &. bne 11
1211 880E BD D3 11 ... jsr d311 ;jump30 - test it
1212 8811 83 00 00 ... subd #0000
1213 8814 26 03 &. bne 03
1214 8816 7C 00 05 |.. inc 0005
1215 8819 CC 00 05 ... ldd #0005
1216 881C BD E5 71 ..q jsr e571 ;msdelay
1217 881F 7C 00 54 |.T inc 0054
1219 8824 BD 99 81 ... jsr 9981 ;jump144 - write "MOTORS XX" (from 0005)
1220 8827 CC 07 D0 ... ldd #07d0
1221 882A BD E5 71 ..q jsr e571 ;msdelay
1225 882E F6 00 1F ... ldab 001f
1226 8831 C4 02 .. andb #02
1227 8833 27 12 '. beq 12
1228 8835 FC 0B B5 ... ldd 0bb5
1229 8838 C4 FF .. andb #ff
1230 883A 84 01 .. anda #01
1231 883C FD 00 52 ..R std 0052
1232 883F CE 00 1F ... ldx #001f
1233 8842 1D 00 02 ... bclr 00,x, #02
1235 8847 F6 00 09 ... ldab 0009
1237 884B BD FE 32 ..2 jsr fe32 ;jump25
1238 884E 88 68 00 00 .... ; cancel.
1239 8852 88 6D 00 01 .... ; key 1 - increment
1240 8856 88 83 00 01 .... ; key 2 - decrement
1241 885A 88 A7 00 08 .... ; key 0 - saving
1242 885E 88 B4 00 01 .... ; reset
1243 8862 88 B7 FF F5 .... ; no key - return
1244 8866 00 00 .... ; end of array data
1246 8868 BD 9A 05 ... jsr 9a05 ;jump102 - write ODDS 1/
1247 886B 20 4A J bra 4a ; to 88b7 - return
1249 886D FC 00 52 ..R ldd 0052
1250 8870 83 01 F4 ... subd #01f4 ; 500
1251 8873 24 09 $. bcc 09 ; dont let them go above 500
1252 8875 FC 00 52 ..R ldd 0052
1253 8878 C3 00 32 ..2 addd #0032 ; +50
1254 887B FD 00 52 ..R std 0052
1255 887E BD 9A 05 ... jsr 9a05 ;jump102 - write ODDS 1/
1258 8883 FC 00 52 ..R ldd 0052
1259 8886 83 00 32 ..2 subd #0032 ; 50
1260 8889 23 17 #. bls 17 ; dont let them go below 50
1261 888B FC 00 52 ..R ldd 0052
1262 888E C3 FF CE ... addd #ffce ; -50
1263 8891 FD 00 52 ..R std 0052
1264 8894 FC 00 52 ..R ldd 0052
1265 8897 83 00 32 ..2 subd #0032 ; 50
1266 889A 24 06 $. bcc 06
1267 889C CC 00 32 ..2 ldd #0032 ; 100
1268 889F FD 00 52 ..R std 0052
1269 88A2 BD 9A 05 ... jsr 9a05 ;jump102 - write ODDS 1/
1272 88A7 BD A3 7C ..| jsr a37c ;jump141 - save
1275 88AC FD 0B B9 ... std 0bb9
1276 88AF BD 85 AF ... jsr 85af ;jump14
1278 88B4 BD 85 AF ... jsr 85af ;jump14
1283 88B8 F6 00 1F ... ldab 001f
1284 88BB C4 02 .. andb #02
1285 88BD 26 0A &. bne 0a
1286 88BF F6 00 3A ..: ldab 003a
1287 88C2 26 28 &( bne 28
1288 88C4 F6 00 1D ... ldab 001d
1289 88C7 2D 23 -# blt 23
1290 88C9 7F 00 2C .., clr 002c
1291 88CC CC AE 9D ... ldd #ae9d "SET PRICE?"
1292 88CF BD C0 BA ... jsr c0ba ;display:
1293 88D2 CE 00 1F ... ldx #001f
1294 88D5 1D 00 02 .. bclr 00,x, #02
1295 88D8 CE 00 1F ... ldx #001f
1296 88DB 1D 00 40 .. bclr 00,x, #40
1297 88DE CE 00 1D ... ldx #001d
1298 88E1 1D 00 80 .. bclr 00,x, #80
1299 88E4 7F 00 54 ... clr 0054
1300 88E7 C6 32 .2 ldab #32
1301 88E9 F7 00 3A ..: stab 003a
1302 88EC F6 00 09 ... ldab 0009
1303 88EF 26 03 &. bne 03
1304 88F1 7E 89 E1 ~.. jmp 89e1 ;goto5
1305 88F4 F6 00 1D ... ldab 001d
1306 88F7 2C 03 ,. bge 03
1307 88F9 7E 89 E1 ~.. jmp 89e1 ;goto5
1308 88FC F6 00 09 ... ldab 0009
1309 88FF C1 0B .. cmpb #0b
1310 8901 26 06 &. bne 06
1311 8903 BD 85 AF ... jsr 85af ;jump14
1312 8906 7E 89 DE ~.. jmp 89de ;goto6
1313 8909 F6 00 54 ..T ldab 0054
1314 890C 26 26 && bne 26
1315 890E BD BE 4B ..K jsr be4b ;displayblank
1316 8911 F6 00 09 ... ldab 0009
1317 8914 C1 0A .. cmpb #0a
1318 8916 26 03 &. bne 03
1319 8918 7F 00 09 ... clr 0009
1320 891B F6 00 09 ... ldab 0009
1321 891E CB 30 .0 addb #30
1323 8921 CC 0B 95 ... ldd #0b95
1324 8924 F0 00 54 ..T subb 0054
1325 8927 82 00 .. sbca #00
1328 892B E7 00 .. stab 00,x
1329 892D C6 32 .2 ldab #32
1330 892F F7 00 3A ..: stab 003a
1332 8934 F6 00 54 ..T ldab 0054
1333 8937 C1 01 .. cmpb #01
1334 8939 26 27 &' bne 27
1335 893B F6 00 09 ... ldab 0009
1336 893E C1 05 .. cmpb #05
1338 8942 F6 00 09 ... ldab 0009
1339 8945 C1 0A .. cmpb #0a
1340 8947 27 19 '. beq 19
1341 8949 F6 00 09 ... ldab 0009
1342 894C CB 30 .0 addb #30
1344 894F CC 0B 95 ... ldd #0b95
1345 8952 F0 00 54 ..T subb 0054
1346 8955 82 00 .. sbca #00
1349 8959 E7 00 .. stab 00,x
1350 895B C6 32 .2 ldab #32
1351 895D F7 00 3A ..: stab 003a
1353 8962 CE 00 1F ... ldx #001f
1354 8965 1C 00 02 .. bset 00,x, #02
1355 8968 7F 00 3A ..: clr 003a
1356 896B BD BE 01 ... jsr be01 ;jump70
1357 896E 7C 00 54 |.T inc 0054
1358 8971 F6 00 54 ..T ldab 0054
1359 8974 C1 02 .. cmpb #02
1360 8976 26 60 &` bne 60
1361 8978 CE 00 1D ... ldx #001d
1362 897B 1C 00 80 .. bset 00,x, #80
1363 897E F6 0B 94 .. ldab 0b94
1364 8980 CB D0 .. addb #d0 ; -48 (unmake it a digit)
1366 8984 F6 0B 95 ... ldab 0b95
1367 8987 CB D0 .. addb #d0 ; -48 (unmake it a digit)
1368 8989 86 0A .. ldaa #0a
1371 898D EB 00 .. addb 00,x
1373 8990 F7 00 06 ... stab 0006
1374 8993 C6 32 .2 ldab #32
1375 8995 F7 00 3A ..: stab 003a
1376 8998 F6 00 06 ... ldab 0006
1377 899B BD D7 A0 ... jsr d7a0 ;is_invalid_slot
1378 899E 83 00 00 ... subd #0000
1379 89A1 26 27 &' bne 27 ; to 89ca
1380 89A3 BD D3 11 ... jsr d311 ;jump30 - test position exists
1381 89A6 83 00 00 ... subd #0000
1382 89A9 26 0B &. bne 0b
1383 89AB CE 00 1F ... ldx #001f
1384 89AE 1C 00 40 .. bset 00,x, #40
1385 89B1 BD 8C 73 ..s jsr 8c73 ;jump75
1387 89B6 CE 00 1F ... ldx #001f
1388 89B9 1D 00 40 .. bclr 00,x, #40
1389 89BC CC 2A FF .*. ldd #2aff ; 00101010 11111111
1390 89BF FD 00 27 ..' std 0027
1391 89C2 BD A3 85 ... jsr a385 ;jump40
1392 89C5 BD 9A 47 ..G jsr 9a47 ;jump39
1395 89CA CE 00 1D ... ldx #001d
1396 89CD 1D 00 .. bclr 00,x, #80
1397 89D0 CE 00 1F ... ldx #001f
1398 89D3 1C 00 02 ... bset 00,x, #02
1400 89D8 CE 00 1D ... ldx #001d
1401 89DB 1D 00 80 ... bclr 00,x, #80
1403 89DE 7E 8C 72 .~ jmp 8c72 ;goto7 (exit)
1405 89E1 F6 00 1D ... ldab 001d
1406 89E4 2D 03 -. blt 03
1407 89E6 7E 8C 72 ~.r jmp 8c72 ;goto7 (exit)
1408 89E9 F6 00 09 ... ldab 0009
1410 89ED BD FE 16 ... jsr fe16 ;jump2
1411 89F0 00 00 00 0B .... ; params to jump2
1412 89F4 8C 72 .. ; default action
1413 89F6 8A 0E .. ; 0 - display price on screen?
1425 8A0E BD 9A 47 .. jsr 9a47 ;jump39
1426 8A11 7E 8C 72 ... jmp 8c72 ;goto7 (exit)
1427 8A14 F6 00 36 ... ldab 0036
1428 8A17 27 03 '. beq 03
1429 8A19 7E 8A 9B ~.. jmp 8a9b ;goto8
1430 8A1C F6 00 1F ... ldab 001f
1431 8A1F C4 40 .@ andb #40
1432 8A21 27 78 'x beq 78
1433 8A23 F6 0B C0 ... ldab 0bc0
1434 8A26 C4 02 .. andb #02
1435 8A28 27 52 'R beq 52
1436 8A2A F6 0B AA ... ldab 0baa
1437 8A2D C1 32 .2 cmpb #32
1438 8A2F 24 22 $" bcc 22
1439 8A31 F6 0B AA ... ldab 0baa
1441 8A35 F3 00 27 ..' addd 0027
1442 8A38 FD 00 27 ..' std 0027
1443 8A3B F6 0B AA ... ldab 0baa
1447 8A41 CC 00 FA ... ldd #00fa ; 250 or -6
1448 8A44 BD FB BA ... jsr fbba ;jump38 - multiply?
1449 8A47 B3 00 27 ..' subd 0027
1450 8A4A 24 05 $. bcc 05
1453 8A4E FD 00 27 ..' std 0027
1455 8A53 F6 0B AA ... ldab 0baa
1456 8A56 C1 32 .2 cmpb #32
1458 8A5A F6 0B AA ... ldab 0baa
1460 8A5E F3 00 27 ..' addd 0027
1461 8A61 FD 00 27 ..' std 0027
1462 8A64 F6 0B AA ... ldab 0baa
1466 8A6A CC 00 C7 ... ldd #00c7 ; 199
1467 8A6D BD FB BA ... jsr fbba ;jump38
1468 8A70 B3 00 27 ..' subd 0027
1469 8A73 24 05 $. bcc 05
1472 8A77 FD 00 27 ..' std 0027
1474 8A7C F6 0B AA ... ldab 0baa
1476 8A80 F3 00 27 ..' addd 0027
1477 8A83 FD 00 27 ..' std 0027
1478 8A86 FC 00 27 ..' ldd 0027
1479 8A89 83 27 0F .'. subd #270f
1480 8A8C 23 05 #. bls 05
1483 8A90 FD 00 27 ..' std 0027
1484 8A93 BD 9A 47 ..G jsr 9a47 ;jump39
1485 8A96 C6 02 .. ldab #02
1486 8A98 F7 00 36 ..6 stab 0036
1488 8A9B CE 00 1B ... ldx #001b
1489 8A9E 1C 00 10 ... bset 00,x, #10
1490 8AA1 CC 02 33 ..3 ldd #0233
1491 8AA4 FD 00 3B ..; std 003b
1492 8AA7 7E 8C 72 ~.r jmp 8c72 ;goto7 (exit)
1494 8AAA F6 00 36 ..6 ldab 0036
1495 8AAD 27 03 '. beq 03
1496 8AAF 7E 8B 4F ~.O jmp 8b4f ;goto9
1497 8AB2 F6 00 1F ... ldab 001f
1498 8AB5 C4 40 .@ andb #40
1499 8AB7 26 03 &. bne 03
1500 8AB9 7E 8B 4F ~.O jmp 8b4f ;goto9
1501 8ABC F6 0B C0 ... ldab 0bc0
1502 8ABF C4 02 .. andb #02
1503 8AC1 27 57 'W beq 57
1504 8AC3 FC 00 27 ..' ldd 0027
1505 8AC6 26 18 &. bne 18
1506 8AC8 F6 0B AA ... ldab 0baa
1507 8ACB C1 32 .2 cmpb #32
1508 8ACD 24 11 $. bcc 11
1509 8ACF F6 0B AA ... ldab 0baa
1513 8AD5 CC 00 FA ... ldd #00fa ; 250
1514 8AD8 BD FB BA ... jsr fbba ;jump38
1515 8ADB FD 00 27 ..' std 0027
1517 8AE0 FC 00 27 ..' ldd 0027
1518 8AE3 26 18 &. bne 18
1519 8AE5 F6 0B AA ... ldab 0baa
1520 8AE8 C1 32 .2 cmpb #32
1521 8AEA 26 11 &. bne 11
1522 8AEC F6 0B AA ... ldab 0baa
1526 8AF2 CC 00 C7 ... ldd #00c7 ; 199
1527 8AF5 BD FB BA ... jsr fbba ;jump38
1528 8AF8 FD 00 27 ..' std 0027
1530 8AFD F6 0B AA ... ldab 0baa
1532 8B01 B3 00 27 ..' subd 0027
1533 8B04 22 0D ". bhi 0d
1534 8B06 FC 00 27 ..' ldd 0027
1535 8B09 F0 0B AA ... subb 0baa
1536 8B0C 82 00 .. sbca #00
1537 8B0E FD 00 27 ..' std 0027
1541 8B15 FD 00 27 ..' std 0027
1543 8B1A FC 00 27 ..' ldd 0027
1544 8B1D 26 0D &. bne 0d
1545 8B1F CC 27 10 .'. ldd #2710 ;10000
1546 8B22 F0 0B AA ... subb 0baa
1547 8B25 82 00 .. sbca #00
1548 8B27 FD 00 27 ..' std 0027
1550 8B2C F6 0B AA ... ldab 0baa
1552 8B30 B3 00 27 ..' subd 0027
1553 8B33 22 0D ". bhi 0d
1554 8B35 FC 00 27 ..' ldd 0027
1555 8B38 F0 0B AA ... subb 0baa
1556 8B3B 82 00 .. sbca #00
1557 8B3D FD 00 27 ..' std 0027
1561 8B44 FD 00 27 ..' std 0027
1562 8B47 BD 9A 47 ..G jsr 9a47 ;jump39
1563 8B4A C6 02 .. ldab #02
1564 8B4C F7 00 36 ..6 stab 0036
1566 8B4F CE 00 1B ... ldx #001b
1567 8B52 1C 00 10 .. bset 00,x, #10
1568 8B55 CC 02 33 ..3 ldd #0233
1569 8B58 FD 00 3B ..; std 003b
1570 8B5B 7E 8C 72 ~.r jmp 8c72 ;goto7 (exit)
1571 8B5E F6 00 36 ..6 ldab 0036
1572 8B61 26 2C &, bne 2c
1573 8B63 F6 00 1F ... ldab 001f
1574 8B66 C4 40 .@ andb #40
1575 8B68 27 25 '% beq 25
1576 8B6A FC 00 46 ..F ldd 0046
1577 8B6D 83 00 64 ..d subd #0064
1578 8B70 24 15 $. bcc 15
1579 8B72 FE 00 46 ..F ldx 0046
1581 8B76 FF 00 46 ..F stx 0046
1582 8B79 FC 00 46 ..F ldd 0046
1583 8B7C 83 00 64 ..d subd #0064
1584 8B7F 25 06 %. bcs 06
1585 8B81 CC 00 01 ... ldd #0001
1586 8B84 FD 00 46 ..F std 0046
1587 8B87 BD 9A 47 ..G jsr 9a47 ;jump39
1588 8B8A C6 02 .. ldab #02
1589 8B8C F7 00 36 ..6 stab 0036
1590 8B8F CE 00 1B ... ldx #001b
1591 8B92 1C 00 10 .. bset 00,x, #10
1592 8B95 CC 02 33 ..3 ldd #0233
1593 8B98 FD 00 3B ..; std 003b
1594 8B9B 7E 8C 72 ~.r jmp 8c72 ;goto7 (exit)
1595 8B9E F6 00 36 ..6 ldab 0036
1596 8BA1 26 29 &) bne 29
1597 8BA3 F6 00 1F ... ldab 001f
1598 8BA6 C4 40 .@ andb #40
1599 8BA8 27 22 '" beq 22
1600 8BAA FC 00 46 ..F ldd 0046
1601 8BAD 83 00 00 ... subd #0000
1602 8BB0 23 12 #. bls 12
1603 8BB2 FE 00 46 ..F ldx 0046
1605 8BB6 FF 00 46 ..F stx 0046
1606 8BB9 FC 00 46 ..F ldd 0046
1607 8BBC 26 06 &. bne 06
1608 8BBE CC 00 63 ..c ldd #0063
1609 8BC1 FD 00 46 ..F std 0046
1610 8BC4 BD 9A 47 ..G jsr 9a47 ;jump39
1611 8BC7 C6 02 .. ldab #02
1612 8BC9 F7 00 36 ..6 stab 0036
1613 8BCC CE 00 1B ... ldx #001b
1614 8BCF 1C 00 10 ... bset 00,x, #10
1615 8BD2 CC 02 33 ..3 ldd #0233
1616 8BD5 FD 00 3B ..; std 003b
1617 8BD8 7E 8C 72 ~.r jmp 8c72 ;goto7 (exit)
1618 8BDB F6 00 1F ... ldab 001f
1619 8BDE C4 40 .@ andb #40
1620 8BE0 27 15 '. beq 15
1621 8BE2 F6 00 19 ... ldab 0019
1622 8BE5 C4 10 .. andb #10
1623 8BE7 27 08 '. beq 08
1624 8BE9 CE 00 19 ... ldx #0019
1625 8BEC 1D 00 10 ... bclr 00,x, #10
1627 8BF1 CE 00 19 ... ldx #0019
1628 8BF4 1C 00 10 ... bset 00,x, #10
1629 8BF7 BD 9A 47 ..G jsr 9a47 ;jump39
1631 8BFC BD A3 85 ... jsr a385 ;jump40
1632 8BFF F6 00 06 ... ldab 0006
1633 8C02 C1 64 .d cmpb #64
1634 8C04 24 24 $$ bcc 24
1635 8C06 BD 97 6F ..o jsr 976f ;jump41
1636 8C09 F6 00 06 ... ldab 0006
1637 8C0C BD D7 A0 ... jsr d7a0 ;is_invalid_slot
1638 8C0F 83 00 00 ... subd #0000
1639 8C12 27 16 '. beq 16
1640 8C14 F6 00 06 ... ldab 0006
1641 8C17 C1 09 .. cmpb #09
1642 8C19 26 03 &. bne 03
1643 8C1B BD 97 6F ..o jsr 976f ;jump41
1644 8C1E F6 00 06 ... ldab 0006
1645 8C21 C1 45 .E cmpb #45
1646 8C23 26 05 &. bne 05
1647 8C25 C6 01 .. ldab #01
1648 8C27 F7 00 06 ... stab 0006
1649 8C2A F6 0E 6D ..m ldab 0e6d
1650 8C2D C1 01 .. cmpb #01
1651 8C2F 26 11 &. bne 11
1652 8C31 F6 00 06 ... ldab 0006
1655 8C36 C3 08 C8 ... addd #08c8
1657 8C3A EC 00 .. ldd 00,x
1658 8C3C C4 7F .. andb #7f
1660 8C3F FD 00 46 ..F std 0046
1661 8C42 BD D3 11 ... jsr d311 ;jump30 - test position exists
1662 8C45 83 00 00 ... subd #0000
1663 8C48 26 12 &. bne 12
1664 8C4A CE 00 1F ... ldx #001f
1665 8C4D 1C 00 40 ... bset 00,x, #40
1666 8C50 FC 00 27 ..' ldd 0027
1667 8C53 83 27 0F .'. subd #270f
1668 8C56 23 02 #. bls 02
1669 8C58 8D 19 .. bsr dest 19
1671 8C5C CE 00 1F ... ldx #001f
1672 8C5F 1D 00 40 ... bclr 00,x, #40
1673 8C62 BD 9A 47 ..G jsr 9a47 ;jump39
1675 8C67 BD A3 85 ... jsr a385 ;jump40
1676 8C6A BD 85 AF ... jsr 85af ;jump14
1678 8C6F BD 85 AF ... jsr 85af ;jump14
1683 ;fetches a price & other info for the given slot?
1684 8C73 F6 00 06 ... ldab 0006
1687 8C78 C3 08 00 ... addd #0800
1689 8C7C EC 00 .. ldd 00,x
1690 8C7E C4 FF .. andb #ff
1691 8C80 84 3F .? anda #3f
1692 8C82 FD 00 27 ..' std 0027
1693 8C85 F6 00 06 ... ldab 0006
1696 8C8A C3 08 C8 ... addd #08c8
1698 8C8E EC 00 .. ldd 00,x
1699 8C90 C4 7F .. andb #7f
1701 8C93 FD 00 46 ..F std 0046
1702 8C96 F6 00 06 ... ldab 0006
1705 8C9B C3 08 C8 ... addd #08c8
1707 8C9F EC 00 .. ldd 00,x
1708 8CA1 84 08 .. anda #08
1709 8CA3 27 08 '. beq 08
1710 8CA5 CE 00 19 ... ldx #0019
1711 8CA8 1C 00 10 ... bset 00,x, #10 ; corresponds to whatever '*' is on price display
1713 8CAD CE 00 19 ... ldx #0019
1714 8CB0 1D 00 10 ... bclr 00,x, #10
1718 ; program smart shopping discount
1719 8CB4 F6 00 1F ... ldab 001f
1720 8CB7 C4 02 .. andb #02
1721 8CB9 27 12 '. beq 12
1722 8CBB FC 0B B7 ... ldd 0bb7
1723 8CBE FD 00 0D ... std 000d
1724 8CC1 CE 00 1F ... ldx #001f
1725 8CC4 1D 00 02 ... bclr 00,x, #02
1726 8CC7 7F 00 36 ..6 clr 0036
1727 8CCA 7E 8E 34 ~.4 jmp 8e34 ;goto10
1728 8CCD F6 00 09 ... ldab 0009
1730 8CD1 BD FE 32 ..2 jsr fe32 ;jump25
1731 8CD4 8C EE 00 00 .... ; array data for jump25
1732 8CD8 8C F4 00 01 ....
1733 8CDC 8D 80 00 01 ....
1734 8CE0 8E 29 00 08 .)..
1735 8CE4 8E 31 00 01 .1..
1736 8CE8 8E 34 FF F5 .4.
1737 8CEC 00 00 ... ; end of array data
1738 8CEE BD 9B 63 ..c jsr 9b63 ;jump101
1739 8CF1 7E 8E 34 ~.4 jmp 8e34 ;goto10
1740 8CF4 F6 00 36 ..6 ldab 0036
1741 8CF7 26 78 &x bne 78
1742 8CF9 F6 0B C0 ... ldab 0bc0
1743 8CFC C4 02 .. andb #02
1744 8CFE 27 52 'R beq 52
1745 8D00 F6 0B AA ... ldab 0baa
1746 8D03 C1 32 .2 cmpb #32
1747 8D05 24 22 $" bcc 22
1748 8D07 F6 0B AA ... ldab 0baa
1750 8D0B F3 00 0D ... addd 000d
1751 8D0E FD 00 0D ... std 000d
1752 8D11 F6 0B AA ... ldab 0baa
1756 8D17 CC 00 FA ... ldd #00fa ; 250
1757 8D1A BD FB BA ... jsr fbba ;jump38
1758 8D1D B3 00 0D ... subd 000d
1759 8D20 24 05 $. bcc 05
1762 8D24 FD 00 0D ... std 000d
1764 8D29 F6 0B AA ... ldab 0baa
1765 8D2C C1 32 .2 cmpb #32
1767 8D30 F6 0B AA ... ldab 0baa
1769 8D34 F3 00 0D ... addd 000d
1770 8D37 FD 00 0D ... std 000d
1771 8D3A F6 0B AA ... ldab 0baa
1775 8D40 CC 00 C7 ... ldd #00c7 ; 199
1776 8D43 BD FB BA ... jsr fbba ;jump38
1777 8D46 B3 00 0D ... subd 000d
1778 8D49 24 05 $. bcc 05
1781 8D4D FD 00 0D ... std 000d
1783 8D52 F6 0B AA ... ldab 0baa
1785 8D56 F3 00 0D ... addd 000d
1786 8D59 FD 00 0D ... std 000d
1787 8D5C FC 00 0D ... ldd 000d
1788 8D5F 83 27 0F .'. subd #270f
1789 8D62 23 05 #. bls 05
1792 8D66 FD 00 0D ... std 000d
1793 8D69 BD 9B 63 ..c jsr 9b63 ;jump101
1794 8D6C C6 02 .. ldab #02
1795 8D6E F7 00 36 ..6 stab 0036
1796 8D71 CE 00 1B ... ldx #001b
1797 8D74 1C 00 10 .. bset 00,x, #10
1798 8D77 CC 02 33 ..3 ldd #0233
1799 8D7A FD 00 3B ..; std 003b
1800 8D7D 7E 8E 34 ~.4 jmp 8e34 ;goto10
1801 8D80 F6 00 36 ..6 ldab 0036
1802 8D83 27 03 '. beq 03
1803 8D85 7E 8E 1B ~.. jmp 8e1b ;goto11
1804 8D88 F6 0B C0 ... ldab 0bc0
1805 8D8B C4 02 .. andb #02
1806 8D8D 27 57 'W beq 57
1807 8D8F FC 00 0D ... ldd 000d
1808 8D92 26 18 &. bne 18
1809 8D94 F6 0B AA ... ldab 0baa
1810 8D97 C1 32 .2 cmpb #32
1811 8D99 24 11 $. bcc 11
1812 8D9B F6 0B AA ... ldab 0baa
1816 8DA1 CC 00 FA ... ldd #00fa ; 250
1817 8DA4 BD FB BA ... jsr fbba ;jump38
1818 8DA7 FD 00 0D ... std 000d
1820 8DAC FC 00 0D ... ldd 000d
1821 8DAF 26 18 &. bne 18
1822 8DB1 F6 0B AA ... ldab 0baa
1823 8DB4 C1 32 .2 cmpb #32
1824 8DB6 26 11 &. bne 11
1825 8DB8 F6 0B AA ... ldab 0baa
1829 8DBE CC 00 C7 ... ldd #00c7 ; 199
1830 8DC1 BD FB BA ... jsr fbba ;jump38
1831 8DC4 FD 00 0D ... std 000d
1833 8DC9 F6 0B AA ... ldab 0baa
1835 8DCD B3 00 0D ... subd 000d
1836 8DD0 22 0D ". bhi 0d
1837 8DD2 FC 00 0D ... ldd 000d
1838 8DD5 F0 0B AA ... subb 0baa
1839 8DD8 82 00 .. sbca #00
1840 8DDA FD 00 0D ... std 000d
1844 8DE1 FD 00 0D ... std 000d
1846 8DE6 FC 00 0D ... ldd 000d
1847 8DE9 26 0D &. bne 0d
1848 8DEB CC 27 10 .'. ldd #2710
1849 8DEE F0 0B AA ... subb 0baa
1850 8DF1 82 00 .. sbca #00
1851 8DF3 FD 00 0D ... std 000d
1853 8DF8 F6 0B AA ... ldab 0baa
1855 8DFC B3 00 0D ... subd 000d
1856 8DFF 22 0D ". bhi 0d
1857 8E01 FC 00 0D ... ldd 000d
1858 8E04 F0 0B AA ... subb 0baa
1859 8E07 82 00 .. sbca #00
1860 8E09 FD 00 0D ... std 000d
1864 8E10 FD 00 0D ... std 000d
1865 8E13 BD 9B 63 ..c jsr 9b63 ;jump101
1866 8E16 C6 02 .. ldab #02
1867 8E18 F7 00 36 ..6 stab 0036
1869 8E1B CE 00 1B ... ldx #001b
1870 8E1E 1C 00 10 ... bset 00,x, #10
1871 8E21 CC 02 33 ..3 ldd #0233
1872 8E24 FD 00 3B ..; std 003b
1874 8E29 BD A4 4F ..O jsr a44f ;jump140
1875 8E2C BD 85 AF ... jsr 85af ;jump14
1877 8E31 BD 85 AF ... jsr 85af ;jump14
1882 ; manual peripheral config menu
1883 8E35 F6 00 1F ... ldab 001f
1884 8E38 C4 02 .. andb #02
1885 8E3A 27 1E '. beq 1e
1886 8E3C 7F 00 48 ..H clr 0048
1887 8E3F F6 0B C0 ... ldab 0bc0
1888 8E42 F7 00 67 ..g stab 0067
1889 8E45 F6 0E 6D ..m ldab 0e6d
1890 8E48 F7 0E 6F ..o stab 0e6f
1891 8E4B F6 0E 6E ..n ldab 0e6e
1892 8E4E F7 0E 70 ..p stab 0e70
1893 8E51 CE 00 1F ... ldx #001f
1894 8E54 1D 00 02 ... bclr 00,x, #02
1895 8E57 7E 8F 0C ~.. jmp 8f0c ;goto12
1896 8E5A F6 00 09 ... ldab 0009
1898 8E5E BD FE 32 ..2 jsr fe32 ;jump25
1899 8E61 8E 7B 00 00 .{.. ; no key
1900 8E65 8E 81 00 01 .... ; key 1 - toggle?
1901 8E69 8E 87 00 04 .... ; key 5 - save and next
1902 8E6D 8F 01 00 05 .... ; key 0 - exit
1903 8E71 8F 09 00 01 .... ; key reset - exit
1904 8E75 8F 0C FF F5 .... ; default
1905 8E79 00 00 .. ; end of array data
1907 8E7B BD 9C 15 ... jsr 9c15 ;jump111 - write the option name
1908 8E7E 7E 8F 0C ~.. jmp 8f0c ;goto12
1910 8E81 BD A7 5F .._ jsr a75f ;jump133
1911 8E84 7E 8F 0C ~.. jmp 8f0c ;goto12
1913 8E87 F6 00 48 ..H ldab 0048
1914 8E8A C1 08 .. cmpb #08
1915 8E8C 25 05 %. bcs 05
1916 8E8E F6 00 67 ..g ldab 0067
1917 8E91 2D 03 -. blt 03
1918 8E93 BD A4 59 ..Y jsr a459 ;jump110
1919 8E96 F6 00 48 ..H ldab 0048
1920 8E99 C1 0A .. cmpb #0a
1921 8E9B 24 5F $_ bcc 5f
1922 8E9D 7C 00 48 |.H inc 0048
1923 8EA0 F6 00 48 ..H ldab 0048
1924 8EA3 C1 01 .. cmpb #01
1925 8EA5 26 0F &. bne 0f
1927 8EA7 F6 00 67 ..g ldab 0067
1928 8EAA C4 02 .. andb #02
1929 8EAC 26 08 &. bne 08
1930 8EAE F6 00 48 ..H ldab 0048
1931 8EB1 CB 02 .. addb #02
1932 8EB3 F7 00 48 ..H stab 0048
1934 8EB6 F6 00 48 ..H ldab 0048
1935 8EB9 C1 02 .. cmpb #02
1936 8EBB 26 0A &. bne 0a
1937 8EBD F6 00 67 ..g ldab 0067
1938 8EC0 C4 10 .. andb #10
1939 8EC2 26 03 &. bne 03
1940 8EC4 7C 00 48 |.H inc 0048
1941 8EC7 F6 00 48 ..H ldab 0048
1942 8ECA C1 06 .. cmpb #06
1943 8ECC 26 0F &. bne 0f
1944 8ECE F6 00 67 ..g ldab 0067
1945 8ED1 C4 08 .. andb #08
1946 8ED3 26 08 &. bne 08
1947 8ED5 C6 02 .. ldab #02
1948 8ED7 FB 00 48 ..H addb 0048
1949 8EDA F7 00 48 ..H stab 0048
1950 8EDD F6 00 48 ..H ldab 0048
1951 8EE0 C1 0A .. cmpb #0a
1952 8EE2 26 08 &. bne 08
1953 8EE4 F6 00 67 ..g ldab 0067
1954 8EE7 2D 03 -. blt 03
1955 8EE9 7C 00 48 |.H inc 0048
1956 8EEC F6 00 48 ..H ldab 0048
1957 8EEF C1 0A .. cmpb #0a
1958 8EF1 23 09 #. bls 09
1959 8EF3 7F 00 48 ..H clr 0048
1960 8EF6 F6 0B C0 ... ldab 0bc0
1961 8EF9 F7 00 67 ..g stab 0067
1962 8EFC BD 9C 15 ... jsr 9c15 ;jump111 - write the next option
1965 8F01 BD A4 59 ..Y jsr a459 ;jump110
1966 8F04 BD 85 AF ... jsr 85af ;jump14
1968 8F09 BD 85 AF ... jsr 85af ;jump14
1973 ; promotional vend-pair programming (buy one thing get another free?)
1974 8F0D F6 00 1F ... ldab 001f
1975 8F10 C4 02 .. andb #02
1976 8F12 27 1D '. beq 1d
1977 8F14 C6 01 .. ldab #01
1978 8F16 F7 00 22 .." stab 0022
1979 8F19 F6 0B AF ... ldab 0baf
1980 8F1C F7 00 24 ..$ stab 0024
1981 8F1F F6 0B B4 ... ldab 0bb4
1982 8F22 F7 00 2A ..* stab 002a
1983 8F25 CE 00 1F ... ldx #001f
1984 8F28 1D 00 02 .. bclr 00,x, #02
1985 8F2B 7F 00 36 ..6 clr 0036
1986 8F2E 7E 90 D0 ~.. jmp 90d0 ;goto13
1987 8F31 F6 00 09 ... ldab 0009
1989 8F35 BD FE 16 ... jsr fe16 ;jump2
1990 8F38 00 00 00 0B .... ; params for jump2
2004 8F56 BD 9D 2A ..* jsr 9d2a ;jump89
2005 8F59 7E 90 D0 ~.. jmp 90d0 ;goto13
2006 8F5C F6 00 36 ..6 ldab 0036
2007 8F5F 26 43 &C bne 43
2008 8F61 F6 00 24 ..$ ldab 0024
2009 8F64 C1 64 .d cmpb #64
2010 8F66 24 34 $4 bcc 34
2011 8F68 7C 00 24 |.$ inc 0024
2012 8F6B F6 00 24 ..$ ldab 0024
2013 8F6E F7 00 06 ... stab 0006
2014 8F71 F6 00 06 ... ldab 0006
2015 8F74 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
2016 8F77 83 00 00 ... subd #0000
2017 8F7A 27 03 '. beq 03
2018 8F7C 7C 00 24 |.$ inc 0024
2019 8F7F F6 00 24 ..$ ldab 0024
2020 8F82 C1 64 .d cmpb #64
2021 8F84 26 03 &. bne 03
2022 8F86 7F 00 24 ..$ clr 0024
2023 8F89 F6 00 24 ..$ ldab 0024
2025 8F8D CE 00 05 ... ldx #0005
2028 8F92 26 08 &. bne 08
2029 8F94 F6 00 24 ..$ ldab 0024
2030 8F97 27 03 '. beq 03
2031 8F99 7C 00 24 |.$ inc 0024
2032 8F9C BD 9D 2A ..* jsr 8d2a ;jump89
2033 8F9F C6 02 .. ldab #02
2034 8FA1 F7 00 36 ..6 stab 0036
2035 8FA4 CE 00 1B ... ldx #001b
2036 8FA7 1C 00 10 ... bset 00,x, #10
2037 8FAA CC 02 33 ..3 ldd #0233
2038 8FAD FD 00 3B ..; std 003b
2039 8FB0 7E 90 D0 ~.. jmp 90d0 ;goto13
2040 8FB3 F6 00 36 ..6 ldab 0036
2041 8FB6 26 45 &E bne 45
2042 8FB8 F6 00 24 ..$ ldab 0024
2043 8FBB C1 00 .. cmpb #00
2044 8FBD 23 2C #, bls 2c
2045 8FBF 7A 00 24 z.$ dec 0024
2046 8FC2 F6 00 24 ..$ ldab 0024
2048 8FC6 CE 00 05 ... ldx #0005
2051 8FCB 26 08 &. bne 08
2052 8FCD F6 00 24 ..$ ldab 0024
2053 8FD0 27 03 '. beq 03
2054 8FD2 7A 00 24 z.$ dec 0024
2055 8FD5 F6 00 24 ..$ ldab 0024
2056 8FD8 F7 00 06 ... stab 0006
2057 8FDB F6 00 06 ... ldab 0006
2058 8FDE BD D7 A0 ... jsr d7a0 ;is_invalid_slot
2059 8FE1 83 00 00 ... subd #0000
2060 8FE4 27 03 '. beq 03
2061 8FE6 7A 00 24 z.$ dec 0024
2063 8FEB F6 00 24 ..$ ldab 0024
2064 8FEE 26 05 &. bne 05
2065 8FF0 C6 62 .b ldab #62
2066 8FF2 F7 00 24 ..$ stab 0024
2067 8FF5 BD 9D 2A ..* jsr 9d2a ;jump89
2068 8FF8 C6 02 .. ldab #02
2069 8FFA F7 00 36 ..6 stab 0036
2070 8FFD CE 00 1B ... ldx #001b
2071 9000 1C 00 10 ... bset 00,x, #10
2072 9003 CC 02 33 ..3 ldd #0233
2073 9006 FD 00 3B ..; std 003b
2074 9009 7E 90 D0 ~.. jmp 90d0 ;goto13
2075 900C F6 00 36 ..6 ldab 0036
2076 900F 26 43 &C bne 43
2077 9011 F6 00 2A ..* ldab 002a
2078 9014 C1 64 .d cmpb #64
2079 9016 24 34 $4 bcc 34
2080 9018 7C 00 2A |.* inc 002a
2081 901B F6 00 2A ..* ldab 002a
2082 901E F7 00 06 ... stab 0006
2083 9021 F6 00 06 ... ldab 0006
2084 9024 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
2085 9027 83 00 00 ... subd #0000
2086 902A 27 03 '. beq 03
2087 902C 7C 00 2A |.* inc 002a
2088 902F F6 00 2A ..* ldab 002a
2089 9032 C1 64 .d cmpb #64
2090 9034 26 03 &. bne 03
2091 9036 7F 00 2A ..* clr 002a
2092 9039 F6 00 2A ..* ldab 002a
2094 903D CE 00 05 ... ldx #0005
2097 9042 26 08 &. bne 08
2098 9044 F6 00 2A ..* ldab 002a
2099 9047 27 03 '. beq 03
2100 9049 7C 00 2A |.* inc 002a
2101 904C BD 9D 2A ..* jsr 9d2a ;jump89
2102 904F C6 02 .. ldab #02
2103 9051 F7 00 36 ..6 stab 0036
2104 9054 CE 00 1B ... ldx #001b
2105 9057 1C 00 10 ... bset 00,x, #10
2106 905A CC 02 33 ..3 ldd #0233
2107 905D FD 00 3B ..; std 003b
2109 9062 F6 00 36 ..6 ldab 0036
2110 9065 26 45 &E bne 45
2111 9067 F6 00 2A ..* ldab 002a
2112 906A C1 00 .. cmpb #00
2113 906C 23 2C #, bls 2c
2114 906E 7A 00 2A z.* dec 002a
2115 9071 F6 00 2A ..* ldab 002a
2117 9075 CE 00 05 ... ldx #0005
2120 907A 26 08 &. bne 08
2121 907C F6 00 2A ..* ldab 002a
2122 907F 27 03 '. beq 03
2123 9081 7A 00 2A z.* dec 002a
2124 9084 F6 00 2A ..* ldab 002a
2125 9087 F7 00 06 ... stab 0006
2126 908A F6 00 06 ... ldab 0006
2127 908D BD D7 A0 ... jsr d7a0 ;is_invalid_slot
2128 9090 83 00 00 ... subd #0000
2129 9093 27 03 '. beq 03
2130 9095 7A 00 2A z.* dec 002a
2132 909A F6 00 2A ..* ldab 002a
2133 909D 26 05 &. bne 05
2134 909F C6 62 .b ldab #62
2135 90A1 F7 00 2A ..* stab 002a
2136 90A4 BD 9D 2A ..* jsr 9d2a ;jump89
2137 90A7 C6 02 .. ldab #02
2138 90A9 F7 00 36 ..6 stab 0036
2139 90AC CE 00 1B ... ldx #001b
2140 90AF 1C 00 10 ... bset 00,x, #10
2141 90B2 CC 02 33 ..3 ldd #0233
2142 90B5 FD 00 3B ..; std 003b
2144 90BA BD A5 1E ... jsr a51e ;jump109
2145 90BD BD AA 9A ... jsr aa9a ;jump127
2146 90C0 BD 9D 2A ..* jsr 9d2a ;jump89
2148 90C5 BD A5 1E ... jsr a51e ;jump109
2149 90C8 BD 85 AF ... jsr 85af ;jump14
2151 90CD BD 85 AF ... jsr 85af ;jump14
2156 ; pos message & serial id
2157 90D1 F6 00 1F ... ldab 001f
2158 90D4 C4 02 .. andb #02
2159 90D6 27 14 '. beq 14
2160 90D8 CE 00 1F ... ldx #001f
2161 90DB 1D 00 02 ... bclr 00,x, #02
2162 90DE CE 00 19 ... ldx #0019
2163 90E1 1C 00 .. bset add,x 00,x
2164 90E3 80 7F .. suba #7f
2167 90E7 7F 00 0A ... clr 000a
2169 90EC F6 00 09 ... ldab 0009
2171 90F0 BD FE 32 ..2 jsr fe32 ;jump25
2172 90F3 91 0D 00 00 .... ; array data for jump25
2173 90F7 91 15 00 01 ....
2174 90FB 91 19 00 01 ....
2175 90FF 91 1E 00 01 ....
2176 9103 91 23 00 08 .#..
2177 9107 91 26 FF F5 .&..
2178 910B 00 00 .. ; end of array data
2179 910D CC B0 AD ... ldd #b0ad ; "PROGRAM ?"
2180 9110 BD C0 BA ... jsr c0ba ;display:
2182 9115 8D 16 .. bsr dest 16
2184 9119 BD 91 C6 ... jsr 91c6 ;jump76
2186 911E BD 92 5A ..Z jsr 925a ;jump149
2188 9123 BD 85 AF ... jsr 85af ;jump14
2189 9126 7F 00 09 ... clr 0009
2190 9129 7F 00 0A ... clr 000a
2193 912D F6 00 19 ... ldab 0019
2194 9130 2C 28 ,( bge 28
2195 9132 BD A9 CF ... jsr a9cf ;jump131
2196 9135 C6 50 .P ldab #50
2197 9137 F7 0A 90 ... stab 0a90
2198 913A C6 20 . ldab #20
2199 913C F7 0B 8D ... stab 0b8d
2200 913F C6 20 . ldab #20
2201 9141 F7 0B 8E ... stab 0b8e
2202 9144 C6 28 .( ldab #28
2203 9146 F7 0B 8F ... stab 0b8f
2204 9149 7F 00 54 ..T clr 0054
2205 914C 7F 00 60 ..` clr 0060
2206 914F CE 00 19 ... ldx #0019
2207 9152 1D 00 .. bclr add,x 00,x
2208 9154 80 7F .. suba #7f
2212 915A F6 00 0A ... ldab 000a
2214 915E BD FE 16 ... jsr fe16 ;jump2
2219 9165 91 C5 91 ... cmpa c5
2220 9168 7F 91 84 ... clr 9184
2221 916B 91 89 91 ... cmpa 89
2222 916E 8E 91 9F ... lds #919f
2223 9171 91 B0 91 ... cmpa b0
2224 9174 C5 91 .. bitb #91
2225 9176 C5 91 .. bitb #91
2226 9178 C5 91 .. bitb #91
2227 917A B5 91 BA ... bita 91ba
2228 917D 91 C2 BD ... cmpa c2
2229 9180 9D 7E 20 .~ jsr 7e
2231 9184 BD A8 64 ..d jsr a864 ;jump99
2233 9189 BD A8 D5 ... jsr a8d5 ;jump97
2235 918E BD A8 96 ... jsr a896 ;jump98
2236 9191 CE 00 1B ... ldx #001b
2237 9194 1C 00 10 ... bset 00,x, #10
2238 9197 CC 02 33 ..3 ldd #0233
2239 919A FD 00 3B ..; std 003b
2241 919F BD A8 E5 ... jsr a8e5 ;jump96
2242 91A2 CE 00 1B ... ldx #001b
2243 91A5 1C 00 10 ... bset 00,x, #10
2244 91A8 CC 02 33 ..3 ldd #0233
2245 91AB FD 00 3B ..; std 003b
2247 91B0 BD A9 21 ..! jsr a921 ;jump95
2249 91B5 BD A9 7A ..z jsr a97a ;jump132
2251 91BA BD A5 7D ..} jsr a57d ;jump139
2252 91BD BD 85 AF ... jsr 85af ;jump14
2254 91C2 BD 85 AF ... jsr 85af ;jump14
2258 91C6 F6 00 19 ... ldab 0019
2259 91C9 2C 28 ,( bge 28
2260 91CB BD AA 0A ... jsr aa0a ;jump130
2261 91CE C6 53 .S ldab #53 ; "S"
2262 91D0 F7 0A 90 ... stab 0a90
2263 91D3 C6 20 . ldab #20 ; " "
2264 91D5 F7 0A 9D ... stab 0a9d
2265 91D8 C6 20 . ldab #20 ; " "
2266 91DA F7 0A 9E ... stab 0a9e
2267 91DD C6 28 .( ldab #28 ; "("
2268 91DF F7 0A 9F ... stab 0a9f
2269 91E2 7F 00 54 ..T clr 0054
2270 91E5 7F 00 60 ..` clr 0060
2271 91E8 CE 00 19 ... ldx #0019
2272 91EB 1D 00 80 .. bclr 00,x, #80
2273 91EE 7F 00 36 .. clr 0036
2275 91F3 F6 00 0A ... ldab 000a
2277 91F7 BD FE 16 ... jsr fe16 ;jump2
2292 9218 BD 9D 7E .. jsr 9d7e
2293 921B 20 3C .~ bra 3c
2294 921D BD A8 64 ..d jsr a864 ;jump99
2296 9222 BD A8 D5 ... jsr a8d5 ;jump97
2298 9227 BD A8 96 ... jsr a896 ;jump98
2299 922A CE 00 1B ... ldx #001b
2300 922D 1C 00 10 ... bset 00,x, #10
2301 9230 CC 02 33 ..3 ldd #0233
2302 9233 FD 00 3B ..; std 003b
2304 9238 BD A8 E5 ... jsr a8e5 ;jump96
2305 923B CE 00 1B ... ldx #001b
2306 923E 1C 00 10 ... bset 00,x, #10
2307 9241 CC 02 33 ..3 ldd #0233
2308 9244 FD 00 3B ..; std 003b
2310 9249 BD A9 21 ..! jsr a921 ;jump95
2312 924E BD A5 AC ... jsr a5ac ;jump138
2313 9251 BD 85 AF ... jsr 85af ;jump14
2315 9256 BD 85 AF ... jsr 85af ;jump14
2319 925A F6 00 19 ... ldab 0019
2320 925D 2C 28 ,( bge 28
2321 925F BD AA 3F ..? jsr aa3f ;jump129
2322 9262 C6 49 .I ldab #49
2323 9264 F7 0A 90 ... stab 0a90
2324 9267 C6 20 . ldab #20
2325 9269 F7 0A 9D ... stab 0a9d
2326 926C C6 20 . ldab #20
2327 926E F7 0A 9E ... stab 0a9e
2328 9271 C6 28 .( ldab #28
2329 9273 F7 0A 9F ... stab 0a9f
2330 9276 7F 00 54 ..T clr 0054
2331 9279 7F 00 60 ..` clr 0060
2332 927C CE 00 19 ... ldx #0019
2333 927F 1D 00 .. bclr add,x 00,x
2334 9281 80 7F .. suba #7f
2338 9287 F6 00 0A ... ldab 000a
2340 928B BD FE 16 ... jsr fe16 ;jump2
2345 9292 92 ED 92 ... sbca ed
2346 9295 AC 92 .. cpx 92,x
2347 9297 B1 92 B6 ... cmpa 92b6
2348 929A 92 BB 92 ... sbca bb
2349 929D CC 92 DD ... ldd #92dd
2350 92A0 92 ED 92 ... sbca ed
2351 92A3 ED 92 .. std 92,x
2352 92A5 ED 92 .. std 92,x
2353 92A7 ED 92 .. std 92,x
2354 92A9 E2 92 .. sbcb 92,x
2355 92AB EA BD .. orb bd,x
2356 92AD 9D 7E 20 .~ jsr 7e
2358 92B1 BD A8 64 ..d jsr a864 ;jump99
2360 92B6 BD A8 D5 ... jsr a8d5 ;jump97
2362 92BB BD A8 96 ... jsr a896 ;jump98
2363 92BE CE 00 1B ... ldx #001b
2364 92C1 1C 00 10 ... bset 00,x, #10
2365 92C4 CC 02 33 ..3 ldd #0233
2366 92C7 FD 00 3B ..; std 003b
2368 92CC BD A8 E5 ... jsr a8e5 ;jump96
2369 92CF CE 00 1B ... ldx #001b
2370 92D2 1C 00 10 ... bset 00,x, #10
2371 92D5 CC 02 33 ..3 ldd #0233
2372 92D8 FD 00 3B ..; std 003b
2374 92DD BD A9 21 ..! jsr a921 ;jump95
2376 92E2 BD A5 D5 ... jsr a5d5 ;jump137
2377 92E5 BD 85 AF ... jsr 85af ;jump14
2379 92EA BD 85 AF ... jsr 85af ;jump14
2384 92EE F6 0C DC ... ldab 0cdc
2388 92F4 CC 00 64 ..d ldd #0064 ; 100
2389 92F7 BD FB BA ... jsr fbba ;jump38 - multiplication
2390 92FA FD 0C E9 ... std 0ce9
2391 92FD BD D6 F6 ... jsr d6f6 ;jump106
2392 9300 FC 0C E9 ... ldd 0ce9
2393 9303 F3 0B EF ... addd 0bef
2394 9306 FD 0C F1 ... std 0cf1
2395 9309 FE 0C F5 ... ldx 0cf5
2397 930D FC 0C F3 ... ldd 0cf3
2400 9312 FE 0C F9 ... ldx 0cf9
2402 9316 FC 0C F7 ... ldd 0cf7
2403 9319 BD FC 25 ..% jsr fc25 ;jump85
2406 931E FE 0C FD ... ldx 0cfd
2408 9322 FC 0C FB ... ldd 0cfb
2409 9325 BD FC 25 ..% jsr fc25 ;jump85
2412 932A FE 0D 01 ... ldx 0d01
2414 932E FC 0C FF ... ldd 0cff
2415 9331 BD FC 25 ..% jsr fc25 ;jump85
2418 9336 FE 0D 05 ... ldx 0d05
2420 933A FC 0D 03 ... ldd 0d03
2421 933D BD FC 25 ..% jsr fc25 ;jump85
2422 9340 FD 0D F3 ... std 0df3
2425 9345 FD 0D F5 ... std 0df5
2426 9348 FE 0D F9 ... ldx 0df9
2428 934C FC 0D F7 ... ldd 0df7
2431 9351 FE 0D F5 ... ldx 0df5
2433 9355 FC 0D F3 ... ldd 0df3
2434 9358 BD FC 25 ..% jsr fc25 ;jump85
2435 935B FD 0D EF ... std 0def
2438 9360 FD 0D F1 ... std 0df1
2439 9363 F6 20 00 . . ldab 2000
2440 9366 C4 40 .@ andb #40
2441 9368 27 37 '7 beq 37
2442 936A F6 00 1F ... ldab 001f
2443 936D C4 02 .. andb #02
2444 936F 27 1F '. beq 1f
2445 9371 BD 97 E9 ... jsr 97e9 ;jump147 - print the report
2446 9374 CE 00 1F ... ldx #001f
2447 9377 1D 00 02 ... bclr 00,x, #02
2448 937A CE 00 1F ... ldx #001f
2449 937D 1D 00 10 ... bclr 00,x, #10
2450 9380 CC 02 33 ..3 ldd #0233
2451 9383 FD 00 3B ..; std 003b
2452 9386 7F 00 09 ... clr 0009
2453 9389 C6 92 .. ldab #92
2454 938B F7 00 48 ..H stab 0048
2456 9390 F6 00 19 ... ldab 0019
2457 9393 C4 40 .@ andb #40
2458 9395 26 05 &. bne 05
2459 9397 BD 98 BF ... jsr 98bf ;jump146
2461 939C BD 85 AF ... jsr 85af ;jump14
2463 93A1 BD 98 FF ... jsr 98ff ;jump145
2467 ; program security code menu
2468 93A5 F6 00 1F ... ldab 001f
2469 93A8 C4 02 .. andb #02
2470 93AA 26 0A &. bne 0a
2471 93AC F6 00 3A ..: ldab 003a
2472 93AF 26 2B &+ bne 2b
2473 93B1 F6 00 1D ... ldab 001d
2474 93B4 2D 26 -& blt 26
2475 93B6 CC AF BB ... ldd #afbb ;"ENTER CODE"
2476 93B9 BD C0 BA ... jsr c0ba ;display:
2477 93BC CE 00 1F ... ldx #001f
2478 93BF 1D 00 02 ... bclr 00,x, #02
2479 93C2 CE 00 1D ... ldx #001d
2480 93C5 1D 00 .. bclr add,x 00,x
2481 93C7 80 C6 .. suba #c6
2483 93CA F7 00 3A ..: stab 003a
2484 93CD F6 0B A8 ... ldab 0ba8
2485 93D0 F7 00 66 ..f stab 0066
2486 93D3 BD AA 74 ..t jsr aa74 ;jump128
2487 93D6 7F 00 48 ..H clr 0048
2488 93D9 7F 00 54 ..T clr 0054
2489 93DC F6 00 09 ... ldab 0009
2490 93DF 26 03 &. bne 03
2491 93E1 7E 94 92 ~.. jmp 9492 ;goto14
2492 93E4 F6 00 1D ... ldab 001d
2493 93E7 2C 03 ,. bge 03
2494 93E9 7E 94 92 ~.. jmp 9492 ;goto14
2495 93EC F6 00 09 ... ldab 0009
2496 93EF C1 0B .. cmpb #0b
2497 93F1 26 06 &. bne 06
2498 93F3 BD 85 AF ... jsr 85af ;jump14
2499 93F6 7E 94 90 ~.. jmp 9490 ;goto15
2500 93F9 F6 00 09 ... ldab 0009
2501 93FC C1 0A .. cmpb #0a
2502 93FE 26 03 &. bne 03
2503 9400 7F 00 09 ... clr 0009
2504 9403 F6 00 09 ... ldab 0009
2505 9406 CB 30 .0 addb #30
2507 9409 F6 00 54 ..T ldab 0054
2509 940D C3 00 62 ..b addd #0062
2512 9412 E7 00 .. stab 00,x
2513 9414 BD BE 4B ..K jsr be4b ;displayblank
2514 9417 F6 00 54 ..T ldab 0054
2515 941A 26 06 &. bne 06
2516 941C F6 00 62 ..b ldab 0062
2517 941F F7 0B 96 ... stab 0b96
2518 9422 F6 00 54 ..T ldab 0054
2519 9425 C1 01 .. cmpb #01
2520 9427 26 0C &. bne 0c
2521 9429 F6 00 62 ..b ldab 0062
2522 942C F7 0B 96 ... stab 0b96
2523 942F F6 00 63 ..c ldab 0063
2524 9432 F7 0B 95 ... stab 0b95
2525 9435 F6 00 54 ..T ldab 0054
2526 9438 C1 02 .. cmpb #02
2527 943A 26 12 &. bne 12
2528 943C F6 00 62 ..b ldab 0062
2529 943F F7 0B 96 ... stab 0b96
2530 9442 F6 00 63 ..c ldab 0063
2531 9445 F7 0B 95 ... stab 0b95
2532 9448 F6 00 64 ..d ldab 0064
2533 944B F7 0B 94 ... stab 0b94
2534 944E F6 00 54 ..T ldab 0054
2535 9451 C1 03 .. cmpb #03
2536 9453 26 18 &. bne 18
2537 9455 F6 00 62 ..b ldab 0062
2538 9458 F7 0B 96 ... stab 0b96
2539 945B F6 00 63 ..c ldab 0063
2540 945E F7 0B 95 ... stab 0b95
2541 9461 F6 00 64 ..d ldab 0064
2542 9464 F7 0B 94 ... stab 0b94
2543 9467 F6 00 65 ..e ldab 0065
2544 946A F7 0B 93 ... stab 0b93
2545 946D BD BE 01 ... jsr be01 ;jump70
2546 9470 7C 00 54 |.T inc 0054
2547 9473 F6 00 54 ..T ldab 0054
2548 9476 C1 04 .. cmpb #04
2549 9478 26 0B &. bne 0b
2550 947A CE 00 1D ... ldx #001d
2551 947D 1C 00 .. bset add,x 00,x
2552 947F 80 BD .. suba #bd
2553 9481 A8 0F .. eora 0f,x
2555 9485 CE 00 1D ... ldx #001d
2556 9488 1D 00 .. bclr add,x 00,x
2557 948A 80 C6 .. suba #c6
2559 948D F7 00 3A ..: stab 003a
2563 9492 F6 00 1D ... ldab 001d
2564 9495 2C 45 ,E bge 45
2565 9497 F6 00 09 ... ldab 0009
2567 949B BD FE 32 ..2 jsr fe32 ;jump25
2568 949E 94 B8 00 00 .... ; array data for jump25
2569 94A2 94 BD 00 01 ....
2570 94A6 94 C2 00 04 ....
2571 94AA 94 D1 00 05 ....
2572 94AE 94 D9 00 01 ....
2573 94B2 94 DC FF F5 ....
2574 94B6 00 00 .. ; end of array data
2575 94B8 BD 9E 0F ... jsr 9e0f ;jump142
2577 94BD BD A7 1F ... jsr a71f ;jump134
2579 94C2 7C 00 48 |.H inc 0048
2580 94C5 F6 00 48 ..H ldab 0048
2581 94C8 C1 0A .. cmpb #0a
2582 94CA 23 03 #. bls 03
2583 94CC 7F 00 48 ..H clr 0048
2585 94D1 BD A5 FE ... jsr a5fe ;jump136
2586 94D4 BD 85 AF ... jsr 85af ;jump14
2588 94D9 BD 85 AF ... jsr 85af ;jump14
2592 ; motor functions menu
2593 94DD F6 00 1F ... ldab 001f
2594 94E0 C4 02 .. andb #02
2595 94E2 27 14 '. beq 14
2596 94E4 CE 00 1F ... ldx #001f
2597 94E7 1D 00 02 ... bclr 00,x, #02
2598 94EA CE 00 19 ... ldx #0019
2599 94ED 1C 00 80 .. bset 00,x, #80
2600 94EF 7F 00 09 .. clr 0009
2601 94F3 7F 00 0A ... clr 000a
2603 94F8 F6 00 09 ... ldab 0009
2605 94FC BD FE 32 ..2 jsr fe32 ;jump25
2606 94FF 95 19 00 00 .... ; no key
2607 9503 95 21 00 01 .!.. ; key 1 - motor count procedure
2608 9507 95 2C 00 01 .,.. ; key 2 - single test vend
2609 950B 95 30 00 01 .0.. ; key 3 - test vend everything
2610 950F 95 35 00 08 .5.. ; reset
2611 9513 95 38 FF F5 .8..
2612 9517 00 00 .. ; end of array data
2613 9519 CC B0 A2 ... ldd #b0a2 ; "MTR FUNCT?"
2614 951C BD C0 BA ... jsr c0ba ;display:
2616 9521 BD 87 E9 ... jsr 87e9 ;jump74 - motor count procedure
2617 9524 CE 00 1F ... ldx #001f
2618 9527 1C 00 02 ... bset 00,x, #02
2620 952C 8D 11 .. bsr dest 11 ;jump203 - test single vend
2622 9530 BD 96 88 ... jsr 9688 ;jump148 - test all vends
2624 9535 BD 85 AF ... jsr 85af ;jump14
2625 9538 7F 00 09 ... clr 0009
2626 953B 7F 00 0A ... clr 000a
2630 ; test a single vend
2631 953F F6 00 19 ... ldab 0019
2632 9542 2D 0A -. blt 0a
2633 9544 F6 00 3A ..: ldab 003a
2634 9547 26 22 &" bne 22
2635 9549 F6 00 1D ... ldab 001d
2636 954C 2D 1D -. blt 1d
2637 954E 7F 00 2C .., clr 002c
2638 9551 CC B0 B8 ... ldd #b0b8 ; "SELECTION?"
2639 9554 BD C0 BA ... jsr c0ba ;display:
2640 9557 CE 00 19 ... ldx #0019
2641 955A 1D 00 80 .. bclr 00,x, #80
2642 955D CE 00 1D .. ldx #001d
2643 9560 1D 00 80 ... bclr 00,x, #80
2644 9562 7F 00 54 .. clr 0054
2645 9566 C6 32 .2 ldab #32
2646 9568 F7 00 3A ..: stab 003a
2647 956B F6 00 0A ... ldab 000a
2648 956E 26 03 &. bne 03
2649 9570 7E 96 5C ~.\ jmp 965c ;goto16
2650 9573 F6 00 1D ... ldab 001d
2651 9576 2C 03 ,. bge 03
2652 9578 7E 96 5C ~.\ jmp 965c ;goto16
2653 957B F6 00 0A ... ldab 000a
2654 957E C1 0B .. cmpb #0b
2655 9580 26 09 &. bne 09
2656 9582 CE 00 1F ... ldx #001f
2657 9585 1C 00 02 ... bset 00,x, #02
2658 9588 7E 96 5A ~.Z jmp 965a ;goto93
2659 958B F6 00 54 ..T ldab 0054
2660 958E 26 26 && bne 26
2661 9590 BD BE 4B ..K jsr be4b ;displayblank
2662 9593 F6 00 0A ... ldab 000a
2663 9596 C1 0A .. cmpb #0a
2664 9598 26 03 &. bne 03
2665 959A 7F 00 0A ... clr 000a
2666 959D F6 00 0A ... ldab 000a
2667 95A0 CB 30 .0 addb #30
2669 95A3 CC 0B 95 ... ldd #0b95
2670 95A6 F0 00 54 ..T subb 0054
2671 95A9 82 00 .. sbca #00
2674 95AD E7 00 .. stab 00,x
2675 95AF C6 32 .2 ldab #32
2676 95B1 F7 00 3A ..: stab 003a
2678 95B6 F6 00 54 ..T ldab 0054
2679 95B9 C1 01 .. cmpb #01
2680 95BB 26 27 &' bne 27
2681 95BD F6 00 0A ... ldab 000a
2682 95C0 C1 05 .. cmpb #05
2684 95C4 F6 00 0A ... ldab 000a
2685 95C7 C1 0A .. cmpb #0a
2686 95C9 27 19 '. beq 19
2687 95CB F6 00 0A ... ldab 000a
2688 95CE CB 30 .0 addb #30
2690 95D1 CC 0B 95 ... ldd #0b95
2691 95D4 F0 00 54 ..T subb 0054
2692 95D7 82 00 .. sbca #00
2695 95DB E7 00 .. stab 00,x
2696 95DD C6 32 .2 ldab #32
2697 95DF F7 00 3A ..: stab 003a
2699 95E4 CE 00 19 ... ldx #0019
2700 95E7 1C 00 80 .. bset 00,x, #80
2701 95E9 7F 00 3A .. clr 003a
2702 95ED BD BE 01 ... jsr be01 ;jump70
2703 95F0 7C 00 54 |.T inc 0054
2704 95F3 F6 00 54 ..T ldab 0054
2705 95F6 C1 02 .. cmpb #02
2706 95F8 26 5A &Z bne 5a
2707 95FA CE 00 1D ... ldx #001d
2708 95FD 1C 00 .. bset add,x 00,x
2709 95FF 80 F6 .. suba #f6
2711 9602 94 CB D0 ... anda cb
2713 9606 F6 0B 95 ... ldab 0b95
2714 9609 CB D0 .. addb #d0
2715 960B 86 0A .. ldaa #0a
2718 960F EB 00 .. addb 00,x
2720 9612 F7 00 06 ... stab 0006
2721 9615 C6 32 .2 ldab #32
2722 9617 F7 00 3A ..: stab 003a
2723 961A F6 00 06 ... ldab 0006
2724 961D BD D7 A0 ... jsr d7a0 ;is_invalid_slot
2725 9620 83 00 00 ... subd #0000
2726 9623 26 21 &! bne 21
2727 9625 BD D3 11 ... jsr d311 ;jump30 - test position exists
2728 9628 83 00 00 ... subd #0000
2729 962B 26 0B &. bne 0b ; to 9638
2730 962D CE 00 1F ... ldx #001f
2731 9630 1C 00 40 ... bset 00,x, #40 ; denotes an invalid slot or unmarked price? (fills display with XXX.XX)
2732 9633 BD 8C 73 ..s jsr 8c73 ;jump75 - fetch slot info
2733 9636 20 06 . bra 06 ; to 963e
2734 9638 CE 00 1F ... ldx #001f
2735 963B 1D 00 40 ... bclr 00,x, #40
2736 963E 7F 00 2C .., clr 002c
2737 9641 BD 9A 47 ..G jsr 9a47 ;jump39 - display price on screen
2739 9646 CE 00 1D ... ldx #001d
2740 9649 1D 00 80 .. bclr 00,x, #80
2741 964C CE 00 19 .. ldx #0019
2742 964F 1C 00 80 .. bset 00,x, #80
2744 9654 CE 00 1D ... ldx #001d
2745 9657 1D 00 80 .. bclr 00,x, #80
2749 965C F6 00 1D +. ldab 001d
2750 965F 2C 26 ., bge 26
2751 9661 BD D2 13 &. jsr d213 ;jump45 - vend it!
2752 9664 83 00 00 ... subd #0000
2753 9667 26 0F &. bne 0f
2754 9669 CC 00 64 ..d ldd #0064
2755 966C BD E5 71 ..q jsr e571 ;msdelay
2756 966F BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
2757 9672 CC 03 84 ... ldd #0384 ; 900
2758 9675 BD E5 71 ..q jsr e571 ;msdelay
2759 9678 7F 00 2E ... clr 002e
2760 967B CE 00 1D ... ldx #001d
2761 967E 1D 00 80 .. bclr 00,x, #80
2762 9680 CE 00 1F .. ldx #001f
2763 9683 1C 00 02 ... bset 00,x #02
2769 9689 F6 00 19 ... ldab 0019
2770 968C 2C 19 ,. bge 19
2771 968E CE 00 19 ... ldx #0019
2772 9691 1D 00 80 .. bclr 00,x, #80
2773 9694 CC B0 97 ... ldd #b097 ; "TEST VEND"
2774 9697 BD C0 BA ... jsr c0ba ; display
2775 969A C6 0A .. ldab #0a
2776 969C F7 00 38 ..8 stab 0038
2777 969F 7F 00 05 ... clr 0005
2778 96A2 C6 01 .. ldab #01
2779 96A4 F7 00 06 ... stab 0006
2780 96A7 F6 00 0A ... ldab 000a
2781 96AA C1 0B .. cmpb #0b
2782 96AC 26 0C &. bne 0c ; to 96ba
2783 96AE CC 02 33 ..3 ldd #0233
2784 96B1 FD 00 3B ..; std 003b
2785 96B4 CE 00 1F ... ldx #001f
2786 96B7 1C 00 02 ... bset 00,x, #02
2787 96BA F6 00 38 ..8 ldab 0038
2788 96BD 27 03 '. beq 03
2789 96BF 7E 97 6D ~.m jmp 976d ;goto17 - return
2790 96C2 F6 00 06 ... ldab 0006
2791 96C5 C1 63 .c cmpb #63 ; exit if >63
2792 96C7 23 03 #. bls 03
2793 96C9 7E 97 6D ~.m jmp 976d ;goto17 - return
2794 96CC F6 00 06 ... ldab 0006
2795 96CF C1 63 .c cmpb #63
2796 96D1 26 0F &. bne 0f
2797 96D3 BD 99 C3 ... jsr 99c3 ;jump143 - write "VENDS XXX" (from 0005)
2798 96D6 CC 07 D0 ... ldd #07d0 ; 2000
2799 96D9 BD E5 71 ..q jsr e571 ;msdelay
2800 96DC CE 00 1F ... ldx #001f
2801 96DF 1C 00 02 ... bset 00,x, #02
2802 96E2 BD D3 11 ... jsr d311 ;jump30 - test position exists
2803 96E5 83 00 00 ... subd #0000
2804 96E8 26 0B &. bne 0b
2805 96EA CE 00 1F ... ldx #001f
2806 96ED 1C 00 40 ... bset 00,x, #40
2807 96F0 BD 8C 73 ..s jsr 8c73 ;jump75
2809 96F5 CE 00 1F ... ldx #001f
2810 96F8 1D 00 40 ... bclr 00,x, #40
2811 96FB BD 9A 47 ..G jsr 9a47 ;jump39
2812 96FE F6 00 06 ... ldab 0006
2813 9701 C1 63 .c cmpb #63
2814 9703 26 03 &. bne 03
2815 9705 7F 00 2C .., clr 002c
2816 9708 BD D2 13 ... jsr d213 ;jump45 - vend it!
2817 970B 83 00 00 ... subd #0000
2818 970E 27 03 '. beq 03
2819 9710 7C 00 05 |.. inc 0005
2820 9713 7F 00 2E ... clr 002e
2821 9716 C6 05 .. ldab #05
2822 9718 F7 00 38 ..8 stab 0038
2823 971B CC 02 33 ..3 ldd #0233
2824 971E FD 00 3B ..; std 003b
2826 9722 6F 00 o. clr 00,x
2827 9724 F6 0E 6D ..m ldab 0e6d
2828 9727 27 0C '. beq 0c
2829 9729 F6 00 06 ... ldab 0006
2830 972C C1 3E .> cmpb #3e
2831 972E 26 05 &. bne 05
2832 9730 C6 01 .. ldab #01
2834 9733 E7 00 .. stab 00,x
2835 9735 8D 38 .8 bsr dest 38
2836 9737 F6 0E 6D ..m ldab 0e6d
2837 973A 27 0C '. beq 0c
2839 973D E6 00 .. ldab 00,x
2840 973F C1 01 .. cmpb #01
2841 9741 26 05 &. bne 05
2842 9743 C6 45 .E ldab #45
2843 9745 F7 00 06 ... stab 0006
2844 9748 F6 00 06 ... ldab 0006
2845 974B BD D7 A0 ... jsr d7a0 ;is_invalid_slot
2846 974E 83 00 00 ... subd #0000
2847 9751 27 15 '. beq 15
2848 9753 F6 00 06 ... ldab 0006
2849 9756 C1 09 .. cmpb #09
2850 9758 26 02 &. bne 02
2851 975A 8D 13 .. bsr dest 13
2852 975C F6 00 06 ... ldab 0006
2853 975F C1 45 .E cmpb #45
2854 9761 26 05 &. bne 05
2855 9763 C6 63 .c ldab #63
2856 9765 F7 00 06 ... stab 0006
2859 976A FD 00 40 ..@ std 0040
2865 976F F6 0E 6D ..m ldab 0e6d
2866 9772 C1 01 .. cmpb #01
2867 9774 26 41 &A bne 41
2868 9776 F6 00 06 ... ldab 0006
2870 977A CE 00 0A ... ldx #000a
2872 977E C1 01 .. cmpb #01
2873 9780 26 05 &. bne 05
2874 9782 7C 00 06 |.. inc 0006
2876 9787 F6 00 06 ... ldab 0006
2878 978B CE 00 0A ... ldx #000a
2880 978F C1 02 .. cmpb #02
2881 9791 26 0A &. bne 0a
2882 9793 C6 09 .. ldab #09
2883 9795 FB 00 06 ... addb 0006
2884 9798 F7 00 06 ... stab 0006
2886 979D C6 0B .. ldab #0b
2887 979F F7 00 06 ... stab 0006
2888 97A2 F6 00 06 ... ldab 0006
2889 97A5 C1 3E .> cmpb #3e
2890 97A7 22 07 ". bhi 07
2891 97A9 F6 00 06 ... ldab 0006
2892 97AC C1 0B .. cmpb #0b
2893 97AE 24 05 $. bcc 05
2894 97B0 C6 0B .. ldab #0b
2895 97B2 F7 00 06 ... stab 0006
2897 97B7 F6 00 06 ... ldab 0006
2898 97BA CB 0A .. addb #0a
2899 97BC F7 00 06 ... stab 0006
2900 97BF F6 00 06 ... ldab 0006
2901 97C2 C1 64 .d cmpb #64
2902 97C4 23 22 #" bls 22
2903 97C6 F6 00 06 ... ldab 0006
2904 97C9 CB 9C .. addb #9c
2905 97CB CB 01 .. addb #01
2906 97CD F7 00 06 ... stab 0006
2907 97D0 F6 00 06 ... ldab 0006
2908 97D3 C1 05 .. cmpb #05
2909 97D5 26 05 &. bne 05
2910 97D7 C6 06 .. ldab #06
2911 97D9 F7 00 06 ... stab 0006
2912 97DC F6 00 06 ... ldab 0006
2913 97DF C1 0A .. cmpb #0a
2914 97E1 26 05 &. bne 05
2915 97E3 C6 01 .. ldab #01
2916 97E5 F7 00 06 ... stab 0006
2920 97E9 BD BE 4B ..K jsr be4b ;displayblank
2921 97EC CC AF E7 ... ldd #afe7 ; "-PRINTING-"
2922 97EF BD C0 BA ... jsr c0ba ;display:
2923 97F2 BD F4 15 ... jsr f415 ;jump112 - print a report
2927 97F6 BD BE 4B ..K jsr be4b ;displayblank
2928 97F9 F6 00 48 ..H ldab 0048
2930 97FD BD FE 16 ... jsr fe16 ;jump2
2931 9800 00 01 00 03 . test
2937 980E F6 0C D9 .. ldab 0cd9
2939 9812 BD E7 95 ... jsr e795 ;jump54 - number to string
2940 9815 C6 4E .N ldab #4e
2941 9817 F7 0B 99 ... stab 0b99
2942 981A C6 49 .I ldab #49
2943 981C F7 0B 98 ... stab 0b98
2944 981F C6 4B .K ldab #4b
2945 9821 F7 0B 97 ... stab 0b97
2946 9824 C6 4C .L ldab #4c
2947 9826 F7 0B 96 ... stab 0b96
2949 982B F6 0C DA ... ldab 0cda
2951 982F BD E7 95 ... jsr e795 ;jump54 - number to string
2952 9832 C6 44 .D ldab #44
2953 9834 F7 0B 99 ... stab 0b99
2954 9837 C6 49 .I ldab #49
2955 9839 F7 0B 98 ... stab 0b98
2956 983C C6 4D .M ldab #4d
2957 983E F7 0B 97 ... stab 0b97
2958 9841 C6 45 .E ldab #45
2959 9843 F7 0B 96 ... stab 0b96
2961 9848 F6 0C DB ... ldab 0cdb
2963 984C BD E7 95 ... jsr e795 ;jump54 - number to string
2964 984F C6 51 .Q ldab #51
2965 9851 F7 0B 99 ... stab 0b99
2966 9854 C6 55 .U ldab #55
2967 9856 F7 0B 98 ... stab 0b98
2968 9859 C6 54 .T ldab #54
2969 985B F7 0B 97 ... stab 0b97
2970 985E C6 52 .R ldab #52
2971 9860 F7 0B 96 ... stab 0b96
2973 9865 F6 0C DC ... ldab 0cdc
2975 9869 BD E7 95 ... jsr e795 ;jump54 - number to string
2976 986C C6 44 .D ldab #44 ; "D"
2977 986E F7 0B 99 ... stab 0b99
2978 9871 C6 4F .O ldab #4f ; "O"
2979 9873 F7 0B 98 ... stab 0b98
2980 9876 C6 4C .L ldab #4c ; "L"
2981 9878 F7 0B 97 ... stab 0b97
2982 987B C6 52 .R ldab #52 ; "R"
2983 987D F7 0B 96 ... stab 0b96
2984 9880 C6 53 .S ldab #53 ; "S"
2985 9882 F7 0B 95 ... stab 0b95
2986 9885 C6 20 . ldab #20 ; " "
2987 9887 F7 0B 94 ... stab 0b94
2988 988A C6 20 . ldab #20 ; " "
2989 988C F7 0B 93 ... stab 0b93
2990 988F F6 00 5D ..] ldab 005d
2991 9892 F7 0B 92 ... stab 0b92
2992 9895 F6 00 5E ..^ ldab 005e ; row number?
2993 9898 F7 0B 91 ... stab 0b91
2994 989B F6 00 5F .._ ldab 005f ; column number?
2995 989E F7 0B 90 ... stab 0b90
2996 98A1 BD BE 01 ... jsr be01 ;jump70 - to disp buffer
3000 ; prints contents of 0054 to display
3001 98A5 BD BE 4B ..K jsr be4b ;displayblank
3002 98A8 F6 00 54 ..T ldab 0054
3004 98AC BD E7 95 ... jsr e795 ; slot number to digits
3005 98AF F6 00 5E ..^ ldab 005e
3006 98B2 F7 0B 95 ... stab 0b95
3007 98B5 F6 00 5F .._ ldab 005f
3008 98B8 F7 0B 94 ... stab 0b94
3009 98BB BD BE 01 ... jsr be01 ;jump70 - write to display
3013 98BF F6 00 09 ... ldab 0009
3014 98C2 C1 00 .. cmpb #00
3015 98C4 26 05 &. bne 05
3016 98C6 BD 9E 89 ... jsr 9e89 ;jump100
3018 98CB C1 01 .. cmpb #01
3019 98CD 26 1E &. bne 1e
3020 98CF F6 00 48 ..H ldab 0048
3021 98D2 C1 92 .. cmpb #92
3022 98D4 26 15 &. bne 15
3023 98D6 F6 00 1F ... ldab 001f
3024 98D9 C4 10 .. andb #10
3025 98DB 26 08 &. bne 08
3026 98DD CE 00 1F ... ldx #001f
3027 98E0 1C 00 10 ... bset 00,x, #10
3029 98E5 CE 00 1F ... ldx #001f
3030 98E8 1D 00 10 ... bclr 00,x, #10
3032 98ED C1 0B .. cmpb #0b
3033 98EF 26 0D &. bne 0d
3034 98F1 F6 00 1F ... ldab 001f
3035 98F4 C4 10 .. andb #10
3036 98F6 27 03 '. beq 03
3037 98F8 BD E9 2B ..+ jsr e92b ;jump103
3038 98FB BD 85 AF ... jsr 85af ;jump14
3042 98FF F6 00 1F ... ldab 001f
3043 9902 C4 02 .. andb #02
3044 9904 27 13 '. beq 13
3045 9906 C6 01 .. ldab #01
3046 9908 F7 00 48 ..H stab 0048
3047 990B CE 00 1F ... ldx #001f
3048 990E 1D 00 10 ... bclr 00,x, #10
3049 9911 CE 00 1F ... ldx #001f
3050 9914 1D 00 02 ... bclr 00,x, #02
3052 9919 F6 00 09 ... ldab 0009
3054 991D BD FE 32 ..2 jsr fe32 ;jump25
3055 9920 99 36 00 00 .6.. ; array data for jump25
3056 9924 99 3B 00 01 .;..
3057 9928 99 59 00 09 .Y..
3058 992C 99 73 00 01 .s..
3059 9930 99 80 FF F5 ....
3060 9934 00 00 .. ; end of array data
3061 9936 BD 9E 89 ... jsr 9e89 ;jump100
3063 993B F6 00 48 ..H ldab 0048
3064 993E C1 92 .. cmpb #92
3065 9940 26 15 &. bne 15
3066 9942 F6 00 1F ... ldab 001f
3067 9945 C4 10 .. andb #10
3068 9947 26 08 &. bne 08
3069 9949 CE 00 1F ... ldx #001f
3070 994C 1C 00 10 ... bset 00,x, #10
3072 9951 CE 00 1F ... ldx #001f
3073 9954 1D 00 10 ... bclr 00,x, #10
3075 9959 7C 00 48 |.H inc 0048
3076 995C F6 00 48 ..H ldab 0048
3077 995F C1 92 .. cmpb #92
3078 9961 23 0B #. bls 0b
3079 9963 C6 01 .. ldab #01
3080 9965 F7 00 48 ..H stab 0048
3081 9968 CE 00 1F ... ldx #001f
3082 996B 1D 00 10 ... bclr 00,x, #10
3083 996E BD 9E 89 ... jsr 9e89 ;jump100
3085 9973 F6 00 1F ... ldab 001f
3086 9976 C4 10 .. andb #10
3087 9978 27 03 '. beq 03
3088 997A BD E9 2B ..+ jsr e92b ;jump103
3089 997D BD 85 AF ... jsr 85af ;jump14
3093 ; writes "MOTORS XX" where XX is the slot number in 0005
3094 9981 BD BE 4B ..K jsr be4b ;displayblank
3095 9984 F6 00 05 ... ldab 0005
3097 9988 BD E7 95 ... jsr e795 ;jump54 - number to string
3098 998B C6 4D .M ldab #4d ; "M"
3099 998D F7 0B 99 ... stab 0b99
3100 9990 C6 4F .O ldab #4f ; "O"
3101 9992 F7 0B 98 ... stab 0b98
3102 9995 C6 54 .T ldab #54 ; "T"
3103 9997 F7 0B 97 ... stab 0b97
3104 999A C6 4F .O ldab #4f ; "O"
3105 999C F7 0B 96 ... stab 0b96
3106 999F C6 52 .R ldab #52 ; "R"
3107 99A1 F7 0B 95 ... stab 0b95
3108 99A4 C6 53 .S ldab #53 ; "S"
3109 99A6 F7 0B 94 ... stab 0b94
3110 99A9 C6 20 . ldab #20 ; " "
3111 99AB F7 0B 93 ... stab 0b93
3112 99AE C6 20 . ldab #20 ; " "
3113 99B0 F7 0B 92 ... stab 0b92
3114 99B3 F6 00 5E ..^ ldab 005e
3115 99B6 F7 0B 91 ... stab 0b91
3116 99B9 F6 00 5F .._ ldab 005f
3117 99BC F7 0B 90 ... stab 0b90
3118 99BF BD BE 01 ... jsr be01 ;jump70 - display
3122 ; writes VENDS XX where XX is contents of 0005
3123 99C3 BD BE 4B ..K jsr be4b ;displayblank
3124 99C6 F6 00 05 ... ldab 0005
3126 99CA BD E7 95 ... jsr e795 ;jump54 - number to string
3127 99CD C6 56 .V ldab #56 ; "V"
3128 99CF F7 0B 99 ... stab 0b99
3129 99D2 C6 45 .E ldab #45 ; "E"
3130 99D4 F7 0B 98 ... stab 0b98
3131 99D7 C6 4E .N ldab #4e ; "N"
3132 99D9 F7 0B 97 ... stab 0b97
3133 99DC C6 44 .D ldab #44 ; "D"
3134 99DE F7 0B 96 ... stab 0b96
3135 99E1 C6 53 .S ldab #53 ; "S"
3136 99E3 F7 0B 95 ... stab 0b95
3137 99E6 C6 20 . ldab #20 ; " "
3138 99E8 F7 0B 94 ... stab 0b94
3139 99EB C6 20 . ldab #20 ; " "
3140 99ED F7 0B 93 ... stab 0b93
3141 99F0 C6 20 . ldab #20 ; " "
3142 99F2 F7 0B 92 ... stab 0b92
3143 99F5 F6 00 5E ..^ ldab 005e
3144 99F8 F7 0B 91 ... stab 0b91
3145 99FB F6 00 5F .._ ldab 005f
3146 99FE F7 0B 90 ... stab 0b90
3147 9A01 BD BE 01 ... jsr be01 ;jump70
3151 9A05 BD BE 4B ..K jsr be4b ;displayblank
3152 9A08 FC 00 52 ..R ldd 0052
3153 9A0B BD E7 45 ..E jsr e745 ;jump55 - number to string
3154 9A0E C6 4F .O ldab #4f ; "O"
3155 9A10 F7 0B 99 ... stab 0b99
3156 9A13 C6 44 .D ldab #44 ; "D"
3157 9A15 F7 0B 98 ... stab 0b98
3158 9A18 C6 44 .D ldab #44 ; "D"
3159 9A1A F7 0B 97 ... stab 0b97
3160 9A1D C6 53 .S ldab #53 ; "S"
3161 9A1F F7 0B 96 ... stab 0b96
3162 9A22 C6 20 . ldab #20 ; " "
3163 9A24 F7 0B 95 ... stab 0b95
3164 9A27 C6 31 .1 ldab #31 ; "1"
3165 9A29 F7 0B 94 ... stab 0b94
3166 9A2C C6 2F ./ ldab #2f ; "/"
3167 9A2E F7 0B 93 ... stab 0b93
3168 9A31 F6 00 5D ..] ldab 005d
3169 9A34 F7 0B 92 ... stab 0b92
3170 9A37 F6 00 5E ..^ ldab 005e
3171 9A3A F7 0B 91 ... stab 0b91
3172 9A3D F6 00 5F .._ ldab 005f
3173 9A40 F7 0B 90 ... stab 0b90
3174 9A43 BD BE 01 ... jsr be01 ;jump70
3178 ; write a slot, price, etc to screen.
3179 9A47 BD BE 4B ..K jsr be4b ;displayblank
3180 9A4A F6 00 06 ... ldab 0006
3182 9A4E BD E7 95 ... jsr e795 ;jump54 - number to string
3183 9A51 F6 00 5E ..^ ldab 005e
3184 9A54 F7 0B 99 ... stab 0b99
3185 9A57 F6 00 5F .._ ldab 005f
3186 9A5A F7 0B 98 ... stab 0b98
3187 9A5D C6 20 . ldab #20
3188 9A5F F7 0B 97 ... stab 0b97
3189 9A62 F6 00 1F ... ldab 001f
3190 9A65 C4 40 .@ andb #40
3191 9A67 27 45 'E beq 45 ; to 9aae
3192 9A69 FC 00 27 ..' ldd 0027
3193 9A6C BD E7 45 ..E jsr e745 ;jump55 - number to string
3194 9A6F F6 00 5A ..Z ldab 005a
3195 9A72 F7 0B 96 ... stab 0b96
3196 9A75 F6 00 5D ..] ldab 005d
3197 9A78 F7 0B 95 ... stab 0b95
3198 9A7B F6 00 5E ..^ ldab 005e
3199 9A7E F7 0B 94 ... stab 0b94
3200 9A81 F6 00 5F .._ ldab 005f
3201 9A84 F7 0B 93 ... stab 0b93
3202 9A87 F6 00 19 ... ldab 0019
3203 9A8A C4 10 .. andb #10
3204 9A8C 27 07 '. beq 07
3205 9A8E C6 2A .* ldab #2a ; '*'
3206 9A90 F7 0B 92 ... stab 0b92
3208 9A95 C6 20 . ldab #20
3209 9A97 F7 0B 92 ... stab 0b92
3210 9A9A FC 00 46 ..F ldd 0046
3211 9A9D BD E7 45 ..E jsr e745 ;jump55 - number to string
3212 9AA0 F6 00 5E ..^ ldab 005e
3213 9AA3 F7 0B 91 ... stab 0b91
3214 9AA6 F6 00 5F .._ ldab 005f
3215 9AA9 F7 0B 90 ... stab 0b90
3216 9AAC 20 1E . bra 1e ; to 9acc
3218 9AAE C6 58 .X ldab #58 ; "X"
3219 9AB0 F7 0B 96 ... stab 0b96
3220 9AB3 C6 58 .X ldab #58 ; "X"
3221 9AB5 F7 0B 95 ... stab 0b95
3222 9AB8 C6 58 .X ldab #58 ; "X"
3223 9ABA F7 0B 94 ... stab 0b94
3224 9ABD C6 58 .X ldab #58 ; "X"
3225 9ABF F7 0B 93 ... stab 0b93
3226 9AC2 C6 58 .X ldab #58 ; "X"
3227 9AC4 F7 0B 91 ... stab 0b91
3228 9AC7 C6 58 .X ldab #58 ; "X"
3229 9AC9 F7 0B 90 ... stab 0b90
3231 9ACC F6 00 13 ... ldab 0013
3232 9ACF C1 01 .. cmpb #01
3233 9AD1 23 4C #L bls 4c ; to 9b1f
3234 9AD3 F6 0B 91 ... ldab 0b91
3235 9AD6 F7 0B 90 ... stab 0b90
3236 9AD9 F6 0B 92 ... ldab 0b92
3237 9ADC F7 0B 91 ... stab 0b91
3238 9ADF F6 0B 93 ... ldab 0b93
3239 9AE2 F7 0B 92 ... stab 0b92
3240 9AE5 F6 0B 94 ... ldab 0b94
3241 9AE8 F7 0B 93 ... stab 0b93
3242 9AEB F6 00 13 ... ldab 0013
3243 9AEE C1 02 .. cmpb #02
3244 9AF0 26 07 &. bne 07
3245 9AF2 C6 2E .. ldab #2e ; "."
3246 9AF4 F7 0B 94 ... stab 0b94
3247 9AF7 20 26 & bra 26 ; to 9b1f
3248 9AF9 C1 04 .. cmpb #04
3249 9AFB 26 0D &. bne 0d
3250 9AFD F6 0B 95 ... ldab 0b95
3251 9B00 F7 0B 94 ... stab 0b94
3252 9B03 C6 2E .. ldab #2e ; "."
3253 9B05 F7 0B 95 ... stab 0b95
3255 9B0A C1 08 .. cmpb #08
3256 9B0C 26 11 &. bne 11
3257 9B0E F6 0B 95 ... ldab 0b95
3258 9B11 F7 0B 94 ... stab 0b94
3259 9B14 F6 0B 96 ... ldab 0b96
3260 9B17 F7 0B 95 ... stab 0b95
3261 9B1A C6 2E .. ldab #2e
3262 9B1C F7 0B 96 ... stab 0b96
3264 9B1F F6 00 2C .., ldab 002c
3265 9B22 26 3E &> bne 3e
3266 9B24 BD BE 69 ..i jsr be69 ;displayreset
3269 9B27 F6 00 13 ... ldab 0013
3270 9B2A C1 01 .. cmpb #01
3271 9B2C 23 2C #, bls 2c
3272 9B2E CE 10 28 ..( ldx #1028
3273 9B31 1C 00 40 ... bset 00,x, #40 ; enable SPI
3274 9B34 F6 00 1F ... ldab 001f
3275 9B37 C4 40 .@ andb #40
3276 9B39 27 0E '. beq 0e
3277 9B3B CE 00 01 ... ldx #0001
3279 9B3F F6 00 5F .._ ldab 005f
3281 9B43 BD BD B5 ... jsr bdb5 ;jump78
3284 9B49 CE 00 01 ... ldx #0001
3286 9B4D CC 00 58 ..X ldd #0058 ; 'X'
3287 9B50 BD BD B5 ... jsr bdb5 ;jump78
3289 9B54 CE 10 28 ..( ldx #1028
3290 9B57 1D 00 40 ... bclr 00,x, #40
3291 9B5A BD BE 10 ... jsr be10 ;jump88
3292 9B5D C6 03 .. ldab #03
3293 9B5F F7 00 2C .., stab 002c
3297 9B63 BD BE 4B ..K jsr be4b ;displayblank
3298 9B66 FC 00 0D ... ldd 000d
3299 9B69 BD E7 45 ..E jsr e745 ;jump55 - number to string
3300 9B6C C6 44 .D ldab #44
3301 9B6E F7 0B 99 ... stab 0b99
3302 9B71 C6 53 .S ldab #53
3303 9B73 F7 0B 98 ... stab 0b98
3304 9B76 C6 43 .C ldab #43
3305 9B78 F7 0B 97 ... stab 0b97
3306 9B7B C6 4E .N ldab #4e
3307 9B7D F7 0B 96 ... stab 0b96
3308 9B80 C6 54 .T ldab #54
3309 9B82 F7 0B 95 ... stab 0b95
3310 9B85 C6 20 . ldab #20
3311 9B87 F7 0B 94 ... stab 0b94
3312 9B8A F6 00 5A ..Z ldab 005a
3313 9B8D F7 0B 93 ... stab 0b93
3314 9B90 F6 00 5D ..] ldab 005d
3315 9B93 F7 0B 92 ... stab 0b92
3316 9B96 F6 00 5E ..^ ldab 005e
3317 9B99 F7 0B 91 ... stab 0b91
3318 9B9C F6 00 5F .._ ldab 005f
3319 9B9F F7 0B 90 ... stab 0b90
3320 9BA2 F6 00 13 ... ldab 0013
3321 9BA5 C1 01 .. cmpb #01
3322 9BA7 23 3C #< bls 3c
3323 9BA9 F6 0B 91 ... ldab 0b91
3324 9BAC F7 0B 90 ... stab 0b90
3325 9BAF F6 00 13 ... ldab 0013
3326 9BB2 C1 02 .. cmpb #02
3327 9BB4 26 07 &. bne 07
3328 9BB6 C6 2E .. ldab #2e
3329 9BB8 F7 0B 91 ... stab 0b91
3331 9BBD C1 04 .. cmpb #04
3332 9BBF 26 0D &. bne 0d
3333 9BC1 F6 0B 92 ... ldab 0b92
3334 9BC4 F7 0B 91 ... stab 0b91
3335 9BC7 C6 2E .. ldab #2e
3336 9BC9 F7 0B 92 ... stab 0b92
3338 9BCE C1 08 .. cmpb #08
3339 9BD0 26 13 &. bne 13
3340 9BD2 F6 0B 92 ... ldab 0b92
3341 9BD5 F7 0B 91 ... stab 0b91
3342 9BD8 F6 0B 93 ... ldab 0b93
3343 9BDB F7 0B 92 ... stab 0b92
3344 9BDE C6 2E .. ldab #2e
3345 9BE0 F7 0B 93 ... stab 0b93
3347 9BE5 F6 00 2C .., ldab 002c
3348 9BE8 26 2A &* bne 2a
3349 9BEA BD BE 69 ..i jsr be69 ;displayreset
3350 9BED F6 00 13 ... ldab 0013
3351 9BF0 C1 01 .. cmpb #01
3352 9BF2 23 18 #. bls 18
3353 9BF4 CE 10 28 ..( ldx #1028
3354 9BF7 1C 00 40 ... bset 00,x, #40
3355 9BFA CE 00 01 ... ldx #0001
3357 9BFE F6 00 5F .._ ldab 005f
3359 9C02 BD BD B5 ... jsr bdb5 ;jump78
3361 9C06 CE 10 28 ..( ldx #1028
3362 9C09 1D 00 40 ... bclr 00,x, #40
3363 9C0C BD BE 10 ... jsr be10 ;jump88
3364 9C0F C6 03 .. ldab #03
3365 9C11 F7 00 2C .., stab 002c
3369 9C15 BD BE 4B ..K jsr be4b ;displayblank
3370 9C18 F6 00 48 ..H ldab 0048
3372 9C1C BD FE 16 ... jsr fe16 ;jump2
3373 9C1F 00 00 00 0A . 0..10
3386 9C3B F6 00 67 . ldab 0067
3387 9C3D C4 02 g. andb #02
3388 9C40 27 08 '. beq 08
3389 9C42 CC AF 00 ... ldd #af00 ; "LNK MSTR Y"
3390 9C45 BD C0 BA ... jsr c0ba ;display:
3392 9C4A CC AF 0B ... ldd #af0b ; "LNK MSTR N"
3393 9C4D BD C0 BA ... jsr c0ba ;display:
3394 9C50 7E 9D 29 ~.) jmp 9d29 ;goto18
3396 9C53 F6 00 67 ..g ldab 0067
3397 9C56 C4 10 .. andb #10
3398 9C58 27 08 '. beq 08
3399 9C5A CC AF 42 ..B ldd #af42 ; "PRC HOLD Y"
3400 9C5D BD C0 BA ... jsr c0ba ;display:
3402 9C62 CC AF 4D ..M ldd #af4d ; "PRC HOLD N"
3403 9C65 BD C0 BA ... jsr c0ba ;display:
3404 9C68 7E 9D 29 ~.) jmp 9d29 ;goto18
3406 9C6B F6 00 67 ..g ldab 0067
3407 9C6E C4 20 . andb #20
3408 9C70 27 08 '. beq 08
3409 9C72 CC AF 58 ..X ldd #af58 ; "PRC DISP Y"
3410 9C75 BD C0 BA ... jsr c0ba ;display:
3412 9C7A CC AF 63 ..c ldd #af63 ; "PRC DISP N"
3413 9C7D BD C0 BA ... jsr c0ba ;display:
3414 9C80 7E 9D 29 ~.) jmp 9d29 ;goto18
3416 9C83 F6 00 67 ..g ldab 0067
3417 9C86 C4 01 .. andb #01
3418 9C88 27 08 '. beq 08
3419 9C8A CC AE EA ... ldd #aeea ; "DUMB MEC Y"
3420 9C8D BD C0 BA ... jsr c0ba ;display:
3422 9C92 CC AE F5 ... ldd #aef5 ; "DUMB MEC N"
3423 9C95 BD C0 BA ... jsr c0ba ;display:
3424 9C98 7E 9D 29 ~.) jmp 9d29 ;goto18
3425 9C9B F6 00 67 ..g ldab 0067
3426 9C9E C4 04 .. andb #04
3427 9CA0 27 08 '. beq 08
3428 9CA2 CC AF 16 ... ldd #af16 ; "CARD RDR Y"
3429 9CA5 BD C0 BA ... jsr c0ba ;display:
3431 9CAA CC AF 21 ..! ldd #af21 ; "CARD RDR N"
3432 9CAD BD C0 BA ... jsr c0ba ;display:
3434 9CB2 F6 00 67 ..g ldab 0067
3435 9CB5 C4 08 .. andb #08
3436 9CB7 27 08 '. beq 08
3437 9CB9 CC AF 2C .., ldd #af2c ; "BILL VAL Y"
3438 9CBC BD C0 BA ... jsr c0ba ;display:
3440 9CC1 CC AF 37 ..7 ldd #af37 ; "BILL VAL N"
3441 9CC4 BD C0 BA ... jsr c0ba ;display:
3443 9CC9 F6 00 67 ..g ldab 0067
3444 9CCC C4 40 .@ andb #40
3445 9CCE 27 08 '. beq 08
3446 9CD0 CC AF 84 ... ldd #af84 ; "$1 CHNGR Y"
3447 9CD3 BD C0 BA ... jsr c0ba ;display:
3449 9CD8 CC AF 8F ... ldd #af8f ; "$1 CHNGR N"
3450 9CDB BD C0 BA ... jsr c0ba ;display:
3452 9CE0 F6 0E 70 ..p ldab 0e70
3453 9CE3 C1 01 .. cmpb #01
3454 9CE5 26 08 &. bne 08
3455 9CE7 CC AE BE ... ldd #aebe ; "$5 ENABLE "
3456 9CEA BD C0 BA ... jsr c0ba ;display:
3458 9CEF CC AE C9 ... ldd #aec9 ; "$5 DISABLE"
3459 9CF2 BD C0 BA ... jsr c0ba ;display:
3461 9CF7 F6 0E 6F ..o ldab 0e6f
3462 9CFA C1 01 .. cmpb #01
3463 9CFC 26 08 &. bne 08
3464 9CFE CC AE D4 ... ldd #aed4 ; "SODA VEND "
3465 9D01 BD C0 BA ... jsr c0ba ;display:
3467 9D06 CC AE DF ... ldd #aedf ; "SNACK VEND"
3468 9D09 BD C0 BA ... jsr c0ba ;display:
3470 9D0E F6 00 67 ..g ldab 0067
3471 9D11 2C 08 ,. bge 08
3472 9D13 CC AF 6E ..n ldd #af6e ; "FREE VND Y"
3473 9D16 BD C0 BA ... jsr c0ba ;display:
3475 9D1B CC AF 79 ..y ldd #af79 ; "FREE VND N"
3476 9D1E BD C0 BA ... jsr c0ba ;display:
3478 9D23 CC AF B0 ... ldd #afb0 ; "HIT KEY "0""
3479 9D26 BD C0 BA ... jsr c0ba ;display:
3484 9D2A BD BE 4B ..K jsr be4b ;displayblank
3485 9D2D F6 00 22 .." ldab 0022
3487 9D31 BD E7 95 ... jsr e795 ;jump54 - number to string
3488 9D34 F6 00 5E ..^ ldab 005e
3489 9D37 F7 0B 99 ... stab 0b99
3490 9D3A F6 00 5F .._ ldab 005f
3491 9D3D F7 0B 98 ... stab 0b98
3492 9D40 C6 20 . ldab #20
3493 9D42 F7 0B 97 ... stab 0b97
3494 9D45 F6 00 24 ..$ ldab 0024
3496 9D49 BD E7 95 ... jsr e795 ;jump54 - number to string
3497 9D4C C6 50 .P ldab #50
3498 9D4E F7 0B 96 ... stab 0b96
3499 9D51 F6 00 5E ..^ ldab 005e
3500 9D54 F7 0B 95 ... stab 0b95
3501 9D57 F6 00 5F .._ ldab 005f
3502 9D5A F7 0B 94 ... stab 0b94
3503 9D5D C6 20 . ldab #20
3504 9D5F F7 0B 93 ... stab 0b93
3505 9D62 F6 00 2A ..* ldab 002a
3507 9D66 BD E7 95 ... jsr e795 ;jump54 - number to string
3508 9D69 C6 46 .F ldab #46
3509 9D6B F7 0B 92 ... stab 0b92
3510 9D6E F6 00 5E ..^ ldab 005e
3511 9D71 F7 0B 91 ... stab 0b91
3512 9D74 F6 00 5F .._ ldab 005f
3513 9D77 F7 0B 90 ... stab 0b90
3514 9D7A BD BE 01 ... jsr be01 ;jump70
3517 9D7E BD BE 4B ..K jsr be4b ;displayblank
3518 9D81 F6 00 60 ..` ldab 0060
3520 9D85 C3 0A 90 ... addd #0a90
3522 9D89 E6 00 .. ldab 00,x
3523 9D8B F7 0B 99 ... stab 0b99
3524 9D8E F6 00 60 ..` ldab 0060
3526 9D92 C3 0A 91 ... addd #0a91
3528 9D96 E6 00 .. ldab 00,x
3529 9D98 F7 0B 98 ... stab 0b98
3530 9D9B F6 00 60 ..` ldab 0060
3532 9D9F C3 0A 92 ... addd #0a92
3534 9DA3 E6 00 .. ldab 00,x
3535 9DA5 F7 0B 97 ... stab 0b97
3536 9DA8 F6 00 60 ..` ldab 0060
3538 9DAC C3 0A 94 ... addd #0a94
3540 9DB0 E6 00 .. ldab 00,x
3541 9DB2 F7 0B 95 ... stab 0b95
3542 9DB5 F6 00 60 ..` ldab 0060
3544 9DB9 C3 0A 95 ... addd #0a95
3546 9DBD E6 00 .. ldab 00,x
3547 9DBF F7 0B 94 ... stab 0b94
3548 9DC2 F6 00 60 ..` ldab 0060
3550 9DC6 C3 0A 96 ... addd #0a96
3552 9DCA E6 00 .. ldab 00,x
3553 9DCC F7 0B 93 ... stab 0b93
3554 9DCF C6 20 . ldab #20
3555 9DD1 F7 0B 92 ... stab 0b92
3556 9DD4 C6 20 . ldab #20
3557 9DD6 F7 0B 91 ... stab 0b91
3558 9DD9 F6 00 54 ..T ldab 0054
3560 9DDD C3 B4 8F ... addd #b48f
3562 9DE1 E6 00 .. ldab 00,x
3563 9DE3 F7 0B 90 ... stab 0b90
3564 9DE6 F6 00 38 ..8 ldab 0038
3565 9DE9 C1 03 .. cmpb #03
3566 9DEB 24 0F $. bcc 0f
3567 9DED F6 00 60 ..` ldab 0060
3569 9DF1 C3 0A 93 ... addd #0a93
3571 9DF5 E6 00 .. ldab 00,x
3572 9DF7 F7 0B 96 ... stab 0b96
3574 9DFC C6 1F .. ldab #1f
3575 9DFE F7 0B 96 ... stab 0b96
3576 9E01 BD BE 01 ... jsr be01 ;jump70
3577 9E04 F6 00 38 ..8 ldab 0038
3578 9E07 26 05 &. bne 05
3579 9E09 C6 05 .. ldab #05
3580 9E0B F7 00 38 ..8 stab 0038
3584 9E0F BD BE 4B ..K jsr be4b ;displayblank
3585 9E12 F6 00 48 ..H ldab 0048
3586 9E15 26 15 &. bne 15
3587 9E17 F6 00 66 ..f ldab 0066
3588 9E1A 27 08 '. beq 08
3589 9E1C CC AF C6 ... ldd #afc6 ; "SECURE ON"
3590 9E1F BD C0 BA ... jsr c0ba ;display:
3592 9E24 CC AF D1 ... ldd #afd1 ; "SECURE OFF"
3593 9E27 BD C0 BA ... jsr c0ba ;display:
3595 9E2C C6 4D .M ldab #4d
3596 9E2E F7 0B 99 ... stab 0b99
3597 9E31 C6 45 .E ldab #45
3598 9E33 F7 0B 98 ... stab 0b98
3599 9E36 C6 4E .N ldab #4e
3600 9E38 F7 0B 97 ... stab 0b97
3601 9E3B C6 55 .U ldab #55
3602 9E3D F7 0B 96 ... stab 0b96
3603 9E40 C6 20 . ldab #20
3604 9E42 F7 0B 95 ... stab 0b95
3605 9E45 F6 00 48 ..H ldab 0048
3606 9E48 CB 30 .0 addb #30
3607 9E4A F7 0B 94 ... stab 0b94
3608 9E4D F6 00 48 ..H ldab 0048
3609 9E50 C1 0A .. cmpb #0a
3610 9E52 26 05 &. bne 05
3611 9E54 C6 30 .0 ldab #30
3612 9E56 F7 0B 94 ... stab 0b94
3613 9E59 C6 20 . ldab #20
3614 9E5B F7 0B 93 ... stab 0b93
3615 9E5E C6 4F .O ldab #4f
3616 9E60 F7 0B 92 ... stab 0b92
3617 9E63 F6 00 48 ..H ldab 0048
3619 9E67 C3 00 68 ..h addd #0068
3621 9E6B E6 00 .. ldab 00,x
3622 9E6D 27 0C '. beq 0c
3623 9E6F C6 4E .N ldab #4e
3624 9E71 F7 0B 91 ... stab 0b91
3625 9E74 C6 20 . ldab #20
3626 9E76 F7 0B 90 ... stab 0b90
3628 9E7B C6 46 .F ldab #46
3629 9E7D F7 0B 91 ... stab 0b91
3630 9E80 C6 46 .F ldab #46
3631 9E82 F7 0B 90 ... stab 0b90
3632 9E85 BD BE 01 ... jsr be01 ;jump70
3636 ; print out information to display
3637 9E89 BD BE 4B ..K jsr be4b ;displayblank
3638 9E8C F6 00 48 ..H ldab 0048
3640 9E90 BD FE 16 ... jsr fe16 ;jump2
3641 9E93 00 01 00 2D . ; 45 choices here
3689 9EF5 CC B2 90 ... ldd #b290 ; "SERIAL #"
3690 9EF8 BD C0 BA ... jsr c0ba ;display:
3691 9EFB 7E A1 C4 ~.. jmp a1c4 ;goto19
3692 9EFE CC 0C BC ... ldd #0cbc ; serial number?
3693 9F01 BD C0 BA ... jsr c0ba ;display:
3694 9F04 7E A1 C4 ~.. jmp a1c4 ;goto19
3695 9F07 CC B2 A2 ... ldd #b2a2 ; "MACHINE ID"
3696 9F0A BD C0 BA ... jsr c0ba ;display:
3697 9F0D 7E A1 C4 ~.. jmp a1c4 ;goto19
3698 9F10 CC 0C CC ... ldd #0ccc ; machine id?
3699 9F13 BD C0 BA ... jsr c0ba ;display:
3700 9F16 7E A1 C4 ~.. jmp a1c4 ;goto19
3701 9F19 C6 41 .A ldab #41 ; "A"
3702 9F1B F7 0B 99 ... stab 0b99
3703 9F1E C6 55 .U ldab #55 ; "U"
3704 9F20 F7 0B 98 ... stab 0b98
3705 9F23 C6 44 .D ldab #44 ; "D"
3706 9F25 F7 0B 97 ... stab 0b97
3707 9F28 C6 54 .T ldab #54 ; "T"
3708 9F2A F7 0B 96 ... stab 0b96
3709 9F2D CE 00 00 ... ldx #0000
3711 9F31 FC 0C E7 ... ldd 0ce7
3712 9F34 BD A2 D4 ... jsr a2d4 ;jump79
3714 9F38 7E A1 C4 ~.. jmp a1c4 ;goto19
3715 9F3B CC B2 C6 ... ldd #b2c6 ; "SALES (R) "
3716 9F3E BD C0 BA ... jsr c0ba ;display:
3717 9F41 7E A1 C4 ~.. jmp a1c4 ;goto19
3718 9F44 FE 0D E9 ... ldx 0de9
3720 9F48 FC 0D E7 ... ldd 0de7
3721 9F4B BD A3 41 ..A jsr a341 ;jump77
3723 9F4F 7E A1 C4 ~.. jmp a1c4 ;goto19
3724 9F52 CC B2 D8 ... ldd #b2d8 ; "SALES (N) "
3725 9F55 BD C0 BA ... jsr c0ba ;display:
3726 9F58 7E A1 C4 ~.. jmp a1c4 ;goto19
3727 9F5B FE 0D ED ... ldx 0ded
3729 9F5F FC 0D EB ... ldd 0deb
3730 9F62 BD A3 41 ..A jsr a341 ;jump77
3732 9F66 7E A1 C4 ~.. jmp a1c4 ;goto19
3733 9F69 CC B2 EA ... ldd #b2ea ; "BAG TOTAL"
3734 9F6C BD C0 BA ... jsr c0ba ;display:
3735 9F6F 7E A1 C4 ~.. jmp a1c4 ;goto19
3736 9F72 FE 0D F1 ... ldx 0df1
3738 9F76 FC 0D EF ... ldd 0def
3739 9F79 BD A3 41 ..A jsr a341 ;jump77
3741 9F7D 7E A1 C4 ~.. jmp a1c4 ;goto19
3742 9F80 CC B2 FC ... ldd #b2fc ; "CASH BOX"
3743 9F83 BD C0 BA ... jsr c0ba ;display:
3744 9F86 7E A1 C4 ~.. jmp a1c4 ;goto19
3745 9F89 FE 0D F9 ... ldx 0df9
3747 9F8D FC 0D F7 ... ldd 0df7
3748 9F90 BD A3 41 ..A jsr a341 ;jump77
3750 9F94 7E A1 C4 ~.. jmp a1c4 ;goto19
3751 9F97 CC B3 0E ... ldd #b30e ; "CARD SALES"
3752 9F9A BD C0 BA ... jsr c0ba ;display:
3753 9F9D 7E A1 C4 ~.. jmp a1c4 ;goto19
3754 9FA0 FE 0D FD ... ldx 0dfd
3756 9FA4 FC 0D FB ... ldd 0dfb
3757 9FA7 BD A3 41 ..A jsr a341 ;jump77
3759 9FAB 7E A1 C4 ~.. jmp a1c4 ;goto19
3760 9FAE CC B3 35 ..5 ldd #b335 ; "BILL TOTAL"
3761 9FB1 BD C0 BA ... jsr c0ba ;display:
3762 9FB4 7E A1 C4 ~.. jmp a1c4 ;goto19
3763 9FB7 FE 0D F5 ... ldx 0df5
3765 9FBB FC 0D F3 ... ldd 0df3
3766 9FBE BD A3 41 ..A jsr a341 ;jump77
3768 9FC2 7E A1 C4 ~.. jmp a1c4 ;goto19
3769 9FC5 C6 24 .$ ldab #24
3770 9FC7 F7 0B 99 ... stab 0b99
3771 9FCA C6 31 .1 ldab #31
3772 9FCC F7 0B 98 ... stab 0b98
3773 9FCF CE 00 00 ... ldx #0000
3775 9FD3 FC 0C DD ... ldd 0cdd
3776 9FD6 BD A2 D4 ... jsr a2d4 ;jump79
3778 9FDA 7E A1 C4 ~.. jmp a1c4 ;goto19
3779 9FDD FE 0C F5 ... ldx 0cf5
3781 9FE1 FC 0C F3 ... ldd 0cf3
3782 9FE4 BD A3 41 ..A jsr a341 ;jump77
3784 9FE8 7E A1 C4 ~.. jmp a1c4 ;goto19
3785 9FEB C6 24 .$ ldab #24
3786 9FED F7 0B 99 ... stab 0b99
3787 9FF0 C6 32 .2 ldab #32
3788 9FF2 F7 0B 98 ... stab 0b98
3789 9FF5 CE 00 00 ... ldx #0000
3791 9FF9 FC 0C DF ... ldd 0cdf
3792 9FFC BD A2 D4 ... jsr a2d4 ;jump79
3794 A000 7E A1 C4 ~.. jmp a1c4 ;goto19
3795 A003 FE 0C F9 ... ldx 0cf9
3797 A007 FC 0C F7 ... ldd 0cf7
3798 A00A BD A3 41 ..A jsr a341 ;jump77
3800 A00E 7E A1 C4 ~.. jmp a1c4 ;goto19
3801 A011 C6 24 .$ ldab #24
3802 A013 F7 0B 99 ... stab 0b99
3803 A016 C6 35 .5 ldab #35
3804 A018 F7 0B 98 ... stab 0b98
3805 A01B CE 00 00 ... ldx #0000
3807 A01F FC 0C E1 ... ldd 0ce1
3808 A022 BD A2 D4 ... jsr a2d4 ;jump79
3810 A026 7E A1 C4 ~.. jmp a1c4 ;goto19
3811 A029 FE 0C FD ... ldx 0cfd
3813 A02D FC 0C FB ... ldd 0cfb
3814 A030 BD A3 41 ..A jsr a341 ;jump77
3816 A034 7E A1 C4 ~.. jmp a1c4 ;goto19
3817 A037 C6 24 .$ ldab #24
3818 A039 F7 0B 99 ... stab 0b99
3819 A03C C6 31 .1 ldab #31
3820 A03E F7 0B 98 ... stab 0b98
3821 A041 C6 30 .0 ldab #30
3822 A043 F7 0B 97 ... stab 0b97
3823 A046 CE 00 00 ... ldx #0000
3825 A04A FC 0C E3 ... ldd 0ce3
3826 A04D BD A2 D4 ... jsr a2d4 ;jump79
3828 A051 7E A1 C4 ~.. jmp a1c4 ;goto19
3829 A054 FE 0D 01 ... ldx 0d01
3831 A058 FC 0C FF ... ldd 0cff
3832 A05B BD A3 41 ..A jsr a341 ;jump77
3834 A05F 7E A1 C4 ~.. jmp a1c4 ;goto19
3835 A062 C6 24 .$ ldab #24
3836 A064 F7 0B 99 ... stab 0b99
3837 A067 C6 32 .2 ldab #32
3838 A069 F7 0B 98 ... stab 0b98
3839 A06C C6 30 .0 ldab #30
3840 A06E F7 0B 97 ... stab 0b97
3841 A071 CE 00 00 ... ldx #0000
3843 A075 FC 0C E5 ... ldd 0ce5
3844 A078 BD A2 D4 ... jsr a2d4 ;jump79
3846 A07C 7E A1 C4 ~.. jmp a1c4 ;goto19
3847 A07F FE 0D 05 ... ldx 0d05
3849 A083 FC 0D 03 ... ldd 0d03
3850 A086 BD A3 41 ..A jsr a341 ;jump77
3852 A08A 7E A1 C4 ~.. jmp a1c4 ;goto19
3853 A08D CC B3 B7 ... ldd #b3b7 ; "TUBE TOTAL"
3854 A090 BD C0 BA ... jsr c0ba ;display:
3855 A093 7E A1 C4 ~.. jmp a1c4 ;goto19
3856 A096 CE 00 01 ... ldx #0001
3858 A09A FC 0C F1 ... ldd 0cf1
3859 A09D BD A2 D4 ... jsr a2d4 ;jump79
3861 A0A1 7E A1 C4 ~.. jmp a1c4 ;goto19
3862 A0A4 CC B3 CE ... ldd #b3ce ; "$1 COIN"
3863 A0A7 BD C0 BA ... jsr c0ba ;display:
3864 A0AA 7E A1 C4 ~.. jmp a1c4 ;goto19
3865 A0AD FE 0C E9 ... ldx 0ce9
3867 A0B1 F6 0C DC ... ldab 0cdc
3869 A0B5 BD A3 1A ... jsr a31a ;jump93
3871 A0B9 7E A1 C4 ~.. jmp a1c4 ;goto19
3872 A0BC CC B3 E0 ... ldd #b3e0 ; "QUARTERS"
3873 A0BF BD C0 BA ... jsr c0ba ;display:
3874 A0C2 7E A1 C4 ~.. jmp a1c4 ;goto19
3875 A0C5 FE 0C EB ... ldx 0ceb
3877 A0C9 F6 0C DB ... ldab 0cdb
3879 A0CD BD A3 1A ... jsr a31a ;jump93
3881 A0D1 7E A1 C4 ~.. jmp a1c4 ;goto19
3882 A0D4 CC B3 F2 ... ldd #b3f2 ; "DIMES"
3883 A0D7 BD C0 BA ... jsr c0ba ;display:
3884 A0DA 7E A1 C4 ~.. jmp a1c4 ;goto19
3885 A0DD FE 0C ED ... ldx 0ced
3887 A0E1 F6 0C DA ... ldab 0cda
3889 A0E5 BD A3 1A ... jsr a31a ;jump93
3891 A0E9 7E A1 C4 ~.. jmp a1c4 ;goto19
3892 A0EC CC B4 04 ... ldd #b404 ; "NICKELS"
3893 A0EF BD C0 BA ... jsr c0ba ;display:
3894 A0F2 7E A1 C4 ~.. jmp a1c4 ;goto19
3895 A0F5 FE 0C EF ... ldx 0cef
3897 A0F9 F6 0C D9 ... ldab 0cd9
3899 A0FD BD A3 1A ... jsr a31a ;jump93
3901 A101 7E A1 C4 ~.. jmp a1c4 ;goto19
3902 A104 C6 57 .W ldab #57
3903 A106 F7 0B 99 ... stab 0b99
3904 A109 C6 53 .S ldab #53
3905 A10B F7 0B 98 ... stab 0b98
3906 A10E C6 4E .N ldab #4e
3907 A110 F7 0B 97 ... stab 0b97
3908 A113 C6 4B .K ldab #4b
3909 A115 F7 0B 96 ... stab 0b96
3910 A118 CE 00 00 ... ldx #0000
3912 A11C FC 0D 07 ... ldd 0d07
3913 A11F BD A2 D4 ... jsr a2d4 ;jump79
3915 A123 7E A1 C4 ~.. jmp a1c4 ;goto19
3916 A126 FE 0D 11 ... ldx 0d11
3918 A12A FC 0D 0F ... ldd 0d0f
3919 A12D BD A3 41 ..A jsr a341 ;jump77
3921 A131 7E A1 C4 ~.. jmp a1c4 ;goto19
3922 A134 C6 53 .S ldab #53
3923 A136 F7 0B 99 ... stab 0b99
3924 A139 C6 48 .H ldab #48
3925 A13B F7 0B 98 ... stab 0b98
3926 A13E C6 50 .P ldab #50
3927 A140 F7 0B 97 ... stab 0b97
3928 A143 C6 52 .R ldab #52
3929 A145 F7 0B 96 ... stab 0b96
3930 A148 CE 00 00 ... ldx #0000
3932 A14C FC 0D 09 ... ldd 0d09
3933 A14F BD A2 D4 ... jsr a2d4 ;jump79
3936 A155 FE 0D 15 ... ldx 0d15
3938 A159 FC 0D 13 ... ldd 0d13
3939 A15C BD A3 41 ..A jsr a341 ;jump77
3942 A162 C6 50 .P ldab #50
3943 A164 F7 0B 99 ... stab 0b99
3944 A167 C6 52 .R ldab #52
3945 A169 F7 0B 98 ... stab 0b98
3946 A16C C6 4D .M ldab #4d
3947 A16E F7 0B 97 ... stab 0b97
3948 A171 C6 4F .O ldab #4f
3949 A173 F7 0B 96 ... stab 0b96
3950 A176 CE 00 00 ... ldx #0000
3952 A17A FC 0D 0B ... ldd 0d0b
3953 A17D BD A2 D4 ... jsr a2d4 ;jump79
3956 A183 FE 0D 19 ... ldx 0d19
3958 A187 FC 0D 17 ... ldd 0d17
3959 A18A BD A3 41 ..A jsr a341 ;jump77
3962 A190 C6 46 .F ldab #46
3963 A192 F7 0B 99 ... stab 0b99
3964 A195 C6 52 .R ldab #52
3965 A197 F7 0B 98 ... stab 0b98
3966 A19A C6 45 .E ldab #45
3967 A19C F7 0B 97 ... stab 0b97
3968 A19F C6 45 .E ldab #45
3969 A1A1 F7 0B 96 ... stab 0b96
3970 A1A4 CE 00 00 ... ldx #0000
3972 A1A8 FC 0D 0D ... ldd 0d0d
3973 A1AB BD A2 D4 ... jsr a2d4 ;jump79
3976 A1B1 FE 0D 1D ... ldx 0d1d
3978 A1B5 FC 0D 1B ... ldd 0d1b
3979 A1B8 BD A3 41 ..A jsr a341 ;jump77
3982 A1BE CC B4 84 ... ldd #b484 ; "VENDS/CODE"
3983 A1C1 BD C0 BA ... jsr c0ba ;display:
3985 A1C4 F6 00 48 ..H ldab 0048
3986 A1C7 C1 2E .. cmpb #2e
3987 A1C9 23 74 #t bls 74
3988 A1CB F6 00 48 ..H ldab 0048
3989 A1CE C1 92 .. cmpb #92
3990 A1D0 24 6D $m bcc 6d
3991 A1D2 F6 00 48 ..H ldab 0048
3994 A1D7 C3 08 6C ..l addd #086c
3996 A1DB EC 00 .. ldd 00,x
3997 A1DD C4 80 .. andb #80
3998 A1DF 26 0E &. bne 0e
3999 A1E1 7C 00 48 |.H inc 0048
4000 A1E4 F6 00 48 ..H ldab 0048
4001 A1E7 C1 92 .. cmpb #92
4002 A1E9 26 02 &. bne 02
4005 A1EF F6 00 48 ..H ldab 0048
4007 A1F3 C3 FF D2 ... addd #ffd2
4008 A1F6 BD E7 95 ... jsr e795 ;jump54 - number to string
4009 A1F9 F6 00 5E ..^ ldab 005e
4010 A1FC F7 0B 99 ... stab 0b99
4011 A1FF F6 00 5F .._ ldab 005f
4012 A202 F7 0B 98 ... stab 0b98
4013 A205 F6 00 48 ..H ldab 0048
4016 A20A C3 0C C3 ... addd #0cc3
4018 A20E EC 00 .. ldd 00,x
4019 A210 BD E7 45 ..E jsr e745 ;jump55 - number to string
4020 A213 F6 00 57 ..W ldab 0057
4021 A216 F7 0B 94 ... stab 0b94
4022 A219 F6 00 5A ..Z ldab 005a
4023 A21C F7 0B 93 ... stab 0b93
4024 A21F F6 00 5D ..] ldab 005d
4025 A222 F7 0B 92 ... stab 0b92
4026 A225 F6 00 5E ..^ ldab 005e
4027 A228 F7 0B 91 ... stab 0b91
4028 A22B F6 00 5F .._ ldab 005f
4029 A22E F7 0B 90 ... stab 0b90
4032 A233 8D 27 .' bsr dest 27
4033 A235 F6 00 48 ..H ldab 0048
4034 A238 C1 92 .. cmpb #92
4035 A23A 26 03 &. bne 03
4036 A23C 7F 00 2C .., clr 002c
4037 A23F F6 00 48 ..H ldab 0048
4038 A242 C1 92 .. cmpb #92
4039 A244 26 15 &. bne 15
4040 A246 F6 00 1F ... ldab 001f
4041 A249 C4 10 .. andb #10
4042 A24B 27 08 '. beq 08
4043 A24D CC AF 9A ... ldd #af9a ; "CLR MIS Y"
4044 A250 BD C0 BA ... jsr c0ba ;display:
4046 A255 CC AF A5 ... ldd #afa5 ; "CLR MIS N"
4047 A258 BD C0 BA ... jsr c0ba ;display:
4053 A25E F6 00 2C .., ldab 002c
4054 A261 26 6F &o bne 6f
4055 A263 BD BE 69 ..i jsr be69 ;displayreset
4057 A267 E6 01 .. ldab 01,x
4058 A269 27 5F '_ beq 5f
4059 A26B F6 00 13 ... ldab 0013
4060 A26E C1 01 .. cmpb #01
4061 A270 23 58 #X bls 58
4062 A272 CE 10 28 ..( ldx #1028
4063 A275 1C 00 40 ... bset 00,x, #40
4064 A278 CE 00 01 ... ldx #0001
4066 A27C F6 0B 90 ... ldab 0b90
4068 A280 BD BD B5 ... jsr bdb5 ;jump78
4070 A284 CE 10 28 ..( ldx #1028
4071 A287 1D 00 40 ... bclr 00,x, #40
4072 A28A F6 0B 91 ... ldab 0b91
4073 A28D F7 0B 90 ... stab 0b90
4074 A290 F6 00 13 ... ldab 0013
4075 A293 C1 02 .. cmpb #02
4076 A295 26 07 &. bne 07
4077 A297 C6 2E .. ldab #2e
4078 A299 F7 0B 91 ... stab 0b91
4080 A29E F6 00 13 ... ldab 0013
4081 A2A1 C1 04 .. cmpb #04
4082 A2A3 26 0D &. bne 0d
4083 A2A5 F6 0B 92 ... ldab 0b92
4084 A2A8 F7 0B 91 ... stab 0b91
4085 A2AB C6 2E .. ldab #2e
4086 A2AD F7 0B 92 ... stab 0b92
4088 A2B2 F6 00 13 ... ldab 0013
4089 A2B5 C1 08 .. cmpb #08
4090 A2B7 26 11 &. bne 11
4091 A2B9 F6 0B 92 ... ldab 0b92
4092 A2BC F7 0B 91 ... stab 0b91
4093 A2BF F6 0B 93 ... ldab 0b93
4094 A2C2 F7 0B 92 ... stab 0b92
4095 A2C5 C6 2E .. ldab #2e
4096 A2C7 F7 0B 93 ... stab 0b93
4097 A2CA BD BE 10 ... jsr be10 ;jump88
4098 A2CD C6 03 .. ldab #03
4099 A2CF F7 00 2C .., stab 002c
4104 ; displays a price on screen?
4108 A2D7 EC 00 .. ldd 00,x
4109 A2D9 BD E7 45 ..E jsr e745 ;jump55 - number to string
4110 A2DC F6 00 57 ..W ldab 0057
4111 A2DF F7 0B 94 ... stab 0b94
4112 A2E2 F6 00 5A ..Z ldab 005a
4113 A2E5 F7 0B 93 ... stab 0b93
4114 A2E8 F6 00 5D ..] ldab 005d
4115 A2EB F7 0B 92 ... stab 0b92
4116 A2EE F6 00 5E ..^ ldab 005e
4117 A2F1 F7 0B 91 ... stab 0b91
4118 A2F4 F6 00 5F .._ ldab 005f
4119 A2F7 F7 0B 90 ... stab 0b90
4121 A2FB E6 05 .. ldab 05,x
4122 A2FD 27 14 '. beq 14
4123 A2FF F6 00 17 ... ldab 0017
4124 A302 C4 08 .. andb #08
4125 A304 26 05 &. bne 05 ; to a30b
4126 A306 C6 24 .$ ldab #24 ; "$"
4127 A308 F7 0B 95 ... stab 0b95
4128 A30B CC 00 01 ... ldd #0001
4129 A30E BD A2 5C ..\ jsr a25c ;bigmodulus
4130 A311 20 05 . bra 05 ; return
4133 A315 BD A2 5C ..\ jsr a25c ;bigmodulus
4138 ; write number to display
4142 A31D E6 01 .. ldab 01,x
4144 A320 BD E7 95 ... jsr e795 ;jump54 - number to string
4145 A323 F6 00 5D ..] ldab 005d
4146 A326 F7 0B 99 ... stab 0b99
4147 A329 F6 00 5E ..^ ldab 005e
4148 A32C F7 0B 98 ... stab 0b98
4149 A32F F6 00 5F .._ ldab 005f
4150 A332 F7 0B 97 ... stab 0b97
4151 A335 CE 00 01 ... ldx #0001
4154 A33A EC 06 .. ldd 06,x
4155 A33C 8D 96 .. bsr dest 96
4166 A346 EC 04 .. ldd 04,x
4169 A34A EC 02 .. ldd 02,x
4170 A34C BD E6 21 ..! jsr e621 ;jump56 - write to display
4172 A350 C6 20 . ldab #20 ; " "
4173 A352 F7 0B 99 ... stab 0b99
4174 A355 F6 00 17 ... ldab 0017
4175 A358 C4 08 .. andb #08
4176 A35A 26 05 &. bne 05
4177 A35C C6 24 .$ ldab #24 ; "$"
4178 A35E F7 0B 98 ... stab 0b98
4179 A361 CC 00 01 ... ldd #0001
4180 A364 BD A2 5C ..\ jsr a25c ;bigmodulus
4184 A36A 6E 00 n. jmp 00,x
4187 A36C BD BE 4B ..K jsr be4b ;displayblank
4188 A36F CC AF DC ... ldd #afdc ; "- SAVING -"
4189 A372 BD C0 BA ... jsr c0ba ;display:
4190 A375 CC 01 F4 ... ldd #01f4
4191 A378 BD E5 71 ..q jsr e571 ;msdelay
4195 A37C FC 00 52 ..R ldd 0052
4196 A37F FD 0B B5 ... std 0bb5
4197 A382 8D E8 .. bsr dest e8
4201 A385 F6 00 1F ... ldab 001f
4202 A388 C4 40 .@ andb #40
4203 A38A 27 73 's beq 73
4204 A38C F6 00 06 ... ldab 0006
4207 A391 C3 08 00 ... addd #0800
4209 A395 EC 00 .. ldd 00,x
4211 A398 84 C0 .. anda #c0
4212 A39A FA 00 28 ..( orb 0028
4213 A39D BA 00 27 ..' ora 0027
4214 A3A0 FD 00 27 ..' std 0027
4215 A3A3 FC 00 27 ..' ldd 0027
4218 A3A8 F6 00 06 ... ldab 0006
4221 A3AD C3 08 00 ... addd #0800
4224 A3B2 ED 00 .. std 00,x
4225 A3B4 FC 00 27 ..' ldd 0027
4230 A3BB F6 00 06 ... ldab 0006
4233 A3C0 C3 0B F1 ... addd #0bf1
4236 A3C5 ED 00 .. std 00,x
4237 A3C7 F6 00 06 ... ldab 0006
4240 A3CC C3 08 C8 ... addd #08c8
4242 A3D0 EC 00 .. ldd 00,x
4243 A3D2 C4 80 .. andb #80
4244 A3D4 84 F7 .. anda #f7
4245 A3D6 FA 00 47 ..G orb 0047
4246 A3D9 BA 00 46 ..F ora 0046
4247 A3DC FD 00 46 ..F std 0046
4248 A3DF F6 00 19 ... ldab 0019
4249 A3E2 C4 10 .. andb #10
4250 A3E4 27 06 '. beq 06
4251 A3E6 CE 00 46 ..F ldx #0046
4252 A3E9 1C 00 08 ... bset 00,x, #08
4253 ; set memory location 08c8+(slotnum*2) to value of 0046
4254 A3EC FC 00 46 ..F ldd 0046
4257 A3F1 F6 00 06 ... ldab 0006
4260 A3F6 C3 08 C8 ... addd #08c8
4263 A3FB ED 00 .. std 00,x
4265 A3FF CC 2A FF .*. ldd #2aff ; 00101010 11111111
4268 A404 F6 00 06 ... ldab 0006
4271 A409 C3 08 00 ... addd #0800
4274 A40E ED 00 .. std 00,x
4275 A410 CC D5 00 ... ldd #d500
4278 A415 F6 00 06 ... ldab 0006
4281 A41A C3 0B F1 ... addd #0bf1
4284 A41F ED 00 .. std 00,x
4285 A421 F6 00 1F ... ldab 001f
4286 A424 C4 40 .@ andb #40
4287 A426 27 26 '& beq 26
4288 A428 F6 00 06 ... ldab 0006
4291 A42D C3 08 00 ... addd #0800
4293 A431 EC 00 .. ldd 00,x
4294 A433 C4 FF .. andb #ff
4295 A435 84 3F .? anda #3f
4296 A437 FD 00 27 ..' std 0027
4297 A43A F6 00 06 ... ldab 0006
4300 A43F C3 08 C8 ... addd #08c8
4302 A443 EC 00 .. ldd 00,x
4303 A445 C4 7F .. andb #7f
4305 A448 FD 00 46 ..F std 0046
4306 A44B BD A3 6C ..l jsr a36c ;jump81
4310 A44F FC 00 0D ... ldd 000d
4311 A452 FD 0B B7 ... std 0bb7
4312 A455 BD A3 6C ..l jsr a36c ;jump81
4316 ; some sort of defaults setting loading? plays with 0067 an awful lot
4318 A45A F6 00 67 ..g ldab 0067
4319 A45D C4 02 .. andb #02
4320 A45F 27 08 '. beq 08
4321 A461 CE 00 67 ..g ldx #0067
4322 A464 1D 00 4D ... bclr 00,x, #4D
4324 A469 CE 00 67 ..g ldx #0067
4325 A46C 1D 00 10 ... bclr 00,x, #10
4326 A46F CE 00 67 ..g ldx #0067
4327 A472 1D 00 .. bclr add,x 00,x
4330 A477 67 C4 g. asr c4,x
4332 A47A 26 06 &. bne 06
4333 A47C CE 00 67 ..g ldx #0067
4334 A47F 1D 00 .. bclr add,x 00,x
4337 A484 67 C4 g. asr c4,x
4339 A487 27 14 '. beq 14
4340 A489 CE 00 67 ..g ldx #0067
4341 A48C 1D 00 02 ... bclr 00,x, #02
4342 A48F CE 00 67 ..g ldx #0067
4343 A492 1D 00 10 ... bclr 00,x, #10
4344 A495 CE 00 67 ..g ldx #0067
4345 A498 1D 00 .. bclr add,x 00,x
4348 A49D CE 00 67 ..g ldx #0067
4349 A4A0 1D 00 08 ... bclr 00,x, #08
4350 A4A3 F6 00 67 ..g ldab 0067
4351 A4A6 C4 04 .. andb #04
4352 A4A8 27 12 '. beq 12
4353 A4AA CE 00 67 ..g ldx #0067
4354 A4AD 1D 00 02 ... bclr 00,x, #02
4355 A4B0 CE 00 67 ..g ldx #0067
4356 A4B3 1D 00 10 .. bclr 00,x, #10
4357 A4B6 CE 00 67 ..g ldx #0067
4358 A4B9 1D 00 20 .. bclr 00,x, #20
4359 A4BC F6 00 67 ... ldab 0067
4360 A4BF C4 08 .. andb #08
4361 A4C1 26 06 &. bne 06
4362 A4C3 CE 00 67 ..g ldx #0067
4363 A4C6 1D 00 40 ..@ bclr 00,x, #40
4364 A4C9 F6 00 67 ..g ldab 0067
4365 A4CC F7 0B C0 ... stab 0bc0
4366 A4CF F6 0E 70 ..p ldab 0e70
4367 A4D2 F7 0E 6E ..n stab 0e6e
4368 A4D5 F6 0E 6D ..m ldab 0e6d
4369 A4D8 26 39 &9 bne 39
4370 A4DA F6 0E 6F ..o ldab 0e6f
4371 A4DD 27 34 '4 beq 34
4372 A4DF 7F 00 06 ... clr 0006
4373 A4E2 F6 00 06 ... ldab 0006
4374 A4E5 C1 3F .? cmpb #3f
4375 A4E7 24 2A $* bcc 2a
4376 A4E9 F6 00 06 ... ldab 0006
4378 A4ED CE 00 05 ... ldx #0005
4381 A4F2 27 1A '. beq 1a
4382 A4F4 F6 00 06 ... ldab 0006
4384 A4F8 C3 08 00 ... addd #0800
4386 A4FC ED 00 .. std 00,x
4387 A4FE EC 00 .. ldd 00,x
4390 A502 F6 00 06 ... ldab 0006
4393 A507 C3 08 C8 ... addd #08c8
4396 A50C ED 00 .. std 00,x
4397 A50E 7C 00 06 |.. inc 0006
4399 A513 F6 0E 6F ..o ldab 0e6f
4400 A516 F7 0E 6D ..m stab 0e6d
4401 A519 BD A3 6C ..l jsr a36c ;jump81
4406 A51E F6 00 22 .." ldab 0022
4408 A522 BD FE 16 ... jsr fe16 ;jump2
4413 A529 A5 79 .y bita 79,x
4414 A52B A5 35 .5 bita 35,x
4415 A52D A5 43 .C bita 43,x
4416 A52F A5 51 .Q bita 51,x
4417 A531 A5 5F ._ bita 5f,x
4418 A533 A5 6D .m bita 6d,x
4419 A535 F6 00 24 ..$ ldab 0024
4420 A538 F7 0B AF ... stab 0baf
4421 A53B F6 00 2A ..* ldab 002a
4422 A53E F7 0B B4 ... stab 0bb4
4424 A543 F6 00 24 ..$ ldab 0024
4425 A546 F7 0B AE ... stab 0bae
4426 A549 F6 00 2A ..* ldab 002a
4427 A54C F7 0B B3 ... stab 0bb3
4429 A551 F6 00 24 ..$ ldab 0024
4430 A554 F7 0B AD ... stab 0bad
4431 A557 F6 00 2A ..* ldab 002a
4432 A55A F7 0B B2 ... stab 0bb2
4434 A55F F6 00 24 ..$ ldab 0024
4435 A562 F7 0B AC ... stab 0bac
4436 A565 F6 00 2A ..* ldab 002a
4437 A568 F7 0B B1 ... stab 0bb1
4439 A56D F6 00 24 ..$ ldab 0024
4440 A570 F7 0B AB ... stab 0bab
4441 A573 F6 00 2A ..* ldab 002a
4442 A576 F7 0B B0 ... stab 0bb0
4443 A579 BD A3 6C ..l jsr a36c ;jump81
4447 A57D 7F 00 54 ..T clr 0054
4448 A580 F6 00 54 ..T ldab 0054
4449 A583 C1 FF .. cmpb #ff
4450 A585 24 1B $. bcc 1b
4451 A587 F6 00 54 ..T ldab 0054
4453 A58B C3 0A 90 ... addd #0a90
4455 A58F E6 00 .. ldab 00,x
4457 A592 F6 00 54 ..T ldab 0054
4459 A596 C3 09 90 ... addd #0990
4462 A59B E7 00 .. stab 00,x
4463 A59D 7C 00 54 |.T inc 0054
4465 A5A2 F6 00 61 ..a ldab 0061
4466 A5A5 F7 0B BF ... stab 0bbf
4467 A5A8 BD A3 6C ..l jsr a36c ;jump81
4471 A5AC 7F 00 54 ..T clr 0054
4472 A5AF F6 00 54 ..T ldab 0054
4473 A5B2 C1 10 .. cmpb #10
4474 A5B4 24 1B $. bcc 1b
4475 A5B6 F6 00 54 ..T ldab 0054
4477 A5BA C3 0A 90 ... addd #0a90
4479 A5BE E6 00 .. ldab 00,x
4481 A5C1 F6 00 54 ..T ldab 0054
4483 A5C5 C3 0C B9 ... addd #0cb9
4486 A5CA E7 00 .. stab 00,x
4487 A5CC 7C 00 54 |.T inc 0054
4489 A5D1 BD A3 6C ..l jsr a36c ;jump81
4493 A5D5 7F 00 54 ..T clr 0054
4494 A5D8 F6 00 54 ..T ldab 0054
4495 A5DB C1 10 .. cmpb #10
4496 A5DD 24 1B $. bcc 1b
4497 A5DF F6 00 54 ..T ldab 0054
4499 A5E3 C3 0A 90 ... addd #0a90
4501 A5E7 E6 00 .. ldab 00,x
4503 A5EA F6 00 54 ..T ldab 0054
4505 A5EE C3 0C C9 ... addd #0cc9
4508 A5F3 E7 00 .. stab 00,x
4509 A5F5 7C 00 54 |.T inc 0054
4511 A5FA BD A3 6C ..l jsr a36c ;jump81
4515 A5FE 7F 00 54 ..T clr 0054
4516 A601 F6 00 54 ..T ldab 0054
4517 A604 C1 05 .. cmpb #05
4518 A606 24 1B $. bcc 1b
4519 A608 F6 00 54 ..T ldab 0054
4521 A60C C3 00 62 ..b addd #0062
4523 A610 E6 00 .. ldab 00,x
4525 A613 F6 00 54 ..T ldab 0054
4527 A617 C3 0B A4 ... addd #0ba4
4530 A61C E7 00 .. stab 00,x
4531 A61E 7C 00 54 |.T inc 0054
4533 A623 7F 00 54 ..T clr 0054
4534 A626 F6 00 54 ..T ldab 0054
4535 A629 C1 0B .. cmpb #0b
4536 A62B 24 1B $. bcc 1b
4537 A62D F6 00 54 ..T ldab 0054
4539 A631 C3 00 68 ..h addd #0068
4541 A635 E6 00 .. ldab 00,x
4543 A638 F6 00 54 ..T ldab 0054
4545 A63C C3 0B E4 ... addd #0be4
4548 A641 E7 00 .. stab 00,x
4549 A643 7C 00 54 |.T inc 0054
4551 A648 8D 04 .. bsr dest 04
4552 A64A BD A3 6C ..l jsr a36c ;jump81
4556 A64E BD AB 0C ... jsr ab0c ;jump126
4557 A651 C6 20 . ldab #20
4558 A653 F7 0B A3 ... stab 0ba3
4559 A656 C6 20 . ldab #20
4560 A658 F7 0B 9A ... stab 0b9a
4561 A65B C6 01 .. ldab #01
4562 A65D F7 00 54 ..T stab 0054
4564 A660 F6 00 54 ..T ldab 0054
4565 A663 C1 09 .. cmpb #09
4566 A665 25 03 %. bcs 03
4567 A667 7E A7 1E ~.. jmp a71e ;goto20
4568 A66A F6 00 54 ..T ldab 0054
4570 A66E BD FE 16 ... jsr fe16 ;jump2
4571 A671 00 01 00 07 . test
4581 A687 F6 00 62 ..b ldab 0062
4586 A68E C8 04 .. eorb #04
4587 A690 F7 00 5F .._ stab 005f
4589 A695 F6 00 62 ..b ldab 0062
4590 A698 C4 0F .. andb #0f
4591 A69A C8 0D .. eorb #0d
4592 A69C F7 00 5F .._ stab 005f
4594 A6A1 F6 00 63 ..c ldab 0063
4599 A6A8 C8 04 .. eorb #04
4600 A6AA F7 00 5F .._ stab 005f
4602 A6AF F6 00 63 ..c ldab 0063
4603 A6B2 C4 0F .. andb #0f
4604 A6B4 C8 05 .. eorb #05
4605 A6B6 F7 00 5F .._ stab 005f
4607 A6BB F6 00 64 ..d ldab 0064
4612 A6C2 C8 05 .. eorb #05
4613 A6C4 F7 00 5F .._ stab 005f
4615 A6C9 F6 00 64 ..d ldab 0064
4616 A6CC C4 0F .. andb #0f
4617 A6CE C8 04 .. eorb #04
4618 A6D0 F7 00 5F .._ stab 005f
4620 A6D5 F6 00 65 ..e ldab 0065
4625 A6DC C8 05 .. eorb #05
4626 A6DE F7 00 5F .._ stab 005f
4628 A6E3 F6 00 65 ..e ldab 0065
4629 A6E6 C4 0F .. andb #0f
4630 A6E8 C8 03 .. eorb #03
4631 A6EA F7 00 5F .._ stab 005f
4632 A6ED F6 00 5F .._ ldab 005f
4633 A6F0 C1 09 .. cmpb #09
4634 A6F2 23 13 #. bls 13
4635 A6F4 F6 00 5F .._ ldab 005f
4636 A6F7 CB 37 .7 addb #37
4638 A6FA F6 00 54 ..T ldab 0054
4640 A6FE C3 0B 9A ... addd #0b9a
4643 A703 E7 00 .. stab 00,x
4645 A707 F6 00 5F .._ ldab 005f
4646 A70A CB 30 .0 addb #30
4648 A70D F6 00 54 ..T ldab 0054
4650 A711 C3 0B 9A ... addd #0b9a
4653 A716 E7 00 .. stab 00,x
4654 A718 7C 00 54 |.T inc 0054
4655 A71B 7E A6 60 ~.` jmp a660 ;goto21
4660 A71F F6 00 48 ..H ldab 0048
4661 A722 26 11 &. bne 11
4662 A724 F6 00 66 ..f ldab 0066
4663 A727 26 07 &. bne 07
4664 A729 C6 01 .. ldab #01
4665 A72B F7 00 66 ..f stab 0066
4667 A730 7F 00 66 ..f clr 0066
4669 A735 F6 00 48 ..H ldab 0048
4671 A739 C3 00 68 ..h addd #0068
4673 A73D E6 00 .. ldab 00,x
4674 A73F 26 10 &. bne 10
4675 A741 C6 01 .. ldab #01
4677 A744 F6 00 48 ..H ldab 0048
4679 A748 C3 00 68 ..h addd #0068
4682 A74D E7 00 .. stab 00,x
4686 A753 F6 00 48 ..H ldab 0048
4688 A757 C3 00 68 ..h addd #0068
4691 A75C E7 00 .. stab 00,x
4695 A75F F6 00 48 ..H ldab 0048
4697 A763 BD FE 16 ... jsr fe16 ;jump2
4698 A766 00 00 00 09 . test
4711 A780 C6 02 .. ldab #02
4712 A782 F7 00 02 ... stab 0002
4715 A787 C6 10 .. ldab #10
4716 A789 F7 00 02 ... stab 0002
4718 A78E C6 20 . ldab #20
4719 A790 F7 00 02 ... stab 0002
4721 A795 C6 01 .. ldab #01
4722 A797 F7 00 02 ... stab 0002
4724 A79C C6 04 .. ldab #04
4725 A79E F7 00 02 ... stab 0002
4727 A7A3 C6 08 .. ldab #08
4728 A7A5 F7 00 02 ... stab 0002
4730 A7AA C6 40 .@ ldab #40
4731 A7AC F7 00 02 ... stab 0002
4733 A7B1 F6 0E 70 ..p ldab 0e70
4734 A7B4 C1 01 .. cmpb #01
4735 A7B6 26 05 &. bne 05
4736 A7B8 7F 0E 70 ..p clr 0e70
4738 A7BD C6 01 .. ldab #01
4739 A7BF F7 0E 70 ..p stab 0e70
4741 A7C4 F6 0E 6F ..o ldab 0e6f
4742 A7C7 C1 01 .. cmpb #01
4743 A7C9 26 05 &. bne 05
4744 A7CB 7F 0E 6F ..o clr 0e6f
4746 A7D0 C6 01 .. ldab #01
4747 A7D2 F7 0E 6F ..o stab 0e6f
4749 A7D7 C6 80 .. ldab #80
4750 A7D9 F7 00 02 ... stab 0002
4751 A7DC F6 00 48 ..H ldab 0048
4752 A7DF C1 0A .. cmpb #0a
4753 A7E1 24 2B $+ bcc 2b
4754 A7E3 F6 00 48 ..H ldab 0048
4755 A7E6 C1 07 .. cmpb #07
4756 A7E8 27 24 '$ beq 24
4757 A7EA F6 00 48 ..H ldab 0048
4758 A7ED C1 08 .. cmpb #08
4759 A7EF 27 1D '. beq 1d
4760 A7F1 F6 00 67 ..g ldab 0067
4761 A7F4 F4 00 02 ... andb 0002
4762 A7F7 26 0B &. bne 0b
4763 A7F9 F6 00 02 ... ldab 0002
4764 A7FC FA 00 67 ..g orb 0067
4765 A7FF F7 00 67 ..g stab 0067
4767 A804 F6 00 02 ... ldab 0002
4769 A808 F4 00 67 ..g andb 0067
4770 A80B F7 00 67 ..g stab 0067
4773 A80F 7F 00 54 ..T clr 0054
4774 A812 F6 00 54 ..T ldab 0054
4775 A815 C1 04 .. cmpb #04
4776 A817 24 4A $J bcc 4a
4777 A819 CC 01 F4 ... ldd #01f4
4778 A81C BD E5 71 ..q jsr e571 ;msdelay
4779 A81F F6 0B 93 ... ldab 0b93
4780 A822 F7 00 5F .._ stab 005f
4781 A825 F6 0B 94 ... ldab 0b94
4782 A828 F7 00 5E ..^ stab 005e
4783 A82B F6 0B 95 ... ldab 0b95
4784 A82E F7 00 5D ..] stab 005d
4785 A831 F6 0B 96 ... ldab 0b96
4786 A834 F7 00 5A ..Z stab 005a
4787 A837 BD BE 4B ..K jsr be4b ;displayblank
4788 A83A BD BE 01 ... jsr be01 ;jump70
4789 A83D CC 01 F4 ... ldd #01f4
4790 A840 BD E5 71 ..q jsr e571 ;msdelay
4791 A843 F6 00 5F .._ ldab 005f
4792 A846 F7 0B 93 ... stab 0b93
4793 A849 F6 00 5E ..^ ldab 005e
4794 A84C F7 0B 94 ... stab 0b94
4795 A84F F6 00 5D ..] ldab 005d
4796 A852 F7 0B 95 ... stab 0b95
4797 A855 F6 00 5A ..Z ldab 005a
4798 A858 F7 0B 96 ... stab 0b96
4799 A85B BD BE 01 ... jsr be01 ;jump70
4800 A85E 7C 00 54 |.T inc 0054
4805 A864 F6 00 09 ... ldab 0009
4806 A867 C1 01 .. cmpb #01
4808 A86B F6 00 61 ..a ldab 0061
4810 A86F C3 00 01 ... addd #0001
4813 A874 F6 00 60 ..` ldab 0060
4816 A879 A3 00 .. subd 00,x
4819 A87D 2C 0A ,. bge 0a
4820 A87F F6 00 60 ..` ldab 0060
4821 A882 C1 F9 .. cmpb #f9 ; -7
4822 A884 24 03 $. bcc 03
4823 A886 7C 00 60 |.` inc 0060
4825 A88B F6 00 60 ..` ldab 0060
4826 A88E C1 09 .. cmpb #09
4827 A890 24 03 $. bcc 03
4828 A892 7C 00 60 |.` inc 0060
4832 A896 F6 00 36 ..6 ldab 0036
4833 A899 26 39 &9 bne 39
4834 A89B F6 00 54 ..T ldab 0054
4835 A89E C1 27 .' cmpb #27 ; 39
4837 A8A2 7C 00 54 |.T inc 0054
4838 A8A5 F6 00 09 ... ldab 0009
4839 A8A8 C1 01 .. cmpb #01
4840 A8AA 26 0C &. bne 0c
4841 A8AC F6 00 54 ..T ldab 0054
4842 A8AF C1 27 .' cmpb #27 ; 39
4843 A8B1 26 03 &. bne 03
4844 A8B3 7F 00 54 ..T clr 0054
4846 A8B8 F6 00 54 ..T ldab 0054
4847 A8BB C1 24 .$ cmpb #24 ; 36
4848 A8BD 26 03 &. bne 03
4849 A8BF 7F 00 54 ..T clr 0054
4850 A8C2 F6 00 54 ..T ldab 0054
4852 A8C6 C3 B4 8F ... addd #b48f
4854 A8CA E6 00 .. ldab 00,x
4855 A8CC F7 0B 90 ... stab 0b90
4856 A8CF C6 02 .. ldab #02
4857 A8D1 F7 00 36 ..6 stab 0036
4861 A8D5 F6 00 60 ..` ldab 0060
4862 A8D8 C1 00 .. cmpb #00
4863 A8DA 23 05 #. bls 05
4864 A8DC 7A 00 60 z.` dec 0060
4866 A8E1 7F 00 60 ..` clr 0060
4870 A8E5 F6 00 36 ..6 ldab 0036
4871 A8E8 26 36 &6 bne 36
4872 A8EA F6 00 54 ..T ldab 0054
4873 A8ED C1 00 .. cmpb #00
4874 A8EF 25 1D %. bcs 1d
4875 A8F1 F6 00 54 ..T ldab 0054
4876 A8F4 26 15 &. bne 15
4877 A8F6 F6 00 09 ... ldab 0009
4878 A8F9 C1 01 .. cmpb #01
4879 A8FB 26 07 &. bne 07
4880 A8FD C6 26 .& ldab #26
4881 A8FF F7 00 54 ..T stab 0054
4883 A904 C6 23 .# ldab #23
4884 A906 F7 00 54 ..T stab 0054
4886 A90B 7A 00 54 z.T dec 0054
4887 A90E F6 00 54 ..T ldab 0054
4889 A912 C3 B4 8F ... addd #b48f
4891 A916 E6 00 .. ldab 00,x
4892 A918 F7 0B 90 ... stab 0b90
4893 A91B C6 02 .. ldab #02
4894 A91D F7 00 36 ..6 stab 0036
4898 A921 F6 0B 90 ... ldab 0b90
4899 A924 F7 0B 96 ... stab 0b96
4900 A927 F6 0B 96 ... ldab 0b96
4902 A92B F6 00 60 ..` ldab 0060
4904 A92F C3 0A 93 ... addd #0a93
4907 A934 E7 00 .. stab 00,x
4908 A936 F6 00 09 ... ldab 0009
4909 A939 C1 01 .. cmpb #01
4910 A93B 26 32 &2 bne 32
4911 A93D F6 00 61 ..a ldab 0061
4913 A941 C3 00 01 ... addd #0001
4916 A946 F6 00 60 ..` ldab 0060
4919 A94B A3 00 .. subd 00,x
4922 A94F 26 0A &. bne 0a
4923 A951 F6 00 60 ..` ldab 0060
4924 A954 C1 FA .. cmpb #fa
4925 A956 24 03 $. bcc 03
4926 A958 7C 00 61 |.a inc 0061
4927 A95B F6 00 60 ..` ldab 0060
4928 A95E F1 00 61 ..a cmpb 0061
4929 A961 22 0A ". bhi 0a
4930 A963 F6 00 60 ..` ldab 0060
4931 A966 C1 F9 .. cmpb #f9
4932 A968 24 03 $. bcc 03
4933 A96A 7C 00 60 |.` inc 0060
4935 A96F F6 00 60 ..` ldab 0060
4936 A972 C1 09 .. cmpb #09
4937 A974 24 03 $. bcc 03
4938 A976 7C 00 60 |.` inc 0060
4942 A97A F6 00 60 ..` ldab 0060
4943 A97D 26 24 &$ bne 24
4944 A97F F6 00 60 ..` ldab 0060
4945 A982 CB 03 .. addb #03
4946 A984 F7 00 54 ..T stab 0054
4947 A987 F6 00 54 ..T ldab 0054
4948 A98A C1 FF .. cmpb #ff
4949 A98C 24 13 $. bcc 13
4950 A98E C6 20 . ldab #20
4952 A991 F6 00 54 ..T ldab 0054
4954 A995 C3 0A 90 ... addd #0a90
4957 A99A E7 00 .. stab 00,x
4958 A99C 7C 00 54 |.T inc 0054
4961 A9A3 F6 00 60 ..` ldab 0060
4962 A9A6 CB 04 .. addb #04
4963 A9A8 F7 00 54 ..T stab 0054
4964 A9AB F6 00 54 ..T ldab 0054
4965 A9AE C1 FF .. cmpb #ff
4966 A9B0 24 13 $. bcc 13
4967 A9B2 C6 20 . ldab #20
4969 A9B5 F6 00 54 ..T ldab 0054
4971 A9B9 C3 0A 90 ... addd #0a90
4974 A9BE E7 00 .. stab 00,x
4975 A9C0 7C 00 54 |.T inc 0054
4977 A9C5 F6 00 60 ..` ldab 0060
4978 A9C8 F7 00 61 ..a stab 0061
4979 A9CB 7F 00 54 ..T clr 0054
4983 A9CF C6 50 .P ldab #50
4984 A9D1 F7 09 90 ... stab 0990
4985 A9D4 C6 29 .) ldab #29
4986 A9D6 F7 09 91 ... stab 0991
4987 A9D9 C6 20 . ldab #20
4988 A9DB F7 09 92 ... stab 0992
4989 A9DE 7F 00 54 ..T clr 0054
4990 A9E1 F6 00 54 ..T ldab 0054
4991 A9E4 C1 FF .. cmpb #ff
4992 A9E6 24 1B $. bcc 1b
4993 A9E8 F6 00 54 ..T ldab 0054
4995 A9EC C3 09 90 ... addd #0990
4997 A9F0 E6 00 .. ldab 00,x
4999 A9F3 F6 00 54 ..T ldab 0054
5001 A9F7 C3 0A 90 ... addd #0a90
5004 A9FC E7 00 .. stab 00,x
5005 A9FE 7C 00 54 |.T inc 0054
5007 AA03 F6 0B BF ... ldab 0bbf
5008 AA06 F7 00 61 ..a stab 0061
5012 AA0A C6 53 .S ldab #53 ; 'S'
5013 AA0C F7 0C B9 ... stab 0cb9
5014 AA0F C6 29 .) ldab #29 ; ')'
5015 AA11 F7 0C BA ... stab 0cba
5016 AA14 C6 20 . ldab #20 ; ' '
5017 AA16 F7 0C BB ... stab 0cbb
5018 AA19 7F 00 54 ..T clr 0054
5019 AA1C F6 00 54 ..T ldab 0054
5020 AA1F C1 10 .. cmpb #10
5021 AA21 24 1B $. bcc 1b
5022 AA23 F6 00 54 ..T ldab 0054
5024 AA27 C3 0C B9 ... addd #0cb9
5026 AA2B E6 00 .. ldab 00,x
5028 AA2E F6 00 54 ..T ldab 0054
5030 AA32 C3 0A 90 ... addd #0a90
5033 AA37 E7 00 .. stab 00,x
5034 AA39 7C 00 54 |.T inc 0054
5039 AA3F C6 49 .I ldab #49
5040 AA41 F7 0C C9 ... stab 0cc9
5041 AA44 C6 29 .) ldab #29
5042 AA46 F7 0C CA ... stab 0cca
5043 AA49 C6 20 . ldab #20
5044 AA4B F7 0C CB ... stab 0ccb
5045 AA4E 7F 00 54 ..T clr 0054
5046 AA51 F6 00 54 ..T ldab 0054
5047 AA54 C1 10 .. cmpb #10
5048 AA56 24 1B $. bcc 1b
5049 AA58 F6 00 54 ..T ldab 0054
5051 AA5C C3 0C C9 ... addd #0cc9
5053 AA60 E6 00 .. ldab 00,x
5055 AA63 F6 00 54 ..T ldab 0054
5057 AA67 C3 0A 90 ... addd #0a90
5060 AA6C E7 00 .. stab 00,x
5061 AA6E 7C 00 54 |.T inc 0054
5066 AA74 7F 00 54 ..T clr 0054
5067 AA77 F6 00 54 ..T ldab 0054
5068 AA7A C1 0B .. cmpb #0b
5069 AA7C 24 1B $. bcc 1b
5070 AA7E F6 00 54 ..T ldab 0054
5072 AA82 C3 0B E4 ... addd #0be4
5074 AA86 E6 00 .. ldab 00,x
5076 AA89 F6 00 54 ..T ldab 0054
5078 AA8D C3 00 68 ..h addd #0068
5081 AA92 E7 00 .. stab 00,x
5082 AA94 7C 00 54 |.T inc 0054
5087 AA9A F6 00 22 .." ldab 0022
5088 AA9D C1 06 .. cmpb #06
5089 AA9F 24 0F $. bcc 0f
5090 AAA1 7C 00 22 |." inc 0022
5091 AAA4 F6 00 22 .." ldab 0022
5092 AAA7 C1 05 .. cmpb #05
5093 AAA9 23 05 #. bls 05
5094 AAAB C6 01 .. ldab #01
5095 AAAD F7 00 22 .." stab 0022
5096 AAB0 F6 00 22 .." ldab 0022
5098 AAB4 BD FE 16 ... jsr fe16 ;jump2
5103 AABB AB 0B .. adda 0b,x
5104 AABD AA C7 .. ora c7,x
5105 AABF AA D5 .. ora d5,x
5106 AAC1 AA E3 .. ora e3,x
5107 AAC3 AA F1 .. ora f1,x
5108 AAC5 AA FF .. ora ff,x
5109 AAC7 F6 0B AF ... ldab 0baf
5110 AACA F7 00 24 ..$ stab 0024
5111 AACD F6 0B B4 ... ldab 0bb4
5112 AAD0 F7 00 2A ..* stab 002a
5114 AAD5 F6 0B AE ... ldab 0bae
5115 AAD8 F7 00 24 ..$ stab 0024
5116 AADB F6 0B B3 ... ldab 0bb3
5117 AADE F7 00 2A ..* stab 002a
5119 AAE3 F6 0B AD ... ldab 0bad
5120 AAE6 F7 00 24 ..$ stab 0024
5121 AAE9 F6 0B B2 ... ldab 0bb2
5122 AAEC F7 00 2A ..* stab 002a
5124 AAF1 F6 0B AC ... ldab 0bac
5125 AAF4 F7 00 24 ..$ stab 0024
5126 AAF7 F6 0B B1 ... ldab 0bb1
5127 AAFA F7 00 2A ..* stab 002a
5129 AAFF F6 0B AB ... ldab 0bab
5130 AB02 F7 00 24 ..$ stab 0024
5131 AB05 F6 0B B0 ... ldab 0bb0
5132 AB08 F7 00 2A ..* stab 002a
5136 AB0C C6 03 .. ldab #03
5137 AB0E F7 00 18 ... stab 0018
5138 AB11 7F 00 1C ... clr 001c
5139 AB14 F6 00 1C ... ldab 001c
5140 AB17 C1 04 .. cmpb #04
5141 AB19 24 6D $m bcc 6d
5142 AB1B C6 07 .. ldab #07
5143 AB1D F7 00 55 ..U stab 0055
5144 AB20 7F 00 54 ..T clr 0054
5145 AB23 F6 00 54 ..T ldab 0054
5146 AB26 C1 08 .. cmpb #08
5147 AB28 24 56 $V bcc 56
5148 AB2A F6 00 1C ... ldab 001c
5150 AB2E C3 0B A4 ... addd #0ba4
5152 AB32 E6 00 .. ldab 00,x
5154 AB35 F6 00 54 ..T ldab 0054
5156 AB39 C3 B4 B7 ... addd #b4b7
5158 AB3D E6 00 .. ldab 00,x
5160 AB40 E4 00 .. andb 00,x
5162 AB43 27 1A '. beq 1a
5163 AB45 F6 00 55 ..U ldab 0055
5165 AB49 C3 B4 B7 ... addd #b4b7
5167 AB4D E6 00 .. ldab 00,x
5169 AB50 F6 00 18 ... ldab 0018
5171 AB54 C3 00 62 ..b addd #0062
5174 AB59 EA 00 .. orb 00,x
5175 AB5B E7 00 .. stab 00,x
5177 AB5F F6 00 55 ..U ldab 0055
5179 AB63 C3 B4 B7 ... addd #b4b7
5181 AB67 E6 00 .. ldab 00,x
5184 AB6B F6 00 18 ... ldab 0018
5186 AB6F C3 00 62 ..b addd #0062
5189 AB74 E4 00 .. andb 00,x
5190 AB76 E7 00 .. stab 00,x
5191 AB78 7A 00 55 z.U dec 0055
5192 AB7B 7C 00 54 |.T inc 0054
5194 AB80 7A 00 18 z.. dec 0018
5195 AB83 7C 00 1C |.. inc 001c
5200 AB89 CC B0 8C ... ldd #b08c ; "NO ERRORS"
5201 AB8C BD C0 BA ... jsr c0ba ;display:
5202 AB8F CC 01 F4 ... ldd #01f4
5203 AB92 BD E5 71 ..q jsr e571 ;msdelay
5204 AB95 BD D4 79 ..y jsr d479 ;jump67
5205 AB98 BD E8 9A ... jsr e89a ;jump68
5206 AB9B BD E9 EA ... jsr e9ea ;jump113
5207 AB9E 7F 0B C1 ... clr 0bc1 ; clear all errors
5211 ABA2 7F 00 05 ... clr 0005
5213 ABA5 F6 00 05 ... ldab 0005
5214 ABA8 C1 64 .d cmpb #64
5215 ABAA 25 03 %. bcs 03
5216 ABAC 7E AC 81 ~.. jmp ac81 ;goto22
5217 ABAF F6 00 05 ... ldab 0005
5218 ABB2 F7 00 06 ... stab 0006
5219 ABB5 F6 00 05 ... ldab 0005
5221 ABB9 CE 00 05 ... ldx #0005
5224 ABBE 26 03 &. bne 03
5225 ABC0 7E AC 7B ~.{ jmp ac7b ;goto23
5226 ABC3 F6 00 06 ... ldab 0006
5227 ABC6 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
5228 ABC9 83 00 00 ... subd #0000
5229 ABCC 27 03 '. beq 03
5230 ABCE 7E AC 7B ~.{ jmp ac7b ;goto23
5231 ABD1 BD D3 11 ... jsr d311 ;jump30 - test position exists
5232 ABD4 83 00 00 ... subd #0000
5233 ABD7 27 2B '+ beq 2b
5234 ABD9 F6 00 05 ... ldab 0005
5237 ABDE C3 08 00 ... addd #0800
5239 ABE2 EC 00 .. ldd 00,x
5240 ABE4 C4 FF .. andb #ff
5241 ABE6 84 3F .? anda #3f
5242 ABE8 83 27 10 .'. subd #2710 ; 10000
5243 ABEB 24 15 $. bcc 15
5244 ABED CC 01 00 ... ldd #0100
5247 ABF2 F6 00 05 ... ldab 0005
5250 ABF7 C3 08 C8 ... addd #08c8
5253 ABFC AA 00 .. ora 00,x
5254 ABFE EA 01 .. orb 01,x
5255 AC00 ED 00 .. std 00,x
5257 AC04 F6 00 05 ... ldab 0005
5260 AC09 C3 08 00 ... addd #0800
5262 AC0D EC 00 .. ldd 00,x
5263 AC0F C4 FF .. andb #ff
5264 AC11 84 3F .? anda #3f
5265 AC13 83 27 0F .'. subd #270f
5266 AC16 23 15 #. bls 15
5267 AC18 CC 01 00 ... ldd #0100
5270 AC1D F6 00 05 ... ldab 0005
5273 AC22 C3 08 C8 ... addd #08c8
5276 AC27 AA 00 .. ora 00,x
5277 AC29 EA 01 .. orb 01,x
5278 AC2B ED 00 .. std 00,x
5279 AC2D F6 00 05 ... ldab 0005
5282 AC32 C3 08 C8 ... addd #08c8
5284 AC36 EC 00 .. ldd 00,x
5285 AC38 84 01 .. anda #01
5286 AC3A 27 06 '. beq 06
5287 AC3C CE 00 19 ... ldx #0019
5288 AC3F 1C 00 04 ... bset 00,x, #04
5289 AC42 F6 00 05 ... ldab 0005
5292 AC47 C3 08 00 ... addd #0800
5294 AC4B EC 00 .. ldd 00,x
5295 AC4D 84 80 .. anda #80
5296 AC4F 27 2A '* beq 2a
5297 AC51 F6 00 05 ... ldab 0005
5300 AC56 C3 08 C8 ... addd #08c8
5302 AC5A EC 00 .. ldd 00,x
5303 AC5C 84 02 .. anda #02
5304 AC5E 27 06 '. beq 06
5305 AC60 CE 00 19 ... ldx #0019
5306 AC63 1C 00 01 ... bset 00,x, #01
5307 AC66 F6 00 05 ... ldab 0005
5310 AC6B C3 08 C8 ... addd #08c8
5312 AC6F EC 00 .. ldd 00,x
5313 AC71 84 04 .. anda #04
5314 AC73 27 06 '. beq 06
5315 AC75 CE 00 19 ... ldx #0019
5316 AC78 1C 00 02 ... bset 00,x, #02
5318 AC7B 7C 00 05 |.. inc 0005
5319 AC7E 7E AB A5 ~.. jmp aba5 ;goto24
5321 AC81 F6 00 19 ... ldab 0019
5322 AC84 C4 07 .. andb #07
5323 AC86 26 0A &. bne 0a
5324 AC88 F6 0B C1 ... ldab 0bc1
5325 AC8B C4 7F .. andb #7f ; have errors?
5326 AC8D 26 03 &. bne 03
5329 AC92 C6 01 .. ldab #01
5331 AC95 26 05 &. bne 05
5332 AC97 C6 0D .. ldab #0d
5333 AC99 F7 00 48 ..H stab 0048
5772 AEBE 24 35 $5 bcc 35
5781 AEC9 24 35 $5 bcc 35
5937 AF84 24 31 $1 bcc 31
5945 AF8F 24 31 $1 bcc 31
5977 AFB7 22 30 "0 bhi 30
5978 AFB9 22 00 ". bhi 00
6017 AFE7 2D 50 -P blt 50
6025 AFF0 2D 00 -. blt 00
6226 B0C5 14 C8 . ;20 200
6239 ; here's a lookup table of some sort, for finding the slot
6240 ; numbers of each motor in turn
6242 ; 80 entries for 80 motors?
6335 table of powers of 2
6342 B12E 2A 2A ** bpl 2a ;"**ERROR***"
6348 B135 2A 2A ** bpl 2a
6349 B137 2A 00 *. bpl 00
6351 B139 2A 2A ** bpl 2a
6352 B13B 2A 2A ** bpl 2a
6353 B13D 2A 2A ** bpl 2a
6354 B13F 2A 2A ** bpl 2a
6355 B141 2A 2A ** bpl 2a
6388 B167 2D 50 -P blt 50
6397 B172 2D 50 -P blt 50
6406 B17D 2D 50 -P blt 50
6416 B188 2D 50 -P blt 50
6434 B19E 2D 50 -P blt 50
6452 B1B4 2D 50 -P blt 50
6471 B1CB 24 2C $, bcc 2c
6567 B240 2D 2D -- blt 2d
6568 B242 2D 2D -- blt 2d
6569 B244 2D 2D -- blt 2d
6570 B246 2D 2D -- blt 2d
6571 B248 2D 2D -- blt 2d
6572 B24A 2D 2D -- blt 2d
6573 B24C 2D 2D -- blt 2d
6574 B24E 2D 2D -- blt 2d
6575 B250 2D 2D -- blt 2d
6576 B252 2D 2D -- blt 2d
6577 B254 2D 00 -. blt 00
6666 B2CD 28 52 (R bvc 52
6678 B2DF 28 4E (N bvc 4e
6843 B3CE 24 31 $1 bcc 31
6893 B415 2D 53 -S blt 53
6987 B489 2F 43 /C ble 43
7028 B4B3 24 2A $* bcc 2a
7036 B4BE 80 FF .. suba #ff
7037 B4C0 FF FF FF ... stx ffff
7038 B4C3 FF FF FF ... stx ffff
7039 B4C6 FF FF FF ... stx ffff
7040 B4C9 FF FF FF ... stx ffff
7041 B4CC FF FF FF ... stx ffff
7042 B4CF FF FF FF ... stx ffff
7043 B4D2 FF FF FF ... stx ffff
7044 B4D5 FF FF FF ... stx ffff
7045 B4D8 FF FF FF ... stx ffff
7046 B4DB FF FF FF ... stx ffff
7047 B4DE FF FF FF ... stx ffff
7048 B4E1 FF FF FF ... stx ffff
7049 B4E4 FF FF FF ... stx ffff
7050 B4E7 FF FF FF ... stx ffff
7051 B4EA FF FF FF ... stx ffff
7052 B4ED FF FF FF ... stx ffff
7053 B4F0 FF FF FF ... stx ffff
7054 B4F3 FF FF FF ... stx ffff
7055 B4F6 FF FF FF ... stx ffff
7056 B4F9 FF FF FF ... stx ffff
7057 B4FC FF FF FF ... stx ffff
7058 B4FF FF FF FF ... stx ffff
7059 B502 FF FF FF ... stx ffff
7060 B505 FF FF FF ... stx ffff
7061 B508 FF FF FF ... stx ffff
7062 B50B FF FF FF ... stx ffff
7063 B50E FF FF FF ... stx ffff
7064 B511 FF FF FF ... stx ffff
7065 B514 FF FF FF ... stx ffff
7066 B517 FF FF FF ... stx ffff
7067 B51A FF FF FF ... stx ffff
7068 B51D FF FF FF ... stx ffff
7069 B520 FF FF FF ... stx ffff
7070 B523 FF FF FF ... stx ffff
7071 B526 FF FF FF ... stx ffff
7072 B529 FF FF FF ... stx ffff
7073 B52C FF FF FF ... stx ffff
7074 B52F FF FF FF ... stx ffff
7075 B532 FF FF FF ... stx ffff
7076 B535 FF FF FF ... stx ffff
7077 B538 FF FF FF ... stx ffff
7078 B53B FF FF FF ... stx ffff
7079 B53E FF FF FF ... stx ffff
7080 B541 FF FF FF ... stx ffff
7081 B544 FF FF FF ... stx ffff
7082 B547 FF FF FF ... stx ffff
7083 B54A FF FF FF ... stx ffff
7084 B54D FF FF FF ... stx ffff
7085 B550 FF FF FF ... stx ffff
7086 B553 FF FF FF ... stx ffff
7087 B556 FF FF FF ... stx ffff
7088 B559 FF FF FF ... stx ffff
7089 B55C FF FF FF ... stx ffff
7090 B55F FF FF FF ... stx ffff
7091 B562 FF FF FF ... stx ffff
7092 B565 FF FF FF ... stx ffff
7093 B568 FF FF FF ... stx ffff
7094 B56B FF FF FF ... stx ffff
7095 B56E FF FF FF ... stx ffff
7096 B571 FF FF FF ... stx ffff
7097 B574 FF FF FF ... stx ffff
7098 B577 FF FF FF ... stx ffff
7099 B57A FF FF FF ... stx ffff
7100 B57D FF FF FF ... stx ffff
7101 B580 FF FF FF ... stx ffff
7102 B583 FF FF FF ... stx ffff
7103 B586 FF FF FF ... stx ffff
7104 B589 FF FF FF ... stx ffff
7105 B58C FF FF FF ... stx ffff
7106 B58F FF FF FF ... stx ffff
7107 B592 FF FF FF ... stx ffff
7108 B595 FF FF FF ... stx ffff
7109 B598 FF FF FF ... stx ffff
7110 B59B FF FF FF ... stx ffff
7111 B59E FF FF FF ... stx ffff
7112 B5A1 FF FF FF ... stx ffff
7113 B5A4 FF FF FF ... stx ffff
7114 B5A7 FF FF FF ... stx ffff
7115 B5AA FF FF FF ... stx ffff
7116 B5AD FF FF FF ... stx ffff
7117 B5B0 FF FF FF ... stx ffff
7118 B5B3 FF FF FF ... stx ffff
7119 B5B6 FF FF FF ... stx ffff
7120 B5B9 FF FF FF ... stx ffff
7121 B5BC FF FF FF ... stx ffff
7122 B5BF FF FF FF ... stx ffff
7123 B5C2 FF FF FF ... stx ffff
7124 B5C5 FF FF FF ... stx ffff
7125 B5C8 FF FF FF ... stx ffff
7126 B5CB FF FF FF ... stx ffff
7127 B5CE FF FF FF ... stx ffff
7128 B5D1 FF FF FF ... stx ffff
7129 B5D4 FF FF FF ... stx ffff
7130 B5D7 FF FF FF ... stx ffff
7131 B5DA FF FF FF ... stx ffff
7132 B5DD FF FF FF ... stx ffff
7133 B5E0 FF FF FF ... stx ffff
7134 B5E3 FF FF FF ... stx ffff
7135 B5E6 FF FF FF ... stx ffff
7136 B5E9 FF FF FF ... stx ffff
7137 B5EC FF FF FF ... stx ffff
7138 B5EF FF FF FF ... stx ffff
7139 B5F2 FF FF FF ... stx ffff
7140 B5F5 FF FF FF ... stx ffff
7141 B5F8 FF FF FF ... stx ffff
7142 B5FB FF FF FF ... stx ffff
7143 B5FE FF FF FF ... stx ffff
7144 B601 FF FF FF ... stx ffff
7145 B604 FF FF FF ... stx ffff
7146 B607 FF FF FF ... stx ffff
7147 B60A FF FF FF ... stx ffff
7148 B60D FF FF FF ... stx ffff
7149 B610 FF FF FF ... stx ffff
7150 B613 FF FF FF ... stx ffff
7151 B616 FF FF FF ... stx ffff
7152 B619 FF FF FF ... stx ffff
7153 B61C FF FF FF ... stx ffff
7154 B61F FF FF FF ... stx ffff
7155 B622 FF FF FF ... stx ffff
7156 B625 FF FF FF ... stx ffff
7157 B628 FF FF FF ... stx ffff
7158 B62B FF FF FF ... stx ffff
7159 B62E FF FF FF ... stx ffff
7160 B631 FF FF FF ... stx ffff
7161 B634 FF FF FF ... stx ffff
7162 B637 FF FF FF ... stx ffff
7163 B63A FF FF FF ... stx ffff
7164 B63D FF FF FF ... stx ffff
7165 B640 FF FF FF ... stx ffff
7166 B643 FF FF FF ... stx ffff
7167 B646 FF FF FF ... stx ffff
7168 B649 FF FF FF ... stx ffff
7169 B64C FF FF FF ... stx ffff
7170 B64F FF FF FF ... stx ffff
7171 B652 FF FF FF ... stx ffff
7172 B655 FF FF FF ... stx ffff
7173 B658 FF FF FF ... stx ffff
7174 B65B FF FF FF ... stx ffff
7175 B65E FF FF FF ... stx ffff
7176 B661 FF FF FF ... stx ffff
7177 B664 FF FF FF ... stx ffff
7178 B667 FF FF FF ... stx ffff
7179 B66A FF FF FF ... stx ffff
7180 B66D FF FF FF ... stx ffff
7181 B670 FF FF FF ... stx ffff
7182 B673 FF FF FF ... stx ffff
7183 B676 FF FF FF ... stx ffff
7184 B679 FF FF FF ... stx ffff
7185 B67C FF FF FF ... stx ffff
7186 B67F FF FF FF ... stx ffff
7187 B682 FF FF FF ... stx ffff
7188 B685 FF FF FF ... stx ffff
7189 B688 FF FF FF ... stx ffff
7190 B68B FF FF FF ... stx ffff
7191 B68E FF FF FF ... stx ffff
7192 B691 FF FF FF ... stx ffff
7193 B694 FF FF FF ... stx ffff
7194 B697 FF FF FF ... stx ffff
7195 B69A FF FF FF ... stx ffff
7196 B69D FF FF FF ... stx ffff
7197 B6A0 FF FF FF ... stx ffff
7198 B6A3 FF FF FF ... stx ffff
7199 B6A6 FF FF FF ... stx ffff
7200 B6A9 FF FF FF ... stx ffff
7201 B6AC FF FF FF ... stx ffff
7202 B6AF FF FF FF ... stx ffff
7203 B6B2 FF FF FF ... stx ffff
7204 B6B5 FF FF FF ... stx ffff
7205 B6B8 FF FF FF ... stx ffff
7206 B6BB FF FF FF ... stx ffff
7207 B6BE FF FF FF ... stx ffff
7208 B6C1 FF FF FF ... stx ffff
7209 B6C4 FF FF FF ... stx ffff
7210 B6C7 FF FF FF ... stx ffff
7211 B6CA FF FF FF ... stx ffff
7212 B6CD FF FF FF ... stx ffff
7213 B6D0 FF FF FF ... stx ffff
7214 B6D3 FF FF FF ... stx ffff
7215 B6D6 FF FF FF ... stx ffff
7216 B6D9 FF FF FF ... stx ffff
7217 B6DC FF FF FF ... stx ffff
7218 B6DF FF FF FF ... stx ffff
7219 B6E2 FF FF FF ... stx ffff
7220 B6E5 FF FF FF ... stx ffff
7221 B6E8 FF FF FF ... stx ffff
7222 B6EB FF FF FF ... stx ffff
7223 B6EE FF FF FF ... stx ffff
7224 B6F1 FF FF FF ... stx ffff
7225 B6F4 FF FF FF ... stx ffff
7226 B6F7 FF FF FF ... stx ffff
7227 B6FA FF FF FF ... stx ffff
7228 B6FD FF FF FF ... stx ffff
7229 B700 FF FF FF ... stx ffff
7230 B703 FF FF FF ... stx ffff
7231 B706 FF FF FF ... stx ffff
7232 B709 FF FF FF ... stx ffff
7233 B70C FF FF FF ... stx ffff
7234 B70F FF FF FF ... stx ffff
7235 B712 FF FF FF ... stx ffff
7236 B715 FF FF FF ... stx ffff
7237 B718 FF FF FF ... stx ffff
7238 B71B FF FF FF ... stx ffff
7239 B71E FF FF FF ... stx ffff
7240 B721 FF FF FF ... stx ffff
7241 B724 FF FF FF ... stx ffff
7242 B727 FF FF FF ... stx ffff
7243 B72A FF FF FF ... stx ffff
7244 B72D FF FF FF ... stx ffff
7245 B730 FF FF FF ... stx ffff
7246 B733 FF FF FF ... stx ffff
7247 B736 FF FF FF ... stx ffff
7248 B739 FF FF FF ... stx ffff
7249 B73C FF FF FF ... stx ffff
7250 B73F FF FF FF ... stx ffff
7251 B742 FF FF FF ... stx ffff
7252 B745 FF FF FF ... stx ffff
7253 B748 FF FF FF ... stx ffff
7254 B74B FF FF FF ... stx ffff
7255 B74E FF FF FF ... stx ffff
7256 B751 FF FF FF ... stx ffff
7257 B754 FF FF FF ... stx ffff
7258 B757 FF FF FF ... stx ffff
7259 B75A FF FF FF ... stx ffff
7260 B75D FF FF FF ... stx ffff
7261 B760 FF FF FF ... stx ffff
7262 B763 FF FF FF ... stx ffff
7263 B766 FF FF FF ... stx ffff
7264 B769 FF FF FF ... stx ffff
7265 B76C FF FF FF ... stx ffff
7266 B76F FF FF FF ... stx ffff
7267 B772 FF FF FF ... stx ffff
7268 B775 FF FF FF ... stx ffff
7269 B778 FF FF FF ... stx ffff
7270 B77B FF FF FF ... stx ffff
7271 B77E FF FF FF ... stx ffff
7272 B781 FF FF FF ... stx ffff
7273 B784 FF FF FF ... stx ffff
7274 B787 FF FF FF ... stx ffff
7275 B78A FF FF FF ... stx ffff
7276 B78D FF FF FF ... stx ffff
7277 B790 FF FF FF ... stx ffff
7278 B793 FF FF FF ... stx ffff
7279 B796 FF FF FF ... stx ffff
7280 B799 FF FF FF ... stx ffff
7281 B79C FF FF FF ... stx ffff
7282 B79F FF FF FF ... stx ffff
7283 B7A2 FF FF FF ... stx ffff
7284 B7A5 FF FF FF ... stx ffff
7285 B7A8 FF FF FF ... stx ffff
7286 B7AB FF FF FF ... stx ffff
7287 B7AE FF FF FF ... stx ffff
7288 B7B1 FF FF FF ... stx ffff
7289 B7B4 FF FF FF ... stx ffff
7290 B7B7 FF FF FF ... stx ffff
7291 B7BA FF FF FF ... stx ffff
7292 B7BD FF FF FF ... stx ffff
7293 B7C0 FF FF FF ... stx ffff
7294 B7C3 FF FF FF ... stx ffff
7295 B7C6 FF FF FF ... stx ffff
7296 B7C9 FF FF FF ... stx ffff
7297 B7CC FF FF FF ... stx ffff
7298 B7CF FF FF FF ... stx ffff
7299 B7D2 FF FF FF ... stx ffff
7300 B7D5 FF FF FF ... stx ffff
7301 B7D8 FF FF FF ... stx ffff
7302 B7DB FF FF FF ... stx ffff
7303 B7DE FF FF FF ... stx ffff
7304 B7E1 FF FF FF ... stx ffff
7305 B7E4 FF FF FF ... stx ffff
7306 B7E7 FF FF FF ... stx ffff
7307 B7EA FF FF FF ... stx ffff
7308 B7ED FF FF FF ... stx ffff
7309 B7F0 FF FF FF ... stx ffff
7310 B7F3 FF FF FF ... stx ffff
7311 B7F6 FF FF FF ... stx ffff
7312 B7F9 FF FF FF ... stx ffff
7313 B7FC FF FF FF ... stx ffff
7318 B801 F6 0E 6D ... ldab 0e6d
7319 B804 C1 01 .. cmpb #01
7320 B806 27 03 '. beq 03
7321 B808 7E B9 2A ~.* jmp b92a ;goto25
7322 B80B F6 0E 02 ... ldab 0e02
7323 B80E C1 05 .. cmpb #05 ; was the 3rd last keypress a 5?
7324 B810 27 03 '. beq 03
7325 B812 7E B9 2A ~.* jmp b92a ;goto25
7326 B815 F6 0E 03 ... ldab 0e03
7327 B818 C1 05 .. cmpb #05 ; was the 2nd last keypress a 5?
7328 B81A 27 03 '. beq 03
7329 B81C 7E B9 2A ~.* jmp b92a ;goto25
7330 B81F F6 0E 04 ... ldab 0e04
7331 B822 C1 05 .. cmpb #05 ; was the last keypress a 5?
7332 B824 27 03 '. beq 03
7333 B826 7E B9 2A ~.* jmp b92a ;goto25
7334 B829 F6 00 12 ... ldab 0012
7335 B82C C4 20 . andb #20 ; test the door switch
7336 B82E 27 03 '. beq 03
7337 B830 7E B9 2A ~.* jmp b92a ;goto25
7339 B834 6F 00 o. clr 00,x
7340 B836 F6 0E 6A ..j ldab 0e6a
7341 B839 C1 00 .. cmpb #00
7342 B83B 22 33 "3 bhi 33
7343 B83D C6 64 .d ldab #64
7344 B83F F7 0E 6A ..j stab 0e6a
7345 B842 7C 0E 05 |.. inc 0e05
7346 B845 F6 0E 05 ... ldab 0e05
7347 B848 C1 64 .d cmpb #64
7348 B84A 23 03 #. bls 03
7349 B84C 7F 0E 05 ... clr 0e05
7350 B84F F6 0E 05 ... ldab 0e05
7351 B852 BD D4 68 ..h jsr d468 ;jump51
7352 B855 83 00 00 ... subd #0000
7353 B858 27 0B '. beq 0b
7354 B85A F6 0E 05 ... ldab 0e05
7355 B85D BD D7 A0 ... jsr d7a0 ;is_invalid_slot
7356 B860 83 00 00 ... subd #0000
7357 B863 27 09 '. beq 09
7359 B866 6C 00 l. inc 00,x
7360 B868 E6 00 .. ldab 00,x
7361 B86A C1 6E .n cmpb #6e ; 110 or 01101110
7362 B86C 2D D4 -. blt d4
7364 B870 F6 0E 6A ..j ldab 0e6a
7365 B873 C1 00 .. cmpb #00
7366 B875 23 03 #. bls 03
7367 B877 7A 0E 6A z.j dec 0e6a
7368 B87A F6 0E 05 ... ldab 0e05
7369 B87D BD D4 68 ..h jsr d468 ;jump51
7370 B880 83 00 00 ... subd #0000
7371 B883 26 03 &. bne 03
7372 B885 7E B9 0A ~.. jmp b90a ;goto26
7373 B888 F6 0E 05 ... ldab 0e05
7374 B88B BD D7 A0 ... jsr d7a0 ;is_invalid_slot
7375 B88E 83 00 00 ... subd #0000
7376 B891 26 77 &w bne 77
7377 B893 BD BE 4B ..K jsr be4b ;displayblank
7378 B896 C6 20 . ldab #20 ; " "
7379 B898 F7 0B 9A ... stab 0b9a
7380 B89B C6 20 . ldab #20 ; " "
7381 B89D F7 0B 99 ... stab 0b99
7382 B8A0 C6 20 . ldab #20 ; " "
7383 B8A2 F7 0B 98 ... stab 0b98
7384 B8A5 F6 0E 05 ... ldab 0e05 ; array index/10
7386 B8A9 CE 00 0A ... ldx #000a
7389 B8AE CB 30 .0 addb #30 ; make it a digit
7390 B8B0 F7 0B 97 ... stab 0b97
7391 B8B3 F6 0E 05 ... ldab 0e05 ; array index%10
7393 B8B7 CE 00 0A ... ldx #000a
7395 B8BB CB 30 .0 addb #30 ; make it a digit
7396 B8BD F7 0B 96 ... stab 0b96
7397 B8C0 C6 20 . ldab #20 ; " "
7398 B8C2 F7 0B 95 ... stab 0b95
7399 B8C5 C6 20 . ldab #20 ; " "
7400 B8C7 F7 0B 94 ... stab 0b94
7401 B8CA F6 0E 05 ... ldab 0e05 ; array[index]/10
7403 B8CE C3 0E 06 ... addd #0e06
7405 B8D2 E6 00 .. ldab 00,x
7407 B8D5 CE 00 0A ... ldx #000a
7410 B8DA CB 30 .0 addb #30 ; make it a digit
7411 B8DC F7 0B 93 ... stab 0b93
7412 B8DF F6 0E 05 ... ldab 0e05 ; array[index]%10
7414 B8E3 C3 0E 06 ... addd #0e06
7416 B8E7 E6 00 .. ldab 00,x
7418 B8EA CE 00 0A ... ldx #000a
7420 B8EE CB 30 .0 addb #30 ; make it a digit
7421 B8F0 F7 0B 92 ... stab 0b92
7422 B8F3 C6 20 . ldab #20 ; " "
7423 B8F5 F7 0B 91 ... stab 0b91
7424 B8F8 C6 20 . ldab #20 ; " "
7425 B8FA F7 0B 90 ... stab 0b90
7426 B8FD 7F 00 2C .., clr 002c
7427 B900 BD BE 01 ... jsr be01 ;jump70
7428 B903 C6 0A .. ldab #0a
7429 B905 F7 00 2C .., stab 002c
7432 B90A BD BE 4B ..K jsr be4b ;displayblank
7433 B90D C6 57 .W ldab #57 ; "W"
7434 B90F F7 0B 96 ... stab 0b96
7435 B912 C6 42 .B ldab #42 ; "B"
7436 B914 F7 0B 95 ... stab 0b95
7437 B917 C6 42 .B ldab #42 ; "B"
7438 B919 F7 0B 94 ... stab 0b94
7439 B91C 7F 00 2C .., clr 002c
7440 B91F BD BE 01 ... jsr be01 ;jump70 write to display
7441 B922 C6 0A .. ldab #0a
7442 B924 F7 00 2C .., stab 002c
7443 B927 7E BA 81 ~.. jmp ba81 ;goto27 - return
7445 B92A F6 0E 6D ..m ldab 0e6d
7446 B92D C1 01 .. cmpb #01
7447 B92F 27 03 '. beq 03
7448 B931 7E BA 81 ~.. jmp ba81 ;goto27 - return
7449 B934 F6 0E 00 ... ldab 0e00
7450 B937 C1 05 .. cmpb #05
7451 B939 27 03 '. beq 03
7452 B93B 7E BA 81 ~.. jmp ba81 ;goto27 - return
7453 B93E F6 0E 01 ... ldab 0e01
7454 B941 C1 05 .. cmpb #05
7455 B943 27 03 '. beq 03
7456 B945 7E BA 81 ~.. jmp ba81 ;goto27 - return
7457 B948 F6 0E 02 ... ldab 0e02
7458 B94B C1 05 .. cmpb #05
7459 B94D 27 03 '. beq 03
7460 B94F 7E BA 81 ~.. jmp ba81 ;goto27 - return
7461 B952 F6 00 12 ... ldab 0012
7462 B955 C4 20 . andb #20 ; test the door switch
7463 B957 26 03 &. bne 03
7464 B959 7E BA 81 ~.. jmp ba81 ;goto27 - return
7465 B95C F6 0E 04 ... ldab 0e04
7466 B95F C1 05 .. cmpb #05
7467 B961 26 79 &y bne 79
7468 B963 F6 0E 03 ... ldab 0e03
7469 B966 C1 05 .. cmpb #05
7470 B968 26 72 &r bne 72
7472 B96B 6F 00 o. clr 00,x
7474 B96E E6 00 .. ldab 00,x
7475 B970 C1 64 .d cmpb #64
7476 B972 2C 16 ,. bge 16
7480 B977 E6 01 .. ldab 01,x
7483 B97B 2C 01 ,. bge 01
7485 B97E C3 0E 06 ... addd #0e06
7488 B983 E7 00 .. stab 00,x
7490 B986 6C 00 l. inc 00,x
7492 B98A 7F 0D FF ... clr 0dff
7493 B98D 7F 0E 00 ... clr 0e00
7494 B990 7F 0E 01 ... clr 0e01
7495 B993 7F 0E 02 ... clr 0e02
7496 B996 7F 0E 03 ... clr 0e03
7497 B999 7F 0E 04 ... clr 0e04
7498 B99C C6 41 .A ldab #41 ; "A"
7499 B99E F7 0B 99 ... stab 0b99
7500 B9A1 C6 4C .L ldab #4c ; "L"
7501 B9A3 F7 0B 98 ... stab 0b98
7502 B9A6 C6 4C .L ldab #4c ; "L"
7503 B9A8 F7 0B 97 ... stab 0b97
7504 B9AB C6 20 . ldab #20 ; " "
7505 B9AD F7 0B 96 ... stab 0b96
7506 B9B0 C6 43 .C ldab #43 ; "C"
7507 B9B2 F7 0B 95 ... stab 0b95
7508 B9B5 C6 4C .L ldab #4c ; "L"
7509 B9B7 F7 0B 94 ... stab 0b94
7510 B9BA C6 45 .E ldab #45 ; "E"
7511 B9BC F7 0B 93 ... stab 0b93
7512 B9BF C6 41 .A ldab #41 ; "A"
7513 B9C1 F7 0B 92 ... stab 0b92
7514 B9C4 C6 52 .R ldab #52 ; "R"
7515 B9C6 F7 0B 91 ... stab 0b91
7516 B9C9 C6 20 . ldab #20 ; " "
7517 B9CB F7 0B 90 ... stab 0b90
7518 B9CE 7F 00 2C .., clr 002c
7519 B9D1 BD BE 01 ... jsr be01 ;jump70 - display
7520 B9D4 C6 1E .. ldab #1e
7521 B9D6 F7 00 2C .., stab 002c
7522 B9D9 7E BA 81 ~.. jmp ba81 ;goto27 - return
7524 B9DC F6 0E 04 ... ldab 0e04
7525 B9DF C1 01 .. cmpb #01
7526 B9E1 27 0A '. beq 0a
7527 B9E3 F6 0E 04 ... ldab 0e04
7528 B9E6 C1 02 .. cmpb #02
7529 B9E8 27 03 '. beq 03
7530 B9EA 7E BA 81 ~.. jmp ba81 ;goto27 - return
7532 B9ED F6 0E 03 ... ldab 0e03
7533 B9F0 C1 00 .. cmpb #00
7534 B9F2 22 03 ". bhi 03
7535 B9F4 7E BA 81 ~.. jmp ba81 ;goto27 - return
7537 B9F7 F6 0E 03 ... ldab 0e03
7538 B9FA C1 05 .. cmpb #05
7539 B9FC 26 03 &. bne 03
7540 B9FE 7E BA 81 ~.. jmp ba81 ;goto27 - return
7542 BA01 F6 0E 03 ... ldab 0e03
7543 BA04 C1 07 .. cmpb #07
7544 BA06 24 79 $y bcc 79
7545 BA08 F6 0E 03 ... ldab 0e03 ; prevkey*10+key
7546 BA0B 86 0A .. ldaa #0a
7548 BA0E FB 0E 04 ... addb 0e04
7550 BA12 E7 00 .. stab 00,x
7551 BA14 E6 00 .. ldab 00,x
7552 BA16 C1 64 .d cmpb #64
7553 BA18 2C 67 ,g bge 67
7554 BA1A E6 00 .. ldab 00,x
7555 BA1C 2D 63 -c blt 63
7559 BA21 E6 01 .. ldab 01,x
7562 BA25 2C 01 ,. bge 01
7564 BA28 C3 0E 06 ... addd #0e06
7567 BA2D E7 00 .. stab 00,x
7568 BA2F F6 0E 03 ... ldab 0e03
7569 BA32 CB 30 .0 addb #30 ; +48 (make an ascii digit)
7570 BA34 F7 0B 99 ... stab 0b99
7571 BA37 F6 0E 04 ... ldab 0e04
7572 BA3A CB 30 .0 addb #30 ; +48 (make an ascii digit)
7573 BA3C F7 0B 98 ... stab 0b98
7574 BA3F C6 20 . ldab #20 ; " "
7575 BA41 F7 0B 97 ... stab 0b97
7576 BA44 C6 43 .C ldab #43 ; "C"
7577 BA46 F7 0B 96 ... stab 0b96
7578 BA49 C6 4C .L ldab #4c ; "L"
7579 BA4B F7 0B 95 ... stab 0b95
7580 BA4E C6 45 .E ldab #45 ; "E"
7581 BA50 F7 0B 94 ... stab 0b94
7582 BA53 C6 41 .A ldab #41 ; "A"
7583 BA55 F7 0B 93 ... stab 0b93
7584 BA58 C6 52 .R ldab #52 ; "R"
7585 BA5A F7 0B 92 ... stab 0b92
7586 BA5D C6 45 .E ldab #45 ; "E"
7587 BA5F F7 0B 91 ... stab 0b91
7588 BA62 C6 44 .D ldab #44 ; "D"
7589 BA64 F7 0B 90 ... stab 0b90
7590 BA67 7F 0E 00 ... clr 0e00
7591 BA6A 7F 0E 01 ... clr 0e01
7592 BA6D 7F 0E 02 ... clr 0e02
7593 BA70 7F 0E 03 ... clr 0e03
7594 BA73 7F 0E 04 ... clr 0e04
7595 BA76 7F 00 2C .., clr 002c
7596 BA79 BD BE 01 ... jsr be01 ;jump70 - display
7597 BA7C C6 1E .. ldab #1e
7598 BA7E F7 00 2C .., stab 002c
7604 ; reads the keypad state into 005b & 0056
7605 ; it looks like it returns without doing anything if the
7606 ; no sale switch is pressed, but I haven't looked closely
7607 BA83 F6 18 00 ... ldab 1800
7608 BA86 C4 7F .. andb #7f
7609 BA88 F7 00 23 ..# stab 0023
7610 BA8B F6 00 23 ..# ldab 0023
7611 BA8E F1 00 12 ... cmpb 0012 ; door buffers - debouncing it?
7612 BA91 27 06 '. beq 06
7613 BA93 F6 00 23 ..# ldab 0023
7614 BA96 F7 00 12 ... stab 0012
7615 BA99 F6 20 00 . . ldab 2000
7616 BA9C F1 00 20 .. cmpb 0020
7617 BA9F 27 08 '. beq 08
7618 BAA1 F6 20 00 . . ldab 2000
7619 BAA4 F7 00 20 .. stab 0020
7621 BAA9 F6 00 20 .. ldab 0020
7622 BAAC F7 00 11 ... stab 0011
7623 BAAF F6 00 11 ... ldab 0011
7624 BAB2 C4 03 .. andb #03
7625 BAB4 F7 00 2B ..+ stab 002b
7626 BAB7 F6 00 1B ... ldab 001b
7627 BABA C4 04 .. andb #04
7629 BABD F6 10 0A ... ldab 100a ; PortE
7630 BAC0 C4 04 .. andb #04 ; no sale switch (active low)
7632 BAC3 E0 00 .. subb 00,x
7634 BAC6 27 17 '. beq 17
7635 BAC8 F6 10 0A ... ldab 100a ; PortE
7636 BACB C4 04 .. andb #04 : no sale switch (active low)
7637 BACD 27 08 '. beq 08
7638 BACF CE 00 1B ... ldx #001b
7639 BAD2 1C 00 04 .. bset 00,x, #04
7641 BAD7 CE 00 1B ... ldx #001b
7642 BADA 1D 00 04 .. bclr 00,x, #04
7644 BADF F6 10 0A ... ldab 100a ; PortE
7645 BAE2 C4 04 .. andb #04 ; no sale switch (active low)
7646 BAE4 27 08 '. beq 08
7647 BAE6 CE 00 1D ... ldx #001d
7648 BAE9 1C 00 04 .. bset 00,x, #04
7650 BAEE CE 00 1D ... ldx #001d
7651 BAF1 1D 00 04 .. bclr 00,x, #04
7652 BAF4 CE 10 08 ... ldx #1008 : PortD
7653 BAF7 1D 00 20 ... bclr 00,x, #20 ; select keypad row 0
7654 BAF9 CE 10 28 ... ldx #1028
7655 BAFC 1C 00 40 ... bset 00,x #40 ; enable SPI
7657 BB00 CE 00 14 ... ldx #0014 ; keypad strobe:
7658 BB03 1C 00 04 .. bset 00,x, #04 ; resets the keypad
7659 BB06 F6 00 14 ... ldab 0014 ; shift register
7660 BB09 F7 38 00 .8. stab 3800 ; ready for a new
7661 BB0C CE 00 14 ... ldx #0014 ; read
7662 BB0F 1D 00 04 .. bclr 00,x, #04
7663 BB12 F6 00 14 ... ldab 0014
7664 BB15 F7 38 00 .8. stab 3800
7666 BB18 CE 00 00 ... ldx #0000
7670 BB1E BD BD B5 ... jsr bdb5 ;jump78 - reads the keypad inputs into X
7672 BB22 F7 00 5B ..[ stab 005b
7674 BB25 CE 10 28 ..( ldx #1028
7675 BB28 1D 00 40 .. bclr 00,x, #40 ; disable SPI
7677 BB2B CE 10 08 ... ldx #1008
7678 BB2E 1C 00 20 .. bset 00,x, #20 ; select keypad row 1
7680 BB30 CE 10 28 ... ldx #1028
7681 BB33 1C 00 40 ... bset 00,x, #40 ; enable the SPI
7683 BB37 CE 00 14 ... ldx #0014
7684 BB3A 1C 00 04 .. bset 00,x, #04 ; keypad strobe
7685 BB3D F6 00 14 ... ldab 0014
7686 BB40 F7 38 00 .8. stab 3800
7687 BB43 CE 00 14 ... ldx #0014
7688 BB46 1D 00 04 .. bclr 00,x, #04
7689 BB49 F6 00 14 ... ldab 0014
7690 BB4C F7 38 00 .8. stab 3800
7692 BB4F CE 00 00 ... ldx #0000
7696 BB55 BD BD B5 ... jsr bdb5 ;jump78 - read the keypad
7698 BB59 F7 00 56 ..V stab 0056
7699 BB5C CE 10 28 ..( ldx #1028
7700 BB5F 1D 00 40 .. bclr 00,x, #40
7704 BB63 F6 00 00 ... ldab 0000
7705 BB66 27 03 '. beq 03
7706 BB68 7E BD B4 ~.. jmp bdb4 ;goto28
7707 BB6B F6 00 2E ... ldab 002e
7708 BB6E 27 03 '. beq 03
7709 BB70 7E BD B4 ~.. jmp bdb4 ;goto28
7710 BB73 BD BA 83 ... jsr ba83 ;jump125 - read keypad
7711 ; has a key been pressed?
7712 BB76 F6 00 5B ..[ ldab 005b
7713 BB79 F1 00 56 ..V cmpb 0056
7714 BB7C 26 0B &. bne 0b ; to bb89
7715 BB7E F6 00 56 ..V ldab 0056
7716 BB81 27 06 '. beq 06 ; to bb89
7717 BB83 7F 00 29 ..) clr 0029 ; to key pressed
7718 BB86 7E BD AF ~.. jmp bdaf ;goto29 (bail)
7719 ; find keypad number
7720 BB89 F6 00 5B ..[ ldab 005b ; is row0 = 0
7721 BB8C 27 34 '4 beq 34 ; if so, to bbc2
7722 BB8E F6 00 5B ..[ ldab 005b
7723 BB91 F7 00 5F .._ stab 005f
7724 BB94 7F 00 1C ... clr 001c ; i=0
7726 BB97 F6 00 1C ... ldab 001c
7727 BB9A C1 08 .. cmpb #08 ; if i >= 8
7728 BB9C 24 15 $. bcc 15 ; to bbb3 (break)
7729 BB9E F6 00 5F .._ ldab 005f
7730 BBA1 C4 01 .. andb #01
7731 BBA3 27 02 '. beq 02
7732 BBA5 20 0C . bra 0c ; to bbb3
7733 BBA7 F6 00 5F .._ ldab 005f
7734 BBAA 54 T lsrb ; ready to test next bit
7735 BBAB F7 00 5F .._ stab 005f
7736 BBAE 7C 00 1C |.. inc 001c
7737 BBB1 20 E4 . bra e4 ; to bb97
7738 ; look up i in the keypad map
7739 BBB3 F6 00 1C ... ldab 001c
7741 BBB7 C3 AC 9D ... addd #ac9d ; keypad mapping
7743 BBBB E6 00 .. ldab 00,x
7744 BBBD F7 00 16 ... stab 0016
7745 BBC0 20 3C < bra 3c ; to bbfe
7746 ; test row 1 - ditto
7747 BBC2 F6 00 56 ..V ldab 0056
7748 BBC5 27 34 '4 beq 34
7749 BBC7 F6 00 56 ..V ldab 0056
7750 BBCA F7 00 5F .._ stab 005f
7751 BBCD 7F 00 1C ... clr 001c
7752 BBD0 F6 00 1C ... ldab 001c
7753 BBD3 C1 08 .. cmpb #08
7754 BBD5 24 15 $. bcc 15
7755 BBD7 F6 00 5F .._ ldab 005f
7756 BBDA C4 01 .. andb #01
7757 BBDC 27 02 '. beq 02
7758 BBDE 20 0C . bra 0c ; to bbec
7759 BBE0 F6 00 5F .._ ldab 005f
7761 BBE4 F7 00 5F .._ stab 005f
7762 BBE7 7C 00 1C |.. inc 001c
7764 BBEC F6 00 1C ... ldab 001c
7767 BBF0 C3 AC A0 ... addd #aca0
7769 BBF4 E6 00 .. ldab 00,x
7770 BBF6 F7 00 16 ... stab 0016
7772 BBFB 7F 00 16 ... clr 0016
7774 BBFE F6 00 5B ..[ ldab 005b
7775 BC01 FA 00 56 ..V orb 0056
7776 BC04 F7 00 5F .._ stab 005f
7777 BC07 7F 00 5E ..^ clr 005e
7778 BC0A 7F 00 1C ... clr 001c
7779 BC0D F6 00 1C ... ldab 001c
7780 BC10 C1 08 .. cmpb #08
7781 BC12 24 16 $. bcc 16
7782 BC14 F6 00 5F .._ ldab 005f
7783 BC17 C4 01 .. andb #01
7784 BC19 27 03 '. beq 03
7785 BC1B 7C 00 5E |.^ inc 005e
7786 BC1E F6 00 5F .._ ldab 005f
7788 BC22 F7 00 5F .._ stab 005f
7789 BC25 7C 00 1C |.. inc 001c
7791 BC2A F6 00 5E ..^ ldab 005e
7792 BC2D C1 01 .. cmpb #01
7793 BC2F 22 05 ". bhi 05
7794 BC31 F6 00 16 ... ldab 0016
7795 BC34 26 0F &. bne 0f
7796 BC36 7F 00 29 ..) clr 0029
7797 BC39 CE 00 1B ... ldx #001b
7798 BC3C 1C 00 10 ... bset 00,x, #10
7799 BC3F 7F 00 37 ..7 clr 0037
7800 BC42 7E BD AF ~.. jmp bdaf ;goto29 (bail)
7801 BC45 F6 00 16 ... ldab 0016 ; key release or debounce?
7802 BC48 F1 00 29 ..) cmpb 0029
7803 BC4B 27 2D '- beq 2d
7804 BC4D F6 00 16 ... ldab 0016
7805 BC50 F7 00 29 ..) stab 0029
7806 BC53 F6 0E 00 ... ldab 0e00 ; this is the key buffer?
7807 BC56 F7 0D FF ... stab 0dff
7808 BC59 F6 0E 01 ... ldab 0e01
7809 BC5C F7 0E 00 ... stab 0e00
7810 BC5F F6 0E 02 ... ldab 0e02
7811 BC62 F7 0E 01 ... stab 0e01
7812 BC65 F6 0E 03 ... ldab 0e03
7813 BC68 F7 0E 02 ... stab 0e02
7814 BC6B F6 0E 04 ... ldab 0e04
7815 BC6E F7 0E 03 ... stab 0e03
7816 BC71 F6 00 29 ..) ldab 0029
7817 BC74 F7 0E 04 ... stab 0e04
7818 BC77 7E BD AF ~.. jmp bdaf ;goto29 (bail)
7819 BC7A F6 00 12 ... ldab 0012
7820 BC7D C4 20 . andb #20 ; test door switch
7821 BC7F 27 3B '; beq 3b ; to bcbc
7822 BC81 F6 00 29 ..) ldab 0029
7823 BC84 27 33 '3 beq 33
7824 BC86 F6 00 1B ... ldab 001b
7825 BC89 C4 10 .. andb #10
7826 BC8B 27 2C ', beq 2c
7827 BC8D F6 00 42 ..B ldab 0042
7828 BC90 27 15 '. beq 15
7829 BC92 F6 00 09 ... ldab 0009
7830 BC95 27 08 '. beq 08
7831 BC97 F6 00 29 ..) ldab 0029
7832 BC9A F7 00 0A ... stab 000a
7834 BC9F F6 00 29 ..) ldab 0029
7835 BCA2 F7 00 09 ... stab 0009
7837 BCA7 F6 00 29 ..) ldab 0029
7838 BCAA F7 00 42 ..B stab 0042
7839 BCAD BD E5 AA ... jsr e5aa ;jump12
7840 BCB0 7F 00 2C .., clr 002c
7841 BCB3 CE 00 1B ... ldx #001b
7842 BCB6 1D 00 10 ... bclr 00,x, #10
7843 BCB9 7E BD AF ~.. jmp bdaf ;goto29 (bail)
7845 BCBC F6 00 1B ... ldab 001b
7846 BCBF C4 10 .. andb #10
7847 BCC1 26 03 &. bne 03
7848 BCC3 7E BD 91 ~.. jmp bd91 ;goto30
7849 BCC6 F6 00 21 ..! ldab 0021
7850 BCC9 C4 20 . andb #20
7851 BCCB 27 03 '. beq 03
7852 BCCD 7E BD 91 ~.. jmp bd91 ;goto30
7853 BCD0 F6 00 29 ..) ldab 0029
7854 BCD3 C1 0B .. cmpb #0b
7855 BCD5 26 03 &. bne 03
7856 BCD7 7E BD 5C ~.\ jmp bd5c ;goto31
7857 BCDA 7F 00 49 ..I clr 0049
7858 BCDD F6 00 3A ..: ldab 003a
7859 BCE0 26 32 &2 bne 32
7860 BCE2 F6 00 29 ..) ldab 0029
7861 BCE5 C1 0A .. cmpb #0a
7862 BCE7 26 05 &. bne 05
7863 BCE9 7F 00 1E ... clr 001e
7865 BCEE F6 00 29 ..) ldab 0029
7866 BCF1 F7 00 1E ... stab 001e
7867 BCF4 C6 32 .2 ldab #32
7868 BCF6 F7 00 3A ..: stab 003a
7869 BCF9 BD BE 4B ..K jsr be4b ;displayblank
7870 BCFC F6 00 1E ... ldab 001e
7871 BCFF CB 30 .0 addb #30
7872 BD01 F7 0B 95 ... stab 0b95
7873 BD04 BD E5 AA ... jsr e5aa ;jump12
7874 BD07 7F 00 2C .., clr 002c
7875 BD0A BD BE 01 ... jsr be01 ;jump70
7876 BD0D C6 32 .2 ldab #32
7877 BD0F F7 00 2C .., stab 002c
7879 BD14 F6 00 29 ..) ldab 0029
7880 BD17 C1 05 .. cmpb #05
7881 BD19 27 07 '. beq 07
7882 BD1B F6 00 29 ..) ldab 0029
7883 BD1E C1 0A .. cmpb #0a
7884 BD20 26 05 &. bne 05
7885 BD22 7F 00 2C .., clr 002c
7887 BD27 F6 00 1E ... ldab 001e
7891 BD2D F7 00 06 ... stab 0006
7892 BD30 F6 00 1E ... ldab 001e
7894 BD34 FB 00 06 ... addb 0006
7895 BD37 F7 00 06 ... stab 0006
7896 BD3A F6 00 29 ..) ldab 0029
7897 BD3D FB 00 06 ... addb 0006
7898 BD40 F7 00 06 ... stab 0006
7899 BD43 F6 00 29 ..) ldab 0029
7900 BD46 CB 30 .0 addb #30
7901 BD48 F7 0B 94 ... stab 0b94
7902 BD4B BD BE 01 ... jsr be01 ;jump70
7903 BD4E CE 00 1B ... ldx #001b
7904 BD51 1D 00 40 ... bclr 00,x, #40
7905 BD54 7F 00 3A ..: clr 003a
7906 BD57 BD E5 AA ... jsr e5aa ;jump12
7909 BD5C C6 19 .. ldab #19
7910 BD5E F7 00 37 ..7 stab 0037
7911 BD61 F6 00 3A ..: ldab 003a
7912 BD64 27 08 '. beq 08
7913 BD66 7F 00 3A ..: clr 003a
7914 BD69 7F 00 2C .., clr 002c
7916 BD6E 7C 00 49 |.I inc 0049
7917 BD71 F6 00 49 ..I ldab 0049
7918 BD74 C1 02 .. cmpb #02
7919 BD76 25 0E %. bcs 0e
7920 BD78 7F 00 49 ..I clr 0049
7921 BD7B CE 00 1B ... ldx #001b
7922 BD7E 1C 00 01 ... bset 00,x, #01
7923 BD81 C6 3C .< ldab #3c
7924 BD83 F7 00 4F ..O stab 004f
7925 BD86 BD E5 AA ... jsr e5aa ;jump12
7926 BD89 CE 00 1B ... ldx #001b
7927 BD8C 1D 00 10 ... bclr 00,x, #10
7930 BD91 F6 00 1B ... ldab 001b
7931 BD94 C4 10 .. andb #10
7932 BD96 26 17 &. bne 17
7933 BD98 F6 00 29 ..) ldab 0029
7934 BD9B C1 0B .. cmpb #0b
7935 BD9D 26 10 &. bne 10
7936 BD9F F6 00 37 ..7 ldab 0037
7937 BDA2 26 0B &. bne 0b
7938 BDA4 BD DD D5 ... jsr ddd5 ;jump120
7939 BDA7 7F 00 49 ..I clr 0049
7940 BDAA C6 14 .. ldab #14
7941 BDAC F7 00 2C .., stab 002c
7943 BDAF C6 01 .. ldab #01
7944 BDB1 F7 00 00 ... stab 0000
7949 ; start/finish sending a byte to the display
7950 ; stack parameter - 0 to disable display clock (for reading keypad), 1 to enable
7951 ; lower 8-bits of D - byte to write to display.
7952 ; bytes with bit 7 unset are characters (0-127)
7953 ; bytes with bit 7 set are control commands.
7954 ; this probably also reads the keypad simultaneously
7961 BDBB ED 00 .. std 00,x
7962 BDBD E6 07 .. ldab 07,x
7963 BDBF 27 0E '. beq 0e ; to bdcf if 0
7964 BDC1 CE 00 14 ... ldx #0014
7965 BDC4 1C 00 08 ... bset 00,x, #08
7966 BDC7 F6 00 14 ... ldab 0014
7967 BDCA F7 38 00 .8. stab 3800 ; enable display clock line
7968 BDCD 20 0C . bra 0c ; to bddb
7969 BDCF CE 00 14 ... ldx #0014
7970 BDD2 1D 00 08 ... bclr 00,x, #08
7971 BDD5 F6 00 14 ... ldab 0014
7972 BDD8 F7 38 00 .8. stab 3800 ; disable display clock line
7974 BDDC E6 03 .. ldab 03,x
7975 BDDE F7 10 2A ..* stab 102a ; write to spdr
7976 BDE1 F6 10 29 ..) ldab 1029 ; read spsr
7977 BDE4 2D 0F -. blt 0f ; exit sub if SPI complete
7982 BDEA EC 00 .. ldd 00,x
7983 BDEC 83 FF FF ... subd #ffff ; put a really long timeout on the action
7984 BDEF 26 02 &. bne 02
7986 BDF3 20 EC . bra ec ; loop a while back to bde1
7987 BDF5 F6 10 2A ..* ldab 102a ; reading SPSR (just done) & SPDR clears SPIF
7989 BDF9 E7 03 .. stab 03,x
7990 BDFB E6 03 .. ldab 03,x ; return contents of spdr - keypad data!
7997 ; Write a string in the display buffer at 0x0b90 to the display
7998 BE01 F6 00 2C .., ldab 002c
7999 BE04 26 09 &. bne 09 ; to be0f - ret if mem 0x2c != 0
8000 BE06 8D 61 .a bsr dest 61 ; to displayreset - reset display
8001 BE08 8D 06 .. bsr dest 06 ; to jump88 - commit to display
8002 BE0A C6 03 .. ldab #03
8003 BE0C F7 00 2C .., stab 002c
8007 ; writes the display buffer (at 0b90-0b99) to the display
8008 ; enable the SPI system
8009 BE10 CE 10 28 ..( ldx #1028
8010 BE13 1C 00 40 ..@ bset 00,x, #40
8012 BE16 7F 00 1C ... clr 001c
8013 BE19 F6 00 1C ... ldab 001c
8014 BE1C C1 0A .. cmpb #0a
8015 BE1E 24 19 $. bcc 19 ; to be39
8016 BE20 CE 00 01 ... ldx #0001
8018 BE24 F6 00 1C ... ldab 001c
8020 BE28 C3 0B 90 ... addd #0b90
8022 BE2C E6 00 .. ldab 00,x
8023 BE2E C4 7F .. andb #7f ; make sure we don't send a control command
8025 BE31 8D 82 .. bsr dest 82 ; to jump78
8027 BE34 7C 00 1C |.. inc 001c
8028 BE37 20 E0 . bra e0 ; to be19
8029 BE39 CE 00 01 ... ldx #0001
8031 BE3D CC 00 FF ... ldd #00ff
8032 BE40 BD BD B5 ... jsr bdb5 ;jump78
8034 ; disable the SPI system
8035 BE44 CE 10 28 ..( ldx #1028
8036 BE47 1D 00 40 ..@ bclr 00,x, #40
8040 ; stores 0x20 into memory locations 0b90-0b99
8041 ; "blanks out" (with spaces) the display buffer
8042 BE4B 7F 00 1C ... clr 001c
8043 BE4E F6 00 1C ... ldab 001c
8044 BE51 C1 0A .. cmpb #0a
8045 BE53 24 13 $. bcc 13 ; to be68 - rts
8046 BE55 C6 20 . ldab #20
8048 BE58 F6 00 1C ... ldab 001c
8050 BE5C C3 0B 90 ... addd #0b90
8053 BE61 E7 00 .. stab 00,x
8054 BE63 7C 00 1C |.. inc 001c
8055 BE66 20 E6 . bra e6 ; to be4e
8060 ; Clear bit 7 of PortA - display reset (active low)
8061 BE69 CE 10 00 ... ldx #1000
8062 BE6C 1D 00 80 .. bclr x,#80
8063 BE6F BD E5 96 ... jsr e596 ;jump115 - 100ms delay
8064 ; Clear bit 7 of PortA - reset line back to high
8065 BE72 CE 10 00 ... ldx #1000
8066 BE75 1C 00 80 .. bset 00,x, #80
8069 BE78 CE 10 28 ... ldx #1028
8070 BE7B 1C 00 40 ... bset 00,x, #40
8072 BE7E BD E5 96 ... jsr e596 ;jump115 - 100ms delay
8074 ; tell the display controller there are 10 digits
8075 BE81 CE 00 01 ... ldx #0001
8077 BE85 CC 00 CA ... ldd #00ca ;11001010
8078 BE88 BD BD B5 ... jsr bdb5 ;jump78
8081 ; set brightness to 100%
8082 BE8C CE 00 01 ... ldx #0001
8084 BE90 CC 00 E0 ... ldd #00e0 ;11100000
8085 BE93 BD BD B5 ... jsr bdb5 ;jump78
8089 BE97 CE 10 28 ..( ldx #1028
8090 BE9A 1D 00 40 ... bclr 00,x, #40
8096 ; writes a slot and price to the screen?
8097 ; writes the slot number iff 0 pushed on to the stack
8100 BEA0 8D A9 .. bsr a9 ; to be4b - displayblank
8102 BEA3 E6 05 .. ldab 05,x
8103 BEA5 26 1B &. bne 1b ; to bec2
8104 BEA7 F6 00 06 ... ldab 0006
8106 BEAB CE 00 0A ... ldx #000a
8109 BEB0 CB 30 .0 addb #30
8110 BEB2 F7 0B 99 ... stab 0b99 ; write slotnumber/10
8111 BEB5 F6 00 06 ... ldab 0006
8113 BEB8 CE 00 0A ... ldx #000a
8115 BEBD CB 30 .0 addb #30
8116 BEBF F7 0B 98 ... stab 0b98 ; write slotnumber%10
8119 BEC3 EC 00 .. ldd 00,x
8120 BEC5 C4 FF .. andb #ff
8121 BEC7 84 3F .? anda #3f
8122 BEC9 ED 00 .. std 00,x
8123 BECB EC 00 .. ldd 00,x
8124 BECD CE 03 E8 ... ldx #03e8 ; / 1000
8127 BED2 CB 30 .0 addb #30
8130 BED6 E6 06 .. ldab 06,x
8132 BED9 C3 0B 95 ... addd #0b95
8135 BEDE E7 00 .. stab 00,x ; write MSB dollars
8137 BEE1 EC 00 .. ldd 00,x
8138 BEE3 CE 03 E8 ... ldx #03e8 ; %1000
8140 BEE7 CE 00 64 ..d ldx #0064 ; /100
8143 BEEC CB 30 .0 addb #30
8146 BEF0 E6 06 .. ldab 06,x
8148 BEF3 C3 0B 94 ... addd #0b94 ; write LSB dollars
8151 BEF8 E7 00 .. stab 00,x
8153 BEFB EC 00 .. ldd 00,x
8154 BEFD CE 00 64 ..d ldx #0064 ; %100
8156 BF01 CE 00 0A ... ldx #000a ; /10
8159 BF06 CB 30 .0 addb #30
8162 BF0A E6 06 .. ldab 06,x
8164 BF0D C3 0B 93 ... addd #0b93 ; write MSB cents
8167 BF12 E7 00 .. stab 00,x
8169 BF15 EC 00 .. ldd 00,x
8170 BF17 CE 00 0A ... ldx #000a
8172 BF1B CB 30 .0 addb #30
8175 BF1F E6 06 .. ldab 06,x
8177 BF22 C3 0B 92 ... addd #0b92 ; write LSB cents
8180 BF27 E7 00 .. stab 00,x
8181 BF29 F6 00 13 ... ldab 0013
8182 BF2C C1 01 .. cmpb #01
8183 BF2E 22 03 ". bhi 03
8184 BF30 7E BF DE ~.. jmp bfde ;goto32
8186 BF34 E6 05 .. ldab 05,x
8188 BF37 C3 0B 92 ... addd #0b92
8190 BF3B E6 00 .. ldab 00,x
8193 BF3F E6 06 .. ldab 06,x
8195 BF42 C3 0B 91 ... addd #0b91
8198 BF47 E7 00 .. stab 00,x
8200 BF4A E6 05 .. ldab 05,x
8202 BF4D C3 0B 93 ... addd #0b93
8204 BF51 E6 00 .. ldab 00,x
8207 BF55 E6 06 .. ldab 06,x
8209 BF58 C3 0B 92 ... addd #0b92
8212 BF5D E7 00 .. stab 00,x
8213 BF5F F6 00 13 ... ldab 0013
8214 BF62 C1 02 .. cmpb #02
8215 BF64 26 10 &. bne 10
8216 BF66 C6 2E .. ldab #2e
8219 BF6A E6 06 .. ldab 06,x
8221 BF6D C3 0B 93 ... addd #0b93
8224 BF72 E7 00 .. stab 00,x
8225 BF74 20 68 h bra 68 ;goto32
8227 BF76 C1 04 .. cmpb #04
8228 BF78 26 26 && bne 26
8230 BF7B E6 05 .. ldab 05,x
8232 BF7E C3 0B 94 ... addd #0b94
8234 BF82 E6 00 .. ldab 00,x
8237 BF86 E6 06 .. ldab 06,x
8239 BF89 C3 0B 93 ... addd #0b93
8242 BF8E E7 00 .. stab 00,x
8243 BF90 C6 2E .. ldab #2e ; "."
8246 BF94 E6 06 .. ldab 06,x
8248 BF97 C3 0B 94 ... addd #0b94
8251 BF9C E7 00 .. stab 00,x
8253 BFA0 C1 08 .. cmpb #08
8254 BFA2 26 3A &: bne 3a
8256 BFA5 E6 05 .. ldab 05,x
8258 BFA8 C3 0B 94 ... addd #0b94
8260 BFAC E6 00 .. ldab 00,x
8263 BFB0 E6 06 .. ldab 06,x
8265 BFB3 C3 0B 93 ... addd #0b93
8268 BFB8 E7 00 .. stab 00,x
8270 BFBB E6 05 .. ldab 05,x
8272 BFBE C3 0B 95 ... addd #0b95
8274 BFC2 E6 00 .. ldab 00,x
8277 BFC6 E6 06 .. ldab 06,x
8279 BFC9 C3 0B 94 ... addd #0b94
8282 BFCE E7 00 .. stab 00,x
8283 BFD0 C6 2E .. ldab #2e ; "."
8286 BFD4 E6 06 .. ldab 06,x
8288 BFD7 C3 0B 95 ... addd #0b95
8291 BFDC E7 00 .. stab 00,x
8293 BFDE F6 0B C0 ... ldab 0bc0
8294 BFE1 C4 01 .. andb #01
8295 BFE3 26 0E &. bne 0e ; to bff3
8296 BFE5 F6 0B C0 ... ldab 0bc0
8297 BFE8 C4 04 .. andb #04
8298 BFEA 26 07 &. bne 07 ; to bff3
8299 BFEC F6 0B C0 ... ldab 0bc0
8300 BFEF C4 08 .. andb #08
8301 BFF1 27 15 '. beq 15 ; to c008
8302 BFF3 F6 00 17 ... ldab 0017
8303 BFF6 C4 08 .. andb #08
8304 BFF8 26 0E &. bne 0e ; to c008
8305 ; plonk a dollar sign somewhere
8306 BFFA C6 24 .$ ldab #24 ; "$"
8309 BFFE E6 06 .. ldab 06,x
8311 C001 C3 0B 96 ... addd #0b96
8314 C006 E7 00 .. stab 00,x
8315 C008 BD BE 69 ..i jsr be69 ;displayreset
8316 C00B F6 00 13 ... ldab 0013
8317 C00E C1 01 .. cmpb #01
8318 C010 23 17 #. bls 17
8319 C012 CE 10 28 ..( ldx #1028
8320 C015 1C 00 40 ... bset 00,x, #40 ; enable SPI send
8321 C018 CE 00 01 ... ldx #0001
8323 C01C CC 00 20 .. ldd #0020
8324 C01F BD BD B5 ... jsr bdb5 ;jump78 - send space to display
8326 C023 CE 10 28 ..( ldx #1028 ; disable SPI send
8327 C026 1D 00 40 ... bclr 00,x, #40
8328 C029 BD BE 10 ... jsr be10 ;jump88 - write buffer to display
8333 ; part of the display: function abstraction
8334 ; D points to a string, and the stack contains the length of the message
8335 ; Also seems to handle scrolling of long strings?
8339 ; need 002c to be zero to display stuff
8340 C031 F6 00 2C .., ldab 002c
8341 C034 27 03 '. beq 03
8342 C036 7E C0 B7 ~.. jmp c0b7 ;goto33 (bail out)
8344 C039 FC 00 03 ... ldd 0003
8346 C03D A3 02 .. subd 02,x
8347 C03F 25 0A %. bcs 0a ; to c04b
8349 C041 E6 07 .. ldab 07,x
8351 C044 E3 02 .. addd 02,x
8352 C046 B3 00 03 ... subd 0003
8353 C049 24 06 $. bcc 06 ; to c051
8356 C04C EC 02 .. ldd 02,x
8357 C04E FD 00 03 ... std 0003
8358 C051 FE 00 03 ... ldx 0003
8360 C055 FF 00 03 ... stx 0003
8364 C05B ED 00 .. std 00,x
8365 C05D C6 09 .. ldab #09
8366 C05F F7 00 18 ... stab 0018
8367 C062 F6 00 18 ... ldab 0018
8368 C065 C1 FF .. cmpb #ff
8369 C067 24 46 $F bcc 46 ; to c0af (jump 70 - write string)
8371 C06A E6 07 .. ldab 07,x
8373 C06D E3 02 .. addd 02,x
8374 C06F A3 00 .. subd 00,x
8375 C071 24 05 $. bcc 05
8377 C074 EC 02 .. ldd 02,x
8378 C076 ED 00 .. std 00,x
8380 C079 EE 00 .. ldx 00,x
8381 C07B E6 00 .. ldab 00,x
8382 C07D C1 40 .@ cmpb #40
8383 C07F 24 13 $. bcc 13
8385 C082 EE 00 .. ldx 00,x
8386 C084 E6 00 .. ldab 00,x
8388 C087 F6 00 18 ... ldab 0018
8390 C08B C3 0B 90 ... addd #0b90
8393 C090 E7 00 .. stab 00,x
8396 C095 EE 00 .. ldx 00,x
8397 C097 E6 00 .. ldab 00,x
8398 C099 CB C0 .. addb #c0
8400 C09C F6 00 18 ... ldab 0018
8402 C0A0 C3 0B 90 ... addd #0b90
8405 C0A5 E7 00 .. stab 00,x
8409 C0AA 7A 00 18 z.. dec 0018
8411 C0AF BD BE 01 ... jsr be01 ;jump70
8412 C0B2 C6 03 .. ldab #03
8413 C0B4 F7 00 2C .., stab 002c
8419 ;Display a string. D points to the string, which is NULL-terminated
8424 C0BC F6 00 1F ... ldab 001f
8425 C0BF C4 04 .. andb #04
8426 C0C1 26 03 &. bne 03
8427 C0C3 7F 00 2C .., clr 002c
8428 C0C6 F6 00 2C .., ldab 002c
8429 C0C9 26 13 &. bne 13 ; to c0de
8432 C0CD FD 00 03 ... std 0003
8433 C0D0 7F 00 2C .., clr 002c
8434 C0D3 CE 00 09 ... ldx #0009
8437 C0D8 EC 02 .. ldd 02,x
8438 C0DA BD C0 2E ... jsr c02e ;jump71 - display
8444 C0E0 F6 00 15 ... ldab 0015
8445 C0E3 2C 02 ,. bge 02
8447 C0E7 CE 00 1D ... ldx #001d
8448 C0EA 1C 00 20 .. bset 00,x, #20
8449 C0ED BD D7 30 . jsr d730 ;jump202
8450 C0EE 83 00 00 .0. subd #0000
8451 C0F3 27 09 '. beq 09
8452 C0F5 CE 00 1D ... ldx #001d
8453 C0F8 1D 00 20 .. bclr 00,x, #20
8458 C0FE CE 00 14 ... ldx #0014
8459 C101 1C 00 01 ... bset 00,x, #01
8460 C104 F6 00 14 ... ldab 0014
8461 C107 F7 38 00 .8. stab 3800 ; note acceptor business
8462 C10A F6 00 15 ... ldab 0015
8463 C10D C4 1F .. andb #1f
8464 C10F 26 03 &. bne 03
8465 C111 7E C3 1B ~.. jmp c31b ;goto34
8466 C114 C6 14 .. ldab #14 ; 20
8467 C116 F7 00 31 ..1 stab 0031
8468 C119 F6 00 15 ... ldab 0015
8469 C11C 2D 15 -. blt 15
8470 C11E F6 00 31 ..1 ldab 0031
8471 C121 C1 0A .. cmpb #0a
8472 C123 22 0C ". bhi 0c
8473 C125 BD C5 D3 ... jsr c5d3 ;jump6
8474 C128 CE 00 1D ... ldx #001d
8475 C12B 1D 00 20 .. bclr 00,x, #20
8481 C133 FC 00 3E ..> ldd 003e
8482 C136 F3 00 40 ..@ addd 0040
8483 C139 FD 00 40 ..@ std 0040
8486 C13E FD 00 3E ..> std 003e
8487 C141 F6 00 15 ... ldab 0015
8488 C144 C4 1F .. andb #1f
8490 C147 BD FE 32 ..2 jsr fe32 ;jump25
8491 C14A C1 64 00 01 .... ; array data for jump25
8492 C14E C1 BA 00 01 ....
8493 C152 C2 10 00 02 ....
8494 C156 C2 66 00 04 .f..
8495 C15A C2 BB 00 08 ....
8496 C15E C3 0E FF F0 ....
8497 C162 00 00 .. ; end of array data
8498 C164 FC 0C DD ... ldd 0cdd
8499 C167 83 FF FF ... subd #ffff
8500 C16A 26 05 &. bne 05
8503 C16E FD 0C DD ... std 0cdd
8504 C171 FE 0C DD ... ldx 0cdd
8506 C175 FF 0C DD ... stx 0cdd
8507 C178 CE 00 64 ..d ldx #0064
8509 C17C CC 00 00 ... ldd #0000
8512 C181 CC 0C F3 ... ldd #0cf3
8513 C184 BD FB DF ... jsr fbdf ;jump46
8516 C189 FE 0C F5 ... ldx 0cf5
8518 C18D FC 0C F3 ... ldd 0cf3
8521 C192 CE FF 9C ... ldx #ff9c
8523 C196 CC 00 63 ..c ldd #0063
8525 C19A A3 02 .. subd 02,x
8528 C19E 26 02 &. bne 02
8529 C1A0 A3 04 .. subd 04,x
8532 C1A4 24 11 $. bcc 11
8533 C1A6 CE 00 64 ..d ldx #0064
8535 C1AA CC FF 9C ... ldd #ff9c
8538 C1AF CC 0C F3 ... ldd #0cf3
8539 C1B2 BD FB DF ... jsr fbdf ;jump46
8542 C1B7 7E C3 0E ~.. jmp c30e ;goto35
8543 C1BA FC 0C DF ... ldd 0cdf
8544 C1BD 83 FF FF ... subd #ffff
8545 C1C0 26 05 &. bne 05
8548 C1C4 FD 0C DF ... std 0cdf
8549 C1C7 FE 0C DF ... ldx 0cdf
8551 C1CB FF 0C DF ... stx 0cdf
8552 C1CE CE 00 C8 ... ldx #00c8
8554 C1D2 CC 00 00 ... ldd #0000
8557 C1D7 CC 0C F7 ... ldd #0cf7
8558 C1DA BD FB DF ... jsr fbdf ;jump46
8561 C1DF FE 0C F9 ... ldx 0cf9
8563 C1E3 FC 0C F7 ... ldd 0cf7
8566 C1E8 CE FF 38 ..8 ldx #ff38 ; -200
8568 C1EC CC 00 C7 ... ldd #00c7
8570 C1F0 A3 02 .. subd 02,x
8573 C1F4 26 02 &. bne 02
8574 C1F6 A3 04 .. subd 04,x
8577 C1FA 24 11 $. bcc 11
8578 C1FC CE 00 C8 ... ldx #00c8 ; 200
8580 C200 CC FF 38 ..8 ldd #ff38 ; -200
8583 C205 CC 0C F7 ... ldd #0cf7
8584 C208 BD FB DF ... jsr fbdf ;jump46
8587 C20D 7E C3 0E ~.. jmp c30e ;goto35
8588 C210 FC 0C E1 ... ldd 0ce1
8589 C213 83 FF FF ... subd #ffff
8590 C216 26 05 &. bne 05
8593 C21A FD 0C E1 ... std 0ce1
8594 C21D FE 0C E1 ... ldx 0ce1
8596 C221 FF 0C E1 ... stx 0ce1
8597 C224 CE 01 F4 ... ldx #01f4
8599 C228 CC 00 00 ... ldd #0000
8602 C22D CC 0C FB ... ldd #0cfb
8603 C230 BD FB DF ... jsr fbdf ;jump46
8606 C235 FE 0C FD ... ldx 0cfd
8608 C239 FC 0C FB ... ldd 0cfb
8611 C23E CE FE 0C ... ldx #fe0c
8613 C242 CC 01 F3 ... ldd #01f3
8615 C246 A3 02 .. subd 02,x
8618 C24A 26 02 &. bne 02
8619 C24C A3 04 .. subd 04,x
8622 C250 24 11 $. bcc 11
8623 C252 CE 01 F4 ... ldx #01f4
8625 C256 CC FE 0C ... ldd #fe0c
8628 C25B CC 0C FB ... ldd #0cfb
8629 C25E BD FB DF ... jsr fbdf ;jump46
8632 C263 7E C3 0E ~.. jmp c30e ;goto35
8633 C266 FC 0C E3 ... ldd 0ce3
8634 C269 83 FF FF ... subd #ffff
8635 C26C 26 05 &. bne 05
8638 C270 FD 0C E3 ... std 0ce3
8639 C273 FE 0C E3 ... ldx 0ce3
8641 C277 FF 0C E3 ... stx 0ce3
8642 C27A CE 03 E8 ... ldx #03e8
8644 C27E CC 00 00 ... ldd #0000
8647 C283 CC 0C FF ... ldd #0cff
8648 C286 BD FB DF ... jsr fbdf ;jump46
8651 C28B FE 0D 01 ... ldx 0d01
8653 C28F FC 0C FF ... ldd 0cff
8656 C294 CE FC 18 ... ldx #fc18 ; -1000
8658 C298 CC 03 E7 ... ldd #03e7
8660 C29C A3 02 .. subd 02,x
8663 C2A0 26 02 &. bne 02
8664 C2A2 A3 04 .. subd 04,x
8667 C2A6 24 11 $. bcc 11
8668 C2A8 CE 03 E8 ... ldx #03e8 ; 1000
8670 C2AC CC FC 18 ... ldd #fc18 ; -1000
8673 C2B1 CC 0C FF ... ldd #0cff
8674 C2B4 BD FB DF ... jsr fbdf ;jump46
8678 C2BB FC 0C E5 ... ldd 0ce5
8679 C2BE 83 C3 4F ..O subd #c34f ; 49999
8680 C2C1 26 05 &. bne 05
8683 C2C5 FD 0C E5 ... std 0ce5
8684 C2C8 FE 0C E5 ... ldx 0ce5
8686 C2CC FF 0C E5 ... stx 0ce5
8687 C2CF CE 07 D0 ... ldx #07d0 ; 2000
8689 C2D3 CC 00 00 ... ldd #0000
8692 C2D8 CC 0D 03 ... ldd #0d03 ; 3331
8693 C2DB BD FB DF ... jsr fbdf ;jump46
8696 C2E0 FE 0D 05 ... ldx 0d05
8698 C2E4 FC 0D 03 ... ldd 0d03
8701 C2E9 CE D9 30 ..0 ldx #d930 ; -9936
8703 C2ED CC 05 F5 ... ldd #05f5 ; 1525
8705 C2F1 A3 02 .. subd 02,x
8708 C2F5 26 02 &. bne 02
8709 C2F7 A3 04 .. subd 04,x
8712 C2FB 24 11 $. bcc 11
8713 C2FD CE 26 D0 .&. ldx #26d0 ; 9936
8715 C301 CC FA 0A ... ldd #fa0a ; -1526
8718 C306 CC 0D 03 ... ldd #0d03 ; 3331
8719 C309 BD FB DF ... jsr fbdf ;jump46
8723 C30E F6 00 15 ... ldab 0015
8724 C311 2C 02 ,. bge 02
8726 C315 CE 00 15 ... ldx #0015
8727 C318 1D 00 1F .. bclr 00,x, #1f
8729 C31B CE 00 1D ... ldx #001d
8730 C31E 1D 00 20 .. bclr 00,x, #20
8731 C320 CC 00 01 . ldd #0001
8735 ; has a good long chat to the bill validator
8736 C325 F6 10 00 ... ldab 1000
8737 C328 C4 01 .. andb #01
8738 C32A 26 13 &. bne 13
8739 C32C 7C 00 7D |.} inc 007d
8740 C32F F6 00 7D ..} ldab 007d
8741 C332 C1 05 .. cmpb #05
8742 C334 23 03 #. bls 03
8743 C336 7F 00 7D ..} clr 007d
8744 C339 7F 00 7E ..~ clr 007e
8745 C33C 7E C4 2F ~./ jmp c42f ;goto36
8746 C33F 7C 00 7E |.~ inc 007e
8747 C342 F6 00 7E ..~ ldab 007e
8748 C345 C1 07 .. cmpb #07
8749 C347 23 17 #. bls 17
8750 C349 7F 00 7D ..} clr 007d
8751 C34C 7F 00 7E ..~ clr 007e
8752 C34F 7F 00 7C ..| clr 007c
8753 C352 F6 00 15 ... ldab 0015
8754 C355 2C 03 ,. bge 03
8755 C357 7F 00 2C .., clr 002c
8756 C35A CE 00 15 ... ldx #0015
8757 C35D 1D 00 80 .. bclr 00,x, #80
8758 C35F F6 00 7E ... ldab 007e
8759 C363 26 03 .. bne 03 ; to c368
8760 C365 7E C4 2F ~./ jmp c42f ;goto36
8761 C368 F6 00 7D ..} ldab 007d
8762 C36B C1 01 .. cmpb #01
8763 C36D 22 03 ". bhi 03
8764 C36F 7E C4 2F ~./ jmp c42f ;goto36
8765 C372 CE 00 15 ... ldx #0015
8766 C375 1C 00 80 .. bset 00,x, #80
8767 C378 CE 0B C1 ... ldx #0bc1
8768 C37B 1D 00 08 .. bclr 00,x #08 ; clear bill error bit
8769 C37E F6 00 1D ... ldab 001d
8770 C381 C4 20 . andb #20
8771 C383 27 03 '. beq 03
8772 C385 7E C4 29 ~.) jmp c429 ;goto38
8773 C388 C6 02 .. ldab #02
8774 C38A F7 00 2C .., stab 002c
8775 C38D 7F 00 3A ..: clr 003a
8776 C390 CE 00 1B ... ldx #001b
8777 C393 1D 00 40 .. bclr 00,x, #40
8778 C396 7F 00 25 ..% clr 0025
8779 C399 CE 00 21 ..! ldx #0021
8780 C39C 1D 00 08 ... bclr 00,x, #08
8781 C39F CE 00 14 ... ldx #0014
8782 C3A2 1D 00 01 .. bclr 00,x, #01
8783 C3A5 F6 00 14 ... ldab 0014
8784 C3A8 F7 38 00 .8. stab 3800 ; note acceptor business
8785 C3AB 7C 00 7C |.| inc 007c
8786 C3AE CE 00 15 ... ldx #0015
8787 C3B1 1D 00 1F .. bclr 00,x, #1f
8788 C3B4 F6 00 7C ..| ldab 007c
8789 C3B7 C1 01 .. cmpb #01
8790 C3B9 26 0E &. bne 0e
8791 C3BB CE 00 15 ... ldx #0015
8792 C3BE 1C 00 01 .. bset 00,x, #01
8793 C3C1 CC 00 64 ..d ldd #0064
8794 C3C4 FD 00 3E ..> std 003e
8796 C3C9 F6 00 7C ..| ldab 007c
8797 C3CC C1 02 .. cmpb #02
8798 C3CE 26 0E &. bne 0e
8799 C3D0 CE 00 15 ... ldx #0015
8800 C3D3 1C 00 02 .. bset 00,x, #02
8801 C3D6 CC 00 C8 ... ldd #00c8
8802 C3D9 FD 00 3E ..> std 003e
8804 C3DE F6 00 7C ..| ldab 007c
8805 C3E1 C1 02 .. cmpb #02
8806 C3E3 23 15 #. bls 15
8807 C3E5 F6 00 7C ..| ldab 007c
8808 C3E8 C1 06 .. cmpb #06
8809 C3EA 24 0E $. bcc 0e
8810 C3EC CE 00 15 ... ldx #0015
8811 C3EF 1C 00 .. bset 00,x, #04
8812 C3F2 CC 01 F4 ... ldd #01f4
8813 C3F5 FD 00 3E ..> std 003e
8815 C3FA F6 00 7C ..| ldab 007c
8816 C3FD C1 05 .. cmpb #05
8817 C3FF 23 15 #. bls 15
8818 C401 F6 00 7C ..| ldab 007c
8819 C404 C1 0B .. cmpb #0b
8820 C406 24 0E $. bcc 0e
8821 C408 CE 00 15 ... ldx #0015
8822 C40B 1C 00 08 .. bset 00,x, #08
8823 C40E CC 03 E8 ... ldd #03e8
8824 C411 FD 00 3E ..> std 003e
8825 C414 20 13 . bra 13 ; to c429
8826 C416 F6 00 7C ..| ldab 007c
8827 C419 C1 0B .. cmpb #0b
8828 C41B 23 0C #. bls 0c
8829 C41D CE 00 15 ... ldx #0015
8830 C420 1C 00 10 .. bset 00,x, #10
8831 C423 CC 07 D0 ... ldd #07d0
8832 C426 FD 00 3E ..> std 003e
8834 C429 7F 00 7D ..} clr 007d
8835 C42C 7F 00 7E ..~ clr 007e
8840 ; tweaks the changer output lines (at 3000) that correspond with the bitmask of
8841 ; 0001. It pulls the lines with 1 set in the bitmask low (active) for 100ms
8842 C430 F6 00 01 ... ldab 0001
8844 C434 F4 00 1A ... andb 001a ; 0x3000 buffer - changer outputs
8845 C437 F7 00 1A ... stab 001a
8846 C43A F6 00 1A ... ldab 001a
8847 C43D F7 30 00 .0. stab 3000 ; coin mask
8848 C440 CC 00 64 ..d ldd #0064
8849 C443 BD E5 71 ..q jsr e571 ;msdelay
8850 C446 F6 00 01 ... ldab 0001
8851 C449 FA 00 1A ... orb 001a
8852 C44C F7 00 1A ... stab 001a
8853 C44F F6 00 1A ... ldab 001a
8854 C452 F7 30 00 .0. stab 3000 ; changer outputs again
8858 ; coin have something to do with coin counting?
8859 C456 FC 00 40 ..@ ldd 0040
8860 C459 26 03 &. bne 03
8861 C45B 7E C5 C6 ~.. jmp c5c6 ;goto39 - unset 0x30 in 0021 & return
8862 C45E CE 00 1A ... ldx #001a
8863 C461 1C 00 01 .. bset 00,x, #01
8864 C464 F6 00 1A ... ldab 001a
8865 C467 F7 30 00 .0. stab 3000 ; changer accept off
8866 C46A CC 03 E8 ... ldd #03e8 ; 1000
8867 C46D BD E5 71 ..q jsr e571 ;msdelay
8869 C470 FC 00 40 ..@ ldd 0040
8870 C473 83 00 00 ... subd #0000
8871 C476 22 03 ". bhi 03
8872 C478 7E C5 B0 ~.. jmp c5b0 ;goto40
8873 C47B F6 00 1B ... ldab 001b
8874 C47E C4 20 . andb #20
8875 C480 27 1B '. beq 1b
8876 C482 FC 00 40 ..@ ldd 0040
8877 C485 83 03 E8 ... subd #03e8
8878 C488 25 13 %. bcs 13
8879 C48A C6 28 .( ldab #28
8880 C48C F7 00 01 ... stab 0001
8881 C48F CC FC 18 ... ldd #fc18
8882 C492 F3 00 40 ..@ addd 0040
8883 C495 FD 00 40 ..@ std 0040
8884 C498 8D 96 .. bsr dest 96
8885 C49A 7E C5 7C ~.| jmp c57c ;goto41
8886 C49D F6 00 1B ... ldab 001b
8887 C4A0 C4 20 . andb #20
8888 C4A2 27 1C '. beq 1c
8889 C4A4 FC 00 40 ..@ ldd 0040
8890 C4A7 83 00 64 ..d subd #0064
8891 C4AA 25 14 %. bcs 14
8892 C4AC C6 30 .0 ldab #30
8893 C4AE F7 00 01 ... stab 0001
8894 C4B1 CC FF 9C ... ldd #ff9c
8895 C4B4 F3 00 40 ..@ addd 0040
8896 C4B7 FD 00 40 ..@ std 0040
8897 C4BA BD C4 30 ..0 jsr c430 ;jump26
8898 C4BD 7E C5 7C ~.| jmp c57c ;goto41
8899 C4C0 FC 0B DD ... ldd 0bdd
8900 C4C3 27 3C '< beq 3c
8901 C4C5 FC 00 40 ..@ ldd 0040
8902 C4C8 B3 0B DD ... subd 0bdd
8903 C4CB 25 34 %4 bcs 34
8904 C4CD F6 0C DB ... ldab 0cdb
8905 C4D0 26 07 &. bne 07
8906 C4D2 F6 00 1B ... ldab 001b
8907 C4D5 C4 20 . andb #20
8908 C4D7 27 28 '( beq 28
8909 C4D9 FC 0B DD ... ldd 0bdd
8912 C4DE F9 00 41 ..A adcb 0041
8913 C4E1 B9 00 40 ..@ adca 0040
8914 C4E4 FD 00 40 ..@ std 0040
8915 C4E7 F6 0B DA ... ldab 0bda
8916 C4EA F7 00 01 ... stab 0001
8917 C4ED BD C4 30 ..0 jsr c430 ;jump26
8918 C4F0 F6 00 1B ... ldab 001b
8919 C4F3 C4 20 . andb #20
8920 C4F5 26 08 &. bne 08
8921 C4F7 F6 0C DB ... ldab 0cdb
8922 C4FA 27 03 '. beq 03
8923 C4FC 7A 0C DB z.. dec 0cdb
8925 C501 FC 0B DF ... ldd 0bdf
8926 C504 27 3C '< beq 3c
8927 C506 FC 00 40 ..@ ldd 0040
8928 C509 B3 0B DF ... subd 0bdf
8929 C50C 25 34 %4 bcs 34
8930 C50E F6 0C DA ... ldab 0cda
8931 C511 26 07 &. bne 07
8932 C513 F6 00 1B ... ldab 001b
8933 C516 C4 20 . andb #20
8934 C518 27 28 '( beq 28
8935 C51A FC 0B DF ... ldd 0bdf
8938 C51F F9 00 41 ..A adcb 0041
8939 C522 B9 00 40 ..@ adca 0040
8940 C525 FD 00 40 ..@ std 0040
8941 C528 F6 0B DB ... ldab 0bdb
8942 C52B F7 00 01 ... stab 0001
8943 C52E BD C4 30 ..0 jsr c430 ;jump26
8944 C531 F6 00 1B ... ldab 001b
8945 C534 C4 20 . andb #20
8946 C536 26 08 &. bne 08
8947 C538 F6 0C DA ... ldab 0cda
8948 C53B 27 03 '. beq 03
8949 C53D 7A 0C DA z.. dec 0cda
8951 C542 FC 0B E1 ... ldd 0be1
8952 C545 27 30 '0 beq 30
8953 C547 FC 00 40 ..@ ldd 0040
8954 C54A B3 0B E1 ... subd 0be1
8955 C54D 25 28 %( bcs 28
8956 C54F FC 0B E1 ... ldd 0be1
8959 C554 F9 00 41 ..A adcb 0041
8960 C557 B9 00 40 ..@ adca 0040
8961 C55A FD 00 40 ..@ std 0040
8962 C55D F6 0B DC ... ldab 0bdc
8963 C560 F7 00 01 ... stab 0001
8964 C563 BD C4 30 ..0 jsr c430 ;jump26
8965 C566 F6 00 1B ... ldab 001b
8966 C569 C4 20 . andb #20
8967 C56B 26 08 &. bne 08
8968 C56D F6 0C D9 ... ldab 0cd9
8969 C570 27 03 '. beq 03
8970 C572 7A 0C D9 z.. dec 0cd9
8974 C579 FD 00 40 ..@ std 0040
8976 C57C CC 01 2C .., ldd #012c ;300 ms
8977 C57F BD E5 71 ..q jsr e571 ;msdelay
8978 C582 F6 00 1B ... ldab 001b
8979 C585 C4 20 . andb #20
8980 C587 26 24 &$ bne 24
8981 C589 CE 00 1A ... ldx #001a
8982 C58C 1D 00 01 .. bclr 00,x, #01
8983 C58F F6 00 1A ... ldab 001a
8984 C592 F7 30 00 .0. stab 3000 ; changer accept' low
8985 C595 CC 00 0C ... ldd #000c ; 12 ms
8986 C598 BD E5 71 ..q jsr e571 ;msdelay
8987 C59B CE 00 1A ... ldx #001a
8988 C59E 1C 00 01 .. bset 00,x, #01
8989 C5A1 F6 00 1A ... ldab 001a
8990 C5A4 F7 30 00 .0. stab 3000 ; changer accept' high
8991 C5A7 CC 00 23 ..# ldd #0023
8992 C5AA BD E5 71 ..q jsr e571 ;msdelay
8993 C5AD 7E C4 70 ~.p jmp c470 ;goto42 - loop
8995 C5B0 F6 0B C0 ... ldab 0bc0
8996 C5B3 C4 04 .. andb #04
8997 C5B5 27 0F '. beq 0f
8998 C5B7 F6 00 1B ... ldab 001b
8999 C5BA C4 20 . andb #20
9000 C5BC 27 08 '. beq 08
9001 C5BE C6 38 .8 ldab #38
9002 C5C0 F7 00 01 ... stab 0001
9003 C5C3 BD C4 30 ..0 jsr c430 ;jump26
9005 C5C6 CE 00 21 ..! ldx #0021
9006 C5C9 1D 00 10 ... bclr 00,x, #10
9007 C5CC CE 00 1B ... ldx #001b
9008 C5CF 1D 00 .. bclr 00,x, #20
9012 C5D3 F6 00 15 ... ldab 0015
9013 C5D6 C4 1F .. andb #1f
9014 C5D8 26 03 &. bne 03
9015 C5DA 7E C6 7C ~.| jmp c67c ;goto43
9016 C5DD CC 00 C8 ... ldd #00c8
9017 C5E0 BD E5 71 ..q jsr e571 ;msdelay
9018 C5E3 FC 00 3E ..> ldd 003e
9019 C5E6 27 58 'X beq 58
9020 C5E8 F6 00 15 ... ldab 0015
9021 C5EB C4 1F .. andb #1f
9023 C5EE BD FE 32 ..2 jsr fe32 ;jump25
9024 C5F1 C6 0B 00 01 .. ; array data for jump25
9030 C609 00 00 .. ;end of array data
9031 C60B CC FF 9C ... ldd #ff9c
9032 C60E F3 00 3E ..> addd 003e
9033 C611 FD 00 3E ..> std 003e
9035 C616 CC FF 38 ..8 ldd #ff38
9036 C619 F3 00 3E ..> addd 003e
9037 C61C FD 00 3E ..> std 003e
9039 C621 CC FE 0C ... ldd #fe0c
9040 C624 F3 00 3E ..> addd 003e
9041 C627 FD 00 3E ..> std 003e
9043 C62C CC FC 18 ... ldd #fc18
9044 C62F F3 00 3E ..> addd 003e
9045 C632 FD 00 3E ..> std 003e
9047 C637 CC F8 30 ..0 ldd #f830
9048 C63A F3 00 3E ..> addd 003e
9049 C63D FD 00 3E ..> std 003e
9050 C640 CE 00 14 ... ldx #0014
9051 C643 1D 00 02 ... bclr 00,x, #02
9052 C646 F6 00 14 ... ldab 0014
9053 C649 F7 38 00 .8. stab 3800 ; bill acceptor
9054 C64C CC 00 1E ... ldd #001e
9055 C64F BD E5 71 ..q jsr e571 ;msdelay
9056 C652 CE 00 15 ... ldx #0015
9057 C655 1D 00 .. bclr add,x 00,x
9058 C657 1F CE 00 14 .... brclr ce,x 00 14
9059 C65B 1C 00 02 ... bset 00,x, #02
9060 C65E F6 00 14 ... ldab 0014
9061 C661 F7 38 00 .8. stab 3800 ; bill acceptor
9062 C664 CC 00 19 ... ldd #0019
9063 C667 BD E5 71 ..q jsr e571 ;msdelay
9064 C66A CE 00 14 ... ldx #0014
9065 C66D 1C 00 01 .. bset 00,x, #01
9066 C670 F6 00 14 ... ldab 0014
9067 C673 F7 38 00 .8. stab 3800 ; bill acceptor
9068 C676 CC 00 19 ... ldd #0019
9069 C679 BD E5 71 ..q jsr e571 ;msdelay
9075 C67D F6 00 30 ..0 ldab 0030
9076 C680 26 55 &U bne 55 ; to c6d7
9077 C682 F6 0B C0 ... ldab 0bc0
9078 C685 C4 04 .. andb #04 ; have a card reader
9079 C687 26 4E &N bne 4e ; to c6d7
9080 C689 C6 27 .' ldab #27
9081 C68B F7 10 2D ..- stab 102d ; disable SCI transmission
9082 C68E C6 07 .. ldab #07
9083 C690 F7 10 2B ..+ stab 102b ; 600 baud
9084 C693 CE 00 1A ... ldx #001a
9085 C696 1C 00 .. bset 00,x, #04
9086 C699 F6 00 1A ... ldab 001a
9087 C69C F7 30 00 .0. stab 3000 ; keypad strobe
9088 C69F CC 00 14 ... ldd #0014
9089 C6A2 BD E5 71 ..q jsr e571 ;msdelay
9090 C6A5 F6 0B C0 ... ldab 0bc0
9091 C6A8 C4 01 .. andb #01 ; have a dumb mech
9092 C6AA 27 06 '. beq 06
9093 C6AC CE 0B C1 ... ldx #0bc1
9094 C6AF 1C 00 01 ... bset 00,x, #01 ; set changer powerup error bit
9095 C6B2 F6 0B C0 ... ldab 0bc0
9096 C6B5 C4 04 .. andb #04
9097 C6B7 27 06 '. beq 06
9098 C6B9 CE 0B C1 ... ldx #0bc1
9099 C6BC 1C 00 02 ... bset 00,x, #02 ; set card powerup error bit
9100 C6BF CE 00 1A ... ldx #001a
9101 C6C2 1D 00 04 ... bclr 00,x, #04 ; keypad strobe finish
9102 C6C5 F6 00 1A ... ldab 001a
9103 C6C8 F7 30 00 .0. stab 3000
9104 C6CB C6 96 .. ldab #96
9105 C6CD F7 00 30 ..0 stab 0030
9106 C6D0 C6 1E .. ldab #1e
9107 C6D2 F7 00 35 ..5 stab 0035
9110 C6D7 F6 18 00 ... ldab 1800
9111 C6DA 2D 2A -* blt 2a
9112 C6DC F6 00 07 ... ldab 0007
9113 C6DF 26 25 &% bne 25
9114 C6E1 CE 00 1A ... ldx #001a
9115 C6E4 1D 00 02 ... bclr 00,x, #02
9116 C6E7 F6 00 1A ... ldab 001a
9117 C6EA F7 30 00 .0. stab 3000 ; changer send' low
9118 C6ED C6 64 .d ldab #64
9119 C6EF F7 00 2D ..- stab 002d
9120 C6F2 CC 00 32 ..2 ldd #0032
9121 C6F5 BD E5 71 ..q jsr e571 ;msdelay
9122 C6F8 CE 00 1A ... ldx #001a
9123 C6FB 1C 00 02 ... bset 00,x, #02
9124 C6FE F6 00 1A ... ldab 001a
9125 C701 F7 30 00 .0. stab 3000 ; changer send' high
9127 C706 F6 00 2D ..- ldab 002d
9128 C709 26 29 &) bne 29
9129 C70B CE 00 1A ... ldx #001a
9130 C70E 1D 00 01 ... bclr 00,x, #01
9131 C711 F6 00 1A ... ldab 001a
9132 C714 F7 30 00 .0. stab 3000 ; changer accept' low
9133 C717 CC 00 0C ... ldd #000c
9134 C71A BD E5 71 ..q jsr e571 ;msdelay
9135 C71D CE 00 1A ... ldx #001a
9136 C720 1C 00 01 ... bset 00,x, #01
9137 C723 F6 00 1A ... ldab 001a
9138 C726 F7 30 00 .0. stab 3000 ; changer accept' high
9139 C729 CC 00 23 ..# ldd #0023
9140 C72C BD E5 71 ..q jsr e571 ;msdelay
9141 C72F C6 64 .d ldab #64
9142 C731 F7 00 2D ..- stab 002d
9143 C734 F6 00 21 ..! ldab 0021
9144 C737 C4 10 .. andb #10
9145 C739 27 45 'E beq 45
9146 C73B F6 00 11 ... ldab 0011
9147 C73E C4 04 .. andb #04
9148 C740 26 1A &. bne 1a
9149 C742 FC 00 40 ..@ ldd 0040
9150 C745 F3 00 3E ..> addd 003e
9151 C748 B3 00 50 ..P subd 0050
9152 C74B 25 0F %. bcs 0f
9153 C74D F6 0B C0 ... ldab 0bc0
9154 C750 C4 04 .. andb #04
9155 C752 26 08 &. bne 08
9156 C754 CE 00 21 ..! ldx #0021
9157 C757 1D 00 10 ... bclr 00,x, #10
9159 C75C F6 0B C0 ... ldab 0bc0
9160 C75F C4 08 .. andb #08
9161 C761 27 03 '. beq 03
9162 C763 BD C5 D3 ... jsr c5d3 ;jump6
9163 C766 FC 0B DD ... ldd 0bdd
9164 C769 26 12 &. bne 12
9165 C76B FC 0B DF ... ldd 0bdf
9166 C76E 26 0D &. bne 0d
9167 C770 FC 0B E1 ... ldd 0be1
9168 C773 26 08 &. bne 08
9169 C775 CE 00 21 ..! ldx #0021
9170 C778 1D 00 10 ... bclr 00,x, #10
9172 C77D BD C4 56 ..V jsr c456 ;jump47
9173 C780 F6 00 15 ... ldab 0015
9174 C783 2D 08 -. blt 08
9175 C785 CE 00 21 ..! ldx #0021
9176 C788 1C 00 08 ... bset 00,x, #08
9178 C78D CE 00 21 ..! ldx #0021
9179 C790 1D 00 08 ... bclr 00,x, #08
9182 ;proc(a,b) var local
9192 C796 34 4 des ;stack: 0=local, 1=A, 2=B
9194 C798 6F 00 o. clr 00,x
9197 C79B E6 02 .. ldab 02,x
9198 C79D 27 1A '. beq exit ;c7b9
9200 C7A0 1F 02 01 0D .... brclr 02,x 01 skip ;c7b1
9202 C7A5 E6 00 .. ldab 00,x
9203 C7A7 27 05 '. beq else ;c7ae
9205 C7AA 6A 00 j. dec 00,x
9206 C7AC 20 03 . bra skip ;c7b1
9209 C7AF 6C 00 l. inc 00,x
9212 C7B2 E6 02 .. ldab 02,x
9214 C7B5 E7 02 .. stab 02,x
9215 C7B7 20 E1 . bra loop ;c79a
9218 C7BA E6 00 .. ldab 00,x
9225 ; parity tester. returns 1 if good
9226 C7C0 F6 10 2F ../ ldab 102f ; sci data
9228 C7C4 8D CE .. bsr c794 ; parity test?
9229 C7C6 83 00 00 ... subd #0000
9230 C7C9 27 05 '. beq 05
9231 C7CB F6 10 2C .., ldab 102c ; test the 9th bit
9232 C7CE 2D 10 -. blt 10 ; to c7e0 - return 1
9234 C7D0 F6 10 2F ../ ldab 102f ; sci data
9236 C7D4 8D BE .. bsr c794 ; parity test?
9237 C7D6 83 00 00 ... subd #0000
9238 C7D9 26 09 &. bne 09 ; to c7e4 - return 0
9239 C7DB F6 10 2C .., ldab 102c ; test the 9th bit
9240 C7DE 2D 04 -. blt 04
9242 C7E0 CC 00 01 ... ldd #0001 ; return 1
9250 ;this might send a byte to the serial port
9254 C7E9 C6 32 .2 ldab #32 ; 50 00110010
9255 C7EB F7 00 31 ..1 stab 0031
9257 C7EF E6 01 .. ldab 01,x
9258 C7F1 F7 00 43 ..C stab 0043
9259 ; poll the TD register empty flag until it's set
9260 C7F4 F6 10 2E ... ldab 102e
9261 C7F7 2D 02 -. blt 02 ; transmit data register empty
9262 C7F9 20 F9 . bra f9 ; to c7f4
9265 C7FC E6 01 .. ldab 01,x
9267 C7FF 8D 93 .. bsr 93 ; to c794 - generate parity bit?
9268 C801 83 00 00 ... subd #0000
9269 C804 27 08 '. beq 08
9270 C806 CE 10 2C .., ldx #102c
9271 C809 1C 00 40 ... bset 00,x, #40 ; set the 9th bit
9273 C80E CE 10 2C .., ldx #102c ;SCI control 1
9274 C811 1D 00 40 ... bclr 00,x, #40 ; clear the 9th bit
9276 C815 E6 01 .. ldab 01,x
9277 C817 F7 10 2F ../ stab 102f ; send to serial port
9286 ; make sure this interrupt is valid
9287 C81D F6 0B C0 ... ldab 0bc0
9288 C820 C4 01 .. andb #01 ; do we have a dumb mech?
9289 C822 26 0A &. bne 0a ; if so, to c82e
9291 C824 F6 0B C0 ... ldab 0bc0
9292 C827 C4 04 .. andb #04 ; do we have a card reader?
9293 C829 26 03 &. bne 03 ; if so, to c82e
9294 C82B 7E CB FF ~.. jmp cbff ; else to goto44
9296 C82E C6 96 .. ldab #96 ; 150
9297 C830 F7 00 30 ..0 stab 0030 ; changer related still?
9298 C833 F6 10 2E ... ldab 102e ; SCI status
9299 C836 C4 02 .. andb #02 ; test for Framing Error
9300 C838 26 0B &. bne 0b ; if so, to c845
9301 C83A F6 10 2F ../ ldab 102f ; read SCI data
9302 C83D F1 00 26 ..& cmpb 0026
9303 C840 26 03 &. bne 03
9304 C842 7E C9 1B ~.. jmp c91b ;goto45
9306 C845 F6 10 2F ../ ldab 102f ; read SCI data
9307 C848 C4 63 .c andb #63 ; 01100110
9308 C84A C1 23 .# cmpb #23 ; 00100110
9309 C84C 27 03 '. beq 03
9310 C84E 7E C8 E7 ~.. jmp c8e7 ;goto46 - pulse send' of changer
9312 C851 F6 00 1A ... ldab 001a ; register 3000 buffer
9313 C854 C4 01 .. andb #01 ; accept' line of changer
9314 C856 26 03 &. bne 03
9315 C858 7E C8 E7 ~.. jmp c8e7 ;goto46 - pulse send' of changer
9317 C85B F6 00 21 ..! ldab 0021
9318 C85E C4 F8 .. andb #f8 ; 11111000
9320 C861 F6 10 2F ../ ldab 102f ; read SCI data
9321 C864 C4 1C .. andb #1c ; 00011100
9322 C866 54 T lsrb ; ^^^
9323 C867 54 T lsrb ; get these bits out
9325 C869 EA 00 .. orb 00,x ; or it with the thing just above
9327 C86C F7 00 21 ..! stab 0021
9328 C86F F6 00 21 ..! ldab 0021
9329 C872 F4 0B D7 ... andb 0bd7 ; if (0021 & 0bd7)
9330 C875 27 08 '. beq 08 ; is false
9331 C877 CE 00 17 ... ldx #0017
9332 C87A 1C 00 20 .. bset 00,x, #20
9334 C87F F6 00 17 ... ldab 0017 ; if true
9335 C882 C4 20 . andb #20
9336 C884 27 11 '. beq 11 ; if unset to c897 (break out of if)
9337 C886 CE 00 17 ... ldx #0017
9338 C889 1D 00 .. bclr 00,x, #20
9339 C88C C6 04 . andb #04
9340 C88E F7 0C DB ... stab 0cdb
9341 C891 CE 0B C1 ... ldx #0bc1
9342 C894 1C 00 40 ... bset 00,x, #40 ; set tube error
9344 C897 F6 00 21 ..! ldab 0021
9345 C89A F4 0B D8 ... andb 0bd8
9346 C89D 27 08 '. beq 08 ; to c8a7
9347 C89F CE 00 17 ... ldx #0017
9348 C8A2 1C 00 40 ... bset 00,x, #40
9349 C8A5 20 18 . bra 18 ; to c8cf
9351 C8A7 F6 00 17 ... ldab 0017
9352 C8AA C4 40 .@ andb #40
9353 C8AC 27 11 '. beq 11 ; to c8bf if unset
9354 C8AE CE 00 17 ... ldx #0017
9355 C8B1 1D 00 40 ... bclr 00,x, #40
9356 C8B4 C6 04 .. ldab #04
9357 C8B6 F7 0C DA ... stab 0cda
9358 C8B9 CE 0B C1 ... ldx #0bc1
9359 C8BC 1C 00 40 ... bset 00,x, #40 ; set tube error
9360 ; if 0021 & 0bd9, then set bit 7 of 0017, else unset it.
9361 C8BF F6 00 21 ..! ldab 0021
9362 C8C2 F4 0B D9 ... andb 0bd9
9363 C8C5 27 08 '. beq 08
9364 C8C7 CE 00 17 ... ldx #0017
9365 C8CA 1C 00 80 .. bset 00,x, #80
9366 C8CC 20 16 . bra 16 ; to c8e5
9368 C8CF F6 00 17 ... ldab 0017
9369 C8D2 2C 11 ,. bge 11 ; to c8e5
9370 C8D4 CE 00 17 ... ldx #0017
9371 C8D7 1D 00 .. bclr 00,x, #80
9373 C8D9 C6 04 .. ldab #04
9374 C8DC F7 0C D9 ... stab 0cd9
9375 ; set tube error bit
9376 C8DF CE 0B C1 ... ldx #0bc1
9377 C8E2 1C 00 40 ... bset 00,x, #40 ; set tube error bit
9378 C8E5 20 31 1 bra 31 ; to c918
9380 goto46: ; pulse the send' line of the changer
9381 C8E7 F6 10 2F ../ ldab 102f ; read SCI data
9382 C8EA F7 00 26 ..& stab 0026
9383 C8ED CE 00 1A ... ldx #001a
9384 C8F0 1C 00 02 ... bset 00,x, #02
9385 C8F3 F6 00 1A ... ldab 001a
9386 C8F6 F7 30 00 .0. stab 3000 ; changer send' high
9387 C8F9 F6 00 3D ..= ldab 003d
9388 C8FC C4 04 .. andb #04
9389 C8FE 26 18 &. bne 18 ; to c918
9390 C900 CC 00 03 ... ldd #0003
9391 C903 BD E5 71 ..q jsr e571 ;msdelay
9392 C906 CE 00 1A ... ldx #001a
9393 C909 1D 00 02 ... bclr 00,x, #02
9394 C90C F6 00 1A ... ldab 001a
9395 C90F F7 30 00 .0. stab 3000 ; changer send' low
9396 C912 7C 00 3D |.= inc 003d
9397 C915 7E CE 46 ~.F jmp ce46 ;goto47 (exit)
9398 C918 7E CB DA ~.. jmp cbda ;goto48 (clean exit)
9401 C91B F6 00 08 ... ldab 0008
9402 C91E 26 03 &. bne 03
9403 C920 7E CA 5F ~._ jmp ca5f ;goto49
9404 C923 F6 00 17 ... ldab 0017
9405 C926 C4 04 .. andb #04
9406 C928 26 03 &. bne 03
9407 C92A 7E CA 5F ~._ jmp ca5f ;goto49
9408 C92D F6 00 17 ... ldab 0017
9409 C930 C4 08 .. andb #08
9410 C932 26 03 &. bne 03
9411 C934 7E CA 5F ~._ jmp ca5f ;goto49
9412 C937 F6 10 2F ../ ldab 102f ; read SCI data
9413 C93A C1 FF .. cmpb #ff
9414 C93C 27 07 '. beq 07 ; to c945
9415 C93E F6 00 08 ... ldab 0008
9416 C941 C1 0E .. cmpb #0e ; if > 14
9417 C943 25 12 %. bcs 12 ; to c957
9418 C945 CE 00 17 ... ldx #0017
9419 C948 1D 00 04 ... bclr 00,x, #04
9420 C94B 7F 00 08 ... clr 0008
9421 C94E BD CE 48 ..H jsr ce48 ;jump48 - update values?
9422 C951 7F 00 2C .., clr 002c
9423 C954 7E CA 5C ~.\ jmp ca5c ;goto50 - clean exit
9425 C957 F6 00 08 ... ldab 0008
9427 C95B BD FE 16 ... jsr fe16 ;jump2
9429 C962 CA 59 .Y ; inc 0008 and clean exit
9430 C964 C9 7E .~ ; read byte into 0bc2
9431 C966 C9 87 .. ; read byte into 0bc3 & ^10 and stuff
9432 C968 C9 DF .. ; read byte into 0bc4 & stuff
9433 C96A C9 F3 .. ; read byte into 0bc5 & stuff
9434 C96C CA 07 .. ; read byte into 0bc6 & stuff
9435 C96E CA 1B .. ; read byte into 0bc7 only
9436 C970 CA 23 .# ; read byte into 0bc8 only
9437 C972 CA 2B .+ ; read byte into 0bc9 only
9438 C974 CA 33 .3 ; read byte into 0bca only
9439 C976 CA 3B .; ; read byte into 0bcb only
9440 C978 CA 43 .C ; read byte into 0bcc only
9441 C97A CA 4B .K ; read byte into 0bcd only
9442 C97C CA 53 .S ; read byte into 0bce only
9443 C97E F6 10 2F ../ ldab 102f ; read SCI data
9444 C981 F7 0B C2 ... stab 0bc2
9445 C984 7E CA 59 ~.Y jmp ca59 ;goto51 - inc 0008 and exit
9447 C987 F6 10 2F ../ ldab 102f ; read SCI data
9448 C98A F7 0B E3 ... stab 0be3
9449 C98D F6 10 2F ../ ldab 102f ; read SCI data
9450 C990 C4 0F .. andb #0f
9451 C992 C1 01 .. cmpb #01
9452 C994 26 07 &. bne 07 ; to c99d
9453 C996 C6 02 .. ldab #02
9454 C998 F7 00 13 ... stab 0013
9455 C99B 20 1B . bra 1b ; to c9b8
9456 C99D C1 02 .. cmpb #02
9457 C99F 26 07 &. bne 07 ; to c9a8
9458 C9A1 C6 04 .. ldab #04
9459 C9A3 F7 00 13 ... stab 0013
9460 C9A6 20 10 . bra 10 ; to c9b8
9461 C9A8 C1 03 .. cmpb #03
9462 C9AA 26 07 &. bne 07 ; to c9b3
9463 C9AC C6 08 .. ldab #08
9464 C9AE F7 00 13 ... stab 0013
9465 C9B1 20 05 . bra 05 ; to c9b8
9466 C9B3 C6 01 .. ldab #01
9467 C9B5 F7 00 13 ... stab 0013
9468 C9B8 F6 10 2F ../ ldab 102f ; read SCI data
9469 C9BB C4 F0 .. andb #f0
9474 C9C1 F7 0B C3 ... stab 0bc3
9475 C9C4 F6 0B C2 ... ldab 0bc2
9476 C9C7 F7 0B AA ... stab 0baa
9477 ;;0baa^:=pow(10,0bc3^) 0bc3 is the top 4 bits from the serial port.
9482 C9CA F6 0B C3 ... ldab 0bc3
9483 C9CD 27 0E '. beq c9dd
9484 C9CF F6 0B AA ... ldab 0baa
9485 C9D2 86 0A .. ldaa #0a
9487 C9D5 F7 0B AA ... stab 0baa
9488 C9D8 7A 0B C3 z.. dec 0bc3
9489 C9DB 20 ED . bra c9ca
9491 C9DD 20 7A z bra 7a ;goto51 - inc 0008 & clean exit
9493 C9DF F6 10 2F ../ ldab 102f ; read SCI data
9494 C9E2 F7 0B C4 ... stab 0bc4
9495 C9E5 F6 0B C4 ... ldab 0bc4
9496 C9E8 C1 80 .. cmpb #80 ; if == 128
9497 C9EA 26 05 &. bne 05
9498 C9EC C6 0F .. ldab #0f ; put 15 => 0bc4
9499 C9EE F7 0B C4 ... stab 0bc4
9500 C9F1 20 66 f bra 66 ;goto51 - inc 0008 & clean exit
9502 C9F3 F6 10 2F ../ ldab 102f ; read SCI data
9503 C9F6 F7 0B C5 ... stab 0bc5
9504 C9F9 F6 0B C5 ... ldab 0bc5
9505 C9FC C1 80 .. cmpb #80
9506 C9FE 26 05 &. bne 05
9507 CA00 C6 0F .. ldab #0f
9508 CA02 F7 0B C5 ... stab 0bc5
9509 CA05 20 52 R bra 52 ;goto51 - inc 0008 & clean exit
9511 CA07 F6 10 2F ../ ldab 102f ; read SCI data
9512 CA0A F7 0B C6 ... stab 0bc6
9513 CA0D F6 0B C6 ... ldab 0bc6
9514 CA10 C1 80 .. cmpb #80
9515 CA12 26 05 &. bne ca19
9516 CA14 C6 0F .. ldab #0f
9517 CA16 F7 0B C6 ... stab 0bc6
9518 CA19 20 3E > bra 3e ;goto51 - inc 0008 & clean exit
9520 ; read byte of data into 0bc7 - 0bce
9521 CA1B F6 10 2F ../ ldab 102f ; read SCI data
9522 CA1E F7 0B C7 ... stab 0bc7
9525 CA23 F6 10 2F ../ ldab 102f ; read SCI data
9526 CA26 F7 0B C8 ... stab 0bc8
9529 CA2B F6 10 2F ../ ldab 102f ; read SCI data
9530 CA2E F7 0B C9 ... stab 0bc9
9533 CA33 F6 10 2F ../ ldab 102f ; read SCI data
9534 CA36 F7 0B CA ... stab 0bca
9537 CA3B F6 10 2F ../ ldab 102f ; read SCI data
9538 CA3E F7 0B CB ... stab 0bcb
9541 CA43 F6 10 2F ../ ldab 102f ; read SCI data
9542 CA46 F7 0B CC ... stab 0bcc
9545 CA4B F6 10 2F ../ ldab 102f ; read SCI data
9546 CA4E F7 0B CD ... stab 0bcd
9549 CA53 F6 10 2F ../ ldab 102f ; read SCI data
9550 CA56 F7 0B CE ... stab 0bce
9552 CA59 7C 00 08 |.. inc 0008
9554 CA5C 7E CB DA ~.. jmp cbda ;goto48 (clean exit)
9557 CA5F F6 10 2F ../ ldab 102f ; read SCI data
9558 CA62 C4 EF .. andb #ef ; 11101111
9559 CA64 C1 E2 .. cmpb #e2 ; 11100010
9560 CA66 26 1A &. bne 1a ; if no match, to ca82
9561 CA68 CE 00 17 ... ldx #0017
9562 CA6B 1C 00 08 ... bset 00,x, #08
9563 CA6E CE 00 17 ... ldx #0017
9564 CA71 1C 00 04 ... bset 00,x, #04
9565 CA74 C6 01 .. ldab #01
9566 CA76 F7 00 08 ... stab 0008
9567 CA79 CE 0B C1 ... ldx #0bc1
9568 CA7C 1D 00 01 ... bclr 00,x, #01 ; clear card powerup error bit
9569 CA7F 7E CB DA ~.. jmp cbda ;goto48 (clean exit)
9571 CA82 F6 10 2F ../ ldab 102f ; read SCI data
9572 CA85 C4 02 .. andb #02
9573 CA87 27 03 '. beq 03 ; if bit is set then
9574 CA89 7E CB 6C ~.l jmp cb6c ; goto52
9575 CA8C F6 10 2F ../ ldab 102f ; read SCI data
9576 CA8F 2C 38 ,8 bge 38 ; if bit 7 unset, to cac9
9577 CA91 F6 00 17 ... ldab 0017
9578 CA94 C4 08 .. andb #08
9579 CA96 26 31 &1 bne 31
9580 CA98 F6 10 2F ../ ldab 102f ; read SCI data
9581 CA9B C4 78 .x andb #78 ; 01111000
9586 CAA1 C3 0B C7 ... addd #0bc7
9588 CAA5 E6 00 .. ldab 00,x
9592 CAAA F6 0B AA ... ldab 0baa
9594 CAAE BD FB BA ... jsr fbba ;jump38 - multiply?
9595 CAB1 F3 00 40 ..@ addd 0040
9596 CAB4 FD 00 40 ..@ std 0040
9597 CAB7 CE 00 1B ... ldx #001b
9598 CABA 1C 00 .. bset 00,x, #20
9599 CABD CE 00 1B ... ldx #001b
9600 CAC0 1D 00 40 ... bclr 00,x, #40
9601 CAC3 7F 00 25 ..% clr 0025
9602 CAC6 7E CB 64 ~.d jmp cb64 ;goto53 - cleanup & exit
9604 CAC9 F6 00 17 ... ldab 0017
9605 CACC C4 08 .. andb #08
9606 CACE 26 4A &J bne 4a ;to cb1a
9607 CAD0 F6 10 2F ../ ldab 102f ; read SCI data
9608 CAD3 C4 60 .` andb #60 ; 01100000
9609 CAD5 54 T lsrb ; ^^^^
9613 CAD9 C3 0B C7 ... addd #0bc7
9615 CADD E6 00 .. ldab 00,x
9619 CAE2 F6 0B AA ... ldab 0baa
9621 CAE6 BD FB BA ... jsr fbba ;jump38 - multiply?
9622 CAE9 FD 0B BD ... std 0bbd
9623 CAEC FC 0B BD ... ldd 0bbd
9624 CAEF F3 00 40 ..@ addd 0040
9625 CAF2 FD 00 40 ..@ std 0040
9626 CAF5 F6 00 21 ..! ldab 0021
9627 CAF8 C4 F8 .. andb #f8 ; 11111000
9629 CAFB F6 10 2F ../ ldab 102f ; read SCI data
9630 CAFE C4 1C .. andb #1c ; 00011100
9634 CB03 EA 00 .. orb 00,x ; or lower 3 bits with 0021
9636 CB06 F7 00 21 ..! stab 0021
9637 CB09 F6 10 2F ../ ldab 102f ; read SCI data
9638 CB0C F7 0B BC ... stab 0bbc
9639 CB0F CE 00 1B ... ldx #001b
9640 CB12 1D 00 40 .. bclr 00,x, #40
9641 CB15 7F 00 25 ..% clr 0025
9642 CB18 20 4A J bra 4a ;goto53 - more cleanups and exit
9644 CB1A F6 10 2F ../ ldab 102f ; read SCI data
9645 CB1D C4 E0 .. andb #e0 ; 11100000
9650 CB23 54 T lsrb ; shr5
9652 CB25 C3 0B C7 ... addd #0bc7
9654 CB29 E6 00 .. ldab 00,x
9658 CB2E F6 0B AA ... ldab 0baa
9660 CB32 BD FB BA ... jsr fbba ;jump38 - multiply?
9661 CB35 FD 0B BD ... std 0bbd
9662 CB38 FC 0B BD ... ldd 0bbd
9663 CB3B F3 00 40 ..@ addd 0040
9664 CB3E FD 00 40 ..@ std 0040
9665 CB41 F6 00 21 ..! ldab 0021
9666 CB44 C4 F8 .. andb #f8
9668 CB47 F6 10 2F ../ ldab 102f ; read SCI data
9669 CB4A C4 1C .. andb #1c
9673 CB4F EA 00 .. orb 00,x
9675 CB52 F7 00 21 ..! stab 0021
9676 CB55 F6 10 2F ../ ldab 102f ; read SCI data
9677 CB58 F7 0B BC ... stab 0bbc
9678 CB5B CE 00 1B ... ldx #001b
9679 CB5E 1D 00 40 ... bclr 00,x, #40
9680 CB61 7F 00 25 ..% clr 0025
9681 goto53: ; more cleanups and exit
9682 CB64 7F 00 2C .., clr 002c
9683 CB67 7F 00 3A ..: clr 003a
9684 CB6A 20 6E n bra 6e ; to cbda - cleanup and exit
9686 CB6C F6 10 2F ../ ldab 102f ; read SCI data
9687 CB6F C4 03 .. andb #03
9688 CB71 C1 02 .. cmpb #02
9689 CB73 26 0F &. bne 0f ; to bc84
9690 CB75 F6 00 21 ..! ldab 0021
9691 CB78 C4 08 .. andb #08
9692 CB7A 27 08 '. beq 08
9693 CB7C CE 00 21 ..! ldx #0021
9694 CB7F 1C 00 10 ... bset 00,x, #10
9695 CB82 20 56 V bra 56 ;goto48 - cleanup and exit
9697 CB84 F6 10 2F ../ ldab 102f ; read SCI data
9698 CB87 C4 EF .. andb #ef ; 11101111
9699 CB89 C1 E3 .. cmpb #e3 ; 11100111
9700 CB8B 26 08 &. bne 08 ; to cb95
9701 CB8D CE 0B C1 ... ldx #0bc1
9702 CB90 1D 00 02 ... bclr 00,x, #02 ; clear card powerup error bit
9703 CB93 20 45 E bra 45 ;goto48 - cleanup and exit
9705 ; this could be the coin mech powerup message?
9706 CB95 F6 10 2F ../ ldab 102f ; read SCI data
9707 CB98 C4 EF .. andb #ef ; 11101111
9708 CB9A C1 63 .c cmpb #63 ; 01101110
9709 CB9C 26 1C &. bne 1c ; to cbba
9710 CB9E CE 0B C1 ... ldx #0bc1 ; clear changer powerup error bit
9711 CBA1 1D 00 01 ... bclr 00,x, #01
9712 CBA4 F6 0B C0 ... ldab 0bc0
9713 CBA7 C4 01 .. andb #01 ; do we have a changer?
9714 CBA9 27 0D '. beq 0d ; to cbb8 - cleanup & exit
9715 CBAB F6 0B C0 ... ldab 0bc0
9716 CBAE C4 04 .. andb #04 ; if we don't have a card reader, we don't have an error reading from it. duh.
9717 CBB0 27 06 '. beq 06 ; to cbb8
9718 CBB2 CE 0B C1 ... ldx #0bc1
9719 CBB5 1D 00 02 ... bclr 00,x, #02 ; clear card powerup error bit
9720 CBB8 20 20 bra 20 ;goto48 - cleanup & exit
9722 ; the coin mech is telling us it has a bad sensor
9723 CBBA F6 10 2F ../ ldab 102f ; read SCI data
9724 CBBD C4 EF .. andb #ef ; 11101111
9725 CBBF C1 67 .g cmpb #67 ; 01100111
9726 CBC1 26 08 &. bne 08 ; to cbcb
9727 CBC3 CE 0B C1 ... ldx #0bc1
9728 CBC6 1C 00 .. bset 00,x, #20 ; set bad sensor error bit
9729 CBC9 20 0F bra 0f ;goto48 - cleanup & exit
9731 CBCB F6 10 2F ../ ldab 102f ; read SCI data
9732 CBCE C4 EF .. andb #ef ; 11101111
9733 CBD0 C1 27 .' cmpb #27 ; 00100111
9734 CBD2 26 06 &. bne 06 ;goto48 - cleanup & exit
9736 CBD4 CE 0B C1 ... ldx #0bc1 ; set coin jam error bit
9737 CBD7 1C 00 10 ... bset 00,x, #10
9738 goto48: ; cleanup and exit
9739 CBDA CE 00 1A ... ldx #001a
9740 CBDD 1C 00 02 ... bset 00,x, #02
9741 CBE0 F6 00 1A ... ldab 001a
9742 CBE3 F7 30 00 .0. stab 3000 ; changer send' high
9743 CBE6 F6 00 17 ... ldab 0017
9744 CBE9 C4 04 .. andb #04
9745 CBEB 26 05 &. bne 05 ; to cbf2
9746 CBED C6 06 .. ldab #06
9747 CBEF F7 00 07 ... stab 0007
9748 CBF2 F6 00 26 ..& ldab 0026 ; 0026 ~= 0026
9750 CBF6 F7 00 26 ..& stab 0026
9751 CBF9 7F 00 3D ..= clr 003d
9752 CBFC 7E CE 46 ~.F jmp ce46 ;goto47 (exit)
9771 CBFF F6 0B C0 ... ldab 0bc0 ; do we have our changer (link master)?
9772 CC02 C4 02 .. andb #02
9773 CC04 26 03 &. bne 03 ; if not, swallow & exit
9774 CC06 7E CE 3B ~.; jmp ce3b ; goto54 - swallow a byte & exit
9776 CC09 F6 10 2F ../ ldab 102f ; read SCI data
9777 CC0C C4 E0 .. andb #e0 ; 11100000
9778 CC0E C1 20 . cmpb #20 ; 00100000
9779 CC10 27 03 '. beq 03
9780 CC12 7E CE 3B ~.; jmp ce3b ;goto54 - swallow a byte & exit
9782 CC15 C6 32 .2 ldab #32 ; 50 00110010
9783 CC17 F7 00 2F ../ stab 002f
9784 CC1A CE 00 1B ... ldx #001b ; say we have a link master packet?
9785 CC1D 1C 00 02 ... bset 00,x, #02
9786 CC20 F6 10 2E ... ldab 102e ; SCI status
9787 CC23 C4 02 .. andb #02 ; test for Framing Error
9788 CC25 26 08 &. bne 08 ; if not, perform parity test. else to cc2f
9789 CC27 BD C7 C0 ... jsr c7c0 ;jump49 - parity test
9790 CC2A 83 00 00 ... subd #0000
9791 CC2D 26 0F &. bne 0f ; if good, to cc3e
9792 CC2F F6 10 2F ../ ldab 102f ; read SCI data
9794 CC33 E7 00 .. stab 00,x
9795 CC35 CC 00 FF ... ldd #00ff
9796 CC38 BD C7 E7 ... jsr c7e7 ;jump37 - send #FF to coin mech
9797 CC3B 7E CE 39 ~.9 jmp ce39 ;goto55 - exit
9799 CC3E F6 10 2F ../ ldab 102f ; read SCI data
9800 CC41 C1 3F .? cmpb #3f ; 00111111
9801 CC43 26 0A &. bne 0a ; to cc4f
9802 CC45 F6 00 43 ..C ldab 0043
9804 CC49 BD C7 E7 ... jsr c7e7 ;jump37 - send 0043 to coin mech - retry?
9805 CC4C 7E CE 39 ~.9 jmp ce39 ;goto55 - exit
9807 CC4F F6 00 08 ... ldab 0008 ; already in a packet?
9808 CC52 26 03 &. bne 03
9809 CC54 7E CD 94 ~.. jmp cd94 ;goto56
9811 CC57 F6 10 2F ../ ldab 102f ; read SCI data
9812 CC5A C4 F0 .. andb #f0 ; 11110000
9813 CC5C C1 20 . cmpb #20 ; 00100000 ; 4th bit clear
9814 CC5E 27 03 '. beq 03
9815 CC60 7E CD 94 ~.. jmp cd94 ;goto56
9816 CC63 F6 10 2F ../ ldab 102f ; read SCI data
9817 CC66 C4 0F .. andb #0f ; place lower nibble (data) onto stack var
9819 CC69 E7 00 .. stab 00,x
9820 CC6B F6 00 08 ... ldab 0008
9822 CC6F BD FE 16 ... jsr fe16 ;jump2
9823 CC72 00 01 00 07 . ; array data for jump2
9824 CC76 CD 7A . ; if 0008 == 9, clr 0008, 002c. else inc 0008, send #00 to coin mech
9825 CC78 CC 88 .. ; if 0017 sp=>0076, else sp=>0040, then same as above
9826 CC7A CC A2 .. ; if 0017 0076+=sp<<4, else 0040+=sp<<4, then same as above
9827 CC7C CC CA .. ; if 0017 0076+=sp<<8, else 0040+=sp<<8, then same as above
9828 CC7E CC EE .. ; if 0017 0076+=sp<<16, else 0040+=sp<16, then same as above
9829 CC80 CD 19 .. ; 0baa = sp, then same as above
9830 CC82 CD 21 . ; 0baa = sp<<4, then same as above
9831 CC83 CD 30 !. ; 0013 = sp, then same as above - location of dec point?
9832 CC85 CD 38 0 ; read byte & #01, - have change
9834 CC88 F6 00 17 ... ldab 0017
9835 CC8B C4 01 .. andb #01
9836 CC8D 27 09 '. beq 09 ; to cc98
9838 CC90 E6 00 .. ldab 00,x
9840 CC93 FD 00 76 ..v std 0076
9841 CC96 20 07 . bra 07 ; to cc9f
9843 CC99 E6 00 .. ldab 00,x
9845 CC9C FD 00 40 ..@ std 0040
9846 CC9F 7E CD 7A ~.z jmp cd7a ;goto57
9848 CCA2 F6 00 17 ... ldab 0017
9849 CCA5 C4 01 .. andb #01
9850 CCA7 27 10 '. beq 10 ; to ccb9
9852 CCAA E6 00 .. ldab 00,x
9858 CCB1 F3 00 76 ..v addd 0076
9859 CCB4 FD 00 76 ..v std 0076
9860 CCB7 20 0E . bra 0e ; to ccc7
9862 CCBA E6 00 .. ldab 00,x
9868 CCC1 F3 00 40 ..@ addd 0040
9869 CCC4 FD 00 40 ..@ std 0040
9870 CCC7 7E CD 7A ~.z jmp cd7a ;goto57
9872 CCCA F6 00 17 ... ldab 0017
9873 CCCD C4 01 .. andb #01
9874 CCCF 27 0E '. beq 0e ; to ccdf
9876 CCD2 E6 00 .. ldab 00,x
9880 CCD7 F3 00 76 ..v addd 0076
9881 CCDA FD 00 76 ..v std 0076
9882 CCDD 20 0C . bra 0c ; to cceb
9884 CCE0 E6 00 .. ldab 00,x
9888 CCE5 F3 00 40 ..@ addd 0040
9889 CCE8 FD 00 40 ..@ std 0040
9890 CCEB 7E CD 7A ~.z jmp cd7a ;goto57
9892 CCEE F6 00 17 ... ldab 0017
9893 CCF1 C4 01 .. andb #01
9894 CCF3 27 12 '. beq 12 ; to cd07
9896 CCF6 E6 00 .. ldab 00,x
9904 CCFF F3 00 76 ..v addd 0076
9905 CD02 FD 00 76 ..v std 0076
9906 CD05 20 10 . bra 10 ; to cd17
9908 CD08 E6 00 .. ldab 00,x
9916 CD11 F3 00 40 ..@ addd 0040
9917 CD14 FD 00 40 ..@ std 0040
9921 CD1A E6 00 .. ldab 00,x
9922 CD1C F7 0B AA ... stab 0baa
9923 CD1F 20 59 Y bra 59 ; to cd7a - goto57
9926 CD22 E6 00 .. ldab 00,x
9931 CD28 FB 0B AA ... addb 0baa
9932 CD2B F7 0B AA ... stab 0baa
9933 CD2E 20 4A J bra 4a ; to cd7a - goto57
9936 CD31 E6 00 .. ldab 00,x
9937 CD33 F7 00 13 ... stab 0013
9938 CD36 20 42 B bra 42 ; to cd7a - goto57
9941 ; coin mech has no change if bit is set (displays EXACT COINS ONLY)
9942 CD38 F6 10 2F ../ ldab 102f ; read SCI data
9943 CD3B C4 01 .. andb #01
9944 CD3D 27 08 '. beq 08 ; to cd47
9945 CD3F CE 00 21 ..! ldx #0021
9946 CD42 1C 00 40 ... bset 00,x, #40
9947 CD45 20 06 . bra 06 ; to cd4d
9948 CD47 CE 00 21 ..! ldx #0021
9949 CD4A 1D 00 40 ... bclr 00,x, #40
9951 CD4D F6 00 17 ... ldab 0017
9952 CD50 C4 01 .. andb #01
9953 CD52 27 17 '. beq 17 ; to cd6b
9954 CD54 F6 0B AA ... ldab 0baa
9958 CD5A FC 00 76 ..v ldd 0076
9959 CD5D BD FB BA ... jsr fbba ;jump38 - multiply?
9960 CD60 FD 00 76 ..v std 0076 ; 0076 *= 0baa
9961 CD63 CE 00 17 ... ldx #0017
9962 CD66 1D 00 01 ... bclr 00,x, #01
9963 CD69 20 0F . bra 0f ;goto57 - send byte & exit
9964 CD6B F6 0B AA ... ldab 0baa
9968 CD71 FC 00 40 ..@ ldd 0040
9969 CD74 BD FB BA ... jsr fbba ;jump38 - multiply?
9970 CD77 FD 00 40 ..@ std 0040 ; 0040 *= 0baa
9971 goto57: ; sends the byte, clearing the counter if its the 8th byte
9972 CD7A F6 00 08 ... ldab 0008
9973 CD7D C1 09 .. cmpb #09
9974 CD7F 26 08 &. bne 08
9975 CD81 7F 00 2C .., clr 002c
9976 CD84 7F 00 08 ... clr 0008
9978 CD89 7C 00 08 |.. inc 0008
9981 CD8E BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech
9982 CD91 7E CE 39 ~.9 jmp ce39 ;goto55 - exit
9984 CD94 F6 10 2F ../ ldab 102f ; read SCI data
9986 CD98 BD FE 32 ..2 jsr fe32 ;jump25
9987 CD9B CD B1 00 31 ...1 ; 49 "1" 00110001
9988 CD9F CD DB 00 01 .... ; 50 "2" 00110010
9989 CDA3 CE 20 00 01 . .. ; 51 "3" 00110011
9990 CDA7 CE 28 00 05 .(.. ; 56 "8" 00111000
9991 CDAB CE 34 FF C8 .4.. ; 0
9992 CDAF 00 00 .. ; end of array data
9994 ; got 00110001 - "1"
9995 CDB1 F6 00 21 ..! ldab 0021
9996 CDB4 2C 08 ,. bge 08 ; something to do with link master price holding
9997 CDB6 CC 00 80 ... ldd #0080
9998 CDB9 BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech
9999 CDBC 20 1B . bra 1b ; to cdd9 - exit
10002 CDC0 BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech
10003 CDC3 F6 00 1F ... ldab 001f
10004 CDC6 C4 08 .. andb #08
10005 CDC8 27 0C '. beq 0c
10006 CDCA F6 0B C0 ... ldab 0bc0
10007 CDCD C4 10 .. andb #10 ; have link master price holding
10008 CDCF 27 05 '. beq 05
10009 CDD1 7C 00 75 |.u inc 0075
10010 CDD4 20 03 . bra 03
10011 CDD6 7F 00 75 ..u clr 0075
10012 CDD9 20 5E ^ bra 5e ; to ce39 - exit
10014 ; got 00110001 - "2"
10015 CDDB F6 00 1D ... ldab 001d
10016 CDDE C4 02 .. andb #02
10017 CDE0 27 07 '. beq 07
10018 CDE2 F6 00 19 ... ldab 0019
10019 CDE5 C4 08 .. andb #08
10020 CDE7 26 19 &. bne 19
10021 CDE9 CC 00 FE ... ldd #00fe
10022 CDEC BD C7 E7 ... jsr c7e7 ;jump37 - send #fe to coin mech
10023 CDEF F6 00 1F ... ldab 001f
10024 CDF2 C4 08 .. andb #08
10025 CDF4 27 0A '. beq 0a ; to ce00, to exit
10026 CDF6 F6 0B C0 ... ldab 0bc0
10027 CDF9 C4 10 .. andb #10 ; have link master price holding
10028 CDFB 27 03 '. beq 03
10029 CDFD 7C 00 75 |.u inc 0075
10030 CE00 20 1C . bra 1c ; to ce1e, to ce39, exit
10032 CE02 FC 00 44 ..D ldd 0044
10035 CE07 F6 0B AA ... ldab 0baa
10041 CE0F BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech
10042 CE12 CE 00 19 ... ldx #0019
10043 CE15 1D 00 08 ... bclr 00,x, #08
10044 CE18 CE 00 1F ... ldx #001f
10045 CE1B 1C 00 08 ... bset 00,x, #08
10046 CE1E 20 19 . bra 19 ; to ce39, exit
10048 ; got 00110001 - "3"
10049 CE20 CE 00 1D ... ldx #001d
10050 CE23 1D 00 02 ... bclr 00,x, #02
10051 CE26 20 11 . bra 11
10053 ; got 00110001 - "8"
10054 CE28 C6 01 .. ldab #01
10055 CE2A F7 00 08 ... stab 0008
10058 CE2F BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech
10059 CE32 20 05 . bra 05
10063 CE36 BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech
10065 CE39 20 0B . bra 0b ; to ce46 (exit)
10066 goto54: ; just swallow a byte?
10067 CE3B F6 10 2E ... ldab 102e ; SCI Status
10069 CE3F E7 00 .. stab 00,x ; store into stack variable
10070 CE41 F6 10 2F ../ ldab 102f ; read SCI data
10071 CE44 E7 00 .. stab 00,x
10078 CE48 F6 0B C4 ... ldab 0bc4
10079 CE4B F1 0B C5 ... cmpb 0bc5
10080 CE4E 25 53 %S bcs 53 ; if 0bc4 < 0bc5 to cea3
10081 CE50 F6 0B C5 ... ldab 0bc5
10082 CE53 F1 0B C6 ... cmpb 0bc6
10083 CE56 25 4B %K bcs 4b ; if 0bc5 < 0bc6 to cea3
10084 ; so here we have 0bc6 < 0bc5 < 0bc4
10085 CE58 F6 0B C4 ... ldab 0bc4
10087 CE5C C3 0B C7 ... addd #0bc7
10089 CE60 E6 00 .. ldab 00,x
10091 CE63 FD 0B DD ... std 0bdd
10092 CE66 F6 0B C5 ... ldab 0bc5
10094 CE6A C3 0B C7 ... addd #0bc7
10096 CE6E E6 00 .. ldab 00,x
10098 CE71 FD 0B DF ... std 0bdf
10099 CE74 F6 0B C6 ... ldab 0bc6
10101 CE78 C3 0B C7 ... addd #0bc7
10103 CE7C E6 00 .. ldab 00,x
10105 CE7F FD 0B E1 ... std 0be1
10106 CE82 C6 01 .. ldab #01
10107 CE84 F7 0B D7 ... stab 0bd7
10108 CE87 C6 04 .. ldab #04
10109 CE89 F7 0B D8 ... stab 0bd8
10110 CE8C C6 02 .. ldab #02
10111 CE8E F7 0B D9 ... stab 0bd9
10112 CE91 C6 20 . ldab #20
10113 CE93 F7 0B DA ... stab 0bda
10114 CE96 C6 08 .. ldab #08
10115 CE98 F7 0B DB ... stab 0bdb
10116 CE9B C6 10 .. ldab #10
10117 CE9D F7 0B DC ... stab 0bdc
10118 CEA0 7E D0 66 ~.f jmp d066 ;goto58 - multiply & exit
10120 CEA3 F6 0B C4 ... ldab 0bc4
10121 CEA6 F1 0B C6 ... cmpb 0bc6
10122 CEA9 25 53 %S bcs 53 ; if 0bc4 < 0bc6 to cefe
10123 CEAB F6 0B C6 ... ldab 0bc6
10124 CEAE F1 0B C5 ... cmpb 0bc5
10125 CEB1 25 4B %K bcs 4b ; if 0bc6 < 0bc5 to cefe
10126 ; so here we have 0bc5 < 0bc6 < 0bc4
10127 CEB3 F6 0B C4 ... ldab 0bc4
10129 CEB7 C3 0B C7 ... addd #0bc7
10131 CEBB E6 00 .. ldab 00,x
10133 CEBE FD 0B DD ... std 0bdd
10134 CEC1 F6 0B C6 ... ldab 0bc6
10136 CEC5 C3 0B C7 ... addd #0bc7
10138 CEC9 E6 00 .. ldab 00,x
10140 CECC FD 0B DF ... std 0bdf
10141 CECF F6 0B C5 ... ldab 0bc5
10143 CED3 C3 0B C7 ... addd #0bc7
10145 CED7 E6 00 .. ldab 00,x
10147 CEDA FD 0B E1 ... std 0be1
10148 CEDD C6 01 .. ldab #01
10149 CEDF F7 0B D7 ... stab 0bd7
10150 CEE2 C6 02 .. ldab #02
10151 CEE4 F7 0B D8 ... stab 0bd8
10152 CEE7 C6 04 .. ldab #04
10153 CEE9 F7 0B D9 ... stab 0bd9
10154 CEEC C6 20 . ldab #20
10155 CEEE F7 0B DA ... stab 0bda
10156 CEF1 C6 10 .. ldab #10
10157 CEF3 F7 0B DB ... stab 0bdb
10158 CEF6 C6 08 .. ldab #08
10159 CEF8 F7 0B DC ... stab 0bdc
10160 CEFB 7E D0 66 ~.f jmp d066 ;goto58 - multiply and exit
10162 CEFE F6 0B C5 ... ldab 0bc5
10163 CF01 F1 0B C4 ... cmpb 0bc4
10164 CF04 25 53 %S bcs 53 ; if 0bc5 < 0bc4 to cf59
10165 CF06 F6 0B C4 ... ldab 0bc4
10166 CF09 F1 0B C6 ... cmpb 0bc6
10167 CF0C 25 4B %K bcs 4b ; if 0bc4 < 0bc6 to cf59
10168 ; so here we have 0bc6 < 0bc4 < 0bc5
10169 CF0E F6 0B C5 ... ldab 0bc5
10171 CF12 C3 0B C7 ... addd #0bc7
10173 CF16 E6 00 .. ldab 00,x
10175 CF19 FD 0B DD ... std 0bdd
10176 CF1C F6 0B C4 ... ldab 0bc4
10178 CF20 C3 0B C7 ... addd #0bc7
10180 CF24 E6 00 .. ldab 00,x
10182 CF27 FD 0B DF ... std 0bdf
10183 CF2A F6 0B C6 ... ldab 0bc6
10185 CF2E C3 0B C7 ... addd #0bc7
10187 CF32 E6 00 .. ldab 00,x
10189 CF35 FD 0B E1 ... std 0be1
10190 CF38 C6 04 .. ldab #04
10191 CF3A F7 0B D7 ... stab 0bd7
10192 CF3D C6 01 .. ldab #01
10193 CF3F F7 0B D8 ... stab 0bd8
10194 CF42 C6 02 .. ldab #02
10195 CF44 F7 0B D9 ... stab 0bd9
10196 CF47 C6 08 .. ldab #08
10197 CF49 F7 0B DA ... stab 0bda
10198 CF4C C6 20 . ldab #20
10199 CF4E F7 0B DB ... stab 0bdb
10200 CF51 C6 10 .. ldab #10
10201 CF53 F7 0B DC ... stab 0bdc
10202 CF56 7E D0 66 ~.f jmp d066 ;goto58 - multiply and exit
10204 CF59 F6 0B C5 ... ldab 0bc5
10205 CF5C F1 0B C6 ... cmpb 0bc6
10206 CF5F 25 53 %S bcs 53 ; if 0bc5 < 0bc6 to cfb4
10207 CF61 F6 0B C6 ... ldab 0bc6
10208 CF64 F1 0B C4 ... cmpb 0bc4
10209 CF67 25 4B %K bcs 4b ; if 0bc6 < 0bc4 to cfb4
10210 ; so here we have 0bc4 < 0bc6 < 0bc5
10211 CF69 F6 0B C5 ... ldab 0bc5
10213 CF6D C3 0B C7 ... addd #0bc7
10215 CF71 E6 00 .. ldab 00,x
10217 CF74 FD 0B DD ... std 0bdd
10218 CF77 F6 0B C6 ... ldab 0bc6
10220 CF7B C3 0B C7 ... addd #0bc7
10222 CF7F E6 00 .. ldab 00,x
10224 CF82 FD 0B DF ... std 0bdf
10225 CF85 F6 0B C4 ... ldab 0bc4
10227 CF89 C3 0B C7 ... addd #0bc7
10229 CF8D E6 00 .. ldab 00,x
10231 CF90 FD 0B E1 ... std 0be1
10232 CF93 C6 04 .. ldab #04
10233 CF95 F7 0B D7 ... stab 0bd7
10234 CF98 C6 02 .. ldab #02
10235 CF9A F7 0B D8 ... stab 0bd8
10236 CF9D C6 01 .. ldab #01
10237 CF9F F7 0B D9 ... stab 0bd9
10238 CFA2 C6 08 .. ldab #08
10239 CFA4 F7 0B DA ... stab 0bda
10240 CFA7 C6 10 .. ldab #10
10241 CFA9 F7 0B DB ... stab 0bdb
10242 CFAC C6 20 . ldab #20
10243 CFAE F7 0B DC ... stab 0bdc
10244 CFB1 7E D0 66 ~.f jmp d066 ;goto58 - multiply and exit
10246 CFB4 F6 0B C6 ... ldab 0bc6
10247 CFB7 F1 0B C4 ... cmpb 0bc4
10248 CFBA 25 52 %R bcs 52 ; if 0bc6 < 0bc4 to d00e
10249 CFBC F6 0B C4 ... ldab 0bc4
10250 CFBF F1 0B C5 ... cmpb 0bc5
10251 CFC2 25 4A %J bcs 4a ; if 0bc4 < 0bc5 to d00e
10252 ; so here we have 0bc5 < 0bc4 < 0bc6
10253 CFC4 F6 0B C6 ... ldab 0bc6
10255 CFC8 C3 0B C7 ... addd #0bc7
10257 CFCC E6 00 .. ldab 00,x
10259 CFCF FD 0B DD ... std 0bdd
10260 CFD2 F6 0B C4 ... ldab 0bc4
10262 CFD6 C3 0B C7 ... addd #0bc7
10264 CFDA E6 00 .. ldab 00,x
10266 CFDD FD 0B DF ... std 0bdf
10267 CFE0 F6 0B C5 ... ldab 0bc5
10269 CFE4 C3 0B C7 ... addd #0bc7
10271 CFE8 E6 00 .. ldab 00,x
10273 CFEB FD 0B E1 ... std 0be1
10274 CFEE C6 02 .. ldab #02
10275 CFF0 F7 0B D7 ... stab 0bd7
10276 CFF3 C6 01 .. ldab #01
10277 CFF5 F7 0B D8 ... stab 0bd8
10278 CFF8 C6 04 .. ldab #04
10279 CFFA F7 0B D9 ... stab 0bd9
10280 CFFD C6 10 .. ldab #10
10281 CFFF F7 0B DA ... stab 0bda
10282 D002 C6 20 . ldab #20
10283 D004 F7 0B DB ... stab 0bdb
10284 D007 C6 08 .. ldab #08
10285 D009 F7 0B DC ... stab 0bdc
10286 D00C 20 58 X bra 58 ;goto58 - multiply and exit
10288 ; we know that 0bc4 < 0bc5 < 0bc6
10289 D00E F6 0B C6 ... ldab 0bc6
10290 D011 F1 0B C5 ... cmpb 0bc5
10291 D014 25 50 %P bcs 50
10292 D016 F6 0B C5 ... ldab 0bc5
10293 D019 F1 0B C4 ... cmpb 0bc4
10294 D01C 25 48 %H bcs 48
10295 D01E F6 0B C6 ... ldab 0bc6
10297 D022 C3 0B C7 ... addd #0bc7
10299 D026 E6 00 .. ldab 00,x
10301 D029 FD 0B DD ... std 0bdd
10302 D02C F6 0B C5 ... ldab 0bc5
10304 D030 C3 0B C7 ... addd #0bc7
10306 D034 E6 00 .. ldab 00,x
10308 D037 FD 0B DF ... std 0bdf
10309 D03A F6 0B C4 ... ldab 0bc4
10311 D03E C3 0B C7 ... addd #0bc7
10313 D042 E6 00 .. ldab 00,x
10315 D045 FD 0B E1 ... std 0be1
10316 D048 C6 02 .. ldab #02
10317 D04A F7 0B D7 ... stab 0bd7
10318 D04D C6 04 .. ldab #04
10319 D04F F7 0B D8 ... stab 0bd8
10320 D052 C6 01 .. ldab #01
10321 D054 F7 0B D9 ... stab 0bd9
10322 D057 C6 10 .. ldab #10
10323 D059 F7 0B DA ... stab 0bda
10324 D05C C6 08 .. ldab #08
10325 D05E F7 0B DB ... stab 0bdb
10326 D061 C6 20 . ldab #20
10327 D063 F7 0B DC ... stab 0bdc ;goto58 - multiply and exit
10330 D066 F6 0B AA ... ldab 0baa
10334 D06C FC 0B DD ... ldd 0bdd
10335 D06F BD FB BA ... jsr fbba ;jump38 - multiply?
10336 D072 FD 0B DD ... std 0bdd
10337 D075 F6 0B AA ... ldab 0baa
10341 D07B FC 0B DF ... ldd 0bdf
10342 D07E BD FB BA ... jsr fbba ;jump38 - multiply?
10343 D081 FD 0B DF ... std 0bdf
10344 D084 F6 0B AA ... ldab 0baa
10348 D08A FC 0B E1 ... ldd 0be1
10349 D08D BD FB BA ... jsr fbba ;jump38 - multiply?
10350 D090 FD 0B E1 ... std 0be1
10354 ; initializes a big bunch of variables
10358 D096 6F 00 o. clr 00,x
10361 D099 E6 00 .. ldab 00,x
10362 D09B C1 10 .. cmpb #10
10363 D09D 24 1B $. bcc 1b ; to d0ba
10364 ; read memloc of b0c3+i
10366 D0A0 E6 00 .. ldab 00,x
10368 D0A3 C3 B0 C3 ... addd #b0c3
10370 D0A7 E6 00 .. ldab 00,x
10372 ; put value of that location into 0bc7+i
10374 D0AB E6 01 .. ldab 01,x
10376 D0AE C3 0B C7 ... addd #0bc7
10379 D0B3 E7 00 .. stab 00,x
10382 D0B6 6C 00 l. inc 00,x
10383 D0B8 20 DE . bra de ; to d098
10385 D0BA C6 05 .. ldab #05
10386 D0BC F7 0B AA ... stab 0baa
10387 D0BF C6 04 .. ldab #04
10388 D0C1 F7 00 13 ... stab 0013
10389 D0C4 C6 01 .. ldab #01
10390 D0C6 F7 0B C4 ... stab 0bc4
10391 D0C9 C6 03 .. ldab #03
10392 D0CB F7 0B C5 ... stab 0bc5
10393 D0CE C6 02 .. ldab #02
10394 D0D0 F7 0B C6 ... stab 0bc6
10395 D0D3 CC 00 19 ... ldd #0019 ; 25
10396 D0D6 FD 0B DD ... std 0bdd
10397 D0D9 CC 00 0A ... ldd #000a ; 10
10398 D0DC FD 0B DF ... std 0bdf
10399 D0DF CC 00 05 ... ldd #0005 ; 5
10400 D0E2 FD 0B E1 ... std 0be1
10401 D0E5 C6 01 .. ldab #01
10402 D0E7 F7 0B D7 ... stab 0bd7
10403 D0EA C6 02 .. ldab #02
10404 D0EC F7 0B D8 ... stab 0bd8
10405 D0EF C6 04 .. ldab #04
10406 D0F1 F7 0B D9 ... stab 0bd9
10407 D0F4 C6 20 . ldab #20
10408 D0F6 F7 0B DA ... stab 0bda
10409 D0F9 C6 10 .. ldab #10
10410 D0FB F7 0B DB ... stab 0bdb
10411 D0FE C6 08 .. ldab #08
10412 D100 F7 0B DC ... stab 0bdc
10417 ; turns all motors off
10419 D106 CE 00 1A ... ldx #001a
10420 D109 1C 00 80 .. bset 00,x, #80
10421 D10C F6 00 1A .. ldab 001a
10422 D10F F7 30 00 .0. stab 3000 ; motor rows off
10423 D112 C6 C8 .. ldab #c8 ; loop of 200 - short delay
10425 D115 E7 00 .. stab 00,x
10427 D118 E6 00 .. ldab 00,x
10428 D11A C1 00 .. cmpb #00
10429 D11C 23 05 #. bls 05 ; to d123
10431 D11F 6A 00 j. dec 00,x
10432 D121 20 F4 . bra f4 ; to d117
10434 D123 CE 10 00 ... ldx #1000
10435 D126 1C 00 40 .. bset 00,x, #40 ; motor columns off
10436 D129 CE 00 14 ... ldx #0014
10437 D12C 1D 00 20 .. bclr 00,x, #20 ; motors col 8 off
10438 D12F CE 00 14 . ldx #0014
10439 D132 1D 00 40 .. bclr 00,x, #40 ; motors col 9 off
10440 D135 F6 00 14 ... ldab 0014
10441 D138 F7 38 00 .8. stab 3800 ; motors off
10446 ; turn on the motor of the slot given in memory location 0006
10447 D13D F6 00 06 ... ldab 0006
10449 D141 CE 00 0A ... ldx #000a
10452 D146 CB 01 .. addb #01 ; we live in an odd world?
10453 D148 F7 00 5F .._ stab 005f ; slot number /10
10454 D14B F6 00 06 ... ldab 0006
10456 D14F CE 00 0A ... ldx #000a
10458 D153 F7 00 5E ..^ stab 005e ; slot number%10
10459 D156 F6 00 5E ..^ ldab 005e
10460 D159 C1 05 .. cmpb #05 ; there is not row 5
10461 D15B 23 03 #. bls 03
10462 D15D 7A 00 5E z.^ dec 005e ; make it row 4
10463 D160 F6 00 5E ..^ ldab 005e
10465 D164 C3 B1 23 ..# addd #b123 ; powers of 2
10467 D168 E6 00 .. ldab 00,x
10471 D16D F6 00 5F .._ ldab 005f
10473 D171 C3 B1 23 ..# addd #b123 ; powers of 2
10475 D175 E6 00 .. ldab 00,x
10480 D17B E3 00 .. addd 00,x
10482 D17E FD 00 58 ..X std 0058
10485 D181 7F 00 1C ... clr 001c
10487 D184 F6 00 1C ... ldab 001c
10488 D187 C1 10 .. cmpb #10
10489 D189 24 37 $7 bcc 37 ; to d1c2
10490 D18B F6 00 58 ..X ldab 0058
10491 D18E 2C 0E ,. bge 0e ; to d19e
10493 D190 CE 00 14 ... ldx #0014
10494 D193 1C 00 10 ... bset 00,x, #10
10495 D196 F6 00 14 ... ldab 0014
10496 D199 F7 38 00 .8. stab 3800 ; set high motor serial data
10497 D19C 20 0C . bra 0c ; to d1aa
10499 D19E CE 00 14 ... ldx #0014
10500 D1A1 1D 00 10 .. bclr 00,x, #10
10501 D1A4 F6 00 14 ... ldab 0014
10502 D1A7 F7 38 00 .8. stab 3800 ; set low motor serial data
10504 ; send a clock pulse
10505 D1AA CE 10 00 ... ldx #1000
10506 D1AD 1C 00 20 .. bset 00,x, #20
10507 D1B0 CE 10 00 . ldx #1000
10508 D1B3 1D 00 .. bclr 00,x, #20
10510 ; get the next bit ready to send
10511 D1B6 FC 00 58 . ldd 0058
10513 D1BA FD 00 58 ..X std 0058
10514 D1BD 7C 00 1C |.. inc 001c
10515 D1C0 20 C2 . bra c2
10516 ; if this is column 8 (9 for pascal programmers ;)
10517 D1C2 F6 00 5F .._ ldab 005f
10518 D1C5 C1 09 .. cmpb #09
10519 D1C7 26 0E &. bne 0e ; to d1d7
10520 D1C9 CE 00 14 ... ldx #0014
10521 D1CC 1C 00 20 ... bset 00,x, #20
10522 D1CF F6 00 14 . ldab 0014
10523 D1D2 F7 38 00 .8. stab 3800 ; say its column 8
10524 D1D5 20 13 . bra 13 ; to d1ea
10525 ; if this is column 9 (denoted as 10)
10526 D1D7 F6 00 5F .._ ldab 005f
10527 D1DA C1 0A .. cmpb #0a
10528 D1DC 26 0C &. bne 0c
10529 D1DE CE 00 14 ... ldx #0014
10530 D1E1 1C 00 40 .. bset 00,x, #40 ; say its column 9
10531 D1E4 F6 00 14 ... ldab 0014
10532 D1E7 F7 38 00 .8. stab 3800
10533 ; clear the motor clock
10534 D1EA CE 10 00 ... ldx #1000
10535 D1ED 1D 00 40 .. bclr 00,x, #40 ; motor clock line low
10536 ; clear motor row output enable
10537 D1F0 CE 00 1A ... ldx #001a
10538 D1F3 1D 00 .. bclr 00,x, #80
10539 D1F6 F6 00 1A ... ldab 001a
10540 D1F9 F7 30 00 .0. stab 3000 ; motor driver outputs enable
10544 D1FD CC 40 00 .@. ldd #4000
10547 D202 F6 00 06 ... ldab 0006
10550 D207 C3 08 00 ... addd #0800
10553 D20C AA 00 .. ora 00,x
10554 D20E EA 01 .. orb 01,x
10555 D210 ED 00 .. std 00,x
10559 ; dispense an item from slot 0006
10560 D213 F6 00 1F ... ldab 001f
10561 D216 C4 04 .. andb #04
10562 D218 26 12 &. bne 12 ; to d22c
10563 D21A F6 0B C0 ... ldab 0bc0
10564 D21D C4 10 .. andb #10 ; have link master price holding
10565 D21F 26 0B &. bne 0b ; to d22c
10566 D221 CE 00 00 ... ldx #0000
10568 D225 FC 00 44 ..D ldd 0044
10569 D228 BD BE 9E ... jsr be9e ;jump50 - write slot & price to screen?
10572 D22C BD D3 11 ... jsr d311 ;jump30 - test position exists
10573 D22F 83 00 00 ... subd #0000
10574 D232 27 13 '. beq 13 ; to d247
10575 D234 F6 00 06 ... ldab 0006
10576 D237 BD D4 68 ..h jsr d468 ;jump51 - lookup in 0800 table & and with 8000
10577 D23A 83 00 00 ... subd #0000
10578 D23D 27 05 '. beq 05
10579 D23F 8D BC .. bsr bc ;jump90 - or entry in 0800 table of slot with #4000
10580 D241 BD D6 3C ..< jsr d63c ;jump33 - as above, but with #0400
10585 D247 BD D1 3D ..= jsr d13d ;jump34 - motor on
10586 D24A C6 3C .< ldab #3c ; 60
10587 D24C F7 00 2E ... stab 002e
10588 D24F C6 41 .A ldab #41 ; 65 01000001
10589 D251 F7 00 31 ..1 stab 0031
10590 D254 CE 00 1B ... ldx #001b
10591 D257 1D 00 08 ... bclr 00,x #08
10593 D25A F6 00 1B ... ldab 001b
10594 D25D C4 08 .. andb #08
10595 D25F 26 22 &" bne 22 ; to d283
10596 D261 F6 00 2E ... ldab 002e
10597 D264 C1 35 .5 cmpb #35 ; 53
10598 D266 23 10 #. bls 10 ; to d278
10599 D268 BD D5 70 ..p jsr d570 ;jump35 - check home sensor departed
10600 D26B 83 00 00 ... subd #0000
10601 D26E 27 06 '. beq 06 ; to d276
10602 D270 CE 00 1B ... ldx #001b
10603 D273 1C 00 08 ... bset 00,x, #08
10604 D276 20 0B . bra 0b ; to d283
10605 ; something went afoul. mark the motor as bad?
10606 D278 BD D1 05 ... jsr d105 ;motors_off
10607 D27B 8D 80 .. bsr 80 ;jump90 - mark motor as faulty?
10608 D27D BD D6 3C ..< jsr d63c ;jump33 - mark motor as faulty?
10613 D283 F6 00 2E ... ldab 002e
10614 D286 C1 36 .6 cmpb #36 ; 54
10615 D288 24 56 $V bcc 56 ; to d2e0
10616 D28A BD D5 F7 ... jsr d5f7 ;jump108 - check motor overcurrent
10617 D28D 83 00 00 ... subd #0000
10618 D290 27 4E 'N beq 4e ; to d2e0
10619 D292 BD D5 B0 ... jsr d5b0 ;jump31 - check home sensor returned
10620 D295 83 00 00 ... subd #0000
10621 D298 27 46 'F beq 46 ; to d2e0
10622 D29A BD D1 05 ... jsr d105 ;motors_off
10623 D29D F6 00 2E ... ldab 002e
10624 D2A0 C1 32 .2 cmpb #32 ; 50
10625 D2A2 22 07 ". bhi 07 ; to d2ab
10626 D2A4 8D 6B .k bsr 6b ;jump30 - test motor overvoltage?
10627 D2A6 83 00 00 ... subd #0000
10628 D2A9 27 0C '. beq 0c ; to d2b7
10629 D2AB BD D1 05 ... jsr d105 ;motors_off
10630 D2AE BD D1 FD ... jsr d1fd ;jump90 - mark motor as faulty?
10631 D2B1 BD D6 3C ..< jsr d63c ;jump33 - mark motor as faulty?
10636 D2B7 F6 00 06 ... ldab 0006
10638 D2BB C3 0E 06 ... addd #0e06
10640 D2BF 6C 00 l. inc 00,x
10641 D2C1 F6 00 06 ... ldab 0006
10643 D2C5 C3 0E 06 ... addd #0e06
10645 D2C9 E6 00 .. ldab 00,x
10646 D2CB C1 64 .d cmpb #64
10647 D2CD 23 0D #. bls 0d
10650 D2D1 F6 00 06 ... ldab 0006
10652 D2D5 C3 0E 06 ... addd #0e06
10655 D2DA E7 00 .. stab 00,x
10656 D2DC CC 00 01 ... ldd #0001
10659 D2E0 F6 00 2E ... ldab 002e
10660 D2E3 26 14 &. bne 14
10661 D2E5 BD D5 F7 ... jsr d5f7 ;jump108 - check motor overcurrent status
10662 D2E8 83 00 00 ... subd #0000
10663 D2EB 26 0C &. bne 0c
10664 D2ED BD D1 05 ... jsr d105 ;motors_off
10665 D2F0 BD D1 FD ... jsr d1fd ;jump90
10666 D2F3 BD D6 26 ..& jsr d626 ;jump91
10671 D2F9 F6 00 2E ... ldab 002e
10672 D2FC 26 0C &. bne 0c
10673 D2FE BD D1 05 ... jsr d105 ;motors_off
10674 D301 BD D1 FD ... jsr d1fd ;jump90
10675 D304 BD D6 3C ..< jsr d63c ;jump33
10680 D30A 7E D2 5A ~.Z jmp d25a ;goto59 - try again?
10681 D30D BD E6 1B ... jsr e61b ;jump4
10685 ; tests to see if a motor exists here
10686 D311 BD D1 3D ..= jsr d13d ;jump34 - motor on
10687 D314 7F 00 1C ... clr 001c
10688 D317 7F 00 18 ... clr 0018
10690 D31A F6 10 0A ... ldab 100a
10691 D31D C4 02 .. andb #02 ; motor overvoltage sense
10692 D31F 27 13 '. beq 13 ; to d334
10693 D321 7C 00 1C |.. inc 001c
10694 D324 F6 00 1C ... ldab 001c
10695 D327 C1 FF .. cmpb #ff
10696 D329 26 07 &. bne 07 ; continue
10697 D32B BD D1 05 ... jsr d105 ;motors_off
10698 D32E CC 00 01 ... ldd #0001
10701 D332 20 10 . bra 10 ; to d344
10702 D334 7C 00 18 |.. inc 0018
10703 D337 F6 00 18 ... ldab 0018
10704 D33A C1 08 .. cmpb #08
10705 D33C 26 06 &. bne 06 ; continue
10706 D33E BD D1 05 ... jsr d105 ;motors_off
10710 D344 20 D4 . bra d4 ; continue
10717 D34A F6 0E 6D ..m ldab 0e6d
10718 D34D C1 01 .. cmpb #01
10719 D34F 27 03 '. beq 03
10720 D351 7E D4 07 ~.. jmp d407 ;goto60
10721 D354 F6 00 06 ... ldab 0006
10724 D359 C3 08 C8 ... addd #08c8
10726 D35D EC 00 .. ldd 00,x
10727 D35F C4 7F .. andb #7f
10729 D362 FD 0E 6B ..k std 0e6b
10730 D365 7F 00 06 ... clr 0006
10732 D368 F6 00 06 ... ldab 0006
10733 D36B C1 3E .> cmpb #3e
10734 D36D 26 03 &. bne 03
10735 D36F 7E D4 02 ~.. jmp d402 ;goto61
10736 D372 BD 97 6F ..o jsr 976f ;jump41
10737 D375 F6 00 06 ... ldab 0006
10740 D37A C3 08 C8 ... addd #08c8
10742 D37E EC 00 .. ldd 00,x
10743 D380 C4 7F .. andb #7f
10745 D383 B3 0E 6B ..k subd 0e6b
10746 D386 26 77 &w bne 77
10747 D388 F6 00 06 ... ldab 0006
10749 D38C CE 00 0A ... ldx #000a
10752 D391 E7 01 .. stab 01,x
10753 D393 E6 01 .. ldab 01,x
10754 D395 C1 01 .. cmpb #01
10755 D397 26 07 &. bne 07
10756 D399 C6 40 .@ ldab #40
10758 D39C E7 00 .. stab 00,x
10759 D39E 20 0C . bra 0c
10761 D3A1 E6 01 .. ldab 01,x
10762 D3A3 C1 02 .. cmpb #02
10763 D3A5 26 05 &. bne 05
10764 D3A7 C6 80 .. ldab #80
10766 D3AA E7 00 .. stab 00,x
10767 D3AC BD D1 3D ..= jsr d13d ;jump34 - motor on
10771 D3B2 ED 03 .. std 03,x
10772 ;look at the home sensors for this row. If it is 0, increment 03/04 else
10773 ;decrement 03/05. Do this 10 times.
10774 D3B4 CC 00 0A ... ldd #000a
10775 D3B7 ED 05 .. std 05,x
10778 D3BA EC 05 .. ldd 05,x
10779 D3BC 2F 23 /# ble 23 ; to D3E1
10780 D3BE F6 28 00 .(. ldab 2800 ;snack motor home sensors
10782 D3C2 E4 00 .. andb 00,x
10783 D3C4 26 09 &. bne d3cf
10785 D3C7 6C 04 l. inc 04,x
10786 D3C9 26 0C &. bne 0c
10787 D3CB 6C 03 l. inc 03,x
10788 D3CD 20 08 . bra d3d7
10790 D3D0 EC 03 .. ldd 03,x
10791 D3D2 83 00 01 ... subd #0001
10792 D3D5 ED 03 .. std 03,x
10794 D3D8 EC 05 .. ldd 05,x
10795 D3DA 83 00 01 ... subd #0001
10796 D3DD ED 05 .. std 05,x
10797 D3DF 20 D8 . bra loop ;d3b9
10798 D3E1 BD D1 05 ... jsr d105 ;motors_off - turn motors off
10800 D3E5 EC 03 .. ldd 03,x
10801 D3E7 2C 16 ,. bge 16
10802 D3E9 F6 00 06 ... ldab 0006
10803 D3EC 8D 7A .z bsr dest 7a
10804 D3EE 83 00 00 ... subd #0000
10805 D3F1 27 0C '. beq 0c
10806 D3F3 BD D5 61 ..a jsr d561 ;jump42
10807 D3F6 83 00 00 ... subd #0000
10808 D3F9 26 04 &. bne 04
10811 D3FD 20 64 d bra 64
10812 D3FF 7E D3 68 ~.h jmp d368 ;goto62
10814 D402 CC 00 01 ... ldd #0001
10815 D405 20 5C \ bra 5c
10817 D407 F6 00 06 ... ldab 0006
10818 D40A C1 13 .. cmpb #13
10819 D40C 27 1C '. beq 1c
10820 D40E F6 00 06 ... ldab 0006
10821 D411 C1 1D .. cmpb #1d
10822 D413 27 15 '. beq 15
10823 D415 F6 00 06 ... ldab 0006
10824 D418 C1 27 .' cmpb #27
10825 D41A 27 0E '. beq 0e
10826 D41C F6 00 06 ... ldab 0006
10827 D41F C1 31 .1 cmpb #31
10828 D421 27 07 '. beq 07
10829 D423 F6 00 06 ... ldab 0006
10830 D426 C1 3B .; cmpb #3b
10831 D428 26 37 &7 bne 37
10832 D42A BD D1 3D ..= jsr d13d ;jump34 - motor on
10833 D42D 7F 00 1C ... clr 001c
10834 D430 7F 00 18 ... clr 0018
10835 D433 F6 18 00 ... ldab 1800
10836 D436 C4 40 .@ andb #40
10837 D438 26 14 &. bne 14
10838 D43A 7C 00 1C |.. inc 001c
10839 D43D F6 00 1C ... ldab 001c
10840 D440 C1 FF .. cmpb #ff
10841 D442 26 08 &. bne 08
10842 D444 BD D1 05 ... jsr d105 ;motors_off
10843 D447 CC 00 01 ... ldd #0001
10844 D44A 20 17 . bra 17
10845 D44C 20 11 . bra 11
10846 D44E 7C 00 18 |.. inc 0018
10847 D451 F6 00 18 ... ldab 0018
10848 D454 C1 08 .. cmpb #08
10849 D456 26 07 &. bne 07
10850 D458 BD D1 05 ... jsr d105 ;motors_off
10853 D45D 20 04 . bra 04
10854 D45F 20 D2 . bra d2
10866 D46A E6 00 .. ldab 00,x
10869 D46E C3 08 00 ... addd #0800
10871 D472 EC 00 .. ldd 00,x
10873 D475 84 80 .. anda #80
10878 D479 7F 00 1C ... clr 001c
10880 D47C F6 00 1C ... ldab 001c
10881 D47F C1 64 .d cmpb #64 ; to 100
10882 D481 24 1A $. bcc 1a ; to d49d
10883 D483 CC FF 7F ... ldd #ff7f
10886 D488 F6 00 1C ... ldab 001c
10889 D48D C3 08 C8 ... addd #08c8
10892 D492 A4 00 .. anda 00,x
10893 D494 E4 01 .. andb 01,x
10894 D496 ED 00 .. std 00,x
10895 D498 7C 00 1C |.. inc 001c
10896 D49B 20 DF . bra df ; to d47c
10897 D49D 7F 00 05 ... clr 0005
10898 goto65: ; begin motor count loop
10899 D4A0 F6 00 05 ... ldab 0005
10900 D4A3 C1 50 .P cmpb #50 ; 80
10901 D4A5 25 03 %. bcs 03
10902 D4A7 7E D5 60 ~.` jmp d560 ;goto63 - exit
10903 D4AA F6 00 05 ... ldab 0005
10905 D4AE C3 B0 D3 ... addd #b0d3 ;motor lookup table
10907 D4B2 E6 00 .. ldab 00,x
10908 D4B4 F7 00 06 ... stab 0006
10909 D4B7 BD D3 11 ... jsr d311 ;jump30 - test position exists
10910 D4BA 83 00 00 ... subd #0000
10911 D4BD 27 03 '. beq 03
10912 D4BF 7E D5 45 ~.E jmp d545 ;goto64
10913 D4C2 F6 00 06 ... ldab 0006
10914 D4C5 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
10915 D4C8 83 00 00 ... subd #0000
10916 D4CB 26 78 &x bne 78
10917 D4CD BD D5 B0 ... jsr d5b0 ;jump31
10918 D4D0 83 00 00 ... subd #0000
10919 D4D3 26 06 &. bne 06
10920 D4D5 BD D1 FD ... jsr d1fd ;jump90
10921 D4D8 BD D6 3C ..< jsr d63c ;jump33
10922 D4DB CC 80 00 ... ldd #8000
10925 D4E0 F6 00 06 ... ldab 0006
10928 D4E5 C3 08 00 ... addd #0800
10931 D4EA AA 00 .. ora 00,x
10932 D4EC EA 01 .. orb 01,x
10933 D4EE ED 00 .. std 00,x
10934 D4F0 F6 00 06 ... ldab 0006
10937 D4F5 C3 08 00 ... addd #0800
10939 D4F9 EC 00 .. ldd 00,x
10940 D4FB C4 FF .. andb #ff
10941 D4FD 84 3F .? anda #3f
10942 D4FF 83 27 0F .'. subd #270f
10943 D502 23 1A #. bls 1a
10944 D504 BD D1 FD ... jsr d1fd ;jump90
10945 D507 CC 01 00 ... ldd #0100
10948 D50C F6 00 06 ... ldab 0006
10951 D511 C3 08 C8 ... addd #08c8
10954 D516 AA 00 .. ora 00,x
10955 D518 EA 01 .. orb 01,x
10956 D51A ED 00 .. std 00,x
10957 D51C 20 25 % bra 25
10958 D51E F6 00 06 ... ldab 0006
10961 D523 C3 08 C8 ... addd #08c8
10963 D527 EC 00 .. ldd 00,x
10964 D529 C4 7F .. andb #7f
10965 D52B F7 00 06 ... stab 0006
10966 D52E CC 00 80 ... ldd #0080
10969 D533 F6 00 06 ... ldab 0006
10972 D538 C3 08 C8 ... addd #08c8
10975 D53D AA 00 .. ora 00,x
10976 D53F EA 01 .. orb 01,x
10977 D541 ED 00 .. std 00,x
10978 D543 20 15 . bra 15
10979 goto64: ; mark a motor position as valid?
10980 D545 CC 7F FF ... ldd #7fff
10983 D54A F6 00 06 ... ldab 0006
10986 D54F C3 08 00 ... addd #0800
10989 D554 A4 00 .. anda 00,x
10990 D556 E4 01 .. andb 01,x
10991 D558 ED 00 .. std 00,x
10992 D55A 7C 00 05 |.. inc 0005
10993 D55D 7E D4 A0 ~.. jmp d4a0 ;goto65 - loop again
10998 D561 F6 00 06 ... ldab 0006
11001 D566 C3 08 00 ... addd #0800
11003 D56A EC 00 .. ldd 00,x
11005 D56D 84 40 .@ anda #40
11008 ;Look at the home sensor for the row of this slot. If it isn't 0 within 5
11009 ;loops, return 1 (fault?), else return 0 (OK?).
11010 ;005f is the row number in this routine. scratch variable?
11011 ;looks like 0006 is the slot number.
11012 ;this is called twice
11014 D570 F6 00 06 ... ldab 0006
11016 D574 CE 00 0A ... ldx #000a
11018 D578 F7 00 5F .._ stab 005f
11019 D57B F6 00 5F .._ ldab 005f
11020 D57E C1 05 .. cmpb #05
11021 D580 23 03 #. bls d585
11022 D582 7A 00 5F z._ dec 005f
11023 D585 F6 00 5F .._ ldab 005f ;row number
11025 D589 C3 B1 23 ..# addd #b123
11027 D58D E6 00 .. ldab 00,x ;get bit for this row
11028 D58F F7 00 5E ..^ stab 005e
11029 D592 7F 00 1C ... clr 001c
11031 D595 F6 28 00 .(. ldab 2800 ;snack motor home sensors
11032 D598 F4 00 5E ..^ andb 005e ;check home sensor for this row
11033 D59B 27 10 '. beq d5ad
11034 D59D 7C 00 1C |.. inc 001c
11035 D5A0 F6 00 1C ... ldab 001c
11036 D5A3 C1 05 .. cmpb #05
11037 D5A5 26 04 &. bne d5ab
11038 D5A7 CC 00 01 ... ldd #0001
11041 D5AB 20 E8 . bra loop ;d595
11046 ;This does almost the same - check the home sensor for this row (slot number
11047 ;is in 0006) up to 5 times. If it is 1, return 0. If it stays 0, return 1.
11048 ;(this is the reverse of the routine above). But also check bit 0 of 100a.
11049 ;If it is ever 0, return 0.
11050 ;005f is the row number
11051 ;005e is the bit mask for this row
11053 D5B0 F6 00 06 ... ldab 0006
11055 D5B4 CE 00 0A ... ldx #000a
11057 D5B8 F7 00 5F .._ stab 005f
11058 D5BB F6 00 5F .._ ldab 005f
11059 D5BE C1 05 .. cmpb #05
11060 D5C0 23 03 #. bls 03
11061 D5C2 7A 00 5F z._ dec 005f
11062 D5C5 F6 00 5F .._ ldab 005f
11064 D5C9 C3 B1 23 ..# addd #b123
11066 D5CD E6 00 .. ldab 00,x
11067 D5CF F7 00 5E ..^ stab 005e
11068 D5D2 7F 00 1C ... clr 001c
11070 D5D5 F6 28 00 .(. ldab 2800 ;snack motor home sensors
11071 D5D8 F4 00 5E ..^ andb 005e
11072 D5DB 26 17 &. bne d5f4
11073 D5DD F6 10 0A ... ldab 100a
11074 D5E0 C4 01 .. andb #01
11075 D5E2 27 10 '. beq d5f4
11076 D5E4 7C 00 1C |.. inc 001c
11077 D5E7 F6 00 1C ... ldab 001c
11078 D5EA C1 05 .. cmpb #05
11079 D5EC 26 04 &. bne d5f2
11080 D5EE CC 00 01 ... ldd #0001
11083 D5F2 20 E1 . bra loop ;d5d5
11089 ; check motor overcurrent status
11090 D5F7 C6 07 .. ldab #07
11091 D5F9 F7 00 1C ... stab 001c
11092 D5FC 7F 00 18 ... clr 0018
11094 D5FF F6 00 1C ... ldab 001c
11095 D602 27 1E '. beq 1e ; to d622
11096 D604 7A 00 1C z.. dec 001c
11097 D607 F6 10 0A ... ldab 100a
11098 D60A C4 01 .. andb #01 ; motor overcurrent sense!
11099 D60C 26 12 &. bne 12 ; to d620
11100 D60E C6 07 .. ldab #07
11101 D610 F7 00 1C ... stab 001c
11102 D613 7C 00 18 |.. inc 0018
11103 D616 F6 00 18 ... ldab 0018
11104 D619 C1 05 .. cmpb #05
11105 D61B 26 03 &. bne 03
11110 D620 20 DD . bra dd ; to d5ff
11111 D622 CC 00 01 ... ldd #0001
11115 ; ORs memory location 08c8+(slotnum*2) with #0200
11116 D626 CC 02 00 ... ldd #0200
11119 D62B F6 00 06 ... ldab 0006
11122 D630 C3 08 C8 ... addd #08c8
11125 D635 AA 00 .. ora 00,x
11126 D637 EA 01 .. orb 01,x
11127 D639 ED 00 .. std 00,x
11131 ; ORs memory location 08c8+(slotnum*2) with #0400
11132 D63C CC 04 00 ... ldd #0400
11135 D641 F6 00 06 ... ldab 0006
11138 D646 C3 08 C8 ... addd #08c8
11141 D64B AA 00 .. ora 00,x
11142 D64D EA 01 .. orb 01,x
11143 D64F ED 00 .. std 00,x
11147 ; Sends a pulse to the bill acceptor
11148 D652 CE 00 1A ... ldx #001a
11149 D655 1C 00 01 .. bset 00,x, #01
11150 D658 F6 00 1A ... ldab 001a
11151 D65B F7 30 00 .0. stab 3000
11152 D65E CE 00 14 ... ldx #0014
11153 D661 1D 00 01 .. bclr 00,x, #01
11154 D664 F6 00 14 ... ldab 0014
11155 D667 F7 38 00 .8. stab 3800
11159 D66B F6 0B C0 ... ldab 0bc0
11160 D66E C4 08 .. andb #08 ; we have a bill validator?
11161 D670 27 07 '. beq 07 ; if not, to d679
11162 D672 F6 00 7D ..} ldab 007d
11163 D675 27 02 '. beq 02
11164 D677 20 F9 . bra f9 ; to d672 - wait for a bill?
11165 D679 F6 00 15 ... ldab 0015
11166 D67C 2D 77 -w blt 77 ; return
11167 D67E FC 00 40 ..@ ldd 0040
11168 D681 F3 00 3E ..> addd 003e
11169 D684 B3 00 0F ... subd 000f
11170 D687 24 4F $O bcc 4f
11171 D689 F6 0B C0 ... ldab 0bc0
11172 D68C C4 01 .. andb #01
11173 D68E 26 07 &. bne 07
11174 D690 F6 0B C0 ... ldab 0bc0
11175 D693 C4 04 .. andb #04
11176 D695 27 0C '. beq 0c
11177 D697 CE 00 1A ... ldx #001a
11178 D69A 1D 00 01 .. bclr 00,x, #01
11179 D69D F6 00 1A ... ldab 001a
11180 D6A0 F7 30 00 .0. stab 3000 ; changer accept' line
11181 D6A3 F6 0B C0 ... ldab 0bc0
11182 D6A6 C4 08 .. andb #08
11183 D6A8 27 20 ' beq 20
11184 D6AA F6 0C D9 ... ldab 0cd9
11185 D6AD C1 03 .. cmpb #03
11186 D6AF 23 19 #. bls 19
11187 D6B1 FC 0B EF ... ldd 0bef
11188 D6B4 83 00 64 ..d subd #0064
11189 D6B7 25 11 %. bcs 11
11190 D6B9 CE 00 14 ... ldx #0014
11191 D6BC 1C 00 02 .. bset 00,x, #02
11192 D6BF F6 00 14 ... ldab 0014
11193 D6C2 F7 38 00 .8. stab 3800 ; bill acceptor
11194 D6C5 BD C0 E0 ... jsr c0e0 ;jump94
11195 D6C8 20 0C . bra 0c
11196 D6CA CE 00 14 ... ldx #0014
11197 D6CD 1D 00 01 .. bclr 00,x, #01
11198 D6D0 F6 00 14 ... ldab 0014
11199 D6D3 F7 38 00 .8. stab 3800
11200 D6D6 20 05 . bra 05
11201 D6D8 BD D6 52 ..R jsr d652 ;jump5
11202 D6DB 8D 53 .S bsr dest 53
11203 D6DD F6 0B C0 ... ldab 0bc0
11204 D6E0 C4 08 .. andb #08
11205 D6E2 27 11 '. beq 11
11206 D6E4 F6 0B C0 ... ldab 0bc0
11207 D6E7 C4 40 .@ andb #40
11208 D6E9 27 0A '. beq 0a
11209 D6EB F6 00 15 ... ldab 0015
11210 D6EE C4 01 .. andb #01
11211 D6F0 27 03 '. beq 03
11212 D6F2 BD C0 E0 ... jsr c0e0 ;jump94
11216 ; puts (0cdb+0bdd)+(0cda*0bdf)+(0cd9*0be1) => 0bef
11217 ; calculates how much money we have in some coin mech.
11218 D6F6 F6 0C DB ... ldab 0cdb
11222 D6FC FC 0B DD ... ldd 0bdd
11223 D6FF BD FB BA ... jsr fbba ;jump38 - multiply?
11224 D702 FD 0C EB ... std 0ceb ; 0cdb * 0bdd => 0ceb
11225 D705 F6 0C DA ... ldab 0cda
11229 D70B FC 0B DF ... ldd 0bdf
11230 D70E BD FB BA ... jsr fbba ;jump38 - multiply?
11231 D711 FD 0C ED ... std 0ced ; 0cda * 0bdf => 0ced
11232 D714 F6 0C D9 ... ldab 0cd9
11236 D71A FC 0B E1 ... ldd 0be1
11237 D71D BD FB BA ... jsr fbba ;jump38 - multiply?
11238 D720 FD 0C EF ... std 0cef ; 0cd9 * 0be1 => 0cef
11239 D723 FC 0C EB ... ldd 0ceb
11240 D726 F3 0C ED ... addd 0ced
11241 D729 F3 0C EF ... addd 0cef
11242 D72C FD 0B EF ... std 0bef ; 0ceb+0ced+0cef => 0bef
11246 D730 F6 00 15 ... ldab 0015
11247 D733 C4 1F .. andb #1f
11248 D735 27 49 'I beq 49
11249 D737 FC 00 40 ..@ ldd 0040
11250 D73A F3 00 3E ..> addd 003e
11251 D73D B3 0B EF ... subd 0bef
11252 D740 23 19 #. bls 19
11253 D742 CC B0 6B ..k ldd #b06b ; "NO CHANGE"
11254 D745 BD C0 BA ... jsr c0ba ;display:
11255 D748 CC 01 F4 ... ldd #01f4
11256 D74B BD E5 71 ..q jsr e571 ;msdelay
11257 D74E BD C5 D3 ... jsr c5d3 ;jump6
11258 D751 CC 01 F4 ... ldd #01f4
11259 D754 BD E5 71 ..q jsr e571 ;msdelay
11260 D757 CC 00 01 ... ldd #0001
11263 D75B F6 00 15 ... ldab 0015
11264 D75E C4 04 .. andb #04
11265 D760 27 1E '. beq 1e
11266 D762 F6 0E 6E ..n ldab 0e6e
11267 D765 26 19 &. bne 19
11268 D767 CC B0 76 ..v ldd #b076 ; "NO FIVES"
11269 D76A BD C0 BA ... jsr c0ba ;display:
11270 D76D CC 01 F4 ... ldd #01f4
11271 D770 BD E5 71 ..q jsr e571 ;msdelay
11272 D773 BD C5 D3 ... jsr c5d3 ;jump6
11273 D776 CC 01 F4 ... ldd #01f4
11274 D779 BD E5 71 ..q jsr e571 ;msdelay
11275 D77C CC 00 01 ... ldd #0001
11283 D783 F6 00 06 ... ldab 0006
11285 D787 CE 00 0A ... ldx #000a
11287 D78B C1 04 .. cmpb #04
11288 D78D 26 0E &. bne 0e
11289 D78F F6 00 1D ... ldab 001d
11290 D792 C4 04 .. andb #04
11291 D794 27 03 '. beq 03
11296 D799 CC 00 01 ... ldd #0001
11304 ; validates a slot number? (return 1 if invalid)
11305 ; let i = number on stack
11306 ; if i in [9, 69, 79, 89, 99], return 1
11307 ; if 0e6d!=1 return 0
11308 ; if i%10 not in [1,2] return 1
11309 ; if i < 11 return 1
11310 ; if i <= 62 return 0
11314 D7A2 E6 00 .. ldab 00,x
11315 D7A4 C1 09 .. cmpb #09 ; 9
11316 D7A6 27 18 '. beq 18 ; to d7c0 (returns 1)
11317 D7A8 E6 00 .. ldab 00,x
11318 D7AA C1 45 .E cmpb #45 ; 69
11319 D7AC 27 12 '. beq 12 ; to d7c0 (returns 1)
11320 D7AE E6 00 .. ldab 00,x
11321 D7B0 C1 4F .O cmpb #4f ; 79
11322 D7B2 27 0C '. beq 0c ; to d7c0 (returns 1)
11323 D7B4 E6 00 .. ldab 00,x
11324 D7B6 C1 59 .Y cmpb #59 ; 89
11325 D7B8 27 06 '. beq 06 ; to d7c0 (returns 1)
11326 D7BA E6 00 .. ldab 00,x
11327 D7BC C1 63 .c cmpb #63 ; 99 (also returns 1)
11328 D7BE 26 05 &. bne 05 ; to d7c5 if not equal
11329 D7C0 CC 00 01 ... ldd #0001
11330 D7C3 20 38 8 bra 38 ; to d7fd (return 1)
11331 D7C5 F6 0E 6D ..m ldab 0e6d
11332 D7C8 C1 01 .. cmpb #01
11333 D7CA 26 2F &/ bne 2f ;to d7fb (return 0)
11335 D7CD E6 00 .. ldab 00,x
11337 D7D0 CE 00 0A ... ldx #000a
11339 D7D4 C1 01 .. cmpb #01
11340 D7D6 27 11 '. beq 11 ;to d7e9 if num%10==1
11342 D7D9 E6 00 .. ldab 00,x
11344 D7DC CE 00 0A ... ldx #000a
11346 D7E0 C1 02 .. cmpb #02
11347 D7E2 27 05 '. beq 05 ;to d7e9 if num%10==2
11348 D7E4 CC 00 01 ... ldd #0001
11349 D7E7 20 14 . bra 14 ; to d7fd (return 1)
11351 D7EA E6 00 .. ldab 00,x
11352 D7EC C1 0B .. cmpb #0b ; < 11
11353 D7EE 25 06 %. bcs 06 ; return 1
11354 D7F0 E6 00 .. ldab 00,x
11355 D7F2 C1 3E .> cmpb #3e ; <= 62
11356 D7F4 23 05 #. bls 05 ; return 0
11357 D7F6 CC 00 01 ... ldd #0001
11358 D7F9 20 02 . bra 02
11365 D7FF 7F 00 1C ... clr 001c
11366 D802 F6 00 1C ... ldab 001c
11368 D806 B3 00 4D ..M subd 004d
11369 D809 24 05 $. bcc 05
11370 D80B 7C 00 1C |.. inc 001c
11371 D80E 20 F2 . bra f2
11372 D810 F6 00 1C ... ldab 001c
11375 D815 C3 0D 1F ... addd #0d1f
11377 D819 EC 00 .. ldd 00,x
11378 D81B 83 FF FF ... subd #ffff
11379 D81E 26 10 &. bne 10
11384 D824 F6 00 1C ... ldab 001c
11387 D829 C3 0D 1F ... addd #0d1f
11390 D82E ED 00 .. std 00,x
11391 D830 F6 00 1C ... ldab 001c
11394 D835 C3 0D 1F ... addd #0d1f
11396 D839 6C 01 l. inc 01,x
11397 D83B 26 02 &. bne 02
11398 D83D 6C 00 l. inc 00,x
11402 D840 FC 00 44 ..D ldd 0044
11403 D843 26 03 &. bne 03
11404 D845 7E D8 D2 ~.. jmp d8d2 ;goto66
11405 D848 FC 00 44 ..D ldd 0044
11412 D851 CC 0D EB ... ldd #0deb
11413 D854 BD FB DF ... jsr fbdf ;jump46
11416 D859 FE 0D ED ... ldx 0ded
11418 D85D FC 0D EB ... ldd 0deb
11421 D862 CE E1 00 ... ldx #e100 ; 100000000
11423 D866 CC 05 F5 ... ldd #05f5
11427 D86C EC 06 .. ldd 06,x
11428 D86E A3 02 .. subd 02,x
11429 D870 EC 04 .. ldd 04,x
11430 D872 E2 01 .. sbcb 01,x
11431 D874 A2 00 .. sbca 00,x
11436 D87A 25 11 %. bcs 11
11437 D87C CE 1F 00 ... ldx #1f00
11439 D880 CC FA 0A ... ldd #fa0a
11442 D885 CC 0D EB ... ldd #0deb
11443 D888 BD FB DF ... jsr fbdf ;jump46
11446 D88D FC 00 44 ..D ldd 0044
11453 D896 CC 0D E7 ... ldd #0de7
11454 D899 BD FB DF ... jsr fbdf ;jump46
11457 D89E FE 0D E9 ... ldx 0de9
11459 D8A2 FC 0D E7 ... ldd 0de7
11462 D8A7 CE E1 00 ... ldx #e100 ; 100000000
11464 D8AB CC 05 F5 ... ldd #05f5
11468 D8B1 EC 06 .. ldd 06,x
11469 D8B3 A3 02 .. subd 02,x
11470 D8B5 EC 04 .. ldd 04,x
11471 D8B7 E2 01 .. sbcb 01,x
11472 D8B9 A2 00 .. sbca 00,x
11477 D8BF 25 11 %. bcs 11
11478 D8C1 CE 1F 00 ... ldx #1f00
11480 D8C5 CC FA 0A ... ldd #fa0a ; -100000000
11483 D8CA CC 0D E7 ... ldd #0de7
11484 D8CD BD FB DF ... jsr fbdf ;jump46
11492 D8D3 7F 00 18 ... clr 0018
11493 D8D6 F6 00 18 ... ldab 0018
11494 D8D9 C1 10 .. cmpb #10
11495 D8DB 24 0B $. bcc 0b
11496 D8DD CC 00 32 ..2 ldd #0032
11497 D8E0 BD E5 71 ..q jsr e571 ;msdelay
11498 D8E3 7C 00 18 |.. inc 0018
11499 D8E6 20 EE . bra ee
11503 ; displays select other item
11504 D8E9 F6 00 2B ..+ ldab 002b
11505 D8EC C1 00 .. cmpb #00
11506 D8EE 26 18 &. bne 18
11507 D8F0 CC AD 84 ... ldd #ad84 ; " PULSE "
11508 D8F3 BD C0 BA ... jsr c0ba ;display:
11509 D8F6 8D DB .. bsr dest db
11510 D8F8 CC AD 8F ... ldd #ad8f ; " EXTRA "
11511 D8FB BD C0 BA ... jsr c0ba ;display:
11512 D8FE 8D D3 .. bsr dest d3
11513 D900 CC AD 9A ... ldd #ad9a ; "SELECTION"
11514 D903 BD C0 BA ... jsr c0ba ;display:
11515 D906 20 4E N bra 4e
11516 D908 C1 01 .. cmpb #01
11517 D90A 26 18 &. bne 18
11518 D90C CC AD 63 ..c ldd #ad63 ; " BITTE "
11519 D90F BD C0 BA ... jsr c0ba ;display:
11520 D912 8D BF .. bsr dest bf
11521 D914 CC AD 6E ..n ldd #ad6e ; " ANDERE "
11522 D917 BD C0 BA ... jsr c0ba ;display:
11523 D91A 8D B7 .. bsr dest b7
11524 D91C CC AD 79 ..y ldd #ad79 ; " WAHL "
11525 D91F BD C0 BA ... jsr c0ba ;display:
11526 D922 20 32 2 bra 32
11527 D924 C1 02 .. cmpb #02
11528 D926 26 18 &. bne 18
11529 D928 CC AD 42 ..B ldd #ad42 ; "FAITES"
11530 D92B BD C0 BA ... jsr c0ba ;display:
11531 D92E 8D A3 .. bsr dest a3
11532 D930 CC AD 4D ..M ldd #ad4d ; "AURTE"
11533 D933 BD C0 BA ... jsr c0ba ;display:
11534 D936 8D 9B .. bsr dest 9b
11535 D938 CC AD 58 ..X ldd #ad58 ; "CHOIX"
11536 D92B BD C0 BA ... jsr c0ba ;display:
11537 D93E 20 16 . bra 16
11538 D940 CC AD 21 ..! ldd #ad21 ; "SELECT "
11539 D943 BD C0 BA ... jsr c0ba ;display:
11540 D946 8D 8B .. bsr dest 8b
11541 D948 CC AD 2C .., ldd #ad2c ; "OTHER"
11542 D94B BD C0 BA ... jsr c0ba ;display:
11543 D94E 8D 83 .. bsr dest 83
11544 D950 CC AD 37 ..7 ldd #ad37 ; "ITEM"
11545 D953 BD C0 BA ... jsr c0ba ;display:
11546 D956 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay
11550 D95A F6 00 06 ... ldab 0006
11551 D95D F1 0B AF ... cmpb 0baf
11552 D960 26 0D &. bne 0d ; to d984
11553 D962 BD D7 FF ... jsr d7ff ;jump80
11554 D965 F6 0B B4 ... ldab 0bb4
11555 D968 F7 00 06 ... stab 0006
11556 D96B 8D 55 .U bsr 55 ;jump205
11557 D96D 20 52 R bra 52 ; exit
11558 D96F F6 00 06 ... ldab 0006
11559 D972 F1 0B AE ... cmpb 0bae
11560 D975 26 0D &. bne 0d ; to d984
11561 D977 BD D7 FF ... jsr d7ff ;jump80
11562 D97A F6 0B B3 ... ldab 0bb3
11563 D97D F7 00 06 ... stab 0006
11564 D980 8D 40 .@ bsr 40 ;jump205
11565 D982 20 3D = bra 3d
11566 D984 F6 00 06 ... ldab 0006
11567 D987 F1 0B AD ... cmpb 0bad
11568 D98A 26 0D &. bne 0d
11569 D98C BD D7 FF ... jsr d7ff ;jump80
11570 D98F F6 0B B2 ... ldab 0bb2
11571 D992 F7 00 06 ... stab 0006
11572 D995 8D 2B .+ bsr 2b ;jump205
11573 D997 20 28 ( bra 28
11574 D999 F6 00 06 ... ldab 0006
11575 D99C F1 0B AC ... cmpb 0bac
11576 D99F 26 0D &. bne 0d
11577 D9A1 BD D7 FF ... jsr d7ff ;jump80
11578 D9A4 F6 0B B1 ... ldab 0bb1
11579 D9A7 F7 00 06 ... stab 0006
11580 D9AA 8D 16 .. bsr 16 ;jump205
11581 D9AC 20 13 . bra 13
11582 D9AE F6 00 06 ... ldab 0006
11583 D9B1 F1 0B AB ... cmpb 0bab
11584 D9B4 26 0B &. bne 0b
11585 D9B6 BD D7 FF ... jsr d7ff ;jump80
11586 D9B9 F6 0B B0 ... ldab 0bb0
11587 D9BC F7 00 06 ... stab 0006
11588 D9BF 8D 01 .. bsr 01 ;jump205
11592 D9C2 CC 03 E8 ... ldd #03e8
11593 D9C5 BD E5 71 ..q jsr e571 ;msdelay
11594 D9C8 BD D7 83 ... jsr d783 ;jump44
11595 D9CB 83 00 00 ... subd #0000
11596 D9CE 27 0B '. beq 0b
11597 D9D0 7F 00 06 ... clr 0006
11600 D9D5 FD 00 4D ..M std 004d
11601 D9D8 7E DA 63 ~.c jmp da63 ;goto67
11602 D9DB BD D2 13 ... jsr d213 ;jump45 - vend it!
11603 D9DE 83 00 00 ... subd #0000
11604 D9E1 26 0A &. bne 0a
11605 D9E3 7F 00 06 ... clr 0006
11608 D9E8 FD 00 4D ..M std 004d
11609 D9EB 20 76 v bra 76
11610 D9ED FC 0D 0B ... ldd 0d0b
11611 D9F0 83 FF FF ... subd #ffff
11612 D9F3 26 05 &. bne 05
11615 D9F7 FD 0D 0B ... std 0d0b
11616 D9FA FE 0D 0B ... ldx 0d0b
11618 D9FE FF 0D 0B ... stx 0d0b
11619 DA01 F6 00 06 ... ldab 0006
11622 DA06 C3 08 C8 ... addd #08c8
11624 DA0A EC 00 .. ldd 00,x
11625 DA0C C4 7F .. andb #7f
11627 DA0F FD 00 4D ..M std 004d
11628 DA12 F6 00 06 ... ldab 0006
11631 DA17 C3 08 00 ... addd #0800
11633 DA1B EC 00 .. ldd 00,x
11634 DA1D C4 FF .. andb #ff
11635 DA1F 84 3F .? anda #3f
11642 DA27 CC 0D 17 ... ldd #0d17
11643 DA2A BD FB DF ... jsr fbdf ;jump46
11646 DA2F FE 0D 19 ... ldx 0d19
11648 DA33 FC 0D 17 ... ldd 0d17
11651 DA38 CE E1 00 ... ldx #e100
11653 DA3C CC 05 F5 ... ldd #05f5
11657 DA42 EC 06 .. ldd 06,x
11658 DA44 A3 02 .. subd 02,x
11659 DA46 EC 04 .. ldd 04,x
11660 DA48 E2 01 .. sbcb 01,x
11661 DA4A A2 00 .. sbca 00,x
11666 DA50 25 11 %. bcs 11
11667 DA52 CE 1F 00 ... ldx #1f00
11669 DA56 CC FA 0A ... ldd #fa0a
11672 DA5B CC 0D 17 ... ldd #0d17
11673 DA5E BD FB DF ... jsr fbdf ;jump46
11680 DA64 FE 0B B9 ... ldx 0bb9
11682 DA68 FF 0B B9 ... stx 0bb9
11683 DA6B FC 0B B5 ... ldd 0bb5
11684 DA6E CE 00 32 ..2 ldx #0032
11689 DA75 CC 00 C3 ... ldd #00c3 ; 195
11690 DA78 BD FB BA ... jsr fbba ;jump38 - multiply?
11691 DA7B B3 0B B9 ... subd 0bb9
11692 DA7E 24 05 $. bcc 05
11695 DA82 FD 0B B9 ... std 0bb9
11696 DA85 FC 0B B9 ... ldd 0bb9
11699 DA8A CC 00 0A ... ldd #000a ; 10
11700 DA8D BD FB BA ... jsr fbba ;jump38 - multiply?
11703 DA92 FC 0B B5 ... ldd 0bb5
11704 DA95 CE 00 32 ..2 ldx #0032
11713 DAA0 CC 00 0A ... ldd #000a ; 10
11714 DAA3 BD FB BA ... jsr fbba ;jump38 - multiply?
11715 DAA6 CE 00 0A ... ldx #000a
11718 DAAB FD 00 4A ..J std 004a
11719 DAAE FC 00 4A ..J ldd 004a
11720 DAB1 BD FE 32 ..2 jsr fe32 ;jump25
11721 DAB4 DA CA 00 6E ...n ; 110
11722 DAB8 DA CA 02 80 .... ; 750
11723 DABC DA CA 01 C2 .... ; 1200
11724 DAC0 DA CA 01 C2 .... ; 1650
11725 DAC4 DB 43 F9 8E .... ; 0
11726 DAC8 00 00 .. ; end of array data
11727 DACA FC 0D 07 ... ldd 0d07
11728 DACD 83 FF FF ... subd #ffff
11729 DAD0 26 05 &. bne 05
11732 DAD4 FD 0D 07 ... std 0d07
11733 DAD7 FE 0D 07 ... ldx 0d07
11735 DADB FF 0D 07 ... stx 0d07
11736 DADE F6 00 06 ... ldab 0006
11739 DAE3 C3 08 00 ... addd #0800
11741 DAE7 EC 00 .. ldd 00,x
11742 DAE9 C4 FF .. andb #ff
11743 DAEB 84 3F .? anda #3f
11750 DAF3 CC 0D 0F ... ldd #0d0f
11751 DAF6 BD FB DF ... jsr fbdf ;jump46
11754 DAFB FE 0D 11 ... ldx 0d11
11756 DAFF FC 0D 0F ... ldd 0d0f
11759 DB04 CE E1 00 ... ldx #e100
11761 DB08 CC 05 F5 ... ldd #05f5
11765 DB0E EC 06 .. ldd 06,x
11766 DB10 A3 02 .. subd 02,x
11767 DB12 EC 04 .. ldd 04,x
11768 DB14 E2 01 .. sbcb 01,x
11769 DB16 A2 00 .. sbca 00,x
11774 DB1C 25 11 %. bcs 11
11775 DB1E CE 1F 00 ... ldx #1f00
11777 DB22 CC FA 0A ... ldd #fa0a
11780 DB27 CC 0D 0F ... ldd #0d0f
11781 DB2A BD FB DF ... jsr fbdf ;jump46
11786 DB31 FD 00 44 ..D std 0044
11787 DB34 CE 00 1B ... ldx #001b
11788 DB37 1D 00 01 ... bclr 00,x, #01
11789 DB3A 7F 00 4F ..O clr 004f
11790 DB3D CE 00 11 ... ldx #0011
11791 DB40 1C 00 10 ... bset 00,x, #10
11796 DB44 F6 00 2B ..+ ldab 002b
11797 DB47 C1 00 .. cmpb #00
11798 DB49 26 08 &. bne 08
11799 DB4B CC AC DF ... ldd #acdf ; "CAMBIO"
11800 DB4E BD C0 BA ... jsr c0ba ;display:
11801 DB51 20 1E . bra 1e
11802 DB53 C1 01 .. cmpb #01
11803 DB55 26 08 &. bne 08
11804 DB57 CC AC D4 ... ldd #acd4 ; "CHANGE"
11805 DB5A BD C0 BA ... jsr c0ba ;display:
11806 DB5D 20 12 . bra 12
11807 DB5F C1 02 .. cmpb #02
11808 DB61 26 08 &. bne 08
11809 DB63 CC AC EA ... ldd #acea ; "MONNAIE"
11810 DB66 BD C0 BA ... jsr c0ba ;display:
11811 DB69 20 06 . bra 06
11812 DB6B CC AC D4 ... ldd #acd4 ; "CHANGE"
11813 DB6E BD C0 BA ... jsr c0ba ;display:
11815 DB71 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay
11816 DB74 CE 00 01 ... ldx #0001
11818 DB78 FC 00 40 ..@ ldd 0040
11819 DB7B F3 00 3E ..> addd 003e
11820 DB7E BD BE 9E ... jsr be9e ;jump50
11822 DB82 FC 00 40 ..@ ldd 0040
11823 DB85 27 05 '. beq 05
11824 DB87 BD C4 56 ..V jsr c456 ;jump47
11825 DB8A 20 06 . bra 06
11826 DB8C CC 02 58 ..X ldd #0258
11827 DB8F BD E5 71 ..q jsr e571 ;msdelay
11828 DB92 FC 00 3E ..> ldd 003e
11829 DB95 27 03 '. beq 03
11830 DB97 BD C5 D3 ... jsr c5d3 ;jump6
11831 DB9A F6 00 2B ..+ ldab 002b
11832 DB9D C1 00 .. cmpb #00
11833 DB9F 26 08 &. bne 08
11834 DBA1 CC AD 16 ... ldd #ad16 ; "GRACIAS"
11835 DBA4 BD C0 BA ... jsr c0ba ;display:
11836 DBA7 20 1E . bra 1e
11837 DBA9 C1 01 .. cmpb #01
11838 DBAB 26 08 &. bne 08
11839 DBAD CC AD 0B ... ldd #ad0b ; "DANKE"
11840 DBB0 BD C0 BA ... jsr c0ba ;display:
11841 DBB3 20 12 . bra 12
11842 DBB5 C1 02 .. cmpb #02
11843 DBB7 26 08 &. bne 08
11844 DBB9 CC AD 00 ... ldd #ad00 ; "MERCI"
11845 DBBC BD C0 BA ... jsr c0ba ;display:
11846 DBBF 20 06 . bra 06
11847 DBC1 CC AC F5 ... ldd #acf5 ; "THANKS"
11848 DBC4 BD C0 BA ... jsr c0ba ;display:
11849 DBC7 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay
11853 DBCB F6 00 1B ... ldab 001b
11854 DBCE C4 01 .. andb #01
11855 DBD0 26 03 &. bne 03
11856 DBD2 7E DC 98 ~.. jmp dc98 ;goto68
11857 DBD5 F6 00 06 ... ldab 0006
11860 DBDA C3 08 C8 ... addd #08c8
11862 DBDE EC 00 .. ldd 00,x
11863 DBE0 84 08 .. anda #08
11864 DBE2 26 03 &. bne 03
11865 DBE4 7E DC 98 ~.. jmp dc98 ;goto68
11866 DBE7 BD D7 FF ... jsr d7ff ;jump80
11867 DBEA CC 03 E8 ... ldd #03e8
11868 DBED BD E5 71 ..q jsr e571 ;msdelay
11869 DBF0 BD D3 46 ..F jsr d346 ;jump43
11870 DBF3 83 00 00 ... subd #0000
11871 DBF6 26 08 &. bne 08
11872 DBF8 BD D7 83 ... jsr d783 ;jump44
11873 DBFB 83 00 00 ... subd #0000
11874 DBFE 27 17 '. beq 17
11877 DC02 FD 00 4D ..M std 004d
11878 DC05 FC 00 44 ..D ldd 0044
11879 DC08 F3 0B B7 ... addd 0bb7
11881 DC0C F3 00 40 ..@ addd 0040
11882 DC0F B3 0B B7 ... subd 0bb7
11883 DC12 FD 00 40 ..@ std 0040
11884 DC15 20 78 x bra 78
11885 DC17 BD D2 13 ... jsr d213 ;jump45
11886 DC1A 83 00 00 ... subd #0000
11887 DC1D 26 17 &. bne 17
11890 DC21 FD 00 4D ..M std 004d
11891 DC24 FC 00 44 ..D ldd 0044
11892 DC27 F3 0B B7 ... addd 0bb7
11894 DC2B F3 00 40 ..@ addd 0040
11895 DC2E B3 0B B7 ... subd 0bb7
11896 DC31 FD 00 40 ..@ std 0040
11897 DC34 20 59 Y bra 59
11898 DC36 FC 0D 09 ... ldd 0d09
11899 DC39 83 FF FF ... subd #ffff
11900 DC3C 26 05 &. bne 05
11903 DC40 FD 0D 09 ... std 0d09
11904 DC43 FE 0D 09 ... ldx 0d09
11906 DC47 FF 0D 09 ... stx 0d09
11907 DC4A FC 0B B7 ... ldd 0bb7
11914 DC53 CC 0D 13 ... ldd #0d13
11915 DC56 BD FB DF ... jsr fbdf ;jump46
11918 DC5B FE 0D 15 ... ldx 0d15
11920 DC5F FC 0D 13 ... ldd 0d13
11923 DC64 CE E1 00 ... ldx #e100
11925 DC68 CC 05 F5 ... ldd #05f5
11929 DC6E EC 06 .. ldd 06,x
11930 DC70 A3 02 .. subd 02,x
11931 DC72 EC 04 .. ldd 04,x
11932 DC74 E2 01 .. sbcb 01,x
11933 DC76 A2 00 .. sbca 00,x
11938 DC7C 25 11 %. bcs 11
11939 DC7E CE 1F 00 ... ldx #1f00
11941 DC82 CC FA 0A ... ldd #fa0a
11944 DC87 CC 0D 13 ... ldd #0d13
11945 DC8A BD FB DF ... jsr fbdf ;jump46
11948 DC8F CE 00 1B ... ldx #001b
11949 DC92 1D 00 01 ... bclr 00,x, #01
11950 DC95 7F 00 4F ..O clr 004f
11952 DC98 F6 00 11 ... ldab 0011
11953 DC9B C4 08 .. andb #08
11954 DC9D 26 03 &. bne 03
11955 DC9F BD D9 5A ..Z jsr d95a ;jump123
11959 DCA3 CE 0B BC ... ldx #0bbc
11960 DCA6 1D 00 1C .. bclr 00,x, #1c
11961 DCA9 F6 0B BC .. ldab 0bbc
11962 DCAB C4 03 ... andb #03
11963 DCAE 26 48 &H bne 48
11964 DCB0 FC 0B BD ... ldd 0bbd
11971 DCB9 CC 0D F7 ... ldd #0df7
11972 DCBC BD FB DF ... jsr fbdf ;jump46
11975 DCC1 FE 0D F9 ... ldx 0df9
11977 DCC5 FC 0D F7 ... ldd 0df7
11980 DCCA CE E1 00 ... ldx #e100
11982 DCCE CC 05 F5 ... ldd #05f5 ; 100000000
11986 DCD4 EC 06 .. ldd 06,x
11987 DCD6 A3 02 .. subd 02,x
11988 DCD8 EC 04 .. ldd 04,x
11989 DCDA E2 01 .. sbcb 01,x
11990 DCDC A2 00 .. sbca 00,x
11995 DCE2 25 11 %. bcs 11
11996 DCE4 CE 1F 00 ... ldx #1f00
11998 DCE8 CC FA 0A ... ldd #fa0a
12001 DCED CC 0D F7 ... ldd #0df7
12002 DCF0 BD FB DF ... jsr fbdf ;jump46
12005 DCF5 7E DD D4 ~.. jmp ddd4 ;goto69
12006 DCF8 F6 0B BC ... ldab 0bbc
12007 DCFB C4 03 .. andb #03
12008 DCFD C1 01 .. cmpb #01
12009 DCFF 27 03 '. beq 03
12010 DD01 7E DD D4 ~.. jmp ddd4 ;goto69
12011 DD04 F6 0B BC ... ldab 0bbc
12012 DD07 C4 E0 .. andb #e0
12018 DD0E F7 0B BC ... stab 0bbc
12019 DD11 F6 0B BC ... ldab 0bbc
12020 DD14 F1 0B C4 ... cmpb 0bc4
12021 DD17 26 33 &3 bne 33
12022 DD19 F6 0B D7 ... ldab 0bd7
12023 DD1C C1 01 .. cmpb #01
12024 DD1E 26 0A &. bne 0a
12025 DD20 7C 0C DB |.. inc 0cdb
12026 DD23 C6 03 .. ldab #03
12027 DD25 F7 00 48 ..H stab 0048
12029 DD2A F6 0B D8 ... ldab 0bd8
12030 DD2D C1 01 .. cmpb #01
12031 DD2F 26 0A &. bne 0a
12032 DD31 7C 0C DA |.. inc 0cda
12033 DD34 C6 02 .. ldab #02
12034 DD36 F7 00 48 ..H stab 0048
12035 DD39 20 0F . bra 0f
12036 DD3B F6 0B D9 ... ldab 0bd9
12037 DD3E C1 01 .. cmpb #01
12038 DD40 26 08 &. bne 08
12039 DD42 7C 0C D9 |.. inc 0cd9
12040 DD45 C6 01 .. ldab #01
12041 DD47 F7 00 48 ..H stab 0048
12042 DD4A 20 74 t bra 74
12043 DD4C F6 0B BC ... ldab 0bbc
12044 DD4F F1 0B C5 ... cmpb 0bc5
12045 DD52 26 33 &3 bne 33
12046 DD54 F6 0B D7 ... ldab 0bd7
12047 DD57 C1 04 .. cmpb #04
12048 DD59 26 0A &. bne 0a
12049 DD5B 7C 0C DB |.. inc 0cdb
12050 DD5E C6 03 .. ldab #03
12051 DD60 F7 00 48 ..H stab 0048
12053 DD65 F6 0B D8 ... ldab 0bd8
12054 DD68 C1 04 .. cmpb #04
12055 DD6A 26 0A &. bne 0a
12056 DD6C 7C 0C DA |.. inc 0cda
12057 DD6F C6 02 .. ldab #02
12058 DD71 F7 00 48 ..H stab 0048
12059 DD74 20 0F . bra 0f
12060 DD76 F6 0B D9 ... ldab 0bd9
12061 DD79 C1 04 .. cmpb #04
12062 DD7B 26 08 &. bne 08
12063 DD7D 7C 0C D9 |.. inc 0cd9
12064 DD80 C6 01 .. ldab #01
12065 DD82 F7 00 48 ..H stab 0048
12066 DD85 20 39 9 bra 39
12067 DD87 F6 0B BC ... ldab 0bbc
12068 DD8A F1 0B C6 ... cmpb 0bc6
12069 DD8D 26 31 &1 bne 31
12070 DD8F F6 0B D7 ... ldab 0bd7
12071 DD92 C1 02 .. cmpb #02
12072 DD94 26 0A &. bne 0a
12073 DD96 7C 0C DB |.. inc 0cdb
12074 DD99 C6 03 .. ldab #03
12075 DD9B F7 00 48 ..H stab 0048
12077 DDA0 F6 0B D8 ... ldab 0bd8
12078 DDA3 C1 02 .. cmpb #02
12079 DDA5 26 0A &. bne 0a
12080 DDA7 7C 0C DA |.. inc 0cda
12081 DDAA C6 02 .. ldab #02
12082 DDAC F7 00 48 ..H stab 0048
12083 DDAF 20 0F . bra 0f
12084 DDB1 F6 0B D9 ... ldab 0bd9
12085 DDB4 C1 02 .. cmpb #02
12086 DDB6 26 08 &. bne 08
12087 DDB8 7C 0C D9 |.. inc 0cd9
12088 DDBB C6 01 .. ldab #01
12089 DDBD F7 00 48 ..H stab 0048
12090 DDC0 F6 00 17 ... ldab 0017
12091 DDC3 C4 08 .. andb #08
12092 DDC5 26 0D &. bne 0d
12093 DDC7 F6 0B BC ... ldab 0bbc
12094 DDCA 26 08 &. bne 08
12095 DDCC 7C 0C DC |.. inc 0cdc
12096 DDCF C6 04 .. ldab #04
12097 DDD1 F7 00 48 ..H stab 0048
12102 DDD5 BD BE 69 ..i jsr be69 ;displayreset
12103 DDD8 C6 03 .. ldab #03
12104 DDDA F7 00 1C ... stab 001c
12105 DDDD F6 00 1C ... ldab 001c
12106 DDE0 C1 0D .. cmpb #0d
12107 DDE2 24 1C $. bcc 1c
12108 DDE4 F6 00 1C ... ldab 001c
12110 DDE8 C3 0C B9 ... addd #0cb9
12112 DDEC E6 00 .. ldab 00,x
12114 DDEF CC 0B 9C ... ldd #0b9c
12115 DDF2 F0 00 1C ... subb 001c
12116 DDF5 82 00 .. sbca #00
12119 DDF9 E7 00 .. stab 00,x
12120 DDFB 7C 00 1C |.. inc 001c
12121 DDFE 20 DD . bra dd
12122 DE00 BD BE 10 ... jsr be10 ;jump88
12123 DE03 C6 14 .. ldab #14
12124 DE05 F7 00 2C .., stab 002c
12128 DE09 CC 0B 9A ... ldd #0b9a ; machine id?
12129 DE0C BD C0 BA ... jsr c0ba ;display:
12130 DE0F C6 14 .. ldab #14
12131 DE11 F7 00 2C .., stab 002c
12135 DE15 F6 00 1B ... ldab 001b
12136 DE18 C4 01 .. andb #01
12137 DE1A 26 03 &. bne 03
12138 DE1C 7E DE A4 ~.. jmp dea4 ;goto70 - return
12139 DE1F F6 00 06 ... ldab 0006
12142 DE24 C3 08 C8 ... addd #08c8
12144 DE28 EC 00 .. ldd 00,x
12145 DE2A 84 08 .. anda #08
12146 DE2C 27 76 'v beq 76
12147 DE2E F6 00 11 ... ldab 0011
12148 DE31 C4 08 .. andb #08
12149 DE33 26 33 &3 bne 33 ; to de68
12150 DE35 F6 00 06 ... ldab 0006
12151 DE38 F1 0B AF ... cmpb 0baf
12152 DE3B 27 20 ' beq 20 ; to de5d
12153 DE3D F6 00 06 ... ldab 0006
12154 DE40 F1 0B AE ... cmpb 0bae
12155 DE43 27 18 '. beq 18 ; to de5d
12156 DE45 F6 00 06 ... ldab 0006
12157 DE48 F1 0B AD ... cmpb 0bad
12158 DE4B 27 10 '. beq 10 ; to de5d
12159 DE4D F6 00 06 ... ldab 0006
12160 DE50 F1 0B AC ... cmpb 0bac
12161 DE53 27 08 '. beq 08 ; to de5d
12162 DE55 F6 00 06 ... ldab 0006
12163 DE58 F1 0B AB ... cmpb 0bab
12164 DE5B 26 0B &. bne 0b ; to de68
12166 DE5D CE 00 1B ... ldx #001b
12167 DE60 1D 00 01 ... bclr 00,x, #01
12168 DE63 7F 00 4F ..O clr 004f
12169 DE66 20 3C < bra 3c ; return
12171 DE68 FC 00 44 ..D ldd 0044
12172 DE6B B3 0B B7 ... subd 0bb7
12173 DE6E 23 2B #+ bls 2b ; to de99 - return
12174 DE70 FC 00 40 ..@ ldd 0040
12175 DE73 F3 00 3E ..> addd 003e
12178 DE78 FC 00 44 ..D ldd 0044
12179 DE7B B3 0B B7 ... subd 0bb7
12180 DE7E F3 00 44 ..D addd 0044
12182 DE82 A3 00 .. subd 00,x
12185 DE86 22 13 ". bhi 13 ; to de9b
12186 DE88 FC 0B B7 ... ldd 0bb7
12187 DE8B 27 0E '. beq 0e ; to de9b
12188 DE8D FC 00 44 ..D ldd 0044
12189 DE90 B3 0B B7 ... subd 0bb7
12190 DE93 F3 00 44 ..D addd 0044
12191 DE96 FD 00 44 ..D std 0044
12192 DE99 20 09 . bra 09 ; return
12194 DE9B CE 00 1B ... ldx #001b
12195 DE9E 1D 00 01 ... bclr 00,x, #01
12196 DEA1 7F 00 4F ..O clr 004f
12201 ; machine out of order display?
12202 DEA5 F6 00 2B ..+ ldab 002b
12203 DEA8 C1 00 .. cmpb #00
12204 DEAA 26 0D &. bne 0d
12205 DEAC CE 00 12 ... ldx #0012
12207 DEB0 CC AE 7E ..~ ldd #ae7e
12208 DEB3 BD C0 2E ... jsr c02e ;jump71 - display
12210 DEB7 20 2D - bra 2d
12211 DEB9 C1 01 .. cmpb #01
12212 DEBB 26 0D &. bne 0d
12213 DEBD CE 00 0F ... ldx #000f
12215 DEC1 CC AE 6D ..m ldd #ae6d ; something german
12216 DEC4 BD C0 2E ... jsr c02e ;jump71 - display
12218 DEC8 20 1C . bra 1c
12219 DECA C1 02 .. cmpb #02
12220 DECC 26 0D &. bne 0d
12221 DECE CE 00 10 ... ldx #0010
12223 DED2 CC AE 5B ..[ ldd #ae5b ; more german
12224 DED5 BD C0 2E ... jsr c02e ;jump71 - display
12226 DED9 20 0B . bra 0b
12227 DEDB CE 00 15 ... ldx #0015
12229 DEDF CC AE 44 ..D ldd #ae44 ; "MACHINE OUT OF ORDER"
12230 DEE2 BD C0 2E ... jsr c02e ;jump71 - display
12235 ; revolves around coinage
12236 DEE7 F6 0B C0 ... ldab 0bc0
12237 DEEA C4 01 .. andb #01 ; have a dumb mech
12238 DEEC 26 07 &. bne 07 ; to def5
12239 DEEE F6 0B C0 ... ldab 0bc0
12240 DEF1 C4 04 .. andb #04 ; have a card reader
12241 DEF3 27 15 '. beq 15 ; if not to df0a
12243 DEF5 C6 FF .. ldab #ff
12244 DEF7 F7 0B BC ... stab 0bbc
12245 DEFA F6 00 15 ... ldab 0015
12246 DEFD 2D 03 -. blt 03 ; to df02
12247 DEFF BD C6 7D ..} jsr c67d ;jump124 - chat to changer
12248 DF02 BD D6 6B ..k jsr d66b ;jump107 - chat to bill acceptor
12249 DF05 BD DC A3 ... jsr dca3 ;jump29
12250 DF08 20 25 % bra 25 ; to df2f
12251 ; test the link master?
12252 DF0A F6 0B C0 ... ldab 0bc0
12253 DF0D C4 02 .. andb #02 ;have link master
12254 DF0F 27 1E '. beq 1e ; to df2f
12255 DF11 F6 00 2F ../ ldab 002f
12256 DF14 26 19 &. bne 19 ; to df2f
12257 DF16 F6 00 1B ... ldab 001b
12258 DF19 C4 02 .. andb #02
12259 DF1B 26 12 &. bne 12 ; to df2f
12260 DF1D CC 00 FF ... ldd #00ff
12261 DF20 BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
12262 DF23 CE 00 1B ... ldx #001b
12263 DF26 1C 00 02 .. bset 00,x, #02
12264 DF29 CE 0B C1 ... ldx #0bc1
12265 DF2C 1C 00 04 .. bset 00,x, #04 ; set link powerup error bit
12267 DF2F F6 00 21 ..! ldab 0021
12268 DF32 C4 20 . andb #20
12269 DF34 27 07 '. beq 07
12271 DF36 BD D6 52 ..R jsr d652 ;jump5 - pulse bill acceptor
12272 DF39 BD DE A5 ... jsr dea5 ;jump117 - machine out of order?
12275 DF3D F6 00 4F ..O ldab 004f
12276 DF40 26 06 &. bne 06
12277 DF42 CE 00 1B ... ldx #001b
12278 DF45 1D 00 01 ... bclr 00,x, #01
12279 DF48 F6 00 25 ..% ldab 0025
12280 DF4B 26 20 & bne 20 ; to df6d
12281 DF4D F6 00 1B ... ldab 001b
12282 DF50 C4 40 .@ andb #40
12283 DF52 27 19 '. beq 19
12284 DF54 BD D6 52 ..R jsr d652 ;jump5 - pulse bill acceptor
12285 DF57 FC 00 40 ..@ ldd 0040
12286 DF5A 26 05 &. bne 05
12287 DF5C FC 00 3E ..> ldd 003e
12288 DF5F 27 03 '. beq 03
12289 DF61 BD DB 44 ..D jsr db44 ;jump104 - say thanks
12290 DF64 BD D6 6B ..k jsr d66b ;jump107 - chat to bill validator
12291 DF67 CE 00 1B ... ldx #001b
12292 DF6A 1D 00 40 ... bclr 00,x, #40
12294 DF6D F6 00 2C .., ldab 002c
12295 DF70 27 03 '. beq 03
12296 DF72 7E E0 66 ~.f jmp e066 ;goto71
12297 DF75 F6 00 34 ..4 ldab 0034
12298 DF78 26 0B &. bne 0b ; to df85
12299 DF7A BD BE 69 ..i jsr be69 ;displayreset
12300 DF7D C6 32 .2 ldab #32 ; 50
12301 DF7F F7 00 34 ..4 stab 0034
12302 DF82 7E E0 63 ~.c jmp e063 ;goto72 - bail
12304 DF85 FC 00 40 ..@ ldd 0040
12305 DF88 26 05 &. bne 05
12306 DF8A FC 00 3E ..> ldd 003e
12307 DF8D 27 16 '. beq 16
12308 DF8F CE 00 01 ... ldx #0001
12310 DF93 FC 00 40 ..@ ldd 0040
12311 DF96 F3 00 3E ..> addd 003e
12312 DF99 BD BE 9E ... jsr be9e ;jump50 - write slot & price to screen?
12314 DF9D C6 05 .. ldab #05
12315 DF9F F7 00 2C .., stab 002c
12316 DFA2 7E E0 63 ~.c jmp e063 ;goto72
12318 DFA5 F6 0C D9 ... ldab 0cd9
12319 DFA8 C1 04 .. cmpb #04
12320 DFAA 24 07 $. bcc 07 ; to dfb3
12321 DFAC F6 0B C0 ... ldab 0bc0
12322 DFAF C4 01 .. andb #01 ; have a dumb mech
12323 DFB1 26 07 &. bne 07 ; to dfba
12324 DFB3 F6 00 21 ..! ldab 0021
12325 DFB6 C4 40 .@ andb #40
12326 DFB8 27 43 'C beq 43 ; to dffd
12328 DFBA F6 00 2B ..+ ldab 002b
12329 DFBD C1 00 .. cmpb #00
12330 DFBF 26 0D &. bne 0d
12331 DFC1 CE 00 19 ... ldx #0019
12333 DFC5 CC AD E7 ... ldd #ade7 ; "INTRODUZCA"
12334 DFC8 BD C0 2E ... jsr c02e ;jump71 - display
12336 DFCC 20 2D - bra 2d
12337 DFCE C1 01 .. cmpb #01
12338 DFD0 26 0D &. bne 0d
12339 DFD2 CE 00 12 ... ldx #0012
12341 DFD6 CC AD D3 ... ldd #add3 ; "NICT UEBERZAHLEN"
12342 DFD9 BD C0 2E ... jsr c02e ;jump71 - display
12344 DFDD 20 1C . bra 1c
12345 DFDF C1 02 .. cmpb #02
12346 DFE1 26 0D &. bne 0d
12347 DFE3 CE 00 19 ... ldx #0019
12349 DFE7 CC AD B8 ... ldd #adb8 ; "MONNAIE EXACT"
12350 DFEA BD C0 2E ... jsr c02e ;jump71 - display
12352 DFEE 20 0B . bra 0b
12353 DFF0 CE 00 11 ... ldx #0011 ; length of
12355 DFF4 CC AD A5 ... ldd #ada5 ; " EXACT COINS ONLY "
12356 DFF7 BD C0 2E ... jsr c02e ;jump71 - display
12358 DFFB 20 66 f bra 66 ;goto72
12360 DFFD F6 0B C0 ... ldab 0bc0
12361 E000 C4 08 .. andb #08 ; have link master price holding
12362 E002 27 52 'R beq 52 ; to e056
12363 E004 F6 0B C1 ... ldab 0bc1
12364 E007 C4 08 .. andb #08 ; test bill error bit
12365 E009 26 08 &. bne 08
12366 E00B FC 0B EF ... ldd 0bef
12367 E00E 83 00 64 ..d subd #0064
12368 E011 24 43 $C bcc 43
12369 E013 F6 00 2B ..+ ldab 002b
12370 E016 C1 00 .. cmpb #00
12371 E018 26 0D &. bne 0d
12372 E01A CE 00 12 ... ldx #0012
12374 E01E CC AE 30 ..0 ldd #ae30 ; "MONEDA UNICAMENTE"
12375 E021 BD C0 2E ... jsr c02e ;jump71 - display
12377 E025 20 2D - bra 2d
12378 E027 C1 01 .. cmpb #01
12379 E029 26 0D &. bne 0d
12380 E02B CE 00 0B ... ldx #000b
12382 E02F CC AE 23 ..# ldd #ae23 ; "NUR MUNZEN"
12383 E032 BD C0 2E ... jsr c02e ;jump71 - display
12385 E036 20 1C . bra 1c
12386 E038 C1 02 .. cmpb #02
12387 E03A 26 0D &. bne 0d
12388 E03C CE 00 12 ... ldx #0012
12390 E040 CC AE 0F ... ldd #ae0f ; "MONNAIES SEULEMENT"
12391 E043 BD C0 2E ... jsr c02e ;jump71 - display
12393 E047 20 0B . bra 0b
12394 E049 CE 00 0B ... ldx #000b
12396 E04D CC AE 02 ... ldd #ae02 ; "COINS ONLY"
12397 E050 BD C0 2E ... jsr c02e ;jump71 - display
12399 E054 20 0D . bra 0d
12401 E056 F6 0B BF ... ldab 0bbf
12405 E05C CC 09 93 ... ldd #0993 ; some custom message?
12406 E05F BD C0 2E ... jsr c02e ;jump71 - display
12409 E063 7E E5 6A ~.j jmp e56a ;goto73 - bail
12411 E066 F6 00 06 ... ldab 0006
12412 E069 26 03 &. bne 03
12413 E06B 7E E5 6A ~.j jmp e56a ;goto73 - bail
12414 E06E CE 00 1D ... ldx #001d
12415 E071 1C 00 40 ... bset 00,x, #40
12416 E074 BD E7 C7 ... jsr e7c7 ;jump114
12417 E077 F6 00 06 ... ldab 0006
12418 E07A C1 59 .Y cmpb #59 ; 89
12419 E07C 26 06 &. bne 06
12420 E07E BD DE 09 ... jsr de09 ;jump119 - display machine id
12421 E081 7E E5 5E ~.^ jmp e55e ;goto74 - bail
12423 E084 F6 00 06 ... ldab 0006
12424 E087 BD D4 68 ..h jsr d468 ;jump51
12425 E08A 83 00 00 ... subd #0000
12426 E08D 27 18 '. beq 18 ; to e097
12428 E08F BD D5 61 ..a jsr d561 ;jump42
12429 E092 83 00 00 ... subd #0000
12430 E095 26 10 &. bne 10 ; to e0a7
12432 E097 BD D3 46 ..F jsr d346 ;jump43
12433 E09A 83 00 00 ... subd #0000
12434 E09D 26 08 &. bne 08
12435 E09F BD D7 83 ... jsr d783 ;jump44
12436 E0A2 83 00 00 ... subd #0000
12437 E0A5 27 09 '. beq 09
12439 E0A7 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
12440 E0AA BD D8 E9 ... jsr d8e9 ;jump92 - "SELECT OTHER ITEM"
12441 E0AD 7E E5 5E ~.^ jmp e55e ;goto74 - bail
12443 E0B0 F6 00 06 ... ldab 0006
12446 E0B5 C3 08 00 ... addd #0800
12448 E0B9 EC 00 .. ldd 00,x
12449 E0BB C4 FF .. andb #ff
12450 E0BD 84 3F .? anda #3f
12451 E0BF FD 00 44 ..D std 0044
12452 E0C2 F6 00 06 ... ldab 0006
12455 E0C7 C3 08 C8 ... addd #08c8
12457 E0CB EC 00 .. ldd 00,x
12458 E0CD C4 7F .. andb #7f
12460 E0D0 FD 00 4D ..M std 004d
12461 E0D3 F6 0B C0 ... ldab 0bc0
12462 E0D6 2C 05 ,. bge 05 ; free vend
12465 E0DA FD 00 44 ..D std 0044
12467 E0DD F6 0B C0 ... ldab 0bc0
12468 E0E0 C4 02 .. andb #02 ; have a link master! (thats us!)
12469 E0E2 26 03 &. bne 03
12470 E0E4 BD DE 15 ... jsr de15 ;jump118
12471 E0E7 F6 00 11 ... ldab 0011
12472 E0EA C4 20 . andb #20 ; win a snack?
12473 E0EC 26 1A &. bne 1a ;to e108
12474 E0EE F6 0B C0 ... ldab 0bc0
12475 E0F1 C4 02 .. andb #02 ; have a changer
12476 E0F3 26 13 &. bne 13 ; to e108
12477 E0F5 FC 00 40 ..@ ldd 0040
12478 E0F8 F3 00 3E ..> addd 003e
12479 E0FB B3 00 44 ..D subd 0044
12480 E0FE 25 08 %. bcs 08 ; to e108
12481 E100 F6 0B C0 ... ldab 0bc0
12482 E103 2D 03 -. blt 03 ; no free vend - to e108
12483 E105 BD DA 64 ..d jsr da64 ;jump122
12485 E108 FC 00 40 ..@ ldd 0040 ; have sufficient funds?
12486 E10B F3 00 3E ..> addd 003e
12487 E10E B3 00 44 ..D subd 0044
12488 E111 24 50 $P bcc 50 ; to e163
12489 E113 F6 0B C0 ... ldab 0bc0
12490 E116 C4 10 .. andb #10 ; have link master price holding
12491 E118 26 49 &I bne 49
12492 E11A F6 00 2B ..+ ldab 002b
12493 E11D C1 00 .. cmpb #00
12494 E11F 26 08 &. bne 08
12495 E121 CC AC C9 ... ldd #acc9 ; "PRECIO"
12496 E124 BD C0 BA ... jsr c0ba ;display:
12497 E127 20 1E . bra 1e
12498 E129 C1 01 .. cmpb #01
12499 E12B 26 08 &. bne 08
12500 E12D CC AC BE ... ldd #acbe ; "PREIS"
12501 E130 BD C0 BA ... jsr c0ba ;display:
12502 E133 20 12 . bra 12
12503 E135 C1 02 .. cmpb #02
12504 E137 26 08 &. bne 08
12505 E139 CC AC B3 ... ldd #acb3 ; "PRIX"
12506 E13C BD C0 BA ... jsr c0ba ;display:
12507 E13F 20 06 . bra 06
12508 E141 CC AC A8 ... ldd #aca8 ; "PRICE"
12509 E144 BD C0 BA ... jsr c0ba ;display:
12510 E147 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay
12511 E14A CE 00 00 ... ldx #0000
12513 E14E FC 00 44 ..D ldd 0044
12514 E151 BD BE 9E ... jsr be9e ;jump50 - write price to screen
12516 E155 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
12517 E158 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay
12518 E15B C6 0C .. ldab #0c
12519 E15D F7 00 2C .., stab 002c
12520 E160 7E E5 5E ~.^ jmp e55e ;goto74 - return
12522 E163 F6 0B C0 ... ldab 0bc0
12523 E166 C4 01 .. andb #01 ; have a dumb mech
12524 E168 26 11 &. bne 11 ; to e17b
12525 E16A F6 0B C0 ... ldab 0bc0
12526 E16D C4 04 .. andb #04 ; have a card reader
12527 E16F 26 0A &. bne 0a ; to e17b
12528 E171 F6 0B C0 ... ldab 0bc0
12529 E174 C4 0F .. andb #0f ; have any coin input mechanism
12530 E176 27 03 '. beq 03 ; to e17b
12531 E178 7E E3 35 ~.5 jmp e335 ;goto75
12533 E17B FC 00 40 ..@ ldd 0040
12534 E17E F3 00 3E ..> addd 003e
12535 E181 B3 00 44 ..D subd 0044
12536 E184 FD 10 16 ... std 1016 ; change required to give?
12537 E187 F6 00 15 ... ldab 0015
12538 E18A C4 01 .. andb #01
12539 E18C 27 08 '. beq 08 ; to e196
12540 E18E FC 10 16 ... ldd 1016
12541 E191 83 00 64 ..d subd #0064 ; 100
12542 E194 25 3C %< bcs 3c ; to e1d2
12543 E196 F6 00 15 ... ldab 0015
12544 E199 C4 02 .. andb #02
12545 E19B 27 08 '. beq 08 ; to e1a5
12546 E19D FC 10 16 ... ldd 1016
12547 E1A0 83 00 C8 ... subd #00c8 ; 200
12548 E1A3 25 2D %- bcs 2d ; to e1d2
12549 E1A5 F6 00 15 ... ldab 0015
12550 E1A8 C4 04 .. andb #04
12551 E1AA 27 08 '. beq 08 ; to e1b4
12552 E1AC FC 10 16 ... ldd 1016
12553 E1AF 83 01 F4 ... subd #01f4 ; 500
12554 E1B2 25 1E %. bcs 1e ; to e1d2
12555 E1B4 F6 00 15 ... ldab 0015
12556 E1B7 C4 08 .. andb #08
12557 E1B9 27 08 '. beq 08
12558 E1BB FC 10 16 ... ldd 1016
12559 E1BE 83 03 E8 ... subd #03e8 ; 1000
12560 E1C1 25 0F %. bcs 0f ; to e1d2
12561 E1C3 F6 00 15 ... ldab 0015
12562 E1C6 C4 10 .. andb #10
12563 E1C8 27 13 '. beq 13 ; to e1dd
12564 E1CA FC 10 16 ... ldd 1016
12565 E1CD 83 07 D0 ... subd #07d0 ; 2000
12566 E1D0 24 0B $. bcc 0b ; to e1dd
12568 E1D2 BD C0 E0 ... jsr c0e0 ;jump94
12569 E1D5 83 00 00 ... subd #0000
12570 E1D8 26 01 &. bne 01
12574 E1DB 20 03 . bra 03
12575 E1DD BD C5 D3 ... jsr c5d3 ;jump6
12576 E1E0 BD D6 52 ..R jsr d652 ;jump5
12577 E1E3 FC 00 40 ..@ ldd 0040
12578 E1E6 B3 00 44 ..D subd 0044
12579 E1E9 F3 00 3E ..> addd 003e
12580 E1EC FD 00 40 ..@ std 0040 ; credit left
12583 E1F1 FD 00 3E ..> std 003e
12584 E1F4 CE 00 1B ... ldx #001b
12585 E1F7 1C 00 80 .. bset 00,x, #80
12586 E1F9 BD D2 13 .. jsr d213 ;jump45 - vend it!
12587 E1FC 83 00 00 ... subd #0000
12588 E200 26 12 &. bne 12 ; to e214
12589 E202 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
12590 E205 BD D8 E9 ... jsr d8e9 ;jump92 - "SELECT OTHER ITEM"
12591 E208 FC 00 40 ..@ ldd 0040
12592 E20B F3 00 44 ..D addd 0044
12593 E20E FD 00 40 ..@ std 0040
12594 E211 7E E3 29 ~.) jmp e329 ;goto92
12595 E214 BD DB CB ... jsr dbcb ;jump121
12596 E217 F6 00 1B ... ldab 001b
12597 E21A C4 20 . andb #20
12598 E21C 27 45 'E beq 45 ; to e263
12599 E21E FC 00 44 ..D ldd 0044
12606 E227 CC 0D FB ... ldd #0dfb
12607 E22A BD FB DF ... jsr fbdf ;jump46
12610 E22F FE 0D FD ... ldx 0dfd
12612 E233 FC 0D FB ... ldd 0dfb
12615 E238 CE E1 00 ... ldx #e100
12617 E23C CC 05 F5 ... ldd #05f5 ; 100000000 (with above)
12621 E242 EC 06 .. ldd 06,x
12622 E244 A3 02 .. subd 02,x
12623 E246 EC 04 .. ldd 04,x
12624 E248 E2 01 .. sbcb 01,x
12625 E24A A2 00 .. sbca 00,x
12630 E250 25 11 %. bcs 11
12631 E252 CE 1F 00 ... ldx #1f00
12633 E256 CC FA 0A ... ldd #fa0a ; -100000000 (with above)
12636 E25B CC 0D FB ... ldd #0dfb
12637 E25E BD FB DF ... jsr fbdf ;jump46 - update accounting info?
12641 E263 F6 0B C0 ... ldab 0bc0
12642 E266 2C 78 ,x bge 78 ; free vend - to e2e0
12643 E268 F6 00 06 ... ldab 0006
12646 E26D C3 08 00 ... addd #0800
12648 E271 EC 00 .. ldd 00,x
12649 E273 C4 FF .. andb #ff
12650 E275 26 02 &. bne 02
12651 E277 84 3F .? anda #3f
12652 E279 27 65 'e beq 65
12653 E27B FC 0D 0D ... ldd 0d0d
12654 E27E 83 FF FF ... subd #ffff
12655 E281 26 05 &. bne 05
12658 E285 FD 0D 0D ... std 0d0d ; update number of free vends?
12659 E288 FE 0D 0D ... ldx 0d0d
12661 E28C FF 0D 0D ... stx 0d0d
12662 E28F F6 00 06 ... ldab 0006
12665 E294 C3 08 00 ... addd #0800
12667 E298 EC 00 .. ldd 00,x
12668 E29A C4 FF .. andb #ff
12669 E29C 84 3F .? anda #3f
12676 E2A4 CC 0D 1B ... ldd #0d1b
12677 E2A7 BD FB DF ... jsr fbdf ;jump46 - update accounting info?
12680 E2AC FE 0D 1D ... ldx 0d1d
12682 E2B0 FC 0D 1B ... ldd 0d1b
12685 E2B5 CE E1 00 ... ldx #e100
12687 E2B9 CC 05 F5 ... ldd #05f5 ; 100000000
12691 E2BF EC 06 .. ldd 06,x
12692 E2C1 A3 02 .. subd 02,x
12693 E2C3 EC 04 .. ldd 04,x
12694 E2C5 E2 01 .. sbcb 01,x
12695 E2C7 A2 00 .. sbca 00,x
12700 E2CD 25 11 %. bcs 11
12701 E2CF CE 1F 00 ... ldx #1f00
12703 E2D3 CC FA 0A ... ldd #fa0a ; -100000000
12706 E2D8 CC 0D 1B ... ldd #0d1b
12707 E2DB BD FB DF ... jsr fbdf ;jump46 - update accounting info?
12711 E2E0 F6 00 11 ... ldab 0011
12712 E2E3 C4 10 .. andb #10 ; multi dip switch
12713 E2E5 26 14 &. bne 14 ; to e2fb
12714 E2E7 FC 00 40 ..@ ldd 0040
12715 E2EA 27 0F '. beq 0f ; to e2fb
12716 E2EC FC 00 40 ..@ ldd 0040
12717 E2EF B3 00 50 ..P subd 0050
12718 E2F2 24 15 $. bcc 15 ; to e309
12719 E2F4 F6 00 11 ... ldab 0011
12720 E2F7 C4 10 .. andb #10
12721 E2F9 26 0E &. bne 0e
12723 E2FB BD DB 44 ..D jsr db44 ;jump104 - say thanks
12724 E2FE CE 00 1B ... ldx #001b
12725 E301 1D 00 40 ... bclr 00,x, #40
12726 E304 7F 00 25 ..% clr 0025
12727 E307 20 1A . bra 1a ; to e323
12729 E309 7F 00 2C .., clr 002c
12730 E30C CC 01 F4 ... ldd #01f4
12731 E30F BD E5 71 ..q jsr e571 ;msdelay
12732 E312 BD E5 AA ... jsr e5aa ;jump12 - beep if keypressed?
12733 E315 BD D8 E9 ... jsr d8e9 ;jump92 - select other item
12734 E318 CE 00 1B ... ldx #001b
12735 E31B 1C 00 40 ... bset 00,x, #40
12736 E31E C6 0A .. ldab #0a
12737 E320 F7 00 25 ..% stab 0025
12739 E323 BD D7 FF ... jsr d7ff ;jump80
12740 E326 BD D8 40 ..@ jsr d840 ;jump105
12742 E329 BD E8 9A ... jsr e89a ;jump68
12743 E32C CE 0B C1 ... ldx #0bc1
12744 E32F 1D 00 08 ... bclr 00,x, #08 ; clear bill error bit
12745 E332 7E E5 5E ~.^ jmp e55e ;goto74 - bail
12747 E335 F6 0B C0 ... ldab 0bc0
12748 E338 C4 02 .. andb #02 ; have changer - european link master type!
12749 E33A 26 03 &. bne 03
12750 E33C 7E E5 5E ~.^ jmp e55e ;goto74 - bail
12753 E341 FD 00 76 ..v std 0076
12754 E344 CE 00 17 ... ldx #0017
12755 E347 1D 00 01 ... bclr 00,x, #01
12756 E34A CE 00 17 ... ldx #0017
12757 E34D 1D 00 02 ... bclr 00,x, #02
12758 E350 FC 00 44 ..D ldd 0044
12759 E353 26 1C &. bne 1c ; to e371
12760 E355 F6 0B C0 ... ldab 0bc0
12761 E358 C4 10 .. andb #10 ; have link master price holding
12762 E35A 26 08 &. bne 08
12763 E35C CE 00 21 ..! ldx #0021
12764 E35F 1C 00 80 .. bset 00,x, #80
12765 E362 20 0B . bra 0b
12766 E364 CE 00 21 ..! ldx #0021
12767 E367 1D 00 80 .. bclr 00,x, #80
12768 E369 C6 05 .. ldab #05
12769 E36C F7 00 75 ..u stab 0075
12770 E36F 20 57 W bra 57 ; to e3c8
12772 E371 F6 0B C0 ... ldab 0bc0
12773 E374 C4 10 .. andb #10 ; have link master price holding
12774 E376 27 50 'P beq 50 ; to e3c8
12775 E378 FC 00 40 ..@ ldd 0040
12776 E37B 26 4B &K bne 4b ; to e3c8
12777 E37D F6 0B C0 ... ldab 0bc0
12778 E380 C4 20 . andb #20 ; have link master price holding - price display
12779 E382 27 3E '> beq 3e ; e3c2
12780 E384 CE 00 17 ... ldx #0017
12781 E387 1C 00 01 ... bset 00,x, #01
12782 E38A F6 00 2B ..+ ldab 002b
12783 E38D C1 00 .. cmpb #00
12784 E38F 26 08 &. bne 08
12785 E391 CC AC C9 ... ldd #acc9 ; " PRECIO "
12786 E394 BD C0 BA ... jsr c0ba ;display:
12787 E397 20 1E . bra 1e
12788 E399 C1 01 .. cmpb #01
12789 E39B 26 08 &. bne 08
12790 E39D CC AC BE ... ldd #acbe ; " PRIES "
12791 E3A0 BD C0 BA ... jsr c0ba ;display:
12792 E3A3 20 12 . bra 12
12793 E3A5 C1 02 .. cmpb #02
12794 E3A7 26 08 &. bne 08
12795 E3A9 CC AC B3 ... ldd #acb3 ; " PRIX "
12796 E3AC BD C0 BA ... jsr c0ba ;display:
12797 E3AF 20 06 . bra 06
12798 E3B1 CC AC A8 ... ldd #aca8 ; " PRICE "
12799 E3B4 BD C0 BA ... jsr c0ba ;display:
12800 E3B7 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay
12801 E3BA CE 00 17 ... ldx #0017
12802 E3BD 1C 00 02 ... bset 00,x, #02
12803 E3C0 20 06 . bra 06
12805 E3C2 CE 00 1F ... ldx #001f
12806 E3C5 1C 00 08 ... bset 00,x, #08
12808 E3C8 CE 00 1D ... ldx #001d
12809 E3CB 1C 00 02 ... bset 00,x, #02
12810 E3CE CE 00 19 ... ldx #0019
12811 E3D1 1C 00 08 ... bset 00,x, #08
12812 E3D4 C6 32 .2 ldab #32
12813 E3D6 F7 00 31 ..1 stab 0031
12814 E3D9 C6 19 .. ldab #19
12815 E3DB F7 00 36 ..6 stab 0036
12817 E3DE F6 00 1D ... ldab 001d
12818 E3E1 C4 02 .. andb #02
12819 E3E3 26 03 &. bne 03
12820 E3E5 7E E4 6E ~.n jmp e46e ;goto76
12821 E3E8 F6 00 75 ..u ldab 0075
12822 E3EB C1 04 .. cmpb #04
12823 E3ED 22 05 ". bhi 05
12824 E3EF F6 00 36 ..6 ldab 0036
12825 E3F2 26 3C &< bne 3c
12826 E3F4 7F 00 06 ... clr 0006
12829 E3F9 FD 00 76 ..v std 0076
12830 E3FC 7F 00 2E ... clr 002e
12831 E3FF 7F 00 2C .., clr 002c
12832 E402 7F 00 75 ..u clr 0075
12833 E405 CE 00 17 ... ldx #0017
12834 E408 1D 00 01 ... bclr 00,x, #01
12835 E40B CE 00 19 ... ldx #0019
12836 E40E 1D 00 08 ... bclr 00,x, #08
12837 E411 CE 00 1B ... ldx #001b
12838 E414 1D 00 80 .. bclr 00,x, #80
12839 E416 CE 00 1D .. ldx #001d
12840 E41A 1D 00 40 ... bclr 00,x, #40
12841 E41D CE 00 1D ... ldx #001d
12842 E420 1D 00 02 ... bclr 00,x, #02
12843 E423 CE 00 1F ... ldx #001f
12844 E426 1D 00 08 ... bclr 00,x, #08
12845 E429 CE 00 21 ..! ldx #0021
12846 E42C 1D 00 80 .. bclr 00,x, #80
12849 E430 F6 0B C0 ... ldab 0bc0
12850 E433 C4 20 . andb #20 ; link master - price display
12851 E435 27 34 '4 beq 34
12852 E437 F6 00 17 ... ldab 0017
12853 E43A C4 01 .. andb #01
12854 E43C 26 2D &- bne 2d
12855 E43E F6 00 17 ... ldab 0017
12856 E441 C4 02 .. andb #02
12857 E443 27 26 '& beq 26
12858 E445 CE 00 00 ... ldx #0000
12860 E449 FC 00 76 ..v ldd 0076
12861 E44C BD BE 9E ... jsr be9e ;jump50
12863 E450 FC 00 76 ..v ldd 0076
12864 E453 26 06 &. bne 06
12865 E455 CE 00 17 ... ldx #0017
12866 E458 1D 00 02 ... bclr 00,x, #02
12867 E45B F6 00 17 ... ldab 0017
12868 E45E C4 02 .. andb #02
12869 E460 27 09 '. beq 09
12870 E462 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
12871 E465 CE 00 17 ... ldx #0017
12872 E468 1D 00 02 ... bclr 00,x, #02
12873 E46B 7E E3 DE ~.. jmp e3de ;goto77
12875 E46E CE 00 21 ..! ldx #0021
12876 E471 1D 00 80 .. bclr 00,x, #80
12877 E474 CE 00 1F .. ldx #001f
12878 E477 1D 00 08 .... bclr 00,x, #08
12879 E47A BD D2 13 ... jsr d213 ;jump45 - vend it!
12880 E47D 83 00 00 ... subd #0000
12881 E480 26 0F &. bne 0f
12882 E482 CC 00 80 ... ldd #0080
12883 E485 BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
12884 E488 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
12885 E48B BD D8 E9 ... jsr d8e9 ;jump92 - "SELECT OTHER ITEM"
12886 E48E 7E E5 5E ~.^ jmp e55e ;goto74 - bail
12887 E491 F6 00 2B ..+ ldab 002b
12888 E494 C1 00 .. cmpb #00
12889 E496 26 08 &. bne 08
12890 E498 CC AD 16 ... ldd #ad16 ; "GRACIAS"
12891 E49B BD C0 BA ... jsr c0ba ;display:
12892 E49E 20 1E . bra 1e
12893 E4A0 C1 01 .. cmpb #01
12894 E4A2 26 08 &. bne 08
12895 E4A4 CC AD 0B ... ldd #ad0b ; "DANKE"
12896 E4A7 BD C0 BA ... jsr c0ba ;display:
12897 E4AA 20 12 . bra 12
12898 E4AC C1 02 .. cmpb #02
12899 E4AE 26 08 &. bne 08
12900 E4B0 CC AD 00 ... ldd #ad00 ; "MERCI"
12901 E4B3 BD C0 BA ... jsr c0ba ;display:
12902 E4B6 20 06 . bra 06
12903 E4B8 CC AC F5 ... ldd #acf5 ; "THANKS"
12904 E4BB BD C0 BA ... jsr c0ba ;display:
12905 E4BE BD D8 D3 ... jsr d8d3 ;jump84 500ms delay
12906 E4C1 CE 00 01 ... ldx #0001
12908 E4C5 FC 00 40 ..@ ldd 0040
12909 E4C8 BD BE 9E ... jsr be9e ;jump50
12913 E4CE BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
12914 E4D1 F6 0B C0 ... ldab 0bc0
12915 E4D4 2D 03 -. blt 03 ; free vend
12916 E4D6 7E E5 58 ~.X jmp e558 ;goto78 if not
12917 E4D9 F6 0B C0 ... ldab 0bc0
12918 E4DC C4 10 .. andb #10 ; link master - price holding
12919 E4DE 26 78 &x bne 78
12920 E4E0 F6 00 06 ... ldab 0006
12923 E4E5 C3 08 00 ... addd #0800
12925 E4E9 EC 00 .. ldd 00,x
12926 E4EB C4 FF .. andb #ff
12927 E4ED 26 02 &. bne 02
12928 E4EF 84 3F .? anda #3f
12929 E4F1 27 65 'e beq 65
12930 E4F3 FC 0D 0D ... ldd 0d0d
12931 E4F6 83 FF FF ... subd #ffff
12932 E4F9 26 05 &. bne 05
12935 E4FD FD 0D 0D ... std 0d0d
12936 E500 FE 0D 0D ... ldx 0d0d
12938 E504 FF 0D 0D ... stx 0d0d
12939 E507 F6 00 06 ... ldab 0006
12942 E50C C3 08 00 ... addd #0800
12944 E510 EC 00 .. ldd 00,x
12945 E512 C4 FF .. andb #ff
12946 E514 84 3F .? anda #3f
12953 E51C CC 0D 1B ... ldd #0d1b
12954 E51F BD FB DF ... jsr fbdf ;jump46
12957 E524 FE 0D 1D ... ldx 0d1d
12959 E528 FC 0D 1B ... ldd 0d1b
12962 E52D CE E1 00 ... ldx #e100
12964 E531 CC 05 F5 ... ldd #05f5
12968 E537 EC 06 .. ldd 06,x
12969 E539 A3 02 .. subd 02,x
12970 E53B EC 04 .. ldd 04,x
12971 E53D E2 01 .. sbcb 01,x
12972 E53F A2 00 .. sbca 00,x
12977 E545 25 11 %. bcs 11
12978 E547 CE 1F 00 ... ldx #1f00
12980 E54B CC FA 0A ... ldd #fa0a
12983 E550 CC 0D 1B ... ldd #0d1b
12984 E553 BD FB DF ... jsr fbdf ;jump46
12988 E558 BD D7 FF ... jsr d7ff ;jump80
12989 E55B BD D8 40 ..@ jsr d840 ;jump105
12991 E55E 7F 00 06 ... clr 0006
12992 E561 7F 00 2E ... clr 002e
12993 E564 CE 00 1B ... ldx #001b
12994 E567 1D 00 80 .. bclr 00,x, #80
12996 E56A CE 00 1D ... ldx #001d
12997 E56C 1D 00 40 .. bclr 00,x, #40
13000 ;!!! Is this a delay routine? It gets called between displaying strings
13001 ;on startup. Looks like a delay. e61b just stores 0a at 0031 and returns.
13003 ; appears to delay for roughly D milliseconds.
13008 E575 EC 01 .. ldd 01,x
13009 E577 83 00 01 ... subd #0001
13010 E57A ED 01 .. std 01,x
13011 E57C 2D 15 -. blt 15 ; to e593
13012 E57E C6 41 .A ldab #41
13014 E581 E7 00 .. stab 00,x
13016 E584 E6 00 .. ldab 00,x
13017 E586 6A 00 j. dec 00,x
13018 E588 C1 00 .. cmpb #00
13019 E58A 23 02 #. bls 02
13020 E58C 20 F5 . bra f5 ; to e583
13021 E58E BD E6 1B ... jsr e61b ;jump4
13022 E591 20 E1 . bra e1 ; to e574
13023 E593 38 8 pulx ;this must just be a standard 'pull 3
13024 E594 31 1 ins ;bytes and I don't care where they go'
13025 ;to clean up the stack.
13029 ; A short delay - counts to 32 in a stack variable. (about 100ms?)
13031 E597 C6 32 .2 ldab #32
13033 E59A E7 00 .. stab 00,x
13035 E59D E6 00 .. ldab 00,x
13036 E59F C1 00 .. cmpb #00
13037 E5A1 23 05 #. bls e5a8
13039 E5A4 6A 00 j. dec 00,x
13040 E5A6 20 F4 . bra e59c
13045 ; beep if keypressed?
13046 E5AA F6 00 33 ..3 ldab 0033
13047 E5AD 27 0C '. beq 0c ; to e5bb
13048 E5AF F6 00 29 ..) ldab 0029 ; key state
13049 E5B2 27 05 '. beq 05 ; to e5b9 (out)
13050 E5B4 C6 02 .. ldab #02
13051 E5B6 F7 00 33 ..3 stab 0033
13052 E5B9 20 15 . bra 15 ; to e5d0 (out)
13053 E5BB C6 03 .. ldab #03 ; beep
13054 E5BD F7 00 32 ..2 stab 0032
13055 E5C0 FC 00 3B ..; ldd 003b
13056 E5C3 27 06 '. beq 06 ; to e5cb
13057 E5C5 CC 02 33 ..3 ldd #0233
13058 E5C8 FD 00 3B ..; std 003b
13059 E5CB C6 02 .. ldab #02 ; make a beep
13060 E5CD F7 00 33 ..3 stab 0033
13064 ; signifies a triple beep?
13065 E5D1 C6 0B .. ldab #0b ; 1011
13066 E5D3 F7 00 32 ..2 stab 0032
13070 ; tests an internal switch or input line
13071 ; Parameters: Port Address in D, bit mask on stack
13075 ; make some stack space
13081 ; 00,x on stack - number of hits
13082 E5DE ED 00 .. std 00,x
13083 ; we call i = 02,x. let i = 64
13084 E5E0 CC 00 64 ..d ldd #0064
13085 E5E3 ED 02 .. std 02,x
13088 E5E6 EC 02 .. ldd 02,x
13089 E5E8 2F 21 /! ble 21 ; to e60b
13090 ; we call j = 04,x. let j = initial value of D
13092 E5EB EE 04 .. ldx 04,x
13093 E5ED E6 00 .. ldab 00,x
13095 E5F0 E4 09 .. andb 09,x
13096 E5F2 27 05 '. beq 05 ; to e5f9 if bit cleared
13098 E5F5 08 . inx ; increment number of hits
13100 E5F7 20 08 . bra 08 ; to e601
13102 E5FA EC 00 .. ldd 00,x
13103 E5FC 83 00 01 ... subd #0001 ; decrement number of hits
13104 E5FF ED 00 .. std 00,x
13106 E602 EC 02 .. ldd 02,x
13107 E604 83 00 01 ... subd #0001 ; i--
13108 E607 ED 02 .. std 02,x
13109 E609 20 DA . bra da ; to e5e5
13111 ; return 1 iff the key was pressed
13113 E60C EC 00 .. ldd 00,x
13114 E60E 2F 04 /. ble 04 ; to e614 if -ve
13117 E612 20 03 . bra 03 ; to e617
13118 E614 CC 00 01 ... ldd #0001
13125 E61B C6 0A .. ldab #0a
13126 E61D F7 00 31 ..1 stab 0031
13130 ; writes a really big number to the display
13135 E625 BD BE 4B ..K jsr be4b ;displayblank
13137 E629 EC 04 .. ldd 04,x
13140 E62D EC 02 .. ldd 02,x
13143 E631 CE 96 80 ... ldx #9680 ;38528
13145 E635 CC 00 98 ... ldd #0098 ;152
13146 E638 BD FC 4C ..L jsr fc4c ;bigdivide
13149 E63D CB 30 .0 addb #30 ; make it a digit
13150 E63F F7 0B 97 ... stab 0b97
13153 E643 EC 04 .. ldd 04,x
13156 E647 EC 02 .. ldd 02,x
13159 E64B CE 96 80 ... ldx #9680 ;38528
13161 E64F CC 00 98 ... ldd #0098 ;152
13162 E652 BD FC 5C ..\ jsr fc5c ;bigmodulus
13165 E657 CE 42 40 .B@ ldx #4240 ;16960
13167 E65B CC 00 0F ... ldd #000f ;15
13168 E65E BD FC 4C ..L jsr fc4c ;bigdivide
13171 E663 CB 30 .0 addb #30
13172 E665 F7 0B 96 ... stab 0b96
13175 E669 EC 04 .. ldd 04,x
13178 E66D EC 02 .. ldd 02,x
13181 E671 CE 42 40 .B@ ldx #4240 ;16960
13183 E675 CC 00 0F ... ldd #000f ;15
13184 E678 BD FC 5C ..\ jsr fc5c ;bigmodulus
13187 E67D CE 86 A0 ... ldx #86a0 ;34464
13189 E681 CC 00 01 ... ldd #0001 ;1
13190 E684 BD FC 4C ..L jsr fc4c ;bigdivide
13193 E689 CB 30 .0 addb #30
13194 E68B F7 0B 95 ... stab 0b95
13197 E68F EC 04 .. ldd 04,x
13200 E693 EC 02 .. ldd 02,x
13203 E697 CE 86 A0 ... ldx #86a0 ;34464
13205 E69B CC 00 01 ... ldd #0001 ;1
13206 E69E BD FC 5C ..\ jsr fc5c ;bigmodulus
13209 E6A3 CE 27 10 .'. ldx #2710 ;10000
13211 E6A7 CC 00 00 ... ldd #0000
13212 E6AA BD FC 4C ..L jsr fc4c ;bigdivide
13215 E6AF CB 30 .0 addb #30
13216 E6B1 F7 0B 94 ... stab 0b94
13219 E6B5 EC 04 .. ldd 04,x
13222 E6B9 EC 02 .. ldd 02,x
13225 E6BD CE 27 10 .'. ldx #2710 ;10000
13227 E6C1 CC 00 00 ... ldd #0000
13228 E6C4 BD FC 5C ..\ jsr fc5c ;bigmodulus
13231 E6C9 CE 03 E8 ... ldx #03e8 ;1000
13233 E6CD CC 00 00 ... ldd #0000
13234 E6D0 BD FC 4C ..L jsr fc4c ;bigdivide
13237 E6D5 CB 30 .0 addb #30
13238 E6D7 F7 0B 93 ... stab 0b93
13242 E6DB EC 04 .. ldd 04,x
13245 E6DF EC 02 .. ldd 02,x
13248 E6E3 CE 03 E8 ... ldx #03e8 ;1000
13250 E6E7 CC 00 00 ... ldd #0000
13251 E6EA BD FC 5C ..\ jsr fc5c ;bigmodulus
13254 E6EF CE 00 64 ..d ldx #0064 ;100
13256 E6F3 CC 00 00 ... ldd #0000
13257 E6F6 BD FC 4C ..L jsr fc4c ;bigdivide
13260 E6FB CB 30 .0 addb #30
13261 E6FD F7 0B 92 ... stab 0b92
13264 E701 EC 04 .. ldd 04,x
13267 E705 EC 02 .. ldd 02,x
13270 E709 CE 00 64 ..d ldx #0064 ;100
13272 E70D CC 00 00 ... ldd #0000
13273 E710 BD FC 5C ..\ jsr fc5c ;bigmodulus
13276 E715 CE 00 0A ... ldx #000a ;10
13278 E719 CC 00 00 ... ldd #0000
13279 E71C BD FC 4C ..L jsr fc4c ;bigdivide
13282 E721 CB 30 .0 addb #30
13283 E723 F7 0B 91 ... stab 0b91
13286 E727 EC 04 .. ldd 04,x
13289 E72B EC 02 .. ldd 02,x
13292 E72F CE 00 0A ... ldx #000a ;10
13294 E733 CC 00 00 ... ldd #0000
13295 E736 BD FC 5C ..\ jsr fc5c ;bigmodulus
13298 E73B CB 30 .0 addb #30
13299 E73D F7 0B 90 ... stab 0b90
13304 E743 6E 00 n. jmp 00,x
13307 ; number to string. number is <= 99999. puts it into 0057, 005a, 005d-005f
13311 E748 EC 00 .. ldd 00,x
13312 E74A CE 27 10 .'. ldx #2710 ; 10000
13315 E74F CB 30 .0 addb #30
13316 E751 F7 00 57 ..W stab 0057 ; num/10000 => 0057
13318 E755 EC 00 .. ldd 00,x
13319 E757 CE 27 10 .'. ldx #2710 ; 10000
13321 E75B CE 03 E8 ... ldx #03e8
13324 E760 CB 30 .0 addb #30
13325 E762 F7 00 5A ..Z stab 005a ; num%10000/1000 => 005a
13327 E766 EC 00 .. ldd 00,x
13328 E768 CE 03 E8 ... ldx #03e8
13330 E76C CE 00 64 ..d ldx #0064
13333 E771 CB 30 .0 addb #30
13334 E773 F7 00 5D ..] stab 005d ; num%1000/100 => 005d
13336 E777 EC 00 .. ldd 00,x
13337 E779 CE 00 64 ..d ldx #0064
13339 E77D CE 00 0A ... ldx #000a
13342 E782 CB 30 .0 addb #30
13343 E784 F7 00 5E ..^ stab 005e ; num%100/10 => 005e
13345 E788 EC 00 .. ldd 00,x
13346 E78A CE 00 0A ... ldx #000a
13348 E78E CB 30 .0 addb #30
13349 E790 F7 00 5F .._ stab 005f ; num%10 => 005f
13354 ; number to string. number is <= 999. puts it into 005d-005f
13358 E798 E6 01 .. ldab 01,x
13360 E79B CE 00 64 ..d ldx #0064 ; /100
13363 E7A0 CB 30 .0 addb #30 ; make it a digit
13364 E7A2 F7 00 5D ..] stab 005d
13366 E7A6 E6 01 .. ldab 01,x
13368 E7A9 CE 00 64 ..d ldx #0064
13371 E7AE CE 00 0A ... ldx #000a
13374 E7B3 CB 30 .0 addb #30 ; %100 / 10 -> digit
13375 E7B5 F7 00 5E ..^ stab 005e
13377 E7B9 E6 01 .. ldab 01,x
13379 E7BC CE 00 0A ... ldx #000a
13381 E7C0 CB 30 .0 addb #30
13382 E7C2 F7 00 5F .._ stab 005f ; %10
13387 E7C7 F6 00 06 ... ldab 0006
13389 E7CB CE 00 05 ... ldx #0005
13392 E7D0 26 03 &. bne 03
13393 E7D2 7E E8 99 ~.. jmp e899 ;goto79
13394 E7D5 F6 00 06 ... ldab 0006
13395 E7D8 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
13396 E7DB 83 00 00 ... subd #0000
13397 E7DE 27 03 '. beq 03
13398 E7E0 7E E8 99 ~.. jmp e899 ;goto79
13399 E7E3 F6 00 06 ... ldab 0006
13402 E7E8 C3 08 00 ... addd #0800
13404 E7EC EC 00 .. ldd 00,x
13405 E7EE C4 FF .. andb #ff
13406 E7F0 84 3F .? anda #3f
13407 E7F2 FD 10 16 ... std 1016
13408 E7F5 F6 00 06 ... ldab 0006
13411 E7FA C3 0B F1 ... addd #0bf1
13413 E7FE EC 00 .. ldd 00,x
13414 E800 C4 FF .. andb #ff
13415 E802 84 3F .? anda #3f
13416 E804 FD 10 18 ... std 1018
13417 E807 FC 10 16 ... ldd 1016
13418 E80A 83 00 00 ... subd #0000
13419 E80D 25 08 %. bcs 08
13420 E80F FC 10 16 ... ldd 1016
13421 E812 83 27 0F .'. subd #270f
13422 E815 23 35 #5 bls 35
13423 E817 F6 00 06 ... ldab 0006
13424 E81A BD D4 68 ..h jsr d468 ;jump51
13425 E81D 83 00 00 ... subd #0000
13426 E820 27 2A '* beq 2a
13427 E822 CC 01 00 ... ldd #0100
13430 E827 F6 00 06 ... ldab 0006
13433 E82C C3 08 C8 ... addd #08c8
13436 E831 AA 00 .. ora 00,x
13437 E833 EA 01 .. orb 01,x
13438 E835 ED 00 .. std 00,x
13439 E837 CC 40 00 .@. ldd #4000
13442 E83C F6 00 06 ... ldab 0006
13445 E841 C3 08 00 ... addd #0800
13448 E846 AA 00 .. ora 00,x
13449 E848 EA 01 .. orb 01,x
13450 E84A ED 00 .. std 00,x
13451 E84C CE 10 16 ... ldx #1016
13452 E84F 1D 00 C0 .. bclr 00,x, #c0
13453 E852 FC 10 18 .. ldd 1018
13456 E857 FD 10 18 ... std 1018
13457 E85A CE 10 18 ... ldx #1018
13458 E85D 1D 00 C0 .. bclr 00,x, #c0
13459 E85F FC 10 16 .. ldd 1016
13462 E865 FC 10 18 ... ldd 1018
13464 E869 A3 00 .. subd 00,x
13467 E86D 27 2A '* beq 2a
13468 E86F CC 01 00 ... ldd #0100
13471 E874 F6 00 06 ... ldab 0006
13474 E879 C3 08 C8 ... addd #08c8
13477 E87E AA 00 .. ora 00,x
13478 E880 EA 01 .. orb 01,x
13479 E882 ED 00 .. std 00,x
13480 E884 CC 40 00 .@. ldd #4000
13483 E889 F6 00 06 ... ldab 0006
13486 E88E C3 08 00 ... addd #0800
13489 E893 AA 00 .. ora 00,x
13490 E895 EA 01 .. orb 01,x
13491 E897 ED 00 .. std 00,x
13498 E89C FD 00 0F ... std 000f
13499 E89F CC 3F FF .?. ldd #3fff
13500 E8A2 FD 00 50 ..P std 0050
13501 E8A5 7F 00 06 ... clr 0006
13503 E8A8 F6 00 06 ... ldab 0006
13504 E8AB C1 64 .d cmpb #64 ; 100
13505 E8AD 24 64 $d bcc 64 ; to e913 - break
13507 E8AF F6 00 06 ... ldab 0006
13509 E8B3 CE 00 05 ... ldx #0005
13512 E8B8 27 54 'T beq 54 ; to e90e - continue
13514 E8BA F6 00 06 ... ldab 0006
13515 E8BD BD D7 A0 ... jsr d7a0 ;is_invalid_slot
13516 E8C0 83 00 00 ... subd #0000
13517 E8C3 26 49 &I bne 49 ; continue
13519 E8C5 F6 00 06 ... ldab 0006
13522 E8CA C3 08 00 ... addd #0800
13524 E8CE EC 00 .. ldd 00,x
13525 E8D0 C4 FF .. andb #ff
13526 E8D2 84 3F .? anda #3f
13527 E8D4 FD 10 16 ... std 1016
13528 E8D7 FC 10 16 ... ldd 1016
13529 E8DA 83 27 10 .'. subd #2710 ; 10000
13530 E8DD 24 2F $/ bcc 2f ; to e90e - continue
13531 E8DF F6 00 06 ... ldab 0006
13532 E8E2 BD D4 68 ..h jsr d468 ;jump51 - test bit 6 of array[0006] at 0800
13533 E8E5 83 00 00 ... subd #0000
13534 E8E8 27 24 '$ beq 24 ; to e90e - continue
13535 E8EA BD D5 61 ..a jsr d561 ;jump42 - test bit 7 of array[0006] at 0800
13536 E8ED 83 00 00 ... subd #0000
13537 E8F0 26 1C &. bne 1c ; to e90e - continue
13538 E8F2 FC 10 16 ... ldd 1016
13539 E8F5 B3 00 0F ... subd 000f
13540 E8F8 23 06 #. bls 06
13541 E8FA FC 10 16 ... ldd 1016
13542 E8FD FD 00 0F ... std 000f
13543 E900 FC 10 16 ... ldd 1016
13544 E903 B3 00 50 ..P subd 0050
13545 E906 24 06 $. bcc 06
13546 E908 FC 10 16 ... ldd 1016
13547 E90B FD 00 50 ..P std 0050
13549 E90E 7C 00 06 |.. inc 0006
13550 E911 20 95 . bra 95 ; to e8a8
13552 E913 FC 0B B7 ... ldd 0bb7
13553 E916 27 12 '. beq 12
13554 E918 FC 00 0F ... ldd 000f
13555 E91B B3 0B B7 ... subd 0bb7
13556 E91E 23 0A #. bls 0a
13557 E920 FC 00 0F ... ldd 000f
13559 E924 B3 0B B7 ... subd 0bb7
13560 E927 FD 00 0F ... std 000f
13566 E92D 6F 00 o. clr 00,x
13568 E930 E6 00 .. ldab 00,x
13569 E932 C1 64 .d cmpb #64
13570 E934 24 15 $. bcc 15
13576 E93B E6 02 .. ldab 02,x
13579 E93F C3 0D 1F ... addd #0d1f
13582 E944 ED 00 .. std 00,x
13584 E947 6C 00 l. inc 00,x
13585 E949 20 E4 . bra e4
13588 E94D FD 0D F9 ... std 0df9
13589 E950 FD 0D F7 ... std 0df7
13592 E955 FD 0D F5 ... std 0df5
13593 E958 FD 0D F3 ... std 0df3
13596 E95D FD 0D F1 ... std 0df1
13597 E960 FD 0D EF ... std 0def
13600 E965 FD 0D FD ... std 0dfd
13601 E968 FD 0D FB ... std 0dfb
13604 E96D FD 0D E9 ... std 0de9
13605 E970 FD 0D E7 ... std 0de7
13608 E975 FD 0C DD ... std 0cdd
13611 E97A FD 0C DF ... std 0cdf
13614 E97F FD 0C E1 ... std 0ce1
13617 E984 FD 0C E3 ... std 0ce3
13620 E989 FD 0C E5 ... std 0ce5
13623 E98E FD 0C F5 ... std 0cf5
13624 E991 FD 0C F3 ... std 0cf3
13627 E996 FD 0C F9 ... std 0cf9
13628 E999 FD 0C F7 ... std 0cf7
13631 E99E FD 0C FD ... std 0cfd
13632 E9A1 FD 0C FB ... std 0cfb
13635 E9A6 FD 0D 01 ... std 0d01
13636 E9A9 FD 0C FF ... std 0cff
13639 E9AE FD 0D 05 ... std 0d05
13640 E9B1 FD 0D 03 ... std 0d03
13643 E9B6 FD 0D 07 ... std 0d07
13646 E9BB FD 0D 09 ... std 0d09
13649 E9C0 FD 0D 0B ... std 0d0b
13652 E9C5 FD 0D 0D ... std 0d0d
13655 E9CA FD 0D 11 ... std 0d11
13656 E9CD FD 0D 0F ... std 0d0f
13659 E9D2 FD 0D 15 ... std 0d15
13660 E9D5 FD 0D 13 ... std 0d13
13663 E9DA FD 0D 19 ... std 0d19
13664 E9DD FD 0D 17 ... std 0d17
13667 E9E2 FD 0D 1D ... std 0d1d
13668 E9E5 FD 0D 1B ... std 0d1b
13673 E9EA 7F 00 06 ... clr 0006
13674 E9ED F6 00 06 ... ldab 0006
13675 E9F0 C1 64 .d cmpb #64
13676 E9F2 24 64 $d bcc 64
13677 E9F4 F6 00 06 ... ldab 0006
13679 E9F8 CE 00 05 ... ldx #0005
13682 E9FD 27 54 'T beq 54
13683 E9FF CC BF FF ... ldd #bfff
13686 EA04 F6 00 06 ... ldab 0006
13689 EA09 C3 08 00 ... addd #0800
13692 EA0E A4 00 .. anda 00,x
13693 EA10 E4 01 .. andb 01,x
13694 EA12 ED 00 .. std 00,x
13695 EA14 CC FE FF ... ldd #feff
13698 EA19 F6 00 06 ... ldab 0006
13701 EA1E C3 08 C8 ... addd #08c8
13704 EA23 A4 00 .. anda 00,x
13705 EA25 E4 01 .. andb 01,x
13706 EA27 ED 00 .. std 00,x
13707 EA29 CC FD FF ... ldd #fdff
13710 EA2E F6 00 06 ... ldab 0006
13713 EA33 C3 08 C8 ... addd #08c8
13716 EA38 A4 00 .. anda 00,x
13717 EA3A E4 01 .. andb 01,x
13718 EA3C ED 00 .. std 00,x
13719 EA3E CC FB FF ... ldd #fbff
13722 EA43 F6 00 06 ... ldab 0006
13725 EA48 C3 08 C8 ... addd #08c8
13728 EA4D A4 00 .. anda 00,x
13729 EA4F E4 01 .. andb 01,x
13730 EA51 ED 00 .. std 00,x
13731 EA53 7C 00 06 |.. inc 0006
13732 EA56 20 95 . bra 95
13737 ; test PE2 - remote no-sale switch.
13738 EA5A CE 00 04 ... ldx #0004
13740 EA5E CC 10 0A ... ldd #100a
13741 EA61 BD E5 D7 ... jsr e5d7 ;jump69 - test input line
13743 EA65 83 00 00 ... subd #0000
13744 EA68 27 3F '? beq 3f ; to eaa9 if off
13746 ; test internal mode switch (bit 1 of 1800)
13747 EA6A CE 00 01 ... ldx #0001
13749 EA6E CC 18 00 ... ldd #1800
13750 EA71 BD E5 D7 ... jsr e5d7 ;jump69 - test input line
13752 EA75 83 00 00 ... subd #0000
13753 EA78 27 2F '/ beq 2f ; to eaa9 if off
13755 ; both no-sale & mode switches held.
13758 EA7A CC 03 E8 ... ldd #03e8
13759 EA7D BD E5 71 ..q jsr e571 ;msdelay
13761 EA80 7F 0B A8 ... clr 0ba8
13763 ; blink "SECURE OFF" until mode switch is released
13764 EA83 F6 18 00 ... ldab 1800
13765 EA86 C4 01 .. andb #01
13766 EA88 26 1C &. bne 1c ; to eaa4 (loop until released)
13769 EA8A BD BE 4B ..K jsr be4b ;displayblank (blank display buffer)
13771 EA8E BD BE 01 ... jsr be01 ;jump70 (commit to display)
13775 EA92 CC 01 F4 ... ldd #01f4
13776 EA95 BD E5 71 ..q jsr e571 ;msdelay
13778 EA98 CC AF D1 ... ldd #afd1 ; "SECURE OFF"
13779 EA9B BD C0 BA ... jsr c0ba ;display:
13782 EA9E CC 01 F4 ... ldd #01f4
13783 EAA1 BD E5 71 ..q jsr e571 ;msdelay
13785 EAA4 20 DD . bra dd ; to ea83
13786 EAA6 BD BE 69 ..i jsr be69 ;displayreset
13788 ; no sale switch or internal mode switch on
13790 ; fiddle with the bill acceptor
13791 EAA9 C6 01 .. ldab #01
13792 EAAB F7 00 14 ... stab 0014
13793 EAAE F6 00 14 ... ldab 0014
13794 EAB1 F7 38 00 .8. stab 3800
13797 EAB4 CC 00 1E ... ldd #001e
13798 EAB7 BD E5 71 ..q jsr e571 ;msdelay
13800 ; more bill acceptor fiddling & tests
13801 EABA CE 00 01 ... ldx #0001
13803 EABE CC 10 00 ... ldd #1000
13804 EAC1 BD E5 D7 ... jsr e5d7 ;jump69 - test input line
13806 EAC5 83 00 00 ... subd #0000
13807 EAC8 27 10 '. beq 10
13808 EACA CE 00 02 ... ldx #0002
13810 EACE CC 10 00 ... ldd #1000
13811 EAD1 BD E5 D7 ... jsr e5d7 ;jump69 - test input line
13813 EAD5 83 00 00 ... subd #0000
13814 EAD8 27 03 '. beq 03
13815 ; we've decided if we have a bill acceptor. if not, skip this bit
13816 EADA 7E ED F8 ~.. jmp edf8 ;goto80
13817 ; we have a bill acceptor - play some more
13818 EADD C6 02 .. ldab #02
13819 EADF F7 00 14 ... stab 0014
13820 EAE2 F6 00 14 ... ldab 0014
13821 EAE5 F7 38 00 .8. stab 3800
13822 EAE8 CC 00 1E ... ldd #001e
13823 EAEB BD E5 71 ..q jsr e571 ;msdelay
13824 EAEE CE 00 01 ... ldx #0001
13826 EAF2 CC 10 00 ... ldd #1000
13827 EAF5 BD E5 D7 ... jsr e5d7 ;jump69 - test input line
13829 EAF9 83 00 00 ... subd #0000
13830 EAFC 26 10 &. bne 10
13831 EAFE CE 00 02 ... ldx #0002
13833 EB02 CC 10 00 ... ldd #1000
13834 EB05 BD E5 D7 ... jsr e5d7 ;jump69 - test input line
13836 EB09 83 00 00 ... subd #0000
13837 EB0C 26 03 &. bne 03
13838 EB0E 7E ED F8 ~.. jmp edf8 ;goto80 - something about the bill validator failed. skip it.
13839 EB11 CC 5A 5A .ZZ ldd #5a5a ; 23130
13840 EB14 FD 10 16 ... std 1016
13841 EB17 CC B1 39 ..9 ldd #b139 ;"**********"
13842 EB1A BD C0 BA ... jsr c0ba ;display:
13843 EB1D CC 07 D0 ... ldd #07d0
13844 EB20 BD E5 71 ..q jsr e571 ;msdelay
13845 EB23 CC B1 44 ..D ldd #b144 ;"OOOOOOOOOO"
13846 EB26 BD C0 BA ... jsr c0ba ;display:
13847 EB29 CC 07 D0 ... ldd #07d0
13848 EB2C BD E5 71 ..q jsr e571 ;msdelay
13849 EB2F CC 00 14 ... ldd #0014
13850 EB32 FD 00 3B ..; std 003b
13851 EB35 FC 00 3B ..; ldd 003b
13852 EB38 27 47 'G beq 47
13853 ; draws a sequence of 10 dots ..... along the display.
13855 EB3B 6F 00 o. clr 00,x
13857 EB3E E6 00 .. ldab 00,x
13858 EB40 C1 0A .. cmpb #0a
13859 EB42 24 3B $; bcc 3b
13860 EB44 BD BE 4B ..K jsr be4b ;displayblank
13861 EB47 C6 2E .. ldab #2e
13864 EB4B E6 01 .. ldab 01,x
13866 EB4E C3 0B 90 ... addd #0b90
13869 EB53 E7 00 .. stab 00,x
13871 EB56 BD BE 69 ..i jsr be69 ;displayreset
13872 EB59 CE 10 28 ..( ldx #1028
13873 EB5C 1C 00 40 .. bset 00,x, #40 ; tweak the clock phase
13874 EB5F CE 00 01 ... ldx #0001
13876 EB63 CC 00 20 .. ldd #0020
13877 EB66 BD BD B5 ... jsr bdb5 ;jump78 - send display byte
13879 EB6A CE 10 28 ..( ldx #1028
13880 EB6D 1D 00 40 ..@ bclr 00,x, #40 ; tweak the clock phase back
13881 EB70 BD BE 10 ... jsr be10 ;jump88
13883 EB74 CC 00 07 ... ldd #0007
13884 EB77 BD E5 71 ..q jsr e571 ;msdelay 7-unit delay
13886 EB7B 6C 00 l. inc 00,x
13887 EB7D 20 BE . bra be
13888 EB7F 20 B4 . bra b4
13889 EB81 BD BE 69 ..i jsr be69 ;displayreset
13890 EB84 CC 08 00 ... ldd #0800
13891 EB87 FD 00 73 ..s std 0073
13892 EB8A FC 00 73 ..s ldd 0073
13893 EB8D 83 0F FF ... subd #0fff
13894 EB90 22 10 ". bhi 10 ; to eba2
13895 EB92 C6 AA .. ldab #aa
13896 EB94 FE 00 73 ..s ldx 0073
13897 EB97 E7 00 .. stab 00,x
13898 EB99 FE 00 73 ..s ldx 0073
13900 EB9D FF 00 73 ..s stx 0073
13901 EBA0 20 E8 . bra e8
13902 EBA2 CC 08 00 ... ldd #0800
13903 EBA5 FD 00 73 ..s std 0073
13904 EBA8 FC 00 73 ..s ldd 0073
13905 EBAB 83 0F FF ... subd #0fff
13906 EBAE 22 1A ". bhi 1a
13907 EBB0 FE 00 73 ..s ldx 0073
13908 EBB3 E6 00 .. ldab 00,x
13909 EBB5 C1 AA .. cmpb #aa
13910 EBB7 27 08 '. beq 08
13911 EBB9 CE 10 16 ... ldx #1016 ; timer output compare register
13912 EBBC 1D 00 FF .. bclr 00,x, #FF
13913 EBBF 20 09 .. bra 09
13914 EBC1 FE 00 73 ..s ldx 0073
13916 EBC5 FF 00 73 ..s stx 0073
13917 EBC8 20 DE . bra de
13918 EBCA CC 08 00 ... ldd #0800
13919 EBCD FD 00 73 ..s std 0073
13920 EBD0 FC 00 73 ..s ldd 0073
13921 EBD3 83 0F FF ... subd #0fff
13922 EBD6 22 10 ". bhi 10
13923 EBD8 C6 55 .U ldab #55
13924 EBDA FE 00 73 ..s ldx 0073
13925 EBDD E7 00 .. stab 00,x
13926 EBDF FE 00 73 ..s ldx 0073
13928 EBE3 FF 00 73 ..s stx 0073
13929 EBE6 20 E8 . bra e8
13930 EBE8 CC 08 00 ... ldd #0800
13931 EBEB FD 00 73 ..s std 0073
13932 EBEE FC 00 73 ..s ldd 0073
13933 EBF1 83 0F FF ... subd #0fff
13934 EBF4 22 1A ". bhi 1a
13935 EBF6 FE 00 73 ..s ldx 0073
13936 EBF9 E6 00 .. ldab 00,x
13937 EBFB C1 55 .U cmpb #55
13938 EBFD 27 08 '. beq 08
13939 EBFF CE 10 16 ... ldx #1016
13940 EC02 1D 00 FF ... bclr 00,x #ff
13941 EC05 20 09 . bra 09
13942 EC07 FE 00 73 ..s ldx 0073
13944 EC0B FF 00 73 ..s stx 0073
13945 EC0E 20 DE . bra de
13946 EC10 CC 08 00 ... ldd #0800
13947 EC13 FD 00 73 ..s std 0073
13948 EC16 FC 00 73 ..s ldd 0073
13949 EC19 83 0F FF ... subd #0fff
13950 EC1C 22 0F ". bhi 0f
13952 EC1F FE 00 73 ..s ldx 0073
13953 EC22 E7 00 .. stab 00,x
13954 EC24 FE 00 73 ..s ldx 0073
13956 EC28 FF 00 73 ..s stx 0073
13957 EC2B 20 E9 . bra e9
13958 EC2D 7F 00 06 ... clr 0006
13959 EC30 F6 00 06 ... ldab 0006
13960 EC33 C1 64 .d cmpb #64
13961 EC35 24 4D $M bcc 4d
13962 EC37 F6 00 06 ... ldab 0006
13964 EC3B CE 00 05 ... ldx #0005
13967 EC40 27 3D '= beq 3d
13968 EC42 CC 00 32 ..2 ldd #0032
13971 EC47 F6 00 06 ... ldab 0006
13974 EC4C C3 08 00 ... addd #0800
13977 EC51 ED 00 .. std 00,x
13978 EC53 F6 00 06 ... ldab 0006
13981 EC58 C3 08 00 ... addd #0800
13983 EC5C EC 00 .. ldd 00,x
13988 EC62 F6 00 06 ... ldab 0006
13991 EC67 C3 0B F1 ... addd #0bf1
13994 EC6C ED 00 .. std 00,x
13995 EC6E CC 08 01 ... ldd #0801
13998 EC73 F6 00 06 ... ldab 0006
14001 EC78 C3 08 C8 ... addd #08c8
14004 EC7D ED 00 .. std 00,x
14005 EC7F 7C 00 06 |.. inc 0006
14006 EC82 20 AC . bra ac
14007 EC84 C6 1D .. ldab #1d
14008 EC86 F7 0B BF ... stab 0bbf
14010 EC8A 6F 00 o. clr 00,x
14011 EC8C F6 0B BF ... ldab 0bbf
14013 EC90 C3 00 02 ... addd #0002
14017 EC96 E6 02 .. ldab 02,x
14019 EC99 A3 00 .. subd 00,x
14022 EC9D 2C 1B ,. bge 1b
14024 ECA0 E6 00 .. ldab 00,x
14026 ECA3 C3 B1 D0 ... addd #b1d0 ; "THANK YOU FOR YOUR PATRONAGE"
14028 ECA7 E6 00 .. ldab 00,x
14031 ECAB E6 01 .. ldab 01,x
14033 ECAE C3 09 93 ... addd #0993
14036 ECB3 E7 00 .. stab 00,x
14038 ECB6 6C 00 l. inc 00,x
14039 ECB8 20 D2 . bra d2
14040 ECBA 7F 0B A8 ... clr 0ba8
14041 ECBD CC 00 32 ..2 ldd #0032
14042 ECC0 FD 0B B5 ... std 0bb5
14045 ECC5 FD 0B B7 ... std 0bb7
14046 ECC8 7F 00 06 ... clr 0006
14047 ECCB BD A6 4E ..N jsr a64e ;jump135
14048 ECCE C6 09 .. ldab #09
14049 ECD0 F7 0B C0 ... stab 0bc0 ; defaults to having a bill validator & dumb mech
14050 ECD3 7F 0E 6D ..m clr 0e6d
14051 ECD6 C6 01 .. ldab #01
14052 ECD8 F7 0E 6E ..n stab 0e6e
14054 ECDC 6F 00 o. clr 00,x
14056 ECDF E6 00 .. ldab 00,x
14057 ECE1 C1 0F .. cmpb #0f
14058 ECE3 24 21 $! bcc 21
14059 ECE5 C6 30 .0 ldab #30
14062 ECE9 E6 01 .. ldab 01,x
14064 ECEC C3 0C B9 ... addd #0cb9
14067 ECF1 E7 00 .. stab 00,x
14068 ECF3 C6 30 .0 ldab #30
14071 ECF7 E6 01 .. ldab 01,x
14073 ECFA C3 0C C9 ... addd #0cc9
14076 ECFF E7 00 .. stab 00,x
14078 ED02 6C 00 l. inc 00,x
14079 ED04 20 D8 . bra d8
14081 ED07 6F 00 o. clr 00,x
14084 ED0A E6 00 .. ldab 00,x
14085 ED0C C1 0B .. cmpb #0b
14086 ED0E 24 12 $. bcc 12 ; to ed22
14090 ED13 E6 01 .. ldab 01,x
14092 ED16 C3 0B E4 ... addd #0be4
14095 ED1B E7 00 .. stab 00,x
14097 ED1E 6C 00 l. inc 00,x
14098 ED20 20 E7 . bra e7
14099 ; clear stuff ready for test harness?
14102 ED24 FD 0D F9 ... std 0df9
14103 ED27 FD 0D F7 ... std 0df7
14106 ED2C FD 0D F5 ... std 0df5
14107 ED2F FD 0D F3 ... std 0df3
14108 ED32 7F 0C D9 ... clr 0cd9
14109 ED35 7F 0C DA ... clr 0cda
14110 ED38 7F 0C DB ... clr 0cdb
14111 ED3B 7F 0C DC ... clr 0cdc
14114 ED40 FD 0D F1 ... std 0df1
14115 ED43 FD 0D EF ... std 0def
14118 ED48 FD 0D FD ... std 0dfd
14119 ED4B FD 0D FB ... std 0dfb
14122 ED50 FD 0D E9 ... std 0de9
14123 ED53 FD 0D E7 ... std 0de7
14126 ED58 FD 0D ED ... std 0ded
14127 ED5B FD 0D EB ... std 0deb
14130 ED60 FD 0C DD ... std 0cdd
14133 ED65 FD 0C DF ... std 0cdf
14136 ED6A FD 0C E1 ... std 0ce1
14139 ED6F FD 0C E3 ... std 0ce3
14142 ED74 FD 0C E5 ... std 0ce5
14145 ED79 FD 0C F5 ... std 0cf5
14146 ED7C FD 0C F3 ... std 0cf3
14149 ED81 FD 0C F9 ... std 0cf9
14150 ED84 FD 0C F7 ... std 0cf7
14153 ED89 FD 0C FD ... std 0cfd
14154 ED8C FD 0C FB ... std 0cfb
14157 ED91 FD 0D 01 ... std 0d01
14158 ED94 FD 0C FF ... std 0cff
14161 ED99 FD 0D 05 ... std 0d05
14162 ED9C FD 0D 03 ... std 0d03
14165 EDA1 FD 0D 07 ... std 0d07
14168 EDA6 FD 0D 09 ... std 0d09
14171 EDAB FD 0D 0B ... std 0d0b
14174 EDB0 FD 0D 0D ... std 0d0d
14177 EDB5 FD 0D 11 ... std 0d11
14178 EDB8 FD 0D 0F ... std 0d0f
14181 EDBD FD 0D 15 ... std 0d15
14182 EDC0 FD 0D 13 ... std 0d13
14185 EDC5 FD 0D 19 ... std 0d19
14186 EDC8 FD 0D 17 ... std 0d17
14189 EDCD FD 0D 1D ... std 0d1d
14190 EDD0 FD 0D 1B ... std 0d1b
14191 EDD3 7F 0B AF ... clr 0baf
14192 EDD6 7F 0B AE ... clr 0bae
14193 EDD9 7F 0B AD ... clr 0bad
14194 EDDC 7F 0B AC ... clr 0bac
14195 EDDF 7F 0B AB ... clr 0bab
14196 EDE2 7F 0B B4 ... clr 0bb4
14197 EDE5 7F 0B B3 ... clr 0bb3
14198 EDE8 7F 0B B2 ... clr 0bb2
14199 EDEB 7F 0B B1 ... clr 0bb1
14200 EDEE 7F 0B B0 ... clr 0bb0
14201 EDF1 C6 05 .. ldab #05
14202 EDF3 F7 08 00 ... stab 0800
14203 EDF6 8D 21 .! bsr 21 ;jump204 - test harness function
14205 ; switch things off (motors, display clock, keypad strobe)
14206 EDF8 7F 00 14 ... clr 0014
14207 EDFB F6 00 14 ... ldab 0014
14208 EDFE F7 38 00 .8. stab 3800
14213 ; writes msg to screen for 1.5s
14217 EE06 EC 00 .. ldd 00,x
14218 EE08 BD C0 BA ... jsr c0ba ;display:
14219 EE0B CE 10 16 ... ldx #1016
14220 EE0E 1D 01 FF .. bclr 01,x, #ff
14221 EE11 CC 05 DC ... ldd #05dc ; 1500
14222 EE14 BD E5 71 ... jsr e571 ;msdelay
14227 EE19 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
14229 ; this the diagnostic function activated when the "test harness"
14231 EE1C CE 10 16 ... ldx #1016
14232 EE1F 1D 01 .. bclr 01,x, #ff
14233 EE21 CE 10 16 .. ldx #1016
14234 EE25 1C 01 5A ... bset 01,x, #5A
14235 EE28 F6 10 16 ... ldab 1016
14236 EE2B 26 0C &. bne 0c ; to ee39
14237 EE2D CC B1 4F ..O ldd #b14f ;"RAM FAIL"
14238 EE30 BD C0 BA ... jsr c0ba ;display:
14239 EE33 CC 05 DC ... ldd #05dc
14240 EE36 BD E5 71 ..q jsr e571 ;msdelay
14242 EE39 C6 04 .. ldab #04
14243 EE3B F7 00 1C ... stab 001c
14245 EE3E F6 00 1C ... ldab 001c
14246 EE41 C1 07 .. cmpb #07
14247 EE43 24 57 $W bcc 57 ; to ee9c (break out)
14248 EE45 F6 00 1C ... ldab 001c
14250 EE49 C3 B1 23 ..# addd #b123 ; power of 2
14252 EE4D E6 00 .. ldab 00,x
14254 EE50 F4 00 1A ... andb 001a
14255 EE53 F7 00 1A ... stab 001a
14256 EE56 F6 00 1A ... ldab 001a
14257 EE59 F7 30 00 .0. stab 3000 ; set coin bit active (low)
14258 EE5C CC 00 0A ... ldd #000a
14259 EE5F BD E5 71 ..q jsr e571 ;msdelay
14260 EE62 F6 18 00 ... ldab 1800
14261 EE65 2C 07 ,. bge 07 ; to ee6e
14262 EE67 CC B1 5A ..Z ldd #b15a ; "P2 FAIL"
14263 EE6A 8D 97 .. bsr dest 97 ; display to ee03
14264 EE6C 20 2E . bra 2e ; to ee9c
14265 EE6E F6 00 1C ... ldab 001c
14267 EE72 C3 B1 23 ..# addd #b123 ; powers of 2
14269 EE76 E6 00 .. ldab 00,x
14270 EE78 FA 00 1A ... orb 001a
14271 EE7B F7 00 1A ... stab 001a
14272 EE7E F6 00 1A ... ldab 001a
14273 EE81 F7 30 00 .0. stab 3000 ; set coin bit inactive (high)
14274 EE84 CC 00 0A ... ldd #000a
14275 EE87 BD E5 71 ..q jsr e571 ;msdelay
14276 EE8A F6 18 00 ... ldab 1800 ; if changer int'
14277 EE8D 2D 08 -. blt 08 ; ee97
14278 EE8F CC B1 5A ..Z ldd #b15a ; "P2 FAIL"
14279 EE92 BD EE 03 ... jsr ee03 ;jump36
14280 EE95 20 05 . bra 05 ; to ee9c
14281 EE97 7C 00 1C |.. inc 001c
14282 EE9A 20 A2 . bra a2 ; to ee3e
14284 EE9C CE 10 00 ... ldx #1000
14285 EE9F 1C 00 08 ... bset 00,x, #08 ; talk to coin mech
14286 EEA2 CE 10 08 ... ldx #1008
14287 EEA5 1C 00 02 ... bset 00,x, #02 ; set rx of sci
14288 EEA8 CE 00 1A ... ldx #001a
14289 EEAB 1C 00 40 ... bset 00,x, #40
14290 EEAE F6 00 1A ... ldab 001a
14291 EEB1 F7 30 00 .0. stab 3000 ; unset $1.00 line
14292 EEB4 CC 00 0A ... ldd #000a
14293 EEB7 BD E5 71 ..q jsr e571 ;msdelay
14294 EEBA F6 10 08 ... ldab 1008
14295 EEBD C4 01 .. andb #01 ; tests tx of sci
14296 EEBF 26 06 &. bne 06 ; to eec7
14297 EEC1 CC B1 5A ..Z ldd #b15a ; "P2 FAIL"
14298 EEC4 BD EE 03 ... jsr ee03 ;jump36
14299 EEC7 CE 00 1A ... ldx #001a
14300 EECA 1D 00 40 ... bclr 00,x, #40
14301 EECD F6 00 1A ... ldab 001a
14302 EED0 F7 30 00 .0. stab 3000 ; set $1.00 line
14303 EED3 CC 00 0A ... ldd #000a
14304 EED6 BD E5 71 ..q jsr e571 ;msdelay
14306 EED9 F6 10 08 ... ldab 1008
14307 EEDC C4 01 .. andb #01 ; tests txt of sci
14308 EEDE 27 06 '. beq 06 ; to eee6
14309 EEE0 CC B1 5A ..Z ldd #b15a ; "P2 FAIL"
14310 EEE3 BD EE 03 ... jsr ee03 ;jump36
14311 EEE6 CE 00 1A ... ldx #001a
14312 EEE9 1C 00 02 ... bset 00,x, #02
14313 EEEC F6 00 1A ... ldab 001a
14314 EEEF F7 30 00 .0. stab 3000 ; ditto for $0.25
14315 EEF2 CC 00 0A ... ldd #000a
14316 EEF5 BD E5 71 ..q jsr e571 ;msdelay
14317 EEF8 F6 10 00 ... ldab 1000
14318 EEFB C4 04 .. andb #04
14319 EEFD 26 06 &. bne 06
14320 EEFF CC B1 65 ..e ldd #b165
14321 EF02 BD EE 03 ... jsr ee03 ;jump36
14322 EF05 CE 00 1A ... ldx #001a
14323 EF08 1D 00 02 ... bclr 00,x, #02
14324 EF0B F6 00 1A ... ldab 001a
14325 EF0E F7 30 00 .0. stab 3000 ; ditto for $0.25
14326 EF11 CC 00 0A ... ldd #000a
14327 EF14 BD E5 71 ..q jsr e571 ;msdelay
14329 EF17 F6 10 00 ... ldab 1000
14330 EF1A C4 04 .. andb #04 ; coin dispenser pin6
14331 EF1C 27 06 '. beq 06
14332 EF1E CC B1 65 ..e ldd #b165 ; "P2-P3 FAIL"
14333 EF21 BD EE 03 ... jsr ee03 ;jump36
14334 EF24 CE 00 1A ... ldx #001a
14335 EF27 1C 00 01 ... bset 00,x, #01
14336 EF2A F6 00 1A ... ldab 001a
14337 EF2D F7 30 00 .0. stab 3000 ; send line of changer
14338 EF30 CC 00 0A ... ldd #000a
14339 EF33 BD E5 71 ..q jsr e571 ;msdelay
14341 EF36 F6 18 00 ... ldab 1800
14342 EF39 C4 20 . andb #20 ; test door switch
14343 EF3B 26 06 &. bne 06
14344 EF3D CC B1 70 ..p ldd #b170 ; "P2-P8 FAIL"
14345 EF40 BD EE 03 ... jsr ee03 ;jump36
14346 EF43 CE 00 1A ... ldx #001a
14347 EF46 1D 00 01 ... bclr 00,x, #01
14348 EF49 F6 00 1A ... ldab 001a
14349 EF4C F7 30 00 .0. stab 3000 ; unset send line of changer
14350 EF4F CC 00 0A ... ldd #000a
14351 EF52 BD E5 71 ..q jsr e571 ;msdelay
14352 EF55 F6 18 00 ... ldab 1800
14353 EF58 C4 20 . andb #20 ; test door again?
14354 EF5A 27 06 '. beq 06
14355 EF5C CC B1 70 ..p ldd #b170 ; "P2-P8 FAIL"
14356 EF5F BD EE 03 ... jsr ee03 ;jump36
14357 EF62 CE 00 1A ... ldx #001a
14358 EF65 1C 00 04 ... bset 00,x, #04 ; reset changer
14359 EF68 F6 00 1A ... ldab 001a
14360 EF6B F7 30 00 .0. stab 3000
14361 EF6E CC 00 0A ... ldd #000a
14362 EF71 BD E5 71 ..q jsr e571 ;msdelay
14363 EF74 F6 10 0A ... ldab 100a
14364 EF77 C4 04 .. andb #04 ; test no-sale switch
14365 EF79 26 06 &. bne 06
14366 EF7B CC B1 7B ..{ ldd #b17b ; "P2-P9 FAIL"
14367 EF7E BD EE 03 ... jsr ee03 ;jump36
14368 EF81 CE 00 1A ... ldx #001a
14369 EF84 1D 00 04 ... bclr 00,x, #04
14370 EF87 F6 00 1A ... ldab 001a
14371 EF8A F7 30 00 .0. stab 3000 ;snack motor drivers serial data is bit 7
14372 EF8D CC 00 0A ... ldd #000a
14373 EF90 BD E5 71 ..q jsr e571 ;msdelay
14374 EF93 F6 10 0A ... ldab 100a
14375 EF96 C4 04 .. andb #04
14376 EF98 27 06 '. beq 06
14377 EF9A CC B1 7B ..{ ldd #b17b ; "P2-P9 FAIL"
14378 EF9D BD EE 03 ... jsr ee03 ;jump36
14379 EFA0 CE 10 00 ... ldx #1000
14380 EFA3 1C 00 08 ... bset 00,x, #08
14381 EFA6 CE 00 1A ... ldx #001a
14382 EFA9 1C 00 40 ... bset 00,x, #40
14383 EFAC F6 00 1A ... ldab 001a
14384 EFAF F7 30 00 .0. stab 3000
14385 EFB2 CE 10 08 ... ldx #1008
14386 EFB5 1C 00 02 ... bset 00,x, #02 ; keypad data
14387 EFB8 CC 00 0A ... ldd #000a
14388 EFBB BD E5 71 ..q jsr e571 ;msdelay
14389 EFBE F6 10 08 ... ldab 1008
14390 EFC1 C4 01 .. andb #01
14391 EFC3 26 06 &. bne 06
14392 EFC5 CC B1 86 ... ldd #b186 ; "P3-P4 FAIL"
14393 EFC8 BD EE 03 ... jsr ee03 ;jump36
14394 EFCB CE 10 08 ... ldx #1008
14395 EFCE 1D 00 02 ... bclr 00,x, #02
14396 EFD1 CC 00 0A ... ldd #000a
14397 EFD4 BD E5 71 ..q jsr e571 ;msdelay
14398 EFD7 F6 10 08 ... ldab 1008
14399 EFDA C4 01 .. andb #01
14400 EFDC 27 06 '. beq 06
14401 EFDE CC B1 86 ... ldd #b186 ; "P3-P4 FAIL"
14402 EFE1 BD EE 03 ... jsr ee03 ;jump36
14403 EFE4 CE 10 00 ... ldx #1000
14404 EFE7 1D 00 08 ... bclr 00,x, #08
14405 EFEA CE 10 08 ... ldx #1008
14406 EFED 1C 00 02 ... bset 00,x, #02
14407 EFF0 CC 00 0A ... ldd #000a
14408 EFF3 BD E5 71 ..q jsr e571 ;msdelay
14409 EFF6 F6 10 08 ... ldab 1008
14410 EFF9 C4 01 .. andb #01
14411 EFFB 26 06 &. bne 06
14412 EFFD CC B1 91 ... ldd #b191 ; "P5 FAIL"
14413 F000 BD EE 03 ... jsr ee03 ;jump36
14414 F003 CE 10 08 ... ldx #1008
14415 F006 1D 00 02 ... bclr 00,x, #02
14416 F009 CC 00 0A ... ldd #000a
14417 F00C BD E5 71 ..q jsr e571 ;msdelay
14418 F00F F6 10 08 ... ldab 1008
14419 F012 C4 01 .. andb #01
14420 F014 27 06 '. beq 06
14421 F016 CC B1 91 ... ldd #b191
14422 F019 BD EE 03 ... jsr ee03 ;jump36
14423 F01C CE 00 14 ... ldx #0014
14424 F01F 1C 00 .. bset add,x 00,x
14425 F021 20 F6 . bra f6
14428 F025 F7 38 00 .8. stab 3800
14429 F028 CC 00 0A ... ldd #000a
14430 F02B BD E5 71 ..q jsr e571 ;msdelay
14431 F02E F6 20 00 . . ldab 2000
14432 F031 C4 40 .@ andb #40
14433 F033 26 06 &. bne 06
14434 F035 CC B1 9C ... ldd #b19c
14435 F038 BD EE 03 ... jsr ee03 ;jump36
14436 F03B CE 00 14 ... ldx #0014
14437 F03E 1D 00 .. bclr add,x 00,x
14438 F040 20 F6 . bra f6
14441 F044 F7 38 00 .8. stab 3800
14442 F047 CC 00 0A ... ldd #000a
14443 F04A BD E5 71 ..q jsr e571 ;msdelay
14444 F04D F6 20 00 . . ldab 2000
14445 F050 C4 40 .@ andb #40
14446 F052 27 06 '. beq 06
14447 F054 CC B1 9C ... ldd #b19c
14448 F057 BD EE 03 ... jsr ee03 ;jump36
14449 F05A CE 00 14 ... ldx #0014
14450 F05D 1C 00 40 ... bset 00,x, #40
14451 F060 F6 00 14 ... ldab 0014
14452 F063 F7 38 00 .8. stab 3800
14453 F066 CC 00 0A ... ldd #000a
14454 F069 BD E5 71 ..q jsr e571 ;msdelay
14455 F06C F6 20 00 . . ldab 2000
14456 F06F 2C 06 ,. bge 06
14457 F071 CC B1 9C ... ldd #b19c
14458 F074 BD EE 03 ... jsr ee03 ;jump36
14459 F077 CE 00 14 ... ldx #0014
14460 F07A 1D 00 40 ... bclr 00,x, #40
14461 F07D F6 00 14 ... ldab 0014
14462 F080 F7 38 00 .8. stab 3800
14463 F083 CC 00 0A ... ldd #000a
14464 F086 BD E5 71 ..q jsr e571 ;msdelay
14465 F089 F6 20 00 . . ldab 2000
14466 F08C 2D 06 -. blt 06
14467 F08E CC B1 9C ... ldd #b19c
14468 F091 BD EE 03 ... jsr ee03 ;jump36
14469 F094 7F 00 61 ..a clr 0061
14470 F097 F6 00 61 ..a ldab 0061
14471 F09A C1 08 .. cmpb #08
14472 F09C 24 22 $" bcc 22
14473 F09E F6 00 61 ..a ldab 0061
14475 F0A2 C3 B1 C8 ... addd #b1c8
14477 F0A6 E6 00 .. ldab 00,x
14478 F0A8 F7 00 06 ... stab 0006
14479 F0AB BD D3 11 ... jsr d311 ;jump30 - test position exists
14480 F0AE 83 00 00 ... subd #0000
14481 F0B1 27 08 '. beq 08
14482 F0B3 CC B1 A7 ... ldd #b1a7
14483 F0B6 BD EE 03 ... jsr ee03 ;jump36
14484 F0B9 20 05 . bra 05
14485 F0BB 7C 00 61 |.a inc 0061
14486 F0BE 20 D7 . bra d7
14487 F0C0 7F 00 61 ..a clr 0061
14488 F0C3 F6 00 61 ..a ldab 0061
14489 F0C6 C1 08 .. cmpb #08
14490 F0C8 24 2B $+ bcc 2b
14491 F0CA F6 00 61 ..a ldab 0061
14493 F0CE C3 B1 C8 ... addd #b1c8
14495 F0D2 E6 00 .. ldab 00,x
14496 F0D4 F7 00 06 ... stab 0006
14497 F0D7 BD D1 3D ..= jsr d13d ;jump34 - motor on
14498 F0DA BD D5 70 ..p jsr d570 ;jump35
14499 F0DD 83 00 00 ... subd #0000
14500 F0E0 26 0B &. bne 0b
14501 F0E2 BD D1 05 ... jsr d105 ;motors_off
14502 F0E5 CC B1 B2 ... ldd #b1b2
14503 F0E8 BD EE 03 ... jsr ee03 ;jump36
14504 F0EB 20 08 . bra 08
14505 F0ED BD D1 05 ... jsr d105 ;motors_off
14506 F0F0 7C 00 61 |.a inc 0061
14507 F0F3 20 CE . bra ce
14508 F0F5 7F 00 61 ..a clr 0061
14509 F0F8 F6 00 61 ..a ldab 0061
14510 F0FB C1 05 .. cmpb #05
14511 F0FD 24 45 $E bcc 45
14512 F0FF F6 00 61 ..a ldab 0061
14514 F103 C3 B1 C8 ... addd #b1c8
14516 F107 E6 00 .. ldab 00,x
14517 F109 F7 00 06 ... stab 0006
14518 F10C BD D1 3D ..= jsr d13d ;jump34 - motor on
14519 F10F CC 00 0A ... ldd #000a
14520 F112 BD E5 71 ..q jsr e571 ;msdelay
14521 F115 F6 18 00 ... ldab 1800
14522 F118 C4 40 .@ andb #40
14523 F11A 26 0B &. bne 0b
14524 F11C BD D1 05 ... jsr d105 ;motors_off
14525 F11F CC B1 B2 ... ldd #b1b2
14526 F122 BD EE 03 ... jsr ee03 ;jump36
14527 F125 20 1D . bra 1d
14528 F127 BD D1 05 ... jsr d105 ;motors_off
14529 F12A CC 00 0A ... ldd #000a
14530 F12D BD E5 71 ..q jsr e571 ;msdelay
14531 F130 F6 18 00 ... ldab 1800
14532 F133 C4 40 .@ andb #40
14533 F135 27 08 '. beq 08
14534 F137 CC B1 B2 ... ldd #b1b2
14535 F13A BD EE 03 ... jsr ee03 ;jump36
14536 F13D 20 05 . bra 05
14537 F13F 7C 00 61 |.a inc 0061
14538 F142 20 B4 . bra b4
14539 F144 FC 10 16 ... ldd 1016
14540 F147 83 5A 5A .ZZ subd #5a5a
14541 F14A 26 0C &. bne 0c
14542 F14C CC B1 BD ... ldd #b1bd ; " PASSED "
14543 F14F BD C0 BA ... jsr c0ba ;display:
14544 F152 CC 05 DC ... ldd #05dc
14545 F155 BD E5 71 ..q jsr e571 ;msdelay
14546 F158 7E EE 1C ~.. jmp ee1c ;goto81
14549 ;send a byte to the printer
14550 ;it calls c7e7, which does things with the serial port
14553 F15D F6 00 19 ... ldab 0019
14554 F160 C4 40 .@ andb #40
14555 F162 26 5B &[ bne 5b
14556 F164 C6 FF .. ldab #ff
14557 F166 F7 00 39 ..9 stab 0039
14558 F169 F6 20 00 . . ldab 2000
14559 F16C 2C 11 ,. bge 11
14560 F16E F6 20 00 . . ldab 2000
14561 F171 C4 40 .@ andb #40
14562 F173 27 0A '. beq 0a
14563 F175 F6 00 39 ..9 ldab 0039
14564 F178 27 05 '. beq 05
14565 F17A BD E6 1B ... jsr e61b ;jump4
14566 F17D 20 EA . bra ea
14567 F17F F6 00 39 ..9 ldab 0039
14568 F182 26 08 &. bne 08
14569 F184 CE 00 19 ... ldx #0019
14570 F187 1C 00 40 ... bset 00,x, #40
14571 F18A 20 33 3 bra 33
14572 F18C F6 20 00 . . ldab 2000
14573 F18F C4 40 .@ andb #40
14574 F191 27 2C ', beq 2c
14575 F193 F6 00 1D ... ldab 001d
14576 F196 C4 01 .. andb #01
14577 F198 27 1E '. beq 1e
14579 F19B E6 01 .. ldab 01,x
14580 F19D C1 30 .0 cmpb #30
14581 F19F 26 08 &. bne 08
14582 F1A1 CC 00 20 .. ldd #0020
14583 F1A4 BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
14584 F1A7 20 0D . bra 0d
14586 F1AA E6 01 .. ldab 01,x
14588 F1AD BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
14589 F1B0 CE 00 1D ... ldx #001d
14590 F1B3 1D 00 01 ... bclr 00,x, #01
14591 F1B6 20 07 . bra 07
14593 F1B9 E6 01 .. ldab 01,x
14595 F1BC BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
14602 F1C3 F6 20 00 . . ldab 2000
14603 F1C6 C4 40 .@ andb #40
14604 F1C8 27 1C '. beq 1c
14605 F1CA 7F 00 18 ... clr 0018
14606 F1CD F6 00 18 ... ldab 0018
14608 F1D1 E1 05 .. cmpb 05,x
14609 F1D3 24 11 $. bcc 11
14611 F1D6 EE 00 .. ldx 00,x
14612 F1D8 E6 00 .. ldab 00,x
14614 F1DB BD F1 5B ..[ jsr f15b ;jump53
14618 F1E1 7C 00 18 |.. inc 0018
14619 F1E4 20 E7 . bra e7
14623 ;send a string to the printer. D is a pointer to a string
14627 F1EA F6 20 00 . . ldab 2000
14628 F1ED C4 40 .@ andb #40
14629 F1EF 27 1B '. beq 1b
14630 F1F1 CC 00 20 .. ldd #0020
14631 F1F4 BD F1 5B ..[ jsr f15b ;jump53
14633 F1F8 EE 00 .. ldx 00,x
14634 F1FA E6 00 .. ldab 00,x
14635 F1FC 27 0E '. beq 0e
14637 F1FF EE 00 .. ldx 00,x
14638 F201 E6 00 .. ldab 00,x
14640 F204 BD F1 5B ..[ jsr f15b ;jump53
14644 F20A 20 EB . bra eb
14651 F210 F6 20 00 . . ldab 2000
14652 F213 C4 40 .@ andb #40
14653 F215 27 34 '4 beq 34
14654 F217 CE 00 1D ... ldx #001d
14655 F21A 1C 00 01 ... bset 00,x, #01
14657 F21E E6 01 .. ldab 01,x
14659 F221 BD E7 95 ... jsr e795 ;jump54 - number to string
14660 F224 F6 00 5D ..] ldab 005d
14662 F228 BD F1 5B ..[ jsr f15b ;jump53
14663 F22B F6 00 5E ..^ ldab 005e
14665 F22F BD F1 5B ..[ jsr f15b ;jump53
14666 F232 CE 00 1D ... ldx #001d
14667 F235 1D 00 01 ... bclr 00,x, #01
14668 F238 F6 00 5F .._ ldab 005f
14670 F23C BD F1 5B ..[ jsr f15b ;jump53
14671 F23F CC 00 20 .. ldd #0020
14672 F242 BD F1 5B ..[ jsr f15b ;jump53
14673 F245 CC 00 20 .. ldd #0020
14674 F248 BD F1 5B ..[ jsr f15b ;jump53
14681 F24F F6 20 00 . . ldab 2000
14682 F252 C4 40 .@ andb #40
14683 F254 27 41 'A beq 41
14684 F256 CE 00 1D ... ldx #001d
14685 F259 1C 00 01 ... bset 00,x, #01
14687 F25D EC 00 .. ldd 00,x
14688 F25F BD E7 45 ..E jsr e745 ;jump55 - number to string
14689 F262 F6 00 57 ..W ldab 0057
14691 F266 BD F1 5B ..[ jsr f15b ;jump53
14692 F269 F6 00 5A ..Z ldab 005a
14694 F26D BD F1 5B ..[ jsr f15b ;jump53
14695 F270 F6 00 5D ..] ldab 005d
14697 F274 BD F1 5B ..[ jsr f15b ;jump53
14698 F277 F6 00 5E ..^ ldab 005e
14700 F27B BD F1 5B ..[ jsr f15b ;jump53
14701 F27E CE 00 1D ... ldx #001d
14702 F281 1D 00 01 ... bclr 00,x, #01
14703 F284 F6 00 5F .._ ldab 005f
14705 F288 BD F1 5B ..[ jsr f15b ;jump53
14706 F28B CC 00 20 .. ldd #0020
14707 F28E BD F1 5B ..[ jsr f15b ;jump53
14708 F291 CC 00 20 .. ldd #0020
14709 F294 BD F1 5B ..[ jsr f15b ;jump53
14716 F29B F6 20 00 . . ldab 2000
14717 F29E C4 40 .@ andb #40 ; printer DSR
14718 F2A0 27 7B '{ beq 7b
14719 F2A2 F6 00 17 ... ldab 0017
14720 F2A5 C4 08 .. andb #08
14721 F2A7 26 06 &. bne 06
14722 F2A9 CC 00 24 ..$ ldd #0024 ; "$"
14723 F2AC BD F1 5B ..[ jsr f15b ;jump53
14724 F2AF CE 00 1D ... ldx #001d
14725 F2B2 1C 00 01 ... bset 00,x, #01
14727 F2B6 EC 00 .. ldd 00,x
14728 F2B8 BD E7 45 ..E jsr e745 ;jump55 - number to string
14729 F2BB F6 00 57 ..W ldab 0057
14731 F2BF BD F1 5B ..[ jsr f15b ;jump53 - byte to printer
14732 F2C2 F6 00 5A ..Z ldab 005a
14734 F2C6 BD F1 5B ..[ jsr f15b ;jump53 - byte to printer
14735 F2C9 F6 00 13 ... ldab 0013
14736 F2CC C1 08 .. cmpb #08
14737 F2CE 26 0C &. bne 0c
14738 F2D0 CC 00 2E ... ldd #002e
14739 F2D3 BD F1 5B ..[ jsr f15b ;jump53 - byte to printer
14740 F2D6 CE 00 1D ... ldx #001d
14741 F2D9 1D 00 01 ... bclr 00,x, #01
14742 F2DC F6 00 5D ..] ldab 005d
14744 F2E0 BD F1 5B ..[ jsr f15b ;jump53 - byte to printer
14745 F2E3 F6 00 13 ... ldab 0013
14746 F2E6 C1 04 .. cmpb #04
14747 F2E8 26 0C &. bne 0c
14748 F2EA CC 00 2E ... ldd #002e
14749 F2ED BD F1 5B ..[ jsr f15b ;jump53 - byte to printer
14750 F2F0 CE 00 1D ... ldx #001d
14751 F2F3 1D 00 01 ... bclr 00,x, #01
14752 F2F6 F6 00 5E ..^ ldab 005e
14754 F2FA BD F1 5B ..[ jsr f15b ;jump53 - byte to printer
14755 F2FD F6 00 13 ... ldab 0013
14756 F300 C1 02 .. cmpb #02
14757 F302 26 06 &. bne 06
14758 F304 CC 00 2E ... ldd #002e
14759 F307 BD F1 5B ..[ jsr f15b ;jump53 - byte to printer
14760 F30A CE 00 1D ... ldx #001d
14761 F30D 1D 00 01 ... bclr 00,x, #01
14762 F310 F6 00 5F .._ ldab 005f
14764 F314 BD F1 5B ..[ jsr f15b ;jump53 - byte to printer
14765 F317 CC 00 0A ... ldd #000a
14766 F31A BD F1 5B ..[ jsr f15b ;jump53 - byte to printer
14775 F323 F6 20 00 . . ldab 2000
14776 F326 C4 40 .@ andb #40 ; printer dsr
14777 F328 26 03 &. bne 03
14778 F32A 7E F3 BC ~.. jmp f3bc ;goto82
14779 F32D F6 00 17 ... ldab 0017
14780 F330 C4 08 .. andb #08
14781 F332 26 06 &. bne 06
14782 F334 CC 00 24 ..$ ldd #0024 ; "$"
14783 F337 BD F1 5B ..[ jsr f15b ;jump53 - byte to printer
14784 F33A CE 00 1D ... ldx #001d
14785 F33D 1C 00 01 ... bset 00,x, #01
14787 F341 EC 04 .. ldd 04,x
14790 F345 EC 02 .. ldd 02,x
14791 F347 BD E6 21 ..! jsr e621 ;jump56 - write to display
14793 F34B C6 07 .. ldab #07
14794 F34D F7 00 18 ... stab 0018
14795 F350 F6 00 18 ... ldab 0018
14796 F353 C1 FF .. cmpb #ff
14797 F355 24 5F $_ bcc 5f
14798 F357 F6 00 18 ... ldab 0018
14800 F35B C3 0B 90 ... addd #0b90
14802 F35F E6 00 .. ldab 00,x
14804 F362 BD F1 5B ..[ jsr f15b ;jump53
14805 F365 F6 00 18 ... ldab 0018
14806 F368 C1 03 .. cmpb #03
14807 F36A 26 15 &. bne 15
14808 F36C F6 00 13 ... ldab 0013
14809 F36F C1 08 .. cmpb #08
14810 F371 26 0C &. bne 0c
14811 F373 CC 00 2E ... ldd #002e
14812 F376 BD F1 5B ..[ jsr f15b ;jump53
14813 F379 CE 00 1D ... ldx #001d
14814 F37C 1D 00 01 ... bclr 00,x, #01
14815 F37F 20 30 0 bra 30
14816 F381 C1 02 .. cmpb #02
14817 F383 26 15 &. bne 15
14818 F385 F6 00 13 ... ldab 0013
14819 F388 C1 04 .. cmpb #04
14820 F38A 26 0C &. bne 0c
14821 F38C CC 00 2E ... ldd #002e
14822 F38F BD F1 5B ..[ jsr f15b ;jump53
14823 F392 CE 00 1D ... ldx #001d
14824 F395 1D 00 01 ... bclr 00,x, #01
14825 F398 20 17 . bra 17
14826 F39A C1 01 .. cmpb #01
14827 F39C 26 13 &. bne 13
14828 F39E F6 00 13 ... ldab 0013
14829 F3A1 C1 02 .. cmpb #02
14830 F3A3 26 06 &. bne 06
14831 F3A5 CC 00 2E ... ldd #002e
14832 F3A8 BD F1 5B ..[ jsr f15b ;jump53
14833 F3AB CE 00 1D ... ldx #001d
14834 F3AE 1D 00 01 ... bclr 00,x, #01
14835 F3B1 7A 00 18 z.. dec 0018
14836 F3B4 20 9A . bra 9a
14837 F3B6 CC 00 0A ... ldd #000a
14838 F3B9 BD F1 5B ..[ jsr f15b ;jump53
14843 F3BF 6E 00 n. jmp 00,x
14848 F3C3 F6 20 00 . . ldab 2000
14849 F3C6 C4 40 .@ andb #40
14850 F3C8 27 49 'I beq 49
14851 F3CA CC B4 71 ..q ldd #b471 " CODE "
14852 F3CD BD F1 E8 ... jsr f1e8 ;jump57
14854 F3D1 E6 01 .. ldab 01,x
14856 F3D4 CE 00 0A ... ldx #000a
14859 F3D9 CB 30 .0 addb #30
14860 F3DB F7 00 5E ..^ stab 005e
14862 F3DF E6 01 .. ldab 01,x
14864 F3E2 CE 00 0A ... ldx #000a
14866 F3E6 CB 30 .0 addb #30
14867 F3E8 F7 00 5F .._ stab 005f ;5e and 5f now param in ascii
14868 F3EB F6 00 5E ..^ ldab 005e
14870 F3EF BD F1 5B ..[ jsr f15b ;jump53
14871 F3F2 F6 00 5F .._ ldab 005f
14873 F3F6 BD F1 5B ..[ jsr f15b ;jump53
14874 F3F9 CC B4 7B ..{ ldd #b47b "VENDS - "
14875 F3FC BD F1 E8 ... jsr f1e8 ;jump57
14877 F400 E6 01 .. ldab 01,x
14880 F404 C3 0D 1F ... addd #0d1f
14882 F408 EC 00 .. ldd 00,x
14883 F40A BD F2 4D ..M jsr f24d ;jump58
14884 F40D CC 00 0A ... ldd #000a
14885 F410 BD F1 5B ..[ jsr f15b ;jump53
14890 ; print a report to printer
14891 F415 F6 0B C0 ... ldab 0bc0
14892 F418 C4 02 .. andb #02
14893 F41A 27 15 '. beq 15
14894 F41C CE 00 21 ..! ldx #0021
14895 F41F 1C 00 .. bset 00,x, #80
14896 F421 F6 00 1D .. ldab 001d
14897 F424 C4 02 .. andb #02
14898 F427 27 02 '. beq 02
14899 F429 20 F7 . bra f7
14900 F42B CE 00 21 ..! ldx #0021
14901 F42E 1D 00 .. bclr 00,x, #80
14902 F430 C6 10 .. ldab #10
14903 F433 F7 10 2C .., stab 102c ; set 9N1
14904 F436 C6 2E .. ldab #2e
14905 F438 F7 10 2D ..- stab 102d ; enable SCI transmission
14906 F43B C6 05 .. ldab #05
14907 F43D F7 10 2B ..+ stab 102b ; 2400 baud
14908 F440 CC 03 E8 ... ldd #03e8
14909 F443 BD E5 71 ..q jsr e571 ;msdelay
14910 F446 CE 10 00 ... ldx #1000
14911 F449 1D 00 08 ... bclr 00,x, #08 ; talk to ze printer
14912 F44C CE 00 19 ... ldx #0019
14913 F44F 1D 00 40 ... bclr 00,x, #40
14914 F452 CE 00 1D ... ldx #001d
14915 F455 1D 00 01 ... bclr 00,x, #01
14916 F458 CC 00 18 ... ldd #0018
14917 F45B BD F1 5B ..[ jsr f15b ;jump53
14918 F45E CC B2 1B ... ldd #b21b " ROWE INTERNATIONAL"
14919 F461 BD F1 E8 ... jsr f1e8 ;jump57
14920 F464 CC 00 0A ... ldd #000a ; new line
14921 F467 BD F1 5B ..[ jsr f15b ;jump53
14922 F46A CC B2 38 ..8 ldd #b238 " -------------------"
14923 F46D BD F1 E8 ... jsr f1e8 ;jump57
14924 F470 CC 00 0A ... ldd #000a ; new line
14925 F473 BD F1 5B ..[ jsr f15b ;jump53
14926 F476 CC B2 56 ..V ldd #b256 ; "5900 SOFTWARE VER 5"
14927 F479 BD F1 E8 ... jsr f1e8 ;jump57
14928 F47C CC 00 0A ... ldd #000a ; new line
14929 F47F BD F1 5B ..[ jsr f15b ;jump53
14930 F482 CC 00 0A ... ldd #000a ; new line
14931 F485 BD F1 5B ..[ jsr f15b ;jump53
14932 F488 CC B2 75 ..u ldd #b275 ; ACCOUNT RECORD
14933 F48B BD F1 E8 ... jsr f1e8 ;jump57
14934 F48E CC 00 0A ... ldd #000a ; new line
14935 F491 BD F1 5B ..[ jsr f15b ;jump53
14936 F494 CC B2 38 ..8 ldd #b238 ; --------------------
14937 F497 BD F1 E8 ... jsr f1e8 ;jump57
14938 F49A CC 00 0A ... ldd #000a ; new line
14939 F49D BD F1 5B ..[ jsr f15b ;jump53
14940 F4A0 CC 00 0A ... ldd #000a ; new line
14941 F4A3 BD F1 5B ..[ jsr f15b ;jump53
14942 F4A6 CC B2 90 ... ldd #b290 ; SERIAL #
14943 F4A9 BD F1 E8 ... jsr f1e8 ;jump57
14944 F4AC CE 00 0A ... ldx #000a
14946 F4B0 CC 0C BC ... ldd #0cbc ; serial number
14947 F4B3 BD F1 C1 ... jsr f1c1 ;jump59
14949 F4B7 CC 00 0A ... ldd #000a
14950 F4BA BD F1 5B ..[ jsr f15b ;jump53
14951 F4BD CC B2 A2 ... ldd #b2a2 ; "MACHINE ID"
14952 F4C0 BD F1 E8 ... jsr f1e8 ;jump57
14953 F4C3 CE 00 0A ... ldx #000a
14955 F4C7 CC 0C CC ... ldd #0ccc
14956 F4CA BD F1 C1 ... jsr f1c1 ;jump59
14958 F4CE CC 00 0A ... ldd #000a
14959 F4D1 BD F1 5B ..[ jsr f15b ;jump53
14960 F4D4 CC B2 B4 ... ldd #b2b4 ; "AUDIT NUMBER"
14961 F4D7 BD F1 E8 ... jsr f1e8 ;jump57
14962 F4DA FC 0C E7 ... ldd 0ce7
14963 F4DD BD F2 4D ..M jsr f24d ;jump58 - convert to string
14964 F4E0 CC 00 0A ... ldd #000a
14965 F4E3 BD F1 5B ..[ jsr f15b ;jump53
14966 F4E6 CC 00 0A ... ldd #000a
14967 F4E9 BD F1 5B ..[ jsr f15b ;jump53
14968 F4EC CC B2 C6 ... ldd #b2c6 ; "SALES (R)
14969 F4EF BD F1 E8 ... jsr f1e8 ;jump57
14970 F4F2 FE 0D E9 ... ldx 0de9
14972 F4F6 FC 0D E7 ... ldd 0de7
14973 F4F9 BD F3 1F ... jsr f31f ;jump60
14975 F4FD CC B2 D8 ... ldd #b2d8 ; "SALES (N)
14976 F500 BD F1 E8 ... jsr f1e8 ;jump57
14977 F503 FE 0D ED ... ldx 0ded
14979 F507 FC 0D EB ... ldd 0deb
14980 F50A BD F3 1F ... jsr f31f ;jump60
14982 F50E CC B2 EA ... ldd #b2ea
14983 F511 BD F1 E8 ... jsr f1e8 ;jump57
14984 F514 FE 0D F1 ... ldx 0df1
14986 F518 FC 0D EF ... ldd 0def
14987 F51B BD F3 1F ... jsr f31f ;jump60
14989 F51F CC B2 FC ... ldd #b2fc
14990 F522 BD F1 E8 ... jsr f1e8 ;jump57
14991 F525 FE 0D F9 ... ldx 0df9
14993 F529 FC 0D F7 ... ldd 0df7
14994 F52C BD F3 1F ... jsr f31f ;jump60
14996 F530 CC B3 0E ... ldd #b30e
14997 F533 BD F1 E8 ... jsr f1e8 ;jump57
14998 F536 FE 0D FD ... ldx 0dfd
15000 F53A FC 0D FB ... ldd 0dfb
15001 F53D BD F3 1F ... jsr f31f ;jump60
15003 F541 CC 00 0A ... ldd #000a
15004 F544 BD F1 5B ..[ jsr f15b ;jump53
15005 F547 CC B3 20 .. ldd #b320
15006 F54A BD F1 E8 ... jsr f1e8 ;jump57
15007 F54D CC 00 0A ... ldd #000a
15008 F550 BD F1 5B ..[ jsr f15b ;jump53
15009 F553 CC B3 31 ..1 ldd #b331
15010 F556 BD F1 E8 ... jsr f1e8 ;jump57
15011 F559 FE 0D F5 ... ldx 0df5
15013 F55D FC 0D F3 ... ldd 0df3
15014 F560 BD F3 1F ... jsr f31f ;jump60
15016 F564 CC B3 4A ..J ldd #b34a
15017 F567 BD F1 E8 ... jsr f1e8 ;jump57
15018 F56A FC 0C DD ... ldd 0cdd
15019 F56D BD F2 4D ..M jsr f24d ;jump58
15020 F570 FE 0C F5 ... ldx 0cf5
15022 F574 FC 0C F3 ... ldd 0cf3
15023 F577 BD F3 1F ... jsr f31f ;jump60
15025 F57B CC B3 5C ..\ ldd #b35c
15026 F57E BD F1 E8 ... jsr f1e8 ;jump57
15027 F581 FC 0C DF ... ldd 0cdf
15028 F584 BD F2 4D ..M jsr f24d ;jump58
15029 F587 FE 0C F9 ... ldx 0cf9
15031 F58B FC 0C F7 ... ldd 0cf7
15032 F58E BD F3 1F ... jsr f31f ;jump60
15034 F592 CC B3 6E ..n ldd #b36e
15035 F595 BD F1 E8 ... jsr f1e8 ;jump57
15036 F598 FC 0C E1 ... ldd 0ce1
15037 F59B BD F2 4D ..M jsr f24d ;jump58
15038 F59E FE 0C FD ... ldx 0cfd
15040 F5A2 FC 0C FB ... ldd 0cfb
15041 F5A5 BD F3 1F ... jsr f31f ;jump60
15043 F5A9 CC B3 80 ... ldd #b380
15044 F5AC BD F1 E8 ... jsr f1e8 ;jump57
15045 F5AF FC 0C E3 ... ldd 0ce3
15046 F5B2 BD F2 4D ..M jsr f24d ;jump58
15047 F5B5 FE 0D 01 ... ldx 0d01
15049 F5B9 FC 0C FF ... ldd 0cff
15050 F5BC BD F3 1F ... jsr f31f ;jump60
15052 F5C0 CC B3 92 ... ldd #b392
15053 F5C3 BD F1 E8 ... jsr f1e8 ;jump57
15054 F5C6 FC 0C E5 ... ldd 0ce5
15055 F5C9 BD F2 4D ..M jsr f24d ;jump58
15056 F5CC FE 0D 05 ... ldx 0d05
15058 F5D0 FC 0D 03 ... ldd 0d03
15059 F5D3 BD F3 1F ... jsr f31f ;jump60
15061 F5D7 CC 00 0A ... ldd #000a
15062 F5DA BD F1 5B ..[ jsr f15b ;jump53
15063 F5DD CC B3 A4 ... ldd #b3a4
15064 F5E0 BD F1 E8 ... jsr f1e8 ;jump57
15065 F5E3 CC 00 0A ... ldd #000a
15066 F5E6 BD F1 5B ..[ jsr f15b ;jump53
15067 F5E9 CC B3 B3 ... ldd #b3b3
15068 F5EC BD F1 E8 ... jsr f1e8 ;jump57
15069 F5EF FC 0C F1 ... ldd 0cf1
15070 F5F2 BD F2 99 ... jsr f299 ;jump61
15071 F5F5 CC B3 CA ... ldd #b3ca
15072 F5F8 BD F1 E8 ... jsr f1e8 ;jump57
15073 F5FB F6 0C DC ... ldab 0cdc
15075 F5FF BD F2 0E ... jsr f20e ;jump62
15076 F602 FC 0C E9 ... ldd 0ce9
15077 F605 BD F2 99 ... jsr f299 ;jump61
15078 F608 CC B3 DC ... ldd #b3dc
15079 F60B BD F1 E8 ... jsr f1e8 ;jump57
15080 F60E F6 0C DB ... ldab 0cdb
15082 F612 BD F2 0E ... jsr f20e ;jump62
15083 F615 FC 0C EB ... ldd 0ceb
15084 F618 BD F2 99 ... jsr f299 ;jump61
15085 F61B CC B3 EE ... ldd #b3ee
15086 F61E BD F1 E8 ... jsr f1e8 ;jump57
15087 F621 F6 0C DA ... ldab 0cda
15089 F625 BD F2 0E ... jsr f20e ;jump62
15090 F628 FC 0C ED ... ldd 0ced
15091 F62B BD F2 99 ... jsr f299 ;jump61
15092 F62E CC B4 00 ... ldd #b400
15093 F631 BD F1 E8 ... jsr f1e8 ;jump57
15094 F634 F6 0C D9 ... ldab 0cd9
15096 F638 BD F2 0E ... jsr f20e ;jump62
15097 F63B FC 0C EF ... ldd 0cef
15098 F63E BD F2 99 ... jsr f299 ;jump61
15099 F641 CC 00 0A ... ldd #000a
15100 F644 BD F1 5B ..[ jsr f15b ;jump53
15101 F647 CC B4 12 ... ldd #b412
15102 F64A BD F1 E8 ... jsr f1e8 ;jump57
15103 F64D FC 0D 07 ... ldd 0d07
15104 F650 BD F2 4D ..M jsr f24d ;jump58
15105 F653 FE 0D 11 ... ldx 0d11
15107 F657 FC 0D 0F ... ldd 0d0f
15108 F65A BD F3 1F ... jsr f31f ;jump60
15110 F65E CC B4 24 ..$ ldd #b424
15111 F661 BD F1 E8 ... jsr f1e8 ;jump57
15112 F664 FC 0D 09 ... ldd 0d09
15113 F667 BD F2 4D ..M jsr f24d ;jump58
15114 F66A FE 0D 15 ... ldx 0d15
15116 F66E FC 0D 13 ... ldd 0d13
15117 F671 BD F3 1F ... jsr f31f ;jump60
15119 F675 CC B4 36 ..6 ldd #b436
15120 F678 BD F1 E8 ... jsr f1e8 ;jump57
15121 F67B FC 0D 0B ... ldd 0d0b
15122 F67E BD F2 4D ..M jsr f24d ;jump58
15123 F681 FE 0D 19 ... ldx 0d19
15125 F685 FC 0D 17 ... ldd 0d17
15126 F688 BD F3 1F ... jsr f31f ;jump60
15128 F68C CC B4 48 ..H ldd #b448
15129 F68F BD F1 E8 ... jsr f1e8 ;jump57
15130 F692 FC 0D 0D ... ldd 0d0d
15131 F695 BD F2 4D ..M jsr f24d ;jump58
15132 F698 FE 0D 1D ... ldx 0d1d
15134 F69C FC 0D 1B ... ldd 0d1b
15135 F69F BD F3 1F ... jsr f31f ;jump60
15137 F6A3 CC 00 0A ... ldd #000a
15138 F6A6 BD F1 5B ..[ jsr f15b ;jump53
15139 F6A9 CC B4 5A ..Z ldd #b45a
15140 F6AC BD F1 E8 ... jsr f1e8 ;jump57
15141 F6AF CC 00 0A ... ldd #000a
15142 F6B2 BD F1 5B ..[ jsr f15b ;jump53
15143 F6B5 C6 01 .. ldab #01
15144 F6B7 F7 00 54 ..T stab 0054
15145 F6BA F6 00 54 ..T ldab 0054
15146 F6BD C1 63 .c cmpb #63
15147 F6BF 22 1B ". bhi 1b
15148 F6C1 F6 00 54 ..T ldab 0054
15151 F6C6 C3 08 C8 ... addd #08c8
15153 F6CA EC 00 .. ldd 00,x
15154 F6CC C4 80 .. andb #80
15155 F6CE 27 07 '. beq 07
15156 F6D0 F6 00 54 ..T ldab 0054
15158 F6D4 BD F3 C1 ... jsr f3c1 ;jump63
15159 F6D7 7C 00 54 |.T inc 0054
15160 F6DA 20 DE . bra de
15161 F6DC CC 00 0A ... ldd #000a
15162 F6DF BD F1 5B ..[ jsr f15b ;jump53
15163 F6E2 F6 00 19 ... ldab 0019
15164 F6E5 C4 40 .@ andb #40
15165 F6E7 26 07 &. bne 07
15166 F6E9 FE 0C E7 ... ldx 0ce7 ;increment the audit number?
15168 F6ED FF 0C E7 ... stx 0ce7
15169 F6F0 CE 00 1D ... ldx #001d
15170 F6F3 1D 00 01 ... bclr 00,x, #01
15171 F6F6 CC 03 E8 ... ldd #03e8
15172 F6F9 BD E5 71 ..q jsr e571 ;msdelay
15173 F6FC C6 03 .. ldab #03
15174 F6FE F7 10 2B ..+ stab 102b ; back to 9600 baud
15175 F701 CE 10 00 ... ldx #1000
15176 F704 1C 00 08 ... bset 00,x, #08 ; set back to coin mech
15177 F707 F6 0B C0 ... ldab 0bc0
15178 F70A C4 02 .. andb #02
15179 F70C 27 06 '. beq 06
15180 F70E CC 00 80 ... ldd #0080
15181 F711 BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
15182 F714 7F 00 38 ..8 clr 0038
15187 F719 F6 0B C0 ... ldab 0bc0 ; if we have a bill validator
15188 F71C C4 08 .. andb #08
15189 F71E 27 03 '. beq 03
15190 F720 BD C3 25 ..% jsr c325 ;jump64 - go query the bill validator
15191 F723 7C 00 0C |.. inc 000c
15192 F726 F6 00 0C ... ldab 000c
15193 F729 C1 02 .. cmpb #02
15194 F72B 26 13 &. bne 13
15195 F72D 7F 00 0C ... clr 000c
15196 F730 F6 00 07 ... ldab 0007
15197 F733 27 03 '. beq 03
15198 F735 7A 00 07 z.. dec 0007
15199 F738 F6 00 00 ... ldab 0000
15200 F73B 27 03 '. beq 03
15201 F73D 7A 00 00 z.. dec 0000
15202 F740 7C 00 0B |.. inc 000b
15203 F743 F6 00 0B ... ldab 000b
15204 F746 C1 08 .. cmpb #08
15205 F748 26 37 &7 bne 37 ; to f781
15206 F74A 7F 00 0B ... clr 000b
15207 F74D FC 00 3B ..; ldd 003b
15208 F750 27 07 '. beq 07
15209 F752 FE 00 3B ..; ldx 003b
15211 F756 FF 00 3B ..; stx 003b
15212 F759 CC 00 2C .., ldd #002c
15214 F75D ED 00 .. std 00,x
15216 F760 EC 00 .. ldd 00,x
15219 F764 CC 00 3A ..: ldd #003a
15221 F768 A3 00 .. subd 00,x
15224 F76C 25 13 %. bcs 13
15226 F76F EE 00 .. ldx 00,x
15227 F771 E6 00 .. ldab 00,x
15228 F773 27 07 '. beq 07
15230 F776 EE 00 .. ldx 00,x
15231 F778 6A 00 j. dec 00,x
15232 F77A E6 00 .. ldab 00,x
15236 F77F 20 DE . bra de ; to f75f
15238 F781 F6 00 32 ..2 ldab 0032
15239 F784 27 07 '. beq 07 ; to f78d
15240 F786 F6 00 32 ..2 ldab 0032
15241 F789 C4 02 .. andb #02
15242 F78B 26 08 &. bne 08 ; to f795
15244 F78D CE 10 00 ... ldx #1000 ; chime off
15245 F790 1D 00 10 .. bclr 00,x, #10
15246 F793 20 0D . bra 0d ; to f7a2
15248 F795 F6 00 32 ..2 ldab 0032
15249 F798 C4 01 .. andb #01
15250 F79A 26 06 &. bne 06 ; to f7a2
15251 F79C CE 10 00 ... ldx #1000 ; chime on
15252 F79F 1C 00 10 .. bset 00,x, #10
15254 F7A2 7C 00 4C |.L inc 004c
15255 F7A5 F6 00 4C ..L ldab 004c
15256 F7A8 C1 4B .K cmpb #4b
15257 F7AA 26 13 &. bne 13 ; to f7bf
15258 F7AC 7F 00 4C ..L clr 004c
15259 F7AF F6 00 4F ..O ldab 004f
15260 F7B2 27 03 '. beq 03
15261 F7B4 7A 00 4F z.O dec 004f
15263 F7B7 F6 00 25 ..% ldab 0025
15264 F7BA 27 03 '. beq 03
15266 F7BC 7A 00 25 z.% dec 0025
15268 F7BF F6 00 31 ..1 ldab 0031
15269 F7C2 26 03 &. bne 03
15270 F7C4 BD FE 69 ..i jsr fe69 ;reset
15272 F7C7 F6 00 7F ... ldab 007f
15273 F7CA 27 03 '. beq 03
15274 F7CC BD FE 69 ..i jsr fe69 ;reset
15276 F7CF C6 40 .@ ldab #40
15277 F7D1 F7 10 25 ..% stab 1025 ; notify end of RTI period
15283 F7D6 7F 00 14 ... clr 0014 ;0 -> 0014
15285 ; clears the bits of U14 flipflop
15286 F7D9 5F _ clrb ;0 -> B
15287 F7DA F7 38 00 .8. stab 3800 ;B -> 3800
15289 F7DD C6 7F .. ldab #7f ;7F -> B
15290 F7DF F7 00 1A ... stab 001a ;B -> 001a
15292 ; set changer outputs all on, row motors off
15293 F7E2 C6 7F .. ldab #7f ;7F -> B
15294 F7E4 F7 30 00 .0. stab 3000 ;
15296 ; sets priority select bits 0-3 (elevates interrupt priority of all interrupts)
15297 F7E7 C6 07 .. ldab #07 ;7 -> B
15298 F7E9 F7 10 3C ..< stab 103c
15300 ; Set PA7 output, PA3 input, RT clock rate to 314 Hz (4.9152Mhz / 2^14)
15301 F7EC C6 81 .. ldab #81 ;81 -> B
15302 F7EE F7 10 26 ..& stab 1026
15304 ; clear ADC register
15305 F7F1 5F _ clrb ;0 -> B
15306 F7F2 F7 10 30 ..0 stab 1030
15308 ; talk to coin mech, beep, tie clock motors & display reset high (off)
15309 F7F5 C6 C8 .. ldab #c8 ;c8 -> B ; 11001000
15310 F7F7 F7 10 00 ... stab 1000 ; to port A
15312 ; sets PortD directions. XXX: Why is PD2 an output?
15313 F7FA C6 3E .> ldab #3e ;3e -> B 00111110
15314 F7FC F7 10 09 ... stab 1009 ; port D DDR
15316 ; make PortD pins open-drain, set clock polarity
15317 F7FF C6 12 .. ldab #12 ;12 -> B
15318 F801 F7 10 28 ..( stab 1028 ; SPCR 00101000
15320 ; initialize the display
15321 F804 BD BE 69 ..i jsr be69 ;displayreset
15323 ; initialize the bill validator & more stuff
15324 F807 BD EA 59 ..Y jsr ea59 ;jump65
15326 F80A CC 00 64 ..d ldd #0064 ; 100-unit delay
15327 F80D BD E5 71 ..q jsr e571 ;msdelay
15329 F810 CC B1 EF ... ldd #b1ef " ROWE INT "
15330 F813 BD C0 BA ... jsr c0ba ;display:
15331 F816 CC 01 F4 ... ldd #01f4 ; 500-unit delay
15332 F819 BD E5 71 ..q jsr e571 ;msdelay
15333 F81C CC B1 FA ... ldd #b1fa "COPYRIGHT "
15334 F81F BD C0 BA ... jsr c0ba ;display:
15335 F822 CC 01 F4 ... ldd #01f4
15336 F825 BD E5 71 ..q jsr e571 ;msdelay
15337 F828 CC B2 05 ... ldd #b205 " 1993 "
15338 F82B BD C0 BA ... jsr c0ba ;display:
15339 F82E CC 01 F4 ... ldd #01f4
15340 F831 BD E5 71 ..q jsr e571 ;msdelay
15341 F834 CC B2 10 ... ldd #b210 "5900 VER 5"
15342 F837 BD C0 BA ... jsr c0ba ;display:
15343 F83A CC 00 0A ... ldd #000a
15344 F83D BD E5 71 ..q jsr e571 ;msdelay
15347 F840 7F 00 7F ... clr 007f
15348 F843 7F 00 21 ..! clr 0021
15349 F846 7F 00 1F ... clr 001f
15350 F849 7F 00 1D ... clr 001d
15351 F84C 7F 00 1B ... clr 001b
15352 F84F 7F 00 19 ... clr 0019
15354 F852 F6 0B C0 ... ldab 0bc0
15355 F855 C4 01 .. andb #01
15356 F857 27 08 '. beq 08 ; to f861
15357 F859 CE 0B C1 ... ldx #0bc1
15358 F85C 1C 00 01 ... bset 00,x, #01 ; set changer powerup fail
15359 F85F 20 06 . bra 06 ; to f867
15360 F861 CE 0B C1 ... ldx #0bc1
15361 F864 1D 00 01 ... bclr 00,x, #01 ; clear changer powerup fail
15363 F867 F6 0B C0 ... ldab 0bc0
15364 F86A C4 04 .. andb #04
15365 F86C 27 08 '. beq 08 ; to f876
15366 F86E CE 0B C1 ... ldx #0bc1
15367 F871 1C 00 02 ... bset 00,x, #02 ; set card powerup fail
15368 F874 20 06 . bra 06 ; to f87c
15369 F876 CE 0B C1 ... ldx #0bc1
15370 F879 1D 00 02 .. bclr 00,x, #02 ; clear card powerup fail
15371 F87C CE 0B C1 ... ldx #0bc1
15372 F87F 1D 00 04 .. bclr 00,x, #04 ; clear link powerup fail
15373 F882 F6 0B C0 ... ldab 0bc0
15374 F885 C4 02 .. andb #02
15375 F887 27 2D '- beq 2d ; to f8b6
15376 F889 C6 3C .< ldab #3c
15377 F88B F7 00 31 ..1 stab 0031
15379 F88F CC 00 FF ... ldd #00ff
15380 F892 BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
15383 F897 FD 00 40 ..@ std 0040
15384 F89A C6 10 .. ldab #10
15385 F89C F7 10 2C .., stab 102c ; set 9N1
15386 F89F C6 2E .. ldab #2e
15387 F8A1 F7 10 2D ..- stab 102d ; enable SCI transmission
15388 F8A4 C6 03 .. ldab #03
15389 F8A6 F7 10 2B ..+ stab 102b ; set 9600 baud
15390 F8A9 C6 46 .F ldab #46 ; 70 01000110
15391 F8AB F7 00 2F ../ stab 002f
15392 F8AE CC 07 D0 ... ldd #07d0
15393 F8B1 BD E5 71 ..q jsr e571 ;msdelay
15394 F8B4 20 2B + bra 2b ; to f8e1
15395 F8B6 BD D0 94 ... jsr d094 ;jump66 - init variables
15396 F8B9 C6 27 .' ldab #27
15397 F8BB F7 10 2D ..- stab 102d ; disable SCI transmission
15398 F8BE C6 07 .. ldab #07
15399 F8C0 F7 10 2B ..+ stab 102b ; set 600 baud
15400 ; reset the changer
15401 F8C3 CE 00 1A ... ldx #001a
15402 F8C6 1C 00 04 .. bset 00,x, #04
15403 F8C9 F6 00 1A ... ldab 001a
15404 F8CC F7 30 00 .0. stab 3000 ; reset the changer
15405 F8CF CC 07 D0 ... ldd #07d0
15406 F8D2 BD E5 71 ..q jsr e571 ;msdelay
15407 F8D5 CE 00 1A ... ldx #001a
15408 F8D8 1D 00 04 .. bclr 00,x, #04
15409 F8DB F6 00 1A ... ldab 001a
15410 F8DE F7 30 00 .0. stab 3000 ; pull reset line back
15412 F8E1 7F 0E 6A ..j clr 0e6a
15413 F8E4 BD D4 79 ..y jsr d479 ;jump67
15414 F8E7 BD E8 9A ... jsr e89a ;jump68
15415 F8EA 7F 00 06 ... clr 0006
15416 F8ED CE 00 1D ... ldx #001d
15417 F8F0 1C 00 10 .. bset 00,x, #10
15418 F8F3 CC 05 DC ... ldd #05dc
15419 F8F6 BD E5 71 ..q jsr e571 ;msdelay
15420 F8F9 C6 1E .. ldab #1e
15421 F8FB F7 00 35 ..5 stab 0035
15424 ; begin of main loop
15427 F8FF BD E6 1B ... jsr e61b ;jump4 set 0031 to 10
15428 F902 BD D1 05 ... jsr d105 ;motors_off
15429 F905 F6 10 0A ... ldab 100a
15430 F908 C4 08 .. andb #08 ; 24VUN line too low
15431 F90A 27 46 'F beq 46 ; to f952
15432 F90C F6 10 0A ... ldab 100a
15433 F90F C4 08 .. andb #08
15434 F911 27 11 '. beq 11 ; to f924
15435 F913 CE 00 1A ... ldx #001a
15436 F916 1C 00 04 .. bset 00,x, #04
15437 F919 F6 00 1A ... ldab 001a
15438 F91C F7 30 00 .0. stab 3000 ; changer reset
15439 F91F BD E6 1B ... jsr e61b ;jump4 put #0a => 0031
15440 F922 20 E8 . bra e8 ; to f90c
15442 F924 BD D0 94 ... jsr d094 ;jump66 - reset some variables to defaults?
15443 F927 F6 0B C0 ... ldab 0bc0
15444 F92A C4 01 .. andb #01
15445 F92C 27 06 '. beq 06
15446 F92E CE 0B C1 ... ldx #0bc1
15447 F931 1C 00 01 .. bset 00,x, #01 ; set changer powerup fail
15448 F934 F6 0B C0 ... ldab 0bc0
15449 F937 C4 04 .. andb #04
15450 F939 27 06 '. beq 06
15451 F93B CE 0B C1 ... ldx #0bc1
15452 F93E 1C 00 02 .. bset 00,x, #02 ; set card powerup fail
15453 F941 CE 00 1A ... ldx #001a
15454 F944 1D 00 04 .. bclr 00,x, #04
15455 F947 F6 00 1A ... ldab 001a
15456 F94A F7 30 00 .0. stab 3000 ; clear send & reset lines
15457 F94D C6 1E .. ldab #1e
15458 F94F F7 00 35 ..5 stab 0035
15460 ; end of power line test
15463 ; chat to the bill validator if we need to
15465 F952 F6 0B C0 ... ldab 0bc0
15466 F955 C4 08 .. andb #08
15467 F957 27 16 '. beq 16 ; to f96f if no bill validator
15468 F959 CE 00 02 ... ldx #0002
15470 F95D CC 10 00 ... ldd #1000
15471 F960 BD E5 D7 ... jsr e5d7 ;jump69 - poll bill validator
15473 F964 83 00 00 ... subd #0000
15474 F967 27 06 '. beq 06
15475 F969 CE 0B C1 ... ldx #0bc1
15476 F96C 1C 00 08 .. bset 00,x, #08 ; set bill error bit
15478 F96F F6 0B C1 ... ldab 0bc1
15479 F972 C4 07 .. andb #07 ; was there a power failure?
15480 F974 27 0D '. beq 0d ; to f983
15481 F976 F6 00 35 ..5 ldab 0035
15482 F979 26 08 &. bne 08
15483 F97B CE 00 21 ..! ldx #0021
15484 F97E 1C 00 20 .. bset 00,x, #20
15485 F981 20 06 .. bra 06 ; to f989
15488 F983 CE 00 21 ..! ldx #0021
15489 F986 1D 00 20 .. bclr 00,x, #20
15490 F989 BD BB 63 . jsr bb63 ;jump200 - read the keypad
15491 F98C BD B8 00 ... jsr b800 ;jump201 - interpret the keys and write to the display
15492 F98F F6 0B C0 ... ldab 0bc0
15493 F992 C4 01 .. andb #01
15494 F994 27 0B '. beq 0b
15495 F996 FC 00 40 ..@ ldd 0040
15496 F999 F3 00 3E ..> addd 003e
15497 F99C 26 03 &. bne 03
15498 F99E BD D6 F6 ... jsr d6f6 ;jump106
15499 F9A1 F6 00 12 ... ldab 0012
15500 F9A4 C4 20 . andb #20 ; test door switch
15501 F9A6 27 08 '. beq 08 ; to f9b0
15502 F9A8 F6 00 35 ..5 ldab 0035
15503 F9AB 26 03 &. bne 03
15504 F9AD 7E FA 79 ~.y jmp fa79 ;goto83
15506 F9B0 CE 00 1F ... ldx #001f
15507 F9B3 1D 00 04 ... bclr 00,x, #04
15508 F9B6 CE 00 1D ... ldx #001d
15509 F9B9 1C 00 10 ... bset 00,x, #10
15510 F9BC F6 00 1F ... ldab 001f
15511 F9BF C4 20 . andb #20
15512 F9C1 26 03 &. bne 03
15513 F9C3 7E FA 74 ~.t jmp fa74 ;goto84 if 001f is clear
15514 F9C6 F6 0B C0 ... ldab 0bc0
15515 F9C9 C4 01 .. andb #01
15516 F9CB 27 08 '. beq 08
15517 F9CD CE 0B C1 ... ldx #0bc1
15518 F9D0 1C 00 01 ... bset 00,x, #01 ; set changer powerup error
15519 F9D3 20 06 . bra 06
15520 F9D5 CE 0B C1 ... ldx #0bc1
15521 F9D8 1D 00 01 ... bclr 00,x, #01 ; unset changer powerup error
15522 F9DB F6 0B C0 ... ldab 0bc0
15523 F9DE C4 04 .. andb #04
15524 F9E0 27 08 '. beq 08
15525 F9E2 CE 0B C1 ... ldx #0bc1
15526 F9E5 1C 00 02 ... bset 00,x, #02 ; set card powerup error
15527 F9E8 20 06 . bra 06
15528 F9EA CE 0B C1 ... ldx #0bc1
15529 F9ED 1D 00 02 ... bclr 00,x, #02 ; unset card powerup error
15530 F9F0 CE 0B C1 ... ldx #0bc1
15531 F9F3 1D 00 04 ... bclr 00,x, #04 ; unset link powerup error
15532 F9F6 CE 00 1B ... ldx #001b
15533 F9F9 1D 00 02 ... bclr 00,x, #02
15534 F9FC F6 0B C0 ... ldab 0bc0
15535 F9FF C4 02 .. andb #02
15536 FA01 27 27 '' beq 27 ; to fa2a
15538 FA03 C6 3C .< ldab #3c ; 62 00111100
15539 FA05 F7 00 31 ..1 stab 0031
15541 FA09 CC 00 FF ... ldd #00ff
15542 FA0C BD C7 E7 ... jsr c7e7 ;jump37 - send #ff to coin mech
15545 FA11 FD 00 40 ..@ std 0040
15546 FA14 C6 10 .. ldab #10
15547 FA16 F7 10 2C .., stab 102c ; set 9N1
15548 FA19 C6 2E .. ldab #2e
15549 FA1B F7 10 2D ..- stab 102d ; enable SCI transmission
15550 FA1E C6 03 .. ldab #03
15551 FA20 F7 10 2B ..+ stab 102b ; 9600 baud
15552 FA23 C6 46 .F ldab #46 ; 70 01000110
15553 FA25 F7 00 2F ../ stab 002f
15554 FA28 20 31 1 bra 31 ; to fa5b
15556 FA2A CE 00 21 ..! ldx #0021
15557 FA2D 1D 00 40 ... bclr 00,x, #40
15558 FA30 BD D0 94 ... jsr d094 ;jump66 - init variables
15559 FA33 C6 27 .' ldab #27
15560 FA35 F7 10 2D ..- stab 102d ; disable SCI transmission
15561 FA38 C6 07 .. ldab #07
15562 FA3A F7 10 2B ..+ stab 102b ; 600 baud
15563 FA3D CE 00 1A ... ldx #001a
15564 FA40 1C 00 04 ... bset 00,x, #04
15565 FA43 F6 00 1A ... ldab 001a
15566 FA46 F7 30 00 .0. stab 3000 ; changer reset line high
15567 FA49 CC 00 32 ..2 ldd #0032
15568 FA4C BD E5 71 ..q jsr e571 ;msdelay
15569 FA4F CE 00 1A ... ldx #001a
15570 FA52 1D 00 04 ... bclr 00,x, #04
15571 FA55 F6 00 1A ... ldab 001a
15572 FA58 F7 30 00 .0. stab 3000 ; changer reset line low
15574 FA5B BD D4 79 ..y jsr d479 ;jump67 - query all motors?
15575 FA5E BD E8 9A ... jsr e89a ;jump68
15576 FA61 BD BE 69 ..i jsr be69 ;displayreset
15577 FA64 7F 00 06 ... clr 0006
15578 FA67 CE 00 1F ... ldx #001f
15579 FA6A 1D 00 20 .. bclr 00,x, #20
15580 FA6D C6 1E . ldab #1e
15581 FA6F F7 00 35 ...5 stab 0035
15582 FA72 20 03 . bra 03
15584 FA74 BD DE E7 ... jsr dee7 ;jump116
15585 FA77 20 66 f bra 66
15587 FA79 F6 00 12 ... ldab 0012
15588 FA7C C4 20 . andb #20
15589 FA7E 27 5F '_ beq 5f ; to fadf - restart loop
15590 FA80 F6 00 1F ... ldab 001f
15591 FA83 C4 20 . andb #20
15592 FA85 26 03 &. bne 03
15593 FA87 BD E5 AA ... jsr e5aa ;jump12
15594 FA8A CE 00 1F ... ldx #001f
15595 FA8D 1C 00 .. bset 00,x, #20
15596 FA8F F6 00 12 ... ldab 0012
15597 FA93 C4 01 .. andb #01
15598 FA95 26 33 &3 bne 33 ; to faca
15599 FA97 F6 00 1D ... ldab 001d
15600 FA9A C4 08 .. andb #08
15601 FA9C 27 2A '* beq 2a ; to fac8, to fad0
15602 FA9E F6 00 1F ... ldab 001f
15603 FAA1 C4 04 .. andb #04
15604 FAA3 26 14 &. bne 14 ; to fab9
15605 FAA5 CE 00 1F ... ldx #001f
15606 FAA8 1C 00 04 ... bset 00,x, #04
15607 FAAB CE 00 1F ... ldx #001f
15608 FAAE 1C 00 .. bset 00,x, #80
15609 FAB0 CC 02 33 .. ldd #0233
15610 FAB4 FD 00 3B ..; std 003b
15611 FAB7 20 09 . bra 09 ; to fac2
15613 FAB9 BD E5 AA ... jsr e5aa ;jump12 - beep if key pressed?
15614 FABC CE 00 1F ... ldx #001f
15615 FABF 1D 00 04 ... bclr 00,x, #04
15616 FAC2 CE 00 1D ... ldx #001d
15617 FAC5 1D 00 08 ... bclr 00,x, #08
15618 FAC8 20 06 . bra 06 ; to fad0
15620 FACA CE 00 1D ... ldx #001d
15621 FACD 1C 00 08 ... bset 00,x, #08
15622 FAD0 F6 00 1F ... ldab 001f
15623 FAD3 C4 04 .. andb #04
15624 FAD5 26 05 &. bne 05 ; to fadc - service menu
15625 FAD7 BD 81 00 ... jsr 8100 ;jump72 - preservice menu?
15626 FADA 20 03 . bra 03
15627 FADC BD 84 A0 ... jsr 84a0 ;jump73
15628 FADF 7E F8 FF ~.. jmp f8ff ;goto85
15629 ; main should never return in theory.
15632 ; error interrupts (see vectors at end)
15633 FAE2 CC B1 2E ... ldd #b12e ;"**ERROR***"
15634 FAE5 BD C0 BA ... jsr c0ba ;display:
15635 FAE8 CC 07 D0 ... ldd #07d0
15636 FAEB BD E5 71 ..q jsr e571 ;msdelay
15638 FAEF CC B1 2E ... ldd #b12e ;"**ERROR***"
15639 FAF2 BD C0 BA ... jsr c0ba ;display:
15640 FAF5 CC 07 D0 ... ldd #07d0
15641 FAF8 BD E5 71 ..q jsr e571 ;msdelay
15643 FAFC CC B1 2E ... ldd #b12e ;"**ERROR***"
15644 FAFF BD C0 BA ... jsr c0ba ;display:
15645 FB02 CC 07 D0 ... ldd #07d0
15646 FB05 BD E5 71 ..q jsr e571 ;msdelay
15648 FB09 CC B1 2E ... ldd #b12e ;"**ERROR***"
15649 FB0C BD C0 BA ... jsr c0ba ;display:
15650 FB0F CC 07 D0 ... ldd #07d0
15651 FB12 BD E5 71 ..q jsr e571 ;msdelay
15653 FB16 CC B1 2E ... ldd #b12e ;"**ERROR***"
15654 FB19 BD C0 BA ... jsr c0ba ;display:
15655 FB1C CC 07 D0 ... ldd #07d0
15656 FB1F BD E5 71 ..q jsr e571 ;msdelay
15658 FB23 CC B1 2E ... ldd #b12e ;"**ERROR***"
15659 FB26 BD C0 BA ... jsr c0ba ;display:
15660 FB29 CC 07 D0 ... ldd #07d0
15661 FB2C BD E5 71 ..q jsr e571 ;msdelay
15663 FB30 CC B1 2E ... ldd #b12e ;"**ERROR***"
15664 FB33 BD C0 BA ... jsr c0ba ;display:
15665 FB36 CC 07 D0 ... ldd #07d0
15666 FB39 BD E5 71 ..q jsr e571 ;msdelay
15668 FB3D CC B1 2E ... ldd #b12e ;"**ERROR***"
15669 FB40 BD C0 BA ... jsr c0ba ;display:
15670 FB43 CC 07 D0 ... ldd #07d0
15671 FB46 BD E5 71 ..q jsr e571 ;msdelay
15673 FB4A CC B1 2E ... ldd #b12e ;"**ERROR***"
15674 FB4D BD C0 BA ... jsr c0ba ;display:
15675 FB50 CC 07 D0 ... ldd #07d0
15676 FB53 BD E5 71 ..q jsr e571 ;msdelay
15678 FB57 CC B1 2E ... ldd #b12e ;"**ERROR***"
15679 FB5A BD C0 BA ... jsr c0ba ;display:
15680 FB5D CC 07 D0 ... ldd #07d0
15681 FB60 BD E5 71 ..q jsr e571 ;msdelay
15683 FB64 CC B1 2E ... ldd #b12e ;"**ERROR***"
15684 FB67 BD C0 BA ... jsr c0ba ;display:
15685 FB6A CC 07 D0 ... ldd #07d0
15686 FB6D BD E5 71 ..q jsr e571 ;msdelay
15688 FB71 CC B1 2E ... ldd #b12e ;"**ERROR***"
15689 FB74 BD C0 BA ... jsr c0ba ;display:
15690 FB77 CC 07 D0 ... ldd #07d0
15691 FB7A BD E5 71 ..q jsr e571 ;msdelay
15693 FB7E CC B1 2E ... ldd #b12e ;"**ERROR***"
15694 FB81 BD C0 BA ... jsr c0ba ;display:
15695 FB84 CC 07 D0 ... ldd #07d0
15696 FB87 BD E5 71 ..q jsr e571 ;msdelay
15698 FB8B CC B1 2E ... ldd #b12e ;"**ERROR***"
15699 FB8E BD C0 BA ... jsr c0ba ;display:
15700 FB91 CC 07 D0 ... ldd #07d0
15701 FB94 BD E5 71 ..q jsr e571 ;msdelay
15703 FB98 CC B1 2E ... ldd #b12e ;"**ERROR***"
15704 FB9B BD C0 BA ... jsr c0ba ;display:
15705 FB9E CC 07 D0 ... ldd #07d0
15706 FBA1 BD E5 71 ..q jsr e571 ;msdelay
15708 FBA5 CC B1 2E ... ldd #b12e ;"**ERROR***"
15709 FBA8 BD C0 BA ... jsr c0ba ;display:
15710 FBAB CC 07 D0 ... ldd #07d0
15711 FBAE BD E5 71 ..q jsr e571 ;msdelay
15713 FBB2 BD FE 69 ..i jsr fe69 ;reset
15715 FBB6 BD FE 69 ..i jsr fe69 ;reset
15719 ; passed a u16 on the stack, i, and a u16 in D, j
15720 ; i *think* it multiplies i*j and returns it in D.
15721 ; but the assembly seems to have several off-by-one errors
15725 FBBD E6 06 .. ldab 06,x ; lower 8-bits of i
15726 FBBF 3D = mul ; A*B => D
15727 FBC0 A6 00 .. ldaa 00,x
15729 FBC3 E6 05 .. ldab 05,x ; upper byte of return address??
15732 FBC7 1B . aba ; a now contains ad+bc
15735 FBCA A6 06 .. ldaa 06,x
15738 FBCE AB 00 .. adda 00,x
15740 FBD1 EC 03 .. ldd 03,x ; move saved value of X
15741 FBD3 ED 05 .. std 05,x ; into the return address???
15744 FBD7 83 00 00 ... subd #0000
15752 FBDF BD FB E8 ... jsr fbe8 ;jump86
15753 FBE2 BD FC 25 ..% jsr fc25 ;jump85
15754 FBE5 7E FC 04 ~.. jmp fc04 ;goto87
15759 FBEA EC 02 .. ldd 02,x
15762 FBEE EC 00 .. ldd 00,x
15771 FBF8 EC 12 .. ldd 12,x
15772 FBFA ED 04 .. std 04,x
15773 FBFC EC 0C .. ldd 0c,x
15774 FBFE ED 02 .. std 02,x
15775 FC00 EC 10 .. ldd 10,x
15780 FC04 ED 00 .. std 00,x
15783 FC08 EC 08 .. ldd 08,x
15784 FC0A ED 0A .. std 0a,x
15785 FC0C EC 02 .. ldd 02,x
15786 FC0E ED 0C .. std 0c,x
15788 FC11 ED 02 .. std 02,x
15789 FC13 EC 00 .. ldd 00,x
15790 FC15 26 06 &. bne 06
15791 FC17 6D 02 m. tst 02,x
15792 FC19 26 02 &. bne 02
15793 FC1B 6D 03 m. tst 03,x
15804 ; long addition function?
15807 FC27 E3 06 .. addd 06,x
15810 FC2B EC 02 .. ldd 02,x
15811 FC2D ED 06 .. std 06,x
15812 FC2F EC 04 .. ldd 04,x
15813 FC31 E3 08 .. addd 08,x
15814 FC33 ED 08 .. std 08,x
15817 FC37 C9 00 .. adcb #00
15818 FC39 89 00 .. adca #00
15819 FC3B 83 00 00 ... subd #0000
15820 FC3E 26 06 &. bne 06
15821 FC40 6D 08 m. tst 08,x
15822 FC42 26 02 &. bne 02
15823 FC44 6D 09 m. tst 09,x
15833 ; bigdivide: and bigmodulus: are a division function and a remainder function
15834 ; for stupidly huge numbers.
15837 ; the number in D is prepended to the number at the top of the stack
15838 ; eg, 0x0f in D and 0x4240 on stack => 0x0f4240 = 1000000
15851 FC57 A7 04 .. staa 04,x
15852 FC59 7E FC 6D ~.m jmp fc6d ;goto88
15864 FC66 86 01 .. ldaa #01
15865 FC68 A7 04 .. staa 04,x
15866 FC6A 7E FC 6D ~.m jmp fc6d ;goto88
15869 FC6D 1A EE 0E ... ldy 0e,x
15870 FC70 EC 08 .. ldd 08,x
15871 FC72 ED 0E .. std 0e,x
15872 FC74 EC 14 .. ldd 14,x
15873 FC76 ED 0C .. std 0c,x
15874 FC78 EC 12 .. ldd 12,x
15875 FC7A ED 0A .. std 0a,x
15876 FC7C 1A EF 12 ... sty 12,x
15879 FC81 ED 08 .. std 08,x
15880 FC83 ED 06 .. std 06,x
15881 FC85 EC 0A .. ldd 0a,x
15882 FC87 1A A3 0E ... cmpd 0e,x
15883 FC8A 22 23 "# bhi 23 ; to fcaf
15884 FC8C 27 15 '. beq 15 ; to fca3
15886 FC8E 1E 04 01 08 .... brset 04,x 01 08
15887 FC92 CC 00 00 ... ldd #0000
15888 FC95 ED 14 .. std 14,x
15889 FC97 7E FE 04 ~.. jmp fe04 ;goto89 - return
15890 FC9A EC 0C .. ldd 0c,x
15891 FC9C ED 14 .. std 14,x
15892 FC9E EC 0A .. ldd 0a,x
15893 FCA0 7E FD E3 ~.. jmp fde3 ;goto90
15895 FCA3 83 00 00 ... subd #0000
15896 FCA6 27 12 '. beq 12 ; to fcba
15897 FCA8 EC 0C .. ldd 0c,x
15898 FCAA 1A A3 10 ... cmpd 10,x
15899 FCAD 25 DF %. bcs df ; to fc8e
15901 FCAF 6D 0E m. tst 0e,x
15902 FCB1 26 70 &p bne 70 ; to fd23
15903 FCB3 6D 0F m. tst 0f,x
15904 FCB5 27 1A '. beq 1a ; to fcd1
15905 FCB7 7E FD A4 ~.. jmp fda4 ;goto91
15910 FCBE EC 0C .. ldd 0c,x
15911 FCC0 EE 10 .. ldx 10,x
15913 FCC3 18 1E 04 01 01 ..... brset 04,y 01 01
15916 FCCA ED 14 .. std 14,x
15919 FCCE 7E FD E3 ~.. jmp fde3 ;goto90
15924 FCD5 EC 0A .. ldd 0a,x
15925 FCD7 EE 10 .. ldx 10,x
15928 FCDB CD EF 0A ... stx 02x,y
15932 FCE1 CD EF 0E ... stx 02x,y
15934 FCE5 18 E3 0C ... addd 0c,y
15935 FCE8 24 1B $. bcc 1b ; to fd05
15937 FCEA 18 ED 0C ... std 0c,y
15939 FCEE C6 01 .. ldab #01
15943 FCF3 18 E3 0E ... addd 0e,y
15944 FCF6 24 03 $. bcc 03
15945 FCF8 18 6C 0A .l. inc 0a,y
15946 FCFB 18 ED 0E ... std 0e,y
15949 FD00 18 E3 0C ... addd 0c,y
15950 FD03 25 E5 %. bcs e5 ; to fcea
15954 FD07 18 E3 0E ... addd 0e,y
15955 FD0A 24 03 $. bcc 03
15956 FD0C 18 6C 0A .l. inc 0a,y
15957 FD0F 18 1F 04 01 07 ..... brclr 04,y 01 07
15959 FD15 18 6F 0A .o. clr 0a,y
15960 FD18 18 6F 0B .o. clr 0b,y
15962 FD1C ED 14 .. std 14,x
15963 FD1E EC 0A .. ldd 0a,x
15964 FD20 7E FD E3 ~.. jmp fde3 ;goto90
15966 FD23 86 08 .. ldaa #08 ; for i = 8
15967 FD25 A7 05 .. staa 05,x ; do
15968 FD27 69 0D i. rol 0d,x
15969 FD29 69 0C i. rol 0c,x
15970 FD2B 69 0B i. rol 0b,x
15971 FD2D 69 0A i. rol 0a,x
15972 FD2F 69 09 i. rol 09,x
15973 FD31 EC 0B .. ldd 0b,x
15974 FD33 A3 10 .. subd 10,x
15975 FD35 ED 14 .. std 14,x
15976 FD37 EC 09 .. ldd 09,x
15977 FD39 E2 0F .. sbcb 0f,x
15978 FD3B A2 0E .. sbca 0e,x
15979 FD3D 25 06 %. bcs 06 ; to fd45
15980 FD3F ED 09 .. std 09,x
15981 FD41 EC 14 .. ldd 14,x
15982 FD43 ED 0B .. std 0b,x
15983 FD45 6A 05 j. dec 05,x ; i--
15984 FD47 26 DE &. bne de ; to fd27
15986 FD49 69 0D i. rol 0d,x
15987 FD4B 1F 04 01 09 .... brclr 04,x 01 09 ; to fd58
15988 FD4F EC 0B .. ldd 0b,x
15989 FD51 ED 14 .. std 14,x
15990 FD53 EC 09 .. ldd 09,x
15991 FD55 7E FD E3 ~.. jmp fde3 ;goto90
15994 FD59 E6 0D .. ldab 0d,x
15996 FD5C ED 14 .. std 14,x
15998 FD5F 7E FD E3 ~.. jmp fde3 ;goto90
16000 FD62 86 10 .. ldaa #10 ; for i = 16
16001 FD64 A7 05 .. staa 05,x ; do
16002 FD66 69 0D i. rol 0d,x
16003 FD68 69 0C i. rol 0c,x
16004 FD6A 69 0B i. rol 0b,x
16005 FD6C 69 0A i. rol 0a,x
16006 FD6E 69 09 i. rol 09,x
16007 FD70 69 08 i. rol 08,x
16008 FD72 EC 0A .. ldd 0a,x
16009 FD74 A3 10 .. subd 10,x
16010 FD76 ED 14 .. std 14,x
16011 FD78 EC 08 .. ldd 08,x
16012 FD7A E2 0F .. sbcb 0f,x
16013 FD7C 82 00 .. sbca #00
16014 FD7E 25 06 %. bcs 06 ; continue
16015 FD80 ED 08 .. std 08,x
16016 FD82 EC 14 .. ldd 14,x
16017 FD84 ED 0A .. std 0a,x
16018 FD86 6A 05 j. dec 05,x ; i--
16019 FD88 26 DC &. bne dc ; to fd66
16021 FD8A 69 0D i. rol 0d,x
16022 FD8C 69 0C i. rol 0c,x
16023 FD8E 1F 04 01 08 .... brclr 04,x 01 08
16024 FD92 EC 0A .. ldd 0a,x
16025 FD94 ED 14 .. std 14,x
16026 FD96 EC 08 .. ldd 08,x
16027 FD98 20 49 I bra 49 ;goto90
16028 FD9A EC 0C .. ldd 0c,x
16031 FD9E ED 14 .. std 14,x
16034 FDA2 20 3F ? bra 3f ;goto90
16036 FDA4 2B BC +. bmi bc ; to fd62 if minus
16037 FDA6 86 10 .. ldaa #10 ; for i = 16
16038 FDA8 A7 05 .. staa 05,x ; do
16039 FDAA 69 0D i rol 0d,x
16040 FDAC 69 0C i rol 0c,x
16041 FDAE 69 0B i rol 08,x
16042 FDB0 69 0A i rol 0a,x
16043 FDB2 69 07 i rol 07,x
16044 FDB4 EC 0A .. ldd 0a,x
16045 FDB6 A3 10 .. subd 10,x
16046 FDB8 ED 14 .. std 14,x
16047 FDBA A6 07 .. ldaa 07,x
16048 FDBC A2 0F .. sbca 0f,x
16049 FDBE 25 06 %. bcs 06 ;continue
16050 FDC0 A7 07 .. staa 07,x
16051 FDC2 EC 14 .. ldd 14,x
16052 FDC4 ED 0A .. std 0a,x
16053 FDC6 6A 05 j. dec 05,x
16054 FDC8 26 E0 &. bne e0 ;reloop
16056 FDCA 69 0D i. rol 0d,x
16057 FDCC 69 0C i. rol 0c,x
16058 FDCE 1F 04 01 09 .... brclr 04,x 01 09 ;to fddb
16059 FDD2 EC 0A .. ldd 0a,x
16060 FDD4 ED 14 .. std 14,x
16062 FDD7 E6 07 .. ldab 07,x
16063 FDD9 20 08 . bra 08 ;goto90
16065 FDDB EC 0C .. ldd 0c,x
16068 FDDF ED 14 .. std 14,x
16072 FDE3 1F 04 80 12 .... brclr 04,x 80 12
16075 FDE9 63 14 c. com 14,x
16076 FDEB 63 15 c. com 15,x
16077 FDED 6C 15 l. inc 15,x
16078 FDEF 26 08 &. bne 08
16079 FDF1 6C 14 l. inc 14,x
16080 FDF3 26 04 &. bne 04
16082 FDF6 26 01 &. bne 01
16084 FDF9 83 00 00 ... subd #0000
16085 FDFC 26 06 &. bne 06
16086 FDFE 6D 14 m. tst 14,x
16087 FE00 26 02 &. bne 02
16088 FE02 6D 15 m. tst 15,x
16109 ; passed a structure (in code following the call to jump2) and a number D
16110 ; popular D candidates come from $48, $42, $9, $a, etc...
16111 ; D must be between 0 and len, inclusive.
16114 ; u16 jmplocs[len+2];
16117 FE17 A3 00 .. subd 00,x ; D -= var1
16118 FE19 2D 05 -. blt 05 ; if D<0, to fe20, where D=-1
16119 FE1B 1A A3 02 ... cmpd 02,x ;
16120 FE1E 2F 03 /. ble 03 ; if D > len, D=-1, else to fe23
16121 FE20 CC FF FF ... ldd #ffff
16122 FE23 3C < pshx ; push return ptr back onto stack
16123 FE24 05 . asld ; D *= 2
16125 FE26 E3 00 .. addd 00,x ; D += return-ptr
16126 FE28 C3 00 06 ... addd #0006 ; + 6
16128 FE2C EC 00 .. ldd 00,x ; return ptr = jmplocs[orig D]
16130 FE2F ED 00 .. std 00,x
16134 ; this looks like a switch statement
16135 ; we're passed an array of 4-byte items... this is passed in the code segment
16136 ; we take the return address and start counting until we hit a double zero.
16137 ; hence much of the code following this call in a standard disassembly is garbage
16138 ; we also look at D - common values passed to use are contents of $9, $12, $15, $4A or the SCI $102f
16140 FE33 6D 04 m. tst 04,x
16141 FE35 26 04 &. bne 04 ; to fe3b if this is not the last one
16142 FE37 6D 05 m. tst 05,x ; double check it really is last one.
16143 FE39 27 0A '. beq 0a ; to fe45
16144 FE3B A3 02 .. subd 02,x ; subtract lower order bits from D
16145 FE3D 27 06 '. beq 06 ; to fe45
16146 FE3F 08 . inx ; move the array index up one
16150 FE43 20 EE . bra ee ; to fe33
16151 FE45 EE 00 .. ldx 00,x ; return to our destination address
16152 FE47 6E 00 n. jmp 00,x
16156 ; Enable the Real-time Interrupt (periodic hw interrupt)
16157 FE49 86 40 .@ ldaa #40 ;40 -> A
16158 FE4B B7 10 24 ..$ staa 1024 ;A -> 1024
16159 ; Enable the ADC & configure IRQ' for edge-sensitive only operation
16160 FE4E 86 A0 .. ldaa #a0 ;a0 -> A
16161 FE50 B7 10 39 ..9 staa 1039 ;A -> 1039
16162 ; Set a stack pointer?
16163 FE53 8E 00 EF ... lds #00ef
16164 ; Zero out the first 128 bytes of ram.
16165 FE56 CE 00 00 ... ldx #0000 ;wipe 0000-007f X=0000
16166 FE59 8C 00 80 ... cpx #0080 ;loop: if X = 0080
16167 FE5C 24 05 $. bcc fe63 ; finished
16168 FE5E 6F 00 o. clr 00,x ; else: load addr X with 0
16169 FE60 08 . inx ; increment X
16170 FE61 20 F6 . bra fe59 ;repeat
16172 ; Jump to main procedure
16173 FE63 BD F7 D6 ... jsr f7d6 ;goto main:
16174 FE66 7E FE 6D ~.m jmp fe6d ; goto91
16176 ; Reboot function for when things go astray?
16177 FE69 0F . sei ;inhibit interrupts
16178 FE6A 7E FE 49 ~.I jmp fe49 ;goto reset:
16180 ; loop forever - called after main is exited.
16182 FE6D 20 FE . bra fe6d ;loop forever
16183 ;[SAF] - wait for interrupts?
16185 FE6F FF FF FF ... stx ffff
16186 FE72 FF FF FF ... stx ffff
16187 FE75 FF FF FF ... stx ffff
16188 FE78 FF FF FF ... stx ffff
16189 FE7B FF FF FF ... stx ffff
16190 FE7E FF FF FF ... stx ffff
16191 FE81 FF FF FF ... stx ffff
16192 FE84 FF FF FF ... stx ffff
16193 FE87 FF FF FF ... stx ffff
16194 FE8A FF FF FF ... stx ffff
16195 FE8D FF FF FF ... stx ffff
16196 FE90 FF FF FF ... stx ffff
16197 FE93 FF FF FF ... stx ffff
16198 FE96 FF FF FF ... stx ffff
16199 FE99 FF FF FF ... stx ffff
16200 FE9C FF FF FF ... stx ffff
16201 FE9F FF FF FF ... stx ffff
16202 FEA2 FF FF FF ... stx ffff
16203 FEA5 FF FF FF ... stx ffff
16204 FEA8 FF FF FF ... stx ffff
16205 FEAB FF FF FF ... stx ffff
16206 FEAE FF FF FF ... stx ffff
16207 FEB1 FF FF FF ... stx ffff
16208 FEB4 FF FF FF ... stx ffff
16209 FEB7 FF FF FF ... stx ffff
16210 FEBA FF FF FF ... stx ffff
16211 FEBD FF FF FF ... stx ffff
16212 FEC0 FF FF FF ... stx ffff
16213 FEC3 FF FF FF ... stx ffff
16214 FEC6 FF FF FF ... stx ffff
16215 FEC9 FF FF FF ... stx ffff
16216 FECC FF FF FF ... stx ffff
16217 FECF FF FF FF ... stx ffff
16218 FED2 FF FF FF ... stx ffff
16219 FED5 FF FF FF ... stx ffff
16220 FED8 FF FF FF ... stx ffff
16221 FEDB FF FF FF ... stx ffff
16222 FEDE FF FF FF ... stx ffff
16223 FEE1 FF FF FF ... stx ffff
16224 FEE4 FF FF FF ... stx ffff
16225 FEE7 FF FF FF ... stx ffff
16226 FEEA FF FF FF ... stx ffff
16227 FEED FF FF FF ... stx ffff
16228 FEF0 FF FF FF ... stx ffff
16229 FEF3 FF FF FF ... stx ffff
16230 FEF6 FF FF FF ... stx ffff
16231 FEF9 FF FF FF ... stx ffff
16232 FEFC FF FF FF ... stx ffff
16233 FEFF FF FF FF ... stx ffff
16234 FF02 FF FF FF ... stx ffff
16235 FF05 FF FF FF ... stx ffff
16236 FF08 FF FF FF ... stx ffff
16237 FF0B FF FF FF ... stx ffff
16238 FF0E FF FF FF ... stx ffff
16239 FF11 FF FF FF ... stx ffff
16240 FF14 FF FF FF ... stx ffff
16241 FF17 FF FF FF ... stx ffff
16242 FF1A FF FF FF ... stx ffff
16243 FF1D FF FF FF ... stx ffff
16244 FF20 FF FF FF ... stx ffff
16245 FF23 FF FF FF ... stx ffff
16246 FF26 FF FF FF ... stx ffff
16247 FF29 FF FF FF ... stx ffff
16248 FF2C FF FF FF ... stx ffff
16249 FF2F FF FF FF ... stx ffff
16250 FF32 FF FF FF ... stx ffff
16251 FF35 FF FF FF ... stx ffff
16252 FF38 FF FF FF ... stx ffff
16253 FF3B FF FF FF ... stx ffff
16254 FF3E FF FF FF ... stx ffff
16255 FF41 FF FF FF ... stx ffff
16256 FF44 FF FF FF ... stx ffff
16257 FF47 FF FF FF ... stx ffff
16258 FF4A FF FF FF ... stx ffff
16259 FF4D FF FF FF ... stx ffff
16260 FF50 FF FF FF ... stx ffff
16261 FF53 FF FF FF ... stx ffff
16262 FF56 FF FF FF ... stx ffff
16263 FF59 FF FF FF ... stx ffff
16264 FF5C FF FF FF ... stx ffff
16265 FF5F FF FF FF ... stx ffff
16266 FF62 FF FF FF ... stx ffff
16267 FF65 FF FF FF ... stx ffff
16268 FF68 FF FF FF ... stx ffff
16269 FF6B FF FF FF ... stx ffff
16270 FF6E FF FF FF ... stx ffff
16271 FF71 FF FF FF ... stx ffff
16272 FF74 FF FF FF ... stx ffff
16273 FF77 FF FF FF ... stx ffff
16274 FF7A FF FF FF ... stx ffff
16275 FF7D FF FF FF ... stx ffff
16276 FF80 FF FF FF ... stx ffff
16277 FF83 FF FF FF ... stx ffff
16278 FF86 FF FF FF ... stx ffff
16279 FF89 FF FF FF ... stx ffff
16280 FF8C FF FF FF ... stx ffff
16281 FF8F FF FF FF ... stx ffff
16282 FF92 FF FF FF ... stx ffff
16283 FF95 FF FF FF ... stx ffff
16284 FF98 FF FF FF ... stx ffff
16285 FF9B FF FF FF ... stx ffff
16286 FF9E FF FF FF ... stx ffff
16287 FFA1 FF FF FF ... stx ffff
16288 FFA4 FF FF FF ... stx ffff
16289 FFA7 FF FF FF ... stx ffff
16290 FFAA FF FF FF ... stx ffff
16291 FFAD FF FF FF ... stx ffff
16292 FFB0 FF FF FF ... stx ffff
16293 FFB3 FF FF FF ... stx ffff
16294 FFB6 FF FF FF ... stx ffff
16295 FFB9 FF FF FF ... stx ffff
16296 FFBC FF FF FF ... stx ffff
16297 FFBF FF FF FF ... stx ffff
16298 FFC2 FF FF FF ... stx ffff
16299 FFC5 FF FF FF ... stx ffff
16300 FFC8 FF FF FF ... stx ffff
16301 FFCB FF FF FF ... stx ffff
16302 FFCE FF FF FF ... stx ffff
16303 FFD1 FF FF FF ... stx ffff
16307 .word c81c ; SCI serial system (generic) - goes to sciinterrupt
16308 .word fae2 ; SPI serial transfer complete - flashes *** ERROR *** for a second
16309 .word faef ; Pulse accumulator input edge - flashes *** ERROR *** for a second
16310 .word fafc ; Pulse accumulator overflow - flashes *** ERROR *** for a second
16311 .word fb09 ; Timer overflow - flashes *** ERROR *** for a second
16312 .word fb16 ; Timer input capture 4 - flashes *** ERROR *** for a second
16313 .word fb23 ; Timer output compare 4 - flashes *** ERROR *** for a second
16314 .word fb30 ; Timer output compare 3 - flashes *** ERROR *** for a second
16315 .word fb3d ; Timer output compare 2 - flashes *** ERROR *** for a second
16316 .word fb4a ; Timer output compare 1 - flashes *** ERROR *** for a second
16317 .word fb57 ; Timer input capture 3 - flashes *** ERROR *** for a second
16318 .word fb64 ; Timer input capture 2 - flashes *** ERROR *** for a second
16319 .word fb71 ; Timer input capture 1 - flashes *** ERROR *** for a second
16320 .word f718 ; RT interrupt - does something useful :) (goto rti)
16321 .word fb7e ; IRQ pin - flashes *** ERROR *** for a second
16322 .word fb8b ; XIRQ pin - flashes *** ERROR *** for a second
16323 .word fb98 ; software interrupt - flashes *** ERROR *** for a second
16324 .word fba5 ; illegal opcode trap - flashes *** ERROR *** for a second
16325 .word fbb2 ; watchdog reset - reboot
16326 .word fbb6 ; clock monitor reset - reboot
16327 .word fe49 ; reset - reboot