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 ;0012 another buffer for 1800 - what change to give?
12 ;0013 location of decimal point?
13 ;0014 buffer for 3800 register
15 ;0016 new key state (cf 0029)
16 ;0017 bits 5-7 used mostly
19 ; bit 0 - over current
20 ; bit 1 - home sensor failure
21 ; bit 2 - check prices
22 ;001a buffer for 3000 register - initialised to 7F
23 ;001b bit 3 - denote motor fault?
24 ;001c used for loop variables
26 ;001f display related? bit 2. bit 4 denotes service mode
27 ;0021 lower 3 bits taken from SCI data somewhere
28 ; bit 5 denotes machine out of order
30 ;0026 used exclusively in SCI interrupt handler
31 ;0027 price of current item
32 ;0029 previous key state (cf 0016)
33 ;002b machine language. 3 = english. 0,1,2 = german, spanish, french or something
34 ;002c inhibits display writes?
35 ;0032 to do with the beeper (see jump52)
37 ;0035 only ever contains #1e
38 ;003b commonly contains $0233
40 ;003e mask for 0040? (see f996)
43 ;0042 current key press
44 ;0043 current byte being sent out serial port
47 ;0052 win-a-snack odds (in ram)
49 ;0056 last known keypad row 1 state
50 ;005b last known keypad row 0 state
51 ;005a - result of number to string operations (jump55)
53 ;0067 working space of 0bc0
58 ;0800 motor information array - each is a 16-bit value
60 ;08c8 array of prices of each slot??
62 ;0b90 - 0b99 display buffer (backwards)
63 ;0b9a - some sort of id? press 89 on the machine
66 ;0bb5 win-a-snack odds (is this in NVRAM?)
68 ;0bd8 related to 0017 and 0021 (only lower 3 bits used)
70 ;0bc0 machine peripheral configuration flags
71 ; bit0: have dumb mech
72 ; bit1: have a changer
73 ; bit2: have card reader
74 ; bit3: have bill validator
75 ; bit4: link master - price holding enabled
76 ; bit5: link master - price display enabled
77 ; bit6: have $1 changer
79 ;0bc1 error status: (from jump72)
80 ; bit0: changer powerup
90 ;0bc2 multiplied by 10^0bc3 and stored into 0baa
91 ;0bc3 10 is raise to the power of this number shr 4, and multiplied by 0baa
92 ;0bc4 index of something
93 ;0bc5 index of something else
94 ;0bc6 index of another thing
95 ;0bc7 word number of something
97 ;0bc9 word number of something else
99 ;0bcb word number of another thing
101 ;0bcd word number of another else
104 ;0bc4 array index into 0bc7
106 ;0bc6 another array index into 0bc7
109 ;0bdd value of coin mech quarters
110 ;0bdf value of coin mech dimes
111 ;0be1 value of coin mech nickels
121 ;0cbc serial number (string)
122 ;0ccc machine ID (string)
123 ;0ce7 audit number (word)
125 ;0cd9 counter of something - reset to 4 on some serial input
126 ;0cda counter of something - reset to 4 on some serial input
127 ;0cdb also counts something - reset to 4 on some serial input
129 ;0ce9 value or number of $1 coins
130 ;0ceb value or number of 20c coins
131 ;0ced value or number of 10c coins
132 ;0cef value or number of 5c coins
134 ;0cdc number of value of $1 coins
135 ;0cdb number or value of 20c coin
136 ;0cda number or value of 10c coins
137 ;0cd9 number or value of 5c coins
139 ;0dff - 0e04 keypad buffer - most recent in 0e04
140 ;0e05 array index of the array to follow
141 ;0e06 - ?? array of digits*10
144 ;1016 - timer output compare 1 register
146 ;1028 SPCR (Serial Peripheral Control Register)
152 ;0800 - 0x0fff memory bank 2k
154 ;1800 Internal switches
170 ; 1 Language selection
171 ; 0 Language selection
172 ;Rows are numbered 1-9, skipping 5. There is no row 5.
182 ;Motor driver data is sent cols 7, 6, 5, 4, 3, 2, 1, 0 rows 9, 8, 7, 6, 4, 3, 2
183 ;1. Cols 8 and 9 are separate outputs (they ran out of driver chip outputs).
184 ;Motor driver column output enable is PA6
185 ;Motor driver serial clock is PA5
186 ;It looks like motor overcurrent sense is on PE1 (PE1 will be low if a motor
187 ;is drawing too much current)
188 ; the changer speaks at 600 baud, where as the coin validator speaks
189 ; 9600 baud. and printer at 2400.
190 ;3000 changer outputs
191 ; 7 motor driver row output enable
201 ; 6 col 9 motor driver
202 ; 5 col 8 motor driver
203 ; 4 motor driver serial data
204 ; 3 display write (clock) enable (active high)
206 ; 1 note acceptor connector
207 ; 0 note acceptor connector
213 ; PortA - Data: 0x1000, DDR for PA7 & PA3 in 0x1026
214 ; PA7 display reset (active low)
215 ; PA6 enables motor column drivers (when low)
216 ; PA5 clocks snack motor drivers (U16 5890 = serial-input latched source drivers (latch unused))
217 ; PA4 beepy thang (active high)
218 ; PA3 high - talking to coin vendie, low - talking to printer. (through PD1)
219 ; PA2 coin dispenser pin 6 (does what???)
220 ; PA1 bill validator 2
221 ; PA0 bill validator 1
223 ; PortB - not used directly
224 ; PB7 Address lines 8-15
233 ; PortC - Data: 0x1003, Latch: 0x1005, DDR: 0x1007
234 ; PC7 Data Bus 0-7 / Address bus 0-7
243 ; PortD - Data: 0x1008, DDR: 0x1009
246 ; PD5 keypad row select (output)
247 ; PD4 SPI - keypad & display clock signal (output)
248 ; PD3 display data (output)
249 ; PD2 keypad data (input)
250 ; PD1 RX of SCI - to coin disp or printer depending on PA3
251 ; PD0 TX of SCI - to coin disp or printer depending on PA3
253 ; PortE - Data: 0x100A
258 ; PE3 goes high when 24VUN line is *really* low (like 20V)
259 ; PE2 remote no-sale switch (active low)
260 ; PE1 motor overvoltage sense (active high)
261 ; PE0 motor overcurrent sense (active low)
452 80FB 93 73 00 .s. subd 73
457 ; initial menu when door opens?
458 8100 F6 00 1D ... ldab 001d
459 8103 C4 10 .. andb #10
460 8105 27 3D '= beq 3d ; to 8144
461 8107 BD D6 52 ..R jsr d652 ;jump5
462 810A CE 00 1D ... ldx #001d
463 810D 1D 00 10 ... bclr 00,x, #10
464 8110 CE 00 1D ... ldx #001d
465 8113 1C 00 80 .. bset 00,x, #80
466 8116 7F 00 42 .. clr 0042
467 8119 7F 00 60 ..` clr 0060
468 811C 7F 00 48 ..H clr 0048
469 811F 7F 00 38 ..8 clr 0038
470 8122 F6 0B A8 ... ldab 0ba8
472 8127 CE 0B A9 ... ldx #0ba9
473 812A 1C 00 02 .. bset 00,x, #02
475 812F CE 0B A9 ... ldx #0ba9
476 8132 1D 00 02 ... bclr 00,x, #02
477 8135 7F 0E 00 ... clr 0e00
478 8138 7F 0E 01 ... clr 0e01
479 813B 7F 0E 02 ... clr 0e02
480 813E 7F 0E 03 ... clr 0e03
481 8141 7F 0E 04 ... clr 0e04
483 8144 F6 00 42 ..B ldab 0042
484 8147 C1 0B .. cmpb #0b
486 814B BD AB 89 ... jsr ab89 ;jump7
487 814E 7F 00 19 ... clr 0019
488 8151 7F 00 60 ..` clr 0060
489 8154 7F 00 42 ..B clr 0042
490 8157 BD E6 1B ... jsr e61b ;jump4
491 815A F6 0B A8 ... ldab 0ba8
493 815F 7E 81 EF ~.. jmp 81ef ;goto1
494 8162 F6 00 60 ..` ldab 0060
495 8165 C1 04 .. cmpb #04
497 8169 F6 00 42 ..B ldab 0042
499 816E F6 00 42 ..B ldab 0042
500 8171 C1 0A .. cmpb #0a
502 8175 7F 00 42 ..B clr 0042
503 8178 F6 00 42 ..B ldab 0042
504 817B CB 30 .0 addb #30
506 817E F6 00 60 ..` ldab 0060
508 8182 C3 00 62 ..b addd #0062
511 8187 E7 00 .. stab 00,x
512 8189 7F 00 42 ..B clr 0042
513 818C 7C 00 60 |.` inc 0060
515 8191 F6 00 62 ..b ldab 0062
516 8194 F1 0B A4 ... cmpb 0ba4
518 8199 F6 00 63 ..c ldab 0063
519 819C F1 0B A5 ... cmpb 0ba5
521 81A1 F6 00 64 ..d ldab 0064
522 81A4 F1 0B A6 ... cmpb 0ba6
524 81A9 F6 00 65 ..e ldab 0065
525 81AC F1 0B A7 ... cmpb 0ba7
527 81B1 CE 0B A9 ... ldx #0ba9
528 81B4 1D 00 02 ... bclr 00,x, #02
529 81B7 CE 00 1F ... ldx #001f
530 81BA 1C 00 04 .. bset 00,x, #04
531 81BD CE 00 1F ... ldx #001f
532 81C0 1C 00 80 ... bset 00,x, #80
533 81C3 CE 00 1D ... ldx #001d
534 81C5 1C 00 10 ... bset 00,x, #10
535 81C9 CC 02 33 ..3 ldd #0233
536 81CC FD 00 3B ..; std 003b
537 81CF C6 05 .. ldab #05
538 81D1 F7 00 38 ..8 stab 0038
540 81D6 7F 00 42 ..B clr 0042
541 81D9 7F 00 60 ..` clr 0060
542 81DC BD BE 69 ..i jsr be69 ;displayreset
543 81DF BD BE 4B ..K jsr be4b ;displayblank
544 81E2 CC B0 81 ... ldd #b081 ;"NO ACCESS"
545 81E5 BD C0 BA ... jsr c0ba ;display:
546 81E8 C6 0A .. ldab #0a
547 81EA F7 00 38 ..8 stab 0038
550 81EF 7F 00 42 ..B clr 0042
551 81F2 F6 00 38 ..8 ldab 0038
553 81F7 7E 84 9F ~.. jmp 849f ;goto2
554 81FA BD BE 4B ..K jsr be4b ;displayblank
555 81FD F6 00 48 ..H ldab 0048
557 8202 BD AB A2 ... jsr aba2 ;jump8
558 8205 F6 00 48 ..H ldab 0048
560 8209 BD FE 16 ... jsr fe16 ;jump2
562 820E 00 0D .... ; list len-2
577 822C 84 78 .x ; end of jump2 data
578 822E F6 00 19 ... ldab 0019
579 8231 C4 01 .. andb #01
581 8235 CC AF F2 ... ldd #aff2 ;"OVER CRNT="
582 8238 BD C0 BA ... jsr c0ba ;display:
583 823B C6 0A .. ldab #0a
584 823D F7 00 38 ..8 stab 0038
585 8240 7F 00 54 ..T clr 0054
586 8243 7C 00 48 |.H inc 0048
588 8248 C6 02 .. ldab #02
589 824A F7 00 48 ..H stab 0048
590 824D 7E 84 9F ~.. jmp 849f ;goto2
591 8250 F6 00 54 ..T ldab 0054
593 8254 CE 00 05 ... ldx #0005
597 825B F6 00 54 ..T ldab 0054
598 825E F7 00 06 ... stab 0006
599 8261 F6 00 06 ... ldab 0006
600 8264 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
601 8267 83 00 00 ... subd #0000
603 826C CC 7F FF ... ldd #7fff
606 8271 F6 00 06 ... ldab 0006
609 8276 C3 08 00 ... addd #0800
612 827B A4 00 .. anda 00,x
613 827D E4 01 .. andb 01,x
614 827F ED 00 .. std 00,x
615 8281 F6 00 54 ..T ldab 0054
618 8286 C3 08 00 ... addd #0800
620 828A EC 00 .. ldd 00,x
621 828C 84 80 .. anda #80
623 8290 F6 00 54 ..T ldab 0054
626 8295 C3 08 C8 ... addd #08c8
628 8299 EC 00 .. ldd 00,x
629 829B 84 02 .. anda #02
631 829F BD 98 A5 ... jsr 98a5 ;jump11
632 82A2 C6 0A .. ldab #0a
633 82A4 F7 00 38 ..8 stab 0038
634 82A7 7C 00 54 |.T inc 0054
635 82AA F6 00 54 ..T ldab 0054
636 82AD C1 64 .d cmpb #64
638 82B1 7C 00 48 |.H inc 0048
639 82B4 7E 84 9F ~.. jmp 849f ;goto2
640 82B7 F6 00 19 ... ldab 0019
641 82BA C4 02 .. andb #02
643 82BE CC AF FD ... ldd #affd "HOME FAIL="
644 82C1 BD C0 BA ... jsr c0ba ;display:
645 82C4 C6 0A .. ldab #0a
646 82C6 F7 00 38 ..8 stab 0038
647 82C9 7F 00 54 ..T clr 0054
648 82CC 7C 00 48 |.H inc 0048
650 82D1 C6 04 .. ldab #04
651 82D3 F7 00 48 ..H stab 0048
652 82D6 7E 84 9F ~.. jmp 849f ;goto2
653 82D9 F6 00 54 ..T ldab 0054
655 82DD CE 00 05 ... ldx #0005
659 82E4 F6 00 54 ..T ldab 0054
660 82E7 F7 00 06 ... stab 0006
661 82EA F6 00 06 ... ldab 0006
662 82ED BD D7 A0 ... jsr d7a0 ;is_invalid_slot
663 82F0 83 00 00 ... subd #0000
665 82F5 CC 7F FF ... ldd #7fff
668 82FA F6 00 06 ... ldab 0006
671 82FF C3 08 00 ... addd #0800
674 8304 A4 00 .. anda 00,x
675 8306 E4 01 .. andb 01,x
676 8308 ED 00 .. std 00,x
677 830A F6 00 54 ..T ldab 0054
680 830F C3 08 00 ... addd #0800
682 8313 EC 00 .. ldd 00,x
683 8315 84 80 .. anda #80
685 8319 F6 00 54 ..T ldab 0054
688 831E C3 08 C8 ... addd #08c8
690 8322 EC 00 .. ldd 00,x
691 8324 84 04 .. anda #04
693 8328 BD 98 A5 ... jsr 98a5 ;jump11
694 832B C6 0A .. ldab #0a
695 832D F7 00 38 ..8 stab 0038
696 8330 7C 00 54 |.T inc 0054
697 8333 F6 00 54 ..T ldab 0054
698 8336 C1 64 .d cmpb #64
700 833A 7C 00 48 |.H inc 0048
701 833D 7E 84 9F ~.. jmp 849f ;goto2
702 8340 F6 00 19 ... ldab 0019
703 8343 C4 04 .. andb #04
705 8347 CC B0 08 ... ldd #b008 ; "CHK PRICES"
706 834A BD C0 BA ... jsr c0ba ;display:
707 834D C6 0A .. ldab #0a
708 834F F7 00 38 ..8 stab 0038
709 8352 7F 00 54 ..T clr 0054
710 8355 7C 00 48 |.H inc 0048
712 835A C6 06 .. ldab #06
713 835C F7 00 48 ..H stab 0048
714 835F 7E 84 9F ~.. jmp 849f ;goto2
715 8362 F6 00 54 ..T ldab 0054
717 8366 CE 00 05 ... ldx #0005
721 836D F6 00 54 ..T ldab 0054
722 8370 F7 00 06 ... stab 0006
723 8373 F6 00 06 ... ldab 0006
724 8376 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
725 8379 83 00 00 ... subd #0000
727 837E F6 00 54 ..T ldab 0054
730 8383 C3 08 C8 ... addd #08c8
732 8387 EC 00 .. ldd 00,x
733 8389 84 01 .. anda #01
735 838D BD 98 A5 ... jsr 98a5 ;jump11
736 8390 C6 0A .. ldab #0a
737 8392 F7 00 38 ..8 stab 0038
738 8395 7C 00 54 |.T inc 0054
739 8398 F6 00 54 ..T ldab 0054
740 839B C1 64 .d cmpb #64
742 839F 7C 00 48 |.H inc 0048
743 83A2 7E 84 9F ~.. jmp 849f ;goto2
745 83A5 F6 0B C1 ... ldab 0bc1
746 83A8 C4 01 .. andb #01
748 83AC CC B0 34 ..4 ldd #b034 "CHGR PWRUP"
749 83AF BD C0 BA ... jsr c0ba ;display:
750 83B2 7C 00 48 |.H inc 0048
751 83B5 C6 0A .. ldab #0a
752 83B7 F7 00 38 ..8 stab 0038
754 83BC 7C 00 48 |.H inc 0048
755 83BF 7E 84 9F ~.. jmp 849f ;goto2
756 83C2 F6 0B C1 ... ldab 0bc1
757 83C5 C4 02 .. andb #02
759 83C9 CC B0 4A ..J ldd #b04a "CARD PWRUP"
760 83CC BD C0 BA ... jsr c0ba ;display:
761 83CF 7C 00 48 |.H inc 0048
762 83D2 C6 0A .. ldab #0a
763 83D4 F7 00 38 ..8 stab 0038
765 83D9 7C 00 48 |.H inc 0048
766 83DC 7E 84 9F ~.. jmp 849f ;goto2
767 83DF F6 0B C1 ... ldab 0bc1
768 83E2 C4 04 .. andb #04
770 83E6 CC B0 3F ..? ldd #b03f "LINK PWRUP"
771 83E9 BD C0 BA ... jsr c0ba ;display:
772 83EC 7C 00 48 |.H inc 0048
773 83EF C6 0A .. ldab #0a
774 83F1 F7 00 38 ..8 stab 0038
776 83F6 7C 00 48 |.H inc 0048
777 83F9 7E 84 9F ~.. jmp 849f ;goto2
778 83FC F6 0B C1 ... ldab 0bc1
779 83FF C4 10 .. andb #10
781 8403 CC B0 1E ... ldd #b01e "COIN JAM"
782 8406 BD C0 BA ... jsr c0ba ;display:
783 8409 7C 00 48 |.H inc 0048
784 840C C6 0A .. ldab #0a
785 840E F7 00 38 ..8 stab 0038
787 8413 7C 00 48 |.H inc 0048
788 8416 7E 84 9F ~.. jmp 849f ;goto2
789 8419 F6 0B C1 ... ldab 0bc1
790 841C C4 20 . andb #20
792 8420 CC B0 29 ..) ldd #b029 "BAD SENSOR"
793 8423 BD C0 BA ... jsr c0ba ;display:
794 8426 7C 00 48 |.H inc 0048
795 8429 C6 0A .. ldab #0a
796 842B F7 00 38 ..8 stab 0038
798 8430 7C 00 48 |.H inc 0048
800 8435 F6 0B C1 ... ldab 0bc1
801 8438 C4 08 .. andb #08
803 843C CC B0 55 ..U ldd #b055 "BILL ERROR"
804 843F BD C0 BA ... jsr c0ba ;display:
805 8442 7C 00 48 |.H inc 0048
806 8445 C6 0A .. ldab #0a
807 8447 F7 00 38 ..8 stab 0038
809 844C 7C 00 48 |.H inc 0048
811 8451 F6 0B C1 ... ldab 0bc1
812 8454 C4 40 .@ andb #40
814 8458 CC B0 60 ..` ldd #b060 "TUBE ERROR"
815 845B BD C0 BA ... jsr c0ba ;display:
816 845E 7F 00 48 ..H clr 0048
817 8461 C6 0A .. ldab #0a
818 8463 F7 00 38 ..8 stab 0038
820 8468 7F 00 48 ..H clr 0048
821 846B CC B0 13 ... ldd #b013 "HIT RESET "
822 846E BD C0 BA ... jsr c0ba ;display:
823 8471 C6 0A .. ldab #0a
824 8473 F7 00 38 ..8 stab 0038
825 8476 20 27 ' bra 27 ; to 849f (exit)
826 8478 F6 00 1D ... ldab 001d
828 847D CC AE A8 ... ldd #aea8 " SYSTEM "
829 8480 BD C0 BA ... jsr c0ba ;display:
830 8483 CE 00 1D ... ldx #001d
831 8486 1D 00 80 .. bclr 00,x, #80
832 8489 20 0C . bra 0c ; to 8496
833 848B CC AE B3 ... ldd #aeb3 " OK "
834 848E BD C0 BA ... jsr c0ba ;display:
835 8491 CE 00 1D ... ldx #001d
836 8494 1C 00 80 .. bset 00,x, #80
837 8496 C6 0F .. ldab #0f
838 8499 F7 00 38 ..8 stab 0038
839 849C 7F 00 48 ..H clr 0048
845 84A0 FC 00 3B ..; ldd 003b
847 84A5 7E 85 96 ~.. jmp 8596 ;goto3
848 84A8 F6 00 1F ... ldab 001f
850 84AD BD D6 52 ..R jsr d652 ;jump5
851 84B0 7F 00 42 ..B clr 0042
852 84B3 7F 00 09 ... clr 0009
853 84B6 7F 00 0A ... clr 000a
854 84B9 7F 00 06 ... clr 0006
857 84BE FD 00 40 ..@ std 0040
860 84C3 FD 00 3E ..> std 003e
861 84C6 BD E5 AA ... jsr e5aa ;jump12
862 84C9 CE 00 1F ... ldx #001f
863 84CC 1D 00 80 .. bclr 00,x, #80
864 84CF CE 00 1F .. ldx #001f
865 84D2 1C 00 02 .... bset 00,x, #02
866 84D5 CE 00 1D ... ldx #001d
867 84D8 1C 00 10 .. bset 00,x, #10
868 84DB CE 00 17 ... ldx #0017
869 84DE 1D 00 20 .. bclr 00,x, #20
870 84E0 CE 00 17 . ldx #0017
871 84E4 1D 00 40 .. bclr 00,x, #40
872 84E7 CE 00 17 ... ldx #0017
873 84EA 1D 00 80 .. bclr 00,x, #80
874 84EC F6 0B A9 ... ldab 0ba9
875 84F0 C4 02 .. andb #02
876 84F2 27 20 ' beq 20 ; to 8414
877 84F4 F6 00 42 ..B ldab 0042
879 84F8 C3 0B E4 ... addd #0be4
881 84FC E6 00 .. ldab 00,x
883 8500 BD BE 4B ..K jsr be4b ;displayblank
884 8503 CC B0 81 ... ldd #b081 ;"NO ACCESS"
885 8506 BD C0 BA ... jsr c0ba ;display:
886 8509 CC 02 58 ..X ldd #0258 ;600
887 850C BD E5 71 ..q jsr e571 ;msdelay
888 850F BD 85 AF ... jsr 85af ;jump14
889 8512 20 6C l bra 6c ; to 8580
891 8514 F6 00 42 ..B ldab 0042
893 8518 BD FE 16 ... jsr fe16 ;jump2
896 851F 85 80 .. ; default action - leave menu?
897 8521 85 39 .9 ; 0 - no key pressed
898 8523 85 4A .J ; key 1 - changer loading & calibration
899 8525 85 4F .O ; key 2 - win-a-snack odds programming
900 8527 85 54 .T ; key 3 - set pricing
901 8529 85 59 .Y ; key 4 - smart shopping discount
902 852B 85 5E .^ ; key 5 - manual peripheral config
903 852D 85 63 .c ; key 6 - promo vend-pair programming
904 852F 85 68 .h ; key 7 - POS message & serial id
905 8531 85 6D .m ; key 8 - print info
906 8533 85 72 .r ; key 9 - security code programming
907 8535 85 77 .w ; key 0 - motor menu
908 8537 85 7C .| ; reset key -
910 8539 CC AE 92 ... ldd #ae92 "- "
911 853C BD C0 BA ... jsr c0ba ;display:
912 853F 7F 00 42 ..B clr 0042
913 8542 CE 00 1F ... ldx #001f
914 8545 1C 00 02 .. bset 00,x, #02
916 854A BD 86 84 ... jsr 8684 ;jump15
918 854F BD 88 2E ... jsr 882e ;jump16
920 8554 BD 88 B8 ... jsr 88b8 ;jump17
922 8559 BD 8C B4 ... jsr 8cb4 ;jump18
924 855E BD 8E 35 ..5 jsr 8e35 ;jump19
926 8563 BD 8F 0D ... jsr 8f0d ;jump20
928 8568 BD 90 D1 ... jsr 90d1 ;jump21
930 856D BD 92 EE ... jsr 92ee ;jump22
932 8572 BD 93 A5 ... jsr 93a5 ;jump23
934 8577 BD 94 DD ... jsr 94dd ;jump24
936 857C 8D 31 .1 bsr 31 ;jump14
939 8580 7F 00 0A ... clr 000a
940 8583 F6 00 42 ..B ldab 0042
941 8586 C1 0A .. cmpb #0a
943 858A F6 00 42 ..B ldab 0042
944 858D C1 07 .. cmpb #07
946 8591 7F 00 09 ... clr 0009
949 8596 CE 00 1F ... ldx #001f
950 8599 1D 00 04 ... bclr 00,x, #04
951 859C CE 00 1F ... ldx #001f
952 859F 1C 00 .. bset 00,x, #80
953 85A2 CE 00 1D ... ldx #001d
954 85A5 1C 00 10 ... bset 00,x, #10
955 85A8 BD BE 69 ..i jsr be69 ;displayreset
956 85AB BD E5 AA ... jsr e5aa ;jump12
960 85AF 7F 00 42 ..B clr 0042
961 85B2 7F 00 06 ... clr 0006
962 85B5 CE 00 1F ... ldx #001f
963 85B8 1C 00 02 .. bset 00,x, #02
964 85BB BD BE 69 ..i jsr be69 ;displayreset
968 ; drop some change out of the changer?
969 85BF F6 00 12 ... ldab 0012
970 85C2 C4 1E .. andb #1e ; 00011110
972 85C5 BD FE 32 ..2 jsr fe32 ;jump25
973 85C8 85 DE 00 0E .... ; 14 000 0111 0
974 85CC 86 08 00 08 .... ; 22 000 1011 0
975 85D0 86 32 00 04 .... ; 26 000 1101 0
976 85D4 86 5C 00 02 .... ; 28 000 1110 0
977 85D8 86 83 FF E4 .... ; 0
978 85DC 00 00 .. ; end of array
979 85DE F6 0B DC ... ldab 0bdc
980 85E1 F7 00 01 ... stab 0001
981 85E4 BD C4 30 ..0 jsr c430 ;jump26
982 85E7 C6 01 .. ldab #01
983 85E9 F7 00 48 ..H stab 0048
984 85EC 7F 00 2C .., clr 002c
985 85EF F6 0C D9 ... ldab 0cd9
987 85F4 7A 0C D9 z.. dec 0cd9 ; decrement number of 5c coins
988 85F7 BD 97 F6 ... jsr 97f6 ;jump27
989 85FA CC 01 5E ..^ ldd #015e
990 85FD BD E5 71 ..q jsr e571 ;msdelay
991 8600 CC 02 33 ..3 ldd #0233
992 8603 FD 00 3B ..; std 003b
994 8608 F6 0B DB ... ldab 0bdb
995 860B F7 00 01 ... stab 0001
996 860E BD C4 30 ..0 jsr c430 ;jump26
997 8611 C6 02 .. ldab #02
998 8613 F7 00 48 ..H stab 0048
999 8616 7F 00 2C .., clr 002c
1000 8619 F6 0C DA ... ldab 0cda
1001 861C 27 03 '. beq 03
1002 861E 7A 0C DA z.. dec 0cda ; decrement number of 10c coins
1003 8621 BD 97 F6 ... jsr 97f6 ;jump27
1004 8624 CC 01 5E ..^ ldd #015e
1005 8627 BD E5 71 ..q jsr e571 ;msdelay
1006 862A CC 02 33 ..3 ldd #0233
1007 862D FD 00 3B ..; std 003b
1009 8632 F6 0B DA ... ldab 0bda
1010 8635 F7 00 01 ... stab 0001
1011 8638 BD C4 30 ..0 jsr c430 ;jump26
1012 863B C6 03 .. ldab #03
1013 863D F7 00 48 ..H stab 0048
1014 8640 7F 00 2C .., clr 002c
1015 8643 F6 0C DB ... ldab 0cdb
1016 8646 27 03 '. beq 03
1017 8648 7A 0C DB z.. dec 0cdb ; decrement number of 20c coins
1018 864B BD 97 F6 ... jsr 97f6 ;jump27
1019 864E CC 01 5E ..^ ldd #015e
1020 8651 BD E5 71 ..q jsr e571 ;msdelay
1021 8654 CC 02 33 ..3 ldd #0233
1022 8657 FD 00 3B ..; std 003b
1024 865C C6 40 .@ ldab #40
1025 865E F7 00 01 ... stab 0001
1026 8661 BD C4 30 ..0 jsr c430 ;jump26
1027 8664 C6 04 .. ldab #04
1028 8666 F7 00 48 ..H stab 0048
1029 8669 7F 00 2C .., clr 002c
1030 866C F6 0C DC ... ldab 0cdc
1031 866F 27 03 '. beq 03
1032 8671 7A 0C DC z.. dec 0cdc ; decrement number of $1 coins
1033 8674 BD 97 F6 ... jsr 97f6 ;jump27
1034 8677 CC 01 5E ..^ ldd #015e
1035 867A BD E5 71 ..q jsr e571 ;msdelay
1036 867D CC 02 33 ..3 ldd #0233
1037 8680 FD 00 3B ..; std 003b
1041 ; changer load & calibrate menu
1042 8684 F6 00 1F ... ldab 001f
1043 8687 C4 02 .. andb #02
1044 8689 27 2B '+ beq 2b
1045 868B CE 00 1F ... ldx #001f
1046 868E 1D 00 02 ... bclr 00,x, #02
1047 8691 C6 01 .. ldab #01
1048 8693 F7 00 48 ..H stab 0048
1049 8696 F6 0B C0 ... ldab 0bc0
1050 8699 C4 01 .. andb #01
1051 869B 27 16 '. beq 16
1052 869D C6 27 .' ldab #27
1053 869F F7 10 2D ..- stab 102d ; disable SCI transmission
1054 86A2 C6 07 .. ldab #07
1055 86A4 F7 10 2B ..+ stab 102b ; 600 baud
1056 86A7 CE 00 1A ... ldx #001a
1057 86AA 1D 00 01 .. bclr 00,x, #01
1058 86AD F6 00 1A ... ldab 001a
1059 86B0 F7 30 00 .0. stab 3000 ; changer accept on
1060 86B3 7E 87 E8 ~.. jmp 87e8 ;goto4
1061 86B6 F6 00 09 ... ldab 0009
1063 86BA BD FE 32 ..2 jsr fe32 ;jump25
1064 86BD 86 D7 00 00 .... ; no key
1065 86C1 87 39 00 01 .... ; key 1
1066 86C5 87 75 00 01 .... ; key 2
1067 86C9 87 C5 00 08 .... ; key 0
1068 86CD 87 D9 00 01 .... ; key reset
1069 86D1 87 E8 FF F5 .... ; no key
1070 86D5 00 00 .. ; end of array data
1071 86D7 C6 FF .. ldab #ff
1072 86D9 F7 0B BC ... stab 0bbc
1073 86DC F6 18 00 ... ldab 1800
1074 86DF 2D 29 -) blt 29
1075 86E1 F6 00 07 ... ldab 0007
1076 86E4 26 24 &$ bne 24
1077 86E6 CE 00 1A ... ldx #001a
1078 86E9 1D 00 02 .. bclr 00,x, #02
1079 86EC F6 00 1A ... ldab 001a
1080 86EF F7 30 00 .0. stab 3000 ; send msg to changer?
1081 86F2 CC 00 32 ..2 ldd #0032
1082 86F5 BD E5 71 ..q jsr e571 ;msdelay
1083 86F8 CE 00 1A ... ldx #001a
1084 86FB 1C 00 02 .. bset 00,x, #02
1085 86FE F6 00 1A ... ldab 001a
1086 8701 F7 30 00 .0. stab 3000 ; turn changer send line off
1087 8704 CC 02 33 ..3 ldd #0233
1088 8707 FD 00 3B ..; std 003b
1091 870C FD 00 40 ..@ std 0040
1094 8711 FD 00 3E ..> std 003e
1095 8714 F6 0B C0 ... ldab 0bc0
1096 8717 C4 01 .. andb #01
1097 8719 27 03 '. beq 03
1098 871B BD 85 BF ... jsr 85bf ;jump28
1099 871E BD DC A3 ... jsr dca3 ;jump29
1100 8721 BD 97 F6 ... jsr 97f6 ;jump27
1101 8724 CE 00 17 ... ldx #0017
1102 8727 1D 00 .. bclr add,x 00,x
1106 872D 1D 00 40 ... bclr 00,x, #40
1107 8730 CE 00 17 ... ldx #0017
1108 8733 1D 00 .. bclr add,x 00,x
1109 8735 80 7E .~ suba #7e
1111 8738 E8 F6 .. eorb f6,x
1114 873C 26 2F &/ bne 2f
1115 873E F6 00 48 ..H ldab 0048
1117 8742 BD FE 16 ... jsr fe16 ;jump2
1118 8745 00 01 00 03 . ; data for jump2
1123 8751 87 62 . ; end of data
1124 8753 7C 0C D9 |.. inc 0cd9
1126 8758 7C 0C DA |.. inc 0cda
1128 875D 7C 0C DB |.. inc 0cdb
1130 8762 7C 0C DC |.. inc 0cdc
1131 8765 BD 97 F6 ... jsr 97f6 ;jump27
1132 8768 C6 02 .. ldab #02
1133 876A F7 00 36 ..6 stab 0036
1134 876D CE 00 1B ... ldx #001b
1135 8770 1C 00 10 ... bset 00,x, #10
1137 8775 F6 00 36 ..6 ldab 0036
1138 8778 26 43 &C bne 43
1139 877A F6 00 48 ..H ldab 0048
1141 877E BD FE 16 ... jsr fe16 ;jump2
1147 8786 B5 87 8F ... bita 878f
1149 878A 99 87 A3 ... adca 87
1151 878E AD F6 .. jsr f6,x
1153 8791 D9 27 03 .'. adcb 27
1154 8794 7A 0C D9 z.. dec 0cd9
1156 8799 F6 0C DA ... ldab 0cda
1157 879C 27 03 '. beq 03
1158 879E 7A 0C DA z.. dec 0cda
1160 87A3 F6 0C DB ... ldab 0cdb
1161 87A6 27 03 '. beq 03
1162 87A8 7A 0C DB z.. dec 0cdb
1164 87AD F6 0C DC ... ldab 0cdc
1165 87B0 27 03 '. beq 03
1166 87B2 7A 0C DC z.. dec 0cdc
1167 87B5 BD 97 F6 ... jsr 97f6 ;jump27
1168 87B8 C6 02 .. ldab #02
1169 87BA F7 00 36 ..6 stab 0036
1170 87BD CE 00 1B ... ldx #001b
1171 87C0 1C 00 10 ... bset 00,x, #10
1173 87C5 7C 00 48 |.H inc 0048
1174 87C8 F6 00 48 ..H ldab 0048
1175 87CB C1 04 .. cmpb #04
1176 87CD 23 05 #. bls 05
1177 87CF C6 01 .. ldab #01
1178 87D1 F7 00 48 ..H stab 0048
1179 87D4 BD 97 F6 ... jsr 97f6 ;jump27
1181 87D9 CE 00 1A ... ldx #001a
1182 87DC 1C 00 01 .. bset 00,x, #01
1183 87DF F6 00 1A ... ldab 001a
1184 87E2 F7 30 00 .0. stab 3000 ; turn changer accept line off
1185 87E5 BD 85 AF ... jsr 85af ;jump14
1190 ;motor count procedure
1191 87E9 7F 00 05 ... clr 0005
1192 87EC 7F 00 54 ..T clr 0054
1193 87EF F6 00 54 ..T ldab 0054
1194 87F2 C1 50 .P cmpb #50 ; 80 entries in lookup table
1195 87F4 24 2E $. bcc 2e ; to 8824
1196 87F6 F6 00 54 ..T ldab 0054
1198 87FA C3 B0 D3 ... addd #b0d3 ; lookup table
1200 87FE E6 00 .. ldab 00,x
1201 8800 F7 00 06 ... stab 0006
1202 8803 F6 00 06 ... ldab 0006
1203 8806 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
1204 8809 83 00 00 ... subd #0000
1205 880C 26 11 &. bne 11
1206 880E BD D3 11 ... jsr d311 ;jump30 - test it
1207 8811 83 00 00 ... subd #0000
1208 8814 26 03 &. bne 03
1209 8816 7C 00 05 |.. inc 0005
1210 8819 CC 00 05 ... ldd #0005
1211 881C BD E5 71 ..q jsr e571 ;msdelay
1212 881F 7C 00 54 |.T inc 0054
1214 8824 BD 99 81 ... jsr 9981 ;jump144 - write "MOTORS XX" (from 0005)
1215 8827 CC 07 D0 ... ldd #07d0
1216 882A BD E5 71 ..q jsr e571 ;msdelay
1220 882E F6 00 1F ... ldab 001f
1221 8831 C4 02 .. andb #02
1222 8833 27 12 '. beq 12
1223 8835 FC 0B B5 ... ldd 0bb5
1224 8838 C4 FF .. andb #ff
1225 883A 84 01 .. anda #01
1226 883C FD 00 52 ..R std 0052
1227 883F CE 00 1F ... ldx #001f
1228 8842 1D 00 02 ... bclr 00,x, #02
1230 8847 F6 00 09 ... ldab 0009
1232 884B BD FE 32 ..2 jsr fe32 ;jump25
1233 884E 88 68 00 00 .... ; cancel.
1234 8852 88 6D 00 01 .... ; key 1 - increment
1235 8856 88 83 00 01 .... ; key 2 - decrement
1236 885A 88 A7 00 08 .... ; key 0 - saving
1237 885E 88 B4 00 01 .... ; reset
1238 8862 88 B7 FF F5 .... ; no key - return
1239 8866 00 00 .... ; end of array data
1241 8868 BD 9A 05 ... jsr 9a05 ;jump102 - write ODDS 1/
1242 886B 20 4A J bra 4a ; to 88b7 - return
1244 886D FC 00 52 ..R ldd 0052
1245 8870 83 01 F4 ... subd #01f4 ; 500
1246 8873 24 09 $. bcc 09 ; dont let them go above 500
1247 8875 FC 00 52 ..R ldd 0052
1248 8878 C3 00 32 ..2 addd #0032 ; +50
1249 887B FD 00 52 ..R std 0052
1250 887E BD 9A 05 ... jsr 9a05 ;jump102 - write ODDS 1/
1253 8883 FC 00 52 ..R ldd 0052
1254 8886 83 00 32 ..2 subd #0032 ; 50
1255 8889 23 17 #. bls 17 ; dont let them go below 50
1256 888B FC 00 52 ..R ldd 0052
1257 888E C3 FF CE ... addd #ffce ; -50
1258 8891 FD 00 52 ..R std 0052
1259 8894 FC 00 52 ..R ldd 0052
1260 8897 83 00 32 ..2 subd #0032 ; 50
1261 889A 24 06 $. bcc 06
1262 889C CC 00 32 ..2 ldd #0032 ; 100
1263 889F FD 00 52 ..R std 0052
1264 88A2 BD 9A 05 ... jsr 9a05 ;jump102 - write ODDS 1/
1267 88A7 BD A3 7C ..| jsr a37c ;jump141 - save
1270 88AC FD 0B B9 ... std 0bb9
1271 88AF BD 85 AF ... jsr 85af ;jump14
1273 88B4 BD 85 AF ... jsr 85af ;jump14
1278 88B8 F6 00 1F ... ldab 001f
1279 88BB C4 02 .. andb #02
1280 88BD 26 0A &. bne 0a
1281 88BF F6 00 3A ..: ldab 003a
1282 88C2 26 28 &( bne 28
1283 88C4 F6 00 1D ... ldab 001d
1284 88C7 2D 23 -# blt 23
1285 88C9 7F 00 2C .., clr 002c
1286 88CC CC AE 9D ... ldd #ae9d "SET PRICE?"
1287 88CF BD C0 BA ... jsr c0ba ;display:
1288 88D2 CE 00 1F ... ldx #001f
1289 88D5 1D 00 02 .. bclr 00,x, #02
1290 88D8 CE 00 1F ... ldx #001f
1291 88DB 1D 00 40 .. bclr 00,x, #40
1292 88DE CE 00 1D ... ldx #001d
1293 88E1 1D 00 80 .. bclr 00,x, #80
1294 88E4 7F 00 54 ... clr 0054
1295 88E7 C6 32 .2 ldab #32
1296 88E9 F7 00 3A ..: stab 003a
1297 88EC F6 00 09 ... ldab 0009
1298 88EF 26 03 &. bne 03
1299 88F1 7E 89 E1 ~.. jmp 89e1 ;goto5
1300 88F4 F6 00 1D ... ldab 001d
1301 88F7 2C 03 ,. bge 03
1302 88F9 7E 89 E1 ~.. jmp 89e1 ;goto5
1303 88FC F6 00 09 ... ldab 0009
1304 88FF C1 0B .. cmpb #0b
1305 8901 26 06 &. bne 06
1306 8903 BD 85 AF ... jsr 85af ;jump14
1307 8906 7E 89 DE ~.. jmp 89de ;goto6
1308 8909 F6 00 54 ..T ldab 0054
1309 890C 26 26 && bne 26
1310 890E BD BE 4B ..K jsr be4b ;displayblank
1311 8911 F6 00 09 ... ldab 0009
1312 8914 C1 0A .. cmpb #0a
1313 8916 26 03 &. bne 03
1314 8918 7F 00 09 ... clr 0009
1315 891B F6 00 09 ... ldab 0009
1316 891E CB 30 .0 addb #30
1318 8921 CC 0B 95 ... ldd #0b95
1319 8924 F0 00 54 ..T subb 0054
1320 8927 82 00 .. sbca #00
1323 892B E7 00 .. stab 00,x
1324 892D C6 32 .2 ldab #32
1325 892F F7 00 3A ..: stab 003a
1327 8934 F6 00 54 ..T ldab 0054
1328 8937 C1 01 .. cmpb #01
1329 8939 26 27 &' bne 27
1330 893B F6 00 09 ... ldab 0009
1331 893E C1 05 .. cmpb #05
1333 8942 F6 00 09 ... ldab 0009
1334 8945 C1 0A .. cmpb #0a
1335 8947 27 19 '. beq 19
1336 8949 F6 00 09 ... ldab 0009
1337 894C CB 30 .0 addb #30
1339 894F CC 0B 95 ... ldd #0b95
1340 8952 F0 00 54 ..T subb 0054
1341 8955 82 00 .. sbca #00
1344 8959 E7 00 .. stab 00,x
1345 895B C6 32 .2 ldab #32
1346 895D F7 00 3A ..: stab 003a
1348 8962 CE 00 1F ... ldx #001f
1349 8965 1C 00 02 .. bset 00,x, #02
1350 8968 7F 00 3A ..: clr 003a
1351 896B BD BE 01 ... jsr be01 ;jump70
1352 896E 7C 00 54 |.T inc 0054
1353 8971 F6 00 54 ..T ldab 0054
1354 8974 C1 02 .. cmpb #02
1355 8976 26 60 &` bne 60
1356 8978 CE 00 1D ... ldx #001d
1357 897B 1C 00 80 .. bset 00,x, #80
1358 897E F6 0B 94 .. ldab 0b94
1359 8980 CB D0 .. addb #d0 ; -48 (unmake it a digit)
1361 8984 F6 0B 95 ... ldab 0b95
1362 8987 CB D0 .. addb #d0 ; -48 (unmake it a digit)
1363 8989 86 0A .. ldaa #0a
1366 898D EB 00 .. addb 00,x
1368 8990 F7 00 06 ... stab 0006
1369 8993 C6 32 .2 ldab #32
1370 8995 F7 00 3A ..: stab 003a
1371 8998 F6 00 06 ... ldab 0006
1372 899B BD D7 A0 ... jsr d7a0 ;is_invalid_slot
1373 899E 83 00 00 ... subd #0000
1374 89A1 26 27 &' bne 27 ; to 89ca
1375 89A3 BD D3 11 ... jsr d311 ;jump30 - test position exists
1376 89A6 83 00 00 ... subd #0000
1377 89A9 26 0B &. bne 0b
1378 89AB CE 00 1F ... ldx #001f
1379 89AE 1C 00 40 .. bset 00,x, #40
1380 89B1 BD 8C 73 ..s jsr 8c73 ;jump75
1382 89B6 CE 00 1F ... ldx #001f
1383 89B9 1D 00 40 .. bclr 00,x, #40
1384 89BC CC 2A FF .*. ldd #2aff ; 00101010 11111111
1385 89BF FD 00 27 ..' std 0027
1386 89C2 BD A3 85 ... jsr a385 ;jump40
1387 89C5 BD 9A 47 ..G jsr 9a47 ;jump39
1390 89CA CE 00 1D ... ldx #001d
1391 89CD 1D 00 .. bclr 00,x, #80
1392 89D0 CE 00 1F ... ldx #001f
1393 89D3 1C 00 02 ... bset 00,x, #02
1395 89D8 CE 00 1D ... ldx #001d
1396 89DB 1D 00 80 ... bclr 00,x, #80
1398 89DE 7E 8C 72 .~ jmp 8c72 ;goto7 (exit)
1400 89E1 F6 00 1D ... ldab 001d
1401 89E4 2D 03 -. blt 03
1402 89E6 7E 8C 72 ~.r jmp 8c72 ;goto7 (exit)
1403 89E9 F6 00 09 ... ldab 0009
1405 89ED BD FE 16 ... jsr fe16 ;jump2
1406 89F0 00 00 00 0B .... ; params to jump2
1407 89F4 8C 72 .. ; default action
1408 89F6 8A 0E .. ; 0 - display price on screen?
1420 8A0E BD 9A 47 .. jsr 9a47 ;jump39
1421 8A11 7E 8C 72 ... jmp 8c72 ;goto7 (exit)
1422 8A14 F6 00 36 ... ldab 0036
1423 8A17 27 03 '. beq 03
1424 8A19 7E 8A 9B ~.. jmp 8a9b ;goto8
1425 8A1C F6 00 1F ... ldab 001f
1426 8A1F C4 40 .@ andb #40
1427 8A21 27 78 'x beq 78
1428 8A23 F6 0B C0 ... ldab 0bc0
1429 8A26 C4 02 .. andb #02
1430 8A28 27 52 'R beq 52
1431 8A2A F6 0B AA ... ldab 0baa
1432 8A2D C1 32 .2 cmpb #32
1433 8A2F 24 22 $" bcc 22
1434 8A31 F6 0B AA ... ldab 0baa
1436 8A35 F3 00 27 ..' addd 0027
1437 8A38 FD 00 27 ..' std 0027
1438 8A3B F6 0B AA ... ldab 0baa
1442 8A41 CC 00 FA ... ldd #00fa ; 250 or -6
1443 8A44 BD FB BA ... jsr fbba ;jump38 - multiply?
1444 8A47 B3 00 27 ..' subd 0027
1445 8A4A 24 05 $. bcc 05
1448 8A4E FD 00 27 ..' std 0027
1450 8A53 F6 0B AA ... ldab 0baa
1451 8A56 C1 32 .2 cmpb #32
1453 8A5A F6 0B AA ... ldab 0baa
1455 8A5E F3 00 27 ..' addd 0027
1456 8A61 FD 00 27 ..' std 0027
1457 8A64 F6 0B AA ... ldab 0baa
1461 8A6A CC 00 C7 ... ldd #00c7 ; 199
1462 8A6D BD FB BA ... jsr fbba ;jump38
1463 8A70 B3 00 27 ..' subd 0027
1464 8A73 24 05 $. bcc 05
1467 8A77 FD 00 27 ..' std 0027
1469 8A7C F6 0B AA ... ldab 0baa
1471 8A80 F3 00 27 ..' addd 0027
1472 8A83 FD 00 27 ..' std 0027
1473 8A86 FC 00 27 ..' ldd 0027
1474 8A89 83 27 0F .'. subd #270f
1475 8A8C 23 05 #. bls 05
1478 8A90 FD 00 27 ..' std 0027
1479 8A93 BD 9A 47 ..G jsr 9a47 ;jump39
1480 8A96 C6 02 .. ldab #02
1481 8A98 F7 00 36 ..6 stab 0036
1483 8A9B CE 00 1B ... ldx #001b
1484 8A9E 1C 00 10 ... bset 00,x, #10
1485 8AA1 CC 02 33 ..3 ldd #0233
1486 8AA4 FD 00 3B ..; std 003b
1487 8AA7 7E 8C 72 ~.r jmp 8c72 ;goto7 (exit)
1489 8AAA F6 00 36 ..6 ldab 0036
1490 8AAD 27 03 '. beq 03
1491 8AAF 7E 8B 4F ~.O jmp 8b4f ;goto9
1492 8AB2 F6 00 1F ... ldab 001f
1493 8AB5 C4 40 .@ andb #40
1494 8AB7 26 03 &. bne 03
1495 8AB9 7E 8B 4F ~.O jmp 8b4f ;goto9
1496 8ABC F6 0B C0 ... ldab 0bc0
1497 8ABF C4 02 .. andb #02
1498 8AC1 27 57 'W beq 57
1499 8AC3 FC 00 27 ..' ldd 0027
1500 8AC6 26 18 &. bne 18
1501 8AC8 F6 0B AA ... ldab 0baa
1502 8ACB C1 32 .2 cmpb #32
1503 8ACD 24 11 $. bcc 11
1504 8ACF F6 0B AA ... ldab 0baa
1508 8AD5 CC 00 FA ... ldd #00fa ; 250
1509 8AD8 BD FB BA ... jsr fbba ;jump38
1510 8ADB FD 00 27 ..' std 0027
1512 8AE0 FC 00 27 ..' ldd 0027
1513 8AE3 26 18 &. bne 18
1514 8AE5 F6 0B AA ... ldab 0baa
1515 8AE8 C1 32 .2 cmpb #32
1516 8AEA 26 11 &. bne 11
1517 8AEC F6 0B AA ... ldab 0baa
1521 8AF2 CC 00 C7 ... ldd #00c7 ; 199
1522 8AF5 BD FB BA ... jsr fbba ;jump38
1523 8AF8 FD 00 27 ..' std 0027
1525 8AFD F6 0B AA ... ldab 0baa
1527 8B01 B3 00 27 ..' subd 0027
1528 8B04 22 0D ". bhi 0d
1529 8B06 FC 00 27 ..' ldd 0027
1530 8B09 F0 0B AA ... subb 0baa
1531 8B0C 82 00 .. sbca #00
1532 8B0E FD 00 27 ..' std 0027
1536 8B15 FD 00 27 ..' std 0027
1538 8B1A FC 00 27 ..' ldd 0027
1539 8B1D 26 0D &. bne 0d
1540 8B1F CC 27 10 .'. ldd #2710 ;10000
1541 8B22 F0 0B AA ... subb 0baa
1542 8B25 82 00 .. sbca #00
1543 8B27 FD 00 27 ..' std 0027
1545 8B2C F6 0B AA ... ldab 0baa
1547 8B30 B3 00 27 ..' subd 0027
1548 8B33 22 0D ". bhi 0d
1549 8B35 FC 00 27 ..' ldd 0027
1550 8B38 F0 0B AA ... subb 0baa
1551 8B3B 82 00 .. sbca #00
1552 8B3D FD 00 27 ..' std 0027
1556 8B44 FD 00 27 ..' std 0027
1557 8B47 BD 9A 47 ..G jsr 9a47 ;jump39
1558 8B4A C6 02 .. ldab #02
1559 8B4C F7 00 36 ..6 stab 0036
1561 8B4F CE 00 1B ... ldx #001b
1562 8B52 1C 00 10 .. bset 00,x, #10
1563 8B55 CC 02 33 ..3 ldd #0233
1564 8B58 FD 00 3B ..; std 003b
1565 8B5B 7E 8C 72 ~.r jmp 8c72 ;goto7 (exit)
1566 8B5E F6 00 36 ..6 ldab 0036
1567 8B61 26 2C &, bne 2c
1568 8B63 F6 00 1F ... ldab 001f
1569 8B66 C4 40 .@ andb #40
1570 8B68 27 25 '% beq 25
1571 8B6A FC 00 46 ..F ldd 0046
1572 8B6D 83 00 64 ..d subd #0064
1573 8B70 24 15 $. bcc 15
1574 8B72 FE 00 46 ..F ldx 0046
1576 8B76 FF 00 46 ..F stx 0046
1577 8B79 FC 00 46 ..F ldd 0046
1578 8B7C 83 00 64 ..d subd #0064
1579 8B7F 25 06 %. bcs 06
1580 8B81 CC 00 01 ... ldd #0001
1581 8B84 FD 00 46 ..F std 0046
1582 8B87 BD 9A 47 ..G jsr 9a47 ;jump39
1583 8B8A C6 02 .. ldab #02
1584 8B8C F7 00 36 ..6 stab 0036
1585 8B8F CE 00 1B ... ldx #001b
1586 8B92 1C 00 10 .. bset 00,x, #10
1587 8B95 CC 02 33 ..3 ldd #0233
1588 8B98 FD 00 3B ..; std 003b
1589 8B9B 7E 8C 72 ~.r jmp 8c72 ;goto7 (exit)
1590 8B9E F6 00 36 ..6 ldab 0036
1591 8BA1 26 29 &) bne 29
1592 8BA3 F6 00 1F ... ldab 001f
1593 8BA6 C4 40 .@ andb #40
1594 8BA8 27 22 '" beq 22
1595 8BAA FC 00 46 ..F ldd 0046
1596 8BAD 83 00 00 ... subd #0000
1597 8BB0 23 12 #. bls 12
1598 8BB2 FE 00 46 ..F ldx 0046
1600 8BB6 FF 00 46 ..F stx 0046
1601 8BB9 FC 00 46 ..F ldd 0046
1602 8BBC 26 06 &. bne 06
1603 8BBE CC 00 63 ..c ldd #0063
1604 8BC1 FD 00 46 ..F std 0046
1605 8BC4 BD 9A 47 ..G jsr 9a47 ;jump39
1606 8BC7 C6 02 .. ldab #02
1607 8BC9 F7 00 36 ..6 stab 0036
1608 8BCC CE 00 1B ... ldx #001b
1609 8BCF 1C 00 10 ... bset 00,x, #10
1610 8BD2 CC 02 33 ..3 ldd #0233
1611 8BD5 FD 00 3B ..; std 003b
1612 8BD8 7E 8C 72 ~.r jmp 8c72 ;goto7 (exit)
1613 8BDB F6 00 1F ... ldab 001f
1614 8BDE C4 40 .@ andb #40
1615 8BE0 27 15 '. beq 15
1616 8BE2 F6 00 19 ... ldab 0019
1617 8BE5 C4 10 .. andb #10
1618 8BE7 27 08 '. beq 08
1619 8BE9 CE 00 19 ... ldx #0019
1620 8BEC 1D 00 10 ... bclr 00,x, #10
1622 8BF1 CE 00 19 ... ldx #0019
1623 8BF4 1C 00 10 ... bset 00,x, #10
1624 8BF7 BD 9A 47 ..G jsr 9a47 ;jump39
1626 8BFC BD A3 85 ... jsr a385 ;jump40
1627 8BFF F6 00 06 ... ldab 0006
1628 8C02 C1 64 .d cmpb #64
1629 8C04 24 24 $$ bcc 24
1630 8C06 BD 97 6F ..o jsr 976f ;jump41
1631 8C09 F6 00 06 ... ldab 0006
1632 8C0C BD D7 A0 ... jsr d7a0 ;is_invalid_slot
1633 8C0F 83 00 00 ... subd #0000
1634 8C12 27 16 '. beq 16
1635 8C14 F6 00 06 ... ldab 0006
1636 8C17 C1 09 .. cmpb #09
1637 8C19 26 03 &. bne 03
1638 8C1B BD 97 6F ..o jsr 976f ;jump41
1639 8C1E F6 00 06 ... ldab 0006
1640 8C21 C1 45 .E cmpb #45
1641 8C23 26 05 &. bne 05
1642 8C25 C6 01 .. ldab #01
1643 8C27 F7 00 06 ... stab 0006
1644 8C2A F6 0E 6D ..m ldab 0e6d
1645 8C2D C1 01 .. cmpb #01
1646 8C2F 26 11 &. bne 11
1647 8C31 F6 00 06 ... ldab 0006
1650 8C36 C3 08 C8 ... addd #08c8
1652 8C3A EC 00 .. ldd 00,x
1653 8C3C C4 7F .. andb #7f
1655 8C3F FD 00 46 ..F std 0046
1656 8C42 BD D3 11 ... jsr d311 ;jump30 - test position exists
1657 8C45 83 00 00 ... subd #0000
1658 8C48 26 12 &. bne 12
1659 8C4A CE 00 1F ... ldx #001f
1660 8C4D 1C 00 40 ... bset 00,x, #40
1661 8C50 FC 00 27 ..' ldd 0027
1662 8C53 83 27 0F .'. subd #270f
1663 8C56 23 02 #. bls 02
1664 8C58 8D 19 .. bsr dest 19
1666 8C5C CE 00 1F ... ldx #001f
1667 8C5F 1D 00 40 ... bclr 00,x, #40
1668 8C62 BD 9A 47 ..G jsr 9a47 ;jump39
1670 8C67 BD A3 85 ... jsr a385 ;jump40
1671 8C6A BD 85 AF ... jsr 85af ;jump14
1673 8C6F BD 85 AF ... jsr 85af ;jump14
1678 ;fetches a price & other info for the given slot?
1679 8C73 F6 00 06 ... ldab 0006
1682 8C78 C3 08 00 ... addd #0800
1684 8C7C EC 00 .. ldd 00,x
1685 8C7E C4 FF .. andb #ff
1686 8C80 84 3F .? anda #3f
1687 8C82 FD 00 27 ..' std 0027
1688 8C85 F6 00 06 ... ldab 0006
1691 8C8A C3 08 C8 ... addd #08c8
1693 8C8E EC 00 .. ldd 00,x
1694 8C90 C4 7F .. andb #7f
1696 8C93 FD 00 46 ..F std 0046
1697 8C96 F6 00 06 ... ldab 0006
1700 8C9B C3 08 C8 ... addd #08c8
1702 8C9F EC 00 .. ldd 00,x
1703 8CA1 84 08 .. anda #08
1704 8CA3 27 08 '. beq 08
1705 8CA5 CE 00 19 ... ldx #0019
1706 8CA8 1C 00 10 ... bset 00,x, #10 ; corresponds to whatever '*' is on price display
1708 8CAD CE 00 19 ... ldx #0019
1709 8CB0 1D 00 10 ... bclr 00,x, #10
1713 ; program smart shopping discount
1714 8CB4 F6 00 1F ... ldab 001f
1715 8CB7 C4 02 .. andb #02
1716 8CB9 27 12 '. beq 12
1717 8CBB FC 0B B7 ... ldd 0bb7
1718 8CBE FD 00 0D ... std 000d
1719 8CC1 CE 00 1F ... ldx #001f
1720 8CC4 1D 00 02 ... bclr 00,x, #02
1721 8CC7 7F 00 36 ..6 clr 0036
1722 8CCA 7E 8E 34 ~.4 jmp 8e34 ;goto10
1723 8CCD F6 00 09 ... ldab 0009
1725 8CD1 BD FE 32 ..2 jsr fe32 ;jump25
1726 8CD4 8C EE 00 00 .... ; array data for jump25
1727 8CD8 8C F4 00 01 ....
1728 8CDC 8D 80 00 01 ....
1729 8CE0 8E 29 00 08 .)..
1730 8CE4 8E 31 00 01 .1..
1731 8CE8 8E 34 FF F5 .4.
1732 8CEC 00 00 ... ; end of array data
1733 8CEE BD 9B 63 ..c jsr 9b63 ;jump101
1734 8CF1 7E 8E 34 ~.4 jmp 8e34 ;goto10
1735 8CF4 F6 00 36 ..6 ldab 0036
1736 8CF7 26 78 &x bne 78
1737 8CF9 F6 0B C0 ... ldab 0bc0
1738 8CFC C4 02 .. andb #02
1739 8CFE 27 52 'R beq 52
1740 8D00 F6 0B AA ... ldab 0baa
1741 8D03 C1 32 .2 cmpb #32
1742 8D05 24 22 $" bcc 22
1743 8D07 F6 0B AA ... ldab 0baa
1745 8D0B F3 00 0D ... addd 000d
1746 8D0E FD 00 0D ... std 000d
1747 8D11 F6 0B AA ... ldab 0baa
1751 8D17 CC 00 FA ... ldd #00fa ; 250
1752 8D1A BD FB BA ... jsr fbba ;jump38
1753 8D1D B3 00 0D ... subd 000d
1754 8D20 24 05 $. bcc 05
1757 8D24 FD 00 0D ... std 000d
1759 8D29 F6 0B AA ... ldab 0baa
1760 8D2C C1 32 .2 cmpb #32
1762 8D30 F6 0B AA ... ldab 0baa
1764 8D34 F3 00 0D ... addd 000d
1765 8D37 FD 00 0D ... std 000d
1766 8D3A F6 0B AA ... ldab 0baa
1770 8D40 CC 00 C7 ... ldd #00c7 ; 199
1771 8D43 BD FB BA ... jsr fbba ;jump38
1772 8D46 B3 00 0D ... subd 000d
1773 8D49 24 05 $. bcc 05
1776 8D4D FD 00 0D ... std 000d
1778 8D52 F6 0B AA ... ldab 0baa
1780 8D56 F3 00 0D ... addd 000d
1781 8D59 FD 00 0D ... std 000d
1782 8D5C FC 00 0D ... ldd 000d
1783 8D5F 83 27 0F .'. subd #270f
1784 8D62 23 05 #. bls 05
1787 8D66 FD 00 0D ... std 000d
1788 8D69 BD 9B 63 ..c jsr 9b63 ;jump101
1789 8D6C C6 02 .. ldab #02
1790 8D6E F7 00 36 ..6 stab 0036
1791 8D71 CE 00 1B ... ldx #001b
1792 8D74 1C 00 10 .. bset 00,x, #10
1793 8D77 CC 02 33 ..3 ldd #0233
1794 8D7A FD 00 3B ..; std 003b
1795 8D7D 7E 8E 34 ~.4 jmp 8e34 ;goto10
1796 8D80 F6 00 36 ..6 ldab 0036
1797 8D83 27 03 '. beq 03
1798 8D85 7E 8E 1B ~.. jmp 8e1b ;goto11
1799 8D88 F6 0B C0 ... ldab 0bc0
1800 8D8B C4 02 .. andb #02
1801 8D8D 27 57 'W beq 57
1802 8D8F FC 00 0D ... ldd 000d
1803 8D92 26 18 &. bne 18
1804 8D94 F6 0B AA ... ldab 0baa
1805 8D97 C1 32 .2 cmpb #32
1806 8D99 24 11 $. bcc 11
1807 8D9B F6 0B AA ... ldab 0baa
1811 8DA1 CC 00 FA ... ldd #00fa ; 250
1812 8DA4 BD FB BA ... jsr fbba ;jump38
1813 8DA7 FD 00 0D ... std 000d
1815 8DAC FC 00 0D ... ldd 000d
1816 8DAF 26 18 &. bne 18
1817 8DB1 F6 0B AA ... ldab 0baa
1818 8DB4 C1 32 .2 cmpb #32
1819 8DB6 26 11 &. bne 11
1820 8DB8 F6 0B AA ... ldab 0baa
1824 8DBE CC 00 C7 ... ldd #00c7 ; 199
1825 8DC1 BD FB BA ... jsr fbba ;jump38
1826 8DC4 FD 00 0D ... std 000d
1828 8DC9 F6 0B AA ... ldab 0baa
1830 8DCD B3 00 0D ... subd 000d
1831 8DD0 22 0D ". bhi 0d
1832 8DD2 FC 00 0D ... ldd 000d
1833 8DD5 F0 0B AA ... subb 0baa
1834 8DD8 82 00 .. sbca #00
1835 8DDA FD 00 0D ... std 000d
1839 8DE1 FD 00 0D ... std 000d
1841 8DE6 FC 00 0D ... ldd 000d
1842 8DE9 26 0D &. bne 0d
1843 8DEB CC 27 10 .'. ldd #2710
1844 8DEE F0 0B AA ... subb 0baa
1845 8DF1 82 00 .. sbca #00
1846 8DF3 FD 00 0D ... std 000d
1848 8DF8 F6 0B AA ... ldab 0baa
1850 8DFC B3 00 0D ... subd 000d
1851 8DFF 22 0D ". bhi 0d
1852 8E01 FC 00 0D ... ldd 000d
1853 8E04 F0 0B AA ... subb 0baa
1854 8E07 82 00 .. sbca #00
1855 8E09 FD 00 0D ... std 000d
1859 8E10 FD 00 0D ... std 000d
1860 8E13 BD 9B 63 ..c jsr 9b63 ;jump101
1861 8E16 C6 02 .. ldab #02
1862 8E18 F7 00 36 ..6 stab 0036
1864 8E1B CE 00 1B ... ldx #001b
1865 8E1E 1C 00 10 ... bset 00,x, #10
1866 8E21 CC 02 33 ..3 ldd #0233
1867 8E24 FD 00 3B ..; std 003b
1869 8E29 BD A4 4F ..O jsr a44f ;jump140
1870 8E2C BD 85 AF ... jsr 85af ;jump14
1872 8E31 BD 85 AF ... jsr 85af ;jump14
1877 ; manual peripheral config menu
1878 8E35 F6 00 1F ... ldab 001f
1879 8E38 C4 02 .. andb #02
1880 8E3A 27 1E '. beq 1e
1881 8E3C 7F 00 48 ..H clr 0048
1882 8E3F F6 0B C0 ... ldab 0bc0
1883 8E42 F7 00 67 ..g stab 0067
1884 8E45 F6 0E 6D ..m ldab 0e6d
1885 8E48 F7 0E 6F ..o stab 0e6f
1886 8E4B F6 0E 6E ..n ldab 0e6e
1887 8E4E F7 0E 70 ..p stab 0e70
1888 8E51 CE 00 1F ... ldx #001f
1889 8E54 1D 00 02 ... bclr 00,x, #02
1890 8E57 7E 8F 0C ~.. jmp 8f0c ;goto12
1891 8E5A F6 00 09 ... ldab 0009
1893 8E5E BD FE 32 ..2 jsr fe32 ;jump25
1894 8E61 8E 7B 00 00 .{.. ; no key
1895 8E65 8E 81 00 01 .... ; key 1 - toggle?
1896 8E69 8E 87 00 04 .... ; key 5 - save and next
1897 8E6D 8F 01 00 05 .... ; key 0 - exit
1898 8E71 8F 09 00 01 .... ; key reset - exit
1899 8E75 8F 0C FF F5 .... ; default
1900 8E79 00 00 .. ; end of array data
1902 8E7B BD 9C 15 ... jsr 9c15 ;jump111 - write the option name
1903 8E7E 7E 8F 0C ~.. jmp 8f0c ;goto12
1905 8E81 BD A7 5F .._ jsr a75f ;jump133
1906 8E84 7E 8F 0C ~.. jmp 8f0c ;goto12
1908 8E87 F6 00 48 ..H ldab 0048
1909 8E8A C1 08 .. cmpb #08
1910 8E8C 25 05 %. bcs 05
1911 8E8E F6 00 67 ..g ldab 0067
1912 8E91 2D 03 -. blt 03
1913 8E93 BD A4 59 ..Y jsr a459 ;jump110
1914 8E96 F6 00 48 ..H ldab 0048
1915 8E99 C1 0A .. cmpb #0a
1916 8E9B 24 5F $_ bcc 5f
1917 8E9D 7C 00 48 |.H inc 0048
1918 8EA0 F6 00 48 ..H ldab 0048
1919 8EA3 C1 01 .. cmpb #01
1920 8EA5 26 0F &. bne 0f
1922 8EA7 F6 00 67 ..g ldab 0067
1923 8EAA C4 02 .. andb #02
1924 8EAC 26 08 &. bne 08
1925 8EAE F6 00 48 ..H ldab 0048
1926 8EB1 CB 02 .. addb #02
1927 8EB3 F7 00 48 ..H stab 0048
1929 8EB6 F6 00 48 ..H ldab 0048
1930 8EB9 C1 02 .. cmpb #02
1931 8EBB 26 0A &. bne 0a
1932 8EBD F6 00 67 ..g ldab 0067
1933 8EC0 C4 10 .. andb #10
1934 8EC2 26 03 &. bne 03
1935 8EC4 7C 00 48 |.H inc 0048
1936 8EC7 F6 00 48 ..H ldab 0048
1937 8ECA C1 06 .. cmpb #06
1938 8ECC 26 0F &. bne 0f
1939 8ECE F6 00 67 ..g ldab 0067
1940 8ED1 C4 08 .. andb #08
1941 8ED3 26 08 &. bne 08
1942 8ED5 C6 02 .. ldab #02
1943 8ED7 FB 00 48 ..H addb 0048
1944 8EDA F7 00 48 ..H stab 0048
1945 8EDD F6 00 48 ..H ldab 0048
1946 8EE0 C1 0A .. cmpb #0a
1947 8EE2 26 08 &. bne 08
1948 8EE4 F6 00 67 ..g ldab 0067
1949 8EE7 2D 03 -. blt 03
1950 8EE9 7C 00 48 |.H inc 0048
1951 8EEC F6 00 48 ..H ldab 0048
1952 8EEF C1 0A .. cmpb #0a
1953 8EF1 23 09 #. bls 09
1954 8EF3 7F 00 48 ..H clr 0048
1955 8EF6 F6 0B C0 ... ldab 0bc0
1956 8EF9 F7 00 67 ..g stab 0067
1957 8EFC BD 9C 15 ... jsr 9c15 ;jump111 - write the next option
1960 8F01 BD A4 59 ..Y jsr a459 ;jump110
1961 8F04 BD 85 AF ... jsr 85af ;jump14
1963 8F09 BD 85 AF ... jsr 85af ;jump14
1968 ; promotional vend-pair programming (buy one thing get another free?)
1969 8F0D F6 00 1F ... ldab 001f
1970 8F10 C4 02 .. andb #02
1971 8F12 27 1D '. beq 1d
1972 8F14 C6 01 .. ldab #01
1973 8F16 F7 00 22 .." stab 0022
1974 8F19 F6 0B AF ... ldab 0baf
1975 8F1C F7 00 24 ..$ stab 0024
1976 8F1F F6 0B B4 ... ldab 0bb4
1977 8F22 F7 00 2A ..* stab 002a
1978 8F25 CE 00 1F ... ldx #001f
1979 8F28 1D 00 02 .. bclr 00,x, #02
1980 8F2B 7F 00 36 ..6 clr 0036
1981 8F2E 7E 90 D0 ~.. jmp 90d0 ;goto13
1982 8F31 F6 00 09 ... ldab 0009
1984 8F35 BD FE 16 ... jsr fe16 ;jump2
1985 8F38 00 00 00 0B .... ; params for jump2
1999 8F56 BD 9D 2A ..* jsr 9d2a ;jump89
2000 8F59 7E 90 D0 ~.. jmp 90d0 ;goto13
2001 8F5C F6 00 36 ..6 ldab 0036
2002 8F5F 26 43 &C bne 43
2003 8F61 F6 00 24 ..$ ldab 0024
2004 8F64 C1 64 .d cmpb #64
2005 8F66 24 34 $4 bcc 34
2006 8F68 7C 00 24 |.$ inc 0024
2007 8F6B F6 00 24 ..$ ldab 0024
2008 8F6E F7 00 06 ... stab 0006
2009 8F71 F6 00 06 ... ldab 0006
2010 8F74 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
2011 8F77 83 00 00 ... subd #0000
2012 8F7A 27 03 '. beq 03
2013 8F7C 7C 00 24 |.$ inc 0024
2014 8F7F F6 00 24 ..$ ldab 0024
2015 8F82 C1 64 .d cmpb #64
2016 8F84 26 03 &. bne 03
2017 8F86 7F 00 24 ..$ clr 0024
2018 8F89 F6 00 24 ..$ ldab 0024
2020 8F8D CE 00 05 ... ldx #0005
2023 8F92 26 08 &. bne 08
2024 8F94 F6 00 24 ..$ ldab 0024
2025 8F97 27 03 '. beq 03
2026 8F99 7C 00 24 |.$ inc 0024
2027 8F9C BD 9D 2A ..* jsr 8d2a ;jump89
2028 8F9F C6 02 .. ldab #02
2029 8FA1 F7 00 36 ..6 stab 0036
2030 8FA4 CE 00 1B ... ldx #001b
2031 8FA7 1C 00 10 ... bset 00,x, #10
2032 8FAA CC 02 33 ..3 ldd #0233
2033 8FAD FD 00 3B ..; std 003b
2034 8FB0 7E 90 D0 ~.. jmp 90d0 ;goto13
2035 8FB3 F6 00 36 ..6 ldab 0036
2036 8FB6 26 45 &E bne 45
2037 8FB8 F6 00 24 ..$ ldab 0024
2038 8FBB C1 00 .. cmpb #00
2039 8FBD 23 2C #, bls 2c
2040 8FBF 7A 00 24 z.$ dec 0024
2041 8FC2 F6 00 24 ..$ ldab 0024
2043 8FC6 CE 00 05 ... ldx #0005
2046 8FCB 26 08 &. bne 08
2047 8FCD F6 00 24 ..$ ldab 0024
2048 8FD0 27 03 '. beq 03
2049 8FD2 7A 00 24 z.$ dec 0024
2050 8FD5 F6 00 24 ..$ ldab 0024
2051 8FD8 F7 00 06 ... stab 0006
2052 8FDB F6 00 06 ... ldab 0006
2053 8FDE BD D7 A0 ... jsr d7a0 ;is_invalid_slot
2054 8FE1 83 00 00 ... subd #0000
2055 8FE4 27 03 '. beq 03
2056 8FE6 7A 00 24 z.$ dec 0024
2058 8FEB F6 00 24 ..$ ldab 0024
2059 8FEE 26 05 &. bne 05
2060 8FF0 C6 62 .b ldab #62
2061 8FF2 F7 00 24 ..$ stab 0024
2062 8FF5 BD 9D 2A ..* jsr 9d2a ;jump89
2063 8FF8 C6 02 .. ldab #02
2064 8FFA F7 00 36 ..6 stab 0036
2065 8FFD CE 00 1B ... ldx #001b
2066 9000 1C 00 10 ... bset 00,x, #10
2067 9003 CC 02 33 ..3 ldd #0233
2068 9006 FD 00 3B ..; std 003b
2069 9009 7E 90 D0 ~.. jmp 90d0 ;goto13
2070 900C F6 00 36 ..6 ldab 0036
2071 900F 26 43 &C bne 43
2072 9011 F6 00 2A ..* ldab 002a
2073 9014 C1 64 .d cmpb #64
2074 9016 24 34 $4 bcc 34
2075 9018 7C 00 2A |.* inc 002a
2076 901B F6 00 2A ..* ldab 002a
2077 901E F7 00 06 ... stab 0006
2078 9021 F6 00 06 ... ldab 0006
2079 9024 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
2080 9027 83 00 00 ... subd #0000
2081 902A 27 03 '. beq 03
2082 902C 7C 00 2A |.* inc 002a
2083 902F F6 00 2A ..* ldab 002a
2084 9032 C1 64 .d cmpb #64
2085 9034 26 03 &. bne 03
2086 9036 7F 00 2A ..* clr 002a
2087 9039 F6 00 2A ..* ldab 002a
2089 903D CE 00 05 ... ldx #0005
2092 9042 26 08 &. bne 08
2093 9044 F6 00 2A ..* ldab 002a
2094 9047 27 03 '. beq 03
2095 9049 7C 00 2A |.* inc 002a
2096 904C BD 9D 2A ..* jsr 9d2a ;jump89
2097 904F C6 02 .. ldab #02
2098 9051 F7 00 36 ..6 stab 0036
2099 9054 CE 00 1B ... ldx #001b
2100 9057 1C 00 10 ... bset 00,x, #10
2101 905A CC 02 33 ..3 ldd #0233
2102 905D FD 00 3B ..; std 003b
2104 9062 F6 00 36 ..6 ldab 0036
2105 9065 26 45 &E bne 45
2106 9067 F6 00 2A ..* ldab 002a
2107 906A C1 00 .. cmpb #00
2108 906C 23 2C #, bls 2c
2109 906E 7A 00 2A z.* dec 002a
2110 9071 F6 00 2A ..* ldab 002a
2112 9075 CE 00 05 ... ldx #0005
2115 907A 26 08 &. bne 08
2116 907C F6 00 2A ..* ldab 002a
2117 907F 27 03 '. beq 03
2118 9081 7A 00 2A z.* dec 002a
2119 9084 F6 00 2A ..* ldab 002a
2120 9087 F7 00 06 ... stab 0006
2121 908A F6 00 06 ... ldab 0006
2122 908D BD D7 A0 ... jsr d7a0 ;is_invalid_slot
2123 9090 83 00 00 ... subd #0000
2124 9093 27 03 '. beq 03
2125 9095 7A 00 2A z.* dec 002a
2127 909A F6 00 2A ..* ldab 002a
2128 909D 26 05 &. bne 05
2129 909F C6 62 .b ldab #62
2130 90A1 F7 00 2A ..* stab 002a
2131 90A4 BD 9D 2A ..* jsr 9d2a ;jump89
2132 90A7 C6 02 .. ldab #02
2133 90A9 F7 00 36 ..6 stab 0036
2134 90AC CE 00 1B ... ldx #001b
2135 90AF 1C 00 10 ... bset 00,x, #10
2136 90B2 CC 02 33 ..3 ldd #0233
2137 90B5 FD 00 3B ..; std 003b
2139 90BA BD A5 1E ... jsr a51e ;jump109
2140 90BD BD AA 9A ... jsr aa9a ;jump127
2141 90C0 BD 9D 2A ..* jsr 9d2a ;jump89
2143 90C5 BD A5 1E ... jsr a51e ;jump109
2144 90C8 BD 85 AF ... jsr 85af ;jump14
2146 90CD BD 85 AF ... jsr 85af ;jump14
2151 ; pos message & serial id
2152 90D1 F6 00 1F ... ldab 001f
2153 90D4 C4 02 .. andb #02
2154 90D6 27 14 '. beq 14
2155 90D8 CE 00 1F ... ldx #001f
2156 90DB 1D 00 02 ... bclr 00,x, #02
2157 90DE CE 00 19 ... ldx #0019
2158 90E1 1C 00 .. bset add,x 00,x
2159 90E3 80 7F .. suba #7f
2162 90E7 7F 00 0A ... clr 000a
2164 90EC F6 00 09 ... ldab 0009
2166 90F0 BD FE 32 ..2 jsr fe32 ;jump25
2167 90F3 91 0D 00 00 .... ; array data for jump25
2168 90F7 91 15 00 01 ....
2169 90FB 91 19 00 01 ....
2170 90FF 91 1E 00 01 ....
2171 9103 91 23 00 08 .#..
2172 9107 91 26 FF F5 .&..
2173 910B 00 00 .. ; end of array data
2174 910D CC B0 AD ... ldd #b0ad ; "PROGRAM ?"
2175 9110 BD C0 BA ... jsr c0ba ;display:
2177 9115 8D 16 .. bsr dest 16
2179 9119 BD 91 C6 ... jsr 91c6 ;jump76
2181 911E BD 92 5A ..Z jsr 925a ;jump149
2183 9123 BD 85 AF ... jsr 85af ;jump14
2184 9126 7F 00 09 ... clr 0009
2185 9129 7F 00 0A ... clr 000a
2188 912D F6 00 19 ... ldab 0019
2189 9130 2C 28 ,( bge 28
2190 9132 BD A9 CF ... jsr a9cf ;jump131
2191 9135 C6 50 .P ldab #50
2192 9137 F7 0A 90 ... stab 0a90
2193 913A C6 20 . ldab #20
2194 913C F7 0B 8D ... stab 0b8d
2195 913F C6 20 . ldab #20
2196 9141 F7 0B 8E ... stab 0b8e
2197 9144 C6 28 .( ldab #28
2198 9146 F7 0B 8F ... stab 0b8f
2199 9149 7F 00 54 ..T clr 0054
2200 914C 7F 00 60 ..` clr 0060
2201 914F CE 00 19 ... ldx #0019
2202 9152 1D 00 .. bclr add,x 00,x
2203 9154 80 7F .. suba #7f
2207 915A F6 00 0A ... ldab 000a
2209 915E BD FE 16 ... jsr fe16 ;jump2
2214 9165 91 C5 91 ... cmpa c5
2215 9168 7F 91 84 ... clr 9184
2216 916B 91 89 91 ... cmpa 89
2217 916E 8E 91 9F ... lds #919f
2218 9171 91 B0 91 ... cmpa b0
2219 9174 C5 91 .. bitb #91
2220 9176 C5 91 .. bitb #91
2221 9178 C5 91 .. bitb #91
2222 917A B5 91 BA ... bita 91ba
2223 917D 91 C2 BD ... cmpa c2
2224 9180 9D 7E 20 .~ jsr 7e
2226 9184 BD A8 64 ..d jsr a864 ;jump99
2228 9189 BD A8 D5 ... jsr a8d5 ;jump97
2230 918E BD A8 96 ... jsr a896 ;jump98
2231 9191 CE 00 1B ... ldx #001b
2232 9194 1C 00 10 ... bset 00,x, #10
2233 9197 CC 02 33 ..3 ldd #0233
2234 919A FD 00 3B ..; std 003b
2236 919F BD A8 E5 ... jsr a8e5 ;jump96
2237 91A2 CE 00 1B ... ldx #001b
2238 91A5 1C 00 10 ... bset 00,x, #10
2239 91A8 CC 02 33 ..3 ldd #0233
2240 91AB FD 00 3B ..; std 003b
2242 91B0 BD A9 21 ..! jsr a921 ;jump95
2244 91B5 BD A9 7A ..z jsr a97a ;jump132
2246 91BA BD A5 7D ..} jsr a57d ;jump139
2247 91BD BD 85 AF ... jsr 85af ;jump14
2249 91C2 BD 85 AF ... jsr 85af ;jump14
2253 91C6 F6 00 19 ... ldab 0019
2254 91C9 2C 28 ,( bge 28
2255 91CB BD AA 0A ... jsr aa0a ;jump130
2256 91CE C6 53 .S ldab #53 ; "S"
2257 91D0 F7 0A 90 ... stab 0a90
2258 91D3 C6 20 . ldab #20 ; " "
2259 91D5 F7 0A 9D ... stab 0a9d
2260 91D8 C6 20 . ldab #20 ; " "
2261 91DA F7 0A 9E ... stab 0a9e
2262 91DD C6 28 .( ldab #28 ; "("
2263 91DF F7 0A 9F ... stab 0a9f
2264 91E2 7F 00 54 ..T clr 0054
2265 91E5 7F 00 60 ..` clr 0060
2266 91E8 CE 00 19 ... ldx #0019
2267 91EB 1D 00 80 .. bclr 00,x, #80
2268 91EE 7F 00 36 .. clr 0036
2270 91F3 F6 00 0A ... ldab 000a
2272 91F7 BD FE 16 ... jsr fe16 ;jump2
2287 9218 BD 9D 7E .. jsr 9d7e
2288 921B 20 3C .~ bra 3c
2289 921D BD A8 64 ..d jsr a864 ;jump99
2291 9222 BD A8 D5 ... jsr a8d5 ;jump97
2293 9227 BD A8 96 ... jsr a896 ;jump98
2294 922A CE 00 1B ... ldx #001b
2295 922D 1C 00 10 ... bset 00,x, #10
2296 9230 CC 02 33 ..3 ldd #0233
2297 9233 FD 00 3B ..; std 003b
2299 9238 BD A8 E5 ... jsr a8e5 ;jump96
2300 923B CE 00 1B ... ldx #001b
2301 923E 1C 00 10 ... bset 00,x, #10
2302 9241 CC 02 33 ..3 ldd #0233
2303 9244 FD 00 3B ..; std 003b
2305 9249 BD A9 21 ..! jsr a921 ;jump95
2307 924E BD A5 AC ... jsr a5ac ;jump138
2308 9251 BD 85 AF ... jsr 85af ;jump14
2310 9256 BD 85 AF ... jsr 85af ;jump14
2314 925A F6 00 19 ... ldab 0019
2315 925D 2C 28 ,( bge 28
2316 925F BD AA 3F ..? jsr aa3f ;jump129
2317 9262 C6 49 .I ldab #49
2318 9264 F7 0A 90 ... stab 0a90
2319 9267 C6 20 . ldab #20
2320 9269 F7 0A 9D ... stab 0a9d
2321 926C C6 20 . ldab #20
2322 926E F7 0A 9E ... stab 0a9e
2323 9271 C6 28 .( ldab #28
2324 9273 F7 0A 9F ... stab 0a9f
2325 9276 7F 00 54 ..T clr 0054
2326 9279 7F 00 60 ..` clr 0060
2327 927C CE 00 19 ... ldx #0019
2328 927F 1D 00 .. bclr add,x 00,x
2329 9281 80 7F .. suba #7f
2333 9287 F6 00 0A ... ldab 000a
2335 928B BD FE 16 ... jsr fe16 ;jump2
2340 9292 92 ED 92 ... sbca ed
2341 9295 AC 92 .. cpx 92,x
2342 9297 B1 92 B6 ... cmpa 92b6
2343 929A 92 BB 92 ... sbca bb
2344 929D CC 92 DD ... ldd #92dd
2345 92A0 92 ED 92 ... sbca ed
2346 92A3 ED 92 .. std 92,x
2347 92A5 ED 92 .. std 92,x
2348 92A7 ED 92 .. std 92,x
2349 92A9 E2 92 .. sbcb 92,x
2350 92AB EA BD .. orb bd,x
2351 92AD 9D 7E 20 .~ jsr 7e
2353 92B1 BD A8 64 ..d jsr a864 ;jump99
2355 92B6 BD A8 D5 ... jsr a8d5 ;jump97
2357 92BB BD A8 96 ... jsr a896 ;jump98
2358 92BE CE 00 1B ... ldx #001b
2359 92C1 1C 00 10 ... bset 00,x, #10
2360 92C4 CC 02 33 ..3 ldd #0233
2361 92C7 FD 00 3B ..; std 003b
2363 92CC BD A8 E5 ... jsr a8e5 ;jump96
2364 92CF CE 00 1B ... ldx #001b
2365 92D2 1C 00 10 ... bset 00,x, #10
2366 92D5 CC 02 33 ..3 ldd #0233
2367 92D8 FD 00 3B ..; std 003b
2369 92DD BD A9 21 ..! jsr a921 ;jump95
2371 92E2 BD A5 D5 ... jsr a5d5 ;jump137
2372 92E5 BD 85 AF ... jsr 85af ;jump14
2374 92EA BD 85 AF ... jsr 85af ;jump14
2379 92EE F6 0C DC ... ldab 0cdc
2383 92F4 CC 00 64 ..d ldd #0064 ; 100
2384 92F7 BD FB BA ... jsr fbba ;jump38 - multiplication
2385 92FA FD 0C E9 ... std 0ce9
2386 92FD BD D6 F6 ... jsr d6f6 ;jump106
2387 9300 FC 0C E9 ... ldd 0ce9
2388 9303 F3 0B EF ... addd 0bef
2389 9306 FD 0C F1 ... std 0cf1
2390 9309 FE 0C F5 ... ldx 0cf5
2392 930D FC 0C F3 ... ldd 0cf3
2395 9312 FE 0C F9 ... ldx 0cf9
2397 9316 FC 0C F7 ... ldd 0cf7
2398 9319 BD FC 25 ..% jsr fc25 ;jump85
2401 931E FE 0C FD ... ldx 0cfd
2403 9322 FC 0C FB ... ldd 0cfb
2404 9325 BD FC 25 ..% jsr fc25 ;jump85
2407 932A FE 0D 01 ... ldx 0d01
2409 932E FC 0C FF ... ldd 0cff
2410 9331 BD FC 25 ..% jsr fc25 ;jump85
2413 9336 FE 0D 05 ... ldx 0d05
2415 933A FC 0D 03 ... ldd 0d03
2416 933D BD FC 25 ..% jsr fc25 ;jump85
2417 9340 FD 0D F3 ... std 0df3
2420 9345 FD 0D F5 ... std 0df5
2421 9348 FE 0D F9 ... ldx 0df9
2423 934C FC 0D F7 ... ldd 0df7
2426 9351 FE 0D F5 ... ldx 0df5
2428 9355 FC 0D F3 ... ldd 0df3
2429 9358 BD FC 25 ..% jsr fc25 ;jump85
2430 935B FD 0D EF ... std 0def
2433 9360 FD 0D F1 ... std 0df1
2434 9363 F6 20 00 . . ldab 2000
2435 9366 C4 40 .@ andb #40
2436 9368 27 37 '7 beq 37
2437 936A F6 00 1F ... ldab 001f
2438 936D C4 02 .. andb #02
2439 936F 27 1F '. beq 1f
2440 9371 BD 97 E9 ... jsr 97e9 ;jump147 - print the report
2441 9374 CE 00 1F ... ldx #001f
2442 9377 1D 00 02 ... bclr 00,x, #02
2443 937A CE 00 1F ... ldx #001f
2444 937D 1D 00 10 ... bclr 00,x, #10
2445 9380 CC 02 33 ..3 ldd #0233
2446 9383 FD 00 3B ..; std 003b
2447 9386 7F 00 09 ... clr 0009
2448 9389 C6 92 .. ldab #92
2449 938B F7 00 48 ..H stab 0048
2451 9390 F6 00 19 ... ldab 0019
2452 9393 C4 40 .@ andb #40
2453 9395 26 05 &. bne 05
2454 9397 BD 98 BF ... jsr 98bf ;jump146
2456 939C BD 85 AF ... jsr 85af ;jump14
2458 93A1 BD 98 FF ... jsr 98ff ;jump145
2462 ; program security code menu
2463 93A5 F6 00 1F ... ldab 001f
2464 93A8 C4 02 .. andb #02
2465 93AA 26 0A &. bne 0a
2466 93AC F6 00 3A ..: ldab 003a
2467 93AF 26 2B &+ bne 2b
2468 93B1 F6 00 1D ... ldab 001d
2469 93B4 2D 26 -& blt 26
2470 93B6 CC AF BB ... ldd #afbb ;"ENTER CODE"
2471 93B9 BD C0 BA ... jsr c0ba ;display:
2472 93BC CE 00 1F ... ldx #001f
2473 93BF 1D 00 02 ... bclr 00,x, #02
2474 93C2 CE 00 1D ... ldx #001d
2475 93C5 1D 00 .. bclr add,x 00,x
2476 93C7 80 C6 .. suba #c6
2478 93CA F7 00 3A ..: stab 003a
2479 93CD F6 0B A8 ... ldab 0ba8
2480 93D0 F7 00 66 ..f stab 0066
2481 93D3 BD AA 74 ..t jsr aa74 ;jump128
2482 93D6 7F 00 48 ..H clr 0048
2483 93D9 7F 00 54 ..T clr 0054
2484 93DC F6 00 09 ... ldab 0009
2485 93DF 26 03 &. bne 03
2486 93E1 7E 94 92 ~.. jmp 9492 ;goto14
2487 93E4 F6 00 1D ... ldab 001d
2488 93E7 2C 03 ,. bge 03
2489 93E9 7E 94 92 ~.. jmp 9492 ;goto14
2490 93EC F6 00 09 ... ldab 0009
2491 93EF C1 0B .. cmpb #0b
2492 93F1 26 06 &. bne 06
2493 93F3 BD 85 AF ... jsr 85af ;jump14
2494 93F6 7E 94 90 ~.. jmp 9490 ;goto15
2495 93F9 F6 00 09 ... ldab 0009
2496 93FC C1 0A .. cmpb #0a
2497 93FE 26 03 &. bne 03
2498 9400 7F 00 09 ... clr 0009
2499 9403 F6 00 09 ... ldab 0009
2500 9406 CB 30 .0 addb #30
2502 9409 F6 00 54 ..T ldab 0054
2504 940D C3 00 62 ..b addd #0062
2507 9412 E7 00 .. stab 00,x
2508 9414 BD BE 4B ..K jsr be4b ;displayblank
2509 9417 F6 00 54 ..T ldab 0054
2510 941A 26 06 &. bne 06
2511 941C F6 00 62 ..b ldab 0062
2512 941F F7 0B 96 ... stab 0b96
2513 9422 F6 00 54 ..T ldab 0054
2514 9425 C1 01 .. cmpb #01
2515 9427 26 0C &. bne 0c
2516 9429 F6 00 62 ..b ldab 0062
2517 942C F7 0B 96 ... stab 0b96
2518 942F F6 00 63 ..c ldab 0063
2519 9432 F7 0B 95 ... stab 0b95
2520 9435 F6 00 54 ..T ldab 0054
2521 9438 C1 02 .. cmpb #02
2522 943A 26 12 &. bne 12
2523 943C F6 00 62 ..b ldab 0062
2524 943F F7 0B 96 ... stab 0b96
2525 9442 F6 00 63 ..c ldab 0063
2526 9445 F7 0B 95 ... stab 0b95
2527 9448 F6 00 64 ..d ldab 0064
2528 944B F7 0B 94 ... stab 0b94
2529 944E F6 00 54 ..T ldab 0054
2530 9451 C1 03 .. cmpb #03
2531 9453 26 18 &. bne 18
2532 9455 F6 00 62 ..b ldab 0062
2533 9458 F7 0B 96 ... stab 0b96
2534 945B F6 00 63 ..c ldab 0063
2535 945E F7 0B 95 ... stab 0b95
2536 9461 F6 00 64 ..d ldab 0064
2537 9464 F7 0B 94 ... stab 0b94
2538 9467 F6 00 65 ..e ldab 0065
2539 946A F7 0B 93 ... stab 0b93
2540 946D BD BE 01 ... jsr be01 ;jump70
2541 9470 7C 00 54 |.T inc 0054
2542 9473 F6 00 54 ..T ldab 0054
2543 9476 C1 04 .. cmpb #04
2544 9478 26 0B &. bne 0b
2545 947A CE 00 1D ... ldx #001d
2546 947D 1C 00 .. bset add,x 00,x
2547 947F 80 BD .. suba #bd
2548 9481 A8 0F .. eora 0f,x
2550 9485 CE 00 1D ... ldx #001d
2551 9488 1D 00 .. bclr add,x 00,x
2552 948A 80 C6 .. suba #c6
2554 948D F7 00 3A ..: stab 003a
2558 9492 F6 00 1D ... ldab 001d
2559 9495 2C 45 ,E bge 45
2560 9497 F6 00 09 ... ldab 0009
2562 949B BD FE 32 ..2 jsr fe32 ;jump25
2563 949E 94 B8 00 00 .... ; array data for jump25
2564 94A2 94 BD 00 01 ....
2565 94A6 94 C2 00 04 ....
2566 94AA 94 D1 00 05 ....
2567 94AE 94 D9 00 01 ....
2568 94B2 94 DC FF F5 ....
2569 94B6 00 00 .. ; end of array data
2570 94B8 BD 9E 0F ... jsr 9e0f ;jump142
2572 94BD BD A7 1F ... jsr a71f ;jump134
2574 94C2 7C 00 48 |.H inc 0048
2575 94C5 F6 00 48 ..H ldab 0048
2576 94C8 C1 0A .. cmpb #0a
2577 94CA 23 03 #. bls 03
2578 94CC 7F 00 48 ..H clr 0048
2580 94D1 BD A5 FE ... jsr a5fe ;jump136
2581 94D4 BD 85 AF ... jsr 85af ;jump14
2583 94D9 BD 85 AF ... jsr 85af ;jump14
2587 ; motor functions menu
2588 94DD F6 00 1F ... ldab 001f
2589 94E0 C4 02 .. andb #02
2590 94E2 27 14 '. beq 14
2591 94E4 CE 00 1F ... ldx #001f
2592 94E7 1D 00 02 ... bclr 00,x, #02
2593 94EA CE 00 19 ... ldx #0019
2594 94ED 1C 00 80 .. bset 00,x, #80
2595 94EF 7F 00 09 .. clr 0009
2596 94F3 7F 00 0A ... clr 000a
2598 94F8 F6 00 09 ... ldab 0009
2600 94FC BD FE 32 ..2 jsr fe32 ;jump25
2601 94FF 95 19 00 00 .... ; no key
2602 9503 95 21 00 01 .!.. ; key 1 - motor count procedure
2603 9507 95 2C 00 01 .,.. ; key 2 - single test vend
2604 950B 95 30 00 01 .0.. ; key 3 - test vend everything
2605 950F 95 35 00 08 .5.. ; reset
2606 9513 95 38 FF F5 .8..
2607 9517 00 00 .. ; end of array data
2608 9519 CC B0 A2 ... ldd #b0a2 ; "MTR FUNCT?"
2609 951C BD C0 BA ... jsr c0ba ;display:
2611 9521 BD 87 E9 ... jsr 87e9 ;jump74 - motor count procedure
2612 9524 CE 00 1F ... ldx #001f
2613 9527 1C 00 02 ... bset 00,x, #02
2615 952C 8D 11 .. bsr dest 11 ;jump203 - test single vend
2617 9530 BD 96 88 ... jsr 9688 ;jump148 - test all vends
2619 9535 BD 85 AF ... jsr 85af ;jump14
2620 9538 7F 00 09 ... clr 0009
2621 953B 7F 00 0A ... clr 000a
2625 ; test a single vend
2626 953F F6 00 19 ... ldab 0019
2627 9542 2D 0A -. blt 0a
2628 9544 F6 00 3A ..: ldab 003a
2629 9547 26 22 &" bne 22
2630 9549 F6 00 1D ... ldab 001d
2631 954C 2D 1D -. blt 1d
2632 954E 7F 00 2C .., clr 002c
2633 9551 CC B0 B8 ... ldd #b0b8 ; "SELECTION?"
2634 9554 BD C0 BA ... jsr c0ba ;display:
2635 9557 CE 00 19 ... ldx #0019
2636 955A 1D 00 80 .. bclr 00,x, #80
2637 955D CE 00 1D .. ldx #001d
2638 9560 1D 00 80 ... bclr 00,x, #80
2639 9562 7F 00 54 .. clr 0054
2640 9566 C6 32 .2 ldab #32
2641 9568 F7 00 3A ..: stab 003a
2642 956B F6 00 0A ... ldab 000a
2643 956E 26 03 &. bne 03
2644 9570 7E 96 5C ~.\ jmp 965c ;goto16
2645 9573 F6 00 1D ... ldab 001d
2646 9576 2C 03 ,. bge 03
2647 9578 7E 96 5C ~.\ jmp 965c ;goto16
2648 957B F6 00 0A ... ldab 000a
2649 957E C1 0B .. cmpb #0b
2650 9580 26 09 &. bne 09
2651 9582 CE 00 1F ... ldx #001f
2652 9585 1C 00 02 ... bset 00,x, #02
2653 9588 7E 96 5A ~.Z jmp 965a ;goto93
2654 958B F6 00 54 ..T ldab 0054
2655 958E 26 26 && bne 26
2656 9590 BD BE 4B ..K jsr be4b ;displayblank
2657 9593 F6 00 0A ... ldab 000a
2658 9596 C1 0A .. cmpb #0a
2659 9598 26 03 &. bne 03
2660 959A 7F 00 0A ... clr 000a
2661 959D F6 00 0A ... ldab 000a
2662 95A0 CB 30 .0 addb #30
2664 95A3 CC 0B 95 ... ldd #0b95
2665 95A6 F0 00 54 ..T subb 0054
2666 95A9 82 00 .. sbca #00
2669 95AD E7 00 .. stab 00,x
2670 95AF C6 32 .2 ldab #32
2671 95B1 F7 00 3A ..: stab 003a
2673 95B6 F6 00 54 ..T ldab 0054
2674 95B9 C1 01 .. cmpb #01
2675 95BB 26 27 &' bne 27
2676 95BD F6 00 0A ... ldab 000a
2677 95C0 C1 05 .. cmpb #05
2679 95C4 F6 00 0A ... ldab 000a
2680 95C7 C1 0A .. cmpb #0a
2681 95C9 27 19 '. beq 19
2682 95CB F6 00 0A ... ldab 000a
2683 95CE CB 30 .0 addb #30
2685 95D1 CC 0B 95 ... ldd #0b95
2686 95D4 F0 00 54 ..T subb 0054
2687 95D7 82 00 .. sbca #00
2690 95DB E7 00 .. stab 00,x
2691 95DD C6 32 .2 ldab #32
2692 95DF F7 00 3A ..: stab 003a
2694 95E4 CE 00 19 ... ldx #0019
2695 95E7 1C 00 80 .. bset 00,x, #80
2696 95E9 7F 00 3A .. clr 003a
2697 95ED BD BE 01 ... jsr be01 ;jump70
2698 95F0 7C 00 54 |.T inc 0054
2699 95F3 F6 00 54 ..T ldab 0054
2700 95F6 C1 02 .. cmpb #02
2701 95F8 26 5A &Z bne 5a
2702 95FA CE 00 1D ... ldx #001d
2703 95FD 1C 00 .. bset add,x 00,x
2704 95FF 80 F6 .. suba #f6
2706 9602 94 CB D0 ... anda cb
2708 9606 F6 0B 95 ... ldab 0b95
2709 9609 CB D0 .. addb #d0
2710 960B 86 0A .. ldaa #0a
2713 960F EB 00 .. addb 00,x
2715 9612 F7 00 06 ... stab 0006
2716 9615 C6 32 .2 ldab #32
2717 9617 F7 00 3A ..: stab 003a
2718 961A F6 00 06 ... ldab 0006
2719 961D BD D7 A0 ... jsr d7a0 ;is_invalid_slot
2720 9620 83 00 00 ... subd #0000
2721 9623 26 21 &! bne 21
2722 9625 BD D3 11 ... jsr d311 ;jump30 - test position exists
2723 9628 83 00 00 ... subd #0000
2724 962B 26 0B &. bne 0b ; to 9638
2725 962D CE 00 1F ... ldx #001f
2726 9630 1C 00 40 ... bset 00,x, #40 ; denotes an invalid slot or unmarked price? (fills display with XXX.XX)
2727 9633 BD 8C 73 ..s jsr 8c73 ;jump75 - fetch slot info
2728 9636 20 06 . bra 06 ; to 963e
2729 9638 CE 00 1F ... ldx #001f
2730 963B 1D 00 40 ... bclr 00,x, #40
2731 963E 7F 00 2C .., clr 002c
2732 9641 BD 9A 47 ..G jsr 9a47 ;jump39 - display price on screen
2734 9646 CE 00 1D ... ldx #001d
2735 9649 1D 00 80 .. bclr 00,x, #80
2736 964C CE 00 19 .. ldx #0019
2737 964F 1C 00 80 .. bset 00,x, #80
2739 9654 CE 00 1D ... ldx #001d
2740 9657 1D 00 80 .. bclr 00,x, #80
2744 965C F6 00 1D +. ldab 001d
2745 965F 2C 26 ., bge 26
2746 9661 BD D2 13 &. jsr d213 ;jump45
2747 9664 83 00 00 ... subd #0000
2748 9667 26 0F &. bne 0f
2749 9669 CC 00 64 ..d ldd #0064
2750 966C BD E5 71 ..q jsr e571 ;msdelay
2751 966F BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
2752 9672 CC 03 84 ... ldd #0384 ; 900
2753 9675 BD E5 71 ..q jsr e571 ;msdelay
2754 9678 7F 00 2E ... clr 002e
2755 967B CE 00 1D ... ldx #001d
2756 967E 1D 00 80 .. bclr 00,x, #80
2757 9680 CE 00 1F .. ldx #001f
2758 9683 1C 00 02 ... bset 00,x #02
2764 9689 F6 00 19 ... ldab 0019
2765 968C 2C 19 ,. bge 19
2766 968E CE 00 19 ... ldx #0019
2767 9691 1D 00 80 .. bclr 00,x, #80
2768 9694 CC B0 97 ... ldd #b097 ; "TEST VEND"
2769 9697 BD C0 BA ... jsr c0ba ; display
2770 969A C6 0A .. ldab #0a
2771 969C F7 00 38 ..8 stab 0038
2772 969F 7F 00 05 ... clr 0005
2773 96A2 C6 01 .. ldab #01
2774 96A4 F7 00 06 ... stab 0006
2775 96A7 F6 00 0A ... ldab 000a
2776 96AA C1 0B .. cmpb #0b
2777 96AC 26 0C &. bne 0c ; to 96ba
2778 96AE CC 02 33 ..3 ldd #0233
2779 96B1 FD 00 3B ..; std 003b
2780 96B4 CE 00 1F ... ldx #001f
2781 96B7 1C 00 02 ... bset 00,x, #02
2782 96BA F6 00 38 ..8 ldab 0038
2783 96BD 27 03 '. beq 03
2784 96BF 7E 97 6D ~.m jmp 976d ;goto17 - return
2785 96C2 F6 00 06 ... ldab 0006
2786 96C5 C1 63 .c cmpb #63 ; exit if >63
2787 96C7 23 03 #. bls 03
2788 96C9 7E 97 6D ~.m jmp 976d ;goto17 - return
2789 96CC F6 00 06 ... ldab 0006
2790 96CF C1 63 .c cmpb #63
2791 96D1 26 0F &. bne 0f
2792 96D3 BD 99 C3 ... jsr 99c3 ;jump143 - write "VENDS XXX" (from 0005)
2793 96D6 CC 07 D0 ... ldd #07d0 ; 2000
2794 96D9 BD E5 71 ..q jsr e571 ;msdelay
2795 96DC CE 00 1F ... ldx #001f
2796 96DF 1C 00 02 ... bset 00,x, #02
2797 96E2 BD D3 11 ... jsr d311 ;jump30 - test position exists
2798 96E5 83 00 00 ... subd #0000
2799 96E8 26 0B &. bne 0b
2800 96EA CE 00 1F ... ldx #001f
2801 96ED 1C 00 40 ... bset 00,x, #40
2802 96F0 BD 8C 73 ..s jsr 8c73 ;jump75
2804 96F5 CE 00 1F ... ldx #001f
2805 96F8 1D 00 40 ... bclr 00,x, #40
2806 96FB BD 9A 47 ..G jsr 9a47 ;jump39
2807 96FE F6 00 06 ... ldab 0006
2808 9701 C1 63 .c cmpb #63
2809 9703 26 03 &. bne 03
2810 9705 7F 00 2C .., clr 002c
2811 9708 BD D2 13 ... jsr d213 ;jump45
2812 970B 83 00 00 ... subd #0000
2813 970E 27 03 '. beq 03
2814 9710 7C 00 05 |.. inc 0005
2815 9713 7F 00 2E ... clr 002e
2816 9716 C6 05 .. ldab #05
2817 9718 F7 00 38 ..8 stab 0038
2818 971B CC 02 33 ..3 ldd #0233
2819 971E FD 00 3B ..; std 003b
2821 9722 6F 00 o. clr 00,x
2822 9724 F6 0E 6D ..m ldab 0e6d
2823 9727 27 0C '. beq 0c
2824 9729 F6 00 06 ... ldab 0006
2825 972C C1 3E .> cmpb #3e
2826 972E 26 05 &. bne 05
2827 9730 C6 01 .. ldab #01
2829 9733 E7 00 .. stab 00,x
2830 9735 8D 38 .8 bsr dest 38
2831 9737 F6 0E 6D ..m ldab 0e6d
2832 973A 27 0C '. beq 0c
2834 973D E6 00 .. ldab 00,x
2835 973F C1 01 .. cmpb #01
2836 9741 26 05 &. bne 05
2837 9743 C6 45 .E ldab #45
2838 9745 F7 00 06 ... stab 0006
2839 9748 F6 00 06 ... ldab 0006
2840 974B BD D7 A0 ... jsr d7a0 ;is_invalid_slot
2841 974E 83 00 00 ... subd #0000
2842 9751 27 15 '. beq 15
2843 9753 F6 00 06 ... ldab 0006
2844 9756 C1 09 .. cmpb #09
2845 9758 26 02 &. bne 02
2846 975A 8D 13 .. bsr dest 13
2847 975C F6 00 06 ... ldab 0006
2848 975F C1 45 .E cmpb #45
2849 9761 26 05 &. bne 05
2850 9763 C6 63 .c ldab #63
2851 9765 F7 00 06 ... stab 0006
2854 976A FD 00 40 ..@ std 0040
2860 976F F6 0E 6D ..m ldab 0e6d
2861 9772 C1 01 .. cmpb #01
2862 9774 26 41 &A bne 41
2863 9776 F6 00 06 ... ldab 0006
2865 977A CE 00 0A ... ldx #000a
2867 977E C1 01 .. cmpb #01
2868 9780 26 05 &. bne 05
2869 9782 7C 00 06 |.. inc 0006
2871 9787 F6 00 06 ... ldab 0006
2873 978B CE 00 0A ... ldx #000a
2875 978F C1 02 .. cmpb #02
2876 9791 26 0A &. bne 0a
2877 9793 C6 09 .. ldab #09
2878 9795 FB 00 06 ... addb 0006
2879 9798 F7 00 06 ... stab 0006
2881 979D C6 0B .. ldab #0b
2882 979F F7 00 06 ... stab 0006
2883 97A2 F6 00 06 ... ldab 0006
2884 97A5 C1 3E .> cmpb #3e
2885 97A7 22 07 ". bhi 07
2886 97A9 F6 00 06 ... ldab 0006
2887 97AC C1 0B .. cmpb #0b
2888 97AE 24 05 $. bcc 05
2889 97B0 C6 0B .. ldab #0b
2890 97B2 F7 00 06 ... stab 0006
2892 97B7 F6 00 06 ... ldab 0006
2893 97BA CB 0A .. addb #0a
2894 97BC F7 00 06 ... stab 0006
2895 97BF F6 00 06 ... ldab 0006
2896 97C2 C1 64 .d cmpb #64
2897 97C4 23 22 #" bls 22
2898 97C6 F6 00 06 ... ldab 0006
2899 97C9 CB 9C .. addb #9c
2900 97CB CB 01 .. addb #01
2901 97CD F7 00 06 ... stab 0006
2902 97D0 F6 00 06 ... ldab 0006
2903 97D3 C1 05 .. cmpb #05
2904 97D5 26 05 &. bne 05
2905 97D7 C6 06 .. ldab #06
2906 97D9 F7 00 06 ... stab 0006
2907 97DC F6 00 06 ... ldab 0006
2908 97DF C1 0A .. cmpb #0a
2909 97E1 26 05 &. bne 05
2910 97E3 C6 01 .. ldab #01
2911 97E5 F7 00 06 ... stab 0006
2915 97E9 BD BE 4B ..K jsr be4b ;displayblank
2916 97EC CC AF E7 ... ldd #afe7 ; "-PRINTING-"
2917 97EF BD C0 BA ... jsr c0ba ;display:
2918 97F2 BD F4 15 ... jsr f415 ;jump112 - print a report
2922 97F6 BD BE 4B ..K jsr be4b ;displayblank
2923 97F9 F6 00 48 ..H ldab 0048
2925 97FD BD FE 16 ... jsr fe16 ;jump2
2926 9800 00 01 00 03 . test
2932 980E F6 0C D9 .. ldab 0cd9
2934 9812 BD E7 95 ... jsr e795 ;jump54 - number to string
2935 9815 C6 4E .N ldab #4e
2936 9817 F7 0B 99 ... stab 0b99
2937 981A C6 49 .I ldab #49
2938 981C F7 0B 98 ... stab 0b98
2939 981F C6 4B .K ldab #4b
2940 9821 F7 0B 97 ... stab 0b97
2941 9824 C6 4C .L ldab #4c
2942 9826 F7 0B 96 ... stab 0b96
2944 982B F6 0C DA ... ldab 0cda
2946 982F BD E7 95 ... jsr e795 ;jump54 - number to string
2947 9832 C6 44 .D ldab #44
2948 9834 F7 0B 99 ... stab 0b99
2949 9837 C6 49 .I ldab #49
2950 9839 F7 0B 98 ... stab 0b98
2951 983C C6 4D .M ldab #4d
2952 983E F7 0B 97 ... stab 0b97
2953 9841 C6 45 .E ldab #45
2954 9843 F7 0B 96 ... stab 0b96
2956 9848 F6 0C DB ... ldab 0cdb
2958 984C BD E7 95 ... jsr e795 ;jump54 - number to string
2959 984F C6 51 .Q ldab #51
2960 9851 F7 0B 99 ... stab 0b99
2961 9854 C6 55 .U ldab #55
2962 9856 F7 0B 98 ... stab 0b98
2963 9859 C6 54 .T ldab #54
2964 985B F7 0B 97 ... stab 0b97
2965 985E C6 52 .R ldab #52
2966 9860 F7 0B 96 ... stab 0b96
2968 9865 F6 0C DC ... ldab 0cdc
2970 9869 BD E7 95 ... jsr e795 ;jump54 - number to string
2971 986C C6 44 .D ldab #44 ; "D"
2972 986E F7 0B 99 ... stab 0b99
2973 9871 C6 4F .O ldab #4f ; "O"
2974 9873 F7 0B 98 ... stab 0b98
2975 9876 C6 4C .L ldab #4c ; "L"
2976 9878 F7 0B 97 ... stab 0b97
2977 987B C6 52 .R ldab #52 ; "R"
2978 987D F7 0B 96 ... stab 0b96
2979 9880 C6 53 .S ldab #53 ; "S"
2980 9882 F7 0B 95 ... stab 0b95
2981 9885 C6 20 . ldab #20 ; " "
2982 9887 F7 0B 94 ... stab 0b94
2983 988A C6 20 . ldab #20 ; " "
2984 988C F7 0B 93 ... stab 0b93
2985 988F F6 00 5D ..] ldab 005d
2986 9892 F7 0B 92 ... stab 0b92
2987 9895 F6 00 5E ..^ ldab 005e ; row number?
2988 9898 F7 0B 91 ... stab 0b91
2989 989B F6 00 5F .._ ldab 005f ; column number?
2990 989E F7 0B 90 ... stab 0b90
2991 98A1 BD BE 01 ... jsr be01 ;jump70 - to disp buffer
2995 ; prints contents of 0054 to display
2996 98A5 BD BE 4B ..K jsr be4b ;displayblank
2997 98A8 F6 00 54 ..T ldab 0054
2999 98AC BD E7 95 ... jsr e795 ; slot number to digits
3000 98AF F6 00 5E ..^ ldab 005e
3001 98B2 F7 0B 95 ... stab 0b95
3002 98B5 F6 00 5F .._ ldab 005f
3003 98B8 F7 0B 94 ... stab 0b94
3004 98BB BD BE 01 ... jsr be01 ;jump70 - write to display
3008 98BF F6 00 09 ... ldab 0009
3009 98C2 C1 00 .. cmpb #00
3010 98C4 26 05 &. bne 05
3011 98C6 BD 9E 89 ... jsr 9e89 ;jump100
3013 98CB C1 01 .. cmpb #01
3014 98CD 26 1E &. bne 1e
3015 98CF F6 00 48 ..H ldab 0048
3016 98D2 C1 92 .. cmpb #92
3017 98D4 26 15 &. bne 15
3018 98D6 F6 00 1F ... ldab 001f
3019 98D9 C4 10 .. andb #10
3020 98DB 26 08 &. bne 08
3021 98DD CE 00 1F ... ldx #001f
3022 98E0 1C 00 10 ... bset 00,x, #10
3024 98E5 CE 00 1F ... ldx #001f
3025 98E8 1D 00 10 ... bclr 00,x, #10
3027 98ED C1 0B .. cmpb #0b
3028 98EF 26 0D &. bne 0d
3029 98F1 F6 00 1F ... ldab 001f
3030 98F4 C4 10 .. andb #10
3031 98F6 27 03 '. beq 03
3032 98F8 BD E9 2B ..+ jsr e92b ;jump103
3033 98FB BD 85 AF ... jsr 85af ;jump14
3037 98FF F6 00 1F ... ldab 001f
3038 9902 C4 02 .. andb #02
3039 9904 27 13 '. beq 13
3040 9906 C6 01 .. ldab #01
3041 9908 F7 00 48 ..H stab 0048
3042 990B CE 00 1F ... ldx #001f
3043 990E 1D 00 10 ... bclr 00,x, #10
3044 9911 CE 00 1F ... ldx #001f
3045 9914 1D 00 02 ... bclr 00,x, #02
3047 9919 F6 00 09 ... ldab 0009
3049 991D BD FE 32 ..2 jsr fe32 ;jump25
3050 9920 99 36 00 00 .6.. ; array data for jump25
3051 9924 99 3B 00 01 .;..
3052 9928 99 59 00 09 .Y..
3053 992C 99 73 00 01 .s..
3054 9930 99 80 FF F5 ....
3055 9934 00 00 .. ; end of array data
3056 9936 BD 9E 89 ... jsr 9e89 ;jump100
3058 993B F6 00 48 ..H ldab 0048
3059 993E C1 92 .. cmpb #92
3060 9940 26 15 &. bne 15
3061 9942 F6 00 1F ... ldab 001f
3062 9945 C4 10 .. andb #10
3063 9947 26 08 &. bne 08
3064 9949 CE 00 1F ... ldx #001f
3065 994C 1C 00 10 ... bset 00,x, #10
3067 9951 CE 00 1F ... ldx #001f
3068 9954 1D 00 10 ... bclr 00,x, #10
3070 9959 7C 00 48 |.H inc 0048
3071 995C F6 00 48 ..H ldab 0048
3072 995F C1 92 .. cmpb #92
3073 9961 23 0B #. bls 0b
3074 9963 C6 01 .. ldab #01
3075 9965 F7 00 48 ..H stab 0048
3076 9968 CE 00 1F ... ldx #001f
3077 996B 1D 00 10 ... bclr 00,x, #10
3078 996E BD 9E 89 ... jsr 9e89 ;jump100
3080 9973 F6 00 1F ... ldab 001f
3081 9976 C4 10 .. andb #10
3082 9978 27 03 '. beq 03
3083 997A BD E9 2B ..+ jsr e92b ;jump103
3084 997D BD 85 AF ... jsr 85af ;jump14
3088 ; writes "MOTORS XX" where XX is the slot number in 0005
3089 9981 BD BE 4B ..K jsr be4b ;displayblank
3090 9984 F6 00 05 ... ldab 0005
3092 9988 BD E7 95 ... jsr e795 ;jump54 - number to string
3093 998B C6 4D .M ldab #4d ; "M"
3094 998D F7 0B 99 ... stab 0b99
3095 9990 C6 4F .O ldab #4f ; "O"
3096 9992 F7 0B 98 ... stab 0b98
3097 9995 C6 54 .T ldab #54 ; "T"
3098 9997 F7 0B 97 ... stab 0b97
3099 999A C6 4F .O ldab #4f ; "O"
3100 999C F7 0B 96 ... stab 0b96
3101 999F C6 52 .R ldab #52 ; "R"
3102 99A1 F7 0B 95 ... stab 0b95
3103 99A4 C6 53 .S ldab #53 ; "S"
3104 99A6 F7 0B 94 ... stab 0b94
3105 99A9 C6 20 . ldab #20 ; " "
3106 99AB F7 0B 93 ... stab 0b93
3107 99AE C6 20 . ldab #20 ; " "
3108 99B0 F7 0B 92 ... stab 0b92
3109 99B3 F6 00 5E ..^ ldab 005e
3110 99B6 F7 0B 91 ... stab 0b91
3111 99B9 F6 00 5F .._ ldab 005f
3112 99BC F7 0B 90 ... stab 0b90
3113 99BF BD BE 01 ... jsr be01 ;jump70 - display
3117 ; writes VENDS XX where XX is contents of 0005
3118 99C3 BD BE 4B ..K jsr be4b ;displayblank
3119 99C6 F6 00 05 ... ldab 0005
3121 99CA BD E7 95 ... jsr e795 ;jump54 - number to string
3122 99CD C6 56 .V ldab #56 ; "V"
3123 99CF F7 0B 99 ... stab 0b99
3124 99D2 C6 45 .E ldab #45 ; "E"
3125 99D4 F7 0B 98 ... stab 0b98
3126 99D7 C6 4E .N ldab #4e ; "N"
3127 99D9 F7 0B 97 ... stab 0b97
3128 99DC C6 44 .D ldab #44 ; "D"
3129 99DE F7 0B 96 ... stab 0b96
3130 99E1 C6 53 .S ldab #53 ; "S"
3131 99E3 F7 0B 95 ... stab 0b95
3132 99E6 C6 20 . ldab #20 ; " "
3133 99E8 F7 0B 94 ... stab 0b94
3134 99EB C6 20 . ldab #20 ; " "
3135 99ED F7 0B 93 ... stab 0b93
3136 99F0 C6 20 . ldab #20 ; " "
3137 99F2 F7 0B 92 ... stab 0b92
3138 99F5 F6 00 5E ..^ ldab 005e
3139 99F8 F7 0B 91 ... stab 0b91
3140 99FB F6 00 5F .._ ldab 005f
3141 99FE F7 0B 90 ... stab 0b90
3142 9A01 BD BE 01 ... jsr be01 ;jump70
3146 9A05 BD BE 4B ..K jsr be4b ;displayblank
3147 9A08 FC 00 52 ..R ldd 0052
3148 9A0B BD E7 45 ..E jsr e745 ;jump55 - number to string
3149 9A0E C6 4F .O ldab #4f ; "O"
3150 9A10 F7 0B 99 ... stab 0b99
3151 9A13 C6 44 .D ldab #44 ; "D"
3152 9A15 F7 0B 98 ... stab 0b98
3153 9A18 C6 44 .D ldab #44 ; "D"
3154 9A1A F7 0B 97 ... stab 0b97
3155 9A1D C6 53 .S ldab #53 ; "S"
3156 9A1F F7 0B 96 ... stab 0b96
3157 9A22 C6 20 . ldab #20 ; " "
3158 9A24 F7 0B 95 ... stab 0b95
3159 9A27 C6 31 .1 ldab #31 ; "1"
3160 9A29 F7 0B 94 ... stab 0b94
3161 9A2C C6 2F ./ ldab #2f ; "/"
3162 9A2E F7 0B 93 ... stab 0b93
3163 9A31 F6 00 5D ..] ldab 005d
3164 9A34 F7 0B 92 ... stab 0b92
3165 9A37 F6 00 5E ..^ ldab 005e
3166 9A3A F7 0B 91 ... stab 0b91
3167 9A3D F6 00 5F .._ ldab 005f
3168 9A40 F7 0B 90 ... stab 0b90
3169 9A43 BD BE 01 ... jsr be01 ;jump70
3173 ; write a slot, price, etc to screen.
3174 9A47 BD BE 4B ..K jsr be4b ;displayblank
3175 9A4A F6 00 06 ... ldab 0006
3177 9A4E BD E7 95 ... jsr e795 ;jump54 - number to string
3178 9A51 F6 00 5E ..^ ldab 005e
3179 9A54 F7 0B 99 ... stab 0b99
3180 9A57 F6 00 5F .._ ldab 005f
3181 9A5A F7 0B 98 ... stab 0b98
3182 9A5D C6 20 . ldab #20
3183 9A5F F7 0B 97 ... stab 0b97
3184 9A62 F6 00 1F ... ldab 001f
3185 9A65 C4 40 .@ andb #40
3186 9A67 27 45 'E beq 45 ; to 9aae
3187 9A69 FC 00 27 ..' ldd 0027
3188 9A6C BD E7 45 ..E jsr e745 ;jump55 - number to string
3189 9A6F F6 00 5A ..Z ldab 005a
3190 9A72 F7 0B 96 ... stab 0b96
3191 9A75 F6 00 5D ..] ldab 005d
3192 9A78 F7 0B 95 ... stab 0b95
3193 9A7B F6 00 5E ..^ ldab 005e
3194 9A7E F7 0B 94 ... stab 0b94
3195 9A81 F6 00 5F .._ ldab 005f
3196 9A84 F7 0B 93 ... stab 0b93
3197 9A87 F6 00 19 ... ldab 0019
3198 9A8A C4 10 .. andb #10
3199 9A8C 27 07 '. beq 07
3200 9A8E C6 2A .* ldab #2a ; '*'
3201 9A90 F7 0B 92 ... stab 0b92
3203 9A95 C6 20 . ldab #20
3204 9A97 F7 0B 92 ... stab 0b92
3205 9A9A FC 00 46 ..F ldd 0046
3206 9A9D BD E7 45 ..E jsr e745 ;jump55 - number to string
3207 9AA0 F6 00 5E ..^ ldab 005e
3208 9AA3 F7 0B 91 ... stab 0b91
3209 9AA6 F6 00 5F .._ ldab 005f
3210 9AA9 F7 0B 90 ... stab 0b90
3211 9AAC 20 1E . bra 1e ; to 9acc
3213 9AAE C6 58 .X ldab #58 ; "X"
3214 9AB0 F7 0B 96 ... stab 0b96
3215 9AB3 C6 58 .X ldab #58 ; "X"
3216 9AB5 F7 0B 95 ... stab 0b95
3217 9AB8 C6 58 .X ldab #58 ; "X"
3218 9ABA F7 0B 94 ... stab 0b94
3219 9ABD C6 58 .X ldab #58 ; "X"
3220 9ABF F7 0B 93 ... stab 0b93
3221 9AC2 C6 58 .X ldab #58 ; "X"
3222 9AC4 F7 0B 91 ... stab 0b91
3223 9AC7 C6 58 .X ldab #58 ; "X"
3224 9AC9 F7 0B 90 ... stab 0b90
3226 9ACC F6 00 13 ... ldab 0013
3227 9ACF C1 01 .. cmpb #01
3228 9AD1 23 4C #L bls 4c ; to 9b1f
3229 9AD3 F6 0B 91 ... ldab 0b91
3230 9AD6 F7 0B 90 ... stab 0b90
3231 9AD9 F6 0B 92 ... ldab 0b92
3232 9ADC F7 0B 91 ... stab 0b91
3233 9ADF F6 0B 93 ... ldab 0b93
3234 9AE2 F7 0B 92 ... stab 0b92
3235 9AE5 F6 0B 94 ... ldab 0b94
3236 9AE8 F7 0B 93 ... stab 0b93
3237 9AEB F6 00 13 ... ldab 0013
3238 9AEE C1 02 .. cmpb #02
3239 9AF0 26 07 &. bne 07
3240 9AF2 C6 2E .. ldab #2e ; "."
3241 9AF4 F7 0B 94 ... stab 0b94
3242 9AF7 20 26 & bra 26 ; to 9b1f
3243 9AF9 C1 04 .. cmpb #04
3244 9AFB 26 0D &. bne 0d
3245 9AFD F6 0B 95 ... ldab 0b95
3246 9B00 F7 0B 94 ... stab 0b94
3247 9B03 C6 2E .. ldab #2e ; "."
3248 9B05 F7 0B 95 ... stab 0b95
3250 9B0A C1 08 .. cmpb #08
3251 9B0C 26 11 &. bne 11
3252 9B0E F6 0B 95 ... ldab 0b95
3253 9B11 F7 0B 94 ... stab 0b94
3254 9B14 F6 0B 96 ... ldab 0b96
3255 9B17 F7 0B 95 ... stab 0b95
3256 9B1A C6 2E .. ldab #2e
3257 9B1C F7 0B 96 ... stab 0b96
3259 9B1F F6 00 2C .., ldab 002c
3260 9B22 26 3E &> bne 3e
3261 9B24 BD BE 69 ..i jsr be69 ;displayreset
3264 9B27 F6 00 13 ... ldab 0013
3265 9B2A C1 01 .. cmpb #01
3266 9B2C 23 2C #, bls 2c
3267 9B2E CE 10 28 ..( ldx #1028
3268 9B31 1C 00 40 ... bset 00,x, #40 ; enable SPI
3269 9B34 F6 00 1F ... ldab 001f
3270 9B37 C4 40 .@ andb #40
3271 9B39 27 0E '. beq 0e
3272 9B3B CE 00 01 ... ldx #0001
3274 9B3F F6 00 5F .._ ldab 005f
3276 9B43 BD BD B5 ... jsr bdb5 ;jump78
3279 9B49 CE 00 01 ... ldx #0001
3281 9B4D CC 00 58 ..X ldd #0058 ; 'X'
3282 9B50 BD BD B5 ... jsr bdb5 ;jump78
3284 9B54 CE 10 28 ..( ldx #1028
3285 9B57 1D 00 40 ... bclr 00,x, #40
3286 9B5A BD BE 10 ... jsr be10 ;jump88
3287 9B5D C6 03 .. ldab #03
3288 9B5F F7 00 2C .., stab 002c
3292 9B63 BD BE 4B ..K jsr be4b ;displayblank
3293 9B66 FC 00 0D ... ldd 000d
3294 9B69 BD E7 45 ..E jsr e745 ;jump55 - number to string
3295 9B6C C6 44 .D ldab #44
3296 9B6E F7 0B 99 ... stab 0b99
3297 9B71 C6 53 .S ldab #53
3298 9B73 F7 0B 98 ... stab 0b98
3299 9B76 C6 43 .C ldab #43
3300 9B78 F7 0B 97 ... stab 0b97
3301 9B7B C6 4E .N ldab #4e
3302 9B7D F7 0B 96 ... stab 0b96
3303 9B80 C6 54 .T ldab #54
3304 9B82 F7 0B 95 ... stab 0b95
3305 9B85 C6 20 . ldab #20
3306 9B87 F7 0B 94 ... stab 0b94
3307 9B8A F6 00 5A ..Z ldab 005a
3308 9B8D F7 0B 93 ... stab 0b93
3309 9B90 F6 00 5D ..] ldab 005d
3310 9B93 F7 0B 92 ... stab 0b92
3311 9B96 F6 00 5E ..^ ldab 005e
3312 9B99 F7 0B 91 ... stab 0b91
3313 9B9C F6 00 5F .._ ldab 005f
3314 9B9F F7 0B 90 ... stab 0b90
3315 9BA2 F6 00 13 ... ldab 0013
3316 9BA5 C1 01 .. cmpb #01
3317 9BA7 23 3C #< bls 3c
3318 9BA9 F6 0B 91 ... ldab 0b91
3319 9BAC F7 0B 90 ... stab 0b90
3320 9BAF F6 00 13 ... ldab 0013
3321 9BB2 C1 02 .. cmpb #02
3322 9BB4 26 07 &. bne 07
3323 9BB6 C6 2E .. ldab #2e
3324 9BB8 F7 0B 91 ... stab 0b91
3326 9BBD C1 04 .. cmpb #04
3327 9BBF 26 0D &. bne 0d
3328 9BC1 F6 0B 92 ... ldab 0b92
3329 9BC4 F7 0B 91 ... stab 0b91
3330 9BC7 C6 2E .. ldab #2e
3331 9BC9 F7 0B 92 ... stab 0b92
3333 9BCE C1 08 .. cmpb #08
3334 9BD0 26 13 &. bne 13
3335 9BD2 F6 0B 92 ... ldab 0b92
3336 9BD5 F7 0B 91 ... stab 0b91
3337 9BD8 F6 0B 93 ... ldab 0b93
3338 9BDB F7 0B 92 ... stab 0b92
3339 9BDE C6 2E .. ldab #2e
3340 9BE0 F7 0B 93 ... stab 0b93
3342 9BE5 F6 00 2C .., ldab 002c
3343 9BE8 26 2A &* bne 2a
3344 9BEA BD BE 69 ..i jsr be69 ;displayreset
3345 9BED F6 00 13 ... ldab 0013
3346 9BF0 C1 01 .. cmpb #01
3347 9BF2 23 18 #. bls 18
3348 9BF4 CE 10 28 ..( ldx #1028
3349 9BF7 1C 00 40 ... bset 00,x, #40
3350 9BFA CE 00 01 ... ldx #0001
3352 9BFE F6 00 5F .._ ldab 005f
3354 9C02 BD BD B5 ... jsr bdb5 ;jump78
3356 9C06 CE 10 28 ..( ldx #1028
3357 9C09 1D 00 40 ... bclr 00,x, #40
3358 9C0C BD BE 10 ... jsr be10 ;jump88
3359 9C0F C6 03 .. ldab #03
3360 9C11 F7 00 2C .., stab 002c
3364 9C15 BD BE 4B ..K jsr be4b ;displayblank
3365 9C18 F6 00 48 ..H ldab 0048
3367 9C1C BD FE 16 ... jsr fe16 ;jump2
3368 9C1F 00 00 00 0A . 0..10
3381 9C3B F6 00 67 . ldab 0067
3382 9C3D C4 02 g. andb #02
3383 9C40 27 08 '. beq 08
3384 9C42 CC AF 00 ... ldd #af00 ; "LNK MSTR Y"
3385 9C45 BD C0 BA ... jsr c0ba ;display:
3387 9C4A CC AF 0B ... ldd #af0b ; "LNK MSTR N"
3388 9C4D BD C0 BA ... jsr c0ba ;display:
3389 9C50 7E 9D 29 ~.) jmp 9d29 ;goto18
3391 9C53 F6 00 67 ..g ldab 0067
3392 9C56 C4 10 .. andb #10
3393 9C58 27 08 '. beq 08
3394 9C5A CC AF 42 ..B ldd #af42 ; "PRC HOLD Y"
3395 9C5D BD C0 BA ... jsr c0ba ;display:
3397 9C62 CC AF 4D ..M ldd #af4d ; "PRC HOLD N"
3398 9C65 BD C0 BA ... jsr c0ba ;display:
3399 9C68 7E 9D 29 ~.) jmp 9d29 ;goto18
3401 9C6B F6 00 67 ..g ldab 0067
3402 9C6E C4 20 . andb #20
3403 9C70 27 08 '. beq 08
3404 9C72 CC AF 58 ..X ldd #af58 ; "PRC DISP Y"
3405 9C75 BD C0 BA ... jsr c0ba ;display:
3407 9C7A CC AF 63 ..c ldd #af63 ; "PRC DISP N"
3408 9C7D BD C0 BA ... jsr c0ba ;display:
3409 9C80 7E 9D 29 ~.) jmp 9d29 ;goto18
3411 9C83 F6 00 67 ..g ldab 0067
3412 9C86 C4 01 .. andb #01
3413 9C88 27 08 '. beq 08
3414 9C8A CC AE EA ... ldd #aeea ; "DUMB MEC Y"
3415 9C8D BD C0 BA ... jsr c0ba ;display:
3417 9C92 CC AE F5 ... ldd #aef5 ; "DUMB MEC N"
3418 9C95 BD C0 BA ... jsr c0ba ;display:
3419 9C98 7E 9D 29 ~.) jmp 9d29 ;goto18
3420 9C9B F6 00 67 ..g ldab 0067
3421 9C9E C4 04 .. andb #04
3422 9CA0 27 08 '. beq 08
3423 9CA2 CC AF 16 ... ldd #af16 ; "CARD RDR Y"
3424 9CA5 BD C0 BA ... jsr c0ba ;display:
3426 9CAA CC AF 21 ..! ldd #af21 ; "CARD RDR N"
3427 9CAD BD C0 BA ... jsr c0ba ;display:
3429 9CB2 F6 00 67 ..g ldab 0067
3430 9CB5 C4 08 .. andb #08
3431 9CB7 27 08 '. beq 08
3432 9CB9 CC AF 2C .., ldd #af2c ; "BILL VAL Y"
3433 9CBC BD C0 BA ... jsr c0ba ;display:
3435 9CC1 CC AF 37 ..7 ldd #af37 ; "BILL VAL N"
3436 9CC4 BD C0 BA ... jsr c0ba ;display:
3438 9CC9 F6 00 67 ..g ldab 0067
3439 9CCC C4 40 .@ andb #40
3440 9CCE 27 08 '. beq 08
3441 9CD0 CC AF 84 ... ldd #af84 ; "$1 CHNGR Y"
3442 9CD3 BD C0 BA ... jsr c0ba ;display:
3444 9CD8 CC AF 8F ... ldd #af8f ; "$1 CHNGR N"
3445 9CDB BD C0 BA ... jsr c0ba ;display:
3447 9CE0 F6 0E 70 ..p ldab 0e70
3448 9CE3 C1 01 .. cmpb #01
3449 9CE5 26 08 &. bne 08
3450 9CE7 CC AE BE ... ldd #aebe ; "$5 ENABLE "
3451 9CEA BD C0 BA ... jsr c0ba ;display:
3453 9CEF CC AE C9 ... ldd #aec9 ; "$5 DISABLE"
3454 9CF2 BD C0 BA ... jsr c0ba ;display:
3456 9CF7 F6 0E 6F ..o ldab 0e6f
3457 9CFA C1 01 .. cmpb #01
3458 9CFC 26 08 &. bne 08
3459 9CFE CC AE D4 ... ldd #aed4 ; "SODA VEND "
3460 9D01 BD C0 BA ... jsr c0ba ;display:
3462 9D06 CC AE DF ... ldd #aedf ; "SNACK VEND"
3463 9D09 BD C0 BA ... jsr c0ba ;display:
3465 9D0E F6 00 67 ..g ldab 0067
3466 9D11 2C 08 ,. bge 08
3467 9D13 CC AF 6E ..n ldd #af6e ; "FREE VND Y"
3468 9D16 BD C0 BA ... jsr c0ba ;display:
3470 9D1B CC AF 79 ..y ldd #af79 ; "FREE VND N"
3471 9D1E BD C0 BA ... jsr c0ba ;display:
3473 9D23 CC AF B0 ... ldd #afb0 ; "HIT KEY "0""
3474 9D26 BD C0 BA ... jsr c0ba ;display:
3479 9D2A BD BE 4B ..K jsr be4b ;displayblank
3480 9D2D F6 00 22 .." ldab 0022
3482 9D31 BD E7 95 ... jsr e795 ;jump54 - number to string
3483 9D34 F6 00 5E ..^ ldab 005e
3484 9D37 F7 0B 99 ... stab 0b99
3485 9D3A F6 00 5F .._ ldab 005f
3486 9D3D F7 0B 98 ... stab 0b98
3487 9D40 C6 20 . ldab #20
3488 9D42 F7 0B 97 ... stab 0b97
3489 9D45 F6 00 24 ..$ ldab 0024
3491 9D49 BD E7 95 ... jsr e795 ;jump54 - number to string
3492 9D4C C6 50 .P ldab #50
3493 9D4E F7 0B 96 ... stab 0b96
3494 9D51 F6 00 5E ..^ ldab 005e
3495 9D54 F7 0B 95 ... stab 0b95
3496 9D57 F6 00 5F .._ ldab 005f
3497 9D5A F7 0B 94 ... stab 0b94
3498 9D5D C6 20 . ldab #20
3499 9D5F F7 0B 93 ... stab 0b93
3500 9D62 F6 00 2A ..* ldab 002a
3502 9D66 BD E7 95 ... jsr e795 ;jump54 - number to string
3503 9D69 C6 46 .F ldab #46
3504 9D6B F7 0B 92 ... stab 0b92
3505 9D6E F6 00 5E ..^ ldab 005e
3506 9D71 F7 0B 91 ... stab 0b91
3507 9D74 F6 00 5F .._ ldab 005f
3508 9D77 F7 0B 90 ... stab 0b90
3509 9D7A BD BE 01 ... jsr be01 ;jump70
3512 9D7E BD BE 4B ..K jsr be4b ;displayblank
3513 9D81 F6 00 60 ..` ldab 0060
3515 9D85 C3 0A 90 ... addd #0a90
3517 9D89 E6 00 .. ldab 00,x
3518 9D8B F7 0B 99 ... stab 0b99
3519 9D8E F6 00 60 ..` ldab 0060
3521 9D92 C3 0A 91 ... addd #0a91
3523 9D96 E6 00 .. ldab 00,x
3524 9D98 F7 0B 98 ... stab 0b98
3525 9D9B F6 00 60 ..` ldab 0060
3527 9D9F C3 0A 92 ... addd #0a92
3529 9DA3 E6 00 .. ldab 00,x
3530 9DA5 F7 0B 97 ... stab 0b97
3531 9DA8 F6 00 60 ..` ldab 0060
3533 9DAC C3 0A 94 ... addd #0a94
3535 9DB0 E6 00 .. ldab 00,x
3536 9DB2 F7 0B 95 ... stab 0b95
3537 9DB5 F6 00 60 ..` ldab 0060
3539 9DB9 C3 0A 95 ... addd #0a95
3541 9DBD E6 00 .. ldab 00,x
3542 9DBF F7 0B 94 ... stab 0b94
3543 9DC2 F6 00 60 ..` ldab 0060
3545 9DC6 C3 0A 96 ... addd #0a96
3547 9DCA E6 00 .. ldab 00,x
3548 9DCC F7 0B 93 ... stab 0b93
3549 9DCF C6 20 . ldab #20
3550 9DD1 F7 0B 92 ... stab 0b92
3551 9DD4 C6 20 . ldab #20
3552 9DD6 F7 0B 91 ... stab 0b91
3553 9DD9 F6 00 54 ..T ldab 0054
3555 9DDD C3 B4 8F ... addd #b48f
3557 9DE1 E6 00 .. ldab 00,x
3558 9DE3 F7 0B 90 ... stab 0b90
3559 9DE6 F6 00 38 ..8 ldab 0038
3560 9DE9 C1 03 .. cmpb #03
3561 9DEB 24 0F $. bcc 0f
3562 9DED F6 00 60 ..` ldab 0060
3564 9DF1 C3 0A 93 ... addd #0a93
3566 9DF5 E6 00 .. ldab 00,x
3567 9DF7 F7 0B 96 ... stab 0b96
3569 9DFC C6 1F .. ldab #1f
3570 9DFE F7 0B 96 ... stab 0b96
3571 9E01 BD BE 01 ... jsr be01 ;jump70
3572 9E04 F6 00 38 ..8 ldab 0038
3573 9E07 26 05 &. bne 05
3574 9E09 C6 05 .. ldab #05
3575 9E0B F7 00 38 ..8 stab 0038
3579 9E0F BD BE 4B ..K jsr be4b ;displayblank
3580 9E12 F6 00 48 ..H ldab 0048
3581 9E15 26 15 &. bne 15
3582 9E17 F6 00 66 ..f ldab 0066
3583 9E1A 27 08 '. beq 08
3584 9E1C CC AF C6 ... ldd #afc6 ; "SECURE ON"
3585 9E1F BD C0 BA ... jsr c0ba ;display:
3587 9E24 CC AF D1 ... ldd #afd1 ; "SECURE OFF"
3588 9E27 BD C0 BA ... jsr c0ba ;display:
3590 9E2C C6 4D .M ldab #4d
3591 9E2E F7 0B 99 ... stab 0b99
3592 9E31 C6 45 .E ldab #45
3593 9E33 F7 0B 98 ... stab 0b98
3594 9E36 C6 4E .N ldab #4e
3595 9E38 F7 0B 97 ... stab 0b97
3596 9E3B C6 55 .U ldab #55
3597 9E3D F7 0B 96 ... stab 0b96
3598 9E40 C6 20 . ldab #20
3599 9E42 F7 0B 95 ... stab 0b95
3600 9E45 F6 00 48 ..H ldab 0048
3601 9E48 CB 30 .0 addb #30
3602 9E4A F7 0B 94 ... stab 0b94
3603 9E4D F6 00 48 ..H ldab 0048
3604 9E50 C1 0A .. cmpb #0a
3605 9E52 26 05 &. bne 05
3606 9E54 C6 30 .0 ldab #30
3607 9E56 F7 0B 94 ... stab 0b94
3608 9E59 C6 20 . ldab #20
3609 9E5B F7 0B 93 ... stab 0b93
3610 9E5E C6 4F .O ldab #4f
3611 9E60 F7 0B 92 ... stab 0b92
3612 9E63 F6 00 48 ..H ldab 0048
3614 9E67 C3 00 68 ..h addd #0068
3616 9E6B E6 00 .. ldab 00,x
3617 9E6D 27 0C '. beq 0c
3618 9E6F C6 4E .N ldab #4e
3619 9E71 F7 0B 91 ... stab 0b91
3620 9E74 C6 20 . ldab #20
3621 9E76 F7 0B 90 ... stab 0b90
3623 9E7B C6 46 .F ldab #46
3624 9E7D F7 0B 91 ... stab 0b91
3625 9E80 C6 46 .F ldab #46
3626 9E82 F7 0B 90 ... stab 0b90
3627 9E85 BD BE 01 ... jsr be01 ;jump70
3631 ; print out information to display
3632 9E89 BD BE 4B ..K jsr be4b ;displayblank
3633 9E8C F6 00 48 ..H ldab 0048
3635 9E90 BD FE 16 ... jsr fe16 ;jump2
3636 9E93 00 01 00 2D . ; 45 choices here
3684 9EF5 CC B2 90 ... ldd #b290 ; "SERIAL #"
3685 9EF8 BD C0 BA ... jsr c0ba ;display:
3686 9EFB 7E A1 C4 ~.. jmp a1c4 ;goto19
3687 9EFE CC 0C BC ... ldd #0cbc ; serial number?
3688 9F01 BD C0 BA ... jsr c0ba ;display:
3689 9F04 7E A1 C4 ~.. jmp a1c4 ;goto19
3690 9F07 CC B2 A2 ... ldd #b2a2 ; "MACHINE ID"
3691 9F0A BD C0 BA ... jsr c0ba ;display:
3692 9F0D 7E A1 C4 ~.. jmp a1c4 ;goto19
3693 9F10 CC 0C CC ... ldd #0ccc ; machine id?
3694 9F13 BD C0 BA ... jsr c0ba ;display:
3695 9F16 7E A1 C4 ~.. jmp a1c4 ;goto19
3696 9F19 C6 41 .A ldab #41 ; "A"
3697 9F1B F7 0B 99 ... stab 0b99
3698 9F1E C6 55 .U ldab #55 ; "U"
3699 9F20 F7 0B 98 ... stab 0b98
3700 9F23 C6 44 .D ldab #44 ; "D"
3701 9F25 F7 0B 97 ... stab 0b97
3702 9F28 C6 54 .T ldab #54 ; "T"
3703 9F2A F7 0B 96 ... stab 0b96
3704 9F2D CE 00 00 ... ldx #0000
3706 9F31 FC 0C E7 ... ldd 0ce7
3707 9F34 BD A2 D4 ... jsr a2d4 ;jump79
3709 9F38 7E A1 C4 ~.. jmp a1c4 ;goto19
3710 9F3B CC B2 C6 ... ldd #b2c6 ; "SALES (R) "
3711 9F3E BD C0 BA ... jsr c0ba ;display:
3712 9F41 7E A1 C4 ~.. jmp a1c4 ;goto19
3713 9F44 FE 0D E9 ... ldx 0de9
3715 9F48 FC 0D E7 ... ldd 0de7
3716 9F4B BD A3 41 ..A jsr a341 ;jump77
3718 9F4F 7E A1 C4 ~.. jmp a1c4 ;goto19
3719 9F52 CC B2 D8 ... ldd #b2d8 ; "SALES (N) "
3720 9F55 BD C0 BA ... jsr c0ba ;display:
3721 9F58 7E A1 C4 ~.. jmp a1c4 ;goto19
3722 9F5B FE 0D ED ... ldx 0ded
3724 9F5F FC 0D EB ... ldd 0deb
3725 9F62 BD A3 41 ..A jsr a341 ;jump77
3727 9F66 7E A1 C4 ~.. jmp a1c4 ;goto19
3728 9F69 CC B2 EA ... ldd #b2ea ; "BAG TOTAL"
3729 9F6C BD C0 BA ... jsr c0ba ;display:
3730 9F6F 7E A1 C4 ~.. jmp a1c4 ;goto19
3731 9F72 FE 0D F1 ... ldx 0df1
3733 9F76 FC 0D EF ... ldd 0def
3734 9F79 BD A3 41 ..A jsr a341 ;jump77
3736 9F7D 7E A1 C4 ~.. jmp a1c4 ;goto19
3737 9F80 CC B2 FC ... ldd #b2fc ; "CASH BOX"
3738 9F83 BD C0 BA ... jsr c0ba ;display:
3739 9F86 7E A1 C4 ~.. jmp a1c4 ;goto19
3740 9F89 FE 0D F9 ... ldx 0df9
3742 9F8D FC 0D F7 ... ldd 0df7
3743 9F90 BD A3 41 ..A jsr a341 ;jump77
3745 9F94 7E A1 C4 ~.. jmp a1c4 ;goto19
3746 9F97 CC B3 0E ... ldd #b30e ; "CARD SALES"
3747 9F9A BD C0 BA ... jsr c0ba ;display:
3748 9F9D 7E A1 C4 ~.. jmp a1c4 ;goto19
3749 9FA0 FE 0D FD ... ldx 0dfd
3751 9FA4 FC 0D FB ... ldd 0dfb
3752 9FA7 BD A3 41 ..A jsr a341 ;jump77
3754 9FAB 7E A1 C4 ~.. jmp a1c4 ;goto19
3755 9FAE CC B3 35 ..5 ldd #b335 ; "BILL TOTAL"
3756 9FB1 BD C0 BA ... jsr c0ba ;display:
3757 9FB4 7E A1 C4 ~.. jmp a1c4 ;goto19
3758 9FB7 FE 0D F5 ... ldx 0df5
3760 9FBB FC 0D F3 ... ldd 0df3
3761 9FBE BD A3 41 ..A jsr a341 ;jump77
3763 9FC2 7E A1 C4 ~.. jmp a1c4 ;goto19
3764 9FC5 C6 24 .$ ldab #24
3765 9FC7 F7 0B 99 ... stab 0b99
3766 9FCA C6 31 .1 ldab #31
3767 9FCC F7 0B 98 ... stab 0b98
3768 9FCF CE 00 00 ... ldx #0000
3770 9FD3 FC 0C DD ... ldd 0cdd
3771 9FD6 BD A2 D4 ... jsr a2d4 ;jump79
3773 9FDA 7E A1 C4 ~.. jmp a1c4 ;goto19
3774 9FDD FE 0C F5 ... ldx 0cf5
3776 9FE1 FC 0C F3 ... ldd 0cf3
3777 9FE4 BD A3 41 ..A jsr a341 ;jump77
3779 9FE8 7E A1 C4 ~.. jmp a1c4 ;goto19
3780 9FEB C6 24 .$ ldab #24
3781 9FED F7 0B 99 ... stab 0b99
3782 9FF0 C6 32 .2 ldab #32
3783 9FF2 F7 0B 98 ... stab 0b98
3784 9FF5 CE 00 00 ... ldx #0000
3786 9FF9 FC 0C DF ... ldd 0cdf
3787 9FFC BD A2 D4 ... jsr a2d4 ;jump79
3789 A000 7E A1 C4 ~.. jmp a1c4 ;goto19
3790 A003 FE 0C F9 ... ldx 0cf9
3792 A007 FC 0C F7 ... ldd 0cf7
3793 A00A BD A3 41 ..A jsr a341 ;jump77
3795 A00E 7E A1 C4 ~.. jmp a1c4 ;goto19
3796 A011 C6 24 .$ ldab #24
3797 A013 F7 0B 99 ... stab 0b99
3798 A016 C6 35 .5 ldab #35
3799 A018 F7 0B 98 ... stab 0b98
3800 A01B CE 00 00 ... ldx #0000
3802 A01F FC 0C E1 ... ldd 0ce1
3803 A022 BD A2 D4 ... jsr a2d4 ;jump79
3805 A026 7E A1 C4 ~.. jmp a1c4 ;goto19
3806 A029 FE 0C FD ... ldx 0cfd
3808 A02D FC 0C FB ... ldd 0cfb
3809 A030 BD A3 41 ..A jsr a341 ;jump77
3811 A034 7E A1 C4 ~.. jmp a1c4 ;goto19
3812 A037 C6 24 .$ ldab #24
3813 A039 F7 0B 99 ... stab 0b99
3814 A03C C6 31 .1 ldab #31
3815 A03E F7 0B 98 ... stab 0b98
3816 A041 C6 30 .0 ldab #30
3817 A043 F7 0B 97 ... stab 0b97
3818 A046 CE 00 00 ... ldx #0000
3820 A04A FC 0C E3 ... ldd 0ce3
3821 A04D BD A2 D4 ... jsr a2d4 ;jump79
3823 A051 7E A1 C4 ~.. jmp a1c4 ;goto19
3824 A054 FE 0D 01 ... ldx 0d01
3826 A058 FC 0C FF ... ldd 0cff
3827 A05B BD A3 41 ..A jsr a341 ;jump77
3829 A05F 7E A1 C4 ~.. jmp a1c4 ;goto19
3830 A062 C6 24 .$ ldab #24
3831 A064 F7 0B 99 ... stab 0b99
3832 A067 C6 32 .2 ldab #32
3833 A069 F7 0B 98 ... stab 0b98
3834 A06C C6 30 .0 ldab #30
3835 A06E F7 0B 97 ... stab 0b97
3836 A071 CE 00 00 ... ldx #0000
3838 A075 FC 0C E5 ... ldd 0ce5
3839 A078 BD A2 D4 ... jsr a2d4 ;jump79
3841 A07C 7E A1 C4 ~.. jmp a1c4 ;goto19
3842 A07F FE 0D 05 ... ldx 0d05
3844 A083 FC 0D 03 ... ldd 0d03
3845 A086 BD A3 41 ..A jsr a341 ;jump77
3847 A08A 7E A1 C4 ~.. jmp a1c4 ;goto19
3848 A08D CC B3 B7 ... ldd #b3b7 ; "TUBE TOTAL"
3849 A090 BD C0 BA ... jsr c0ba ;display:
3850 A093 7E A1 C4 ~.. jmp a1c4 ;goto19
3851 A096 CE 00 01 ... ldx #0001
3853 A09A FC 0C F1 ... ldd 0cf1
3854 A09D BD A2 D4 ... jsr a2d4 ;jump79
3856 A0A1 7E A1 C4 ~.. jmp a1c4 ;goto19
3857 A0A4 CC B3 CE ... ldd #b3ce ; "$1 COIN"
3858 A0A7 BD C0 BA ... jsr c0ba ;display:
3859 A0AA 7E A1 C4 ~.. jmp a1c4 ;goto19
3860 A0AD FE 0C E9 ... ldx 0ce9
3862 A0B1 F6 0C DC ... ldab 0cdc
3864 A0B5 BD A3 1A ... jsr a31a ;jump93
3866 A0B9 7E A1 C4 ~.. jmp a1c4 ;goto19
3867 A0BC CC B3 E0 ... ldd #b3e0 ; "QUARTERS"
3868 A0BF BD C0 BA ... jsr c0ba ;display:
3869 A0C2 7E A1 C4 ~.. jmp a1c4 ;goto19
3870 A0C5 FE 0C EB ... ldx 0ceb
3872 A0C9 F6 0C DB ... ldab 0cdb
3874 A0CD BD A3 1A ... jsr a31a ;jump93
3876 A0D1 7E A1 C4 ~.. jmp a1c4 ;goto19
3877 A0D4 CC B3 F2 ... ldd #b3f2 ; "DIMES"
3878 A0D7 BD C0 BA ... jsr c0ba ;display:
3879 A0DA 7E A1 C4 ~.. jmp a1c4 ;goto19
3880 A0DD FE 0C ED ... ldx 0ced
3882 A0E1 F6 0C DA ... ldab 0cda
3884 A0E5 BD A3 1A ... jsr a31a ;jump93
3886 A0E9 7E A1 C4 ~.. jmp a1c4 ;goto19
3887 A0EC CC B4 04 ... ldd #b404 ; "NICKELS"
3888 A0EF BD C0 BA ... jsr c0ba ;display:
3889 A0F2 7E A1 C4 ~.. jmp a1c4 ;goto19
3890 A0F5 FE 0C EF ... ldx 0cef
3892 A0F9 F6 0C D9 ... ldab 0cd9
3894 A0FD BD A3 1A ... jsr a31a ;jump93
3896 A101 7E A1 C4 ~.. jmp a1c4 ;goto19
3897 A104 C6 57 .W ldab #57
3898 A106 F7 0B 99 ... stab 0b99
3899 A109 C6 53 .S ldab #53
3900 A10B F7 0B 98 ... stab 0b98
3901 A10E C6 4E .N ldab #4e
3902 A110 F7 0B 97 ... stab 0b97
3903 A113 C6 4B .K ldab #4b
3904 A115 F7 0B 96 ... stab 0b96
3905 A118 CE 00 00 ... ldx #0000
3907 A11C FC 0D 07 ... ldd 0d07
3908 A11F BD A2 D4 ... jsr a2d4 ;jump79
3910 A123 7E A1 C4 ~.. jmp a1c4 ;goto19
3911 A126 FE 0D 11 ... ldx 0d11
3913 A12A FC 0D 0F ... ldd 0d0f
3914 A12D BD A3 41 ..A jsr a341 ;jump77
3916 A131 7E A1 C4 ~.. jmp a1c4 ;goto19
3917 A134 C6 53 .S ldab #53
3918 A136 F7 0B 99 ... stab 0b99
3919 A139 C6 48 .H ldab #48
3920 A13B F7 0B 98 ... stab 0b98
3921 A13E C6 50 .P ldab #50
3922 A140 F7 0B 97 ... stab 0b97
3923 A143 C6 52 .R ldab #52
3924 A145 F7 0B 96 ... stab 0b96
3925 A148 CE 00 00 ... ldx #0000
3927 A14C FC 0D 09 ... ldd 0d09
3928 A14F BD A2 D4 ... jsr a2d4 ;jump79
3931 A155 FE 0D 15 ... ldx 0d15
3933 A159 FC 0D 13 ... ldd 0d13
3934 A15C BD A3 41 ..A jsr a341 ;jump77
3937 A162 C6 50 .P ldab #50
3938 A164 F7 0B 99 ... stab 0b99
3939 A167 C6 52 .R ldab #52
3940 A169 F7 0B 98 ... stab 0b98
3941 A16C C6 4D .M ldab #4d
3942 A16E F7 0B 97 ... stab 0b97
3943 A171 C6 4F .O ldab #4f
3944 A173 F7 0B 96 ... stab 0b96
3945 A176 CE 00 00 ... ldx #0000
3947 A17A FC 0D 0B ... ldd 0d0b
3948 A17D BD A2 D4 ... jsr a2d4 ;jump79
3951 A183 FE 0D 19 ... ldx 0d19
3953 A187 FC 0D 17 ... ldd 0d17
3954 A18A BD A3 41 ..A jsr a341 ;jump77
3957 A190 C6 46 .F ldab #46
3958 A192 F7 0B 99 ... stab 0b99
3959 A195 C6 52 .R ldab #52
3960 A197 F7 0B 98 ... stab 0b98
3961 A19A C6 45 .E ldab #45
3962 A19C F7 0B 97 ... stab 0b97
3963 A19F C6 45 .E ldab #45
3964 A1A1 F7 0B 96 ... stab 0b96
3965 A1A4 CE 00 00 ... ldx #0000
3967 A1A8 FC 0D 0D ... ldd 0d0d
3968 A1AB BD A2 D4 ... jsr a2d4 ;jump79
3971 A1B1 FE 0D 1D ... ldx 0d1d
3973 A1B5 FC 0D 1B ... ldd 0d1b
3974 A1B8 BD A3 41 ..A jsr a341 ;jump77
3977 A1BE CC B4 84 ... ldd #b484 ; "VENDS/CODE"
3978 A1C1 BD C0 BA ... jsr c0ba ;display:
3980 A1C4 F6 00 48 ..H ldab 0048
3981 A1C7 C1 2E .. cmpb #2e
3982 A1C9 23 74 #t bls 74
3983 A1CB F6 00 48 ..H ldab 0048
3984 A1CE C1 92 .. cmpb #92
3985 A1D0 24 6D $m bcc 6d
3986 A1D2 F6 00 48 ..H ldab 0048
3989 A1D7 C3 08 6C ..l addd #086c
3991 A1DB EC 00 .. ldd 00,x
3992 A1DD C4 80 .. andb #80
3993 A1DF 26 0E &. bne 0e
3994 A1E1 7C 00 48 |.H inc 0048
3995 A1E4 F6 00 48 ..H ldab 0048
3996 A1E7 C1 92 .. cmpb #92
3997 A1E9 26 02 &. bne 02
4000 A1EF F6 00 48 ..H ldab 0048
4002 A1F3 C3 FF D2 ... addd #ffd2
4003 A1F6 BD E7 95 ... jsr e795 ;jump54 - number to string
4004 A1F9 F6 00 5E ..^ ldab 005e
4005 A1FC F7 0B 99 ... stab 0b99
4006 A1FF F6 00 5F .._ ldab 005f
4007 A202 F7 0B 98 ... stab 0b98
4008 A205 F6 00 48 ..H ldab 0048
4011 A20A C3 0C C3 ... addd #0cc3
4013 A20E EC 00 .. ldd 00,x
4014 A210 BD E7 45 ..E jsr e745 ;jump55 - number to string
4015 A213 F6 00 57 ..W ldab 0057
4016 A216 F7 0B 94 ... stab 0b94
4017 A219 F6 00 5A ..Z ldab 005a
4018 A21C F7 0B 93 ... stab 0b93
4019 A21F F6 00 5D ..] ldab 005d
4020 A222 F7 0B 92 ... stab 0b92
4021 A225 F6 00 5E ..^ ldab 005e
4022 A228 F7 0B 91 ... stab 0b91
4023 A22B F6 00 5F .._ ldab 005f
4024 A22E F7 0B 90 ... stab 0b90
4027 A233 8D 27 .' bsr dest 27
4028 A235 F6 00 48 ..H ldab 0048
4029 A238 C1 92 .. cmpb #92
4030 A23A 26 03 &. bne 03
4031 A23C 7F 00 2C .., clr 002c
4032 A23F F6 00 48 ..H ldab 0048
4033 A242 C1 92 .. cmpb #92
4034 A244 26 15 &. bne 15
4035 A246 F6 00 1F ... ldab 001f
4036 A249 C4 10 .. andb #10
4037 A24B 27 08 '. beq 08
4038 A24D CC AF 9A ... ldd #af9a ; "CLR MIS Y"
4039 A250 BD C0 BA ... jsr c0ba ;display:
4041 A255 CC AF A5 ... ldd #afa5 ; "CLR MIS N"
4042 A258 BD C0 BA ... jsr c0ba ;display:
4048 A25E F6 00 2C .., ldab 002c
4049 A261 26 6F &o bne 6f
4050 A263 BD BE 69 ..i jsr be69 ;displayreset
4052 A267 E6 01 .. ldab 01,x
4053 A269 27 5F '_ beq 5f
4054 A26B F6 00 13 ... ldab 0013
4055 A26E C1 01 .. cmpb #01
4056 A270 23 58 #X bls 58
4057 A272 CE 10 28 ..( ldx #1028
4058 A275 1C 00 40 ... bset 00,x, #40
4059 A278 CE 00 01 ... ldx #0001
4061 A27C F6 0B 90 ... ldab 0b90
4063 A280 BD BD B5 ... jsr bdb5 ;jump78
4065 A284 CE 10 28 ..( ldx #1028
4066 A287 1D 00 40 ... bclr 00,x, #40
4067 A28A F6 0B 91 ... ldab 0b91
4068 A28D F7 0B 90 ... stab 0b90
4069 A290 F6 00 13 ... ldab 0013
4070 A293 C1 02 .. cmpb #02
4071 A295 26 07 &. bne 07
4072 A297 C6 2E .. ldab #2e
4073 A299 F7 0B 91 ... stab 0b91
4075 A29E F6 00 13 ... ldab 0013
4076 A2A1 C1 04 .. cmpb #04
4077 A2A3 26 0D &. bne 0d
4078 A2A5 F6 0B 92 ... ldab 0b92
4079 A2A8 F7 0B 91 ... stab 0b91
4080 A2AB C6 2E .. ldab #2e
4081 A2AD F7 0B 92 ... stab 0b92
4083 A2B2 F6 00 13 ... ldab 0013
4084 A2B5 C1 08 .. cmpb #08
4085 A2B7 26 11 &. bne 11
4086 A2B9 F6 0B 92 ... ldab 0b92
4087 A2BC F7 0B 91 ... stab 0b91
4088 A2BF F6 0B 93 ... ldab 0b93
4089 A2C2 F7 0B 92 ... stab 0b92
4090 A2C5 C6 2E .. ldab #2e
4091 A2C7 F7 0B 93 ... stab 0b93
4092 A2CA BD BE 10 ... jsr be10 ;jump88
4093 A2CD C6 03 .. ldab #03
4094 A2CF F7 00 2C .., stab 002c
4099 ; displays a price on screen?
4103 A2D7 EC 00 .. ldd 00,x
4104 A2D9 BD E7 45 ..E jsr e745 ;jump55 - number to string
4105 A2DC F6 00 57 ..W ldab 0057
4106 A2DF F7 0B 94 ... stab 0b94
4107 A2E2 F6 00 5A ..Z ldab 005a
4108 A2E5 F7 0B 93 ... stab 0b93
4109 A2E8 F6 00 5D ..] ldab 005d
4110 A2EB F7 0B 92 ... stab 0b92
4111 A2EE F6 00 5E ..^ ldab 005e
4112 A2F1 F7 0B 91 ... stab 0b91
4113 A2F4 F6 00 5F .._ ldab 005f
4114 A2F7 F7 0B 90 ... stab 0b90
4116 A2FB E6 05 .. ldab 05,x
4117 A2FD 27 14 '. beq 14
4118 A2FF F6 00 17 ... ldab 0017
4119 A302 C4 08 .. andb #08
4120 A304 26 05 &. bne 05 ; to a30b
4121 A306 C6 24 .$ ldab #24 ; "$"
4122 A308 F7 0B 95 ... stab 0b95
4123 A30B CC 00 01 ... ldd #0001
4124 A30E BD A2 5C ..\ jsr a25c ;bigmodulus
4125 A311 20 05 . bra 05 ; return
4128 A315 BD A2 5C ..\ jsr a25c ;bigmodulus
4133 ; write number to display
4137 A31D E6 01 .. ldab 01,x
4139 A320 BD E7 95 ... jsr e795 ;jump54 - number to string
4140 A323 F6 00 5D ..] ldab 005d
4141 A326 F7 0B 99 ... stab 0b99
4142 A329 F6 00 5E ..^ ldab 005e
4143 A32C F7 0B 98 ... stab 0b98
4144 A32F F6 00 5F .._ ldab 005f
4145 A332 F7 0B 97 ... stab 0b97
4146 A335 CE 00 01 ... ldx #0001
4149 A33A EC 06 .. ldd 06,x
4150 A33C 8D 96 .. bsr dest 96
4161 A346 EC 04 .. ldd 04,x
4164 A34A EC 02 .. ldd 02,x
4165 A34C BD E6 21 ..! jsr e621 ;jump56 - write to display
4167 A350 C6 20 . ldab #20 ; " "
4168 A352 F7 0B 99 ... stab 0b99
4169 A355 F6 00 17 ... ldab 0017
4170 A358 C4 08 .. andb #08
4171 A35A 26 05 &. bne 05
4172 A35C C6 24 .$ ldab #24 ; "$"
4173 A35E F7 0B 98 ... stab 0b98
4174 A361 CC 00 01 ... ldd #0001
4175 A364 BD A2 5C ..\ jsr a25c ;bigmodulus
4179 A36A 6E 00 n. jmp 00,x
4182 A36C BD BE 4B ..K jsr be4b ;displayblank
4183 A36F CC AF DC ... ldd #afdc ; "- SAVING -"
4184 A372 BD C0 BA ... jsr c0ba ;display:
4185 A375 CC 01 F4 ... ldd #01f4
4186 A378 BD E5 71 ..q jsr e571 ;msdelay
4190 A37C FC 00 52 ..R ldd 0052
4191 A37F FD 0B B5 ... std 0bb5
4192 A382 8D E8 .. bsr dest e8
4196 A385 F6 00 1F ... ldab 001f
4197 A388 C4 40 .@ andb #40
4198 A38A 27 73 's beq 73
4199 A38C F6 00 06 ... ldab 0006
4202 A391 C3 08 00 ... addd #0800
4204 A395 EC 00 .. ldd 00,x
4206 A398 84 C0 .. anda #c0
4207 A39A FA 00 28 ..( orb 0028
4208 A39D BA 00 27 ..' ora 0027
4209 A3A0 FD 00 27 ..' std 0027
4210 A3A3 FC 00 27 ..' ldd 0027
4213 A3A8 F6 00 06 ... ldab 0006
4216 A3AD C3 08 00 ... addd #0800
4219 A3B2 ED 00 .. std 00,x
4220 A3B4 FC 00 27 ..' ldd 0027
4225 A3BB F6 00 06 ... ldab 0006
4228 A3C0 C3 0B F1 ... addd #0bf1
4231 A3C5 ED 00 .. std 00,x
4232 A3C7 F6 00 06 ... ldab 0006
4235 A3CC C3 08 C8 ... addd #08c8
4237 A3D0 EC 00 .. ldd 00,x
4238 A3D2 C4 80 .. andb #80
4239 A3D4 84 F7 .. anda #f7
4240 A3D6 FA 00 47 ..G orb 0047
4241 A3D9 BA 00 46 ..F ora 0046
4242 A3DC FD 00 46 ..F std 0046
4243 A3DF F6 00 19 ... ldab 0019
4244 A3E2 C4 10 .. andb #10
4245 A3E4 27 06 '. beq 06
4246 A3E6 CE 00 46 ..F ldx #0046
4247 A3E9 1C 00 08 ... bset 00,x, #08
4248 ; set memory location 08c8+(slotnum*2) to value of 0046
4249 A3EC FC 00 46 ..F ldd 0046
4252 A3F1 F6 00 06 ... ldab 0006
4255 A3F6 C3 08 C8 ... addd #08c8
4258 A3FB ED 00 .. std 00,x
4260 A3FF CC 2A FF .*. ldd #2aff ; 00101010 11111111
4263 A404 F6 00 06 ... ldab 0006
4266 A409 C3 08 00 ... addd #0800
4269 A40E ED 00 .. std 00,x
4270 A410 CC D5 00 ... ldd #d500
4273 A415 F6 00 06 ... ldab 0006
4276 A41A C3 0B F1 ... addd #0bf1
4279 A41F ED 00 .. std 00,x
4280 A421 F6 00 1F ... ldab 001f
4281 A424 C4 40 .@ andb #40
4282 A426 27 26 '& beq 26
4283 A428 F6 00 06 ... ldab 0006
4286 A42D C3 08 00 ... addd #0800
4288 A431 EC 00 .. ldd 00,x
4289 A433 C4 FF .. andb #ff
4290 A435 84 3F .? anda #3f
4291 A437 FD 00 27 ..' std 0027
4292 A43A F6 00 06 ... ldab 0006
4295 A43F C3 08 C8 ... addd #08c8
4297 A443 EC 00 .. ldd 00,x
4298 A445 C4 7F .. andb #7f
4300 A448 FD 00 46 ..F std 0046
4301 A44B BD A3 6C ..l jsr a36c ;jump81
4305 A44F FC 00 0D ... ldd 000d
4306 A452 FD 0B B7 ... std 0bb7
4307 A455 BD A3 6C ..l jsr a36c ;jump81
4311 ; some sort of defaults setting loading? plays with 0067 an awful lot
4313 A45A F6 00 67 ..g ldab 0067
4314 A45D C4 02 .. andb #02
4315 A45F 27 08 '. beq 08
4316 A461 CE 00 67 ..g ldx #0067
4317 A464 1D 00 4D ... bclr 00,x, #4D
4319 A469 CE 00 67 ..g ldx #0067
4320 A46C 1D 00 10 ... bclr 00,x, #10
4321 A46F CE 00 67 ..g ldx #0067
4322 A472 1D 00 .. bclr add,x 00,x
4325 A477 67 C4 g. asr c4,x
4327 A47A 26 06 &. bne 06
4328 A47C CE 00 67 ..g ldx #0067
4329 A47F 1D 00 .. bclr add,x 00,x
4332 A484 67 C4 g. asr c4,x
4334 A487 27 14 '. beq 14
4335 A489 CE 00 67 ..g ldx #0067
4336 A48C 1D 00 02 ... bclr 00,x, #02
4337 A48F CE 00 67 ..g ldx #0067
4338 A492 1D 00 10 ... bclr 00,x, #10
4339 A495 CE 00 67 ..g ldx #0067
4340 A498 1D 00 .. bclr add,x 00,x
4343 A49D CE 00 67 ..g ldx #0067
4344 A4A0 1D 00 08 ... bclr 00,x, #08
4345 A4A3 F6 00 67 ..g ldab 0067
4346 A4A6 C4 04 .. andb #04
4347 A4A8 27 12 '. beq 12
4348 A4AA CE 00 67 ..g ldx #0067
4349 A4AD 1D 00 02 ... bclr 00,x, #02
4350 A4B0 CE 00 67 ..g ldx #0067
4351 A4B3 1D 00 10 .. bclr 00,x, #10
4352 A4B6 CE 00 67 ..g ldx #0067
4353 A4B9 1D 00 20 .. bclr 00,x, #20
4354 A4BC F6 00 67 ... ldab 0067
4355 A4BF C4 08 .. andb #08
4356 A4C1 26 06 &. bne 06
4357 A4C3 CE 00 67 ..g ldx #0067
4358 A4C6 1D 00 40 ..@ bclr 00,x, #40
4359 A4C9 F6 00 67 ..g ldab 0067
4360 A4CC F7 0B C0 ... stab 0bc0
4361 A4CF F6 0E 70 ..p ldab 0e70
4362 A4D2 F7 0E 6E ..n stab 0e6e
4363 A4D5 F6 0E 6D ..m ldab 0e6d
4364 A4D8 26 39 &9 bne 39
4365 A4DA F6 0E 6F ..o ldab 0e6f
4366 A4DD 27 34 '4 beq 34
4367 A4DF 7F 00 06 ... clr 0006
4368 A4E2 F6 00 06 ... ldab 0006
4369 A4E5 C1 3F .? cmpb #3f
4370 A4E7 24 2A $* bcc 2a
4371 A4E9 F6 00 06 ... ldab 0006
4373 A4ED CE 00 05 ... ldx #0005
4376 A4F2 27 1A '. beq 1a
4377 A4F4 F6 00 06 ... ldab 0006
4379 A4F8 C3 08 00 ... addd #0800
4381 A4FC ED 00 .. std 00,x
4382 A4FE EC 00 .. ldd 00,x
4385 A502 F6 00 06 ... ldab 0006
4388 A507 C3 08 C8 ... addd #08c8
4391 A50C ED 00 .. std 00,x
4392 A50E 7C 00 06 |.. inc 0006
4394 A513 F6 0E 6F ..o ldab 0e6f
4395 A516 F7 0E 6D ..m stab 0e6d
4396 A519 BD A3 6C ..l jsr a36c ;jump81
4401 A51E F6 00 22 .." ldab 0022
4403 A522 BD FE 16 ... jsr fe16 ;jump2
4408 A529 A5 79 .y bita 79,x
4409 A52B A5 35 .5 bita 35,x
4410 A52D A5 43 .C bita 43,x
4411 A52F A5 51 .Q bita 51,x
4412 A531 A5 5F ._ bita 5f,x
4413 A533 A5 6D .m bita 6d,x
4414 A535 F6 00 24 ..$ ldab 0024
4415 A538 F7 0B AF ... stab 0baf
4416 A53B F6 00 2A ..* ldab 002a
4417 A53E F7 0B B4 ... stab 0bb4
4419 A543 F6 00 24 ..$ ldab 0024
4420 A546 F7 0B AE ... stab 0bae
4421 A549 F6 00 2A ..* ldab 002a
4422 A54C F7 0B B3 ... stab 0bb3
4424 A551 F6 00 24 ..$ ldab 0024
4425 A554 F7 0B AD ... stab 0bad
4426 A557 F6 00 2A ..* ldab 002a
4427 A55A F7 0B B2 ... stab 0bb2
4429 A55F F6 00 24 ..$ ldab 0024
4430 A562 F7 0B AC ... stab 0bac
4431 A565 F6 00 2A ..* ldab 002a
4432 A568 F7 0B B1 ... stab 0bb1
4434 A56D F6 00 24 ..$ ldab 0024
4435 A570 F7 0B AB ... stab 0bab
4436 A573 F6 00 2A ..* ldab 002a
4437 A576 F7 0B B0 ... stab 0bb0
4438 A579 BD A3 6C ..l jsr a36c ;jump81
4442 A57D 7F 00 54 ..T clr 0054
4443 A580 F6 00 54 ..T ldab 0054
4444 A583 C1 FF .. cmpb #ff
4445 A585 24 1B $. bcc 1b
4446 A587 F6 00 54 ..T ldab 0054
4448 A58B C3 0A 90 ... addd #0a90
4450 A58F E6 00 .. ldab 00,x
4452 A592 F6 00 54 ..T ldab 0054
4454 A596 C3 09 90 ... addd #0990
4457 A59B E7 00 .. stab 00,x
4458 A59D 7C 00 54 |.T inc 0054
4460 A5A2 F6 00 61 ..a ldab 0061
4461 A5A5 F7 0B BF ... stab 0bbf
4462 A5A8 BD A3 6C ..l jsr a36c ;jump81
4466 A5AC 7F 00 54 ..T clr 0054
4467 A5AF F6 00 54 ..T ldab 0054
4468 A5B2 C1 10 .. cmpb #10
4469 A5B4 24 1B $. bcc 1b
4470 A5B6 F6 00 54 ..T ldab 0054
4472 A5BA C3 0A 90 ... addd #0a90
4474 A5BE E6 00 .. ldab 00,x
4476 A5C1 F6 00 54 ..T ldab 0054
4478 A5C5 C3 0C B9 ... addd #0cb9
4481 A5CA E7 00 .. stab 00,x
4482 A5CC 7C 00 54 |.T inc 0054
4484 A5D1 BD A3 6C ..l jsr a36c ;jump81
4488 A5D5 7F 00 54 ..T clr 0054
4489 A5D8 F6 00 54 ..T ldab 0054
4490 A5DB C1 10 .. cmpb #10
4491 A5DD 24 1B $. bcc 1b
4492 A5DF F6 00 54 ..T ldab 0054
4494 A5E3 C3 0A 90 ... addd #0a90
4496 A5E7 E6 00 .. ldab 00,x
4498 A5EA F6 00 54 ..T ldab 0054
4500 A5EE C3 0C C9 ... addd #0cc9
4503 A5F3 E7 00 .. stab 00,x
4504 A5F5 7C 00 54 |.T inc 0054
4506 A5FA BD A3 6C ..l jsr a36c ;jump81
4510 A5FE 7F 00 54 ..T clr 0054
4511 A601 F6 00 54 ..T ldab 0054
4512 A604 C1 05 .. cmpb #05
4513 A606 24 1B $. bcc 1b
4514 A608 F6 00 54 ..T ldab 0054
4516 A60C C3 00 62 ..b addd #0062
4518 A610 E6 00 .. ldab 00,x
4520 A613 F6 00 54 ..T ldab 0054
4522 A617 C3 0B A4 ... addd #0ba4
4525 A61C E7 00 .. stab 00,x
4526 A61E 7C 00 54 |.T inc 0054
4528 A623 7F 00 54 ..T clr 0054
4529 A626 F6 00 54 ..T ldab 0054
4530 A629 C1 0B .. cmpb #0b
4531 A62B 24 1B $. bcc 1b
4532 A62D F6 00 54 ..T ldab 0054
4534 A631 C3 00 68 ..h addd #0068
4536 A635 E6 00 .. ldab 00,x
4538 A638 F6 00 54 ..T ldab 0054
4540 A63C C3 0B E4 ... addd #0be4
4543 A641 E7 00 .. stab 00,x
4544 A643 7C 00 54 |.T inc 0054
4546 A648 8D 04 .. bsr dest 04
4547 A64A BD A3 6C ..l jsr a36c ;jump81
4551 A64E BD AB 0C ... jsr ab0c ;jump126
4552 A651 C6 20 . ldab #20
4553 A653 F7 0B A3 ... stab 0ba3
4554 A656 C6 20 . ldab #20
4555 A658 F7 0B 9A ... stab 0b9a
4556 A65B C6 01 .. ldab #01
4557 A65D F7 00 54 ..T stab 0054
4559 A660 F6 00 54 ..T ldab 0054
4560 A663 C1 09 .. cmpb #09
4561 A665 25 03 %. bcs 03
4562 A667 7E A7 1E ~.. jmp a71e ;goto20
4563 A66A F6 00 54 ..T ldab 0054
4565 A66E BD FE 16 ... jsr fe16 ;jump2
4566 A671 00 01 00 07 . test
4576 A687 F6 00 62 ..b ldab 0062
4581 A68E C8 04 .. eorb #04
4582 A690 F7 00 5F .._ stab 005f
4584 A695 F6 00 62 ..b ldab 0062
4585 A698 C4 0F .. andb #0f
4586 A69A C8 0D .. eorb #0d
4587 A69C F7 00 5F .._ stab 005f
4589 A6A1 F6 00 63 ..c ldab 0063
4594 A6A8 C8 04 .. eorb #04
4595 A6AA F7 00 5F .._ stab 005f
4597 A6AF F6 00 63 ..c ldab 0063
4598 A6B2 C4 0F .. andb #0f
4599 A6B4 C8 05 .. eorb #05
4600 A6B6 F7 00 5F .._ stab 005f
4602 A6BB F6 00 64 ..d ldab 0064
4607 A6C2 C8 05 .. eorb #05
4608 A6C4 F7 00 5F .._ stab 005f
4610 A6C9 F6 00 64 ..d ldab 0064
4611 A6CC C4 0F .. andb #0f
4612 A6CE C8 04 .. eorb #04
4613 A6D0 F7 00 5F .._ stab 005f
4615 A6D5 F6 00 65 ..e ldab 0065
4620 A6DC C8 05 .. eorb #05
4621 A6DE F7 00 5F .._ stab 005f
4623 A6E3 F6 00 65 ..e ldab 0065
4624 A6E6 C4 0F .. andb #0f
4625 A6E8 C8 03 .. eorb #03
4626 A6EA F7 00 5F .._ stab 005f
4627 A6ED F6 00 5F .._ ldab 005f
4628 A6F0 C1 09 .. cmpb #09
4629 A6F2 23 13 #. bls 13
4630 A6F4 F6 00 5F .._ ldab 005f
4631 A6F7 CB 37 .7 addb #37
4633 A6FA F6 00 54 ..T ldab 0054
4635 A6FE C3 0B 9A ... addd #0b9a
4638 A703 E7 00 .. stab 00,x
4640 A707 F6 00 5F .._ ldab 005f
4641 A70A CB 30 .0 addb #30
4643 A70D F6 00 54 ..T ldab 0054
4645 A711 C3 0B 9A ... addd #0b9a
4648 A716 E7 00 .. stab 00,x
4649 A718 7C 00 54 |.T inc 0054
4650 A71B 7E A6 60 ~.` jmp a660 ;goto21
4655 A71F F6 00 48 ..H ldab 0048
4656 A722 26 11 &. bne 11
4657 A724 F6 00 66 ..f ldab 0066
4658 A727 26 07 &. bne 07
4659 A729 C6 01 .. ldab #01
4660 A72B F7 00 66 ..f stab 0066
4662 A730 7F 00 66 ..f clr 0066
4664 A735 F6 00 48 ..H ldab 0048
4666 A739 C3 00 68 ..h addd #0068
4668 A73D E6 00 .. ldab 00,x
4669 A73F 26 10 &. bne 10
4670 A741 C6 01 .. ldab #01
4672 A744 F6 00 48 ..H ldab 0048
4674 A748 C3 00 68 ..h addd #0068
4677 A74D E7 00 .. stab 00,x
4681 A753 F6 00 48 ..H ldab 0048
4683 A757 C3 00 68 ..h addd #0068
4686 A75C E7 00 .. stab 00,x
4690 A75F F6 00 48 ..H ldab 0048
4692 A763 BD FE 16 ... jsr fe16 ;jump2
4693 A766 00 00 00 09 . test
4706 A780 C6 02 .. ldab #02
4707 A782 F7 00 02 ... stab 0002
4710 A787 C6 10 .. ldab #10
4711 A789 F7 00 02 ... stab 0002
4713 A78E C6 20 . ldab #20
4714 A790 F7 00 02 ... stab 0002
4716 A795 C6 01 .. ldab #01
4717 A797 F7 00 02 ... stab 0002
4719 A79C C6 04 .. ldab #04
4720 A79E F7 00 02 ... stab 0002
4722 A7A3 C6 08 .. ldab #08
4723 A7A5 F7 00 02 ... stab 0002
4725 A7AA C6 40 .@ ldab #40
4726 A7AC F7 00 02 ... stab 0002
4728 A7B1 F6 0E 70 ..p ldab 0e70
4729 A7B4 C1 01 .. cmpb #01
4730 A7B6 26 05 &. bne 05
4731 A7B8 7F 0E 70 ..p clr 0e70
4733 A7BD C6 01 .. ldab #01
4734 A7BF F7 0E 70 ..p stab 0e70
4736 A7C4 F6 0E 6F ..o ldab 0e6f
4737 A7C7 C1 01 .. cmpb #01
4738 A7C9 26 05 &. bne 05
4739 A7CB 7F 0E 6F ..o clr 0e6f
4741 A7D0 C6 01 .. ldab #01
4742 A7D2 F7 0E 6F ..o stab 0e6f
4744 A7D7 C6 80 .. ldab #80
4745 A7D9 F7 00 02 ... stab 0002
4746 A7DC F6 00 48 ..H ldab 0048
4747 A7DF C1 0A .. cmpb #0a
4748 A7E1 24 2B $+ bcc 2b
4749 A7E3 F6 00 48 ..H ldab 0048
4750 A7E6 C1 07 .. cmpb #07
4751 A7E8 27 24 '$ beq 24
4752 A7EA F6 00 48 ..H ldab 0048
4753 A7ED C1 08 .. cmpb #08
4754 A7EF 27 1D '. beq 1d
4755 A7F1 F6 00 67 ..g ldab 0067
4756 A7F4 F4 00 02 ... andb 0002
4757 A7F7 26 0B &. bne 0b
4758 A7F9 F6 00 02 ... ldab 0002
4759 A7FC FA 00 67 ..g orb 0067
4760 A7FF F7 00 67 ..g stab 0067
4762 A804 F6 00 02 ... ldab 0002
4764 A808 F4 00 67 ..g andb 0067
4765 A80B F7 00 67 ..g stab 0067
4768 A80F 7F 00 54 ..T clr 0054
4769 A812 F6 00 54 ..T ldab 0054
4770 A815 C1 04 .. cmpb #04
4771 A817 24 4A $J bcc 4a
4772 A819 CC 01 F4 ... ldd #01f4
4773 A81C BD E5 71 ..q jsr e571 ;msdelay
4774 A81F F6 0B 93 ... ldab 0b93
4775 A822 F7 00 5F .._ stab 005f
4776 A825 F6 0B 94 ... ldab 0b94
4777 A828 F7 00 5E ..^ stab 005e
4778 A82B F6 0B 95 ... ldab 0b95
4779 A82E F7 00 5D ..] stab 005d
4780 A831 F6 0B 96 ... ldab 0b96
4781 A834 F7 00 5A ..Z stab 005a
4782 A837 BD BE 4B ..K jsr be4b ;displayblank
4783 A83A BD BE 01 ... jsr be01 ;jump70
4784 A83D CC 01 F4 ... ldd #01f4
4785 A840 BD E5 71 ..q jsr e571 ;msdelay
4786 A843 F6 00 5F .._ ldab 005f
4787 A846 F7 0B 93 ... stab 0b93
4788 A849 F6 00 5E ..^ ldab 005e
4789 A84C F7 0B 94 ... stab 0b94
4790 A84F F6 00 5D ..] ldab 005d
4791 A852 F7 0B 95 ... stab 0b95
4792 A855 F6 00 5A ..Z ldab 005a
4793 A858 F7 0B 96 ... stab 0b96
4794 A85B BD BE 01 ... jsr be01 ;jump70
4795 A85E 7C 00 54 |.T inc 0054
4800 A864 F6 00 09 ... ldab 0009
4801 A867 C1 01 .. cmpb #01
4803 A86B F6 00 61 ..a ldab 0061
4805 A86F C3 00 01 ... addd #0001
4808 A874 F6 00 60 ..` ldab 0060
4811 A879 A3 00 .. subd 00,x
4814 A87D 2C 0A ,. bge 0a
4815 A87F F6 00 60 ..` ldab 0060
4816 A882 C1 F9 .. cmpb #f9 ; -7
4817 A884 24 03 $. bcc 03
4818 A886 7C 00 60 |.` inc 0060
4820 A88B F6 00 60 ..` ldab 0060
4821 A88E C1 09 .. cmpb #09
4822 A890 24 03 $. bcc 03
4823 A892 7C 00 60 |.` inc 0060
4827 A896 F6 00 36 ..6 ldab 0036
4828 A899 26 39 &9 bne 39
4829 A89B F6 00 54 ..T ldab 0054
4830 A89E C1 27 .' cmpb #27 ; 39
4832 A8A2 7C 00 54 |.T inc 0054
4833 A8A5 F6 00 09 ... ldab 0009
4834 A8A8 C1 01 .. cmpb #01
4835 A8AA 26 0C &. bne 0c
4836 A8AC F6 00 54 ..T ldab 0054
4837 A8AF C1 27 .' cmpb #27 ; 39
4838 A8B1 26 03 &. bne 03
4839 A8B3 7F 00 54 ..T clr 0054
4841 A8B8 F6 00 54 ..T ldab 0054
4842 A8BB C1 24 .$ cmpb #24 ; 36
4843 A8BD 26 03 &. bne 03
4844 A8BF 7F 00 54 ..T clr 0054
4845 A8C2 F6 00 54 ..T ldab 0054
4847 A8C6 C3 B4 8F ... addd #b48f
4849 A8CA E6 00 .. ldab 00,x
4850 A8CC F7 0B 90 ... stab 0b90
4851 A8CF C6 02 .. ldab #02
4852 A8D1 F7 00 36 ..6 stab 0036
4856 A8D5 F6 00 60 ..` ldab 0060
4857 A8D8 C1 00 .. cmpb #00
4858 A8DA 23 05 #. bls 05
4859 A8DC 7A 00 60 z.` dec 0060
4861 A8E1 7F 00 60 ..` clr 0060
4865 A8E5 F6 00 36 ..6 ldab 0036
4866 A8E8 26 36 &6 bne 36
4867 A8EA F6 00 54 ..T ldab 0054
4868 A8ED C1 00 .. cmpb #00
4869 A8EF 25 1D %. bcs 1d
4870 A8F1 F6 00 54 ..T ldab 0054
4871 A8F4 26 15 &. bne 15
4872 A8F6 F6 00 09 ... ldab 0009
4873 A8F9 C1 01 .. cmpb #01
4874 A8FB 26 07 &. bne 07
4875 A8FD C6 26 .& ldab #26
4876 A8FF F7 00 54 ..T stab 0054
4878 A904 C6 23 .# ldab #23
4879 A906 F7 00 54 ..T stab 0054
4881 A90B 7A 00 54 z.T dec 0054
4882 A90E F6 00 54 ..T ldab 0054
4884 A912 C3 B4 8F ... addd #b48f
4886 A916 E6 00 .. ldab 00,x
4887 A918 F7 0B 90 ... stab 0b90
4888 A91B C6 02 .. ldab #02
4889 A91D F7 00 36 ..6 stab 0036
4893 A921 F6 0B 90 ... ldab 0b90
4894 A924 F7 0B 96 ... stab 0b96
4895 A927 F6 0B 96 ... ldab 0b96
4897 A92B F6 00 60 ..` ldab 0060
4899 A92F C3 0A 93 ... addd #0a93
4902 A934 E7 00 .. stab 00,x
4903 A936 F6 00 09 ... ldab 0009
4904 A939 C1 01 .. cmpb #01
4905 A93B 26 32 &2 bne 32
4906 A93D F6 00 61 ..a ldab 0061
4908 A941 C3 00 01 ... addd #0001
4911 A946 F6 00 60 ..` ldab 0060
4914 A94B A3 00 .. subd 00,x
4917 A94F 26 0A &. bne 0a
4918 A951 F6 00 60 ..` ldab 0060
4919 A954 C1 FA .. cmpb #fa
4920 A956 24 03 $. bcc 03
4921 A958 7C 00 61 |.a inc 0061
4922 A95B F6 00 60 ..` ldab 0060
4923 A95E F1 00 61 ..a cmpb 0061
4924 A961 22 0A ". bhi 0a
4925 A963 F6 00 60 ..` ldab 0060
4926 A966 C1 F9 .. cmpb #f9
4927 A968 24 03 $. bcc 03
4928 A96A 7C 00 60 |.` inc 0060
4930 A96F F6 00 60 ..` ldab 0060
4931 A972 C1 09 .. cmpb #09
4932 A974 24 03 $. bcc 03
4933 A976 7C 00 60 |.` inc 0060
4937 A97A F6 00 60 ..` ldab 0060
4938 A97D 26 24 &$ bne 24
4939 A97F F6 00 60 ..` ldab 0060
4940 A982 CB 03 .. addb #03
4941 A984 F7 00 54 ..T stab 0054
4942 A987 F6 00 54 ..T ldab 0054
4943 A98A C1 FF .. cmpb #ff
4944 A98C 24 13 $. bcc 13
4945 A98E C6 20 . ldab #20
4947 A991 F6 00 54 ..T ldab 0054
4949 A995 C3 0A 90 ... addd #0a90
4952 A99A E7 00 .. stab 00,x
4953 A99C 7C 00 54 |.T inc 0054
4956 A9A3 F6 00 60 ..` ldab 0060
4957 A9A6 CB 04 .. addb #04
4958 A9A8 F7 00 54 ..T stab 0054
4959 A9AB F6 00 54 ..T ldab 0054
4960 A9AE C1 FF .. cmpb #ff
4961 A9B0 24 13 $. bcc 13
4962 A9B2 C6 20 . ldab #20
4964 A9B5 F6 00 54 ..T ldab 0054
4966 A9B9 C3 0A 90 ... addd #0a90
4969 A9BE E7 00 .. stab 00,x
4970 A9C0 7C 00 54 |.T inc 0054
4972 A9C5 F6 00 60 ..` ldab 0060
4973 A9C8 F7 00 61 ..a stab 0061
4974 A9CB 7F 00 54 ..T clr 0054
4978 A9CF C6 50 .P ldab #50
4979 A9D1 F7 09 90 ... stab 0990
4980 A9D4 C6 29 .) ldab #29
4981 A9D6 F7 09 91 ... stab 0991
4982 A9D9 C6 20 . ldab #20
4983 A9DB F7 09 92 ... stab 0992
4984 A9DE 7F 00 54 ..T clr 0054
4985 A9E1 F6 00 54 ..T ldab 0054
4986 A9E4 C1 FF .. cmpb #ff
4987 A9E6 24 1B $. bcc 1b
4988 A9E8 F6 00 54 ..T ldab 0054
4990 A9EC C3 09 90 ... addd #0990
4992 A9F0 E6 00 .. ldab 00,x
4994 A9F3 F6 00 54 ..T ldab 0054
4996 A9F7 C3 0A 90 ... addd #0a90
4999 A9FC E7 00 .. stab 00,x
5000 A9FE 7C 00 54 |.T inc 0054
5002 AA03 F6 0B BF ... ldab 0bbf
5003 AA06 F7 00 61 ..a stab 0061
5007 AA0A C6 53 .S ldab #53 ; 'S'
5008 AA0C F7 0C B9 ... stab 0cb9
5009 AA0F C6 29 .) ldab #29 ; ')'
5010 AA11 F7 0C BA ... stab 0cba
5011 AA14 C6 20 . ldab #20 ; ' '
5012 AA16 F7 0C BB ... stab 0cbb
5013 AA19 7F 00 54 ..T clr 0054
5014 AA1C F6 00 54 ..T ldab 0054
5015 AA1F C1 10 .. cmpb #10
5016 AA21 24 1B $. bcc 1b
5017 AA23 F6 00 54 ..T ldab 0054
5019 AA27 C3 0C B9 ... addd #0cb9
5021 AA2B E6 00 .. ldab 00,x
5023 AA2E F6 00 54 ..T ldab 0054
5025 AA32 C3 0A 90 ... addd #0a90
5028 AA37 E7 00 .. stab 00,x
5029 AA39 7C 00 54 |.T inc 0054
5034 AA3F C6 49 .I ldab #49
5035 AA41 F7 0C C9 ... stab 0cc9
5036 AA44 C6 29 .) ldab #29
5037 AA46 F7 0C CA ... stab 0cca
5038 AA49 C6 20 . ldab #20
5039 AA4B F7 0C CB ... stab 0ccb
5040 AA4E 7F 00 54 ..T clr 0054
5041 AA51 F6 00 54 ..T ldab 0054
5042 AA54 C1 10 .. cmpb #10
5043 AA56 24 1B $. bcc 1b
5044 AA58 F6 00 54 ..T ldab 0054
5046 AA5C C3 0C C9 ... addd #0cc9
5048 AA60 E6 00 .. ldab 00,x
5050 AA63 F6 00 54 ..T ldab 0054
5052 AA67 C3 0A 90 ... addd #0a90
5055 AA6C E7 00 .. stab 00,x
5056 AA6E 7C 00 54 |.T inc 0054
5061 AA74 7F 00 54 ..T clr 0054
5062 AA77 F6 00 54 ..T ldab 0054
5063 AA7A C1 0B .. cmpb #0b
5064 AA7C 24 1B $. bcc 1b
5065 AA7E F6 00 54 ..T ldab 0054
5067 AA82 C3 0B E4 ... addd #0be4
5069 AA86 E6 00 .. ldab 00,x
5071 AA89 F6 00 54 ..T ldab 0054
5073 AA8D C3 00 68 ..h addd #0068
5076 AA92 E7 00 .. stab 00,x
5077 AA94 7C 00 54 |.T inc 0054
5082 AA9A F6 00 22 .." ldab 0022
5083 AA9D C1 06 .. cmpb #06
5084 AA9F 24 0F $. bcc 0f
5085 AAA1 7C 00 22 |." inc 0022
5086 AAA4 F6 00 22 .." ldab 0022
5087 AAA7 C1 05 .. cmpb #05
5088 AAA9 23 05 #. bls 05
5089 AAAB C6 01 .. ldab #01
5090 AAAD F7 00 22 .." stab 0022
5091 AAB0 F6 00 22 .." ldab 0022
5093 AAB4 BD FE 16 ... jsr fe16 ;jump2
5098 AABB AB 0B .. adda 0b,x
5099 AABD AA C7 .. ora c7,x
5100 AABF AA D5 .. ora d5,x
5101 AAC1 AA E3 .. ora e3,x
5102 AAC3 AA F1 .. ora f1,x
5103 AAC5 AA FF .. ora ff,x
5104 AAC7 F6 0B AF ... ldab 0baf
5105 AACA F7 00 24 ..$ stab 0024
5106 AACD F6 0B B4 ... ldab 0bb4
5107 AAD0 F7 00 2A ..* stab 002a
5109 AAD5 F6 0B AE ... ldab 0bae
5110 AAD8 F7 00 24 ..$ stab 0024
5111 AADB F6 0B B3 ... ldab 0bb3
5112 AADE F7 00 2A ..* stab 002a
5114 AAE3 F6 0B AD ... ldab 0bad
5115 AAE6 F7 00 24 ..$ stab 0024
5116 AAE9 F6 0B B2 ... ldab 0bb2
5117 AAEC F7 00 2A ..* stab 002a
5119 AAF1 F6 0B AC ... ldab 0bac
5120 AAF4 F7 00 24 ..$ stab 0024
5121 AAF7 F6 0B B1 ... ldab 0bb1
5122 AAFA F7 00 2A ..* stab 002a
5124 AAFF F6 0B AB ... ldab 0bab
5125 AB02 F7 00 24 ..$ stab 0024
5126 AB05 F6 0B B0 ... ldab 0bb0
5127 AB08 F7 00 2A ..* stab 002a
5131 AB0C C6 03 .. ldab #03
5132 AB0E F7 00 18 ... stab 0018
5133 AB11 7F 00 1C ... clr 001c
5134 AB14 F6 00 1C ... ldab 001c
5135 AB17 C1 04 .. cmpb #04
5136 AB19 24 6D $m bcc 6d
5137 AB1B C6 07 .. ldab #07
5138 AB1D F7 00 55 ..U stab 0055
5139 AB20 7F 00 54 ..T clr 0054
5140 AB23 F6 00 54 ..T ldab 0054
5141 AB26 C1 08 .. cmpb #08
5142 AB28 24 56 $V bcc 56
5143 AB2A F6 00 1C ... ldab 001c
5145 AB2E C3 0B A4 ... addd #0ba4
5147 AB32 E6 00 .. ldab 00,x
5149 AB35 F6 00 54 ..T ldab 0054
5151 AB39 C3 B4 B7 ... addd #b4b7
5153 AB3D E6 00 .. ldab 00,x
5155 AB40 E4 00 .. andb 00,x
5157 AB43 27 1A '. beq 1a
5158 AB45 F6 00 55 ..U ldab 0055
5160 AB49 C3 B4 B7 ... addd #b4b7
5162 AB4D E6 00 .. ldab 00,x
5164 AB50 F6 00 18 ... ldab 0018
5166 AB54 C3 00 62 ..b addd #0062
5169 AB59 EA 00 .. orb 00,x
5170 AB5B E7 00 .. stab 00,x
5172 AB5F F6 00 55 ..U ldab 0055
5174 AB63 C3 B4 B7 ... addd #b4b7
5176 AB67 E6 00 .. ldab 00,x
5179 AB6B F6 00 18 ... ldab 0018
5181 AB6F C3 00 62 ..b addd #0062
5184 AB74 E4 00 .. andb 00,x
5185 AB76 E7 00 .. stab 00,x
5186 AB78 7A 00 55 z.U dec 0055
5187 AB7B 7C 00 54 |.T inc 0054
5189 AB80 7A 00 18 z.. dec 0018
5190 AB83 7C 00 1C |.. inc 001c
5195 AB89 CC B0 8C ... ldd #b08c ; "NO ERRORS"
5196 AB8C BD C0 BA ... jsr c0ba ;display:
5197 AB8F CC 01 F4 ... ldd #01f4
5198 AB92 BD E5 71 ..q jsr e571 ;msdelay
5199 AB95 BD D4 79 ..y jsr d479 ;jump67
5200 AB98 BD E8 9A ... jsr e89a ;jump68
5201 AB9B BD E9 EA ... jsr e9ea ;jump113
5202 AB9E 7F 0B C1 ... clr 0bc1 ; clear all errors
5206 ABA2 7F 00 05 ... clr 0005
5208 ABA5 F6 00 05 ... ldab 0005
5209 ABA8 C1 64 .d cmpb #64
5210 ABAA 25 03 %. bcs 03
5211 ABAC 7E AC 81 ~.. jmp ac81 ;goto22
5212 ABAF F6 00 05 ... ldab 0005
5213 ABB2 F7 00 06 ... stab 0006
5214 ABB5 F6 00 05 ... ldab 0005
5216 ABB9 CE 00 05 ... ldx #0005
5219 ABBE 26 03 &. bne 03
5220 ABC0 7E AC 7B ~.{ jmp ac7b ;goto23
5221 ABC3 F6 00 06 ... ldab 0006
5222 ABC6 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
5223 ABC9 83 00 00 ... subd #0000
5224 ABCC 27 03 '. beq 03
5225 ABCE 7E AC 7B ~.{ jmp ac7b ;goto23
5226 ABD1 BD D3 11 ... jsr d311 ;jump30 - test position exists
5227 ABD4 83 00 00 ... subd #0000
5228 ABD7 27 2B '+ beq 2b
5229 ABD9 F6 00 05 ... ldab 0005
5232 ABDE C3 08 00 ... addd #0800
5234 ABE2 EC 00 .. ldd 00,x
5235 ABE4 C4 FF .. andb #ff
5236 ABE6 84 3F .? anda #3f
5237 ABE8 83 27 10 .'. subd #2710 ; 10000
5238 ABEB 24 15 $. bcc 15
5239 ABED CC 01 00 ... ldd #0100
5242 ABF2 F6 00 05 ... ldab 0005
5245 ABF7 C3 08 C8 ... addd #08c8
5248 ABFC AA 00 .. ora 00,x
5249 ABFE EA 01 .. orb 01,x
5250 AC00 ED 00 .. std 00,x
5252 AC04 F6 00 05 ... ldab 0005
5255 AC09 C3 08 00 ... addd #0800
5257 AC0D EC 00 .. ldd 00,x
5258 AC0F C4 FF .. andb #ff
5259 AC11 84 3F .? anda #3f
5260 AC13 83 27 0F .'. subd #270f
5261 AC16 23 15 #. bls 15
5262 AC18 CC 01 00 ... ldd #0100
5265 AC1D F6 00 05 ... ldab 0005
5268 AC22 C3 08 C8 ... addd #08c8
5271 AC27 AA 00 .. ora 00,x
5272 AC29 EA 01 .. orb 01,x
5273 AC2B ED 00 .. std 00,x
5274 AC2D F6 00 05 ... ldab 0005
5277 AC32 C3 08 C8 ... addd #08c8
5279 AC36 EC 00 .. ldd 00,x
5280 AC38 84 01 .. anda #01
5281 AC3A 27 06 '. beq 06
5282 AC3C CE 00 19 ... ldx #0019
5283 AC3F 1C 00 04 ... bset 00,x, #04
5284 AC42 F6 00 05 ... ldab 0005
5287 AC47 C3 08 00 ... addd #0800
5289 AC4B EC 00 .. ldd 00,x
5290 AC4D 84 80 .. anda #80
5291 AC4F 27 2A '* beq 2a
5292 AC51 F6 00 05 ... ldab 0005
5295 AC56 C3 08 C8 ... addd #08c8
5297 AC5A EC 00 .. ldd 00,x
5298 AC5C 84 02 .. anda #02
5299 AC5E 27 06 '. beq 06
5300 AC60 CE 00 19 ... ldx #0019
5301 AC63 1C 00 01 ... bset 00,x, #01
5302 AC66 F6 00 05 ... ldab 0005
5305 AC6B C3 08 C8 ... addd #08c8
5307 AC6F EC 00 .. ldd 00,x
5308 AC71 84 04 .. anda #04
5309 AC73 27 06 '. beq 06
5310 AC75 CE 00 19 ... ldx #0019
5311 AC78 1C 00 02 ... bset 00,x, #02
5313 AC7B 7C 00 05 |.. inc 0005
5314 AC7E 7E AB A5 ~.. jmp aba5 ;goto24
5316 AC81 F6 00 19 ... ldab 0019
5317 AC84 C4 07 .. andb #07
5318 AC86 26 0A &. bne 0a
5319 AC88 F6 0B C1 ... ldab 0bc1
5320 AC8B C4 7F .. andb #7f ; have errors?
5321 AC8D 26 03 &. bne 03
5324 AC92 C6 01 .. ldab #01
5326 AC95 26 05 &. bne 05
5327 AC97 C6 0D .. ldab #0d
5328 AC99 F7 00 48 ..H stab 0048
5767 AEBE 24 35 $5 bcc 35
5776 AEC9 24 35 $5 bcc 35
5932 AF84 24 31 $1 bcc 31
5940 AF8F 24 31 $1 bcc 31
5972 AFB7 22 30 "0 bhi 30
5973 AFB9 22 00 ". bhi 00
6012 AFE7 2D 50 -P blt 50
6020 AFF0 2D 00 -. blt 00
6221 B0C5 14 C8 . ;20 200
6234 ; here's a lookup table of some sort, for finding the slot
6235 ; numbers of each motor in turn
6237 ; 80 entries for 80 motors?
6330 table of powers of 2
6337 B12E 2A 2A ** bpl 2a ;"**ERROR***"
6343 B135 2A 2A ** bpl 2a
6344 B137 2A 00 *. bpl 00
6346 B139 2A 2A ** bpl 2a
6347 B13B 2A 2A ** bpl 2a
6348 B13D 2A 2A ** bpl 2a
6349 B13F 2A 2A ** bpl 2a
6350 B141 2A 2A ** bpl 2a
6383 B167 2D 50 -P blt 50
6392 B172 2D 50 -P blt 50
6401 B17D 2D 50 -P blt 50
6411 B188 2D 50 -P blt 50
6429 B19E 2D 50 -P blt 50
6447 B1B4 2D 50 -P blt 50
6466 B1CB 24 2C $, bcc 2c
6562 B240 2D 2D -- blt 2d
6563 B242 2D 2D -- blt 2d
6564 B244 2D 2D -- blt 2d
6565 B246 2D 2D -- blt 2d
6566 B248 2D 2D -- blt 2d
6567 B24A 2D 2D -- blt 2d
6568 B24C 2D 2D -- blt 2d
6569 B24E 2D 2D -- blt 2d
6570 B250 2D 2D -- blt 2d
6571 B252 2D 2D -- blt 2d
6572 B254 2D 00 -. blt 00
6661 B2CD 28 52 (R bvc 52
6673 B2DF 28 4E (N bvc 4e
6838 B3CE 24 31 $1 bcc 31
6888 B415 2D 53 -S blt 53
6982 B489 2F 43 /C ble 43
7023 B4B3 24 2A $* bcc 2a
7031 B4BE 80 FF .. suba #ff
7032 B4C0 FF FF FF ... stx ffff
7033 B4C3 FF FF FF ... stx ffff
7034 B4C6 FF FF FF ... stx ffff
7035 B4C9 FF FF FF ... stx ffff
7036 B4CC FF FF FF ... stx ffff
7037 B4CF FF FF FF ... stx ffff
7038 B4D2 FF FF FF ... stx ffff
7039 B4D5 FF FF FF ... stx ffff
7040 B4D8 FF FF FF ... stx ffff
7041 B4DB FF FF FF ... stx ffff
7042 B4DE FF FF FF ... stx ffff
7043 B4E1 FF FF FF ... stx ffff
7044 B4E4 FF FF FF ... stx ffff
7045 B4E7 FF FF FF ... stx ffff
7046 B4EA FF FF FF ... stx ffff
7047 B4ED FF FF FF ... stx ffff
7048 B4F0 FF FF FF ... stx ffff
7049 B4F3 FF FF FF ... stx ffff
7050 B4F6 FF FF FF ... stx ffff
7051 B4F9 FF FF FF ... stx ffff
7052 B4FC FF FF FF ... stx ffff
7053 B4FF FF FF FF ... stx ffff
7054 B502 FF FF FF ... stx ffff
7055 B505 FF FF FF ... stx ffff
7056 B508 FF FF FF ... stx ffff
7057 B50B FF FF FF ... stx ffff
7058 B50E FF FF FF ... stx ffff
7059 B511 FF FF FF ... stx ffff
7060 B514 FF FF FF ... stx ffff
7061 B517 FF FF FF ... stx ffff
7062 B51A FF FF FF ... stx ffff
7063 B51D FF FF FF ... stx ffff
7064 B520 FF FF FF ... stx ffff
7065 B523 FF FF FF ... stx ffff
7066 B526 FF FF FF ... stx ffff
7067 B529 FF FF FF ... stx ffff
7068 B52C FF FF FF ... stx ffff
7069 B52F FF FF FF ... stx ffff
7070 B532 FF FF FF ... stx ffff
7071 B535 FF FF FF ... stx ffff
7072 B538 FF FF FF ... stx ffff
7073 B53B FF FF FF ... stx ffff
7074 B53E FF FF FF ... stx ffff
7075 B541 FF FF FF ... stx ffff
7076 B544 FF FF FF ... stx ffff
7077 B547 FF FF FF ... stx ffff
7078 B54A FF FF FF ... stx ffff
7079 B54D FF FF FF ... stx ffff
7080 B550 FF FF FF ... stx ffff
7081 B553 FF FF FF ... stx ffff
7082 B556 FF FF FF ... stx ffff
7083 B559 FF FF FF ... stx ffff
7084 B55C FF FF FF ... stx ffff
7085 B55F FF FF FF ... stx ffff
7086 B562 FF FF FF ... stx ffff
7087 B565 FF FF FF ... stx ffff
7088 B568 FF FF FF ... stx ffff
7089 B56B FF FF FF ... stx ffff
7090 B56E FF FF FF ... stx ffff
7091 B571 FF FF FF ... stx ffff
7092 B574 FF FF FF ... stx ffff
7093 B577 FF FF FF ... stx ffff
7094 B57A FF FF FF ... stx ffff
7095 B57D FF FF FF ... stx ffff
7096 B580 FF FF FF ... stx ffff
7097 B583 FF FF FF ... stx ffff
7098 B586 FF FF FF ... stx ffff
7099 B589 FF FF FF ... stx ffff
7100 B58C FF FF FF ... stx ffff
7101 B58F FF FF FF ... stx ffff
7102 B592 FF FF FF ... stx ffff
7103 B595 FF FF FF ... stx ffff
7104 B598 FF FF FF ... stx ffff
7105 B59B FF FF FF ... stx ffff
7106 B59E FF FF FF ... stx ffff
7107 B5A1 FF FF FF ... stx ffff
7108 B5A4 FF FF FF ... stx ffff
7109 B5A7 FF FF FF ... stx ffff
7110 B5AA FF FF FF ... stx ffff
7111 B5AD FF FF FF ... stx ffff
7112 B5B0 FF FF FF ... stx ffff
7113 B5B3 FF FF FF ... stx ffff
7114 B5B6 FF FF FF ... stx ffff
7115 B5B9 FF FF FF ... stx ffff
7116 B5BC FF FF FF ... stx ffff
7117 B5BF FF FF FF ... stx ffff
7118 B5C2 FF FF FF ... stx ffff
7119 B5C5 FF FF FF ... stx ffff
7120 B5C8 FF FF FF ... stx ffff
7121 B5CB FF FF FF ... stx ffff
7122 B5CE FF FF FF ... stx ffff
7123 B5D1 FF FF FF ... stx ffff
7124 B5D4 FF FF FF ... stx ffff
7125 B5D7 FF FF FF ... stx ffff
7126 B5DA FF FF FF ... stx ffff
7127 B5DD FF FF FF ... stx ffff
7128 B5E0 FF FF FF ... stx ffff
7129 B5E3 FF FF FF ... stx ffff
7130 B5E6 FF FF FF ... stx ffff
7131 B5E9 FF FF FF ... stx ffff
7132 B5EC FF FF FF ... stx ffff
7133 B5EF FF FF FF ... stx ffff
7134 B5F2 FF FF FF ... stx ffff
7135 B5F5 FF FF FF ... stx ffff
7136 B5F8 FF FF FF ... stx ffff
7137 B5FB FF FF FF ... stx ffff
7138 B5FE FF FF FF ... stx ffff
7139 B601 FF FF FF ... stx ffff
7140 B604 FF FF FF ... stx ffff
7141 B607 FF FF FF ... stx ffff
7142 B60A FF FF FF ... stx ffff
7143 B60D FF FF FF ... stx ffff
7144 B610 FF FF FF ... stx ffff
7145 B613 FF FF FF ... stx ffff
7146 B616 FF FF FF ... stx ffff
7147 B619 FF FF FF ... stx ffff
7148 B61C FF FF FF ... stx ffff
7149 B61F FF FF FF ... stx ffff
7150 B622 FF FF FF ... stx ffff
7151 B625 FF FF FF ... stx ffff
7152 B628 FF FF FF ... stx ffff
7153 B62B FF FF FF ... stx ffff
7154 B62E FF FF FF ... stx ffff
7155 B631 FF FF FF ... stx ffff
7156 B634 FF FF FF ... stx ffff
7157 B637 FF FF FF ... stx ffff
7158 B63A FF FF FF ... stx ffff
7159 B63D FF FF FF ... stx ffff
7160 B640 FF FF FF ... stx ffff
7161 B643 FF FF FF ... stx ffff
7162 B646 FF FF FF ... stx ffff
7163 B649 FF FF FF ... stx ffff
7164 B64C FF FF FF ... stx ffff
7165 B64F FF FF FF ... stx ffff
7166 B652 FF FF FF ... stx ffff
7167 B655 FF FF FF ... stx ffff
7168 B658 FF FF FF ... stx ffff
7169 B65B FF FF FF ... stx ffff
7170 B65E FF FF FF ... stx ffff
7171 B661 FF FF FF ... stx ffff
7172 B664 FF FF FF ... stx ffff
7173 B667 FF FF FF ... stx ffff
7174 B66A FF FF FF ... stx ffff
7175 B66D FF FF FF ... stx ffff
7176 B670 FF FF FF ... stx ffff
7177 B673 FF FF FF ... stx ffff
7178 B676 FF FF FF ... stx ffff
7179 B679 FF FF FF ... stx ffff
7180 B67C FF FF FF ... stx ffff
7181 B67F FF FF FF ... stx ffff
7182 B682 FF FF FF ... stx ffff
7183 B685 FF FF FF ... stx ffff
7184 B688 FF FF FF ... stx ffff
7185 B68B FF FF FF ... stx ffff
7186 B68E FF FF FF ... stx ffff
7187 B691 FF FF FF ... stx ffff
7188 B694 FF FF FF ... stx ffff
7189 B697 FF FF FF ... stx ffff
7190 B69A FF FF FF ... stx ffff
7191 B69D FF FF FF ... stx ffff
7192 B6A0 FF FF FF ... stx ffff
7193 B6A3 FF FF FF ... stx ffff
7194 B6A6 FF FF FF ... stx ffff
7195 B6A9 FF FF FF ... stx ffff
7196 B6AC FF FF FF ... stx ffff
7197 B6AF FF FF FF ... stx ffff
7198 B6B2 FF FF FF ... stx ffff
7199 B6B5 FF FF FF ... stx ffff
7200 B6B8 FF FF FF ... stx ffff
7201 B6BB FF FF FF ... stx ffff
7202 B6BE FF FF FF ... stx ffff
7203 B6C1 FF FF FF ... stx ffff
7204 B6C4 FF FF FF ... stx ffff
7205 B6C7 FF FF FF ... stx ffff
7206 B6CA FF FF FF ... stx ffff
7207 B6CD FF FF FF ... stx ffff
7208 B6D0 FF FF FF ... stx ffff
7209 B6D3 FF FF FF ... stx ffff
7210 B6D6 FF FF FF ... stx ffff
7211 B6D9 FF FF FF ... stx ffff
7212 B6DC FF FF FF ... stx ffff
7213 B6DF FF FF FF ... stx ffff
7214 B6E2 FF FF FF ... stx ffff
7215 B6E5 FF FF FF ... stx ffff
7216 B6E8 FF FF FF ... stx ffff
7217 B6EB FF FF FF ... stx ffff
7218 B6EE FF FF FF ... stx ffff
7219 B6F1 FF FF FF ... stx ffff
7220 B6F4 FF FF FF ... stx ffff
7221 B6F7 FF FF FF ... stx ffff
7222 B6FA FF FF FF ... stx ffff
7223 B6FD FF FF FF ... stx ffff
7224 B700 FF FF FF ... stx ffff
7225 B703 FF FF FF ... stx ffff
7226 B706 FF FF FF ... stx ffff
7227 B709 FF FF FF ... stx ffff
7228 B70C FF FF FF ... stx ffff
7229 B70F FF FF FF ... stx ffff
7230 B712 FF FF FF ... stx ffff
7231 B715 FF FF FF ... stx ffff
7232 B718 FF FF FF ... stx ffff
7233 B71B FF FF FF ... stx ffff
7234 B71E FF FF FF ... stx ffff
7235 B721 FF FF FF ... stx ffff
7236 B724 FF FF FF ... stx ffff
7237 B727 FF FF FF ... stx ffff
7238 B72A FF FF FF ... stx ffff
7239 B72D FF FF FF ... stx ffff
7240 B730 FF FF FF ... stx ffff
7241 B733 FF FF FF ... stx ffff
7242 B736 FF FF FF ... stx ffff
7243 B739 FF FF FF ... stx ffff
7244 B73C FF FF FF ... stx ffff
7245 B73F FF FF FF ... stx ffff
7246 B742 FF FF FF ... stx ffff
7247 B745 FF FF FF ... stx ffff
7248 B748 FF FF FF ... stx ffff
7249 B74B FF FF FF ... stx ffff
7250 B74E FF FF FF ... stx ffff
7251 B751 FF FF FF ... stx ffff
7252 B754 FF FF FF ... stx ffff
7253 B757 FF FF FF ... stx ffff
7254 B75A FF FF FF ... stx ffff
7255 B75D FF FF FF ... stx ffff
7256 B760 FF FF FF ... stx ffff
7257 B763 FF FF FF ... stx ffff
7258 B766 FF FF FF ... stx ffff
7259 B769 FF FF FF ... stx ffff
7260 B76C FF FF FF ... stx ffff
7261 B76F FF FF FF ... stx ffff
7262 B772 FF FF FF ... stx ffff
7263 B775 FF FF FF ... stx ffff
7264 B778 FF FF FF ... stx ffff
7265 B77B FF FF FF ... stx ffff
7266 B77E FF FF FF ... stx ffff
7267 B781 FF FF FF ... stx ffff
7268 B784 FF FF FF ... stx ffff
7269 B787 FF FF FF ... stx ffff
7270 B78A FF FF FF ... stx ffff
7271 B78D FF FF FF ... stx ffff
7272 B790 FF FF FF ... stx ffff
7273 B793 FF FF FF ... stx ffff
7274 B796 FF FF FF ... stx ffff
7275 B799 FF FF FF ... stx ffff
7276 B79C FF FF FF ... stx ffff
7277 B79F FF FF FF ... stx ffff
7278 B7A2 FF FF FF ... stx ffff
7279 B7A5 FF FF FF ... stx ffff
7280 B7A8 FF FF FF ... stx ffff
7281 B7AB FF FF FF ... stx ffff
7282 B7AE FF FF FF ... stx ffff
7283 B7B1 FF FF FF ... stx ffff
7284 B7B4 FF FF FF ... stx ffff
7285 B7B7 FF FF FF ... stx ffff
7286 B7BA FF FF FF ... stx ffff
7287 B7BD FF FF FF ... stx ffff
7288 B7C0 FF FF FF ... stx ffff
7289 B7C3 FF FF FF ... stx ffff
7290 B7C6 FF FF FF ... stx ffff
7291 B7C9 FF FF FF ... stx ffff
7292 B7CC FF FF FF ... stx ffff
7293 B7CF FF FF FF ... stx ffff
7294 B7D2 FF FF FF ... stx ffff
7295 B7D5 FF FF FF ... stx ffff
7296 B7D8 FF FF FF ... stx ffff
7297 B7DB FF FF FF ... stx ffff
7298 B7DE FF FF FF ... stx ffff
7299 B7E1 FF FF FF ... stx ffff
7300 B7E4 FF FF FF ... stx ffff
7301 B7E7 FF FF FF ... stx ffff
7302 B7EA FF FF FF ... stx ffff
7303 B7ED FF FF FF ... stx ffff
7304 B7F0 FF FF FF ... stx ffff
7305 B7F3 FF FF FF ... stx ffff
7306 B7F6 FF FF FF ... stx ffff
7307 B7F9 FF FF FF ... stx ffff
7308 B7FC FF FF FF ... stx ffff
7313 B801 F6 0E 6D ... ldab 0e6d
7314 B804 C1 01 .. cmpb #01
7315 B806 27 03 '. beq 03
7316 B808 7E B9 2A ~.* jmp b92a ;goto25
7317 B80B F6 0E 02 ... ldab 0e02
7318 B80E C1 05 .. cmpb #05 ; was the 3rd last keypress a 5?
7319 B810 27 03 '. beq 03
7320 B812 7E B9 2A ~.* jmp b92a ;goto25
7321 B815 F6 0E 03 ... ldab 0e03
7322 B818 C1 05 .. cmpb #05 ; was the 2nd last keypress a 5?
7323 B81A 27 03 '. beq 03
7324 B81C 7E B9 2A ~.* jmp b92a ;goto25
7325 B81F F6 0E 04 ... ldab 0e04
7326 B822 C1 05 .. cmpb #05 ; was the last keypress a 5?
7327 B824 27 03 '. beq 03
7328 B826 7E B9 2A ~.* jmp b92a ;goto25
7329 B829 F6 00 12 ... ldab 0012
7330 B82C C4 20 . andb #20 ; test the door switch
7331 B82E 27 03 '. beq 03
7332 B830 7E B9 2A ~.* jmp b92a ;goto25
7334 B834 6F 00 o. clr 00,x
7335 B836 F6 0E 6A ..j ldab 0e6a
7336 B839 C1 00 .. cmpb #00
7337 B83B 22 33 "3 bhi 33
7338 B83D C6 64 .d ldab #64
7339 B83F F7 0E 6A ..j stab 0e6a
7340 B842 7C 0E 05 |.. inc 0e05
7341 B845 F6 0E 05 ... ldab 0e05
7342 B848 C1 64 .d cmpb #64
7343 B84A 23 03 #. bls 03
7344 B84C 7F 0E 05 ... clr 0e05
7345 B84F F6 0E 05 ... ldab 0e05
7346 B852 BD D4 68 ..h jsr d468 ;jump51
7347 B855 83 00 00 ... subd #0000
7348 B858 27 0B '. beq 0b
7349 B85A F6 0E 05 ... ldab 0e05
7350 B85D BD D7 A0 ... jsr d7a0 ;is_invalid_slot
7351 B860 83 00 00 ... subd #0000
7352 B863 27 09 '. beq 09
7354 B866 6C 00 l. inc 00,x
7355 B868 E6 00 .. ldab 00,x
7356 B86A C1 6E .n cmpb #6e ; 110 or 01101110
7357 B86C 2D D4 -. blt d4
7359 B870 F6 0E 6A ..j ldab 0e6a
7360 B873 C1 00 .. cmpb #00
7361 B875 23 03 #. bls 03
7362 B877 7A 0E 6A z.j dec 0e6a
7363 B87A F6 0E 05 ... ldab 0e05
7364 B87D BD D4 68 ..h jsr d468 ;jump51
7365 B880 83 00 00 ... subd #0000
7366 B883 26 03 &. bne 03
7367 B885 7E B9 0A ~.. jmp b90a ;goto26
7368 B888 F6 0E 05 ... ldab 0e05
7369 B88B BD D7 A0 ... jsr d7a0 ;is_invalid_slot
7370 B88E 83 00 00 ... subd #0000
7371 B891 26 77 &w bne 77
7372 B893 BD BE 4B ..K jsr be4b ;displayblank
7373 B896 C6 20 . ldab #20 ; " "
7374 B898 F7 0B 9A ... stab 0b9a
7375 B89B C6 20 . ldab #20 ; " "
7376 B89D F7 0B 99 ... stab 0b99
7377 B8A0 C6 20 . ldab #20 ; " "
7378 B8A2 F7 0B 98 ... stab 0b98
7379 B8A5 F6 0E 05 ... ldab 0e05 ; array index/10
7381 B8A9 CE 00 0A ... ldx #000a
7384 B8AE CB 30 .0 addb #30 ; make it a digit
7385 B8B0 F7 0B 97 ... stab 0b97
7386 B8B3 F6 0E 05 ... ldab 0e05 ; array index%10
7388 B8B7 CE 00 0A ... ldx #000a
7390 B8BB CB 30 .0 addb #30 ; make it a digit
7391 B8BD F7 0B 96 ... stab 0b96
7392 B8C0 C6 20 . ldab #20 ; " "
7393 B8C2 F7 0B 95 ... stab 0b95
7394 B8C5 C6 20 . ldab #20 ; " "
7395 B8C7 F7 0B 94 ... stab 0b94
7396 B8CA F6 0E 05 ... ldab 0e05 ; array[index]/10
7398 B8CE C3 0E 06 ... addd #0e06
7400 B8D2 E6 00 .. ldab 00,x
7402 B8D5 CE 00 0A ... ldx #000a
7405 B8DA CB 30 .0 addb #30 ; make it a digit
7406 B8DC F7 0B 93 ... stab 0b93
7407 B8DF F6 0E 05 ... ldab 0e05 ; array[index]%10
7409 B8E3 C3 0E 06 ... addd #0e06
7411 B8E7 E6 00 .. ldab 00,x
7413 B8EA CE 00 0A ... ldx #000a
7415 B8EE CB 30 .0 addb #30 ; make it a digit
7416 B8F0 F7 0B 92 ... stab 0b92
7417 B8F3 C6 20 . ldab #20 ; " "
7418 B8F5 F7 0B 91 ... stab 0b91
7419 B8F8 C6 20 . ldab #20 ; " "
7420 B8FA F7 0B 90 ... stab 0b90
7421 B8FD 7F 00 2C .., clr 002c
7422 B900 BD BE 01 ... jsr be01 ;jump70
7423 B903 C6 0A .. ldab #0a
7424 B905 F7 00 2C .., stab 002c
7427 B90A BD BE 4B ..K jsr be4b ;displayblank
7428 B90D C6 57 .W ldab #57 ; "W"
7429 B90F F7 0B 96 ... stab 0b96
7430 B912 C6 42 .B ldab #42 ; "B"
7431 B914 F7 0B 95 ... stab 0b95
7432 B917 C6 42 .B ldab #42 ; "B"
7433 B919 F7 0B 94 ... stab 0b94
7434 B91C 7F 00 2C .., clr 002c
7435 B91F BD BE 01 ... jsr be01 ;jump70 write to display
7436 B922 C6 0A .. ldab #0a
7437 B924 F7 00 2C .., stab 002c
7438 B927 7E BA 81 ~.. jmp ba81 ;goto27 - return
7440 B92A F6 0E 6D ..m ldab 0e6d
7441 B92D C1 01 .. cmpb #01
7442 B92F 27 03 '. beq 03
7443 B931 7E BA 81 ~.. jmp ba81 ;goto27 - return
7444 B934 F6 0E 00 ... ldab 0e00
7445 B937 C1 05 .. cmpb #05
7446 B939 27 03 '. beq 03
7447 B93B 7E BA 81 ~.. jmp ba81 ;goto27 - return
7448 B93E F6 0E 01 ... ldab 0e01
7449 B941 C1 05 .. cmpb #05
7450 B943 27 03 '. beq 03
7451 B945 7E BA 81 ~.. jmp ba81 ;goto27 - return
7452 B948 F6 0E 02 ... ldab 0e02
7453 B94B C1 05 .. cmpb #05
7454 B94D 27 03 '. beq 03
7455 B94F 7E BA 81 ~.. jmp ba81 ;goto27 - return
7456 B952 F6 00 12 ... ldab 0012
7457 B955 C4 20 . andb #20 ; test the door switch
7458 B957 26 03 &. bne 03
7459 B959 7E BA 81 ~.. jmp ba81 ;goto27 - return
7460 B95C F6 0E 04 ... ldab 0e04
7461 B95F C1 05 .. cmpb #05
7462 B961 26 79 &y bne 79
7463 B963 F6 0E 03 ... ldab 0e03
7464 B966 C1 05 .. cmpb #05
7465 B968 26 72 &r bne 72
7467 B96B 6F 00 o. clr 00,x
7469 B96E E6 00 .. ldab 00,x
7470 B970 C1 64 .d cmpb #64
7471 B972 2C 16 ,. bge 16
7475 B977 E6 01 .. ldab 01,x
7478 B97B 2C 01 ,. bge 01
7480 B97E C3 0E 06 ... addd #0e06
7483 B983 E7 00 .. stab 00,x
7485 B986 6C 00 l. inc 00,x
7487 B98A 7F 0D FF ... clr 0dff
7488 B98D 7F 0E 00 ... clr 0e00
7489 B990 7F 0E 01 ... clr 0e01
7490 B993 7F 0E 02 ... clr 0e02
7491 B996 7F 0E 03 ... clr 0e03
7492 B999 7F 0E 04 ... clr 0e04
7493 B99C C6 41 .A ldab #41 ; "A"
7494 B99E F7 0B 99 ... stab 0b99
7495 B9A1 C6 4C .L ldab #4c ; "L"
7496 B9A3 F7 0B 98 ... stab 0b98
7497 B9A6 C6 4C .L ldab #4c ; "L"
7498 B9A8 F7 0B 97 ... stab 0b97
7499 B9AB C6 20 . ldab #20 ; " "
7500 B9AD F7 0B 96 ... stab 0b96
7501 B9B0 C6 43 .C ldab #43 ; "C"
7502 B9B2 F7 0B 95 ... stab 0b95
7503 B9B5 C6 4C .L ldab #4c ; "L"
7504 B9B7 F7 0B 94 ... stab 0b94
7505 B9BA C6 45 .E ldab #45 ; "E"
7506 B9BC F7 0B 93 ... stab 0b93
7507 B9BF C6 41 .A ldab #41 ; "A"
7508 B9C1 F7 0B 92 ... stab 0b92
7509 B9C4 C6 52 .R ldab #52 ; "R"
7510 B9C6 F7 0B 91 ... stab 0b91
7511 B9C9 C6 20 . ldab #20 ; " "
7512 B9CB F7 0B 90 ... stab 0b90
7513 B9CE 7F 00 2C .., clr 002c
7514 B9D1 BD BE 01 ... jsr be01 ;jump70 - display
7515 B9D4 C6 1E .. ldab #1e
7516 B9D6 F7 00 2C .., stab 002c
7517 B9D9 7E BA 81 ~.. jmp ba81 ;goto27 - return
7519 B9DC F6 0E 04 ... ldab 0e04
7520 B9DF C1 01 .. cmpb #01
7521 B9E1 27 0A '. beq 0a
7522 B9E3 F6 0E 04 ... ldab 0e04
7523 B9E6 C1 02 .. cmpb #02
7524 B9E8 27 03 '. beq 03
7525 B9EA 7E BA 81 ~.. jmp ba81 ;goto27 - return
7527 B9ED F6 0E 03 ... ldab 0e03
7528 B9F0 C1 00 .. cmpb #00
7529 B9F2 22 03 ". bhi 03
7530 B9F4 7E BA 81 ~.. jmp ba81 ;goto27 - return
7532 B9F7 F6 0E 03 ... ldab 0e03
7533 B9FA C1 05 .. cmpb #05
7534 B9FC 26 03 &. bne 03
7535 B9FE 7E BA 81 ~.. jmp ba81 ;goto27 - return
7537 BA01 F6 0E 03 ... ldab 0e03
7538 BA04 C1 07 .. cmpb #07
7539 BA06 24 79 $y bcc 79
7540 BA08 F6 0E 03 ... ldab 0e03 ; prevkey*10+key
7541 BA0B 86 0A .. ldaa #0a
7543 BA0E FB 0E 04 ... addb 0e04
7545 BA12 E7 00 .. stab 00,x
7546 BA14 E6 00 .. ldab 00,x
7547 BA16 C1 64 .d cmpb #64
7548 BA18 2C 67 ,g bge 67
7549 BA1A E6 00 .. ldab 00,x
7550 BA1C 2D 63 -c blt 63
7554 BA21 E6 01 .. ldab 01,x
7557 BA25 2C 01 ,. bge 01
7559 BA28 C3 0E 06 ... addd #0e06
7562 BA2D E7 00 .. stab 00,x
7563 BA2F F6 0E 03 ... ldab 0e03
7564 BA32 CB 30 .0 addb #30 ; +48 (make an ascii digit)
7565 BA34 F7 0B 99 ... stab 0b99
7566 BA37 F6 0E 04 ... ldab 0e04
7567 BA3A CB 30 .0 addb #30 ; +48 (make an ascii digit)
7568 BA3C F7 0B 98 ... stab 0b98
7569 BA3F C6 20 . ldab #20 ; " "
7570 BA41 F7 0B 97 ... stab 0b97
7571 BA44 C6 43 .C ldab #43 ; "C"
7572 BA46 F7 0B 96 ... stab 0b96
7573 BA49 C6 4C .L ldab #4c ; "L"
7574 BA4B F7 0B 95 ... stab 0b95
7575 BA4E C6 45 .E ldab #45 ; "E"
7576 BA50 F7 0B 94 ... stab 0b94
7577 BA53 C6 41 .A ldab #41 ; "A"
7578 BA55 F7 0B 93 ... stab 0b93
7579 BA58 C6 52 .R ldab #52 ; "R"
7580 BA5A F7 0B 92 ... stab 0b92
7581 BA5D C6 45 .E ldab #45 ; "E"
7582 BA5F F7 0B 91 ... stab 0b91
7583 BA62 C6 44 .D ldab #44 ; "D"
7584 BA64 F7 0B 90 ... stab 0b90
7585 BA67 7F 0E 00 ... clr 0e00
7586 BA6A 7F 0E 01 ... clr 0e01
7587 BA6D 7F 0E 02 ... clr 0e02
7588 BA70 7F 0E 03 ... clr 0e03
7589 BA73 7F 0E 04 ... clr 0e04
7590 BA76 7F 00 2C .., clr 002c
7591 BA79 BD BE 01 ... jsr be01 ;jump70 - display
7592 BA7C C6 1E .. ldab #1e
7593 BA7E F7 00 2C .., stab 002c
7599 ; reads the keypad state into 005b & 0056
7600 ; it looks like it returns without doing anything if the
7601 ; no sale switch is pressed, but I haven't looked closely
7602 BA83 F6 18 00 ... ldab 1800
7603 BA86 C4 7F .. andb #7f
7604 BA88 F7 00 23 ..# stab 0023
7605 BA8B F6 00 23 ..# ldab 0023
7606 BA8E F1 00 12 ... cmpb 0012 ; door buffers - debouncing it?
7607 BA91 27 06 '. beq 06
7608 BA93 F6 00 23 ..# ldab 0023
7609 BA96 F7 00 12 ... stab 0012
7610 BA99 F6 20 00 . . ldab 2000
7611 BA9C F1 00 20 .. cmpb 0020
7612 BA9F 27 08 '. beq 08
7613 BAA1 F6 20 00 . . ldab 2000
7614 BAA4 F7 00 20 .. stab 0020
7616 BAA9 F6 00 20 .. ldab 0020
7617 BAAC F7 00 11 ... stab 0011
7618 BAAF F6 00 11 ... ldab 0011
7619 BAB2 C4 03 .. andb #03
7620 BAB4 F7 00 2B ..+ stab 002b
7621 BAB7 F6 00 1B ... ldab 001b
7622 BABA C4 04 .. andb #04
7624 BABD F6 10 0A ... ldab 100a ; PortE
7625 BAC0 C4 04 .. andb #04 ; no sale switch (active low)
7627 BAC3 E0 00 .. subb 00,x
7629 BAC6 27 17 '. beq 17
7630 BAC8 F6 10 0A ... ldab 100a ; PortE
7631 BACB C4 04 .. andb #04 : no sale switch (active low)
7632 BACD 27 08 '. beq 08
7633 BACF CE 00 1B ... ldx #001b
7634 BAD2 1C 00 04 .. bset 00,x, #04
7636 BAD7 CE 00 1B ... ldx #001b
7637 BADA 1D 00 04 .. bclr 00,x, #04
7639 BADF F6 10 0A ... ldab 100a ; PortE
7640 BAE2 C4 04 .. andb #04 ; no sale switch (active low)
7641 BAE4 27 08 '. beq 08
7642 BAE6 CE 00 1D ... ldx #001d
7643 BAE9 1C 00 04 .. bset 00,x, #04
7645 BAEE CE 00 1D ... ldx #001d
7646 BAF1 1D 00 04 .. bclr 00,x, #04
7647 BAF4 CE 10 08 ... ldx #1008 : PortD
7648 BAF7 1D 00 20 ... bclr 00,x, #20 ; select keypad row 0
7649 BAF9 CE 10 28 ... ldx #1028
7650 BAFC 1C 00 40 ... bset 00,x #40 ; enable SPI
7652 BB00 CE 00 14 ... ldx #0014 ; keypad strobe:
7653 BB03 1C 00 04 .. bset 00,x, #04 ; resets the keypad
7654 BB06 F6 00 14 ... ldab 0014 ; shift register
7655 BB09 F7 38 00 .8. stab 3800 ; ready for a new
7656 BB0C CE 00 14 ... ldx #0014 ; read
7657 BB0F 1D 00 04 .. bclr 00,x, #04
7658 BB12 F6 00 14 ... ldab 0014
7659 BB15 F7 38 00 .8. stab 3800
7661 BB18 CE 00 00 ... ldx #0000
7665 BB1E BD BD B5 ... jsr bdb5 ;jump78 - reads the keypad inputs into X
7667 BB22 F7 00 5B ..[ stab 005b
7669 BB25 CE 10 28 ..( ldx #1028
7670 BB28 1D 00 40 .. bclr 00,x, #40 ; disable SPI
7672 BB2B CE 10 08 ... ldx #1008
7673 BB2E 1C 00 20 .. bset 00,x, #20 ; select keypad row 1
7675 BB30 CE 10 28 ... ldx #1028
7676 BB33 1C 00 40 ... bset 00,x, #40 ; enable the SPI
7678 BB37 CE 00 14 ... ldx #0014
7679 BB3A 1C 00 04 .. bset 00,x, #04 ; keypad strobe
7680 BB3D F6 00 14 ... ldab 0014
7681 BB40 F7 38 00 .8. stab 3800
7682 BB43 CE 00 14 ... ldx #0014
7683 BB46 1D 00 04 .. bclr 00,x, #04
7684 BB49 F6 00 14 ... ldab 0014
7685 BB4C F7 38 00 .8. stab 3800
7687 BB4F CE 00 00 ... ldx #0000
7691 BB55 BD BD B5 ... jsr bdb5 ;jump78 - read the keypad
7693 BB59 F7 00 56 ..V stab 0056
7694 BB5C CE 10 28 ..( ldx #1028
7695 BB5F 1D 00 40 .. bclr 00,x, #40
7699 BB63 F6 00 00 ... ldab 0000
7700 BB66 27 03 '. beq 03
7701 BB68 7E BD B4 ~.. jmp bdb4 ;goto28
7702 BB6B F6 00 2E ... ldab 002e
7703 BB6E 27 03 '. beq 03
7704 BB70 7E BD B4 ~.. jmp bdb4 ;goto28
7705 BB73 BD BA 83 ... jsr ba83 ;jump125 - read keypad
7706 ; has a key been pressed?
7707 BB76 F6 00 5B ..[ ldab 005b
7708 BB79 F1 00 56 ..V cmpb 0056
7709 BB7C 26 0B &. bne 0b ; to bb89
7710 BB7E F6 00 56 ..V ldab 0056
7711 BB81 27 06 '. beq 06 ; to bb89
7712 BB83 7F 00 29 ..) clr 0029 ; to key pressed
7713 BB86 7E BD AF ~.. jmp bdaf ;goto29 (bail)
7714 ; find keypad number
7715 BB89 F6 00 5B ..[ ldab 005b ; is row0 = 0
7716 BB8C 27 34 '4 beq 34 ; if so, to bbc2
7717 BB8E F6 00 5B ..[ ldab 005b
7718 BB91 F7 00 5F .._ stab 005f
7719 BB94 7F 00 1C ... clr 001c ; i=0
7721 BB97 F6 00 1C ... ldab 001c
7722 BB9A C1 08 .. cmpb #08 ; if i >= 8
7723 BB9C 24 15 $. bcc 15 ; to bbb3 (break)
7724 BB9E F6 00 5F .._ ldab 005f
7725 BBA1 C4 01 .. andb #01
7726 BBA3 27 02 '. beq 02
7727 BBA5 20 0C . bra 0c ; to bbb3
7728 BBA7 F6 00 5F .._ ldab 005f
7729 BBAA 54 T lsrb ; ready to test next bit
7730 BBAB F7 00 5F .._ stab 005f
7731 BBAE 7C 00 1C |.. inc 001c
7732 BBB1 20 E4 . bra e4 ; to bb97
7733 ; look up i in the keypad map
7734 BBB3 F6 00 1C ... ldab 001c
7736 BBB7 C3 AC 9D ... addd #ac9d ; keypad mapping
7738 BBBB E6 00 .. ldab 00,x
7739 BBBD F7 00 16 ... stab 0016
7740 BBC0 20 3C < bra 3c ; to bbfe
7741 ; test row 1 - ditto
7742 BBC2 F6 00 56 ..V ldab 0056
7743 BBC5 27 34 '4 beq 34
7744 BBC7 F6 00 56 ..V ldab 0056
7745 BBCA F7 00 5F .._ stab 005f
7746 BBCD 7F 00 1C ... clr 001c
7747 BBD0 F6 00 1C ... ldab 001c
7748 BBD3 C1 08 .. cmpb #08
7749 BBD5 24 15 $. bcc 15
7750 BBD7 F6 00 5F .._ ldab 005f
7751 BBDA C4 01 .. andb #01
7752 BBDC 27 02 '. beq 02
7753 BBDE 20 0C . bra 0c ; to bbec
7754 BBE0 F6 00 5F .._ ldab 005f
7756 BBE4 F7 00 5F .._ stab 005f
7757 BBE7 7C 00 1C |.. inc 001c
7759 BBEC F6 00 1C ... ldab 001c
7762 BBF0 C3 AC A0 ... addd #aca0
7764 BBF4 E6 00 .. ldab 00,x
7765 BBF6 F7 00 16 ... stab 0016
7767 BBFB 7F 00 16 ... clr 0016
7769 BBFE F6 00 5B ..[ ldab 005b
7770 BC01 FA 00 56 ..V orb 0056
7771 BC04 F7 00 5F .._ stab 005f
7772 BC07 7F 00 5E ..^ clr 005e
7773 BC0A 7F 00 1C ... clr 001c
7774 BC0D F6 00 1C ... ldab 001c
7775 BC10 C1 08 .. cmpb #08
7776 BC12 24 16 $. bcc 16
7777 BC14 F6 00 5F .._ ldab 005f
7778 BC17 C4 01 .. andb #01
7779 BC19 27 03 '. beq 03
7780 BC1B 7C 00 5E |.^ inc 005e
7781 BC1E F6 00 5F .._ ldab 005f
7783 BC22 F7 00 5F .._ stab 005f
7784 BC25 7C 00 1C |.. inc 001c
7786 BC2A F6 00 5E ..^ ldab 005e
7787 BC2D C1 01 .. cmpb #01
7788 BC2F 22 05 ". bhi 05
7789 BC31 F6 00 16 ... ldab 0016
7790 BC34 26 0F &. bne 0f
7791 BC36 7F 00 29 ..) clr 0029
7792 BC39 CE 00 1B ... ldx #001b
7793 BC3C 1C 00 10 ... bset 00,x, #10
7794 BC3F 7F 00 37 ..7 clr 0037
7795 BC42 7E BD AF ~.. jmp bdaf ;goto29 (bail)
7796 BC45 F6 00 16 ... ldab 0016 ; key release or debounce?
7797 BC48 F1 00 29 ..) cmpb 0029
7798 BC4B 27 2D '- beq 2d
7799 BC4D F6 00 16 ... ldab 0016
7800 BC50 F7 00 29 ..) stab 0029
7801 BC53 F6 0E 00 ... ldab 0e00 ; this is the key buffer?
7802 BC56 F7 0D FF ... stab 0dff
7803 BC59 F6 0E 01 ... ldab 0e01
7804 BC5C F7 0E 00 ... stab 0e00
7805 BC5F F6 0E 02 ... ldab 0e02
7806 BC62 F7 0E 01 ... stab 0e01
7807 BC65 F6 0E 03 ... ldab 0e03
7808 BC68 F7 0E 02 ... stab 0e02
7809 BC6B F6 0E 04 ... ldab 0e04
7810 BC6E F7 0E 03 ... stab 0e03
7811 BC71 F6 00 29 ..) ldab 0029
7812 BC74 F7 0E 04 ... stab 0e04
7813 BC77 7E BD AF ~.. jmp bdaf ;goto29 (bail)
7814 BC7A F6 00 12 ... ldab 0012
7815 BC7D C4 20 . andb #20 ; test door switch
7816 BC7F 27 3B '; beq 3b ; to bcbc
7817 BC81 F6 00 29 ..) ldab 0029
7818 BC84 27 33 '3 beq 33
7819 BC86 F6 00 1B ... ldab 001b
7820 BC89 C4 10 .. andb #10
7821 BC8B 27 2C ', beq 2c
7822 BC8D F6 00 42 ..B ldab 0042
7823 BC90 27 15 '. beq 15
7824 BC92 F6 00 09 ... ldab 0009
7825 BC95 27 08 '. beq 08
7826 BC97 F6 00 29 ..) ldab 0029
7827 BC9A F7 00 0A ... stab 000a
7829 BC9F F6 00 29 ..) ldab 0029
7830 BCA2 F7 00 09 ... stab 0009
7832 BCA7 F6 00 29 ..) ldab 0029
7833 BCAA F7 00 42 ..B stab 0042
7834 BCAD BD E5 AA ... jsr e5aa ;jump12
7835 BCB0 7F 00 2C .., clr 002c
7836 BCB3 CE 00 1B ... ldx #001b
7837 BCB6 1D 00 10 ... bclr 00,x, #10
7838 BCB9 7E BD AF ~.. jmp bdaf ;goto29 (bail)
7840 BCBC F6 00 1B ... ldab 001b
7841 BCBF C4 10 .. andb #10
7842 BCC1 26 03 &. bne 03
7843 BCC3 7E BD 91 ~.. jmp bd91 ;goto30
7844 BCC6 F6 00 21 ..! ldab 0021
7845 BCC9 C4 20 . andb #20
7846 BCCB 27 03 '. beq 03
7847 BCCD 7E BD 91 ~.. jmp bd91 ;goto30
7848 BCD0 F6 00 29 ..) ldab 0029
7849 BCD3 C1 0B .. cmpb #0b
7850 BCD5 26 03 &. bne 03
7851 BCD7 7E BD 5C ~.\ jmp bd5c ;goto31
7852 BCDA 7F 00 49 ..I clr 0049
7853 BCDD F6 00 3A ..: ldab 003a
7854 BCE0 26 32 &2 bne 32
7855 BCE2 F6 00 29 ..) ldab 0029
7856 BCE5 C1 0A .. cmpb #0a
7857 BCE7 26 05 &. bne 05
7858 BCE9 7F 00 1E ... clr 001e
7860 BCEE F6 00 29 ..) ldab 0029
7861 BCF1 F7 00 1E ... stab 001e
7862 BCF4 C6 32 .2 ldab #32
7863 BCF6 F7 00 3A ..: stab 003a
7864 BCF9 BD BE 4B ..K jsr be4b ;displayblank
7865 BCFC F6 00 1E ... ldab 001e
7866 BCFF CB 30 .0 addb #30
7867 BD01 F7 0B 95 ... stab 0b95
7868 BD04 BD E5 AA ... jsr e5aa ;jump12
7869 BD07 7F 00 2C .., clr 002c
7870 BD0A BD BE 01 ... jsr be01 ;jump70
7871 BD0D C6 32 .2 ldab #32
7872 BD0F F7 00 2C .., stab 002c
7874 BD14 F6 00 29 ..) ldab 0029
7875 BD17 C1 05 .. cmpb #05
7876 BD19 27 07 '. beq 07
7877 BD1B F6 00 29 ..) ldab 0029
7878 BD1E C1 0A .. cmpb #0a
7879 BD20 26 05 &. bne 05
7880 BD22 7F 00 2C .., clr 002c
7882 BD27 F6 00 1E ... ldab 001e
7886 BD2D F7 00 06 ... stab 0006
7887 BD30 F6 00 1E ... ldab 001e
7889 BD34 FB 00 06 ... addb 0006
7890 BD37 F7 00 06 ... stab 0006
7891 BD3A F6 00 29 ..) ldab 0029
7892 BD3D FB 00 06 ... addb 0006
7893 BD40 F7 00 06 ... stab 0006
7894 BD43 F6 00 29 ..) ldab 0029
7895 BD46 CB 30 .0 addb #30
7896 BD48 F7 0B 94 ... stab 0b94
7897 BD4B BD BE 01 ... jsr be01 ;jump70
7898 BD4E CE 00 1B ... ldx #001b
7899 BD51 1D 00 40 ... bclr 00,x, #40
7900 BD54 7F 00 3A ..: clr 003a
7901 BD57 BD E5 AA ... jsr e5aa ;jump12
7904 BD5C C6 19 .. ldab #19
7905 BD5E F7 00 37 ..7 stab 0037
7906 BD61 F6 00 3A ..: ldab 003a
7907 BD64 27 08 '. beq 08
7908 BD66 7F 00 3A ..: clr 003a
7909 BD69 7F 00 2C .., clr 002c
7911 BD6E 7C 00 49 |.I inc 0049
7912 BD71 F6 00 49 ..I ldab 0049
7913 BD74 C1 02 .. cmpb #02
7914 BD76 25 0E %. bcs 0e
7915 BD78 7F 00 49 ..I clr 0049
7916 BD7B CE 00 1B ... ldx #001b
7917 BD7E 1C 00 01 ... bset 00,x, #01
7918 BD81 C6 3C .< ldab #3c
7919 BD83 F7 00 4F ..O stab 004f
7920 BD86 BD E5 AA ... jsr e5aa ;jump12
7921 BD89 CE 00 1B ... ldx #001b
7922 BD8C 1D 00 10 ... bclr 00,x, #10
7925 BD91 F6 00 1B ... ldab 001b
7926 BD94 C4 10 .. andb #10
7927 BD96 26 17 &. bne 17
7928 BD98 F6 00 29 ..) ldab 0029
7929 BD9B C1 0B .. cmpb #0b
7930 BD9D 26 10 &. bne 10
7931 BD9F F6 00 37 ..7 ldab 0037
7932 BDA2 26 0B &. bne 0b
7933 BDA4 BD DD D5 ... jsr ddd5 ;jump120
7934 BDA7 7F 00 49 ..I clr 0049
7935 BDAA C6 14 .. ldab #14
7936 BDAC F7 00 2C .., stab 002c
7938 BDAF C6 01 .. ldab #01
7939 BDB1 F7 00 00 ... stab 0000
7944 ; start/finish sending a byte to the display
7945 ; stack parameter - 0 to disable display clock (for reading keypad), 1 to enable
7946 ; lower 8-bits of D - byte to write to display.
7947 ; bytes with bit 7 unset are characters (0-127)
7948 ; bytes with bit 7 set are control commands.
7949 ; this probably also reads the keypad simultaneously
7956 BDBB ED 00 .. std 00,x
7957 BDBD E6 07 .. ldab 07,x
7958 BDBF 27 0E '. beq 0e ; to bdcf if 0
7959 BDC1 CE 00 14 ... ldx #0014
7960 BDC4 1C 00 08 ... bset 00,x, #08
7961 BDC7 F6 00 14 ... ldab 0014
7962 BDCA F7 38 00 .8. stab 3800 ; enable display clock line
7963 BDCD 20 0C . bra 0c ; to bddb
7964 BDCF CE 00 14 ... ldx #0014
7965 BDD2 1D 00 08 ... bclr 00,x, #08
7966 BDD5 F6 00 14 ... ldab 0014
7967 BDD8 F7 38 00 .8. stab 3800 ; disable display clock line
7969 BDDC E6 03 .. ldab 03,x
7970 BDDE F7 10 2A ..* stab 102a ; write to spdr
7971 BDE1 F6 10 29 ..) ldab 1029 ; read spsr
7972 BDE4 2D 0F -. blt 0f ; exit sub if SPI complete
7977 BDEA EC 00 .. ldd 00,x
7978 BDEC 83 FF FF ... subd #ffff ; put a really long timeout on the action
7979 BDEF 26 02 &. bne 02
7981 BDF3 20 EC . bra ec ; loop a while back to bde1
7982 BDF5 F6 10 2A ..* ldab 102a ; reading SPSR (just done) & SPDR clears SPIF
7984 BDF9 E7 03 .. stab 03,x
7985 BDFB E6 03 .. ldab 03,x ; return contents of spdr - keypad data!
7992 ; Write a string in the display buffer at 0x0b90 to the display
7993 BE01 F6 00 2C .., ldab 002c
7994 BE04 26 09 &. bne 09 ; to be0f - ret if mem 0x2c != 0
7995 BE06 8D 61 .a bsr dest 61 ; to displayreset - reset display
7996 BE08 8D 06 .. bsr dest 06 ; to jump88 - commit to display
7997 BE0A C6 03 .. ldab #03
7998 BE0C F7 00 2C .., stab 002c
8002 ; writes the display buffer (at 0b90-0b99) to the display
8003 ; enable the SPI system
8004 BE10 CE 10 28 ..( ldx #1028
8005 BE13 1C 00 40 ..@ bset 00,x, #40
8007 BE16 7F 00 1C ... clr 001c
8008 BE19 F6 00 1C ... ldab 001c
8009 BE1C C1 0A .. cmpb #0a
8010 BE1E 24 19 $. bcc 19 ; to be39
8011 BE20 CE 00 01 ... ldx #0001
8013 BE24 F6 00 1C ... ldab 001c
8015 BE28 C3 0B 90 ... addd #0b90
8017 BE2C E6 00 .. ldab 00,x
8018 BE2E C4 7F .. andb #7f ; make sure we don't send a control command
8020 BE31 8D 82 .. bsr dest 82 ; to jump78
8022 BE34 7C 00 1C |.. inc 001c
8023 BE37 20 E0 . bra e0 ; to be19
8024 BE39 CE 00 01 ... ldx #0001
8026 BE3D CC 00 FF ... ldd #00ff
8027 BE40 BD BD B5 ... jsr bdb5 ;jump78
8029 ; disable the SPI system
8030 BE44 CE 10 28 ..( ldx #1028
8031 BE47 1D 00 40 ..@ bclr 00,x, #40
8035 ; stores 0x20 into memory locations 0b90-0b99
8036 ; "blanks out" (with spaces) the display buffer
8037 BE4B 7F 00 1C ... clr 001c
8038 BE4E F6 00 1C ... ldab 001c
8039 BE51 C1 0A .. cmpb #0a
8040 BE53 24 13 $. bcc 13 ; to be68 - rts
8041 BE55 C6 20 . ldab #20
8043 BE58 F6 00 1C ... ldab 001c
8045 BE5C C3 0B 90 ... addd #0b90
8048 BE61 E7 00 .. stab 00,x
8049 BE63 7C 00 1C |.. inc 001c
8050 BE66 20 E6 . bra e6 ; to be4e
8055 ; Clear bit 7 of PortA - display reset (active low)
8056 BE69 CE 10 00 ... ldx #1000
8057 BE6C 1D 00 80 .. bclr x,#80
8058 BE6F BD E5 96 ... jsr e596 ;jump115 - 100ms delay
8059 ; Clear bit 7 of PortA - reset line back to high
8060 BE72 CE 10 00 ... ldx #1000
8061 BE75 1C 00 80 .. bset 00,x, #80
8064 BE78 CE 10 28 ... ldx #1028
8065 BE7B 1C 00 40 ... bset 00,x, #40
8067 BE7E BD E5 96 ... jsr e596 ;jump115 - 100ms delay
8069 ; tell the display controller there are 10 digits
8070 BE81 CE 00 01 ... ldx #0001
8072 BE85 CC 00 CA ... ldd #00ca ;11001010
8073 BE88 BD BD B5 ... jsr bdb5 ;jump78
8076 ; set brightness to 100%
8077 BE8C CE 00 01 ... ldx #0001
8079 BE90 CC 00 E0 ... ldd #00e0 ;11100000
8080 BE93 BD BD B5 ... jsr bdb5 ;jump78
8084 BE97 CE 10 28 ..( ldx #1028
8085 BE9A 1D 00 40 ... bclr 00,x, #40
8091 ; writes a slot and price to the screen?
8094 BEA0 8D A9 .. bsr a9 ; to be4b - displayblank
8096 BEA3 E6 05 .. ldab 05,x
8097 BEA5 26 1B &. bne 1b
8098 BEA7 F6 00 06 ... ldab 0006
8100 BEAB CE 00 0A ... ldx #000a
8103 BEB0 CB 30 .0 addb #30
8104 BEB2 F7 0B 99 ... stab 0b99 ; write slotnumber/10
8105 BEB5 F6 00 06 ... ldab 0006
8107 BEB8 CE 00 0A ... ldx #000a
8109 BEBD CB 30 .0 addb #30
8110 BEBF F7 0B 98 ... stab 0b98 ; write slotnumber%10
8112 BEC3 EC 00 .. ldd 00,x
8113 BEC5 C4 FF .. andb #ff
8114 BEC7 84 3F .? anda #3f
8115 BEC9 ED 00 .. std 00,x
8116 BECB EC 00 .. ldd 00,x
8117 BECD CE 03 E8 ... ldx #03e8 ; / 1000
8120 BED2 CB 30 .0 addb #30
8123 BED6 E6 06 .. ldab 06,x
8125 BED9 C3 0B 95 ... addd #0b95
8128 BEDE E7 00 .. stab 00,x ; write MSB dollars
8130 BEE1 EC 00 .. ldd 00,x
8131 BEE3 CE 03 E8 ... ldx #03e8 ; %1000
8133 BEE7 CE 00 64 ..d ldx #0064 ; /100
8136 BEEC CB 30 .0 addb #30
8139 BEF0 E6 06 .. ldab 06,x
8141 BEF3 C3 0B 94 ... addd #0b94 ; write LSB dollars
8144 BEF8 E7 00 .. stab 00,x
8146 BEFB EC 00 .. ldd 00,x
8147 BEFD CE 00 64 ..d ldx #0064 ; %100
8149 BF01 CE 00 0A ... ldx #000a ; /10
8152 BF06 CB 30 .0 addb #30
8155 BF0A E6 06 .. ldab 06,x
8157 BF0D C3 0B 93 ... addd #0b93 ; write MSB cents
8160 BF12 E7 00 .. stab 00,x
8162 BF15 EC 00 .. ldd 00,x
8163 BF17 CE 00 0A ... ldx #000a
8165 BF1B CB 30 .0 addb #30
8168 BF1F E6 06 .. ldab 06,x
8170 BF22 C3 0B 92 ... addd #0b92 ; write LSB cents
8173 BF27 E7 00 .. stab 00,x
8174 BF29 F6 00 13 ... ldab 0013
8175 BF2C C1 01 .. cmpb #01
8176 BF2E 22 03 ". bhi 03
8177 BF30 7E BF DE ~.. jmp bfde ;goto32
8179 BF34 E6 05 .. ldab 05,x
8181 BF37 C3 0B 92 ... addd #0b92
8183 BF3B E6 00 .. ldab 00,x
8186 BF3F E6 06 .. ldab 06,x
8188 BF42 C3 0B 91 ... addd #0b91
8191 BF47 E7 00 .. stab 00,x
8193 BF4A E6 05 .. ldab 05,x
8195 BF4D C3 0B 93 ... addd #0b93
8197 BF51 E6 00 .. ldab 00,x
8200 BF55 E6 06 .. ldab 06,x
8202 BF58 C3 0B 92 ... addd #0b92
8205 BF5D E7 00 .. stab 00,x
8206 BF5F F6 00 13 ... ldab 0013
8207 BF62 C1 02 .. cmpb #02
8208 BF64 26 10 &. bne 10
8209 BF66 C6 2E .. ldab #2e
8212 BF6A E6 06 .. ldab 06,x
8214 BF6D C3 0B 93 ... addd #0b93
8217 BF72 E7 00 .. stab 00,x
8218 BF74 20 68 h bra 68 ;goto32
8220 BF76 C1 04 .. cmpb #04
8221 BF78 26 26 && bne 26
8223 BF7B E6 05 .. ldab 05,x
8225 BF7E C3 0B 94 ... addd #0b94
8227 BF82 E6 00 .. ldab 00,x
8230 BF86 E6 06 .. ldab 06,x
8232 BF89 C3 0B 93 ... addd #0b93
8235 BF8E E7 00 .. stab 00,x
8236 BF90 C6 2E .. ldab #2e ; "."
8239 BF94 E6 06 .. ldab 06,x
8241 BF97 C3 0B 94 ... addd #0b94
8244 BF9C E7 00 .. stab 00,x
8246 BFA0 C1 08 .. cmpb #08
8247 BFA2 26 3A &: bne 3a
8249 BFA5 E6 05 .. ldab 05,x
8251 BFA8 C3 0B 94 ... addd #0b94
8253 BFAC E6 00 .. ldab 00,x
8256 BFB0 E6 06 .. ldab 06,x
8258 BFB3 C3 0B 93 ... addd #0b93
8261 BFB8 E7 00 .. stab 00,x
8263 BFBB E6 05 .. ldab 05,x
8265 BFBE C3 0B 95 ... addd #0b95
8267 BFC2 E6 00 .. ldab 00,x
8270 BFC6 E6 06 .. ldab 06,x
8272 BFC9 C3 0B 94 ... addd #0b94
8275 BFCE E7 00 .. stab 00,x
8276 BFD0 C6 2E .. ldab #2e ; "."
8279 BFD4 E6 06 .. ldab 06,x
8281 BFD7 C3 0B 95 ... addd #0b95
8284 BFDC E7 00 .. stab 00,x
8286 BFDE F6 0B C0 ... ldab 0bc0
8287 BFE1 C4 01 .. andb #01
8288 BFE3 26 0E &. bne 0e ; to bff3
8289 BFE5 F6 0B C0 ... ldab 0bc0
8290 BFE8 C4 04 .. andb #04
8291 BFEA 26 07 &. bne 07 ; to bff3
8292 BFEC F6 0B C0 ... ldab 0bc0
8293 BFEF C4 08 .. andb #08
8294 BFF1 27 15 '. beq 15 ; to c008
8295 BFF3 F6 00 17 ... ldab 0017
8296 BFF6 C4 08 .. andb #08
8297 BFF8 26 0E &. bne 0e ; to c008
8298 ; plonk a dollar sign somewhere
8299 BFFA C6 24 .$ ldab #24 ; "$"
8302 BFFE E6 06 .. ldab 06,x
8304 C001 C3 0B 96 ... addd #0b96
8307 C006 E7 00 .. stab 00,x
8308 C008 BD BE 69 ..i jsr be69 ;displayreset
8309 C00B F6 00 13 ... ldab 0013
8310 C00E C1 01 .. cmpb #01
8311 C010 23 17 #. bls 17
8312 C012 CE 10 28 ..( ldx #1028
8313 C015 1C 00 40 ... bset 00,x, #40 ; enable SPI send
8314 C018 CE 00 01 ... ldx #0001
8316 C01C CC 00 20 .. ldd #0020
8317 C01F BD BD B5 ... jsr bdb5 ;jump78 - send space to display
8319 C023 CE 10 28 ..( ldx #1028 ; disable SPI send
8320 C026 1D 00 40 ... bclr 00,x, #40
8321 C029 BD BE 10 ... jsr be10 ;jump88 - write buffer to display
8326 ; part of the display: function abstraction
8327 ; D points to a string, and the stack contains the length of the message
8328 ; Also seems to handle scrolling of long strings?
8332 ; need 002c to be zero to display stuff
8333 C031 F6 00 2C .., ldab 002c
8334 C034 27 03 '. beq 03
8335 C036 7E C0 B7 ~.. jmp c0b7 ;goto33 (bail out)
8337 C039 FC 00 03 ... ldd 0003
8339 C03D A3 02 .. subd 02,x
8340 C03F 25 0A %. bcs 0a ; to c04b
8342 C041 E6 07 .. ldab 07,x
8344 C044 E3 02 .. addd 02,x
8345 C046 B3 00 03 ... subd 0003
8346 C049 24 06 $. bcc 06 ; to c051
8349 C04C EC 02 .. ldd 02,x
8350 C04E FD 00 03 ... std 0003
8351 C051 FE 00 03 ... ldx 0003
8353 C055 FF 00 03 ... stx 0003
8357 C05B ED 00 .. std 00,x
8358 C05D C6 09 .. ldab #09
8359 C05F F7 00 18 ... stab 0018
8360 C062 F6 00 18 ... ldab 0018
8361 C065 C1 FF .. cmpb #ff
8362 C067 24 46 $F bcc 46 ; to c0af (jump 70 - write string)
8364 C06A E6 07 .. ldab 07,x
8366 C06D E3 02 .. addd 02,x
8367 C06F A3 00 .. subd 00,x
8368 C071 24 05 $. bcc 05
8370 C074 EC 02 .. ldd 02,x
8371 C076 ED 00 .. std 00,x
8373 C079 EE 00 .. ldx 00,x
8374 C07B E6 00 .. ldab 00,x
8375 C07D C1 40 .@ cmpb #40
8376 C07F 24 13 $. bcc 13
8378 C082 EE 00 .. ldx 00,x
8379 C084 E6 00 .. ldab 00,x
8381 C087 F6 00 18 ... ldab 0018
8383 C08B C3 0B 90 ... addd #0b90
8386 C090 E7 00 .. stab 00,x
8389 C095 EE 00 .. ldx 00,x
8390 C097 E6 00 .. ldab 00,x
8391 C099 CB C0 .. addb #c0
8393 C09C F6 00 18 ... ldab 0018
8395 C0A0 C3 0B 90 ... addd #0b90
8398 C0A5 E7 00 .. stab 00,x
8402 C0AA 7A 00 18 z.. dec 0018
8404 C0AF BD BE 01 ... jsr be01 ;jump70
8405 C0B2 C6 03 .. ldab #03
8406 C0B4 F7 00 2C .., stab 002c
8412 ;Display a string. D points to the string, which is NULL-terminated
8417 C0BC F6 00 1F ... ldab 001f
8418 C0BF C4 04 .. andb #04
8419 C0C1 26 03 &. bne 03
8420 C0C3 7F 00 2C .., clr 002c
8421 C0C6 F6 00 2C .., ldab 002c
8422 C0C9 26 13 &. bne 13 ; to c0de
8425 C0CD FD 00 03 ... std 0003
8426 C0D0 7F 00 2C .., clr 002c
8427 C0D3 CE 00 09 ... ldx #0009
8430 C0D8 EC 02 .. ldd 02,x
8431 C0DA BD C0 2E ... jsr c02e ;jump71
8437 C0E0 F6 00 15 ... ldab 0015
8438 C0E3 2C 02 ,. bge 02
8440 C0E7 CE 00 1D ... ldx #001d
8441 C0EA 1C 00 20 .. bset 00,x, #20
8442 C0ED BD D7 30 . jsr d730 ;jump202
8443 C0EE 83 00 00 .0. subd #0000
8444 C0F3 27 09 '. beq 09
8445 C0F5 CE 00 1D ... ldx #001d
8446 C0F8 1D 00 20 .. bclr 00,x, #20
8451 C0FE CE 00 14 ... ldx #0014
8452 C101 1C 00 01 ... bset 00,x, #01
8453 C104 F6 00 14 ... ldab 0014
8454 C107 F7 38 00 .8. stab 3800 ; note acceptor business
8455 C10A F6 00 15 ... ldab 0015
8456 C10D C4 1F .. andb #1f
8457 C10F 26 03 &. bne 03
8458 C111 7E C3 1B ~.. jmp c31b ;goto34
8459 C114 C6 14 .. ldab #14 ; 20
8460 C116 F7 00 31 ..1 stab 0031
8461 C119 F6 00 15 ... ldab 0015
8462 C11C 2D 15 -. blt 15
8463 C11E F6 00 31 ..1 ldab 0031
8464 C121 C1 0A .. cmpb #0a
8465 C123 22 0C ". bhi 0c
8466 C125 BD C5 D3 ... jsr c5d3 ;jump6
8467 C128 CE 00 1D ... ldx #001d
8468 C12B 1D 00 20 .. bclr 00,x, #20
8474 C133 FC 00 3E ..> ldd 003e
8475 C136 F3 00 40 ..@ addd 0040
8476 C139 FD 00 40 ..@ std 0040
8479 C13E FD 00 3E ..> std 003e
8480 C141 F6 00 15 ... ldab 0015
8481 C144 C4 1F .. andb #1f
8483 C147 BD FE 32 ..2 jsr fe32 ;jump25
8484 C14A C1 64 00 01 .... ; array data for jump25
8485 C14E C1 BA 00 01 ....
8486 C152 C2 10 00 02 ....
8487 C156 C2 66 00 04 .f..
8488 C15A C2 BB 00 08 ....
8489 C15E C3 0E FF F0 ....
8490 C162 00 00 .. ; end of array data
8491 C164 FC 0C DD ... ldd 0cdd
8492 C167 83 FF FF ... subd #ffff
8493 C16A 26 05 &. bne 05
8496 C16E FD 0C DD ... std 0cdd
8497 C171 FE 0C DD ... ldx 0cdd
8499 C175 FF 0C DD ... stx 0cdd
8500 C178 CE 00 64 ..d ldx #0064
8502 C17C CC 00 00 ... ldd #0000
8505 C181 CC 0C F3 ... ldd #0cf3
8506 C184 BD FB DF ... jsr fbdf ;jump46
8509 C189 FE 0C F5 ... ldx 0cf5
8511 C18D FC 0C F3 ... ldd 0cf3
8514 C192 CE FF 9C ... ldx #ff9c
8516 C196 CC 00 63 ..c ldd #0063
8518 C19A A3 02 .. subd 02,x
8521 C19E 26 02 &. bne 02
8522 C1A0 A3 04 .. subd 04,x
8525 C1A4 24 11 $. bcc 11
8526 C1A6 CE 00 64 ..d ldx #0064
8528 C1AA CC FF 9C ... ldd #ff9c
8531 C1AF CC 0C F3 ... ldd #0cf3
8532 C1B2 BD FB DF ... jsr fbdf ;jump46
8535 C1B7 7E C3 0E ~.. jmp c30e ;goto35
8536 C1BA FC 0C DF ... ldd 0cdf
8537 C1BD 83 FF FF ... subd #ffff
8538 C1C0 26 05 &. bne 05
8541 C1C4 FD 0C DF ... std 0cdf
8542 C1C7 FE 0C DF ... ldx 0cdf
8544 C1CB FF 0C DF ... stx 0cdf
8545 C1CE CE 00 C8 ... ldx #00c8
8547 C1D2 CC 00 00 ... ldd #0000
8550 C1D7 CC 0C F7 ... ldd #0cf7
8551 C1DA BD FB DF ... jsr fbdf ;jump46
8554 C1DF FE 0C F9 ... ldx 0cf9
8556 C1E3 FC 0C F7 ... ldd 0cf7
8559 C1E8 CE FF 38 ..8 ldx #ff38 ; -200
8561 C1EC CC 00 C7 ... ldd #00c7
8563 C1F0 A3 02 .. subd 02,x
8566 C1F4 26 02 &. bne 02
8567 C1F6 A3 04 .. subd 04,x
8570 C1FA 24 11 $. bcc 11
8571 C1FC CE 00 C8 ... ldx #00c8 ; 200
8573 C200 CC FF 38 ..8 ldd #ff38 ; -200
8576 C205 CC 0C F7 ... ldd #0cf7
8577 C208 BD FB DF ... jsr fbdf ;jump46
8580 C20D 7E C3 0E ~.. jmp c30e ;goto35
8581 C210 FC 0C E1 ... ldd 0ce1
8582 C213 83 FF FF ... subd #ffff
8583 C216 26 05 &. bne 05
8586 C21A FD 0C E1 ... std 0ce1
8587 C21D FE 0C E1 ... ldx 0ce1
8589 C221 FF 0C E1 ... stx 0ce1
8590 C224 CE 01 F4 ... ldx #01f4
8592 C228 CC 00 00 ... ldd #0000
8595 C22D CC 0C FB ... ldd #0cfb
8596 C230 BD FB DF ... jsr fbdf ;jump46
8599 C235 FE 0C FD ... ldx 0cfd
8601 C239 FC 0C FB ... ldd 0cfb
8604 C23E CE FE 0C ... ldx #fe0c
8606 C242 CC 01 F3 ... ldd #01f3
8608 C246 A3 02 .. subd 02,x
8611 C24A 26 02 &. bne 02
8612 C24C A3 04 .. subd 04,x
8615 C250 24 11 $. bcc 11
8616 C252 CE 01 F4 ... ldx #01f4
8618 C256 CC FE 0C ... ldd #fe0c
8621 C25B CC 0C FB ... ldd #0cfb
8622 C25E BD FB DF ... jsr fbdf ;jump46
8625 C263 7E C3 0E ~.. jmp c30e ;goto35
8626 C266 FC 0C E3 ... ldd 0ce3
8627 C269 83 FF FF ... subd #ffff
8628 C26C 26 05 &. bne 05
8631 C270 FD 0C E3 ... std 0ce3
8632 C273 FE 0C E3 ... ldx 0ce3
8634 C277 FF 0C E3 ... stx 0ce3
8635 C27A CE 03 E8 ... ldx #03e8
8637 C27E CC 00 00 ... ldd #0000
8640 C283 CC 0C FF ... ldd #0cff
8641 C286 BD FB DF ... jsr fbdf ;jump46
8644 C28B FE 0D 01 ... ldx 0d01
8646 C28F FC 0C FF ... ldd 0cff
8649 C294 CE FC 18 ... ldx #fc18 ; -1000
8651 C298 CC 03 E7 ... ldd #03e7
8653 C29C A3 02 .. subd 02,x
8656 C2A0 26 02 &. bne 02
8657 C2A2 A3 04 .. subd 04,x
8660 C2A6 24 11 $. bcc 11
8661 C2A8 CE 03 E8 ... ldx #03e8 ; 1000
8663 C2AC CC FC 18 ... ldd #fc18 ; -1000
8666 C2B1 CC 0C FF ... ldd #0cff
8667 C2B4 BD FB DF ... jsr fbdf ;jump46
8671 C2BB FC 0C E5 ... ldd 0ce5
8672 C2BE 83 C3 4F ..O subd #c34f ; 49999
8673 C2C1 26 05 &. bne 05
8676 C2C5 FD 0C E5 ... std 0ce5
8677 C2C8 FE 0C E5 ... ldx 0ce5
8679 C2CC FF 0C E5 ... stx 0ce5
8680 C2CF CE 07 D0 ... ldx #07d0 ; 2000
8682 C2D3 CC 00 00 ... ldd #0000
8685 C2D8 CC 0D 03 ... ldd #0d03 ; 3331
8686 C2DB BD FB DF ... jsr fbdf ;jump46
8689 C2E0 FE 0D 05 ... ldx 0d05
8691 C2E4 FC 0D 03 ... ldd 0d03
8694 C2E9 CE D9 30 ..0 ldx #d930 ; -9936
8696 C2ED CC 05 F5 ... ldd #05f5 ; 1525
8698 C2F1 A3 02 .. subd 02,x
8701 C2F5 26 02 &. bne 02
8702 C2F7 A3 04 .. subd 04,x
8705 C2FB 24 11 $. bcc 11
8706 C2FD CE 26 D0 .&. ldx #26d0 ; 9936
8708 C301 CC FA 0A ... ldd #fa0a ; -1526
8711 C306 CC 0D 03 ... ldd #0d03 ; 3331
8712 C309 BD FB DF ... jsr fbdf ;jump46
8716 C30E F6 00 15 ... ldab 0015
8717 C311 2C 02 ,. bge 02
8719 C315 CE 00 15 ... ldx #0015
8720 C318 1D 00 1F .. bclr 00,x, #1f
8722 C31B CE 00 1D ... ldx #001d
8723 C31E 1D 00 20 .. bclr 00,x, #20
8724 C320 CC 00 01 . ldd #0001
8728 ; has a good long chat to the bill validator
8729 C325 F6 10 00 ... ldab 1000
8730 C328 C4 01 .. andb #01
8731 C32A 26 13 &. bne 13
8732 C32C 7C 00 7D |.} inc 007d
8733 C32F F6 00 7D ..} ldab 007d
8734 C332 C1 05 .. cmpb #05
8735 C334 23 03 #. bls 03
8736 C336 7F 00 7D ..} clr 007d
8737 C339 7F 00 7E ..~ clr 007e
8738 C33C 7E C4 2F ~./ jmp c42f ;goto36
8739 C33F 7C 00 7E |.~ inc 007e
8740 C342 F6 00 7E ..~ ldab 007e
8741 C345 C1 07 .. cmpb #07
8742 C347 23 17 #. bls 17
8743 C349 7F 00 7D ..} clr 007d
8744 C34C 7F 00 7E ..~ clr 007e
8745 C34F 7F 00 7C ..| clr 007c
8746 C352 F6 00 15 ... ldab 0015
8747 C355 2C 03 ,. bge 03
8748 C357 7F 00 2C .., clr 002c
8749 C35A CE 00 15 ... ldx #0015
8750 C35D 1D 00 80 .. bclr 00,x, #80
8751 C35F F6 00 7E ... ldab 007e
8752 C363 26 03 .. bne 03 ; to c368
8753 C365 7E C4 2F ~./ jmp c42f ;goto36
8754 C368 F6 00 7D ..} ldab 007d
8755 C36B C1 01 .. cmpb #01
8756 C36D 22 03 ". bhi 03
8757 C36F 7E C4 2F ~./ jmp c42f ;goto36
8758 C372 CE 00 15 ... ldx #0015
8759 C375 1C 00 80 .. bset 00,x, #80
8760 C378 CE 0B C1 ... ldx #0bc1
8761 C37B 1D 00 08 .. bclr 00,x #08 ; clear bill error bit
8762 C37E F6 00 1D ... ldab 001d
8763 C381 C4 20 . andb #20
8764 C383 27 03 '. beq 03
8765 C385 7E C4 29 ~.) jmp c429 ;goto38
8766 C388 C6 02 .. ldab #02
8767 C38A F7 00 2C .., stab 002c
8768 C38D 7F 00 3A ..: clr 003a
8769 C390 CE 00 1B ... ldx #001b
8770 C393 1D 00 40 .. bclr 00,x, #40
8771 C396 7F 00 25 ..% clr 0025
8772 C399 CE 00 21 ..! ldx #0021
8773 C39C 1D 00 08 ... bclr 00,x, #08
8774 C39F CE 00 14 ... ldx #0014
8775 C3A2 1D 00 01 .. bclr 00,x, #01
8776 C3A5 F6 00 14 ... ldab 0014
8777 C3A8 F7 38 00 .8. stab 3800 ; note acceptor business
8778 C3AB 7C 00 7C |.| inc 007c
8779 C3AE CE 00 15 ... ldx #0015
8780 C3B1 1D 00 1F .. bclr 00,x, #1f
8781 C3B4 F6 00 7C ..| ldab 007c
8782 C3B7 C1 01 .. cmpb #01
8783 C3B9 26 0E &. bne 0e
8784 C3BB CE 00 15 ... ldx #0015
8785 C3BE 1C 00 01 .. bset 00,x, #01
8786 C3C1 CC 00 64 ..d ldd #0064
8787 C3C4 FD 00 3E ..> std 003e
8789 C3C9 F6 00 7C ..| ldab 007c
8790 C3CC C1 02 .. cmpb #02
8791 C3CE 26 0E &. bne 0e
8792 C3D0 CE 00 15 ... ldx #0015
8793 C3D3 1C 00 02 .. bset 00,x, #02
8794 C3D6 CC 00 C8 ... ldd #00c8
8795 C3D9 FD 00 3E ..> std 003e
8797 C3DE F6 00 7C ..| ldab 007c
8798 C3E1 C1 02 .. cmpb #02
8799 C3E3 23 15 #. bls 15
8800 C3E5 F6 00 7C ..| ldab 007c
8801 C3E8 C1 06 .. cmpb #06
8802 C3EA 24 0E $. bcc 0e
8803 C3EC CE 00 15 ... ldx #0015
8804 C3EF 1C 00 .. bset 00,x, #04
8805 C3F2 CC 01 F4 ... ldd #01f4
8806 C3F5 FD 00 3E ..> std 003e
8808 C3FA F6 00 7C ..| ldab 007c
8809 C3FD C1 05 .. cmpb #05
8810 C3FF 23 15 #. bls 15
8811 C401 F6 00 7C ..| ldab 007c
8812 C404 C1 0B .. cmpb #0b
8813 C406 24 0E $. bcc 0e
8814 C408 CE 00 15 ... ldx #0015
8815 C40B 1C 00 08 .. bset 00,x, #08
8816 C40E CC 03 E8 ... ldd #03e8
8817 C411 FD 00 3E ..> std 003e
8818 C414 20 13 . bra 13 ; to c429
8819 C416 F6 00 7C ..| ldab 007c
8820 C419 C1 0B .. cmpb #0b
8821 C41B 23 0C #. bls 0c
8822 C41D CE 00 15 ... ldx #0015
8823 C420 1C 00 10 .. bset 00,x, #10
8824 C423 CC 07 D0 ... ldd #07d0
8825 C426 FD 00 3E ..> std 003e
8827 C429 7F 00 7D ..} clr 007d
8828 C42C 7F 00 7E ..~ clr 007e
8833 ; tweaks the changer output lines (at 3000) that correspond with the bitmask of
8834 ; 0001. It pulls the lines with 1 set in the bitmask low (active) for 100ms
8835 C430 F6 00 01 ... ldab 0001
8837 C434 F4 00 1A ... andb 001a ; 0x3000 buffer - changer outputs
8838 C437 F7 00 1A ... stab 001a
8839 C43A F6 00 1A ... ldab 001a
8840 C43D F7 30 00 .0. stab 3000 ; coin mask
8841 C440 CC 00 64 ..d ldd #0064
8842 C443 BD E5 71 ..q jsr e571 ;msdelay
8843 C446 F6 00 01 ... ldab 0001
8844 C449 FA 00 1A ... orb 001a
8845 C44C F7 00 1A ... stab 001a
8846 C44F F6 00 1A ... ldab 001a
8847 C452 F7 30 00 .0. stab 3000 ; changer outputs again
8851 ; coin have something to do with coin counting?
8852 C456 FC 00 40 ..@ ldd 0040
8853 C459 26 03 &. bne 03
8854 C45B 7E C5 C6 ~.. jmp c5c6 ;goto39 - unset 0x30 in 0021 & return
8855 C45E CE 00 1A ... ldx #001a
8856 C461 1C 00 01 .. bset 00,x, #01
8857 C464 F6 00 1A ... ldab 001a
8858 C467 F7 30 00 .0. stab 3000 ; changer accept off
8859 C46A CC 03 E8 ... ldd #03e8 ; 1000
8860 C46D BD E5 71 ..q jsr e571 ;msdelay
8862 C470 FC 00 40 ..@ ldd 0040
8863 C473 83 00 00 ... subd #0000
8864 C476 22 03 ". bhi 03
8865 C478 7E C5 B0 ~.. jmp c5b0 ;goto40
8866 C47B F6 00 1B ... ldab 001b
8867 C47E C4 20 . andb #20
8868 C480 27 1B '. beq 1b
8869 C482 FC 00 40 ..@ ldd 0040
8870 C485 83 03 E8 ... subd #03e8
8871 C488 25 13 %. bcs 13
8872 C48A C6 28 .( ldab #28
8873 C48C F7 00 01 ... stab 0001
8874 C48F CC FC 18 ... ldd #fc18
8875 C492 F3 00 40 ..@ addd 0040
8876 C495 FD 00 40 ..@ std 0040
8877 C498 8D 96 .. bsr dest 96
8878 C49A 7E C5 7C ~.| jmp c57c ;goto41
8879 C49D F6 00 1B ... ldab 001b
8880 C4A0 C4 20 . andb #20
8881 C4A2 27 1C '. beq 1c
8882 C4A4 FC 00 40 ..@ ldd 0040
8883 C4A7 83 00 64 ..d subd #0064
8884 C4AA 25 14 %. bcs 14
8885 C4AC C6 30 .0 ldab #30
8886 C4AE F7 00 01 ... stab 0001
8887 C4B1 CC FF 9C ... ldd #ff9c
8888 C4B4 F3 00 40 ..@ addd 0040
8889 C4B7 FD 00 40 ..@ std 0040
8890 C4BA BD C4 30 ..0 jsr c430 ;jump26
8891 C4BD 7E C5 7C ~.| jmp c57c ;goto41
8892 C4C0 FC 0B DD ... ldd 0bdd
8893 C4C3 27 3C '< beq 3c
8894 C4C5 FC 00 40 ..@ ldd 0040
8895 C4C8 B3 0B DD ... subd 0bdd
8896 C4CB 25 34 %4 bcs 34
8897 C4CD F6 0C DB ... ldab 0cdb
8898 C4D0 26 07 &. bne 07
8899 C4D2 F6 00 1B ... ldab 001b
8900 C4D5 C4 20 . andb #20
8901 C4D7 27 28 '( beq 28
8902 C4D9 FC 0B DD ... ldd 0bdd
8905 C4DE F9 00 41 ..A adcb 0041
8906 C4E1 B9 00 40 ..@ adca 0040
8907 C4E4 FD 00 40 ..@ std 0040
8908 C4E7 F6 0B DA ... ldab 0bda
8909 C4EA F7 00 01 ... stab 0001
8910 C4ED BD C4 30 ..0 jsr c430 ;jump26
8911 C4F0 F6 00 1B ... ldab 001b
8912 C4F3 C4 20 . andb #20
8913 C4F5 26 08 &. bne 08
8914 C4F7 F6 0C DB ... ldab 0cdb
8915 C4FA 27 03 '. beq 03
8916 C4FC 7A 0C DB z.. dec 0cdb
8918 C501 FC 0B DF ... ldd 0bdf
8919 C504 27 3C '< beq 3c
8920 C506 FC 00 40 ..@ ldd 0040
8921 C509 B3 0B DF ... subd 0bdf
8922 C50C 25 34 %4 bcs 34
8923 C50E F6 0C DA ... ldab 0cda
8924 C511 26 07 &. bne 07
8925 C513 F6 00 1B ... ldab 001b
8926 C516 C4 20 . andb #20
8927 C518 27 28 '( beq 28
8928 C51A FC 0B DF ... ldd 0bdf
8931 C51F F9 00 41 ..A adcb 0041
8932 C522 B9 00 40 ..@ adca 0040
8933 C525 FD 00 40 ..@ std 0040
8934 C528 F6 0B DB ... ldab 0bdb
8935 C52B F7 00 01 ... stab 0001
8936 C52E BD C4 30 ..0 jsr c430 ;jump26
8937 C531 F6 00 1B ... ldab 001b
8938 C534 C4 20 . andb #20
8939 C536 26 08 &. bne 08
8940 C538 F6 0C DA ... ldab 0cda
8941 C53B 27 03 '. beq 03
8942 C53D 7A 0C DA z.. dec 0cda
8944 C542 FC 0B E1 ... ldd 0be1
8945 C545 27 30 '0 beq 30
8946 C547 FC 00 40 ..@ ldd 0040
8947 C54A B3 0B E1 ... subd 0be1
8948 C54D 25 28 %( bcs 28
8949 C54F FC 0B E1 ... ldd 0be1
8952 C554 F9 00 41 ..A adcb 0041
8953 C557 B9 00 40 ..@ adca 0040
8954 C55A FD 00 40 ..@ std 0040
8955 C55D F6 0B DC ... ldab 0bdc
8956 C560 F7 00 01 ... stab 0001
8957 C563 BD C4 30 ..0 jsr c430 ;jump26
8958 C566 F6 00 1B ... ldab 001b
8959 C569 C4 20 . andb #20
8960 C56B 26 08 &. bne 08
8961 C56D F6 0C D9 ... ldab 0cd9
8962 C570 27 03 '. beq 03
8963 C572 7A 0C D9 z.. dec 0cd9
8967 C579 FD 00 40 ..@ std 0040
8969 C57C CC 01 2C .., ldd #012c ;300 ms
8970 C57F BD E5 71 ..q jsr e571 ;msdelay
8971 C582 F6 00 1B ... ldab 001b
8972 C585 C4 20 . andb #20
8973 C587 26 24 &$ bne 24
8974 C589 CE 00 1A ... ldx #001a
8975 C58C 1D 00 01 .. bclr 00,x, #01
8976 C58F F6 00 1A ... ldab 001a
8977 C592 F7 30 00 .0. stab 3000 ; changer accept' low
8978 C595 CC 00 0C ... ldd #000c ; 12 ms
8979 C598 BD E5 71 ..q jsr e571 ;msdelay
8980 C59B CE 00 1A ... ldx #001a
8981 C59E 1C 00 01 .. bset 00,x, #01
8982 C5A1 F6 00 1A ... ldab 001a
8983 C5A4 F7 30 00 .0. stab 3000 ; changer accept' high
8984 C5A7 CC 00 23 ..# ldd #0023
8985 C5AA BD E5 71 ..q jsr e571 ;msdelay
8986 C5AD 7E C4 70 ~.p jmp c470 ;goto42 - loop
8988 C5B0 F6 0B C0 ... ldab 0bc0
8989 C5B3 C4 04 .. andb #04
8990 C5B5 27 0F '. beq 0f
8991 C5B7 F6 00 1B ... ldab 001b
8992 C5BA C4 20 . andb #20
8993 C5BC 27 08 '. beq 08
8994 C5BE C6 38 .8 ldab #38
8995 C5C0 F7 00 01 ... stab 0001
8996 C5C3 BD C4 30 ..0 jsr c430 ;jump26
8998 C5C6 CE 00 21 ..! ldx #0021
8999 C5C9 1D 00 10 ... bclr 00,x, #10
9000 C5CC CE 00 1B ... ldx #001b
9001 C5CF 1D 00 .. bclr 00,x, #20
9005 C5D3 F6 00 15 ... ldab 0015
9006 C5D6 C4 1F .. andb #1f
9007 C5D8 26 03 &. bne 03
9008 C5DA 7E C6 7C ~.| jmp c67c ;goto43
9009 C5DD CC 00 C8 ... ldd #00c8
9010 C5E0 BD E5 71 ..q jsr e571 ;msdelay
9011 C5E3 FC 00 3E ..> ldd 003e
9012 C5E6 27 58 'X beq 58
9013 C5E8 F6 00 15 ... ldab 0015
9014 C5EB C4 1F .. andb #1f
9016 C5EE BD FE 32 ..2 jsr fe32 ;jump25
9017 C5F1 C6 0B 00 01 .. ; array data for jump25
9023 C609 00 00 .. ;end of array data
9024 C60B CC FF 9C ... ldd #ff9c
9025 C60E F3 00 3E ..> addd 003e
9026 C611 FD 00 3E ..> std 003e
9028 C616 CC FF 38 ..8 ldd #ff38
9029 C619 F3 00 3E ..> addd 003e
9030 C61C FD 00 3E ..> std 003e
9032 C621 CC FE 0C ... ldd #fe0c
9033 C624 F3 00 3E ..> addd 003e
9034 C627 FD 00 3E ..> std 003e
9036 C62C CC FC 18 ... ldd #fc18
9037 C62F F3 00 3E ..> addd 003e
9038 C632 FD 00 3E ..> std 003e
9040 C637 CC F8 30 ..0 ldd #f830
9041 C63A F3 00 3E ..> addd 003e
9042 C63D FD 00 3E ..> std 003e
9043 C640 CE 00 14 ... ldx #0014
9044 C643 1D 00 02 ... bclr 00,x, #02
9045 C646 F6 00 14 ... ldab 0014
9046 C649 F7 38 00 .8. stab 3800 ; bill acceptor
9047 C64C CC 00 1E ... ldd #001e
9048 C64F BD E5 71 ..q jsr e571 ;msdelay
9049 C652 CE 00 15 ... ldx #0015
9050 C655 1D 00 .. bclr add,x 00,x
9051 C657 1F CE 00 14 .... brclr ce,x 00 14
9052 C65B 1C 00 02 ... bset 00,x, #02
9053 C65E F6 00 14 ... ldab 0014
9054 C661 F7 38 00 .8. stab 3800 ; bill acceptor
9055 C664 CC 00 19 ... ldd #0019
9056 C667 BD E5 71 ..q jsr e571 ;msdelay
9057 C66A CE 00 14 ... ldx #0014
9058 C66D 1C 00 01 .. bset 00,x, #01
9059 C670 F6 00 14 ... ldab 0014
9060 C673 F7 38 00 .8. stab 3800 ; bill acceptor
9061 C676 CC 00 19 ... ldd #0019
9062 C679 BD E5 71 ..q jsr e571 ;msdelay
9068 C67D F6 00 30 ..0 ldab 0030
9069 C680 26 55 &U bne 55 ; to c6d7
9070 C682 F6 0B C0 ... ldab 0bc0
9071 C685 C4 04 .. andb #04 ; have a card reader
9072 C687 26 4E &N bne 4e ; to c6d7
9073 C689 C6 27 .' ldab #27
9074 C68B F7 10 2D ..- stab 102d ; disable SCI transmission
9075 C68E C6 07 .. ldab #07
9076 C690 F7 10 2B ..+ stab 102b ; 600 baud
9077 C693 CE 00 1A ... ldx #001a
9078 C696 1C 00 .. bset 00,x, #04
9079 C699 F6 00 1A ... ldab 001a
9080 C69C F7 30 00 .0. stab 3000 ; keypad strobe
9081 C69F CC 00 14 ... ldd #0014
9082 C6A2 BD E5 71 ..q jsr e571 ;msdelay
9083 C6A5 F6 0B C0 ... ldab 0bc0
9084 C6A8 C4 01 .. andb #01 ; have a dumb mech
9085 C6AA 27 06 '. beq 06
9086 C6AC CE 0B C1 ... ldx #0bc1
9087 C6AF 1C 00 01 ... bset 00,x, #01 ; set changer powerup error bit
9088 C6B2 F6 0B C0 ... ldab 0bc0
9089 C6B5 C4 04 .. andb #04
9090 C6B7 27 06 '. beq 06
9091 C6B9 CE 0B C1 ... ldx #0bc1
9092 C6BC 1C 00 02 ... bset 00,x, #02 ; set card powerup error bit
9093 C6BF CE 00 1A ... ldx #001a
9094 C6C2 1D 00 04 ... bclr 00,x, #04 ; keypad strobe finish
9095 C6C5 F6 00 1A ... ldab 001a
9096 C6C8 F7 30 00 .0. stab 3000
9097 C6CB C6 96 .. ldab #96
9098 C6CD F7 00 30 ..0 stab 0030
9099 C6D0 C6 1E .. ldab #1e
9100 C6D2 F7 00 35 ..5 stab 0035
9103 C6D7 F6 18 00 ... ldab 1800
9104 C6DA 2D 2A -* blt 2a
9105 C6DC F6 00 07 ... ldab 0007
9106 C6DF 26 25 &% bne 25
9107 C6E1 CE 00 1A ... ldx #001a
9108 C6E4 1D 00 02 ... bclr 00,x, #02
9109 C6E7 F6 00 1A ... ldab 001a
9110 C6EA F7 30 00 .0. stab 3000 ; changer send' low
9111 C6ED C6 64 .d ldab #64
9112 C6EF F7 00 2D ..- stab 002d
9113 C6F2 CC 00 32 ..2 ldd #0032
9114 C6F5 BD E5 71 ..q jsr e571 ;msdelay
9115 C6F8 CE 00 1A ... ldx #001a
9116 C6FB 1C 00 02 ... bset 00,x, #02
9117 C6FE F6 00 1A ... ldab 001a
9118 C701 F7 30 00 .0. stab 3000 ; changer send' high
9120 C706 F6 00 2D ..- ldab 002d
9121 C709 26 29 &) bne 29
9122 C70B CE 00 1A ... ldx #001a
9123 C70E 1D 00 01 ... bclr 00,x, #01
9124 C711 F6 00 1A ... ldab 001a
9125 C714 F7 30 00 .0. stab 3000 ; changer accept' low
9126 C717 CC 00 0C ... ldd #000c
9127 C71A BD E5 71 ..q jsr e571 ;msdelay
9128 C71D CE 00 1A ... ldx #001a
9129 C720 1C 00 01 ... bset 00,x, #01
9130 C723 F6 00 1A ... ldab 001a
9131 C726 F7 30 00 .0. stab 3000 ; changer accept' high
9132 C729 CC 00 23 ..# ldd #0023
9133 C72C BD E5 71 ..q jsr e571 ;msdelay
9134 C72F C6 64 .d ldab #64
9135 C731 F7 00 2D ..- stab 002d
9136 C734 F6 00 21 ..! ldab 0021
9137 C737 C4 10 .. andb #10
9138 C739 27 45 'E beq 45
9139 C73B F6 00 11 ... ldab 0011
9140 C73E C4 04 .. andb #04
9141 C740 26 1A &. bne 1a
9142 C742 FC 00 40 ..@ ldd 0040
9143 C745 F3 00 3E ..> addd 003e
9144 C748 B3 00 50 ..P subd 0050
9145 C74B 25 0F %. bcs 0f
9146 C74D F6 0B C0 ... ldab 0bc0
9147 C750 C4 04 .. andb #04
9148 C752 26 08 &. bne 08
9149 C754 CE 00 21 ..! ldx #0021
9150 C757 1D 00 10 ... bclr 00,x, #10
9152 C75C F6 0B C0 ... ldab 0bc0
9153 C75F C4 08 .. andb #08
9154 C761 27 03 '. beq 03
9155 C763 BD C5 D3 ... jsr c5d3 ;jump6
9156 C766 FC 0B DD ... ldd 0bdd
9157 C769 26 12 &. bne 12
9158 C76B FC 0B DF ... ldd 0bdf
9159 C76E 26 0D &. bne 0d
9160 C770 FC 0B E1 ... ldd 0be1
9161 C773 26 08 &. bne 08
9162 C775 CE 00 21 ..! ldx #0021
9163 C778 1D 00 10 ... bclr 00,x, #10
9165 C77D BD C4 56 ..V jsr c456 ;jump47
9166 C780 F6 00 15 ... ldab 0015
9167 C783 2D 08 -. blt 08
9168 C785 CE 00 21 ..! ldx #0021
9169 C788 1C 00 08 ... bset 00,x, #08
9171 C78D CE 00 21 ..! ldx #0021
9172 C790 1D 00 08 ... bclr 00,x, #08
9175 ;proc(a,b) var local
9185 C796 34 4 des ;stack: 0=local, 1=A, 2=B
9187 C798 6F 00 o. clr 00,x
9190 C79B E6 02 .. ldab 02,x
9191 C79D 27 1A '. beq exit ;c7b9
9193 C7A0 1F 02 01 0D .... brclr 02,x 01 skip ;c7b1
9195 C7A5 E6 00 .. ldab 00,x
9196 C7A7 27 05 '. beq else ;c7ae
9198 C7AA 6A 00 j. dec 00,x
9199 C7AC 20 03 . bra skip ;c7b1
9202 C7AF 6C 00 l. inc 00,x
9205 C7B2 E6 02 .. ldab 02,x
9207 C7B5 E7 02 .. stab 02,x
9208 C7B7 20 E1 . bra loop ;c79a
9211 C7BA E6 00 .. ldab 00,x
9218 ; parity tester. returns 1 if good
9219 C7C0 F6 10 2F ../ ldab 102f ; sci data
9221 C7C4 8D CE .. bsr c794 ; parity test?
9222 C7C6 83 00 00 ... subd #0000
9223 C7C9 27 05 '. beq 05
9224 C7CB F6 10 2C .., ldab 102c ; test the 9th bit
9225 C7CE 2D 10 -. blt 10 ; to c7e0
9226 C7D0 F6 10 2F ../ ldab 102f ; sci data
9228 C7D4 8D BE .. bsr c794 ; parity test?
9229 C7D6 83 00 00 ... subd #0000
9230 C7D9 26 09 &. bne 09 ; to c7e4
9231 C7DB F6 10 2C .., ldab 102c ; test the 9th bit
9232 C7DE 2D 04 -. blt 04
9233 C7E0 CC 00 01 ... ldd #0001 ; return 1
9241 ;this might send a byte to the serial port
9245 C7E9 C6 32 .2 ldab #32 ; 50 00110010
9246 C7EB F7 00 31 ..1 stab 0031
9248 C7EF E6 01 .. ldab 01,x
9249 C7F1 F7 00 43 ..C stab 0043
9250 ; poll the TD register empty flag until it's set
9251 C7F4 F6 10 2E ... ldab 102e
9252 C7F7 2D 02 -. blt 02 ; transmit data register empty
9253 C7F9 20 F9 . bra f9 ; to c7f4
9256 C7FC E6 01 .. ldab 01,x
9258 C7FF 8D 93 .. bsr 93 ; to c794 - generate parity bit?
9259 C801 83 00 00 ... subd #0000
9260 C804 27 08 '. beq 08
9261 C806 CE 10 2C .., ldx #102c
9262 C809 1C 00 40 ... bset 00,x, #40 ; set the 9th bit
9264 C80E CE 10 2C .., ldx #102c ;SCI control 1
9265 C811 1D 00 40 ... bclr 00,x, #40 ; clear the 9th bit
9267 C815 E6 01 .. ldab 01,x
9268 C817 F7 10 2F ../ stab 102f ; send to serial port
9277 ; make sure this interrupt is valid
9278 C81D F6 0B C0 ... ldab 0bc0
9279 C820 C4 01 .. andb #01 ; do we have a dumb mech?
9280 C822 26 0A &. bne 0a ; if so, to c82e
9282 C824 F6 0B C0 ... ldab 0bc0
9283 C827 C4 04 .. andb #04 ; do we have a card reader?
9284 C829 26 03 &. bne 03 ; if so, to c82e
9285 C82B 7E CB FF ~.. jmp cbff ; else to goto44
9287 C82E C6 96 .. ldab #96 ; 150
9288 C830 F7 00 30 ..0 stab 0030 ; changer related still?
9289 C833 F6 10 2E ... ldab 102e ; SCI status
9290 C836 C4 02 .. andb #02 ; test for Framing Error
9291 C838 26 0B &. bne 0b ; if so, to c845
9292 C83A F6 10 2F ../ ldab 102f ; read SCI data
9293 C83D F1 00 26 ..& cmpb 0026
9294 C840 26 03 &. bne 03
9295 C842 7E C9 1B ~.. jmp c91b ;goto45
9297 C845 F6 10 2F ../ ldab 102f ; read SCI data
9298 C848 C4 63 .c andb #63 ; 01100110
9299 C84A C1 23 .# cmpb #23 ; 00100110
9300 C84C 27 03 '. beq 03
9301 C84E 7E C8 E7 ~.. jmp c8e7 ;goto46 - pulse send' of changer
9303 C851 F6 00 1A ... ldab 001a ; register 3000 buffer
9304 C854 C4 01 .. andb #01 ; accept' line of changer
9305 C856 26 03 &. bne 03
9306 C858 7E C8 E7 ~.. jmp c8e7 ;goto46 - pulse send' of changer
9308 C85B F6 00 21 ..! ldab 0021
9309 C85E C4 F8 .. andb #f8 ; 11111000
9311 C861 F6 10 2F ../ ldab 102f ; read SCI data
9312 C864 C4 1C .. andb #1c ; 00011100
9313 C866 54 T lsrb ; ^^^
9314 C867 54 T lsrb ; get these bits out
9316 C869 EA 00 .. orb 00,x ; or it with the thing just above
9318 C86C F7 00 21 ..! stab 0021
9319 C86F F6 00 21 ..! ldab 0021
9320 C872 F4 0B D7 ... andb 0bd7 ; if (0021 & 0bd7)
9321 C875 27 08 '. beq 08 ; is false
9322 C877 CE 00 17 ... ldx #0017
9323 C87A 1C 00 20 .. bset 00,x, #20
9325 C87F F6 00 17 ... ldab 0017 ; if true
9326 C882 C4 20 . andb #20
9327 C884 27 11 '. beq 11 ; if unset to c897 (break out of if)
9328 C886 CE 00 17 ... ldx #0017
9329 C889 1D 00 .. bclr 00,x, #20
9330 C88C C6 04 . andb #04
9331 C88E F7 0C DB ... stab 0cdb
9332 C891 CE 0B C1 ... ldx #0bc1
9333 C894 1C 00 40 ... bset 00,x, #40 ; set tube error
9335 C897 F6 00 21 ..! ldab 0021
9336 C89A F4 0B D8 ... andb 0bd8
9337 C89D 27 08 '. beq 08 ; to c8a7
9338 C89F CE 00 17 ... ldx #0017
9339 C8A2 1C 00 40 ... bset 00,x, #40
9340 C8A5 20 18 . bra 18 ; to c8cf
9342 C8A7 F6 00 17 ... ldab 0017
9343 C8AA C4 40 .@ andb #40
9344 C8AC 27 11 '. beq 11 ; to c8bf if unset
9345 C8AE CE 00 17 ... ldx #0017
9346 C8B1 1D 00 40 ... bclr 00,x, #40
9347 C8B4 C6 04 .. ldab #04
9348 C8B6 F7 0C DA ... stab 0cda
9349 C8B9 CE 0B C1 ... ldx #0bc1
9350 C8BC 1C 00 40 ... bset 00,x, #40 ; set tube error
9351 ; if 0021 & 0bd9, then set bit 7 of 0017, else unset it.
9352 C8BF F6 00 21 ..! ldab 0021
9353 C8C2 F4 0B D9 ... andb 0bd9
9354 C8C5 27 08 '. beq 08
9355 C8C7 CE 00 17 ... ldx #0017
9356 C8CA 1C 00 80 .. bset 00,x, #80
9357 C8CC 20 16 . bra 16 ; to c8e5
9359 C8CF F6 00 17 ... ldab 0017
9360 C8D2 2C 11 ,. bge 11 ; to c8e5
9361 C8D4 CE 00 17 ... ldx #0017
9362 C8D7 1D 00 .. bclr 00,x, #80
9364 C8D9 C6 04 .. ldab #04
9365 C8DC F7 0C D9 ... stab 0cd9
9366 ; set tube error bit
9367 C8DF CE 0B C1 ... ldx #0bc1
9368 C8E2 1C 00 40 ... bset 00,x, #40 ; set tube error bit
9369 C8E5 20 31 1 bra 31 ; to c918
9371 goto46: ; pulse the send' line of the changer
9372 C8E7 F6 10 2F ../ ldab 102f ; read SCI data
9373 C8EA F7 00 26 ..& stab 0026
9374 C8ED CE 00 1A ... ldx #001a
9375 C8F0 1C 00 02 ... bset 00,x, #02
9376 C8F3 F6 00 1A ... ldab 001a
9377 C8F6 F7 30 00 .0. stab 3000 ; changer send' high
9378 C8F9 F6 00 3D ..= ldab 003d
9379 C8FC C4 04 .. andb #04
9380 C8FE 26 18 &. bne 18 ; to c918
9381 C900 CC 00 03 ... ldd #0003
9382 C903 BD E5 71 ..q jsr e571 ;msdelay
9383 C906 CE 00 1A ... ldx #001a
9384 C909 1D 00 02 ... bclr 00,x, #02
9385 C90C F6 00 1A ... ldab 001a
9386 C90F F7 30 00 .0. stab 3000 ; changer send' low
9387 C912 7C 00 3D |.= inc 003d
9388 C915 7E CE 46 ~.F jmp ce46 ;goto47 (exit)
9389 C918 7E CB DA ~.. jmp cbda ;goto48 (clean exit)
9392 C91B F6 00 08 ... ldab 0008
9393 C91E 26 03 &. bne 03
9394 C920 7E CA 5F ~._ jmp ca5f ;goto49
9395 C923 F6 00 17 ... ldab 0017
9396 C926 C4 04 .. andb #04
9397 C928 26 03 &. bne 03
9398 C92A 7E CA 5F ~._ jmp ca5f ;goto49
9399 C92D F6 00 17 ... ldab 0017
9400 C930 C4 08 .. andb #08
9401 C932 26 03 &. bne 03
9402 C934 7E CA 5F ~._ jmp ca5f ;goto49
9403 C937 F6 10 2F ../ ldab 102f ; read SCI data
9404 C93A C1 FF .. cmpb #ff
9405 C93C 27 07 '. beq 07 ; to c945
9406 C93E F6 00 08 ... ldab 0008
9407 C941 C1 0E .. cmpb #0e ; if > 14
9408 C943 25 12 %. bcs 12 ; to c957
9409 C945 CE 00 17 ... ldx #0017
9410 C948 1D 00 04 ... bclr 00,x, #04
9411 C94B 7F 00 08 ... clr 0008
9412 C94E BD CE 48 ..H jsr ce48 ;jump48 - update values?
9413 C951 7F 00 2C .., clr 002c
9414 C954 7E CA 5C ~.\ jmp ca5c ;goto50 - clean exit
9416 C957 F6 00 08 ... ldab 0008
9418 C95B BD FE 16 ... jsr fe16 ;jump2
9420 C962 CA 59 .Y ; inc 0008 and clean exit
9421 C964 C9 7E .~ ; read byte into 0bc2
9422 C966 C9 87 .. ; read byte into 0bc3 & ^10 and stuff
9423 C968 C9 DF .. ; read byte into 0bc4 & stuff
9424 C96A C9 F3 .. ; read byte into 0bc5 & stuff
9425 C96C CA 07 .. ; read byte into 0bc6 & stuff
9426 C96E CA 1B .. ; read byte into 0bc7 only
9427 C970 CA 23 .# ; read byte into 0bc8 only
9428 C972 CA 2B .+ ; read byte into 0bc9 only
9429 C974 CA 33 .3 ; read byte into 0bca only
9430 C976 CA 3B .; ; read byte into 0bcb only
9431 C978 CA 43 .C ; read byte into 0bcc only
9432 C97A CA 4B .K ; read byte into 0bcd only
9433 C97C CA 53 .S ; read byte into 0bce only
9434 C97E F6 10 2F ../ ldab 102f ; read SCI data
9435 C981 F7 0B C2 ... stab 0bc2
9436 C984 7E CA 59 ~.Y jmp ca59 ;goto51 - inc 0008 and exit
9438 C987 F6 10 2F ../ ldab 102f ; read SCI data
9439 C98A F7 0B E3 ... stab 0be3
9440 C98D F6 10 2F ../ ldab 102f ; read SCI data
9441 C990 C4 0F .. andb #0f
9442 C992 C1 01 .. cmpb #01
9443 C994 26 07 &. bne 07 ; to c99d
9444 C996 C6 02 .. ldab #02
9445 C998 F7 00 13 ... stab 0013
9446 C99B 20 1B . bra 1b ; to c9b8
9447 C99D C1 02 .. cmpb #02
9448 C99F 26 07 &. bne 07 ; to c9a8
9449 C9A1 C6 04 .. ldab #04
9450 C9A3 F7 00 13 ... stab 0013
9451 C9A6 20 10 . bra 10 ; to c9b8
9452 C9A8 C1 03 .. cmpb #03
9453 C9AA 26 07 &. bne 07 ; to c9b3
9454 C9AC C6 08 .. ldab #08
9455 C9AE F7 00 13 ... stab 0013
9456 C9B1 20 05 . bra 05 ; to c9b8
9457 C9B3 C6 01 .. ldab #01
9458 C9B5 F7 00 13 ... stab 0013
9459 C9B8 F6 10 2F ../ ldab 102f ; read SCI data
9460 C9BB C4 F0 .. andb #f0
9465 C9C1 F7 0B C3 ... stab 0bc3
9466 C9C4 F6 0B C2 ... ldab 0bc2
9467 C9C7 F7 0B AA ... stab 0baa
9468 ;;0baa^:=pow(10,0bc3^) 0bc3 is the top 4 bits from the serial port.
9473 C9CA F6 0B C3 ... ldab 0bc3
9474 C9CD 27 0E '. beq c9dd
9475 C9CF F6 0B AA ... ldab 0baa
9476 C9D2 86 0A .. ldaa #0a
9478 C9D5 F7 0B AA ... stab 0baa
9479 C9D8 7A 0B C3 z.. dec 0bc3
9480 C9DB 20 ED . bra c9ca
9482 C9DD 20 7A z bra 7a ;goto51 - inc 0008 & clean exit
9484 C9DF F6 10 2F ../ ldab 102f ; read SCI data
9485 C9E2 F7 0B C4 ... stab 0bc4
9486 C9E5 F6 0B C4 ... ldab 0bc4
9487 C9E8 C1 80 .. cmpb #80 ; if == 128
9488 C9EA 26 05 &. bne 05
9489 C9EC C6 0F .. ldab #0f ; put 15 => 0bc4
9490 C9EE F7 0B C4 ... stab 0bc4
9491 C9F1 20 66 f bra 66 ;goto51 - inc 0008 & clean exit
9493 C9F3 F6 10 2F ../ ldab 102f ; read SCI data
9494 C9F6 F7 0B C5 ... stab 0bc5
9495 C9F9 F6 0B C5 ... ldab 0bc5
9496 C9FC C1 80 .. cmpb #80
9497 C9FE 26 05 &. bne 05
9498 CA00 C6 0F .. ldab #0f
9499 CA02 F7 0B C5 ... stab 0bc5
9500 CA05 20 52 R bra 52 ;goto51 - inc 0008 & clean exit
9502 CA07 F6 10 2F ../ ldab 102f ; read SCI data
9503 CA0A F7 0B C6 ... stab 0bc6
9504 CA0D F6 0B C6 ... ldab 0bc6
9505 CA10 C1 80 .. cmpb #80
9506 CA12 26 05 &. bne ca19
9507 CA14 C6 0F .. ldab #0f
9508 CA16 F7 0B C6 ... stab 0bc6
9509 CA19 20 3E > bra 3e ;goto51 - inc 0008 & clean exit
9511 ; read byte of data into 0bc7 - 0bce
9512 CA1B F6 10 2F ../ ldab 102f ; read SCI data
9513 CA1E F7 0B C7 ... stab 0bc7
9516 CA23 F6 10 2F ../ ldab 102f ; read SCI data
9517 CA26 F7 0B C8 ... stab 0bc8
9520 CA2B F6 10 2F ../ ldab 102f ; read SCI data
9521 CA2E F7 0B C9 ... stab 0bc9
9524 CA33 F6 10 2F ../ ldab 102f ; read SCI data
9525 CA36 F7 0B CA ... stab 0bca
9528 CA3B F6 10 2F ../ ldab 102f ; read SCI data
9529 CA3E F7 0B CB ... stab 0bcb
9532 CA43 F6 10 2F ../ ldab 102f ; read SCI data
9533 CA46 F7 0B CC ... stab 0bcc
9536 CA4B F6 10 2F ../ ldab 102f ; read SCI data
9537 CA4E F7 0B CD ... stab 0bcd
9540 CA53 F6 10 2F ../ ldab 102f ; read SCI data
9541 CA56 F7 0B CE ... stab 0bce
9543 CA59 7C 00 08 |.. inc 0008
9545 CA5C 7E CB DA ~.. jmp cbda ;goto48 (clean exit)
9548 CA5F F6 10 2F ../ ldab 102f ; read SCI data
9549 CA62 C4 EF .. andb #ef ; 11101111
9550 CA64 C1 E2 .. cmpb #e2 ; 11100010
9551 CA66 26 1A &. bne 1a ; if no match, to ca82
9552 CA68 CE 00 17 ... ldx #0017
9553 CA6B 1C 00 08 ... bset 00,x, #08
9554 CA6E CE 00 17 ... ldx #0017
9555 CA71 1C 00 04 ... bset 00,x, #04
9556 CA74 C6 01 .. ldab #01
9557 CA76 F7 00 08 ... stab 0008
9558 CA79 CE 0B C1 ... ldx #0bc1
9559 CA7C 1D 00 01 ... bclr 00,x, #01 ; clear card powerup error bit
9560 CA7F 7E CB DA ~.. jmp cbda ;goto48 (clean exit)
9562 CA82 F6 10 2F ../ ldab 102f ; read SCI data
9563 CA85 C4 02 .. andb #02
9564 CA87 27 03 '. beq 03 ; if bit is set then
9565 CA89 7E CB 6C ~.l jmp cb6c ; goto52
9566 CA8C F6 10 2F ../ ldab 102f ; read SCI data
9567 CA8F 2C 38 ,8 bge 38 ; if bit 7 unset, to cac9
9568 CA91 F6 00 17 ... ldab 0017
9569 CA94 C4 08 .. andb #08
9570 CA96 26 31 &1 bne 31
9571 CA98 F6 10 2F ../ ldab 102f ; read SCI data
9572 CA9B C4 78 .x andb #78 ; 01111000
9577 CAA1 C3 0B C7 ... addd #0bc7
9579 CAA5 E6 00 .. ldab 00,x
9583 CAAA F6 0B AA ... ldab 0baa
9585 CAAE BD FB BA ... jsr fbba ;jump38 - multiply?
9586 CAB1 F3 00 40 ..@ addd 0040
9587 CAB4 FD 00 40 ..@ std 0040
9588 CAB7 CE 00 1B ... ldx #001b
9589 CABA 1C 00 .. bset 00,x, #20
9590 CABD CE 00 1B ... ldx #001b
9591 CAC0 1D 00 40 ... bclr 00,x, #40
9592 CAC3 7F 00 25 ..% clr 0025
9593 CAC6 7E CB 64 ~.d jmp cb64 ;goto53 - cleanup & exit
9595 CAC9 F6 00 17 ... ldab 0017
9596 CACC C4 08 .. andb #08
9597 CACE 26 4A &J bne 4a ;to cb1a
9598 CAD0 F6 10 2F ../ ldab 102f ; read SCI data
9599 CAD3 C4 60 .` andb #60 ; 01100000
9600 CAD5 54 T lsrb ; ^^^^
9604 CAD9 C3 0B C7 ... addd #0bc7
9606 CADD E6 00 .. ldab 00,x
9610 CAE2 F6 0B AA ... ldab 0baa
9612 CAE6 BD FB BA ... jsr fbba ;jump38 - multiply?
9613 CAE9 FD 0B BD ... std 0bbd
9614 CAEC FC 0B BD ... ldd 0bbd
9615 CAEF F3 00 40 ..@ addd 0040
9616 CAF2 FD 00 40 ..@ std 0040
9617 CAF5 F6 00 21 ..! ldab 0021
9618 CAF8 C4 F8 .. andb #f8 ; 11111000
9620 CAFB F6 10 2F ../ ldab 102f ; read SCI data
9621 CAFE C4 1C .. andb #1c ; 00011100
9625 CB03 EA 00 .. orb 00,x ; or lower 3 bits with 0021
9627 CB06 F7 00 21 ..! stab 0021
9628 CB09 F6 10 2F ../ ldab 102f ; read SCI data
9629 CB0C F7 0B BC ... stab 0bbc
9630 CB0F CE 00 1B ... ldx #001b
9631 CB12 1D 00 40 .. bclr 00,x, #40
9632 CB15 7F 00 25 ..% clr 0025
9633 CB18 20 4A J bra 4a ;goto53 - more cleanups and exit
9635 CB1A F6 10 2F ../ ldab 102f ; read SCI data
9636 CB1D C4 E0 .. andb #e0 ; 11100000
9641 CB23 54 T lsrb ; shr5
9643 CB25 C3 0B C7 ... addd #0bc7
9645 CB29 E6 00 .. ldab 00,x
9649 CB2E F6 0B AA ... ldab 0baa
9651 CB32 BD FB BA ... jsr fbba ;jump38 - multiply?
9652 CB35 FD 0B BD ... std 0bbd
9653 CB38 FC 0B BD ... ldd 0bbd
9654 CB3B F3 00 40 ..@ addd 0040
9655 CB3E FD 00 40 ..@ std 0040
9656 CB41 F6 00 21 ..! ldab 0021
9657 CB44 C4 F8 .. andb #f8
9659 CB47 F6 10 2F ../ ldab 102f ; read SCI data
9660 CB4A C4 1C .. andb #1c
9664 CB4F EA 00 .. orb 00,x
9666 CB52 F7 00 21 ..! stab 0021
9667 CB55 F6 10 2F ../ ldab 102f ; read SCI data
9668 CB58 F7 0B BC ... stab 0bbc
9669 CB5B CE 00 1B ... ldx #001b
9670 CB5E 1D 00 40 ... bclr 00,x, #40
9671 CB61 7F 00 25 ..% clr 0025
9672 goto53: ; more cleanups and exit
9673 CB64 7F 00 2C .., clr 002c
9674 CB67 7F 00 3A ..: clr 003a
9675 CB6A 20 6E n bra 6e ; to cbda - cleanup and exit
9677 CB6C F6 10 2F ../ ldab 102f ; read SCI data
9678 CB6F C4 03 .. andb #03
9679 CB71 C1 02 .. cmpb #02
9680 CB73 26 0F &. bne 0f ; to bc84
9681 CB75 F6 00 21 ..! ldab 0021
9682 CB78 C4 08 .. andb #08
9683 CB7A 27 08 '. beq 08
9684 CB7C CE 00 21 ..! ldx #0021
9685 CB7F 1C 00 10 ... bset 00,x, #10
9686 CB82 20 56 V bra 56 ;goto48 - cleanup and exit
9688 CB84 F6 10 2F ../ ldab 102f ; read SCI data
9689 CB87 C4 EF .. andb #ef ; 11101111
9690 CB89 C1 E3 .. cmpb #e3 ; 11100111
9691 CB8B 26 08 &. bne 08 ; to cb95
9692 CB8D CE 0B C1 ... ldx #0bc1
9693 CB90 1D 00 02 ... bclr 00,x, #02 ; clear card powerup error bit
9694 CB93 20 45 E bra 45 ;goto48 - cleanup and exit
9696 ; this could be the coin mech powerup message?
9697 CB95 F6 10 2F ../ ldab 102f ; read SCI data
9698 CB98 C4 EF .. andb #ef ; 11101111
9699 CB9A C1 63 .c cmpb #63 ; 01101110
9700 CB9C 26 1C &. bne 1c ; to cbba
9701 CB9E CE 0B C1 ... ldx #0bc1 ; clear changer powerup error bit
9702 CBA1 1D 00 01 ... bclr 00,x, #01
9703 CBA4 F6 0B C0 ... ldab 0bc0
9704 CBA7 C4 01 .. andb #01 ; do we have a changer?
9705 CBA9 27 0D '. beq 0d ; to cbb8 - cleanup & exit
9706 CBAB F6 0B C0 ... ldab 0bc0
9707 CBAE C4 04 .. andb #04 ; if we don't have a card reader, we don't have an error reading from it. duh.
9708 CBB0 27 06 '. beq 06 ; to cbb8
9709 CBB2 CE 0B C1 ... ldx #0bc1
9710 CBB5 1D 00 02 ... bclr 00,x, #02 ; clear card powerup error bit
9711 CBB8 20 20 bra 20 ;goto48 - cleanup & exit
9713 ; the coin mech is telling us it has a bad sensor
9714 CBBA F6 10 2F ../ ldab 102f ; read SCI data
9715 CBBD C4 EF .. andb #ef ; 11101111
9716 CBBF C1 67 .g cmpb #67 ; 01100111
9717 CBC1 26 08 &. bne 08 ; to cbcb
9718 CBC3 CE 0B C1 ... ldx #0bc1
9719 CBC6 1C 00 .. bset 00,x, #20 ; set bad sensor error bit
9720 CBC9 20 0F bra 0f ;goto48 - cleanup & exit
9722 CBCB F6 10 2F ../ ldab 102f ; read SCI data
9723 CBCE C4 EF .. andb #ef ; 11101111
9724 CBD0 C1 27 .' cmpb #27 ; 00100111
9725 CBD2 26 06 &. bne 06 ;goto48 - cleanup & exit
9727 CBD4 CE 0B C1 ... ldx #0bc1 ; set coin jam error bit
9728 CBD7 1C 00 10 ... bset 00,x, #10
9729 goto48: ; cleanup and exit
9730 CBDA CE 00 1A ... ldx #001a
9731 CBDD 1C 00 02 ... bset 00,x, #02
9732 CBE0 F6 00 1A ... ldab 001a
9733 CBE3 F7 30 00 .0. stab 3000 ; changer send' high
9734 CBE6 F6 00 17 ... ldab 0017
9735 CBE9 C4 04 .. andb #04
9736 CBEB 26 05 &. bne 05 ; to cbf2
9737 CBED C6 06 .. ldab #06
9738 CBEF F7 00 07 ... stab 0007
9739 CBF2 F6 00 26 ..& ldab 0026 ; 0026 ~= 0026
9741 CBF6 F7 00 26 ..& stab 0026
9742 CBF9 7F 00 3D ..= clr 003d
9743 CBFC 7E CE 46 ~.F jmp ce46 ;goto47 (exit)
9750 CBFF F6 0B C0 ... ldab 0bc0 ; do we have our changer (link master)?
9751 CC02 C4 02 .. andb #02
9752 CC04 26 03 &. bne 03 ; if not, swallow & exit
9753 CC06 7E CE 3B ~.; jmp ce3b ; goto54 - swallow a byte & exit
9755 CC09 F6 10 2F ../ ldab 102f ; read SCI data
9756 CC0C C4 E0 .. andb #e0 ; 11100000
9757 CC0E C1 20 . cmpb #20 ; 00100000
9758 CC10 27 03 '. beq 03
9759 CC12 7E CE 3B ~.; jmp ce3b ;goto54 - swallow a byte & exit
9761 CC15 C6 32 .2 ldab #32 ; 50 00110010
9762 CC17 F7 00 2F ../ stab 002f
9763 CC1A CE 00 1B ... ldx #001b ; say we have a link master packet?
9764 CC1D 1C 00 02 ... bset 00,x, #02
9765 CC20 F6 10 2E ... ldab 102e ; SCI status
9766 CC23 C4 02 .. andb #02 ; test for Framing Error
9767 CC25 26 08 &. bne 08 ; if not, perform parity test. else to cc2f
9768 CC27 BD C7 C0 ... jsr c7c0 ;jump49 - parity test
9769 CC2A 83 00 00 ... subd #0000
9770 CC2D 26 0F &. bne 0f ; if good, to cc3e
9771 CC2F F6 10 2F ../ ldab 102f ; read SCI data
9773 CC33 E7 00 .. stab 00,x
9774 CC35 CC 00 FF ... ldd #00ff
9775 CC38 BD C7 E7 ... jsr c7e7 ;jump37 - send #FF to coin mech
9776 CC3B 7E CE 39 ~.9 jmp ce39 ;goto55 - exit
9778 CC3E F6 10 2F ../ ldab 102f ; read SCI data
9779 CC41 C1 3F .? cmpb #3f ; 00111111
9780 CC43 26 0A &. bne 0a ; to cc4f
9781 CC45 F6 00 43 ..C ldab 0043
9783 CC49 BD C7 E7 ... jsr c7e7 ;jump37 - send 0043 to coin mech - retry?
9784 CC4C 7E CE 39 ~.9 jmp ce39 ;goto55 - exit
9786 CC4F F6 00 08 ... ldab 0008
9787 CC52 26 03 &. bne 03
9788 CC54 7E CD 94 ~.. jmp cd94 ;goto56
9790 CC57 F6 10 2F ../ ldab 102f ; read SCI data
9791 CC5A C4 F0 .. andb #f0 ; 11110000
9792 CC5C C1 20 . cmpb #20 ; 00100000
9793 CC5E 27 03 '. beq 03
9794 CC60 7E CD 94 ~.. jmp cd94 ;goto56
9795 CC63 F6 10 2F ../ ldab 102f ; read SCI data
9796 CC66 C4 0F .. andb #0f
9798 CC69 E7 00 .. stab 00,x
9799 CC6B F6 00 08 ... ldab 0008
9801 CC6F BD FE 16 ... jsr fe16 ;jump2
9802 CC72 00 01 00 07 . ; array data for jump2
9803 CC76 CD 7A . ; if 0008 == 9, clr 0008, 002c. else inc 0008, send #00 to coin mech
9804 CC78 CC 88 .. ; if 0017 sp=>0076, else sp=>0040, then same as above
9805 CC7A CC A2 .. ; if 0017 0076+=sp<<4, else 0040+=sp<<4, then same as above
9806 CC7C CC CA .. ; if 0017 0076+=sp<<8, else 0040+=sp<<8, then same as above
9807 CC7E CC EE .. ; if 0017 0076+=sp<<16, else 0040+=sp<16, then same as above
9808 CC80 CD 19 .. ; 0baa = sp, then same as above
9809 CC82 CD 21 . ; 0baa = sp<<4, then same as above
9810 CC83 CD 30 !. ; 0013 = sp, then same as above - location of dec point?
9811 CC85 CD 38 0 ; read byte & #01,
9813 CC88 F6 00 17 ... ldab 0017
9814 CC8B C4 01 .. andb #01
9815 CC8D 27 09 '. beq 09 ; to cc98
9817 CC90 E6 00 .. ldab 00,x
9819 CC93 FD 00 76 ..v std 0076
9820 CC96 20 07 . bra 07 ; to cc9f
9822 CC99 E6 00 .. ldab 00,x
9824 CC9C FD 00 40 ..@ std 0040
9825 CC9F 7E CD 7A ~.z jmp cd7a ;goto57
9827 CCA2 F6 00 17 ... ldab 0017
9828 CCA5 C4 01 .. andb #01
9829 CCA7 27 10 '. beq 10 ; to ccb9
9831 CCAA E6 00 .. ldab 00,x
9837 CCB1 F3 00 76 ..v addd 0076
9838 CCB4 FD 00 76 ..v std 0076
9839 CCB7 20 0E . bra 0e ; to ccc7
9841 CCBA E6 00 .. ldab 00,x
9847 CCC1 F3 00 40 ..@ addd 0040
9848 CCC4 FD 00 40 ..@ std 0040
9849 CCC7 7E CD 7A ~.z jmp cd7a ;goto57
9851 CCCA F6 00 17 ... ldab 0017
9852 CCCD C4 01 .. andb #01
9853 CCCF 27 0E '. beq 0e ; to ccdf
9855 CCD2 E6 00 .. ldab 00,x
9859 CCD7 F3 00 76 ..v addd 0076
9860 CCDA FD 00 76 ..v std 0076
9861 CCDD 20 0C . bra 0c ; to cceb
9863 CCE0 E6 00 .. ldab 00,x
9867 CCE5 F3 00 40 ..@ addd 0040
9868 CCE8 FD 00 40 ..@ std 0040
9869 CCEB 7E CD 7A ~.z jmp cd7a ;goto57
9871 CCEE F6 00 17 ... ldab 0017
9872 CCF1 C4 01 .. andb #01
9873 CCF3 27 12 '. beq 12 ; to cd07
9875 CCF6 E6 00 .. ldab 00,x
9883 CCFF F3 00 76 ..v addd 0076
9884 CD02 FD 00 76 ..v std 0076
9885 CD05 20 10 . bra 10 ; to cd17
9887 CD08 E6 00 .. ldab 00,x
9895 CD11 F3 00 40 ..@ addd 0040
9896 CD14 FD 00 40 ..@ std 0040
9900 CD1A E6 00 .. ldab 00,x
9901 CD1C F7 0B AA ... stab 0baa
9902 CD1F 20 59 Y bra 59 ; to cd7a - goto57
9905 CD22 E6 00 .. ldab 00,x
9910 CD28 FB 0B AA ... addb 0baa
9911 CD2B F7 0B AA ... stab 0baa
9912 CD2E 20 4A J bra 4a ; to cd7a - goto57
9915 CD31 E6 00 .. ldab 00,x
9916 CD33 F7 00 13 ... stab 0013
9917 CD36 20 42 B bra 42 ; to cd7a - goto57
9919 CD38 F6 10 2F ../ ldab 102f ; read SCI data
9920 CD3B C4 01 .. andb #01
9921 CD3D 27 08 '. beq 08 ; to cd47
9922 CD3F CE 00 21 ..! ldx #0021
9923 CD42 1C 00 40 ... bset 00,x, #40
9924 CD45 20 06 . bra 06 ; to cd4d
9925 CD47 CE 00 21 ..! ldx #0021
9926 CD4A 1D 00 40 ... bclr 00,x, #40
9928 CD4D F6 00 17 ... ldab 0017
9929 CD50 C4 01 .. andb #01
9930 CD52 27 17 '. beq 17 ; to cd6b
9931 CD54 F6 0B AA ... ldab 0baa
9935 CD5A FC 00 76 ..v ldd 0076
9936 CD5D BD FB BA ... jsr fbba ;jump38 - multiply?
9937 CD60 FD 00 76 ..v std 0076 ; 0076 *= 0baa
9938 CD63 CE 00 17 ... ldx #0017
9939 CD66 1D 00 01 ... bclr 00,x, #01
9940 CD69 20 0F . bra 0f ;goto57 - send byte & exit
9941 CD6B F6 0B AA ... ldab 0baa
9945 CD71 FC 00 40 ..@ ldd 0040
9946 CD74 BD FB BA ... jsr fbba ;jump38 - multiply?
9947 CD77 FD 00 40 ..@ std 0040 ; 0040 *= 0baa
9948 goto57: ; sends the byte, clearing the counter if its the 8th byte
9949 CD7A F6 00 08 ... ldab 0008
9950 CD7D C1 09 .. cmpb #09
9951 CD7F 26 08 &. bne 08
9952 CD81 7F 00 2C .., clr 002c
9953 CD84 7F 00 08 ... clr 0008
9955 CD89 7C 00 08 |.. inc 0008
9958 CD8E BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech
9959 CD91 7E CE 39 ~.9 jmp ce39 ;goto55 - exit
9961 CD94 F6 10 2F ../ ldab 102f ; read SCI data
9963 CD98 BD FE 32 ..2 jsr fe32 ;jump25
9964 CD9B CD B1 00 31 ...1 ; 49 "1" 00110001
9965 CD9F CD DB 00 01 .... ; 50 "2" 00110010
9966 CDA3 CE 20 00 01 . .. ; 51 "3" 00110011
9967 CDA7 CE 28 00 05 .(.. ; 56 "8" 00111000
9968 CDAB CE 34 FF C8 .4.. ; 0
9969 CDAF 00 00 .. ; end of array data
9971 CDB1 F6 00 21 ..! ldab 0021
9972 CDB4 2C 08 ,. bge 08
9973 CDB6 CC 00 80 ... ldd #0080
9974 CDB9 BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech
9975 CDBC 20 1B . bra 1b ; to cdd9
9978 CDC0 BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech
9979 CDC3 F6 00 1F ... ldab 001f
9980 CDC6 C4 08 .. andb #08
9981 CDC8 27 0C '. beq 0c
9982 CDCA F6 0B C0 ... ldab 0bc0
9983 CDCD C4 10 .. andb #10 ; have link master price holding
9984 CDCF 27 05 '. beq 05
9985 CDD1 7C 00 75 |.u inc 0075
9987 CDD6 7F 00 75 ..u clr 0075
9990 CDDB F6 00 1D ... ldab 001d
9991 CDDE C4 02 .. andb #02
9992 CDE0 27 07 '. beq 07
9993 CDE2 F6 00 19 ... ldab 0019
9994 CDE5 C4 08 .. andb #08
9995 CDE7 26 19 &. bne 19
9996 CDE9 CC 00 FE ... ldd #00fe
9997 CDEC BD C7 E7 ... jsr c7e7 ;jump37 - send #fe to coin mech
9998 CDEF F6 00 1F ... ldab 001f
9999 CDF2 C4 08 .. andb #08
10000 CDF4 27 0A '. beq 0a
10001 CDF6 F6 0B C0 ... ldab 0bc0
10002 CDF9 C4 10 .. andb #10 ; have link master price holding
10003 CDFB 27 03 '. beq 03
10004 CDFD 7C 00 75 |.u inc 0075
10005 CE00 20 1C . bra 1c
10006 CE02 FC 00 44 ..D ldd 0044
10009 CE07 F6 0B AA ... ldab 0baa
10015 CE0F BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech
10016 CE12 CE 00 19 ... ldx #0019
10017 CE15 1D 00 08 ... bclr 00,x, #08
10018 CE18 CE 00 1F ... ldx #001f
10019 CE1B 1C 00 08 ... bset 00,x, #08
10020 CE1E 20 19 . bra 19
10021 CE20 CE 00 1D ... ldx #001d
10022 CE23 1D 00 02 ... bclr 00,x, #02
10023 CE26 20 11 . bra 11
10024 CE28 C6 01 .. ldab #01
10025 CE2A F7 00 08 ... stab 0008
10028 CE2F BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech
10029 CE32 20 05 . bra 05
10032 CE36 BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech
10034 CE39 20 0B . bra 0b ; to ce46 (exit)
10035 goto54: ; just swallow a byte?
10036 CE3B F6 10 2E ... ldab 102e ; SCI Status
10038 CE3F E7 00 .. stab 00,x ; store into stack variable
10039 CE41 F6 10 2F ../ ldab 102f ; read SCI data
10040 CE44 E7 00 .. stab 00,x
10047 CE48 F6 0B C4 ... ldab 0bc4
10048 CE4B F1 0B C5 ... cmpb 0bc5
10049 CE4E 25 53 %S bcs 53 ; if 0bc4 < 0bc5 to cea3
10050 CE50 F6 0B C5 ... ldab 0bc5
10051 CE53 F1 0B C6 ... cmpb 0bc6
10052 CE56 25 4B %K bcs 4b ; if 0bc5 < 0bc6 to cea3
10053 ; so here we have 0bc6 < 0bc5 < 0bc4
10054 CE58 F6 0B C4 ... ldab 0bc4
10056 CE5C C3 0B C7 ... addd #0bc7
10058 CE60 E6 00 .. ldab 00,x
10060 CE63 FD 0B DD ... std 0bdd
10061 CE66 F6 0B C5 ... ldab 0bc5
10063 CE6A C3 0B C7 ... addd #0bc7
10065 CE6E E6 00 .. ldab 00,x
10067 CE71 FD 0B DF ... std 0bdf
10068 CE74 F6 0B C6 ... ldab 0bc6
10070 CE78 C3 0B C7 ... addd #0bc7
10072 CE7C E6 00 .. ldab 00,x
10074 CE7F FD 0B E1 ... std 0be1
10075 CE82 C6 01 .. ldab #01
10076 CE84 F7 0B D7 ... stab 0bd7
10077 CE87 C6 04 .. ldab #04
10078 CE89 F7 0B D8 ... stab 0bd8
10079 CE8C C6 02 .. ldab #02
10080 CE8E F7 0B D9 ... stab 0bd9
10081 CE91 C6 20 . ldab #20
10082 CE93 F7 0B DA ... stab 0bda
10083 CE96 C6 08 .. ldab #08
10084 CE98 F7 0B DB ... stab 0bdb
10085 CE9B C6 10 .. ldab #10
10086 CE9D F7 0B DC ... stab 0bdc
10087 CEA0 7E D0 66 ~.f jmp d066 ;goto58 - multiply & exit
10089 CEA3 F6 0B C4 ... ldab 0bc4
10090 CEA6 F1 0B C6 ... cmpb 0bc6
10091 CEA9 25 53 %S bcs 53 ; if 0bc4 < 0bc6 to cefe
10092 CEAB F6 0B C6 ... ldab 0bc6
10093 CEAE F1 0B C5 ... cmpb 0bc5
10094 CEB1 25 4B %K bcs 4b ; if 0bc6 < 0bc5 to cefe
10095 ; so here we have 0bc5 < 0bc6 < 0bc4
10096 CEB3 F6 0B C4 ... ldab 0bc4
10098 CEB7 C3 0B C7 ... addd #0bc7
10100 CEBB E6 00 .. ldab 00,x
10102 CEBE FD 0B DD ... std 0bdd
10103 CEC1 F6 0B C6 ... ldab 0bc6
10105 CEC5 C3 0B C7 ... addd #0bc7
10107 CEC9 E6 00 .. ldab 00,x
10109 CECC FD 0B DF ... std 0bdf
10110 CECF F6 0B C5 ... ldab 0bc5
10112 CED3 C3 0B C7 ... addd #0bc7
10114 CED7 E6 00 .. ldab 00,x
10116 CEDA FD 0B E1 ... std 0be1
10117 CEDD C6 01 .. ldab #01
10118 CEDF F7 0B D7 ... stab 0bd7
10119 CEE2 C6 02 .. ldab #02
10120 CEE4 F7 0B D8 ... stab 0bd8
10121 CEE7 C6 04 .. ldab #04
10122 CEE9 F7 0B D9 ... stab 0bd9
10123 CEEC C6 20 . ldab #20
10124 CEEE F7 0B DA ... stab 0bda
10125 CEF1 C6 10 .. ldab #10
10126 CEF3 F7 0B DB ... stab 0bdb
10127 CEF6 C6 08 .. ldab #08
10128 CEF8 F7 0B DC ... stab 0bdc
10129 CEFB 7E D0 66 ~.f jmp d066 ;goto58 - multiply and exit
10131 CEFE F6 0B C5 ... ldab 0bc5
10132 CF01 F1 0B C4 ... cmpb 0bc4
10133 CF04 25 53 %S bcs 53 ; if 0bc5 < 0bc4 to cf59
10134 CF06 F6 0B C4 ... ldab 0bc4
10135 CF09 F1 0B C6 ... cmpb 0bc6
10136 CF0C 25 4B %K bcs 4b ; if 0bc4 < 0bc6 to cf59
10137 ; so here we have 0bc6 < 0bc4 < 0bc5
10138 CF0E F6 0B C5 ... ldab 0bc5
10140 CF12 C3 0B C7 ... addd #0bc7
10142 CF16 E6 00 .. ldab 00,x
10144 CF19 FD 0B DD ... std 0bdd
10145 CF1C F6 0B C4 ... ldab 0bc4
10147 CF20 C3 0B C7 ... addd #0bc7
10149 CF24 E6 00 .. ldab 00,x
10151 CF27 FD 0B DF ... std 0bdf
10152 CF2A F6 0B C6 ... ldab 0bc6
10154 CF2E C3 0B C7 ... addd #0bc7
10156 CF32 E6 00 .. ldab 00,x
10158 CF35 FD 0B E1 ... std 0be1
10159 CF38 C6 04 .. ldab #04
10160 CF3A F7 0B D7 ... stab 0bd7
10161 CF3D C6 01 .. ldab #01
10162 CF3F F7 0B D8 ... stab 0bd8
10163 CF42 C6 02 .. ldab #02
10164 CF44 F7 0B D9 ... stab 0bd9
10165 CF47 C6 08 .. ldab #08
10166 CF49 F7 0B DA ... stab 0bda
10167 CF4C C6 20 . ldab #20
10168 CF4E F7 0B DB ... stab 0bdb
10169 CF51 C6 10 .. ldab #10
10170 CF53 F7 0B DC ... stab 0bdc
10171 CF56 7E D0 66 ~.f jmp d066 ;goto58 - multiply and exit
10173 CF59 F6 0B C5 ... ldab 0bc5
10174 CF5C F1 0B C6 ... cmpb 0bc6
10175 CF5F 25 53 %S bcs 53 ; if 0bc5 < 0bc6 to cfb4
10176 CF61 F6 0B C6 ... ldab 0bc6
10177 CF64 F1 0B C4 ... cmpb 0bc4
10178 CF67 25 4B %K bcs 4b ; if 0bc6 < 0bc4 to cfb4
10179 ; so here we have 0bc4 < 0bc6 < 0bc5
10180 CF69 F6 0B C5 ... ldab 0bc5
10182 CF6D C3 0B C7 ... addd #0bc7
10184 CF71 E6 00 .. ldab 00,x
10186 CF74 FD 0B DD ... std 0bdd
10187 CF77 F6 0B C6 ... ldab 0bc6
10189 CF7B C3 0B C7 ... addd #0bc7
10191 CF7F E6 00 .. ldab 00,x
10193 CF82 FD 0B DF ... std 0bdf
10194 CF85 F6 0B C4 ... ldab 0bc4
10196 CF89 C3 0B C7 ... addd #0bc7
10198 CF8D E6 00 .. ldab 00,x
10200 CF90 FD 0B E1 ... std 0be1
10201 CF93 C6 04 .. ldab #04
10202 CF95 F7 0B D7 ... stab 0bd7
10203 CF98 C6 02 .. ldab #02
10204 CF9A F7 0B D8 ... stab 0bd8
10205 CF9D C6 01 .. ldab #01
10206 CF9F F7 0B D9 ... stab 0bd9
10207 CFA2 C6 08 .. ldab #08
10208 CFA4 F7 0B DA ... stab 0bda
10209 CFA7 C6 10 .. ldab #10
10210 CFA9 F7 0B DB ... stab 0bdb
10211 CFAC C6 20 . ldab #20
10212 CFAE F7 0B DC ... stab 0bdc
10213 CFB1 7E D0 66 ~.f jmp d066 ;goto58 - multiply and exit
10215 CFB4 F6 0B C6 ... ldab 0bc6
10216 CFB7 F1 0B C4 ... cmpb 0bc4
10217 CFBA 25 52 %R bcs 52 ; if 0bc6 < 0bc4 to d00e
10218 CFBC F6 0B C4 ... ldab 0bc4
10219 CFBF F1 0B C5 ... cmpb 0bc5
10220 CFC2 25 4A %J bcs 4a ; if 0bc4 < 0bc5 to d00e
10221 ; so here we have 0bc5 < 0bc4 < 0bc6
10222 CFC4 F6 0B C6 ... ldab 0bc6
10224 CFC8 C3 0B C7 ... addd #0bc7
10226 CFCC E6 00 .. ldab 00,x
10228 CFCF FD 0B DD ... std 0bdd
10229 CFD2 F6 0B C4 ... ldab 0bc4
10231 CFD6 C3 0B C7 ... addd #0bc7
10233 CFDA E6 00 .. ldab 00,x
10235 CFDD FD 0B DF ... std 0bdf
10236 CFE0 F6 0B C5 ... ldab 0bc5
10238 CFE4 C3 0B C7 ... addd #0bc7
10240 CFE8 E6 00 .. ldab 00,x
10242 CFEB FD 0B E1 ... std 0be1
10243 CFEE C6 02 .. ldab #02
10244 CFF0 F7 0B D7 ... stab 0bd7
10245 CFF3 C6 01 .. ldab #01
10246 CFF5 F7 0B D8 ... stab 0bd8
10247 CFF8 C6 04 .. ldab #04
10248 CFFA F7 0B D9 ... stab 0bd9
10249 CFFD C6 10 .. ldab #10
10250 CFFF F7 0B DA ... stab 0bda
10251 D002 C6 20 . ldab #20
10252 D004 F7 0B DB ... stab 0bdb
10253 D007 C6 08 .. ldab #08
10254 D009 F7 0B DC ... stab 0bdc
10255 D00C 20 58 X bra 58 ;goto58 - multiply and exit
10257 ; we know that 0bc4 < 0bc5 < 0bc6
10258 D00E F6 0B C6 ... ldab 0bc6
10259 D011 F1 0B C5 ... cmpb 0bc5
10260 D014 25 50 %P bcs 50
10261 D016 F6 0B C5 ... ldab 0bc5
10262 D019 F1 0B C4 ... cmpb 0bc4
10263 D01C 25 48 %H bcs 48
10264 D01E F6 0B C6 ... ldab 0bc6
10266 D022 C3 0B C7 ... addd #0bc7
10268 D026 E6 00 .. ldab 00,x
10270 D029 FD 0B DD ... std 0bdd
10271 D02C F6 0B C5 ... ldab 0bc5
10273 D030 C3 0B C7 ... addd #0bc7
10275 D034 E6 00 .. ldab 00,x
10277 D037 FD 0B DF ... std 0bdf
10278 D03A F6 0B C4 ... ldab 0bc4
10280 D03E C3 0B C7 ... addd #0bc7
10282 D042 E6 00 .. ldab 00,x
10284 D045 FD 0B E1 ... std 0be1
10285 D048 C6 02 .. ldab #02
10286 D04A F7 0B D7 ... stab 0bd7
10287 D04D C6 04 .. ldab #04
10288 D04F F7 0B D8 ... stab 0bd8
10289 D052 C6 01 .. ldab #01
10290 D054 F7 0B D9 ... stab 0bd9
10291 D057 C6 10 .. ldab #10
10292 D059 F7 0B DA ... stab 0bda
10293 D05C C6 08 .. ldab #08
10294 D05E F7 0B DB ... stab 0bdb
10295 D061 C6 20 . ldab #20
10296 D063 F7 0B DC ... stab 0bdc ;goto58 - multiply and exit
10299 D066 F6 0B AA ... ldab 0baa
10303 D06C FC 0B DD ... ldd 0bdd
10304 D06F BD FB BA ... jsr fbba ;jump38 - multiply?
10305 D072 FD 0B DD ... std 0bdd
10306 D075 F6 0B AA ... ldab 0baa
10310 D07B FC 0B DF ... ldd 0bdf
10311 D07E BD FB BA ... jsr fbba ;jump38 - multiply?
10312 D081 FD 0B DF ... std 0bdf
10313 D084 F6 0B AA ... ldab 0baa
10317 D08A FC 0B E1 ... ldd 0be1
10318 D08D BD FB BA ... jsr fbba ;jump38 - multiply?
10319 D090 FD 0B E1 ... std 0be1
10323 ; initializes a big bunch of variables
10327 D096 6F 00 o. clr 00,x
10330 D099 E6 00 .. ldab 00,x
10331 D09B C1 10 .. cmpb #10
10332 D09D 24 1B $. bcc 1b ; to d0ba
10333 ; read memloc of b0c3+i
10335 D0A0 E6 00 .. ldab 00,x
10337 D0A3 C3 B0 C3 ... addd #b0c3
10339 D0A7 E6 00 .. ldab 00,x
10341 ; put value of that location into 0bc7+i
10343 D0AB E6 01 .. ldab 01,x
10345 D0AE C3 0B C7 ... addd #0bc7
10348 D0B3 E7 00 .. stab 00,x
10351 D0B6 6C 00 l. inc 00,x
10352 D0B8 20 DE . bra de ; to d098
10354 D0BA C6 05 .. ldab #05
10355 D0BC F7 0B AA ... stab 0baa
10356 D0BF C6 04 .. ldab #04
10357 D0C1 F7 00 13 ... stab 0013
10358 D0C4 C6 01 .. ldab #01
10359 D0C6 F7 0B C4 ... stab 0bc4
10360 D0C9 C6 03 .. ldab #03
10361 D0CB F7 0B C5 ... stab 0bc5
10362 D0CE C6 02 .. ldab #02
10363 D0D0 F7 0B C6 ... stab 0bc6
10364 D0D3 CC 00 19 ... ldd #0019 ; 25
10365 D0D6 FD 0B DD ... std 0bdd
10366 D0D9 CC 00 0A ... ldd #000a ; 10
10367 D0DC FD 0B DF ... std 0bdf
10368 D0DF CC 00 05 ... ldd #0005 ; 5
10369 D0E2 FD 0B E1 ... std 0be1
10370 D0E5 C6 01 .. ldab #01
10371 D0E7 F7 0B D7 ... stab 0bd7
10372 D0EA C6 02 .. ldab #02
10373 D0EC F7 0B D8 ... stab 0bd8
10374 D0EF C6 04 .. ldab #04
10375 D0F1 F7 0B D9 ... stab 0bd9
10376 D0F4 C6 20 . ldab #20
10377 D0F6 F7 0B DA ... stab 0bda
10378 D0F9 C6 10 .. ldab #10
10379 D0FB F7 0B DB ... stab 0bdb
10380 D0FE C6 08 .. ldab #08
10381 D100 F7 0B DC ... stab 0bdc
10386 ; turns all motors off
10388 D106 CE 00 1A ... ldx #001a
10389 D109 1C 00 80 .. bset 00,x, #80
10390 D10C F6 00 1A .. ldab 001a
10391 D10F F7 30 00 .0. stab 3000 ; motor rows off
10392 D112 C6 C8 .. ldab #c8 ; loop of 200 - short delay
10394 D115 E7 00 .. stab 00,x
10396 D118 E6 00 .. ldab 00,x
10397 D11A C1 00 .. cmpb #00
10398 D11C 23 05 #. bls 05 ; to d123
10400 D11F 6A 00 j. dec 00,x
10401 D121 20 F4 . bra f4 ; to d117
10403 D123 CE 10 00 ... ldx #1000
10404 D126 1C 00 40 .. bset 00,x, #40 ; motor columns off
10405 D129 CE 00 14 ... ldx #0014
10406 D12C 1D 00 20 .. bclr 00,x, #20 ; motors col 8 off
10407 D12F CE 00 14 . ldx #0014
10408 D132 1D 00 40 .. bclr 00,x, #40 ; motors col 9 off
10409 D135 F6 00 14 ... ldab 0014
10410 D138 F7 38 00 .8. stab 3800 ; motors off
10415 ; turn on the motor of the slot given in memory location 0006
10416 D13D F6 00 06 ... ldab 0006
10418 D141 CE 00 0A ... ldx #000a
10421 D146 CB 01 .. addb #01 ; we live in an odd world?
10422 D148 F7 00 5F .._ stab 005f ; slot number /10
10423 D14B F6 00 06 ... ldab 0006
10425 D14F CE 00 0A ... ldx #000a
10427 D153 F7 00 5E ..^ stab 005e ; slot number%10
10428 D156 F6 00 5E ..^ ldab 005e
10429 D159 C1 05 .. cmpb #05 ; there is not row 5
10430 D15B 23 03 #. bls 03
10431 D15D 7A 00 5E z.^ dec 005e ; make it row 4
10432 D160 F6 00 5E ..^ ldab 005e
10434 D164 C3 B1 23 ..# addd #b123 ; powers of 2
10436 D168 E6 00 .. ldab 00,x
10440 D16D F6 00 5F .._ ldab 005f
10442 D171 C3 B1 23 ..# addd #b123 ; powers of 2
10444 D175 E6 00 .. ldab 00,x
10449 D17B E3 00 .. addd 00,x
10451 D17E FD 00 58 ..X std 0058
10454 D181 7F 00 1C ... clr 001c
10456 D184 F6 00 1C ... ldab 001c
10457 D187 C1 10 .. cmpb #10
10458 D189 24 37 $7 bcc 37 ; to d1c2
10459 D18B F6 00 58 ..X ldab 0058
10460 D18E 2C 0E ,. bge 0e ; to d19e
10462 D190 CE 00 14 ... ldx #0014
10463 D193 1C 00 10 ... bset 00,x, #10
10464 D196 F6 00 14 ... ldab 0014
10465 D199 F7 38 00 .8. stab 3800 ; set high motor serial data
10466 D19C 20 0C . bra 0c ; to d1aa
10468 D19E CE 00 14 ... ldx #0014
10469 D1A1 1D 00 10 .. bclr 00,x, #10
10470 D1A4 F6 00 14 ... ldab 0014
10471 D1A7 F7 38 00 .8. stab 3800 ; set low motor serial data
10473 ; send a clock pulse
10474 D1AA CE 10 00 ... ldx #1000
10475 D1AD 1C 00 20 .. bset 00,x, #20
10476 D1B0 CE 10 00 . ldx #1000
10477 D1B3 1D 00 .. bclr 00,x, #20
10479 ; get the next bit ready to send
10480 D1B6 FC 00 58 . ldd 0058
10482 D1BA FD 00 58 ..X std 0058
10483 D1BD 7C 00 1C |.. inc 001c
10484 D1C0 20 C2 . bra c2
10485 ; if this is column 8 (9 for pascal programmers ;)
10486 D1C2 F6 00 5F .._ ldab 005f
10487 D1C5 C1 09 .. cmpb #09
10488 D1C7 26 0E &. bne 0e ; to d1d7
10489 D1C9 CE 00 14 ... ldx #0014
10490 D1CC 1C 00 20 ... bset 00,x, #20
10491 D1CF F6 00 14 . ldab 0014
10492 D1D2 F7 38 00 .8. stab 3800 ; say its column 8
10493 D1D5 20 13 . bra 13 ; to d1ea
10494 ; if this is column 9 (denoted as 10)
10495 D1D7 F6 00 5F .._ ldab 005f
10496 D1DA C1 0A .. cmpb #0a
10497 D1DC 26 0C &. bne 0c
10498 D1DE CE 00 14 ... ldx #0014
10499 D1E1 1C 00 40 .. bset 00,x, #40 ; say its column 9
10500 D1E4 F6 00 14 ... ldab 0014
10501 D1E7 F7 38 00 .8. stab 3800
10502 ; clear the motor clock
10503 D1EA CE 10 00 ... ldx #1000
10504 D1ED 1D 00 40 .. bclr 00,x, #40 ; motor clock line low
10505 ; clear motor row output enable
10506 D1F0 CE 00 1A ... ldx #001a
10507 D1F3 1D 00 .. bclr 00,x, #80
10508 D1F6 F6 00 1A ... ldab 001a
10509 D1F9 F7 30 00 .0. stab 3000 ; motor driver outputs enable
10513 D1FD CC 40 00 .@. ldd #4000
10516 D202 F6 00 06 ... ldab 0006
10519 D207 C3 08 00 ... addd #0800
10522 D20C AA 00 .. ora 00,x
10523 D20E EA 01 .. orb 01,x
10524 D210 ED 00 .. std 00,x
10528 ; dispense an item from slot 0006
10529 D213 F6 00 1F ... ldab 001f
10530 D216 C4 04 .. andb #04
10531 D218 26 12 &. bne 12 ; to d22c
10532 D21A F6 0B C0 ... ldab 0bc0
10533 D21D C4 10 .. andb #10 ; have link master price holding
10534 D21F 26 0B &. bne 0b ; to d22c
10535 D221 CE 00 00 ... ldx #0000
10537 D225 FC 00 44 ..D ldd 0044
10538 D228 BD BE 9E ... jsr be9e ;jump50 - write slot & price to screen?
10541 D22C BD D3 11 ... jsr d311 ;jump30 - test position exists
10542 D22F 83 00 00 ... subd #0000
10543 D232 27 13 '. beq 13 ; to d247
10544 D234 F6 00 06 ... ldab 0006
10545 D237 BD D4 68 ..h jsr d468 ;jump51 - lookup in 0800 table & and with 8000
10546 D23A 83 00 00 ... subd #0000
10547 D23D 27 05 '. beq 05
10548 D23F 8D BC .. bsr bc ;jump90 - or entry in 0800 table of slot with #4000
10549 D241 BD D6 3C ..< jsr d63c ;jump33 - as above, but with #0400
10554 D247 BD D1 3D ..= jsr d13d ;jump34 - motor on
10555 D24A C6 3C .< ldab #3c ; 60
10556 D24C F7 00 2E ... stab 002e
10557 D24F C6 41 .A ldab #41 ; 65
10558 D251 F7 00 31 ..1 stab 0031
10559 D254 CE 00 1B ... ldx #001b
10560 D257 1D 00 08 ... bclr 00,x #08
10562 D25A F6 00 1B ... ldab 001b
10563 D25D C4 08 .. andb #08
10564 D25F 26 22 &" bne 22 ; to d283
10565 D261 F6 00 2E ... ldab 002e
10566 D264 C1 35 .5 cmpb #35 ; 53
10567 D266 23 10 #. bls 10
10568 D268 BD D5 70 ..p jsr d570 ;jump35 - check home sensor departed
10569 D26B 83 00 00 ... subd #0000
10570 D26E 27 06 '. beq 06 ; to d276
10571 D270 CE 00 1B ... ldx #001b
10572 D273 1C 00 08 ... bset 00,x, #08
10573 D276 20 0B . bra 0b ; to d283
10574 ; something went afoul. mark the motor as bad?
10575 D278 BD D1 05 ... jsr d105 ;motors_off
10576 D27B 8D 80 .. bsr 80 ;jump90 - mark motor as faulty?
10577 D27D BD D6 3C ..< jsr d63c ;jump33 - mark motor as faulty?
10582 D283 F6 00 2E ... ldab 002e
10583 D286 C1 36 .6 cmpb #36 ; 54
10584 D288 24 56 $V bcc 56 ; to d2e0
10585 D28A BD D5 F7 ... jsr d5f7 ;jump108 - check motor overcurrent
10586 D28D 83 00 00 ... subd #0000
10587 D290 27 4E 'N beq 4e ; to d2e0
10588 D292 BD D5 B0 ... jsr d5b0 ;jump31 - check home sensor returned
10589 D295 83 00 00 ... subd #0000
10590 D298 27 46 'F beq 46 ; to d2e0
10591 D29A BD D1 05 ... jsr d105 ;motors_off
10592 D29D F6 00 2E ... ldab 002e
10593 D2A0 C1 32 .2 cmpb #32
10594 D2A2 22 07 ". bhi 07 ; to d2ab
10595 D2A4 8D 6B .k bsr 6b ;jump30 - test motor overvoltage?
10596 D2A6 83 00 00 ... subd #0000
10597 D2A9 27 0C '. beq 0c ; to d2b7
10598 D2AB BD D1 05 ... jsr d105 ;motors_off
10599 D2AE BD D1 FD ... jsr d1fd ;jump90 - mark motor as faulty?
10600 D2B1 BD D6 3C ..< jsr d63c ;jump33 - mark motor as faulty?
10605 D2B7 F6 00 06 ... ldab 0006
10607 D2BB C3 0E 06 ... addd #0e06
10609 D2BF 6C 00 l. inc 00,x
10610 D2C1 F6 00 06 ... ldab 0006
10612 D2C5 C3 0E 06 ... addd #0e06
10614 D2C9 E6 00 .. ldab 00,x
10615 D2CB C1 64 .d cmpb #64
10616 D2CD 23 0D #. bls 0d
10619 D2D1 F6 00 06 ... ldab 0006
10621 D2D5 C3 0E 06 ... addd #0e06
10624 D2DA E7 00 .. stab 00,x
10625 D2DC CC 00 01 ... ldd #0001
10628 D2E0 F6 00 2E ... ldab 002e
10629 D2E3 26 14 &. bne 14
10630 D2E5 BD D5 F7 ... jsr d5f7 ;jump108 - check motor overcurrent status
10631 D2E8 83 00 00 ... subd #0000
10632 D2EB 26 0C &. bne 0c
10633 D2ED BD D1 05 ... jsr d105 ;motors_off
10634 D2F0 BD D1 FD ... jsr d1fd ;jump90
10635 D2F3 BD D6 26 ..& jsr d626 ;jump91
10640 D2F9 F6 00 2E ... ldab 002e
10641 D2FC 26 0C &. bne 0c
10642 D2FE BD D1 05 ... jsr d105 ;motors_off
10643 D301 BD D1 FD ... jsr d1fd ;jump90
10644 D304 BD D6 3C ..< jsr d63c ;jump33
10649 D30A 7E D2 5A ~.Z jmp d25a ;goto59 - try again?
10650 D30D BD E6 1B ... jsr e61b ;jump4
10654 ; tests to see if a motor exists here
10655 D311 BD D1 3D ..= jsr d13d ;jump34 - motor on
10656 D314 7F 00 1C ... clr 001c
10657 D317 7F 00 18 ... clr 0018
10658 D31A F6 10 0A ... ldab 100a
10659 D31D C4 02 .. andb #02 ; motor overvoltage sense
10660 D31F 27 13 '. beq 13 ; to d334
10661 D321 7C 00 1C |.. inc 001c
10662 D324 F6 00 1C ... ldab 001c
10663 D327 C1 FF .. cmpb #ff
10664 D329 26 07 &. bne 07
10665 D32B BD D1 05 ... jsr d105 ;motors_off
10666 D32E CC 00 01 ... ldd #0001
10669 D332 20 10 . bra 10 ; to d344
10670 D334 7C 00 18 |.. inc 0018
10671 D337 F6 00 18 ... ldab 0018
10672 D33A C1 08 .. cmpb #08
10673 D33C 26 06 &. bne 06 ; continue
10674 D33E BD D1 05 ... jsr d105 ;motors_off
10678 D344 20 D4 . bra d4 ; continue
10685 D34A F6 0E 6D ..m ldab 0e6d
10686 D34D C1 01 .. cmpb #01
10687 D34F 27 03 '. beq 03
10688 D351 7E D4 07 ~.. jmp d407 ;goto60
10689 D354 F6 00 06 ... ldab 0006
10692 D359 C3 08 C8 ... addd #08c8
10694 D35D EC 00 .. ldd 00,x
10695 D35F C4 7F .. andb #7f
10697 D362 FD 0E 6B ..k std 0e6b
10698 D365 7F 00 06 ... clr 0006
10700 D368 F6 00 06 ... ldab 0006
10701 D36B C1 3E .> cmpb #3e
10702 D36D 26 03 &. bne 03
10703 D36F 7E D4 02 ~.. jmp d402 ;goto61
10704 D372 BD 97 6F ..o jsr 976f ;jump41
10705 D375 F6 00 06 ... ldab 0006
10708 D37A C3 08 C8 ... addd #08c8
10710 D37E EC 00 .. ldd 00,x
10711 D380 C4 7F .. andb #7f
10713 D383 B3 0E 6B ..k subd 0e6b
10714 D386 26 77 &w bne 77
10715 D388 F6 00 06 ... ldab 0006
10717 D38C CE 00 0A ... ldx #000a
10720 D391 E7 01 .. stab 01,x
10721 D393 E6 01 .. ldab 01,x
10722 D395 C1 01 .. cmpb #01
10723 D397 26 07 &. bne 07
10724 D399 C6 40 .@ ldab #40
10726 D39C E7 00 .. stab 00,x
10727 D39E 20 0C . bra 0c
10729 D3A1 E6 01 .. ldab 01,x
10730 D3A3 C1 02 .. cmpb #02
10731 D3A5 26 05 &. bne 05
10732 D3A7 C6 80 .. ldab #80
10734 D3AA E7 00 .. stab 00,x
10735 D3AC BD D1 3D ..= jsr d13d ;jump34 - motor on
10739 D3B2 ED 03 .. std 03,x
10740 ;look at the home sensors for this row. If it is 0, increment 03/04 else
10741 ;decrement 03/05. Do this 10 times.
10742 D3B4 CC 00 0A ... ldd #000a
10743 D3B7 ED 05 .. std 05,x
10746 D3BA EC 05 .. ldd 05,x
10747 D3BC 2F 23 /# ble 23 ; to D3E1
10748 D3BE F6 28 00 .(. ldab 2800 ;snack motor home sensors
10750 D3C2 E4 00 .. andb 00,x
10751 D3C4 26 09 &. bne d3cf
10753 D3C7 6C 04 l. inc 04,x
10754 D3C9 26 0C &. bne 0c
10755 D3CB 6C 03 l. inc 03,x
10756 D3CD 20 08 . bra d3d7
10758 D3D0 EC 03 .. ldd 03,x
10759 D3D2 83 00 01 ... subd #0001
10760 D3D5 ED 03 .. std 03,x
10762 D3D8 EC 05 .. ldd 05,x
10763 D3DA 83 00 01 ... subd #0001
10764 D3DD ED 05 .. std 05,x
10765 D3DF 20 D8 . bra loop ;d3b9
10766 D3E1 BD D1 05 ... jsr d105 ;motors_off - turn motors off
10768 D3E5 EC 03 .. ldd 03,x
10769 D3E7 2C 16 ,. bge 16
10770 D3E9 F6 00 06 ... ldab 0006
10771 D3EC 8D 7A .z bsr dest 7a
10772 D3EE 83 00 00 ... subd #0000
10773 D3F1 27 0C '. beq 0c
10774 D3F3 BD D5 61 ..a jsr d561 ;jump42
10775 D3F6 83 00 00 ... subd #0000
10776 D3F9 26 04 &. bne 04
10779 D3FD 20 64 d bra 64
10780 D3FF 7E D3 68 ~.h jmp d368 ;goto62
10782 D402 CC 00 01 ... ldd #0001
10783 D405 20 5C \ bra 5c
10785 D407 F6 00 06 ... ldab 0006
10786 D40A C1 13 .. cmpb #13
10787 D40C 27 1C '. beq 1c
10788 D40E F6 00 06 ... ldab 0006
10789 D411 C1 1D .. cmpb #1d
10790 D413 27 15 '. beq 15
10791 D415 F6 00 06 ... ldab 0006
10792 D418 C1 27 .' cmpb #27
10793 D41A 27 0E '. beq 0e
10794 D41C F6 00 06 ... ldab 0006
10795 D41F C1 31 .1 cmpb #31
10796 D421 27 07 '. beq 07
10797 D423 F6 00 06 ... ldab 0006
10798 D426 C1 3B .; cmpb #3b
10799 D428 26 37 &7 bne 37
10800 D42A BD D1 3D ..= jsr d13d ;jump34 - motor on
10801 D42D 7F 00 1C ... clr 001c
10802 D430 7F 00 18 ... clr 0018
10803 D433 F6 18 00 ... ldab 1800
10804 D436 C4 40 .@ andb #40
10805 D438 26 14 &. bne 14
10806 D43A 7C 00 1C |.. inc 001c
10807 D43D F6 00 1C ... ldab 001c
10808 D440 C1 FF .. cmpb #ff
10809 D442 26 08 &. bne 08
10810 D444 BD D1 05 ... jsr d105 ;motors_off
10811 D447 CC 00 01 ... ldd #0001
10812 D44A 20 17 . bra 17
10813 D44C 20 11 . bra 11
10814 D44E 7C 00 18 |.. inc 0018
10815 D451 F6 00 18 ... ldab 0018
10816 D454 C1 08 .. cmpb #08
10817 D456 26 07 &. bne 07
10818 D458 BD D1 05 ... jsr d105 ;motors_off
10821 D45D 20 04 . bra 04
10822 D45F 20 D2 . bra d2
10834 D46A E6 00 .. ldab 00,x
10837 D46E C3 08 00 ... addd #0800
10839 D472 EC 00 .. ldd 00,x
10841 D475 84 80 .. anda #80
10846 D479 7F 00 1C ... clr 001c
10848 D47C F6 00 1C ... ldab 001c
10849 D47F C1 64 .d cmpb #64 ; to 100
10850 D481 24 1A $. bcc 1a ; to d49d
10851 D483 CC FF 7F ... ldd #ff7f
10854 D488 F6 00 1C ... ldab 001c
10857 D48D C3 08 C8 ... addd #08c8
10860 D492 A4 00 .. anda 00,x
10861 D494 E4 01 .. andb 01,x
10862 D496 ED 00 .. std 00,x
10863 D498 7C 00 1C |.. inc 001c
10864 D49B 20 DF . bra df ; to d47c
10865 D49D 7F 00 05 ... clr 0005
10866 goto65: ; begin motor count loop
10867 D4A0 F6 00 05 ... ldab 0005
10868 D4A3 C1 50 .P cmpb #50 ; 80
10869 D4A5 25 03 %. bcs 03
10870 D4A7 7E D5 60 ~.` jmp d560 ;goto63 - exit
10871 D4AA F6 00 05 ... ldab 0005
10873 D4AE C3 B0 D3 ... addd #b0d3 ;motor lookup table
10875 D4B2 E6 00 .. ldab 00,x
10876 D4B4 F7 00 06 ... stab 0006
10877 D4B7 BD D3 11 ... jsr d311 ;jump30 - test position exists
10878 D4BA 83 00 00 ... subd #0000
10879 D4BD 27 03 '. beq 03
10880 D4BF 7E D5 45 ~.E jmp d545 ;goto64
10881 D4C2 F6 00 06 ... ldab 0006
10882 D4C5 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
10883 D4C8 83 00 00 ... subd #0000
10884 D4CB 26 78 &x bne 78
10885 D4CD BD D5 B0 ... jsr d5b0 ;jump31
10886 D4D0 83 00 00 ... subd #0000
10887 D4D3 26 06 &. bne 06
10888 D4D5 BD D1 FD ... jsr d1fd ;jump90
10889 D4D8 BD D6 3C ..< jsr d63c ;jump33
10890 D4DB CC 80 00 ... ldd #8000
10893 D4E0 F6 00 06 ... ldab 0006
10896 D4E5 C3 08 00 ... addd #0800
10899 D4EA AA 00 .. ora 00,x
10900 D4EC EA 01 .. orb 01,x
10901 D4EE ED 00 .. std 00,x
10902 D4F0 F6 00 06 ... ldab 0006
10905 D4F5 C3 08 00 ... addd #0800
10907 D4F9 EC 00 .. ldd 00,x
10908 D4FB C4 FF .. andb #ff
10909 D4FD 84 3F .? anda #3f
10910 D4FF 83 27 0F .'. subd #270f
10911 D502 23 1A #. bls 1a
10912 D504 BD D1 FD ... jsr d1fd ;jump90
10913 D507 CC 01 00 ... ldd #0100
10916 D50C F6 00 06 ... ldab 0006
10919 D511 C3 08 C8 ... addd #08c8
10922 D516 AA 00 .. ora 00,x
10923 D518 EA 01 .. orb 01,x
10924 D51A ED 00 .. std 00,x
10925 D51C 20 25 % bra 25
10926 D51E F6 00 06 ... ldab 0006
10929 D523 C3 08 C8 ... addd #08c8
10931 D527 EC 00 .. ldd 00,x
10932 D529 C4 7F .. andb #7f
10933 D52B F7 00 06 ... stab 0006
10934 D52E CC 00 80 ... ldd #0080
10937 D533 F6 00 06 ... ldab 0006
10940 D538 C3 08 C8 ... addd #08c8
10943 D53D AA 00 .. ora 00,x
10944 D53F EA 01 .. orb 01,x
10945 D541 ED 00 .. std 00,x
10946 D543 20 15 . bra 15
10947 goto64: ; mark a motor position as valid?
10948 D545 CC 7F FF ... ldd #7fff
10951 D54A F6 00 06 ... ldab 0006
10954 D54F C3 08 00 ... addd #0800
10957 D554 A4 00 .. anda 00,x
10958 D556 E4 01 .. andb 01,x
10959 D558 ED 00 .. std 00,x
10960 D55A 7C 00 05 |.. inc 0005
10961 D55D 7E D4 A0 ~.. jmp d4a0 ;goto65 - loop again
10966 D561 F6 00 06 ... ldab 0006
10969 D566 C3 08 00 ... addd #0800
10971 D56A EC 00 .. ldd 00,x
10973 D56D 84 40 .@ anda #40
10976 ;Look at the home sensor for the row of this slot. If it isn't 0 within 5
10977 ;loops, return 1 (fault?), else return 0 (OK?).
10978 ;005f is the row number in this routine. scratch variable?
10979 ;looks like 0006 is the slot number.
10980 ;this is called twice
10982 D570 F6 00 06 ... ldab 0006
10984 D574 CE 00 0A ... ldx #000a
10986 D578 F7 00 5F .._ stab 005f
10987 D57B F6 00 5F .._ ldab 005f
10988 D57E C1 05 .. cmpb #05
10989 D580 23 03 #. bls d585
10990 D582 7A 00 5F z._ dec 005f
10991 D585 F6 00 5F .._ ldab 005f ;row number
10993 D589 C3 B1 23 ..# addd #b123
10995 D58D E6 00 .. ldab 00,x ;get bit for this row
10996 D58F F7 00 5E ..^ stab 005e
10997 D592 7F 00 1C ... clr 001c
10999 D595 F6 28 00 .(. ldab 2800 ;snack motor home sensors
11000 D598 F4 00 5E ..^ andb 005e ;check home sensor for this row
11001 D59B 27 10 '. beq d5ad
11002 D59D 7C 00 1C |.. inc 001c
11003 D5A0 F6 00 1C ... ldab 001c
11004 D5A3 C1 05 .. cmpb #05
11005 D5A5 26 04 &. bne d5ab
11006 D5A7 CC 00 01 ... ldd #0001
11009 D5AB 20 E8 . bra loop ;d595
11014 ;This does almost the same - check the home sensor for this row (slot number
11015 ;is in 0006) up to 5 times. If it is 1, return 0. If it stays 0, return 0.
11016 ;(this is the reverse of the routine above). But also check bit 0 of 100a.
11017 ;If it is ever 0, return 0.
11018 ;005f is the row number
11019 ;005e is the bit mask for this row
11021 D5B0 F6 00 06 ... ldab 0006
11023 D5B4 CE 00 0A ... ldx #000a
11025 D5B8 F7 00 5F .._ stab 005f
11026 D5BB F6 00 5F .._ ldab 005f
11027 D5BE C1 05 .. cmpb #05
11028 D5C0 23 03 #. bls 03
11029 D5C2 7A 00 5F z._ dec 005f
11030 D5C5 F6 00 5F .._ ldab 005f
11032 D5C9 C3 B1 23 ..# addd #b123
11034 D5CD E6 00 .. ldab 00,x
11035 D5CF F7 00 5E ..^ stab 005e
11036 D5D2 7F 00 1C ... clr 001c
11038 D5D5 F6 28 00 .(. ldab 2800 ;snack motor home sensors
11039 D5D8 F4 00 5E ..^ andb 005e
11040 D5DB 26 17 &. bne d5f4
11041 D5DD F6 10 0A ... ldab 100a
11042 D5E0 C4 01 .. andb #01
11043 D5E2 27 10 '. beq d5f4
11044 D5E4 7C 00 1C |.. inc 001c
11045 D5E7 F6 00 1C ... ldab 001c
11046 D5EA C1 05 .. cmpb #05
11047 D5EC 26 04 &. bne d5f2
11048 D5EE CC 00 01 ... ldd #0001
11051 D5F2 20 E1 . bra loop ;d5d5
11057 ; check motor overcurrent status
11058 D5F7 C6 07 .. ldab #07
11059 D5F9 F7 00 1C ... stab 001c
11060 D5FC 7F 00 18 ... clr 0018
11062 D5FF F6 00 1C ... ldab 001c
11063 D602 27 1E '. beq 1e ; to d622
11064 D604 7A 00 1C z.. dec 001c
11065 D607 F6 10 0A ... ldab 100a
11066 D60A C4 01 .. andb #01 ; motor overcurrent sense!
11067 D60C 26 12 &. bne 12 ; to d620
11068 D60E C6 07 .. ldab #07
11069 D610 F7 00 1C ... stab 001c
11070 D613 7C 00 18 |.. inc 0018
11071 D616 F6 00 18 ... ldab 0018
11072 D619 C1 05 .. cmpb #05
11073 D61B 26 03 &. bne 03
11078 D620 20 DD . bra dd ; to d5ff
11079 D622 CC 00 01 ... ldd #0001
11083 ; ORs memory location 08c8+(slotnum*2) with #0200
11084 D626 CC 02 00 ... ldd #0200
11087 D62B F6 00 06 ... ldab 0006
11090 D630 C3 08 C8 ... addd #08c8
11093 D635 AA 00 .. ora 00,x
11094 D637 EA 01 .. orb 01,x
11095 D639 ED 00 .. std 00,x
11099 ; ORs memory location 08c8+(slotnum*2) with #0400
11100 D63C CC 04 00 ... ldd #0400
11103 D641 F6 00 06 ... ldab 0006
11106 D646 C3 08 C8 ... addd #08c8
11109 D64B AA 00 .. ora 00,x
11110 D64D EA 01 .. orb 01,x
11111 D64F ED 00 .. std 00,x
11115 ; Sends a pulse to the bill acceptor
11116 D652 CE 00 1A ... ldx #001a
11117 D655 1C 00 01 .. bset 00,x, #01
11118 D658 F6 00 1A ... ldab 001a
11119 D65B F7 30 00 .0. stab 3000
11120 D65E CE 00 14 ... ldx #0014
11121 D661 1D 00 01 .. bclr 00,x, #01
11122 D664 F6 00 14 ... ldab 0014
11123 D667 F7 38 00 .8. stab 3800
11127 D66B F6 0B C0 ... ldab 0bc0
11128 D66E C4 08 .. andb #08 ; we have a bill validator?
11129 D670 27 07 '. beq 07 ; if not, to d679
11130 D672 F6 00 7D ..} ldab 007d
11131 D675 27 02 '. beq 02
11132 D677 20 F9 . bra f9 ; to d672 - wait for a bill?
11133 D679 F6 00 15 ... ldab 0015
11134 D67C 2D 77 -w blt 77 ; return
11135 D67E FC 00 40 ..@ ldd 0040
11136 D681 F3 00 3E ..> addd 003e
11137 D684 B3 00 0F ... subd 000f
11138 D687 24 4F $O bcc 4f
11139 D689 F6 0B C0 ... ldab 0bc0
11140 D68C C4 01 .. andb #01
11141 D68E 26 07 &. bne 07
11142 D690 F6 0B C0 ... ldab 0bc0
11143 D693 C4 04 .. andb #04
11144 D695 27 0C '. beq 0c
11145 D697 CE 00 1A ... ldx #001a
11146 D69A 1D 00 01 .. bclr 00,x, #01
11147 D69D F6 00 1A ... ldab 001a
11148 D6A0 F7 30 00 .0. stab 3000 ; changer accept' line
11149 D6A3 F6 0B C0 ... ldab 0bc0
11150 D6A6 C4 08 .. andb #08
11151 D6A8 27 20 ' beq 20
11152 D6AA F6 0C D9 ... ldab 0cd9
11153 D6AD C1 03 .. cmpb #03
11154 D6AF 23 19 #. bls 19
11155 D6B1 FC 0B EF ... ldd 0bef
11156 D6B4 83 00 64 ..d subd #0064
11157 D6B7 25 11 %. bcs 11
11158 D6B9 CE 00 14 ... ldx #0014
11159 D6BC 1C 00 02 .. bset 00,x, #02
11160 D6BF F6 00 14 ... ldab 0014
11161 D6C2 F7 38 00 .8. stab 3800 ; bill acceptor
11162 D6C5 BD C0 E0 ... jsr c0e0 ;jump94
11163 D6C8 20 0C . bra 0c
11164 D6CA CE 00 14 ... ldx #0014
11165 D6CD 1D 00 01 .. bclr 00,x, #01
11166 D6D0 F6 00 14 ... ldab 0014
11167 D6D3 F7 38 00 .8. stab 3800
11168 D6D6 20 05 . bra 05
11169 D6D8 BD D6 52 ..R jsr d652 ;jump5
11170 D6DB 8D 53 .S bsr dest 53
11171 D6DD F6 0B C0 ... ldab 0bc0
11172 D6E0 C4 08 .. andb #08
11173 D6E2 27 11 '. beq 11
11174 D6E4 F6 0B C0 ... ldab 0bc0
11175 D6E7 C4 40 .@ andb #40
11176 D6E9 27 0A '. beq 0a
11177 D6EB F6 00 15 ... ldab 0015
11178 D6EE C4 01 .. andb #01
11179 D6F0 27 03 '. beq 03
11180 D6F2 BD C0 E0 ... jsr c0e0 ;jump94
11184 ; puts (0cdb+0bdd)+(0cda*0bdf)+(0cd9*0be1) => 0bef
11185 ; calculates how much money we have in the coin mech!!!!
11186 D6F6 F6 0C DB ... ldab 0cdb
11190 D6FC FC 0B DD ... ldd 0bdd
11191 D6FF BD FB BA ... jsr fbba ;jump38 - multiply?
11192 D702 FD 0C EB ... std 0ceb ; 0cdb * 0bdd => 0ceb
11193 D705 F6 0C DA ... ldab 0cda
11197 D70B FC 0B DF ... ldd 0bdf
11198 D70E BD FB BA ... jsr fbba ;jump38 - multiply?
11199 D711 FD 0C ED ... std 0ced ; 0cda * 0bdf => 0ced
11200 D714 F6 0C D9 ... ldab 0cd9
11204 D71A FC 0B E1 ... ldd 0be1
11205 D71D BD FB BA ... jsr fbba ;jump38 - multiply?
11206 D720 FD 0C EF ... std 0cef ; 0cd9 * 0be1 => 0cef
11207 D723 FC 0C EB ... ldd 0ceb
11208 D726 F3 0C ED ... addd 0ced
11209 D729 F3 0C EF ... addd 0cef
11210 D72C FD 0B EF ... std 0bef ; 0ceb+0ced+0cef => 0bef
11214 D730 F6 00 15 ... ldab 0015
11215 D733 C4 1F .. andb #1f
11216 D735 27 49 'I beq 49
11217 D737 FC 00 40 ..@ ldd 0040
11218 D73A F3 00 3E ..> addd 003e
11219 D73D B3 0B EF ... subd 0bef
11220 D740 23 19 #. bls 19
11221 D742 CC B0 6B ..k ldd #b06b ; "NO CHANGE"
11222 D745 BD C0 BA ... jsr c0ba ;display:
11223 D748 CC 01 F4 ... ldd #01f4
11224 D74B BD E5 71 ..q jsr e571 ;msdelay
11225 D74E BD C5 D3 ... jsr c5d3 ;jump6
11226 D751 CC 01 F4 ... ldd #01f4
11227 D754 BD E5 71 ..q jsr e571 ;msdelay
11228 D757 CC 00 01 ... ldd #0001
11231 D75B F6 00 15 ... ldab 0015
11232 D75E C4 04 .. andb #04
11233 D760 27 1E '. beq 1e
11234 D762 F6 0E 6E ..n ldab 0e6e
11235 D765 26 19 &. bne 19
11236 D767 CC B0 76 ..v ldd #b076 ; "NO FIVES"
11237 D76A BD C0 BA ... jsr c0ba ;display:
11238 D76D CC 01 F4 ... ldd #01f4
11239 D770 BD E5 71 ..q jsr e571 ;msdelay
11240 D773 BD C5 D3 ... jsr c5d3 ;jump6
11241 D776 CC 01 F4 ... ldd #01f4
11242 D779 BD E5 71 ..q jsr e571 ;msdelay
11243 D77C CC 00 01 ... ldd #0001
11251 D783 F6 00 06 ... ldab 0006
11253 D787 CE 00 0A ... ldx #000a
11255 D78B C1 04 .. cmpb #04
11256 D78D 26 0E &. bne 0e
11257 D78F F6 00 1D ... ldab 001d
11258 D792 C4 04 .. andb #04
11259 D794 27 03 '. beq 03
11264 D799 CC 00 01 ... ldd #0001
11272 ; validates a slot number? (return 1 if invalid)
11273 ; let i = number on stack
11274 ; if i in [9, 69, 79, 89, 99], return 1
11275 ; if 0e6d!=1 return 0
11276 ; if i%10 not in [1,2] return 1
11277 ; if i < 11 return 1
11278 ; if i <= 62 return 0
11282 D7A2 E6 00 .. ldab 00,x
11283 D7A4 C1 09 .. cmpb #09 ; 9
11284 D7A6 27 18 '. beq 18 ; to d7c0 (returns 1)
11285 D7A8 E6 00 .. ldab 00,x
11286 D7AA C1 45 .E cmpb #45 ; 69
11287 D7AC 27 12 '. beq 12 ; to d7c0 (returns 1)
11288 D7AE E6 00 .. ldab 00,x
11289 D7B0 C1 4F .O cmpb #4f ; 79
11290 D7B2 27 0C '. beq 0c ; to d7c0 (returns 1)
11291 D7B4 E6 00 .. ldab 00,x
11292 D7B6 C1 59 .Y cmpb #59 ; 89
11293 D7B8 27 06 '. beq 06 ; to d7c0 (returns 1)
11294 D7BA E6 00 .. ldab 00,x
11295 D7BC C1 63 .c cmpb #63 ; 99 (also returns 1)
11296 D7BE 26 05 &. bne 05 ; to d7c5 if not equal
11297 D7C0 CC 00 01 ... ldd #0001
11298 D7C3 20 38 8 bra 38 ; to d7fd (return 1)
11299 D7C5 F6 0E 6D ..m ldab 0e6d
11300 D7C8 C1 01 .. cmpb #01
11301 D7CA 26 2F &/ bne 2f ;to d7fb (return 0)
11303 D7CD E6 00 .. ldab 00,x
11305 D7D0 CE 00 0A ... ldx #000a
11307 D7D4 C1 01 .. cmpb #01
11308 D7D6 27 11 '. beq 11 ;to d7e9 if num%10==1
11310 D7D9 E6 00 .. ldab 00,x
11312 D7DC CE 00 0A ... ldx #000a
11314 D7E0 C1 02 .. cmpb #02
11315 D7E2 27 05 '. beq 05 ;to d7e9 if num%10==2
11316 D7E4 CC 00 01 ... ldd #0001
11317 D7E7 20 14 . bra 14 ; to d7fd (return 1)
11319 D7EA E6 00 .. ldab 00,x
11320 D7EC C1 0B .. cmpb #0b ; < 11
11321 D7EE 25 06 %. bcs 06 ; return 1
11322 D7F0 E6 00 .. ldab 00,x
11323 D7F2 C1 3E .> cmpb #3e ; <= 62
11324 D7F4 23 05 #. bls 05 ; return 0
11325 D7F6 CC 00 01 ... ldd #0001
11326 D7F9 20 02 . bra 02
11333 D7FF 7F 00 1C ... clr 001c
11334 D802 F6 00 1C ... ldab 001c
11336 D806 B3 00 4D ..M subd 004d
11337 D809 24 05 $. bcc 05
11338 D80B 7C 00 1C |.. inc 001c
11339 D80E 20 F2 . bra f2
11340 D810 F6 00 1C ... ldab 001c
11343 D815 C3 0D 1F ... addd #0d1f
11345 D819 EC 00 .. ldd 00,x
11346 D81B 83 FF FF ... subd #ffff
11347 D81E 26 10 &. bne 10
11352 D824 F6 00 1C ... ldab 001c
11355 D829 C3 0D 1F ... addd #0d1f
11358 D82E ED 00 .. std 00,x
11359 D830 F6 00 1C ... ldab 001c
11362 D835 C3 0D 1F ... addd #0d1f
11364 D839 6C 01 l. inc 01,x
11365 D83B 26 02 &. bne 02
11366 D83D 6C 00 l. inc 00,x
11370 D840 FC 00 44 ..D ldd 0044
11371 D843 26 03 &. bne 03
11372 D845 7E D8 D2 ~.. jmp d8d2 ;goto66
11373 D848 FC 00 44 ..D ldd 0044
11380 D851 CC 0D EB ... ldd #0deb
11381 D854 BD FB DF ... jsr fbdf ;jump46
11384 D859 FE 0D ED ... ldx 0ded
11386 D85D FC 0D EB ... ldd 0deb
11389 D862 CE E1 00 ... ldx #e100
11391 D866 CC 05 F5 ... ldd #05f5
11395 D86C EC 06 .. ldd 06,x
11396 D86E A3 02 .. subd 02,x
11397 D870 EC 04 .. ldd 04,x
11398 D872 E2 01 .. sbcb 01,x
11399 D874 A2 00 .. sbca 00,x
11404 D87A 25 11 %. bcs 11
11405 D87C CE 1F 00 ... ldx #1f00
11407 D880 CC FA 0A ... ldd #fa0a
11410 D885 CC 0D EB ... ldd #0deb
11411 D888 BD FB DF ... jsr fbdf ;jump46
11414 D88D FC 00 44 ..D ldd 0044
11421 D896 CC 0D E7 ... ldd #0de7
11422 D899 BD FB DF ... jsr fbdf ;jump46
11425 D89E FE 0D E9 ... ldx 0de9
11427 D8A2 FC 0D E7 ... ldd 0de7
11430 D8A7 CE E1 00 ... ldx #e100 ; 57600
11432 D8AB CC 05 F5 ... ldd #05f5
11436 D8B1 EC 06 .. ldd 06,x
11437 D8B3 A3 02 .. subd 02,x
11438 D8B5 EC 04 .. ldd 04,x
11439 D8B7 E2 01 .. sbcb 01,x
11440 D8B9 A2 00 .. sbca 00,x
11445 D8BF 25 11 %. bcs 11
11446 D8C1 CE 1F 00 ... ldx #1f00
11448 D8C5 CC FA 0A ... ldd #fa0a
11451 D8CA CC 0D E7 ... ldd #0de7
11452 D8CD BD FB DF ... jsr fbdf ;jump46
11460 D8D3 7F 00 18 ... clr 0018
11461 D8D6 F6 00 18 ... ldab 0018
11462 D8D9 C1 10 .. cmpb #10
11463 D8DB 24 0B $. bcc 0b
11464 D8DD CC 00 32 ..2 ldd #0032
11465 D8E0 BD E5 71 ..q jsr e571 ;msdelay
11466 D8E3 7C 00 18 |.. inc 0018
11467 D8E6 20 EE . bra ee
11471 ; displays select other item
11472 D8E9 F6 00 2B ..+ ldab 002b
11473 D8EC C1 00 .. cmpb #00
11474 D8EE 26 18 &. bne 18
11475 D8F0 CC AD 84 ... ldd #ad84 ; " PULSE "
11476 D8F3 BD C0 BA ... jsr c0ba ;display:
11477 D8F6 8D DB .. bsr dest db
11478 D8F8 CC AD 8F ... ldd #ad8f ; " EXTRA "
11479 D8FB BD C0 BA ... jsr c0ba ;display:
11480 D8FE 8D D3 .. bsr dest d3
11481 D900 CC AD 9A ... ldd #ad9a ; "SELECTION"
11482 D903 BD C0 BA ... jsr c0ba ;display:
11483 D906 20 4E N bra 4e
11484 D908 C1 01 .. cmpb #01
11485 D90A 26 18 &. bne 18
11486 D90C CC AD 63 ..c ldd #ad63 ; " BITTE "
11487 D90F BD C0 BA ... jsr c0ba ;display:
11488 D912 8D BF .. bsr dest bf
11489 D914 CC AD 6E ..n ldd #ad6e ; " ANDERE "
11490 D917 BD C0 BA ... jsr c0ba ;display:
11491 D91A 8D B7 .. bsr dest b7
11492 D91C CC AD 79 ..y ldd #ad79 ; " WAHL "
11493 D91F BD C0 BA ... jsr c0ba ;display:
11494 D922 20 32 2 bra 32
11495 D924 C1 02 .. cmpb #02
11496 D926 26 18 &. bne 18
11497 D928 CC AD 42 ..B ldd #ad42 ; "FAITES"
11498 D92B BD C0 BA ... jsr c0ba ;display:
11499 D92E 8D A3 .. bsr dest a3
11500 D930 CC AD 4D ..M ldd #ad4d ; "AURTE"
11501 D933 BD C0 BA ... jsr c0ba ;display:
11502 D936 8D 9B .. bsr dest 9b
11503 D938 CC AD 58 ..X ldd #ad58 ; "CHOIX"
11504 D92B BD C0 BA ... jsr c0ba ;display:
11505 D93E 20 16 . bra 16
11506 D940 CC AD 21 ..! ldd #ad21 ; "SELECT "
11507 D943 BD C0 BA ... jsr c0ba ;display:
11508 D946 8D 8B .. bsr dest 8b
11509 D948 CC AD 2C .., ldd #ad2c ; "OTHER"
11510 D94B BD C0 BA ... jsr c0ba ;display:
11511 D94E 8D 83 .. bsr dest 83
11512 D950 CC AD 37 ..7 ldd #ad37 ; "ITEM"
11513 D953 BD C0 BA ... jsr c0ba ;display:
11514 D956 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay
11518 D95A F6 00 06 ... ldab 0006
11519 D95D F1 0B AF ... cmpb 0baf
11520 D960 26 0D &. bne 0d ; to d984
11521 D962 BD D7 FF ... jsr d7ff ;jump80
11522 D965 F6 0B B4 ... ldab 0bb4
11523 D968 F7 00 06 ... stab 0006
11524 D96B 8D 55 .U bsr 55 ;jump205
11525 D96D 20 52 R bra 52 ; exit
11526 D96F F6 00 06 ... ldab 0006
11527 D972 F1 0B AE ... cmpb 0bae
11528 D975 26 0D &. bne 0d ; to d984
11529 D977 BD D7 FF ... jsr d7ff ;jump80
11530 D97A F6 0B B3 ... ldab 0bb3
11531 D97D F7 00 06 ... stab 0006
11532 D980 8D 40 .@ bsr 40 ;jump205
11533 D982 20 3D = bra 3d
11534 D984 F6 00 06 ... ldab 0006
11535 D987 F1 0B AD ... cmpb 0bad
11536 D98A 26 0D &. bne 0d
11537 D98C BD D7 FF ... jsr d7ff ;jump80
11538 D98F F6 0B B2 ... ldab 0bb2
11539 D992 F7 00 06 ... stab 0006
11540 D995 8D 2B .+ bsr 2b ;jump205
11541 D997 20 28 ( bra 28
11542 D999 F6 00 06 ... ldab 0006
11543 D99C F1 0B AC ... cmpb 0bac
11544 D99F 26 0D &. bne 0d
11545 D9A1 BD D7 FF ... jsr d7ff ;jump80
11546 D9A4 F6 0B B1 ... ldab 0bb1
11547 D9A7 F7 00 06 ... stab 0006
11548 D9AA 8D 16 .. bsr 16 ;jump205
11549 D9AC 20 13 . bra 13
11550 D9AE F6 00 06 ... ldab 0006
11551 D9B1 F1 0B AB ... cmpb 0bab
11552 D9B4 26 0B &. bne 0b
11553 D9B6 BD D7 FF ... jsr d7ff ;jump80
11554 D9B9 F6 0B B0 ... ldab 0bb0
11555 D9BC F7 00 06 ... stab 0006
11556 D9BF 8D 01 .. bsr 01 ;jump205
11560 D9C2 CC 03 E8 ... ldd #03e8
11561 D9C5 BD E5 71 ..q jsr e571 ;msdelay
11562 D9C8 BD D7 83 ... jsr d783 ;jump44
11563 D9CB 83 00 00 ... subd #0000
11564 D9CE 27 0B '. beq 0b
11565 D9D0 7F 00 06 ... clr 0006
11568 D9D5 FD 00 4D ..M std 004d
11569 D9D8 7E DA 63 ~.c jmp da63 ;goto67
11570 D9DB BD D2 13 ... jsr d213 ;jump45
11571 D9DE 83 00 00 ... subd #0000
11572 D9E1 26 0A &. bne 0a
11573 D9E3 7F 00 06 ... clr 0006
11576 D9E8 FD 00 4D ..M std 004d
11577 D9EB 20 76 v bra 76
11578 D9ED FC 0D 0B ... ldd 0d0b
11579 D9F0 83 FF FF ... subd #ffff
11580 D9F3 26 05 &. bne 05
11583 D9F7 FD 0D 0B ... std 0d0b
11584 D9FA FE 0D 0B ... ldx 0d0b
11586 D9FE FF 0D 0B ... stx 0d0b
11587 DA01 F6 00 06 ... ldab 0006
11590 DA06 C3 08 C8 ... addd #08c8
11592 DA0A EC 00 .. ldd 00,x
11593 DA0C C4 7F .. andb #7f
11595 DA0F FD 00 4D ..M std 004d
11596 DA12 F6 00 06 ... ldab 0006
11599 DA17 C3 08 00 ... addd #0800
11601 DA1B EC 00 .. ldd 00,x
11602 DA1D C4 FF .. andb #ff
11603 DA1F 84 3F .? anda #3f
11610 DA27 CC 0D 17 ... ldd #0d17
11611 DA2A BD FB DF ... jsr fbdf ;jump46
11614 DA2F FE 0D 19 ... ldx 0d19
11616 DA33 FC 0D 17 ... ldd 0d17
11619 DA38 CE E1 00 ... ldx #e100
11621 DA3C CC 05 F5 ... ldd #05f5
11625 DA42 EC 06 .. ldd 06,x
11626 DA44 A3 02 .. subd 02,x
11627 DA46 EC 04 .. ldd 04,x
11628 DA48 E2 01 .. sbcb 01,x
11629 DA4A A2 00 .. sbca 00,x
11634 DA50 25 11 %. bcs 11
11635 DA52 CE 1F 00 ... ldx #1f00
11637 DA56 CC FA 0A ... ldd #fa0a
11640 DA5B CC 0D 17 ... ldd #0d17
11641 DA5E BD FB DF ... jsr fbdf ;jump46
11648 DA64 FE 0B B9 ... ldx 0bb9
11650 DA68 FF 0B B9 ... stx 0bb9
11651 DA6B FC 0B B5 ... ldd 0bb5
11652 DA6E CE 00 32 ..2 ldx #0032
11657 DA75 CC 00 C3 ... ldd #00c3 ; 195
11658 DA78 BD FB BA ... jsr fbba ;jump38 - multiply?
11659 DA7B B3 0B B9 ... subd 0bb9
11660 DA7E 24 05 $. bcc 05
11663 DA82 FD 0B B9 ... std 0bb9
11664 DA85 FC 0B B9 ... ldd 0bb9
11667 DA8A CC 00 0A ... ldd #000a ; 10
11668 DA8D BD FB BA ... jsr fbba ;jump38 - multiply?
11671 DA92 FC 0B B5 ... ldd 0bb5
11672 DA95 CE 00 32 ..2 ldx #0032
11681 DAA0 CC 00 0A ... ldd #000a ; 10
11682 DAA3 BD FB BA ... jsr fbba ;jump38 - multiply?
11683 DAA6 CE 00 0A ... ldx #000a
11686 DAAB FD 00 4A ..J std 004a
11687 DAAE FC 00 4A ..J ldd 004a
11688 DAB1 BD FE 32 ..2 jsr fe32 ;jump25
11689 DAB4 DA CA 00 6E ...n ; 110
11690 DAB8 DA CA 02 80 .... ; 750
11691 DABC DA CA 01 C2 .... ; 1200
11692 DAC0 DA CA 01 C2 .... ; 1650
11693 DAC4 DB 43 F9 8E .... ; 0
11694 DAC8 00 00 .. ; end of array data
11695 DACA FC 0D 07 ... ldd 0d07
11696 DACD 83 FF FF ... subd #ffff
11697 DAD0 26 05 &. bne 05
11700 DAD4 FD 0D 07 ... std 0d07
11701 DAD7 FE 0D 07 ... ldx 0d07
11703 DADB FF 0D 07 ... stx 0d07
11704 DADE F6 00 06 ... ldab 0006
11707 DAE3 C3 08 00 ... addd #0800
11709 DAE7 EC 00 .. ldd 00,x
11710 DAE9 C4 FF .. andb #ff
11711 DAEB 84 3F .? anda #3f
11718 DAF3 CC 0D 0F ... ldd #0d0f
11719 DAF6 BD FB DF ... jsr fbdf ;jump46
11722 DAFB FE 0D 11 ... ldx 0d11
11724 DAFF FC 0D 0F ... ldd 0d0f
11727 DB04 CE E1 00 ... ldx #e100
11729 DB08 CC 05 F5 ... ldd #05f5
11733 DB0E EC 06 .. ldd 06,x
11734 DB10 A3 02 .. subd 02,x
11735 DB12 EC 04 .. ldd 04,x
11736 DB14 E2 01 .. sbcb 01,x
11737 DB16 A2 00 .. sbca 00,x
11742 DB1C 25 11 %. bcs 11
11743 DB1E CE 1F 00 ... ldx #1f00
11745 DB22 CC FA 0A ... ldd #fa0a
11748 DB27 CC 0D 0F ... ldd #0d0f
11749 DB2A BD FB DF ... jsr fbdf ;jump46
11754 DB31 FD 00 44 ..D std 0044
11755 DB34 CE 00 1B ... ldx #001b
11756 DB37 1D 00 01 ... bclr 00,x, #01
11757 DB3A 7F 00 4F ..O clr 004f
11758 DB3D CE 00 11 ... ldx #0011
11759 DB40 1C 00 10 ... bset 00,x, #10
11764 DB44 F6 00 2B ..+ ldab 002b
11765 DB47 C1 00 .. cmpb #00
11766 DB49 26 08 &. bne 08
11767 DB4B CC AC DF ... ldd #acdf ; "CAMBIO"
11768 DB4E BD C0 BA ... jsr c0ba ;display:
11769 DB51 20 1E . bra 1e
11770 DB53 C1 01 .. cmpb #01
11771 DB55 26 08 &. bne 08
11772 DB57 CC AC D4 ... ldd #acd4 ; "CHANGE"
11773 DB5A BD C0 BA ... jsr c0ba ;display:
11774 DB5D 20 12 . bra 12
11775 DB5F C1 02 .. cmpb #02
11776 DB61 26 08 &. bne 08
11777 DB63 CC AC EA ... ldd #acea ; "MONNAIE"
11778 DB66 BD C0 BA ... jsr c0ba ;display:
11779 DB69 20 06 . bra 06
11780 DB6B CC AC D4 ... ldd #acd4 ; "CHANGE"
11781 DB6E BD C0 BA ... jsr c0ba ;display:
11783 DB71 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay
11784 DB74 CE 00 01 ... ldx #0001
11786 DB78 FC 00 40 ..@ ldd 0040
11787 DB7B F3 00 3E ..> addd 003e
11788 DB7E BD BE 9E ... jsr be9e ;jump50
11790 DB82 FC 00 40 ..@ ldd 0040
11791 DB85 27 05 '. beq 05
11792 DB87 BD C4 56 ..V jsr c456 ;jump47
11793 DB8A 20 06 . bra 06
11794 DB8C CC 02 58 ..X ldd #0258
11795 DB8F BD E5 71 ..q jsr e571 ;msdelay
11796 DB92 FC 00 3E ..> ldd 003e
11797 DB95 27 03 '. beq 03
11798 DB97 BD C5 D3 ... jsr c5d3 ;jump6
11799 DB9A F6 00 2B ..+ ldab 002b
11800 DB9D C1 00 .. cmpb #00
11801 DB9F 26 08 &. bne 08
11802 DBA1 CC AD 16 ... ldd #ad16 ; "GRACIAS"
11803 DBA4 BD C0 BA ... jsr c0ba ;display:
11804 DBA7 20 1E . bra 1e
11805 DBA9 C1 01 .. cmpb #01
11806 DBAB 26 08 &. bne 08
11807 DBAD CC AD 0B ... ldd #ad0b ; "DANKE"
11808 DBB0 BD C0 BA ... jsr c0ba ;display:
11809 DBB3 20 12 . bra 12
11810 DBB5 C1 02 .. cmpb #02
11811 DBB7 26 08 &. bne 08
11812 DBB9 CC AD 00 ... ldd #ad00 ; "MERCI"
11813 DBBC BD C0 BA ... jsr c0ba ;display:
11814 DBBF 20 06 . bra 06
11815 DBC1 CC AC F5 ... ldd #acf5 ; "THANKS"
11816 DBC4 BD C0 BA ... jsr c0ba ;display:
11817 DBC7 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay
11821 DBCB F6 00 1B ... ldab 001b
11822 DBCE C4 01 .. andb #01
11823 DBD0 26 03 &. bne 03
11824 DBD2 7E DC 98 ~.. jmp dc98 ;goto68
11825 DBD5 F6 00 06 ... ldab 0006
11828 DBDA C3 08 C8 ... addd #08c8
11830 DBDE EC 00 .. ldd 00,x
11831 DBE0 84 08 .. anda #08
11832 DBE2 26 03 &. bne 03
11833 DBE4 7E DC 98 ~.. jmp dc98 ;goto68
11834 DBE7 BD D7 FF ... jsr d7ff ;jump80
11835 DBEA CC 03 E8 ... ldd #03e8
11836 DBED BD E5 71 ..q jsr e571 ;msdelay
11837 DBF0 BD D3 46 ..F jsr d346 ;jump43
11838 DBF3 83 00 00 ... subd #0000
11839 DBF6 26 08 &. bne 08
11840 DBF8 BD D7 83 ... jsr d783 ;jump44
11841 DBFB 83 00 00 ... subd #0000
11842 DBFE 27 17 '. beq 17
11845 DC02 FD 00 4D ..M std 004d
11846 DC05 FC 00 44 ..D ldd 0044
11847 DC08 F3 0B B7 ... addd 0bb7
11849 DC0C F3 00 40 ..@ addd 0040
11850 DC0F B3 0B B7 ... subd 0bb7
11851 DC12 FD 00 40 ..@ std 0040
11852 DC15 20 78 x bra 78
11853 DC17 BD D2 13 ... jsr d213 ;jump45
11854 DC1A 83 00 00 ... subd #0000
11855 DC1D 26 17 &. bne 17
11858 DC21 FD 00 4D ..M std 004d
11859 DC24 FC 00 44 ..D ldd 0044
11860 DC27 F3 0B B7 ... addd 0bb7
11862 DC2B F3 00 40 ..@ addd 0040
11863 DC2E B3 0B B7 ... subd 0bb7
11864 DC31 FD 00 40 ..@ std 0040
11865 DC34 20 59 Y bra 59
11866 DC36 FC 0D 09 ... ldd 0d09
11867 DC39 83 FF FF ... subd #ffff
11868 DC3C 26 05 &. bne 05
11871 DC40 FD 0D 09 ... std 0d09
11872 DC43 FE 0D 09 ... ldx 0d09
11874 DC47 FF 0D 09 ... stx 0d09
11875 DC4A FC 0B B7 ... ldd 0bb7
11882 DC53 CC 0D 13 ... ldd #0d13
11883 DC56 BD FB DF ... jsr fbdf ;jump46
11886 DC5B FE 0D 15 ... ldx 0d15
11888 DC5F FC 0D 13 ... ldd 0d13
11891 DC64 CE E1 00 ... ldx #e100
11893 DC68 CC 05 F5 ... ldd #05f5
11897 DC6E EC 06 .. ldd 06,x
11898 DC70 A3 02 .. subd 02,x
11899 DC72 EC 04 .. ldd 04,x
11900 DC74 E2 01 .. sbcb 01,x
11901 DC76 A2 00 .. sbca 00,x
11906 DC7C 25 11 %. bcs 11
11907 DC7E CE 1F 00 ... ldx #1f00
11909 DC82 CC FA 0A ... ldd #fa0a
11912 DC87 CC 0D 13 ... ldd #0d13
11913 DC8A BD FB DF ... jsr fbdf ;jump46
11916 DC8F CE 00 1B ... ldx #001b
11917 DC92 1D 00 01 ... bclr 00,x, #01
11918 DC95 7F 00 4F ..O clr 004f
11920 DC98 F6 00 11 ... ldab 0011
11921 DC9B C4 08 .. andb #08
11922 DC9D 26 03 &. bne 03
11923 DC9F BD D9 5A ..Z jsr d95a ;jump123
11927 DCA3 CE 0B BC ... ldx #0bbc
11928 DCA6 1D 00 1C .. bclr 00,x, #1c
11929 DCA9 F6 0B BC .. ldab 0bbc
11930 DCAB C4 03 ... andb #03
11931 DCAE 26 48 &H bne 48
11932 DCB0 FC 0B BD ... ldd 0bbd
11939 DCB9 CC 0D F7 ... ldd #0df7
11940 DCBC BD FB DF ... jsr fbdf ;jump46
11943 DCC1 FE 0D F9 ... ldx 0df9
11945 DCC5 FC 0D F7 ... ldd 0df7
11948 DCCA CE E1 00 ... ldx #e100
11950 DCCE CC 05 F5 ... ldd #05f5 ; 100000000
11954 DCD4 EC 06 .. ldd 06,x
11955 DCD6 A3 02 .. subd 02,x
11956 DCD8 EC 04 .. ldd 04,x
11957 DCDA E2 01 .. sbcb 01,x
11958 DCDC A2 00 .. sbca 00,x
11963 DCE2 25 11 %. bcs 11
11964 DCE4 CE 1F 00 ... ldx #1f00
11966 DCE8 CC FA 0A ... ldd #fa0a
11969 DCED CC 0D F7 ... ldd #0df7
11970 DCF0 BD FB DF ... jsr fbdf ;jump46
11973 DCF5 7E DD D4 ~.. jmp ddd4 ;goto69
11974 DCF8 F6 0B BC ... ldab 0bbc
11975 DCFB C4 03 .. andb #03
11976 DCFD C1 01 .. cmpb #01
11977 DCFF 27 03 '. beq 03
11978 DD01 7E DD D4 ~.. jmp ddd4 ;goto69
11979 DD04 F6 0B BC ... ldab 0bbc
11980 DD07 C4 E0 .. andb #e0
11986 DD0E F7 0B BC ... stab 0bbc
11987 DD11 F6 0B BC ... ldab 0bbc
11988 DD14 F1 0B C4 ... cmpb 0bc4
11989 DD17 26 33 &3 bne 33
11990 DD19 F6 0B D7 ... ldab 0bd7
11991 DD1C C1 01 .. cmpb #01
11992 DD1E 26 0A &. bne 0a
11993 DD20 7C 0C DB |.. inc 0cdb
11994 DD23 C6 03 .. ldab #03
11995 DD25 F7 00 48 ..H stab 0048
11997 DD2A F6 0B D8 ... ldab 0bd8
11998 DD2D C1 01 .. cmpb #01
11999 DD2F 26 0A &. bne 0a
12000 DD31 7C 0C DA |.. inc 0cda
12001 DD34 C6 02 .. ldab #02
12002 DD36 F7 00 48 ..H stab 0048
12003 DD39 20 0F . bra 0f
12004 DD3B F6 0B D9 ... ldab 0bd9
12005 DD3E C1 01 .. cmpb #01
12006 DD40 26 08 &. bne 08
12007 DD42 7C 0C D9 |.. inc 0cd9
12008 DD45 C6 01 .. ldab #01
12009 DD47 F7 00 48 ..H stab 0048
12010 DD4A 20 74 t bra 74
12011 DD4C F6 0B BC ... ldab 0bbc
12012 DD4F F1 0B C5 ... cmpb 0bc5
12013 DD52 26 33 &3 bne 33
12014 DD54 F6 0B D7 ... ldab 0bd7
12015 DD57 C1 04 .. cmpb #04
12016 DD59 26 0A &. bne 0a
12017 DD5B 7C 0C DB |.. inc 0cdb
12018 DD5E C6 03 .. ldab #03
12019 DD60 F7 00 48 ..H stab 0048
12021 DD65 F6 0B D8 ... ldab 0bd8
12022 DD68 C1 04 .. cmpb #04
12023 DD6A 26 0A &. bne 0a
12024 DD6C 7C 0C DA |.. inc 0cda
12025 DD6F C6 02 .. ldab #02
12026 DD71 F7 00 48 ..H stab 0048
12027 DD74 20 0F . bra 0f
12028 DD76 F6 0B D9 ... ldab 0bd9
12029 DD79 C1 04 .. cmpb #04
12030 DD7B 26 08 &. bne 08
12031 DD7D 7C 0C D9 |.. inc 0cd9
12032 DD80 C6 01 .. ldab #01
12033 DD82 F7 00 48 ..H stab 0048
12034 DD85 20 39 9 bra 39
12035 DD87 F6 0B BC ... ldab 0bbc
12036 DD8A F1 0B C6 ... cmpb 0bc6
12037 DD8D 26 31 &1 bne 31
12038 DD8F F6 0B D7 ... ldab 0bd7
12039 DD92 C1 02 .. cmpb #02
12040 DD94 26 0A &. bne 0a
12041 DD96 7C 0C DB |.. inc 0cdb
12042 DD99 C6 03 .. ldab #03
12043 DD9B F7 00 48 ..H stab 0048
12045 DDA0 F6 0B D8 ... ldab 0bd8
12046 DDA3 C1 02 .. cmpb #02
12047 DDA5 26 0A &. bne 0a
12048 DDA7 7C 0C DA |.. inc 0cda
12049 DDAA C6 02 .. ldab #02
12050 DDAC F7 00 48 ..H stab 0048
12051 DDAF 20 0F . bra 0f
12052 DDB1 F6 0B D9 ... ldab 0bd9
12053 DDB4 C1 02 .. cmpb #02
12054 DDB6 26 08 &. bne 08
12055 DDB8 7C 0C D9 |.. inc 0cd9
12056 DDBB C6 01 .. ldab #01
12057 DDBD F7 00 48 ..H stab 0048
12058 DDC0 F6 00 17 ... ldab 0017
12059 DDC3 C4 08 .. andb #08
12060 DDC5 26 0D &. bne 0d
12061 DDC7 F6 0B BC ... ldab 0bbc
12062 DDCA 26 08 &. bne 08
12063 DDCC 7C 0C DC |.. inc 0cdc
12064 DDCF C6 04 .. ldab #04
12065 DDD1 F7 00 48 ..H stab 0048
12070 DDD5 BD BE 69 ..i jsr be69 ;displayreset
12071 DDD8 C6 03 .. ldab #03
12072 DDDA F7 00 1C ... stab 001c
12073 DDDD F6 00 1C ... ldab 001c
12074 DDE0 C1 0D .. cmpb #0d
12075 DDE2 24 1C $. bcc 1c
12076 DDE4 F6 00 1C ... ldab 001c
12078 DDE8 C3 0C B9 ... addd #0cb9
12080 DDEC E6 00 .. ldab 00,x
12082 DDEF CC 0B 9C ... ldd #0b9c
12083 DDF2 F0 00 1C ... subb 001c
12084 DDF5 82 00 .. sbca #00
12087 DDF9 E7 00 .. stab 00,x
12088 DDFB 7C 00 1C |.. inc 001c
12089 DDFE 20 DD . bra dd
12090 DE00 BD BE 10 ... jsr be10 ;jump88
12091 DE03 C6 14 .. ldab #14
12092 DE05 F7 00 2C .., stab 002c
12096 DE09 CC 0B 9A ... ldd #0b9a ; machine id?
12097 DE0C BD C0 BA ... jsr c0ba ;display:
12098 DE0F C6 14 .. ldab #14
12099 DE11 F7 00 2C .., stab 002c
12103 DE15 F6 00 1B ... ldab 001b
12104 DE18 C4 01 .. andb #01
12105 DE1A 26 03 &. bne 03
12106 DE1C 7E DE A4 ~.. jmp dea4 ;goto70 - return
12107 DE1F F6 00 06 ... ldab 0006
12110 DE24 C3 08 C8 ... addd #08c8
12112 DE28 EC 00 .. ldd 00,x
12113 DE2A 84 08 .. anda #08
12114 DE2C 27 76 'v beq 76
12115 DE2E F6 00 11 ... ldab 0011
12116 DE31 C4 08 .. andb #08
12117 DE33 26 33 &3 bne 33 ; to de68
12118 DE35 F6 00 06 ... ldab 0006
12119 DE38 F1 0B AF ... cmpb 0baf
12120 DE3B 27 20 ' beq 20 ; to de5d
12121 DE3D F6 00 06 ... ldab 0006
12122 DE40 F1 0B AE ... cmpb 0bae
12123 DE43 27 18 '. beq 18 ; to de5d
12124 DE45 F6 00 06 ... ldab 0006
12125 DE48 F1 0B AD ... cmpb 0bad
12126 DE4B 27 10 '. beq 10 ; to de5d
12127 DE4D F6 00 06 ... ldab 0006
12128 DE50 F1 0B AC ... cmpb 0bac
12129 DE53 27 08 '. beq 08 ; to de5d
12130 DE55 F6 00 06 ... ldab 0006
12131 DE58 F1 0B AB ... cmpb 0bab
12132 DE5B 26 0B &. bne 0b ; to de68
12134 DE5D CE 00 1B ... ldx #001b
12135 DE60 1D 00 01 ... bclr 00,x, #01
12136 DE63 7F 00 4F ..O clr 004f
12137 DE66 20 3C < bra 3c ; return
12139 DE68 FC 00 44 ..D ldd 0044
12140 DE6B B3 0B B7 ... subd 0bb7
12141 DE6E 23 2B #+ bls 2b ; to de99 - return
12142 DE70 FC 00 40 ..@ ldd 0040
12143 DE73 F3 00 3E ..> addd 003e
12146 DE78 FC 00 44 ..D ldd 0044
12147 DE7B B3 0B B7 ... subd 0bb7
12148 DE7E F3 00 44 ..D addd 0044
12150 DE82 A3 00 .. subd 00,x
12153 DE86 22 13 ". bhi 13 ; to de9b
12154 DE88 FC 0B B7 ... ldd 0bb7
12155 DE8B 27 0E '. beq 0e ; to de9b
12156 DE8D FC 00 44 ..D ldd 0044
12157 DE90 B3 0B B7 ... subd 0bb7
12158 DE93 F3 00 44 ..D addd 0044
12159 DE96 FD 00 44 ..D std 0044
12160 DE99 20 09 . bra 09 ; return
12162 DE9B CE 00 1B ... ldx #001b
12163 DE9E 1D 00 01 ... bclr 00,x, #01
12164 DEA1 7F 00 4F ..O clr 004f
12169 ; machine out of order display?
12170 DEA5 F6 00 2B ..+ ldab 002b
12171 DEA8 C1 00 .. cmpb #00
12172 DEAA 26 0D &. bne 0d
12173 DEAC CE 00 12 ... ldx #0012
12175 DEB0 CC AE 7E ..~ ldd #ae7e
12176 DEB3 BD C0 2E ... jsr c02e ;jump71
12178 DEB7 20 2D - bra 2d
12179 DEB9 C1 01 .. cmpb #01
12180 DEBB 26 0D &. bne 0d
12181 DEBD CE 00 0F ... ldx #000f
12183 DEC1 CC AE 6D ..m ldd #ae6d ; something german
12184 DEC4 BD C0 2E ... jsr c02e ;jump71
12186 DEC8 20 1C . bra 1c
12187 DECA C1 02 .. cmpb #02
12188 DECC 26 0D &. bne 0d
12189 DECE CE 00 10 ... ldx #0010
12191 DED2 CC AE 5B ..[ ldd #ae5b ; more german
12192 DED5 BD C0 2E ... jsr c02e ;jump71
12194 DED9 20 0B . bra 0b
12195 DEDB CE 00 15 ... ldx #0015
12197 DEDF CC AE 44 ..D ldd #ae44 ; "MACHINE OUT OF ORDER"
12198 DEE2 BD C0 2E ... jsr c02e ;jump71
12203 ; revolves around coinage
12204 DEE7 F6 0B C0 ... ldab 0bc0
12205 DEEA C4 01 .. andb #01 ; have a dumb mech
12206 DEEC 26 07 &. bne 07 ; to def5
12207 DEEE F6 0B C0 ... ldab 0bc0
12208 DEF1 C4 04 .. andb #04 ; have a card reader
12209 DEF3 27 15 '. beq 15 ; if not to df0a
12211 DEF5 C6 FF .. ldab #ff
12212 DEF7 F7 0B BC ... stab 0bbc
12213 DEFA F6 00 15 ... ldab 0015
12214 DEFD 2D 03 -. blt 03 ; to df02
12215 DEFF BD C6 7D ..} jsr c67d ;jump124 - chat to changer
12216 DF02 BD D6 6B ..k jsr d66b ;jump107 - chat to bill acceptor
12217 DF05 BD DC A3 ... jsr dca3 ;jump29
12218 DF08 20 25 % bra 25 ; to df2f
12219 ; test the link master?
12220 DF0A F6 0B C0 ... ldab 0bc0
12221 DF0D C4 02 .. andb #02 ;have link master
12222 DF0F 27 1E '. beq 1e ; to df2f
12223 DF11 F6 00 2F ../ ldab 002f
12224 DF14 26 19 &. bne 19 ; to df2f
12225 DF16 F6 00 1B ... ldab 001b
12226 DF19 C4 02 .. andb #02
12227 DF1B 26 12 &. bne 12 ; to df2f
12228 DF1D CC 00 FF ... ldd #00ff
12229 DF20 BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
12230 DF23 CE 00 1B ... ldx #001b
12231 DF26 1C 00 02 .. bset 00,x, #02
12232 DF29 CE 0B C1 ... ldx #0bc1
12233 DF2C 1C 00 04 .. bset 00,x, #04 ; set link powerup error bit
12235 DF2F F6 00 21 ..! ldab 0021
12236 DF32 C4 20 . andb #20
12237 DF34 27 07 '. beq 07
12239 DF36 BD D6 52 ..R jsr d652 ;jump5 - pulse bill acceptor
12240 DF39 BD DE A5 ... jsr dea5 ;jump117 - machine out of order?
12243 DF3D F6 00 4F ..O ldab 004f
12244 DF40 26 06 &. bne 06
12245 DF42 CE 00 1B ... ldx #001b
12246 DF45 1D 00 01 ... bclr 00,x, #01
12247 DF48 F6 00 25 ..% ldab 0025
12248 DF4B 26 20 & bne 20
12249 DF4D F6 00 1B ... ldab 001b
12250 DF50 C4 40 .@ andb #40
12251 DF52 27 19 '. beq 19
12252 DF54 BD D6 52 ..R jsr d652 ;jump5 - pulse bill acceptor
12253 DF57 FC 00 40 ..@ ldd 0040
12254 DF5A 26 05 &. bne 05
12255 DF5C FC 00 3E ..> ldd 003e
12256 DF5F 27 03 '. beq 03
12257 DF61 BD DB 44 ..D jsr db44 ;jump104 - say thanks
12258 DF64 BD D6 6B ..k jsr d66b ;jump107
12259 DF67 CE 00 1B ... ldx #001b
12260 DF6A 1D 00 40 ... bclr 00,x, #40
12261 DF6D F6 00 2C .., ldab 002c
12262 DF70 27 03 '. beq 03
12263 DF72 7E E0 66 ~.f jmp e066 ;goto71
12264 DF75 F6 00 34 ..4 ldab 0034
12265 DF78 26 0B &. bne 0b
12266 DF7A BD BE 69 ..i jsr be69 ;displayreset
12267 DF7D C6 32 .2 ldab #32
12268 DF7F F7 00 34 ..4 stab 0034
12269 DF82 7E E0 63 ~.c jmp e063 ;goto72
12270 DF85 FC 00 40 ..@ ldd 0040
12271 DF88 26 05 &. bne 05
12272 DF8A FC 00 3E ..> ldd 003e
12273 DF8D 27 16 '. beq 16
12274 DF8F CE 00 01 ... ldx #0001
12276 DF93 FC 00 40 ..@ ldd 0040
12277 DF96 F3 00 3E ..> addd 003e
12278 DF99 BD BE 9E ... jsr be9e ;jump50
12280 DF9D C6 05 .. ldab #05
12281 DF9F F7 00 2C .., stab 002c
12282 DFA2 7E E0 63 ~.c jmp e063 ;goto72
12283 DFA5 F6 0C D9 ... ldab 0cd9
12284 DFA8 C1 04 .. cmpb #04
12285 DFAA 24 07 $. bcc 07
12286 DFAC F6 0B C0 ... ldab 0bc0
12287 DFAF C4 01 .. andb #01 ; have a dumb mech
12288 DFB1 26 07 &. bne 07
12289 DFB3 F6 00 21 ..! ldab 0021
12290 DFB6 C4 40 .@ andb #40
12291 DFB8 27 43 'C beq 43
12292 DFBA F6 00 2B ..+ ldab 002b
12293 DFBD C1 00 .. cmpb #00
12294 DFBF 26 0D &. bne 0d
12295 DFC1 CE 00 19 ... ldx #0019
12297 DFC5 CC AD E7 ... ldd #ade7 ; "INTRODUZCA"
12298 DFC8 BD C0 2E ... jsr c02e ;jump71
12300 DFCC 20 2D - bra 2d
12301 DFCE C1 01 .. cmpb #01
12302 DFD0 26 0D &. bne 0d
12303 DFD2 CE 00 12 ... ldx #0012
12305 DFD6 CC AD D3 ... ldd #add3 ; "NICT UEBERZAHLEN"
12306 DFD9 BD C0 2E ... jsr c02e ;jump71
12308 DFDD 20 1C . bra 1c
12309 DFDF C1 02 .. cmpb #02
12310 DFE1 26 0D &. bne 0d
12311 DFE3 CE 00 19 ... ldx #0019
12313 DFE7 CC AD B8 ... ldd #adb8 ; "MONNAIE EXACT"
12314 DFEA BD C0 2E ... jsr c02e ;jump71
12316 DFEE 20 0B . bra 0b
12317 DFF0 CE 00 11 ... ldx #0011 ; length of
12319 DFF4 CC AD A5 ... ldd #ada5 ; " EXACT COINS ONLY "
12320 DFF7 BD C0 2E ... jsr c02e ;jump71 - display
12322 DFFB 20 66 f bra 66
12323 DFFD F6 0B C0 ... ldab 0bc0
12324 E000 C4 08 .. andb #08 ; have link master price holding
12325 E002 27 52 'R beq 52
12326 E004 F6 0B C1 ... ldab 0bc1
12327 E007 C4 08 .. andb #08 ; test bill error bit
12328 E009 26 08 &. bne 08
12329 E00B FC 0B EF ... ldd 0bef
12330 E00E 83 00 64 ..d subd #0064
12331 E011 24 43 $C bcc 43
12332 E013 F6 00 2B ..+ ldab 002b
12333 E016 C1 00 .. cmpb #00
12334 E018 26 0D &. bne 0d
12335 E01A CE 00 12 ... ldx #0012
12337 E01E CC AE 30 ..0 ldd #ae30 ; "MONEDA UNICAMENTE"
12338 E021 BD C0 2E ... jsr c02e ;jump71
12340 E025 20 2D - bra 2d
12341 E027 C1 01 .. cmpb #01
12342 E029 26 0D &. bne 0d
12343 E02B CE 00 0B ... ldx #000b
12345 E02F CC AE 23 ..# ldd #ae23 ; "NUR MUNZEN"
12346 E032 BD C0 2E ... jsr c02e ;jump71
12348 E036 20 1C . bra 1c
12349 E038 C1 02 .. cmpb #02
12350 E03A 26 0D &. bne 0d
12351 E03C CE 00 12 ... ldx #0012
12353 E040 CC AE 0F ... ldd #ae0f ; "MONNAIES SEULEMENT"
12354 E043 BD C0 2E ... jsr c02e ;jump71
12356 E047 20 0B . bra 0b
12357 E049 CE 00 0B ... ldx #000b
12359 E04D CC AE 02 ... ldd #ae02 ; "COINS ONLY"
12360 E050 BD C0 2E ... jsr c02e ;jump71
12362 E054 20 0D . bra 0d
12363 E056 F6 0B BF ... ldab 0bbf
12367 E05C CC 09 93 ... ldd #0993 ; some custom message?
12368 E05F BD C0 2E ... jsr c02e ;jump71
12371 E063 7E E5 6A ~.j jmp e56a ;goto73
12373 E066 F6 00 06 ... ldab 0006
12374 E069 26 03 &. bne 03
12375 E06B 7E E5 6A ~.j jmp e56a ;goto73
12376 E06E CE 00 1D ... ldx #001d
12377 E071 1C 00 40 ... bset 00,x, #40
12378 E074 BD E7 C7 ... jsr e7c7 ;jump114
12379 E077 F6 00 06 ... ldab 0006
12380 E07A C1 59 .Y cmpb #59 ; 89
12381 E07C 26 06 &. bne 06
12382 E07E BD DE 09 ... jsr de09 ;jump119 - display machine id
12383 E081 7E E5 5E ~.^ jmp e55e ;goto74
12384 E084 F6 00 06 ... ldab 0006
12385 E087 BD D4 68 ..h jsr d468 ;jump51
12386 E08A 83 00 00 ... subd #0000
12387 E08D 27 18 '. beq 18
12388 E08F BD D5 61 ..a jsr d561 ;jump42
12389 E092 83 00 00 ... subd #0000
12390 E095 26 10 &. bne 10
12391 E097 BD D3 46 ..F jsr d346 ;jump43
12392 E09A 83 00 00 ... subd #0000
12393 E09D 26 08 &. bne 08
12394 E09F BD D7 83 ... jsr d783 ;jump44
12395 E0A2 83 00 00 ... subd #0000
12396 E0A5 27 09 '. beq 09
12397 E0A7 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
12398 E0AA BD D8 E9 ... jsr d8e9 ;jump92
12399 E0AD 7E E5 5E ~.^ jmp e55e ;goto74
12400 E0B0 F6 00 06 ... ldab 0006
12403 E0B5 C3 08 00 ... addd #0800
12405 E0B9 EC 00 .. ldd 00,x
12406 E0BB C4 FF .. andb #ff
12407 E0BD 84 3F .? anda #3f
12408 E0BF FD 00 44 ..D std 0044
12409 E0C2 F6 00 06 ... ldab 0006
12412 E0C7 C3 08 C8 ... addd #08c8
12414 E0CB EC 00 .. ldd 00,x
12415 E0CD C4 7F .. andb #7f
12417 E0D0 FD 00 4D ..M std 004d
12418 E0D3 F6 0B C0 ... ldab 0bc0
12419 E0D6 2C 05 ,. bge 05 ; free vend
12422 E0DA FD 00 44 ..D std 0044
12423 E0DD F6 0B C0 ... ldab 0bc0
12424 E0E0 C4 02 .. andb #02 ; have a changer
12425 E0E2 26 03 &. bne 03
12426 E0E4 BD DE 15 ... jsr de15 ;jump118
12427 E0E7 F6 00 11 ... ldab 0011
12428 E0EA C4 20 . andb #20
12429 E0EC 26 1A &. bne 1a
12430 E0EE F6 0B C0 ... ldab 0bc0
12431 E0F1 C4 02 .. andb #02 ; have a changer
12432 E0F3 26 13 &. bne 13
12433 E0F5 FC 00 40 ..@ ldd 0040
12434 E0F8 F3 00 3E ..> addd 003e
12435 E0FB B3 00 44 ..D subd 0044
12436 E0FE 25 08 %. bcs 08
12437 E100 F6 0B C0 ... ldab 0bc0
12438 E103 2D 03 -. blt 03 ; no free vend
12439 E105 BD DA 64 ..d jsr da64 ;jump122
12440 E108 FC 00 40 ..@ ldd 0040
12441 E10B F3 00 3E ..> addd 003e
12442 E10E B3 00 44 ..D subd 0044
12443 E111 24 50 $P bcc 50
12444 E113 F6 0B C0 ... ldab 0bc0
12445 E116 C4 10 .. andb #10 ; have link master price holding
12446 E118 26 49 &I bne 49
12447 E11A F6 00 2B ..+ ldab 002b
12448 E11D C1 00 .. cmpb #00
12449 E11F 26 08 &. bne 08
12450 E121 CC AC C9 ... ldd #acc9 ; "PRECIO"
12451 E124 BD C0 BA ... jsr c0ba ;display:
12452 E127 20 1E . bra 1e
12453 E129 C1 01 .. cmpb #01
12454 E12B 26 08 &. bne 08
12455 E12D CC AC BE ... ldd #acbe ; "PREIS"
12456 E130 BD C0 BA ... jsr c0ba ;display:
12457 E133 20 12 . bra 12
12458 E135 C1 02 .. cmpb #02
12459 E137 26 08 &. bne 08
12460 E139 CC AC B3 ... ldd #acb3 ; "PRIX"
12461 E13C BD C0 BA ... jsr c0ba ;display:
12462 E13F 20 06 . bra 06
12463 E141 CC AC A8 ... ldd #aca8 ; "PRICE"
12464 E144 BD C0 BA ... jsr c0ba ;display:
12465 E147 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay
12466 E14A CE 00 00 ... ldx #0000
12468 E14E FC 00 44 ..D ldd 0044
12469 E151 BD BE 9E ... jsr be9e ;jump50
12471 E155 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
12472 E158 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay
12473 E15B C6 0C .. ldab #0c
12474 E15D F7 00 2C .., stab 002c
12475 E160 7E E5 5E ~.^ jmp e55e ;goto74
12476 E163 F6 0B C0 ... ldab 0bc0
12477 E166 C4 01 .. andb #01 ; have a dumb mech
12478 E168 26 11 &. bne 11
12479 E16A F6 0B C0 ... ldab 0bc0
12480 E16D C4 04 .. andb #04 ; have a card reader
12481 E16F 26 0A &. bne 0a
12482 E171 F6 0B C0 ... ldab 0bc0
12483 E174 C4 0F .. andb #0f ; have any coin input mechanism
12484 E176 27 03 '. beq 03
12485 E178 7E E3 35 ~.5 jmp e335 ;goto75
12486 E17B FC 00 40 ..@ ldd 0040
12487 E17E F3 00 3E ..> addd 003e
12488 E181 B3 00 44 ..D subd 0044
12489 E184 FD 10 16 ... std 1016
12490 E187 F6 00 15 ... ldab 0015
12491 E18A C4 01 .. andb #01
12492 E18C 27 08 '. beq 08
12493 E18E FC 10 16 ... ldd 1016
12494 E191 83 00 64 ..d subd #0064 ; 100
12495 E194 25 3C %< bcs 3c
12496 E196 F6 00 15 ... ldab 0015
12497 E199 C4 02 .. andb #02
12498 E19B 27 08 '. beq 08
12499 E19D FC 10 16 ... ldd 1016
12500 E1A0 83 00 C8 ... subd #00c8 ; 200
12501 E1A3 25 2D %- bcs 2d
12502 E1A5 F6 00 15 ... ldab 0015
12503 E1A8 C4 04 .. andb #04
12504 E1AA 27 08 '. beq 08
12505 E1AC FC 10 16 ... ldd 1016
12506 E1AF 83 01 F4 ... subd #01f4 ; 500
12507 E1B2 25 1E %. bcs 1e
12508 E1B4 F6 00 15 ... ldab 0015
12509 E1B7 C4 08 .. andb #08
12510 E1B9 27 08 '. beq 08
12511 E1BB FC 10 16 ... ldd 1016
12512 E1BE 83 03 E8 ... subd #03e8 ; 1000
12513 E1C1 25 0F %. bcs 0f
12514 E1C3 F6 00 15 ... ldab 0015
12515 E1C6 C4 10 .. andb #10
12516 E1C8 27 13 '. beq 13
12517 E1CA FC 10 16 ... ldd 1016
12518 E1CD 83 07 D0 ... subd #07d0 ; 2000
12519 E1D0 24 0B $. bcc 0b
12520 E1D2 BD C0 E0 ... jsr c0e0 ;jump94
12521 E1D5 83 00 00 ... subd #0000
12522 E1D8 26 01 &. bne 01
12526 E1DB 20 03 . bra 03
12527 E1DD BD C5 D3 ... jsr c5d3 ;jump6
12528 E1E0 BD D6 52 ..R jsr d652 ;jump5
12529 E1E3 FC 00 40 ..@ ldd 0040
12530 E1E6 B3 00 44 ..D subd 0044
12531 E1E9 F3 00 3E ..> addd 003e
12532 E1EC FD 00 40 ..@ std 0040
12535 E1F1 FD 00 3E ..> std 003e
12536 E1F4 CE 00 1B ... ldx #001b
12537 E1F7 1C 00 80 .. bset 00,x, #80
12538 E1F9 BD D2 13 .. jsr d213 ;jump45
12539 E1FC 83 00 00 ... subd #0000
12540 E200 26 12 &. bne 12
12541 E202 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
12542 E205 BD D8 E9 ... jsr d8e9 ;jump92 - "SELECT OTHER ITEM"
12543 E208 FC 00 40 ..@ ldd 0040
12544 E20B F3 00 44 ..D addd 0044
12545 E20E FD 00 40 ..@ std 0040
12546 E211 7E E3 29 ~.) jmp e329 ;goto92
12547 E214 BD DB CB ... jsr dbcb ;jump121
12548 E217 F6 00 1B ... ldab 001b
12549 E21A C4 20 . andb #20
12550 E21C 27 45 'E beq 45
12551 E21E FC 00 44 ..D ldd 0044
12558 E227 CC 0D FB ... ldd #0dfb
12559 E22A BD FB DF ... jsr fbdf ;jump46
12562 E22F FE 0D FD ... ldx 0dfd
12564 E233 FC 0D FB ... ldd 0dfb
12567 E238 CE E1 00 ... ldx #e100
12569 E23C CC 05 F5 ... ldd #05f5
12573 E242 EC 06 .. ldd 06,x
12574 E244 A3 02 .. subd 02,x
12575 E246 EC 04 .. ldd 04,x
12576 E248 E2 01 .. sbcb 01,x
12577 E24A A2 00 .. sbca 00,x
12582 E250 25 11 %. bcs 11
12583 E252 CE 1F 00 ... ldx #1f00
12585 E256 CC FA 0A ... ldd #fa0a
12588 E25B CC 0D FB ... ldd #0dfb
12589 E25E BD FB DF ... jsr fbdf ;jump46
12592 E263 F6 0B C0 ... ldab 0bc0
12593 E266 2C 78 ,x bge 78 ; free vend
12594 E268 F6 00 06 ... ldab 0006
12597 E26D C3 08 00 ... addd #0800
12599 E271 EC 00 .. ldd 00,x
12600 E273 C4 FF .. andb #ff
12601 E275 26 02 &. bne 02
12602 E277 84 3F .? anda #3f
12603 E279 27 65 'e beq 65
12604 E27B FC 0D 0D ... ldd 0d0d
12605 E27E 83 FF FF ... subd #ffff
12606 E281 26 05 &. bne 05
12609 E285 FD 0D 0D ... std 0d0d
12610 E288 FE 0D 0D ... ldx 0d0d
12612 E28C FF 0D 0D ... stx 0d0d
12613 E28F F6 00 06 ... ldab 0006
12616 E294 C3 08 00 ... addd #0800
12618 E298 EC 00 .. ldd 00,x
12619 E29A C4 FF .. andb #ff
12620 E29C 84 3F .? anda #3f
12627 E2A4 CC 0D 1B ... ldd #0d1b
12628 E2A7 BD FB DF ... jsr fbdf ;jump46
12631 E2AC FE 0D 1D ... ldx 0d1d
12633 E2B0 FC 0D 1B ... ldd 0d1b
12636 E2B5 CE E1 00 ... ldx #e100
12638 E2B9 CC 05 F5 ... ldd #05f5
12642 E2BF EC 06 .. ldd 06,x
12643 E2C1 A3 02 .. subd 02,x
12644 E2C3 EC 04 .. ldd 04,x
12645 E2C5 E2 01 .. sbcb 01,x
12646 E2C7 A2 00 .. sbca 00,x
12651 E2CD 25 11 %. bcs 11
12652 E2CF CE 1F 00 ... ldx #1f00
12654 E2D3 CC FA 0A ... ldd #fa0a
12657 E2D8 CC 0D 1B ... ldd #0d1b
12658 E2DB BD FB DF ... jsr fbdf ;jump46
12661 E2E0 F6 00 11 ... ldab 0011
12662 E2E3 C4 10 .. andb #10
12663 E2E5 26 14 &. bne 14
12664 E2E7 FC 00 40 ..@ ldd 0040
12665 E2EA 27 0F '. beq 0f
12666 E2EC FC 00 40 ..@ ldd 0040
12667 E2EF B3 00 50 ..P subd 0050
12668 E2F2 24 15 $. bcc 15
12669 E2F4 F6 00 11 ... ldab 0011
12670 E2F7 C4 10 .. andb #10
12671 E2F9 26 0E &. bne 0e
12672 E2FB BD DB 44 ..D jsr db44 ;jump104 - say thanks
12673 E2FE CE 00 1B ... ldx #001b
12674 E301 1D 00 40 ... bclr 00,x, #40
12675 E304 7F 00 25 ..% clr 0025
12676 E307 20 1A . bra 1a
12677 E309 7F 00 2C .., clr 002c
12678 E30C CC 01 F4 ... ldd #01f4
12679 E30F BD E5 71 ..q jsr e571 ;msdelay
12680 E312 BD E5 AA ... jsr e5aa ;jump12
12681 E315 BD D8 E9 ... jsr d8e9 ;jump92
12682 E318 CE 00 1B ... ldx #001b
12683 E31B 1C 00 40 ... bset 00,x, #40
12684 E31E C6 0A .. ldab #0a
12685 E320 F7 00 25 ..% stab 0025
12686 E323 BD D7 FF ... jsr d7ff ;jump80
12687 E326 BD D8 40 ..@ jsr d840 ;jump105
12689 E329 BD E8 9A ... jsr e89a ;jump68
12690 E32C CE 0B C1 ... ldx #0bc1
12691 E32F 1D 00 08 ... bclr 00,x, #08 ; clear bill error bit
12692 E332 7E E5 5E ~.^ jmp e55e ;goto74
12694 E335 F6 0B C0 ... ldab 0bc0
12695 E338 C4 02 .. andb #02 ; have a changer
12696 E33A 26 03 &. bne 03
12697 E33C 7E E5 5E ~.^ jmp e55e ;goto74
12700 E341 FD 00 76 ..v std 0076
12701 E344 CE 00 17 ... ldx #0017
12702 E347 1D 00 01 ... bclr 00,x, #01
12703 E34A CE 00 17 ... ldx #0017
12704 E34D 1D 00 02 ... bclr 00,x, #02
12705 E350 FC 00 44 ..D ldd 0044
12706 E353 26 1C &. bne 1c
12707 E355 F6 0B C0 ... ldab 0bc0
12708 E358 C4 10 .. andb #10 ; have link master price holding
12709 E35A 26 08 &. bne 08
12710 E35C CE 00 21 ..! ldx #0021
12711 E35F 1C 00 80 .. bset 00,x, #80
12712 E362 20 0B . bra 0b
12713 E364 CE 00 21 ..! ldx #0021
12714 E367 1D 00 80 .. bclr 00,x, #80
12715 E369 C6 05 .. ldab #05
12716 E36C F7 00 75 ..u stab 0075
12717 E36F 20 57 W bra 57
12718 E371 F6 0B C0 ... ldab 0bc0
12719 E374 C4 10 .. andb #10 ; have link master price holding
12720 E376 27 50 'P beq 50
12721 E378 FC 00 40 ..@ ldd 0040
12722 E37B 26 4B &K bne 4b
12723 E37D F6 0B C0 ... ldab 0bc0
12724 E380 C4 20 . andb #20 ; have link master price holding - price display
12725 E382 27 3E '> beq 3e
12726 E384 CE 00 17 ... ldx #0017
12727 E387 1C 00 01 ... bset 00,x, #01
12728 E38A F6 00 2B ..+ ldab 002b
12729 E38D C1 00 .. cmpb #00
12730 E38F 26 08 &. bne 08
12731 E391 CC AC C9 ... ldd #acc9 ; " PRECIO "
12732 E394 BD C0 BA ... jsr c0ba ;display:
12733 E397 20 1E . bra 1e
12734 E399 C1 01 .. cmpb #01
12735 E39B 26 08 &. bne 08
12736 E39D CC AC BE ... ldd #acbe ; " PRIES "
12737 E3A0 BD C0 BA ... jsr c0ba ;display:
12738 E3A3 20 12 . bra 12
12739 E3A5 C1 02 .. cmpb #02
12740 E3A7 26 08 &. bne 08
12741 E3A9 CC AC B3 ... ldd #acb3 ; " PRIX "
12742 E3AC BD C0 BA ... jsr c0ba ;display:
12743 E3AF 20 06 . bra 06
12744 E3B1 CC AC A8 ... ldd #aca8 ; " PRICE "
12745 E3B4 BD C0 BA ... jsr c0ba ;display:
12746 E3B7 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay
12747 E3BA CE 00 17 ... ldx #0017
12748 E3BD 1C 00 02 ... bset 00,x, #02
12749 E3C0 20 06 . bra 06
12750 E3C2 CE 00 1F ... ldx #001f
12751 E3C5 1C 00 08 ... bset 00,x, #08
12752 E3C8 CE 00 1D ... ldx #001d
12753 E3CB 1C 00 02 ... bset 00,x, #02
12754 E3CE CE 00 19 ... ldx #0019
12755 E3D1 1C 00 08 ... bset 00,x, #08
12756 E3D4 C6 32 .2 ldab #32
12757 E3D6 F7 00 31 ..1 stab 0031
12758 E3D9 C6 19 .. ldab #19
12759 E3DB F7 00 36 ..6 stab 0036
12761 E3DE F6 00 1D ... ldab 001d
12762 E3E1 C4 02 .. andb #02
12763 E3E3 26 03 &. bne 03
12764 E3E5 7E E4 6E ~.n jmp e46e ;goto76
12765 E3E8 F6 00 75 ..u ldab 0075
12766 E3EB C1 04 .. cmpb #04
12767 E3ED 22 05 ". bhi 05
12768 E3EF F6 00 36 ..6 ldab 0036
12769 E3F2 26 3C &< bne 3c
12770 E3F4 7F 00 06 ... clr 0006
12773 E3F9 FD 00 76 ..v std 0076
12774 E3FC 7F 00 2E ... clr 002e
12775 E3FF 7F 00 2C .., clr 002c
12776 E402 7F 00 75 ..u clr 0075
12777 E405 CE 00 17 ... ldx #0017
12778 E408 1D 00 01 ... bclr 00,x, #01
12779 E40B CE 00 19 ... ldx #0019
12780 E40E 1D 00 08 ... bclr 00,x, #08
12781 E411 CE 00 1B ... ldx #001b
12782 E414 1D 00 80 .. bclr 00,x, #80
12783 E416 CE 00 1D .. ldx #001d
12784 E41A 1D 00 40 ... bclr 00,x, #40
12785 E41D CE 00 1D ... ldx #001d
12786 E420 1D 00 02 ... bclr 00,x, #02
12787 E423 CE 00 1F ... ldx #001f
12788 E426 1D 00 08 ... bclr 00,x, #08
12789 E429 CE 00 21 ..! ldx #0021
12790 E42C 1D 00 80 .. bclr 00,x, #80
12793 E430 F6 0B C0 ... ldab 0bc0
12794 E433 C4 20 . andb #20 ; link master - price display
12795 E435 27 34 '4 beq 34
12796 E437 F6 00 17 ... ldab 0017
12797 E43A C4 01 .. andb #01
12798 E43C 26 2D &- bne 2d
12799 E43E F6 00 17 ... ldab 0017
12800 E441 C4 02 .. andb #02
12801 E443 27 26 '& beq 26
12802 E445 CE 00 00 ... ldx #0000
12804 E449 FC 00 76 ..v ldd 0076
12805 E44C BD BE 9E ... jsr be9e ;jump50
12807 E450 FC 00 76 ..v ldd 0076
12808 E453 26 06 &. bne 06
12809 E455 CE 00 17 ... ldx #0017
12810 E458 1D 00 02 ... bclr 00,x, #02
12811 E45B F6 00 17 ... ldab 0017
12812 E45E C4 02 .. andb #02
12813 E460 27 09 '. beq 09
12814 E462 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
12815 E465 CE 00 17 ... ldx #0017
12816 E468 1D 00 02 ... bclr 00,x, #02
12817 E46B 7E E3 DE ~.. jmp e3de ;goto77
12819 E46E CE 00 21 ..! ldx #0021
12820 E471 1D 00 80 .. bclr 00,x, #80
12821 E474 CE 00 1F .. ldx #001f
12822 E477 1D 00 08 .... bclr 00,x, #08
12823 E47A BD D2 13 ... jsr d213 ;jump45
12824 E47D 83 00 00 ... subd #0000
12825 E480 26 0F &. bne 0f
12826 E482 CC 00 80 ... ldd #0080
12827 E485 BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
12828 E488 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
12829 E48B BD D8 E9 ... jsr d8e9 ;jump92
12830 E48E 7E E5 5E ~.^ jmp e55e ;goto74
12831 E491 F6 00 2B ..+ ldab 002b
12832 E494 C1 00 .. cmpb #00
12833 E496 26 08 &. bne 08
12834 E498 CC AD 16 ... ldd #ad16 ; "GRACIAS"
12835 E49B BD C0 BA ... jsr c0ba ;display:
12836 E49E 20 1E . bra 1e
12837 E4A0 C1 01 .. cmpb #01
12838 E4A2 26 08 &. bne 08
12839 E4A4 CC AD 0B ... ldd #ad0b ; "DANKE"
12840 E4A7 BD C0 BA ... jsr c0ba ;display:
12841 E4AA 20 12 . bra 12
12842 E4AC C1 02 .. cmpb #02
12843 E4AE 26 08 &. bne 08
12844 E4B0 CC AD 00 ... ldd #ad00 ; "MERCI"
12845 E4B3 BD C0 BA ... jsr c0ba ;display:
12846 E4B6 20 06 . bra 06
12847 E4B8 CC AC F5 ... ldd #acf5 ; "THANKS"
12848 E4BB BD C0 BA ... jsr c0ba ;display:
12849 E4BE BD D8 D3 ... jsr d8d3 ;jump84 500ms delay
12850 E4C1 CE 00 01 ... ldx #0001
12852 E4C5 FC 00 40 ..@ ldd 0040
12853 E4C8 BD BE 9E ... jsr be9e ;jump50
12857 E4CE BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
12858 E4D1 F6 0B C0 ... ldab 0bc0
12859 E4D4 2D 03 -. blt 03 ; free vend
12860 E4D6 7E E5 58 ~.X jmp e558 ;goto78 if not
12861 E4D9 F6 0B C0 ... ldab 0bc0
12862 E4DC C4 10 .. andb #10 ; link master - price holding
12863 E4DE 26 78 &x bne 78
12864 E4E0 F6 00 06 ... ldab 0006
12867 E4E5 C3 08 00 ... addd #0800
12869 E4E9 EC 00 .. ldd 00,x
12870 E4EB C4 FF .. andb #ff
12871 E4ED 26 02 &. bne 02
12872 E4EF 84 3F .? anda #3f
12873 E4F1 27 65 'e beq 65
12874 E4F3 FC 0D 0D ... ldd 0d0d
12875 E4F6 83 FF FF ... subd #ffff
12876 E4F9 26 05 &. bne 05
12879 E4FD FD 0D 0D ... std 0d0d
12880 E500 FE 0D 0D ... ldx 0d0d
12882 E504 FF 0D 0D ... stx 0d0d
12883 E507 F6 00 06 ... ldab 0006
12886 E50C C3 08 00 ... addd #0800
12888 E510 EC 00 .. ldd 00,x
12889 E512 C4 FF .. andb #ff
12890 E514 84 3F .? anda #3f
12897 E51C CC 0D 1B ... ldd #0d1b
12898 E51F BD FB DF ... jsr fbdf ;jump46
12901 E524 FE 0D 1D ... ldx 0d1d
12903 E528 FC 0D 1B ... ldd 0d1b
12906 E52D CE E1 00 ... ldx #e100
12908 E531 CC 05 F5 ... ldd #05f5
12912 E537 EC 06 .. ldd 06,x
12913 E539 A3 02 .. subd 02,x
12914 E53B EC 04 .. ldd 04,x
12915 E53D E2 01 .. sbcb 01,x
12916 E53F A2 00 .. sbca 00,x
12921 E545 25 11 %. bcs 11
12922 E547 CE 1F 00 ... ldx #1f00
12924 E54B CC FA 0A ... ldd #fa0a
12927 E550 CC 0D 1B ... ldd #0d1b
12928 E553 BD FB DF ... jsr fbdf ;jump46
12932 E558 BD D7 FF ... jsr d7ff ;jump80
12933 E55B BD D8 40 ..@ jsr d840 ;jump105
12935 E55E 7F 00 06 ... clr 0006
12936 E561 7F 00 2E ... clr 002e
12937 E564 CE 00 1B ... ldx #001b
12938 E567 1D 00 80 .. bclr 00,x, #80
12940 E56A CE 00 1D ... ldx #001d
12941 E56C 1D 00 40 .. bclr 00,x, #40
12944 ;!!! Is this a delay routine? It gets called between displaying strings
12945 ;on startup. Looks like a delay. e61b just stores 0a at 0031 and returns.
12947 ; appears to delay for roughly D milliseconds.
12952 E575 EC 01 .. ldd 01,x
12953 E577 83 00 01 ... subd #0001
12954 E57A ED 01 .. std 01,x
12955 E57C 2D 15 -. blt 15 ; to e593
12956 E57E C6 41 .A ldab #41
12958 E581 E7 00 .. stab 00,x
12960 E584 E6 00 .. ldab 00,x
12961 E586 6A 00 j. dec 00,x
12962 E588 C1 00 .. cmpb #00
12963 E58A 23 02 #. bls 02
12964 E58C 20 F5 . bra f5 ; to e583
12965 E58E BD E6 1B ... jsr e61b ;jump4
12966 E591 20 E1 . bra e1 ; to e574
12967 E593 38 8 pulx ;this must just be a standard 'pull 3
12968 E594 31 1 ins ;bytes and I don't care where they go'
12969 ;to clean up the stack.
12973 ; A short delay - counts to 32 in a stack variable. (about 100ms?)
12975 E597 C6 32 .2 ldab #32
12977 E59A E7 00 .. stab 00,x
12979 E59D E6 00 .. ldab 00,x
12980 E59F C1 00 .. cmpb #00
12981 E5A1 23 05 #. bls e5a8
12983 E5A4 6A 00 j. dec 00,x
12984 E5A6 20 F4 . bra e59c
12989 ; beep if keypressed?
12990 E5AA F6 00 33 ..3 ldab 0033
12991 E5AD 27 0C '. beq 0c ; to e5bb
12992 E5AF F6 00 29 ..) ldab 0029 ; key state
12993 E5B2 27 05 '. beq 05 ; to e5b9 (out)
12994 E5B4 C6 02 .. ldab #02
12995 E5B6 F7 00 33 ..3 stab 0033
12996 E5B9 20 15 . bra 15 ; to e5d0 (out)
12997 E5BB C6 03 .. ldab #03 ; beep
12998 E5BD F7 00 32 ..2 stab 0032
12999 E5C0 FC 00 3B ..; ldd 003b
13000 E5C3 27 06 '. beq 06 ; to e5cb
13001 E5C5 CC 02 33 ..3 ldd #0233
13002 E5C8 FD 00 3B ..; std 003b
13003 E5CB C6 02 .. ldab #02 ; make a beep
13004 E5CD F7 00 33 ..3 stab 0033
13008 ; signifies a triple beep?
13009 E5D1 C6 0B .. ldab #0b ; 1011
13010 E5D3 F7 00 32 ..2 stab 0032
13014 ; tests an internal switch or input line
13015 ; Parameters: Port Address in D, bit mask on stack
13019 ; make some stack space
13025 ; 00,x on stack - number of hits
13026 E5DE ED 00 .. std 00,x
13027 ; we call i = 02,x. let i = 64
13028 E5E0 CC 00 64 ..d ldd #0064
13029 E5E3 ED 02 .. std 02,x
13032 E5E6 EC 02 .. ldd 02,x
13033 E5E8 2F 21 /! ble 21 ; to e60b
13034 ; we call j = 04,x. let j = initial value of D
13036 E5EB EE 04 .. ldx 04,x
13037 E5ED E6 00 .. ldab 00,x
13039 E5F0 E4 09 .. andb 09,x
13040 E5F2 27 05 '. beq 05 ; to e5f9 if bit cleared
13042 E5F5 08 . inx ; increment number of hits
13044 E5F7 20 08 . bra 08 ; to e601
13046 E5FA EC 00 .. ldd 00,x
13047 E5FC 83 00 01 ... subd #0001 ; decrement number of hits
13048 E5FF ED 00 .. std 00,x
13050 E602 EC 02 .. ldd 02,x
13051 E604 83 00 01 ... subd #0001 ; i--
13052 E607 ED 02 .. std 02,x
13053 E609 20 DA . bra da ; to e5e5
13055 ; return 1 iff the key was pressed
13057 E60C EC 00 .. ldd 00,x
13058 E60E 2F 04 /. ble 04 ; to e614 if -ve
13061 E612 20 03 . bra 03 ; to e617
13062 E614 CC 00 01 ... ldd #0001
13069 E61B C6 0A .. ldab #0a
13070 E61D F7 00 31 ..1 stab 0031
13074 ; writes a really big number to the display
13079 E625 BD BE 4B ..K jsr be4b ;displayblank
13081 E629 EC 04 .. ldd 04,x
13084 E62D EC 02 .. ldd 02,x
13087 E631 CE 96 80 ... ldx #9680 ;38528
13089 E635 CC 00 98 ... ldd #0098 ;152
13090 E638 BD FC 4C ..L jsr fc4c ;bigdivide
13093 E63D CB 30 .0 addb #30 ; make it a digit
13094 E63F F7 0B 97 ... stab 0b97
13097 E643 EC 04 .. ldd 04,x
13100 E647 EC 02 .. ldd 02,x
13103 E64B CE 96 80 ... ldx #9680 ;38528
13105 E64F CC 00 98 ... ldd #0098 ;152
13106 E652 BD FC 5C ..\ jsr fc5c ;bigmodulus
13109 E657 CE 42 40 .B@ ldx #4240 ;16960
13111 E65B CC 00 0F ... ldd #000f ;15
13112 E65E BD FC 4C ..L jsr fc4c ;bigdivide
13115 E663 CB 30 .0 addb #30
13116 E665 F7 0B 96 ... stab 0b96
13119 E669 EC 04 .. ldd 04,x
13122 E66D EC 02 .. ldd 02,x
13125 E671 CE 42 40 .B@ ldx #4240 ;16960
13127 E675 CC 00 0F ... ldd #000f ;15
13128 E678 BD FC 5C ..\ jsr fc5c ;bigmodulus
13131 E67D CE 86 A0 ... ldx #86a0 ;34464
13133 E681 CC 00 01 ... ldd #0001 ;1
13134 E684 BD FC 4C ..L jsr fc4c ;bigdivide
13137 E689 CB 30 .0 addb #30
13138 E68B F7 0B 95 ... stab 0b95
13141 E68F EC 04 .. ldd 04,x
13144 E693 EC 02 .. ldd 02,x
13147 E697 CE 86 A0 ... ldx #86a0 ;34464
13149 E69B CC 00 01 ... ldd #0001 ;1
13150 E69E BD FC 5C ..\ jsr fc5c ;bigmodulus
13153 E6A3 CE 27 10 .'. ldx #2710 ;10000
13155 E6A7 CC 00 00 ... ldd #0000
13156 E6AA BD FC 4C ..L jsr fc4c ;bigdivide
13159 E6AF CB 30 .0 addb #30
13160 E6B1 F7 0B 94 ... stab 0b94
13163 E6B5 EC 04 .. ldd 04,x
13166 E6B9 EC 02 .. ldd 02,x
13169 E6BD CE 27 10 .'. ldx #2710 ;10000
13171 E6C1 CC 00 00 ... ldd #0000
13172 E6C4 BD FC 5C ..\ jsr fc5c ;bigmodulus
13175 E6C9 CE 03 E8 ... ldx #03e8 ;1000
13177 E6CD CC 00 00 ... ldd #0000
13178 E6D0 BD FC 4C ..L jsr fc4c ;bigdivide
13181 E6D5 CB 30 .0 addb #30
13182 E6D7 F7 0B 93 ... stab 0b93
13186 E6DB EC 04 .. ldd 04,x
13189 E6DF EC 02 .. ldd 02,x
13192 E6E3 CE 03 E8 ... ldx #03e8 ;1000
13194 E6E7 CC 00 00 ... ldd #0000
13195 E6EA BD FC 5C ..\ jsr fc5c ;bigmodulus
13198 E6EF CE 00 64 ..d ldx #0064 ;100
13200 E6F3 CC 00 00 ... ldd #0000
13201 E6F6 BD FC 4C ..L jsr fc4c ;bigdivide
13204 E6FB CB 30 .0 addb #30
13205 E6FD F7 0B 92 ... stab 0b92
13208 E701 EC 04 .. ldd 04,x
13211 E705 EC 02 .. ldd 02,x
13214 E709 CE 00 64 ..d ldx #0064 ;100
13216 E70D CC 00 00 ... ldd #0000
13217 E710 BD FC 5C ..\ jsr fc5c ;bigmodulus
13220 E715 CE 00 0A ... ldx #000a ;10
13222 E719 CC 00 00 ... ldd #0000
13223 E71C BD FC 4C ..L jsr fc4c ;bigdivide
13226 E721 CB 30 .0 addb #30
13227 E723 F7 0B 91 ... stab 0b91
13230 E727 EC 04 .. ldd 04,x
13233 E72B EC 02 .. ldd 02,x
13236 E72F CE 00 0A ... ldx #000a ;10
13238 E733 CC 00 00 ... ldd #0000
13239 E736 BD FC 5C ..\ jsr fc5c ;bigmodulus
13242 E73B CB 30 .0 addb #30
13243 E73D F7 0B 90 ... stab 0b90
13248 E743 6E 00 n. jmp 00,x
13251 ; number to string. number is <= 99999. puts it into 0057, 005a, 005d-005f
13255 E748 EC 00 .. ldd 00,x
13256 E74A CE 27 10 .'. ldx #2710 ; 10000
13259 E74F CB 30 .0 addb #30
13260 E751 F7 00 57 ..W stab 0057 ; num/10000 => 0057
13262 E755 EC 00 .. ldd 00,x
13263 E757 CE 27 10 .'. ldx #2710 ; 10000
13265 E75B CE 03 E8 ... ldx #03e8
13268 E760 CB 30 .0 addb #30
13269 E762 F7 00 5A ..Z stab 005a ; num%10000/1000 => 005a
13271 E766 EC 00 .. ldd 00,x
13272 E768 CE 03 E8 ... ldx #03e8
13274 E76C CE 00 64 ..d ldx #0064
13277 E771 CB 30 .0 addb #30
13278 E773 F7 00 5D ..] stab 005d ; num%1000/100 => 005d
13280 E777 EC 00 .. ldd 00,x
13281 E779 CE 00 64 ..d ldx #0064
13283 E77D CE 00 0A ... ldx #000a
13286 E782 CB 30 .0 addb #30
13287 E784 F7 00 5E ..^ stab 005e ; num%100/10 => 005e
13289 E788 EC 00 .. ldd 00,x
13290 E78A CE 00 0A ... ldx #000a
13292 E78E CB 30 .0 addb #30
13293 E790 F7 00 5F .._ stab 005f ; num%10 => 005f
13298 ; number to string. number is <= 999. puts it into 005d-005f
13302 E798 E6 01 .. ldab 01,x
13304 E79B CE 00 64 ..d ldx #0064 ; /100
13307 E7A0 CB 30 .0 addb #30 ; make it a digit
13308 E7A2 F7 00 5D ..] stab 005d
13310 E7A6 E6 01 .. ldab 01,x
13312 E7A9 CE 00 64 ..d ldx #0064
13315 E7AE CE 00 0A ... ldx #000a
13318 E7B3 CB 30 .0 addb #30 ; %100 / 10 -> digit
13319 E7B5 F7 00 5E ..^ stab 005e
13321 E7B9 E6 01 .. ldab 01,x
13323 E7BC CE 00 0A ... ldx #000a
13325 E7C0 CB 30 .0 addb #30
13326 E7C2 F7 00 5F .._ stab 005f ; %10
13331 E7C7 F6 00 06 ... ldab 0006
13333 E7CB CE 00 05 ... ldx #0005
13336 E7D0 26 03 &. bne 03
13337 E7D2 7E E8 99 ~.. jmp e899 ;goto79
13338 E7D5 F6 00 06 ... ldab 0006
13339 E7D8 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
13340 E7DB 83 00 00 ... subd #0000
13341 E7DE 27 03 '. beq 03
13342 E7E0 7E E8 99 ~.. jmp e899 ;goto79
13343 E7E3 F6 00 06 ... ldab 0006
13346 E7E8 C3 08 00 ... addd #0800
13348 E7EC EC 00 .. ldd 00,x
13349 E7EE C4 FF .. andb #ff
13350 E7F0 84 3F .? anda #3f
13351 E7F2 FD 10 16 ... std 1016
13352 E7F5 F6 00 06 ... ldab 0006
13355 E7FA C3 0B F1 ... addd #0bf1
13357 E7FE EC 00 .. ldd 00,x
13358 E800 C4 FF .. andb #ff
13359 E802 84 3F .? anda #3f
13360 E804 FD 10 18 ... std 1018
13361 E807 FC 10 16 ... ldd 1016
13362 E80A 83 00 00 ... subd #0000
13363 E80D 25 08 %. bcs 08
13364 E80F FC 10 16 ... ldd 1016
13365 E812 83 27 0F .'. subd #270f
13366 E815 23 35 #5 bls 35
13367 E817 F6 00 06 ... ldab 0006
13368 E81A BD D4 68 ..h jsr d468 ;jump51
13369 E81D 83 00 00 ... subd #0000
13370 E820 27 2A '* beq 2a
13371 E822 CC 01 00 ... ldd #0100
13374 E827 F6 00 06 ... ldab 0006
13377 E82C C3 08 C8 ... addd #08c8
13380 E831 AA 00 .. ora 00,x
13381 E833 EA 01 .. orb 01,x
13382 E835 ED 00 .. std 00,x
13383 E837 CC 40 00 .@. ldd #4000
13386 E83C F6 00 06 ... ldab 0006
13389 E841 C3 08 00 ... addd #0800
13392 E846 AA 00 .. ora 00,x
13393 E848 EA 01 .. orb 01,x
13394 E84A ED 00 .. std 00,x
13395 E84C CE 10 16 ... ldx #1016
13396 E84F 1D 00 C0 .. bclr 00,x, #c0
13397 E852 FC 10 18 .. ldd 1018
13400 E857 FD 10 18 ... std 1018
13401 E85A CE 10 18 ... ldx #1018
13402 E85D 1D 00 C0 .. bclr 00,x, #c0
13403 E85F FC 10 16 .. ldd 1016
13406 E865 FC 10 18 ... ldd 1018
13408 E869 A3 00 .. subd 00,x
13411 E86D 27 2A '* beq 2a
13412 E86F CC 01 00 ... ldd #0100
13415 E874 F6 00 06 ... ldab 0006
13418 E879 C3 08 C8 ... addd #08c8
13421 E87E AA 00 .. ora 00,x
13422 E880 EA 01 .. orb 01,x
13423 E882 ED 00 .. std 00,x
13424 E884 CC 40 00 .@. ldd #4000
13427 E889 F6 00 06 ... ldab 0006
13430 E88E C3 08 00 ... addd #0800
13433 E893 AA 00 .. ora 00,x
13434 E895 EA 01 .. orb 01,x
13435 E897 ED 00 .. std 00,x
13442 E89C FD 00 0F ... std 000f
13443 E89F CC 3F FF .?. ldd #3fff
13444 E8A2 FD 00 50 ..P std 0050
13445 E8A5 7F 00 06 ... clr 0006
13447 E8A8 F6 00 06 ... ldab 0006
13448 E8AB C1 64 .d cmpb #64 ; 100
13449 E8AD 24 64 $d bcc 64 ; to e913 - break
13451 E8AF F6 00 06 ... ldab 0006
13453 E8B3 CE 00 05 ... ldx #0005
13456 E8B8 27 54 'T beq 54 ; to e90e - continue
13458 E8BA F6 00 06 ... ldab 0006
13459 E8BD BD D7 A0 ... jsr d7a0 ;is_invalid_slot
13460 E8C0 83 00 00 ... subd #0000
13461 E8C3 26 49 &I bne 49 ; continue
13463 E8C5 F6 00 06 ... ldab 0006
13466 E8CA C3 08 00 ... addd #0800
13468 E8CE EC 00 .. ldd 00,x
13469 E8D0 C4 FF .. andb #ff
13470 E8D2 84 3F .? anda #3f
13471 E8D4 FD 10 16 ... std 1016
13472 E8D7 FC 10 16 ... ldd 1016
13473 E8DA 83 27 10 .'. subd #2710 ; 10000
13474 E8DD 24 2F $/ bcc 2f ; to e90e - continue
13475 E8DF F6 00 06 ... ldab 0006
13476 E8E2 BD D4 68 ..h jsr d468 ;jump51 - test bit 6 of array[0006] at 0800
13477 E8E5 83 00 00 ... subd #0000
13478 E8E8 27 24 '$ beq 24 ; to e90e - continue
13479 E8EA BD D5 61 ..a jsr d561 ;jump42 - test bit 7 of array[0006] at 0800
13480 E8ED 83 00 00 ... subd #0000
13481 E8F0 26 1C &. bne 1c ; to e90e - continue
13482 E8F2 FC 10 16 ... ldd 1016
13483 E8F5 B3 00 0F ... subd 000f
13484 E8F8 23 06 #. bls 06
13485 E8FA FC 10 16 ... ldd 1016
13486 E8FD FD 00 0F ... std 000f
13487 E900 FC 10 16 ... ldd 1016
13488 E903 B3 00 50 ..P subd 0050
13489 E906 24 06 $. bcc 06
13490 E908 FC 10 16 ... ldd 1016
13491 E90B FD 00 50 ..P std 0050
13493 E90E 7C 00 06 |.. inc 0006
13494 E911 20 95 . bra 95 ; to e8a8
13496 E913 FC 0B B7 ... ldd 0bb7
13497 E916 27 12 '. beq 12
13498 E918 FC 00 0F ... ldd 000f
13499 E91B B3 0B B7 ... subd 0bb7
13500 E91E 23 0A #. bls 0a
13501 E920 FC 00 0F ... ldd 000f
13503 E924 B3 0B B7 ... subd 0bb7
13504 E927 FD 00 0F ... std 000f
13510 E92D 6F 00 o. clr 00,x
13512 E930 E6 00 .. ldab 00,x
13513 E932 C1 64 .d cmpb #64
13514 E934 24 15 $. bcc 15
13520 E93B E6 02 .. ldab 02,x
13523 E93F C3 0D 1F ... addd #0d1f
13526 E944 ED 00 .. std 00,x
13528 E947 6C 00 l. inc 00,x
13529 E949 20 E4 . bra e4
13532 E94D FD 0D F9 ... std 0df9
13533 E950 FD 0D F7 ... std 0df7
13536 E955 FD 0D F5 ... std 0df5
13537 E958 FD 0D F3 ... std 0df3
13540 E95D FD 0D F1 ... std 0df1
13541 E960 FD 0D EF ... std 0def
13544 E965 FD 0D FD ... std 0dfd
13545 E968 FD 0D FB ... std 0dfb
13548 E96D FD 0D E9 ... std 0de9
13549 E970 FD 0D E7 ... std 0de7
13552 E975 FD 0C DD ... std 0cdd
13555 E97A FD 0C DF ... std 0cdf
13558 E97F FD 0C E1 ... std 0ce1
13561 E984 FD 0C E3 ... std 0ce3
13564 E989 FD 0C E5 ... std 0ce5
13567 E98E FD 0C F5 ... std 0cf5
13568 E991 FD 0C F3 ... std 0cf3
13571 E996 FD 0C F9 ... std 0cf9
13572 E999 FD 0C F7 ... std 0cf7
13575 E99E FD 0C FD ... std 0cfd
13576 E9A1 FD 0C FB ... std 0cfb
13579 E9A6 FD 0D 01 ... std 0d01
13580 E9A9 FD 0C FF ... std 0cff
13583 E9AE FD 0D 05 ... std 0d05
13584 E9B1 FD 0D 03 ... std 0d03
13587 E9B6 FD 0D 07 ... std 0d07
13590 E9BB FD 0D 09 ... std 0d09
13593 E9C0 FD 0D 0B ... std 0d0b
13596 E9C5 FD 0D 0D ... std 0d0d
13599 E9CA FD 0D 11 ... std 0d11
13600 E9CD FD 0D 0F ... std 0d0f
13603 E9D2 FD 0D 15 ... std 0d15
13604 E9D5 FD 0D 13 ... std 0d13
13607 E9DA FD 0D 19 ... std 0d19
13608 E9DD FD 0D 17 ... std 0d17
13611 E9E2 FD 0D 1D ... std 0d1d
13612 E9E5 FD 0D 1B ... std 0d1b
13617 E9EA 7F 00 06 ... clr 0006
13618 E9ED F6 00 06 ... ldab 0006
13619 E9F0 C1 64 .d cmpb #64
13620 E9F2 24 64 $d bcc 64
13621 E9F4 F6 00 06 ... ldab 0006
13623 E9F8 CE 00 05 ... ldx #0005
13626 E9FD 27 54 'T beq 54
13627 E9FF CC BF FF ... ldd #bfff
13630 EA04 F6 00 06 ... ldab 0006
13633 EA09 C3 08 00 ... addd #0800
13636 EA0E A4 00 .. anda 00,x
13637 EA10 E4 01 .. andb 01,x
13638 EA12 ED 00 .. std 00,x
13639 EA14 CC FE FF ... ldd #feff
13642 EA19 F6 00 06 ... ldab 0006
13645 EA1E C3 08 C8 ... addd #08c8
13648 EA23 A4 00 .. anda 00,x
13649 EA25 E4 01 .. andb 01,x
13650 EA27 ED 00 .. std 00,x
13651 EA29 CC FD FF ... ldd #fdff
13654 EA2E F6 00 06 ... ldab 0006
13657 EA33 C3 08 C8 ... addd #08c8
13660 EA38 A4 00 .. anda 00,x
13661 EA3A E4 01 .. andb 01,x
13662 EA3C ED 00 .. std 00,x
13663 EA3E CC FB FF ... ldd #fbff
13666 EA43 F6 00 06 ... ldab 0006
13669 EA48 C3 08 C8 ... addd #08c8
13672 EA4D A4 00 .. anda 00,x
13673 EA4F E4 01 .. andb 01,x
13674 EA51 ED 00 .. std 00,x
13675 EA53 7C 00 06 |.. inc 0006
13676 EA56 20 95 . bra 95
13681 ; test PE2 - remote no-sale switch.
13682 EA5A CE 00 04 ... ldx #0004
13684 EA5E CC 10 0A ... ldd #100a
13685 EA61 BD E5 D7 ... jsr e5d7 ;jump69 - test input line
13687 EA65 83 00 00 ... subd #0000
13688 EA68 27 3F '? beq 3f ; to eaa9 if off
13690 ; test internal mode switch (bit 1 of 1800)
13691 EA6A CE 00 01 ... ldx #0001
13693 EA6E CC 18 00 ... ldd #1800
13694 EA71 BD E5 D7 ... jsr e5d7 ;jump69 - test input line
13696 EA75 83 00 00 ... subd #0000
13697 EA78 27 2F '/ beq 2f ; to eaa9 if off
13699 ; both no-sale & mode switches held.
13702 EA7A CC 03 E8 ... ldd #03e8
13703 EA7D BD E5 71 ..q jsr e571 ;msdelay
13705 EA80 7F 0B A8 ... clr 0ba8
13707 ; blink "SECURE OFF" until mode switch is released
13708 EA83 F6 18 00 ... ldab 1800
13709 EA86 C4 01 .. andb #01
13710 EA88 26 1C &. bne 1c ; to eaa4 (loop until released)
13713 EA8A BD BE 4B ..K jsr be4b ;displayblank (blank display buffer)
13715 EA8E BD BE 01 ... jsr be01 ;jump70 (commit to display)
13719 EA92 CC 01 F4 ... ldd #01f4
13720 EA95 BD E5 71 ..q jsr e571 ;msdelay
13722 EA98 CC AF D1 ... ldd #afd1 ; "SECURE OFF"
13723 EA9B BD C0 BA ... jsr c0ba ;display:
13726 EA9E CC 01 F4 ... ldd #01f4
13727 EAA1 BD E5 71 ..q jsr e571 ;msdelay
13729 EAA4 20 DD . bra dd ; to ea83
13730 EAA6 BD BE 69 ..i jsr be69 ;displayreset
13732 ; no sale switch or internal mode switch on
13734 ; fiddle with the bill acceptor
13735 EAA9 C6 01 .. ldab #01
13736 EAAB F7 00 14 ... stab 0014
13737 EAAE F6 00 14 ... ldab 0014
13738 EAB1 F7 38 00 .8. stab 3800
13741 EAB4 CC 00 1E ... ldd #001e
13742 EAB7 BD E5 71 ..q jsr e571 ;msdelay
13744 ; more bill acceptor fiddling & tests
13745 EABA CE 00 01 ... ldx #0001
13747 EABE CC 10 00 ... ldd #1000
13748 EAC1 BD E5 D7 ... jsr e5d7 ;jump69 - test input line
13750 EAC5 83 00 00 ... subd #0000
13751 EAC8 27 10 '. beq 10
13752 EACA CE 00 02 ... ldx #0002
13754 EACE CC 10 00 ... ldd #1000
13755 EAD1 BD E5 D7 ... jsr e5d7 ;jump69 - test input line
13757 EAD5 83 00 00 ... subd #0000
13758 EAD8 27 03 '. beq 03
13759 ; we've decided if we have a bill acceptor. if not, skip this bit
13760 EADA 7E ED F8 ~.. jmp edf8 ;goto80
13761 ; we have a bill acceptor - play some more
13762 EADD C6 02 .. ldab #02
13763 EADF F7 00 14 ... stab 0014
13764 EAE2 F6 00 14 ... ldab 0014
13765 EAE5 F7 38 00 .8. stab 3800
13766 EAE8 CC 00 1E ... ldd #001e
13767 EAEB BD E5 71 ..q jsr e571 ;msdelay
13768 EAEE CE 00 01 ... ldx #0001
13770 EAF2 CC 10 00 ... ldd #1000
13771 EAF5 BD E5 D7 ... jsr e5d7 ;jump69 - test input line
13773 EAF9 83 00 00 ... subd #0000
13774 EAFC 26 10 &. bne 10
13775 EAFE CE 00 02 ... ldx #0002
13777 EB02 CC 10 00 ... ldd #1000
13778 EB05 BD E5 D7 ... jsr e5d7 ;jump69 - test input line
13780 EB09 83 00 00 ... subd #0000
13781 EB0C 26 03 &. bne 03
13782 EB0E 7E ED F8 ~.. jmp edf8 ;goto80 - something about the bill validator failed. skip it.
13783 EB11 CC 5A 5A .ZZ ldd #5a5a ; 23130
13784 EB14 FD 10 16 ... std 1016
13785 EB17 CC B1 39 ..9 ldd #b139 ;"**********"
13786 EB1A BD C0 BA ... jsr c0ba ;display:
13787 EB1D CC 07 D0 ... ldd #07d0
13788 EB20 BD E5 71 ..q jsr e571 ;msdelay
13789 EB23 CC B1 44 ..D ldd #b144 ;"OOOOOOOOOO"
13790 EB26 BD C0 BA ... jsr c0ba ;display:
13791 EB29 CC 07 D0 ... ldd #07d0
13792 EB2C BD E5 71 ..q jsr e571 ;msdelay
13793 EB2F CC 00 14 ... ldd #0014
13794 EB32 FD 00 3B ..; std 003b
13795 EB35 FC 00 3B ..; ldd 003b
13796 EB38 27 47 'G beq 47
13797 ; draws a sequence of 10 dots ..... along the display.
13799 EB3B 6F 00 o. clr 00,x
13801 EB3E E6 00 .. ldab 00,x
13802 EB40 C1 0A .. cmpb #0a
13803 EB42 24 3B $; bcc 3b
13804 EB44 BD BE 4B ..K jsr be4b ;displayblank
13805 EB47 C6 2E .. ldab #2e
13808 EB4B E6 01 .. ldab 01,x
13810 EB4E C3 0B 90 ... addd #0b90
13813 EB53 E7 00 .. stab 00,x
13815 EB56 BD BE 69 ..i jsr be69 ;displayreset
13816 EB59 CE 10 28 ..( ldx #1028
13817 EB5C 1C 00 40 .. bset 00,x, #40 ; tweak the clock phase
13818 EB5F CE 00 01 ... ldx #0001
13820 EB63 CC 00 20 .. ldd #0020
13821 EB66 BD BD B5 ... jsr bdb5 ;jump78 - send display byte
13823 EB6A CE 10 28 ..( ldx #1028
13824 EB6D 1D 00 40 ..@ bclr 00,x, #40 ; tweak the clock phase back
13825 EB70 BD BE 10 ... jsr be10 ;jump88
13827 EB74 CC 00 07 ... ldd #0007
13828 EB77 BD E5 71 ..q jsr e571 ;msdelay 7-unit delay
13830 EB7B 6C 00 l. inc 00,x
13831 EB7D 20 BE . bra be
13832 EB7F 20 B4 . bra b4
13833 EB81 BD BE 69 ..i jsr be69 ;displayreset
13834 EB84 CC 08 00 ... ldd #0800
13835 EB87 FD 00 73 ..s std 0073
13836 EB8A FC 00 73 ..s ldd 0073
13837 EB8D 83 0F FF ... subd #0fff
13838 EB90 22 10 ". bhi 10 ; to eba2
13839 EB92 C6 AA .. ldab #aa
13840 EB94 FE 00 73 ..s ldx 0073
13841 EB97 E7 00 .. stab 00,x
13842 EB99 FE 00 73 ..s ldx 0073
13844 EB9D FF 00 73 ..s stx 0073
13845 EBA0 20 E8 . bra e8
13846 EBA2 CC 08 00 ... ldd #0800
13847 EBA5 FD 00 73 ..s std 0073
13848 EBA8 FC 00 73 ..s ldd 0073
13849 EBAB 83 0F FF ... subd #0fff
13850 EBAE 22 1A ". bhi 1a
13851 EBB0 FE 00 73 ..s ldx 0073
13852 EBB3 E6 00 .. ldab 00,x
13853 EBB5 C1 AA .. cmpb #aa
13854 EBB7 27 08 '. beq 08
13855 EBB9 CE 10 16 ... ldx #1016 ; timer output compare register
13856 EBBC 1D 00 FF .. bclr 00,x, #FF
13857 EBBF 20 09 .. bra 09
13858 EBC1 FE 00 73 ..s ldx 0073
13860 EBC5 FF 00 73 ..s stx 0073
13861 EBC8 20 DE . bra de
13862 EBCA CC 08 00 ... ldd #0800
13863 EBCD FD 00 73 ..s std 0073
13864 EBD0 FC 00 73 ..s ldd 0073
13865 EBD3 83 0F FF ... subd #0fff
13866 EBD6 22 10 ". bhi 10
13867 EBD8 C6 55 .U ldab #55
13868 EBDA FE 00 73 ..s ldx 0073
13869 EBDD E7 00 .. stab 00,x
13870 EBDF FE 00 73 ..s ldx 0073
13872 EBE3 FF 00 73 ..s stx 0073
13873 EBE6 20 E8 . bra e8
13874 EBE8 CC 08 00 ... ldd #0800
13875 EBEB FD 00 73 ..s std 0073
13876 EBEE FC 00 73 ..s ldd 0073
13877 EBF1 83 0F FF ... subd #0fff
13878 EBF4 22 1A ". bhi 1a
13879 EBF6 FE 00 73 ..s ldx 0073
13880 EBF9 E6 00 .. ldab 00,x
13881 EBFB C1 55 .U cmpb #55
13882 EBFD 27 08 '. beq 08
13883 EBFF CE 10 16 ... ldx #1016
13884 EC02 1D 00 FF ... bclr 00,x #ff
13885 EC05 20 09 . bra 09
13886 EC07 FE 00 73 ..s ldx 0073
13888 EC0B FF 00 73 ..s stx 0073
13889 EC0E 20 DE . bra de
13890 EC10 CC 08 00 ... ldd #0800
13891 EC13 FD 00 73 ..s std 0073
13892 EC16 FC 00 73 ..s ldd 0073
13893 EC19 83 0F FF ... subd #0fff
13894 EC1C 22 0F ". bhi 0f
13896 EC1F FE 00 73 ..s ldx 0073
13897 EC22 E7 00 .. stab 00,x
13898 EC24 FE 00 73 ..s ldx 0073
13900 EC28 FF 00 73 ..s stx 0073
13901 EC2B 20 E9 . bra e9
13902 EC2D 7F 00 06 ... clr 0006
13903 EC30 F6 00 06 ... ldab 0006
13904 EC33 C1 64 .d cmpb #64
13905 EC35 24 4D $M bcc 4d
13906 EC37 F6 00 06 ... ldab 0006
13908 EC3B CE 00 05 ... ldx #0005
13911 EC40 27 3D '= beq 3d
13912 EC42 CC 00 32 ..2 ldd #0032
13915 EC47 F6 00 06 ... ldab 0006
13918 EC4C C3 08 00 ... addd #0800
13921 EC51 ED 00 .. std 00,x
13922 EC53 F6 00 06 ... ldab 0006
13925 EC58 C3 08 00 ... addd #0800
13927 EC5C EC 00 .. ldd 00,x
13932 EC62 F6 00 06 ... ldab 0006
13935 EC67 C3 0B F1 ... addd #0bf1
13938 EC6C ED 00 .. std 00,x
13939 EC6E CC 08 01 ... ldd #0801
13942 EC73 F6 00 06 ... ldab 0006
13945 EC78 C3 08 C8 ... addd #08c8
13948 EC7D ED 00 .. std 00,x
13949 EC7F 7C 00 06 |.. inc 0006
13950 EC82 20 AC . bra ac
13951 EC84 C6 1D .. ldab #1d
13952 EC86 F7 0B BF ... stab 0bbf
13954 EC8A 6F 00 o. clr 00,x
13955 EC8C F6 0B BF ... ldab 0bbf
13957 EC90 C3 00 02 ... addd #0002
13961 EC96 E6 02 .. ldab 02,x
13963 EC99 A3 00 .. subd 00,x
13966 EC9D 2C 1B ,. bge 1b
13968 ECA0 E6 00 .. ldab 00,x
13970 ECA3 C3 B1 D0 ... addd #b1d0 ; "THANK YOU FOR YOUR PATRONAGE"
13972 ECA7 E6 00 .. ldab 00,x
13975 ECAB E6 01 .. ldab 01,x
13977 ECAE C3 09 93 ... addd #0993
13980 ECB3 E7 00 .. stab 00,x
13982 ECB6 6C 00 l. inc 00,x
13983 ECB8 20 D2 . bra d2
13984 ECBA 7F 0B A8 ... clr 0ba8
13985 ECBD CC 00 32 ..2 ldd #0032
13986 ECC0 FD 0B B5 ... std 0bb5
13989 ECC5 FD 0B B7 ... std 0bb7
13990 ECC8 7F 00 06 ... clr 0006
13991 ECCB BD A6 4E ..N jsr a64e ;jump135
13992 ECCE C6 09 .. ldab #09
13993 ECD0 F7 0B C0 ... stab 0bc0 ; defaults to having a bill validator & dumb mech
13994 ECD3 7F 0E 6D ..m clr 0e6d
13995 ECD6 C6 01 .. ldab #01
13996 ECD8 F7 0E 6E ..n stab 0e6e
13998 ECDC 6F 00 o. clr 00,x
14000 ECDF E6 00 .. ldab 00,x
14001 ECE1 C1 0F .. cmpb #0f
14002 ECE3 24 21 $! bcc 21
14003 ECE5 C6 30 .0 ldab #30
14006 ECE9 E6 01 .. ldab 01,x
14008 ECEC C3 0C B9 ... addd #0cb9
14011 ECF1 E7 00 .. stab 00,x
14012 ECF3 C6 30 .0 ldab #30
14015 ECF7 E6 01 .. ldab 01,x
14017 ECFA C3 0C C9 ... addd #0cc9
14020 ECFF E7 00 .. stab 00,x
14022 ED02 6C 00 l. inc 00,x
14023 ED04 20 D8 . bra d8
14025 ED07 6F 00 o. clr 00,x
14028 ED0A E6 00 .. ldab 00,x
14029 ED0C C1 0B .. cmpb #0b
14030 ED0E 24 12 $. bcc 12 ; to ed22
14034 ED13 E6 01 .. ldab 01,x
14036 ED16 C3 0B E4 ... addd #0be4
14039 ED1B E7 00 .. stab 00,x
14041 ED1E 6C 00 l. inc 00,x
14042 ED20 20 E7 . bra e7
14043 ; clear stuff ready for test harness?
14046 ED24 FD 0D F9 ... std 0df9
14047 ED27 FD 0D F7 ... std 0df7
14050 ED2C FD 0D F5 ... std 0df5
14051 ED2F FD 0D F3 ... std 0df3
14052 ED32 7F 0C D9 ... clr 0cd9
14053 ED35 7F 0C DA ... clr 0cda
14054 ED38 7F 0C DB ... clr 0cdb
14055 ED3B 7F 0C DC ... clr 0cdc
14058 ED40 FD 0D F1 ... std 0df1
14059 ED43 FD 0D EF ... std 0def
14062 ED48 FD 0D FD ... std 0dfd
14063 ED4B FD 0D FB ... std 0dfb
14066 ED50 FD 0D E9 ... std 0de9
14067 ED53 FD 0D E7 ... std 0de7
14070 ED58 FD 0D ED ... std 0ded
14071 ED5B FD 0D EB ... std 0deb
14074 ED60 FD 0C DD ... std 0cdd
14077 ED65 FD 0C DF ... std 0cdf
14080 ED6A FD 0C E1 ... std 0ce1
14083 ED6F FD 0C E3 ... std 0ce3
14086 ED74 FD 0C E5 ... std 0ce5
14089 ED79 FD 0C F5 ... std 0cf5
14090 ED7C FD 0C F3 ... std 0cf3
14093 ED81 FD 0C F9 ... std 0cf9
14094 ED84 FD 0C F7 ... std 0cf7
14097 ED89 FD 0C FD ... std 0cfd
14098 ED8C FD 0C FB ... std 0cfb
14101 ED91 FD 0D 01 ... std 0d01
14102 ED94 FD 0C FF ... std 0cff
14105 ED99 FD 0D 05 ... std 0d05
14106 ED9C FD 0D 03 ... std 0d03
14109 EDA1 FD 0D 07 ... std 0d07
14112 EDA6 FD 0D 09 ... std 0d09
14115 EDAB FD 0D 0B ... std 0d0b
14118 EDB0 FD 0D 0D ... std 0d0d
14121 EDB5 FD 0D 11 ... std 0d11
14122 EDB8 FD 0D 0F ... std 0d0f
14125 EDBD FD 0D 15 ... std 0d15
14126 EDC0 FD 0D 13 ... std 0d13
14129 EDC5 FD 0D 19 ... std 0d19
14130 EDC8 FD 0D 17 ... std 0d17
14133 EDCD FD 0D 1D ... std 0d1d
14134 EDD0 FD 0D 1B ... std 0d1b
14135 EDD3 7F 0B AF ... clr 0baf
14136 EDD6 7F 0B AE ... clr 0bae
14137 EDD9 7F 0B AD ... clr 0bad
14138 EDDC 7F 0B AC ... clr 0bac
14139 EDDF 7F 0B AB ... clr 0bab
14140 EDE2 7F 0B B4 ... clr 0bb4
14141 EDE5 7F 0B B3 ... clr 0bb3
14142 EDE8 7F 0B B2 ... clr 0bb2
14143 EDEB 7F 0B B1 ... clr 0bb1
14144 EDEE 7F 0B B0 ... clr 0bb0
14145 EDF1 C6 05 .. ldab #05
14146 EDF3 F7 08 00 ... stab 0800
14147 EDF6 8D 21 .! bsr 21 ;jump204 - test harness function
14149 ; switch things off (motors, display clock, keypad strobe)
14150 EDF8 7F 00 14 ... clr 0014
14151 EDFB F6 00 14 ... ldab 0014
14152 EDFE F7 38 00 .8. stab 3800
14157 ; writes msg to screen for 1.5s
14161 EE06 EC 00 .. ldd 00,x
14162 EE08 BD C0 BA ... jsr c0ba ;display:
14163 EE0B CE 10 16 ... ldx #1016
14164 EE0E 1D 01 FF .. bclr 01,x, #ff
14165 EE11 CC 05 DC ... ldd #05dc ; 1500
14166 EE14 BD E5 71 ... jsr e571 ;msdelay
14171 EE19 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
14173 ; this the diagnostic function activated when the "test harness"
14175 EE1C CE 10 16 ... ldx #1016
14176 EE1F 1D 01 .. bclr 01,x, #ff
14177 EE21 CE 10 16 .. ldx #1016
14178 EE25 1C 01 5A ... bset 01,x, #5A
14179 EE28 F6 10 16 ... ldab 1016
14180 EE2B 26 0C &. bne 0c ; to ee39
14181 EE2D CC B1 4F ..O ldd #b14f ;"RAM FAIL"
14182 EE30 BD C0 BA ... jsr c0ba ;display:
14183 EE33 CC 05 DC ... ldd #05dc
14184 EE36 BD E5 71 ..q jsr e571 ;msdelay
14186 EE39 C6 04 .. ldab #04
14187 EE3B F7 00 1C ... stab 001c
14189 EE3E F6 00 1C ... ldab 001c
14190 EE41 C1 07 .. cmpb #07
14191 EE43 24 57 $W bcc 57 ; to ee9c (break out)
14192 EE45 F6 00 1C ... ldab 001c
14194 EE49 C3 B1 23 ..# addd #b123 ; power of 2
14196 EE4D E6 00 .. ldab 00,x
14198 EE50 F4 00 1A ... andb 001a
14199 EE53 F7 00 1A ... stab 001a
14200 EE56 F6 00 1A ... ldab 001a
14201 EE59 F7 30 00 .0. stab 3000 ; set coin bit active (low)
14202 EE5C CC 00 0A ... ldd #000a
14203 EE5F BD E5 71 ..q jsr e571 ;msdelay
14204 EE62 F6 18 00 ... ldab 1800
14205 EE65 2C 07 ,. bge 07 ; to ee6e
14206 EE67 CC B1 5A ..Z ldd #b15a ; "P2 FAIL"
14207 EE6A 8D 97 .. bsr dest 97 ; display to ee03
14208 EE6C 20 2E . bra 2e ; to ee9c
14209 EE6E F6 00 1C ... ldab 001c
14211 EE72 C3 B1 23 ..# addd #b123 ; powers of 2
14213 EE76 E6 00 .. ldab 00,x
14214 EE78 FA 00 1A ... orb 001a
14215 EE7B F7 00 1A ... stab 001a
14216 EE7E F6 00 1A ... ldab 001a
14217 EE81 F7 30 00 .0. stab 3000 ; set coin bit inactive (high)
14218 EE84 CC 00 0A ... ldd #000a
14219 EE87 BD E5 71 ..q jsr e571 ;msdelay
14220 EE8A F6 18 00 ... ldab 1800 ; if changer int'
14221 EE8D 2D 08 -. blt 08 ; ee97
14222 EE8F CC B1 5A ..Z ldd #b15a ; "P2 FAIL"
14223 EE92 BD EE 03 ... jsr ee03 ;jump36
14224 EE95 20 05 . bra 05 ; to ee9c
14225 EE97 7C 00 1C |.. inc 001c
14226 EE9A 20 A2 . bra a2 ; to ee3e
14228 EE9C CE 10 00 ... ldx #1000
14229 EE9F 1C 00 08 ... bset 00,x, #08 ; talk to coin mech
14230 EEA2 CE 10 08 ... ldx #1008
14231 EEA5 1C 00 02 ... bset 00,x, #02 ; set rx of sci
14232 EEA8 CE 00 1A ... ldx #001a
14233 EEAB 1C 00 40 ... bset 00,x, #40
14234 EEAE F6 00 1A ... ldab 001a
14235 EEB1 F7 30 00 .0. stab 3000 ; unset $1.00 line
14236 EEB4 CC 00 0A ... ldd #000a
14237 EEB7 BD E5 71 ..q jsr e571 ;msdelay
14238 EEBA F6 10 08 ... ldab 1008
14239 EEBD C4 01 .. andb #01 ; tests tx of sci
14240 EEBF 26 06 &. bne 06 ; to eec7
14241 EEC1 CC B1 5A ..Z ldd #b15a ; "P2 FAIL"
14242 EEC4 BD EE 03 ... jsr ee03 ;jump36
14243 EEC7 CE 00 1A ... ldx #001a
14244 EECA 1D 00 40 ... bclr 00,x, #40
14245 EECD F6 00 1A ... ldab 001a
14246 EED0 F7 30 00 .0. stab 3000 ; set $1.00 line
14247 EED3 CC 00 0A ... ldd #000a
14248 EED6 BD E5 71 ..q jsr e571 ;msdelay
14250 EED9 F6 10 08 ... ldab 1008
14251 EEDC C4 01 .. andb #01 ; tests txt of sci
14252 EEDE 27 06 '. beq 06 ; to eee6
14253 EEE0 CC B1 5A ..Z ldd #b15a ; "P2 FAIL"
14254 EEE3 BD EE 03 ... jsr ee03 ;jump36
14255 EEE6 CE 00 1A ... ldx #001a
14256 EEE9 1C 00 02 ... bset 00,x, #02
14257 EEEC F6 00 1A ... ldab 001a
14258 EEEF F7 30 00 .0. stab 3000 ; ditto for $0.25
14259 EEF2 CC 00 0A ... ldd #000a
14260 EEF5 BD E5 71 ..q jsr e571 ;msdelay
14261 EEF8 F6 10 00 ... ldab 1000
14262 EEFB C4 04 .. andb #04
14263 EEFD 26 06 &. bne 06
14264 EEFF CC B1 65 ..e ldd #b165
14265 EF02 BD EE 03 ... jsr ee03 ;jump36
14266 EF05 CE 00 1A ... ldx #001a
14267 EF08 1D 00 02 ... bclr 00,x, #02
14268 EF0B F6 00 1A ... ldab 001a
14269 EF0E F7 30 00 .0. stab 3000 ; ditto for $0.25
14270 EF11 CC 00 0A ... ldd #000a
14271 EF14 BD E5 71 ..q jsr e571 ;msdelay
14273 EF17 F6 10 00 ... ldab 1000
14274 EF1A C4 04 .. andb #04 ; coin dispenser pin6
14275 EF1C 27 06 '. beq 06
14276 EF1E CC B1 65 ..e ldd #b165 ; "P2-P3 FAIL"
14277 EF21 BD EE 03 ... jsr ee03 ;jump36
14278 EF24 CE 00 1A ... ldx #001a
14279 EF27 1C 00 01 ... bset 00,x, #01
14280 EF2A F6 00 1A ... ldab 001a
14281 EF2D F7 30 00 .0. stab 3000 ; send line of changer
14282 EF30 CC 00 0A ... ldd #000a
14283 EF33 BD E5 71 ..q jsr e571 ;msdelay
14285 EF36 F6 18 00 ... ldab 1800
14286 EF39 C4 20 . andb #20 ; test door switch
14287 EF3B 26 06 &. bne 06
14288 EF3D CC B1 70 ..p ldd #b170 ; "P2-P8 FAIL"
14289 EF40 BD EE 03 ... jsr ee03 ;jump36
14290 EF43 CE 00 1A ... ldx #001a
14291 EF46 1D 00 01 ... bclr 00,x, #01
14292 EF49 F6 00 1A ... ldab 001a
14293 EF4C F7 30 00 .0. stab 3000 ; unset send line of changer
14294 EF4F CC 00 0A ... ldd #000a
14295 EF52 BD E5 71 ..q jsr e571 ;msdelay
14296 EF55 F6 18 00 ... ldab 1800
14297 EF58 C4 20 . andb #20 ; test door again?
14298 EF5A 27 06 '. beq 06
14299 EF5C CC B1 70 ..p ldd #b170 ; "P2-P8 FAIL"
14300 EF5F BD EE 03 ... jsr ee03 ;jump36
14301 EF62 CE 00 1A ... ldx #001a
14302 EF65 1C 00 04 ... bset 00,x, #04 ; reset changer
14303 EF68 F6 00 1A ... ldab 001a
14304 EF6B F7 30 00 .0. stab 3000
14305 EF6E CC 00 0A ... ldd #000a
14306 EF71 BD E5 71 ..q jsr e571 ;msdelay
14307 EF74 F6 10 0A ... ldab 100a
14308 EF77 C4 04 .. andb #04 ; test no-sale switch
14309 EF79 26 06 &. bne 06
14310 EF7B CC B1 7B ..{ ldd #b17b ; "P2-P9 FAIL"
14311 EF7E BD EE 03 ... jsr ee03 ;jump36
14312 EF81 CE 00 1A ... ldx #001a
14313 EF84 1D 00 04 ... bclr 00,x, #04
14314 EF87 F6 00 1A ... ldab 001a
14315 EF8A F7 30 00 .0. stab 3000 ;snack motor drivers serial data is bit 7
14316 EF8D CC 00 0A ... ldd #000a
14317 EF90 BD E5 71 ..q jsr e571 ;msdelay
14318 EF93 F6 10 0A ... ldab 100a
14319 EF96 C4 04 .. andb #04
14320 EF98 27 06 '. beq 06
14321 EF9A CC B1 7B ..{ ldd #b17b ; "P2-P9 FAIL"
14322 EF9D BD EE 03 ... jsr ee03 ;jump36
14323 EFA0 CE 10 00 ... ldx #1000
14324 EFA3 1C 00 08 ... bset 00,x, #08
14325 EFA6 CE 00 1A ... ldx #001a
14326 EFA9 1C 00 40 ... bset 00,x, #40
14327 EFAC F6 00 1A ... ldab 001a
14328 EFAF F7 30 00 .0. stab 3000
14329 EFB2 CE 10 08 ... ldx #1008
14330 EFB5 1C 00 02 ... bset 00,x, #02 ; keypad data
14331 EFB8 CC 00 0A ... ldd #000a
14332 EFBB BD E5 71 ..q jsr e571 ;msdelay
14333 EFBE F6 10 08 ... ldab 1008
14334 EFC1 C4 01 .. andb #01
14335 EFC3 26 06 &. bne 06
14336 EFC5 CC B1 86 ... ldd #b186 ; "P3-P4 FAIL"
14337 EFC8 BD EE 03 ... jsr ee03 ;jump36
14338 EFCB CE 10 08 ... ldx #1008
14339 EFCE 1D 00 02 ... bclr 00,x, #02
14340 EFD1 CC 00 0A ... ldd #000a
14341 EFD4 BD E5 71 ..q jsr e571 ;msdelay
14342 EFD7 F6 10 08 ... ldab 1008
14343 EFDA C4 01 .. andb #01
14344 EFDC 27 06 '. beq 06
14345 EFDE CC B1 86 ... ldd #b186 ; "P3-P4 FAIL"
14346 EFE1 BD EE 03 ... jsr ee03 ;jump36
14347 EFE4 CE 10 00 ... ldx #1000
14348 EFE7 1D 00 08 ... bclr 00,x, #08
14349 EFEA CE 10 08 ... ldx #1008
14350 EFED 1C 00 02 ... bset 00,x, #02
14351 EFF0 CC 00 0A ... ldd #000a
14352 EFF3 BD E5 71 ..q jsr e571 ;msdelay
14353 EFF6 F6 10 08 ... ldab 1008
14354 EFF9 C4 01 .. andb #01
14355 EFFB 26 06 &. bne 06
14356 EFFD CC B1 91 ... ldd #b191 ; "P5 FAIL"
14357 F000 BD EE 03 ... jsr ee03 ;jump36
14358 F003 CE 10 08 ... ldx #1008
14359 F006 1D 00 02 ... bclr 00,x, #02
14360 F009 CC 00 0A ... ldd #000a
14361 F00C BD E5 71 ..q jsr e571 ;msdelay
14362 F00F F6 10 08 ... ldab 1008
14363 F012 C4 01 .. andb #01
14364 F014 27 06 '. beq 06
14365 F016 CC B1 91 ... ldd #b191
14366 F019 BD EE 03 ... jsr ee03 ;jump36
14367 F01C CE 00 14 ... ldx #0014
14368 F01F 1C 00 .. bset add,x 00,x
14369 F021 20 F6 . bra f6
14372 F025 F7 38 00 .8. stab 3800
14373 F028 CC 00 0A ... ldd #000a
14374 F02B BD E5 71 ..q jsr e571 ;msdelay
14375 F02E F6 20 00 . . ldab 2000
14376 F031 C4 40 .@ andb #40
14377 F033 26 06 &. bne 06
14378 F035 CC B1 9C ... ldd #b19c
14379 F038 BD EE 03 ... jsr ee03 ;jump36
14380 F03B CE 00 14 ... ldx #0014
14381 F03E 1D 00 .. bclr add,x 00,x
14382 F040 20 F6 . bra f6
14385 F044 F7 38 00 .8. stab 3800
14386 F047 CC 00 0A ... ldd #000a
14387 F04A BD E5 71 ..q jsr e571 ;msdelay
14388 F04D F6 20 00 . . ldab 2000
14389 F050 C4 40 .@ andb #40
14390 F052 27 06 '. beq 06
14391 F054 CC B1 9C ... ldd #b19c
14392 F057 BD EE 03 ... jsr ee03 ;jump36
14393 F05A CE 00 14 ... ldx #0014
14394 F05D 1C 00 40 ... bset 00,x, #40
14395 F060 F6 00 14 ... ldab 0014
14396 F063 F7 38 00 .8. stab 3800
14397 F066 CC 00 0A ... ldd #000a
14398 F069 BD E5 71 ..q jsr e571 ;msdelay
14399 F06C F6 20 00 . . ldab 2000
14400 F06F 2C 06 ,. bge 06
14401 F071 CC B1 9C ... ldd #b19c
14402 F074 BD EE 03 ... jsr ee03 ;jump36
14403 F077 CE 00 14 ... ldx #0014
14404 F07A 1D 00 40 ... bclr 00,x, #40
14405 F07D F6 00 14 ... ldab 0014
14406 F080 F7 38 00 .8. stab 3800
14407 F083 CC 00 0A ... ldd #000a
14408 F086 BD E5 71 ..q jsr e571 ;msdelay
14409 F089 F6 20 00 . . ldab 2000
14410 F08C 2D 06 -. blt 06
14411 F08E CC B1 9C ... ldd #b19c
14412 F091 BD EE 03 ... jsr ee03 ;jump36
14413 F094 7F 00 61 ..a clr 0061
14414 F097 F6 00 61 ..a ldab 0061
14415 F09A C1 08 .. cmpb #08
14416 F09C 24 22 $" bcc 22
14417 F09E F6 00 61 ..a ldab 0061
14419 F0A2 C3 B1 C8 ... addd #b1c8
14421 F0A6 E6 00 .. ldab 00,x
14422 F0A8 F7 00 06 ... stab 0006
14423 F0AB BD D3 11 ... jsr d311 ;jump30 - test position exists
14424 F0AE 83 00 00 ... subd #0000
14425 F0B1 27 08 '. beq 08
14426 F0B3 CC B1 A7 ... ldd #b1a7
14427 F0B6 BD EE 03 ... jsr ee03 ;jump36
14428 F0B9 20 05 . bra 05
14429 F0BB 7C 00 61 |.a inc 0061
14430 F0BE 20 D7 . bra d7
14431 F0C0 7F 00 61 ..a clr 0061
14432 F0C3 F6 00 61 ..a ldab 0061
14433 F0C6 C1 08 .. cmpb #08
14434 F0C8 24 2B $+ bcc 2b
14435 F0CA F6 00 61 ..a ldab 0061
14437 F0CE C3 B1 C8 ... addd #b1c8
14439 F0D2 E6 00 .. ldab 00,x
14440 F0D4 F7 00 06 ... stab 0006
14441 F0D7 BD D1 3D ..= jsr d13d ;jump34 - motor on
14442 F0DA BD D5 70 ..p jsr d570 ;jump35
14443 F0DD 83 00 00 ... subd #0000
14444 F0E0 26 0B &. bne 0b
14445 F0E2 BD D1 05 ... jsr d105 ;motors_off
14446 F0E5 CC B1 B2 ... ldd #b1b2
14447 F0E8 BD EE 03 ... jsr ee03 ;jump36
14448 F0EB 20 08 . bra 08
14449 F0ED BD D1 05 ... jsr d105 ;motors_off
14450 F0F0 7C 00 61 |.a inc 0061
14451 F0F3 20 CE . bra ce
14452 F0F5 7F 00 61 ..a clr 0061
14453 F0F8 F6 00 61 ..a ldab 0061
14454 F0FB C1 05 .. cmpb #05
14455 F0FD 24 45 $E bcc 45
14456 F0FF F6 00 61 ..a ldab 0061
14458 F103 C3 B1 C8 ... addd #b1c8
14460 F107 E6 00 .. ldab 00,x
14461 F109 F7 00 06 ... stab 0006
14462 F10C BD D1 3D ..= jsr d13d ;jump34 - motor on
14463 F10F CC 00 0A ... ldd #000a
14464 F112 BD E5 71 ..q jsr e571 ;msdelay
14465 F115 F6 18 00 ... ldab 1800
14466 F118 C4 40 .@ andb #40
14467 F11A 26 0B &. bne 0b
14468 F11C BD D1 05 ... jsr d105 ;motors_off
14469 F11F CC B1 B2 ... ldd #b1b2
14470 F122 BD EE 03 ... jsr ee03 ;jump36
14471 F125 20 1D . bra 1d
14472 F127 BD D1 05 ... jsr d105 ;motors_off
14473 F12A CC 00 0A ... ldd #000a
14474 F12D BD E5 71 ..q jsr e571 ;msdelay
14475 F130 F6 18 00 ... ldab 1800
14476 F133 C4 40 .@ andb #40
14477 F135 27 08 '. beq 08
14478 F137 CC B1 B2 ... ldd #b1b2
14479 F13A BD EE 03 ... jsr ee03 ;jump36
14480 F13D 20 05 . bra 05
14481 F13F 7C 00 61 |.a inc 0061
14482 F142 20 B4 . bra b4
14483 F144 FC 10 16 ... ldd 1016
14484 F147 83 5A 5A .ZZ subd #5a5a
14485 F14A 26 0C &. bne 0c
14486 F14C CC B1 BD ... ldd #b1bd ; " PASSED "
14487 F14F BD C0 BA ... jsr c0ba ;display:
14488 F152 CC 05 DC ... ldd #05dc
14489 F155 BD E5 71 ..q jsr e571 ;msdelay
14490 F158 7E EE 1C ~.. jmp ee1c ;goto81
14493 ;send a byte to the printer
14494 ;it calls c7e7, which does things with the serial port
14497 F15D F6 00 19 ... ldab 0019
14498 F160 C4 40 .@ andb #40
14499 F162 26 5B &[ bne 5b
14500 F164 C6 FF .. ldab #ff
14501 F166 F7 00 39 ..9 stab 0039
14502 F169 F6 20 00 . . ldab 2000
14503 F16C 2C 11 ,. bge 11
14504 F16E F6 20 00 . . ldab 2000
14505 F171 C4 40 .@ andb #40
14506 F173 27 0A '. beq 0a
14507 F175 F6 00 39 ..9 ldab 0039
14508 F178 27 05 '. beq 05
14509 F17A BD E6 1B ... jsr e61b ;jump4
14510 F17D 20 EA . bra ea
14511 F17F F6 00 39 ..9 ldab 0039
14512 F182 26 08 &. bne 08
14513 F184 CE 00 19 ... ldx #0019
14514 F187 1C 00 40 ... bset 00,x, #40
14515 F18A 20 33 3 bra 33
14516 F18C F6 20 00 . . ldab 2000
14517 F18F C4 40 .@ andb #40
14518 F191 27 2C ', beq 2c
14519 F193 F6 00 1D ... ldab 001d
14520 F196 C4 01 .. andb #01
14521 F198 27 1E '. beq 1e
14523 F19B E6 01 .. ldab 01,x
14524 F19D C1 30 .0 cmpb #30
14525 F19F 26 08 &. bne 08
14526 F1A1 CC 00 20 .. ldd #0020
14527 F1A4 BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
14528 F1A7 20 0D . bra 0d
14530 F1AA E6 01 .. ldab 01,x
14532 F1AD BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
14533 F1B0 CE 00 1D ... ldx #001d
14534 F1B3 1D 00 01 ... bclr 00,x, #01
14535 F1B6 20 07 . bra 07
14537 F1B9 E6 01 .. ldab 01,x
14539 F1BC BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
14546 F1C3 F6 20 00 . . ldab 2000
14547 F1C6 C4 40 .@ andb #40
14548 F1C8 27 1C '. beq 1c
14549 F1CA 7F 00 18 ... clr 0018
14550 F1CD F6 00 18 ... ldab 0018
14552 F1D1 E1 05 .. cmpb 05,x
14553 F1D3 24 11 $. bcc 11
14555 F1D6 EE 00 .. ldx 00,x
14556 F1D8 E6 00 .. ldab 00,x
14558 F1DB BD F1 5B ..[ jsr f15b ;jump53
14562 F1E1 7C 00 18 |.. inc 0018
14563 F1E4 20 E7 . bra e7
14567 ;send a string to the printer. D is a pointer to a string
14571 F1EA F6 20 00 . . ldab 2000
14572 F1ED C4 40 .@ andb #40
14573 F1EF 27 1B '. beq 1b
14574 F1F1 CC 00 20 .. ldd #0020
14575 F1F4 BD F1 5B ..[ jsr f15b ;jump53
14577 F1F8 EE 00 .. ldx 00,x
14578 F1FA E6 00 .. ldab 00,x
14579 F1FC 27 0E '. beq 0e
14581 F1FF EE 00 .. ldx 00,x
14582 F201 E6 00 .. ldab 00,x
14584 F204 BD F1 5B ..[ jsr f15b ;jump53
14588 F20A 20 EB . bra eb
14595 F210 F6 20 00 . . ldab 2000
14596 F213 C4 40 .@ andb #40
14597 F215 27 34 '4 beq 34
14598 F217 CE 00 1D ... ldx #001d
14599 F21A 1C 00 01 ... bset 00,x, #01
14601 F21E E6 01 .. ldab 01,x
14603 F221 BD E7 95 ... jsr e795 ;jump54 - number to string
14604 F224 F6 00 5D ..] ldab 005d
14606 F228 BD F1 5B ..[ jsr f15b ;jump53
14607 F22B F6 00 5E ..^ ldab 005e
14609 F22F BD F1 5B ..[ jsr f15b ;jump53
14610 F232 CE 00 1D ... ldx #001d
14611 F235 1D 00 01 ... bclr 00,x, #01
14612 F238 F6 00 5F .._ ldab 005f
14614 F23C BD F1 5B ..[ jsr f15b ;jump53
14615 F23F CC 00 20 .. ldd #0020
14616 F242 BD F1 5B ..[ jsr f15b ;jump53
14617 F245 CC 00 20 .. ldd #0020
14618 F248 BD F1 5B ..[ jsr f15b ;jump53
14625 F24F F6 20 00 . . ldab 2000
14626 F252 C4 40 .@ andb #40
14627 F254 27 41 'A beq 41
14628 F256 CE 00 1D ... ldx #001d
14629 F259 1C 00 01 ... bset 00,x, #01
14631 F25D EC 00 .. ldd 00,x
14632 F25F BD E7 45 ..E jsr e745 ;jump55 - number to string
14633 F262 F6 00 57 ..W ldab 0057
14635 F266 BD F1 5B ..[ jsr f15b ;jump53
14636 F269 F6 00 5A ..Z ldab 005a
14638 F26D BD F1 5B ..[ jsr f15b ;jump53
14639 F270 F6 00 5D ..] ldab 005d
14641 F274 BD F1 5B ..[ jsr f15b ;jump53
14642 F277 F6 00 5E ..^ ldab 005e
14644 F27B BD F1 5B ..[ jsr f15b ;jump53
14645 F27E CE 00 1D ... ldx #001d
14646 F281 1D 00 01 ... bclr 00,x, #01
14647 F284 F6 00 5F .._ ldab 005f
14649 F288 BD F1 5B ..[ jsr f15b ;jump53
14650 F28B CC 00 20 .. ldd #0020
14651 F28E BD F1 5B ..[ jsr f15b ;jump53
14652 F291 CC 00 20 .. ldd #0020
14653 F294 BD F1 5B ..[ jsr f15b ;jump53
14660 F29B F6 20 00 . . ldab 2000
14661 F29E C4 40 .@ andb #40 ; printer DSR
14662 F2A0 27 7B '{ beq 7b
14663 F2A2 F6 00 17 ... ldab 0017
14664 F2A5 C4 08 .. andb #08
14665 F2A7 26 06 &. bne 06
14666 F2A9 CC 00 24 ..$ ldd #0024 ; "$"
14667 F2AC BD F1 5B ..[ jsr f15b ;jump53
14668 F2AF CE 00 1D ... ldx #001d
14669 F2B2 1C 00 01 ... bset 00,x, #01
14671 F2B6 EC 00 .. ldd 00,x
14672 F2B8 BD E7 45 ..E jsr e745 ;jump55 - number to string
14673 F2BB F6 00 57 ..W ldab 0057
14675 F2BF BD F1 5B ..[ jsr f15b ;jump53 - byte to printer
14676 F2C2 F6 00 5A ..Z ldab 005a
14678 F2C6 BD F1 5B ..[ jsr f15b ;jump53 - byte to printer
14679 F2C9 F6 00 13 ... ldab 0013
14680 F2CC C1 08 .. cmpb #08
14681 F2CE 26 0C &. bne 0c
14682 F2D0 CC 00 2E ... ldd #002e
14683 F2D3 BD F1 5B ..[ jsr f15b ;jump53 - byte to printer
14684 F2D6 CE 00 1D ... ldx #001d
14685 F2D9 1D 00 01 ... bclr 00,x, #01
14686 F2DC F6 00 5D ..] ldab 005d
14688 F2E0 BD F1 5B ..[ jsr f15b ;jump53 - byte to printer
14689 F2E3 F6 00 13 ... ldab 0013
14690 F2E6 C1 04 .. cmpb #04
14691 F2E8 26 0C &. bne 0c
14692 F2EA CC 00 2E ... ldd #002e
14693 F2ED BD F1 5B ..[ jsr f15b ;jump53 - byte to printer
14694 F2F0 CE 00 1D ... ldx #001d
14695 F2F3 1D 00 01 ... bclr 00,x, #01
14696 F2F6 F6 00 5E ..^ ldab 005e
14698 F2FA BD F1 5B ..[ jsr f15b ;jump53 - byte to printer
14699 F2FD F6 00 13 ... ldab 0013
14700 F300 C1 02 .. cmpb #02
14701 F302 26 06 &. bne 06
14702 F304 CC 00 2E ... ldd #002e
14703 F307 BD F1 5B ..[ jsr f15b ;jump53 - byte to printer
14704 F30A CE 00 1D ... ldx #001d
14705 F30D 1D 00 01 ... bclr 00,x, #01
14706 F310 F6 00 5F .._ ldab 005f
14708 F314 BD F1 5B ..[ jsr f15b ;jump53 - byte to printer
14709 F317 CC 00 0A ... ldd #000a
14710 F31A BD F1 5B ..[ jsr f15b ;jump53 - byte to printer
14719 F323 F6 20 00 . . ldab 2000
14720 F326 C4 40 .@ andb #40 ; printer dsr
14721 F328 26 03 &. bne 03
14722 F32A 7E F3 BC ~.. jmp f3bc ;goto82
14723 F32D F6 00 17 ... ldab 0017
14724 F330 C4 08 .. andb #08
14725 F332 26 06 &. bne 06
14726 F334 CC 00 24 ..$ ldd #0024 ; "$"
14727 F337 BD F1 5B ..[ jsr f15b ;jump53 - byte to printer
14728 F33A CE 00 1D ... ldx #001d
14729 F33D 1C 00 01 ... bset 00,x, #01
14731 F341 EC 04 .. ldd 04,x
14734 F345 EC 02 .. ldd 02,x
14735 F347 BD E6 21 ..! jsr e621 ;jump56 - write to display
14737 F34B C6 07 .. ldab #07
14738 F34D F7 00 18 ... stab 0018
14739 F350 F6 00 18 ... ldab 0018
14740 F353 C1 FF .. cmpb #ff
14741 F355 24 5F $_ bcc 5f
14742 F357 F6 00 18 ... ldab 0018
14744 F35B C3 0B 90 ... addd #0b90
14746 F35F E6 00 .. ldab 00,x
14748 F362 BD F1 5B ..[ jsr f15b ;jump53
14749 F365 F6 00 18 ... ldab 0018
14750 F368 C1 03 .. cmpb #03
14751 F36A 26 15 &. bne 15
14752 F36C F6 00 13 ... ldab 0013
14753 F36F C1 08 .. cmpb #08
14754 F371 26 0C &. bne 0c
14755 F373 CC 00 2E ... ldd #002e
14756 F376 BD F1 5B ..[ jsr f15b ;jump53
14757 F379 CE 00 1D ... ldx #001d
14758 F37C 1D 00 01 ... bclr 00,x, #01
14759 F37F 20 30 0 bra 30
14760 F381 C1 02 .. cmpb #02
14761 F383 26 15 &. bne 15
14762 F385 F6 00 13 ... ldab 0013
14763 F388 C1 04 .. cmpb #04
14764 F38A 26 0C &. bne 0c
14765 F38C CC 00 2E ... ldd #002e
14766 F38F BD F1 5B ..[ jsr f15b ;jump53
14767 F392 CE 00 1D ... ldx #001d
14768 F395 1D 00 01 ... bclr 00,x, #01
14769 F398 20 17 . bra 17
14770 F39A C1 01 .. cmpb #01
14771 F39C 26 13 &. bne 13
14772 F39E F6 00 13 ... ldab 0013
14773 F3A1 C1 02 .. cmpb #02
14774 F3A3 26 06 &. bne 06
14775 F3A5 CC 00 2E ... ldd #002e
14776 F3A8 BD F1 5B ..[ jsr f15b ;jump53
14777 F3AB CE 00 1D ... ldx #001d
14778 F3AE 1D 00 01 ... bclr 00,x, #01
14779 F3B1 7A 00 18 z.. dec 0018
14780 F3B4 20 9A . bra 9a
14781 F3B6 CC 00 0A ... ldd #000a
14782 F3B9 BD F1 5B ..[ jsr f15b ;jump53
14787 F3BF 6E 00 n. jmp 00,x
14792 F3C3 F6 20 00 . . ldab 2000
14793 F3C6 C4 40 .@ andb #40
14794 F3C8 27 49 'I beq 49
14795 F3CA CC B4 71 ..q ldd #b471 " CODE "
14796 F3CD BD F1 E8 ... jsr f1e8 ;jump57
14798 F3D1 E6 01 .. ldab 01,x
14800 F3D4 CE 00 0A ... ldx #000a
14803 F3D9 CB 30 .0 addb #30
14804 F3DB F7 00 5E ..^ stab 005e
14806 F3DF E6 01 .. ldab 01,x
14808 F3E2 CE 00 0A ... ldx #000a
14810 F3E6 CB 30 .0 addb #30
14811 F3E8 F7 00 5F .._ stab 005f ;5e and 5f now param in ascii
14812 F3EB F6 00 5E ..^ ldab 005e
14814 F3EF BD F1 5B ..[ jsr f15b ;jump53
14815 F3F2 F6 00 5F .._ ldab 005f
14817 F3F6 BD F1 5B ..[ jsr f15b ;jump53
14818 F3F9 CC B4 7B ..{ ldd #b47b "VENDS - "
14819 F3FC BD F1 E8 ... jsr f1e8 ;jump57
14821 F400 E6 01 .. ldab 01,x
14824 F404 C3 0D 1F ... addd #0d1f
14826 F408 EC 00 .. ldd 00,x
14827 F40A BD F2 4D ..M jsr f24d ;jump58
14828 F40D CC 00 0A ... ldd #000a
14829 F410 BD F1 5B ..[ jsr f15b ;jump53
14834 ; print a report to printer
14835 F415 F6 0B C0 ... ldab 0bc0
14836 F418 C4 02 .. andb #02
14837 F41A 27 15 '. beq 15
14838 F41C CE 00 21 ..! ldx #0021
14839 F41F 1C 00 .. bset 00,x, #80
14840 F421 F6 00 1D .. ldab 001d
14841 F424 C4 02 .. andb #02
14842 F427 27 02 '. beq 02
14843 F429 20 F7 . bra f7
14844 F42B CE 00 21 ..! ldx #0021
14845 F42E 1D 00 .. bclr 00,x, #80
14846 F430 C6 10 .. ldab #10
14847 F433 F7 10 2C .., stab 102c ; set 9N1
14848 F436 C6 2E .. ldab #2e
14849 F438 F7 10 2D ..- stab 102d ; enable SCI transmission
14850 F43B C6 05 .. ldab #05
14851 F43D F7 10 2B ..+ stab 102b ; 2400 baud
14852 F440 CC 03 E8 ... ldd #03e8
14853 F443 BD E5 71 ..q jsr e571 ;msdelay
14854 F446 CE 10 00 ... ldx #1000
14855 F449 1D 00 08 ... bclr 00,x, #08 ; talk to ze printer
14856 F44C CE 00 19 ... ldx #0019
14857 F44F 1D 00 40 ... bclr 00,x, #40
14858 F452 CE 00 1D ... ldx #001d
14859 F455 1D 00 01 ... bclr 00,x, #01
14860 F458 CC 00 18 ... ldd #0018
14861 F45B BD F1 5B ..[ jsr f15b ;jump53
14862 F45E CC B2 1B ... ldd #b21b " ROWE INTERNATIONAL"
14863 F461 BD F1 E8 ... jsr f1e8 ;jump57
14864 F464 CC 00 0A ... ldd #000a ; new line
14865 F467 BD F1 5B ..[ jsr f15b ;jump53
14866 F46A CC B2 38 ..8 ldd #b238 " -------------------"
14867 F46D BD F1 E8 ... jsr f1e8 ;jump57
14868 F470 CC 00 0A ... ldd #000a ; new line
14869 F473 BD F1 5B ..[ jsr f15b ;jump53
14870 F476 CC B2 56 ..V ldd #b256 ; "5900 SOFTWARE VER 5"
14871 F479 BD F1 E8 ... jsr f1e8 ;jump57
14872 F47C CC 00 0A ... ldd #000a ; new line
14873 F47F BD F1 5B ..[ jsr f15b ;jump53
14874 F482 CC 00 0A ... ldd #000a ; new line
14875 F485 BD F1 5B ..[ jsr f15b ;jump53
14876 F488 CC B2 75 ..u ldd #b275 ; ACCOUNT RECORD
14877 F48B BD F1 E8 ... jsr f1e8 ;jump57
14878 F48E CC 00 0A ... ldd #000a ; new line
14879 F491 BD F1 5B ..[ jsr f15b ;jump53
14880 F494 CC B2 38 ..8 ldd #b238 ; --------------------
14881 F497 BD F1 E8 ... jsr f1e8 ;jump57
14882 F49A CC 00 0A ... ldd #000a ; new line
14883 F49D BD F1 5B ..[ jsr f15b ;jump53
14884 F4A0 CC 00 0A ... ldd #000a ; new line
14885 F4A3 BD F1 5B ..[ jsr f15b ;jump53
14886 F4A6 CC B2 90 ... ldd #b290 ; SERIAL #
14887 F4A9 BD F1 E8 ... jsr f1e8 ;jump57
14888 F4AC CE 00 0A ... ldx #000a
14890 F4B0 CC 0C BC ... ldd #0cbc ; serial number
14891 F4B3 BD F1 C1 ... jsr f1c1 ;jump59
14893 F4B7 CC 00 0A ... ldd #000a
14894 F4BA BD F1 5B ..[ jsr f15b ;jump53
14895 F4BD CC B2 A2 ... ldd #b2a2 ; "MACHINE ID"
14896 F4C0 BD F1 E8 ... jsr f1e8 ;jump57
14897 F4C3 CE 00 0A ... ldx #000a
14899 F4C7 CC 0C CC ... ldd #0ccc
14900 F4CA BD F1 C1 ... jsr f1c1 ;jump59
14902 F4CE CC 00 0A ... ldd #000a
14903 F4D1 BD F1 5B ..[ jsr f15b ;jump53
14904 F4D4 CC B2 B4 ... ldd #b2b4 ; "AUDIT NUMBER"
14905 F4D7 BD F1 E8 ... jsr f1e8 ;jump57
14906 F4DA FC 0C E7 ... ldd 0ce7
14907 F4DD BD F2 4D ..M jsr f24d ;jump58 - convert to string
14908 F4E0 CC 00 0A ... ldd #000a
14909 F4E3 BD F1 5B ..[ jsr f15b ;jump53
14910 F4E6 CC 00 0A ... ldd #000a
14911 F4E9 BD F1 5B ..[ jsr f15b ;jump53
14912 F4EC CC B2 C6 ... ldd #b2c6 ; "SALES (R)
14913 F4EF BD F1 E8 ... jsr f1e8 ;jump57
14914 F4F2 FE 0D E9 ... ldx 0de9
14916 F4F6 FC 0D E7 ... ldd 0de7
14917 F4F9 BD F3 1F ... jsr f31f ;jump60
14919 F4FD CC B2 D8 ... ldd #b2d8 ; "SALES (N)
14920 F500 BD F1 E8 ... jsr f1e8 ;jump57
14921 F503 FE 0D ED ... ldx 0ded
14923 F507 FC 0D EB ... ldd 0deb
14924 F50A BD F3 1F ... jsr f31f ;jump60
14926 F50E CC B2 EA ... ldd #b2ea
14927 F511 BD F1 E8 ... jsr f1e8 ;jump57
14928 F514 FE 0D F1 ... ldx 0df1
14930 F518 FC 0D EF ... ldd 0def
14931 F51B BD F3 1F ... jsr f31f ;jump60
14933 F51F CC B2 FC ... ldd #b2fc
14934 F522 BD F1 E8 ... jsr f1e8 ;jump57
14935 F525 FE 0D F9 ... ldx 0df9
14937 F529 FC 0D F7 ... ldd 0df7
14938 F52C BD F3 1F ... jsr f31f ;jump60
14940 F530 CC B3 0E ... ldd #b30e
14941 F533 BD F1 E8 ... jsr f1e8 ;jump57
14942 F536 FE 0D FD ... ldx 0dfd
14944 F53A FC 0D FB ... ldd 0dfb
14945 F53D BD F3 1F ... jsr f31f ;jump60
14947 F541 CC 00 0A ... ldd #000a
14948 F544 BD F1 5B ..[ jsr f15b ;jump53
14949 F547 CC B3 20 .. ldd #b320
14950 F54A BD F1 E8 ... jsr f1e8 ;jump57
14951 F54D CC 00 0A ... ldd #000a
14952 F550 BD F1 5B ..[ jsr f15b ;jump53
14953 F553 CC B3 31 ..1 ldd #b331
14954 F556 BD F1 E8 ... jsr f1e8 ;jump57
14955 F559 FE 0D F5 ... ldx 0df5
14957 F55D FC 0D F3 ... ldd 0df3
14958 F560 BD F3 1F ... jsr f31f ;jump60
14960 F564 CC B3 4A ..J ldd #b34a
14961 F567 BD F1 E8 ... jsr f1e8 ;jump57
14962 F56A FC 0C DD ... ldd 0cdd
14963 F56D BD F2 4D ..M jsr f24d ;jump58
14964 F570 FE 0C F5 ... ldx 0cf5
14966 F574 FC 0C F3 ... ldd 0cf3
14967 F577 BD F3 1F ... jsr f31f ;jump60
14969 F57B CC B3 5C ..\ ldd #b35c
14970 F57E BD F1 E8 ... jsr f1e8 ;jump57
14971 F581 FC 0C DF ... ldd 0cdf
14972 F584 BD F2 4D ..M jsr f24d ;jump58
14973 F587 FE 0C F9 ... ldx 0cf9
14975 F58B FC 0C F7 ... ldd 0cf7
14976 F58E BD F3 1F ... jsr f31f ;jump60
14978 F592 CC B3 6E ..n ldd #b36e
14979 F595 BD F1 E8 ... jsr f1e8 ;jump57
14980 F598 FC 0C E1 ... ldd 0ce1
14981 F59B BD F2 4D ..M jsr f24d ;jump58
14982 F59E FE 0C FD ... ldx 0cfd
14984 F5A2 FC 0C FB ... ldd 0cfb
14985 F5A5 BD F3 1F ... jsr f31f ;jump60
14987 F5A9 CC B3 80 ... ldd #b380
14988 F5AC BD F1 E8 ... jsr f1e8 ;jump57
14989 F5AF FC 0C E3 ... ldd 0ce3
14990 F5B2 BD F2 4D ..M jsr f24d ;jump58
14991 F5B5 FE 0D 01 ... ldx 0d01
14993 F5B9 FC 0C FF ... ldd 0cff
14994 F5BC BD F3 1F ... jsr f31f ;jump60
14996 F5C0 CC B3 92 ... ldd #b392
14997 F5C3 BD F1 E8 ... jsr f1e8 ;jump57
14998 F5C6 FC 0C E5 ... ldd 0ce5
14999 F5C9 BD F2 4D ..M jsr f24d ;jump58
15000 F5CC FE 0D 05 ... ldx 0d05
15002 F5D0 FC 0D 03 ... ldd 0d03
15003 F5D3 BD F3 1F ... jsr f31f ;jump60
15005 F5D7 CC 00 0A ... ldd #000a
15006 F5DA BD F1 5B ..[ jsr f15b ;jump53
15007 F5DD CC B3 A4 ... ldd #b3a4
15008 F5E0 BD F1 E8 ... jsr f1e8 ;jump57
15009 F5E3 CC 00 0A ... ldd #000a
15010 F5E6 BD F1 5B ..[ jsr f15b ;jump53
15011 F5E9 CC B3 B3 ... ldd #b3b3
15012 F5EC BD F1 E8 ... jsr f1e8 ;jump57
15013 F5EF FC 0C F1 ... ldd 0cf1
15014 F5F2 BD F2 99 ... jsr f299 ;jump61
15015 F5F5 CC B3 CA ... ldd #b3ca
15016 F5F8 BD F1 E8 ... jsr f1e8 ;jump57
15017 F5FB F6 0C DC ... ldab 0cdc
15019 F5FF BD F2 0E ... jsr f20e ;jump62
15020 F602 FC 0C E9 ... ldd 0ce9
15021 F605 BD F2 99 ... jsr f299 ;jump61
15022 F608 CC B3 DC ... ldd #b3dc
15023 F60B BD F1 E8 ... jsr f1e8 ;jump57
15024 F60E F6 0C DB ... ldab 0cdb
15026 F612 BD F2 0E ... jsr f20e ;jump62
15027 F615 FC 0C EB ... ldd 0ceb
15028 F618 BD F2 99 ... jsr f299 ;jump61
15029 F61B CC B3 EE ... ldd #b3ee
15030 F61E BD F1 E8 ... jsr f1e8 ;jump57
15031 F621 F6 0C DA ... ldab 0cda
15033 F625 BD F2 0E ... jsr f20e ;jump62
15034 F628 FC 0C ED ... ldd 0ced
15035 F62B BD F2 99 ... jsr f299 ;jump61
15036 F62E CC B4 00 ... ldd #b400
15037 F631 BD F1 E8 ... jsr f1e8 ;jump57
15038 F634 F6 0C D9 ... ldab 0cd9
15040 F638 BD F2 0E ... jsr f20e ;jump62
15041 F63B FC 0C EF ... ldd 0cef
15042 F63E BD F2 99 ... jsr f299 ;jump61
15043 F641 CC 00 0A ... ldd #000a
15044 F644 BD F1 5B ..[ jsr f15b ;jump53
15045 F647 CC B4 12 ... ldd #b412
15046 F64A BD F1 E8 ... jsr f1e8 ;jump57
15047 F64D FC 0D 07 ... ldd 0d07
15048 F650 BD F2 4D ..M jsr f24d ;jump58
15049 F653 FE 0D 11 ... ldx 0d11
15051 F657 FC 0D 0F ... ldd 0d0f
15052 F65A BD F3 1F ... jsr f31f ;jump60
15054 F65E CC B4 24 ..$ ldd #b424
15055 F661 BD F1 E8 ... jsr f1e8 ;jump57
15056 F664 FC 0D 09 ... ldd 0d09
15057 F667 BD F2 4D ..M jsr f24d ;jump58
15058 F66A FE 0D 15 ... ldx 0d15
15060 F66E FC 0D 13 ... ldd 0d13
15061 F671 BD F3 1F ... jsr f31f ;jump60
15063 F675 CC B4 36 ..6 ldd #b436
15064 F678 BD F1 E8 ... jsr f1e8 ;jump57
15065 F67B FC 0D 0B ... ldd 0d0b
15066 F67E BD F2 4D ..M jsr f24d ;jump58
15067 F681 FE 0D 19 ... ldx 0d19
15069 F685 FC 0D 17 ... ldd 0d17
15070 F688 BD F3 1F ... jsr f31f ;jump60
15072 F68C CC B4 48 ..H ldd #b448
15073 F68F BD F1 E8 ... jsr f1e8 ;jump57
15074 F692 FC 0D 0D ... ldd 0d0d
15075 F695 BD F2 4D ..M jsr f24d ;jump58
15076 F698 FE 0D 1D ... ldx 0d1d
15078 F69C FC 0D 1B ... ldd 0d1b
15079 F69F BD F3 1F ... jsr f31f ;jump60
15081 F6A3 CC 00 0A ... ldd #000a
15082 F6A6 BD F1 5B ..[ jsr f15b ;jump53
15083 F6A9 CC B4 5A ..Z ldd #b45a
15084 F6AC BD F1 E8 ... jsr f1e8 ;jump57
15085 F6AF CC 00 0A ... ldd #000a
15086 F6B2 BD F1 5B ..[ jsr f15b ;jump53
15087 F6B5 C6 01 .. ldab #01
15088 F6B7 F7 00 54 ..T stab 0054
15089 F6BA F6 00 54 ..T ldab 0054
15090 F6BD C1 63 .c cmpb #63
15091 F6BF 22 1B ". bhi 1b
15092 F6C1 F6 00 54 ..T ldab 0054
15095 F6C6 C3 08 C8 ... addd #08c8
15097 F6CA EC 00 .. ldd 00,x
15098 F6CC C4 80 .. andb #80
15099 F6CE 27 07 '. beq 07
15100 F6D0 F6 00 54 ..T ldab 0054
15102 F6D4 BD F3 C1 ... jsr f3c1 ;jump63
15103 F6D7 7C 00 54 |.T inc 0054
15104 F6DA 20 DE . bra de
15105 F6DC CC 00 0A ... ldd #000a
15106 F6DF BD F1 5B ..[ jsr f15b ;jump53
15107 F6E2 F6 00 19 ... ldab 0019
15108 F6E5 C4 40 .@ andb #40
15109 F6E7 26 07 &. bne 07
15110 F6E9 FE 0C E7 ... ldx 0ce7 ;increment the audit number?
15112 F6ED FF 0C E7 ... stx 0ce7
15113 F6F0 CE 00 1D ... ldx #001d
15114 F6F3 1D 00 01 ... bclr 00,x, #01
15115 F6F6 CC 03 E8 ... ldd #03e8
15116 F6F9 BD E5 71 ..q jsr e571 ;msdelay
15117 F6FC C6 03 .. ldab #03
15118 F6FE F7 10 2B ..+ stab 102b ; back to 9600 baud
15119 F701 CE 10 00 ... ldx #1000
15120 F704 1C 00 08 ... bset 00,x, #08 ; set back to coin mech
15121 F707 F6 0B C0 ... ldab 0bc0
15122 F70A C4 02 .. andb #02
15123 F70C 27 06 '. beq 06
15124 F70E CC 00 80 ... ldd #0080
15125 F711 BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
15126 F714 7F 00 38 ..8 clr 0038
15131 F719 F6 0B C0 ... ldab 0bc0 ; if we have a bill validator
15132 F71C C4 08 .. andb #08
15133 F71E 27 03 '. beq 03
15134 F720 BD C3 25 ..% jsr c325 ;jump64 - go query the bill validator
15135 F723 7C 00 0C |.. inc 000c
15136 F726 F6 00 0C ... ldab 000c
15137 F729 C1 02 .. cmpb #02
15138 F72B 26 13 &. bne 13
15139 F72D 7F 00 0C ... clr 000c
15140 F730 F6 00 07 ... ldab 0007
15141 F733 27 03 '. beq 03
15142 F735 7A 00 07 z.. dec 0007
15143 F738 F6 00 00 ... ldab 0000
15144 F73B 27 03 '. beq 03
15145 F73D 7A 00 00 z.. dec 0000
15146 F740 7C 00 0B |.. inc 000b
15147 F743 F6 00 0B ... ldab 000b
15148 F746 C1 08 .. cmpb #08
15149 F748 26 37 &7 bne 37 ; to f781
15150 F74A 7F 00 0B ... clr 000b
15151 F74D FC 00 3B ..; ldd 003b
15152 F750 27 07 '. beq 07
15153 F752 FE 00 3B ..; ldx 003b
15155 F756 FF 00 3B ..; stx 003b
15156 F759 CC 00 2C .., ldd #002c
15158 F75D ED 00 .. std 00,x
15160 F760 EC 00 .. ldd 00,x
15163 F764 CC 00 3A ..: ldd #003a
15165 F768 A3 00 .. subd 00,x
15168 F76C 25 13 %. bcs 13
15170 F76F EE 00 .. ldx 00,x
15171 F771 E6 00 .. ldab 00,x
15172 F773 27 07 '. beq 07
15174 F776 EE 00 .. ldx 00,x
15175 F778 6A 00 j. dec 00,x
15176 F77A E6 00 .. ldab 00,x
15180 F77F 20 DE . bra de ; to f75f
15182 F781 F6 00 32 ..2 ldab 0032
15183 F784 27 07 '. beq 07 ; to f78d
15184 F786 F6 00 32 ..2 ldab 0032
15185 F789 C4 02 .. andb #02
15186 F78B 26 08 &. bne 08 ; to f795
15188 F78D CE 10 00 ... ldx #1000 ; chime off
15189 F790 1D 00 10 .. bclr 00,x, #10
15190 F793 20 0D . bra 0d ; to f7a2
15192 F795 F6 00 32 ..2 ldab 0032
15193 F798 C4 01 .. andb #01
15194 F79A 26 06 &. bne 06 ; to f7a2
15195 F79C CE 10 00 ... ldx #1000 ; chime on
15196 F79F 1C 00 10 .. bset 00,x, #10
15198 F7A2 7C 00 4C |.L inc 004c
15199 F7A5 F6 00 4C ..L ldab 004c
15200 F7A8 C1 4B .K cmpb #4b
15201 F7AA 26 13 &. bne 13 ; to f7bf
15202 F7AC 7F 00 4C ..L clr 004c
15203 F7AF F6 00 4F ..O ldab 004f
15204 F7B2 27 03 '. beq 03
15205 F7B4 7A 00 4F z.O dec 004f
15207 F7B7 F6 00 25 ..% ldab 0025
15208 F7BA 27 03 '. beq 03
15209 F7BC 7A 00 25 z.% dec 0025
15211 F7BF F6 00 31 ..1 ldab 0031
15212 F7C2 26 03 &. bne 03
15213 F7C4 BD FE 69 ..i jsr fe69 ;reset
15215 F7C7 F6 00 7F ... ldab 007f
15216 F7CA 27 03 '. beq 03
15217 F7CC BD FE 69 ..i jsr fe69 ;reset
15219 F7CF C6 40 .@ ldab #40
15220 F7D1 F7 10 25 ..% stab 1025 ; notify end of RTI period
15226 F7D6 7F 00 14 ... clr 0014 ;0 -> 0014
15228 ; clears the bits of U14 flipflop
15229 F7D9 5F _ clrb ;0 -> B
15230 F7DA F7 38 00 .8. stab 3800 ;B -> 3800
15232 F7DD C6 7F .. ldab #7f ;7F -> B
15233 F7DF F7 00 1A ... stab 001a ;B -> 001a
15235 ; set changer outputs all on, row motors off
15236 F7E2 C6 7F .. ldab #7f ;7F -> B
15237 F7E4 F7 30 00 .0. stab 3000 ;
15239 ; sets priority select bits 0-3 (elevates interrupt priority of all interrupts)
15240 F7E7 C6 07 .. ldab #07 ;7 -> B
15241 F7E9 F7 10 3C ..< stab 103c
15243 ; Set PA7 output, PA3 input, RT clock rate to 314 Hz (4.9152Mhz / 2^14)
15244 F7EC C6 81 .. ldab #81 ;81 -> B
15245 F7EE F7 10 26 ..& stab 1026
15247 ; clear ADC register
15248 F7F1 5F _ clrb ;0 -> B
15249 F7F2 F7 10 30 ..0 stab 1030
15251 ; talk to coin mech, beep, tie clock motors & display reset high (off)
15252 F7F5 C6 C8 .. ldab #c8 ;c8 -> B ; 11001000
15253 F7F7 F7 10 00 ... stab 1000 ; to port A
15255 ; sets PortD directions. XXX: Why is PD2 an output?
15256 F7FA C6 3E .> ldab #3e ;3e -> B 00111110
15257 F7FC F7 10 09 ... stab 1009 ; port D DDR
15259 ; make PortD pins open-drain, set clock polarity
15260 F7FF C6 12 .. ldab #12 ;12 -> B
15261 F801 F7 10 28 ..( stab 1028 ; SPCR 00101000
15263 ; initialize the display
15264 F804 BD BE 69 ..i jsr be69 ;displayreset
15266 ; initialize the bill validator & more stuff
15267 F807 BD EA 59 ..Y jsr ea59 ;jump65
15269 F80A CC 00 64 ..d ldd #0064 ; 100-unit delay
15270 F80D BD E5 71 ..q jsr e571 ;msdelay
15272 F810 CC B1 EF ... ldd #b1ef " ROWE INT "
15273 F813 BD C0 BA ... jsr c0ba ;display:
15274 F816 CC 01 F4 ... ldd #01f4 ; 500-unit delay
15275 F819 BD E5 71 ..q jsr e571 ;msdelay
15276 F81C CC B1 FA ... ldd #b1fa "COPYRIGHT "
15277 F81F BD C0 BA ... jsr c0ba ;display:
15278 F822 CC 01 F4 ... ldd #01f4
15279 F825 BD E5 71 ..q jsr e571 ;msdelay
15280 F828 CC B2 05 ... ldd #b205 " 1993 "
15281 F82B BD C0 BA ... jsr c0ba ;display:
15282 F82E CC 01 F4 ... ldd #01f4
15283 F831 BD E5 71 ..q jsr e571 ;msdelay
15284 F834 CC B2 10 ... ldd #b210 "5900 VER 5"
15285 F837 BD C0 BA ... jsr c0ba ;display:
15286 F83A CC 00 0A ... ldd #000a
15287 F83D BD E5 71 ..q jsr e571 ;msdelay
15290 F840 7F 00 7F ... clr 007f
15291 F843 7F 00 21 ..! clr 0021
15292 F846 7F 00 1F ... clr 001f
15293 F849 7F 00 1D ... clr 001d
15294 F84C 7F 00 1B ... clr 001b
15295 F84F 7F 00 19 ... clr 0019
15297 F852 F6 0B C0 ... ldab 0bc0
15298 F855 C4 01 .. andb #01
15299 F857 27 08 '. beq 08 ; to f861
15300 F859 CE 0B C1 ... ldx #0bc1
15301 F85C 1C 00 01 ... bset 00,x, #01 ; set changer powerup fail
15302 F85F 20 06 . bra 06 ; to f867
15303 F861 CE 0B C1 ... ldx #0bc1
15304 F864 1D 00 01 ... bclr 00,x, #01 ; clear changer powerup fail
15306 F867 F6 0B C0 ... ldab 0bc0
15307 F86A C4 04 .. andb #04
15308 F86C 27 08 '. beq 08 ; to f876
15309 F86E CE 0B C1 ... ldx #0bc1
15310 F871 1C 00 02 ... bset 00,x, #02 ; set card powerup fail
15311 F874 20 06 . bra 06 ; to f87c
15312 F876 CE 0B C1 ... ldx #0bc1
15313 F879 1D 00 02 .. bclr 00,x, #02 ; clear card powerup fail
15314 F87C CE 0B C1 ... ldx #0bc1
15315 F87F 1D 00 04 .. bclr 00,x, #04 ; clear link powerup fail
15316 F882 F6 0B C0 ... ldab 0bc0
15317 F885 C4 02 .. andb #02
15318 F887 27 2D '- beq 2d ; to f8b6
15319 F889 C6 3C .< ldab #3c
15320 F88B F7 00 31 ..1 stab 0031
15322 F88F CC 00 FF ... ldd #00ff
15323 F892 BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
15326 F897 FD 00 40 ..@ std 0040
15327 F89A C6 10 .. ldab #10
15328 F89C F7 10 2C .., stab 102c ; set 9N1
15329 F89F C6 2E .. ldab #2e
15330 F8A1 F7 10 2D ..- stab 102d ; enable SCI transmission
15331 F8A4 C6 03 .. ldab #03
15332 F8A6 F7 10 2B ..+ stab 102b ; set 9600 baud
15333 F8A9 C6 46 .F ldab #46 ; 70 01000110
15334 F8AB F7 00 2F ../ stab 002f
15335 F8AE CC 07 D0 ... ldd #07d0
15336 F8B1 BD E5 71 ..q jsr e571 ;msdelay
15337 F8B4 20 2B + bra 2b ; to f8e1
15338 F8B6 BD D0 94 ... jsr d094 ;jump66 - init variables
15339 F8B9 C6 27 .' ldab #27
15340 F8BB F7 10 2D ..- stab 102d ; disable SCI transmission
15341 F8BE C6 07 .. ldab #07
15342 F8C0 F7 10 2B ..+ stab 102b ; set 600 baud
15343 ; reset the changer
15344 F8C3 CE 00 1A ... ldx #001a
15345 F8C6 1C 00 04 .. bset 00,x, #04
15346 F8C9 F6 00 1A ... ldab 001a
15347 F8CC F7 30 00 .0. stab 3000 ; reset the changer
15348 F8CF CC 07 D0 ... ldd #07d0
15349 F8D2 BD E5 71 ..q jsr e571 ;msdelay
15350 F8D5 CE 00 1A ... ldx #001a
15351 F8D8 1D 00 04 .. bclr 00,x, #04
15352 F8DB F6 00 1A ... ldab 001a
15353 F8DE F7 30 00 .0. stab 3000 ; pull reset line back
15355 F8E1 7F 0E 6A ..j clr 0e6a
15356 F8E4 BD D4 79 ..y jsr d479 ;jump67
15357 F8E7 BD E8 9A ... jsr e89a ;jump68
15358 F8EA 7F 00 06 ... clr 0006
15359 F8ED CE 00 1D ... ldx #001d
15360 F8F0 1C 00 10 .. bset 00,x, #10
15361 F8F3 CC 05 DC ... ldd #05dc
15362 F8F6 BD E5 71 ..q jsr e571 ;msdelay
15363 F8F9 C6 1E .. ldab #1e
15364 F8FB F7 00 35 ..5 stab 0035
15367 ; begin of main loop
15370 F8FF BD E6 1B ... jsr e61b ;jump4 set 0031 to 10
15371 F902 BD D1 05 ... jsr d105 ;motors_off
15372 F905 F6 10 0A ... ldab 100a
15373 F908 C4 08 .. andb #08 ; 24VUN line too low
15374 F90A 27 46 'F beq 46 ; to f952
15375 F90C F6 10 0A ... ldab 100a
15376 F90F C4 08 .. andb #08
15377 F911 27 11 '. beq 11 ; to f924
15378 F913 CE 00 1A ... ldx #001a
15379 F916 1C 00 04 .. bset 00,x, #04
15380 F919 F6 00 1A ... ldab 001a
15381 F91C F7 30 00 .0. stab 3000 ; changer reset
15382 F91F BD E6 1B ... jsr e61b ;jump4 put #0a => 0031
15383 F922 20 E8 . bra e8 ; to f90c
15385 F924 BD D0 94 ... jsr d094 ;jump66 - reset some variables to defaults?
15386 F927 F6 0B C0 ... ldab 0bc0
15387 F92A C4 01 .. andb #01
15388 F92C 27 06 '. beq 06
15389 F92E CE 0B C1 ... ldx #0bc1
15390 F931 1C 00 01 .. bset 00,x, #01 ; set changer powerup fail
15391 F934 F6 0B C0 ... ldab 0bc0
15392 F937 C4 04 .. andb #04
15393 F939 27 06 '. beq 06
15394 F93B CE 0B C1 ... ldx #0bc1
15395 F93E 1C 00 02 .. bset 00,x, #02 ; set card powerup fail
15396 F941 CE 00 1A ... ldx #001a
15397 F944 1D 00 04 .. bclr 00,x, #04
15398 F947 F6 00 1A ... ldab 001a
15399 F94A F7 30 00 .0. stab 3000 ; clear send & reset lines
15400 F94D C6 1E .. ldab #1e
15401 F94F F7 00 35 ..5 stab 0035
15403 ; end of power line test
15406 ; chat to the bill validator if we need to
15408 F952 F6 0B C0 ... ldab 0bc0
15409 F955 C4 08 .. andb #08
15410 F957 27 16 '. beq 16 ; to f96f if no bill validator
15411 F959 CE 00 02 ... ldx #0002
15413 F95D CC 10 00 ... ldd #1000
15414 F960 BD E5 D7 ... jsr e5d7 ;jump69 - poll bill validator
15416 F964 83 00 00 ... subd #0000
15417 F967 27 06 '. beq 06
15418 F969 CE 0B C1 ... ldx #0bc1
15419 F96C 1C 00 08 .. bset 00,x, #08 ; set bill error bit
15421 F96F F6 0B C1 ... ldab 0bc1
15422 F972 C4 07 .. andb #07 ; was there a power failure?
15423 F974 27 0D '. beq 0d ; to f983
15424 F976 F6 00 35 ..5 ldab 0035
15425 F979 26 08 &. bne 08
15426 F97B CE 00 21 ..! ldx #0021
15427 F97E 1C 00 20 .. bset 00,x, #20
15428 F981 20 06 .. bra 06 ; to f989
15431 F983 CE 00 21 ..! ldx #0021
15432 F986 1D 00 20 .. bclr 00,x, #20
15433 F989 BD BB 63 . jsr bb63 ;jump200 - read the keypad
15434 F98C BD B8 00 ... jsr b800 ;jump201 - interpret the keys and write to the display
15435 F98F F6 0B C0 ... ldab 0bc0
15436 F992 C4 01 .. andb #01
15437 F994 27 0B '. beq 0b
15438 F996 FC 00 40 ..@ ldd 0040
15439 F999 F3 00 3E ..> addd 003e
15440 F99C 26 03 &. bne 03
15441 F99E BD D6 F6 ... jsr d6f6 ;jump106
15442 F9A1 F6 00 12 ... ldab 0012
15443 F9A4 C4 20 . andb #20 ; test door switch
15444 F9A6 27 08 '. beq 08 ; to f9b0
15445 F9A8 F6 00 35 ..5 ldab 0035
15446 F9AB 26 03 &. bne 03
15447 F9AD 7E FA 79 ~.y jmp fa79 ;goto83
15449 F9B0 CE 00 1F ... ldx #001f
15450 F9B3 1D 00 04 ... bclr 00,x, #04
15451 F9B6 CE 00 1D ... ldx #001d
15452 F9B9 1C 00 10 ... bset 00,x, #10
15453 F9BC F6 00 1F ... ldab 001f
15454 F9BF C4 20 . andb #20
15455 F9C1 26 03 &. bne 03
15456 F9C3 7E FA 74 ~.t jmp fa74 ;goto84 if 001f is clear
15457 F9C6 F6 0B C0 ... ldab 0bc0
15458 F9C9 C4 01 .. andb #01
15459 F9CB 27 08 '. beq 08
15460 F9CD CE 0B C1 ... ldx #0bc1
15461 F9D0 1C 00 01 ... bset 00,x, #01 ; set changer powerup error
15462 F9D3 20 06 . bra 06
15463 F9D5 CE 0B C1 ... ldx #0bc1
15464 F9D8 1D 00 01 ... bclr 00,x, #01 ; unset changer powerup error
15465 F9DB F6 0B C0 ... ldab 0bc0
15466 F9DE C4 04 .. andb #04
15467 F9E0 27 08 '. beq 08
15468 F9E2 CE 0B C1 ... ldx #0bc1
15469 F9E5 1C 00 02 ... bset 00,x, #02 ; set card powerup error
15470 F9E8 20 06 . bra 06
15471 F9EA CE 0B C1 ... ldx #0bc1
15472 F9ED 1D 00 02 ... bclr 00,x, #02 ; unset card powerup error
15473 F9F0 CE 0B C1 ... ldx #0bc1
15474 F9F3 1D 00 04 ... bclr 00,x, #04 ; unset link powerup error
15475 F9F6 CE 00 1B ... ldx #001b
15476 F9F9 1D 00 02 ... bclr 00,x, #02
15477 F9FC F6 0B C0 ... ldab 0bc0
15478 F9FF C4 02 .. andb #02
15479 FA01 27 27 '' beq 27 ; to fa2a
15481 FA03 C6 3C .< ldab #3c ; 62 00111100
15482 FA05 F7 00 31 ..1 stab 0031
15484 FA09 CC 00 FF ... ldd #00ff
15485 FA0C BD C7 E7 ... jsr c7e7 ;jump37 - send #ff to coin mech
15488 FA11 FD 00 40 ..@ std 0040
15489 FA14 C6 10 .. ldab #10
15490 FA16 F7 10 2C .., stab 102c ; set 9N1
15491 FA19 C6 2E .. ldab #2e
15492 FA1B F7 10 2D ..- stab 102d ; enable SCI transmission
15493 FA1E C6 03 .. ldab #03
15494 FA20 F7 10 2B ..+ stab 102b ; 9600 baud
15495 FA23 C6 46 .F ldab #46 ; 70 01000110
15496 FA25 F7 00 2F ../ stab 002f
15497 FA28 20 31 1 bra 31 ; to fa5b
15499 FA2A CE 00 21 ..! ldx #0021
15500 FA2D 1D 00 40 ... bclr 00,x, #40
15501 FA30 BD D0 94 ... jsr d094 ;jump66 - init variables
15502 FA33 C6 27 .' ldab #27
15503 FA35 F7 10 2D ..- stab 102d ; disable SCI transmission
15504 FA38 C6 07 .. ldab #07
15505 FA3A F7 10 2B ..+ stab 102b ; 600 baud
15506 FA3D CE 00 1A ... ldx #001a
15507 FA40 1C 00 04 ... bset 00,x, #04
15508 FA43 F6 00 1A ... ldab 001a
15509 FA46 F7 30 00 .0. stab 3000 ; changer reset line high
15510 FA49 CC 00 32 ..2 ldd #0032
15511 FA4C BD E5 71 ..q jsr e571 ;msdelay
15512 FA4F CE 00 1A ... ldx #001a
15513 FA52 1D 00 04 ... bclr 00,x, #04
15514 FA55 F6 00 1A ... ldab 001a
15515 FA58 F7 30 00 .0. stab 3000 ; changer reset line low
15517 FA5B BD D4 79 ..y jsr d479 ;jump67 - query all motors?
15518 FA5E BD E8 9A ... jsr e89a ;jump68
15519 FA61 BD BE 69 ..i jsr be69 ;displayreset
15520 FA64 7F 00 06 ... clr 0006
15521 FA67 CE 00 1F ... ldx #001f
15522 FA6A 1D 00 20 .. bclr 00,x, #20
15523 FA6D C6 1E . ldab #1e
15524 FA6F F7 00 35 ...5 stab 0035
15525 FA72 20 03 . bra 03
15527 FA74 BD DE E7 ... jsr dee7 ;jump116
15528 FA77 20 66 f bra 66
15530 FA79 F6 00 12 ... ldab 0012
15531 FA7C C4 20 . andb #20
15532 FA7E 27 5F '_ beq 5f ; to fadf - restart loop
15533 FA80 F6 00 1F ... ldab 001f
15534 FA83 C4 20 . andb #20
15535 FA85 26 03 &. bne 03
15536 FA87 BD E5 AA ... jsr e5aa ;jump12
15537 FA8A CE 00 1F ... ldx #001f
15538 FA8D 1C 00 .. bset 00,x, #20
15539 FA8F F6 00 12 ... ldab 0012
15540 FA93 C4 01 .. andb #01
15541 FA95 26 33 &3 bne 33 ; to faca
15542 FA97 F6 00 1D ... ldab 001d
15543 FA9A C4 08 .. andb #08
15544 FA9C 27 2A '* beq 2a ; to fac8, to fad0
15545 FA9E F6 00 1F ... ldab 001f
15546 FAA1 C4 04 .. andb #04
15547 FAA3 26 14 &. bne 14 ; to fab9
15548 FAA5 CE 00 1F ... ldx #001f
15549 FAA8 1C 00 04 ... bset 00,x, #04
15550 FAAB CE 00 1F ... ldx #001f
15551 FAAE 1C 00 .. bset 00,x, #80
15552 FAB0 CC 02 33 .. ldd #0233
15553 FAB4 FD 00 3B ..; std 003b
15554 FAB7 20 09 . bra 09 ; to fac2
15556 FAB9 BD E5 AA ... jsr e5aa ;jump12 - beep if key pressed?
15557 FABC CE 00 1F ... ldx #001f
15558 FABF 1D 00 04 ... bclr 00,x, #04
15559 FAC2 CE 00 1D ... ldx #001d
15560 FAC5 1D 00 08 ... bclr 00,x, #08
15561 FAC8 20 06 . bra 06 ; to fad0
15563 FACA CE 00 1D ... ldx #001d
15564 FACD 1C 00 08 ... bset 00,x, #08
15565 FAD0 F6 00 1F ... ldab 001f
15566 FAD3 C4 04 .. andb #04
15567 FAD5 26 05 &. bne 05 ; to fadc - service menu
15568 FAD7 BD 81 00 ... jsr 8100 ;jump72 - preservice menu?
15569 FADA 20 03 . bra 03
15570 FADC BD 84 A0 ... jsr 84a0 ;jump73
15571 FADF 7E F8 FF ~.. jmp f8ff ;goto85
15572 ; main should never return in theory.
15575 ; error interrupts (see vectors at end)
15576 FAE2 CC B1 2E ... ldd #b12e ;"**ERROR***"
15577 FAE5 BD C0 BA ... jsr c0ba ;display:
15578 FAE8 CC 07 D0 ... ldd #07d0
15579 FAEB BD E5 71 ..q jsr e571 ;msdelay
15581 FAEF CC B1 2E ... ldd #b12e ;"**ERROR***"
15582 FAF2 BD C0 BA ... jsr c0ba ;display:
15583 FAF5 CC 07 D0 ... ldd #07d0
15584 FAF8 BD E5 71 ..q jsr e571 ;msdelay
15586 FAFC CC B1 2E ... ldd #b12e ;"**ERROR***"
15587 FAFF BD C0 BA ... jsr c0ba ;display:
15588 FB02 CC 07 D0 ... ldd #07d0
15589 FB05 BD E5 71 ..q jsr e571 ;msdelay
15591 FB09 CC B1 2E ... ldd #b12e ;"**ERROR***"
15592 FB0C BD C0 BA ... jsr c0ba ;display:
15593 FB0F CC 07 D0 ... ldd #07d0
15594 FB12 BD E5 71 ..q jsr e571 ;msdelay
15596 FB16 CC B1 2E ... ldd #b12e ;"**ERROR***"
15597 FB19 BD C0 BA ... jsr c0ba ;display:
15598 FB1C CC 07 D0 ... ldd #07d0
15599 FB1F BD E5 71 ..q jsr e571 ;msdelay
15601 FB23 CC B1 2E ... ldd #b12e ;"**ERROR***"
15602 FB26 BD C0 BA ... jsr c0ba ;display:
15603 FB29 CC 07 D0 ... ldd #07d0
15604 FB2C BD E5 71 ..q jsr e571 ;msdelay
15606 FB30 CC B1 2E ... ldd #b12e ;"**ERROR***"
15607 FB33 BD C0 BA ... jsr c0ba ;display:
15608 FB36 CC 07 D0 ... ldd #07d0
15609 FB39 BD E5 71 ..q jsr e571 ;msdelay
15611 FB3D CC B1 2E ... ldd #b12e ;"**ERROR***"
15612 FB40 BD C0 BA ... jsr c0ba ;display:
15613 FB43 CC 07 D0 ... ldd #07d0
15614 FB46 BD E5 71 ..q jsr e571 ;msdelay
15616 FB4A CC B1 2E ... ldd #b12e ;"**ERROR***"
15617 FB4D BD C0 BA ... jsr c0ba ;display:
15618 FB50 CC 07 D0 ... ldd #07d0
15619 FB53 BD E5 71 ..q jsr e571 ;msdelay
15621 FB57 CC B1 2E ... ldd #b12e ;"**ERROR***"
15622 FB5A BD C0 BA ... jsr c0ba ;display:
15623 FB5D CC 07 D0 ... ldd #07d0
15624 FB60 BD E5 71 ..q jsr e571 ;msdelay
15626 FB64 CC B1 2E ... ldd #b12e ;"**ERROR***"
15627 FB67 BD C0 BA ... jsr c0ba ;display:
15628 FB6A CC 07 D0 ... ldd #07d0
15629 FB6D BD E5 71 ..q jsr e571 ;msdelay
15631 FB71 CC B1 2E ... ldd #b12e ;"**ERROR***"
15632 FB74 BD C0 BA ... jsr c0ba ;display:
15633 FB77 CC 07 D0 ... ldd #07d0
15634 FB7A BD E5 71 ..q jsr e571 ;msdelay
15636 FB7E CC B1 2E ... ldd #b12e ;"**ERROR***"
15637 FB81 BD C0 BA ... jsr c0ba ;display:
15638 FB84 CC 07 D0 ... ldd #07d0
15639 FB87 BD E5 71 ..q jsr e571 ;msdelay
15641 FB8B CC B1 2E ... ldd #b12e ;"**ERROR***"
15642 FB8E BD C0 BA ... jsr c0ba ;display:
15643 FB91 CC 07 D0 ... ldd #07d0
15644 FB94 BD E5 71 ..q jsr e571 ;msdelay
15646 FB98 CC B1 2E ... ldd #b12e ;"**ERROR***"
15647 FB9B BD C0 BA ... jsr c0ba ;display:
15648 FB9E CC 07 D0 ... ldd #07d0
15649 FBA1 BD E5 71 ..q jsr e571 ;msdelay
15651 FBA5 CC B1 2E ... ldd #b12e ;"**ERROR***"
15652 FBA8 BD C0 BA ... jsr c0ba ;display:
15653 FBAB CC 07 D0 ... ldd #07d0
15654 FBAE BD E5 71 ..q jsr e571 ;msdelay
15656 FBB2 BD FE 69 ..i jsr fe69 ;reset
15658 FBB6 BD FE 69 ..i jsr fe69 ;reset
15662 ; passed a u16 on the stack, i, and a u16 in D, j
15663 ; i *think* it multiplies i*j and returns it in D.
15664 ; but the assembly seems to have several off-by-one errors
15668 FBBD E6 06 .. ldab 06,x ; lower 8-bits of i
15669 FBBF 3D = mul ; A*B => D
15670 FBC0 A6 00 .. ldaa 00,x
15672 FBC3 E6 05 .. ldab 05,x ; upper byte of return address??
15675 FBC7 1B . aba ; a now contains ad+bc
15678 FBCA A6 06 .. ldaa 06,x
15681 FBCE AB 00 .. adda 00,x
15683 FBD1 EC 03 .. ldd 03,x ; move saved value of X
15684 FBD3 ED 05 .. std 05,x ; into the return address???
15687 FBD7 83 00 00 ... subd #0000
15695 FBDF BD FB E8 ... jsr fbe8 ;jump86
15696 FBE2 BD FC 25 ..% jsr fc25 ;jump85
15697 FBE5 7E FC 04 ~.. jmp fc04 ;goto87
15702 FBEA EC 02 .. ldd 02,x
15705 FBEE EC 00 .. ldd 00,x
15714 FBF8 EC 12 .. ldd 12,x
15715 FBFA ED 04 .. std 04,x
15716 FBFC EC 0C .. ldd 0c,x
15717 FBFE ED 02 .. std 02,x
15718 FC00 EC 10 .. ldd 10,x
15723 FC04 ED 00 .. std 00,x
15726 FC08 EC 08 .. ldd 08,x
15727 FC0A ED 0A .. std 0a,x
15728 FC0C EC 02 .. ldd 02,x
15729 FC0E ED 0C .. std 0c,x
15731 FC11 ED 02 .. std 02,x
15732 FC13 EC 00 .. ldd 00,x
15733 FC15 26 06 &. bne 06
15734 FC17 6D 02 m. tst 02,x
15735 FC19 26 02 &. bne 02
15736 FC1B 6D 03 m. tst 03,x
15747 ; long addition function?
15750 FC27 E3 06 .. addd 06,x
15753 FC2B EC 02 .. ldd 02,x
15754 FC2D ED 06 .. std 06,x
15755 FC2F EC 04 .. ldd 04,x
15756 FC31 E3 08 .. addd 08,x
15757 FC33 ED 08 .. std 08,x
15760 FC37 C9 00 .. adcb #00
15761 FC39 89 00 .. adca #00
15762 FC3B 83 00 00 ... subd #0000
15763 FC3E 26 06 &. bne 06
15764 FC40 6D 08 m. tst 08,x
15765 FC42 26 02 &. bne 02
15766 FC44 6D 09 m. tst 09,x
15776 ; bigdivide: and bigmodulus: are a division function and a remainder function
15777 ; for stupidly huge numbers.
15780 ; the number in D is prepended to the number at the top of the stack
15781 ; eg, 0x0f in D and 0x4240 on stack => 0x0f4240 = 1000000
15794 FC57 A7 04 .. staa 04,x
15795 FC59 7E FC 6D ~.m jmp fc6d ;goto88
15807 FC66 86 01 .. ldaa #01
15808 FC68 A7 04 .. staa 04,x
15809 FC6A 7E FC 6D ~.m jmp fc6d ;goto88
15812 FC6D 1A EE 0E ... ldy 0e,x
15813 FC70 EC 08 .. ldd 08,x
15814 FC72 ED 0E .. std 0e,x
15815 FC74 EC 14 .. ldd 14,x
15816 FC76 ED 0C .. std 0c,x
15817 FC78 EC 12 .. ldd 12,x
15818 FC7A ED 0A .. std 0a,x
15819 FC7C 1A EF 12 ... sty 12,x
15822 FC81 ED 08 .. std 08,x
15823 FC83 ED 06 .. std 06,x
15824 FC85 EC 0A .. ldd 0a,x
15825 FC87 1A A3 0E ... cmpd 0e,x
15826 FC8A 22 23 "# bhi 23 ; to fcaf
15827 FC8C 27 15 '. beq 15 ; to fca3
15829 FC8E 1E 04 01 08 .... brset 04,x 01 08
15830 FC92 CC 00 00 ... ldd #0000
15831 FC95 ED 14 .. std 14,x
15832 FC97 7E FE 04 ~.. jmp fe04 ;goto89 - return
15833 FC9A EC 0C .. ldd 0c,x
15834 FC9C ED 14 .. std 14,x
15835 FC9E EC 0A .. ldd 0a,x
15836 FCA0 7E FD E3 ~.. jmp fde3 ;goto90
15838 FCA3 83 00 00 ... subd #0000
15839 FCA6 27 12 '. beq 12 ; to fcba
15840 FCA8 EC 0C .. ldd 0c,x
15841 FCAA 1A A3 10 ... cmpd 10,x
15842 FCAD 25 DF %. bcs df ; to fc8e
15844 FCAF 6D 0E m. tst 0e,x
15845 FCB1 26 70 &p bne 70 ; to fd23
15846 FCB3 6D 0F m. tst 0f,x
15847 FCB5 27 1A '. beq 1a ; to fcd1
15848 FCB7 7E FD A4 ~.. jmp fda4 ;goto91
15853 FCBE EC 0C .. ldd 0c,x
15854 FCC0 EE 10 .. ldx 10,x
15856 FCC3 18 1E 04 01 01 ..... brset 04,y 01 01
15859 FCCA ED 14 .. std 14,x
15862 FCCE 7E FD E3 ~.. jmp fde3 ;goto90
15867 FCD5 EC 0A .. ldd 0a,x
15868 FCD7 EE 10 .. ldx 10,x
15871 FCDB CD EF 0A ... stx 02x,y
15875 FCE1 CD EF 0E ... stx 02x,y
15877 FCE5 18 E3 0C ... addd 0c,y
15878 FCE8 24 1B $. bcc 1b ; to fd05
15880 FCEA 18 ED 0C ... std 0c,y
15882 FCEE C6 01 .. ldab #01
15886 FCF3 18 E3 0E ... addd 0e,y
15887 FCF6 24 03 $. bcc 03
15888 FCF8 18 6C 0A .l. inc 0a,y
15889 FCFB 18 ED 0E ... std 0e,y
15892 FD00 18 E3 0C ... addd 0c,y
15893 FD03 25 E5 %. bcs e5 ; to fcea
15897 FD07 18 E3 0E ... addd 0e,y
15898 FD0A 24 03 $. bcc 03
15899 FD0C 18 6C 0A .l. inc 0a,y
15900 FD0F 18 1F 04 01 07 ..... brclr 04,y 01 07
15902 FD15 18 6F 0A .o. clr 0a,y
15903 FD18 18 6F 0B .o. clr 0b,y
15905 FD1C ED 14 .. std 14,x
15906 FD1E EC 0A .. ldd 0a,x
15907 FD20 7E FD E3 ~.. jmp fde3 ;goto90
15909 FD23 86 08 .. ldaa #08 ; for i = 8
15910 FD25 A7 05 .. staa 05,x ; do
15911 FD27 69 0D i. rol 0d,x
15912 FD29 69 0C i. rol 0c,x
15913 FD2B 69 0B i. rol 0b,x
15914 FD2D 69 0A i. rol 0a,x
15915 FD2F 69 09 i. rol 09,x
15916 FD31 EC 0B .. ldd 0b,x
15917 FD33 A3 10 .. subd 10,x
15918 FD35 ED 14 .. std 14,x
15919 FD37 EC 09 .. ldd 09,x
15920 FD39 E2 0F .. sbcb 0f,x
15921 FD3B A2 0E .. sbca 0e,x
15922 FD3D 25 06 %. bcs 06 ; to fd45
15923 FD3F ED 09 .. std 09,x
15924 FD41 EC 14 .. ldd 14,x
15925 FD43 ED 0B .. std 0b,x
15926 FD45 6A 05 j. dec 05,x ; i--
15927 FD47 26 DE &. bne de ; to fd27
15929 FD49 69 0D i. rol 0d,x
15930 FD4B 1F 04 01 09 .... brclr 04,x 01 09 ; to fd58
15931 FD4F EC 0B .. ldd 0b,x
15932 FD51 ED 14 .. std 14,x
15933 FD53 EC 09 .. ldd 09,x
15934 FD55 7E FD E3 ~.. jmp fde3 ;goto90
15937 FD59 E6 0D .. ldab 0d,x
15939 FD5C ED 14 .. std 14,x
15941 FD5F 7E FD E3 ~.. jmp fde3 ;goto90
15943 FD62 86 10 .. ldaa #10 ; for i = 16
15944 FD64 A7 05 .. staa 05,x ; do
15945 FD66 69 0D i. rol 0d,x
15946 FD68 69 0C i. rol 0c,x
15947 FD6A 69 0B i. rol 0b,x
15948 FD6C 69 0A i. rol 0a,x
15949 FD6E 69 09 i. rol 09,x
15950 FD70 69 08 i. rol 08,x
15951 FD72 EC 0A .. ldd 0a,x
15952 FD74 A3 10 .. subd 10,x
15953 FD76 ED 14 .. std 14,x
15954 FD78 EC 08 .. ldd 08,x
15955 FD7A E2 0F .. sbcb 0f,x
15956 FD7C 82 00 .. sbca #00
15957 FD7E 25 06 %. bcs 06 ; continue
15958 FD80 ED 08 .. std 08,x
15959 FD82 EC 14 .. ldd 14,x
15960 FD84 ED 0A .. std 0a,x
15961 FD86 6A 05 j. dec 05,x ; i--
15962 FD88 26 DC &. bne dc ; to fd66
15964 FD8A 69 0D i. rol 0d,x
15965 FD8C 69 0C i. rol 0c,x
15966 FD8E 1F 04 01 08 .... brclr 04,x 01 08
15967 FD92 EC 0A .. ldd 0a,x
15968 FD94 ED 14 .. std 14,x
15969 FD96 EC 08 .. ldd 08,x
15970 FD98 20 49 I bra 49 ;goto90
15971 FD9A EC 0C .. ldd 0c,x
15974 FD9E ED 14 .. std 14,x
15977 FDA2 20 3F ? bra 3f ;goto90
15979 FDA4 2B BC +. bmi bc ; to fd62 if minus
15980 FDA6 86 10 .. ldaa #10 ; for i = 16
15981 FDA8 A7 05 .. staa 05,x ; do
15982 FDAA 69 0D i rol 0d,x
15983 FDAC 69 0C i rol 0c,x
15984 FDAE 69 0B i rol 08,x
15985 FDB0 69 0A i rol 0a,x
15986 FDB2 69 07 i rol 07,x
15987 FDB4 EC 0A .. ldd 0a,x
15988 FDB6 A3 10 .. subd 10,x
15989 FDB8 ED 14 .. std 14,x
15990 FDBA A6 07 .. ldaa 07,x
15991 FDBC A2 0F .. sbca 0f,x
15992 FDBE 25 06 %. bcs 06 ;continue
15993 FDC0 A7 07 .. staa 07,x
15994 FDC2 EC 14 .. ldd 14,x
15995 FDC4 ED 0A .. std 0a,x
15996 FDC6 6A 05 j. dec 05,x
15997 FDC8 26 E0 &. bne e0 ;reloop
15999 FDCA 69 0D i. rol 0d,x
16000 FDCC 69 0C i. rol 0c,x
16001 FDCE 1F 04 01 09 .... brclr 04,x 01 09 ;to fddb
16002 FDD2 EC 0A .. ldd 0a,x
16003 FDD4 ED 14 .. std 14,x
16005 FDD7 E6 07 .. ldab 07,x
16006 FDD9 20 08 . bra 08 ;goto90
16008 FDDB EC 0C .. ldd 0c,x
16011 FDDF ED 14 .. std 14,x
16015 FDE3 1F 04 80 12 .... brclr 04,x 80 12
16018 FDE9 63 14 c. com 14,x
16019 FDEB 63 15 c. com 15,x
16020 FDED 6C 15 l. inc 15,x
16021 FDEF 26 08 &. bne 08
16022 FDF1 6C 14 l. inc 14,x
16023 FDF3 26 04 &. bne 04
16025 FDF6 26 01 &. bne 01
16027 FDF9 83 00 00 ... subd #0000
16028 FDFC 26 06 &. bne 06
16029 FDFE 6D 14 m. tst 14,x
16030 FE00 26 02 &. bne 02
16031 FE02 6D 15 m. tst 15,x
16052 ; passed a structure (in code following the call to jump2) and a number D
16053 ; popular D candidates come from $48, $42, $9, $a, etc...
16054 ; D must be between 0 and len, inclusive.
16057 ; u16 jmplocs[len+2];
16060 FE17 A3 00 .. subd 00,x ; D -= var1
16061 FE19 2D 05 -. blt 05 ; if D<0, to fe20, where D=-1
16062 FE1B 1A A3 02 ... cmpd 02,x ;
16063 FE1E 2F 03 /. ble 03 ; if D > len, D=-1, else to fe23
16064 FE20 CC FF FF ... ldd #ffff
16065 FE23 3C < pshx ; push return ptr back onto stack
16066 FE24 05 . asld ; D *= 2
16068 FE26 E3 00 .. addd 00,x ; D += return-ptr
16069 FE28 C3 00 06 ... addd #0006 ; + 6
16071 FE2C EC 00 .. ldd 00,x ; return ptr = jmplocs[orig D]
16073 FE2F ED 00 .. std 00,x
16077 ; this looks like a switch statement
16078 ; we're passed an array of 4-byte items... this is passed in the code segment
16079 ; we take the return address and start counting until we hit a double zero.
16080 ; hence much of the code following this call in a standard disassembly is garbage
16081 ; we also look at D - common values passed to use are contents of $9, $12, $15, $4A or the SCI $102f
16083 FE33 6D 04 m. tst 04,x
16084 FE35 26 04 &. bne 04 ; to fe3b if this is not the last one
16085 FE37 6D 05 m. tst 05,x ; double check it really is last one.
16086 FE39 27 0A '. beq 0a ; to fe45
16087 FE3B A3 02 .. subd 02,x ; subtract lower order bits from D
16088 FE3D 27 06 '. beq 06 ; to fe45
16089 FE3F 08 . inx ; move the array index up one
16093 FE43 20 EE . bra ee ; to fe33
16094 FE45 EE 00 .. ldx 00,x ; return to our destination address
16095 FE47 6E 00 n. jmp 00,x
16099 ; Enable the Real-time Interrupt (periodic hw interrupt)
16100 FE49 86 40 .@ ldaa #40 ;40 -> A
16101 FE4B B7 10 24 ..$ staa 1024 ;A -> 1024
16102 ; Enable the ADC & configure IRQ' for edge-sensitive only operation
16103 FE4E 86 A0 .. ldaa #a0 ;a0 -> A
16104 FE50 B7 10 39 ..9 staa 1039 ;A -> 1039
16105 ; Set a stack pointer?
16106 FE53 8E 00 EF ... lds #00ef
16107 ; Zero out the first 128 bytes of ram.
16108 FE56 CE 00 00 ... ldx #0000 ;wipe 0000-007f X=0000
16109 FE59 8C 00 80 ... cpx #0080 ;loop: if X = 0080
16110 FE5C 24 05 $. bcc fe63 ; finished
16111 FE5E 6F 00 o. clr 00,x ; else: load addr X with 0
16112 FE60 08 . inx ; increment X
16113 FE61 20 F6 . bra fe59 ;repeat
16115 ; Jump to main procedure
16116 FE63 BD F7 D6 ... jsr f7d6 ;goto main:
16117 FE66 7E FE 6D ~.m jmp fe6d ; goto91
16119 ; Reboot function for when things go astray?
16120 FE69 0F . sei ;inhibit interrupts
16121 FE6A 7E FE 49 ~.I jmp fe49 ;goto reset:
16123 ; loop forever - called after main is exited.
16125 FE6D 20 FE . bra fe6d ;loop forever
16126 ;[SAF] - wait for interrupts?
16128 FE6F FF FF FF ... stx ffff
16129 FE72 FF FF FF ... stx ffff
16130 FE75 FF FF FF ... stx ffff
16131 FE78 FF FF FF ... stx ffff
16132 FE7B FF FF FF ... stx ffff
16133 FE7E FF FF FF ... stx ffff
16134 FE81 FF FF FF ... stx ffff
16135 FE84 FF FF FF ... stx ffff
16136 FE87 FF FF FF ... stx ffff
16137 FE8A FF FF FF ... stx ffff
16138 FE8D FF FF FF ... stx ffff
16139 FE90 FF FF FF ... stx ffff
16140 FE93 FF FF FF ... stx ffff
16141 FE96 FF FF FF ... stx ffff
16142 FE99 FF FF FF ... stx ffff
16143 FE9C FF FF FF ... stx ffff
16144 FE9F FF FF FF ... stx ffff
16145 FEA2 FF FF FF ... stx ffff
16146 FEA5 FF FF FF ... stx ffff
16147 FEA8 FF FF FF ... stx ffff
16148 FEAB FF FF FF ... stx ffff
16149 FEAE FF FF FF ... stx ffff
16150 FEB1 FF FF FF ... stx ffff
16151 FEB4 FF FF FF ... stx ffff
16152 FEB7 FF FF FF ... stx ffff
16153 FEBA FF FF FF ... stx ffff
16154 FEBD FF FF FF ... stx ffff
16155 FEC0 FF FF FF ... stx ffff
16156 FEC3 FF FF FF ... stx ffff
16157 FEC6 FF FF FF ... stx ffff
16158 FEC9 FF FF FF ... stx ffff
16159 FECC FF FF FF ... stx ffff
16160 FECF FF FF FF ... stx ffff
16161 FED2 FF FF FF ... stx ffff
16162 FED5 FF FF FF ... stx ffff
16163 FED8 FF FF FF ... stx ffff
16164 FEDB FF FF FF ... stx ffff
16165 FEDE FF FF FF ... stx ffff
16166 FEE1 FF FF FF ... stx ffff
16167 FEE4 FF FF FF ... stx ffff
16168 FEE7 FF FF FF ... stx ffff
16169 FEEA FF FF FF ... stx ffff
16170 FEED FF FF FF ... stx ffff
16171 FEF0 FF FF FF ... stx ffff
16172 FEF3 FF FF FF ... stx ffff
16173 FEF6 FF FF FF ... stx ffff
16174 FEF9 FF FF FF ... stx ffff
16175 FEFC FF FF FF ... stx ffff
16176 FEFF FF FF FF ... stx ffff
16177 FF02 FF FF FF ... stx ffff
16178 FF05 FF FF FF ... stx ffff
16179 FF08 FF FF FF ... stx ffff
16180 FF0B FF FF FF ... stx ffff
16181 FF0E FF FF FF ... stx ffff
16182 FF11 FF FF FF ... stx ffff
16183 FF14 FF FF FF ... stx ffff
16184 FF17 FF FF FF ... stx ffff
16185 FF1A FF FF FF ... stx ffff
16186 FF1D FF FF FF ... stx ffff
16187 FF20 FF FF FF ... stx ffff
16188 FF23 FF FF FF ... stx ffff
16189 FF26 FF FF FF ... stx ffff
16190 FF29 FF FF FF ... stx ffff
16191 FF2C FF FF FF ... stx ffff
16192 FF2F FF FF FF ... stx ffff
16193 FF32 FF FF FF ... stx ffff
16194 FF35 FF FF FF ... stx ffff
16195 FF38 FF FF FF ... stx ffff
16196 FF3B FF FF FF ... stx ffff
16197 FF3E FF FF FF ... stx ffff
16198 FF41 FF FF FF ... stx ffff
16199 FF44 FF FF FF ... stx ffff
16200 FF47 FF FF FF ... stx ffff
16201 FF4A FF FF FF ... stx ffff
16202 FF4D FF FF FF ... stx ffff
16203 FF50 FF FF FF ... stx ffff
16204 FF53 FF FF FF ... stx ffff
16205 FF56 FF FF FF ... stx ffff
16206 FF59 FF FF FF ... stx ffff
16207 FF5C FF FF FF ... stx ffff
16208 FF5F FF FF FF ... stx ffff
16209 FF62 FF FF FF ... stx ffff
16210 FF65 FF FF FF ... stx ffff
16211 FF68 FF FF FF ... stx ffff
16212 FF6B FF FF FF ... stx ffff
16213 FF6E FF FF FF ... stx ffff
16214 FF71 FF FF FF ... stx ffff
16215 FF74 FF FF FF ... stx ffff
16216 FF77 FF FF FF ... stx ffff
16217 FF7A FF FF FF ... stx ffff
16218 FF7D FF FF FF ... stx ffff
16219 FF80 FF FF FF ... stx ffff
16220 FF83 FF FF FF ... stx ffff
16221 FF86 FF FF FF ... stx ffff
16222 FF89 FF FF FF ... stx ffff
16223 FF8C FF FF FF ... stx ffff
16224 FF8F FF FF FF ... stx ffff
16225 FF92 FF FF FF ... stx ffff
16226 FF95 FF FF FF ... stx ffff
16227 FF98 FF FF FF ... stx ffff
16228 FF9B FF FF FF ... stx ffff
16229 FF9E FF FF FF ... stx ffff
16230 FFA1 FF FF FF ... stx ffff
16231 FFA4 FF FF FF ... stx ffff
16232 FFA7 FF FF FF ... stx ffff
16233 FFAA FF FF FF ... stx ffff
16234 FFAD FF FF FF ... stx ffff
16235 FFB0 FF FF FF ... stx ffff
16236 FFB3 FF FF FF ... stx ffff
16237 FFB6 FF FF FF ... stx ffff
16238 FFB9 FF FF FF ... stx ffff
16239 FFBC FF FF FF ... stx ffff
16240 FFBF FF FF FF ... stx ffff
16241 FFC2 FF FF FF ... stx ffff
16242 FFC5 FF FF FF ... stx ffff
16243 FFC8 FF FF FF ... stx ffff
16244 FFCB FF FF FF ... stx ffff
16245 FFCE FF FF FF ... stx ffff
16246 FFD1 FF FF FF ... stx ffff
16250 .word c81c ; SCI serial system (generic) - goes to sciinterrupt
16251 .word fae2 ; SPI serial transfer complete - flashes *** ERROR *** for a second
16252 .word faef ; Pulse accumulator input edge - flashes *** ERROR *** for a second
16253 .word fafc ; Pulse accumulator overflow - flashes *** ERROR *** for a second
16254 .word fb09 ; Timer overflow - flashes *** ERROR *** for a second
16255 .word fb16 ; Timer input capture 4 - flashes *** ERROR *** for a second
16256 .word fb23 ; Timer output compare 4 - flashes *** ERROR *** for a second
16257 .word fb30 ; Timer output compare 3 - flashes *** ERROR *** for a second
16258 .word fb3d ; Timer output compare 2 - flashes *** ERROR *** for a second
16259 .word fb4a ; Timer output compare 1 - flashes *** ERROR *** for a second
16260 .word fb57 ; Timer input capture 3 - flashes *** ERROR *** for a second
16261 .word fb64 ; Timer input capture 2 - flashes *** ERROR *** for a second
16262 .word fb71 ; Timer input capture 1 - flashes *** ERROR *** for a second
16263 .word f718 ; RT interrupt - does something useful :) (goto rti)
16264 .word fb7e ; IRQ pin - flashes *** ERROR *** for a second
16265 .word fb8b ; XIRQ pin - flashes *** ERROR *** for a second
16266 .word fb98 ; software interrupt - flashes *** ERROR *** for a second
16267 .word fba5 ; illegal opcode trap - flashes *** ERROR *** for a second
16268 .word fbb2 ; watchdog reset - reboot
16269 .word fbb6 ; clock monitor reset - reboot
16270 .word fe49 ; reset - reboot