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
13 ;0014 buffer for 3800 register
15 ;0016 new key state (cf 0029)
16 ;0017 bits 5-7 used mostly
19 ;001a buffer for 3000 register - initialised to 7F
20 ;001b bit 3 - denote motor fault?
21 ;001c used for loop variables
23 ;001f display related? bit 2. bit 4 denotes service mode
24 ;0021 lower 3 bits taken from SCI data somewhere
25 ; bit 5 denotes machine out of order
27 ;0026 used exclusively in SCI interrupt handler
28 ;0029 previous key state (cf 0016)
29 ;002c inhibits display writes?
30 ;0032 to do with the beeper (see jump52)
32 ;0035 only ever contains #1e
33 ;003b commonly contains $0233
35 ;003e mask for 0040? (see f996)
38 ;0042 current key press
41 ;0052 win-a-snack odds (in ram)
43 ;0056 last known keypad row 1 state
44 ;005b last known keypad row 0 state
46 ;005e Y in location XY (row?) cents1
47 ;005f X in location XY (column?) cents2
52 ;0800 motor information array - each is a 16-bit value
54 ;08c8 array of prices of each slot??
56 ;0b90 - 0b99 display buffer (backwards)
57 ;0b9a - some sort of id? press 89 on the machine
60 ;0bb5 win-a-snack odds (is this in NVRAM?)
62 ;0bd8 related to 0017 and 0021 (only lower 3 bits used)
65 ;0bc1 error status: (from jump72)
66 ; bit0: changer powerup
73 ;0bc2 - 0bce SCI read into these locations
75 ;0bc4 array index into 0bc7
77 ;0bc6 another array index into 0bc7
88 ;0cbc serial number (string)
89 ;0ccc machine ID (string)
90 ;0ce7 audit number (1-bit)
91 ;0cd9 counter of something - reset to 4 on some serial input
92 ;0cda counter of something - reset to 4 on some serial input
93 ;0cdb also counts something - reset to 4 on some serial input
94 ;0dff - 0e04 keypad buffer - most recent in 0e04
95 ;0e05 array index of the array to follow
96 ;0e06 - ?? array of digits*10
99 ;1016 - timer output compare 1 register
101 ;1028 SPCR (Serial Peripheral Control Register)
107 ;1800 Internal switches
123 ; 1 Language selection
124 ; 0 Language selection
125 ;Rows are numbered 1-9, skipping 5. There is no row 5.
135 ;Motor driver data is sent cols 7, 6, 5, 4, 3, 2, 1, 0 rows 9, 8, 7, 6, 4, 3, 2
136 ;1. Cols 8 and 9 are separate outputs (they ran out of driver chip outputs).
137 ;Motor driver column output enable is PA6
138 ;Motor driver serial clock is PA5
139 ;It looks like motor overcurrent sense is on PE1 (PE1 will be low if a motor
140 ;is drawing too much current)
141 ; the changer speaks at 600 baud, where as the coin validator speaks
142 ; 9600 baud. and printer at 2400.
143 ;3000 changer outputs
144 ; 7 motor driver row output enable
154 ; 6 col 9 motor driver
155 ; 5 col 8 motor driver
156 ; 4 motor driver serial data
157 ; 3 display write (clock) enable (active high)
159 ; 1 note acceptor connector
160 ; 0 note acceptor connector
166 ; PortA - Data: 0x1000, DDR for PA7 & PA3 in 0x1026
167 ; PA7 display reset (active low)
168 ; PA6 enables motor column drivers (when low)
169 ; PA5 clocks snack motor drivers (U16 5890 = serial-input latched source drivers (latch unused))
170 ; PA4 beepy thang (active high)
171 ; PA3 high - talking to coin vendie, low - talking to printer. (through PD1)
172 ; PA2 coin dispenser pin 6 (does what???)
173 ; PA1 bill validator 2
174 ; PA0 bill validator 1
176 ; PortB - not used directly
177 ; PB7 Address lines 8-15
186 ; PortC - Data: 0x1003, Latch: 0x1005, DDR: 0x1007
187 ; PC7 Data Bus 0-7 / Address bus 0-7
196 ; PortD - Data: 0x1008, DDR: 0x1009
199 ; PD5 keypad row select (output)
200 ; PD4 SPI - keypad & display clock signal (output)
201 ; PD3 display data (output)
202 ; PD2 keypad data (input)
203 ; PD1 RX of SCI - to coin disp or printer depending on PA3
204 ; PD0 TX of SCI - to coin disp or printer depending on PA3
206 ; PortE - Data: 0x100A
211 ; PE3 goes high when 24VUN line is *really* low (like 20V)
212 ; PE2 remote no-sale switch (active low)
213 ; PE1 motor overvoltage sense (active high)
214 ; PE0 motor overcurrent sense (active low)
405 80FB 93 73 00 .s. subd 73
410 ; initial menu when door opens?
411 8100 F6 00 1D ... ldab 001d
412 8103 C4 10 .. andb #10
414 8107 BD D6 52 ..R jsr d652 ;jump5
415 810A CE 00 1D ... ldx #001d
416 810D 1D 00 10 ... bclr 00,x, #10
417 8110 CE 00 1D ... ldx #001d
418 8113 1C 00 80 .. bset 00,x, #80
419 8116 7F 00 42 .. clr 0042
420 8119 7F 00 60 ..` clr 0060
421 811C 7F 00 48 ..H clr 0048
422 811F 7F 00 38 ..8 clr 0038
423 8122 F6 0B A8 ... ldab 0ba8
425 8127 CE 0B A9 ... ldx #0ba9
426 812A 1C 00 02 .. bset 00,x, #02
428 812F CE 0B A9 ... ldx #0ba9
429 8132 1D 00 02 ... bclr 00,x, #02
430 8135 7F 0E 00 ... clr 0e00
431 8138 7F 0E 01 ... clr 0e01
432 813B 7F 0E 02 ... clr 0e02
433 813E 7F 0E 03 ... clr 0e03
434 8141 7F 0E 04 ... clr 0e04
435 8144 F6 00 42 ..B ldab 0042
436 8147 C1 0B .. cmpb #0b
438 814B BD AB 89 ... jsr ab89 ;jump7
439 814E 7F 00 19 ... clr 0019
440 8151 7F 00 60 ..` clr 0060
441 8154 7F 00 42 ..B clr 0042
442 8157 BD E6 1B ... jsr e61b ;jump4
443 815A F6 0B A8 ... ldab 0ba8
445 815F 7E 81 EF ~.. jmp 81ef ;goto1
446 8162 F6 00 60 ..` ldab 0060
447 8165 C1 04 .. cmpb #04
449 8169 F6 00 42 ..B ldab 0042
451 816E F6 00 42 ..B ldab 0042
452 8171 C1 0A .. cmpb #0a
454 8175 7F 00 42 ..B clr 0042
455 8178 F6 00 42 ..B ldab 0042
456 817B CB 30 .0 addb #30
458 817E F6 00 60 ..` ldab 0060
460 8182 C3 00 62 ..b addd #0062
463 8187 E7 00 .. stab 00,x
464 8189 7F 00 42 ..B clr 0042
465 818C 7C 00 60 |.` inc 0060
467 8191 F6 00 62 ..b ldab 0062
468 8194 F1 0B A4 ... cmpb 0ba4
470 8199 F6 00 63 ..c ldab 0063
471 819C F1 0B A5 ... cmpb 0ba5
473 81A1 F6 00 64 ..d ldab 0064
474 81A4 F1 0B A6 ... cmpb 0ba6
476 81A9 F6 00 65 ..e ldab 0065
477 81AC F1 0B A7 ... cmpb 0ba7
479 81B1 CE 0B A9 ... ldx #0ba9
480 81B4 1D 00 02 ... bclr 00,x, #02
481 81B7 CE 00 1F ... ldx #001f
482 81BA 1C 00 04 .. bset 00,x, #04
483 81BD CE 00 1F ... ldx #001f
484 81C0 1C 00 80 ... bset 00,x, #80
485 81C3 CE 00 1D ... ldx #001d
486 81C5 1C 00 10 ... bset 00,x, #10
487 81C9 CC 02 33 ..3 ldd #0233
488 81CC FD 00 3B ..; std 003b
489 81CF C6 05 .. ldab #05
490 81D1 F7 00 38 ..8 stab 0038
492 81D6 7F 00 42 ..B clr 0042
493 81D9 7F 00 60 ..` clr 0060
494 81DC BD BE 69 ..i jsr be69 ;displayreset
495 81DF BD BE 4B ..K jsr be4b ;displayblank
496 81E2 CC B0 81 ... ldd #b081 ;"NO ACCESS"
497 81E5 BD C0 BA ... jsr c0ba ;display:
498 81E8 C6 0A .. ldab #0a
499 81EA F7 00 38 ..8 stab 0038
502 81EF 7F 00 42 ..B clr 0042
503 81F2 F6 00 38 ..8 ldab 0038
505 81F7 7E 84 9F ~.. jmp 849f ;goto2
506 81FA BD BE 4B ..K jsr be4b ;displayblank
507 81FD F6 00 48 ..H ldab 0048
509 8202 BD AB A2 ... jsr aba2 ;jump8
510 8205 F6 00 48 ..H ldab 0048
512 8209 BD FE 16 ... jsr fe16 ;jump2
514 820E 00 0D .... ; list len-2
529 822C 84 78 .x ; end of jump2 data
530 822E F6 00 19 ... ldab 0019
531 8231 C4 01 .. andb #01
533 8235 CC AF F2 ... ldd #aff2 ;"OVER CRNT="
534 8238 BD C0 BA ... jsr c0ba ;display:
535 823B C6 0A .. ldab #0a
536 823D F7 00 38 ..8 stab 0038
537 8240 7F 00 54 ..T clr 0054
538 8243 7C 00 48 |.H inc 0048
540 8248 C6 02 .. ldab #02
541 824A F7 00 48 ..H stab 0048
542 824D 7E 84 9F ~.. jmp 849f ;goto2
543 8250 F6 00 54 ..T ldab 0054
545 8254 CE 00 05 ... ldx #0005
549 825B F6 00 54 ..T ldab 0054
550 825E F7 00 06 ... stab 0006
551 8261 F6 00 06 ... ldab 0006
552 8264 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
553 8267 83 00 00 ... subd #0000
555 826C CC 7F FF ... ldd #7fff
558 8271 F6 00 06 ... ldab 0006
561 8276 C3 08 00 ... addd #0800
564 827B A4 00 .. anda 00,x
565 827D E4 01 .. andb 01,x
566 827F ED 00 .. std 00,x
567 8281 F6 00 54 ..T ldab 0054
570 8286 C3 08 00 ... addd #0800
572 828A EC 00 .. ldd 00,x
573 828C 84 80 .. anda #80
575 8290 F6 00 54 ..T ldab 0054
578 8295 C3 08 C8 ... addd #08c8
580 8299 EC 00 .. ldd 00,x
581 829B 84 02 .. anda #02
583 829F BD 98 A5 ... jsr 98a5 ;jump11
584 82A2 C6 0A .. ldab #0a
585 82A4 F7 00 38 ..8 stab 0038
586 82A7 7C 00 54 |.T inc 0054
587 82AA F6 00 54 ..T ldab 0054
588 82AD C1 64 .d cmpb #64
590 82B1 7C 00 48 |.H inc 0048
591 82B4 7E 84 9F ~.. jmp 849f ;goto2
592 82B7 F6 00 19 ... ldab 0019
593 82BA C4 02 .. andb #02
595 82BE CC AF FD ... ldd #affd "HOME FAIL="
596 82C1 BD C0 BA ... jsr c0ba ;display:
597 82C4 C6 0A .. ldab #0a
598 82C6 F7 00 38 ..8 stab 0038
599 82C9 7F 00 54 ..T clr 0054
600 82CC 7C 00 48 |.H inc 0048
602 82D1 C6 04 .. ldab #04
603 82D3 F7 00 48 ..H stab 0048
604 82D6 7E 84 9F ~.. jmp 849f ;goto2
605 82D9 F6 00 54 ..T ldab 0054
607 82DD CE 00 05 ... ldx #0005
611 82E4 F6 00 54 ..T ldab 0054
612 82E7 F7 00 06 ... stab 0006
613 82EA F6 00 06 ... ldab 0006
614 82ED BD D7 A0 ... jsr d7a0 ;is_invalid_slot
615 82F0 83 00 00 ... subd #0000
617 82F5 CC 7F FF ... ldd #7fff
620 82FA F6 00 06 ... ldab 0006
623 82FF C3 08 00 ... addd #0800
626 8304 A4 00 .. anda 00,x
627 8306 E4 01 .. andb 01,x
628 8308 ED 00 .. std 00,x
629 830A F6 00 54 ..T ldab 0054
632 830F C3 08 00 ... addd #0800
634 8313 EC 00 .. ldd 00,x
635 8315 84 80 .. anda #80
637 8319 F6 00 54 ..T ldab 0054
640 831E C3 08 C8 ... addd #08c8
642 8322 EC 00 .. ldd 00,x
643 8324 84 04 .. anda #04
645 8328 BD 98 A5 ... jsr 98a5 ;jump11
646 832B C6 0A .. ldab #0a
647 832D F7 00 38 ..8 stab 0038
648 8330 7C 00 54 |.T inc 0054
649 8333 F6 00 54 ..T ldab 0054
650 8336 C1 64 .d cmpb #64
652 833A 7C 00 48 |.H inc 0048
653 833D 7E 84 9F ~.. jmp 849f ;goto2
654 8340 F6 00 19 ... ldab 0019
655 8343 C4 04 .. andb #04
657 8347 CC B0 08 ... ldd #b008 ; "CHK PRICES"
658 834A BD C0 BA ... jsr c0ba ;display:
659 834D C6 0A .. ldab #0a
660 834F F7 00 38 ..8 stab 0038
661 8352 7F 00 54 ..T clr 0054
662 8355 7C 00 48 |.H inc 0048
664 835A C6 06 .. ldab #06
665 835C F7 00 48 ..H stab 0048
666 835F 7E 84 9F ~.. jmp 849f ;goto2
667 8362 F6 00 54 ..T ldab 0054
669 8366 CE 00 05 ... ldx #0005
673 836D F6 00 54 ..T ldab 0054
674 8370 F7 00 06 ... stab 0006
675 8373 F6 00 06 ... ldab 0006
676 8376 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
677 8379 83 00 00 ... subd #0000
679 837E F6 00 54 ..T ldab 0054
682 8383 C3 08 C8 ... addd #08c8
684 8387 EC 00 .. ldd 00,x
685 8389 84 01 .. anda #01
687 838D BD 98 A5 ... jsr 98a5 ;jump11
688 8390 C6 0A .. ldab #0a
689 8392 F7 00 38 ..8 stab 0038
690 8395 7C 00 54 |.T inc 0054
691 8398 F6 00 54 ..T ldab 0054
692 839B C1 64 .d cmpb #64
694 839F 7C 00 48 |.H inc 0048
695 83A2 7E 84 9F ~.. jmp 849f ;goto2
697 83A5 F6 0B C1 ... ldab 0bc1
698 83A8 C4 01 .. andb #01
700 83AC CC B0 34 ..4 ldd #b034 "CHGR PWRUP"
701 83AF BD C0 BA ... jsr c0ba ;display:
702 83B2 7C 00 48 |.H inc 0048
703 83B5 C6 0A .. ldab #0a
704 83B7 F7 00 38 ..8 stab 0038
706 83BC 7C 00 48 |.H inc 0048
707 83BF 7E 84 9F ~.. jmp 849f ;goto2
708 83C2 F6 0B C1 ... ldab 0bc1
709 83C5 C4 02 .. andb #02
711 83C9 CC B0 4A ..J ldd #b04a "CARD PWRUP"
712 83CC BD C0 BA ... jsr c0ba ;display:
713 83CF 7C 00 48 |.H inc 0048
714 83D2 C6 0A .. ldab #0a
715 83D4 F7 00 38 ..8 stab 0038
717 83D9 7C 00 48 |.H inc 0048
718 83DC 7E 84 9F ~.. jmp 849f ;goto2
719 83DF F6 0B C1 ... ldab 0bc1
720 83E2 C4 04 .. andb #04
722 83E6 CC B0 3F ..? ldd #b03f "LINK PWRUP"
723 83E9 BD C0 BA ... jsr c0ba ;display:
724 83EC 7C 00 48 |.H inc 0048
725 83EF C6 0A .. ldab #0a
726 83F1 F7 00 38 ..8 stab 0038
728 83F6 7C 00 48 |.H inc 0048
729 83F9 7E 84 9F ~.. jmp 849f ;goto2
730 83FC F6 0B C1 ... ldab 0bc1
731 83FF C4 10 .. andb #10
733 8403 CC B0 1E ... ldd #b01e "COIN JAM"
734 8406 BD C0 BA ... jsr c0ba ;display:
735 8409 7C 00 48 |.H inc 0048
736 840C C6 0A .. ldab #0a
737 840E F7 00 38 ..8 stab 0038
739 8413 7C 00 48 |.H inc 0048
740 8416 7E 84 9F ~.. jmp 849f ;goto2
741 8419 F6 0B C1 ... ldab 0bc1
742 841C C4 20 . andb #20
744 8420 CC B0 29 ..) ldd #b029 "BAD SENSOR"
745 8423 BD C0 BA ... jsr c0ba ;display:
746 8426 7C 00 48 |.H inc 0048
747 8429 C6 0A .. ldab #0a
748 842B F7 00 38 ..8 stab 0038
750 8430 7C 00 48 |.H inc 0048
752 8435 F6 0B C1 ... ldab 0bc1
753 8438 C4 08 .. andb #08
755 843C CC B0 55 ..U ldd #b055 "BILL ERROR"
756 843F BD C0 BA ... jsr c0ba ;display:
757 8442 7C 00 48 |.H inc 0048
758 8445 C6 0A .. ldab #0a
759 8447 F7 00 38 ..8 stab 0038
761 844C 7C 00 48 |.H inc 0048
763 8451 F6 0B C1 ... ldab 0bc1
764 8454 C4 40 .@ andb #40
766 8458 CC B0 60 ..` ldd #b060 "TUBE ERROR"
767 845B BD C0 BA ... jsr c0ba ;display:
768 845E 7F 00 48 ..H clr 0048
769 8461 C6 0A .. ldab #0a
770 8463 F7 00 38 ..8 stab 0038
772 8468 7F 00 48 ..H clr 0048
773 846B CC B0 13 ... ldd #b013 "HIT RESET "
774 846E BD C0 BA ... jsr c0ba ;display:
775 8471 C6 0A .. ldab #0a
776 8473 F7 00 38 ..8 stab 0038
777 8476 20 27 ' bra 27 ; to 849f (exit)
778 8478 F6 00 1D ... ldab 001d
780 847D CC AE A8 ... ldd #aea8 " SYSTEM "
781 8480 BD C0 BA ... jsr c0ba ;display:
782 8483 CE 00 1D ... ldx #001d
783 8486 1D 00 80 .. bclr 00,x, #80
784 8489 20 0C . bra 0c ; to 8496
785 848B CC AE B3 ... ldd #aeb3 " OK "
786 848E BD C0 BA ... jsr c0ba ;display:
787 8491 CE 00 1D ... ldx #001d
788 8494 1C 00 80 .. bset 00,x, #80
789 8496 C6 0F .. ldab #0f
790 8499 F7 00 38 ..8 stab 0038
791 849C 7F 00 48 ..H clr 0048
797 84A0 FC 00 3B ..; ldd 003b
799 84A5 7E 85 96 ~.. jmp 8596 ;goto3
800 84A8 F6 00 1F ... ldab 001f
802 84AD BD D6 52 ..R jsr d652 ;jump5
803 84B0 7F 00 42 ..B clr 0042
804 84B3 7F 00 09 ... clr 0009
805 84B6 7F 00 0A ... clr 000a
806 84B9 7F 00 06 ... clr 0006
809 84BE FD 00 40 ..@ std 0040
812 84C3 FD 00 3E ..> std 003e
813 84C6 BD E5 AA ... jsr e5aa ;jump12
814 84C9 CE 00 1F ... ldx #001f
815 84CC 1D 00 80 .. bclr 00,x, #80
816 84CF CE 00 1F .. ldx #001f
817 84D2 1C 00 02 .... bset 00,x, #02
818 84D5 CE 00 1D ... ldx #001d
819 84D8 1C 00 10 .. bset 00,x, #10
820 84DB CE 00 17 ... ldx #0017
821 84DE 1D 00 20 .. bclr 00,x, #20
822 84E0 CE 00 17 . ldx #0017
823 84E4 1D 00 40 .. bclr 00,x, #40
824 84E7 CE 00 17 ... ldx #0017
825 84EA 1D 00 80 .. bclr 00,x, #80
826 84EC F6 0B A9 ... ldab 0ba9
827 84F0 C4 02 .. andb #02
828 84F2 27 20 ' beq 20 ; to 8414
829 84F4 F6 00 42 ..B ldab 0042
831 84F8 C3 0B E4 ... addd #0be4
833 84FC E6 00 .. ldab 00,x
835 8500 BD BE 4B ..K jsr be4b ;displayblank
836 8503 CC B0 81 ... ldd #b081 ;"NO ACCESS"
837 8506 BD C0 BA ... jsr c0ba ;display:
838 8509 CC 02 58 ..X ldd #0258 ;600
839 850C BD E5 71 ..q jsr e571 ;msdelay
840 850F BD 85 AF ... jsr 85af ;jump14
841 8512 20 6C l bra 6c ; to 8580
843 8514 F6 00 42 ..B ldab 0042
845 8518 BD FE 16 ... jsr fe16 ;jump2
848 851F 85 80 .. ; default action - leave menu?
849 8521 85 39 .9 ; 0 - no key pressed
850 8523 85 4A .J ; key 1 - changer loading & calibration
851 8525 85 4F .O ; key 2 - win-a-snack odds programming
852 8527 85 54 .T ; key 3 - set pricing
853 8529 85 59 .Y ; key 4 - smart shopping discount
854 852B 85 5E .^ ; key 5 - manual peripheral config
855 852D 85 63 .c ; key 6 - promo vend-pair programming
856 852F 85 68 .h ; key 7 - POS message & serial id
857 8531 85 6D .m ; key 8 - print info
858 8533 85 72 .r ; key 9 - security code programming
859 8535 85 77 .w ; key 0 - motor menu
860 8537 85 7C .| ; reset key -
862 8539 CC AE 92 ... ldd #ae92 "- "
863 853C BD C0 BA ... jsr c0ba ;display:
864 853F 7F 00 42 ..B clr 0042
865 8542 CE 00 1F ... ldx #001f
866 8545 1C 00 02 .. bset 00,x, #02
868 854A BD 86 84 ... jsr 8684 ;jump15
870 854F BD 88 2E ... jsr 882e ;jump16
872 8554 BD 88 B8 ... jsr 88b8 ;jump17
874 8559 BD 8C B4 ... jsr 8cb4 ;jump18
876 855E BD 8E 35 ..5 jsr 8e35 ;jump19
878 8563 BD 8F 0D ... jsr 8f0d ;jump20
880 8568 BD 90 D1 ... jsr 90d1 ;jump21
882 856D BD 92 EE ... jsr 92ee ;jump22
884 8572 BD 93 A5 ... jsr 93a5 ;jump23
886 8577 BD 94 DD ... jsr 94dd ;jump24
888 857C 8D 31 .1 bsr 31 ;jump14
891 8580 7F 00 0A ... clr 000a
892 8583 F6 00 42 ..B ldab 0042
893 8586 C1 0A .. cmpb #0a
895 858A F6 00 42 ..B ldab 0042
896 858D C1 07 .. cmpb #07
898 8591 7F 00 09 ... clr 0009
901 8596 CE 00 1F ... ldx #001f
902 8599 1D 00 04 ... bclr 00,x, #04
903 859C CE 00 1F ... ldx #001f
904 859F 1C 00 .. bset 00,x, #80
905 85A2 CE 00 1D ... ldx #001d
906 85A5 1C 00 10 ... bset 00,x, #10
907 85A8 BD BE 69 ..i jsr be69 ;displayreset
908 85AB BD E5 AA ... jsr e5aa ;jump12
912 85AF 7F 00 42 ..B clr 0042
913 85B2 7F 00 06 ... clr 0006
914 85B5 CE 00 1F ... ldx #001f
915 85B8 1C 00 02 .. bset 00,x, #02
916 85BB BD BE 69 ..i jsr be69 ;displayreset
920 85BF F6 00 12 ... ldab 0012
921 85C2 C4 1E .. andb #1e ; 00011110
923 85C5 BD FE 32 ..2 jsr fe32 ;jump25
924 85C8 85 DE 00 0E .... ; 14 000 0111 0
925 85CC 86 08 00 08 .... ; 22 000 1011 0
926 85D0 86 32 00 04 .... ; 26 000 1101 0
927 85D4 86 5C 00 02 .... ; 28 000 1110 0
928 85D8 86 83 FF E4 .... ; 0
929 85DC 00 00 .. ; end of array
930 85DE F6 0B DC ... ldab 0bdc
931 85E1 F7 00 01 ... stab 0001
932 85E4 BD C4 30 ..0 jsr c430 ;jump26
933 85E7 C6 01 .. ldab #01
934 85E9 F7 00 48 ..H stab 0048
935 85EC 7F 00 2C .., clr 002c
936 85EF F6 0C D9 ... ldab 0cd9
938 85F4 7A 0C D9 z.. dec 0cd9
939 85F7 BD 97 F6 ... jsr 97f6 ;jump27
940 85FA CC 01 5E ..^ ldd #015e
941 85FD BD E5 71 ..q jsr e571 ;msdelay
942 8600 CC 02 33 ..3 ldd #0233
943 8603 FD 00 3B ..; std 003b
945 8608 F6 0B DB ... ldab 0bdb
946 860B F7 00 01 ... stab 0001
947 860E BD C4 30 ..0 jsr c430 ;jump26
948 8611 C6 02 .. ldab #02
949 8613 F7 00 48 ..H stab 0048
950 8616 7F 00 2C .., clr 002c
951 8619 F6 0C DA ... ldab 0cda
953 861E 7A 0C DA z.. dec 0cda
954 8621 BD 97 F6 ... jsr 97f6 ;jump27
955 8624 CC 01 5E ..^ ldd #015e
956 8627 BD E5 71 ..q jsr e571 ;msdelay
957 862A CC 02 33 ..3 ldd #0233
958 862D FD 00 3B ..; std 003b
960 8632 F6 0B DA ... ldab 0bda
961 8635 F7 00 01 ... stab 0001
962 8638 BD C4 30 ..0 jsr c430 ;jump26
963 863B C6 03 .. ldab #03
964 863D F7 00 48 ..H stab 0048
965 8640 7F 00 2C .., clr 002c
966 8643 F6 0C DB ... ldab 0cdb
968 8648 7A 0C DB z.. dec 0cdb
969 864B BD 97 F6 ... jsr 97f6 ;jump27
970 864E CC 01 5E ..^ ldd #015e
971 8651 BD E5 71 ..q jsr e571 ;msdelay
972 8654 CC 02 33 ..3 ldd #0233
973 8657 FD 00 3B ..; std 003b
975 865C C6 40 .@ ldab #40
976 865E F7 00 01 ... stab 0001
977 8661 BD C4 30 ..0 jsr c430 ;jump26
978 8664 C6 04 .. ldab #04
979 8666 F7 00 48 ..H stab 0048
980 8669 7F 00 2C .., clr 002c
981 866C F6 0C DC ... ldab 0cdc
983 8671 7A 0C DC z.. dec 0cdc
984 8674 BD 97 F6 ... jsr 97f6 ;jump27
985 8677 CC 01 5E ..^ ldd #015e
986 867A BD E5 71 ..q jsr e571 ;msdelay
987 867D CC 02 33 ..3 ldd #0233
988 8680 FD 00 3B ..; std 003b
992 ; changer load & calibrate menu
993 8684 F6 00 1F ... ldab 001f
994 8687 C4 02 .. andb #02
996 868B CE 00 1F ... ldx #001f
997 868E 1D 00 02 ... bclr 00,x, #02
998 8691 C6 01 .. ldab #01
999 8693 F7 00 48 ..H stab 0048
1000 8696 F6 0B C0 ... ldab 0bc0
1001 8699 C4 01 .. andb #01
1002 869B 27 16 '. beq 16
1003 869D C6 27 .' ldab #27
1004 869F F7 10 2D ..- stab 102d ; disable SCI transmission
1005 86A2 C6 07 .. ldab #07
1006 86A4 F7 10 2B ..+ stab 102b ; 600 baud
1007 86A7 CE 00 1A ... ldx #001a
1008 86AA 1D 00 01 .. bclr 00,x, #01
1009 86AD F6 00 1A ... ldab 001a
1010 86B0 F7 30 00 .0. stab 3000 ; changer accept on
1011 86B3 7E 87 E8 ~.. jmp 87e8 ;goto4
1012 86B6 F6 00 09 ... ldab 0009
1014 86BA BD FE 32 ..2 jsr fe32 ;jump25
1015 86BD 86 D7 00 00 .... ; no key
1016 86C1 87 39 00 01 .... ; key 1
1017 86C5 87 75 00 01 .... ; key 2
1018 86C9 87 C5 00 08 .... ; key 0
1019 86CD 87 D9 00 01 .... ; key reset
1020 86D1 87 E8 FF F5 .... ; no key
1021 86D5 00 00 .. ; end of array data
1022 86D7 C6 FF .. ldab #ff
1023 86D9 F7 0B BC ... stab 0bbc
1024 86DC F6 18 00 ... ldab 1800
1025 86DF 2D 29 -) blt 29
1026 86E1 F6 00 07 ... ldab 0007
1027 86E4 26 24 &$ bne 24
1028 86E6 CE 00 1A ... ldx #001a
1029 86E9 1D 00 02 .. bclr 00,x, #02
1030 86EC F6 00 1A ... ldab 001a
1031 86EF F7 30 00 .0. stab 3000 ; send msg to changer?
1032 86F2 CC 00 32 ..2 ldd #0032
1033 86F5 BD E5 71 ..q jsr e571 ;msdelay
1034 86F8 CE 00 1A ... ldx #001a
1035 86FB 1C 00 02 .. bset 00,x, #02
1036 86FE F6 00 1A ... ldab 001a
1037 8701 F7 30 00 .0. stab 3000 ; turn changer send line off
1038 8704 CC 02 33 ..3 ldd #0233
1039 8707 FD 00 3B ..; std 003b
1042 870C FD 00 40 ..@ std 0040
1045 8711 FD 00 3E ..> std 003e
1046 8714 F6 0B C0 ... ldab 0bc0
1047 8717 C4 01 .. andb #01
1048 8719 27 03 '. beq 03
1049 871B BD 85 BF ... jsr 85bf ;jump28
1050 871E BD DC A3 ... jsr dca3 ;jump29
1051 8721 BD 97 F6 ... jsr 97f6 ;jump27
1052 8724 CE 00 17 ... ldx #0017
1053 8727 1D 00 .. bclr add,x 00,x
1057 872D 1D 00 40 ... bclr 00,x, #40
1058 8730 CE 00 17 ... ldx #0017
1059 8733 1D 00 .. bclr add,x 00,x
1060 8735 80 7E .~ suba #7e
1062 8738 E8 F6 .. eorb f6,x
1065 873C 26 2F &/ bne 2f
1066 873E F6 00 48 ..H ldab 0048
1068 8742 BD FE 16 ... jsr fe16 ;jump2
1069 8745 00 01 00 03 . ; data for jump2
1074 8751 87 62 . ; end of data
1075 8753 7C 0C D9 |.. inc 0cd9
1077 8758 7C 0C DA |.. inc 0cda
1079 875D 7C 0C DB |.. inc 0cdb
1081 8762 7C 0C DC |.. inc 0cdc
1082 8765 BD 97 F6 ... jsr 97f6 ;jump27
1083 8768 C6 02 .. ldab #02
1084 876A F7 00 36 ..6 stab 0036
1085 876D CE 00 1B ... ldx #001b
1086 8770 1C 00 10 ... bset 00,x, #10
1088 8775 F6 00 36 ..6 ldab 0036
1089 8778 26 43 &C bne 43
1090 877A F6 00 48 ..H ldab 0048
1092 877E BD FE 16 ... jsr fe16 ;jump2
1098 8786 B5 87 8F ... bita 878f
1100 878A 99 87 A3 ... adca 87
1102 878E AD F6 .. jsr f6,x
1104 8791 D9 27 03 .'. adcb 27
1105 8794 7A 0C D9 z.. dec 0cd9
1107 8799 F6 0C DA ... ldab 0cda
1108 879C 27 03 '. beq 03
1109 879E 7A 0C DA z.. dec 0cda
1111 87A3 F6 0C DB ... ldab 0cdb
1112 87A6 27 03 '. beq 03
1113 87A8 7A 0C DB z.. dec 0cdb
1115 87AD F6 0C DC ... ldab 0cdc
1116 87B0 27 03 '. beq 03
1117 87B2 7A 0C DC z.. dec 0cdc
1118 87B5 BD 97 F6 ... jsr 97f6 ;jump27
1119 87B8 C6 02 .. ldab #02
1120 87BA F7 00 36 ..6 stab 0036
1121 87BD CE 00 1B ... ldx #001b
1122 87C0 1C 00 10 ... bset 00,x, #10
1124 87C5 7C 00 48 |.H inc 0048
1125 87C8 F6 00 48 ..H ldab 0048
1126 87CB C1 04 .. cmpb #04
1127 87CD 23 05 #. bls 05
1128 87CF C6 01 .. ldab #01
1129 87D1 F7 00 48 ..H stab 0048
1130 87D4 BD 97 F6 ... jsr 97f6 ;jump27
1132 87D9 CE 00 1A ... ldx #001a
1133 87DC 1C 00 01 .. bset 00,x, #01
1134 87DF F6 00 1A ... ldab 001a
1135 87E2 F7 30 00 .0. stab 3000 ; turn changer accept line off
1136 87E5 BD 85 AF ... jsr 85af ;jump14
1141 ;motor count procedure
1142 87E9 7F 00 05 ... clr 0005
1143 87EC 7F 00 54 ..T clr 0054
1144 87EF F6 00 54 ..T ldab 0054
1145 87F2 C1 50 .P cmpb #50 ; 80 entries in lookup table
1146 87F4 24 2E $. bcc 2e ; to 8824
1147 87F6 F6 00 54 ..T ldab 0054
1149 87FA C3 B0 D3 ... addd #b0d3 ; lookup table
1151 87FE E6 00 .. ldab 00,x
1152 8800 F7 00 06 ... stab 0006
1153 8803 F6 00 06 ... ldab 0006
1154 8806 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
1155 8809 83 00 00 ... subd #0000
1156 880C 26 11 &. bne 11
1157 880E BD D3 11 ... jsr d311 ;jump30 - test it
1158 8811 83 00 00 ... subd #0000
1159 8814 26 03 &. bne 03
1160 8816 7C 00 05 |.. inc 0005
1161 8819 CC 00 05 ... ldd #0005
1162 881C BD E5 71 ..q jsr e571 ;msdelay
1163 881F 7C 00 54 |.T inc 0054
1165 8824 BD 99 81 ... jsr 9981 ;jump144 - write "MOTORS XX" (from 0005)
1166 8827 CC 07 D0 ... ldd #07d0
1167 882A BD E5 71 ..q jsr e571 ;msdelay
1171 882E F6 00 1F ... ldab 001f
1172 8831 C4 02 .. andb #02
1173 8833 27 12 '. beq 12
1174 8835 FC 0B B5 ... ldd 0bb5
1175 8838 C4 FF .. andb #ff
1176 883A 84 01 .. anda #01
1177 883C FD 00 52 ..R std 0052
1178 883F CE 00 1F ... ldx #001f
1179 8842 1D 00 02 ... bclr 00,x, #02
1181 8847 F6 00 09 ... ldab 0009
1183 884B BD FE 32 ..2 jsr fe32 ;jump25
1184 884E 88 68 00 00 .... ; cancel.
1185 8852 88 6D 00 01 .... ; key 1 - increment
1186 8856 88 83 00 01 .... ; key 2 - decrement
1187 885A 88 A7 00 08 .... ; key 0 - saving
1188 885E 88 B4 00 01 .... ; reset
1189 8862 88 B7 FF F5 .... ; no key - return
1190 8866 00 00 .... ; end of array data
1192 8868 BD 9A 05 ... jsr 9a05 ;jump102 - write ODDS 1/
1193 886B 20 4A J bra 4a ; to 88b7 - return
1195 886D FC 00 52 ..R ldd 0052
1196 8870 83 01 F4 ... subd #01f4 ; 500
1197 8873 24 09 $. bcc 09 ; dont let them go above 500
1198 8875 FC 00 52 ..R ldd 0052
1199 8878 C3 00 32 ..2 addd #0032 ; +50
1200 887B FD 00 52 ..R std 0052
1201 887E BD 9A 05 ... jsr 9a05 ;jump102 - write ODDS 1/
1204 8883 FC 00 52 ..R ldd 0052
1205 8886 83 00 32 ..2 subd #0032 ; 50
1206 8889 23 17 #. bls 17 ; dont let them go below 50
1207 888B FC 00 52 ..R ldd 0052
1208 888E C3 FF CE ... addd #ffce ; -50
1209 8891 FD 00 52 ..R std 0052
1210 8894 FC 00 52 ..R ldd 0052
1211 8897 83 00 32 ..2 subd #0032 ; 50
1212 889A 24 06 $. bcc 06
1213 889C CC 00 32 ..2 ldd #0032 ; 100
1214 889F FD 00 52 ..R std 0052
1215 88A2 BD 9A 05 ... jsr 9a05 ;jump102 - write ODDS 1/
1218 88A7 BD A3 7C ..| jsr a37c ;jump141 - save
1221 88AC FD 0B B9 ... std 0bb9
1222 88AF BD 85 AF ... jsr 85af ;jump14
1224 88B4 BD 85 AF ... jsr 85af ;jump14
1229 88B8 F6 00 1F ... ldab 001f
1230 88BB C4 02 .. andb #02
1231 88BD 26 0A &. bne 0a
1232 88BF F6 00 3A ..: ldab 003a
1233 88C2 26 28 &( bne 28
1234 88C4 F6 00 1D ... ldab 001d
1235 88C7 2D 23 -# blt 23
1236 88C9 7F 00 2C .., clr 002c
1237 88CC CC AE 9D ... ldd #ae9d "SET PRICE?"
1238 88CF BD C0 BA ... jsr c0ba ;display:
1239 88D2 CE 00 1F ... ldx #001f
1240 88D5 1D 00 02 .. bclr 00,x, #02
1241 88D8 CE 00 1F ... ldx #001f
1242 88DB 1D 00 40 .. bclr 00,x, #40
1243 88DE CE 00 1D ... ldx #001d
1244 88E1 1D 00 80 .. bclr 00,x, #80
1245 88E4 7F 00 54 ... clr 0054
1246 88E7 C6 32 .2 ldab #32
1247 88E9 F7 00 3A ..: stab 003a
1248 88EC F6 00 09 ... ldab 0009
1249 88EF 26 03 &. bne 03
1250 88F1 7E 89 E1 ~.. jmp 89e1 ;goto5
1251 88F4 F6 00 1D ... ldab 001d
1252 88F7 2C 03 ,. bge 03
1253 88F9 7E 89 E1 ~.. jmp 89e1 ;goto5
1254 88FC F6 00 09 ... ldab 0009
1255 88FF C1 0B .. cmpb #0b
1256 8901 26 06 &. bne 06
1257 8903 BD 85 AF ... jsr 85af ;jump14
1258 8906 7E 89 DE ~.. jmp 89de ;goto6
1259 8909 F6 00 54 ..T ldab 0054
1260 890C 26 26 && bne 26
1261 890E BD BE 4B ..K jsr be4b ;displayblank
1262 8911 F6 00 09 ... ldab 0009
1263 8914 C1 0A .. cmpb #0a
1264 8916 26 03 &. bne 03
1265 8918 7F 00 09 ... clr 0009
1266 891B F6 00 09 ... ldab 0009
1267 891E CB 30 .0 addb #30
1269 8921 CC 0B 95 ... ldd #0b95
1270 8924 F0 00 54 ..T subb 0054
1271 8927 82 00 .. sbca #00
1274 892B E7 00 .. stab 00,x
1275 892D C6 32 .2 ldab #32
1276 892F F7 00 3A ..: stab 003a
1278 8934 F6 00 54 ..T ldab 0054
1279 8937 C1 01 .. cmpb #01
1280 8939 26 27 &' bne 27
1281 893B F6 00 09 ... ldab 0009
1282 893E C1 05 .. cmpb #05
1284 8942 F6 00 09 ... ldab 0009
1285 8945 C1 0A .. cmpb #0a
1286 8947 27 19 '. beq 19
1287 8949 F6 00 09 ... ldab 0009
1288 894C CB 30 .0 addb #30
1290 894F CC 0B 95 ... ldd #0b95
1291 8952 F0 00 54 ..T subb 0054
1292 8955 82 00 .. sbca #00
1295 8959 E7 00 .. stab 00,x
1296 895B C6 32 .2 ldab #32
1297 895D F7 00 3A ..: stab 003a
1299 8962 CE 00 1F ... ldx #001f
1300 8965 1C 00 02 .. bset 00,x, #02
1301 8968 7F 00 3A ..: clr 003a
1302 896B BD BE 01 ... jsr be01 ;jump70
1303 896E 7C 00 54 |.T inc 0054
1304 8971 F6 00 54 ..T ldab 0054
1305 8974 C1 02 .. cmpb #02
1306 8976 26 60 &` bne 60
1307 8978 CE 00 1D ... ldx #001d
1308 897B 1C 00 80 .. bset 00,x, #80
1309 897E F6 0B 94 .. ldab 0b94
1310 8980 CB D0 .. addb #d0 ; -48 (unmake it a digit)
1312 8984 F6 0B 95 ... ldab 0b95
1313 8987 CB D0 .. addb #d0 ; -48 (unmake it a digit)
1314 8989 86 0A .. ldaa #0a
1317 898D EB 00 .. addb 00,x
1319 8990 F7 00 06 ... stab 0006
1320 8993 C6 32 .2 ldab #32
1321 8995 F7 00 3A ..: stab 003a
1322 8998 F6 00 06 ... ldab 0006
1323 899B BD D7 A0 ... jsr d7a0 ;is_invalid_slot
1324 899E 83 00 00 ... subd #0000
1325 89A1 26 27 &' bne 27 ; to 89ca
1326 89A3 BD D3 11 ... jsr d311 ;jump30 - test position exists
1327 89A6 83 00 00 ... subd #0000
1328 89A9 26 0B &. bne 0b
1329 89AB CE 00 1F ... ldx #001f
1330 89AE 1C 00 40 .. bset 00,x, #40
1331 89B1 BD 8C 73 ..s jsr 8c73 ;jump75
1333 89B6 CE 00 1F ... ldx #001f
1334 89B9 1D 00 40 .. bclr 00,x, #40
1335 89BC CC 2A FF .*. ldd #2aff ; 00101010 11111111
1336 89BF FD 00 27 ..' std 0027
1337 89C2 BD A3 85 ... jsr a385 ;jump40
1338 89C5 BD 9A 47 ..G jsr 9a47 ;jump39
1341 89CA CE 00 1D ... ldx #001d
1342 89CD 1D 00 .. bclr 00,x, #80
1343 89D0 CE 00 1F ... ldx #001f
1344 89D3 1C 00 02 ... bset 00,x, #02
1346 89D8 CE 00 1D ... ldx #001d
1347 89DB 1D 00 80 ... bclr 00,x, #80
1349 89DE 7E 8C 72 .~ jmp 8c72 ;goto7 (exit)
1351 89E1 F6 00 1D ... ldab 001d
1352 89E4 2D 03 -. blt 03
1353 89E6 7E 8C 72 ~.r jmp 8c72 ;goto7 (exit)
1354 89E9 F6 00 09 ... ldab 0009
1356 89ED BD FE 16 ... jsr fe16 ;jump2
1357 89F0 00 00 00 0B .... ; params to jump2
1358 89F4 8C 72 .. ; default action
1359 89F6 8A 0E .. ; 0 - display price on screen?
1371 8A0E BD 9A 47 .. jsr 9a47 ;jump39
1372 8A11 7E 8C 72 ... jmp 8c72 ;goto7 (exit)
1373 8A14 F6 00 36 ... ldab 0036
1374 8A17 27 03 '. beq 03
1375 8A19 7E 8A 9B ~.. jmp 8a9b ;goto8
1376 8A1C F6 00 1F ... ldab 001f
1377 8A1F C4 40 .@ andb #40
1378 8A21 27 78 'x beq 78
1379 8A23 F6 0B C0 ... ldab 0bc0
1380 8A26 C4 02 .. andb #02
1381 8A28 27 52 'R beq 52
1382 8A2A F6 0B AA ... ldab 0baa
1383 8A2D C1 32 .2 cmpb #32
1384 8A2F 24 22 $" bcc 22
1385 8A31 F6 0B AA ... ldab 0baa
1387 8A35 F3 00 27 ..' addd 0027
1388 8A38 FD 00 27 ..' std 0027
1389 8A3B F6 0B AA ... ldab 0baa
1393 8A41 CC 00 FA ... ldd #00fa ; 250 or -6
1394 8A44 BD FB BA ... jsr fbba ;jump38 - multiply?
1395 8A47 B3 00 27 ..' subd 0027
1396 8A4A 24 05 $. bcc 05
1399 8A4E FD 00 27 ..' std 0027
1401 8A53 F6 0B AA ... ldab 0baa
1402 8A56 C1 32 .2 cmpb #32
1404 8A5A F6 0B AA ... ldab 0baa
1406 8A5E F3 00 27 ..' addd 0027
1407 8A61 FD 00 27 ..' std 0027
1408 8A64 F6 0B AA ... ldab 0baa
1412 8A6A CC 00 C7 ... ldd #00c7 ; 199
1413 8A6D BD FB BA ... jsr fbba ;jump38
1414 8A70 B3 00 27 ..' subd 0027
1415 8A73 24 05 $. bcc 05
1418 8A77 FD 00 27 ..' std 0027
1420 8A7C F6 0B AA ... ldab 0baa
1422 8A80 F3 00 27 ..' addd 0027
1423 8A83 FD 00 27 ..' std 0027
1424 8A86 FC 00 27 ..' ldd 0027
1425 8A89 83 27 0F .'. subd #270f
1426 8A8C 23 05 #. bls 05
1429 8A90 FD 00 27 ..' std 0027
1430 8A93 BD 9A 47 ..G jsr 9a47 ;jump39
1431 8A96 C6 02 .. ldab #02
1432 8A98 F7 00 36 ..6 stab 0036
1434 8A9B CE 00 1B ... ldx #001b
1435 8A9E 1C 00 10 ... bset 00,x, #10
1436 8AA1 CC 02 33 ..3 ldd #0233
1437 8AA4 FD 00 3B ..; std 003b
1438 8AA7 7E 8C 72 ~.r jmp 8c72 ;goto7 (exit)
1440 8AAA F6 00 36 ..6 ldab 0036
1441 8AAD 27 03 '. beq 03
1442 8AAF 7E 8B 4F ~.O jmp 8b4f ;goto9
1443 8AB2 F6 00 1F ... ldab 001f
1444 8AB5 C4 40 .@ andb #40
1445 8AB7 26 03 &. bne 03
1446 8AB9 7E 8B 4F ~.O jmp 8b4f ;goto9
1447 8ABC F6 0B C0 ... ldab 0bc0
1448 8ABF C4 02 .. andb #02
1449 8AC1 27 57 'W beq 57
1450 8AC3 FC 00 27 ..' ldd 0027
1451 8AC6 26 18 &. bne 18
1452 8AC8 F6 0B AA ... ldab 0baa
1453 8ACB C1 32 .2 cmpb #32
1454 8ACD 24 11 $. bcc 11
1455 8ACF F6 0B AA ... ldab 0baa
1459 8AD5 CC 00 FA ... ldd #00fa ; 250
1460 8AD8 BD FB BA ... jsr fbba ;jump38
1461 8ADB FD 00 27 ..' std 0027
1463 8AE0 FC 00 27 ..' ldd 0027
1464 8AE3 26 18 &. bne 18
1465 8AE5 F6 0B AA ... ldab 0baa
1466 8AE8 C1 32 .2 cmpb #32
1467 8AEA 26 11 &. bne 11
1468 8AEC F6 0B AA ... ldab 0baa
1472 8AF2 CC 00 C7 ... ldd #00c7 ; 199
1473 8AF5 BD FB BA ... jsr fbba ;jump38
1474 8AF8 FD 00 27 ..' std 0027
1476 8AFD F6 0B AA ... ldab 0baa
1478 8B01 B3 00 27 ..' subd 0027
1479 8B04 22 0D ". bhi 0d
1480 8B06 FC 00 27 ..' ldd 0027
1481 8B09 F0 0B AA ... subb 0baa
1482 8B0C 82 00 .. sbca #00
1483 8B0E FD 00 27 ..' std 0027
1487 8B15 FD 00 27 ..' std 0027
1489 8B1A FC 00 27 ..' ldd 0027
1490 8B1D 26 0D &. bne 0d
1491 8B1F CC 27 10 .'. ldd #2710
1492 8B22 F0 0B AA ... subb 0baa
1493 8B25 82 00 .. sbca #00
1494 8B27 FD 00 27 ..' std 0027
1496 8B2C F6 0B AA ... ldab 0baa
1498 8B30 B3 00 27 ..' subd 0027
1499 8B33 22 0D ". bhi 0d
1500 8B35 FC 00 27 ..' ldd 0027
1501 8B38 F0 0B AA ... subb 0baa
1502 8B3B 82 00 .. sbca #00
1503 8B3D FD 00 27 ..' std 0027
1507 8B44 FD 00 27 ..' std 0027
1508 8B47 BD 9A 47 ..G jsr 9a47 ;jump39
1509 8B4A C6 02 .. ldab #02
1510 8B4C F7 00 36 ..6 stab 0036
1512 8B4F CE 00 1B ... ldx #001b
1513 8B52 1C 00 10 .. bset 00,x, #10
1514 8B55 CC 02 33 ..3 ldd #0233
1515 8B58 FD 00 3B ..; std 003b
1516 8B5B 7E 8C 72 ~.r jmp 8c72 ;goto7 (exit)
1517 8B5E F6 00 36 ..6 ldab 0036
1518 8B61 26 2C &, bne 2c
1519 8B63 F6 00 1F ... ldab 001f
1520 8B66 C4 40 .@ andb #40
1521 8B68 27 25 '% beq 25
1522 8B6A FC 00 46 ..F ldd 0046
1523 8B6D 83 00 64 ..d subd #0064
1524 8B70 24 15 $. bcc 15
1525 8B72 FE 00 46 ..F ldx 0046
1527 8B76 FF 00 46 ..F stx 0046
1528 8B79 FC 00 46 ..F ldd 0046
1529 8B7C 83 00 64 ..d subd #0064
1530 8B7F 25 06 %. bcs 06
1531 8B81 CC 00 01 ... ldd #0001
1532 8B84 FD 00 46 ..F std 0046
1533 8B87 BD 9A 47 ..G jsr 9a47 ;jump39
1534 8B8A C6 02 .. ldab #02
1535 8B8C F7 00 36 ..6 stab 0036
1536 8B8F CE 00 1B ... ldx #001b
1537 8B92 1C 00 10 .. bset 00,x, #10
1538 8B95 CC 02 33 ..3 ldd #0233
1539 8B98 FD 00 3B ..; std 003b
1540 8B9B 7E 8C 72 ~.r jmp 8c72 ;goto7 (exit)
1541 8B9E F6 00 36 ..6 ldab 0036
1542 8BA1 26 29 &) bne 29
1543 8BA3 F6 00 1F ... ldab 001f
1544 8BA6 C4 40 .@ andb #40
1545 8BA8 27 22 '" beq 22
1546 8BAA FC 00 46 ..F ldd 0046
1547 8BAD 83 00 00 ... subd #0000
1548 8BB0 23 12 #. bls 12
1549 8BB2 FE 00 46 ..F ldx 0046
1551 8BB6 FF 00 46 ..F stx 0046
1552 8BB9 FC 00 46 ..F ldd 0046
1553 8BBC 26 06 &. bne 06
1554 8BBE CC 00 63 ..c ldd #0063
1555 8BC1 FD 00 46 ..F std 0046
1556 8BC4 BD 9A 47 ..G jsr 9a47 ;jump39
1557 8BC7 C6 02 .. ldab #02
1558 8BC9 F7 00 36 ..6 stab 0036
1559 8BCC CE 00 1B ... ldx #001b
1560 8BCF 1C 00 10 ... bset 00,x, #10
1561 8BD2 CC 02 33 ..3 ldd #0233
1562 8BD5 FD 00 3B ..; std 003b
1563 8BD8 7E 8C 72 ~.r jmp 8c72 ;goto7 (exit)
1564 8BDB F6 00 1F ... ldab 001f
1565 8BDE C4 40 .@ andb #40
1566 8BE0 27 15 '. beq 15
1567 8BE2 F6 00 19 ... ldab 0019
1568 8BE5 C4 10 .. andb #10
1569 8BE7 27 08 '. beq 08
1570 8BE9 CE 00 19 ... ldx #0019
1571 8BEC 1D 00 10 ... bclr 00,x, #10
1573 8BF1 CE 00 19 ... ldx #0019
1574 8BF4 1C 00 10 ... bset 00,x, #10
1575 8BF7 BD 9A 47 ..G jsr 9a47 ;jump39
1577 8BFC BD A3 85 ... jsr a385 ;jump40
1578 8BFF F6 00 06 ... ldab 0006
1579 8C02 C1 64 .d cmpb #64
1580 8C04 24 24 $$ bcc 24
1581 8C06 BD 97 6F ..o jsr 976f ;jump41
1582 8C09 F6 00 06 ... ldab 0006
1583 8C0C BD D7 A0 ... jsr d7a0 ;is_invalid_slot
1584 8C0F 83 00 00 ... subd #0000
1585 8C12 27 16 '. beq 16
1586 8C14 F6 00 06 ... ldab 0006
1587 8C17 C1 09 .. cmpb #09
1588 8C19 26 03 &. bne 03
1589 8C1B BD 97 6F ..o jsr 976f ;jump41
1590 8C1E F6 00 06 ... ldab 0006
1591 8C21 C1 45 .E cmpb #45
1592 8C23 26 05 &. bne 05
1593 8C25 C6 01 .. ldab #01
1594 8C27 F7 00 06 ... stab 0006
1595 8C2A F6 0E 6D ..m ldab 0e6d
1596 8C2D C1 01 .. cmpb #01
1597 8C2F 26 11 &. bne 11
1598 8C31 F6 00 06 ... ldab 0006
1601 8C36 C3 08 C8 ... addd #08c8
1603 8C3A EC 00 .. ldd 00,x
1604 8C3C C4 7F .. andb #7f
1606 8C3F FD 00 46 ..F std 0046
1607 8C42 BD D3 11 ... jsr d311 ;jump30 - test position exists
1608 8C45 83 00 00 ... subd #0000
1609 8C48 26 12 &. bne 12
1610 8C4A CE 00 1F ... ldx #001f
1611 8C4D 1C 00 40 ... bset 00,x, #40
1612 8C50 FC 00 27 ..' ldd 0027
1613 8C53 83 27 0F .'. subd #270f
1614 8C56 23 02 #. bls 02
1615 8C58 8D 19 .. bsr dest 19
1617 8C5C CE 00 1F ... ldx #001f
1618 8C5F 1D 00 40 ... bclr 00,x, #40
1619 8C62 BD 9A 47 ..G jsr 9a47 ;jump39
1621 8C67 BD A3 85 ... jsr a385 ;jump40
1622 8C6A BD 85 AF ... jsr 85af ;jump14
1624 8C6F BD 85 AF ... jsr 85af ;jump14
1629 8C73 F6 00 06 ... ldab 0006
1632 8C78 C3 08 00 ... addd #0800
1634 8C7C EC 00 .. ldd 00,x
1635 8C7E C4 FF .. andb #ff
1636 8C80 84 3F .? anda #3f
1637 8C82 FD 00 27 ..' std 0027
1638 8C85 F6 00 06 ... ldab 0006
1641 8C8A C3 08 C8 ... addd #08c8
1643 8C8E EC 00 .. ldd 00,x
1644 8C90 C4 7F .. andb #7f
1646 8C93 FD 00 46 ..F std 0046
1647 8C96 F6 00 06 ... ldab 0006
1650 8C9B C3 08 C8 ... addd #08c8
1652 8C9F EC 00 .. ldd 00,x
1653 8CA1 84 08 .. anda #08
1654 8CA3 27 08 '. beq 08
1655 8CA5 CE 00 19 ... ldx #0019
1656 8CA8 1C 00 10 ... bset 00,x, #10
1658 8CAD CE 00 19 ... ldx #0019
1659 8CB0 1D 00 10 ... bclr 00,x, #10
1663 ; program smart shopping discount
1664 8CB4 F6 00 1F ... ldab 001f
1665 8CB7 C4 02 .. andb #02
1666 8CB9 27 12 '. beq 12
1667 8CBB FC 0B B7 ... ldd 0bb7
1668 8CBE FD 00 0D ... std 000d
1669 8CC1 CE 00 1F ... ldx #001f
1670 8CC4 1D 00 02 ... bclr 00,x, #02
1671 8CC7 7F 00 36 ..6 clr 0036
1672 8CCA 7E 8E 34 ~.4 jmp 8e34 ;goto10
1673 8CCD F6 00 09 ... ldab 0009
1675 8CD1 BD FE 32 ..2 jsr fe32 ;jump25
1676 8CD4 8C EE 00 00 .... ; array data for jump25
1677 8CD8 8C F4 00 01 ....
1678 8CDC 8D 80 00 01 ....
1679 8CE0 8E 29 00 08 .)..
1680 8CE4 8E 31 00 01 .1..
1681 8CE8 8E 34 FF F5 .4.
1682 8CEC 00 00 ... ; end of array data
1683 8CEE BD 9B 63 ..c jsr 9b63 ;jump101
1684 8CF1 7E 8E 34 ~.4 jmp 8e34 ;goto10
1685 8CF4 F6 00 36 ..6 ldab 0036
1686 8CF7 26 78 &x bne 78
1687 8CF9 F6 0B C0 ... ldab 0bc0
1688 8CFC C4 02 .. andb #02
1689 8CFE 27 52 'R beq 52
1690 8D00 F6 0B AA ... ldab 0baa
1691 8D03 C1 32 .2 cmpb #32
1692 8D05 24 22 $" bcc 22
1693 8D07 F6 0B AA ... ldab 0baa
1695 8D0B F3 00 0D ... addd 000d
1696 8D0E FD 00 0D ... std 000d
1697 8D11 F6 0B AA ... ldab 0baa
1701 8D17 CC 00 FA ... ldd #00fa ; 250
1702 8D1A BD FB BA ... jsr fbba ;jump38
1703 8D1D B3 00 0D ... subd 000d
1704 8D20 24 05 $. bcc 05
1707 8D24 FD 00 0D ... std 000d
1709 8D29 F6 0B AA ... ldab 0baa
1710 8D2C C1 32 .2 cmpb #32
1712 8D30 F6 0B AA ... ldab 0baa
1714 8D34 F3 00 0D ... addd 000d
1715 8D37 FD 00 0D ... std 000d
1716 8D3A F6 0B AA ... ldab 0baa
1720 8D40 CC 00 C7 ... ldd #00c7 ; 199
1721 8D43 BD FB BA ... jsr fbba ;jump38
1722 8D46 B3 00 0D ... subd 000d
1723 8D49 24 05 $. bcc 05
1726 8D4D FD 00 0D ... std 000d
1728 8D52 F6 0B AA ... ldab 0baa
1730 8D56 F3 00 0D ... addd 000d
1731 8D59 FD 00 0D ... std 000d
1732 8D5C FC 00 0D ... ldd 000d
1733 8D5F 83 27 0F .'. subd #270f
1734 8D62 23 05 #. bls 05
1737 8D66 FD 00 0D ... std 000d
1738 8D69 BD 9B 63 ..c jsr 9b63 ;jump101
1739 8D6C C6 02 .. ldab #02
1740 8D6E F7 00 36 ..6 stab 0036
1741 8D71 CE 00 1B ... ldx #001b
1742 8D74 1C 00 10 .. bset 00,x, #10
1743 8D77 CC 02 33 ..3 ldd #0233
1744 8D7A FD 00 3B ..; std 003b
1745 8D7D 7E 8E 34 ~.4 jmp 8e34 ;goto10
1746 8D80 F6 00 36 ..6 ldab 0036
1747 8D83 27 03 '. beq 03
1748 8D85 7E 8E 1B ~.. jmp 8e1b ;goto11
1749 8D88 F6 0B C0 ... ldab 0bc0
1750 8D8B C4 02 .. andb #02
1751 8D8D 27 57 'W beq 57
1752 8D8F FC 00 0D ... ldd 000d
1753 8D92 26 18 &. bne 18
1754 8D94 F6 0B AA ... ldab 0baa
1755 8D97 C1 32 .2 cmpb #32
1756 8D99 24 11 $. bcc 11
1757 8D9B F6 0B AA ... ldab 0baa
1761 8DA1 CC 00 FA ... ldd #00fa ; 250
1762 8DA4 BD FB BA ... jsr fbba ;jump38
1763 8DA7 FD 00 0D ... std 000d
1765 8DAC FC 00 0D ... ldd 000d
1766 8DAF 26 18 &. bne 18
1767 8DB1 F6 0B AA ... ldab 0baa
1768 8DB4 C1 32 .2 cmpb #32
1769 8DB6 26 11 &. bne 11
1770 8DB8 F6 0B AA ... ldab 0baa
1774 8DBE CC 00 C7 ... ldd #00c7 ; 199
1775 8DC1 BD FB BA ... jsr fbba ;jump38
1776 8DC4 FD 00 0D ... std 000d
1778 8DC9 F6 0B AA ... ldab 0baa
1780 8DCD B3 00 0D ... subd 000d
1781 8DD0 22 0D ". bhi 0d
1782 8DD2 FC 00 0D ... ldd 000d
1783 8DD5 F0 0B AA ... subb 0baa
1784 8DD8 82 00 .. sbca #00
1785 8DDA FD 00 0D ... std 000d
1789 8DE1 FD 00 0D ... std 000d
1791 8DE6 FC 00 0D ... ldd 000d
1792 8DE9 26 0D &. bne 0d
1793 8DEB CC 27 10 .'. ldd #2710
1794 8DEE F0 0B AA ... subb 0baa
1795 8DF1 82 00 .. sbca #00
1796 8DF3 FD 00 0D ... std 000d
1798 8DF8 F6 0B AA ... ldab 0baa
1800 8DFC B3 00 0D ... subd 000d
1801 8DFF 22 0D ". bhi 0d
1802 8E01 FC 00 0D ... ldd 000d
1803 8E04 F0 0B AA ... subb 0baa
1804 8E07 82 00 .. sbca #00
1805 8E09 FD 00 0D ... std 000d
1809 8E10 FD 00 0D ... std 000d
1810 8E13 BD 9B 63 ..c jsr 9b63 ;jump101
1811 8E16 C6 02 .. ldab #02
1812 8E18 F7 00 36 ..6 stab 0036
1814 8E1B CE 00 1B ... ldx #001b
1815 8E1E 1C 00 10 ... bset 00,x, #10
1816 8E21 CC 02 33 ..3 ldd #0233
1817 8E24 FD 00 3B ..; std 003b
1819 8E29 BD A4 4F ..O jsr a44f ;jump140
1820 8E2C BD 85 AF ... jsr 85af ;jump14
1822 8E31 BD 85 AF ... jsr 85af ;jump14
1827 ; manual peripheral config menu
1828 8E35 F6 00 1F ... ldab 001f
1829 8E38 C4 02 .. andb #02
1830 8E3A 27 1E '. beq 1e
1831 8E3C 7F 00 48 ..H clr 0048
1832 8E3F F6 0B C0 ... ldab 0bc0
1833 8E42 F7 00 67 ..g stab 0067
1834 8E45 F6 0E 6D ..m ldab 0e6d
1835 8E48 F7 0E 6F ..o stab 0e6f
1836 8E4B F6 0E 6E ..n ldab 0e6e
1837 8E4E F7 0E 70 ..p stab 0e70
1838 8E51 CE 00 1F ... ldx #001f
1839 8E54 1D 00 02 ... bclr 00,x, #02
1840 8E57 7E 8F 0C ~.. jmp 8f0c ;goto12
1841 8E5A F6 00 09 ... ldab 0009
1843 8E5E BD FE 32 ..2 jsr fe32 ;jump25
1844 8E61 8E 7B 00 00 .{.. ; array data for jump25
1845 8E65 8E 81 00 01 ....
1846 8E69 8E 87 00 04 ....
1847 8E6D 8F 01 00 05 ....
1848 8E71 8F 09 00 01 ....
1849 8E75 8F 0C FF F5 ....
1850 8E79 00 00 .. ; end of array data
1851 8E7B BD 9C 15 ... jsr 9c15 ;jump111
1852 8E7E 7E 8F 0C ~.. jmp 8f0c ;goto12
1853 8E81 BD A7 5F .._ jsr a75f ;jump133
1854 8E84 7E 8F 0C ~.. jmp 8f0c ;goto12
1855 8E87 F6 00 48 ..H ldab 0048
1856 8E8A C1 08 .. cmpb #08
1857 8E8C 25 05 %. bcs 05
1858 8E8E F6 00 67 ..g ldab 0067
1859 8E91 2D 03 -. blt 03
1860 8E93 BD A4 59 ..Y jsr a459 ;jump110
1861 8E96 F6 00 48 ..H ldab 0048
1862 8E99 C1 0A .. cmpb #0a
1863 8E9B 24 5F $_ bcc 5f
1864 8E9D 7C 00 48 |.H inc 0048
1865 8EA0 F6 00 48 ..H ldab 0048
1866 8EA3 C1 01 .. cmpb #01
1867 8EA5 26 0F &. bne 0f
1868 8EA7 F6 00 67 ..g ldab 0067
1869 8EAA C4 02 .. andb #02
1870 8EAC 26 08 &. bne 08
1871 8EAE F6 00 48 ..H ldab 0048
1872 8EB1 CB 02 .. addb #02
1873 8EB3 F7 00 48 ..H stab 0048
1874 8EB6 F6 00 48 ..H ldab 0048
1875 8EB9 C1 02 .. cmpb #02
1876 8EBB 26 0A &. bne 0a
1877 8EBD F6 00 67 ..g ldab 0067
1878 8EC0 C4 10 .. andb #10
1879 8EC2 26 03 &. bne 03
1880 8EC4 7C 00 48 |.H inc 0048
1881 8EC7 F6 00 48 ..H ldab 0048
1882 8ECA C1 06 .. cmpb #06
1883 8ECC 26 0F &. bne 0f
1884 8ECE F6 00 67 ..g ldab 0067
1885 8ED1 C4 08 .. andb #08
1886 8ED3 26 08 &. bne 08
1887 8ED5 C6 02 .. ldab #02
1888 8ED7 FB 00 48 ..H addb 0048
1889 8EDA F7 00 48 ..H stab 0048
1890 8EDD F6 00 48 ..H ldab 0048
1891 8EE0 C1 0A .. cmpb #0a
1892 8EE2 26 08 &. bne 08
1893 8EE4 F6 00 67 ..g ldab 0067
1894 8EE7 2D 03 -. blt 03
1895 8EE9 7C 00 48 |.H inc 0048
1896 8EEC F6 00 48 ..H ldab 0048
1897 8EEF C1 0A .. cmpb #0a
1898 8EF1 23 09 #. bls 09
1899 8EF3 7F 00 48 ..H clr 0048
1900 8EF6 F6 0B C0 ... ldab 0bc0
1901 8EF9 F7 00 67 ..g stab 0067
1902 8EFC BD 9C 15 ... jsr 9c15 ;jump111
1904 8F01 BD A4 59 ..Y jsr a459 ;jump110
1905 8F04 BD 85 AF ... jsr 85af ;jump14
1907 8F09 BD 85 AF ... jsr 85af ;jump14
1912 ; promotional vend-pair programming (buy one thing get another free?)
1913 8F0D F6 00 1F ... ldab 001f
1914 8F10 C4 02 .. andb #02
1915 8F12 27 1D '. beq 1d
1916 8F14 C6 01 .. ldab #01
1917 8F16 F7 00 22 .." stab 0022
1918 8F19 F6 0B AF ... ldab 0baf
1919 8F1C F7 00 24 ..$ stab 0024
1920 8F1F F6 0B B4 ... ldab 0bb4
1921 8F22 F7 00 2A ..* stab 002a
1922 8F25 CE 00 1F ... ldx #001f
1923 8F28 1D 00 02 .. bclr 00,x, #02
1924 8F2B 7F 00 36 ..6 clr 0036
1925 8F2E 7E 90 D0 ~.. jmp 90d0 ;goto13
1926 8F31 F6 00 09 ... ldab 0009
1928 8F35 BD FE 16 ... jsr fe16 ;jump2
1929 8F38 00 00 00 0B .... ; params for jump2
1943 8F56 BD 9D 2A ..* jsr 9d2a ;jump89
1944 8F59 7E 90 D0 ~.. jmp 90d0 ;goto13
1945 8F5C F6 00 36 ..6 ldab 0036
1946 8F5F 26 43 &C bne 43
1947 8F61 F6 00 24 ..$ ldab 0024
1948 8F64 C1 64 .d cmpb #64
1949 8F66 24 34 $4 bcc 34
1950 8F68 7C 00 24 |.$ inc 0024
1951 8F6B F6 00 24 ..$ ldab 0024
1952 8F6E F7 00 06 ... stab 0006
1953 8F71 F6 00 06 ... ldab 0006
1954 8F74 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
1955 8F77 83 00 00 ... subd #0000
1956 8F7A 27 03 '. beq 03
1957 8F7C 7C 00 24 |.$ inc 0024
1958 8F7F F6 00 24 ..$ ldab 0024
1959 8F82 C1 64 .d cmpb #64
1960 8F84 26 03 &. bne 03
1961 8F86 7F 00 24 ..$ clr 0024
1962 8F89 F6 00 24 ..$ ldab 0024
1964 8F8D CE 00 05 ... ldx #0005
1967 8F92 26 08 &. bne 08
1968 8F94 F6 00 24 ..$ ldab 0024
1969 8F97 27 03 '. beq 03
1970 8F99 7C 00 24 |.$ inc 0024
1971 8F9C BD 9D 2A ..* jsr 8d2a ;jump89
1972 8F9F C6 02 .. ldab #02
1973 8FA1 F7 00 36 ..6 stab 0036
1974 8FA4 CE 00 1B ... ldx #001b
1975 8FA7 1C 00 10 ... bset 00,x, #10
1976 8FAA CC 02 33 ..3 ldd #0233
1977 8FAD FD 00 3B ..; std 003b
1978 8FB0 7E 90 D0 ~.. jmp 90d0 ;goto13
1979 8FB3 F6 00 36 ..6 ldab 0036
1980 8FB6 26 45 &E bne 45
1981 8FB8 F6 00 24 ..$ ldab 0024
1982 8FBB C1 00 .. cmpb #00
1983 8FBD 23 2C #, bls 2c
1984 8FBF 7A 00 24 z.$ dec 0024
1985 8FC2 F6 00 24 ..$ ldab 0024
1987 8FC6 CE 00 05 ... ldx #0005
1990 8FCB 26 08 &. bne 08
1991 8FCD F6 00 24 ..$ ldab 0024
1992 8FD0 27 03 '. beq 03
1993 8FD2 7A 00 24 z.$ dec 0024
1994 8FD5 F6 00 24 ..$ ldab 0024
1995 8FD8 F7 00 06 ... stab 0006
1996 8FDB F6 00 06 ... ldab 0006
1997 8FDE BD D7 A0 ... jsr d7a0 ;is_invalid_slot
1998 8FE1 83 00 00 ... subd #0000
1999 8FE4 27 03 '. beq 03
2000 8FE6 7A 00 24 z.$ dec 0024
2002 8FEB F6 00 24 ..$ ldab 0024
2003 8FEE 26 05 &. bne 05
2004 8FF0 C6 62 .b ldab #62
2005 8FF2 F7 00 24 ..$ stab 0024
2006 8FF5 BD 9D 2A ..* jsr 9d2a ;jump89
2007 8FF8 C6 02 .. ldab #02
2008 8FFA F7 00 36 ..6 stab 0036
2009 8FFD CE 00 1B ... ldx #001b
2010 9000 1C 00 10 ... bset 00,x, #10
2011 9003 CC 02 33 ..3 ldd #0233
2012 9006 FD 00 3B ..; std 003b
2013 9009 7E 90 D0 ~.. jmp 90d0 ;goto13
2014 900C F6 00 36 ..6 ldab 0036
2015 900F 26 43 &C bne 43
2016 9011 F6 00 2A ..* ldab 002a
2017 9014 C1 64 .d cmpb #64
2018 9016 24 34 $4 bcc 34
2019 9018 7C 00 2A |.* inc 002a
2020 901B F6 00 2A ..* ldab 002a
2021 901E F7 00 06 ... stab 0006
2022 9021 F6 00 06 ... ldab 0006
2023 9024 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
2024 9027 83 00 00 ... subd #0000
2025 902A 27 03 '. beq 03
2026 902C 7C 00 2A |.* inc 002a
2027 902F F6 00 2A ..* ldab 002a
2028 9032 C1 64 .d cmpb #64
2029 9034 26 03 &. bne 03
2030 9036 7F 00 2A ..* clr 002a
2031 9039 F6 00 2A ..* ldab 002a
2033 903D CE 00 05 ... ldx #0005
2036 9042 26 08 &. bne 08
2037 9044 F6 00 2A ..* ldab 002a
2038 9047 27 03 '. beq 03
2039 9049 7C 00 2A |.* inc 002a
2040 904C BD 9D 2A ..* jsr 9d2a ;jump89
2041 904F C6 02 .. ldab #02
2042 9051 F7 00 36 ..6 stab 0036
2043 9054 CE 00 1B ... ldx #001b
2044 9057 1C 00 10 ... bset 00,x, #10
2045 905A CC 02 33 ..3 ldd #0233
2046 905D FD 00 3B ..; std 003b
2048 9062 F6 00 36 ..6 ldab 0036
2049 9065 26 45 &E bne 45
2050 9067 F6 00 2A ..* ldab 002a
2051 906A C1 00 .. cmpb #00
2052 906C 23 2C #, bls 2c
2053 906E 7A 00 2A z.* dec 002a
2054 9071 F6 00 2A ..* ldab 002a
2056 9075 CE 00 05 ... ldx #0005
2059 907A 26 08 &. bne 08
2060 907C F6 00 2A ..* ldab 002a
2061 907F 27 03 '. beq 03
2062 9081 7A 00 2A z.* dec 002a
2063 9084 F6 00 2A ..* ldab 002a
2064 9087 F7 00 06 ... stab 0006
2065 908A F6 00 06 ... ldab 0006
2066 908D BD D7 A0 ... jsr d7a0 ;is_invalid_slot
2067 9090 83 00 00 ... subd #0000
2068 9093 27 03 '. beq 03
2069 9095 7A 00 2A z.* dec 002a
2071 909A F6 00 2A ..* ldab 002a
2072 909D 26 05 &. bne 05
2073 909F C6 62 .b ldab #62
2074 90A1 F7 00 2A ..* stab 002a
2075 90A4 BD 9D 2A ..* jsr 9d2a ;jump89
2076 90A7 C6 02 .. ldab #02
2077 90A9 F7 00 36 ..6 stab 0036
2078 90AC CE 00 1B ... ldx #001b
2079 90AF 1C 00 10 ... bset 00,x, #10
2080 90B2 CC 02 33 ..3 ldd #0233
2081 90B5 FD 00 3B ..; std 003b
2083 90BA BD A5 1E ... jsr a51e ;jump109
2084 90BD BD AA 9A ... jsr aa9a ;jump127
2085 90C0 BD 9D 2A ..* jsr 9d2a ;jump89
2087 90C5 BD A5 1E ... jsr a51e ;jump109
2088 90C8 BD 85 AF ... jsr 85af ;jump14
2090 90CD BD 85 AF ... jsr 85af ;jump14
2095 ; pos message & serial id
2096 90D1 F6 00 1F ... ldab 001f
2097 90D4 C4 02 .. andb #02
2098 90D6 27 14 '. beq 14
2099 90D8 CE 00 1F ... ldx #001f
2100 90DB 1D 00 02 ... bclr 00,x, #02
2101 90DE CE 00 19 ... ldx #0019
2102 90E1 1C 00 .. bset add,x 00,x
2103 90E3 80 7F .. suba #7f
2106 90E7 7F 00 0A ... clr 000a
2108 90EC F6 00 09 ... ldab 0009
2110 90F0 BD FE 32 ..2 jsr fe32 ;jump25
2111 90F3 91 0D 00 00 .... ; array data for jump25
2112 90F7 91 15 00 01 ....
2113 90FB 91 19 00 01 ....
2114 90FF 91 1E 00 01 ....
2115 9103 91 23 00 08 .#..
2116 9107 91 26 FF F5 .&..
2117 910B 00 00 .. ; end of array data
2118 910D CC B0 AD ... ldd #b0ad ; "PROGRAM ?"
2119 9110 BD C0 BA ... jsr c0ba ;display:
2121 9115 8D 16 .. bsr dest 16
2123 9119 BD 91 C6 ... jsr 91c6 ;jump76
2125 911E BD 92 5A ..Z jsr 925a ;jump149
2127 9123 BD 85 AF ... jsr 85af ;jump14
2128 9126 7F 00 09 ... clr 0009
2129 9129 7F 00 0A ... clr 000a
2132 912D F6 00 19 ... ldab 0019
2133 9130 2C 28 ,( bge 28
2134 9132 BD A9 CF ... jsr a9cf ;jump131
2135 9135 C6 50 .P ldab #50
2136 9137 F7 0A 90 ... stab 0a90
2137 913A C6 20 . ldab #20
2138 913C F7 0B 8D ... stab 0b8d
2139 913F C6 20 . ldab #20
2140 9141 F7 0B 8E ... stab 0b8e
2141 9144 C6 28 .( ldab #28
2142 9146 F7 0B 8F ... stab 0b8f
2143 9149 7F 00 54 ..T clr 0054
2144 914C 7F 00 60 ..` clr 0060
2145 914F CE 00 19 ... ldx #0019
2146 9152 1D 00 .. bclr add,x 00,x
2147 9154 80 7F .. suba #7f
2151 915A F6 00 0A ... ldab 000a
2153 915E BD FE 16 ... jsr fe16 ;jump2
2158 9165 91 C5 91 ... cmpa c5
2159 9168 7F 91 84 ... clr 9184
2160 916B 91 89 91 ... cmpa 89
2161 916E 8E 91 9F ... lds #919f
2162 9171 91 B0 91 ... cmpa b0
2163 9174 C5 91 .. bitb #91
2164 9176 C5 91 .. bitb #91
2165 9178 C5 91 .. bitb #91
2166 917A B5 91 BA ... bita 91ba
2167 917D 91 C2 BD ... cmpa c2
2168 9180 9D 7E 20 .~ jsr 7e
2170 9184 BD A8 64 ..d jsr a864 ;jump99
2172 9189 BD A8 D5 ... jsr a8d5 ;jump97
2174 918E BD A8 96 ... jsr a896 ;jump98
2175 9191 CE 00 1B ... ldx #001b
2176 9194 1C 00 10 ... bset 00,x, #10
2177 9197 CC 02 33 ..3 ldd #0233
2178 919A FD 00 3B ..; std 003b
2180 919F BD A8 E5 ... jsr a8e5 ;jump96
2181 91A2 CE 00 1B ... ldx #001b
2182 91A5 1C 00 10 ... bset 00,x, #10
2183 91A8 CC 02 33 ..3 ldd #0233
2184 91AB FD 00 3B ..; std 003b
2186 91B0 BD A9 21 ..! jsr a921 ;jump95
2188 91B5 BD A9 7A ..z jsr a97a ;jump132
2190 91BA BD A5 7D ..} jsr a57d ;jump139
2191 91BD BD 85 AF ... jsr 85af ;jump14
2193 91C2 BD 85 AF ... jsr 85af ;jump14
2197 91C6 F6 00 19 ... ldab 0019
2198 91C9 2C 28 ,( bge 28
2199 91CB BD AA 0A ... jsr aa0a ;jump130
2200 91CE C6 53 .S ldab #53 ; "S"
2201 91D0 F7 0A 90 ... stab 0a90
2202 91D3 C6 20 . ldab #20 ; " "
2203 91D5 F7 0A 9D ... stab 0a9d
2204 91D8 C6 20 . ldab #20 ; " "
2205 91DA F7 0A 9E ... stab 0a9e
2206 91DD C6 28 .( ldab #28 ; "("
2207 91DF F7 0A 9F ... stab 0a9f
2208 91E2 7F 00 54 ..T clr 0054
2209 91E5 7F 00 60 ..` clr 0060
2210 91E8 CE 00 19 ... ldx #0019
2211 91EB 1D 00 .. bclr add,x 00,x
2212 91ED 80 7F .. suba #7f
2216 91F3 F6 00 0A ... ldab 000a
2218 91F7 BD FE 16 ... jsr fe16 ;jump2
2233 9218 BD 9D 7E .. jsr 9d7e
2234 921B 20 3C .~ bra 3c
2235 921D BD A8 64 ..d jsr a864 ;jump99
2237 9222 BD A8 D5 ... jsr a8d5 ;jump97
2239 9227 BD A8 96 ... jsr a896 ;jump98
2240 922A CE 00 1B ... ldx #001b
2241 922D 1C 00 10 ... bset 00,x, #10
2242 9230 CC 02 33 ..3 ldd #0233
2243 9233 FD 00 3B ..; std 003b
2245 9238 BD A8 E5 ... jsr a8e5 ;jump96
2246 923B CE 00 1B ... ldx #001b
2247 923E 1C 00 10 ... bset 00,x, #10
2248 9241 CC 02 33 ..3 ldd #0233
2249 9244 FD 00 3B ..; std 003b
2251 9249 BD A9 21 ..! jsr a921 ;jump95
2253 924E BD A5 AC ... jsr a5ac ;jump138
2254 9251 BD 85 AF ... jsr 85af ;jump14
2256 9256 BD 85 AF ... jsr 85af ;jump14
2260 925A F6 00 19 ... ldab 0019
2261 925D 2C 28 ,( bge 28
2262 925F BD AA 3F ..? jsr aa3f ;jump129
2263 9262 C6 49 .I ldab #49
2264 9264 F7 0A 90 ... stab 0a90
2265 9267 C6 20 . ldab #20
2266 9269 F7 0A 9D ... stab 0a9d
2267 926C C6 20 . ldab #20
2268 926E F7 0A 9E ... stab 0a9e
2269 9271 C6 28 .( ldab #28
2270 9273 F7 0A 9F ... stab 0a9f
2271 9276 7F 00 54 ..T clr 0054
2272 9279 7F 00 60 ..` clr 0060
2273 927C CE 00 19 ... ldx #0019
2274 927F 1D 00 .. bclr add,x 00,x
2275 9281 80 7F .. suba #7f
2279 9287 F6 00 0A ... ldab 000a
2281 928B BD FE 16 ... jsr fe16 ;jump2
2286 9292 92 ED 92 ... sbca ed
2287 9295 AC 92 .. cpx 92,x
2288 9297 B1 92 B6 ... cmpa 92b6
2289 929A 92 BB 92 ... sbca bb
2290 929D CC 92 DD ... ldd #92dd
2291 92A0 92 ED 92 ... sbca ed
2292 92A3 ED 92 .. std 92,x
2293 92A5 ED 92 .. std 92,x
2294 92A7 ED 92 .. std 92,x
2295 92A9 E2 92 .. sbcb 92,x
2296 92AB EA BD .. orb bd,x
2297 92AD 9D 7E 20 .~ jsr 7e
2299 92B1 BD A8 64 ..d jsr a864 ;jump99
2301 92B6 BD A8 D5 ... jsr a8d5 ;jump97
2303 92BB BD A8 96 ... jsr a896 ;jump98
2304 92BE CE 00 1B ... ldx #001b
2305 92C1 1C 00 10 ... bset 00,x, #10
2306 92C4 CC 02 33 ..3 ldd #0233
2307 92C7 FD 00 3B ..; std 003b
2309 92CC BD A8 E5 ... jsr a8e5 ;jump96
2310 92CF CE 00 1B ... ldx #001b
2311 92D2 1C 00 10 ... bset 00,x, #10
2312 92D5 CC 02 33 ..3 ldd #0233
2313 92D8 FD 00 3B ..; std 003b
2315 92DD BD A9 21 ..! jsr a921 ;jump95
2317 92E2 BD A5 D5 ... jsr a5d5 ;jump137
2318 92E5 BD 85 AF ... jsr 85af ;jump14
2320 92EA BD 85 AF ... jsr 85af ;jump14
2325 92EE F6 0C DC ... ldab 0cdc
2329 92F4 CC 00 64 ..d ldd #0064 ; 100
2330 92F7 BD FB BA ... jsr fbba ;jump38 - multiplication
2331 92FA FD 0C E9 ... std 0ce9
2332 92FD BD D6 F6 ... jsr d6f6 ;jump106
2333 9300 FC 0C E9 ... ldd 0ce9
2334 9303 F3 0B EF ... addd 0bef
2335 9306 FD 0C F1 ... std 0cf1
2336 9309 FE 0C F5 ... ldx 0cf5
2338 930D FC 0C F3 ... ldd 0cf3
2341 9312 FE 0C F9 ... ldx 0cf9
2343 9316 FC 0C F7 ... ldd 0cf7
2344 9319 BD FC 25 ..% jsr fc25 ;jump85
2347 931E FE 0C FD ... ldx 0cfd
2349 9322 FC 0C FB ... ldd 0cfb
2350 9325 BD FC 25 ..% jsr fc25 ;jump85
2353 932A FE 0D 01 ... ldx 0d01
2355 932E FC 0C FF ... ldd 0cff
2356 9331 BD FC 25 ..% jsr fc25 ;jump85
2359 9336 FE 0D 05 ... ldx 0d05
2361 933A FC 0D 03 ... ldd 0d03
2362 933D BD FC 25 ..% jsr fc25 ;jump85
2363 9340 FD 0D F3 ... std 0df3
2366 9345 FD 0D F5 ... std 0df5
2367 9348 FE 0D F9 ... ldx 0df9
2369 934C FC 0D F7 ... ldd 0df7
2372 9351 FE 0D F5 ... ldx 0df5
2374 9355 FC 0D F3 ... ldd 0df3
2375 9358 BD FC 25 ..% jsr fc25 ;jump85
2376 935B FD 0D EF ... std 0def
2379 9360 FD 0D F1 ... std 0df1
2380 9363 F6 20 00 . . ldab 2000
2381 9366 C4 40 .@ andb #40
2382 9368 27 37 '7 beq 37
2383 936A F6 00 1F ... ldab 001f
2384 936D C4 02 .. andb #02
2385 936F 27 1F '. beq 1f
2386 9371 BD 97 E9 ... jsr 97e9 ;jump147 - print the report
2387 9374 CE 00 1F ... ldx #001f
2388 9377 1D 00 02 ... bclr 00,x, #02
2389 937A CE 00 1F ... ldx #001f
2390 937D 1D 00 10 ... bclr 00,x, #10
2391 9380 CC 02 33 ..3 ldd #0233
2392 9383 FD 00 3B ..; std 003b
2393 9386 7F 00 09 ... clr 0009
2394 9389 C6 92 .. ldab #92
2395 938B F7 00 48 ..H stab 0048
2397 9390 F6 00 19 ... ldab 0019
2398 9393 C4 40 .@ andb #40
2399 9395 26 05 &. bne 05
2400 9397 BD 98 BF ... jsr 98bf ;jump146
2402 939C BD 85 AF ... jsr 85af ;jump14
2404 93A1 BD 98 FF ... jsr 98ff ;jump145
2408 ; program security code menu
2409 93A5 F6 00 1F ... ldab 001f
2410 93A8 C4 02 .. andb #02
2411 93AA 26 0A &. bne 0a
2412 93AC F6 00 3A ..: ldab 003a
2413 93AF 26 2B &+ bne 2b
2414 93B1 F6 00 1D ... ldab 001d
2415 93B4 2D 26 -& blt 26
2416 93B6 CC AF BB ... ldd #afbb ;"ENTER CODE"
2417 93B9 BD C0 BA ... jsr c0ba ;display:
2418 93BC CE 00 1F ... ldx #001f
2419 93BF 1D 00 02 ... bclr 00,x, #02
2420 93C2 CE 00 1D ... ldx #001d
2421 93C5 1D 00 .. bclr add,x 00,x
2422 93C7 80 C6 .. suba #c6
2424 93CA F7 00 3A ..: stab 003a
2425 93CD F6 0B A8 ... ldab 0ba8
2426 93D0 F7 00 66 ..f stab 0066
2427 93D3 BD AA 74 ..t jsr aa74 ;jump128
2428 93D6 7F 00 48 ..H clr 0048
2429 93D9 7F 00 54 ..T clr 0054
2430 93DC F6 00 09 ... ldab 0009
2431 93DF 26 03 &. bne 03
2432 93E1 7E 94 92 ~.. jmp 9492 ;goto14
2433 93E4 F6 00 1D ... ldab 001d
2434 93E7 2C 03 ,. bge 03
2435 93E9 7E 94 92 ~.. jmp 9492 ;goto14
2436 93EC F6 00 09 ... ldab 0009
2437 93EF C1 0B .. cmpb #0b
2438 93F1 26 06 &. bne 06
2439 93F3 BD 85 AF ... jsr 85af ;jump14
2440 93F6 7E 94 90 ~.. jmp 9490 ;goto15
2441 93F9 F6 00 09 ... ldab 0009
2442 93FC C1 0A .. cmpb #0a
2443 93FE 26 03 &. bne 03
2444 9400 7F 00 09 ... clr 0009
2445 9403 F6 00 09 ... ldab 0009
2446 9406 CB 30 .0 addb #30
2448 9409 F6 00 54 ..T ldab 0054
2450 940D C3 00 62 ..b addd #0062
2453 9412 E7 00 .. stab 00,x
2454 9414 BD BE 4B ..K jsr be4b ;displayblank
2455 9417 F6 00 54 ..T ldab 0054
2456 941A 26 06 &. bne 06
2457 941C F6 00 62 ..b ldab 0062
2458 941F F7 0B 96 ... stab 0b96
2459 9422 F6 00 54 ..T ldab 0054
2460 9425 C1 01 .. cmpb #01
2461 9427 26 0C &. bne 0c
2462 9429 F6 00 62 ..b ldab 0062
2463 942C F7 0B 96 ... stab 0b96
2464 942F F6 00 63 ..c ldab 0063
2465 9432 F7 0B 95 ... stab 0b95
2466 9435 F6 00 54 ..T ldab 0054
2467 9438 C1 02 .. cmpb #02
2468 943A 26 12 &. bne 12
2469 943C F6 00 62 ..b ldab 0062
2470 943F F7 0B 96 ... stab 0b96
2471 9442 F6 00 63 ..c ldab 0063
2472 9445 F7 0B 95 ... stab 0b95
2473 9448 F6 00 64 ..d ldab 0064
2474 944B F7 0B 94 ... stab 0b94
2475 944E F6 00 54 ..T ldab 0054
2476 9451 C1 03 .. cmpb #03
2477 9453 26 18 &. bne 18
2478 9455 F6 00 62 ..b ldab 0062
2479 9458 F7 0B 96 ... stab 0b96
2480 945B F6 00 63 ..c ldab 0063
2481 945E F7 0B 95 ... stab 0b95
2482 9461 F6 00 64 ..d ldab 0064
2483 9464 F7 0B 94 ... stab 0b94
2484 9467 F6 00 65 ..e ldab 0065
2485 946A F7 0B 93 ... stab 0b93
2486 946D BD BE 01 ... jsr be01 ;jump70
2487 9470 7C 00 54 |.T inc 0054
2488 9473 F6 00 54 ..T ldab 0054
2489 9476 C1 04 .. cmpb #04
2490 9478 26 0B &. bne 0b
2491 947A CE 00 1D ... ldx #001d
2492 947D 1C 00 .. bset add,x 00,x
2493 947F 80 BD .. suba #bd
2494 9481 A8 0F .. eora 0f,x
2496 9485 CE 00 1D ... ldx #001d
2497 9488 1D 00 .. bclr add,x 00,x
2498 948A 80 C6 .. suba #c6
2500 948D F7 00 3A ..: stab 003a
2504 9492 F6 00 1D ... ldab 001d
2505 9495 2C 45 ,E bge 45
2506 9497 F6 00 09 ... ldab 0009
2508 949B BD FE 32 ..2 jsr fe32 ;jump25
2509 949E 94 B8 00 00 .... ; array data for jump25
2510 94A2 94 BD 00 01 ....
2511 94A6 94 C2 00 04 ....
2512 94AA 94 D1 00 05 ....
2513 94AE 94 D9 00 01 ....
2514 94B2 94 DC FF F5 ....
2515 94B6 00 00 .. ; end of array data
2516 94B8 BD 9E 0F ... jsr 9e0f ;jump142
2518 94BD BD A7 1F ... jsr a71f ;jump134
2520 94C2 7C 00 48 |.H inc 0048
2521 94C5 F6 00 48 ..H ldab 0048
2522 94C8 C1 0A .. cmpb #0a
2523 94CA 23 03 #. bls 03
2524 94CC 7F 00 48 ..H clr 0048
2526 94D1 BD A5 FE ... jsr a5fe ;jump136
2527 94D4 BD 85 AF ... jsr 85af ;jump14
2529 94D9 BD 85 AF ... jsr 85af ;jump14
2533 ; motor functions menu
2534 94DD F6 00 1F ... ldab 001f
2535 94E0 C4 02 .. andb #02
2536 94E2 27 14 '. beq 14
2537 94E4 CE 00 1F ... ldx #001f
2538 94E7 1D 00 02 ... bclr 00,x, #02
2539 94EA CE 00 19 ... ldx #0019
2540 94ED 1C 00 80 .. bset 00,x, #80
2541 94EF 7F 00 09 .. clr 0009
2542 94F3 7F 00 0A ... clr 000a
2544 94F8 F6 00 09 ... ldab 0009
2546 94FC BD FE 32 ..2 jsr fe32 ;jump25
2547 94FF 95 19 00 00 .... ; no key
2548 9503 95 21 00 01 .!.. ; key 1 - motor count procedure
2549 9507 95 2C 00 01 .,.. ; key 2 - single test vend
2550 950B 95 30 00 01 .0.. ; key 3 - test vend everything
2551 950F 95 35 00 08 .5.. ; reset
2552 9513 95 38 FF F5 .8..
2553 9517 00 00 .. ; end of array data
2554 9519 CC B0 A2 ... ldd #b0a2 ; "MTR FUNCT?"
2555 951C BD C0 BA ... jsr c0ba ;display:
2557 9521 BD 87 E9 ... jsr 87e9 ;jump74 - motor count procedure
2558 9524 CE 00 1F ... ldx #001f
2559 9527 1C 00 02 ... bset 00,x, #02
2561 952C 8D 11 .. bsr dest 11 ;jump203 - test single vend
2563 9530 BD 96 88 ... jsr 9688 ;jump148 - test all vends
2565 9535 BD 85 AF ... jsr 85af ;jump14
2566 9538 7F 00 09 ... clr 0009
2567 953B 7F 00 0A ... clr 000a
2571 ; test a single vend
2572 953F F6 00 19 ... ldab 0019
2573 9542 2D 0A -. blt 0a
2574 9544 F6 00 3A ..: ldab 003a
2575 9547 26 22 &" bne 22
2576 9549 F6 00 1D ... ldab 001d
2577 954C 2D 1D -. blt 1d
2578 954E 7F 00 2C .., clr 002c
2579 9551 CC B0 B8 ... ldd #b0b8 ; "SELECTION?"
2580 9554 BD C0 BA ... jsr c0ba ;display:
2581 9557 CE 00 19 ... ldx #0019
2582 955A 1D 00 .. bclr add,x 00,x
2583 955C 80 CE .. suba #ce
2585 955F 1D 1D 00 ... bclr 1d,x, #00
2586 9562 80 7F .. suba #7f
2589 9566 C6 32 .2 ldab #32
2590 9568 F7 00 3A ..: stab 003a
2591 956B F6 00 0A ... ldab 000a
2592 956E 26 03 &. bne 03
2593 9570 7E 96 5C ~.\ jmp 965c ;goto16
2594 9573 F6 00 1D ... ldab 001d
2595 9576 2C 03 ,. bge 03
2596 9578 7E 96 5C ~.\ jmp 965c ;goto16
2597 957B F6 00 0A ... ldab 000a
2598 957E C1 0B .. cmpb #0b
2599 9580 26 09 &. bne 09
2600 9582 CE 00 1F ... ldx #001f
2601 9585 1C 00 02 ... bset 00,x, #02
2602 9588 7E 96 5A ~.Z jmp 965a ;goto93
2603 958B F6 00 54 ..T ldab 0054
2604 958E 26 26 && bne 26
2605 9590 BD BE 4B ..K jsr be4b ;displayblank
2606 9593 F6 00 0A ... ldab 000a
2607 9596 C1 0A .. cmpb #0a
2608 9598 26 03 &. bne 03
2609 959A 7F 00 0A ... clr 000a
2610 959D F6 00 0A ... ldab 000a
2611 95A0 CB 30 .0 addb #30
2613 95A3 CC 0B 95 ... ldd #0b95
2614 95A6 F0 00 54 ..T subb 0054
2615 95A9 82 00 .. sbca #00
2618 95AD E7 00 .. stab 00,x
2619 95AF C6 32 .2 ldab #32
2620 95B1 F7 00 3A ..: stab 003a
2622 95B6 F6 00 54 ..T ldab 0054
2623 95B9 C1 01 .. cmpb #01
2624 95BB 26 27 &' bne 27
2625 95BD F6 00 0A ... ldab 000a
2626 95C0 C1 05 .. cmpb #05
2628 95C4 F6 00 0A ... ldab 000a
2629 95C7 C1 0A .. cmpb #0a
2630 95C9 27 19 '. beq 19
2631 95CB F6 00 0A ... ldab 000a
2632 95CE CB 30 .0 addb #30
2634 95D1 CC 0B 95 ... ldd #0b95
2635 95D4 F0 00 54 ..T subb 0054
2636 95D7 82 00 .. sbca #00
2639 95DB E7 00 .. stab 00,x
2640 95DD C6 32 .2 ldab #32
2641 95DF F7 00 3A ..: stab 003a
2643 95E4 CE 00 19 ... ldx #0019
2644 95E7 1C 00 .. bset add,x 00,x
2645 95E9 80 7F .. suba #7f
2648 95ED BD BE 01 ... jsr be01 ;jump70
2649 95F0 7C 00 54 |.T inc 0054
2650 95F3 F6 00 54 ..T ldab 0054
2651 95F6 C1 02 .. cmpb #02
2652 95F8 26 5A &Z bne 5a
2653 95FA CE 00 1D ... ldx #001d
2654 95FD 1C 00 .. bset add,x 00,x
2655 95FF 80 F6 .. suba #f6
2657 9602 94 CB D0 ... anda cb
2659 9606 F6 0B 95 ... ldab 0b95
2660 9609 CB D0 .. addb #d0
2661 960B 86 0A .. ldaa #0a
2664 960F EB 00 .. addb 00,x
2666 9612 F7 00 06 ... stab 0006
2667 9615 C6 32 .2 ldab #32
2668 9617 F7 00 3A ..: stab 003a
2669 961A F6 00 06 ... ldab 0006
2670 961D BD D7 A0 ... jsr d7a0 ;is_invalid_slot
2671 9620 83 00 00 ... subd #0000
2672 9623 26 21 &! bne 21
2673 9625 BD D3 11 ... jsr d311 ;jump30 - test position exists
2674 9628 83 00 00 ... subd #0000
2675 962B 26 0B &. bne 0b
2676 962D CE 00 1F ... ldx #001f
2677 9630 1C 00 40 ... bset 00,x, #40
2678 9633 BD 8C 73 ..s jsr 8c73 ;jump75
2680 9638 CE 00 1F ... ldx #001f
2681 963B 1D 00 40 ... bclr 00,x, #40
2682 963E 7F 00 2C .., clr 002c
2683 9641 BD 9A 47 ..G jsr 9a47 ;jump39
2685 9646 CE 00 1D ... ldx #001d
2686 9649 1D 00 .. bclr add,x 00,x
2687 964B 80 CE .. suba #ce
2690 964F 1C 00 .. bset add,x 00,x
2691 9651 80 20 . suba #20
2693 9654 CE 00 1D ... ldx #001d
2694 9657 1D 00 .. bclr add,x 00,x
2695 9659 80 20 . suba #20
2697 965B 2B F6 +. bmi f6
2701 965E 1D 2C ., bclr add,x 2c,x
2702 9660 26 BD &. bne bd
2703 9662 D2 13 83 ... sbcb 13
2706 9667 26 0F &. bne 0f
2707 9669 CC 00 64 ..d ldd #0064
2708 966C BD E5 71 ..q jsr e571 ;msdelay
2709 966F BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
2710 9672 CC 03 84 ... ldd #0384
2711 9675 BD E5 71 ..q jsr e571 ;msdelay
2712 9678 7F 00 2E ... clr 002e
2713 967B CE 00 1D ... ldx #001d
2714 967E 1D 00 .. bclr add,x 00,x
2715 9680 80 CE .. suba #ce
2717 9683 1F 1C 00 02 .... brclr 1c,x 00 02
2723 9689 F6 00 19 ... ldab 0019
2724 968C 2C 19 ,. bge 19
2725 968E CE 00 19 ... ldx #0019
2726 9691 1D 00 80 .. bclr 00,x, #80
2727 9694 CC B0 97 ... ldd #b097 ; "TEST VEND"
2728 9697 BD C0 BA ... jsr c0ba ; display
2729 969A C6 0A .. ldab #0a
2730 969C F7 00 38 ..8 stab 0038
2731 969F 7F 00 05 ... clr 0005
2732 96A2 C6 01 .. ldab #01
2733 96A4 F7 00 06 ... stab 0006
2734 96A7 F6 00 0A ... ldab 000a
2735 96AA C1 0B .. cmpb #0b
2736 96AC 26 0C &. bne 0c ; to 96ba
2737 96AE CC 02 33 ..3 ldd #0233
2738 96B1 FD 00 3B ..; std 003b
2739 96B4 CE 00 1F ... ldx #001f
2740 96B7 1C 00 02 ... bset 00,x, #02
2741 96BA F6 00 38 ..8 ldab 0038
2742 96BD 27 03 '. beq 03
2743 96BF 7E 97 6D ~.m jmp 976d ;goto17 - return
2744 96C2 F6 00 06 ... ldab 0006
2745 96C5 C1 63 .c cmpb #63 ; exit if >63
2746 96C7 23 03 #. bls 03
2747 96C9 7E 97 6D ~.m jmp 976d ;goto17 - return
2748 96CC F6 00 06 ... ldab 0006
2749 96CF C1 63 .c cmpb #63
2750 96D1 26 0F &. bne 0f
2751 96D3 BD 99 C3 ... jsr 99c3 ;jump143 - write "VENDS XXX" (from 0005)
2752 96D6 CC 07 D0 ... ldd #07d0 ; 2000
2753 96D9 BD E5 71 ..q jsr e571 ;msdelay
2754 96DC CE 00 1F ... ldx #001f
2755 96DF 1C 00 02 ... bset 00,x, #02
2756 96E2 BD D3 11 ... jsr d311 ;jump30 - test position exists
2757 96E5 83 00 00 ... subd #0000
2758 96E8 26 0B &. bne 0b
2759 96EA CE 00 1F ... ldx #001f
2760 96ED 1C 00 40 ... bset 00,x, #40
2761 96F0 BD 8C 73 ..s jsr 8c73 ;jump75
2763 96F5 CE 00 1F ... ldx #001f
2764 96F8 1D 00 40 ... bclr 00,x, #40
2765 96FB BD 9A 47 ..G jsr 9a47 ;jump39
2766 96FE F6 00 06 ... ldab 0006
2767 9701 C1 63 .c cmpb #63
2768 9703 26 03 &. bne 03
2769 9705 7F 00 2C .., clr 002c
2770 9708 BD D2 13 ... jsr d213 ;jump45
2771 970B 83 00 00 ... subd #0000
2772 970E 27 03 '. beq 03
2773 9710 7C 00 05 |.. inc 0005
2774 9713 7F 00 2E ... clr 002e
2775 9716 C6 05 .. ldab #05
2776 9718 F7 00 38 ..8 stab 0038
2777 971B CC 02 33 ..3 ldd #0233
2778 971E FD 00 3B ..; std 003b
2780 9722 6F 00 o. clr 00,x
2781 9724 F6 0E 6D ..m ldab 0e6d
2782 9727 27 0C '. beq 0c
2783 9729 F6 00 06 ... ldab 0006
2784 972C C1 3E .> cmpb #3e
2785 972E 26 05 &. bne 05
2786 9730 C6 01 .. ldab #01
2788 9733 E7 00 .. stab 00,x
2789 9735 8D 38 .8 bsr dest 38
2790 9737 F6 0E 6D ..m ldab 0e6d
2791 973A 27 0C '. beq 0c
2793 973D E6 00 .. ldab 00,x
2794 973F C1 01 .. cmpb #01
2795 9741 26 05 &. bne 05
2796 9743 C6 45 .E ldab #45
2797 9745 F7 00 06 ... stab 0006
2798 9748 F6 00 06 ... ldab 0006
2799 974B BD D7 A0 ... jsr d7a0 ;is_invalid_slot
2800 974E 83 00 00 ... subd #0000
2801 9751 27 15 '. beq 15
2802 9753 F6 00 06 ... ldab 0006
2803 9756 C1 09 .. cmpb #09
2804 9758 26 02 &. bne 02
2805 975A 8D 13 .. bsr dest 13
2806 975C F6 00 06 ... ldab 0006
2807 975F C1 45 .E cmpb #45
2808 9761 26 05 &. bne 05
2809 9763 C6 63 .c ldab #63
2810 9765 F7 00 06 ... stab 0006
2813 976A FD 00 40 ..@ std 0040
2819 976F F6 0E 6D ..m ldab 0e6d
2820 9772 C1 01 .. cmpb #01
2821 9774 26 41 &A bne 41
2822 9776 F6 00 06 ... ldab 0006
2824 977A CE 00 0A ... ldx #000a
2826 977E C1 01 .. cmpb #01
2827 9780 26 05 &. bne 05
2828 9782 7C 00 06 |.. inc 0006
2830 9787 F6 00 06 ... ldab 0006
2832 978B CE 00 0A ... ldx #000a
2834 978F C1 02 .. cmpb #02
2835 9791 26 0A &. bne 0a
2836 9793 C6 09 .. ldab #09
2837 9795 FB 00 06 ... addb 0006
2838 9798 F7 00 06 ... stab 0006
2840 979D C6 0B .. ldab #0b
2841 979F F7 00 06 ... stab 0006
2842 97A2 F6 00 06 ... ldab 0006
2843 97A5 C1 3E .> cmpb #3e
2844 97A7 22 07 ". bhi 07
2845 97A9 F6 00 06 ... ldab 0006
2846 97AC C1 0B .. cmpb #0b
2847 97AE 24 05 $. bcc 05
2848 97B0 C6 0B .. ldab #0b
2849 97B2 F7 00 06 ... stab 0006
2851 97B7 F6 00 06 ... ldab 0006
2852 97BA CB 0A .. addb #0a
2853 97BC F7 00 06 ... stab 0006
2854 97BF F6 00 06 ... ldab 0006
2855 97C2 C1 64 .d cmpb #64
2856 97C4 23 22 #" bls 22
2857 97C6 F6 00 06 ... ldab 0006
2858 97C9 CB 9C .. addb #9c
2859 97CB CB 01 .. addb #01
2860 97CD F7 00 06 ... stab 0006
2861 97D0 F6 00 06 ... ldab 0006
2862 97D3 C1 05 .. cmpb #05
2863 97D5 26 05 &. bne 05
2864 97D7 C6 06 .. ldab #06
2865 97D9 F7 00 06 ... stab 0006
2866 97DC F6 00 06 ... ldab 0006
2867 97DF C1 0A .. cmpb #0a
2868 97E1 26 05 &. bne 05
2869 97E3 C6 01 .. ldab #01
2870 97E5 F7 00 06 ... stab 0006
2874 97E9 BD BE 4B ..K jsr be4b ;displayblank
2875 97EC CC AF E7 ... ldd #afe7 ; "-PRINTING-"
2876 97EF BD C0 BA ... jsr c0ba ;display:
2877 97F2 BD F4 15 ... jsr f415 ;jump112 - print a report
2881 97F6 BD BE 4B ..K jsr be4b ;displayblank
2882 97F9 F6 00 48 ..H ldab 0048
2884 97FD BD FE 16 ... jsr fe16 ;jump2
2885 9800 00 01 00 03 . test
2891 980E F6 0C D9 .. ldab 0cd9
2893 9812 BD E7 95 ... jsr e795 ;jump54 - number to string
2894 9815 C6 4E .N ldab #4e
2895 9817 F7 0B 99 ... stab 0b99
2896 981A C6 49 .I ldab #49
2897 981C F7 0B 98 ... stab 0b98
2898 981F C6 4B .K ldab #4b
2899 9821 F7 0B 97 ... stab 0b97
2900 9824 C6 4C .L ldab #4c
2901 9826 F7 0B 96 ... stab 0b96
2903 982B F6 0C DA ... ldab 0cda
2905 982F BD E7 95 ... jsr e795 ;jump54 - number to string
2906 9832 C6 44 .D ldab #44
2907 9834 F7 0B 99 ... stab 0b99
2908 9837 C6 49 .I ldab #49
2909 9839 F7 0B 98 ... stab 0b98
2910 983C C6 4D .M ldab #4d
2911 983E F7 0B 97 ... stab 0b97
2912 9841 C6 45 .E ldab #45
2913 9843 F7 0B 96 ... stab 0b96
2915 9848 F6 0C DB ... ldab 0cdb
2917 984C BD E7 95 ... jsr e795 ;jump54 - number to string
2918 984F C6 51 .Q ldab #51
2919 9851 F7 0B 99 ... stab 0b99
2920 9854 C6 55 .U ldab #55
2921 9856 F7 0B 98 ... stab 0b98
2922 9859 C6 54 .T ldab #54
2923 985B F7 0B 97 ... stab 0b97
2924 985E C6 52 .R ldab #52
2925 9860 F7 0B 96 ... stab 0b96
2927 9865 F6 0C DC ... ldab 0cdc
2929 9869 BD E7 95 ... jsr e795 ;jump54 - number to string
2930 986C C6 44 .D ldab #44 ; "D"
2931 986E F7 0B 99 ... stab 0b99
2932 9871 C6 4F .O ldab #4f ; "O"
2933 9873 F7 0B 98 ... stab 0b98
2934 9876 C6 4C .L ldab #4c ; "L"
2935 9878 F7 0B 97 ... stab 0b97
2936 987B C6 52 .R ldab #52 ; "R"
2937 987D F7 0B 96 ... stab 0b96
2938 9880 C6 53 .S ldab #53 ; "S"
2939 9882 F7 0B 95 ... stab 0b95
2940 9885 C6 20 . ldab #20 ; " "
2941 9887 F7 0B 94 ... stab 0b94
2942 988A C6 20 . ldab #20 ; " "
2943 988C F7 0B 93 ... stab 0b93
2944 988F F6 00 5D ..] ldab 005d
2945 9892 F7 0B 92 ... stab 0b92
2946 9895 F6 00 5E ..^ ldab 005e ; row number?
2947 9898 F7 0B 91 ... stab 0b91
2948 989B F6 00 5F .._ ldab 005f ; column number?
2949 989E F7 0B 90 ... stab 0b90
2950 98A1 BD BE 01 ... jsr be01 ;jump70 - to disp buffer
2954 ; prints contents of 0054 to display
2955 98A5 BD BE 4B ..K jsr be4b ;displayblank
2956 98A8 F6 00 54 ..T ldab 0054
2958 98AC BD E7 95 ... jsr e795 ; slot number to digits
2959 98AF F6 00 5E ..^ ldab 005e
2960 98B2 F7 0B 95 ... stab 0b95
2961 98B5 F6 00 5F .._ ldab 005f
2962 98B8 F7 0B 94 ... stab 0b94
2963 98BB BD BE 01 ... jsr be01 ;jump70 - write to display
2967 98BF F6 00 09 ... ldab 0009
2968 98C2 C1 00 .. cmpb #00
2969 98C4 26 05 &. bne 05
2970 98C6 BD 9E 89 ... jsr 9e89 ;jump100
2972 98CB C1 01 .. cmpb #01
2973 98CD 26 1E &. bne 1e
2974 98CF F6 00 48 ..H ldab 0048
2975 98D2 C1 92 .. cmpb #92
2976 98D4 26 15 &. bne 15
2977 98D6 F6 00 1F ... ldab 001f
2978 98D9 C4 10 .. andb #10
2979 98DB 26 08 &. bne 08
2980 98DD CE 00 1F ... ldx #001f
2981 98E0 1C 00 10 ... bset 00,x, #10
2983 98E5 CE 00 1F ... ldx #001f
2984 98E8 1D 00 10 ... bclr 00,x, #10
2986 98ED C1 0B .. cmpb #0b
2987 98EF 26 0D &. bne 0d
2988 98F1 F6 00 1F ... ldab 001f
2989 98F4 C4 10 .. andb #10
2990 98F6 27 03 '. beq 03
2991 98F8 BD E9 2B ..+ jsr e92b ;jump103
2992 98FB BD 85 AF ... jsr 85af ;jump14
2996 98FF F6 00 1F ... ldab 001f
2997 9902 C4 02 .. andb #02
2998 9904 27 13 '. beq 13
2999 9906 C6 01 .. ldab #01
3000 9908 F7 00 48 ..H stab 0048
3001 990B CE 00 1F ... ldx #001f
3002 990E 1D 00 10 ... bclr 00,x, #10
3003 9911 CE 00 1F ... ldx #001f
3004 9914 1D 00 02 ... bclr 00,x, #02
3006 9919 F6 00 09 ... ldab 0009
3008 991D BD FE 32 ..2 jsr fe32 ;jump25
3009 9920 99 36 00 00 .6.. ; array data for jump25
3010 9924 99 3B 00 01 .;..
3011 9928 99 59 00 09 .Y..
3012 992C 99 73 00 01 .s..
3013 9930 99 80 FF F5 ....
3014 9934 00 00 .. ; end of array data
3015 9936 BD 9E 89 ... jsr 9e89 ;jump100
3017 993B F6 00 48 ..H ldab 0048
3018 993E C1 92 .. cmpb #92
3019 9940 26 15 &. bne 15
3020 9942 F6 00 1F ... ldab 001f
3021 9945 C4 10 .. andb #10
3022 9947 26 08 &. bne 08
3023 9949 CE 00 1F ... ldx #001f
3024 994C 1C 00 10 ... bset 00,x, #10
3026 9951 CE 00 1F ... ldx #001f
3027 9954 1D 00 10 ... bclr 00,x, #10
3029 9959 7C 00 48 |.H inc 0048
3030 995C F6 00 48 ..H ldab 0048
3031 995F C1 92 .. cmpb #92
3032 9961 23 0B #. bls 0b
3033 9963 C6 01 .. ldab #01
3034 9965 F7 00 48 ..H stab 0048
3035 9968 CE 00 1F ... ldx #001f
3036 996B 1D 00 10 ... bclr 00,x, #10
3037 996E BD 9E 89 ... jsr 9e89 ;jump100
3039 9973 F6 00 1F ... ldab 001f
3040 9976 C4 10 .. andb #10
3041 9978 27 03 '. beq 03
3042 997A BD E9 2B ..+ jsr e92b ;jump103
3043 997D BD 85 AF ... jsr 85af ;jump14
3047 ; writes "MOTORS XX" where XX is the slot number in 0005
3048 9981 BD BE 4B ..K jsr be4b ;displayblank
3049 9984 F6 00 05 ... ldab 0005
3051 9988 BD E7 95 ... jsr e795 ;jump54 - number to string
3052 998B C6 4D .M ldab #4d ; "M"
3053 998D F7 0B 99 ... stab 0b99
3054 9990 C6 4F .O ldab #4f ; "O"
3055 9992 F7 0B 98 ... stab 0b98
3056 9995 C6 54 .T ldab #54 ; "T"
3057 9997 F7 0B 97 ... stab 0b97
3058 999A C6 4F .O ldab #4f ; "O"
3059 999C F7 0B 96 ... stab 0b96
3060 999F C6 52 .R ldab #52 ; "R"
3061 99A1 F7 0B 95 ... stab 0b95
3062 99A4 C6 53 .S ldab #53 ; "S"
3063 99A6 F7 0B 94 ... stab 0b94
3064 99A9 C6 20 . ldab #20 ; " "
3065 99AB F7 0B 93 ... stab 0b93
3066 99AE C6 20 . ldab #20 ; " "
3067 99B0 F7 0B 92 ... stab 0b92
3068 99B3 F6 00 5E ..^ ldab 005e
3069 99B6 F7 0B 91 ... stab 0b91
3070 99B9 F6 00 5F .._ ldab 005f
3071 99BC F7 0B 90 ... stab 0b90
3072 99BF BD BE 01 ... jsr be01 ;jump70 - display
3076 ; writes VENDS XX where XX is contents of 0005
3077 99C3 BD BE 4B ..K jsr be4b ;displayblank
3078 99C6 F6 00 05 ... ldab 0005
3080 99CA BD E7 95 ... jsr e795 ;jump54 - number to string
3081 99CD C6 56 .V ldab #56 ; "V"
3082 99CF F7 0B 99 ... stab 0b99
3083 99D2 C6 45 .E ldab #45 ; "E"
3084 99D4 F7 0B 98 ... stab 0b98
3085 99D7 C6 4E .N ldab #4e ; "N"
3086 99D9 F7 0B 97 ... stab 0b97
3087 99DC C6 44 .D ldab #44 ; "D"
3088 99DE F7 0B 96 ... stab 0b96
3089 99E1 C6 53 .S ldab #53 ; "S"
3090 99E3 F7 0B 95 ... stab 0b95
3091 99E6 C6 20 . ldab #20 ; " "
3092 99E8 F7 0B 94 ... stab 0b94
3093 99EB C6 20 . ldab #20 ; " "
3094 99ED F7 0B 93 ... stab 0b93
3095 99F0 C6 20 . ldab #20 ; " "
3096 99F2 F7 0B 92 ... stab 0b92
3097 99F5 F6 00 5E ..^ ldab 005e
3098 99F8 F7 0B 91 ... stab 0b91
3099 99FB F6 00 5F .._ ldab 005f
3100 99FE F7 0B 90 ... stab 0b90
3101 9A01 BD BE 01 ... jsr be01 ;jump70
3105 9A05 BD BE 4B ..K jsr be4b ;displayblank
3106 9A08 FC 00 52 ..R ldd 0052
3107 9A0B BD E7 45 ..E jsr e745 ;jump55 - number to string
3108 9A0E C6 4F .O ldab #4f ; "O"
3109 9A10 F7 0B 99 ... stab 0b99
3110 9A13 C6 44 .D ldab #44 ; "D"
3111 9A15 F7 0B 98 ... stab 0b98
3112 9A18 C6 44 .D ldab #44 ; "D"
3113 9A1A F7 0B 97 ... stab 0b97
3114 9A1D C6 53 .S ldab #53 ; "S"
3115 9A1F F7 0B 96 ... stab 0b96
3116 9A22 C6 20 . ldab #20 ; " "
3117 9A24 F7 0B 95 ... stab 0b95
3118 9A27 C6 31 .1 ldab #31 ; "1"
3119 9A29 F7 0B 94 ... stab 0b94
3120 9A2C C6 2F ./ ldab #2f ; "/"
3121 9A2E F7 0B 93 ... stab 0b93
3122 9A31 F6 00 5D ..] ldab 005d
3123 9A34 F7 0B 92 ... stab 0b92
3124 9A37 F6 00 5E ..^ ldab 005e
3125 9A3A F7 0B 91 ... stab 0b91
3126 9A3D F6 00 5F .._ ldab 005f
3127 9A40 F7 0B 90 ... stab 0b90
3128 9A43 BD BE 01 ... jsr be01 ;jump70
3132 9A47 BD BE 4B ..K jsr be4b ;displayblank
3133 9A4A F6 00 06 ... ldab 0006
3135 9A4E BD E7 95 ... jsr e795 ;jump54 - number to string
3136 9A51 F6 00 5E ..^ ldab 005e
3137 9A54 F7 0B 99 ... stab 0b99
3138 9A57 F6 00 5F .._ ldab 005f
3139 9A5A F7 0B 98 ... stab 0b98
3140 9A5D C6 20 . ldab #20
3141 9A5F F7 0B 97 ... stab 0b97
3142 9A62 F6 00 1F ... ldab 001f
3143 9A65 C4 40 .@ andb #40
3144 9A67 27 45 'E beq 45
3145 9A69 FC 00 27 ..' ldd 0027
3146 9A6C BD E7 45 ..E jsr e745 ;jump55 - number to string
3147 9A6F F6 00 5A ..Z ldab 005a
3148 9A72 F7 0B 96 ... stab 0b96
3149 9A75 F6 00 5D ..] ldab 005d
3150 9A78 F7 0B 95 ... stab 0b95
3151 9A7B F6 00 5E ..^ ldab 005e
3152 9A7E F7 0B 94 ... stab 0b94
3153 9A81 F6 00 5F .._ ldab 005f
3154 9A84 F7 0B 93 ... stab 0b93
3155 9A87 F6 00 19 ... ldab 0019
3156 9A8A C4 10 .. andb #10
3157 9A8C 27 07 '. beq 07
3158 9A8E C6 2A .* ldab #2a
3159 9A90 F7 0B 92 ... stab 0b92
3161 9A95 C6 20 . ldab #20
3162 9A97 F7 0B 92 ... stab 0b92
3163 9A9A FC 00 46 ..F ldd 0046
3164 9A9D BD E7 45 ..E jsr e745 ;jump55 - number to string
3165 9AA0 F6 00 5E ..^ ldab 005e
3166 9AA3 F7 0B 91 ... stab 0b91
3167 9AA6 F6 00 5F .._ ldab 005f
3168 9AA9 F7 0B 90 ... stab 0b90
3170 9AAE C6 58 .X ldab #58 : "X"
3171 9AB0 F7 0B 96 ... stab 0b96
3172 9AB3 C6 58 .X ldab #58 : "X"
3173 9AB5 F7 0B 95 ... stab 0b95
3174 9AB8 C6 58 .X ldab #58 : "X"
3175 9ABA F7 0B 94 ... stab 0b94
3176 9ABD C6 58 .X ldab #58 : "X"
3177 9ABF F7 0B 93 ... stab 0b93
3178 9AC2 C6 58 .X ldab #58 : "X"
3179 9AC4 F7 0B 91 ... stab 0b91
3180 9AC7 C6 58 .X ldab #58 : "X"
3181 9AC9 F7 0B 90 ... stab 0b90
3182 9ACC F6 00 13 ... ldab 0013
3183 9ACF C1 01 .. cmpb #01
3184 9AD1 23 4C #L bls 4c
3185 9AD3 F6 0B 91 ... ldab 0b91
3186 9AD6 F7 0B 90 ... stab 0b90
3187 9AD9 F6 0B 92 ... ldab 0b92
3188 9ADC F7 0B 91 ... stab 0b91
3189 9ADF F6 0B 93 ... ldab 0b93
3190 9AE2 F7 0B 92 ... stab 0b92
3191 9AE5 F6 0B 94 ... ldab 0b94
3192 9AE8 F7 0B 93 ... stab 0b93
3193 9AEB F6 00 13 ... ldab 0013
3194 9AEE C1 02 .. cmpb #02
3195 9AF0 26 07 &. bne 07
3196 9AF2 C6 2E .. ldab #2e ; "."
3197 9AF4 F7 0B 94 ... stab 0b94
3199 9AF9 C1 04 .. cmpb #04
3200 9AFB 26 0D &. bne 0d
3201 9AFD F6 0B 95 ... ldab 0b95
3202 9B00 F7 0B 94 ... stab 0b94
3203 9B03 C6 2E .. ldab #2e ; "."
3204 9B05 F7 0B 95 ... stab 0b95
3206 9B0A C1 08 .. cmpb #08
3207 9B0C 26 11 &. bne 11
3208 9B0E F6 0B 95 ... ldab 0b95
3209 9B11 F7 0B 94 ... stab 0b94
3210 9B14 F6 0B 96 ... ldab 0b96
3211 9B17 F7 0B 95 ... stab 0b95
3212 9B1A C6 2E .. ldab #2e
3213 9B1C F7 0B 96 ... stab 0b96
3214 9B1F F6 00 2C .., ldab 002c
3215 9B22 26 3E &> bne 3e
3216 9B24 BD BE 69 ..i jsr be69 ;displayreset
3217 9B27 F6 00 13 ... ldab 0013
3218 9B2A C1 01 .. cmpb #01
3219 9B2C 23 2C #, bls 2c
3220 9B2E CE 10 28 ..( ldx #1028
3221 9B31 1C 00 40 ... bset 00,x, #40 ; enable SPI
3222 9B34 F6 00 1F ... ldab 001f
3223 9B37 C4 40 .@ andb #40
3224 9B39 27 0E '. beq 0e
3225 9B3B CE 00 01 ... ldx #0001
3227 9B3F F6 00 5F .._ ldab 005f
3229 9B43 BD BD B5 ... jsr bdb5 ;jump78
3232 9B49 CE 00 01 ... ldx #0001
3234 9B4D CC 00 58 ..X ldd #0058
3235 9B50 BD BD B5 ... jsr bdb5 ;jump78
3237 9B54 CE 10 28 ..( ldx #1028
3238 9B57 1D 00 40 ... bclr 00,x, #40
3239 9B5A BD BE 10 ... jsr be10 ;jump88
3240 9B5D C6 03 .. ldab #03
3241 9B5F F7 00 2C .., stab 002c
3245 9B63 BD BE 4B ..K jsr be4b ;displayblank
3246 9B66 FC 00 0D ... ldd 000d
3247 9B69 BD E7 45 ..E jsr e745 ;jump55 - number to string
3248 9B6C C6 44 .D ldab #44
3249 9B6E F7 0B 99 ... stab 0b99
3250 9B71 C6 53 .S ldab #53
3251 9B73 F7 0B 98 ... stab 0b98
3252 9B76 C6 43 .C ldab #43
3253 9B78 F7 0B 97 ... stab 0b97
3254 9B7B C6 4E .N ldab #4e
3255 9B7D F7 0B 96 ... stab 0b96
3256 9B80 C6 54 .T ldab #54
3257 9B82 F7 0B 95 ... stab 0b95
3258 9B85 C6 20 . ldab #20
3259 9B87 F7 0B 94 ... stab 0b94
3260 9B8A F6 00 5A ..Z ldab 005a
3261 9B8D F7 0B 93 ... stab 0b93
3262 9B90 F6 00 5D ..] ldab 005d
3263 9B93 F7 0B 92 ... stab 0b92
3264 9B96 F6 00 5E ..^ ldab 005e
3265 9B99 F7 0B 91 ... stab 0b91
3266 9B9C F6 00 5F .._ ldab 005f
3267 9B9F F7 0B 90 ... stab 0b90
3268 9BA2 F6 00 13 ... ldab 0013
3269 9BA5 C1 01 .. cmpb #01
3270 9BA7 23 3C #< bls 3c
3271 9BA9 F6 0B 91 ... ldab 0b91
3272 9BAC F7 0B 90 ... stab 0b90
3273 9BAF F6 00 13 ... ldab 0013
3274 9BB2 C1 02 .. cmpb #02
3275 9BB4 26 07 &. bne 07
3276 9BB6 C6 2E .. ldab #2e
3277 9BB8 F7 0B 91 ... stab 0b91
3279 9BBD C1 04 .. cmpb #04
3280 9BBF 26 0D &. bne 0d
3281 9BC1 F6 0B 92 ... ldab 0b92
3282 9BC4 F7 0B 91 ... stab 0b91
3283 9BC7 C6 2E .. ldab #2e
3284 9BC9 F7 0B 92 ... stab 0b92
3286 9BCE C1 08 .. cmpb #08
3287 9BD0 26 13 &. bne 13
3288 9BD2 F6 0B 92 ... ldab 0b92
3289 9BD5 F7 0B 91 ... stab 0b91
3290 9BD8 F6 0B 93 ... ldab 0b93
3291 9BDB F7 0B 92 ... stab 0b92
3292 9BDE C6 2E .. ldab #2e
3293 9BE0 F7 0B 93 ... stab 0b93
3295 9BE5 F6 00 2C .., ldab 002c
3296 9BE8 26 2A &* bne 2a
3297 9BEA BD BE 69 ..i jsr be69 ;displayreset
3298 9BED F6 00 13 ... ldab 0013
3299 9BF0 C1 01 .. cmpb #01
3300 9BF2 23 18 #. bls 18
3301 9BF4 CE 10 28 ..( ldx #1028
3302 9BF7 1C 00 40 ... bset 00,x, #40
3303 9BFA CE 00 01 ... ldx #0001
3305 9BFE F6 00 5F .._ ldab 005f
3307 9C02 BD BD B5 ... jsr bdb5 ;jump78
3309 9C06 CE 10 28 ..( ldx #1028
3310 9C09 1D 00 40 ... bclr 00,x, #40
3311 9C0C BD BE 10 ... jsr be10 ;jump88
3312 9C0F C6 03 .. ldab #03
3313 9C11 F7 00 2C .., stab 002c
3317 9C15 BD BE 4B ..K jsr be4b ;displayblank
3318 9C18 F6 00 48 ..H ldab 0048
3320 9C1C BD FE 16 ... jsr fe16 ;jump2
3325 9C23 9D 29 9C .). jsr 29
3327 9C27 9C 53 9C .S. cmpx 53
3329 9C2B 9C 83 9C ... cmpx 83
3330 9C2E 9B 9C B2 ... adda 9c
3331 9C31 9C C9 9C ... cmpx c9
3332 9C34 E0 9C .. subb 9c,x
3333 9C36 F7 9D 0E ... stab 9d0e
3334 9C39 9D 23 F6 .#. jsr 23
3336 9C3D 67 C4 g. asr c4,x
3338 9C40 27 08 '. beq 08
3339 9C42 CC AF 00 ... ldd #af00 ; "LNK MSTR Y"
3340 9C45 BD C0 BA ... jsr c0ba ;display:
3342 9C4A CC AF 0B ... ldd #af0b ; "LNK MSTR N"
3343 9C4D BD C0 BA ... jsr c0ba ;display:
3344 9C50 7E 9D 29 ~.) jmp 9d29 ;goto18
3345 9C53 F6 00 67 ..g ldab 0067
3346 9C56 C4 10 .. andb #10
3347 9C58 27 08 '. beq 08
3348 9C5A CC AF 42 ..B ldd #af42 ; "PRC HOLD Y"
3349 9C5D BD C0 BA ... jsr c0ba ;display:
3351 9C62 CC AF 4D ..M ldd #af4d ; "PRC HOLD N"
3352 9C65 BD C0 BA ... jsr c0ba ;display:
3353 9C68 7E 9D 29 ~.) jmp 9d29 ;goto18
3354 9C6B F6 00 67 ..g ldab 0067
3355 9C6E C4 20 . andb #20
3356 9C70 27 08 '. beq 08
3357 9C72 CC AF 58 ..X ldd #af58 ; "PRC DISP Y"
3358 9C75 BD C0 BA ... jsr c0ba ;display:
3360 9C7A CC AF 63 ..c ldd #af63 ; "PRC DISP N"
3361 9C7D BD C0 BA ... jsr c0ba ;display:
3362 9C80 7E 9D 29 ~.) jmp 9d29 ;goto18
3363 9C83 F6 00 67 ..g ldab 0067
3364 9C86 C4 01 .. andb #01
3365 9C88 27 08 '. beq 08
3366 9C8A CC AE EA ... ldd #aeea ; "DUMB MEC Y"
3367 9C8D BD C0 BA ... jsr c0ba ;display:
3369 9C92 CC AE F5 ... ldd #aef5 ; "DUMB MEC N"
3370 9C95 BD C0 BA ... jsr c0ba ;display:
3371 9C98 7E 9D 29 ~.) jmp 9d29 ;goto18
3372 9C9B F6 00 67 ..g ldab 0067
3373 9C9E C4 04 .. andb #04
3374 9CA0 27 08 '. beq 08
3375 9CA2 CC AF 16 ... ldd #af16 ; "CARD RDR Y"
3376 9CA5 BD C0 BA ... jsr c0ba ;display:
3378 9CAA CC AF 21 ..! ldd #af21 ; "CARD RDR N"
3379 9CAD BD C0 BA ... jsr c0ba ;display:
3381 9CB2 F6 00 67 ..g ldab 0067
3382 9CB5 C4 08 .. andb #08
3383 9CB7 27 08 '. beq 08
3384 9CB9 CC AF 2C .., ldd #af2c ; "BILL VAL Y"
3385 9CBC BD C0 BA ... jsr c0ba ;display:
3387 9CC1 CC AF 37 ..7 ldd #af37 ; "BILL VAL N"
3388 9CC4 BD C0 BA ... jsr c0ba ;display:
3390 9CC9 F6 00 67 ..g ldab 0067
3391 9CCC C4 40 .@ andb #40
3392 9CCE 27 08 '. beq 08
3393 9CD0 CC AF 84 ... ldd #af84 ; "$1 CHNGR Y"
3394 9CD3 BD C0 BA ... jsr c0ba ;display:
3396 9CD8 CC AF 8F ... ldd #af8f ; "$1 CHNGR N"
3397 9CDB BD C0 BA ... jsr c0ba ;display:
3399 9CE0 F6 0E 70 ..p ldab 0e70
3400 9CE3 C1 01 .. cmpb #01
3401 9CE5 26 08 &. bne 08
3402 9CE7 CC AE BE ... ldd #aebe ; "$5 ENABLE "
3403 9CEA BD C0 BA ... jsr c0ba ;display:
3405 9CEF CC AE C9 ... ldd #aec9 ; "$5 DISABLE"
3406 9CF2 BD C0 BA ... jsr c0ba ;display:
3408 9CF7 F6 0E 6F ..o ldab 0e6f
3409 9CFA C1 01 .. cmpb #01
3410 9CFC 26 08 &. bne 08
3411 9CFE CC AE D4 ... ldd #aed4 ; "SODA VEND "
3412 9D01 BD C0 BA ... jsr c0ba ;display:
3414 9D06 CC AE DF ... ldd #aedf ; "SNACK VEND"
3415 9D09 BD C0 BA ... jsr c0ba ;display:
3417 9D0E F6 00 67 ..g ldab 0067
3418 9D11 2C 08 ,. bge 08
3419 9D13 CC AF 6E ..n ldd #af6e ; "FREE VND Y"
3420 9D16 BD C0 BA ... jsr c0ba ;display:
3422 9D1B CC AF 79 ..y ldd #af79 ; "FREE VND N"
3423 9D1E BD C0 BA ... jsr c0ba ;display:
3425 9D23 CC AF B0 ... ldd #afb0 ; "HIT KEY "0""
3426 9D26 BD C0 BA ... jsr c0ba ;display:
3431 9D2A BD BE 4B ..K jsr be4b ;displayblank
3432 9D2D F6 00 22 .." ldab 0022
3434 9D31 BD E7 95 ... jsr e795 ;jump54 - number to string
3435 9D34 F6 00 5E ..^ ldab 005e
3436 9D37 F7 0B 99 ... stab 0b99
3437 9D3A F6 00 5F .._ ldab 005f
3438 9D3D F7 0B 98 ... stab 0b98
3439 9D40 C6 20 . ldab #20
3440 9D42 F7 0B 97 ... stab 0b97
3441 9D45 F6 00 24 ..$ ldab 0024
3443 9D49 BD E7 95 ... jsr e795 ;jump54 - number to string
3444 9D4C C6 50 .P ldab #50
3445 9D4E F7 0B 96 ... stab 0b96
3446 9D51 F6 00 5E ..^ ldab 005e
3447 9D54 F7 0B 95 ... stab 0b95
3448 9D57 F6 00 5F .._ ldab 005f
3449 9D5A F7 0B 94 ... stab 0b94
3450 9D5D C6 20 . ldab #20
3451 9D5F F7 0B 93 ... stab 0b93
3452 9D62 F6 00 2A ..* ldab 002a
3454 9D66 BD E7 95 ... jsr e795 ;jump54 - number to string
3455 9D69 C6 46 .F ldab #46
3456 9D6B F7 0B 92 ... stab 0b92
3457 9D6E F6 00 5E ..^ ldab 005e
3458 9D71 F7 0B 91 ... stab 0b91
3459 9D74 F6 00 5F .._ ldab 005f
3460 9D77 F7 0B 90 ... stab 0b90
3461 9D7A BD BE 01 ... jsr be01 ;jump70
3464 9D7E BD BE 4B ..K jsr be4b ;displayblank
3465 9D81 F6 00 60 ..` ldab 0060
3467 9D85 C3 0A 90 ... addd #0a90
3469 9D89 E6 00 .. ldab 00,x
3470 9D8B F7 0B 99 ... stab 0b99
3471 9D8E F6 00 60 ..` ldab 0060
3473 9D92 C3 0A 91 ... addd #0a91
3475 9D96 E6 00 .. ldab 00,x
3476 9D98 F7 0B 98 ... stab 0b98
3477 9D9B F6 00 60 ..` ldab 0060
3479 9D9F C3 0A 92 ... addd #0a92
3481 9DA3 E6 00 .. ldab 00,x
3482 9DA5 F7 0B 97 ... stab 0b97
3483 9DA8 F6 00 60 ..` ldab 0060
3485 9DAC C3 0A 94 ... addd #0a94
3487 9DB0 E6 00 .. ldab 00,x
3488 9DB2 F7 0B 95 ... stab 0b95
3489 9DB5 F6 00 60 ..` ldab 0060
3491 9DB9 C3 0A 95 ... addd #0a95
3493 9DBD E6 00 .. ldab 00,x
3494 9DBF F7 0B 94 ... stab 0b94
3495 9DC2 F6 00 60 ..` ldab 0060
3497 9DC6 C3 0A 96 ... addd #0a96
3499 9DCA E6 00 .. ldab 00,x
3500 9DCC F7 0B 93 ... stab 0b93
3501 9DCF C6 20 . ldab #20
3502 9DD1 F7 0B 92 ... stab 0b92
3503 9DD4 C6 20 . ldab #20
3504 9DD6 F7 0B 91 ... stab 0b91
3505 9DD9 F6 00 54 ..T ldab 0054
3507 9DDD C3 B4 8F ... addd #b48f
3509 9DE1 E6 00 .. ldab 00,x
3510 9DE3 F7 0B 90 ... stab 0b90
3511 9DE6 F6 00 38 ..8 ldab 0038
3512 9DE9 C1 03 .. cmpb #03
3513 9DEB 24 0F $. bcc 0f
3514 9DED F6 00 60 ..` ldab 0060
3516 9DF1 C3 0A 93 ... addd #0a93
3518 9DF5 E6 00 .. ldab 00,x
3519 9DF7 F7 0B 96 ... stab 0b96
3521 9DFC C6 1F .. ldab #1f
3522 9DFE F7 0B 96 ... stab 0b96
3523 9E01 BD BE 01 ... jsr be01 ;jump70
3524 9E04 F6 00 38 ..8 ldab 0038
3525 9E07 26 05 &. bne 05
3526 9E09 C6 05 .. ldab #05
3527 9E0B F7 00 38 ..8 stab 0038
3531 9E0F BD BE 4B ..K jsr be4b ;displayblank
3532 9E12 F6 00 48 ..H ldab 0048
3533 9E15 26 15 &. bne 15
3534 9E17 F6 00 66 ..f ldab 0066
3535 9E1A 27 08 '. beq 08
3536 9E1C CC AF C6 ... ldd #afc6 ; "SECURE ON"
3537 9E1F BD C0 BA ... jsr c0ba ;display:
3539 9E24 CC AF D1 ... ldd #afd1 ; "SECURE OFF"
3540 9E27 BD C0 BA ... jsr c0ba ;display:
3542 9E2C C6 4D .M ldab #4d
3543 9E2E F7 0B 99 ... stab 0b99
3544 9E31 C6 45 .E ldab #45
3545 9E33 F7 0B 98 ... stab 0b98
3546 9E36 C6 4E .N ldab #4e
3547 9E38 F7 0B 97 ... stab 0b97
3548 9E3B C6 55 .U ldab #55
3549 9E3D F7 0B 96 ... stab 0b96
3550 9E40 C6 20 . ldab #20
3551 9E42 F7 0B 95 ... stab 0b95
3552 9E45 F6 00 48 ..H ldab 0048
3553 9E48 CB 30 .0 addb #30
3554 9E4A F7 0B 94 ... stab 0b94
3555 9E4D F6 00 48 ..H ldab 0048
3556 9E50 C1 0A .. cmpb #0a
3557 9E52 26 05 &. bne 05
3558 9E54 C6 30 .0 ldab #30
3559 9E56 F7 0B 94 ... stab 0b94
3560 9E59 C6 20 . ldab #20
3561 9E5B F7 0B 93 ... stab 0b93
3562 9E5E C6 4F .O ldab #4f
3563 9E60 F7 0B 92 ... stab 0b92
3564 9E63 F6 00 48 ..H ldab 0048
3566 9E67 C3 00 68 ..h addd #0068
3568 9E6B E6 00 .. ldab 00,x
3569 9E6D 27 0C '. beq 0c
3570 9E6F C6 4E .N ldab #4e
3571 9E71 F7 0B 91 ... stab 0b91
3572 9E74 C6 20 . ldab #20
3573 9E76 F7 0B 90 ... stab 0b90
3575 9E7B C6 46 .F ldab #46
3576 9E7D F7 0B 91 ... stab 0b91
3577 9E80 C6 46 .F ldab #46
3578 9E82 F7 0B 90 ... stab 0b90
3579 9E85 BD BE 01 ... jsr be01 ;jump70
3583 9E89 BD BE 4B ..K jsr be4b ;displayblank
3584 9E8C F6 00 48 ..H ldab 0048
3586 9E90 BD FE 16 ... jsr fe16 ;jump2
3590 9E96 2D A1 -. blt a1
3591 9E98 C4 9E .. andb #9e
3592 9E9A F5 9E FE ... bitb 9efe
3593 9E9D 9F 07 9F ... sts 07
3595 9EA1 9F 19 9F ... sts 19
3597 9EA5 9F 44 9F .D. sts 44
3599 9EA9 9F 5B 9F .[. sts 5b
3601 9EAD 9F 72 9F .r. sts 72
3602 9EB0 80 9F .. suba #9f
3603 9EB2 89 9F .. adca #9f
3604 9EB4 97 9F A0 ... staa 9f
3605 9EB7 9F AE 9F ... sts ae
3606 9EBA B7 9F C5 ... staa 9fc5
3607 9EBD 9F DD 9F ... sts dd
3608 9EC0 EB A0 .. addb a0,x
3610 9EC3 A0 11 .. suba 11,x
3611 9EC5 A0 29 .) suba 29,x
3612 9EC7 A0 37 .7 suba 37,x
3613 9EC9 A0 54 .T suba 54,x
3614 9ECB A0 62 .b suba 62,x
3615 9ECD A0 7F .. suba 7f,x
3616 9ECF A0 8D .. suba 8d,x
3617 9ED1 A0 96 .. suba 96,x
3618 9ED3 A0 A4 .. suba a4,x
3619 9ED5 A0 AD .. suba ad,x
3620 9ED7 A0 BC .. suba bc,x
3621 9ED9 A0 C5 .. suba c5,x
3622 9EDB A0 D4 .. suba d4,x
3623 9EDD A0 DD .. suba dd,x
3624 9EDF A0 EC .. suba ec,x
3625 9EE1 A0 F5 .. suba f5,x
3626 9EE3 A1 04 .. cmpa 04,x
3627 9EE5 A1 26 .& cmpa 26,x
3628 9EE7 A1 34 .4 cmpa 34,x
3629 9EE9 A1 55 .U cmpa 55,x
3630 9EEB A1 62 .b cmpa 62,x
3631 9EED A1 83 .. cmpa 83,x
3632 9EEF A1 90 .. cmpa 90,x
3633 9EF1 A1 B1 .. cmpa b1,x
3634 9EF3 A1 BE .. cmpa be,x
3635 9EF5 CC B2 90 ... ldd #b290 ; "SERIAL #"
3636 9EF8 BD C0 BA ... jsr c0ba ;display:
3637 9EFB 7E A1 C4 ~.. jmp a1c4 ;goto19
3638 9EFE CC 0C BC ... ldd #0cbc ; serial number?
3639 9F01 BD C0 BA ... jsr c0ba ;display:
3640 9F04 7E A1 C4 ~.. jmp a1c4 ;goto19
3641 9F07 CC B2 A2 ... ldd #b2a2 ; "MACHINE ID"
3642 9F0A BD C0 BA ... jsr c0ba ;display:
3643 9F0D 7E A1 C4 ~.. jmp a1c4 ;goto19
3644 9F10 CC 0C CC ... ldd #0ccc ; machine id?
3645 9F13 BD C0 BA ... jsr c0ba ;display:
3646 9F16 7E A1 C4 ~.. jmp a1c4 ;goto19
3647 9F19 C6 41 .A ldab #41
3648 9F1B F7 0B 99 ... stab 0b99
3649 9F1E C6 55 .U ldab #55
3650 9F20 F7 0B 98 ... stab 0b98
3651 9F23 C6 44 .D ldab #44
3652 9F25 F7 0B 97 ... stab 0b97
3653 9F28 C6 54 .T ldab #54
3654 9F2A F7 0B 96 ... stab 0b96
3655 9F2D CE 00 00 ... ldx #0000
3657 9F31 FC 0C E7 ... ldd 0ce7
3658 9F34 BD A2 D4 ... jsr a2d4 ;jump79
3660 9F38 7E A1 C4 ~.. jmp a1c4 ;goto19
3661 9F3B CC B2 C6 ... ldd #b2c6 ; "SALES (R) "
3662 9F3E BD C0 BA ... jsr c0ba ;display:
3663 9F41 7E A1 C4 ~.. jmp a1c4 ;goto19
3664 9F44 FE 0D E9 ... ldx 0de9
3666 9F48 FC 0D E7 ... ldd 0de7
3667 9F4B BD A3 41 ..A jsr a341 ;jump77
3669 9F4F 7E A1 C4 ~.. jmp a1c4 ;goto19
3670 9F52 CC B2 D8 ... ldd #b2d8 ; "SALES (N) "
3671 9F55 BD C0 BA ... jsr c0ba ;display:
3672 9F58 7E A1 C4 ~.. jmp a1c4 ;goto19
3673 9F5B FE 0D ED ... ldx 0ded
3675 9F5F FC 0D EB ... ldd 0deb
3676 9F62 BD A3 41 ..A jsr a341 ;jump77
3678 9F66 7E A1 C4 ~.. jmp a1c4 ;goto19
3679 9F69 CC B2 EA ... ldd #b2ea ; "BAG TOTAL"
3680 9F6C BD C0 BA ... jsr c0ba ;display:
3681 9F6F 7E A1 C4 ~.. jmp a1c4 ;goto19
3682 9F72 FE 0D F1 ... ldx 0df1
3684 9F76 FC 0D EF ... ldd 0def
3685 9F79 BD A3 41 ..A jsr a341 ;jump77
3687 9F7D 7E A1 C4 ~.. jmp a1c4 ;goto19
3688 9F80 CC B2 FC ... ldd #b2fc ; "CASH BOX"
3689 9F83 BD C0 BA ... jsr c0ba ;display:
3690 9F86 7E A1 C4 ~.. jmp a1c4 ;goto19
3691 9F89 FE 0D F9 ... ldx 0df9
3693 9F8D FC 0D F7 ... ldd 0df7
3694 9F90 BD A3 41 ..A jsr a341 ;jump77
3696 9F94 7E A1 C4 ~.. jmp a1c4 ;goto19
3697 9F97 CC B3 0E ... ldd #b30e ; "CARD SALES"
3698 9F9A BD C0 BA ... jsr c0ba ;display:
3699 9F9D 7E A1 C4 ~.. jmp a1c4 ;goto19
3700 9FA0 FE 0D FD ... ldx 0dfd
3702 9FA4 FC 0D FB ... ldd 0dfb
3703 9FA7 BD A3 41 ..A jsr a341 ;jump77
3705 9FAB 7E A1 C4 ~.. jmp a1c4 ;goto19
3706 9FAE CC B3 35 ..5 ldd #b335 ; "BILL TOTAL"
3707 9FB1 BD C0 BA ... jsr c0ba ;display:
3708 9FB4 7E A1 C4 ~.. jmp a1c4 ;goto19
3709 9FB7 FE 0D F5 ... ldx 0df5
3711 9FBB FC 0D F3 ... ldd 0df3
3712 9FBE BD A3 41 ..A jsr a341 ;jump77
3714 9FC2 7E A1 C4 ~.. jmp a1c4 ;goto19
3715 9FC5 C6 24 .$ ldab #24
3716 9FC7 F7 0B 99 ... stab 0b99
3717 9FCA C6 31 .1 ldab #31
3718 9FCC F7 0B 98 ... stab 0b98
3719 9FCF CE 00 00 ... ldx #0000
3721 9FD3 FC 0C DD ... ldd 0cdd
3722 9FD6 BD A2 D4 ... jsr a2d4 ;jump79
3724 9FDA 7E A1 C4 ~.. jmp a1c4 ;goto19
3725 9FDD FE 0C F5 ... ldx 0cf5
3727 9FE1 FC 0C F3 ... ldd 0cf3
3728 9FE4 BD A3 41 ..A jsr a341 ;jump77
3730 9FE8 7E A1 C4 ~.. jmp a1c4 ;goto19
3731 9FEB C6 24 .$ ldab #24
3732 9FED F7 0B 99 ... stab 0b99
3733 9FF0 C6 32 .2 ldab #32
3734 9FF2 F7 0B 98 ... stab 0b98
3735 9FF5 CE 00 00 ... ldx #0000
3737 9FF9 FC 0C DF ... ldd 0cdf
3738 9FFC BD A2 D4 ... jsr a2d4 ;jump79
3740 A000 7E A1 C4 ~.. jmp a1c4 ;goto19
3741 A003 FE 0C F9 ... ldx 0cf9
3743 A007 FC 0C F7 ... ldd 0cf7
3744 A00A BD A3 41 ..A jsr a341 ;jump77
3746 A00E 7E A1 C4 ~.. jmp a1c4 ;goto19
3747 A011 C6 24 .$ ldab #24
3748 A013 F7 0B 99 ... stab 0b99
3749 A016 C6 35 .5 ldab #35
3750 A018 F7 0B 98 ... stab 0b98
3751 A01B CE 00 00 ... ldx #0000
3753 A01F FC 0C E1 ... ldd 0ce1
3754 A022 BD A2 D4 ... jsr a2d4 ;jump79
3756 A026 7E A1 C4 ~.. jmp a1c4 ;goto19
3757 A029 FE 0C FD ... ldx 0cfd
3759 A02D FC 0C FB ... ldd 0cfb
3760 A030 BD A3 41 ..A jsr a341 ;jump77
3762 A034 7E A1 C4 ~.. jmp a1c4 ;goto19
3763 A037 C6 24 .$ ldab #24
3764 A039 F7 0B 99 ... stab 0b99
3765 A03C C6 31 .1 ldab #31
3766 A03E F7 0B 98 ... stab 0b98
3767 A041 C6 30 .0 ldab #30
3768 A043 F7 0B 97 ... stab 0b97
3769 A046 CE 00 00 ... ldx #0000
3771 A04A FC 0C E3 ... ldd 0ce3
3772 A04D BD A2 D4 ... jsr a2d4 ;jump79
3774 A051 7E A1 C4 ~.. jmp a1c4 ;goto19
3775 A054 FE 0D 01 ... ldx 0d01
3777 A058 FC 0C FF ... ldd 0cff
3778 A05B BD A3 41 ..A jsr a341 ;jump77
3780 A05F 7E A1 C4 ~.. jmp a1c4 ;goto19
3781 A062 C6 24 .$ ldab #24
3782 A064 F7 0B 99 ... stab 0b99
3783 A067 C6 32 .2 ldab #32
3784 A069 F7 0B 98 ... stab 0b98
3785 A06C C6 30 .0 ldab #30
3786 A06E F7 0B 97 ... stab 0b97
3787 A071 CE 00 00 ... ldx #0000
3789 A075 FC 0C E5 ... ldd 0ce5
3790 A078 BD A2 D4 ... jsr a2d4 ;jump79
3792 A07C 7E A1 C4 ~.. jmp a1c4 ;goto19
3793 A07F FE 0D 05 ... ldx 0d05
3795 A083 FC 0D 03 ... ldd 0d03
3796 A086 BD A3 41 ..A jsr a341 ;jump77
3798 A08A 7E A1 C4 ~.. jmp a1c4 ;goto19
3799 A08D CC B3 B7 ... ldd #b3b7 ; "TUBE TOTAL"
3800 A090 BD C0 BA ... jsr c0ba ;display:
3801 A093 7E A1 C4 ~.. jmp a1c4 ;goto19
3802 A096 CE 00 01 ... ldx #0001
3804 A09A FC 0C F1 ... ldd 0cf1
3805 A09D BD A2 D4 ... jsr a2d4 ;jump79
3807 A0A1 7E A1 C4 ~.. jmp a1c4 ;goto19
3808 A0A4 CC B3 CE ... ldd #b3ce ; "$1 COIN"
3809 A0A7 BD C0 BA ... jsr c0ba ;display:
3810 A0AA 7E A1 C4 ~.. jmp a1c4 ;goto19
3811 A0AD FE 0C E9 ... ldx 0ce9
3813 A0B1 F6 0C DC ... ldab 0cdc
3815 A0B5 BD A3 1A ... jsr a31a ;jump93
3817 A0B9 7E A1 C4 ~.. jmp a1c4 ;goto19
3818 A0BC CC B3 E0 ... ldd #b3e0 ; "QUARTERS"
3819 A0BF BD C0 BA ... jsr c0ba ;display:
3820 A0C2 7E A1 C4 ~.. jmp a1c4 ;goto19
3821 A0C5 FE 0C EB ... ldx 0ceb
3823 A0C9 F6 0C DB ... ldab 0cdb
3825 A0CD BD A3 1A ... jsr a31a ;jump93
3827 A0D1 7E A1 C4 ~.. jmp a1c4 ;goto19
3828 A0D4 CC B3 F2 ... ldd #b3f2
3829 A0D7 BD C0 BA ... jsr c0ba ;display:
3830 A0DA 7E A1 C4 ~.. jmp a1c4 ;goto19
3831 A0DD FE 0C ED ... ldx 0ced
3833 A0E1 F6 0C DA ... ldab 0cda
3835 A0E5 BD A3 1A ... jsr a31a ;jump93
3837 A0E9 7E A1 C4 ~.. jmp a1c4 ;goto19
3838 A0EC CC B4 04 ... ldd #b404
3839 A0EF BD C0 BA ... jsr c0ba ;display:
3840 A0F2 7E A1 C4 ~.. jmp a1c4 ;goto19
3841 A0F5 FE 0C EF ... ldx 0cef
3843 A0F9 F6 0C D9 ... ldab 0cd9
3845 A0FD BD A3 1A ... jsr a31a ;jump93
3847 A101 7E A1 C4 ~.. jmp a1c4 ;goto19
3848 A104 C6 57 .W ldab #57
3849 A106 F7 0B 99 ... stab 0b99
3850 A109 C6 53 .S ldab #53
3851 A10B F7 0B 98 ... stab 0b98
3852 A10E C6 4E .N ldab #4e
3853 A110 F7 0B 97 ... stab 0b97
3854 A113 C6 4B .K ldab #4b
3855 A115 F7 0B 96 ... stab 0b96
3856 A118 CE 00 00 ... ldx #0000
3858 A11C FC 0D 07 ... ldd 0d07
3859 A11F BD A2 D4 ... jsr a2d4 ;jump79
3861 A123 7E A1 C4 ~.. jmp a1c4 ;goto19
3862 A126 FE 0D 11 ... ldx 0d11
3864 A12A FC 0D 0F ... ldd 0d0f
3865 A12D BD A3 41 ..A jsr a341 ;jump77
3867 A131 7E A1 C4 ~.. jmp a1c4 ;goto19
3868 A134 C6 53 .S ldab #53
3869 A136 F7 0B 99 ... stab 0b99
3870 A139 C6 48 .H ldab #48
3871 A13B F7 0B 98 ... stab 0b98
3872 A13E C6 50 .P ldab #50
3873 A140 F7 0B 97 ... stab 0b97
3874 A143 C6 52 .R ldab #52
3875 A145 F7 0B 96 ... stab 0b96
3876 A148 CE 00 00 ... ldx #0000
3878 A14C FC 0D 09 ... ldd 0d09
3879 A14F BD A2 D4 ... jsr a2d4 ;jump79
3882 A155 FE 0D 15 ... ldx 0d15
3884 A159 FC 0D 13 ... ldd 0d13
3885 A15C BD A3 41 ..A jsr a341 ;jump77
3888 A162 C6 50 .P ldab #50
3889 A164 F7 0B 99 ... stab 0b99
3890 A167 C6 52 .R ldab #52
3891 A169 F7 0B 98 ... stab 0b98
3892 A16C C6 4D .M ldab #4d
3893 A16E F7 0B 97 ... stab 0b97
3894 A171 C6 4F .O ldab #4f
3895 A173 F7 0B 96 ... stab 0b96
3896 A176 CE 00 00 ... ldx #0000
3898 A17A FC 0D 0B ... ldd 0d0b
3899 A17D BD A2 D4 ... jsr a2d4 ;jump79
3902 A183 FE 0D 19 ... ldx 0d19
3904 A187 FC 0D 17 ... ldd 0d17
3905 A18A BD A3 41 ..A jsr a341 ;jump77
3908 A190 C6 46 .F ldab #46
3909 A192 F7 0B 99 ... stab 0b99
3910 A195 C6 52 .R ldab #52
3911 A197 F7 0B 98 ... stab 0b98
3912 A19A C6 45 .E ldab #45
3913 A19C F7 0B 97 ... stab 0b97
3914 A19F C6 45 .E ldab #45
3915 A1A1 F7 0B 96 ... stab 0b96
3916 A1A4 CE 00 00 ... ldx #0000
3918 A1A8 FC 0D 0D ... ldd 0d0d
3919 A1AB BD A2 D4 ... jsr a2d4 ;jump79
3922 A1B1 FE 0D 1D ... ldx 0d1d
3924 A1B5 FC 0D 1B ... ldd 0d1b
3925 A1B8 BD A3 41 ..A jsr a341 ;jump77
3928 A1BE CC B4 84 ... ldd #b484 ; "VENDS/CODE"
3929 A1C1 BD C0 BA ... jsr c0ba ;display:
3931 A1C4 F6 00 48 ..H ldab 0048
3932 A1C7 C1 2E .. cmpb #2e
3933 A1C9 23 74 #t bls 74
3934 A1CB F6 00 48 ..H ldab 0048
3935 A1CE C1 92 .. cmpb #92
3936 A1D0 24 6D $m bcc 6d
3937 A1D2 F6 00 48 ..H ldab 0048
3940 A1D7 C3 08 6C ..l addd #086c
3942 A1DB EC 00 .. ldd 00,x
3943 A1DD C4 80 .. andb #80
3944 A1DF 26 0E &. bne 0e
3945 A1E1 7C 00 48 |.H inc 0048
3946 A1E4 F6 00 48 ..H ldab 0048
3947 A1E7 C1 92 .. cmpb #92
3948 A1E9 26 02 &. bne 02
3951 A1EF F6 00 48 ..H ldab 0048
3953 A1F3 C3 FF D2 ... addd #ffd2
3954 A1F6 BD E7 95 ... jsr e795 ;jump54 - number to string
3955 A1F9 F6 00 5E ..^ ldab 005e
3956 A1FC F7 0B 99 ... stab 0b99
3957 A1FF F6 00 5F .._ ldab 005f
3958 A202 F7 0B 98 ... stab 0b98
3959 A205 F6 00 48 ..H ldab 0048
3962 A20A C3 0C C3 ... addd #0cc3
3964 A20E EC 00 .. ldd 00,x
3965 A210 BD E7 45 ..E jsr e745 ;jump55 - number to string
3966 A213 F6 00 57 ..W ldab 0057
3967 A216 F7 0B 94 ... stab 0b94
3968 A219 F6 00 5A ..Z ldab 005a
3969 A21C F7 0B 93 ... stab 0b93
3970 A21F F6 00 5D ..] ldab 005d
3971 A222 F7 0B 92 ... stab 0b92
3972 A225 F6 00 5E ..^ ldab 005e
3973 A228 F7 0B 91 ... stab 0b91
3974 A22B F6 00 5F .._ ldab 005f
3975 A22E F7 0B 90 ... stab 0b90
3978 A233 8D 27 .' bsr dest 27
3979 A235 F6 00 48 ..H ldab 0048
3980 A238 C1 92 .. cmpb #92
3981 A23A 26 03 &. bne 03
3982 A23C 7F 00 2C .., clr 002c
3983 A23F F6 00 48 ..H ldab 0048
3984 A242 C1 92 .. cmpb #92
3985 A244 26 15 &. bne 15
3986 A246 F6 00 1F ... ldab 001f
3987 A249 C4 10 .. andb #10
3988 A24B 27 08 '. beq 08
3989 A24D CC AF 9A ... ldd #af9a ; "CLR MIS Y"
3990 A250 BD C0 BA ... jsr c0ba ;display:
3992 A255 CC AF A5 ... ldd #afa5 ; "CLR MIS N"
3993 A258 BD C0 BA ... jsr c0ba ;display:
3999 A25E F6 00 2C .., ldab 002c
4000 A261 26 6F &o bne 6f
4001 A263 BD BE 69 ..i jsr be69 ;displayreset
4003 A267 E6 01 .. ldab 01,x
4004 A269 27 5F '_ beq 5f
4005 A26B F6 00 13 ... ldab 0013
4006 A26E C1 01 .. cmpb #01
4007 A270 23 58 #X bls 58
4008 A272 CE 10 28 ..( ldx #1028
4009 A275 1C 00 40 ... bset 00,x, #40
4010 A278 CE 00 01 ... ldx #0001
4012 A27C F6 0B 90 ... ldab 0b90
4014 A280 BD BD B5 ... jsr bdb5 ;jump78
4016 A284 CE 10 28 ..( ldx #1028
4017 A287 1D 00 40 ... bclr 00,x, #40
4018 A28A F6 0B 91 ... ldab 0b91
4019 A28D F7 0B 90 ... stab 0b90
4020 A290 F6 00 13 ... ldab 0013
4021 A293 C1 02 .. cmpb #02
4022 A295 26 07 &. bne 07
4023 A297 C6 2E .. ldab #2e
4024 A299 F7 0B 91 ... stab 0b91
4026 A29E F6 00 13 ... ldab 0013
4027 A2A1 C1 04 .. cmpb #04
4028 A2A3 26 0D &. bne 0d
4029 A2A5 F6 0B 92 ... ldab 0b92
4030 A2A8 F7 0B 91 ... stab 0b91
4031 A2AB C6 2E .. ldab #2e
4032 A2AD F7 0B 92 ... stab 0b92
4034 A2B2 F6 00 13 ... ldab 0013
4035 A2B5 C1 08 .. cmpb #08
4036 A2B7 26 11 &. bne 11
4037 A2B9 F6 0B 92 ... ldab 0b92
4038 A2BC F7 0B 91 ... stab 0b91
4039 A2BF F6 0B 93 ... ldab 0b93
4040 A2C2 F7 0B 92 ... stab 0b92
4041 A2C5 C6 2E .. ldab #2e
4042 A2C7 F7 0B 93 ... stab 0b93
4043 A2CA BD BE 10 ... jsr be10 ;jump88
4044 A2CD C6 03 .. ldab #03
4045 A2CF F7 00 2C .., stab 002c
4053 A2D7 EC 00 .. ldd 00,x
4054 A2D9 BD E7 45 ..E jsr e745 ;jump55 - number to string
4055 A2DC F6 00 57 ..W ldab 0057
4056 A2DF F7 0B 94 ... stab 0b94
4057 A2E2 F6 00 5A ..Z ldab 005a
4058 A2E5 F7 0B 93 ... stab 0b93
4059 A2E8 F6 00 5D ..] ldab 005d
4060 A2EB F7 0B 92 ... stab 0b92
4061 A2EE F6 00 5E ..^ ldab 005e
4062 A2F1 F7 0B 91 ... stab 0b91
4063 A2F4 F6 00 5F .._ ldab 005f
4064 A2F7 F7 0B 90 ... stab 0b90
4066 A2FB E6 05 .. ldab 05,x
4067 A2FD 27 14 '. beq 14
4068 A2FF F6 00 17 ... ldab 0017
4069 A302 C4 08 .. andb #08
4070 A304 26 05 &. bne 05
4071 A306 C6 24 .$ ldab #24
4072 A308 F7 0B 95 ... stab 0b95
4073 A30B CC 00 01 ... ldd #0001
4074 A30E BD A2 5C ..\ jsr a25c ;jump82
4078 A315 BD A2 5C ..\ jsr a25c ;jump82
4086 A31D E6 01 .. ldab 01,x
4088 A320 BD E7 95 ... jsr e795 ;jump54 - number to string
4089 A323 F6 00 5D ..] ldab 005d
4090 A326 F7 0B 99 ... stab 0b99
4091 A329 F6 00 5E ..^ ldab 005e
4092 A32C F7 0B 98 ... stab 0b98
4093 A32F F6 00 5F .._ ldab 005f
4094 A332 F7 0B 97 ... stab 0b97
4095 A335 CE 00 01 ... ldx #0001
4098 A33A EC 06 .. ldd 06,x
4099 A33C 8D 96 .. bsr dest 96
4110 A346 EC 04 .. ldd 04,x
4113 A34A EC 02 .. ldd 02,x
4114 A34C BD E6 21 ..! jsr e621 ;jump56
4116 A350 C6 20 . ldab #20
4117 A352 F7 0B 99 ... stab 0b99
4118 A355 F6 00 17 ... ldab 0017
4119 A358 C4 08 .. andb #08
4120 A35A 26 05 &. bne 05
4121 A35C C6 24 .$ ldab #24
4122 A35E F7 0B 98 ... stab 0b98
4123 A361 CC 00 01 ... ldd #0001
4124 A364 BD A2 5C ..\ jsr a25c ;jump82
4128 A36A 6E 00 n. jmp 00,x
4131 A36C BD BE 4B ..K jsr be4b ;displayblank
4132 A36F CC AF DC ... ldd #afdc ; "- SAVING -"
4133 A372 BD C0 BA ... jsr c0ba ;display:
4134 A375 CC 01 F4 ... ldd #01f4
4135 A378 BD E5 71 ..q jsr e571 ;msdelay
4139 A37C FC 00 52 ..R ldd 0052
4140 A37F FD 0B B5 ... std 0bb5
4141 A382 8D E8 .. bsr dest e8
4145 A385 F6 00 1F ... ldab 001f
4146 A388 C4 40 .@ andb #40
4147 A38A 27 73 's beq 73
4148 A38C F6 00 06 ... ldab 0006
4151 A391 C3 08 00 ... addd #0800
4153 A395 EC 00 .. ldd 00,x
4155 A398 84 C0 .. anda #c0
4156 A39A FA 00 28 ..( orb 0028
4157 A39D BA 00 27 ..' ora 0027
4158 A3A0 FD 00 27 ..' std 0027
4159 A3A3 FC 00 27 ..' ldd 0027
4162 A3A8 F6 00 06 ... ldab 0006
4165 A3AD C3 08 00 ... addd #0800
4168 A3B2 ED 00 .. std 00,x
4169 A3B4 FC 00 27 ..' ldd 0027
4174 A3BB F6 00 06 ... ldab 0006
4177 A3C0 C3 0B F1 ... addd #0bf1
4180 A3C5 ED 00 .. std 00,x
4181 A3C7 F6 00 06 ... ldab 0006
4184 A3CC C3 08 C8 ... addd #08c8
4186 A3D0 EC 00 .. ldd 00,x
4187 A3D2 C4 80 .. andb #80
4188 A3D4 84 F7 .. anda #f7
4189 A3D6 FA 00 47 ..G orb 0047
4190 A3D9 BA 00 46 ..F ora 0046
4191 A3DC FD 00 46 ..F std 0046
4192 A3DF F6 00 19 ... ldab 0019
4193 A3E2 C4 10 .. andb #10
4194 A3E4 27 06 '. beq 06
4195 A3E6 CE 00 46 ..F ldx #0046
4196 A3E9 1C 00 08 ... bset 00,x, #08
4197 ; set memory location 08c8+(slotnum*2) to value of 0046
4198 A3EC FC 00 46 ..F ldd 0046
4201 A3F1 F6 00 06 ... ldab 0006
4204 A3F6 C3 08 C8 ... addd #08c8
4207 A3FB ED 00 .. std 00,x
4209 A3FF CC 2A FF .*. ldd #2aff ; 00101010 11111111
4212 A404 F6 00 06 ... ldab 0006
4215 A409 C3 08 00 ... addd #0800
4218 A40E ED 00 .. std 00,x
4219 A410 CC D5 00 ... ldd #d500
4222 A415 F6 00 06 ... ldab 0006
4225 A41A C3 0B F1 ... addd #0bf1
4228 A41F ED 00 .. std 00,x
4229 A421 F6 00 1F ... ldab 001f
4230 A424 C4 40 .@ andb #40
4231 A426 27 26 '& beq 26
4232 A428 F6 00 06 ... ldab 0006
4235 A42D C3 08 00 ... addd #0800
4237 A431 EC 00 .. ldd 00,x
4238 A433 C4 FF .. andb #ff
4239 A435 84 3F .? anda #3f
4240 A437 FD 00 27 ..' std 0027
4241 A43A F6 00 06 ... ldab 0006
4244 A43F C3 08 C8 ... addd #08c8
4246 A443 EC 00 .. ldd 00,x
4247 A445 C4 7F .. andb #7f
4249 A448 FD 00 46 ..F std 0046
4250 A44B BD A3 6C ..l jsr a36c ;jump81
4254 A44F FC 00 0D ... ldd 000d
4255 A452 FD 0B B7 ... std 0bb7
4256 A455 BD A3 6C ..l jsr a36c ;jump81
4261 A45A F6 00 67 ..g ldab 0067
4262 A45D C4 02 .. andb #02
4263 A45F 27 08 '. beq 08
4264 A461 CE 00 67 ..g ldx #0067
4265 A464 1D 00 4D ... bclr 00,x, #4D
4267 A469 CE 00 67 ..g ldx #0067
4268 A46C 1D 00 10 ... bclr 00,x, #10
4269 A46F CE 00 67 ..g ldx #0067
4270 A472 1D 00 .. bclr add,x 00,x
4273 A477 67 C4 g. asr c4,x
4275 A47A 26 06 &. bne 06
4276 A47C CE 00 67 ..g ldx #0067
4277 A47F 1D 00 .. bclr add,x 00,x
4280 A484 67 C4 g. asr c4,x
4282 A487 27 14 '. beq 14
4283 A489 CE 00 67 ..g ldx #0067
4284 A48C 1D 00 02 ... bclr 00,x, #02
4285 A48F CE 00 67 ..g ldx #0067
4286 A492 1D 00 10 ... bclr 00,x, #10
4287 A495 CE 00 67 ..g ldx #0067
4288 A498 1D 00 .. bclr add,x 00,x
4291 A49D CE 00 67 ..g ldx #0067
4292 A4A0 1D 00 08 ... bclr 00,x, #08
4293 A4A3 F6 00 67 ..g ldab 0067
4294 A4A6 C4 04 .. andb #04
4295 A4A8 27 12 '. beq 12
4296 A4AA CE 00 67 ..g ldx #0067
4297 A4AD 1D 00 02 ... bclr 00,x, #02
4298 A4B0 CE 00 67 ..g ldx #0067
4299 A4B3 1D 00 10 .. bclr 00,x, #10
4300 A4B6 CE 00 67 ..g ldx #0067
4301 A4B9 1D 00 20 .. bclr 00,x, #20
4302 A4BC F6 00 67 ... ldab 0067
4303 A4BF C4 08 .. andb #08
4304 A4C1 26 06 &. bne 06
4305 A4C3 CE 00 67 ..g ldx #0067
4306 A4C6 1D 00 40 ..@ bclr 00,x, #40
4307 A4C9 F6 00 67 ..g ldab 0067
4308 A4CC F7 0B C0 ... stab 0bc0
4309 A4CF F6 0E 70 ..p ldab 0e70
4310 A4D2 F7 0E 6E ..n stab 0e6e
4311 A4D5 F6 0E 6D ..m ldab 0e6d
4312 A4D8 26 39 &9 bne 39
4313 A4DA F6 0E 6F ..o ldab 0e6f
4314 A4DD 27 34 '4 beq 34
4315 A4DF 7F 00 06 ... clr 0006
4316 A4E2 F6 00 06 ... ldab 0006
4317 A4E5 C1 3F .? cmpb #3f
4318 A4E7 24 2A $* bcc 2a
4319 A4E9 F6 00 06 ... ldab 0006
4321 A4ED CE 00 05 ... ldx #0005
4324 A4F2 27 1A '. beq 1a
4325 A4F4 F6 00 06 ... ldab 0006
4327 A4F8 C3 08 00 ... addd #0800
4329 A4FC ED 00 .. std 00,x
4330 A4FE EC 00 .. ldd 00,x
4333 A502 F6 00 06 ... ldab 0006
4336 A507 C3 08 C8 ... addd #08c8
4339 A50C ED 00 .. std 00,x
4340 A50E 7C 00 06 |.. inc 0006
4342 A513 F6 0E 6F ..o ldab 0e6f
4343 A516 F7 0E 6D ..m stab 0e6d
4344 A519 BD A3 6C ..l jsr a36c ;jump81
4349 A51E F6 00 22 .." ldab 0022
4351 A522 BD FE 16 ... jsr fe16 ;jump2
4356 A529 A5 79 .y bita 79,x
4357 A52B A5 35 .5 bita 35,x
4358 A52D A5 43 .C bita 43,x
4359 A52F A5 51 .Q bita 51,x
4360 A531 A5 5F ._ bita 5f,x
4361 A533 A5 6D .m bita 6d,x
4362 A535 F6 00 24 ..$ ldab 0024
4363 A538 F7 0B AF ... stab 0baf
4364 A53B F6 00 2A ..* ldab 002a
4365 A53E F7 0B B4 ... stab 0bb4
4367 A543 F6 00 24 ..$ ldab 0024
4368 A546 F7 0B AE ... stab 0bae
4369 A549 F6 00 2A ..* ldab 002a
4370 A54C F7 0B B3 ... stab 0bb3
4372 A551 F6 00 24 ..$ ldab 0024
4373 A554 F7 0B AD ... stab 0bad
4374 A557 F6 00 2A ..* ldab 002a
4375 A55A F7 0B B2 ... stab 0bb2
4377 A55F F6 00 24 ..$ ldab 0024
4378 A562 F7 0B AC ... stab 0bac
4379 A565 F6 00 2A ..* ldab 002a
4380 A568 F7 0B B1 ... stab 0bb1
4382 A56D F6 00 24 ..$ ldab 0024
4383 A570 F7 0B AB ... stab 0bab
4384 A573 F6 00 2A ..* ldab 002a
4385 A576 F7 0B B0 ... stab 0bb0
4386 A579 BD A3 6C ..l jsr a36c ;jump81
4390 A57D 7F 00 54 ..T clr 0054
4391 A580 F6 00 54 ..T ldab 0054
4392 A583 C1 FF .. cmpb #ff
4393 A585 24 1B $. bcc 1b
4394 A587 F6 00 54 ..T ldab 0054
4396 A58B C3 0A 90 ... addd #0a90
4398 A58F E6 00 .. ldab 00,x
4400 A592 F6 00 54 ..T ldab 0054
4402 A596 C3 09 90 ... addd #0990
4405 A59B E7 00 .. stab 00,x
4406 A59D 7C 00 54 |.T inc 0054
4408 A5A2 F6 00 61 ..a ldab 0061
4409 A5A5 F7 0B BF ... stab 0bbf
4410 A5A8 BD A3 6C ..l jsr a36c ;jump81
4414 A5AC 7F 00 54 ..T clr 0054
4415 A5AF F6 00 54 ..T ldab 0054
4416 A5B2 C1 10 .. cmpb #10
4417 A5B4 24 1B $. bcc 1b
4418 A5B6 F6 00 54 ..T ldab 0054
4420 A5BA C3 0A 90 ... addd #0a90
4422 A5BE E6 00 .. ldab 00,x
4424 A5C1 F6 00 54 ..T ldab 0054
4426 A5C5 C3 0C B9 ... addd #0cb9
4429 A5CA E7 00 .. stab 00,x
4430 A5CC 7C 00 54 |.T inc 0054
4432 A5D1 BD A3 6C ..l jsr a36c ;jump81
4436 A5D5 7F 00 54 ..T clr 0054
4437 A5D8 F6 00 54 ..T ldab 0054
4438 A5DB C1 10 .. cmpb #10
4439 A5DD 24 1B $. bcc 1b
4440 A5DF F6 00 54 ..T ldab 0054
4442 A5E3 C3 0A 90 ... addd #0a90
4444 A5E7 E6 00 .. ldab 00,x
4446 A5EA F6 00 54 ..T ldab 0054
4448 A5EE C3 0C C9 ... addd #0cc9
4451 A5F3 E7 00 .. stab 00,x
4452 A5F5 7C 00 54 |.T inc 0054
4454 A5FA BD A3 6C ..l jsr a36c ;jump81
4458 A5FE 7F 00 54 ..T clr 0054
4459 A601 F6 00 54 ..T ldab 0054
4460 A604 C1 05 .. cmpb #05
4461 A606 24 1B $. bcc 1b
4462 A608 F6 00 54 ..T ldab 0054
4464 A60C C3 00 62 ..b addd #0062
4466 A610 E6 00 .. ldab 00,x
4468 A613 F6 00 54 ..T ldab 0054
4470 A617 C3 0B A4 ... addd #0ba4
4473 A61C E7 00 .. stab 00,x
4474 A61E 7C 00 54 |.T inc 0054
4476 A623 7F 00 54 ..T clr 0054
4477 A626 F6 00 54 ..T ldab 0054
4478 A629 C1 0B .. cmpb #0b
4479 A62B 24 1B $. bcc 1b
4480 A62D F6 00 54 ..T ldab 0054
4482 A631 C3 00 68 ..h addd #0068
4484 A635 E6 00 .. ldab 00,x
4486 A638 F6 00 54 ..T ldab 0054
4488 A63C C3 0B E4 ... addd #0be4
4491 A641 E7 00 .. stab 00,x
4492 A643 7C 00 54 |.T inc 0054
4494 A648 8D 04 .. bsr dest 04
4495 A64A BD A3 6C ..l jsr a36c ;jump81
4499 A64E BD AB 0C ... jsr ab0c ;jump126
4500 A651 C6 20 . ldab #20
4501 A653 F7 0B A3 ... stab 0ba3
4502 A656 C6 20 . ldab #20
4503 A658 F7 0B 9A ... stab 0b9a
4504 A65B C6 01 .. ldab #01
4505 A65D F7 00 54 ..T stab 0054
4507 A660 F6 00 54 ..T ldab 0054
4508 A663 C1 09 .. cmpb #09
4509 A665 25 03 %. bcs 03
4510 A667 7E A7 1E ~.. jmp a71e ;goto20
4511 A66A F6 00 54 ..T ldab 0054
4513 A66E BD FE 16 ... jsr fe16 ;jump2
4514 A671 00 01 00 07 . test
4524 A687 F6 00 62 ..b ldab 0062
4529 A68E C8 04 .. eorb #04
4530 A690 F7 00 5F .._ stab 005f
4532 A695 F6 00 62 ..b ldab 0062
4533 A698 C4 0F .. andb #0f
4534 A69A C8 0D .. eorb #0d
4535 A69C F7 00 5F .._ stab 005f
4537 A6A1 F6 00 63 ..c ldab 0063
4542 A6A8 C8 04 .. eorb #04
4543 A6AA F7 00 5F .._ stab 005f
4545 A6AF F6 00 63 ..c ldab 0063
4546 A6B2 C4 0F .. andb #0f
4547 A6B4 C8 05 .. eorb #05
4548 A6B6 F7 00 5F .._ stab 005f
4550 A6BB F6 00 64 ..d ldab 0064
4555 A6C2 C8 05 .. eorb #05
4556 A6C4 F7 00 5F .._ stab 005f
4558 A6C9 F6 00 64 ..d ldab 0064
4559 A6CC C4 0F .. andb #0f
4560 A6CE C8 04 .. eorb #04
4561 A6D0 F7 00 5F .._ stab 005f
4563 A6D5 F6 00 65 ..e ldab 0065
4568 A6DC C8 05 .. eorb #05
4569 A6DE F7 00 5F .._ stab 005f
4571 A6E3 F6 00 65 ..e ldab 0065
4572 A6E6 C4 0F .. andb #0f
4573 A6E8 C8 03 .. eorb #03
4574 A6EA F7 00 5F .._ stab 005f
4575 A6ED F6 00 5F .._ ldab 005f
4576 A6F0 C1 09 .. cmpb #09
4577 A6F2 23 13 #. bls 13
4578 A6F4 F6 00 5F .._ ldab 005f
4579 A6F7 CB 37 .7 addb #37
4581 A6FA F6 00 54 ..T ldab 0054
4583 A6FE C3 0B 9A ... addd #0b9a
4586 A703 E7 00 .. stab 00,x
4588 A707 F6 00 5F .._ ldab 005f
4589 A70A CB 30 .0 addb #30
4591 A70D F6 00 54 ..T ldab 0054
4593 A711 C3 0B 9A ... addd #0b9a
4596 A716 E7 00 .. stab 00,x
4597 A718 7C 00 54 |.T inc 0054
4598 A71B 7E A6 60 ~.` jmp a660 ;goto21
4603 A71F F6 00 48 ..H ldab 0048
4604 A722 26 11 &. bne 11
4605 A724 F6 00 66 ..f ldab 0066
4606 A727 26 07 &. bne 07
4607 A729 C6 01 .. ldab #01
4608 A72B F7 00 66 ..f stab 0066
4610 A730 7F 00 66 ..f clr 0066
4612 A735 F6 00 48 ..H ldab 0048
4614 A739 C3 00 68 ..h addd #0068
4616 A73D E6 00 .. ldab 00,x
4617 A73F 26 10 &. bne 10
4618 A741 C6 01 .. ldab #01
4620 A744 F6 00 48 ..H ldab 0048
4622 A748 C3 00 68 ..h addd #0068
4625 A74D E7 00 .. stab 00,x
4629 A753 F6 00 48 ..H ldab 0048
4631 A757 C3 00 68 ..h addd #0068
4634 A75C E7 00 .. stab 00,x
4638 A75F F6 00 48 ..H ldab 0048
4640 A763 BD FE 16 ... jsr fe16 ;jump2
4645 A76A A7 DC .. staa dc,x
4646 A76C A7 80 .. staa 80,x
4647 A76E A7 87 .. staa 87,x
4648 A770 A7 8E .. staa 8e,x
4649 A772 A7 95 .. staa 95,x
4650 A774 A7 9C .. staa 9c,x
4651 A776 A7 A3 .. staa a3,x
4652 A778 A7 AA .. staa aa,x
4653 A77A A7 B1 .. staa b1,x
4654 A77C A7 C4 .. staa c4,x
4655 A77E A7 D7 .. staa d7,x
4656 A780 C6 02 .. ldab #02
4657 A782 F7 00 02 ... stab 0002
4659 A787 C6 10 .. ldab #10
4660 A789 F7 00 02 ... stab 0002
4662 A78E C6 20 . ldab #20
4663 A790 F7 00 02 ... stab 0002
4665 A795 C6 01 .. ldab #01
4666 A797 F7 00 02 ... stab 0002
4668 A79C C6 04 .. ldab #04
4669 A79E F7 00 02 ... stab 0002
4671 A7A3 C6 08 .. ldab #08
4672 A7A5 F7 00 02 ... stab 0002
4674 A7AA C6 40 .@ ldab #40
4675 A7AC F7 00 02 ... stab 0002
4677 A7B1 F6 0E 70 ..p ldab 0e70
4678 A7B4 C1 01 .. cmpb #01
4679 A7B6 26 05 &. bne 05
4680 A7B8 7F 0E 70 ..p clr 0e70
4682 A7BD C6 01 .. ldab #01
4683 A7BF F7 0E 70 ..p stab 0e70
4685 A7C4 F6 0E 6F ..o ldab 0e6f
4686 A7C7 C1 01 .. cmpb #01
4687 A7C9 26 05 &. bne 05
4688 A7CB 7F 0E 6F ..o clr 0e6f
4690 A7D0 C6 01 .. ldab #01
4691 A7D2 F7 0E 6F ..o stab 0e6f
4693 A7D7 C6 80 .. ldab #80
4694 A7D9 F7 00 02 ... stab 0002
4695 A7DC F6 00 48 ..H ldab 0048
4696 A7DF C1 0A .. cmpb #0a
4697 A7E1 24 2B $+ bcc 2b
4698 A7E3 F6 00 48 ..H ldab 0048
4699 A7E6 C1 07 .. cmpb #07
4700 A7E8 27 24 '$ beq 24
4701 A7EA F6 00 48 ..H ldab 0048
4702 A7ED C1 08 .. cmpb #08
4703 A7EF 27 1D '. beq 1d
4704 A7F1 F6 00 67 ..g ldab 0067
4705 A7F4 F4 00 02 ... andb 0002
4706 A7F7 26 0B &. bne 0b
4707 A7F9 F6 00 02 ... ldab 0002
4708 A7FC FA 00 67 ..g orb 0067
4709 A7FF F7 00 67 ..g stab 0067
4711 A804 F6 00 02 ... ldab 0002
4713 A808 F4 00 67 ..g andb 0067
4714 A80B F7 00 67 ..g stab 0067
4717 A80F 7F 00 54 ..T clr 0054
4718 A812 F6 00 54 ..T ldab 0054
4719 A815 C1 04 .. cmpb #04
4720 A817 24 4A $J bcc 4a
4721 A819 CC 01 F4 ... ldd #01f4
4722 A81C BD E5 71 ..q jsr e571 ;msdelay
4723 A81F F6 0B 93 ... ldab 0b93
4724 A822 F7 00 5F .._ stab 005f
4725 A825 F6 0B 94 ... ldab 0b94
4726 A828 F7 00 5E ..^ stab 005e
4727 A82B F6 0B 95 ... ldab 0b95
4728 A82E F7 00 5D ..] stab 005d
4729 A831 F6 0B 96 ... ldab 0b96
4730 A834 F7 00 5A ..Z stab 005a
4731 A837 BD BE 4B ..K jsr be4b ;displayblank
4732 A83A BD BE 01 ... jsr be01 ;jump70
4733 A83D CC 01 F4 ... ldd #01f4
4734 A840 BD E5 71 ..q jsr e571 ;msdelay
4735 A843 F6 00 5F .._ ldab 005f
4736 A846 F7 0B 93 ... stab 0b93
4737 A849 F6 00 5E ..^ ldab 005e
4738 A84C F7 0B 94 ... stab 0b94
4739 A84F F6 00 5D ..] ldab 005d
4740 A852 F7 0B 95 ... stab 0b95
4741 A855 F6 00 5A ..Z ldab 005a
4742 A858 F7 0B 96 ... stab 0b96
4743 A85B BD BE 01 ... jsr be01 ;jump70
4744 A85E 7C 00 54 |.T inc 0054
4749 A864 F6 00 09 ... ldab 0009
4750 A867 C1 01 .. cmpb #01
4752 A86B F6 00 61 ..a ldab 0061
4754 A86F C3 00 01 ... addd #0001
4757 A874 F6 00 60 ..` ldab 0060
4760 A879 A3 00 .. subd 00,x
4763 A87D 2C 0A ,. bge 0a
4764 A87F F6 00 60 ..` ldab 0060
4765 A882 C1 F9 .. cmpb #f9
4766 A884 24 03 $. bcc 03
4767 A886 7C 00 60 |.` inc 0060
4769 A88B F6 00 60 ..` ldab 0060
4770 A88E C1 09 .. cmpb #09
4771 A890 24 03 $. bcc 03
4772 A892 7C 00 60 |.` inc 0060
4776 A896 F6 00 36 ..6 ldab 0036
4777 A899 26 39 &9 bne 39
4778 A89B F6 00 54 ..T ldab 0054
4779 A89E C1 27 .' cmpb #27
4781 A8A2 7C 00 54 |.T inc 0054
4782 A8A5 F6 00 09 ... ldab 0009
4783 A8A8 C1 01 .. cmpb #01
4784 A8AA 26 0C &. bne 0c
4785 A8AC F6 00 54 ..T ldab 0054
4786 A8AF C1 27 .' cmpb #27
4787 A8B1 26 03 &. bne 03
4788 A8B3 7F 00 54 ..T clr 0054
4790 A8B8 F6 00 54 ..T ldab 0054
4791 A8BB C1 24 .$ cmpb #24
4792 A8BD 26 03 &. bne 03
4793 A8BF 7F 00 54 ..T clr 0054
4794 A8C2 F6 00 54 ..T ldab 0054
4796 A8C6 C3 B4 8F ... addd #b48f
4798 A8CA E6 00 .. ldab 00,x
4799 A8CC F7 0B 90 ... stab 0b90
4800 A8CF C6 02 .. ldab #02
4801 A8D1 F7 00 36 ..6 stab 0036
4805 A8D5 F6 00 60 ..` ldab 0060
4806 A8D8 C1 00 .. cmpb #00
4807 A8DA 23 05 #. bls 05
4808 A8DC 7A 00 60 z.` dec 0060
4810 A8E1 7F 00 60 ..` clr 0060
4814 A8E5 F6 00 36 ..6 ldab 0036
4815 A8E8 26 36 &6 bne 36
4816 A8EA F6 00 54 ..T ldab 0054
4817 A8ED C1 00 .. cmpb #00
4818 A8EF 25 1D %. bcs 1d
4819 A8F1 F6 00 54 ..T ldab 0054
4820 A8F4 26 15 &. bne 15
4821 A8F6 F6 00 09 ... ldab 0009
4822 A8F9 C1 01 .. cmpb #01
4823 A8FB 26 07 &. bne 07
4824 A8FD C6 26 .& ldab #26
4825 A8FF F7 00 54 ..T stab 0054
4827 A904 C6 23 .# ldab #23
4828 A906 F7 00 54 ..T stab 0054
4830 A90B 7A 00 54 z.T dec 0054
4831 A90E F6 00 54 ..T ldab 0054
4833 A912 C3 B4 8F ... addd #b48f
4835 A916 E6 00 .. ldab 00,x
4836 A918 F7 0B 90 ... stab 0b90
4837 A91B C6 02 .. ldab #02
4838 A91D F7 00 36 ..6 stab 0036
4842 A921 F6 0B 90 ... ldab 0b90
4843 A924 F7 0B 96 ... stab 0b96
4844 A927 F6 0B 96 ... ldab 0b96
4846 A92B F6 00 60 ..` ldab 0060
4848 A92F C3 0A 93 ... addd #0a93
4851 A934 E7 00 .. stab 00,x
4852 A936 F6 00 09 ... ldab 0009
4853 A939 C1 01 .. cmpb #01
4854 A93B 26 32 &2 bne 32
4855 A93D F6 00 61 ..a ldab 0061
4857 A941 C3 00 01 ... addd #0001
4860 A946 F6 00 60 ..` ldab 0060
4863 A94B A3 00 .. subd 00,x
4866 A94F 26 0A &. bne 0a
4867 A951 F6 00 60 ..` ldab 0060
4868 A954 C1 FA .. cmpb #fa
4869 A956 24 03 $. bcc 03
4870 A958 7C 00 61 |.a inc 0061
4871 A95B F6 00 60 ..` ldab 0060
4872 A95E F1 00 61 ..a cmpb 0061
4873 A961 22 0A ". bhi 0a
4874 A963 F6 00 60 ..` ldab 0060
4875 A966 C1 F9 .. cmpb #f9
4876 A968 24 03 $. bcc 03
4877 A96A 7C 00 60 |.` inc 0060
4879 A96F F6 00 60 ..` ldab 0060
4880 A972 C1 09 .. cmpb #09
4881 A974 24 03 $. bcc 03
4882 A976 7C 00 60 |.` inc 0060
4886 A97A F6 00 60 ..` ldab 0060
4887 A97D 26 24 &$ bne 24
4888 A97F F6 00 60 ..` ldab 0060
4889 A982 CB 03 .. addb #03
4890 A984 F7 00 54 ..T stab 0054
4891 A987 F6 00 54 ..T ldab 0054
4892 A98A C1 FF .. cmpb #ff
4893 A98C 24 13 $. bcc 13
4894 A98E C6 20 . ldab #20
4896 A991 F6 00 54 ..T ldab 0054
4898 A995 C3 0A 90 ... addd #0a90
4901 A99A E7 00 .. stab 00,x
4902 A99C 7C 00 54 |.T inc 0054
4905 A9A3 F6 00 60 ..` ldab 0060
4906 A9A6 CB 04 .. addb #04
4907 A9A8 F7 00 54 ..T stab 0054
4908 A9AB F6 00 54 ..T ldab 0054
4909 A9AE C1 FF .. cmpb #ff
4910 A9B0 24 13 $. bcc 13
4911 A9B2 C6 20 . ldab #20
4913 A9B5 F6 00 54 ..T ldab 0054
4915 A9B9 C3 0A 90 ... addd #0a90
4918 A9BE E7 00 .. stab 00,x
4919 A9C0 7C 00 54 |.T inc 0054
4921 A9C5 F6 00 60 ..` ldab 0060
4922 A9C8 F7 00 61 ..a stab 0061
4923 A9CB 7F 00 54 ..T clr 0054
4927 A9CF C6 50 .P ldab #50
4928 A9D1 F7 09 90 ... stab 0990
4929 A9D4 C6 29 .) ldab #29
4930 A9D6 F7 09 91 ... stab 0991
4931 A9D9 C6 20 . ldab #20
4932 A9DB F7 09 92 ... stab 0992
4933 A9DE 7F 00 54 ..T clr 0054
4934 A9E1 F6 00 54 ..T ldab 0054
4935 A9E4 C1 FF .. cmpb #ff
4936 A9E6 24 1B $. bcc 1b
4937 A9E8 F6 00 54 ..T ldab 0054
4939 A9EC C3 09 90 ... addd #0990
4941 A9F0 E6 00 .. ldab 00,x
4943 A9F3 F6 00 54 ..T ldab 0054
4945 A9F7 C3 0A 90 ... addd #0a90
4948 A9FC E7 00 .. stab 00,x
4949 A9FE 7C 00 54 |.T inc 0054
4951 AA03 F6 0B BF ... ldab 0bbf
4952 AA06 F7 00 61 ..a stab 0061
4956 AA0A C6 53 .S ldab #53
4957 AA0C F7 0C B9 ... stab 0cb9
4958 AA0F C6 29 .) ldab #29
4959 AA11 F7 0C BA ... stab 0cba
4960 AA14 C6 20 . ldab #20
4961 AA16 F7 0C BB ... stab 0cbb
4962 AA19 7F 00 54 ..T clr 0054
4963 AA1C F6 00 54 ..T ldab 0054
4964 AA1F C1 10 .. cmpb #10
4965 AA21 24 1B $. bcc 1b
4966 AA23 F6 00 54 ..T ldab 0054
4968 AA27 C3 0C B9 ... addd #0cb9
4970 AA2B E6 00 .. ldab 00,x
4972 AA2E F6 00 54 ..T ldab 0054
4974 AA32 C3 0A 90 ... addd #0a90
4977 AA37 E7 00 .. stab 00,x
4978 AA39 7C 00 54 |.T inc 0054
4983 AA3F C6 49 .I ldab #49
4984 AA41 F7 0C C9 ... stab 0cc9
4985 AA44 C6 29 .) ldab #29
4986 AA46 F7 0C CA ... stab 0cca
4987 AA49 C6 20 . ldab #20
4988 AA4B F7 0C CB ... stab 0ccb
4989 AA4E 7F 00 54 ..T clr 0054
4990 AA51 F6 00 54 ..T ldab 0054
4991 AA54 C1 10 .. cmpb #10
4992 AA56 24 1B $. bcc 1b
4993 AA58 F6 00 54 ..T ldab 0054
4995 AA5C C3 0C C9 ... addd #0cc9
4997 AA60 E6 00 .. ldab 00,x
4999 AA63 F6 00 54 ..T ldab 0054
5001 AA67 C3 0A 90 ... addd #0a90
5004 AA6C E7 00 .. stab 00,x
5005 AA6E 7C 00 54 |.T inc 0054
5010 AA74 7F 00 54 ..T clr 0054
5011 AA77 F6 00 54 ..T ldab 0054
5012 AA7A C1 0B .. cmpb #0b
5013 AA7C 24 1B $. bcc 1b
5014 AA7E F6 00 54 ..T ldab 0054
5016 AA82 C3 0B E4 ... addd #0be4
5018 AA86 E6 00 .. ldab 00,x
5020 AA89 F6 00 54 ..T ldab 0054
5022 AA8D C3 00 68 ..h addd #0068
5025 AA92 E7 00 .. stab 00,x
5026 AA94 7C 00 54 |.T inc 0054
5031 AA9A F6 00 22 .." ldab 0022
5032 AA9D C1 06 .. cmpb #06
5033 AA9F 24 0F $. bcc 0f
5034 AAA1 7C 00 22 |." inc 0022
5035 AAA4 F6 00 22 .." ldab 0022
5036 AAA7 C1 05 .. cmpb #05
5037 AAA9 23 05 #. bls 05
5038 AAAB C6 01 .. ldab #01
5039 AAAD F7 00 22 .." stab 0022
5040 AAB0 F6 00 22 .." ldab 0022
5042 AAB4 BD FE 16 ... jsr fe16 ;jump2
5047 AABB AB 0B .. adda 0b,x
5048 AABD AA C7 .. ora c7,x
5049 AABF AA D5 .. ora d5,x
5050 AAC1 AA E3 .. ora e3,x
5051 AAC3 AA F1 .. ora f1,x
5052 AAC5 AA FF .. ora ff,x
5053 AAC7 F6 0B AF ... ldab 0baf
5054 AACA F7 00 24 ..$ stab 0024
5055 AACD F6 0B B4 ... ldab 0bb4
5056 AAD0 F7 00 2A ..* stab 002a
5058 AAD5 F6 0B AE ... ldab 0bae
5059 AAD8 F7 00 24 ..$ stab 0024
5060 AADB F6 0B B3 ... ldab 0bb3
5061 AADE F7 00 2A ..* stab 002a
5063 AAE3 F6 0B AD ... ldab 0bad
5064 AAE6 F7 00 24 ..$ stab 0024
5065 AAE9 F6 0B B2 ... ldab 0bb2
5066 AAEC F7 00 2A ..* stab 002a
5068 AAF1 F6 0B AC ... ldab 0bac
5069 AAF4 F7 00 24 ..$ stab 0024
5070 AAF7 F6 0B B1 ... ldab 0bb1
5071 AAFA F7 00 2A ..* stab 002a
5073 AAFF F6 0B AB ... ldab 0bab
5074 AB02 F7 00 24 ..$ stab 0024
5075 AB05 F6 0B B0 ... ldab 0bb0
5076 AB08 F7 00 2A ..* stab 002a
5080 AB0C C6 03 .. ldab #03
5081 AB0E F7 00 18 ... stab 0018
5082 AB11 7F 00 1C ... clr 001c
5083 AB14 F6 00 1C ... ldab 001c
5084 AB17 C1 04 .. cmpb #04
5085 AB19 24 6D $m bcc 6d
5086 AB1B C6 07 .. ldab #07
5087 AB1D F7 00 55 ..U stab 0055
5088 AB20 7F 00 54 ..T clr 0054
5089 AB23 F6 00 54 ..T ldab 0054
5090 AB26 C1 08 .. cmpb #08
5091 AB28 24 56 $V bcc 56
5092 AB2A F6 00 1C ... ldab 001c
5094 AB2E C3 0B A4 ... addd #0ba4
5096 AB32 E6 00 .. ldab 00,x
5098 AB35 F6 00 54 ..T ldab 0054
5100 AB39 C3 B4 B7 ... addd #b4b7
5102 AB3D E6 00 .. ldab 00,x
5104 AB40 E4 00 .. andb 00,x
5106 AB43 27 1A '. beq 1a
5107 AB45 F6 00 55 ..U ldab 0055
5109 AB49 C3 B4 B7 ... addd #b4b7
5111 AB4D E6 00 .. ldab 00,x
5113 AB50 F6 00 18 ... ldab 0018
5115 AB54 C3 00 62 ..b addd #0062
5118 AB59 EA 00 .. orb 00,x
5119 AB5B E7 00 .. stab 00,x
5121 AB5F F6 00 55 ..U ldab 0055
5123 AB63 C3 B4 B7 ... addd #b4b7
5125 AB67 E6 00 .. ldab 00,x
5128 AB6B F6 00 18 ... ldab 0018
5130 AB6F C3 00 62 ..b addd #0062
5133 AB74 E4 00 .. andb 00,x
5134 AB76 E7 00 .. stab 00,x
5135 AB78 7A 00 55 z.U dec 0055
5136 AB7B 7C 00 54 |.T inc 0054
5138 AB80 7A 00 18 z.. dec 0018
5139 AB83 7C 00 1C |.. inc 001c
5144 AB89 CC B0 8C ... ldd #b08c ; "NO ERRORS"
5145 AB8C BD C0 BA ... jsr c0ba ;display:
5146 AB8F CC 01 F4 ... ldd #01f4
5147 AB92 BD E5 71 ..q jsr e571 ;msdelay
5148 AB95 BD D4 79 ..y jsr d479 ;jump67
5149 AB98 BD E8 9A ... jsr e89a ;jump68
5150 AB9B BD E9 EA ... jsr e9ea ;jump113
5151 AB9E 7F 0B C1 ... clr 0bc1
5155 ABA2 7F 00 05 ... clr 0005
5157 ABA5 F6 00 05 ... ldab 0005
5158 ABA8 C1 64 .d cmpb #64
5159 ABAA 25 03 %. bcs 03
5160 ABAC 7E AC 81 ~.. jmp ac81 ;goto22
5161 ABAF F6 00 05 ... ldab 0005
5162 ABB2 F7 00 06 ... stab 0006
5163 ABB5 F6 00 05 ... ldab 0005
5165 ABB9 CE 00 05 ... ldx #0005
5168 ABBE 26 03 &. bne 03
5169 ABC0 7E AC 7B ~.{ jmp ac7b ;goto23
5170 ABC3 F6 00 06 ... ldab 0006
5171 ABC6 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
5172 ABC9 83 00 00 ... subd #0000
5173 ABCC 27 03 '. beq 03
5174 ABCE 7E AC 7B ~.{ jmp ac7b ;goto23
5175 ABD1 BD D3 11 ... jsr d311 ;jump30 - test position exists
5176 ABD4 83 00 00 ... subd #0000
5177 ABD7 27 2B '+ beq 2b
5178 ABD9 F6 00 05 ... ldab 0005
5181 ABDE C3 08 00 ... addd #0800
5183 ABE2 EC 00 .. ldd 00,x
5184 ABE4 C4 FF .. andb #ff
5185 ABE6 84 3F .? anda #3f
5186 ABE8 83 27 10 .'. subd #2710 ; 10000
5187 ABEB 24 15 $. bcc 15
5188 ABED CC 01 00 ... ldd #0100
5191 ABF2 F6 00 05 ... ldab 0005
5194 ABF7 C3 08 C8 ... addd #08c8
5197 ABFC AA 00 .. ora 00,x
5198 ABFE EA 01 .. orb 01,x
5199 AC00 ED 00 .. std 00,x
5201 AC04 F6 00 05 ... ldab 0005
5204 AC09 C3 08 00 ... addd #0800
5206 AC0D EC 00 .. ldd 00,x
5207 AC0F C4 FF .. andb #ff
5208 AC11 84 3F .? anda #3f
5209 AC13 83 27 0F .'. subd #270f
5210 AC16 23 15 #. bls 15
5211 AC18 CC 01 00 ... ldd #0100
5214 AC1D F6 00 05 ... ldab 0005
5217 AC22 C3 08 C8 ... addd #08c8
5220 AC27 AA 00 .. ora 00,x
5221 AC29 EA 01 .. orb 01,x
5222 AC2B ED 00 .. std 00,x
5223 AC2D F6 00 05 ... ldab 0005
5226 AC32 C3 08 C8 ... addd #08c8
5228 AC36 EC 00 .. ldd 00,x
5229 AC38 84 01 .. anda #01
5230 AC3A 27 06 '. beq 06
5231 AC3C CE 00 19 ... ldx #0019
5232 AC3F 1C 00 04 ... bset 00,x, #04
5233 AC42 F6 00 05 ... ldab 0005
5236 AC47 C3 08 00 ... addd #0800
5238 AC4B EC 00 .. ldd 00,x
5239 AC4D 84 80 .. anda #80
5240 AC4F 27 2A '* beq 2a
5241 AC51 F6 00 05 ... ldab 0005
5244 AC56 C3 08 C8 ... addd #08c8
5246 AC5A EC 00 .. ldd 00,x
5247 AC5C 84 02 .. anda #02
5248 AC5E 27 06 '. beq 06
5249 AC60 CE 00 19 ... ldx #0019
5250 AC63 1C 00 01 ... bset 00,x, #01
5251 AC66 F6 00 05 ... ldab 0005
5254 AC6B C3 08 C8 ... addd #08c8
5256 AC6F EC 00 .. ldd 00,x
5257 AC71 84 04 .. anda #04
5258 AC73 27 06 '. beq 06
5259 AC75 CE 00 19 ... ldx #0019
5260 AC78 1C 00 02 ... bset 00,x, #02
5262 AC7B 7C 00 05 |.. inc 0005
5263 AC7E 7E AB A5 ~.. jmp aba5 ;goto24
5265 AC81 F6 00 19 ... ldab 0019
5266 AC84 C4 07 .. andb #07
5267 AC86 26 0A &. bne 0a
5268 AC88 F6 0B C1 ... ldab 0bc1
5269 AC8B C4 7F .. andb #7f
5270 AC8D 26 03 &. bne 03
5273 AC92 C6 01 .. ldab #01
5275 AC95 26 05 &. bne 05
5276 AC97 C6 0D .. ldab #0d
5277 AC99 F7 00 48 ..H stab 0048
5716 AEBE 24 35 $5 bcc 35
5725 AEC9 24 35 $5 bcc 35
5881 AF84 24 31 $1 bcc 31
5889 AF8F 24 31 $1 bcc 31
5921 AFB7 22 30 "0 bhi 30
5922 AFB9 22 00 ". bhi 00
5961 AFE7 2D 50 -P blt 50
5969 AFF0 2D 00 -. blt 00
6170 B0C5 14 C8 . ;20 200
6183 ; here's a lookup table of some sort, for finding the slot
6184 ; numbers of each motor in turn
6186 ; 80 entries for 80 motors?
6279 table of powers of 2
6286 B12E 2A 2A ** bpl 2a ;"**ERROR***"
6292 B135 2A 2A ** bpl 2a
6293 B137 2A 00 *. bpl 00
6295 B139 2A 2A ** bpl 2a
6296 B13B 2A 2A ** bpl 2a
6297 B13D 2A 2A ** bpl 2a
6298 B13F 2A 2A ** bpl 2a
6299 B141 2A 2A ** bpl 2a
6332 B167 2D 50 -P blt 50
6341 B172 2D 50 -P blt 50
6350 B17D 2D 50 -P blt 50
6360 B188 2D 50 -P blt 50
6378 B19E 2D 50 -P blt 50
6396 B1B4 2D 50 -P blt 50
6415 B1CB 24 2C $, bcc 2c
6511 B240 2D 2D -- blt 2d
6512 B242 2D 2D -- blt 2d
6513 B244 2D 2D -- blt 2d
6514 B246 2D 2D -- blt 2d
6515 B248 2D 2D -- blt 2d
6516 B24A 2D 2D -- blt 2d
6517 B24C 2D 2D -- blt 2d
6518 B24E 2D 2D -- blt 2d
6519 B250 2D 2D -- blt 2d
6520 B252 2D 2D -- blt 2d
6521 B254 2D 00 -. blt 00
6610 B2CD 28 52 (R bvc 52
6622 B2DF 28 4E (N bvc 4e
6787 B3CE 24 31 $1 bcc 31
6837 B415 2D 53 -S blt 53
6931 B489 2F 43 /C ble 43
6972 B4B3 24 2A $* bcc 2a
6980 B4BE 80 FF .. suba #ff
6981 B4C0 FF FF FF ... stx ffff
6982 B4C3 FF FF FF ... stx ffff
6983 B4C6 FF FF FF ... stx ffff
6984 B4C9 FF FF FF ... stx ffff
6985 B4CC FF FF FF ... stx ffff
6986 B4CF FF FF FF ... stx ffff
6987 B4D2 FF FF FF ... stx ffff
6988 B4D5 FF FF FF ... stx ffff
6989 B4D8 FF FF FF ... stx ffff
6990 B4DB FF FF FF ... stx ffff
6991 B4DE FF FF FF ... stx ffff
6992 B4E1 FF FF FF ... stx ffff
6993 B4E4 FF FF FF ... stx ffff
6994 B4E7 FF FF FF ... stx ffff
6995 B4EA FF FF FF ... stx ffff
6996 B4ED FF FF FF ... stx ffff
6997 B4F0 FF FF FF ... stx ffff
6998 B4F3 FF FF FF ... stx ffff
6999 B4F6 FF FF FF ... stx ffff
7000 B4F9 FF FF FF ... stx ffff
7001 B4FC FF FF FF ... stx ffff
7002 B4FF FF FF FF ... stx ffff
7003 B502 FF FF FF ... stx ffff
7004 B505 FF FF FF ... stx ffff
7005 B508 FF FF FF ... stx ffff
7006 B50B FF FF FF ... stx ffff
7007 B50E FF FF FF ... stx ffff
7008 B511 FF FF FF ... stx ffff
7009 B514 FF FF FF ... stx ffff
7010 B517 FF FF FF ... stx ffff
7011 B51A FF FF FF ... stx ffff
7012 B51D FF FF FF ... stx ffff
7013 B520 FF FF FF ... stx ffff
7014 B523 FF FF FF ... stx ffff
7015 B526 FF FF FF ... stx ffff
7016 B529 FF FF FF ... stx ffff
7017 B52C FF FF FF ... stx ffff
7018 B52F FF FF FF ... stx ffff
7019 B532 FF FF FF ... stx ffff
7020 B535 FF FF FF ... stx ffff
7021 B538 FF FF FF ... stx ffff
7022 B53B FF FF FF ... stx ffff
7023 B53E FF FF FF ... stx ffff
7024 B541 FF FF FF ... stx ffff
7025 B544 FF FF FF ... stx ffff
7026 B547 FF FF FF ... stx ffff
7027 B54A FF FF FF ... stx ffff
7028 B54D FF FF FF ... stx ffff
7029 B550 FF FF FF ... stx ffff
7030 B553 FF FF FF ... stx ffff
7031 B556 FF FF FF ... stx ffff
7032 B559 FF FF FF ... stx ffff
7033 B55C FF FF FF ... stx ffff
7034 B55F FF FF FF ... stx ffff
7035 B562 FF FF FF ... stx ffff
7036 B565 FF FF FF ... stx ffff
7037 B568 FF FF FF ... stx ffff
7038 B56B FF FF FF ... stx ffff
7039 B56E FF FF FF ... stx ffff
7040 B571 FF FF FF ... stx ffff
7041 B574 FF FF FF ... stx ffff
7042 B577 FF FF FF ... stx ffff
7043 B57A FF FF FF ... stx ffff
7044 B57D FF FF FF ... stx ffff
7045 B580 FF FF FF ... stx ffff
7046 B583 FF FF FF ... stx ffff
7047 B586 FF FF FF ... stx ffff
7048 B589 FF FF FF ... stx ffff
7049 B58C FF FF FF ... stx ffff
7050 B58F FF FF FF ... stx ffff
7051 B592 FF FF FF ... stx ffff
7052 B595 FF FF FF ... stx ffff
7053 B598 FF FF FF ... stx ffff
7054 B59B FF FF FF ... stx ffff
7055 B59E FF FF FF ... stx ffff
7056 B5A1 FF FF FF ... stx ffff
7057 B5A4 FF FF FF ... stx ffff
7058 B5A7 FF FF FF ... stx ffff
7059 B5AA FF FF FF ... stx ffff
7060 B5AD FF FF FF ... stx ffff
7061 B5B0 FF FF FF ... stx ffff
7062 B5B3 FF FF FF ... stx ffff
7063 B5B6 FF FF FF ... stx ffff
7064 B5B9 FF FF FF ... stx ffff
7065 B5BC FF FF FF ... stx ffff
7066 B5BF FF FF FF ... stx ffff
7067 B5C2 FF FF FF ... stx ffff
7068 B5C5 FF FF FF ... stx ffff
7069 B5C8 FF FF FF ... stx ffff
7070 B5CB FF FF FF ... stx ffff
7071 B5CE FF FF FF ... stx ffff
7072 B5D1 FF FF FF ... stx ffff
7073 B5D4 FF FF FF ... stx ffff
7074 B5D7 FF FF FF ... stx ffff
7075 B5DA FF FF FF ... stx ffff
7076 B5DD FF FF FF ... stx ffff
7077 B5E0 FF FF FF ... stx ffff
7078 B5E3 FF FF FF ... stx ffff
7079 B5E6 FF FF FF ... stx ffff
7080 B5E9 FF FF FF ... stx ffff
7081 B5EC FF FF FF ... stx ffff
7082 B5EF FF FF FF ... stx ffff
7083 B5F2 FF FF FF ... stx ffff
7084 B5F5 FF FF FF ... stx ffff
7085 B5F8 FF FF FF ... stx ffff
7086 B5FB FF FF FF ... stx ffff
7087 B5FE FF FF FF ... stx ffff
7088 B601 FF FF FF ... stx ffff
7089 B604 FF FF FF ... stx ffff
7090 B607 FF FF FF ... stx ffff
7091 B60A FF FF FF ... stx ffff
7092 B60D FF FF FF ... stx ffff
7093 B610 FF FF FF ... stx ffff
7094 B613 FF FF FF ... stx ffff
7095 B616 FF FF FF ... stx ffff
7096 B619 FF FF FF ... stx ffff
7097 B61C FF FF FF ... stx ffff
7098 B61F FF FF FF ... stx ffff
7099 B622 FF FF FF ... stx ffff
7100 B625 FF FF FF ... stx ffff
7101 B628 FF FF FF ... stx ffff
7102 B62B FF FF FF ... stx ffff
7103 B62E FF FF FF ... stx ffff
7104 B631 FF FF FF ... stx ffff
7105 B634 FF FF FF ... stx ffff
7106 B637 FF FF FF ... stx ffff
7107 B63A FF FF FF ... stx ffff
7108 B63D FF FF FF ... stx ffff
7109 B640 FF FF FF ... stx ffff
7110 B643 FF FF FF ... stx ffff
7111 B646 FF FF FF ... stx ffff
7112 B649 FF FF FF ... stx ffff
7113 B64C FF FF FF ... stx ffff
7114 B64F FF FF FF ... stx ffff
7115 B652 FF FF FF ... stx ffff
7116 B655 FF FF FF ... stx ffff
7117 B658 FF FF FF ... stx ffff
7118 B65B FF FF FF ... stx ffff
7119 B65E FF FF FF ... stx ffff
7120 B661 FF FF FF ... stx ffff
7121 B664 FF FF FF ... stx ffff
7122 B667 FF FF FF ... stx ffff
7123 B66A FF FF FF ... stx ffff
7124 B66D FF FF FF ... stx ffff
7125 B670 FF FF FF ... stx ffff
7126 B673 FF FF FF ... stx ffff
7127 B676 FF FF FF ... stx ffff
7128 B679 FF FF FF ... stx ffff
7129 B67C FF FF FF ... stx ffff
7130 B67F FF FF FF ... stx ffff
7131 B682 FF FF FF ... stx ffff
7132 B685 FF FF FF ... stx ffff
7133 B688 FF FF FF ... stx ffff
7134 B68B FF FF FF ... stx ffff
7135 B68E FF FF FF ... stx ffff
7136 B691 FF FF FF ... stx ffff
7137 B694 FF FF FF ... stx ffff
7138 B697 FF FF FF ... stx ffff
7139 B69A FF FF FF ... stx ffff
7140 B69D FF FF FF ... stx ffff
7141 B6A0 FF FF FF ... stx ffff
7142 B6A3 FF FF FF ... stx ffff
7143 B6A6 FF FF FF ... stx ffff
7144 B6A9 FF FF FF ... stx ffff
7145 B6AC FF FF FF ... stx ffff
7146 B6AF FF FF FF ... stx ffff
7147 B6B2 FF FF FF ... stx ffff
7148 B6B5 FF FF FF ... stx ffff
7149 B6B8 FF FF FF ... stx ffff
7150 B6BB FF FF FF ... stx ffff
7151 B6BE FF FF FF ... stx ffff
7152 B6C1 FF FF FF ... stx ffff
7153 B6C4 FF FF FF ... stx ffff
7154 B6C7 FF FF FF ... stx ffff
7155 B6CA FF FF FF ... stx ffff
7156 B6CD FF FF FF ... stx ffff
7157 B6D0 FF FF FF ... stx ffff
7158 B6D3 FF FF FF ... stx ffff
7159 B6D6 FF FF FF ... stx ffff
7160 B6D9 FF FF FF ... stx ffff
7161 B6DC FF FF FF ... stx ffff
7162 B6DF FF FF FF ... stx ffff
7163 B6E2 FF FF FF ... stx ffff
7164 B6E5 FF FF FF ... stx ffff
7165 B6E8 FF FF FF ... stx ffff
7166 B6EB FF FF FF ... stx ffff
7167 B6EE FF FF FF ... stx ffff
7168 B6F1 FF FF FF ... stx ffff
7169 B6F4 FF FF FF ... stx ffff
7170 B6F7 FF FF FF ... stx ffff
7171 B6FA FF FF FF ... stx ffff
7172 B6FD FF FF FF ... stx ffff
7173 B700 FF FF FF ... stx ffff
7174 B703 FF FF FF ... stx ffff
7175 B706 FF FF FF ... stx ffff
7176 B709 FF FF FF ... stx ffff
7177 B70C FF FF FF ... stx ffff
7178 B70F FF FF FF ... stx ffff
7179 B712 FF FF FF ... stx ffff
7180 B715 FF FF FF ... stx ffff
7181 B718 FF FF FF ... stx ffff
7182 B71B FF FF FF ... stx ffff
7183 B71E FF FF FF ... stx ffff
7184 B721 FF FF FF ... stx ffff
7185 B724 FF FF FF ... stx ffff
7186 B727 FF FF FF ... stx ffff
7187 B72A FF FF FF ... stx ffff
7188 B72D FF FF FF ... stx ffff
7189 B730 FF FF FF ... stx ffff
7190 B733 FF FF FF ... stx ffff
7191 B736 FF FF FF ... stx ffff
7192 B739 FF FF FF ... stx ffff
7193 B73C FF FF FF ... stx ffff
7194 B73F FF FF FF ... stx ffff
7195 B742 FF FF FF ... stx ffff
7196 B745 FF FF FF ... stx ffff
7197 B748 FF FF FF ... stx ffff
7198 B74B FF FF FF ... stx ffff
7199 B74E FF FF FF ... stx ffff
7200 B751 FF FF FF ... stx ffff
7201 B754 FF FF FF ... stx ffff
7202 B757 FF FF FF ... stx ffff
7203 B75A FF FF FF ... stx ffff
7204 B75D FF FF FF ... stx ffff
7205 B760 FF FF FF ... stx ffff
7206 B763 FF FF FF ... stx ffff
7207 B766 FF FF FF ... stx ffff
7208 B769 FF FF FF ... stx ffff
7209 B76C FF FF FF ... stx ffff
7210 B76F FF FF FF ... stx ffff
7211 B772 FF FF FF ... stx ffff
7212 B775 FF FF FF ... stx ffff
7213 B778 FF FF FF ... stx ffff
7214 B77B FF FF FF ... stx ffff
7215 B77E FF FF FF ... stx ffff
7216 B781 FF FF FF ... stx ffff
7217 B784 FF FF FF ... stx ffff
7218 B787 FF FF FF ... stx ffff
7219 B78A FF FF FF ... stx ffff
7220 B78D FF FF FF ... stx ffff
7221 B790 FF FF FF ... stx ffff
7222 B793 FF FF FF ... stx ffff
7223 B796 FF FF FF ... stx ffff
7224 B799 FF FF FF ... stx ffff
7225 B79C FF FF FF ... stx ffff
7226 B79F FF FF FF ... stx ffff
7227 B7A2 FF FF FF ... stx ffff
7228 B7A5 FF FF FF ... stx ffff
7229 B7A8 FF FF FF ... stx ffff
7230 B7AB FF FF FF ... stx ffff
7231 B7AE FF FF FF ... stx ffff
7232 B7B1 FF FF FF ... stx ffff
7233 B7B4 FF FF FF ... stx ffff
7234 B7B7 FF FF FF ... stx ffff
7235 B7BA FF FF FF ... stx ffff
7236 B7BD FF FF FF ... stx ffff
7237 B7C0 FF FF FF ... stx ffff
7238 B7C3 FF FF FF ... stx ffff
7239 B7C6 FF FF FF ... stx ffff
7240 B7C9 FF FF FF ... stx ffff
7241 B7CC FF FF FF ... stx ffff
7242 B7CF FF FF FF ... stx ffff
7243 B7D2 FF FF FF ... stx ffff
7244 B7D5 FF FF FF ... stx ffff
7245 B7D8 FF FF FF ... stx ffff
7246 B7DB FF FF FF ... stx ffff
7247 B7DE FF FF FF ... stx ffff
7248 B7E1 FF FF FF ... stx ffff
7249 B7E4 FF FF FF ... stx ffff
7250 B7E7 FF FF FF ... stx ffff
7251 B7EA FF FF FF ... stx ffff
7252 B7ED FF FF FF ... stx ffff
7253 B7F0 FF FF FF ... stx ffff
7254 B7F3 FF FF FF ... stx ffff
7255 B7F6 FF FF FF ... stx ffff
7256 B7F9 FF FF FF ... stx ffff
7257 B7FC FF FF FF ... stx ffff
7262 B801 F6 0E 6D ... ldab 0e6d
7263 B804 C1 01 .. cmpb #01
7264 B806 27 03 '. beq 03
7265 B808 7E B9 2A ~.* jmp b92a ;goto25
7266 B80B F6 0E 02 ... ldab 0e02
7267 B80E C1 05 .. cmpb #05 ; was the 3rd last keypress a 5?
7268 B810 27 03 '. beq 03
7269 B812 7E B9 2A ~.* jmp b92a ;goto25
7270 B815 F6 0E 03 ... ldab 0e03
7271 B818 C1 05 .. cmpb #05 ; was the 2nd last keypress a 5?
7272 B81A 27 03 '. beq 03
7273 B81C 7E B9 2A ~.* jmp b92a ;goto25
7274 B81F F6 0E 04 ... ldab 0e04
7275 B822 C1 05 .. cmpb #05 ; was the last keypress a 5?
7276 B824 27 03 '. beq 03
7277 B826 7E B9 2A ~.* jmp b92a ;goto25
7278 B829 F6 00 12 ... ldab 0012
7279 B82C C4 20 . andb #20 ; test the door switch
7280 B82E 27 03 '. beq 03
7281 B830 7E B9 2A ~.* jmp b92a ;goto25
7283 B834 6F 00 o. clr 00,x
7284 B836 F6 0E 6A ..j ldab 0e6a
7285 B839 C1 00 .. cmpb #00
7286 B83B 22 33 "3 bhi 33
7287 B83D C6 64 .d ldab #64
7288 B83F F7 0E 6A ..j stab 0e6a
7289 B842 7C 0E 05 |.. inc 0e05
7290 B845 F6 0E 05 ... ldab 0e05
7291 B848 C1 64 .d cmpb #64
7292 B84A 23 03 #. bls 03
7293 B84C 7F 0E 05 ... clr 0e05
7294 B84F F6 0E 05 ... ldab 0e05
7295 B852 BD D4 68 ..h jsr d468 ;jump51
7296 B855 83 00 00 ... subd #0000
7297 B858 27 0B '. beq 0b
7298 B85A F6 0E 05 ... ldab 0e05
7299 B85D BD D7 A0 ... jsr d7a0 ;is_invalid_slot
7300 B860 83 00 00 ... subd #0000
7301 B863 27 09 '. beq 09
7303 B866 6C 00 l. inc 00,x
7304 B868 E6 00 .. ldab 00,x
7305 B86A C1 6E .n cmpb #6e ; 110 or 01101110
7306 B86C 2D D4 -. blt d4
7308 B870 F6 0E 6A ..j ldab 0e6a
7309 B873 C1 00 .. cmpb #00
7310 B875 23 03 #. bls 03
7311 B877 7A 0E 6A z.j dec 0e6a
7312 B87A F6 0E 05 ... ldab 0e05
7313 B87D BD D4 68 ..h jsr d468 ;jump51
7314 B880 83 00 00 ... subd #0000
7315 B883 26 03 &. bne 03
7316 B885 7E B9 0A ~.. jmp b90a ;goto26
7317 B888 F6 0E 05 ... ldab 0e05
7318 B88B BD D7 A0 ... jsr d7a0 ;is_invalid_slot
7319 B88E 83 00 00 ... subd #0000
7320 B891 26 77 &w bne 77
7321 B893 BD BE 4B ..K jsr be4b ;displayblank
7322 B896 C6 20 . ldab #20 ; " "
7323 B898 F7 0B 9A ... stab 0b9a
7324 B89B C6 20 . ldab #20 ; " "
7325 B89D F7 0B 99 ... stab 0b99
7326 B8A0 C6 20 . ldab #20 ; " "
7327 B8A2 F7 0B 98 ... stab 0b98
7328 B8A5 F6 0E 05 ... ldab 0e05 ; array index/10
7330 B8A9 CE 00 0A ... ldx #000a
7333 B8AE CB 30 .0 addb #30 ; make it a digit
7334 B8B0 F7 0B 97 ... stab 0b97
7335 B8B3 F6 0E 05 ... ldab 0e05 ; array index%10
7337 B8B7 CE 00 0A ... ldx #000a
7339 B8BB CB 30 .0 addb #30 ; make it a digit
7340 B8BD F7 0B 96 ... stab 0b96
7341 B8C0 C6 20 . ldab #20 ; " "
7342 B8C2 F7 0B 95 ... stab 0b95
7343 B8C5 C6 20 . ldab #20 ; " "
7344 B8C7 F7 0B 94 ... stab 0b94
7345 B8CA F6 0E 05 ... ldab 0e05 ; array[index]/10
7347 B8CE C3 0E 06 ... addd #0e06
7349 B8D2 E6 00 .. ldab 00,x
7351 B8D5 CE 00 0A ... ldx #000a
7354 B8DA CB 30 .0 addb #30 ; make it a digit
7355 B8DC F7 0B 93 ... stab 0b93
7356 B8DF F6 0E 05 ... ldab 0e05 ; array[index]%10
7358 B8E3 C3 0E 06 ... addd #0e06
7360 B8E7 E6 00 .. ldab 00,x
7362 B8EA CE 00 0A ... ldx #000a
7364 B8EE CB 30 .0 addb #30 ; make it a digit
7365 B8F0 F7 0B 92 ... stab 0b92
7366 B8F3 C6 20 . ldab #20 ; " "
7367 B8F5 F7 0B 91 ... stab 0b91
7368 B8F8 C6 20 . ldab #20 ; " "
7369 B8FA F7 0B 90 ... stab 0b90
7370 B8FD 7F 00 2C .., clr 002c
7371 B900 BD BE 01 ... jsr be01 ;jump70
7372 B903 C6 0A .. ldab #0a
7373 B905 F7 00 2C .., stab 002c
7376 B90A BD BE 4B ..K jsr be4b ;displayblank
7377 B90D C6 57 .W ldab #57 ; "W"
7378 B90F F7 0B 96 ... stab 0b96
7379 B912 C6 42 .B ldab #42 ; "B"
7380 B914 F7 0B 95 ... stab 0b95
7381 B917 C6 42 .B ldab #42 ; "B"
7382 B919 F7 0B 94 ... stab 0b94
7383 B91C 7F 00 2C .., clr 002c
7384 B91F BD BE 01 ... jsr be01 ;jump70 write to display
7385 B922 C6 0A .. ldab #0a
7386 B924 F7 00 2C .., stab 002c
7387 B927 7E BA 81 ~.. jmp ba81 ;goto27
7389 B92A F6 0E 6D ..m ldab 0e6d
7390 B92D C1 01 .. cmpb #01
7391 B92F 27 03 '. beq 03
7392 B931 7E BA 81 ~.. jmp ba81 ;goto27
7393 B934 F6 0E 00 ... ldab 0e00
7394 B937 C1 05 .. cmpb #05
7395 B939 27 03 '. beq 03
7396 B93B 7E BA 81 ~.. jmp ba81 ;goto27
7397 B93E F6 0E 01 ... ldab 0e01
7398 B941 C1 05 .. cmpb #05
7399 B943 27 03 '. beq 03
7400 B945 7E BA 81 ~.. jmp ba81 ;goto27
7401 B948 F6 0E 02 ... ldab 0e02
7402 B94B C1 05 .. cmpb #05
7403 B94D 27 03 '. beq 03
7404 B94F 7E BA 81 ~.. jmp ba81 ;goto27
7405 B952 F6 00 12 ... ldab 0012
7406 B955 C4 20 . andb #20 ; test the door switch
7407 B957 26 03 &. bne 03
7408 B959 7E BA 81 ~.. jmp ba81 ;goto27
7409 B95C F6 0E 04 ... ldab 0e04
7410 B95F C1 05 .. cmpb #05
7411 B961 26 79 &y bne 79
7412 B963 F6 0E 03 ... ldab 0e03
7413 B966 C1 05 .. cmpb #05
7414 B968 26 72 &r bne 72
7416 B96B 6F 00 o. clr 00,x
7418 B96E E6 00 .. ldab 00,x
7419 B970 C1 64 .d cmpb #64
7420 B972 2C 16 ,. bge 16
7424 B977 E6 01 .. ldab 01,x
7427 B97B 2C 01 ,. bge 01
7429 B97E C3 0E 06 ... addd #0e06
7432 B983 E7 00 .. stab 00,x
7434 B986 6C 00 l. inc 00,x
7436 B98A 7F 0D FF ... clr 0dff
7437 B98D 7F 0E 00 ... clr 0e00
7438 B990 7F 0E 01 ... clr 0e01
7439 B993 7F 0E 02 ... clr 0e02
7440 B996 7F 0E 03 ... clr 0e03
7441 B999 7F 0E 04 ... clr 0e04
7442 B99C C6 41 .A ldab #41 ; "A"
7443 B99E F7 0B 99 ... stab 0b99
7444 B9A1 C6 4C .L ldab #4c ; "L"
7445 B9A3 F7 0B 98 ... stab 0b98
7446 B9A6 C6 4C .L ldab #4c ; "L"
7447 B9A8 F7 0B 97 ... stab 0b97
7448 B9AB C6 20 . ldab #20 ; " "
7449 B9AD F7 0B 96 ... stab 0b96
7450 B9B0 C6 43 .C ldab #43 ; "C"
7451 B9B2 F7 0B 95 ... stab 0b95
7452 B9B5 C6 4C .L ldab #4c ; "L"
7453 B9B7 F7 0B 94 ... stab 0b94
7454 B9BA C6 45 .E ldab #45 ; "E"
7455 B9BC F7 0B 93 ... stab 0b93
7456 B9BF C6 41 .A ldab #41 ; "A"
7457 B9C1 F7 0B 92 ... stab 0b92
7458 B9C4 C6 52 .R ldab #52 ; "R"
7459 B9C6 F7 0B 91 ... stab 0b91
7460 B9C9 C6 20 . ldab #20 ; " "
7461 B9CB F7 0B 90 ... stab 0b90
7462 B9CE 7F 00 2C .., clr 002c
7463 B9D1 BD BE 01 ... jsr be01 ;jump70 - display
7464 B9D4 C6 1E .. ldab #1e
7465 B9D6 F7 00 2C .., stab 002c
7466 B9D9 7E BA 81 ~.. jmp ba81 ;goto27
7467 B9DC F6 0E 04 ... ldab 0e04
7468 B9DF C1 01 .. cmpb #01
7469 B9E1 27 0A '. beq 0a
7470 B9E3 F6 0E 04 ... ldab 0e04
7471 B9E6 C1 02 .. cmpb #02
7472 B9E8 27 03 '. beq 03
7473 B9EA 7E BA 81 ~.. jmp ba81 ;goto27
7474 B9ED F6 0E 03 ... ldab 0e03
7475 B9F0 C1 00 .. cmpb #00
7476 B9F2 22 03 ". bhi 03
7477 B9F4 7E BA 81 ~.. jmp ba81 ;goto27
7478 B9F7 F6 0E 03 ... ldab 0e03
7479 B9FA C1 05 .. cmpb #05
7480 B9FC 26 03 &. bne 03
7481 B9FE 7E BA 81 ~.. jmp ba81 ;goto27
7482 BA01 F6 0E 03 ... ldab 0e03
7483 BA04 C1 07 .. cmpb #07
7484 BA06 24 79 $y bcc 79
7485 BA08 F6 0E 03 ... ldab 0e03 ; prevkey*10+key
7486 BA0B 86 0A .. ldaa #0a
7488 BA0E FB 0E 04 ... addb 0e04
7490 BA12 E7 00 .. stab 00,x
7491 BA14 E6 00 .. ldab 00,x
7492 BA16 C1 64 .d cmpb #64
7493 BA18 2C 67 ,g bge 67
7494 BA1A E6 00 .. ldab 00,x
7495 BA1C 2D 63 -c blt 63
7499 BA21 E6 01 .. ldab 01,x
7502 BA25 2C 01 ,. bge 01
7504 BA28 C3 0E 06 ... addd #0e06
7507 BA2D E7 00 .. stab 00,x
7508 BA2F F6 0E 03 ... ldab 0e03
7509 BA32 CB 30 .0 addb #30 ; +48 (make an ascii digit)
7510 BA34 F7 0B 99 ... stab 0b99
7511 BA37 F6 0E 04 ... ldab 0e04
7512 BA3A CB 30 .0 addb #30 ; +48 (make an ascii digit)
7513 BA3C F7 0B 98 ... stab 0b98
7514 BA3F C6 20 . ldab #20 ; " "
7515 BA41 F7 0B 97 ... stab 0b97
7516 BA44 C6 43 .C ldab #43 ; "C"
7517 BA46 F7 0B 96 ... stab 0b96
7518 BA49 C6 4C .L ldab #4c ; "L"
7519 BA4B F7 0B 95 ... stab 0b95
7520 BA4E C6 45 .E ldab #45 ; "E"
7521 BA50 F7 0B 94 ... stab 0b94
7522 BA53 C6 41 .A ldab #41 ; "A"
7523 BA55 F7 0B 93 ... stab 0b93
7524 BA58 C6 52 .R ldab #52 ; "R"
7525 BA5A F7 0B 92 ... stab 0b92
7526 BA5D C6 45 .E ldab #45 ; "E"
7527 BA5F F7 0B 91 ... stab 0b91
7528 BA62 C6 44 .D ldab #44 ; "D"
7529 BA64 F7 0B 90 ... stab 0b90
7530 BA67 7F 0E 00 ... clr 0e00
7531 BA6A 7F 0E 01 ... clr 0e01
7532 BA6D 7F 0E 02 ... clr 0e02
7533 BA70 7F 0E 03 ... clr 0e03
7534 BA73 7F 0E 04 ... clr 0e04
7535 BA76 7F 00 2C .., clr 002c
7536 BA79 BD BE 01 ... jsr be01 ;jump70 - display
7537 BA7C C6 1E .. ldab #1e
7538 BA7E F7 00 2C .., stab 002c
7544 ; reads the keypad state into 005b & 0056
7545 ; it looks like it returns without doing anything if the
7546 ; no sale switch is pressed, but I haven't looked closely
7547 BA83 F6 18 00 ... ldab 1800
7548 BA86 C4 7F .. andb #7f
7549 BA88 F7 00 23 ..# stab 0023
7550 BA8B F6 00 23 ..# ldab 0023
7551 BA8E F1 00 12 ... cmpb 0012 ; door buffers - debouncing it?
7552 BA91 27 06 '. beq 06
7553 BA93 F6 00 23 ..# ldab 0023
7554 BA96 F7 00 12 ... stab 0012
7555 BA99 F6 20 00 . . ldab 2000
7556 BA9C F1 00 20 .. cmpb 0020
7557 BA9F 27 08 '. beq 08
7558 BAA1 F6 20 00 . . ldab 2000
7559 BAA4 F7 00 20 .. stab 0020
7561 BAA9 F6 00 20 .. ldab 0020
7562 BAAC F7 00 11 ... stab 0011
7563 BAAF F6 00 11 ... ldab 0011
7564 BAB2 C4 03 .. andb #03
7565 BAB4 F7 00 2B ..+ stab 002b
7566 BAB7 F6 00 1B ... ldab 001b
7567 BABA C4 04 .. andb #04
7569 BABD F6 10 0A ... ldab 100a ; PortE
7570 BAC0 C4 04 .. andb #04 ; no sale switch (active low)
7572 BAC3 E0 00 .. subb 00,x
7574 BAC6 27 17 '. beq 17
7575 BAC8 F6 10 0A ... ldab 100a ; PortE
7576 BACB C4 04 .. andb #04 : no sale switch (active low)
7577 BACD 27 08 '. beq 08
7578 BACF CE 00 1B ... ldx #001b
7579 BAD2 1C 00 04 .. bset 00,x, #04
7581 BAD7 CE 00 1B ... ldx #001b
7582 BADA 1D 00 04 .. bclr 00,x, #04
7584 BADF F6 10 0A ... ldab 100a ; PortE
7585 BAE2 C4 04 .. andb #04 ; no sale switch (active low)
7586 BAE4 27 08 '. beq 08
7587 BAE6 CE 00 1D ... ldx #001d
7588 BAE9 1C 00 04 .. bset 00,x, #04
7590 BAEE CE 00 1D ... ldx #001d
7591 BAF1 1D 00 04 .. bclr 00,x, #04
7592 BAF4 CE 10 08 ... ldx #1008 : PortD
7593 BAF7 1D 00 20 ... bclr 00,x, #20 ; select keypad row 0
7594 BAF9 CE 10 28 ... ldx #1028
7595 BAFC 1C 00 40 ... bset 00,x #40 ; enable SPI
7597 BB00 CE 00 14 ... ldx #0014 ; keypad strobe:
7598 BB03 1C 00 04 .. bset 00,x, #04 ; resets the keypad
7599 BB06 F6 00 14 ... ldab 0014 ; shift register
7600 BB09 F7 38 00 .8. stab 3800 ; ready for a new
7601 BB0C CE 00 14 ... ldx #0014 ; read
7602 BB0F 1D 00 04 .. bclr 00,x, #04
7603 BB12 F6 00 14 ... ldab 0014
7604 BB15 F7 38 00 .8. stab 3800
7606 BB18 CE 00 00 ... ldx #0000
7610 BB1E BD BD B5 ... jsr bdb5 ;jump78 - reads the keypad inputs into X
7612 BB22 F7 00 5B ..[ stab 005b
7614 BB25 CE 10 28 ..( ldx #1028
7615 BB28 1D 00 40 .. bclr 00,x, #40 ; disable SPI
7617 BB2B CE 10 08 ... ldx #1008
7618 BB2E 1C 00 20 .. bset 00,x, #20 ; select keypad row 1
7620 BB30 CE 10 28 ... ldx #1028
7621 BB33 1C 00 40 ... bset 00,x, #40 ; enable the SPI
7623 BB37 CE 00 14 ... ldx #0014
7624 BB3A 1C 00 04 .. bset 00,x, #04 ; keypad strobe
7625 BB3D F6 00 14 ... ldab 0014
7626 BB40 F7 38 00 .8. stab 3800
7627 BB43 CE 00 14 ... ldx #0014
7628 BB46 1D 00 04 .. bclr 00,x, #04
7629 BB49 F6 00 14 ... ldab 0014
7630 BB4C F7 38 00 .8. stab 3800
7632 BB4F CE 00 00 ... ldx #0000
7636 BB55 BD BD B5 ... jsr bdb5 ;jump78 - read the keypad
7638 BB59 F7 00 56 ..V stab 0056
7639 BB5C CE 10 28 ..( ldx #1028
7640 BB5F 1D 00 40 .. bclr 00,x, #40
7644 BB63 F6 00 00 ... ldab 0000
7645 BB66 27 03 '. beq 03
7646 BB68 7E BD B4 ~.. jmp bdb4 ;goto28
7647 BB6B F6 00 2E ... ldab 002e
7648 BB6E 27 03 '. beq 03
7649 BB70 7E BD B4 ~.. jmp bdb4 ;goto28
7650 BB73 BD BA 83 ... jsr ba83 ;jump125 - read keypad
7651 ; has a key been pressed?
7652 BB76 F6 00 5B ..[ ldab 005b
7653 BB79 F1 00 56 ..V cmpb 0056
7654 BB7C 26 0B &. bne 0b ; to bb89
7655 BB7E F6 00 56 ..V ldab 0056
7656 BB81 27 06 '. beq 06 ; to bb89
7657 BB83 7F 00 29 ..) clr 0029 ; to key pressed
7658 BB86 7E BD AF ~.. jmp bdaf ;goto29 (bail)
7659 ; find keypad number
7660 BB89 F6 00 5B ..[ ldab 005b ; is row0 = 0
7661 BB8C 27 34 '4 beq 34 ; if so, to bbc2
7662 BB8E F6 00 5B ..[ ldab 005b
7663 BB91 F7 00 5F .._ stab 005f
7664 BB94 7F 00 1C ... clr 001c ; i=0
7666 BB97 F6 00 1C ... ldab 001c
7667 BB9A C1 08 .. cmpb #08 ; if i >= 8
7668 BB9C 24 15 $. bcc 15 ; to bbb3 (break)
7669 BB9E F6 00 5F .._ ldab 005f
7670 BBA1 C4 01 .. andb #01
7671 BBA3 27 02 '. beq 02
7672 BBA5 20 0C . bra 0c ; to bbb3
7673 BBA7 F6 00 5F .._ ldab 005f
7674 BBAA 54 T lsrb ; ready to test next bit
7675 BBAB F7 00 5F .._ stab 005f
7676 BBAE 7C 00 1C |.. inc 001c
7677 BBB1 20 E4 . bra e4 ; to bb97
7678 ; look up i in the keypad map
7679 BBB3 F6 00 1C ... ldab 001c
7681 BBB7 C3 AC 9D ... addd #ac9d ; keypad mapping
7683 BBBB E6 00 .. ldab 00,x
7684 BBBD F7 00 16 ... stab 0016
7685 BBC0 20 3C < bra 3c ; to bbfe
7686 ; test row 1 - ditto
7687 BBC2 F6 00 56 ..V ldab 0056
7688 BBC5 27 34 '4 beq 34
7689 BBC7 F6 00 56 ..V ldab 0056
7690 BBCA F7 00 5F .._ stab 005f
7691 BBCD 7F 00 1C ... clr 001c
7692 BBD0 F6 00 1C ... ldab 001c
7693 BBD3 C1 08 .. cmpb #08
7694 BBD5 24 15 $. bcc 15
7695 BBD7 F6 00 5F .._ ldab 005f
7696 BBDA C4 01 .. andb #01
7697 BBDC 27 02 '. beq 02
7698 BBDE 20 0C . bra 0c ; to bbec
7699 BBE0 F6 00 5F .._ ldab 005f
7701 BBE4 F7 00 5F .._ stab 005f
7702 BBE7 7C 00 1C |.. inc 001c
7704 BBEC F6 00 1C ... ldab 001c
7707 BBF0 C3 AC A0 ... addd #aca0
7709 BBF4 E6 00 .. ldab 00,x
7710 BBF6 F7 00 16 ... stab 0016
7712 BBFB 7F 00 16 ... clr 0016
7714 BBFE F6 00 5B ..[ ldab 005b
7715 BC01 FA 00 56 ..V orb 0056
7716 BC04 F7 00 5F .._ stab 005f
7717 BC07 7F 00 5E ..^ clr 005e
7718 BC0A 7F 00 1C ... clr 001c
7719 BC0D F6 00 1C ... ldab 001c
7720 BC10 C1 08 .. cmpb #08
7721 BC12 24 16 $. bcc 16
7722 BC14 F6 00 5F .._ ldab 005f
7723 BC17 C4 01 .. andb #01
7724 BC19 27 03 '. beq 03
7725 BC1B 7C 00 5E |.^ inc 005e
7726 BC1E F6 00 5F .._ ldab 005f
7728 BC22 F7 00 5F .._ stab 005f
7729 BC25 7C 00 1C |.. inc 001c
7731 BC2A F6 00 5E ..^ ldab 005e
7732 BC2D C1 01 .. cmpb #01
7733 BC2F 22 05 ". bhi 05
7734 BC31 F6 00 16 ... ldab 0016
7735 BC34 26 0F &. bne 0f
7736 BC36 7F 00 29 ..) clr 0029
7737 BC39 CE 00 1B ... ldx #001b
7738 BC3C 1C 00 10 ... bset 00,x, #10
7739 BC3F 7F 00 37 ..7 clr 0037
7740 BC42 7E BD AF ~.. jmp bdaf ;goto29 (bail)
7741 BC45 F6 00 16 ... ldab 0016 ; key release or debounce?
7742 BC48 F1 00 29 ..) cmpb 0029
7743 BC4B 27 2D '- beq 2d
7744 BC4D F6 00 16 ... ldab 0016
7745 BC50 F7 00 29 ..) stab 0029
7746 BC53 F6 0E 00 ... ldab 0e00 ; this is the key buffer?
7747 BC56 F7 0D FF ... stab 0dff
7748 BC59 F6 0E 01 ... ldab 0e01
7749 BC5C F7 0E 00 ... stab 0e00
7750 BC5F F6 0E 02 ... ldab 0e02
7751 BC62 F7 0E 01 ... stab 0e01
7752 BC65 F6 0E 03 ... ldab 0e03
7753 BC68 F7 0E 02 ... stab 0e02
7754 BC6B F6 0E 04 ... ldab 0e04
7755 BC6E F7 0E 03 ... stab 0e03
7756 BC71 F6 00 29 ..) ldab 0029
7757 BC74 F7 0E 04 ... stab 0e04
7758 BC77 7E BD AF ~.. jmp bdaf ;goto29 (bail)
7759 BC7A F6 00 12 ... ldab 0012
7760 BC7D C4 20 . andb #20 ; test door switch
7761 BC7F 27 3B '; beq 3b ; to bcbc
7762 BC81 F6 00 29 ..) ldab 0029
7763 BC84 27 33 '3 beq 33
7764 BC86 F6 00 1B ... ldab 001b
7765 BC89 C4 10 .. andb #10
7766 BC8B 27 2C ', beq 2c
7767 BC8D F6 00 42 ..B ldab 0042
7768 BC90 27 15 '. beq 15
7769 BC92 F6 00 09 ... ldab 0009
7770 BC95 27 08 '. beq 08
7771 BC97 F6 00 29 ..) ldab 0029
7772 BC9A F7 00 0A ... stab 000a
7774 BC9F F6 00 29 ..) ldab 0029
7775 BCA2 F7 00 09 ... stab 0009
7777 BCA7 F6 00 29 ..) ldab 0029
7778 BCAA F7 00 42 ..B stab 0042
7779 BCAD BD E5 AA ... jsr e5aa ;jump12
7780 BCB0 7F 00 2C .., clr 002c
7781 BCB3 CE 00 1B ... ldx #001b
7782 BCB6 1D 00 10 ... bclr 00,x, #10
7783 BCB9 7E BD AF ~.. jmp bdaf ;goto29 (bail)
7785 BCBC F6 00 1B ... ldab 001b
7786 BCBF C4 10 .. andb #10
7787 BCC1 26 03 &. bne 03
7788 BCC3 7E BD 91 ~.. jmp bd91 ;goto30
7789 BCC6 F6 00 21 ..! ldab 0021
7790 BCC9 C4 20 . andb #20
7791 BCCB 27 03 '. beq 03
7792 BCCD 7E BD 91 ~.. jmp bd91 ;goto30
7793 BCD0 F6 00 29 ..) ldab 0029
7794 BCD3 C1 0B .. cmpb #0b
7795 BCD5 26 03 &. bne 03
7796 BCD7 7E BD 5C ~.\ jmp bd5c ;goto31
7797 BCDA 7F 00 49 ..I clr 0049
7798 BCDD F6 00 3A ..: ldab 003a
7799 BCE0 26 32 &2 bne 32
7800 BCE2 F6 00 29 ..) ldab 0029
7801 BCE5 C1 0A .. cmpb #0a
7802 BCE7 26 05 &. bne 05
7803 BCE9 7F 00 1E ... clr 001e
7805 BCEE F6 00 29 ..) ldab 0029
7806 BCF1 F7 00 1E ... stab 001e
7807 BCF4 C6 32 .2 ldab #32
7808 BCF6 F7 00 3A ..: stab 003a
7809 BCF9 BD BE 4B ..K jsr be4b ;displayblank
7810 BCFC F6 00 1E ... ldab 001e
7811 BCFF CB 30 .0 addb #30
7812 BD01 F7 0B 95 ... stab 0b95
7813 BD04 BD E5 AA ... jsr e5aa ;jump12
7814 BD07 7F 00 2C .., clr 002c
7815 BD0A BD BE 01 ... jsr be01 ;jump70
7816 BD0D C6 32 .2 ldab #32
7817 BD0F F7 00 2C .., stab 002c
7819 BD14 F6 00 29 ..) ldab 0029
7820 BD17 C1 05 .. cmpb #05
7821 BD19 27 07 '. beq 07
7822 BD1B F6 00 29 ..) ldab 0029
7823 BD1E C1 0A .. cmpb #0a
7824 BD20 26 05 &. bne 05
7825 BD22 7F 00 2C .., clr 002c
7827 BD27 F6 00 1E ... ldab 001e
7831 BD2D F7 00 06 ... stab 0006
7832 BD30 F6 00 1E ... ldab 001e
7834 BD34 FB 00 06 ... addb 0006
7835 BD37 F7 00 06 ... stab 0006
7836 BD3A F6 00 29 ..) ldab 0029
7837 BD3D FB 00 06 ... addb 0006
7838 BD40 F7 00 06 ... stab 0006
7839 BD43 F6 00 29 ..) ldab 0029
7840 BD46 CB 30 .0 addb #30
7841 BD48 F7 0B 94 ... stab 0b94
7842 BD4B BD BE 01 ... jsr be01 ;jump70
7843 BD4E CE 00 1B ... ldx #001b
7844 BD51 1D 00 40 ... bclr 00,x, #40
7845 BD54 7F 00 3A ..: clr 003a
7846 BD57 BD E5 AA ... jsr e5aa ;jump12
7849 BD5C C6 19 .. ldab #19
7850 BD5E F7 00 37 ..7 stab 0037
7851 BD61 F6 00 3A ..: ldab 003a
7852 BD64 27 08 '. beq 08
7853 BD66 7F 00 3A ..: clr 003a
7854 BD69 7F 00 2C .., clr 002c
7856 BD6E 7C 00 49 |.I inc 0049
7857 BD71 F6 00 49 ..I ldab 0049
7858 BD74 C1 02 .. cmpb #02
7859 BD76 25 0E %. bcs 0e
7860 BD78 7F 00 49 ..I clr 0049
7861 BD7B CE 00 1B ... ldx #001b
7862 BD7E 1C 00 01 ... bset 00,x, #01
7863 BD81 C6 3C .< ldab #3c
7864 BD83 F7 00 4F ..O stab 004f
7865 BD86 BD E5 AA ... jsr e5aa ;jump12
7866 BD89 CE 00 1B ... ldx #001b
7867 BD8C 1D 00 10 ... bclr 00,x, #10
7870 BD91 F6 00 1B ... ldab 001b
7871 BD94 C4 10 .. andb #10
7872 BD96 26 17 &. bne 17
7873 BD98 F6 00 29 ..) ldab 0029
7874 BD9B C1 0B .. cmpb #0b
7875 BD9D 26 10 &. bne 10
7876 BD9F F6 00 37 ..7 ldab 0037
7877 BDA2 26 0B &. bne 0b
7878 BDA4 BD DD D5 ... jsr ddd5 ;jump120
7879 BDA7 7F 00 49 ..I clr 0049
7880 BDAA C6 14 .. ldab #14
7881 BDAC F7 00 2C .., stab 002c
7883 BDAF C6 01 .. ldab #01
7884 BDB1 F7 00 00 ... stab 0000
7889 ; start/finish sending a byte to the display
7890 ; stack parameter - 0 to disable clock (finish), 1 to enable clock (start)
7891 ; lower 8-bits of D - byte to write to display.
7892 ; bytes with bit 7 unset are characters (0-127)
7893 ; bytes with bit 7 set are control commands.
7894 ; this probably also reads the keypad simultaneously
7901 BDBB ED 00 .. std 00,x
7902 BDBD E6 07 .. ldab 07,x
7903 BDBF 27 0E '. beq 0e ; to bdcf if 0
7904 BDC1 CE 00 14 ... ldx #0014
7905 BDC4 1C 00 08 ... bset 00,x, #08
7906 BDC7 F6 00 14 ... ldab 0014
7907 BDCA F7 38 00 .8. stab 3800 ; enable display clock line
7908 BDCD 20 0C . bra 0c ; to bddb
7909 BDCF CE 00 14 ... ldx #0014
7910 BDD2 1D 00 08 ... bclr 00,x, #08
7911 BDD5 F6 00 14 ... ldab 0014
7912 BDD8 F7 38 00 .8. stab 3800 ; disable display clock line
7914 BDDC E6 03 .. ldab 03,x
7915 BDDE F7 10 2A ..* stab 102a ; write to spdr
7916 BDE1 F6 10 29 ..) ldab 1029 ; read spsr
7917 BDE4 2D 0F -. blt 0f ; exit sub if SPI complete
7922 BDEA EC 00 .. ldd 00,x
7923 BDEC 83 FF FF ... subd #ffff ; put a really long timeout on the action
7924 BDEF 26 02 &. bne 02
7926 BDF3 20 EC . bra ec ; loop a while back to bde1
7927 BDF5 F6 10 2A ..* ldab 102a ; reading SPSR (just done) & SPDR clears SPIF
7929 BDF9 E7 03 .. stab 03,x
7930 BDFB E6 03 .. ldab 03,x ; return contents of spdr - keypad data!
7937 ; Write a string in the display buffer at 0x0b90 to the display
7938 BE01 F6 00 2C .., ldab 002c
7939 BE04 26 09 &. bne 09 ; to be0f - ret if mem 0x2c != 0
7940 BE06 8D 61 .a bsr dest 61 ; to displayreset - reset display
7941 BE08 8D 06 .. bsr dest 06 ; to jump88 - commit to display
7942 BE0A C6 03 .. ldab #03
7943 BE0C F7 00 2C .., stab 002c
7947 ; writes the display buffer (at 0b90-0b99) to the display
7948 ; enable the SPI system
7949 BE10 CE 10 28 ..( ldx #1028
7950 BE13 1C 00 40 ..@ bset 00,x, #40
7952 BE16 7F 00 1C ... clr 001c
7953 BE19 F6 00 1C ... ldab 001c
7954 BE1C C1 0A .. cmpb #0a
7955 BE1E 24 19 $. bcc 19 ; to be39
7956 BE20 CE 00 01 ... ldx #0001
7958 BE24 F6 00 1C ... ldab 001c
7960 BE28 C3 0B 90 ... addd #0b90
7962 BE2C E6 00 .. ldab 00,x
7963 BE2E C4 7F .. andb #7f ; make sure we don't send a control command
7965 BE31 8D 82 .. bsr dest 82 ; to jump78
7967 BE34 7C 00 1C |.. inc 001c
7968 BE37 20 E0 . bra e0 ; to be19
7969 BE39 CE 00 01 ... ldx #0001
7971 BE3D CC 00 FF ... ldd #00ff
7972 BE40 BD BD B5 ... jsr bdb5 ;jump78
7974 ; disable the SPI system
7975 BE44 CE 10 28 ..( ldx #1028
7976 BE47 1D 00 40 ..@ bclr 00,x, #40
7980 ; stores 0x20 into memory locations 0b90-0b99
7981 ; "blanks out" (with spaces) the display buffer
7982 BE4B 7F 00 1C ... clr 001c
7983 BE4E F6 00 1C ... ldab 001c
7984 BE51 C1 0A .. cmpb #0a
7985 BE53 24 13 $. bcc 13 ; to be68 - rts
7986 BE55 C6 20 . ldab #20
7988 BE58 F6 00 1C ... ldab 001c
7990 BE5C C3 0B 90 ... addd #0b90
7993 BE61 E7 00 .. stab 00,x
7994 BE63 7C 00 1C |.. inc 001c
7995 BE66 20 E6 . bra e6 ; to be4e
8000 ; Clear bit 7 of PortA - display reset
8001 BE69 CE 10 00 ... ldx #1000
8002 BE6C 1D 00 80 .. bclr x,#80
8003 BE6F BD E5 96 ... jsr e596 ;jump115 - 100ms delay
8004 ; Clear bit 7 of PortA - reset line back to high (not active)
8005 BE72 CE 10 00 ... ldx #1000
8006 BE75 1C 00 80 .. bset 00,x, #80
8008 ; set clock polarity
8009 BE78 CE 10 28 ... ldx #1028
8010 BE7B 1C 00 40 ... bset 00,x, #40
8012 BE7E BD E5 96 ... jsr e596 ;jump115 - 100ms delay
8014 ; tell the display controller there are 10 digits
8015 BE81 CE 00 01 ... ldx #0001
8017 BE85 CC 00 CA ... ldd #00ca ;11001010
8018 BE88 BD BD B5 ... jsr bdb5 ;jump78
8021 ; set brightness to 100%
8022 BE8C CE 00 01 ... ldx #0001
8024 BE90 CC 00 E0 ... ldd #00e0 ;11100000
8025 BE93 BD BD B5 ... jsr bdb5 ;jump78
8028 ; revert clock polarity
8029 BE97 CE 10 28 ..( ldx #1028
8030 BE9A 1D 00 40 ... bclr 00,x, #40
8036 ; writes a slot and price to the screen?
8039 BEA0 8D A9 .. bsr a9 ; to be4b - displayblank
8041 BEA3 E6 05 .. ldab 05,x
8042 BEA5 26 1B &. bne 1b
8043 BEA7 F6 00 06 ... ldab 0006
8045 BEAB CE 00 0A ... ldx #000a
8048 BEB0 CB 30 .0 addb #30
8049 BEB2 F7 0B 99 ... stab 0b99 ; write slotnumber/10
8050 BEB5 F6 00 06 ... ldab 0006
8052 BEB8 CE 00 0A ... ldx #000a
8054 BEBD CB 30 .0 addb #30
8055 BEBF F7 0B 98 ... stab 0b98 ; write slotnumber%10
8057 BEC3 EC 00 .. ldd 00,x
8058 BEC5 C4 FF .. andb #ff
8059 BEC7 84 3F .? anda #3f
8060 BEC9 ED 00 .. std 00,x
8061 BECB EC 00 .. ldd 00,x
8062 BECD CE 03 E8 ... ldx #03e8 ; / 1000
8065 BED2 CB 30 .0 addb #30
8068 BED6 E6 06 .. ldab 06,x
8070 BED9 C3 0B 95 ... addd #0b95
8073 BEDE E7 00 .. stab 00,x ; write MSB dollars
8075 BEE1 EC 00 .. ldd 00,x
8076 BEE3 CE 03 E8 ... ldx #03e8 ; %1000
8078 BEE7 CE 00 64 ..d ldx #0064 ; /100
8081 BEEC CB 30 .0 addb #30
8084 BEF0 E6 06 .. ldab 06,x
8086 BEF3 C3 0B 94 ... addd #0b94 ; write LSB dollars
8089 BEF8 E7 00 .. stab 00,x
8091 BEFB EC 00 .. ldd 00,x
8092 BEFD CE 00 64 ..d ldx #0064 ; %100
8094 BF01 CE 00 0A ... ldx #000a ; /10
8097 BF06 CB 30 .0 addb #30
8100 BF0A E6 06 .. ldab 06,x
8102 BF0D C3 0B 93 ... addd #0b93 ; write MSB cents
8105 BF12 E7 00 .. stab 00,x
8107 BF15 EC 00 .. ldd 00,x
8108 BF17 CE 00 0A ... ldx #000a
8110 BF1B CB 30 .0 addb #30
8113 BF1F E6 06 .. ldab 06,x
8115 BF22 C3 0B 92 ... addd #0b92 ; write LSB cents
8118 BF27 E7 00 .. stab 00,x
8119 BF29 F6 00 13 ... ldab 0013
8120 BF2C C1 01 .. cmpb #01
8121 BF2E 22 03 ". bhi 03
8122 BF30 7E BF DE ~.. jmp bfde ;goto32
8124 BF34 E6 05 .. ldab 05,x
8126 BF37 C3 0B 92 ... addd #0b92
8128 BF3B E6 00 .. ldab 00,x
8131 BF3F E6 06 .. ldab 06,x
8133 BF42 C3 0B 91 ... addd #0b91
8136 BF47 E7 00 .. stab 00,x
8138 BF4A E6 05 .. ldab 05,x
8140 BF4D C3 0B 93 ... addd #0b93
8142 BF51 E6 00 .. ldab 00,x
8145 BF55 E6 06 .. ldab 06,x
8147 BF58 C3 0B 92 ... addd #0b92
8150 BF5D E7 00 .. stab 00,x
8151 BF5F F6 00 13 ... ldab 0013
8152 BF62 C1 02 .. cmpb #02
8153 BF64 26 10 &. bne 10
8154 BF66 C6 2E .. ldab #2e
8157 BF6A E6 06 .. ldab 06,x
8159 BF6D C3 0B 93 ... addd #0b93
8162 BF72 E7 00 .. stab 00,x
8163 BF74 20 68 h bra 68 ;goto32
8165 BF76 C1 04 .. cmpb #04
8166 BF78 26 26 && bne 26
8168 BF7B E6 05 .. ldab 05,x
8170 BF7E C3 0B 94 ... addd #0b94
8172 BF82 E6 00 .. ldab 00,x
8175 BF86 E6 06 .. ldab 06,x
8177 BF89 C3 0B 93 ... addd #0b93
8180 BF8E E7 00 .. stab 00,x
8181 BF90 C6 2E .. ldab #2e ; "."
8184 BF94 E6 06 .. ldab 06,x
8186 BF97 C3 0B 94 ... addd #0b94
8189 BF9C E7 00 .. stab 00,x
8191 BFA0 C1 08 .. cmpb #08
8192 BFA2 26 3A &: bne 3a
8194 BFA5 E6 05 .. ldab 05,x
8196 BFA8 C3 0B 94 ... addd #0b94
8198 BFAC E6 00 .. ldab 00,x
8201 BFB0 E6 06 .. ldab 06,x
8203 BFB3 C3 0B 93 ... addd #0b93
8206 BFB8 E7 00 .. stab 00,x
8208 BFBB E6 05 .. ldab 05,x
8210 BFBE C3 0B 95 ... addd #0b95
8212 BFC2 E6 00 .. ldab 00,x
8215 BFC6 E6 06 .. ldab 06,x
8217 BFC9 C3 0B 94 ... addd #0b94
8220 BFCE E7 00 .. stab 00,x
8221 BFD0 C6 2E .. ldab #2e ; "."
8224 BFD4 E6 06 .. ldab 06,x
8226 BFD7 C3 0B 95 ... addd #0b95
8229 BFDC E7 00 .. stab 00,x
8231 BFDE F6 0B C0 ... ldab 0bc0
8232 BFE1 C4 01 .. andb #01
8233 BFE3 26 0E &. bne 0e ; to bff3
8234 BFE5 F6 0B C0 ... ldab 0bc0
8235 BFE8 C4 04 .. andb #04
8236 BFEA 26 07 &. bne 07 ; to bff3
8237 BFEC F6 0B C0 ... ldab 0bc0
8238 BFEF C4 08 .. andb #08
8239 BFF1 27 15 '. beq 15 ; to c008
8240 BFF3 F6 00 17 ... ldab 0017
8241 BFF6 C4 08 .. andb #08
8242 BFF8 26 0E &. bne 0e ; to c008
8243 ; plonk a dollar sign somewhere
8244 BFFA C6 24 .$ ldab #24 ; "$"
8247 BFFE E6 06 .. ldab 06,x
8249 C001 C3 0B 96 ... addd #0b96
8252 C006 E7 00 .. stab 00,x
8253 C008 BD BE 69 ..i jsr be69 ;displayreset
8254 C00B F6 00 13 ... ldab 0013
8255 C00E C1 01 .. cmpb #01
8256 C010 23 17 #. bls 17
8257 C012 CE 10 28 ..( ldx #1028
8258 C015 1C 00 40 ... bset 00,x, #40 ; enable SPI send
8259 C018 CE 00 01 ... ldx #0001
8261 C01C CC 00 20 .. ldd #0020
8262 C01F BD BD B5 ... jsr bdb5 ;jump78 - send space to display
8264 C023 CE 10 28 ..( ldx #1028 ; disable SPI send
8265 C026 1D 00 40 ... bclr 00,x, #40
8266 C029 BD BE 10 ... jsr be10 ;jump88 - write buffer to display
8271 ; part of the display: function abstraction
8272 ; D points to a string, and the stack contains the length of the message
8273 ; Also seems to handle scrolling of long strings?
8277 ; need 002c to be zero to display stuff
8278 C031 F6 00 2C .., ldab 002c
8279 C034 27 03 '. beq 03
8280 C036 7E C0 B7 ~.. jmp c0b7 ;goto33 (bail out)
8282 C039 FC 00 03 ... ldd 0003
8284 C03D A3 02 .. subd 02,x
8285 C03F 25 0A %. bcs 0a ; to c04b
8287 C041 E6 07 .. ldab 07,x
8289 C044 E3 02 .. addd 02,x
8290 C046 B3 00 03 ... subd 0003
8291 C049 24 06 $. bcc 06 ; to c051
8294 C04C EC 02 .. ldd 02,x
8295 C04E FD 00 03 ... std 0003
8296 C051 FE 00 03 ... ldx 0003
8298 C055 FF 00 03 ... stx 0003
8302 C05B ED 00 .. std 00,x
8303 C05D C6 09 .. ldab #09
8304 C05F F7 00 18 ... stab 0018
8305 C062 F6 00 18 ... ldab 0018
8306 C065 C1 FF .. cmpb #ff
8307 C067 24 46 $F bcc 46 ; to c0af (jump 70 - write string)
8309 C06A E6 07 .. ldab 07,x
8311 C06D E3 02 .. addd 02,x
8312 C06F A3 00 .. subd 00,x
8313 C071 24 05 $. bcc 05
8315 C074 EC 02 .. ldd 02,x
8316 C076 ED 00 .. std 00,x
8318 C079 EE 00 .. ldx 00,x
8319 C07B E6 00 .. ldab 00,x
8320 C07D C1 40 .@ cmpb #40
8321 C07F 24 13 $. bcc 13
8323 C082 EE 00 .. ldx 00,x
8324 C084 E6 00 .. ldab 00,x
8326 C087 F6 00 18 ... ldab 0018
8328 C08B C3 0B 90 ... addd #0b90
8331 C090 E7 00 .. stab 00,x
8334 C095 EE 00 .. ldx 00,x
8335 C097 E6 00 .. ldab 00,x
8336 C099 CB C0 .. addb #c0
8338 C09C F6 00 18 ... ldab 0018
8340 C0A0 C3 0B 90 ... addd #0b90
8343 C0A5 E7 00 .. stab 00,x
8347 C0AA 7A 00 18 z.. dec 0018
8349 C0AF BD BE 01 ... jsr be01 ;jump70
8350 C0B2 C6 03 .. ldab #03
8351 C0B4 F7 00 2C .., stab 002c
8357 ;Display a string. D points to the string, which is NULL-terminated
8362 C0BC F6 00 1F ... ldab 001f
8363 C0BF C4 04 .. andb #04
8364 C0C1 26 03 &. bne 03
8365 C0C3 7F 00 2C .., clr 002c
8366 C0C6 F6 00 2C .., ldab 002c
8367 C0C9 26 13 &. bne 13 ; to c0de
8370 C0CD FD 00 03 ... std 0003
8371 C0D0 7F 00 2C .., clr 002c
8372 C0D3 CE 00 09 ... ldx #0009
8375 C0D8 EC 02 .. ldd 02,x
8376 C0DA BD C0 2E ... jsr c02e ;jump71
8382 C0E0 F6 00 15 ... ldab 0015
8383 C0E3 2C 02 ,. bge 02
8385 C0E7 CE 00 1D ... ldx #001d
8386 C0EA 1C 00 20 .. bset 00,x, #20
8387 C0ED BD D7 30 . jsr d730 ;jump202
8388 C0EE 83 00 00 .0. subd #0000
8389 C0F3 27 09 '. beq 09
8390 C0F5 CE 00 1D ... ldx #001d
8391 C0F8 1D 00 20 .. bclr 00,x, #20
8396 C0FE CE 00 14 ... ldx #0014
8397 C101 1C 00 01 ... bset 00,x, #01
8398 C104 F6 00 14 ... ldab 0014
8399 C107 F7 38 00 .8. stab 3800 ; note acceptor business
8400 C10A F6 00 15 ... ldab 0015
8401 C10D C4 1F .. andb #1f
8402 C10F 26 03 &. bne 03
8403 C111 7E C3 1B ~.. jmp c31b ;goto34
8404 C114 C6 14 .. ldab #14
8405 C116 F7 00 31 ..1 stab 0031
8406 C119 F6 00 15 ... ldab 0015
8407 C11C 2D 15 -. blt 15
8408 C11E F6 00 31 ..1 ldab 0031
8409 C121 C1 0A .. cmpb #0a
8410 C123 22 0C ". bhi 0c
8411 C125 BD C5 D3 ... jsr c5d3 ;jump6
8412 C128 CE 00 1D ... ldx #001d
8413 C12B 1D 00 20 .. bclr 00,x, #20
8419 C133 FC 00 3E ..> ldd 003e
8420 C136 F3 00 40 ..@ addd 0040
8421 C139 FD 00 40 ..@ std 0040
8424 C13E FD 00 3E ..> std 003e
8425 C141 F6 00 15 ... ldab 0015
8426 C144 C4 1F .. andb #1f
8428 C147 BD FE 32 ..2 jsr fe32 ;jump25
8429 C14A C1 64 00 01 .... ; array data for jump25
8430 C14E C1 BA 00 01 ....
8431 C152 C2 10 00 02 ....
8432 C156 C2 66 00 04 .f..
8433 C15A C2 BB 00 08 ....
8434 C15E C3 0E FF F0 ....
8435 C162 00 00 .. ; end of array data
8436 C164 FC 0C DD ... ldd 0cdd
8437 C167 83 FF FF ... subd #ffff
8438 C16A 26 05 &. bne 05
8441 C16E FD 0C DD ... std 0cdd
8442 C171 FE 0C DD ... ldx 0cdd
8444 C175 FF 0C DD ... stx 0cdd
8445 C178 CE 00 64 ..d ldx #0064
8447 C17C CC 00 00 ... ldd #0000
8450 C181 CC 0C F3 ... ldd #0cf3
8451 C184 BD FB DF ... jsr fbdf ;jump46
8454 C189 FE 0C F5 ... ldx 0cf5
8456 C18D FC 0C F3 ... ldd 0cf3
8459 C192 CE FF 9C ... ldx #ff9c
8461 C196 CC 00 63 ..c ldd #0063
8463 C19A A3 02 .. subd 02,x
8466 C19E 26 02 &. bne 02
8467 C1A0 A3 04 .. subd 04,x
8470 C1A4 24 11 $. bcc 11
8471 C1A6 CE 00 64 ..d ldx #0064
8473 C1AA CC FF 9C ... ldd #ff9c
8476 C1AF CC 0C F3 ... ldd #0cf3
8477 C1B2 BD FB DF ... jsr fbdf ;jump46
8480 C1B7 7E C3 0E ~.. jmp c30e ;goto35
8481 C1BA FC 0C DF ... ldd 0cdf
8482 C1BD 83 FF FF ... subd #ffff
8483 C1C0 26 05 &. bne 05
8486 C1C4 FD 0C DF ... std 0cdf
8487 C1C7 FE 0C DF ... ldx 0cdf
8489 C1CB FF 0C DF ... stx 0cdf
8490 C1CE CE 00 C8 ... ldx #00c8
8492 C1D2 CC 00 00 ... ldd #0000
8495 C1D7 CC 0C F7 ... ldd #0cf7
8496 C1DA BD FB DF ... jsr fbdf ;jump46
8499 C1DF FE 0C F9 ... ldx 0cf9
8501 C1E3 FC 0C F7 ... ldd 0cf7
8504 C1E8 CE FF 38 ..8 ldx #ff38 ; -200
8506 C1EC CC 00 C7 ... ldd #00c7
8508 C1F0 A3 02 .. subd 02,x
8511 C1F4 26 02 &. bne 02
8512 C1F6 A3 04 .. subd 04,x
8515 C1FA 24 11 $. bcc 11
8516 C1FC CE 00 C8 ... ldx #00c8
8518 C200 CC FF 38 ..8 ldd #ff38 ; -200
8521 C205 CC 0C F7 ... ldd #0cf7
8522 C208 BD FB DF ... jsr fbdf ;jump46
8525 C20D 7E C3 0E ~.. jmp c30e ;goto35
8526 C210 FC 0C E1 ... ldd 0ce1
8527 C213 83 FF FF ... subd #ffff
8528 C216 26 05 &. bne 05
8531 C21A FD 0C E1 ... std 0ce1
8532 C21D FE 0C E1 ... ldx 0ce1
8534 C221 FF 0C E1 ... stx 0ce1
8535 C224 CE 01 F4 ... ldx #01f4
8537 C228 CC 00 00 ... ldd #0000
8540 C22D CC 0C FB ... ldd #0cfb
8541 C230 BD FB DF ... jsr fbdf ;jump46
8544 C235 FE 0C FD ... ldx 0cfd
8546 C239 FC 0C FB ... ldd 0cfb
8549 C23E CE FE 0C ... ldx #fe0c
8551 C242 CC 01 F3 ... ldd #01f3
8553 C246 A3 02 .. subd 02,x
8556 C24A 26 02 &. bne 02
8557 C24C A3 04 .. subd 04,x
8560 C250 24 11 $. bcc 11
8561 C252 CE 01 F4 ... ldx #01f4
8563 C256 CC FE 0C ... ldd #fe0c
8566 C25B CC 0C FB ... ldd #0cfb
8567 C25E BD FB DF ... jsr fbdf ;jump46
8570 C263 7E C3 0E ~.. jmp c30e ;goto35
8571 C266 FC 0C E3 ... ldd 0ce3
8572 C269 83 FF FF ... subd #ffff
8573 C26C 26 05 &. bne 05
8576 C270 FD 0C E3 ... std 0ce3
8577 C273 FE 0C E3 ... ldx 0ce3
8579 C277 FF 0C E3 ... stx 0ce3
8580 C27A CE 03 E8 ... ldx #03e8
8582 C27E CC 00 00 ... ldd #0000
8585 C283 CC 0C FF ... ldd #0cff
8586 C286 BD FB DF ... jsr fbdf ;jump46
8589 C28B FE 0D 01 ... ldx 0d01
8591 C28F FC 0C FF ... ldd 0cff
8594 C294 CE FC 18 ... ldx #fc18
8596 C298 CC 03 E7 ... ldd #03e7
8598 C29C A3 02 .. subd 02,x
8601 C2A0 26 02 &. bne 02
8602 C2A2 A3 04 .. subd 04,x
8605 C2A6 24 11 $. bcc 11
8606 C2A8 CE 03 E8 ... ldx #03e8
8608 C2AC CC FC 18 ... ldd #fc18
8611 C2B1 CC 0C FF ... ldd #0cff
8612 C2B4 BD FB DF ... jsr fbdf ;jump46
8616 C2BB FC 0C E5 ... ldd 0ce5
8617 C2BE 83 C3 4F ..O subd #c34f
8618 C2C1 26 05 &. bne 05
8621 C2C5 FD 0C E5 ... std 0ce5
8622 C2C8 FE 0C E5 ... ldx 0ce5
8624 C2CC FF 0C E5 ... stx 0ce5
8625 C2CF CE 07 D0 ... ldx #07d0
8627 C2D3 CC 00 00 ... ldd #0000
8630 C2D8 CC 0D 03 ... ldd #0d03
8631 C2DB BD FB DF ... jsr fbdf ;jump46
8634 C2E0 FE 0D 05 ... ldx 0d05
8636 C2E4 FC 0D 03 ... ldd 0d03
8639 C2E9 CE D9 30 ..0 ldx #d930
8641 C2ED CC 05 F5 ... ldd #05f5
8643 C2F1 A3 02 .. subd 02,x
8646 C2F5 26 02 &. bne 02
8647 C2F7 A3 04 .. subd 04,x
8650 C2FB 24 11 $. bcc 11
8651 C2FD CE 26 D0 .&. ldx #26d0
8653 C301 CC FA 0A ... ldd #fa0a
8656 C306 CC 0D 03 ... ldd #0d03
8657 C309 BD FB DF ... jsr fbdf ;jump46
8661 C30E F6 00 15 ... ldab 0015
8662 C311 2C 02 ,. bge 02
8664 C315 CE 00 15 ... ldx #0015
8665 C318 1D 00 .. bclr add,x 00,x
8666 C31A 1F CE 00 1D .... brclr ce,x 00 1d
8669 C31E 1D 00 .. bclr add,x 00,x
8676 C325 F6 10 00 ... ldab 1000
8677 C328 C4 01 .. andb #01
8678 C32A 26 13 &. bne 13
8679 C32C 7C 00 7D |.} inc 007d
8680 C32F F6 00 7D ..} ldab 007d
8681 C332 C1 05 .. cmpb #05
8682 C334 23 03 #. bls 03
8683 C336 7F 00 7D ..} clr 007d
8684 C339 7F 00 7E ..~ clr 007e
8685 C33C 7E C4 2F ~./ jmp c42f ;goto36
8686 C33F 7C 00 7E |.~ inc 007e
8687 C342 F6 00 7E ..~ ldab 007e
8688 C345 C1 07 .. cmpb #07
8689 C347 23 17 #. bls 17
8690 C349 7F 00 7D ..} clr 007d
8691 C34C 7F 00 7E ..~ clr 007e
8692 C34F 7F 00 7C ..| clr 007c
8693 C352 F6 00 15 ... ldab 0015
8694 C355 2C 03 ,. bge 03
8695 C357 7F 00 2C .., clr 002c
8696 C35A CE 00 15 ... ldx #0015
8697 C35D 1D 00 80 .. bclr 00,x, #80
8698 C35F F6 00 7E ... ldab 007e
8699 C363 26 03 .. bne 03 ; to c368
8700 C365 7E C4 2F ~./ jmp c42f ;goto36
8701 C368 F6 00 7D ..} ldab 007d
8702 C36B C1 01 .. cmpb #01
8703 C36D 22 03 ". bhi 03
8704 C36F 7E C4 2F ~./ jmp c42f ;goto36
8705 C372 CE 00 15 ... ldx #0015
8706 C375 1C 00 80 .. bset 00,x, #80
8707 C378 CE 0B C1 ... ldx #0bc1
8708 C37B 1D 00 08 .. bclr 00,x #08
8709 C37E F6 00 1D ... ldab 001d
8710 C381 C4 20 . andb #20
8711 C383 27 03 '. beq 03
8712 C385 7E C4 29 ~.) jmp c429 ;goto38
8713 C388 C6 02 .. ldab #02
8714 C38A F7 00 2C .., stab 002c
8715 C38D 7F 00 3A ..: clr 003a
8716 C390 CE 00 1B ... ldx #001b
8717 C393 1D 00 40 .. bclr 00,x, #40
8718 C396 7F 00 25 ..% clr 0025
8719 C399 CE 00 21 ..! ldx #0021
8720 C39C 1D 00 08 ... bclr 00,x, #08
8721 C39F CE 00 14 ... ldx #0014
8722 C3A2 1D 00 01 .. bclr 00,x, #01
8723 C3A5 F6 00 14 ... ldab 0014
8724 C3A8 F7 38 00 .8. stab 3800 ; note acceptor business
8725 C3AB 7C 00 7C |.| inc 007c
8726 C3AE CE 00 15 ... ldx #0015
8727 C3B1 1D 00 1F .. bclr 00,x, #1f
8728 C3B4 F6 00 7C ..| ldab 007c
8729 C3B7 C1 01 .. cmpb #01
8730 C3B9 26 0E &. bne 0e
8731 C3BB CE 00 15 ... ldx #0015
8732 C3BE 1C 00 01 .. bset 00,x, #01
8733 C3C1 CC 00 64 ..d ldd #0064
8734 C3C4 FD 00 3E ..> std 003e
8736 C3C9 F6 00 7C ..| ldab 007c
8737 C3CC C1 02 .. cmpb #02
8738 C3CE 26 0E &. bne 0e
8739 C3D0 CE 00 15 ... ldx #0015
8740 C3D3 1C 00 02 .. bset 00,x, #02
8741 C3D6 CC 00 C8 ... ldd #00c8
8742 C3D9 FD 00 3E ..> std 003e
8744 C3DE F6 00 7C ..| ldab 007c
8745 C3E1 C1 02 .. cmpb #02
8746 C3E3 23 15 #. bls 15
8747 C3E5 F6 00 7C ..| ldab 007c
8748 C3E8 C1 06 .. cmpb #06
8749 C3EA 24 0E $. bcc 0e
8750 C3EC CE 00 15 ... ldx #0015
8751 C3EF 1C 00 .. bset 00,x, #04
8752 C3F2 CC 01 F4 ... ldd #01f4
8753 C3F5 FD 00 3E ..> std 003e
8755 C3FA F6 00 7C ..| ldab 007c
8756 C3FD C1 05 .. cmpb #05
8757 C3FF 23 15 #. bls 15
8758 C401 F6 00 7C ..| ldab 007c
8759 C404 C1 0B .. cmpb #0b
8760 C406 24 0E $. bcc 0e
8761 C408 CE 00 15 ... ldx #0015
8762 C40B 1C 00 08 .. bset 00,x, #08
8763 C40E CC 03 E8 ... ldd #03e8
8764 C411 FD 00 3E ..> std 003e
8765 C414 20 13 . bra 13 ; to c429
8766 C416 F6 00 7C ..| ldab 007c
8767 C419 C1 0B .. cmpb #0b
8768 C41B 23 0C #. bls 0c
8769 C41D CE 00 15 ... ldx #0015
8770 C420 1C 00 10 .. bset 00,x, #10
8771 C423 CC 07 D0 ... ldd #07d0
8772 C426 FD 00 3E ..> std 003e
8774 C429 7F 00 7D ..} clr 007d
8775 C42C 7F 00 7E ..~ clr 007e
8780 ; tweaks the changer output lines (at 3000) that correspond with the bitmask of
8781 ; 0001. It pulls the lines with 1 set in the bitmask low (active) for 100ms
8782 C430 F6 00 01 ... ldab 0001
8784 C434 F4 00 1A ... andb 001a ; 0x3000 buffer - changer outputs
8785 C437 F7 00 1A ... stab 001a
8786 C43A F6 00 1A ... ldab 001a
8787 C43D F7 30 00 .0. stab 3000 ; coin mask
8788 C440 CC 00 64 ..d ldd #0064
8789 C443 BD E5 71 ..q jsr e571 ;msdelay
8790 C446 F6 00 01 ... ldab 0001
8791 C449 FA 00 1A ... orb 001a
8792 C44C F7 00 1A ... stab 001a
8793 C44F F6 00 1A ... ldab 001a
8794 C452 F7 30 00 .0. stab 3000 ; changer outputs again
8798 C456 FC 00 40 ..@ ldd 0040
8799 C459 26 03 &. bne 03
8800 C45B 7E C5 C6 ~.. jmp c5c6 ;goto39
8801 C45E CE 00 1A ... ldx #001a
8802 C461 1C 00 01 .. bset 00,x, #01
8803 C464 F6 00 1A ... ldab 001a
8804 C467 F7 30 00 .0. stab 3000 ; changer accept off
8805 C46A CC 03 E8 ... ldd #03e8
8806 C46D BD E5 71 ..q jsr e571 ;msdelay
8808 C470 FC 00 40 ..@ ldd 0040
8809 C473 83 00 00 ... subd #0000
8810 C476 22 03 ". bhi 03
8811 C478 7E C5 B0 ~.. jmp c5b0 ;goto40
8812 C47B F6 00 1B ... ldab 001b
8813 C47E C4 20 . andb #20
8814 C480 27 1B '. beq 1b
8815 C482 FC 00 40 ..@ ldd 0040
8816 C485 83 03 E8 ... subd #03e8
8817 C488 25 13 %. bcs 13
8818 C48A C6 28 .( ldab #28
8819 C48C F7 00 01 ... stab 0001
8820 C48F CC FC 18 ... ldd #fc18
8821 C492 F3 00 40 ..@ addd 0040
8822 C495 FD 00 40 ..@ std 0040
8823 C498 8D 96 .. bsr dest 96
8824 C49A 7E C5 7C ~.| jmp c57c ;goto41
8825 C49D F6 00 1B ... ldab 001b
8826 C4A0 C4 20 . andb #20
8827 C4A2 27 1C '. beq 1c
8828 C4A4 FC 00 40 ..@ ldd 0040
8829 C4A7 83 00 64 ..d subd #0064
8830 C4AA 25 14 %. bcs 14
8831 C4AC C6 30 .0 ldab #30
8832 C4AE F7 00 01 ... stab 0001
8833 C4B1 CC FF 9C ... ldd #ff9c
8834 C4B4 F3 00 40 ..@ addd 0040
8835 C4B7 FD 00 40 ..@ std 0040
8836 C4BA BD C4 30 ..0 jsr c430 ;jump26
8837 C4BD 7E C5 7C ~.| jmp c57c ;goto41
8838 C4C0 FC 0B DD ... ldd 0bdd
8839 C4C3 27 3C '< beq 3c
8840 C4C5 FC 00 40 ..@ ldd 0040
8841 C4C8 B3 0B DD ... subd 0bdd
8842 C4CB 25 34 %4 bcs 34
8843 C4CD F6 0C DB ... ldab 0cdb
8844 C4D0 26 07 &. bne 07
8845 C4D2 F6 00 1B ... ldab 001b
8846 C4D5 C4 20 . andb #20
8847 C4D7 27 28 '( beq 28
8848 C4D9 FC 0B DD ... ldd 0bdd
8851 C4DE F9 00 41 ..A adcb 0041
8852 C4E1 B9 00 40 ..@ adca 0040
8853 C4E4 FD 00 40 ..@ std 0040
8854 C4E7 F6 0B DA ... ldab 0bda
8855 C4EA F7 00 01 ... stab 0001
8856 C4ED BD C4 30 ..0 jsr c430 ;jump26
8857 C4F0 F6 00 1B ... ldab 001b
8858 C4F3 C4 20 . andb #20
8859 C4F5 26 08 &. bne 08
8860 C4F7 F6 0C DB ... ldab 0cdb
8861 C4FA 27 03 '. beq 03
8862 C4FC 7A 0C DB z.. dec 0cdb
8864 C501 FC 0B DF ... ldd 0bdf
8865 C504 27 3C '< beq 3c
8866 C506 FC 00 40 ..@ ldd 0040
8867 C509 B3 0B DF ... subd 0bdf
8868 C50C 25 34 %4 bcs 34
8869 C50E F6 0C DA ... ldab 0cda
8870 C511 26 07 &. bne 07
8871 C513 F6 00 1B ... ldab 001b
8872 C516 C4 20 . andb #20
8873 C518 27 28 '( beq 28
8874 C51A FC 0B DF ... ldd 0bdf
8877 C51F F9 00 41 ..A adcb 0041
8878 C522 B9 00 40 ..@ adca 0040
8879 C525 FD 00 40 ..@ std 0040
8880 C528 F6 0B DB ... ldab 0bdb
8881 C52B F7 00 01 ... stab 0001
8882 C52E BD C4 30 ..0 jsr c430 ;jump26
8883 C531 F6 00 1B ... ldab 001b
8884 C534 C4 20 . andb #20
8885 C536 26 08 &. bne 08
8886 C538 F6 0C DA ... ldab 0cda
8887 C53B 27 03 '. beq 03
8888 C53D 7A 0C DA z.. dec 0cda
8890 C542 FC 0B E1 ... ldd 0be1
8891 C545 27 30 '0 beq 30
8892 C547 FC 00 40 ..@ ldd 0040
8893 C54A B3 0B E1 ... subd 0be1
8894 C54D 25 28 %( bcs 28
8895 C54F FC 0B E1 ... ldd 0be1
8898 C554 F9 00 41 ..A adcb 0041
8899 C557 B9 00 40 ..@ adca 0040
8900 C55A FD 00 40 ..@ std 0040
8901 C55D F6 0B DC ... ldab 0bdc
8902 C560 F7 00 01 ... stab 0001
8903 C563 BD C4 30 ..0 jsr c430 ;jump26
8904 C566 F6 00 1B ... ldab 001b
8905 C569 C4 20 . andb #20
8906 C56B 26 08 &. bne 08
8907 C56D F6 0C D9 ... ldab 0cd9
8908 C570 27 03 '. beq 03
8909 C572 7A 0C D9 z.. dec 0cd9
8913 C579 FD 00 40 ..@ std 0040
8915 C57C CC 01 2C .., ldd #012c
8916 C57F BD E5 71 ..q jsr e571 ;msdelay
8917 C582 F6 00 1B ... ldab 001b
8918 C585 C4 20 . andb #20
8919 C587 26 24 &$ bne 24
8920 C589 CE 00 1A ... ldx #001a
8921 C58C 1D 00 01 .. bclr 00,x, #01
8922 C58F F6 00 1A ... ldab 001a
8923 C592 F7 30 00 .0. stab 3000 ; changer accept' low
8924 C595 CC 00 0C ... ldd #000c
8925 C598 BD E5 71 ..q jsr e571 ;msdelay
8926 C59B CE 00 1A ... ldx #001a
8927 C59E 1C 00 01 .. bset 00,x, #01
8928 C5A1 F6 00 1A ... ldab 001a
8929 C5A4 F7 30 00 .0. stab 3000 ; changer accept' high
8930 C5A7 CC 00 23 ..# ldd #0023
8931 C5AA BD E5 71 ..q jsr e571 ;msdelay
8932 C5AD 7E C4 70 ~.p jmp c470 ;goto42
8934 C5B0 F6 0B C0 ... ldab 0bc0
8935 C5B3 C4 04 .. andb #04
8936 C5B5 27 0F '. beq 0f
8937 C5B7 F6 00 1B ... ldab 001b
8938 C5BA C4 20 . andb #20
8939 C5BC 27 08 '. beq 08
8940 C5BE C6 38 .8 ldab #38
8941 C5C0 F7 00 01 ... stab 0001
8942 C5C3 BD C4 30 ..0 jsr c430 ;jump26
8944 C5C6 CE 00 21 ..! ldx #0021
8945 C5C9 1D 00 10 ... bclr 00,x, #10
8946 C5CC CE 00 1B ... ldx #001b
8947 C5CF 1D 00 .. bclr add,x 00,x
8951 C5D3 F6 00 15 ... ldab 0015
8952 C5D6 C4 1F .. andb #1f
8953 C5D8 26 03 &. bne 03
8954 C5DA 7E C6 7C ~.| jmp c67c ;goto43
8955 C5DD CC 00 C8 ... ldd #00c8
8956 C5E0 BD E5 71 ..q jsr e571 ;msdelay
8957 C5E3 FC 00 3E ..> ldd 003e
8958 C5E6 27 58 'X beq 58
8959 C5E8 F6 00 15 ... ldab 0015
8960 C5EB C4 1F .. andb #1f
8962 C5EE BD FE 32 ..2 jsr fe32 ;jump25
8963 C5F1 C6 0B 00 01 .. ; array data for jump25
8969 C609 00 00 .. ;end of array data
8970 C60B CC FF 9C ... ldd #ff9c
8971 C60E F3 00 3E ..> addd 003e
8972 C611 FD 00 3E ..> std 003e
8974 C616 CC FF 38 ..8 ldd #ff38
8975 C619 F3 00 3E ..> addd 003e
8976 C61C FD 00 3E ..> std 003e
8978 C621 CC FE 0C ... ldd #fe0c
8979 C624 F3 00 3E ..> addd 003e
8980 C627 FD 00 3E ..> std 003e
8982 C62C CC FC 18 ... ldd #fc18
8983 C62F F3 00 3E ..> addd 003e
8984 C632 FD 00 3E ..> std 003e
8986 C637 CC F8 30 ..0 ldd #f830
8987 C63A F3 00 3E ..> addd 003e
8988 C63D FD 00 3E ..> std 003e
8989 C640 CE 00 14 ... ldx #0014
8990 C643 1D 00 02 ... bclr 00,x, #02
8991 C646 F6 00 14 ... ldab 0014
8992 C649 F7 38 00 .8. stab 3800 ; bill acceptor
8993 C64C CC 00 1E ... ldd #001e
8994 C64F BD E5 71 ..q jsr e571 ;msdelay
8995 C652 CE 00 15 ... ldx #0015
8996 C655 1D 00 .. bclr add,x 00,x
8997 C657 1F CE 00 14 .... brclr ce,x 00 14
8998 C65B 1C 00 02 ... bset 00,x, #02
8999 C65E F6 00 14 ... ldab 0014
9000 C661 F7 38 00 .8. stab 3800 ; bill acceptor
9001 C664 CC 00 19 ... ldd #0019
9002 C667 BD E5 71 ..q jsr e571 ;msdelay
9003 C66A CE 00 14 ... ldx #0014
9004 C66D 1C 00 01 .. bset 00,x, #01
9005 C670 F6 00 14 ... ldab 0014
9006 C673 F7 38 00 .8. stab 3800 ; bill acceptor
9007 C676 CC 00 19 ... ldd #0019
9008 C679 BD E5 71 ..q jsr e571 ;msdelay
9014 C67D F6 00 30 ..0 ldab 0030
9015 C680 26 55 &U bne 55
9016 C682 F6 0B C0 ... ldab 0bc0
9017 C685 C4 04 .. andb #04
9018 C687 26 4E &N bne 4e
9019 C689 C6 27 .' ldab #27
9020 C68B F7 10 2D ..- stab 102d ; disable SCI transmission
9021 C68E C6 07 .. ldab #07
9022 C690 F7 10 2B ..+ stab 102b ; 600 baud
9023 C693 CE 00 1A ... ldx #001a
9024 C696 1C 00 .. bset 00,x, #04
9025 C699 F6 00 1A ... ldab 001a
9026 C69C F7 30 00 .0. stab 3000 ; keypad strobe
9027 C69F CC 00 14 ... ldd #0014
9028 C6A2 BD E5 71 ..q jsr e571 ;msdelay
9029 C6A5 F6 0B C0 ... ldab 0bc0
9030 C6A8 C4 01 .. andb #01
9031 C6AA 27 06 '. beq 06
9032 C6AC CE 0B C1 ... ldx #0bc1
9033 C6AF 1C 00 01 ... bset 00,x, #01
9034 C6B2 F6 0B C0 ... ldab 0bc0
9035 C6B5 C4 04 .. andb #04
9036 C6B7 27 06 '. beq 06
9037 C6B9 CE 0B C1 ... ldx #0bc1
9038 C6BC 1C 00 02 ... bset 00,x, #02
9039 C6BF CE 00 1A ... ldx #001a
9040 C6C2 1D 00 04 ... bclr 00,x, #04 ; keypad strobe finish
9041 C6C5 F6 00 1A ... ldab 001a
9042 C6C8 F7 30 00 .0. stab 3000
9043 C6CB C6 96 .. ldab #96
9044 C6CD F7 00 30 ..0 stab 0030
9045 C6D0 C6 1E .. ldab #1e
9046 C6D2 F7 00 35 ..5 stab 0035
9048 C6D7 F6 18 00 ... ldab 1800
9049 C6DA 2D 2A -* blt 2a
9050 C6DC F6 00 07 ... ldab 0007
9051 C6DF 26 25 &% bne 25
9052 C6E1 CE 00 1A ... ldx #001a
9053 C6E4 1D 00 02 ... bclr 00,x, #02
9054 C6E7 F6 00 1A ... ldab 001a
9055 C6EA F7 30 00 .0. stab 3000 ; changer send' low
9056 C6ED C6 64 .d ldab #64
9057 C6EF F7 00 2D ..- stab 002d
9058 C6F2 CC 00 32 ..2 ldd #0032
9059 C6F5 BD E5 71 ..q jsr e571 ;msdelay
9060 C6F8 CE 00 1A ... ldx #001a
9061 C6FB 1C 00 02 ... bset 00,x, #02
9062 C6FE F6 00 1A ... ldab 001a
9063 C701 F7 30 00 .0. stab 3000 ; changer send' high
9065 C706 F6 00 2D ..- ldab 002d
9066 C709 26 29 &) bne 29
9067 C70B CE 00 1A ... ldx #001a
9068 C70E 1D 00 01 ... bclr 00,x, #01
9069 C711 F6 00 1A ... ldab 001a
9070 C714 F7 30 00 .0. stab 3000 ; changer accept' low
9071 C717 CC 00 0C ... ldd #000c
9072 C71A BD E5 71 ..q jsr e571 ;msdelay
9073 C71D CE 00 1A ... ldx #001a
9074 C720 1C 00 01 ... bset 00,x, #01
9075 C723 F6 00 1A ... ldab 001a
9076 C726 F7 30 00 .0. stab 3000 ; changer accept' high
9077 C729 CC 00 23 ..# ldd #0023
9078 C72C BD E5 71 ..q jsr e571 ;msdelay
9079 C72F C6 64 .d ldab #64
9080 C731 F7 00 2D ..- stab 002d
9081 C734 F6 00 21 ..! ldab 0021
9082 C737 C4 10 .. andb #10
9083 C739 27 45 'E beq 45
9084 C73B F6 00 11 ... ldab 0011
9085 C73E C4 04 .. andb #04
9086 C740 26 1A &. bne 1a
9087 C742 FC 00 40 ..@ ldd 0040
9088 C745 F3 00 3E ..> addd 003e
9089 C748 B3 00 50 ..P subd 0050
9090 C74B 25 0F %. bcs 0f
9091 C74D F6 0B C0 ... ldab 0bc0
9092 C750 C4 04 .. andb #04
9093 C752 26 08 &. bne 08
9094 C754 CE 00 21 ..! ldx #0021
9095 C757 1D 00 10 ... bclr 00,x, #10
9097 C75C F6 0B C0 ... ldab 0bc0
9098 C75F C4 08 .. andb #08
9099 C761 27 03 '. beq 03
9100 C763 BD C5 D3 ... jsr c5d3 ;jump6
9101 C766 FC 0B DD ... ldd 0bdd
9102 C769 26 12 &. bne 12
9103 C76B FC 0B DF ... ldd 0bdf
9104 C76E 26 0D &. bne 0d
9105 C770 FC 0B E1 ... ldd 0be1
9106 C773 26 08 &. bne 08
9107 C775 CE 00 21 ..! ldx #0021
9108 C778 1D 00 10 ... bclr 00,x, #10
9110 C77D BD C4 56 ..V jsr c456 ;jump47
9111 C780 F6 00 15 ... ldab 0015
9112 C783 2D 08 -. blt 08
9113 C785 CE 00 21 ..! ldx #0021
9114 C788 1C 00 08 ... bset 00,x, #08
9116 C78D CE 00 21 ..! ldx #0021
9117 C790 1D 00 08 ... bclr 00,x, #08
9120 ;proc(a,b) var local
9130 C796 34 4 des ;stack: 0=local, 1=A, 2=B
9132 C798 6F 00 o. clr 00,x
9135 C79B E6 02 .. ldab 02,x
9136 C79D 27 1A '. beq exit ;c7b9
9138 C7A0 1F 02 01 0D .... brclr 02,x 01 skip ;c7b1
9140 C7A5 E6 00 .. ldab 00,x
9141 C7A7 27 05 '. beq else ;c7ae
9143 C7AA 6A 00 j. dec 00,x
9144 C7AC 20 03 . bra skip ;c7b1
9147 C7AF 6C 00 l. inc 00,x
9150 C7B2 E6 02 .. ldab 02,x
9152 C7B5 E7 02 .. stab 02,x
9153 C7B7 20 E1 . bra loop ;c79a
9156 C7BA E6 00 .. ldab 00,x
9163 ; parity tester. returns 0 if good
9164 C7C0 F6 10 2F ../ ldab 102f ; sci data
9166 C7C4 8D CE .. bsr c794 ; parity test?
9167 C7C6 83 00 00 ... subd #0000
9168 C7C9 27 05 '. beq 05
9169 C7CB F6 10 2C .., ldab 102c ; test the 9th bit
9170 C7CE 2D 10 -. blt 10 ; to c7e0
9171 C7D0 F6 10 2F ../ ldab 102f ; sci data
9173 C7D4 8D BE .. bsr c794 ; parity test?
9174 C7D6 83 00 00 ... subd #0000
9175 C7D9 26 09 &. bne 09 ; to c7e4
9176 C7DB F6 10 2C .., ldab 102c ; test the 9th bit
9177 C7DE 2D 04 -. blt 04
9178 C7E0 CC 00 01 ... ldd #0001 ; return 1
9186 ;this might send a byte to the serial port
9190 C7E9 C6 32 .2 ldab #32 ; 50
9191 C7EB F7 00 31 ..1 stab 0031
9193 C7EF E6 01 .. ldab 01,x
9194 C7F1 F7 00 43 ..C stab 0043
9195 ; poll the TD register empty flag until it's set
9196 C7F4 F6 10 2E ... ldab 102e
9197 C7F7 2D 02 -. blt 02 ; transmit data register empty
9198 C7F9 20 F9 . bra f9 ; to c7f4
9201 C7FC E6 01 .. ldab 01,x
9203 C7FF 8D 93 .. bsr 93 ; to c794 - generate parity bit?
9204 C801 83 00 00 ... subd #0000
9205 C804 27 08 '. beq 08
9206 C806 CE 10 2C .., ldx #102c
9207 C809 1C 00 40 ... bset 00,x, #40 ; set the 9th bit
9209 C80E CE 10 2C .., ldx #102c ;SCI control 1
9210 C811 1D 00 40 ... bclr 00,x, #40 ; clear the 9th bit
9212 C815 E6 01 .. ldab 01,x
9213 C817 F7 10 2F ../ stab 102f ; send to serial port
9222 C81D F6 0B C0 ... ldab 0bc0
9223 C820 C4 01 .. andb #01
9224 C822 26 0A &. bne 0e ; to c82e
9225 C824 F6 0B C0 ... ldab 0bc0
9226 C827 C4 04 .. andb #04
9227 C829 26 03 &. bne 03 ; to c82e
9228 C82B 7E CB FF ~.. jmp cbff ;goto44
9229 C82E C6 96 .. ldab #96 ; 150
9230 C830 F7 00 30 ..0 stab 0030
9231 C833 F6 10 2E ... ldab 102e ; SCI status
9232 C836 C4 02 .. andb #02 ; test for Framing Error
9233 C838 26 0B &. bne 0b ; if so, to c845
9234 C83A F6 10 2F ../ ldab 102f ; read SCI data
9235 C83D F1 00 26 ..& cmpb 0026
9236 C840 26 03 &. bne 03
9237 C842 7E C9 1B ~.. jmp c91b ;goto45
9239 C845 F6 10 2F ../ ldab 102f ; read SCI data
9240 C848 C4 63 .c andb #63 ; 01100110
9241 C84A C1 23 .# cmpb #23 ; 00100110
9242 C84C 27 03 '. beq 03
9243 C84E 7E C8 E7 ~.. jmp c8e7 ;goto46 - pulse send' of changer
9245 C851 F6 00 1A ... ldab 001a ; register 3000 buffer
9246 C854 C4 01 .. andb #01 ; accept' line of changer
9247 C856 26 03 &. bne 03
9248 C858 7E C8 E7 ~.. jmp c8e7 ;goto46 - pulse send' of changer
9250 C85B F6 00 21 ..! ldab 0021
9251 C85E C4 F8 .. andb #f8 ; 11111000
9253 C861 F6 10 2F ../ ldab 102f ; read SCI data
9254 C864 C4 1C .. andb #1c ; 00011100
9255 C866 54 T lsrb ; ^^^
9256 C867 54 T lsrb ; get these bits out
9258 C869 EA 00 .. orb 00,x ; or it with the thing just above
9260 C86C F7 00 21 ..! stab 0021
9261 C86F F6 00 21 ..! ldab 0021
9262 C872 F4 0B D7 ... andb 0bd7 ; if (0021 & 0bd7)
9263 C875 27 08 '. beq 08 ; is false
9264 C877 CE 00 17 ... ldx #0017
9265 C87A 1C 00 20 .. bset 00,x, #20
9267 C87F F6 00 17 ... ldab 0017 ; if true
9268 C882 C4 20 . andb #20
9269 C884 27 11 '. beq 11 ; if unset to c897 (break out of if)
9270 C886 CE 00 17 ... ldx #0017
9271 C889 1D 00 .. bclr 00,x, #20
9272 C88C C6 04 . andb #04
9273 C88E F7 0C DB ... stab 0cdb
9274 C891 CE 0B C1 ... ldx #0bc1
9275 C894 1C 00 40 ... bset 00,x, #40 ;endif
9276 C897 F6 00 21 ..! ldab 0021
9277 C89A F4 0B D8 ... andb 0bd8
9278 C89D 27 08 '. beq 08 ; to c8a7
9279 C89F CE 00 17 ... ldx #0017
9280 C8A2 1C 00 40 ... bset 00,x, #40
9281 C8A5 20 18 . bra 18 ; to c8cf
9283 C8A7 F6 00 17 ... ldab 0017
9284 C8AA C4 40 .@ andb #40
9285 C8AC 27 11 '. beq 11 ; to c8bf if unset
9286 C8AE CE 00 17 ... ldx #0017
9287 C8B1 1D 00 40 ... bclr 00,x, #40
9288 C8B4 C6 04 .. ldab #04
9289 C8B6 F7 0C DA ... stab 0cda
9290 C8B9 CE 0B C1 ... ldx #0bc1
9291 C8BC 1C 00 40 ... bset 00,x, #40
9292 ; if 0021 & 0bd9, then set bit 7 of 0017, else unset it.
9293 C8BF F6 00 21 ..! ldab 0021
9294 C8C2 F4 0B D9 ... andb 0bd9
9295 C8C5 27 08 '. beq 08
9296 C8C7 CE 00 17 ... ldx #0017
9297 C8CA 1C 00 80 .. bset 00,x, #80
9298 C8CC 20 16 . bra 16 ; to c8e5
9300 C8CF F6 00 17 ... ldab 0017
9301 C8D2 2C 11 ,. bge 11 ; to c8e5
9302 C8D4 CE 00 17 ... ldx #0017
9303 C8D7 1D 00 .. bclr 00,x, #80
9305 C8D9 C6 04 .. ldab #04
9306 C8DC F7 0C D9 ... stab 0cd9
9307 ; set tube error bit
9308 C8DF CE 0B C1 ... ldx #0bc1
9309 C8E2 1C 00 40 ... bset 00,x, #40
9310 C8E5 20 31 1 bra 31 ; to c918
9312 goto46: ; pulse the send' line of the changer
9313 C8E7 F6 10 2F ../ ldab 102f ; read SCI data
9314 C8EA F7 00 26 ..& stab 0026
9315 C8ED CE 00 1A ... ldx #001a
9316 C8F0 1C 00 02 ... bset 00,x, #02
9317 C8F3 F6 00 1A ... ldab 001a
9318 C8F6 F7 30 00 .0. stab 3000 ; changer send' high
9319 C8F9 F6 00 3D ..= ldab 003d
9320 C8FC C4 04 .. andb #04
9321 C8FE 26 18 &. bne 18 ; to c918
9322 C900 CC 00 03 ... ldd #0003
9323 C903 BD E5 71 ..q jsr e571 ;msdelay
9324 C906 CE 00 1A ... ldx #001a
9325 C909 1D 00 02 ... bclr 00,x, #02
9326 C90C F6 00 1A ... ldab 001a
9327 C90F F7 30 00 .0. stab 3000 ; changer send' low
9328 C912 7C 00 3D |.= inc 003d
9329 C915 7E CE 46 ~.F jmp ce46 ;goto47 (exit)
9330 C918 7E CB DA ~.. jmp cbda ;goto48 (clean exit)
9333 C91B F6 00 08 ... ldab 0008
9334 C91E 26 03 &. bne 03
9335 C920 7E CA 5F ~._ jmp ca5f ;goto49
9336 C923 F6 00 17 ... ldab 0017
9337 C926 C4 04 .. andb #04
9338 C928 26 03 &. bne 03
9339 C92A 7E CA 5F ~._ jmp ca5f ;goto49
9340 C92D F6 00 17 ... ldab 0017
9341 C930 C4 08 .. andb #08
9342 C932 26 03 &. bne 03
9343 C934 7E CA 5F ~._ jmp ca5f ;goto49
9344 C937 F6 10 2F ../ ldab 102f ; read SCI data
9345 C93A C1 FF .. cmpb #ff
9346 C93C 27 07 '. beq 07 ; to c945
9347 C93E F6 00 08 ... ldab 0008
9348 C941 C1 0E .. cmpb #0e ; if > 14
9349 C943 25 12 %. bcs 12 ; to c957
9350 C945 CE 00 17 ... ldx #0017
9351 C948 1D 00 04 ... bclr 00,x, #04
9352 C94B 7F 00 08 ... clr 0008
9353 C94E BD CE 48 ..H jsr ce48 ;jump48
9354 C951 7F 00 2C .., clr 002c
9355 C954 7E CA 5C ~.\ jmp ca5c ;goto50 - clean exit
9357 C957 F6 00 08 ... ldab 0008
9359 C95B BD FE 16 ... jsr fe16 ;jump2
9361 C962 CA 59 .Y ; inc 0008 and clean exit
9362 C964 C9 7E .~ ; read byte into 0bc2
9363 C966 C9 87 .. ; read byte into 0bc3 & ^10 and stuff
9364 C968 C9 DF .. ; read byte into 0bc4 & stuff
9365 C96A C9 F3 .. ; read byte into 0bc5 & stuff
9366 C96C CA 07 .. ; read byte into 0bc6 & stuff
9367 C96E CA 1B .. ; read byte into 0bc7 only
9368 C970 CA 23 .# ; read byte into 0bc8 only
9369 C972 CA 2B .+ ; read byte into 0bc9 only
9370 C974 CA 33 .3 ; read byte into 0bca only
9371 C976 CA 3B .; ; read byte into 0bcb only
9372 C978 CA 43 .C ; read byte into 0bcc only
9373 C97A CA 4B .K ; read byte into 0bcd only
9374 C97C CA 53 .S ; read byte into 0bce only
9375 C97E F6 10 2F ../ ldab 102f ; read SCI data
9376 C981 F7 0B C2 ... stab 0bc2
9377 C984 7E CA 59 ~.Y jmp ca59 ;goto51 - inc 0008 and exit
9379 C987 F6 10 2F ../ ldab 102f ; read SCI data
9380 C98A F7 0B E3 ... stab 0be3
9381 C98D F6 10 2F ../ ldab 102f ; read SCI data
9382 C990 C4 0F .. andb #0f
9383 C992 C1 01 .. cmpb #01
9384 C994 26 07 &. bne 07 ; to c99d
9385 C996 C6 02 .. ldab #02
9386 C998 F7 00 13 ... stab 0013
9387 C99B 20 1B . bra 1b ; to c9b8
9388 C99D C1 02 .. cmpb #02
9389 C99F 26 07 &. bne 07 ; to c9a8
9390 C9A1 C6 04 .. ldab #04
9391 C9A3 F7 00 13 ... stab 0013
9392 C9A6 20 10 . bra 10 ; to c9b8
9393 C9A8 C1 03 .. cmpb #03
9394 C9AA 26 07 &. bne 07 ; to c9b3
9395 C9AC C6 08 .. ldab #08
9396 C9AE F7 00 13 ... stab 0013
9397 C9B1 20 05 . bra 05 ; to c9b8
9398 C9B3 C6 01 .. ldab #01
9399 C9B5 F7 00 13 ... stab 0013
9400 C9B8 F6 10 2F ../ ldab 102f ; read SCI data
9401 C9BB C4 F0 .. andb #f0
9406 C9C1 F7 0B C3 ... stab 0bc3
9407 C9C4 F6 0B C2 ... ldab 0bc2
9408 C9C7 F7 0B AA ... stab 0baa
9409 ;;0baa^:=pow(10,0bc3^) 0bc3 is the top 4 bits from the serial port.
9414 C9CA F6 0B C3 ... ldab 0bc3
9415 C9CD 27 0E '. beq c9dd
9416 C9CF F6 0B AA ... ldab 0baa
9417 C9D2 86 0A .. ldaa #0a
9419 C9D5 F7 0B AA ... stab 0baa
9420 C9D8 7A 0B C3 z.. dec 0bc3
9421 C9DB 20 ED . bra c9ca
9423 C9DD 20 7A z bra 7a ;goto51 - inc 0008 & clean exit
9425 C9DF F6 10 2F ../ ldab 102f ; read SCI data
9426 C9E2 F7 0B C4 ... stab 0bc4
9427 C9E5 F6 0B C4 ... ldab 0bc4
9428 C9E8 C1 80 .. cmpb #80
9429 C9EA 26 05 &. bne 05
9430 C9EC C6 0F .. ldab #0f
9431 C9EE F7 0B C4 ... stab 0bc4
9432 C9F1 20 66 f bra 66 ;goto51 - inc 0008 & clean exit
9434 C9F3 F6 10 2F ../ ldab 102f ; read SCI data
9435 C9F6 F7 0B C5 ... stab 0bc5
9436 C9F9 F6 0B C5 ... ldab 0bc5
9437 C9FC C1 80 .. cmpb #80
9438 C9FE 26 05 &. bne 05
9439 CA00 C6 0F .. ldab #0f
9440 CA02 F7 0B C5 ... stab 0bc5
9441 CA05 20 52 R bra 52 ;goto51 - inc 0008 & clean exit
9443 CA07 F6 10 2F ../ ldab 102f ; read SCI data
9444 CA0A F7 0B C6 ... stab 0bc6
9445 CA0D F6 0B C6 ... ldab 0bc6
9446 CA10 C1 80 .. cmpb #80
9447 CA12 26 05 &. bne ca19
9448 CA14 C6 0F .. ldab #0f
9449 CA16 F7 0B C6 ... stab 0bc6
9450 CA19 20 3E > bra 3e ;goto51 - inc 0008 & clean exit
9452 ; read byte of data into 0bc7 - 0bce
9453 CA1B F6 10 2F ../ ldab 102f ; read SCI data
9454 CA1E F7 0B C7 ... stab 0bc7
9457 CA23 F6 10 2F ../ ldab 102f ; read SCI data
9458 CA26 F7 0B C8 ... stab 0bc8
9461 CA2B F6 10 2F ../ ldab 102f ; read SCI data
9462 CA2E F7 0B C9 ... stab 0bc9
9465 CA33 F6 10 2F ../ ldab 102f ; read SCI data
9466 CA36 F7 0B CA ... stab 0bca
9469 CA3B F6 10 2F ../ ldab 102f ; read SCI data
9470 CA3E F7 0B CB ... stab 0bcb
9473 CA43 F6 10 2F ../ ldab 102f ; read SCI data
9474 CA46 F7 0B CC ... stab 0bcc
9477 CA4B F6 10 2F ../ ldab 102f ; read SCI data
9478 CA4E F7 0B CD ... stab 0bcd
9481 CA53 F6 10 2F ../ ldab 102f ; read SCI data
9482 CA56 F7 0B CE ... stab 0bce
9484 CA59 7C 00 08 |.. inc 0008
9486 CA5C 7E CB DA ~.. jmp cbda ;goto48 (clean exit)
9489 CA5F F6 10 2F ../ ldab 102f ; read SCI data
9490 CA62 C4 EF .. andb #ef ; 11101111
9491 CA64 C1 E2 .. cmpb #e2 ; 11100010
9492 CA66 26 1A &. bne 1a ; if no match, to ca82
9493 CA68 CE 00 17 ... ldx #0017
9494 CA6B 1C 00 08 ... bset 00,x, #08
9495 CA6E CE 00 17 ... ldx #0017
9496 CA71 1C 00 04 ... bset 00,x, #04
9497 CA74 C6 01 .. ldab #01
9498 CA76 F7 00 08 ... stab 0008
9499 CA79 CE 0B C1 ... ldx #0bc1
9500 CA7C 1D 00 01 ... bclr 00,x, #01
9501 CA7F 7E CB DA ~.. jmp cbda ;goto48 (clean exit)
9503 CA82 F6 10 2F ../ ldab 102f ; read SCI data
9504 CA85 C4 02 .. andb #02
9505 CA87 27 03 '. beq 03 ; if bit is set then
9506 CA89 7E CB 6C ~.l jmp cb6c ; goto52
9507 CA8C F6 10 2F ../ ldab 102f ; read SCI data
9508 CA8F 2C 38 ,8 bge 38 ; if bit 7 unset, to cac9
9509 CA91 F6 00 17 ... ldab 0017
9510 CA94 C4 08 .. andb #08
9511 CA96 26 31 &1 bne 31
9512 CA98 F6 10 2F ../ ldab 102f ; read SCI data
9513 CA9B C4 78 .x andb #78 ; 01111000
9518 CAA1 C3 0B C7 ... addd #0bc7
9520 CAA5 E6 00 .. ldab 00,x
9524 CAAA F6 0B AA ... ldab 0baa
9526 CAAE BD FB BA ... jsr fbba ;jump38 - multiply?
9527 CAB1 F3 00 40 ..@ addd 0040
9528 CAB4 FD 00 40 ..@ std 0040
9529 CAB7 CE 00 1B ... ldx #001b
9530 CABA 1C 00 .. bset 00,x, #20
9531 CABD CE 00 1B ... ldx #001b
9532 CAC0 1D 00 40 ... bclr 00,x, #40
9533 CAC3 7F 00 25 ..% clr 0025
9534 CAC6 7E CB 64 ~.d jmp cb64 ;goto53
9536 CAC9 F6 00 17 ... ldab 0017
9537 CACC C4 08 .. andb #08
9538 CACE 26 4A &J bne 4a ;to cb1a
9539 CAD0 F6 10 2F ../ ldab 102f ; read SCI data
9540 CAD3 C4 60 .` andb #60 ; 01100000
9541 CAD5 54 T lsrb ; ^^^^
9545 CAD9 C3 0B C7 ... addd #0bc7
9547 CADD E6 00 .. ldab 00,x
9551 CAE2 F6 0B AA ... ldab 0baa
9553 CAE6 BD FB BA ... jsr fbba ;jump38 - multiply?
9554 CAE9 FD 0B BD ... std 0bbd
9555 CAEC FC 0B BD ... ldd 0bbd
9556 CAEF F3 00 40 ..@ addd 0040
9557 CAF2 FD 00 40 ..@ std 0040
9558 CAF5 F6 00 21 ..! ldab 0021
9559 CAF8 C4 F8 .. andb #f8 ; 11111000
9561 CAFB F6 10 2F ../ ldab 102f ; read SCI data
9562 CAFE C4 1C .. andb #1c ; 00011100
9566 CB03 EA 00 .. orb 00,x ; or lower 3 bits with 0021
9568 CB06 F7 00 21 ..! stab 0021
9569 CB09 F6 10 2F ../ ldab 102f ; read SCI data
9570 CB0C F7 0B BC ... stab 0bbc
9571 CB0F CE 00 1B ... ldx #001b
9572 CB12 1D 00 40 .. bclr 00,x, #40
9573 CB15 7F 00 25 ..% clr 0025
9574 CB18 20 4A J bra 4a ;goto53 - more cleanups and exit
9576 CB1A F6 10 2F ../ ldab 102f ; read SCI data
9577 CB1D C4 E0 .. andb #e0 ; 11100000
9582 CB23 54 T lsrb ; shr5
9584 CB25 C3 0B C7 ... addd #0bc7
9586 CB29 E6 00 .. ldab 00,x
9590 CB2E F6 0B AA ... ldab 0baa
9592 CB32 BD FB BA ... jsr fbba ;jump38 - multiply?
9593 CB35 FD 0B BD ... std 0bbd
9594 CB38 FC 0B BD ... ldd 0bbd
9595 CB3B F3 00 40 ..@ addd 0040
9596 CB3E FD 00 40 ..@ std 0040
9597 CB41 F6 00 21 ..! ldab 0021
9598 CB44 C4 F8 .. andb #f8
9600 CB47 F6 10 2F ../ ldab 102f ; read SCI data
9601 CB4A C4 1C .. andb #1c
9605 CB4F EA 00 .. orb 00,x
9607 CB52 F7 00 21 ..! stab 0021
9608 CB55 F6 10 2F ../ ldab 102f ; read SCI data
9609 CB58 F7 0B BC ... stab 0bbc
9610 CB5B CE 00 1B ... ldx #001b
9611 CB5E 1D 00 40 ... bclr 00,x, #40
9612 CB61 7F 00 25 ..% clr 0025
9613 goto53: ; more cleanups and exit
9614 CB64 7F 00 2C .., clr 002c
9615 CB67 7F 00 3A ..: clr 003a
9616 CB6A 20 6E n bra 6e ; to cbda - cleanup and exit
9618 CB6C F6 10 2F ../ ldab 102f ; read SCI data
9619 CB6F C4 03 .. andb #03
9620 CB71 C1 02 .. cmpb #02
9621 CB73 26 0F &. bne 0f ; to bc84
9622 CB75 F6 00 21 ..! ldab 0021
9623 CB78 C4 08 .. andb #08
9624 CB7A 27 08 '. beq 08
9625 CB7C CE 00 21 ..! ldx #0021
9626 CB7F 1C 00 10 ... bset 00,x, #10
9627 CB82 20 56 V bra 56 ; to cbda - cleanup and exit
9629 CB84 F6 10 2F ../ ldab 102f ; read SCI data
9630 CB87 C4 EF .. andb #ef ; 11101111
9631 CB89 C1 E3 .. cmpb #e3 ; 11100111
9632 CB8B 26 08 &. bne 08 ; to cb95
9633 CB8D CE 0B C1 ... ldx #0bc1
9634 CB90 1D 00 02 ... bclr 00,x, #02
9637 CB95 F6 10 2F ../ ldab 102f ; read SCI data
9638 CB98 C4 EF .. andb #ef ; 11101111
9639 CB9A C1 63 .c cmpb #63 ; 01101110
9640 CB9C 26 1C &. bne 1c ; to cbba
9641 CB9E CE 0B C1 ... ldx #0bc1
9642 CBA1 1D 00 01 ... bclr 00,x, #01
9643 CBA4 F6 0B C0 ... ldab 0bc0
9644 CBA7 C4 01 .. andb #01
9645 CBA9 27 0D '. beq 0d ; to cbb8
9646 CBAB F6 0B C0 ... ldab 0bc0
9647 CBAE C4 04 .. andb #04
9648 CBB0 27 06 '. beq 06 ; to cbb8
9649 CBB2 CE 0B C1 ... ldx #0bc1
9650 CBB5 1D 00 02 ... bclr 00,x, #02
9651 CBB8 20 20 bra 20 ;goto48 - cleanup & exit
9653 CBBA F6 10 2F ../ ldab 102f ; read SCI data
9654 CBBD C4 EF .. andb #ef ; 11101111
9655 CBBF C1 67 .g cmpb #67 ; 01100111
9656 CBC1 26 08 &. bne 08 ; to cbcb
9657 CBC3 CE 0B C1 ... ldx #0bc1
9658 CBC6 1C 00 .. bset 00,x, #20
9659 CBC9 20 0F bra 0f ;goto48 - cleanup & exit
9661 CBCB F6 10 2F ../ ldab 102f ; read SCI data
9662 CBCE C4 EF .. andb #ef ; 11101111
9663 CBD0 C1 27 .' cmpb #27 ; 00100111
9664 CBD2 26 06 &. bne 06 ;goto48 - cleanup & exit
9666 CBD4 CE 0B C1 ... ldx #0bc1
9667 CBD7 1C 00 10 ... bset 00,x, #10
9668 goto48: ; cleanup and exit
9669 CBDA CE 00 1A ... ldx #001a
9670 CBDD 1C 00 02 ... bset 00,x, #02
9671 CBE0 F6 00 1A ... ldab 001a
9672 CBE3 F7 30 00 .0. stab 3000 ; changer send' high
9673 CBE6 F6 00 17 ... ldab 0017
9674 CBE9 C4 04 .. andb #04
9675 CBEB 26 05 &. bne 05 ; to cbf2
9676 CBED C6 06 .. ldab #06
9677 CBEF F7 00 07 ... stab 0007
9678 CBF2 F6 00 26 ..& ldab 0026 ; 0026 ~= 0026
9680 CBF6 F7 00 26 ..& stab 0026
9681 CBF9 7F 00 3D ..= clr 003d
9682 CBFC 7E CE 46 ~.F jmp ce46 ;goto47 (exit)
9685 CBFF F6 0B C0 ... ldab 0bc0
9686 CC02 C4 02 .. andb #02
9687 CC04 26 03 &. bne 03
9688 CC06 7E CE 3B ~.; jmp ce3b ;goto54 - swallow 2 bytes & exit
9689 CC09 F6 10 2F ../ ldab 102f ; read SCI data
9690 CC0C C4 E0 .. andb #e0
9691 CC0E C1 20 . cmpb #20
9692 CC10 27 03 '. beq 03
9693 CC12 7E CE 3B ~.; jmp ce3b ;goto54 - swallow 2 bytes & exit
9694 CC15 C6 32 .2 ldab #32 ; 50
9695 CC17 F7 00 2F ../ stab 002f
9696 CC1A CE 00 1B ... ldx #001b
9697 CC1D 1C 00 02 ... bset 00,x, #02
9698 CC20 F6 10 2E ... ldab 102e ; SCI status
9699 CC23 C4 02 .. andb #02 ; test for Framing Error
9700 CC25 26 08 &. bne 08
9701 CC27 BD C7 C0 ... jsr c7c0 ;jump49 - parity test
9702 CC2A 83 00 00 ... subd #0000
9703 CC2D 26 0F &. bne 0f ; if failed, to cc3e
9704 CC2F F6 10 2F ../ ldab 102f ; read SCI data
9706 CC33 E7 00 .. stab 00,x
9707 CC35 CC 00 FF ... ldd #00ff
9708 CC38 BD C7 E7 ... jsr c7e7 ;jump37 - send #FF to coin mech
9709 CC3B 7E CE 39 ~.9 jmp ce39 ;goto55 - exit
9711 CC3E F6 10 2F ../ ldab 102f ; read SCI data
9712 CC41 C1 3F .? cmpb #3f ; 00111111
9713 CC43 26 0A &. bne 0a ; to cc4f
9714 CC45 F6 00 43 ..C ldab 0043
9716 CC49 BD C7 E7 ... jsr c7e7 ;jump37 - send 0043 to coin mech - retry?
9717 CC4C 7E CE 39 ~.9 jmp ce39 ;goto55 - exit
9719 CC4F F6 00 08 ... ldab 0008
9720 CC52 26 03 &. bne 03
9721 CC54 7E CD 94 ~.. jmp cd94 ;goto56
9722 CC57 F6 10 2F ../ ldab 102f ; read SCI data
9723 CC5A C4 F0 .. andb #f0
9724 CC5C C1 20 . cmpb #20
9725 CC5E 27 03 '. beq 03
9726 CC60 7E CD 94 ~.. jmp cd94 ;goto56
9727 CC63 F6 10 2F ../ ldab 102f ; read SCI data
9728 CC66 C4 0F .. andb #0f
9730 CC69 E7 00 .. stab 00,x
9731 CC6B F6 00 08 ... ldab 0008
9733 CC6F BD FE 16 ... jsr fe16 ;jump2
9734 CC72 00 01 00 07 . ; array data for jump2
9735 CC76 CD 7A . ; if 0008 == 9, clr 0008, 002c. else inc 0008, send #00 to coin mech
9736 CC78 CC 88 .. ; if 0017 sp=>0076, else sp=>0040, then same as above
9737 CC7A CC A2 .. ; if 0017 0076+=sp<<4, else 0040+=sp<<4, then same as above
9738 CC7C CC CA .. ; if 0017 0076+=sp<<8, else 0040+=sp<<8, then same as above
9739 CC7E CC EE .. ; if 0017 0076+=sp<<16, else 0040+=sp<16, then same as above
9740 CC80 CD 19 .. ; 0baa = sp, then same as above
9741 CC82 CD 21 . ; 0baa = sp<<4, then same as above
9742 CC83 CD 30 !. ; 0013 = sp, then same as above
9743 CC85 CD 38 0 ; read byte & #01,
9745 CC88 F6 00 17 ... ldab 0017
9746 CC8B C4 01 .. andb #01
9747 CC8D 27 09 '. beq 09 ; to cc98
9749 CC90 E6 00 .. ldab 00,x
9751 CC93 FD 00 76 ..v std 0076
9752 CC96 20 07 . bra 07 ; to cc9f
9754 CC99 E6 00 .. ldab 00,x
9756 CC9C FD 00 40 ..@ std 0040
9757 CC9F 7E CD 7A ~.z jmp cd7a ;goto57
9759 CCA2 F6 00 17 ... ldab 0017
9760 CCA5 C4 01 .. andb #01
9761 CCA7 27 10 '. beq 10 ; to ccb9
9763 CCAA E6 00 .. ldab 00,x
9769 CCB1 F3 00 76 ..v addd 0076
9770 CCB4 FD 00 76 ..v std 0076
9771 CCB7 20 0E . bra 0e ; to ccc7
9773 CCBA E6 00 .. ldab 00,x
9779 CCC1 F3 00 40 ..@ addd 0040
9780 CCC4 FD 00 40 ..@ std 0040
9781 CCC7 7E CD 7A ~.z jmp cd7a ;goto57
9783 CCCA F6 00 17 ... ldab 0017
9784 CCCD C4 01 .. andb #01
9785 CCCF 27 0E '. beq 0e ; to ccdf
9787 CCD2 E6 00 .. ldab 00,x
9791 CCD7 F3 00 76 ..v addd 0076
9792 CCDA FD 00 76 ..v std 0076
9793 CCDD 20 0C . bra 0c ; to cceb
9795 CCE0 E6 00 .. ldab 00,x
9799 CCE5 F3 00 40 ..@ addd 0040
9800 CCE8 FD 00 40 ..@ std 0040
9801 CCEB 7E CD 7A ~.z jmp cd7a ;goto57
9803 CCEE F6 00 17 ... ldab 0017
9804 CCF1 C4 01 .. andb #01
9805 CCF3 27 12 '. beq 12 ; to cd07
9807 CCF6 E6 00 .. ldab 00,x
9815 CCFF F3 00 76 ..v addd 0076
9816 CD02 FD 00 76 ..v std 0076
9817 CD05 20 10 . bra 10 ; to cd17
9819 CD08 E6 00 .. ldab 00,x
9827 CD11 F3 00 40 ..@ addd 0040
9828 CD14 FD 00 40 ..@ std 0040
9832 CD1A E6 00 .. ldab 00,x
9833 CD1C F7 0B AA ... stab 0baa
9834 CD1F 20 59 Y bra 59 ; to cd7a - goto57
9837 CD22 E6 00 .. ldab 00,x
9842 CD28 FB 0B AA ... addb 0baa
9843 CD2B F7 0B AA ... stab 0baa
9844 CD2E 20 4A J bra 4a ; to cd7a - goto57
9847 CD31 E6 00 .. ldab 00,x
9848 CD33 F7 00 13 ... stab 0013
9849 CD36 20 42 B bra 42 ; to cd7a - goto57
9851 CD38 F6 10 2F ../ ldab 102f ; read SCI data
9852 CD3B C4 01 .. andb #01
9853 CD3D 27 08 '. beq 08 ; to cd47
9854 CD3F CE 00 21 ..! ldx #0021
9855 CD42 1C 00 40 ... bset 00,x, #40
9856 CD45 20 06 . bra 06 ; to cd4d
9857 CD47 CE 00 21 ..! ldx #0021
9858 CD4A 1D 00 40 ... bclr 00,x, #40
9860 CD4D F6 00 17 ... ldab 0017
9861 CD50 C4 01 .. andb #01
9862 CD52 27 17 '. beq 17 ; to cd6b
9863 CD54 F6 0B AA ... ldab 0baa
9867 CD5A FC 00 76 ..v ldd 0076
9868 CD5D BD FB BA ... jsr fbba ;jump38 - multiply?
9869 CD60 FD 00 76 ..v std 0076 ; 0076 *= 0baa
9870 CD63 CE 00 17 ... ldx #0017
9871 CD66 1D 00 01 ... bclr 00,x, #01
9872 CD69 20 0F . bra 0f ;goto57 - send byte & exit
9873 CD6B F6 0B AA ... ldab 0baa
9877 CD71 FC 00 40 ..@ ldd 0040
9878 CD74 BD FB BA ... jsr fbba ;jump38 - multiply?
9879 CD77 FD 00 40 ..@ std 0040 ; 0040 *= 0baa
9880 goto57: ; sends the byte, clearing the counter if its the 8th byte
9881 CD7A F6 00 08 ... ldab 0008
9882 CD7D C1 09 .. cmpb #09
9883 CD7F 26 08 &. bne 08
9884 CD81 7F 00 2C .., clr 002c
9885 CD84 7F 00 08 ... clr 0008
9887 CD89 7C 00 08 |.. inc 0008
9890 CD8E BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech
9891 CD91 7E CE 39 ~.9 jmp ce39 ;goto55 - exit
9893 CD94 F6 10 2F ../ ldab 102f ; read SCI data
9895 CD98 BD FE 32 ..2 jsr fe32 ;jump25
9896 CD9B CD B1 00 31 ...1 ; 49 "1"
9897 CD9F CD DB 00 01 .... ; 50 "2"
9898 CDA3 CE 20 00 01 . .. ; 51 "3"
9899 CDA7 CE 28 00 05 .(.. ; 56 "8"
9900 CDAB CE 34 FF C8 .4.. ; 0
9901 CDAF 00 00 .. ; end of array data
9902 CDB1 F6 00 21 ..! ldab 0021
9903 CDB4 2C 08 ,. bge 08
9904 CDB6 CC 00 80 ... ldd #0080
9905 CDB9 BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech
9909 CDC0 BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech
9910 CDC3 F6 00 1F ... ldab 001f
9911 CDC6 C4 08 .. andb #08
9912 CDC8 27 0C '. beq 0c
9913 CDCA F6 0B C0 ... ldab 0bc0
9914 CDCD C4 10 .. andb #10
9915 CDCF 27 05 '. beq 05
9916 CDD1 7C 00 75 |.u inc 0075
9918 CDD6 7F 00 75 ..u clr 0075
9920 CDDB F6 00 1D ... ldab 001d
9921 CDDE C4 02 .. andb #02
9922 CDE0 27 07 '. beq 07
9923 CDE2 F6 00 19 ... ldab 0019
9924 CDE5 C4 08 .. andb #08
9925 CDE7 26 19 &. bne 19
9926 CDE9 CC 00 FE ... ldd #00fe
9927 CDEC BD C7 E7 ... jsr c7e7 ;jump37 - send #fe to coin mech
9928 CDEF F6 00 1F ... ldab 001f
9929 CDF2 C4 08 .. andb #08
9930 CDF4 27 0A '. beq 0a
9931 CDF6 F6 0B C0 ... ldab 0bc0
9932 CDF9 C4 10 .. andb #10
9933 CDFB 27 03 '. beq 03
9934 CDFD 7C 00 75 |.u inc 0075
9936 CE02 FC 00 44 ..D ldd 0044
9939 CE07 F6 0B AA ... ldab 0baa
9945 CE0F BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech
9946 CE12 CE 00 19 ... ldx #0019
9947 CE15 1D 00 08 ... bclr 00,x, #08
9948 CE18 CE 00 1F ... ldx #001f
9949 CE1B 1C 00 08 ... bset 00,x, #08
9951 CE20 CE 00 1D ... ldx #001d
9952 CE23 1D 00 02 ... bclr 00,x, #02
9954 CE28 C6 01 .. ldab #01
9955 CE2A F7 00 08 ... stab 0008
9958 CE2F BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech
9962 CE36 BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech
9964 CE39 20 0B . bra 0b ; to ce46 (exit)
9965 goto54: ; just swallow two bytes?
9966 CE3B F6 10 2E ... ldab 102e ; SCI Status
9968 CE3F E7 00 .. stab 00,x
9969 CE41 F6 10 2F ../ ldab 102f ; read SCI data
9970 CE44 E7 00 .. stab 00,x
9977 CE48 F6 0B C4 ... ldab 0bc4
9978 CE4B F1 0B C5 ... cmpb 0bc5
9979 CE4E 25 53 %S bcs 53 ; if 0bc4 < 0bc5 to cea3
9980 CE50 F6 0B C5 ... ldab 0bc5
9981 CE53 F1 0B C6 ... cmpb 0bc6
9982 CE56 25 4B %K bcs 4b ; if 0bc5 < 0bc6 to cea3
9983 ; so here we have 0bc6 < 0bc5 < 0bc4
9984 CE58 F6 0B C4 ... ldab 0bc4
9986 CE5C C3 0B C7 ... addd #0bc7
9988 CE60 E6 00 .. ldab 00,x
9990 CE63 FD 0B DD ... std 0bdd
9991 CE66 F6 0B C5 ... ldab 0bc5
9993 CE6A C3 0B C7 ... addd #0bc7
9995 CE6E E6 00 .. ldab 00,x
9997 CE71 FD 0B DF ... std 0bdf
9998 CE74 F6 0B C6 ... ldab 0bc6
10000 CE78 C3 0B C7 ... addd #0bc7
10002 CE7C E6 00 .. ldab 00,x
10004 CE7F FD 0B E1 ... std 0be1
10005 CE82 C6 01 .. ldab #01
10006 CE84 F7 0B D7 ... stab 0bd7
10007 CE87 C6 04 .. ldab #04
10008 CE89 F7 0B D8 ... stab 0bd8
10009 CE8C C6 02 .. ldab #02
10010 CE8E F7 0B D9 ... stab 0bd9
10011 CE91 C6 20 . ldab #20
10012 CE93 F7 0B DA ... stab 0bda
10013 CE96 C6 08 .. ldab #08
10014 CE98 F7 0B DB ... stab 0bdb
10015 CE9B C6 10 .. ldab #10
10016 CE9D F7 0B DC ... stab 0bdc
10017 CEA0 7E D0 66 ~.f jmp d066 ;goto58 - multiply & exit
10019 CEA3 F6 0B C4 ... ldab 0bc4
10020 CEA6 F1 0B C6 ... cmpb 0bc6
10021 CEA9 25 53 %S bcs 53 ; if 0bc4 < 0bc6 to cefe
10022 CEAB F6 0B C6 ... ldab 0bc6
10023 CEAE F1 0B C5 ... cmpb 0bc5
10024 CEB1 25 4B %K bcs 4b ; if 0bc6 < 0bc5 to cefe
10025 ; so here we have 0bc5 < 0bc6 < 0bc4
10026 CEB3 F6 0B C4 ... ldab 0bc4
10028 CEB7 C3 0B C7 ... addd #0bc7
10030 CEBB E6 00 .. ldab 00,x
10032 CEBE FD 0B DD ... std 0bdd
10033 CEC1 F6 0B C6 ... ldab 0bc6
10035 CEC5 C3 0B C7 ... addd #0bc7
10037 CEC9 E6 00 .. ldab 00,x
10039 CECC FD 0B DF ... std 0bdf
10040 CECF F6 0B C5 ... ldab 0bc5
10042 CED3 C3 0B C7 ... addd #0bc7
10044 CED7 E6 00 .. ldab 00,x
10046 CEDA FD 0B E1 ... std 0be1
10047 CEDD C6 01 .. ldab #01
10048 CEDF F7 0B D7 ... stab 0bd7
10049 CEE2 C6 02 .. ldab #02
10050 CEE4 F7 0B D8 ... stab 0bd8
10051 CEE7 C6 04 .. ldab #04
10052 CEE9 F7 0B D9 ... stab 0bd9
10053 CEEC C6 20 . ldab #20
10054 CEEE F7 0B DA ... stab 0bda
10055 CEF1 C6 10 .. ldab #10
10056 CEF3 F7 0B DB ... stab 0bdb
10057 CEF6 C6 08 .. ldab #08
10058 CEF8 F7 0B DC ... stab 0bdc
10059 CEFB 7E D0 66 ~.f jmp d066 ;goto58 - multiply and exit
10061 CEFE F6 0B C5 ... ldab 0bc5
10062 CF01 F1 0B C4 ... cmpb 0bc4
10063 CF04 25 53 %S bcs 53 ; if 0bc5 < 0bc4 to cf59
10064 CF06 F6 0B C4 ... ldab 0bc4
10065 CF09 F1 0B C6 ... cmpb 0bc6
10066 CF0C 25 4B %K bcs 4b ; if 0bc4 < 0bc6 to cf59
10067 ; so here we have 0bc6 < 0bc4 < 0bc5
10068 CF0E F6 0B C5 ... ldab 0bc5
10070 CF12 C3 0B C7 ... addd #0bc7
10072 CF16 E6 00 .. ldab 00,x
10074 CF19 FD 0B DD ... std 0bdd
10075 CF1C F6 0B C4 ... ldab 0bc4
10077 CF20 C3 0B C7 ... addd #0bc7
10079 CF24 E6 00 .. ldab 00,x
10081 CF27 FD 0B DF ... std 0bdf
10082 CF2A F6 0B C6 ... ldab 0bc6
10084 CF2E C3 0B C7 ... addd #0bc7
10086 CF32 E6 00 .. ldab 00,x
10088 CF35 FD 0B E1 ... std 0be1
10089 CF38 C6 04 .. ldab #04
10090 CF3A F7 0B D7 ... stab 0bd7
10091 CF3D C6 01 .. ldab #01
10092 CF3F F7 0B D8 ... stab 0bd8
10093 CF42 C6 02 .. ldab #02
10094 CF44 F7 0B D9 ... stab 0bd9
10095 CF47 C6 08 .. ldab #08
10096 CF49 F7 0B DA ... stab 0bda
10097 CF4C C6 20 . ldab #20
10098 CF4E F7 0B DB ... stab 0bdb
10099 CF51 C6 10 .. ldab #10
10100 CF53 F7 0B DC ... stab 0bdc
10101 CF56 7E D0 66 ~.f jmp d066 ;goto58 - multiply and exit
10103 CF59 F6 0B C5 ... ldab 0bc5
10104 CF5C F1 0B C6 ... cmpb 0bc6
10105 CF5F 25 53 %S bcs 53 ; if 0bc5 < 0bc6 to cfb4
10106 CF61 F6 0B C6 ... ldab 0bc6
10107 CF64 F1 0B C4 ... cmpb 0bc4
10108 CF67 25 4B %K bcs 4b ; if 0bc6 < 0bc4 to cfb4
10109 ; so here we have 0bc4 < 0bc6 < 0bc5
10110 CF69 F6 0B C5 ... ldab 0bc5
10112 CF6D C3 0B C7 ... addd #0bc7
10114 CF71 E6 00 .. ldab 00,x
10116 CF74 FD 0B DD ... std 0bdd
10117 CF77 F6 0B C6 ... ldab 0bc6
10119 CF7B C3 0B C7 ... addd #0bc7
10121 CF7F E6 00 .. ldab 00,x
10123 CF82 FD 0B DF ... std 0bdf
10124 CF85 F6 0B C4 ... ldab 0bc4
10126 CF89 C3 0B C7 ... addd #0bc7
10128 CF8D E6 00 .. ldab 00,x
10130 CF90 FD 0B E1 ... std 0be1
10131 CF93 C6 04 .. ldab #04
10132 CF95 F7 0B D7 ... stab 0bd7
10133 CF98 C6 02 .. ldab #02
10134 CF9A F7 0B D8 ... stab 0bd8
10135 CF9D C6 01 .. ldab #01
10136 CF9F F7 0B D9 ... stab 0bd9
10137 CFA2 C6 08 .. ldab #08
10138 CFA4 F7 0B DA ... stab 0bda
10139 CFA7 C6 10 .. ldab #10
10140 CFA9 F7 0B DB ... stab 0bdb
10141 CFAC C6 20 . ldab #20
10142 CFAE F7 0B DC ... stab 0bdc
10143 CFB1 7E D0 66 ~.f jmp d066 ;goto58 - multiply and exit
10145 CFB4 F6 0B C6 ... ldab 0bc6
10146 CFB7 F1 0B C4 ... cmpb 0bc4
10147 CFBA 25 52 %R bcs 52 ; if 0bc6 < 0bc4 to d00e
10148 CFBC F6 0B C4 ... ldab 0bc4
10149 CFBF F1 0B C5 ... cmpb 0bc5
10150 CFC2 25 4A %J bcs 4a ; if 0bc4 < 0bc5 to d00e
10151 ; so here we have 0bc5 < 0bc4 < 0bc6
10152 CFC4 F6 0B C6 ... ldab 0bc6
10154 CFC8 C3 0B C7 ... addd #0bc7
10156 CFCC E6 00 .. ldab 00,x
10158 CFCF FD 0B DD ... std 0bdd
10159 CFD2 F6 0B C4 ... ldab 0bc4
10161 CFD6 C3 0B C7 ... addd #0bc7
10163 CFDA E6 00 .. ldab 00,x
10165 CFDD FD 0B DF ... std 0bdf
10166 CFE0 F6 0B C5 ... ldab 0bc5
10168 CFE4 C3 0B C7 ... addd #0bc7
10170 CFE8 E6 00 .. ldab 00,x
10172 CFEB FD 0B E1 ... std 0be1
10173 CFEE C6 02 .. ldab #02
10174 CFF0 F7 0B D7 ... stab 0bd7
10175 CFF3 C6 01 .. ldab #01
10176 CFF5 F7 0B D8 ... stab 0bd8
10177 CFF8 C6 04 .. ldab #04
10178 CFFA F7 0B D9 ... stab 0bd9
10179 CFFD C6 10 .. ldab #10
10180 CFFF F7 0B DA ... stab 0bda
10181 D002 C6 20 . ldab #20
10182 D004 F7 0B DB ... stab 0bdb
10183 D007 C6 08 .. ldab #08
10184 D009 F7 0B DC ... stab 0bdc
10185 D00C 20 58 X bra 58 ;goto58 - multiply and exit
10187 ; we know that 0bc4 < 0bc5 < 0bc6
10188 D00E F6 0B C6 ... ldab 0bc6
10189 D011 F1 0B C5 ... cmpb 0bc5
10190 D014 25 50 %P bcs 50
10191 D016 F6 0B C5 ... ldab 0bc5
10192 D019 F1 0B C4 ... cmpb 0bc4
10193 D01C 25 48 %H bcs 48
10194 D01E F6 0B C6 ... ldab 0bc6
10196 D022 C3 0B C7 ... addd #0bc7
10198 D026 E6 00 .. ldab 00,x
10200 D029 FD 0B DD ... std 0bdd
10201 D02C F6 0B C5 ... ldab 0bc5
10203 D030 C3 0B C7 ... addd #0bc7
10205 D034 E6 00 .. ldab 00,x
10207 D037 FD 0B DF ... std 0bdf
10208 D03A F6 0B C4 ... ldab 0bc4
10210 D03E C3 0B C7 ... addd #0bc7
10212 D042 E6 00 .. ldab 00,x
10214 D045 FD 0B E1 ... std 0be1
10215 D048 C6 02 .. ldab #02
10216 D04A F7 0B D7 ... stab 0bd7
10217 D04D C6 04 .. ldab #04
10218 D04F F7 0B D8 ... stab 0bd8
10219 D052 C6 01 .. ldab #01
10220 D054 F7 0B D9 ... stab 0bd9
10221 D057 C6 10 .. ldab #10
10222 D059 F7 0B DA ... stab 0bda
10223 D05C C6 08 .. ldab #08
10224 D05E F7 0B DB ... stab 0bdb
10225 D061 C6 20 . ldab #20
10226 D063 F7 0B DC ... stab 0bdc ;goto58 - multiply and exit
10229 D066 F6 0B AA ... ldab 0baa
10233 D06C FC 0B DD ... ldd 0bdd
10234 D06F BD FB BA ... jsr fbba ;jump38 - multiply?
10235 D072 FD 0B DD ... std 0bdd
10236 D075 F6 0B AA ... ldab 0baa
10240 D07B FC 0B DF ... ldd 0bdf
10241 D07E BD FB BA ... jsr fbba ;jump38 - multiply?
10242 D081 FD 0B DF ... std 0bdf
10243 D084 F6 0B AA ... ldab 0baa
10247 D08A FC 0B E1 ... ldd 0be1
10248 D08D BD FB BA ... jsr fbba ;jump38 - multiply?
10249 D090 FD 0B E1 ... std 0be1
10253 ; initializes a big bunch of variables
10257 D096 6F 00 o. clr 00,x
10260 D099 E6 00 .. ldab 00,x
10261 D09B C1 10 .. cmpb #10
10262 D09D 24 1B $. bcc 1b ; to d0ba
10263 ; read memloc of b0c3+i
10265 D0A0 E6 00 .. ldab 00,x
10267 D0A3 C3 B0 C3 ... addd #b0c3
10269 D0A7 E6 00 .. ldab 00,x
10271 ; put value of that location into 0bc7+i
10273 D0AB E6 01 .. ldab 01,x
10275 D0AE C3 0B C7 ... addd #0bc7
10278 D0B3 E7 00 .. stab 00,x
10281 D0B6 6C 00 l. inc 00,x
10282 D0B8 20 DE . bra de ; to d098
10284 D0BA C6 05 .. ldab #05
10285 D0BC F7 0B AA ... stab 0baa
10286 D0BF C6 04 .. ldab #04
10287 D0C1 F7 00 13 ... stab 0013
10288 D0C4 C6 01 .. ldab #01
10289 D0C6 F7 0B C4 ... stab 0bc4
10290 D0C9 C6 03 .. ldab #03
10291 D0CB F7 0B C5 ... stab 0bc5
10292 D0CE C6 02 .. ldab #02
10293 D0D0 F7 0B C6 ... stab 0bc6
10294 D0D3 CC 00 19 ... ldd #0019 ; 25
10295 D0D6 FD 0B DD ... std 0bdd
10296 D0D9 CC 00 0A ... ldd #000a ; 10
10297 D0DC FD 0B DF ... std 0bdf
10298 D0DF CC 00 05 ... ldd #0005 ; 5
10299 D0E2 FD 0B E1 ... std 0be1
10300 D0E5 C6 01 .. ldab #01
10301 D0E7 F7 0B D7 ... stab 0bd7
10302 D0EA C6 02 .. ldab #02
10303 D0EC F7 0B D8 ... stab 0bd8
10304 D0EF C6 04 .. ldab #04
10305 D0F1 F7 0B D9 ... stab 0bd9
10306 D0F4 C6 20 . ldab #20
10307 D0F6 F7 0B DA ... stab 0bda
10308 D0F9 C6 10 .. ldab #10
10309 D0FB F7 0B DB ... stab 0bdb
10310 D0FE C6 08 .. ldab #08
10311 D100 F7 0B DC ... stab 0bdc
10316 ; turns all motors off
10318 D106 CE 00 1A ... ldx #001a
10319 D109 1C 00 80 .. bset 00,x, #80
10320 D10C F6 00 1A .. ldab 001a
10321 D10F F7 30 00 .0. stab 3000 ; motor rows off
10322 D112 C6 C8 .. ldab #c8 ; loop of 200 - short delay
10324 D115 E7 00 .. stab 00,x
10326 D118 E6 00 .. ldab 00,x
10327 D11A C1 00 .. cmpb #00
10328 D11C 23 05 #. bls 05 ; to d123
10330 D11F 6A 00 j. dec 00,x
10331 D121 20 F4 . bra f4 ; to d117
10333 D123 CE 10 00 ... ldx #1000
10334 D126 1C 00 40 .. bset 00,x, #40 ; motor columns off
10335 D129 CE 00 14 ... ldx #0014
10336 D12C 1D 00 20 .. bclr 00,x, #20 ; motors col 8 off
10337 D12F CE 00 14 . ldx #0014
10338 D132 1D 00 40 .. bclr 00,x, #40 ; motors col 9 off
10339 D135 F6 00 14 ... ldab 0014
10340 D138 F7 38 00 .8. stab 3800 ; motors off
10345 ; turn on the motor of the slot given in memory location 0006
10346 D13D F6 00 06 ... ldab 0006
10348 D141 CE 00 0A ... ldx #000a
10351 D146 CB 01 .. addb #01 ; we live in an odd world?
10352 D148 F7 00 5F .._ stab 005f ; slot number /10
10353 D14B F6 00 06 ... ldab 0006
10355 D14F CE 00 0A ... ldx #000a
10357 D153 F7 00 5E ..^ stab 005e ; slot number%10
10358 D156 F6 00 5E ..^ ldab 005e
10359 D159 C1 05 .. cmpb #05 ; there is not row 5
10360 D15B 23 03 #. bls 03
10361 D15D 7A 00 5E z.^ dec 005e ; make it row 4
10362 D160 F6 00 5E ..^ ldab 005e
10364 D164 C3 B1 23 ..# addd #b123 ; powers of 2
10366 D168 E6 00 .. ldab 00,x
10370 D16D F6 00 5F .._ ldab 005f
10372 D171 C3 B1 23 ..# addd #b123 ; powers of 2
10374 D175 E6 00 .. ldab 00,x
10379 D17B E3 00 .. addd 00,x
10381 D17E FD 00 58 ..X std 0058
10384 D181 7F 00 1C ... clr 001c
10386 D184 F6 00 1C ... ldab 001c
10387 D187 C1 10 .. cmpb #10
10388 D189 24 37 $7 bcc 37 ; to d1c2
10389 D18B F6 00 58 ..X ldab 0058
10390 D18E 2C 0E ,. bge 0e ; to d19e
10392 D190 CE 00 14 ... ldx #0014
10393 D193 1C 00 10 ... bset 00,x, #10
10394 D196 F6 00 14 ... ldab 0014
10395 D199 F7 38 00 .8. stab 3800 ; set high motor serial data
10396 D19C 20 0C . bra 0c ; to d1aa
10398 D19E CE 00 14 ... ldx #0014
10399 D1A1 1D 00 10 .. bclr 00,x, #10
10400 D1A4 F6 00 14 ... ldab 0014
10401 D1A7 F7 38 00 .8. stab 3800 ; set low motor serial data
10403 ; send a clock pulse
10404 D1AA CE 10 00 ... ldx #1000
10405 D1AD 1C 00 20 .. bset 00,x, #20
10406 D1B0 CE 10 00 . ldx #1000
10407 D1B3 1D 00 .. bclr 00,x, #20
10409 ; get the next bit ready to send
10410 D1B6 FC 00 58 . ldd 0058
10412 D1BA FD 00 58 ..X std 0058
10413 D1BD 7C 00 1C |.. inc 001c
10414 D1C0 20 C2 . bra c2
10415 ; if this is column 8 (9 for pascal programmers ;)
10416 D1C2 F6 00 5F .._ ldab 005f
10417 D1C5 C1 09 .. cmpb #09
10418 D1C7 26 0E &. bne 0e ; to d1d7
10419 D1C9 CE 00 14 ... ldx #0014
10420 D1CC 1C 00 20 ... bset 00,x, #20
10421 D1CF F6 00 14 . ldab 0014
10422 D1D2 F7 38 00 .8. stab 3800 ; say its column 8
10423 D1D5 20 13 . bra 13 ; to d1ea
10424 ; if this is column 9 (denoted as 10)
10425 D1D7 F6 00 5F .._ ldab 005f
10426 D1DA C1 0A .. cmpb #0a
10427 D1DC 26 0C &. bne 0c
10428 D1DE CE 00 14 ... ldx #0014
10429 D1E1 1C 00 40 .. bset 00,x, #40 ; say its column 9
10430 D1E4 F6 00 14 ... ldab 0014
10431 D1E7 F7 38 00 .8. stab 3800
10432 ; clear the motor clock
10433 D1EA CE 10 00 ... ldx #1000
10434 D1ED 1D 00 40 .. bclr 00,x, #40 ; motor clock line low
10435 ; clear motor row output enable
10436 D1F0 CE 00 1A ... ldx #001a
10437 D1F3 1D 00 .. bclr 00,x, #80
10438 D1F6 F6 00 1A ... ldab 001a
10439 D1F9 F7 30 00 .0. stab 3000 ; motor driver outputs enable
10443 D1FD CC 40 00 .@. ldd #4000
10446 D202 F6 00 06 ... ldab 0006
10449 D207 C3 08 00 ... addd #0800
10452 D20C AA 00 .. ora 00,x
10453 D20E EA 01 .. orb 01,x
10454 D210 ED 00 .. std 00,x
10458 D213 F6 00 1F ... ldab 001f
10459 D216 C4 04 .. andb #04
10460 D218 26 12 &. bne 12
10461 D21A F6 0B C0 ... ldab 0bc0
10462 D21D C4 10 .. andb #10
10463 D21F 26 0B &. bne 0b
10464 D221 CE 00 00 ... ldx #0000
10466 D225 FC 00 44 ..D ldd 0044
10467 D228 BD BE 9E ... jsr be9e ;jump50
10469 D22C BD D3 11 ... jsr d311 ;jump30 - test position exists
10470 D22F 83 00 00 ... subd #0000
10471 D232 27 13 '. beq 13
10472 D234 F6 00 06 ... ldab 0006
10473 D237 BD D4 68 ..h jsr d468 ;jump51
10474 D23A 83 00 00 ... subd #0000
10475 D23D 27 05 '. beq 05
10476 D23F 8D BC .. bsr bc ;jump90
10477 D241 BD D6 3C ..< jsr d63c ;jump33
10482 D247 BD D1 3D ..= jsr d13d ;jump34 - motor on
10483 D24A C6 3C .< ldab #3c
10484 D24C F7 00 2E ... stab 002e
10485 D24F C6 41 .A ldab #41
10486 D251 F7 00 31 ..1 stab 0031
10487 D254 CE 00 1B ... ldx #001b
10488 D257 1D 00 08 ... bclr 00,x #08
10490 D25A F6 00 1B ... ldab 001b
10491 D25D C4 08 .. andb #08
10492 D25F 26 22 &" bne 22
10493 D261 F6 00 2E ... ldab 002e
10494 D264 C1 35 .5 cmpb #35
10495 D266 23 10 #. bls 10
10496 D268 BD D5 70 ..p jsr d570 ;jump35
10497 D26B 83 00 00 ... subd #0000
10498 D26E 27 06 '. beq 06
10499 D270 CE 00 1B ... ldx #001b
10500 D273 1C 00 08 ... bset 00,x, #08
10501 D276 20 0B . bra 0b
10502 D278 BD D1 05 ... jsr d105 ;motors_off
10503 D27B 8D 80 .. bsr 80 ;jump90
10504 D27D BD D6 3C ..< jsr d63c ;jump33
10509 D283 F6 00 2E ... ldab 002e
10510 D286 C1 36 .6 cmpb #36
10511 D288 24 56 $V bcc 56 ; to d2e0
10512 D28A BD D5 F7 ... jsr d5f7 ;jump108
10513 D28D 83 00 00 ... subd #0000
10514 D290 27 4E 'N beq 4e ; to d2e0
10515 D292 BD D5 B0 ... jsr d5b0 ;jump31
10516 D295 83 00 00 ... subd #0000
10517 D298 27 46 'F beq 46 ; to d2e0
10518 D29A BD D1 05 ... jsr d105 ;motors_off
10519 D29D F6 00 2E ... ldab 002e
10520 D2A0 C1 32 .2 cmpb #32
10521 D2A2 22 07 ". bhi 07
10522 D2A4 8D 6B .k bsr dest 6b
10523 D2A6 83 00 00 ... subd #0000
10524 D2A9 27 0C '. beq 0c
10525 D2AB BD D1 05 ... jsr d105 ;motors_off
10526 D2AE BD D1 FD ... jsr d1fd ;jump90
10527 D2B1 BD D6 3C ..< jsr d63c ;jump33
10532 D2B7 F6 00 06 ... ldab 0006
10534 D2BB C3 0E 06 ... addd #0e06
10536 D2BF 6C 00 l. inc 00,x
10537 D2C1 F6 00 06 ... ldab 0006
10539 D2C5 C3 0E 06 ... addd #0e06
10541 D2C9 E6 00 .. ldab 00,x
10542 D2CB C1 64 .d cmpb #64
10543 D2CD 23 0D #. bls 0d
10546 D2D1 F6 00 06 ... ldab 0006
10548 D2D5 C3 0E 06 ... addd #0e06
10551 D2DA E7 00 .. stab 00,x
10552 D2DC CC 00 01 ... ldd #0001
10555 D2E0 F6 00 2E ... ldab 002e
10556 D2E3 26 14 &. bne 14
10557 D2E5 BD D5 F7 ... jsr d5f7 ;jump108
10558 D2E8 83 00 00 ... subd #0000
10559 D2EB 26 0C &. bne 0c
10560 D2ED BD D1 05 ... jsr d105 ;motors_off
10561 D2F0 BD D1 FD ... jsr d1fd ;jump90
10562 D2F3 BD D6 26 ..& jsr d626 ;jump91
10567 D2F9 F6 00 2E ... ldab 002e
10568 D2FC 26 0C &. bne 0c
10569 D2FE BD D1 05 ... jsr d105 ;motors_off
10570 D301 BD D1 FD ... jsr d1fd ;jump90
10571 D304 BD D6 3C ..< jsr d63c ;jump33
10576 D30A 7E D2 5A ~.Z jmp d25a ;goto59
10577 D30D BD E6 1B ... jsr e61b ;jump4
10581 ; tests to see if a motor exists here
10582 D311 BD D1 3D ..= jsr d13d ;jump34 - motor on
10583 D314 7F 00 1C ... clr 001c
10584 D317 7F 00 18 ... clr 0018
10585 D31A F6 10 0A ... ldab 100a
10586 D31D C4 02 .. andb #02 ; motor overvoltage sense
10587 D31F 27 13 '. beq 13 ; to d334
10588 D321 7C 00 1C |.. inc 001c
10589 D324 F6 00 1C ... ldab 001c
10590 D327 C1 FF .. cmpb #ff
10591 D329 26 07 &. bne 07
10592 D32B BD D1 05 ... jsr d105 ;motors_off
10593 D32E CC 00 01 ... ldd #0001
10596 D332 20 10 . bra 10 ; to d344
10597 D334 7C 00 18 |.. inc 0018
10598 D337 F6 00 18 ... ldab 0018
10599 D33A C1 08 .. cmpb #08
10600 D33C 26 06 &. bne 06 ; continue
10601 D33E BD D1 05 ... jsr d105 ;motors_off
10605 D344 20 D4 . bra d4 ; continue
10612 D34A F6 0E 6D ..m ldab 0e6d
10613 D34D C1 01 .. cmpb #01
10614 D34F 27 03 '. beq 03
10615 D351 7E D4 07 ~.. jmp d407 ;goto60
10616 D354 F6 00 06 ... ldab 0006
10619 D359 C3 08 C8 ... addd #08c8
10621 D35D EC 00 .. ldd 00,x
10622 D35F C4 7F .. andb #7f
10624 D362 FD 0E 6B ..k std 0e6b
10625 D365 7F 00 06 ... clr 0006
10627 D368 F6 00 06 ... ldab 0006
10628 D36B C1 3E .> cmpb #3e
10629 D36D 26 03 &. bne 03
10630 D36F 7E D4 02 ~.. jmp d402 ;goto61
10631 D372 BD 97 6F ..o jsr 976f ;jump41
10632 D375 F6 00 06 ... ldab 0006
10635 D37A C3 08 C8 ... addd #08c8
10637 D37E EC 00 .. ldd 00,x
10638 D380 C4 7F .. andb #7f
10640 D383 B3 0E 6B ..k subd 0e6b
10641 D386 26 77 &w bne 77
10642 D388 F6 00 06 ... ldab 0006
10644 D38C CE 00 0A ... ldx #000a
10647 D391 E7 01 .. stab 01,x
10648 D393 E6 01 .. ldab 01,x
10649 D395 C1 01 .. cmpb #01
10650 D397 26 07 &. bne 07
10651 D399 C6 40 .@ ldab #40
10653 D39C E7 00 .. stab 00,x
10654 D39E 20 0C . bra 0c
10656 D3A1 E6 01 .. ldab 01,x
10657 D3A3 C1 02 .. cmpb #02
10658 D3A5 26 05 &. bne 05
10659 D3A7 C6 80 .. ldab #80
10661 D3AA E7 00 .. stab 00,x
10662 D3AC BD D1 3D ..= jsr d13d ;jump34 - motor on
10666 D3B2 ED 03 .. std 03,x
10667 ;look at the home sensors for this row. If it is 0, increment 03/04 else
10668 ;decrement 03/05. Do this 10 times.
10669 D3B4 CC 00 0A ... ldd #000a
10670 D3B7 ED 05 .. std 05,x
10673 D3BA EC 05 .. ldd 05,x
10674 D3BC 2F 23 /# ble 23 ; to D3E1
10675 D3BE F6 28 00 .(. ldab 2800 ;snack motor home sensors
10677 D3C2 E4 00 .. andb 00,x
10678 D3C4 26 09 &. bne d3cf
10680 D3C7 6C 04 l. inc 04,x
10681 D3C9 26 0C &. bne 0c
10682 D3CB 6C 03 l. inc 03,x
10683 D3CD 20 08 . bra d3d7
10685 D3D0 EC 03 .. ldd 03,x
10686 D3D2 83 00 01 ... subd #0001
10687 D3D5 ED 03 .. std 03,x
10689 D3D8 EC 05 .. ldd 05,x
10690 D3DA 83 00 01 ... subd #0001
10691 D3DD ED 05 .. std 05,x
10692 D3DF 20 D8 . bra loop ;d3b9
10693 D3E1 BD D1 05 ... jsr d105 ;motors_off - turn motors off
10695 D3E5 EC 03 .. ldd 03,x
10696 D3E7 2C 16 ,. bge 16
10697 D3E9 F6 00 06 ... ldab 0006
10698 D3EC 8D 7A .z bsr dest 7a
10699 D3EE 83 00 00 ... subd #0000
10700 D3F1 27 0C '. beq 0c
10701 D3F3 BD D5 61 ..a jsr d561 ;jump42
10702 D3F6 83 00 00 ... subd #0000
10703 D3F9 26 04 &. bne 04
10706 D3FD 20 64 d bra 64
10707 D3FF 7E D3 68 ~.h jmp d368 ;goto62
10709 D402 CC 00 01 ... ldd #0001
10710 D405 20 5C \ bra 5c
10712 D407 F6 00 06 ... ldab 0006
10713 D40A C1 13 .. cmpb #13
10714 D40C 27 1C '. beq 1c
10715 D40E F6 00 06 ... ldab 0006
10716 D411 C1 1D .. cmpb #1d
10717 D413 27 15 '. beq 15
10718 D415 F6 00 06 ... ldab 0006
10719 D418 C1 27 .' cmpb #27
10720 D41A 27 0E '. beq 0e
10721 D41C F6 00 06 ... ldab 0006
10722 D41F C1 31 .1 cmpb #31
10723 D421 27 07 '. beq 07
10724 D423 F6 00 06 ... ldab 0006
10725 D426 C1 3B .; cmpb #3b
10726 D428 26 37 &7 bne 37
10727 D42A BD D1 3D ..= jsr d13d ;jump34 - motor on
10728 D42D 7F 00 1C ... clr 001c
10729 D430 7F 00 18 ... clr 0018
10730 D433 F6 18 00 ... ldab 1800
10731 D436 C4 40 .@ andb #40
10732 D438 26 14 &. bne 14
10733 D43A 7C 00 1C |.. inc 001c
10734 D43D F6 00 1C ... ldab 001c
10735 D440 C1 FF .. cmpb #ff
10736 D442 26 08 &. bne 08
10737 D444 BD D1 05 ... jsr d105 ;motors_off
10738 D447 CC 00 01 ... ldd #0001
10739 D44A 20 17 . bra 17
10740 D44C 20 11 . bra 11
10741 D44E 7C 00 18 |.. inc 0018
10742 D451 F6 00 18 ... ldab 0018
10743 D454 C1 08 .. cmpb #08
10744 D456 26 07 &. bne 07
10745 D458 BD D1 05 ... jsr d105 ;motors_off
10748 D45D 20 04 . bra 04
10749 D45F 20 D2 . bra d2
10761 D46A E6 00 .. ldab 00,x
10764 D46E C3 08 00 ... addd #0800
10766 D472 EC 00 .. ldd 00,x
10768 D475 84 80 .. anda #80
10773 D479 7F 00 1C ... clr 001c
10775 D47C F6 00 1C ... ldab 001c
10776 D47F C1 64 .d cmpb #64 ; to 100
10777 D481 24 1A $. bcc 1a ; to d49d
10778 D483 CC FF 7F ... ldd #ff7f
10781 D488 F6 00 1C ... ldab 001c
10784 D48D C3 08 C8 ... addd #08c8
10787 D492 A4 00 .. anda 00,x
10788 D494 E4 01 .. andb 01,x
10789 D496 ED 00 .. std 00,x
10790 D498 7C 00 1C |.. inc 001c
10791 D49B 20 DF . bra df ; to d47c
10792 D49D 7F 00 05 ... clr 0005
10793 goto65: ; begin motor count loop
10794 D4A0 F6 00 05 ... ldab 0005
10795 D4A3 C1 50 .P cmpb #50 ; 80
10796 D4A5 25 03 %. bcs 03
10797 D4A7 7E D5 60 ~.` jmp d560 ;goto63 - exit
10798 D4AA F6 00 05 ... ldab 0005
10800 D4AE C3 B0 D3 ... addd #b0d3 ;motor lookup table
10802 D4B2 E6 00 .. ldab 00,x
10803 D4B4 F7 00 06 ... stab 0006
10804 D4B7 BD D3 11 ... jsr d311 ;jump30 - test position exists
10805 D4BA 83 00 00 ... subd #0000
10806 D4BD 27 03 '. beq 03
10807 D4BF 7E D5 45 ~.E jmp d545 ;goto64
10808 D4C2 F6 00 06 ... ldab 0006
10809 D4C5 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
10810 D4C8 83 00 00 ... subd #0000
10811 D4CB 26 78 &x bne 78
10812 D4CD BD D5 B0 ... jsr d5b0 ;jump31
10813 D4D0 83 00 00 ... subd #0000
10814 D4D3 26 06 &. bne 06
10815 D4D5 BD D1 FD ... jsr d1fd ;jump90
10816 D4D8 BD D6 3C ..< jsr d63c ;jump33
10817 D4DB CC 80 00 ... ldd #8000
10820 D4E0 F6 00 06 ... ldab 0006
10823 D4E5 C3 08 00 ... addd #0800
10826 D4EA AA 00 .. ora 00,x
10827 D4EC EA 01 .. orb 01,x
10828 D4EE ED 00 .. std 00,x
10829 D4F0 F6 00 06 ... ldab 0006
10832 D4F5 C3 08 00 ... addd #0800
10834 D4F9 EC 00 .. ldd 00,x
10835 D4FB C4 FF .. andb #ff
10836 D4FD 84 3F .? anda #3f
10837 D4FF 83 27 0F .'. subd #270f
10838 D502 23 1A #. bls 1a
10839 D504 BD D1 FD ... jsr d1fd ;jump90
10840 D507 CC 01 00 ... ldd #0100
10843 D50C F6 00 06 ... ldab 0006
10846 D511 C3 08 C8 ... addd #08c8
10849 D516 AA 00 .. ora 00,x
10850 D518 EA 01 .. orb 01,x
10851 D51A ED 00 .. std 00,x
10852 D51C 20 25 % bra 25
10853 D51E F6 00 06 ... ldab 0006
10856 D523 C3 08 C8 ... addd #08c8
10858 D527 EC 00 .. ldd 00,x
10859 D529 C4 7F .. andb #7f
10860 D52B F7 00 06 ... stab 0006
10861 D52E CC 00 80 ... ldd #0080
10864 D533 F6 00 06 ... ldab 0006
10867 D538 C3 08 C8 ... addd #08c8
10870 D53D AA 00 .. ora 00,x
10871 D53F EA 01 .. orb 01,x
10872 D541 ED 00 .. std 00,x
10873 D543 20 15 . bra 15
10874 goto64: ; mark a motor position as valid?
10875 D545 CC 7F FF ... ldd #7fff
10878 D54A F6 00 06 ... ldab 0006
10881 D54F C3 08 00 ... addd #0800
10884 D554 A4 00 .. anda 00,x
10885 D556 E4 01 .. andb 01,x
10886 D558 ED 00 .. std 00,x
10887 D55A 7C 00 05 |.. inc 0005
10888 D55D 7E D4 A0 ~.. jmp d4a0 ;goto65 - loop again
10893 D561 F6 00 06 ... ldab 0006
10896 D566 C3 08 00 ... addd #0800
10898 D56A EC 00 .. ldd 00,x
10900 D56D 84 40 .@ anda #40
10903 ;Look at the home sensor for the row of this slot. If it isn't 0 within 5
10904 ;loops, return 1 (fault?), else return 0 (OK?).
10905 ;005f is the row number in this routine. scratch variable?
10906 ;looks like 0006 is the slot number.
10907 ;this is called twice
10909 D570 F6 00 06 ... ldab 0006
10911 D574 CE 00 0A ... ldx #000a
10913 D578 F7 00 5F .._ stab 005f
10914 D57B F6 00 5F .._ ldab 005f
10915 D57E C1 05 .. cmpb #05
10916 D580 23 03 #. bls d585
10917 D582 7A 00 5F z._ dec 005f
10918 D585 F6 00 5F .._ ldab 005f ;row number
10920 D589 C3 B1 23 ..# addd #b123
10922 D58D E6 00 .. ldab 00,x ;get bit for this row
10923 D58F F7 00 5E ..^ stab 005e
10924 D592 7F 00 1C ... clr 001c
10926 D595 F6 28 00 .(. ldab 2800 ;snack motor home sensors
10927 D598 F4 00 5E ..^ andb 005e ;check home sensor for this row
10928 D59B 27 10 '. beq d5ad
10929 D59D 7C 00 1C |.. inc 001c
10930 D5A0 F6 00 1C ... ldab 001c
10931 D5A3 C1 05 .. cmpb #05
10932 D5A5 26 04 &. bne d5ab
10933 D5A7 CC 00 01 ... ldd #0001
10936 D5AB 20 E8 . bra loop ;d595
10941 ;This does almost the same - check the home sensor for this row (slot number
10942 ;is in 0006) up to 5 times. If it is 1, return 0. If it stays 0, return 0.
10943 ;(this is the reverse of the routine above). But also check bit 0 of 100a.
10944 ;If it is ever 0, return 0.
10945 ;005f is the row number
10946 ;005e is the bit mask for this row
10948 D5B0 F6 00 06 ... ldab 0006
10950 D5B4 CE 00 0A ... ldx #000a
10952 D5B8 F7 00 5F .._ stab 005f
10953 D5BB F6 00 5F .._ ldab 005f
10954 D5BE C1 05 .. cmpb #05
10955 D5C0 23 03 #. bls 03
10956 D5C2 7A 00 5F z._ dec 005f
10957 D5C5 F6 00 5F .._ ldab 005f
10959 D5C9 C3 B1 23 ..# addd #b123
10961 D5CD E6 00 .. ldab 00,x
10962 D5CF F7 00 5E ..^ stab 005e
10963 D5D2 7F 00 1C ... clr 001c
10965 D5D5 F6 28 00 .(. ldab 2800 ;snack motor home sensors
10966 D5D8 F4 00 5E ..^ andb 005e
10967 D5DB 26 17 &. bne d5f4
10968 D5DD F6 10 0A ... ldab 100a
10969 D5E0 C4 01 .. andb #01
10970 D5E2 27 10 '. beq d5f4
10971 D5E4 7C 00 1C |.. inc 001c
10972 D5E7 F6 00 1C ... ldab 001c
10973 D5EA C1 05 .. cmpb #05
10974 D5EC 26 04 &. bne d5f2
10975 D5EE CC 00 01 ... ldd #0001
10978 D5F2 20 E1 . bra loop ;d5d5
10984 D5F7 C6 07 .. ldab #07
10985 D5F9 F7 00 1C ... stab 001c
10986 D5FC 7F 00 18 ... clr 0018
10988 D5FF F6 00 1C ... ldab 001c
10989 D602 27 1E '. beq 1e ; to d620
10990 D604 7A 00 1C z.. dec 001c
10991 D607 F6 10 0A ... ldab 100a
10992 D60A C4 01 .. andb #01
10993 D60C 26 12 &. bne 12 ; to d620
10994 D60E C6 07 .. ldab #07
10995 D610 F7 00 1C ... stab 001c
10996 D613 7C 00 18 |.. inc 0018
10997 D616 F6 00 18 ... ldab 0018
10998 D619 C1 05 .. cmpb #05
10999 D61B 26 03 &. bne 03
11004 D620 20 DD . bra dd ; to d5ff
11005 D622 CC 00 01 ... ldd #0001
11009 ; ORs memory location 08c8+(slotnum*2) with #0200
11010 D626 CC 02 00 ... ldd #0200
11013 D62B F6 00 06 ... ldab 0006
11016 D630 C3 08 C8 ... addd #08c8
11019 D635 AA 00 .. ora 00,x
11020 D637 EA 01 .. orb 01,x
11021 D639 ED 00 .. std 00,x
11025 ; ORs memory location 08c8+(slotnum*2) with #0400
11026 D63C CC 04 00 ... ldd #0400
11029 D641 F6 00 06 ... ldab 0006
11032 D646 C3 08 C8 ... addd #08c8
11035 D64B AA 00 .. ora 00,x
11036 D64D EA 01 .. orb 01,x
11037 D64F ED 00 .. std 00,x
11041 ; Sends a pulse to the bill acceptor
11042 D652 CE 00 1A ... ldx #001a
11043 D655 1C 00 01 .. bset 00,x, #01
11044 D658 F6 00 1A ... ldab 001a
11045 D65B F7 30 00 .0. stab 3000
11046 D65E CE 00 14 ... ldx #0014
11047 D661 1D 00 01 .. bclr 00,x, #01
11048 D664 F6 00 14 ... ldab 0014
11049 D667 F7 38 00 .8. stab 3800
11053 D66B F6 0B C0 ... ldab 0bc0
11054 D66E C4 08 .. andb #08
11055 D670 27 07 '. beq 07
11056 D672 F6 00 7D ..} ldab 007d
11057 D675 27 02 '. beq 02
11058 D677 20 F9 . bra f9
11059 D679 F6 00 15 ... ldab 0015
11060 D67C 2D 77 -w blt 77
11061 D67E FC 00 40 ..@ ldd 0040
11062 D681 F3 00 3E ..> addd 003e
11063 D684 B3 00 0F ... subd 000f
11064 D687 24 4F $O bcc 4f
11065 D689 F6 0B C0 ... ldab 0bc0
11066 D68C C4 01 .. andb #01
11067 D68E 26 07 &. bne 07
11068 D690 F6 0B C0 ... ldab 0bc0
11069 D693 C4 04 .. andb #04
11070 D695 27 0C '. beq 0c
11071 D697 CE 00 1A ... ldx #001a
11072 D69A 1D 00 01 .. bclr 00,x, #01
11073 D69D F6 00 1A ... ldab 001a
11074 D6A0 F7 30 00 .0. stab 3000 ; changer accept' line
11075 D6A3 F6 0B C0 ... ldab 0bc0
11076 D6A6 C4 08 .. andb #08
11077 D6A8 27 20 ' beq 20
11078 D6AA F6 0C D9 ... ldab 0cd9
11079 D6AD C1 03 .. cmpb #03
11080 D6AF 23 19 #. bls 19
11081 D6B1 FC 0B EF ... ldd 0bef
11082 D6B4 83 00 64 ..d subd #0064
11083 D6B7 25 11 %. bcs 11
11084 D6B9 CE 00 14 ... ldx #0014
11085 D6BC 1C 00 02 .. bset 00,x, #02
11086 D6BF F6 00 14 ... ldab 0014
11087 D6C2 F7 38 00 .8. stab 3800 ; bill acceptor
11088 D6C5 BD C0 E0 ... jsr c0e0 ;jump94
11089 D6C8 20 0C . bra 0c
11090 D6CA CE 00 14 ... ldx #0014
11091 D6CD 1D 00 01 .. bclr 00,x, #01
11092 D6D0 F6 00 14 ... ldab 0014
11093 D6D3 F7 38 00 .8. stab 3800
11094 D6D6 20 05 . bra 05
11095 D6D8 BD D6 52 ..R jsr d652 ;jump5
11096 D6DB 8D 53 .S bsr dest 53
11097 D6DD F6 0B C0 ... ldab 0bc0
11098 D6E0 C4 08 .. andb #08
11099 D6E2 27 11 '. beq 11
11100 D6E4 F6 0B C0 ... ldab 0bc0
11101 D6E7 C4 40 .@ andb #40
11102 D6E9 27 0A '. beq 0a
11103 D6EB F6 00 15 ... ldab 0015
11104 D6EE C4 01 .. andb #01
11105 D6F0 27 03 '. beq 03
11106 D6F2 BD C0 E0 ... jsr c0e0 ;jump94
11110 ; puts (0cdb+0bdd)+(0cda*0bdf)+(0cd9*0be1) => 0bef
11111 D6F6 F6 0C DB ... ldab 0cdb
11115 D6FC FC 0B DD ... ldd 0bdd
11116 D6FF BD FB BA ... jsr fbba ;jump38 - multiply?
11117 D702 FD 0C EB ... std 0ceb ; 0cdb * 0bdd => 0ceb
11118 D705 F6 0C DA ... ldab 0cda
11122 D70B FC 0B DF ... ldd 0bdf
11123 D70E BD FB BA ... jsr fbba ;jump38 - multiply?
11124 D711 FD 0C ED ... std 0ced ; 0cda * 0bdf => 0ced
11125 D714 F6 0C D9 ... ldab 0cd9
11129 D71A FC 0B E1 ... ldd 0be1
11130 D71D BD FB BA ... jsr fbba ;jump38 - multiply?
11131 D720 FD 0C EF ... std 0cef ; 0cd9 * 0be1 => 0cef
11132 D723 FC 0C EB ... ldd 0ceb
11133 D726 F3 0C ED ... addd 0ced
11134 D729 F3 0C EF ... addd 0cef
11135 D72C FD 0B EF ... std 0bef ; 0ceb+0ced+0cef => 0bef
11139 D730 F6 00 15 ... ldab 0015
11140 D733 C4 1F .. andb #1f
11141 D735 27 49 'I beq 49
11142 D737 FC 00 40 ..@ ldd 0040
11143 D73A F3 00 3E ..> addd 003e
11144 D73D B3 0B EF ... subd 0bef
11145 D740 23 19 #. bls 19
11146 D742 CC B0 6B ..k ldd #b06b ; "NO CHANGE"
11147 D745 BD C0 BA ... jsr c0ba ;display:
11148 D748 CC 01 F4 ... ldd #01f4
11149 D74B BD E5 71 ..q jsr e571 ;msdelay
11150 D74E BD C5 D3 ... jsr c5d3 ;jump6
11151 D751 CC 01 F4 ... ldd #01f4
11152 D754 BD E5 71 ..q jsr e571 ;msdelay
11153 D757 CC 00 01 ... ldd #0001
11156 D75B F6 00 15 ... ldab 0015
11157 D75E C4 04 .. andb #04
11158 D760 27 1E '. beq 1e
11159 D762 F6 0E 6E ..n ldab 0e6e
11160 D765 26 19 &. bne 19
11161 D767 CC B0 76 ..v ldd #b076 ; "NO FIVES"
11162 D76A BD C0 BA ... jsr c0ba ;display:
11163 D76D CC 01 F4 ... ldd #01f4
11164 D770 BD E5 71 ..q jsr e571 ;msdelay
11165 D773 BD C5 D3 ... jsr c5d3 ;jump6
11166 D776 CC 01 F4 ... ldd #01f4
11167 D779 BD E5 71 ..q jsr e571 ;msdelay
11168 D77C CC 00 01 ... ldd #0001
11176 D783 F6 00 06 ... ldab 0006
11178 D787 CE 00 0A ... ldx #000a
11180 D78B C1 04 .. cmpb #04
11181 D78D 26 0E &. bne 0e
11182 D78F F6 00 1D ... ldab 001d
11183 D792 C4 04 .. andb #04
11184 D794 27 03 '. beq 03
11189 D799 CC 00 01 ... ldd #0001
11197 ; validates a slot number? (return 1 if invalid)
11198 ; let i = number on stack
11199 ; if i in [9, 69, 79, 89, 99], return 1
11200 ; if 0e6d!=1 return 0
11201 ; if i%10 not in [1,2] return 1
11202 ; if i < 11 return 1
11203 ; if i <= 62 return 0
11207 D7A2 E6 00 .. ldab 00,x
11208 D7A4 C1 09 .. cmpb #09 ; 9
11209 D7A6 27 18 '. beq 18 ; to d7c0 (returns 1)
11210 D7A8 E6 00 .. ldab 00,x
11211 D7AA C1 45 .E cmpb #45 ; 69
11212 D7AC 27 12 '. beq 12 ; to d7c0 (returns 1)
11213 D7AE E6 00 .. ldab 00,x
11214 D7B0 C1 4F .O cmpb #4f ; 79
11215 D7B2 27 0C '. beq 0c ; to d7c0 (returns 1)
11216 D7B4 E6 00 .. ldab 00,x
11217 D7B6 C1 59 .Y cmpb #59 ; 89
11218 D7B8 27 06 '. beq 06 ; to d7c0 (returns 1)
11219 D7BA E6 00 .. ldab 00,x
11220 D7BC C1 63 .c cmpb #63 ; 99 (also returns 1)
11221 D7BE 26 05 &. bne 05 ; to d7c5 if not equal
11222 D7C0 CC 00 01 ... ldd #0001
11223 D7C3 20 38 8 bra 38 ; to d7fd (return 1)
11224 D7C5 F6 0E 6D ..m ldab 0e6d
11225 D7C8 C1 01 .. cmpb #01
11226 D7CA 26 2F &/ bne 2f ;to d7fb (return 0)
11228 D7CD E6 00 .. ldab 00,x
11230 D7D0 CE 00 0A ... ldx #000a
11232 D7D4 C1 01 .. cmpb #01
11233 D7D6 27 11 '. beq 11 ;to d7e9 if num%10==1
11235 D7D9 E6 00 .. ldab 00,x
11237 D7DC CE 00 0A ... ldx #000a
11239 D7E0 C1 02 .. cmpb #02
11240 D7E2 27 05 '. beq 05 ;to d7e9 if num%10==2
11241 D7E4 CC 00 01 ... ldd #0001
11242 D7E7 20 14 . bra 14 ; to d7fd (return 1)
11244 D7EA E6 00 .. ldab 00,x
11245 D7EC C1 0B .. cmpb #0b ; < 11
11246 D7EE 25 06 %. bcs 06 ; return 1
11247 D7F0 E6 00 .. ldab 00,x
11248 D7F2 C1 3E .> cmpb #3e ; <= 62
11249 D7F4 23 05 #. bls 05 ; return 0
11250 D7F6 CC 00 01 ... ldd #0001
11251 D7F9 20 02 . bra 02
11258 D7FF 7F 00 1C ... clr 001c
11259 D802 F6 00 1C ... ldab 001c
11261 D806 B3 00 4D ..M subd 004d
11262 D809 24 05 $. bcc 05
11263 D80B 7C 00 1C |.. inc 001c
11264 D80E 20 F2 . bra f2
11265 D810 F6 00 1C ... ldab 001c
11268 D815 C3 0D 1F ... addd #0d1f
11270 D819 EC 00 .. ldd 00,x
11271 D81B 83 FF FF ... subd #ffff
11272 D81E 26 10 &. bne 10
11277 D824 F6 00 1C ... ldab 001c
11280 D829 C3 0D 1F ... addd #0d1f
11283 D82E ED 00 .. std 00,x
11284 D830 F6 00 1C ... ldab 001c
11287 D835 C3 0D 1F ... addd #0d1f
11289 D839 6C 01 l. inc 01,x
11290 D83B 26 02 &. bne 02
11291 D83D 6C 00 l. inc 00,x
11295 D840 FC 00 44 ..D ldd 0044
11296 D843 26 03 &. bne 03
11297 D845 7E D8 D2 ~.. jmp d8d2 ;goto66
11298 D848 FC 00 44 ..D ldd 0044
11305 D851 CC 0D EB ... ldd #0deb
11306 D854 BD FB DF ... jsr fbdf ;jump46
11309 D859 FE 0D ED ... ldx 0ded
11311 D85D FC 0D EB ... ldd 0deb
11314 D862 CE E1 00 ... ldx #e100
11316 D866 CC 05 F5 ... ldd #05f5
11320 D86C EC 06 .. ldd 06,x
11321 D86E A3 02 .. subd 02,x
11322 D870 EC 04 .. ldd 04,x
11323 D872 E2 01 .. sbcb 01,x
11324 D874 A2 00 .. sbca 00,x
11329 D87A 25 11 %. bcs 11
11330 D87C CE 1F 00 ... ldx #1f00
11332 D880 CC FA 0A ... ldd #fa0a
11335 D885 CC 0D EB ... ldd #0deb
11336 D888 BD FB DF ... jsr fbdf ;jump46
11339 D88D FC 00 44 ..D ldd 0044
11346 D896 CC 0D E7 ... ldd #0de7
11347 D899 BD FB DF ... jsr fbdf ;jump46
11350 D89E FE 0D E9 ... ldx 0de9
11352 D8A2 FC 0D E7 ... ldd 0de7
11355 D8A7 CE E1 00 ... ldx #e100 ; 57600
11357 D8AB CC 05 F5 ... ldd #05f5
11361 D8B1 EC 06 .. ldd 06,x
11362 D8B3 A3 02 .. subd 02,x
11363 D8B5 EC 04 .. ldd 04,x
11364 D8B7 E2 01 .. sbcb 01,x
11365 D8B9 A2 00 .. sbca 00,x
11370 D8BF 25 11 %. bcs 11
11371 D8C1 CE 1F 00 ... ldx #1f00
11373 D8C5 CC FA 0A ... ldd #fa0a
11376 D8CA CC 0D E7 ... ldd #0de7
11377 D8CD BD FB DF ... jsr fbdf ;jump46
11385 D8D3 7F 00 18 ... clr 0018
11386 D8D6 F6 00 18 ... ldab 0018
11387 D8D9 C1 10 .. cmpb #10
11388 D8DB 24 0B $. bcc 0b
11389 D8DD CC 00 32 ..2 ldd #0032
11390 D8E0 BD E5 71 ..q jsr e571 ;msdelay
11391 D8E3 7C 00 18 |.. inc 0018
11392 D8E6 20 EE . bra ee
11396 ; displays select other item
11397 D8E9 F6 00 2B ..+ ldab 002b
11398 D8EC C1 00 .. cmpb #00
11399 D8EE 26 18 &. bne 18
11400 D8F0 CC AD 84 ... ldd #ad84 ; " PULSE "
11401 D8F3 BD C0 BA ... jsr c0ba ;display:
11402 D8F6 8D DB .. bsr dest db
11403 D8F8 CC AD 8F ... ldd #ad8f ; " EXTRA "
11404 D8FB BD C0 BA ... jsr c0ba ;display:
11405 D8FE 8D D3 .. bsr dest d3
11406 D900 CC AD 9A ... ldd #ad9a ; "SELECTION"
11407 D903 BD C0 BA ... jsr c0ba ;display:
11408 D906 20 4E N bra 4e
11409 D908 C1 01 .. cmpb #01
11410 D90A 26 18 &. bne 18
11411 D90C CC AD 63 ..c ldd #ad63 ; " BITTE "
11412 D90F BD C0 BA ... jsr c0ba ;display:
11413 D912 8D BF .. bsr dest bf
11414 D914 CC AD 6E ..n ldd #ad6e ; " ANDERE "
11415 D917 BD C0 BA ... jsr c0ba ;display:
11416 D91A 8D B7 .. bsr dest b7
11417 D91C CC AD 79 ..y ldd #ad79 ; " WAHL "
11418 D91F BD C0 BA ... jsr c0ba ;display:
11419 D922 20 32 2 bra 32
11420 D924 C1 02 .. cmpb #02
11421 D926 26 18 &. bne 18
11422 D928 CC AD 42 ..B ldd #ad42 ; "FAITES"
11423 D92B BD C0 BA ... jsr c0ba ;display:
11424 D92E 8D A3 .. bsr dest a3
11425 D930 CC AD 4D ..M ldd #ad4d ; "AURTE"
11426 D933 BD C0 BA ... jsr c0ba ;display:
11427 D936 8D 9B .. bsr dest 9b
11428 D938 CC AD 58 ..X ldd #ad58 ; "CHOIX"
11429 D92B BD C0 BA ... jsr c0ba ;display:
11430 D93E 20 16 . bra 16
11431 D940 CC AD 21 ..! ldd #ad21 ; "SELECT "
11432 D943 BD C0 BA ... jsr c0ba ;display:
11433 D946 8D 8B .. bsr dest 8b
11434 D948 CC AD 2C .., ldd #ad2c ; "OTHER"
11435 D94B BD C0 BA ... jsr c0ba ;display:
11436 D94E 8D 83 .. bsr dest 83
11437 D950 CC AD 37 ..7 ldd #ad37 ; "ITEM"
11438 D953 BD C0 BA ... jsr c0ba ;display:
11439 D956 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay
11443 D95A F6 00 06 ... ldab 0006
11444 D95D F1 0B AF ... cmpb 0baf
11445 D960 26 0D &. bne 0d ; to d984
11446 D962 BD D7 FF ... jsr d7ff ;jump80
11447 D965 F6 0B B4 ... ldab 0bb4
11448 D968 F7 00 06 ... stab 0006
11449 D96B 8D 55 .U bsr 55 ;jump205
11450 D96D 20 52 R bra 52 ; exit
11451 D96F F6 00 06 ... ldab 0006
11452 D972 F1 0B AE ... cmpb 0bae
11453 D975 26 0D &. bne 0d ; to d984
11454 D977 BD D7 FF ... jsr d7ff ;jump80
11455 D97A F6 0B B3 ... ldab 0bb3
11456 D97D F7 00 06 ... stab 0006
11457 D980 8D 40 .@ bsr 40 ;jump205
11458 D982 20 3D = bra 3d
11459 D984 F6 00 06 ... ldab 0006
11460 D987 F1 0B AD ... cmpb 0bad
11461 D98A 26 0D &. bne 0d
11462 D98C BD D7 FF ... jsr d7ff ;jump80
11463 D98F F6 0B B2 ... ldab 0bb2
11464 D992 F7 00 06 ... stab 0006
11465 D995 8D 2B .+ bsr 2b ;jump205
11466 D997 20 28 ( bra 28
11467 D999 F6 00 06 ... ldab 0006
11468 D99C F1 0B AC ... cmpb 0bac
11469 D99F 26 0D &. bne 0d
11470 D9A1 BD D7 FF ... jsr d7ff ;jump80
11471 D9A4 F6 0B B1 ... ldab 0bb1
11472 D9A7 F7 00 06 ... stab 0006
11473 D9AA 8D 16 .. bsr 16 ;jump205
11474 D9AC 20 13 . bra 13
11475 D9AE F6 00 06 ... ldab 0006
11476 D9B1 F1 0B AB ... cmpb 0bab
11477 D9B4 26 0B &. bne 0b
11478 D9B6 BD D7 FF ... jsr d7ff ;jump80
11479 D9B9 F6 0B B0 ... ldab 0bb0
11480 D9BC F7 00 06 ... stab 0006
11481 D9BF 8D 01 .. bsr 01 ;jump205
11485 D9C2 CC 03 E8 ... ldd #03e8
11486 D9C5 BD E5 71 ..q jsr e571 ;msdelay
11487 D9C8 BD D7 83 ... jsr d783 ;jump44
11488 D9CB 83 00 00 ... subd #0000
11489 D9CE 27 0B '. beq 0b
11490 D9D0 7F 00 06 ... clr 0006
11493 D9D5 FD 00 4D ..M std 004d
11494 D9D8 7E DA 63 ~.c jmp da63 ;goto67
11495 D9DB BD D2 13 ... jsr d213 ;jump45
11496 D9DE 83 00 00 ... subd #0000
11497 D9E1 26 0A &. bne 0a
11498 D9E3 7F 00 06 ... clr 0006
11501 D9E8 FD 00 4D ..M std 004d
11502 D9EB 20 76 v bra 76
11503 D9ED FC 0D 0B ... ldd 0d0b
11504 D9F0 83 FF FF ... subd #ffff
11505 D9F3 26 05 &. bne 05
11508 D9F7 FD 0D 0B ... std 0d0b
11509 D9FA FE 0D 0B ... ldx 0d0b
11511 D9FE FF 0D 0B ... stx 0d0b
11512 DA01 F6 00 06 ... ldab 0006
11515 DA06 C3 08 C8 ... addd #08c8
11517 DA0A EC 00 .. ldd 00,x
11518 DA0C C4 7F .. andb #7f
11520 DA0F FD 00 4D ..M std 004d
11521 DA12 F6 00 06 ... ldab 0006
11524 DA17 C3 08 00 ... addd #0800
11526 DA1B EC 00 .. ldd 00,x
11527 DA1D C4 FF .. andb #ff
11528 DA1F 84 3F .? anda #3f
11535 DA27 CC 0D 17 ... ldd #0d17
11536 DA2A BD FB DF ... jsr fbdf ;jump46
11539 DA2F FE 0D 19 ... ldx 0d19
11541 DA33 FC 0D 17 ... ldd 0d17
11544 DA38 CE E1 00 ... ldx #e100
11546 DA3C CC 05 F5 ... ldd #05f5
11550 DA42 EC 06 .. ldd 06,x
11551 DA44 A3 02 .. subd 02,x
11552 DA46 EC 04 .. ldd 04,x
11553 DA48 E2 01 .. sbcb 01,x
11554 DA4A A2 00 .. sbca 00,x
11559 DA50 25 11 %. bcs 11
11560 DA52 CE 1F 00 ... ldx #1f00
11562 DA56 CC FA 0A ... ldd #fa0a
11565 DA5B CC 0D 17 ... ldd #0d17
11566 DA5E BD FB DF ... jsr fbdf ;jump46
11573 DA64 FE 0B B9 ... ldx 0bb9
11575 DA68 FF 0B B9 ... stx 0bb9
11576 DA6B FC 0B B5 ... ldd 0bb5
11577 DA6E CE 00 32 ..2 ldx #0032
11582 DA75 CC 00 C3 ... ldd #00c3 ; 195
11583 DA78 BD FB BA ... jsr fbba ;jump38 - multiply?
11584 DA7B B3 0B B9 ... subd 0bb9
11585 DA7E 24 05 $. bcc 05
11588 DA82 FD 0B B9 ... std 0bb9
11589 DA85 FC 0B B9 ... ldd 0bb9
11592 DA8A CC 00 0A ... ldd #000a ; 10
11593 DA8D BD FB BA ... jsr fbba ;jump38 - multiply?
11596 DA92 FC 0B B5 ... ldd 0bb5
11597 DA95 CE 00 32 ..2 ldx #0032
11606 DAA0 CC 00 0A ... ldd #000a ; 10
11607 DAA3 BD FB BA ... jsr fbba ;jump38 - multiply?
11608 DAA6 CE 00 0A ... ldx #000a
11611 DAAB FD 00 4A ..J std 004a
11612 DAAE FC 00 4A ..J ldd 004a
11613 DAB1 BD FE 32 ..2 jsr fe32 ;jump25
11614 DAB4 DA CA 00 6E ...n ; 110
11615 DAB8 DA CA 02 80 .... ; 750
11616 DABC DA CA 01 C2 .... ; 1200
11617 DAC0 DA CA 01 C2 .... ; 1650
11618 DAC4 DB 43 F9 8E .... ; 0
11619 DAC8 00 00 .. ; end of array data
11620 DACA FC 0D 07 ... ldd 0d07
11621 DACD 83 FF FF ... subd #ffff
11622 DAD0 26 05 &. bne 05
11625 DAD4 FD 0D 07 ... std 0d07
11626 DAD7 FE 0D 07 ... ldx 0d07
11628 DADB FF 0D 07 ... stx 0d07
11629 DADE F6 00 06 ... ldab 0006
11632 DAE3 C3 08 00 ... addd #0800
11634 DAE7 EC 00 .. ldd 00,x
11635 DAE9 C4 FF .. andb #ff
11636 DAEB 84 3F .? anda #3f
11643 DAF3 CC 0D 0F ... ldd #0d0f
11644 DAF6 BD FB DF ... jsr fbdf ;jump46
11647 DAFB FE 0D 11 ... ldx 0d11
11649 DAFF FC 0D 0F ... ldd 0d0f
11652 DB04 CE E1 00 ... ldx #e100
11654 DB08 CC 05 F5 ... ldd #05f5
11658 DB0E EC 06 .. ldd 06,x
11659 DB10 A3 02 .. subd 02,x
11660 DB12 EC 04 .. ldd 04,x
11661 DB14 E2 01 .. sbcb 01,x
11662 DB16 A2 00 .. sbca 00,x
11667 DB1C 25 11 %. bcs 11
11668 DB1E CE 1F 00 ... ldx #1f00
11670 DB22 CC FA 0A ... ldd #fa0a
11673 DB27 CC 0D 0F ... ldd #0d0f
11674 DB2A BD FB DF ... jsr fbdf ;jump46
11679 DB31 FD 00 44 ..D std 0044
11680 DB34 CE 00 1B ... ldx #001b
11681 DB37 1D 00 01 ... bclr 00,x, #01
11682 DB3A 7F 00 4F ..O clr 004f
11683 DB3D CE 00 11 ... ldx #0011
11684 DB40 1C 00 10 ... bset 00,x, #10
11689 DB44 F6 00 2B ..+ ldab 002b
11690 DB47 C1 00 .. cmpb #00
11691 DB49 26 08 &. bne 08
11692 DB4B CC AC DF ... ldd #acdf
11693 DB4E BD C0 BA ... jsr c0ba ;display:
11694 DB51 20 1E . bra 1e
11695 DB53 C1 01 .. cmpb #01
11696 DB55 26 08 &. bne 08
11697 DB57 CC AC D4 ... ldd #acd4 ; "CHANGE"
11698 DB5A BD C0 BA ... jsr c0ba ;display:
11699 DB5D 20 12 . bra 12
11700 DB5F C1 02 .. cmpb #02
11701 DB61 26 08 &. bne 08
11702 DB63 CC AC EA ... ldd #acea
11703 DB66 BD C0 BA ... jsr c0ba ;display:
11704 DB69 20 06 . bra 06
11705 DB6B CC AC D4 ... ldd #acd4
11706 DB6E BD C0 BA ... jsr c0ba ;display:
11707 DB71 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay
11708 DB74 CE 00 01 ... ldx #0001
11710 DB78 FC 00 40 ..@ ldd 0040
11711 DB7B F3 00 3E ..> addd 003e
11712 DB7E BD BE 9E ... jsr be9e ;jump50
11714 DB82 FC 00 40 ..@ ldd 0040
11715 DB85 27 05 '. beq 05
11716 DB87 BD C4 56 ..V jsr c456 ;jump47
11717 DB8A 20 06 . bra 06
11718 DB8C CC 02 58 ..X ldd #0258
11719 DB8F BD E5 71 ..q jsr e571 ;msdelay
11720 DB92 FC 00 3E ..> ldd 003e
11721 DB95 27 03 '. beq 03
11722 DB97 BD C5 D3 ... jsr c5d3 ;jump6
11723 DB9A F6 00 2B ..+ ldab 002b
11724 DB9D C1 00 .. cmpb #00
11725 DB9F 26 08 &. bne 08
11726 DBA1 CC AD 16 ... ldd #ad16 ; "GRACIAS"
11727 DBA4 BD C0 BA ... jsr c0ba ;display:
11728 DBA7 20 1E . bra 1e
11729 DBA9 C1 01 .. cmpb #01
11730 DBAB 26 08 &. bne 08
11731 DBAD CC AD 0B ... ldd #ad0b ; "DANKE"
11732 DBB0 BD C0 BA ... jsr c0ba ;display:
11733 DBB3 20 12 . bra 12
11734 DBB5 C1 02 .. cmpb #02
11735 DBB7 26 08 &. bne 08
11736 DBB9 CC AD 00 ... ldd #ad00 ; "MERCI"
11737 DBBC BD C0 BA ... jsr c0ba ;display:
11738 DBBF 20 06 . bra 06
11739 DBC1 CC AC F5 ... ldd #acf5 ; "THANKS"
11740 DBC4 BD C0 BA ... jsr c0ba ;display:
11741 DBC7 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay
11745 DBCB F6 00 1B ... ldab 001b
11746 DBCE C4 01 .. andb #01
11747 DBD0 26 03 &. bne 03
11748 DBD2 7E DC 98 ~.. jmp dc98 ;goto68
11749 DBD5 F6 00 06 ... ldab 0006
11752 DBDA C3 08 C8 ... addd #08c8
11754 DBDE EC 00 .. ldd 00,x
11755 DBE0 84 08 .. anda #08
11756 DBE2 26 03 &. bne 03
11757 DBE4 7E DC 98 ~.. jmp dc98 ;goto68
11758 DBE7 BD D7 FF ... jsr d7ff ;jump80
11759 DBEA CC 03 E8 ... ldd #03e8
11760 DBED BD E5 71 ..q jsr e571 ;msdelay
11761 DBF0 BD D3 46 ..F jsr d346 ;jump43
11762 DBF3 83 00 00 ... subd #0000
11763 DBF6 26 08 &. bne 08
11764 DBF8 BD D7 83 ... jsr d783 ;jump44
11765 DBFB 83 00 00 ... subd #0000
11766 DBFE 27 17 '. beq 17
11769 DC02 FD 00 4D ..M std 004d
11770 DC05 FC 00 44 ..D ldd 0044
11771 DC08 F3 0B B7 ... addd 0bb7
11773 DC0C F3 00 40 ..@ addd 0040
11774 DC0F B3 0B B7 ... subd 0bb7
11775 DC12 FD 00 40 ..@ std 0040
11776 DC15 20 78 x bra 78
11777 DC17 BD D2 13 ... jsr d213 ;jump45
11778 DC1A 83 00 00 ... subd #0000
11779 DC1D 26 17 &. bne 17
11782 DC21 FD 00 4D ..M std 004d
11783 DC24 FC 00 44 ..D ldd 0044
11784 DC27 F3 0B B7 ... addd 0bb7
11786 DC2B F3 00 40 ..@ addd 0040
11787 DC2E B3 0B B7 ... subd 0bb7
11788 DC31 FD 00 40 ..@ std 0040
11789 DC34 20 59 Y bra 59
11790 DC36 FC 0D 09 ... ldd 0d09
11791 DC39 83 FF FF ... subd #ffff
11792 DC3C 26 05 &. bne 05
11795 DC40 FD 0D 09 ... std 0d09
11796 DC43 FE 0D 09 ... ldx 0d09
11798 DC47 FF 0D 09 ... stx 0d09
11799 DC4A FC 0B B7 ... ldd 0bb7
11806 DC53 CC 0D 13 ... ldd #0d13
11807 DC56 BD FB DF ... jsr fbdf ;jump46
11810 DC5B FE 0D 15 ... ldx 0d15
11812 DC5F FC 0D 13 ... ldd 0d13
11815 DC64 CE E1 00 ... ldx #e100
11817 DC68 CC 05 F5 ... ldd #05f5
11821 DC6E EC 06 .. ldd 06,x
11822 DC70 A3 02 .. subd 02,x
11823 DC72 EC 04 .. ldd 04,x
11824 DC74 E2 01 .. sbcb 01,x
11825 DC76 A2 00 .. sbca 00,x
11830 DC7C 25 11 %. bcs 11
11831 DC7E CE 1F 00 ... ldx #1f00
11833 DC82 CC FA 0A ... ldd #fa0a
11836 DC87 CC 0D 13 ... ldd #0d13
11837 DC8A BD FB DF ... jsr fbdf ;jump46
11840 DC8F CE 00 1B ... ldx #001b
11841 DC92 1D 00 01 ... bclr 00,x, #01
11842 DC95 7F 00 4F ..O clr 004f
11844 DC98 F6 00 11 ... ldab 0011
11845 DC9B C4 08 .. andb #08
11846 DC9D 26 03 &. bne 03
11847 DC9F BD D9 5A ..Z jsr d95a ;jump123
11851 DCA3 CE 0B BC ... ldx #0bbc
11852 DCA6 1D 00 1C .. bclr 00,x, #1c
11853 DCA9 F6 0B BC .. ldab 0bbc
11854 DCAB C4 03 ... andb #03
11855 DCAE 26 48 &H bne 48
11856 DCB0 FC 0B BD ... ldd 0bbd
11863 DCB9 CC 0D F7 ... ldd #0df7
11864 DCBC BD FB DF ... jsr fbdf ;jump46
11867 DCC1 FE 0D F9 ... ldx 0df9
11869 DCC5 FC 0D F7 ... ldd 0df7
11872 DCCA CE E1 00 ... ldx #e100
11874 DCCE CC 05 F5 ... ldd #05f5
11878 DCD4 EC 06 .. ldd 06,x
11879 DCD6 A3 02 .. subd 02,x
11880 DCD8 EC 04 .. ldd 04,x
11881 DCDA E2 01 .. sbcb 01,x
11882 DCDC A2 00 .. sbca 00,x
11887 DCE2 25 11 %. bcs 11
11888 DCE4 CE 1F 00 ... ldx #1f00
11890 DCE8 CC FA 0A ... ldd #fa0a
11893 DCED CC 0D F7 ... ldd #0df7
11894 DCF0 BD FB DF ... jsr fbdf ;jump46
11897 DCF5 7E DD D4 ~.. jmp ddd4 ;goto69
11898 DCF8 F6 0B BC ... ldab 0bbc
11899 DCFB C4 03 .. andb #03
11900 DCFD C1 01 .. cmpb #01
11901 DCFF 27 03 '. beq 03
11902 DD01 7E DD D4 ~.. jmp ddd4 ;goto69
11903 DD04 F6 0B BC ... ldab 0bbc
11904 DD07 C4 E0 .. andb #e0
11910 DD0E F7 0B BC ... stab 0bbc
11911 DD11 F6 0B BC ... ldab 0bbc
11912 DD14 F1 0B C4 ... cmpb 0bc4
11913 DD17 26 33 &3 bne 33
11914 DD19 F6 0B D7 ... ldab 0bd7
11915 DD1C C1 01 .. cmpb #01
11916 DD1E 26 0A &. bne 0a
11917 DD20 7C 0C DB |.. inc 0cdb
11918 DD23 C6 03 .. ldab #03
11919 DD25 F7 00 48 ..H stab 0048
11921 DD2A F6 0B D8 ... ldab 0bd8
11922 DD2D C1 01 .. cmpb #01
11923 DD2F 26 0A &. bne 0a
11924 DD31 7C 0C DA |.. inc 0cda
11925 DD34 C6 02 .. ldab #02
11926 DD36 F7 00 48 ..H stab 0048
11927 DD39 20 0F . bra 0f
11928 DD3B F6 0B D9 ... ldab 0bd9
11929 DD3E C1 01 .. cmpb #01
11930 DD40 26 08 &. bne 08
11931 DD42 7C 0C D9 |.. inc 0cd9
11932 DD45 C6 01 .. ldab #01
11933 DD47 F7 00 48 ..H stab 0048
11934 DD4A 20 74 t bra 74
11935 DD4C F6 0B BC ... ldab 0bbc
11936 DD4F F1 0B C5 ... cmpb 0bc5
11937 DD52 26 33 &3 bne 33
11938 DD54 F6 0B D7 ... ldab 0bd7
11939 DD57 C1 04 .. cmpb #04
11940 DD59 26 0A &. bne 0a
11941 DD5B 7C 0C DB |.. inc 0cdb
11942 DD5E C6 03 .. ldab #03
11943 DD60 F7 00 48 ..H stab 0048
11945 DD65 F6 0B D8 ... ldab 0bd8
11946 DD68 C1 04 .. cmpb #04
11947 DD6A 26 0A &. bne 0a
11948 DD6C 7C 0C DA |.. inc 0cda
11949 DD6F C6 02 .. ldab #02
11950 DD71 F7 00 48 ..H stab 0048
11951 DD74 20 0F . bra 0f
11952 DD76 F6 0B D9 ... ldab 0bd9
11953 DD79 C1 04 .. cmpb #04
11954 DD7B 26 08 &. bne 08
11955 DD7D 7C 0C D9 |.. inc 0cd9
11956 DD80 C6 01 .. ldab #01
11957 DD82 F7 00 48 ..H stab 0048
11958 DD85 20 39 9 bra 39
11959 DD87 F6 0B BC ... ldab 0bbc
11960 DD8A F1 0B C6 ... cmpb 0bc6
11961 DD8D 26 31 &1 bne 31
11962 DD8F F6 0B D7 ... ldab 0bd7
11963 DD92 C1 02 .. cmpb #02
11964 DD94 26 0A &. bne 0a
11965 DD96 7C 0C DB |.. inc 0cdb
11966 DD99 C6 03 .. ldab #03
11967 DD9B F7 00 48 ..H stab 0048
11969 DDA0 F6 0B D8 ... ldab 0bd8
11970 DDA3 C1 02 .. cmpb #02
11971 DDA5 26 0A &. bne 0a
11972 DDA7 7C 0C DA |.. inc 0cda
11973 DDAA C6 02 .. ldab #02
11974 DDAC F7 00 48 ..H stab 0048
11975 DDAF 20 0F . bra 0f
11976 DDB1 F6 0B D9 ... ldab 0bd9
11977 DDB4 C1 02 .. cmpb #02
11978 DDB6 26 08 &. bne 08
11979 DDB8 7C 0C D9 |.. inc 0cd9
11980 DDBB C6 01 .. ldab #01
11981 DDBD F7 00 48 ..H stab 0048
11982 DDC0 F6 00 17 ... ldab 0017
11983 DDC3 C4 08 .. andb #08
11984 DDC5 26 0D &. bne 0d
11985 DDC7 F6 0B BC ... ldab 0bbc
11986 DDCA 26 08 &. bne 08
11987 DDCC 7C 0C DC |.. inc 0cdc
11988 DDCF C6 04 .. ldab #04
11989 DDD1 F7 00 48 ..H stab 0048
11994 DDD5 BD BE 69 ..i jsr be69 ;displayreset
11995 DDD8 C6 03 .. ldab #03
11996 DDDA F7 00 1C ... stab 001c
11997 DDDD F6 00 1C ... ldab 001c
11998 DDE0 C1 0D .. cmpb #0d
11999 DDE2 24 1C $. bcc 1c
12000 DDE4 F6 00 1C ... ldab 001c
12002 DDE8 C3 0C B9 ... addd #0cb9
12004 DDEC E6 00 .. ldab 00,x
12006 DDEF CC 0B 9C ... ldd #0b9c
12007 DDF2 F0 00 1C ... subb 001c
12008 DDF5 82 00 .. sbca #00
12011 DDF9 E7 00 .. stab 00,x
12012 DDFB 7C 00 1C |.. inc 001c
12013 DDFE 20 DD . bra dd
12014 DE00 BD BE 10 ... jsr be10 ;jump88
12015 DE03 C6 14 .. ldab #14
12016 DE05 F7 00 2C .., stab 002c
12020 DE09 CC 0B 9A ... ldd #0b9a ; machine id?
12021 DE0C BD C0 BA ... jsr c0ba ;display:
12022 DE0F C6 14 .. ldab #14
12023 DE11 F7 00 2C .., stab 002c
12027 DE15 F6 00 1B ... ldab 001b
12028 DE18 C4 01 .. andb #01
12029 DE1A 26 03 &. bne 03
12030 DE1C 7E DE A4 ~.. jmp dea4 ;goto70
12031 DE1F F6 00 06 ... ldab 0006
12034 DE24 C3 08 C8 ... addd #08c8
12036 DE28 EC 00 .. ldd 00,x
12037 DE2A 84 08 .. anda #08
12038 DE2C 27 76 'v beq 76
12039 DE2E F6 00 11 ... ldab 0011
12040 DE31 C4 08 .. andb #08
12041 DE33 26 33 &3 bne 33
12042 DE35 F6 00 06 ... ldab 0006
12043 DE38 F1 0B AF ... cmpb 0baf
12044 DE3B 27 20 ' beq 20
12045 DE3D F6 00 06 ... ldab 0006
12046 DE40 F1 0B AE ... cmpb 0bae
12047 DE43 27 18 '. beq 18
12048 DE45 F6 00 06 ... ldab 0006
12049 DE48 F1 0B AD ... cmpb 0bad
12050 DE4B 27 10 '. beq 10
12051 DE4D F6 00 06 ... ldab 0006
12052 DE50 F1 0B AC ... cmpb 0bac
12053 DE53 27 08 '. beq 08
12054 DE55 F6 00 06 ... ldab 0006
12055 DE58 F1 0B AB ... cmpb 0bab
12056 DE5B 26 0B &. bne 0b
12057 DE5D CE 00 1B ... ldx #001b
12058 DE60 1D 00 01 ... bclr 00,x, #01
12059 DE63 7F 00 4F ..O clr 004f
12060 DE66 20 3C < bra 3c
12061 DE68 FC 00 44 ..D ldd 0044
12062 DE6B B3 0B B7 ... subd 0bb7
12063 DE6E 23 2B #+ bls 2b
12064 DE70 FC 00 40 ..@ ldd 0040
12065 DE73 F3 00 3E ..> addd 003e
12068 DE78 FC 00 44 ..D ldd 0044
12069 DE7B B3 0B B7 ... subd 0bb7
12070 DE7E F3 00 44 ..D addd 0044
12072 DE82 A3 00 .. subd 00,x
12075 DE86 22 13 ". bhi 13
12076 DE88 FC 0B B7 ... ldd 0bb7
12077 DE8B 27 0E '. beq 0e
12078 DE8D FC 00 44 ..D ldd 0044
12079 DE90 B3 0B B7 ... subd 0bb7
12080 DE93 F3 00 44 ..D addd 0044
12081 DE96 FD 00 44 ..D std 0044
12082 DE99 20 09 . bra 09
12083 DE9B CE 00 1B ... ldx #001b
12084 DE9E 1D 00 01 ... bclr 00,x, #01
12085 DEA1 7F 00 4F ..O clr 004f
12090 ; machine out of order display?
12091 DEA5 F6 00 2B ..+ ldab 002b
12092 DEA8 C1 00 .. cmpb #00
12093 DEAA 26 0D &. bne 0d
12094 DEAC CE 00 12 ... ldx #0012
12096 DEB0 CC AE 7E ..~ ldd #ae7e
12097 DEB3 BD C0 2E ... jsr c02e ;jump71
12099 DEB7 20 2D - bra 2d
12100 DEB9 C1 01 .. cmpb #01
12101 DEBB 26 0D &. bne 0d
12102 DEBD CE 00 0F ... ldx #000f
12104 DEC1 CC AE 6D ..m ldd #ae6d ; something german
12105 DEC4 BD C0 2E ... jsr c02e ;jump71
12107 DEC8 20 1C . bra 1c
12108 DECA C1 02 .. cmpb #02
12109 DECC 26 0D &. bne 0d
12110 DECE CE 00 10 ... ldx #0010
12112 DED2 CC AE 5B ..[ ldd #ae5b ; more german
12113 DED5 BD C0 2E ... jsr c02e ;jump71
12115 DED9 20 0B . bra 0b
12116 DEDB CE 00 15 ... ldx #0015
12118 DEDF CC AE 44 ..D ldd #ae44 ; "MACHINE OUT OF ORDER"
12119 DEE2 BD C0 2E ... jsr c02e ;jump71
12124 ; revolves around coinage
12125 DEE7 F6 0B C0 ... ldab 0bc0
12126 DEEA C4 01 .. andb #01
12127 DEEC 26 07 &. bne 07
12128 DEEE F6 0B C0 ... ldab 0bc0
12129 DEF1 C4 04 .. andb #04
12130 DEF3 27 15 '. beq 15
12131 DEF5 C6 FF .. ldab #ff
12132 DEF7 F7 0B BC ... stab 0bbc
12133 DEFA F6 00 15 ... ldab 0015
12134 DEFD 2D 03 -. blt 03
12135 DEFF BD C6 7D ..} jsr c67d ;jump124 - chat to changer
12136 DF02 BD D6 6B ..k jsr d66b ;jump107 - chat to bill acceptor
12137 DF05 BD DC A3 ... jsr dca3 ;jump29
12138 DF08 20 25 % bra 25
12139 DF0A F6 0B C0 ... ldab 0bc0
12140 DF0D C4 02 .. andb #02
12141 DF0F 27 1E '. beq 1e
12142 DF11 F6 00 2F ../ ldab 002f
12143 DF14 26 19 &. bne 19
12144 DF16 F6 00 1B ... ldab 001b
12145 DF19 C4 02 .. andb #02
12146 DF1B 26 12 &. bne 12
12147 DF1D CC 00 FF ... ldd #00ff
12148 DF20 BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
12149 DF23 CE 00 1B ... ldx #001b
12150 DF26 1C 00 02 .. bset 00,x, #02
12151 DF29 CE 0B C1 ... ldx #0bc1
12152 DF2C 1C 00 04 .. bset 00,x, #04
12153 DF2F F6 00 21 ..! ldab 0021
12154 DF32 C4 20 . andb #20
12155 DF34 27 07 '. beq 07
12157 DF36 BD D6 52 ..R jsr d652 ;jump5 - pulse bill acceptor
12158 DF39 BD DE A5 ... jsr dea5 ;jump117 - machine out of order?
12161 DF3D F6 00 4F ..O ldab 004f
12162 DF40 26 06 &. bne 06
12163 DF42 CE 00 1B ... ldx #001b
12164 DF45 1D 00 01 ... bclr 00,x, #01
12165 DF48 F6 00 25 ..% ldab 0025
12166 DF4B 26 20 & bne 20
12167 DF4D F6 00 1B ... ldab 001b
12168 DF50 C4 40 .@ andb #40
12169 DF52 27 19 '. beq 19
12170 DF54 BD D6 52 ..R jsr d652 ;jump5
12171 DF57 FC 00 40 ..@ ldd 0040
12172 DF5A 26 05 &. bne 05
12173 DF5C FC 00 3E ..> ldd 003e
12174 DF5F 27 03 '. beq 03
12175 DF61 BD DB 44 ..D jsr db44 ;jump104
12176 DF64 BD D6 6B ..k jsr d66b ;jump107
12177 DF67 CE 00 1B ... ldx #001b
12178 DF6A 1D 00 40 ... bclr 00,x, #40
12179 DF6D F6 00 2C .., ldab 002c
12180 DF70 27 03 '. beq 03
12181 DF72 7E E0 66 ~.f jmp e066 ;goto71
12182 DF75 F6 00 34 ..4 ldab 0034
12183 DF78 26 0B &. bne 0b
12184 DF7A BD BE 69 ..i jsr be69 ;displayreset
12185 DF7D C6 32 .2 ldab #32
12186 DF7F F7 00 34 ..4 stab 0034
12187 DF82 7E E0 63 ~.c jmp e063 ;goto72
12188 DF85 FC 00 40 ..@ ldd 0040
12189 DF88 26 05 &. bne 05
12190 DF8A FC 00 3E ..> ldd 003e
12191 DF8D 27 16 '. beq 16
12192 DF8F CE 00 01 ... ldx #0001
12194 DF93 FC 00 40 ..@ ldd 0040
12195 DF96 F3 00 3E ..> addd 003e
12196 DF99 BD BE 9E ... jsr be9e ;jump50
12198 DF9D C6 05 .. ldab #05
12199 DF9F F7 00 2C .., stab 002c
12200 DFA2 7E E0 63 ~.c jmp e063 ;goto72
12201 DFA5 F6 0C D9 ... ldab 0cd9
12202 DFA8 C1 04 .. cmpb #04
12203 DFAA 24 07 $. bcc 07
12204 DFAC F6 0B C0 ... ldab 0bc0
12205 DFAF C4 01 .. andb #01
12206 DFB1 26 07 &. bne 07
12207 DFB3 F6 00 21 ..! ldab 0021
12208 DFB6 C4 40 .@ andb #40
12209 DFB8 27 43 'C beq 43
12210 DFBA F6 00 2B ..+ ldab 002b
12211 DFBD C1 00 .. cmpb #00
12212 DFBF 26 0D &. bne 0d
12213 DFC1 CE 00 19 ... ldx #0019
12215 DFC5 CC AD E7 ... ldd #ade7 ; "INTRODUZCA"
12216 DFC8 BD C0 2E ... jsr c02e ;jump71
12218 DFCC 20 2D - bra 2d
12219 DFCE C1 01 .. cmpb #01
12220 DFD0 26 0D &. bne 0d
12221 DFD2 CE 00 12 ... ldx #0012
12223 DFD6 CC AD D3 ... ldd #add3 ; "NICT UEBERZAHLEN"
12224 DFD9 BD C0 2E ... jsr c02e ;jump71
12226 DFDD 20 1C . bra 1c
12227 DFDF C1 02 .. cmpb #02
12228 DFE1 26 0D &. bne 0d
12229 DFE3 CE 00 19 ... ldx #0019
12231 DFE7 CC AD B8 ... ldd #adb8 ; "MONNAIE EXACT"
12232 DFEA BD C0 2E ... jsr c02e ;jump71
12234 DFEE 20 0B . bra 0b
12235 DFF0 CE 00 11 ... ldx #0011 ; length of
12237 DFF4 CC AD A5 ... ldd #ada5 ; " EXACT COINS ONLY "
12238 DFF7 BD C0 2E ... jsr c02e ;jump71 - display
12240 DFFB 20 66 f bra 66
12241 DFFD F6 0B C0 ... ldab 0bc0
12242 E000 C4 08 .. andb #08
12243 E002 27 52 'R beq 52
12244 E004 F6 0B C1 ... ldab 0bc1
12245 E007 C4 08 .. andb #08
12246 E009 26 08 &. bne 08
12247 E00B FC 0B EF ... ldd 0bef
12248 E00E 83 00 64 ..d subd #0064
12249 E011 24 43 $C bcc 43
12250 E013 F6 00 2B ..+ ldab 002b
12251 E016 C1 00 .. cmpb #00
12252 E018 26 0D &. bne 0d
12253 E01A CE 00 12 ... ldx #0012
12255 E01E CC AE 30 ..0 ldd #ae30 ; "MONEDA UNICAMENTE"
12256 E021 BD C0 2E ... jsr c02e ;jump71
12258 E025 20 2D - bra 2d
12259 E027 C1 01 .. cmpb #01
12260 E029 26 0D &. bne 0d
12261 E02B CE 00 0B ... ldx #000b
12263 E02F CC AE 23 ..# ldd #ae23 ; "NUR MUNZEN"
12264 E032 BD C0 2E ... jsr c02e ;jump71
12266 E036 20 1C . bra 1c
12267 E038 C1 02 .. cmpb #02
12268 E03A 26 0D &. bne 0d
12269 E03C CE 00 12 ... ldx #0012
12271 E040 CC AE 0F ... ldd #ae0f ; "MONNAIES SEULEMENT"
12272 E043 BD C0 2E ... jsr c02e ;jump71
12274 E047 20 0B . bra 0b
12275 E049 CE 00 0B ... ldx #000b
12277 E04D CC AE 02 ... ldd #ae02 ; "COINS ONLY"
12278 E050 BD C0 2E ... jsr c02e ;jump71
12280 E054 20 0D . bra 0d
12281 E056 F6 0B BF ... ldab 0bbf
12285 E05C CC 09 93 ... ldd #0993 ; some custom message?
12286 E05F BD C0 2E ... jsr c02e ;jump71
12289 E063 7E E5 6A ~.j jmp e56a ;goto73
12291 E066 F6 00 06 ... ldab 0006
12292 E069 26 03 &. bne 03
12293 E06B 7E E5 6A ~.j jmp e56a ;goto73
12294 E06E CE 00 1D ... ldx #001d
12295 E071 1C 00 40 ... bset 00,x, #40
12296 E074 BD E7 C7 ... jsr e7c7 ;jump114
12297 E077 F6 00 06 ... ldab 0006
12298 E07A C1 59 .Y cmpb #59 ; 89
12299 E07C 26 06 &. bne 06
12300 E07E BD DE 09 ... jsr de09 ;jump119
12301 E081 7E E5 5E ~.^ jmp e55e ;goto74
12302 E084 F6 00 06 ... ldab 0006
12303 E087 BD D4 68 ..h jsr d468 ;jump51
12304 E08A 83 00 00 ... subd #0000
12305 E08D 27 18 '. beq 18
12306 E08F BD D5 61 ..a jsr d561 ;jump42
12307 E092 83 00 00 ... subd #0000
12308 E095 26 10 &. bne 10
12309 E097 BD D3 46 ..F jsr d346 ;jump43
12310 E09A 83 00 00 ... subd #0000
12311 E09D 26 08 &. bne 08
12312 E09F BD D7 83 ... jsr d783 ;jump44
12313 E0A2 83 00 00 ... subd #0000
12314 E0A5 27 09 '. beq 09
12315 E0A7 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
12316 E0AA BD D8 E9 ... jsr d8e9 ;jump92
12317 E0AD 7E E5 5E ~.^ jmp e55e ;goto74
12318 E0B0 F6 00 06 ... ldab 0006
12321 E0B5 C3 08 00 ... addd #0800
12323 E0B9 EC 00 .. ldd 00,x
12324 E0BB C4 FF .. andb #ff
12325 E0BD 84 3F .? anda #3f
12326 E0BF FD 00 44 ..D std 0044
12327 E0C2 F6 00 06 ... ldab 0006
12330 E0C7 C3 08 C8 ... addd #08c8
12332 E0CB EC 00 .. ldd 00,x
12333 E0CD C4 7F .. andb #7f
12335 E0D0 FD 00 4D ..M std 004d
12336 E0D3 F6 0B C0 ... ldab 0bc0
12337 E0D6 2C 05 ,. bge 05
12340 E0DA FD 00 44 ..D std 0044
12341 E0DD F6 0B C0 ... ldab 0bc0
12342 E0E0 C4 02 .. andb #02
12343 E0E2 26 03 &. bne 03
12344 E0E4 BD DE 15 ... jsr de15 ;dump118
12345 E0E7 F6 00 11 ... ldab 0011
12346 E0EA C4 20 . andb #20
12347 E0EC 26 1A &. bne 1a
12348 E0EE F6 0B C0 ... ldab 0bc0
12349 E0F1 C4 02 .. andb #02
12350 E0F3 26 13 &. bne 13
12351 E0F5 FC 00 40 ..@ ldd 0040
12352 E0F8 F3 00 3E ..> addd 003e
12353 E0FB B3 00 44 ..D subd 0044
12354 E0FE 25 08 %. bcs 08
12355 E100 F6 0B C0 ... ldab 0bc0
12356 E103 2D 03 -. blt 03
12357 E105 BD DA 64 ..d jsr da64 ;jump122
12358 E108 FC 00 40 ..@ ldd 0040
12359 E10B F3 00 3E ..> addd 003e
12360 E10E B3 00 44 ..D subd 0044
12361 E111 24 50 $P bcc 50
12362 E113 F6 0B C0 ... ldab 0bc0
12363 E116 C4 10 .. andb #10
12364 E118 26 49 &I bne 49
12365 E11A F6 00 2B ..+ ldab 002b
12366 E11D C1 00 .. cmpb #00
12367 E11F 26 08 &. bne 08
12368 E121 CC AC C9 ... ldd #acc9 ; "PRECIO"
12369 E124 BD C0 BA ... jsr c0ba ;display:
12370 E127 20 1E . bra 1e
12371 E129 C1 01 .. cmpb #01
12372 E12B 26 08 &. bne 08
12373 E12D CC AC BE ... ldd #acbe ; "PREIS"
12374 E130 BD C0 BA ... jsr c0ba ;display:
12375 E133 20 12 . bra 12
12376 E135 C1 02 .. cmpb #02
12377 E137 26 08 &. bne 08
12378 E139 CC AC B3 ... ldd #acb3 ; "PRIX"
12379 E13C BD C0 BA ... jsr c0ba ;display:
12380 E13F 20 06 . bra 06
12381 E141 CC AC A8 ... ldd #aca8 ; "PRICE"
12382 E144 BD C0 BA ... jsr c0ba ;display:
12383 E147 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay
12384 E14A CE 00 00 ... ldx #0000
12386 E14E FC 00 44 ..D ldd 0044
12387 E151 BD BE 9E ... jsr be9e ;jump50
12389 E155 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
12390 E158 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay
12391 E15B C6 0C .. ldab #0c
12392 E15D F7 00 2C .., stab 002c
12393 E160 7E E5 5E ~.^ jmp e55e ;goto74
12394 E163 F6 0B C0 ... ldab 0bc0
12395 E166 C4 01 .. andb #01
12396 E168 26 11 &. bne 11
12397 E16A F6 0B C0 ... ldab 0bc0
12398 E16D C4 04 .. andb #04
12399 E16F 26 0A &. bne 0a
12400 E171 F6 0B C0 ... ldab 0bc0
12401 E174 C4 0F .. andb #0f
12402 E176 27 03 '. beq 03
12403 E178 7E E3 35 ~.5 jmp e335 ;goto75
12404 E17B FC 00 40 ..@ ldd 0040
12405 E17E F3 00 3E ..> addd 003e
12406 E181 B3 00 44 ..D subd 0044
12407 E184 FD 10 16 ... std 1016
12408 E187 F6 00 15 ... ldab 0015
12409 E18A C4 01 .. andb #01
12410 E18C 27 08 '. beq 08
12411 E18E FC 10 16 ... ldd 1016
12412 E191 83 00 64 ..d subd #0064
12413 E194 25 3C %< bcs 3c
12414 E196 F6 00 15 ... ldab 0015
12415 E199 C4 02 .. andb #02
12416 E19B 27 08 '. beq 08
12417 E19D FC 10 16 ... ldd 1016
12418 E1A0 83 00 C8 ... subd #00c8
12419 E1A3 25 2D %- bcs 2d
12420 E1A5 F6 00 15 ... ldab 0015
12421 E1A8 C4 04 .. andb #04
12422 E1AA 27 08 '. beq 08
12423 E1AC FC 10 16 ... ldd 1016
12424 E1AF 83 01 F4 ... subd #01f4
12425 E1B2 25 1E %. bcs 1e
12426 E1B4 F6 00 15 ... ldab 0015
12427 E1B7 C4 08 .. andb #08
12428 E1B9 27 08 '. beq 08
12429 E1BB FC 10 16 ... ldd 1016
12430 E1BE 83 03 E8 ... subd #03e8
12431 E1C1 25 0F %. bcs 0f
12432 E1C3 F6 00 15 ... ldab 0015
12433 E1C6 C4 10 .. andb #10
12434 E1C8 27 13 '. beq 13
12435 E1CA FC 10 16 ... ldd 1016
12436 E1CD 83 07 D0 ... subd #07d0
12437 E1D0 24 0B $. bcc 0b
12438 E1D2 BD C0 E0 ... jsr c0e0 ;jump94
12439 E1D5 83 00 00 ... subd #0000
12440 E1D8 26 01 &. bne 01
12444 E1DB 20 03 . bra 03
12445 E1DD BD C5 D3 ... jsr c5d3 ;jump6
12446 E1E0 BD D6 52 ..R jsr d652 ;jump5
12447 E1E3 FC 00 40 ..@ ldd 0040
12448 E1E6 B3 00 44 ..D subd 0044
12449 E1E9 F3 00 3E ..> addd 003e
12450 E1EC FD 00 40 ..@ std 0040
12453 E1F1 FD 00 3E ..> std 003e
12454 E1F4 CE 00 1B ... ldx #001b
12455 E1F7 1C 00 80 .. bset 00,x, #80
12456 E1F9 BD D2 13 .. jsr d213 ;jump45
12457 E1FC 83 00 00 ... subd #0000
12458 E200 26 12 &. bne 12
12459 E202 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
12460 E205 BD D8 E9 ... jsr d8e9 ;jump92 - "SELECT OTHER ITEM"
12461 E208 FC 00 40 ..@ ldd 0040
12462 E20B F3 00 44 ..D addd 0044
12463 E20E FD 00 40 ..@ std 0040
12464 E211 7E E3 29 ~.) jmp e329 ;goto92
12465 E214 BD DB CB ... jsr dbcb ;jump121
12466 E217 F6 00 1B ... ldab 001b
12467 E21A C4 20 . andb #20
12468 E21C 27 45 'E beq 45
12469 E21E FC 00 44 ..D ldd 0044
12476 E227 CC 0D FB ... ldd #0dfb
12477 E22A BD FB DF ... jsr fbdf ;jump46
12480 E22F FE 0D FD ... ldx 0dfd
12482 E233 FC 0D FB ... ldd 0dfb
12485 E238 CE E1 00 ... ldx #e100
12487 E23C CC 05 F5 ... ldd #05f5
12491 E242 EC 06 .. ldd 06,x
12492 E244 A3 02 .. subd 02,x
12493 E246 EC 04 .. ldd 04,x
12494 E248 E2 01 .. sbcb 01,x
12495 E24A A2 00 .. sbca 00,x
12500 E250 25 11 %. bcs 11
12501 E252 CE 1F 00 ... ldx #1f00
12503 E256 CC FA 0A ... ldd #fa0a
12506 E25B CC 0D FB ... ldd #0dfb
12507 E25E BD FB DF ... jsr fbdf ;jump46
12510 E263 F6 0B C0 ... ldab 0bc0
12511 E266 2C 78 ,x bge 78
12512 E268 F6 00 06 ... ldab 0006
12515 E26D C3 08 00 ... addd #0800
12517 E271 EC 00 .. ldd 00,x
12518 E273 C4 FF .. andb #ff
12519 E275 26 02 &. bne 02
12520 E277 84 3F .? anda #3f
12521 E279 27 65 'e beq 65
12522 E27B FC 0D 0D ... ldd 0d0d
12523 E27E 83 FF FF ... subd #ffff
12524 E281 26 05 &. bne 05
12527 E285 FD 0D 0D ... std 0d0d
12528 E288 FE 0D 0D ... ldx 0d0d
12530 E28C FF 0D 0D ... stx 0d0d
12531 E28F F6 00 06 ... ldab 0006
12534 E294 C3 08 00 ... addd #0800
12536 E298 EC 00 .. ldd 00,x
12537 E29A C4 FF .. andb #ff
12538 E29C 84 3F .? anda #3f
12545 E2A4 CC 0D 1B ... ldd #0d1b
12546 E2A7 BD FB DF ... jsr fbdf ;jump46
12549 E2AC FE 0D 1D ... ldx 0d1d
12551 E2B0 FC 0D 1B ... ldd 0d1b
12554 E2B5 CE E1 00 ... ldx #e100
12556 E2B9 CC 05 F5 ... ldd #05f5
12560 E2BF EC 06 .. ldd 06,x
12561 E2C1 A3 02 .. subd 02,x
12562 E2C3 EC 04 .. ldd 04,x
12563 E2C5 E2 01 .. sbcb 01,x
12564 E2C7 A2 00 .. sbca 00,x
12569 E2CD 25 11 %. bcs 11
12570 E2CF CE 1F 00 ... ldx #1f00
12572 E2D3 CC FA 0A ... ldd #fa0a
12575 E2D8 CC 0D 1B ... ldd #0d1b
12576 E2DB BD FB DF ... jsr fbdf ;jump46
12579 E2E0 F6 00 11 ... ldab 0011
12580 E2E3 C4 10 .. andb #10
12581 E2E5 26 14 &. bne 14
12582 E2E7 FC 00 40 ..@ ldd 0040
12583 E2EA 27 0F '. beq 0f
12584 E2EC FC 00 40 ..@ ldd 0040
12585 E2EF B3 00 50 ..P subd 0050
12586 E2F2 24 15 $. bcc 15
12587 E2F4 F6 00 11 ... ldab 0011
12588 E2F7 C4 10 .. andb #10
12589 E2F9 26 0E &. bne 0e
12590 E2FB BD DB 44 ..D jsr db44 ;jump104
12591 E2FE CE 00 1B ... ldx #001b
12592 E301 1D 00 40 ... bclr 00,x, #40
12593 E304 7F 00 25 ..% clr 0025
12594 E307 20 1A . bra 1a
12595 E309 7F 00 2C .., clr 002c
12596 E30C CC 01 F4 ... ldd #01f4
12597 E30F BD E5 71 ..q jsr e571 ;msdelay
12598 E312 BD E5 AA ... jsr e5aa ;jump12
12599 E315 BD D8 E9 ... jsr d8e9 ;jump92
12600 E318 CE 00 1B ... ldx #001b
12601 E31B 1C 00 40 ... bset 00,x, #40
12602 E31E C6 0A .. ldab #0a
12603 E320 F7 00 25 ..% stab 0025
12604 E323 BD D7 FF ... jsr d7ff ;jump80
12605 E326 BD D8 40 ..@ jsr d840 ;jump105
12607 E329 BD E8 9A ... jsr e89a ;jump68
12608 E32C CE 0B C1 ... ldx #0bc1
12609 E32F 1D 00 08 ... bclr 00,x, #08
12610 E332 7E E5 5E ~.^ jmp e55e ;goto74
12612 E335 F6 0B C0 ... ldab 0bc0
12613 E338 C4 02 .. andb #02
12614 E33A 26 03 &. bne 03
12615 E33C 7E E5 5E ~.^ jmp e55e ;goto74
12618 E341 FD 00 76 ..v std 0076
12619 E344 CE 00 17 ... ldx #0017
12620 E347 1D 00 01 ... bclr 00,x, #01
12621 E34A CE 00 17 ... ldx #0017
12622 E34D 1D 00 02 ... bclr 00,x, #02
12623 E350 FC 00 44 ..D ldd 0044
12624 E353 26 1C &. bne 1c
12625 E355 F6 0B C0 ... ldab 0bc0
12626 E358 C4 10 .. andb #10
12627 E35A 26 08 &. bne 08
12628 E35C CE 00 21 ..! ldx #0021
12629 E35F 1C 00 .. bset add,x 00,x
12630 E361 80 20 . suba #20
12632 E364 CE 00 21 ..! ldx #0021
12633 E367 1D 00 .. bclr add,x 00,x
12634 E369 80 C6 .. suba #c6
12636 E36C F7 00 75 ..u stab 0075
12637 E36F 20 57 W bra 57
12638 E371 F6 0B C0 ... ldab 0bc0
12639 E374 C4 10 .. andb #10
12640 E376 27 50 'P beq 50
12641 E378 FC 00 40 ..@ ldd 0040
12642 E37B 26 4B &K bne 4b
12643 E37D F6 0B C0 ... ldab 0bc0
12644 E380 C4 20 . andb #20
12645 E382 27 3E '> beq 3e
12646 E384 CE 00 17 ... ldx #0017
12647 E387 1C 00 01 ... bset 00,x, #01
12648 E38A F6 00 2B ..+ ldab 002b
12649 E38D C1 00 .. cmpb #00
12650 E38F 26 08 &. bne 08
12651 E391 CC AC C9 ... ldd #acc9 ; " PRECIO "
12652 E394 BD C0 BA ... jsr c0ba ;display:
12653 E397 20 1E . bra 1e
12654 E399 C1 01 .. cmpb #01
12655 E39B 26 08 &. bne 08
12656 E39D CC AC BE ... ldd #acbe ; " PRIES "
12657 E3A0 BD C0 BA ... jsr c0ba ;display:
12658 E3A3 20 12 . bra 12
12659 E3A5 C1 02 .. cmpb #02
12660 E3A7 26 08 &. bne 08
12661 E3A9 CC AC B3 ... ldd #acb3 ; " PRIX "
12662 E3AC BD C0 BA ... jsr c0ba ;display:
12663 E3AF 20 06 . bra 06
12664 E3B1 CC AC A8 ... ldd #aca8 ; " PRICE "
12665 E3B4 BD C0 BA ... jsr c0ba ;display:
12666 E3B7 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay
12667 E3BA CE 00 17 ... ldx #0017
12668 E3BD 1C 00 02 ... bset 00,x, #02
12669 E3C0 20 06 . bra 06
12670 E3C2 CE 00 1F ... ldx #001f
12671 E3C5 1C 00 08 ... bset 00,x, #08
12672 E3C8 CE 00 1D ... ldx #001d
12673 E3CB 1C 00 02 ... bset 00,x, #02
12674 E3CE CE 00 19 ... ldx #0019
12675 E3D1 1C 00 08 ... bset 00,x, #08
12676 E3D4 C6 32 .2 ldab #32
12677 E3D6 F7 00 31 ..1 stab 0031
12678 E3D9 C6 19 .. ldab #19
12679 E3DB F7 00 36 ..6 stab 0036
12681 E3DE F6 00 1D ... ldab 001d
12682 E3E1 C4 02 .. andb #02
12683 E3E3 26 03 &. bne 03
12684 E3E5 7E E4 6E ~.n jmp e46e ;goto76
12685 E3E8 F6 00 75 ..u ldab 0075
12686 E3EB C1 04 .. cmpb #04
12687 E3ED 22 05 ". bhi 05
12688 E3EF F6 00 36 ..6 ldab 0036
12689 E3F2 26 3C &< bne 3c
12690 E3F4 7F 00 06 ... clr 0006
12693 E3F9 FD 00 76 ..v std 0076
12694 E3FC 7F 00 2E ... clr 002e
12695 E3FF 7F 00 2C .., clr 002c
12696 E402 7F 00 75 ..u clr 0075
12697 E405 CE 00 17 ... ldx #0017
12698 E408 1D 00 01 ... bclr 00,x, #01
12699 E40B CE 00 19 ... ldx #0019
12700 E40E 1D 00 08 ... bclr 00,x, #08
12701 E411 CE 00 1B ... ldx #001b
12702 E414 1D 00 .. bclr add,x 00,x
12703 E416 80 CE .. suba #ce
12705 E419 1D 1D 00 ... bclr 1d,x, #00
12707 E41D CE 00 1D ... ldx #001d
12708 E420 1D 00 02 ... bclr 00,x, #02
12709 E423 CE 00 1F ... ldx #001f
12710 E426 1D 00 08 ... bclr 00,x, #08
12711 E429 CE 00 21 ..! ldx #0021
12712 E42C 1D 00 .. bclr add,x 00,x
12713 E42E 80 39 .9 suba #39
12714 E430 F6 0B C0 ... ldab 0bc0
12715 E433 C4 20 . andb #20
12716 E435 27 34 '4 beq 34
12717 E437 F6 00 17 ... ldab 0017
12718 E43A C4 01 .. andb #01
12719 E43C 26 2D &- bne 2d
12720 E43E F6 00 17 ... ldab 0017
12721 E441 C4 02 .. andb #02
12722 E443 27 26 '& beq 26
12723 E445 CE 00 00 ... ldx #0000
12725 E449 FC 00 76 ..v ldd 0076
12726 E44C BD BE 9E ... jsr be9e ;jump50
12728 E450 FC 00 76 ..v ldd 0076
12729 E453 26 06 &. bne 06
12730 E455 CE 00 17 ... ldx #0017
12731 E458 1D 00 02 ... bclr 00,x, #02
12732 E45B F6 00 17 ... ldab 0017
12733 E45E C4 02 .. andb #02
12734 E460 27 09 '. beq 09
12735 E462 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
12736 E465 CE 00 17 ... ldx #0017
12737 E468 1D 00 02 ... bclr 00,x, #02
12738 E46B 7E E3 DE ~.. jmp e3de ;goto77
12740 E46E CE 00 21 ..! ldx #0021
12741 E471 1D 00 .. bclr add,x 00,x
12742 E473 80 CE .. suba #ce
12744 E476 1F 1D 00 08 .... brclr 1d,x 00 08
12745 E47A BD D2 13 ... jsr d213 ;jump45
12746 E47D 83 00 00 ... subd #0000
12747 E480 26 0F &. bne 0f
12748 E482 CC 00 80 ... ldd #0080
12749 E485 BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
12750 E488 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
12751 E48B BD D8 E9 ... jsr d8e9 ;jump92
12752 E48E 7E E5 5E ~.^ jmp e55e ;goto74
12753 E491 F6 00 2B ..+ ldab 002b
12754 E494 C1 00 .. cmpb #00
12755 E496 26 08 &. bne 08
12756 E498 CC AD 16 ... ldd #ad16 ; "GRACIAS"
12757 E49B BD C0 BA ... jsr c0ba ;display:
12758 E49E 20 1E . bra 1e
12759 E4A0 C1 01 .. cmpb #01
12760 E4A2 26 08 &. bne 08
12761 E4A4 CC AD 0B ... ldd #ad0b ; "DANKE"
12762 E4A7 BD C0 BA ... jsr c0ba ;display:
12763 E4AA 20 12 . bra 12
12764 E4AC C1 02 .. cmpb #02
12765 E4AE 26 08 &. bne 08
12766 E4B0 CC AD 00 ... ldd #ad00 ; "MERCI"
12767 E4B3 BD C0 BA ... jsr c0ba ;display:
12768 E4B6 20 06 . bra 06
12769 E4B8 CC AC F5 ... ldd #acf5 ; "THANKS"
12770 E4BB BD C0 BA ... jsr c0ba ;display:
12771 E4BE BD D8 D3 ... jsr d8d3 ;jump84 500ms delay
12772 E4C1 CE 00 01 ... ldx #0001
12774 E4C5 FC 00 40 ..@ ldd 0040
12775 E4C8 BD BE 9E ... jsr be9e ;jump50
12779 E4CE BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
12780 E4D1 F6 0B C0 ... ldab 0bc0
12781 E4D4 2D 03 -. blt 03
12782 E4D6 7E E5 58 ~.X jmp e558 ;goto78
12783 E4D9 F6 0B C0 ... ldab 0bc0
12784 E4DC C4 10 .. andb #10
12785 E4DE 26 78 &x bne 78
12786 E4E0 F6 00 06 ... ldab 0006
12789 E4E5 C3 08 00 ... addd #0800
12791 E4E9 EC 00 .. ldd 00,x
12792 E4EB C4 FF .. andb #ff
12793 E4ED 26 02 &. bne 02
12794 E4EF 84 3F .? anda #3f
12795 E4F1 27 65 'e beq 65
12796 E4F3 FC 0D 0D ... ldd 0d0d
12797 E4F6 83 FF FF ... subd #ffff
12798 E4F9 26 05 &. bne 05
12801 E4FD FD 0D 0D ... std 0d0d
12802 E500 FE 0D 0D ... ldx 0d0d
12804 E504 FF 0D 0D ... stx 0d0d
12805 E507 F6 00 06 ... ldab 0006
12808 E50C C3 08 00 ... addd #0800
12810 E510 EC 00 .. ldd 00,x
12811 E512 C4 FF .. andb #ff
12812 E514 84 3F .? anda #3f
12819 E51C CC 0D 1B ... ldd #0d1b
12820 E51F BD FB DF ... jsr fbdf ;jump46
12823 E524 FE 0D 1D ... ldx 0d1d
12825 E528 FC 0D 1B ... ldd 0d1b
12828 E52D CE E1 00 ... ldx #e100
12830 E531 CC 05 F5 ... ldd #05f5
12834 E537 EC 06 .. ldd 06,x
12835 E539 A3 02 .. subd 02,x
12836 E53B EC 04 .. ldd 04,x
12837 E53D E2 01 .. sbcb 01,x
12838 E53F A2 00 .. sbca 00,x
12843 E545 25 11 %. bcs 11
12844 E547 CE 1F 00 ... ldx #1f00
12846 E54B CC FA 0A ... ldd #fa0a
12849 E550 CC 0D 1B ... ldd #0d1b
12850 E553 BD FB DF ... jsr fbdf ;jump46
12854 E558 BD D7 FF ... jsr d7ff ;jump80
12855 E55B BD D8 40 ..@ jsr d840 ;jump105
12857 E55E 7F 00 06 ... clr 0006
12858 E561 7F 00 2E ... clr 002e
12859 E564 CE 00 1B ... ldx #001b
12860 E567 1D 00 80 .. bclr 00,x, #80
12862 E56A CE 00 1D ... ldx #001d
12863 E56C 1D 00 40 .. bclr 00,x, #40
12866 ;!!! Is this a delay routine? It gets called between displaying strings
12867 ;on startup. Looks like a delay. e61b just stores 0a at 0031 and returns.
12869 ; appears to delay for roughly D milliseconds.
12874 E575 EC 01 .. ldd 01,x
12875 E577 83 00 01 ... subd #0001
12876 E57A ED 01 .. std 01,x
12877 E57C 2D 15 -. blt 15 ; to e593
12878 E57E C6 41 .A ldab #41
12880 E581 E7 00 .. stab 00,x
12882 E584 E6 00 .. ldab 00,x
12883 E586 6A 00 j. dec 00,x
12884 E588 C1 00 .. cmpb #00
12885 E58A 23 02 #. bls 02
12886 E58C 20 F5 . bra f5 ; to e583
12887 E58E BD E6 1B ... jsr e61b ;jump4
12888 E591 20 E1 . bra e1 ; to e574
12889 E593 38 8 pulx ;this must just be a standard 'pull 3
12890 E594 31 1 ins ;bytes and I don't care where they go'
12891 ;to clean up the stack.
12895 ; A short delay - counts to 32 in a stack variable. (about 100ms?)
12897 E597 C6 32 .2 ldab #32
12899 E59A E7 00 .. stab 00,x
12901 E59D E6 00 .. ldab 00,x
12902 E59F C1 00 .. cmpb #00
12903 E5A1 23 05 #. bls e5a8
12905 E5A4 6A 00 j. dec 00,x
12906 E5A6 20 F4 . bra e59c
12911 ; beep if keypressed?
12912 E5AA F6 00 33 ..3 ldab 0033
12913 E5AD 27 0C '. beq 0c ; to e5bb
12914 E5AF F6 00 29 ..) ldab 0029 ; key state
12915 E5B2 27 05 '. beq 05 ; to e5b9 (out)
12916 E5B4 C6 02 .. ldab #02
12917 E5B6 F7 00 33 ..3 stab 0033
12918 E5B9 20 15 . bra 15 ; to e5d0 (out)
12919 E5BB C6 03 .. ldab #03 ; beep
12920 E5BD F7 00 32 ..2 stab 0032
12921 E5C0 FC 00 3B ..; ldd 003b
12922 E5C3 27 06 '. beq 06 ; to e5cb
12923 E5C5 CC 02 33 ..3 ldd #0233
12924 E5C8 FD 00 3B ..; std 003b
12925 E5CB C6 02 .. ldab #02
12926 E5CD F7 00 33 ..3 stab 0033
12930 ; signifies a triple beep?
12931 E5D1 C6 0B .. ldab #0b ; 1011
12932 E5D3 F7 00 32 ..2 stab 0032
12936 ; tests an internal switch or input line
12937 ; Parameters: Port Address in D, bit mask on stack
12941 ; make some stack space
12947 ; 00,x on stack - number of hits
12948 E5DE ED 00 .. std 00,x
12949 ; we call i = 02,x. let i = 64
12950 E5E0 CC 00 64 ..d ldd #0064
12951 E5E3 ED 02 .. std 02,x
12954 E5E6 EC 02 .. ldd 02,x
12955 E5E8 2F 21 /! ble 21 ; to e60b
12956 ; we call j = 04,x. let j = initial value of D
12958 E5EB EE 04 .. ldx 04,x
12959 E5ED E6 00 .. ldab 00,x
12961 E5F0 E4 09 .. andb 09,x
12962 E5F2 27 05 '. beq 05 ; to e5f9 if bit cleared
12964 E5F5 08 . inx ; increment number of hits
12966 E5F7 20 08 . bra 08 ; to e601
12968 E5FA EC 00 .. ldd 00,x
12969 E5FC 83 00 01 ... subd #0001 ; decrement number of hits
12970 E5FF ED 00 .. std 00,x
12972 E602 EC 02 .. ldd 02,x
12973 E604 83 00 01 ... subd #0001 ; i--
12974 E607 ED 02 .. std 02,x
12975 E609 20 DA . bra da ; to e5e5
12977 ; return 1 iff the key was pressed
12979 E60C EC 00 .. ldd 00,x
12980 E60E 2F 04 /. ble 04 ; to e614 if -ve
12983 E612 20 03 . bra 03 ; to e617
12984 E614 CC 00 01 ... ldd #0001
12991 E61B C6 0A .. ldab #0a
12992 E61D F7 00 31 ..1 stab 0031
13000 E625 BD BE 4B ..K jsr be4b ;displayblank
13002 E629 EC 04 .. ldd 04,x
13005 E62D EC 02 .. ldd 02,x
13008 E631 CE 96 80 ... ldx #9680
13010 E635 CC 00 98 ... ldd #0098
13011 E638 BD FC 4C ..L jsr fc4c ;jump83
13014 E63D CB 30 .0 addb #30
13015 E63F F7 0B 97 ... stab 0b97
13017 E643 EC 04 .. ldd 04,x
13020 E647 EC 02 .. ldd 02,x
13023 E64B CE 96 80 ... ldx #9680
13025 E64F CC 00 98 ... ldd #0098
13026 E652 BD FC 5C ..\ jsr fc5c ;jump82
13029 E657 CE 42 40 .B@ ldx #4240
13031 E65B CC 00 0F ... ldd #000f
13032 E65E BD FC 4C ..L jsr fc4c ;jump83
13035 E663 CB 30 .0 addb #30
13036 E665 F7 0B 96 ... stab 0b96
13038 E669 EC 04 .. ldd 04,x
13041 E66D EC 02 .. ldd 02,x
13044 E671 CE 42 40 .B@ ldx #4240
13046 E675 CC 00 0F ... ldd #000f
13047 E678 BD FC 5C ..\ jsr fc5c ;jump82
13050 E67D CE 86 A0 ... ldx #86a0
13052 E681 CC 00 01 ... ldd #0001
13053 E684 BD FC 4C ..L jsr fc4c ;jump83
13056 E689 CB 30 .0 addb #30
13057 E68B F7 0B 95 ... stab 0b95
13059 E68F EC 04 .. ldd 04,x
13062 E693 EC 02 .. ldd 02,x
13065 E697 CE 86 A0 ... ldx #86a0
13067 E69B CC 00 01 ... ldd #0001
13068 E69E BD FC 5C ..\ jsr fc5c ;jump82
13071 E6A3 CE 27 10 .'. ldx #2710
13073 E6A7 CC 00 00 ... ldd #0000
13074 E6AA BD FC 4C ..L jsr fc4c ;jump83
13077 E6AF CB 30 .0 addb #30
13078 E6B1 F7 0B 94 ... stab 0b94
13080 E6B5 EC 04 .. ldd 04,x
13083 E6B9 EC 02 .. ldd 02,x
13086 E6BD CE 27 10 .'. ldx #2710
13088 E6C1 CC 00 00 ... ldd #0000
13089 E6C4 BD FC 5C ..\ jsr fc5c ;jump82
13092 E6C9 CE 03 E8 ... ldx #03e8
13094 E6CD CC 00 00 ... ldd #0000
13095 E6D0 BD FC 4C ..L jsr fc4c ;jump83
13098 E6D5 CB 30 .0 addb #30
13099 E6D7 F7 0B 93 ... stab 0b93
13101 E6DB EC 04 .. ldd 04,x
13104 E6DF EC 02 .. ldd 02,x
13107 E6E3 CE 03 E8 ... ldx #03e8
13109 E6E7 CC 00 00 ... ldd #0000
13110 E6EA BD FC 5C ..\ jsr fc5c ;jump82
13113 E6EF CE 00 64 ..d ldx #0064
13115 E6F3 CC 00 00 ... ldd #0000
13116 E6F6 BD FC 4C ..L jsr fc4c ;jump83
13119 E6FB CB 30 .0 addb #30
13120 E6FD F7 0B 92 ... stab 0b92
13122 E701 EC 04 .. ldd 04,x
13125 E705 EC 02 .. ldd 02,x
13128 E709 CE 00 64 ..d ldx #0064
13130 E70D CC 00 00 ... ldd #0000
13131 E710 BD FC 5C ..\ jsr fc5c ;jump82
13134 E715 CE 00 0A ... ldx #000a
13136 E719 CC 00 00 ... ldd #0000
13137 E71C BD FC 4C ..L jsr fc4c ;jump83
13140 E721 CB 30 .0 addb #30
13141 E723 F7 0B 91 ... stab 0b91
13143 E727 EC 04 .. ldd 04,x
13146 E72B EC 02 .. ldd 02,x
13149 E72F CE 00 0A ... ldx #000a
13151 E733 CC 00 00 ... ldd #0000
13152 E736 BD FC 5C ..\ jsr fc5c ;jump82
13155 E73B CB 30 .0 addb #30
13156 E73D F7 0B 90 ... stab 0b90
13160 E743 6E 00 n. jmp 00,x
13163 ; number to string. number is <= 99999. puts it into 0057, 005a, 005d-005f
13167 E748 EC 00 .. ldd 00,x
13168 E74A CE 27 10 .'. ldx #2710 ; 10000
13171 E74F CB 30 .0 addb #30
13172 E751 F7 00 57 ..W stab 0057 ; num/10000 => 0057
13174 E755 EC 00 .. ldd 00,x
13175 E757 CE 27 10 .'. ldx #2710 ; 10000
13177 E75B CE 03 E8 ... ldx #03e8
13180 E760 CB 30 .0 addb #30
13181 E762 F7 00 5A ..Z stab 005a ; num%10000/1000 => 005a
13183 E766 EC 00 .. ldd 00,x
13184 E768 CE 03 E8 ... ldx #03e8
13186 E76C CE 00 64 ..d ldx #0064
13189 E771 CB 30 .0 addb #30
13190 E773 F7 00 5D ..] stab 005d ; num%1000/100 => 005d
13192 E777 EC 00 .. ldd 00,x
13193 E779 CE 00 64 ..d ldx #0064
13195 E77D CE 00 0A ... ldx #000a
13198 E782 CB 30 .0 addb #30
13199 E784 F7 00 5E ..^ stab 005e ; num%100/10 => 005e
13201 E788 EC 00 .. ldd 00,x
13202 E78A CE 00 0A ... ldx #000a
13204 E78E CB 30 .0 addb #30
13205 E790 F7 00 5F .._ stab 005f ; num%10 => 005f
13210 ; number to string. number is <= 999. puts it into 005d-005f
13214 E798 E6 01 .. ldab 01,x
13216 E79B CE 00 64 ..d ldx #0064 ; /100
13219 E7A0 CB 30 .0 addb #30 ; make it a digit
13220 E7A2 F7 00 5D ..] stab 005d
13222 E7A6 E6 01 .. ldab 01,x
13224 E7A9 CE 00 64 ..d ldx #0064
13227 E7AE CE 00 0A ... ldx #000a
13230 E7B3 CB 30 .0 addb #30 ; %100 / 10 -> digit
13231 E7B5 F7 00 5E ..^ stab 005e
13233 E7B9 E6 01 .. ldab 01,x
13235 E7BC CE 00 0A ... ldx #000a
13237 E7C0 CB 30 .0 addb #30
13238 E7C2 F7 00 5F .._ stab 005f ; %10
13243 E7C7 F6 00 06 ... ldab 0006
13245 E7CB CE 00 05 ... ldx #0005
13248 E7D0 26 03 &. bne 03
13249 E7D2 7E E8 99 ~.. jmp e899 ;goto79
13250 E7D5 F6 00 06 ... ldab 0006
13251 E7D8 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
13252 E7DB 83 00 00 ... subd #0000
13253 E7DE 27 03 '. beq 03
13254 E7E0 7E E8 99 ~.. jmp e899 ;goto79
13255 E7E3 F6 00 06 ... ldab 0006
13258 E7E8 C3 08 00 ... addd #0800
13260 E7EC EC 00 .. ldd 00,x
13261 E7EE C4 FF .. andb #ff
13262 E7F0 84 3F .? anda #3f
13263 E7F2 FD 10 16 ... std 1016
13264 E7F5 F6 00 06 ... ldab 0006
13267 E7FA C3 0B F1 ... addd #0bf1
13269 E7FE EC 00 .. ldd 00,x
13270 E800 C4 FF .. andb #ff
13271 E802 84 3F .? anda #3f
13272 E804 FD 10 18 ... std 1018
13273 E807 FC 10 16 ... ldd 1016
13274 E80A 83 00 00 ... subd #0000
13275 E80D 25 08 %. bcs 08
13276 E80F FC 10 16 ... ldd 1016
13277 E812 83 27 0F .'. subd #270f
13278 E815 23 35 #5 bls 35
13279 E817 F6 00 06 ... ldab 0006
13280 E81A BD D4 68 ..h jsr d468 ;jump51
13281 E81D 83 00 00 ... subd #0000
13282 E820 27 2A '* beq 2a
13283 E822 CC 01 00 ... ldd #0100
13286 E827 F6 00 06 ... ldab 0006
13289 E82C C3 08 C8 ... addd #08c8
13292 E831 AA 00 .. ora 00,x
13293 E833 EA 01 .. orb 01,x
13294 E835 ED 00 .. std 00,x
13295 E837 CC 40 00 .@. ldd #4000
13298 E83C F6 00 06 ... ldab 0006
13301 E841 C3 08 00 ... addd #0800
13304 E846 AA 00 .. ora 00,x
13305 E848 EA 01 .. orb 01,x
13306 E84A ED 00 .. std 00,x
13307 E84C CE 10 16 ... ldx #1016
13308 E84F 1D 00 C0 .. bclr 00,x, #c0
13309 E852 FC 10 18 .. ldd 1018
13312 E857 FD 10 18 ... std 1018
13313 E85A CE 10 18 ... ldx #1018
13314 E85D 1D 00 C0 .. bclr 00,x, #c0
13315 E85F FC 10 16 .. ldd 1016
13318 E865 FC 10 18 ... ldd 1018
13320 E869 A3 00 .. subd 00,x
13323 E86D 27 2A '* beq 2a
13324 E86F CC 01 00 ... ldd #0100
13327 E874 F6 00 06 ... ldab 0006
13330 E879 C3 08 C8 ... addd #08c8
13333 E87E AA 00 .. ora 00,x
13334 E880 EA 01 .. orb 01,x
13335 E882 ED 00 .. std 00,x
13336 E884 CC 40 00 .@. ldd #4000
13339 E889 F6 00 06 ... ldab 0006
13342 E88E C3 08 00 ... addd #0800
13345 E893 AA 00 .. ora 00,x
13346 E895 EA 01 .. orb 01,x
13347 E897 ED 00 .. std 00,x
13354 E89C FD 00 0F ... std 000f
13355 E89F CC 3F FF .?. ldd #3fff
13356 E8A2 FD 00 50 ..P std 0050
13357 E8A5 7F 00 06 ... clr 0006
13358 E8A8 F6 00 06 ... ldab 0006
13359 E8AB C1 64 .d cmpb #64
13360 E8AD 24 64 $d bcc 64
13361 E8AF F6 00 06 ... ldab 0006
13363 E8B3 CE 00 05 ... ldx #0005
13366 E8B8 27 54 'T beq 54
13367 E8BA F6 00 06 ... ldab 0006
13368 E8BD BD D7 A0 ... jsr d7a0 ;is_invalid_slot
13369 E8C0 83 00 00 ... subd #0000
13370 E8C3 26 49 &I bne 49
13371 E8C5 F6 00 06 ... ldab 0006
13374 E8CA C3 08 00 ... addd #0800
13376 E8CE EC 00 .. ldd 00,x
13377 E8D0 C4 FF .. andb #ff
13378 E8D2 84 3F .? anda #3f
13379 E8D4 FD 10 16 ... std 1016
13380 E8D7 FC 10 16 ... ldd 1016
13381 E8DA 83 27 10 .'. subd #2710 ; 10000
13382 E8DD 24 2F $/ bcc 2f
13383 E8DF F6 00 06 ... ldab 0006
13384 E8E2 BD D4 68 ..h jsr d468 ;jump51
13385 E8E5 83 00 00 ... subd #0000
13386 E8E8 27 24 '$ beq 24
13387 E8EA BD D5 61 ..a jsr d561 ;jump42
13388 E8ED 83 00 00 ... subd #0000
13389 E8F0 26 1C &. bne 1c
13390 E8F2 FC 10 16 ... ldd 1016
13391 E8F5 B3 00 0F ... subd 000f
13392 E8F8 23 06 #. bls 06
13393 E8FA FC 10 16 ... ldd 1016
13394 E8FD FD 00 0F ... std 000f
13395 E900 FC 10 16 ... ldd 1016
13396 E903 B3 00 50 ..P subd 0050
13397 E906 24 06 $. bcc 06
13398 E908 FC 10 16 ... ldd 1016
13399 E90B FD 00 50 ..P std 0050
13400 E90E 7C 00 06 |.. inc 0006
13401 E911 20 95 . bra 95
13402 E913 FC 0B B7 ... ldd 0bb7
13403 E916 27 12 '. beq 12
13404 E918 FC 00 0F ... ldd 000f
13405 E91B B3 0B B7 ... subd 0bb7
13406 E91E 23 0A #. bls 0a
13407 E920 FC 00 0F ... ldd 000f
13409 E924 B3 0B B7 ... subd 0bb7
13410 E927 FD 00 0F ... std 000f
13416 E92D 6F 00 o. clr 00,x
13418 E930 E6 00 .. ldab 00,x
13419 E932 C1 64 .d cmpb #64
13420 E934 24 15 $. bcc 15
13426 E93B E6 02 .. ldab 02,x
13429 E93F C3 0D 1F ... addd #0d1f
13432 E944 ED 00 .. std 00,x
13434 E947 6C 00 l. inc 00,x
13435 E949 20 E4 . bra e4
13438 E94D FD 0D F9 ... std 0df9
13439 E950 FD 0D F7 ... std 0df7
13442 E955 FD 0D F5 ... std 0df5
13443 E958 FD 0D F3 ... std 0df3
13446 E95D FD 0D F1 ... std 0df1
13447 E960 FD 0D EF ... std 0def
13450 E965 FD 0D FD ... std 0dfd
13451 E968 FD 0D FB ... std 0dfb
13454 E96D FD 0D E9 ... std 0de9
13455 E970 FD 0D E7 ... std 0de7
13458 E975 FD 0C DD ... std 0cdd
13461 E97A FD 0C DF ... std 0cdf
13464 E97F FD 0C E1 ... std 0ce1
13467 E984 FD 0C E3 ... std 0ce3
13470 E989 FD 0C E5 ... std 0ce5
13473 E98E FD 0C F5 ... std 0cf5
13474 E991 FD 0C F3 ... std 0cf3
13477 E996 FD 0C F9 ... std 0cf9
13478 E999 FD 0C F7 ... std 0cf7
13481 E99E FD 0C FD ... std 0cfd
13482 E9A1 FD 0C FB ... std 0cfb
13485 E9A6 FD 0D 01 ... std 0d01
13486 E9A9 FD 0C FF ... std 0cff
13489 E9AE FD 0D 05 ... std 0d05
13490 E9B1 FD 0D 03 ... std 0d03
13493 E9B6 FD 0D 07 ... std 0d07
13496 E9BB FD 0D 09 ... std 0d09
13499 E9C0 FD 0D 0B ... std 0d0b
13502 E9C5 FD 0D 0D ... std 0d0d
13505 E9CA FD 0D 11 ... std 0d11
13506 E9CD FD 0D 0F ... std 0d0f
13509 E9D2 FD 0D 15 ... std 0d15
13510 E9D5 FD 0D 13 ... std 0d13
13513 E9DA FD 0D 19 ... std 0d19
13514 E9DD FD 0D 17 ... std 0d17
13517 E9E2 FD 0D 1D ... std 0d1d
13518 E9E5 FD 0D 1B ... std 0d1b
13523 E9EA 7F 00 06 ... clr 0006
13524 E9ED F6 00 06 ... ldab 0006
13525 E9F0 C1 64 .d cmpb #64
13526 E9F2 24 64 $d bcc 64
13527 E9F4 F6 00 06 ... ldab 0006
13529 E9F8 CE 00 05 ... ldx #0005
13532 E9FD 27 54 'T beq 54
13533 E9FF CC BF FF ... ldd #bfff
13536 EA04 F6 00 06 ... ldab 0006
13539 EA09 C3 08 00 ... addd #0800
13542 EA0E A4 00 .. anda 00,x
13543 EA10 E4 01 .. andb 01,x
13544 EA12 ED 00 .. std 00,x
13545 EA14 CC FE FF ... ldd #feff
13548 EA19 F6 00 06 ... ldab 0006
13551 EA1E C3 08 C8 ... addd #08c8
13554 EA23 A4 00 .. anda 00,x
13555 EA25 E4 01 .. andb 01,x
13556 EA27 ED 00 .. std 00,x
13557 EA29 CC FD FF ... ldd #fdff
13560 EA2E F6 00 06 ... ldab 0006
13563 EA33 C3 08 C8 ... addd #08c8
13566 EA38 A4 00 .. anda 00,x
13567 EA3A E4 01 .. andb 01,x
13568 EA3C ED 00 .. std 00,x
13569 EA3E CC FB FF ... ldd #fbff
13572 EA43 F6 00 06 ... ldab 0006
13575 EA48 C3 08 C8 ... addd #08c8
13578 EA4D A4 00 .. anda 00,x
13579 EA4F E4 01 .. andb 01,x
13580 EA51 ED 00 .. std 00,x
13581 EA53 7C 00 06 |.. inc 0006
13582 EA56 20 95 . bra 95
13587 ; test PE2 - remote no-sale switch.
13588 EA5A CE 00 04 ... ldx #0004
13590 EA5E CC 10 0A ... ldd #100a
13591 EA61 BD E5 D7 ... jsr e5d7 ;jump69 - test input line
13593 EA65 83 00 00 ... subd #0000
13594 EA68 27 3F '? beq 3f ; to eaa9 if off
13596 ; test internal mode switch (bit 1 of 1800)
13597 EA6A CE 00 01 ... ldx #0001
13599 EA6E CC 18 00 ... ldd #1800
13600 EA71 BD E5 D7 ... jsr e5d7 ;jump69 - test input line
13602 EA75 83 00 00 ... subd #0000
13603 EA78 27 2F '/ beq 2f ; to eaa9 if off
13605 ; both no-sale & mode switches held.
13608 EA7A CC 03 E8 ... ldd #03e8
13609 EA7D BD E5 71 ..q jsr e571 ;msdelay
13611 EA80 7F 0B A8 ... clr 0ba8
13613 ; blink "SECURE OFF" until mode switch is released
13614 EA83 F6 18 00 ... ldab 1800
13615 EA86 C4 01 .. andb #01
13616 EA88 26 1C &. bne 1c ; to eaa4 (loop until released)
13619 EA8A BD BE 4B ..K jsr be4b ;displayblank (blank display buffer)
13621 EA8E BD BE 01 ... jsr be01 ;jump70 (commit to display)
13625 EA92 CC 01 F4 ... ldd #01f4
13626 EA95 BD E5 71 ..q jsr e571 ;msdelay
13628 EA98 CC AF D1 ... ldd #afd1 ; "SECURE OFF"
13629 EA9B BD C0 BA ... jsr c0ba ;display:
13632 EA9E CC 01 F4 ... ldd #01f4
13633 EAA1 BD E5 71 ..q jsr e571 ;msdelay
13635 EAA4 20 DD . bra dd ; to ea83
13636 EAA6 BD BE 69 ..i jsr be69 ;displayreset
13638 ; no sale switch or internal mode switch on
13640 ; fiddle with the bill acceptor
13641 EAA9 C6 01 .. ldab #01
13642 EAAB F7 00 14 ... stab 0014
13643 EAAE F6 00 14 ... ldab 0014
13644 EAB1 F7 38 00 .8. stab 3800
13647 EAB4 CC 00 1E ... ldd #001e
13648 EAB7 BD E5 71 ..q jsr e571 ;msdelay
13650 ; more bill acceptor fiddling & tests
13651 EABA CE 00 01 ... ldx #0001
13653 EABE CC 10 00 ... ldd #1000
13654 EAC1 BD E5 D7 ... jsr e5d7 ;jump69 - test input line
13656 EAC5 83 00 00 ... subd #0000
13657 EAC8 27 10 '. beq 10
13658 EACA CE 00 02 ... ldx #0002
13660 EACE CC 10 00 ... ldd #1000
13661 EAD1 BD E5 D7 ... jsr e5d7 ;jump69 - test input line
13663 EAD5 83 00 00 ... subd #0000
13664 EAD8 27 03 '. beq 03
13665 ; we've decided if we have a bill acceptor. if not, skip this bit
13666 EADA 7E ED F8 ~.. jmp edf8 ;goto80
13667 ; we have a bill acceptor - play some more
13668 EADD C6 02 .. ldab #02
13669 EADF F7 00 14 ... stab 0014
13670 EAE2 F6 00 14 ... ldab 0014
13671 EAE5 F7 38 00 .8. stab 3800
13672 EAE8 CC 00 1E ... ldd #001e
13673 EAEB BD E5 71 ..q jsr e571 ;msdelay
13674 EAEE CE 00 01 ... ldx #0001
13676 EAF2 CC 10 00 ... ldd #1000
13677 EAF5 BD E5 D7 ... jsr e5d7 ;jump69 - test input line
13679 EAF9 83 00 00 ... subd #0000
13680 EAFC 26 10 &. bne 10
13681 EAFE CE 00 02 ... ldx #0002
13683 EB02 CC 10 00 ... ldd #1000
13684 EB05 BD E5 D7 ... jsr e5d7 ;jump69 - test input line
13686 EB09 83 00 00 ... subd #0000
13687 EB0C 26 03 &. bne 03
13688 EB0E 7E ED F8 ~.. jmp edf8 ;goto80 - something about the bill validator failed. skip it.
13689 EB11 CC 5A 5A .ZZ ldd #5a5a ; 23130
13690 EB14 FD 10 16 ... std 1016
13691 EB17 CC B1 39 ..9 ldd #b139 ;"**********"
13692 EB1A BD C0 BA ... jsr c0ba ;display:
13693 EB1D CC 07 D0 ... ldd #07d0
13694 EB20 BD E5 71 ..q jsr e571 ;msdelay
13695 EB23 CC B1 44 ..D ldd #b144 ;"OOOOOOOOOO"
13696 EB26 BD C0 BA ... jsr c0ba ;display:
13697 EB29 CC 07 D0 ... ldd #07d0
13698 EB2C BD E5 71 ..q jsr e571 ;msdelay
13699 EB2F CC 00 14 ... ldd #0014
13700 EB32 FD 00 3B ..; std 003b
13701 EB35 FC 00 3B ..; ldd 003b
13702 EB38 27 47 'G beq 47
13703 ; draws a sequence of 10 dots ..... along the display.
13705 EB3B 6F 00 o. clr 00,x
13707 EB3E E6 00 .. ldab 00,x
13708 EB40 C1 0A .. cmpb #0a
13709 EB42 24 3B $; bcc 3b
13710 EB44 BD BE 4B ..K jsr be4b ;displayblank
13711 EB47 C6 2E .. ldab #2e
13714 EB4B E6 01 .. ldab 01,x
13716 EB4E C3 0B 90 ... addd #0b90
13719 EB53 E7 00 .. stab 00,x
13721 EB56 BD BE 69 ..i jsr be69 ;displayreset
13722 EB59 CE 10 28 ..( ldx #1028
13723 EB5C 1C 00 40 .. bset 00,x, #40 ; tweak the clock phase
13724 EB5F CE 00 01 ... ldx #0001
13726 EB63 CC 00 20 .. ldd #0020
13727 EB66 BD BD B5 ... jsr bdb5 ;jump78 - send display byte
13729 EB6A CE 10 28 ..( ldx #1028
13730 EB6D 1D 00 40 ..@ bclr 00,x, #40 ; tweak the clock phase back
13731 EB70 BD BE 10 ... jsr be10 ;jump88
13733 EB74 CC 00 07 ... ldd #0007
13734 EB77 BD E5 71 ..q jsr e571 ;msdelay 7-unit delay
13736 EB7B 6C 00 l. inc 00,x
13737 EB7D 20 BE . bra be
13738 EB7F 20 B4 . bra b4
13739 EB81 BD BE 69 ..i jsr be69 ;displayreset
13740 EB84 CC 08 00 ... ldd #0800
13741 EB87 FD 00 73 ..s std 0073
13742 EB8A FC 00 73 ..s ldd 0073
13743 EB8D 83 0F FF ... subd #0fff
13744 EB90 22 10 ". bhi 10 ; to eba2
13745 EB92 C6 AA .. ldab #aa
13746 EB94 FE 00 73 ..s ldx 0073
13747 EB97 E7 00 .. stab 00,x
13748 EB99 FE 00 73 ..s ldx 0073
13750 EB9D FF 00 73 ..s stx 0073
13751 EBA0 20 E8 . bra e8
13752 EBA2 CC 08 00 ... ldd #0800
13753 EBA5 FD 00 73 ..s std 0073
13754 EBA8 FC 00 73 ..s ldd 0073
13755 EBAB 83 0F FF ... subd #0fff
13756 EBAE 22 1A ". bhi 1a
13757 EBB0 FE 00 73 ..s ldx 0073
13758 EBB3 E6 00 .. ldab 00,x
13759 EBB5 C1 AA .. cmpb #aa
13760 EBB7 27 08 '. beq 08
13761 EBB9 CE 10 16 ... ldx #1016 ; timer output compare register
13762 EBBC 1D 00 FF .. bclr 00,x, #FF
13763 EBBF 20 09 .. bra 09
13764 EBC1 FE 00 73 ..s ldx 0073
13766 EBC5 FF 00 73 ..s stx 0073
13767 EBC8 20 DE . bra de
13768 EBCA CC 08 00 ... ldd #0800
13769 EBCD FD 00 73 ..s std 0073
13770 EBD0 FC 00 73 ..s ldd 0073
13771 EBD3 83 0F FF ... subd #0fff
13772 EBD6 22 10 ". bhi 10
13773 EBD8 C6 55 .U ldab #55
13774 EBDA FE 00 73 ..s ldx 0073
13775 EBDD E7 00 .. stab 00,x
13776 EBDF FE 00 73 ..s ldx 0073
13778 EBE3 FF 00 73 ..s stx 0073
13779 EBE6 20 E8 . bra e8
13780 EBE8 CC 08 00 ... ldd #0800
13781 EBEB FD 00 73 ..s std 0073
13782 EBEE FC 00 73 ..s ldd 0073
13783 EBF1 83 0F FF ... subd #0fff
13784 EBF4 22 1A ". bhi 1a
13785 EBF6 FE 00 73 ..s ldx 0073
13786 EBF9 E6 00 .. ldab 00,x
13787 EBFB C1 55 .U cmpb #55
13788 EBFD 27 08 '. beq 08
13789 EBFF CE 10 16 ... ldx #1016
13790 EC02 1D 00 FF ... bclr 00,x #ff
13791 EC05 20 09 . bra 09
13792 EC07 FE 00 73 ..s ldx 0073
13794 EC0B FF 00 73 ..s stx 0073
13795 EC0E 20 DE . bra de
13796 EC10 CC 08 00 ... ldd #0800
13797 EC13 FD 00 73 ..s std 0073
13798 EC16 FC 00 73 ..s ldd 0073
13799 EC19 83 0F FF ... subd #0fff
13800 EC1C 22 0F ". bhi 0f
13802 EC1F FE 00 73 ..s ldx 0073
13803 EC22 E7 00 .. stab 00,x
13804 EC24 FE 00 73 ..s ldx 0073
13806 EC28 FF 00 73 ..s stx 0073
13807 EC2B 20 E9 . bra e9
13808 EC2D 7F 00 06 ... clr 0006
13809 EC30 F6 00 06 ... ldab 0006
13810 EC33 C1 64 .d cmpb #64
13811 EC35 24 4D $M bcc 4d
13812 EC37 F6 00 06 ... ldab 0006
13814 EC3B CE 00 05 ... ldx #0005
13817 EC40 27 3D '= beq 3d
13818 EC42 CC 00 32 ..2 ldd #0032
13821 EC47 F6 00 06 ... ldab 0006
13824 EC4C C3 08 00 ... addd #0800
13827 EC51 ED 00 .. std 00,x
13828 EC53 F6 00 06 ... ldab 0006
13831 EC58 C3 08 00 ... addd #0800
13833 EC5C EC 00 .. ldd 00,x
13838 EC62 F6 00 06 ... ldab 0006
13841 EC67 C3 0B F1 ... addd #0bf1
13844 EC6C ED 00 .. std 00,x
13845 EC6E CC 08 01 ... ldd #0801
13848 EC73 F6 00 06 ... ldab 0006
13851 EC78 C3 08 C8 ... addd #08c8
13854 EC7D ED 00 .. std 00,x
13855 EC7F 7C 00 06 |.. inc 0006
13856 EC82 20 AC . bra ac
13857 EC84 C6 1D .. ldab #1d
13858 EC86 F7 0B BF ... stab 0bbf
13860 EC8A 6F 00 o. clr 00,x
13861 EC8C F6 0B BF ... ldab 0bbf
13863 EC90 C3 00 02 ... addd #0002
13867 EC96 E6 02 .. ldab 02,x
13869 EC99 A3 00 .. subd 00,x
13872 EC9D 2C 1B ,. bge 1b
13874 ECA0 E6 00 .. ldab 00,x
13876 ECA3 C3 B1 D0 ... addd #b1d0 ; "THANK YOU FOR YOUR PATRONAGE"
13878 ECA7 E6 00 .. ldab 00,x
13881 ECAB E6 01 .. ldab 01,x
13883 ECAE C3 09 93 ... addd #0993
13886 ECB3 E7 00 .. stab 00,x
13888 ECB6 6C 00 l. inc 00,x
13889 ECB8 20 D2 . bra d2
13890 ECBA 7F 0B A8 ... clr 0ba8
13891 ECBD CC 00 32 ..2 ldd #0032
13892 ECC0 FD 0B B5 ... std 0bb5
13895 ECC5 FD 0B B7 ... std 0bb7
13896 ECC8 7F 00 06 ... clr 0006
13897 ECCB BD A6 4E ..N jsr a64e ;jump135
13898 ECCE C6 09 .. ldab #09
13899 ECD0 F7 0B C0 ... stab 0bc0
13900 ECD3 7F 0E 6D ..m clr 0e6d
13901 ECD6 C6 01 .. ldab #01
13902 ECD8 F7 0E 6E ..n stab 0e6e
13904 ECDC 6F 00 o. clr 00,x
13906 ECDF E6 00 .. ldab 00,x
13907 ECE1 C1 0F .. cmpb #0f
13908 ECE3 24 21 $! bcc 21
13909 ECE5 C6 30 .0 ldab #30
13912 ECE9 E6 01 .. ldab 01,x
13914 ECEC C3 0C B9 ... addd #0cb9
13917 ECF1 E7 00 .. stab 00,x
13918 ECF3 C6 30 .0 ldab #30
13921 ECF7 E6 01 .. ldab 01,x
13923 ECFA C3 0C C9 ... addd #0cc9
13926 ECFF E7 00 .. stab 00,x
13928 ED02 6C 00 l. inc 00,x
13929 ED04 20 D8 . bra d8
13931 ED07 6F 00 o. clr 00,x
13934 ED0A E6 00 .. ldab 00,x
13935 ED0C C1 0B .. cmpb #0b
13936 ED0E 24 12 $. bcc 12 ; to ed22
13940 ED13 E6 01 .. ldab 01,x
13942 ED16 C3 0B E4 ... addd #0be4
13945 ED1B E7 00 .. stab 00,x
13947 ED1E 6C 00 l. inc 00,x
13948 ED20 20 E7 . bra e7
13949 ; clear stuff ready for test harness?
13952 ED24 FD 0D F9 ... std 0df9
13953 ED27 FD 0D F7 ... std 0df7
13956 ED2C FD 0D F5 ... std 0df5
13957 ED2F FD 0D F3 ... std 0df3
13958 ED32 7F 0C D9 ... clr 0cd9
13959 ED35 7F 0C DA ... clr 0cda
13960 ED38 7F 0C DB ... clr 0cdb
13961 ED3B 7F 0C DC ... clr 0cdc
13964 ED40 FD 0D F1 ... std 0df1
13965 ED43 FD 0D EF ... std 0def
13968 ED48 FD 0D FD ... std 0dfd
13969 ED4B FD 0D FB ... std 0dfb
13972 ED50 FD 0D E9 ... std 0de9
13973 ED53 FD 0D E7 ... std 0de7
13976 ED58 FD 0D ED ... std 0ded
13977 ED5B FD 0D EB ... std 0deb
13980 ED60 FD 0C DD ... std 0cdd
13983 ED65 FD 0C DF ... std 0cdf
13986 ED6A FD 0C E1 ... std 0ce1
13989 ED6F FD 0C E3 ... std 0ce3
13992 ED74 FD 0C E5 ... std 0ce5
13995 ED79 FD 0C F5 ... std 0cf5
13996 ED7C FD 0C F3 ... std 0cf3
13999 ED81 FD 0C F9 ... std 0cf9
14000 ED84 FD 0C F7 ... std 0cf7
14003 ED89 FD 0C FD ... std 0cfd
14004 ED8C FD 0C FB ... std 0cfb
14007 ED91 FD 0D 01 ... std 0d01
14008 ED94 FD 0C FF ... std 0cff
14011 ED99 FD 0D 05 ... std 0d05
14012 ED9C FD 0D 03 ... std 0d03
14015 EDA1 FD 0D 07 ... std 0d07
14018 EDA6 FD 0D 09 ... std 0d09
14021 EDAB FD 0D 0B ... std 0d0b
14024 EDB0 FD 0D 0D ... std 0d0d
14027 EDB5 FD 0D 11 ... std 0d11
14028 EDB8 FD 0D 0F ... std 0d0f
14031 EDBD FD 0D 15 ... std 0d15
14032 EDC0 FD 0D 13 ... std 0d13
14035 EDC5 FD 0D 19 ... std 0d19
14036 EDC8 FD 0D 17 ... std 0d17
14039 EDCD FD 0D 1D ... std 0d1d
14040 EDD0 FD 0D 1B ... std 0d1b
14041 EDD3 7F 0B AF ... clr 0baf
14042 EDD6 7F 0B AE ... clr 0bae
14043 EDD9 7F 0B AD ... clr 0bad
14044 EDDC 7F 0B AC ... clr 0bac
14045 EDDF 7F 0B AB ... clr 0bab
14046 EDE2 7F 0B B4 ... clr 0bb4
14047 EDE5 7F 0B B3 ... clr 0bb3
14048 EDE8 7F 0B B2 ... clr 0bb2
14049 EDEB 7F 0B B1 ... clr 0bb1
14050 EDEE 7F 0B B0 ... clr 0bb0
14051 EDF1 C6 05 .. ldab #05
14052 EDF3 F7 08 00 ... stab 0800
14053 EDF6 8D 21 .! bsr 21 ;jump204 - test harness function
14055 ; switch things off (motors, display clock, keypad strobe)
14056 EDF8 7F 00 14 ... clr 0014
14057 EDFB F6 00 14 ... ldab 0014
14058 EDFE F7 38 00 .8. stab 3800
14063 ; writes msg to screen for 1.5s
14067 EE06 EC 00 .. ldd 00,x
14068 EE08 BD C0 BA ... jsr c0ba ;display:
14069 EE0B CE 10 16 ... ldx #1016
14070 EE0E 1D 01 FF .. bclr 01,x, #ff
14071 EE11 CC 05 DC ... ldd #05dc ; 1500
14072 EE14 BD E5 71 ... jsr e571 ;msdelay
14077 EE19 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
14079 ; this the diagnostic function activated when the "test harness"
14081 EE1C CE 10 16 ... ldx #1016
14082 EE1F 1D 01 .. bclr 01,x, #ff
14083 EE21 CE 10 16 .. ldx #1016
14084 EE25 1C 01 5A ... bset 01,x, #5A
14085 EE28 F6 10 16 ... ldab 1016
14086 EE2B 26 0C &. bne 0c ; to ee39
14087 EE2D CC B1 4F ..O ldd #b14f ;"RAM FAIL"
14088 EE30 BD C0 BA ... jsr c0ba ;display:
14089 EE33 CC 05 DC ... ldd #05dc
14090 EE36 BD E5 71 ..q jsr e571 ;msdelay
14092 EE39 C6 04 .. ldab #04
14093 EE3B F7 00 1C ... stab 001c
14095 EE3E F6 00 1C ... ldab 001c
14096 EE41 C1 07 .. cmpb #07
14097 EE43 24 57 $W bcc 57 ; to ee9c (break out)
14098 EE45 F6 00 1C ... ldab 001c
14100 EE49 C3 B1 23 ..# addd #b123 ; power of 2
14102 EE4D E6 00 .. ldab 00,x
14104 EE50 F4 00 1A ... andb 001a
14105 EE53 F7 00 1A ... stab 001a
14106 EE56 F6 00 1A ... ldab 001a
14107 EE59 F7 30 00 .0. stab 3000 ; set coin bit active (low)
14108 EE5C CC 00 0A ... ldd #000a
14109 EE5F BD E5 71 ..q jsr e571 ;msdelay
14110 EE62 F6 18 00 ... ldab 1800
14111 EE65 2C 07 ,. bge 07 ; to ee6e
14112 EE67 CC B1 5A ..Z ldd #b15a ; "P2 FAIL"
14113 EE6A 8D 97 .. bsr dest 97 ; display to ee03
14114 EE6C 20 2E . bra 2e ; to ee9c
14115 EE6E F6 00 1C ... ldab 001c
14117 EE72 C3 B1 23 ..# addd #b123 ; powers of 2
14119 EE76 E6 00 .. ldab 00,x
14120 EE78 FA 00 1A ... orb 001a
14121 EE7B F7 00 1A ... stab 001a
14122 EE7E F6 00 1A ... ldab 001a
14123 EE81 F7 30 00 .0. stab 3000 ; set coin bit inactive (high)
14124 EE84 CC 00 0A ... ldd #000a
14125 EE87 BD E5 71 ..q jsr e571 ;msdelay
14126 EE8A F6 18 00 ... ldab 1800 ; if changer int'
14127 EE8D 2D 08 -. blt 08 ; ee97
14128 EE8F CC B1 5A ..Z ldd #b15a ; "P2 FAIL"
14129 EE92 BD EE 03 ... jsr ee03 ;jump36
14130 EE95 20 05 . bra 05 ; to ee9c
14131 EE97 7C 00 1C |.. inc 001c
14132 EE9A 20 A2 . bra a2 ; to ee3e
14134 EE9C CE 10 00 ... ldx #1000
14135 EE9F 1C 00 08 ... bset 00,x, #08 ; talk to coin mech
14136 EEA2 CE 10 08 ... ldx #1008
14137 EEA5 1C 00 02 ... bset 00,x, #02 ; set rx of sci
14138 EEA8 CE 00 1A ... ldx #001a
14139 EEAB 1C 00 40 ... bset 00,x, #40
14140 EEAE F6 00 1A ... ldab 001a
14141 EEB1 F7 30 00 .0. stab 3000 ; unset $1.00 line
14142 EEB4 CC 00 0A ... ldd #000a
14143 EEB7 BD E5 71 ..q jsr e571 ;msdelay
14144 EEBA F6 10 08 ... ldab 1008
14145 EEBD C4 01 .. andb #01 ; tests tx of sci
14146 EEBF 26 06 &. bne 06 ; to eec7
14147 EEC1 CC B1 5A ..Z ldd #b15a ; "P2 FAIL"
14148 EEC4 BD EE 03 ... jsr ee03 ;jump36
14149 EEC7 CE 00 1A ... ldx #001a
14150 EECA 1D 00 40 ... bclr 00,x, #40
14151 EECD F6 00 1A ... ldab 001a
14152 EED0 F7 30 00 .0. stab 3000 ; set $1.00 line
14153 EED3 CC 00 0A ... ldd #000a
14154 EED6 BD E5 71 ..q jsr e571 ;msdelay
14156 EED9 F6 10 08 ... ldab 1008
14157 EEDC C4 01 .. andb #01 ; tests txt of sci
14158 EEDE 27 06 '. beq 06 ; to eee6
14159 EEE0 CC B1 5A ..Z ldd #b15a ; "P2 FAIL"
14160 EEE3 BD EE 03 ... jsr ee03 ;jump36
14161 EEE6 CE 00 1A ... ldx #001a
14162 EEE9 1C 00 02 ... bset 00,x, #02
14163 EEEC F6 00 1A ... ldab 001a
14164 EEEF F7 30 00 .0. stab 3000 ; ditto for $0.25
14165 EEF2 CC 00 0A ... ldd #000a
14166 EEF5 BD E5 71 ..q jsr e571 ;msdelay
14167 EEF8 F6 10 00 ... ldab 1000
14168 EEFB C4 04 .. andb #04
14169 EEFD 26 06 &. bne 06
14170 EEFF CC B1 65 ..e ldd #b165
14171 EF02 BD EE 03 ... jsr ee03 ;jump36
14172 EF05 CE 00 1A ... ldx #001a
14173 EF08 1D 00 02 ... bclr 00,x, #02
14174 EF0B F6 00 1A ... ldab 001a
14175 EF0E F7 30 00 .0. stab 3000 ; ditto for $0.25
14176 EF11 CC 00 0A ... ldd #000a
14177 EF14 BD E5 71 ..q jsr e571 ;msdelay
14179 EF17 F6 10 00 ... ldab 1000
14180 EF1A C4 04 .. andb #04 ; coin dispenser pin6
14181 EF1C 27 06 '. beq 06
14182 EF1E CC B1 65 ..e ldd #b165 ; "P2-P3 FAIL"
14183 EF21 BD EE 03 ... jsr ee03 ;jump36
14184 EF24 CE 00 1A ... ldx #001a
14185 EF27 1C 00 01 ... bset 00,x, #01
14186 EF2A F6 00 1A ... ldab 001a
14187 EF2D F7 30 00 .0. stab 3000 ; send line of changer
14188 EF30 CC 00 0A ... ldd #000a
14189 EF33 BD E5 71 ..q jsr e571 ;msdelay
14191 EF36 F6 18 00 ... ldab 1800
14192 EF39 C4 20 . andb #20 ; test door switch
14193 EF3B 26 06 &. bne 06
14194 EF3D CC B1 70 ..p ldd #b170 ; "P2-P8 FAIL"
14195 EF40 BD EE 03 ... jsr ee03 ;jump36
14196 EF43 CE 00 1A ... ldx #001a
14197 EF46 1D 00 01 ... bclr 00,x, #01
14198 EF49 F6 00 1A ... ldab 001a
14199 EF4C F7 30 00 .0. stab 3000 ; unset send line of changer
14200 EF4F CC 00 0A ... ldd #000a
14201 EF52 BD E5 71 ..q jsr e571 ;msdelay
14202 EF55 F6 18 00 ... ldab 1800
14203 EF58 C4 20 . andb #20 ; test door again?
14204 EF5A 27 06 '. beq 06
14205 EF5C CC B1 70 ..p ldd #b170 ; "P2-P8 FAIL"
14206 EF5F BD EE 03 ... jsr ee03 ;jump36
14207 EF62 CE 00 1A ... ldx #001a
14208 EF65 1C 00 04 ... bset 00,x, #04 ; reset changer
14209 EF68 F6 00 1A ... ldab 001a
14210 EF6B F7 30 00 .0. stab 3000
14211 EF6E CC 00 0A ... ldd #000a
14212 EF71 BD E5 71 ..q jsr e571 ;msdelay
14213 EF74 F6 10 0A ... ldab 100a
14214 EF77 C4 04 .. andb #04 ; test no-sale switch
14215 EF79 26 06 &. bne 06
14216 EF7B CC B1 7B ..{ ldd #b17b ; "P2-P9 FAIL"
14217 EF7E BD EE 03 ... jsr ee03 ;jump36
14218 EF81 CE 00 1A ... ldx #001a
14219 EF84 1D 00 04 ... bclr 00,x, #04
14220 EF87 F6 00 1A ... ldab 001a
14221 EF8A F7 30 00 .0. stab 3000 ;snack motor drivers serial data is bit 7
14222 EF8D CC 00 0A ... ldd #000a
14223 EF90 BD E5 71 ..q jsr e571 ;msdelay
14224 EF93 F6 10 0A ... ldab 100a
14225 EF96 C4 04 .. andb #04
14226 EF98 27 06 '. beq 06
14227 EF9A CC B1 7B ..{ ldd #b17b ; "P2-P9 FAIL"
14228 EF9D BD EE 03 ... jsr ee03 ;jump36
14229 EFA0 CE 10 00 ... ldx #1000
14230 EFA3 1C 00 08 ... bset 00,x, #08
14231 EFA6 CE 00 1A ... ldx #001a
14232 EFA9 1C 00 40 ... bset 00,x, #40
14233 EFAC F6 00 1A ... ldab 001a
14234 EFAF F7 30 00 .0. stab 3000
14235 EFB2 CE 10 08 ... ldx #1008
14236 EFB5 1C 00 02 ... bset 00,x, #02 ; keypad data
14237 EFB8 CC 00 0A ... ldd #000a
14238 EFBB BD E5 71 ..q jsr e571 ;msdelay
14239 EFBE F6 10 08 ... ldab 1008
14240 EFC1 C4 01 .. andb #01
14241 EFC3 26 06 &. bne 06
14242 EFC5 CC B1 86 ... ldd #b186 ; "P3-P4 FAIL"
14243 EFC8 BD EE 03 ... jsr ee03 ;jump36
14244 EFCB CE 10 08 ... ldx #1008
14245 EFCE 1D 00 02 ... bclr 00,x, #02
14246 EFD1 CC 00 0A ... ldd #000a
14247 EFD4 BD E5 71 ..q jsr e571 ;msdelay
14248 EFD7 F6 10 08 ... ldab 1008
14249 EFDA C4 01 .. andb #01
14250 EFDC 27 06 '. beq 06
14251 EFDE CC B1 86 ... ldd #b186 ; "P3-P4 FAIL"
14252 EFE1 BD EE 03 ... jsr ee03 ;jump36
14253 EFE4 CE 10 00 ... ldx #1000
14254 EFE7 1D 00 08 ... bclr 00,x, #08
14255 EFEA CE 10 08 ... ldx #1008
14256 EFED 1C 00 02 ... bset 00,x, #02
14257 EFF0 CC 00 0A ... ldd #000a
14258 EFF3 BD E5 71 ..q jsr e571 ;msdelay
14259 EFF6 F6 10 08 ... ldab 1008
14260 EFF9 C4 01 .. andb #01
14261 EFFB 26 06 &. bne 06
14262 EFFD CC B1 91 ... ldd #b191 ; "P5 FAIL"
14263 F000 BD EE 03 ... jsr ee03 ;jump36
14264 F003 CE 10 08 ... ldx #1008
14265 F006 1D 00 02 ... bclr 00,x, #02
14266 F009 CC 00 0A ... ldd #000a
14267 F00C BD E5 71 ..q jsr e571 ;msdelay
14268 F00F F6 10 08 ... ldab 1008
14269 F012 C4 01 .. andb #01
14270 F014 27 06 '. beq 06
14271 F016 CC B1 91 ... ldd #b191
14272 F019 BD EE 03 ... jsr ee03 ;jump36
14273 F01C CE 00 14 ... ldx #0014
14274 F01F 1C 00 .. bset add,x 00,x
14275 F021 20 F6 . bra f6
14278 F025 F7 38 00 .8. stab 3800
14279 F028 CC 00 0A ... ldd #000a
14280 F02B BD E5 71 ..q jsr e571 ;msdelay
14281 F02E F6 20 00 . . ldab 2000
14282 F031 C4 40 .@ andb #40
14283 F033 26 06 &. bne 06
14284 F035 CC B1 9C ... ldd #b19c
14285 F038 BD EE 03 ... jsr ee03 ;jump36
14286 F03B CE 00 14 ... ldx #0014
14287 F03E 1D 00 .. bclr add,x 00,x
14288 F040 20 F6 . bra f6
14291 F044 F7 38 00 .8. stab 3800
14292 F047 CC 00 0A ... ldd #000a
14293 F04A BD E5 71 ..q jsr e571 ;msdelay
14294 F04D F6 20 00 . . ldab 2000
14295 F050 C4 40 .@ andb #40
14296 F052 27 06 '. beq 06
14297 F054 CC B1 9C ... ldd #b19c
14298 F057 BD EE 03 ... jsr ee03 ;jump36
14299 F05A CE 00 14 ... ldx #0014
14300 F05D 1C 00 40 ... bset 00,x, #40
14301 F060 F6 00 14 ... ldab 0014
14302 F063 F7 38 00 .8. stab 3800
14303 F066 CC 00 0A ... ldd #000a
14304 F069 BD E5 71 ..q jsr e571 ;msdelay
14305 F06C F6 20 00 . . ldab 2000
14306 F06F 2C 06 ,. bge 06
14307 F071 CC B1 9C ... ldd #b19c
14308 F074 BD EE 03 ... jsr ee03 ;jump36
14309 F077 CE 00 14 ... ldx #0014
14310 F07A 1D 00 40 ... bclr 00,x, #40
14311 F07D F6 00 14 ... ldab 0014
14312 F080 F7 38 00 .8. stab 3800
14313 F083 CC 00 0A ... ldd #000a
14314 F086 BD E5 71 ..q jsr e571 ;msdelay
14315 F089 F6 20 00 . . ldab 2000
14316 F08C 2D 06 -. blt 06
14317 F08E CC B1 9C ... ldd #b19c
14318 F091 BD EE 03 ... jsr ee03 ;jump36
14319 F094 7F 00 61 ..a clr 0061
14320 F097 F6 00 61 ..a ldab 0061
14321 F09A C1 08 .. cmpb #08
14322 F09C 24 22 $" bcc 22
14323 F09E F6 00 61 ..a ldab 0061
14325 F0A2 C3 B1 C8 ... addd #b1c8
14327 F0A6 E6 00 .. ldab 00,x
14328 F0A8 F7 00 06 ... stab 0006
14329 F0AB BD D3 11 ... jsr d311 ;jump30 - test position exists
14330 F0AE 83 00 00 ... subd #0000
14331 F0B1 27 08 '. beq 08
14332 F0B3 CC B1 A7 ... ldd #b1a7
14333 F0B6 BD EE 03 ... jsr ee03 ;jump36
14334 F0B9 20 05 . bra 05
14335 F0BB 7C 00 61 |.a inc 0061
14336 F0BE 20 D7 . bra d7
14337 F0C0 7F 00 61 ..a clr 0061
14338 F0C3 F6 00 61 ..a ldab 0061
14339 F0C6 C1 08 .. cmpb #08
14340 F0C8 24 2B $+ bcc 2b
14341 F0CA F6 00 61 ..a ldab 0061
14343 F0CE C3 B1 C8 ... addd #b1c8
14345 F0D2 E6 00 .. ldab 00,x
14346 F0D4 F7 00 06 ... stab 0006
14347 F0D7 BD D1 3D ..= jsr d13d ;jump34 - motor on
14348 F0DA BD D5 70 ..p jsr d570 ;jump35
14349 F0DD 83 00 00 ... subd #0000
14350 F0E0 26 0B &. bne 0b
14351 F0E2 BD D1 05 ... jsr d105 ;motors_off
14352 F0E5 CC B1 B2 ... ldd #b1b2
14353 F0E8 BD EE 03 ... jsr ee03 ;jump36
14354 F0EB 20 08 . bra 08
14355 F0ED BD D1 05 ... jsr d105 ;motors_off
14356 F0F0 7C 00 61 |.a inc 0061
14357 F0F3 20 CE . bra ce
14358 F0F5 7F 00 61 ..a clr 0061
14359 F0F8 F6 00 61 ..a ldab 0061
14360 F0FB C1 05 .. cmpb #05
14361 F0FD 24 45 $E bcc 45
14362 F0FF F6 00 61 ..a ldab 0061
14364 F103 C3 B1 C8 ... addd #b1c8
14366 F107 E6 00 .. ldab 00,x
14367 F109 F7 00 06 ... stab 0006
14368 F10C BD D1 3D ..= jsr d13d ;jump34 - motor on
14369 F10F CC 00 0A ... ldd #000a
14370 F112 BD E5 71 ..q jsr e571 ;msdelay
14371 F115 F6 18 00 ... ldab 1800
14372 F118 C4 40 .@ andb #40
14373 F11A 26 0B &. bne 0b
14374 F11C BD D1 05 ... jsr d105 ;motors_off
14375 F11F CC B1 B2 ... ldd #b1b2
14376 F122 BD EE 03 ... jsr ee03 ;jump36
14377 F125 20 1D . bra 1d
14378 F127 BD D1 05 ... jsr d105 ;motors_off
14379 F12A CC 00 0A ... ldd #000a
14380 F12D BD E5 71 ..q jsr e571 ;msdelay
14381 F130 F6 18 00 ... ldab 1800
14382 F133 C4 40 .@ andb #40
14383 F135 27 08 '. beq 08
14384 F137 CC B1 B2 ... ldd #b1b2
14385 F13A BD EE 03 ... jsr ee03 ;jump36
14386 F13D 20 05 . bra 05
14387 F13F 7C 00 61 |.a inc 0061
14388 F142 20 B4 . bra b4
14389 F144 FC 10 16 ... ldd 1016
14390 F147 83 5A 5A .ZZ subd #5a5a
14391 F14A 26 0C &. bne 0c
14392 F14C CC B1 BD ... ldd #b1bd ; " PASSED "
14393 F14F BD C0 BA ... jsr c0ba ;display:
14394 F152 CC 05 DC ... ldd #05dc
14395 F155 BD E5 71 ..q jsr e571 ;msdelay
14396 F158 7E EE 1C ~.. jmp ee1c ;goto81
14399 ;send a byte to the printer
14400 ;it calls c7e7, which does things with the serial port
14403 F15D F6 00 19 ... ldab 0019
14404 F160 C4 40 .@ andb #40
14405 F162 26 5B &[ bne 5b
14406 F164 C6 FF .. ldab #ff
14407 F166 F7 00 39 ..9 stab 0039
14408 F169 F6 20 00 . . ldab 2000
14409 F16C 2C 11 ,. bge 11
14410 F16E F6 20 00 . . ldab 2000
14411 F171 C4 40 .@ andb #40
14412 F173 27 0A '. beq 0a
14413 F175 F6 00 39 ..9 ldab 0039
14414 F178 27 05 '. beq 05
14415 F17A BD E6 1B ... jsr e61b ;jump4
14416 F17D 20 EA . bra ea
14417 F17F F6 00 39 ..9 ldab 0039
14418 F182 26 08 &. bne 08
14419 F184 CE 00 19 ... ldx #0019
14420 F187 1C 00 40 ... bset 00,x, #40
14421 F18A 20 33 3 bra 33
14422 F18C F6 20 00 . . ldab 2000
14423 F18F C4 40 .@ andb #40
14424 F191 27 2C ', beq 2c
14425 F193 F6 00 1D ... ldab 001d
14426 F196 C4 01 .. andb #01
14427 F198 27 1E '. beq 1e
14429 F19B E6 01 .. ldab 01,x
14430 F19D C1 30 .0 cmpb #30
14431 F19F 26 08 &. bne 08
14432 F1A1 CC 00 20 .. ldd #0020
14433 F1A4 BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
14434 F1A7 20 0D . bra 0d
14436 F1AA E6 01 .. ldab 01,x
14438 F1AD BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
14439 F1B0 CE 00 1D ... ldx #001d
14440 F1B3 1D 00 01 ... bclr 00,x, #01
14441 F1B6 20 07 . bra 07
14443 F1B9 E6 01 .. ldab 01,x
14445 F1BC BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
14452 F1C3 F6 20 00 . . ldab 2000
14453 F1C6 C4 40 .@ andb #40
14454 F1C8 27 1C '. beq 1c
14455 F1CA 7F 00 18 ... clr 0018
14456 F1CD F6 00 18 ... ldab 0018
14458 F1D1 E1 05 .. cmpb 05,x
14459 F1D3 24 11 $. bcc 11
14461 F1D6 EE 00 .. ldx 00,x
14462 F1D8 E6 00 .. ldab 00,x
14464 F1DB BD F1 5B ..[ jsr f15b ;jump53
14468 F1E1 7C 00 18 |.. inc 0018
14469 F1E4 20 E7 . bra e7
14473 ;send a string to the printer. D is a pointer to a string
14477 F1EA F6 20 00 . . ldab 2000
14478 F1ED C4 40 .@ andb #40
14479 F1EF 27 1B '. beq 1b
14480 F1F1 CC 00 20 .. ldd #0020
14481 F1F4 BD F1 5B ..[ jsr f15b ;jump53
14483 F1F8 EE 00 .. ldx 00,x
14484 F1FA E6 00 .. ldab 00,x
14485 F1FC 27 0E '. beq 0e
14487 F1FF EE 00 .. ldx 00,x
14488 F201 E6 00 .. ldab 00,x
14490 F204 BD F1 5B ..[ jsr f15b ;jump53
14494 F20A 20 EB . bra eb
14501 F210 F6 20 00 . . ldab 2000
14502 F213 C4 40 .@ andb #40
14503 F215 27 34 '4 beq 34
14504 F217 CE 00 1D ... ldx #001d
14505 F21A 1C 00 01 ... bset 00,x, #01
14507 F21E E6 01 .. ldab 01,x
14509 F221 BD E7 95 ... jsr e795 ;jump54 - number to string
14510 F224 F6 00 5D ..] ldab 005d
14512 F228 BD F1 5B ..[ jsr f15b ;jump53
14513 F22B F6 00 5E ..^ ldab 005e
14515 F22F BD F1 5B ..[ jsr f15b ;jump53
14516 F232 CE 00 1D ... ldx #001d
14517 F235 1D 00 01 ... bclr 00,x, #01
14518 F238 F6 00 5F .._ ldab 005f
14520 F23C BD F1 5B ..[ jsr f15b ;jump53
14521 F23F CC 00 20 .. ldd #0020
14522 F242 BD F1 5B ..[ jsr f15b ;jump53
14523 F245 CC 00 20 .. ldd #0020
14524 F248 BD F1 5B ..[ jsr f15b ;jump53
14531 F24F F6 20 00 . . ldab 2000
14532 F252 C4 40 .@ andb #40
14533 F254 27 41 'A beq 41
14534 F256 CE 00 1D ... ldx #001d
14535 F259 1C 00 01 ... bset 00,x, #01
14537 F25D EC 00 .. ldd 00,x
14538 F25F BD E7 45 ..E jsr e745 ;jump55 - number to string
14539 F262 F6 00 57 ..W ldab 0057
14541 F266 BD F1 5B ..[ jsr f15b ;jump53
14542 F269 F6 00 5A ..Z ldab 005a
14544 F26D BD F1 5B ..[ jsr f15b ;jump53
14545 F270 F6 00 5D ..] ldab 005d
14547 F274 BD F1 5B ..[ jsr f15b ;jump53
14548 F277 F6 00 5E ..^ ldab 005e
14550 F27B BD F1 5B ..[ jsr f15b ;jump53
14551 F27E CE 00 1D ... ldx #001d
14552 F281 1D 00 01 ... bclr 00,x, #01
14553 F284 F6 00 5F .._ ldab 005f
14555 F288 BD F1 5B ..[ jsr f15b ;jump53
14556 F28B CC 00 20 .. ldd #0020
14557 F28E BD F1 5B ..[ jsr f15b ;jump53
14558 F291 CC 00 20 .. ldd #0020
14559 F294 BD F1 5B ..[ jsr f15b ;jump53
14566 F29B F6 20 00 . . ldab 2000
14567 F29E C4 40 .@ andb #40 ; printer DSR
14568 F2A0 27 7B '{ beq 7b
14569 F2A2 F6 00 17 ... ldab 0017
14570 F2A5 C4 08 .. andb #08
14571 F2A7 26 06 &. bne 06
14572 F2A9 CC 00 24 ..$ ldd #0024 ; "$"
14573 F2AC BD F1 5B ..[ jsr f15b ;jump53
14574 F2AF CE 00 1D ... ldx #001d
14575 F2B2 1C 00 01 ... bset 00,x, #01
14577 F2B6 EC 00 .. ldd 00,x
14578 F2B8 BD E7 45 ..E jsr e745 ;jump55 - number to string
14579 F2BB F6 00 57 ..W ldab 0057
14581 F2BF BD F1 5B ..[ jsr f15b ;jump53 - byte to printer
14582 F2C2 F6 00 5A ..Z ldab 005a
14584 F2C6 BD F1 5B ..[ jsr f15b ;jump53 - byte to printer
14585 F2C9 F6 00 13 ... ldab 0013
14586 F2CC C1 08 .. cmpb #08
14587 F2CE 26 0C &. bne 0c
14588 F2D0 CC 00 2E ... ldd #002e
14589 F2D3 BD F1 5B ..[ jsr f15b ;jump53 - byte to printer
14590 F2D6 CE 00 1D ... ldx #001d
14591 F2D9 1D 00 01 ... bclr 00,x, #01
14592 F2DC F6 00 5D ..] ldab 005d
14594 F2E0 BD F1 5B ..[ jsr f15b ;jump53 - byte to printer
14595 F2E3 F6 00 13 ... ldab 0013
14596 F2E6 C1 04 .. cmpb #04
14597 F2E8 26 0C &. bne 0c
14598 F2EA CC 00 2E ... ldd #002e
14599 F2ED BD F1 5B ..[ jsr f15b ;jump53 - byte to printer
14600 F2F0 CE 00 1D ... ldx #001d
14601 F2F3 1D 00 01 ... bclr 00,x, #01
14602 F2F6 F6 00 5E ..^ ldab 005e
14604 F2FA BD F1 5B ..[ jsr f15b ;jump53 - byte to printer
14605 F2FD F6 00 13 ... ldab 0013
14606 F300 C1 02 .. cmpb #02
14607 F302 26 06 &. bne 06
14608 F304 CC 00 2E ... ldd #002e
14609 F307 BD F1 5B ..[ jsr f15b ;jump53 - byte to printer
14610 F30A CE 00 1D ... ldx #001d
14611 F30D 1D 00 01 ... bclr 00,x, #01
14612 F310 F6 00 5F .._ ldab 005f
14614 F314 BD F1 5B ..[ jsr f15b ;jump53 - byte to printer
14615 F317 CC 00 0A ... ldd #000a
14616 F31A BD F1 5B ..[ jsr f15b ;jump53 - byte to printer
14625 F323 F6 20 00 . . ldab 2000
14626 F326 C4 40 .@ andb #40 ; printer dsr
14627 F328 26 03 &. bne 03
14628 F32A 7E F3 BC ~.. jmp f3bc ;goto82
14629 F32D F6 00 17 ... ldab 0017
14630 F330 C4 08 .. andb #08
14631 F332 26 06 &. bne 06
14632 F334 CC 00 24 ..$ ldd #0024 ; "$"
14633 F337 BD F1 5B ..[ jsr f15b ;jump53 - byte to printer
14634 F33A CE 00 1D ... ldx #001d
14635 F33D 1C 00 01 ... bset 00,x, #01
14637 F341 EC 04 .. ldd 04,x
14640 F345 EC 02 .. ldd 02,x
14641 F347 BD E6 21 ..! jsr e621 ;jump56
14643 F34B C6 07 .. ldab #07
14644 F34D F7 00 18 ... stab 0018
14645 F350 F6 00 18 ... ldab 0018
14646 F353 C1 FF .. cmpb #ff
14647 F355 24 5F $_ bcc 5f
14648 F357 F6 00 18 ... ldab 0018
14650 F35B C3 0B 90 ... addd #0b90
14652 F35F E6 00 .. ldab 00,x
14654 F362 BD F1 5B ..[ jsr f15b ;jump53
14655 F365 F6 00 18 ... ldab 0018
14656 F368 C1 03 .. cmpb #03
14657 F36A 26 15 &. bne 15
14658 F36C F6 00 13 ... ldab 0013
14659 F36F C1 08 .. cmpb #08
14660 F371 26 0C &. bne 0c
14661 F373 CC 00 2E ... ldd #002e
14662 F376 BD F1 5B ..[ jsr f15b ;jump53
14663 F379 CE 00 1D ... ldx #001d
14664 F37C 1D 00 01 ... bclr 00,x, #01
14665 F37F 20 30 0 bra 30
14666 F381 C1 02 .. cmpb #02
14667 F383 26 15 &. bne 15
14668 F385 F6 00 13 ... ldab 0013
14669 F388 C1 04 .. cmpb #04
14670 F38A 26 0C &. bne 0c
14671 F38C CC 00 2E ... ldd #002e
14672 F38F BD F1 5B ..[ jsr f15b ;jump53
14673 F392 CE 00 1D ... ldx #001d
14674 F395 1D 00 01 ... bclr 00,x, #01
14675 F398 20 17 . bra 17
14676 F39A C1 01 .. cmpb #01
14677 F39C 26 13 &. bne 13
14678 F39E F6 00 13 ... ldab 0013
14679 F3A1 C1 02 .. cmpb #02
14680 F3A3 26 06 &. bne 06
14681 F3A5 CC 00 2E ... ldd #002e
14682 F3A8 BD F1 5B ..[ jsr f15b ;jump53
14683 F3AB CE 00 1D ... ldx #001d
14684 F3AE 1D 00 01 ... bclr 00,x, #01
14685 F3B1 7A 00 18 z.. dec 0018
14686 F3B4 20 9A . bra 9a
14687 F3B6 CC 00 0A ... ldd #000a
14688 F3B9 BD F1 5B ..[ jsr f15b ;jump53
14693 F3BF 6E 00 n. jmp 00,x
14698 F3C3 F6 20 00 . . ldab 2000
14699 F3C6 C4 40 .@ andb #40
14700 F3C8 27 49 'I beq 49
14701 F3CA CC B4 71 ..q ldd #b471 " CODE "
14702 F3CD BD F1 E8 ... jsr f1e8 ;jump57
14704 F3D1 E6 01 .. ldab 01,x
14706 F3D4 CE 00 0A ... ldx #000a
14709 F3D9 CB 30 .0 addb #30
14710 F3DB F7 00 5E ..^ stab 005e
14712 F3DF E6 01 .. ldab 01,x
14714 F3E2 CE 00 0A ... ldx #000a
14716 F3E6 CB 30 .0 addb #30
14717 F3E8 F7 00 5F .._ stab 005f ;5e and 5f now param in ascii
14718 F3EB F6 00 5E ..^ ldab 005e
14720 F3EF BD F1 5B ..[ jsr f15b ;jump53
14721 F3F2 F6 00 5F .._ ldab 005f
14723 F3F6 BD F1 5B ..[ jsr f15b ;jump53
14724 F3F9 CC B4 7B ..{ ldd #b47b "VENDS - "
14725 F3FC BD F1 E8 ... jsr f1e8 ;jump57
14727 F400 E6 01 .. ldab 01,x
14730 F404 C3 0D 1F ... addd #0d1f
14732 F408 EC 00 .. ldd 00,x
14733 F40A BD F2 4D ..M jsr f24d ;jump58
14734 F40D CC 00 0A ... ldd #000a
14735 F410 BD F1 5B ..[ jsr f15b ;jump53
14741 F415 F6 0B C0 ... ldab 0bc0
14742 F418 C4 02 .. andb #02
14743 F41A 27 15 '. beq 15
14744 F41C CE 00 21 ..! ldx #0021
14745 F41F 1C 00 .. bset 00,x, #80
14746 F421 F6 00 1D .. ldab 001d
14747 F424 C4 02 .. andb #02
14748 F427 27 02 '. beq 02
14749 F429 20 F7 . bra f7
14750 F42B CE 00 21 ..! ldx #0021
14751 F42E 1D 00 .. bclr 00,x, #80
14752 F430 C6 10 .. ldab #10
14753 F433 F7 10 2C .., stab 102c ; set 9N1
14754 F436 C6 2E .. ldab #2e
14755 F438 F7 10 2D ..- stab 102d ; enable SCI transmission
14756 F43B C6 05 .. ldab #05
14757 F43D F7 10 2B ..+ stab 102b ; 2400 baud
14758 F440 CC 03 E8 ... ldd #03e8
14759 F443 BD E5 71 ..q jsr e571 ;msdelay
14760 F446 CE 10 00 ... ldx #1000
14761 F449 1D 00 08 ... bclr 00,x, #08 ; talk to ze printer
14762 F44C CE 00 19 ... ldx #0019
14763 F44F 1D 00 40 ... bclr 00,x, #40
14764 F452 CE 00 1D ... ldx #001d
14765 F455 1D 00 01 ... bclr 00,x, #01
14766 F458 CC 00 18 ... ldd #0018
14767 F45B BD F1 5B ..[ jsr f15b ;jump53
14768 F45E CC B2 1B ... ldd #b21b " ROWE INTERNATIONAL"
14769 F461 BD F1 E8 ... jsr f1e8 ;jump57
14770 F464 CC 00 0A ... ldd #000a ; new line
14771 F467 BD F1 5B ..[ jsr f15b ;jump53
14772 F46A CC B2 38 ..8 ldd #b238 " -------------------"
14773 F46D BD F1 E8 ... jsr f1e8 ;jump57
14774 F470 CC 00 0A ... ldd #000a ; new line
14775 F473 BD F1 5B ..[ jsr f15b ;jump53
14776 F476 CC B2 56 ..V ldd #b256 ; "5900 SOFTWARE VER 5"
14777 F479 BD F1 E8 ... jsr f1e8 ;jump57
14778 F47C CC 00 0A ... ldd #000a ; new line
14779 F47F BD F1 5B ..[ jsr f15b ;jump53
14780 F482 CC 00 0A ... ldd #000a ; new line
14781 F485 BD F1 5B ..[ jsr f15b ;jump53
14782 F488 CC B2 75 ..u ldd #b275 ; ACCOUNT RECORD
14783 F48B BD F1 E8 ... jsr f1e8 ;jump57
14784 F48E CC 00 0A ... ldd #000a ; new line
14785 F491 BD F1 5B ..[ jsr f15b ;jump53
14786 F494 CC B2 38 ..8 ldd #b238 ; --------------------
14787 F497 BD F1 E8 ... jsr f1e8 ;jump57
14788 F49A CC 00 0A ... ldd #000a ; new line
14789 F49D BD F1 5B ..[ jsr f15b ;jump53
14790 F4A0 CC 00 0A ... ldd #000a ; new line
14791 F4A3 BD F1 5B ..[ jsr f15b ;jump53
14792 F4A6 CC B2 90 ... ldd #b290 ; SERIAL #
14793 F4A9 BD F1 E8 ... jsr f1e8 ;jump57
14794 F4AC CE 00 0A ... ldx #000a
14796 F4B0 CC 0C BC ... ldd #0cbc ; serial number
14797 F4B3 BD F1 C1 ... jsr f1c1 ;jump59
14799 F4B7 CC 00 0A ... ldd #000a
14800 F4BA BD F1 5B ..[ jsr f15b ;jump53
14801 F4BD CC B2 A2 ... ldd #b2a2 ; "MACHINE ID"
14802 F4C0 BD F1 E8 ... jsr f1e8 ;jump57
14803 F4C3 CE 00 0A ... ldx #000a
14805 F4C7 CC 0C CC ... ldd #0ccc
14806 F4CA BD F1 C1 ... jsr f1c1 ;jump59
14808 F4CE CC 00 0A ... ldd #000a
14809 F4D1 BD F1 5B ..[ jsr f15b ;jump53
14810 F4D4 CC B2 B4 ... ldd #b2b4 ; "AUDIT NUMBER"
14811 F4D7 BD F1 E8 ... jsr f1e8 ;jump57
14812 F4DA FC 0C E7 ... ldd 0ce7
14813 F4DD BD F2 4D ..M jsr f24d ;jump58 - convert to string
14814 F4E0 CC 00 0A ... ldd #000a
14815 F4E3 BD F1 5B ..[ jsr f15b ;jump53
14816 F4E6 CC 00 0A ... ldd #000a
14817 F4E9 BD F1 5B ..[ jsr f15b ;jump53
14818 F4EC CC B2 C6 ... ldd #b2c6 ; "SALES (R)
14819 F4EF BD F1 E8 ... jsr f1e8 ;jump57
14820 F4F2 FE 0D E9 ... ldx 0de9
14822 F4F6 FC 0D E7 ... ldd 0de7
14823 F4F9 BD F3 1F ... jsr f31f ;jump60
14825 F4FD CC B2 D8 ... ldd #b2d8 ; "SALES (N)
14826 F500 BD F1 E8 ... jsr f1e8 ;jump57
14827 F503 FE 0D ED ... ldx 0ded
14829 F507 FC 0D EB ... ldd 0deb
14830 F50A BD F3 1F ... jsr f31f ;jump60
14832 F50E CC B2 EA ... ldd #b2ea
14833 F511 BD F1 E8 ... jsr f1e8 ;jump57
14834 F514 FE 0D F1 ... ldx 0df1
14836 F518 FC 0D EF ... ldd 0def
14837 F51B BD F3 1F ... jsr f31f ;jump60
14839 F51F CC B2 FC ... ldd #b2fc
14840 F522 BD F1 E8 ... jsr f1e8 ;jump57
14841 F525 FE 0D F9 ... ldx 0df9
14843 F529 FC 0D F7 ... ldd 0df7
14844 F52C BD F3 1F ... jsr f31f ;jump60
14846 F530 CC B3 0E ... ldd #b30e
14847 F533 BD F1 E8 ... jsr f1e8 ;jump57
14848 F536 FE 0D FD ... ldx 0dfd
14850 F53A FC 0D FB ... ldd 0dfb
14851 F53D BD F3 1F ... jsr f31f ;jump60
14853 F541 CC 00 0A ... ldd #000a
14854 F544 BD F1 5B ..[ jsr f15b ;jump53
14855 F547 CC B3 20 .. ldd #b320
14856 F54A BD F1 E8 ... jsr f1e8 ;jump57
14857 F54D CC 00 0A ... ldd #000a
14858 F550 BD F1 5B ..[ jsr f15b ;jump53
14859 F553 CC B3 31 ..1 ldd #b331
14860 F556 BD F1 E8 ... jsr f1e8 ;jump57
14861 F559 FE 0D F5 ... ldx 0df5
14863 F55D FC 0D F3 ... ldd 0df3
14864 F560 BD F3 1F ... jsr f31f ;jump60
14866 F564 CC B3 4A ..J ldd #b34a
14867 F567 BD F1 E8 ... jsr f1e8 ;jump57
14868 F56A FC 0C DD ... ldd 0cdd
14869 F56D BD F2 4D ..M jsr f24d ;jump58
14870 F570 FE 0C F5 ... ldx 0cf5
14872 F574 FC 0C F3 ... ldd 0cf3
14873 F577 BD F3 1F ... jsr f31f ;jump60
14875 F57B CC B3 5C ..\ ldd #b35c
14876 F57E BD F1 E8 ... jsr f1e8 ;jump57
14877 F581 FC 0C DF ... ldd 0cdf
14878 F584 BD F2 4D ..M jsr f24d ;jump58
14879 F587 FE 0C F9 ... ldx 0cf9
14881 F58B FC 0C F7 ... ldd 0cf7
14882 F58E BD F3 1F ... jsr f31f ;jump60
14884 F592 CC B3 6E ..n ldd #b36e
14885 F595 BD F1 E8 ... jsr f1e8 ;jump57
14886 F598 FC 0C E1 ... ldd 0ce1
14887 F59B BD F2 4D ..M jsr f24d ;jump58
14888 F59E FE 0C FD ... ldx 0cfd
14890 F5A2 FC 0C FB ... ldd 0cfb
14891 F5A5 BD F3 1F ... jsr f31f ;jump60
14893 F5A9 CC B3 80 ... ldd #b380
14894 F5AC BD F1 E8 ... jsr f1e8 ;jump57
14895 F5AF FC 0C E3 ... ldd 0ce3
14896 F5B2 BD F2 4D ..M jsr f24d ;jump58
14897 F5B5 FE 0D 01 ... ldx 0d01
14899 F5B9 FC 0C FF ... ldd 0cff
14900 F5BC BD F3 1F ... jsr f31f ;jump60
14902 F5C0 CC B3 92 ... ldd #b392
14903 F5C3 BD F1 E8 ... jsr f1e8 ;jump57
14904 F5C6 FC 0C E5 ... ldd 0ce5
14905 F5C9 BD F2 4D ..M jsr f24d ;jump58
14906 F5CC FE 0D 05 ... ldx 0d05
14908 F5D0 FC 0D 03 ... ldd 0d03
14909 F5D3 BD F3 1F ... jsr f31f ;jump60
14911 F5D7 CC 00 0A ... ldd #000a
14912 F5DA BD F1 5B ..[ jsr f15b ;jump53
14913 F5DD CC B3 A4 ... ldd #b3a4
14914 F5E0 BD F1 E8 ... jsr f1e8 ;jump57
14915 F5E3 CC 00 0A ... ldd #000a
14916 F5E6 BD F1 5B ..[ jsr f15b ;jump53
14917 F5E9 CC B3 B3 ... ldd #b3b3
14918 F5EC BD F1 E8 ... jsr f1e8 ;jump57
14919 F5EF FC 0C F1 ... ldd 0cf1
14920 F5F2 BD F2 99 ... jsr f299 ;jump61
14921 F5F5 CC B3 CA ... ldd #b3ca
14922 F5F8 BD F1 E8 ... jsr f1e8 ;jump57
14923 F5FB F6 0C DC ... ldab 0cdc
14925 F5FF BD F2 0E ... jsr f20e ;jump62
14926 F602 FC 0C E9 ... ldd 0ce9
14927 F605 BD F2 99 ... jsr f299 ;jump61
14928 F608 CC B3 DC ... ldd #b3dc
14929 F60B BD F1 E8 ... jsr f1e8 ;jump57
14930 F60E F6 0C DB ... ldab 0cdb
14932 F612 BD F2 0E ... jsr f20e ;jump62
14933 F615 FC 0C EB ... ldd 0ceb
14934 F618 BD F2 99 ... jsr f299 ;jump61
14935 F61B CC B3 EE ... ldd #b3ee
14936 F61E BD F1 E8 ... jsr f1e8 ;jump57
14937 F621 F6 0C DA ... ldab 0cda
14939 F625 BD F2 0E ... jsr f20e ;jump62
14940 F628 FC 0C ED ... ldd 0ced
14941 F62B BD F2 99 ... jsr f299 ;jump61
14942 F62E CC B4 00 ... ldd #b400
14943 F631 BD F1 E8 ... jsr f1e8 ;jump57
14944 F634 F6 0C D9 ... ldab 0cd9
14946 F638 BD F2 0E ... jsr f20e ;jump62
14947 F63B FC 0C EF ... ldd 0cef
14948 F63E BD F2 99 ... jsr f299 ;jump61
14949 F641 CC 00 0A ... ldd #000a
14950 F644 BD F1 5B ..[ jsr f15b ;jump53
14951 F647 CC B4 12 ... ldd #b412
14952 F64A BD F1 E8 ... jsr f1e8 ;jump57
14953 F64D FC 0D 07 ... ldd 0d07
14954 F650 BD F2 4D ..M jsr f24d ;jump58
14955 F653 FE 0D 11 ... ldx 0d11
14957 F657 FC 0D 0F ... ldd 0d0f
14958 F65A BD F3 1F ... jsr f31f ;jump60
14960 F65E CC B4 24 ..$ ldd #b424
14961 F661 BD F1 E8 ... jsr f1e8 ;jump57
14962 F664 FC 0D 09 ... ldd 0d09
14963 F667 BD F2 4D ..M jsr f24d ;jump58
14964 F66A FE 0D 15 ... ldx 0d15
14966 F66E FC 0D 13 ... ldd 0d13
14967 F671 BD F3 1F ... jsr f31f ;jump60
14969 F675 CC B4 36 ..6 ldd #b436
14970 F678 BD F1 E8 ... jsr f1e8 ;jump57
14971 F67B FC 0D 0B ... ldd 0d0b
14972 F67E BD F2 4D ..M jsr f24d ;jump58
14973 F681 FE 0D 19 ... ldx 0d19
14975 F685 FC 0D 17 ... ldd 0d17
14976 F688 BD F3 1F ... jsr f31f ;jump60
14978 F68C CC B4 48 ..H ldd #b448
14979 F68F BD F1 E8 ... jsr f1e8 ;jump57
14980 F692 FC 0D 0D ... ldd 0d0d
14981 F695 BD F2 4D ..M jsr f24d ;jump58
14982 F698 FE 0D 1D ... ldx 0d1d
14984 F69C FC 0D 1B ... ldd 0d1b
14985 F69F BD F3 1F ... jsr f31f ;jump60
14987 F6A3 CC 00 0A ... ldd #000a
14988 F6A6 BD F1 5B ..[ jsr f15b ;jump53
14989 F6A9 CC B4 5A ..Z ldd #b45a
14990 F6AC BD F1 E8 ... jsr f1e8 ;jump57
14991 F6AF CC 00 0A ... ldd #000a
14992 F6B2 BD F1 5B ..[ jsr f15b ;jump53
14993 F6B5 C6 01 .. ldab #01
14994 F6B7 F7 00 54 ..T stab 0054
14995 F6BA F6 00 54 ..T ldab 0054
14996 F6BD C1 63 .c cmpb #63
14997 F6BF 22 1B ". bhi 1b
14998 F6C1 F6 00 54 ..T ldab 0054
15001 F6C6 C3 08 C8 ... addd #08c8
15003 F6CA EC 00 .. ldd 00,x
15004 F6CC C4 80 .. andb #80
15005 F6CE 27 07 '. beq 07
15006 F6D0 F6 00 54 ..T ldab 0054
15008 F6D4 BD F3 C1 ... jsr f3c1 ;jump63
15009 F6D7 7C 00 54 |.T inc 0054
15010 F6DA 20 DE . bra de
15011 F6DC CC 00 0A ... ldd #000a
15012 F6DF BD F1 5B ..[ jsr f15b ;jump53
15013 F6E2 F6 00 19 ... ldab 0019
15014 F6E5 C4 40 .@ andb #40
15015 F6E7 26 07 &. bne 07
15016 F6E9 FE 0C E7 ... ldx 0ce7
15018 F6ED FF 0C E7 ... stx 0ce7
15019 F6F0 CE 00 1D ... ldx #001d
15020 F6F3 1D 00 01 ... bclr 00,x, #01
15021 F6F6 CC 03 E8 ... ldd #03e8
15022 F6F9 BD E5 71 ..q jsr e571 ;msdelay
15023 F6FC C6 03 .. ldab #03
15024 F6FE F7 10 2B ..+ stab 102b ; back to 9600 baud
15025 F701 CE 10 00 ... ldx #1000
15026 F704 1C 00 08 ... bset 00,x, #08 ; set back to coin mech
15027 F707 F6 0B C0 ... ldab 0bc0
15028 F70A C4 02 .. andb #02
15029 F70C 27 06 '. beq 06
15030 F70E CC 00 80 ... ldd #0080
15031 F711 BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
15032 F714 7F 00 38 ..8 clr 0038
15037 F719 F6 0B C0 ... ldab 0bc0
15038 F71C C4 08 .. andb #08
15039 F71E 27 03 '. beq 03
15040 F720 BD C3 25 ..% jsr c325 ;jump64
15041 F723 7C 00 0C |.. inc 000c
15042 F726 F6 00 0C ... ldab 000c
15043 F729 C1 02 .. cmpb #02
15044 F72B 26 13 &. bne 13
15045 F72D 7F 00 0C ... clr 000c
15046 F730 F6 00 07 ... ldab 0007
15047 F733 27 03 '. beq 03
15048 F735 7A 00 07 z.. dec 0007
15049 F738 F6 00 00 ... ldab 0000
15050 F73B 27 03 '. beq 03
15051 F73D 7A 00 00 z.. dec 0000
15052 F740 7C 00 0B |.. inc 000b
15053 F743 F6 00 0B ... ldab 000b
15054 F746 C1 08 .. cmpb #08
15055 F748 26 37 &7 bne 37 ; to f781
15056 F74A 7F 00 0B ... clr 000b
15057 F74D FC 00 3B ..; ldd 003b
15058 F750 27 07 '. beq 07
15059 F752 FE 00 3B ..; ldx 003b
15061 F756 FF 00 3B ..; stx 003b
15062 F759 CC 00 2C .., ldd #002c
15064 F75D ED 00 .. std 00,x
15066 F760 EC 00 .. ldd 00,x
15069 F764 CC 00 3A ..: ldd #003a
15071 F768 A3 00 .. subd 00,x
15074 F76C 25 13 %. bcs 13
15076 F76F EE 00 .. ldx 00,x
15077 F771 E6 00 .. ldab 00,x
15078 F773 27 07 '. beq 07
15080 F776 EE 00 .. ldx 00,x
15081 F778 6A 00 j. dec 00,x
15082 F77A E6 00 .. ldab 00,x
15086 F77F 20 DE . bra de ; to f75f
15088 F781 F6 00 32 ..2 ldab 0032
15089 F784 27 07 '. beq 07 ; to f78d
15090 F786 F6 00 32 ..2 ldab 0032
15091 F789 C4 02 .. andb #02
15092 F78B 26 08 &. bne 08 ; to f795
15094 F78D CE 10 00 ... ldx #1000 ; chime off
15095 F790 1D 00 10 .. bclr 00,x, #10
15096 F793 20 0D . bra 0d ; to f7a2
15098 F795 F6 00 32 ..2 ldab 0032
15099 F798 C4 01 .. andb #01
15100 F79A 26 06 &. bne 06 ; to f7a2
15101 F79C CE 10 00 ... ldx #1000 ; chime on
15102 F79F 1C 00 10 .. bset 00,x, #10
15104 F7A2 7C 00 4C |.L inc 004c
15105 F7A5 F6 00 4C ..L ldab 004c
15106 F7A8 C1 4B .K cmpb #4b
15107 F7AA 26 13 &. bne 13 ; to f7bf
15108 F7AC 7F 00 4C ..L clr 004c
15109 F7AF F6 00 4F ..O ldab 004f
15110 F7B2 27 03 '. beq 03
15111 F7B4 7A 00 4F z.O dec 004f
15113 F7B7 F6 00 25 ..% ldab 0025
15114 F7BA 27 03 '. beq 03
15115 F7BC 7A 00 25 z.% dec 0025
15117 F7BF F6 00 31 ..1 ldab 0031
15118 F7C2 26 03 &. bne 03
15119 F7C4 BD FE 69 ..i jsr fe69 ;reset
15121 F7C7 F6 00 7F ... ldab 007f
15122 F7CA 27 03 '. beq 03
15123 F7CC BD FE 69 ..i jsr fe69 ;reset
15125 F7CF C6 40 .@ ldab #40
15126 F7D1 F7 10 25 ..% stab 1025 ; notify end of RTI period
15132 F7D6 7F 00 14 ... clr 0014 ;0 -> 0014
15134 ; clears the bits of U14 flipflop
15135 F7D9 5F _ clrb ;0 -> B
15136 F7DA F7 38 00 .8. stab 3800 ;B -> 3800
15138 F7DD C6 7F .. ldab #7f ;7F -> B
15139 F7DF F7 00 1A ... stab 001a ;B -> 001a
15141 ; set changer outputs all on, row motors off
15142 F7E2 C6 7F .. ldab #7f ;7F -> B
15143 F7E4 F7 30 00 .0. stab 3000 ;
15145 ; sets priority select bits 0-3 (elevates interrupt priority of all interrupts)
15146 F7E7 C6 07 .. ldab #07 ;7 -> B
15147 F7E9 F7 10 3C ..< stab 103c
15149 ; Set PA7 output, PA3 input, RT clock rate to 314 Hz (4.9152Mhz / 2^14)
15150 F7EC C6 81 .. ldab #81 ;81 -> B
15151 F7EE F7 10 26 ..& stab 1026
15153 ; clear ADC register
15154 F7F1 5F _ clrb ;0 -> B
15155 F7F2 F7 10 30 ..0 stab 1030
15157 ; talk to coin mech, beep, tie clock motors & display reset high (off)
15158 F7F5 C6 C8 .. ldab #c8 ;c8 -> B ; 11001000
15159 F7F7 F7 10 00 ... stab 1000 ; to port A
15161 ; sets PortD directions. XXX: Why is PD2 an output?
15162 F7FA C6 3E .> ldab #3e ;3e -> B 00111110
15163 F7FC F7 10 09 ... stab 1009 ; port D DDR
15165 ; make PortD pins open-drain, set clock polarity
15166 F7FF C6 12 .. ldab #12 ;12 -> B
15167 F801 F7 10 28 ..( stab 1028 ; SPCR 00101000
15169 ; initialize the display
15170 F804 BD BE 69 ..i jsr be69 ;displayreset
15172 ; initialize the bill validator & more stuff
15173 F807 BD EA 59 ..Y jsr ea59 ;jump65
15175 F80A CC 00 64 ..d ldd #0064 ; 100-unit delay
15176 F80D BD E5 71 ..q jsr e571 ;msdelay
15178 F810 CC B1 EF ... ldd #b1ef " ROWE INT "
15179 F813 BD C0 BA ... jsr c0ba ;display:
15180 F816 CC 01 F4 ... ldd #01f4 ; 500-unit delay
15181 F819 BD E5 71 ..q jsr e571 ;msdelay
15182 F81C CC B1 FA ... ldd #b1fa "COPYRIGHT "
15183 F81F BD C0 BA ... jsr c0ba ;display:
15184 F822 CC 01 F4 ... ldd #01f4
15185 F825 BD E5 71 ..q jsr e571 ;msdelay
15186 F828 CC B2 05 ... ldd #b205 " 1993 "
15187 F82B BD C0 BA ... jsr c0ba ;display:
15188 F82E CC 01 F4 ... ldd #01f4
15189 F831 BD E5 71 ..q jsr e571 ;msdelay
15190 F834 CC B2 10 ... ldd #b210 "5900 VER 5"
15191 F837 BD C0 BA ... jsr c0ba ;display:
15192 F83A CC 00 0A ... ldd #000a
15193 F83D BD E5 71 ..q jsr e571 ;msdelay
15196 F840 7F 00 7F ... clr 007f
15197 F843 7F 00 21 ..! clr 0021
15198 F846 7F 00 1F ... clr 001f
15199 F849 7F 00 1D ... clr 001d
15200 F84C 7F 00 1B ... clr 001b
15201 F84F 7F 00 19 ... clr 0019
15203 F852 F6 0B C0 ... ldab 0bc0
15204 F855 C4 01 .. andb #01
15205 F857 27 08 '. beq 08 ; to f861
15206 F859 CE 0B C1 ... ldx #0bc1
15207 F85C 1C 00 01 ... bset 00,x, #01 ; set changer powerup fail
15208 F85F 20 06 . bra 06 ; to f867
15209 F861 CE 0B C1 ... ldx #0bc1
15210 F864 1D 00 01 ... bclr 00,x, #01 ; clear changer powerup fail
15212 F867 F6 0B C0 ... ldab 0bc0
15213 F86A C4 04 .. andb #04
15214 F86C 27 08 '. beq 08 ; to f876
15215 F86E CE 0B C1 ... ldx #0bc1
15216 F871 1C 00 02 ... bset 00,x, #02 ; set card powerup fail
15217 F874 20 06 . bra 06 ; to f87c
15218 F876 CE 0B C1 ... ldx #0bc1
15219 F879 1D 00 02 .. bclr 00,x, #02 ; clear card powerup fail
15220 F87C CE 0B C1 ... ldx #0bc1
15221 F87F 1D 00 04 .. bclr 00,x, #04 ; clear link powerup fail
15222 F882 F6 0B C0 ... ldab 0bc0
15223 F885 C4 02 .. andb #02
15224 F887 27 2D '- beq 2d ; to f8b6
15225 F889 C6 3C .< ldab #3c
15226 F88B F7 00 31 ..1 stab 0031
15228 F88F CC 00 FF ... ldd #00ff
15229 F892 BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
15232 F897 FD 00 40 ..@ std 0040
15233 F89A C6 10 .. ldab #10
15234 F89C F7 10 2C .., stab 102c ; set 9N1
15235 F89F C6 2E .. ldab #2e
15236 F8A1 F7 10 2D ..- stab 102d ; enable SCI transmission
15237 F8A4 C6 03 .. ldab #03
15238 F8A6 F7 10 2B ..+ stab 102b ; set 9600 baud
15239 F8A9 C6 46 .F ldab #46 ; 70
15240 F8AB F7 00 2F ../ stab 002f
15241 F8AE CC 07 D0 ... ldd #07d0
15242 F8B1 BD E5 71 ..q jsr e571 ;msdelay
15243 F8B4 20 2B + bra 2b ; to f8e1
15244 F8B6 BD D0 94 ... jsr d094 ;jump66 - init variables
15245 F8B9 C6 27 .' ldab #27
15246 F8BB F7 10 2D ..- stab 102d ; disable SCI transmission
15247 F8BE C6 07 .. ldab #07
15248 F8C0 F7 10 2B ..+ stab 102b ; set 600 baud
15249 ; reset the changer
15250 F8C3 CE 00 1A ... ldx #001a
15251 F8C6 1C 00 04 .. bset 00,x, #04
15252 F8C9 F6 00 1A ... ldab 001a
15253 F8CC F7 30 00 .0. stab 3000 ; reset the changer
15254 F8CF CC 07 D0 ... ldd #07d0
15255 F8D2 BD E5 71 ..q jsr e571 ;msdelay
15256 F8D5 CE 00 1A ... ldx #001a
15257 F8D8 1D 00 04 .. bclr 00,x, #04
15258 F8DB F6 00 1A ... ldab 001a
15259 F8DE F7 30 00 .0. stab 3000 ; pull reset line back
15261 F8E1 7F 0E 6A ..j clr 0e6a
15262 F8E4 BD D4 79 ..y jsr d479 ;jump67
15263 F8E7 BD E8 9A ... jsr e89a ;jump68
15264 F8EA 7F 00 06 ... clr 0006
15265 F8ED CE 00 1D ... ldx #001d
15266 F8F0 1C 00 10 .. bset 00,x, #10
15267 F8F3 CC 05 DC ... ldd #05dc
15268 F8F6 BD E5 71 ..q jsr e571 ;msdelay
15269 F8F9 C6 1E .. ldab #1e
15270 F8FB F7 00 35 ..5 stab 0035
15273 ; begin of main loop
15276 F8FF BD E6 1B ... jsr e61b ;jump4 set 0031 to 10
15277 F902 BD D1 05 ... jsr d105 ;motors_off
15278 F905 F6 10 0A ... ldab 100a
15279 F908 C4 08 .. andb #08 ; 24VUN line too low
15280 F90A 27 46 'F beq 46 ; to f952
15281 F90C F6 10 0A ... ldab 100a
15282 F90F C4 08 .. andb #08
15283 F911 27 11 '. beq 11 ; to f924
15284 F913 CE 00 1A ... ldx #001a
15285 F916 1C 00 04 .. bset 00,x, #04
15286 F919 F6 00 1A ... ldab 001a
15287 F91C F7 30 00 .0. stab 3000 ; changer reset
15288 F91F BD E6 1B ... jsr e61b ;jump4 put #0a => 0031
15289 F922 20 E8 . bra e8 ; to f90c
15291 F924 BD D0 94 ... jsr d094 ;jump66 - reset some variables to defaults?
15292 F927 F6 0B C0 ... ldab 0bc0
15293 F92A C4 01 .. andb #01
15294 F92C 27 06 '. beq 06
15295 F92E CE 0B C1 ... ldx #0bc1
15296 F931 1C 00 01 .. bset 00,x, #01 ; set changer powerup fail
15297 F934 F6 0B C0 ... ldab 0bc0
15298 F937 C4 04 .. andb #04
15299 F939 27 06 '. beq 06
15300 F93B CE 0B C1 ... ldx #0bc1
15301 F93E 1C 00 02 .. bset 00,x, #02 ; set card powerup fail
15302 F941 CE 00 1A ... ldx #001a
15303 F944 1D 00 04 .. bclr 00,x, #04
15304 F947 F6 00 1A ... ldab 001a
15305 F94A F7 30 00 .0. stab 3000 ; clear send & reset lines
15306 F94D C6 1E .. ldab #1e
15307 F94F F7 00 35 ..5 stab 0035
15309 ; end of power line test
15311 F952 F6 0B C0 ... ldab 0bc0
15312 F955 C4 08 .. andb #08
15313 F957 27 16 '. beq 16 ; to f96f
15314 F959 CE 00 02 ... ldx #0002
15316 F95D CC 10 00 ... ldd #1000
15317 F960 BD E5 D7 ... jsr e5d7 ;jump69 - poll bill validator
15319 F964 83 00 00 ... subd #0000
15320 F967 27 06 '. beq 06
15321 F969 CE 0B C1 ... ldx #0bc1
15322 F96C 1C 00 08 .. bset 00,x, #08 ; set bill error bit
15324 F96F F6 0B C1 ... ldab 0bc1
15325 F972 C4 07 .. andb #07 ; was there a power failure?
15326 F974 27 0D '. beq 0d ; to f983
15327 F976 F6 00 35 ..5 ldab 0035
15328 F979 26 08 &. bne 08
15329 F97B CE 00 21 ..! ldx #0021
15330 F97E 1C 00 20 .. bset 00,x, #20
15331 F981 20 06 .. bra 06 ; to f989
15334 F983 CE 00 21 ..! ldx #0021
15335 F986 1D 00 20 .. bclr 00,x, #20
15336 F989 BD BB 63 . jsr bb63 ;jump200 - read the keypad
15337 F98C BD B8 00 ... jsr b800 ;jump201 - interpret the keys and write to the display
15338 F98F F6 0B C0 ... ldab 0bc0
15339 F992 C4 01 .. andb #01
15340 F994 27 0B '. beq 0b
15341 F996 FC 00 40 ..@ ldd 0040
15342 F999 F3 00 3E ..> addd 003e
15343 F99C 26 03 &. bne 03
15344 F99E BD D6 F6 ... jsr d6f6 ;jump106
15345 F9A1 F6 00 12 ... ldab 0012
15346 F9A4 C4 20 . andb #20 ; test door switch
15347 F9A6 27 08 '. beq 08
15348 F9A8 F6 00 35 ..5 ldab 0035
15349 F9AB 26 03 &. bne 03
15350 F9AD 7E FA 79 ~.y jmp fa79 ;goto83
15351 F9B0 CE 00 1F ... ldx #001f
15352 F9B3 1D 00 04 ... bclr 00,x, #04
15353 F9B6 CE 00 1D ... ldx #001d
15354 F9B9 1C 00 10 ... bset 00,x, #10
15355 F9BC F6 00 1F ... ldab 001f
15356 F9BF C4 20 . andb #20
15357 F9C1 26 03 &. bne 03
15358 F9C3 7E FA 74 ~.t jmp fa74 ;goto84
15359 F9C6 F6 0B C0 ... ldab 0bc0
15360 F9C9 C4 01 .. andb #01
15361 F9CB 27 08 '. beq 08
15362 F9CD CE 0B C1 ... ldx #0bc1
15363 F9D0 1C 00 01 ... bset 00,x, #01 ; set changer powerup error
15364 F9D3 20 06 . bra 06
15365 F9D5 CE 0B C1 ... ldx #0bc1
15366 F9D8 1D 00 01 ... bclr 00,x, #01 ; unset changer powerup error
15367 F9DB F6 0B C0 ... ldab 0bc0
15368 F9DE C4 04 .. andb #04
15369 F9E0 27 08 '. beq 08
15370 F9E2 CE 0B C1 ... ldx #0bc1
15371 F9E5 1C 00 02 ... bset 00,x, #02 ; set card powerup error
15372 F9E8 20 06 . bra 06
15373 F9EA CE 0B C1 ... ldx #0bc1
15374 F9ED 1D 00 02 ... bclr 00,x, #02 ; unset card powerup error
15375 F9F0 CE 0B C1 ... ldx #0bc1
15376 F9F3 1D 00 04 ... bclr 00,x, #04 ; unset link powerup error
15377 F9F6 CE 00 1B ... ldx #001b
15378 F9F9 1D 00 02 ... bclr 00,x, #02
15379 F9FC F6 0B C0 ... ldab 0bc0
15380 F9FF C4 02 .. andb #02
15381 FA01 27 27 '' beq 27
15382 FA03 C6 3C .< ldab #3c
15383 FA05 F7 00 31 ..1 stab 0031
15385 FA09 CC 00 FF ... ldd #00ff
15386 FA0C BD C7 E7 ... jsr c7e7 ;jump37 - send #ff to coin mech
15389 FA11 FD 00 40 ..@ std 0040
15390 FA14 C6 10 .. ldab #10
15391 FA16 F7 10 2C .., stab 102c ; set 9N1
15392 FA19 C6 2E .. ldab #2e
15393 FA1B F7 10 2D ..- stab 102d ; enable SCI transmission
15394 FA1E C6 03 .. ldab #03
15395 FA20 F7 10 2B ..+ stab 102b ; 9600 baud
15396 FA23 C6 46 .F ldab #46 ; 70
15397 FA25 F7 00 2F ../ stab 002f
15398 FA28 20 31 1 bra 31
15399 FA2A CE 00 21 ..! ldx #0021
15400 FA2D 1D 00 40 ... bclr 00,x, #40
15401 FA30 BD D0 94 ... jsr d094 ;jump66 - init variables
15402 FA33 C6 27 .' ldab #27
15403 FA35 F7 10 2D ..- stab 102d ; disable SCI transmission
15404 FA38 C6 07 .. ldab #07
15405 FA3A F7 10 2B ..+ stab 102b ; 600 baud
15406 FA3D CE 00 1A ... ldx #001a
15407 FA40 1C 00 04 ... bset 00,x, #04
15408 FA43 F6 00 1A ... ldab 001a
15409 FA46 F7 30 00 .0. stab 3000 ; changer reset line high
15410 FA49 CC 00 32 ..2 ldd #0032
15411 FA4C BD E5 71 ..q jsr e571 ;msdelay
15412 FA4F CE 00 1A ... ldx #001a
15413 FA52 1D 00 04 ... bclr 00,x, #04
15414 FA55 F6 00 1A ... ldab 001a
15415 FA58 F7 30 00 .0. stab 3000 ; changer reset line low
15416 FA5B BD D4 79 ..y jsr d479 ;jump67
15417 FA5E BD E8 9A ... jsr e89a ;jump68
15418 FA61 BD BE 69 ..i jsr be69 ;displayreset
15419 FA64 7F 00 06 ... clr 0006
15420 FA67 CE 00 1F ... ldx #001f
15421 FA6A 1D 00 20 .. bclr 00,x, #20
15422 FA6D C6 1E . ldab #1e
15423 FA6F F7 00 35 ...5 stab 0035
15424 FA72 20 03 . bra 03
15426 FA74 BD DE E7 ... jsr dee7 ;jump116
15427 FA77 20 66 f bra 66
15429 FA79 F6 00 12 ... ldab 0012
15430 FA7C C4 20 . andb #20
15431 FA7E 27 5F '_ beq 5f ; to fadf - restart loop
15432 FA80 F6 00 1F ... ldab 001f
15433 FA83 C4 20 . andb #20
15434 FA85 26 03 &. bne 03
15435 FA87 BD E5 AA ... jsr e5aa ;jump12
15436 FA8A CE 00 1F ... ldx #001f
15437 FA8D 1C 00 .. bset 00,x, #20
15438 FA8F F6 00 12 ... ldab 0012
15439 FA93 C4 01 .. andb #01
15440 FA95 26 33 &3 bne 33
15441 FA97 F6 00 1D ... ldab 001d
15442 FA9A C4 08 .. andb #08
15443 FA9C 27 2A '* beq 2a ; to fac8, to fad0
15444 FA9E F6 00 1F ... ldab 001f
15445 FAA1 C4 04 .. andb #04
15446 FAA3 26 14 &. bne 14
15447 FAA5 CE 00 1F ... ldx #001f
15448 FAA8 1C 00 04 ... bset 00,x, #04
15449 FAAB CE 00 1F ... ldx #001f
15450 FAAE 1C 00 .. bset 00,x, #80
15451 FAB0 CC 02 33 .. ldd #0233
15452 FAB4 FD 00 3B ..; std 003b
15453 FAB7 20 09 . bra 09 ; to fac2
15455 FAB9 BD E5 AA ... jsr e5aa ;jump12 - beep if key pressed?
15456 FABC CE 00 1F ... ldx #001f
15457 FABF 1D 00 04 ... bclr 00,x, #04
15458 FAC2 CE 00 1D ... ldx #001d
15459 FAC5 1D 00 08 ... bclr 00,x, #08
15460 FAC8 20 06 . bra 06 ; to fad0
15461 FACA CE 00 1D ... ldx #001d
15462 FACD 1C 00 08 ... bset 00,x, #08
15463 FAD0 F6 00 1F ... ldab 001f
15464 FAD3 C4 04 .. andb #04
15465 FAD5 26 05 &. bne 05 ; to fadc - service menu
15466 FAD7 BD 81 00 ... jsr 8100 ;jump72 - preservice menu?
15467 FADA 20 03 . bra 03
15468 FADC BD 84 A0 ... jsr 84a0 ;jump73
15469 FADF 7E F8 FF ~.. jmp f8ff ;goto85
15470 ; main should never return in theory.
15473 ; error interrupts (see vectors at end)
15474 FAE2 CC B1 2E ... ldd #b12e ;"**ERROR***"
15475 FAE5 BD C0 BA ... jsr c0ba ;display:
15476 FAE8 CC 07 D0 ... ldd #07d0
15477 FAEB BD E5 71 ..q jsr e571 ;msdelay
15479 FAEF CC B1 2E ... ldd #b12e ;"**ERROR***"
15480 FAF2 BD C0 BA ... jsr c0ba ;display:
15481 FAF5 CC 07 D0 ... ldd #07d0
15482 FAF8 BD E5 71 ..q jsr e571 ;msdelay
15484 FAFC CC B1 2E ... ldd #b12e ;"**ERROR***"
15485 FAFF BD C0 BA ... jsr c0ba ;display:
15486 FB02 CC 07 D0 ... ldd #07d0
15487 FB05 BD E5 71 ..q jsr e571 ;msdelay
15489 FB09 CC B1 2E ... ldd #b12e ;"**ERROR***"
15490 FB0C BD C0 BA ... jsr c0ba ;display:
15491 FB0F CC 07 D0 ... ldd #07d0
15492 FB12 BD E5 71 ..q jsr e571 ;msdelay
15494 FB16 CC B1 2E ... ldd #b12e ;"**ERROR***"
15495 FB19 BD C0 BA ... jsr c0ba ;display:
15496 FB1C CC 07 D0 ... ldd #07d0
15497 FB1F BD E5 71 ..q jsr e571 ;msdelay
15499 FB23 CC B1 2E ... ldd #b12e ;"**ERROR***"
15500 FB26 BD C0 BA ... jsr c0ba ;display:
15501 FB29 CC 07 D0 ... ldd #07d0
15502 FB2C BD E5 71 ..q jsr e571 ;msdelay
15504 FB30 CC B1 2E ... ldd #b12e ;"**ERROR***"
15505 FB33 BD C0 BA ... jsr c0ba ;display:
15506 FB36 CC 07 D0 ... ldd #07d0
15507 FB39 BD E5 71 ..q jsr e571 ;msdelay
15509 FB3D CC B1 2E ... ldd #b12e ;"**ERROR***"
15510 FB40 BD C0 BA ... jsr c0ba ;display:
15511 FB43 CC 07 D0 ... ldd #07d0
15512 FB46 BD E5 71 ..q jsr e571 ;msdelay
15514 FB4A CC B1 2E ... ldd #b12e ;"**ERROR***"
15515 FB4D BD C0 BA ... jsr c0ba ;display:
15516 FB50 CC 07 D0 ... ldd #07d0
15517 FB53 BD E5 71 ..q jsr e571 ;msdelay
15519 FB57 CC B1 2E ... ldd #b12e ;"**ERROR***"
15520 FB5A BD C0 BA ... jsr c0ba ;display:
15521 FB5D CC 07 D0 ... ldd #07d0
15522 FB60 BD E5 71 ..q jsr e571 ;msdelay
15524 FB64 CC B1 2E ... ldd #b12e ;"**ERROR***"
15525 FB67 BD C0 BA ... jsr c0ba ;display:
15526 FB6A CC 07 D0 ... ldd #07d0
15527 FB6D BD E5 71 ..q jsr e571 ;msdelay
15529 FB71 CC B1 2E ... ldd #b12e ;"**ERROR***"
15530 FB74 BD C0 BA ... jsr c0ba ;display:
15531 FB77 CC 07 D0 ... ldd #07d0
15532 FB7A BD E5 71 ..q jsr e571 ;msdelay
15534 FB7E CC B1 2E ... ldd #b12e ;"**ERROR***"
15535 FB81 BD C0 BA ... jsr c0ba ;display:
15536 FB84 CC 07 D0 ... ldd #07d0
15537 FB87 BD E5 71 ..q jsr e571 ;msdelay
15539 FB8B CC B1 2E ... ldd #b12e ;"**ERROR***"
15540 FB8E BD C0 BA ... jsr c0ba ;display:
15541 FB91 CC 07 D0 ... ldd #07d0
15542 FB94 BD E5 71 ..q jsr e571 ;msdelay
15544 FB98 CC B1 2E ... ldd #b12e ;"**ERROR***"
15545 FB9B BD C0 BA ... jsr c0ba ;display:
15546 FB9E CC 07 D0 ... ldd #07d0
15547 FBA1 BD E5 71 ..q jsr e571 ;msdelay
15549 FBA5 CC B1 2E ... ldd #b12e ;"**ERROR***"
15550 FBA8 BD C0 BA ... jsr c0ba ;display:
15551 FBAB CC 07 D0 ... ldd #07d0
15552 FBAE BD E5 71 ..q jsr e571 ;msdelay
15554 FBB2 BD FE 69 ..i jsr fe69 ;reset
15556 FBB6 BD FE 69 ..i jsr fe69 ;reset
15560 ; passed a u16 on the stack, i, and a u16 in D, j
15561 ; i *think* it multiplies i*j and returns it in D.
15562 ; but the assembly seems to have several off-by-one errors
15566 FBBD E6 06 .. ldab 06,x ; lower 8-bits of i
15567 FBBF 3D = mul ; A*B => D
15568 FBC0 A6 00 .. ldaa 00,x
15570 FBC3 E6 05 .. ldab 05,x ; upper byte of return address??
15573 FBC7 1B . aba ; a now contains ad+bc
15576 FBCA A6 06 .. ldaa 06,x
15579 FBCE AB 00 .. adda 00,x
15581 FBD1 EC 03 .. ldd 03,x ; move saved value of X
15582 FBD3 ED 05 .. std 05,x ; into the return address???
15585 FBD7 83 00 00 ... subd #0000
15593 FBDF BD FB E8 ... jsr fbe8 ;jump86
15594 FBE2 BD FC 25 ..% jsr fc25 ;jump85
15595 FBE5 7E FC 04 ~.. jmp fc04 ;goto87
15600 FBEA EC 02 .. ldd 02,x
15603 FBEE EC 00 .. ldd 00,x
15612 FBF8 EC 12 .. ldd 12,x
15613 FBFA ED 04 .. std 04,x
15614 FBFC EC 0C .. ldd 0c,x
15615 FBFE ED 02 .. std 02,x
15616 FC00 EC 10 .. ldd 10,x
15621 FC04 ED 00 .. std 00,x
15624 FC08 EC 08 .. ldd 08,x
15625 FC0A ED 0A .. std 0a,x
15626 FC0C EC 02 .. ldd 02,x
15627 FC0E ED 0C .. std 0c,x
15629 FC11 ED 02 .. std 02,x
15630 FC13 EC 00 .. ldd 00,x
15631 FC15 26 06 &. bne 06
15632 FC17 6D 02 m. tst 02,x
15633 FC19 26 02 &. bne 02
15634 FC1B 6D 03 m. tst 03,x
15647 FC27 E3 06 .. addd 06,x
15650 FC2B EC 02 .. ldd 02,x
15651 FC2D ED 06 .. std 06,x
15652 FC2F EC 04 .. ldd 04,x
15653 FC31 E3 08 .. addd 08,x
15654 FC33 ED 08 .. std 08,x
15657 FC37 C9 00 .. adcb #00
15658 FC39 89 00 .. adca #00
15659 FC3B 83 00 00 ... subd #0000
15660 FC3E 26 06 &. bne 06
15661 FC40 6D 08 m. tst 08,x
15662 FC42 26 02 &. bne 02
15663 FC44 6D 09 m. tst 09,x
15682 FC57 A7 04 .. staa 04,x
15683 FC59 7E FC 6D ~.m jmp fc6d ;goto88
15695 FC66 86 01 .. ldaa #01
15696 FC68 A7 04 .. staa 04,x
15697 FC6A 7E FC 6D ~.m jmp fc6d ;goto88
15699 FC6D 1A EE 0E ... ldy 0e,x
15700 FC70 EC 08 .. ldd 08,x
15701 FC72 ED 0E .. std 0e,x
15702 FC74 EC 14 .. ldd 14,x
15703 FC76 ED 0C .. std 0c,x
15704 FC78 EC 12 .. ldd 12,x
15705 FC7A ED 0A .. std 0a,x
15706 FC7C 1A EF 12 ... sty 12,x
15709 FC81 ED 08 .. std 08,x
15710 FC83 ED 06 .. std 06,x
15711 FC85 EC 0A .. ldd 0a,x
15712 FC87 1A A3 0E ... cmpd 0e,x
15713 FC8A 22 23 "# bhi 23
15714 FC8C 27 15 '. beq 15
15715 FC8E 1E 04 01 08 .... brset 04,x 01 08
15716 FC92 CC 00 00 ... ldd #0000
15717 FC95 ED 14 .. std 14,x
15718 FC97 7E FE 04 ~.. jmp fe04 ;goto89
15719 FC9A EC 0C .. ldd 0c,x
15720 FC9C ED 14 .. std 14,x
15721 FC9E EC 0A .. ldd 0a,x
15722 FCA0 7E FD E3 ~.. jmp fde3 ;goto90
15723 FCA3 83 00 00 ... subd #0000
15724 FCA6 27 12 '. beq 12
15725 FCA8 EC 0C .. ldd 0c,x
15726 FCAA 1A A3 10 ... cmpd 10,x
15727 FCAD 25 DF %. bcs df
15728 FCAF 6D 0E m. tst 0e,x
15729 FCB1 26 70 &p bne 70
15730 FCB3 6D 0F m. tst 0f,x
15731 FCB5 27 1A '. beq 1a
15732 FCB7 7E FD A4 ~.. jmp fda4 ;goto91
15736 FCBE EC 0C .. ldd 0c,x
15737 FCC0 EE 10 .. ldx 10,x
15739 FCC3 18 1E 04 01 01 ..... brset 04,y 01 01
15742 FCCA ED 14 .. std 14,x
15745 FCCE 7E FD E3 ~.. jmp fde3 ;goto90
15749 FCD5 EC 0A .. ldd 0a,x
15750 FCD7 EE 10 .. ldx 10,x
15753 FCDB CD EF 0A ... stx 02x,y
15757 FCE1 CD EF 0E ... stx 02x,y
15759 FCE5 18 E3 0C ... addd 0c,y
15760 FCE8 24 1B $. bcc 1b
15761 FCEA 18 ED 0C ... std 0c,y
15763 FCEE C6 01 .. ldab #01
15767 FCF3 18 E3 0E ... addd 0e,y
15768 FCF6 24 03 $. bcc 03
15769 FCF8 18 6C 0A .l. inc 0a,y
15770 FCFB 18 ED 0E ... std 0e,y
15773 FD00 18 E3 0C ... addd 0c,y
15774 FD03 25 E5 %. bcs e5
15777 FD07 18 E3 0E ... addd 0e,y
15778 FD0A 24 03 $. bcc 03
15779 FD0C 18 6C 0A .l. inc 0a,y
15780 FD0F 18 1F 04 01 07 ..... brclr 04,y 01 07
15782 FD15 18 6F 0A .o. clr 0a,y
15783 FD18 18 6F 0B .o. clr 0b,y
15785 FD1C ED 14 .. std 14,x
15786 FD1E EC 0A .. ldd 0a,x
15787 FD20 7E FD E3 ~.. jmp fde3 ;goto90
15788 FD23 86 08 .. ldaa #08
15789 FD25 A7 05 .. staa 05,x
15790 FD27 69 0D i. rol 0d,x
15791 FD29 69 0C i. rol 0c,x
15792 FD2B 69 0B i. rol 0b,x
15793 FD2D 69 0A i. rol 0a,x
15794 FD2F 69 09 i. rol 09,x
15795 FD31 EC 0B .. ldd 0b,x
15796 FD33 A3 10 .. subd 10,x
15797 FD35 ED 14 .. std 14,x
15798 FD37 EC 09 .. ldd 09,x
15799 FD39 E2 0F .. sbcb 0f,x
15800 FD3B A2 0E .. sbca 0e,x
15801 FD3D 25 06 %. bcs 06
15802 FD3F ED 09 .. std 09,x
15803 FD41 EC 14 .. ldd 14,x
15804 FD43 ED 0B .. std 0b,x
15805 FD45 6A 05 j. dec 05,x
15806 FD47 26 DE &. bne de
15807 FD49 69 0D i. rol 0d,x
15808 FD4B 1F 04 01 09 .... brclr 04,x 01 09
15809 FD4F EC 0B .. ldd 0b,x
15810 FD51 ED 14 .. std 14,x
15811 FD53 EC 09 .. ldd 09,x
15812 FD55 7E FD E3 ~.. jmp fde3 ;goto90
15814 FD59 E6 0D .. ldab 0d,x
15816 FD5C ED 14 .. std 14,x
15818 FD5F 7E FD E3 ~.. jmp fde3 ;goto90
15819 FD62 86 10 .. ldaa #10
15820 FD64 A7 05 .. staa 05,x
15821 FD66 69 0D i. rol 0d,x
15822 FD68 69 0C i. rol 0c,x
15823 FD6A 69 0B i. rol 0b,x
15824 FD6C 69 0A i. rol 0a,x
15825 FD6E 69 09 i. rol 09,x
15826 FD70 69 08 i. rol 08,x
15827 FD72 EC 0A .. ldd 0a,x
15828 FD74 A3 10 .. subd 10,x
15829 FD76 ED 14 .. std 14,x
15830 FD78 EC 08 .. ldd 08,x
15831 FD7A E2 0F .. sbcb 0f,x
15832 FD7C 82 00 .. sbca #00
15833 FD7E 25 06 %. bcs 06
15834 FD80 ED 08 .. std 08,x
15835 FD82 EC 14 .. ldd 14,x
15836 FD84 ED 0A .. std 0a,x
15837 FD86 6A 05 j. dec 05,x
15838 FD88 26 DC &. bne dc
15839 FD8A 69 0D i. rol 0d,x
15840 FD8C 69 0C i. rol 0c,x
15841 FD8E 1F 04 01 08 .... brclr 04,x 01 08
15842 FD92 EC 0A .. ldd 0a,x
15843 FD94 ED 14 .. std 14,x
15844 FD96 EC 08 .. ldd 08,x
15845 FD98 20 49 I bra 49
15846 FD9A EC 0C .. ldd 0c,x
15849 FD9E ED 14 .. std 14,x
15852 FDA2 20 3F ? bra 3f
15854 FDA4 2B BC +. bmi bc
15855 FDA6 86 10 .. ldaa #10
15856 FDA8 A7 05 .. staa 05,x
15857 FDAA 69 0D i rol 0d,x
15858 FDAC 69 0C i rol 0c,x
15859 FDAE 69 0B i rol 08,x
15860 FDB0 69 0A i rol 0a,x
15861 FDB2 69 07 i rol 07,x
15862 FDB4 EC 0A .. ldd 0a,x
15863 FDB6 A3 10 .. subd 10,x
15864 FDB8 ED 14 .. std 14,x
15865 FDBA A6 07 .. ldaa 07,x
15866 FDBC A2 0F .. sbca 0f,x
15867 FDBE 25 06 %. bcs 06
15868 FDC0 A7 07 .. staa 07,x
15869 FDC2 EC 14 .. ldd 14,x
15870 FDC4 ED 0A .. std 0a,x
15871 FDC6 6A 05 j. dec 05,x
15872 FDC8 26 E0 &. bne e0
15873 FDCA 69 0D i. rol 0d,x
15874 FDCC 69 0C i. rol 0c,x
15875 FDCE 1F 04 01 09 .... brclr 04,x 01 09
15876 FDD2 EC 0A .. ldd 0a,x
15877 FDD4 ED 14 .. std 14,x
15879 FDD7 E6 07 .. ldab 07,x
15880 FDD9 20 08 . bra 08
15881 FDDB EC 0C .. ldd 0c,x
15884 FDDF ED 14 .. std 14,x
15888 FDE3 1F 04 80 12 .... brclr 04,x 80 12
15891 FDE9 63 14 c. com 14,x
15892 FDEB 63 15 c. com 15,x
15893 FDED 6C 15 l. inc 15,x
15894 FDEF 26 08 &. bne 08
15895 FDF1 6C 14 l. inc 14,x
15896 FDF3 26 04 &. bne 04
15898 FDF6 26 01 &. bne 01
15900 FDF9 83 00 00 ... subd #0000
15901 FDFC 26 06 &. bne 06
15902 FDFE 6D 14 m. tst 14,x
15903 FE00 26 02 &. bne 02
15904 FE02 6D 15 m. tst 15,x
15925 ; passed a structure (in code following the call to jump2) and a number D
15926 ; popular D candidates come from $48, $42, $9, $a, etc...
15927 ; D must be between 0 and len, inclusive.
15930 ; u16 jmplocs[len+2];
15933 FE17 A3 00 .. subd 00,x ; D -= var1
15934 FE19 2D 05 -. blt 05 ; if D<0, to fe20, where D=-1
15935 FE1B 1A A3 02 ... cmpd 02,x ;
15936 FE1E 2F 03 /. ble 03 ; if D > len, D=-1, else to fe23
15937 FE20 CC FF FF ... ldd #ffff
15938 FE23 3C < pshx ; push return ptr back onto stack
15939 FE24 05 . asld ; D *= 2
15941 FE26 E3 00 .. addd 00,x ; D += return-ptr
15942 FE28 C3 00 06 ... addd #0006 ; + 6
15944 FE2C EC 00 .. ldd 00,x ; return ptr = jmplocs[orig D]
15946 FE2F ED 00 .. std 00,x
15950 ; this looks like a switch statement
15951 ; we're passed an array of 4-byte items... this is passed in the code segment
15952 ; we take the return address and start counting until we hit a double zero.
15953 ; hence much of the code following this call in a standard disassembly is garbage
15954 ; we also look at D - common values passed to use are contents of $9, $12, $15, $4A or the SCI $102f
15956 FE33 6D 04 m. tst 04,x
15957 FE35 26 04 &. bne 04 ; to fe3b if this is not the last one
15958 FE37 6D 05 m. tst 05,x ; double check it really is last one.
15959 FE39 27 0A '. beq 0a ; to fe45
15960 FE3B A3 02 .. subd 02,x ; subtract lower order bits from D
15961 FE3D 27 06 '. beq 06 ; to fe45
15962 FE3F 08 . inx ; move the array index up one
15966 FE43 20 EE . bra ee ; to fe33
15967 FE45 EE 00 .. ldx 00,x ; return to our destination address
15968 FE47 6E 00 n. jmp 00,x
15972 ; Enable the Real-time Interrupt (periodic hw interrupt)
15973 FE49 86 40 .@ ldaa #40 ;40 -> A
15974 FE4B B7 10 24 ..$ staa 1024 ;A -> 1024
15975 ; Enable the ADC & configure IRQ' for edge-sensitive only operation
15976 FE4E 86 A0 .. ldaa #a0 ;a0 -> A
15977 FE50 B7 10 39 ..9 staa 1039 ;A -> 1039
15978 ; Set a stack pointer?
15979 FE53 8E 00 EF ... lds #00ef
15980 ; Zero out the first 128 bytes of ram.
15981 FE56 CE 00 00 ... ldx #0000 ;wipe 0000-007f X=0000
15982 FE59 8C 00 80 ... cpx #0080 ;loop: if X = 0080
15983 FE5C 24 05 $. bcc fe63 ; finished
15984 FE5E 6F 00 o. clr 00,x ; else: load addr X with 0
15985 FE60 08 . inx ; increment X
15986 FE61 20 F6 . bra fe59 ;repeat
15988 ; Jump to main procedure
15989 FE63 BD F7 D6 ... jsr f7d6 ;goto main:
15990 FE66 7E FE 6D ~.m jmp fe6d ; goto91
15992 ; Reboot function for when things go astray?
15993 FE69 0F . sei ;inhibit interrupts
15994 FE6A 7E FE 49 ~.I jmp fe49 ;goto reset:
15996 ; loop forever - called after main is exited.
15998 FE6D 20 FE . bra fe6d ;loop forever
15999 ;[SAF] - wait for interrupts?
16001 FE6F FF FF FF ... stx ffff
16002 FE72 FF FF FF ... stx ffff
16003 FE75 FF FF FF ... stx ffff
16004 FE78 FF FF FF ... stx ffff
16005 FE7B FF FF FF ... stx ffff
16006 FE7E FF FF FF ... stx ffff
16007 FE81 FF FF FF ... stx ffff
16008 FE84 FF FF FF ... stx ffff
16009 FE87 FF FF FF ... stx ffff
16010 FE8A FF FF FF ... stx ffff
16011 FE8D FF FF FF ... stx ffff
16012 FE90 FF FF FF ... stx ffff
16013 FE93 FF FF FF ... stx ffff
16014 FE96 FF FF FF ... stx ffff
16015 FE99 FF FF FF ... stx ffff
16016 FE9C FF FF FF ... stx ffff
16017 FE9F FF FF FF ... stx ffff
16018 FEA2 FF FF FF ... stx ffff
16019 FEA5 FF FF FF ... stx ffff
16020 FEA8 FF FF FF ... stx ffff
16021 FEAB FF FF FF ... stx ffff
16022 FEAE FF FF FF ... stx ffff
16023 FEB1 FF FF FF ... stx ffff
16024 FEB4 FF FF FF ... stx ffff
16025 FEB7 FF FF FF ... stx ffff
16026 FEBA FF FF FF ... stx ffff
16027 FEBD FF FF FF ... stx ffff
16028 FEC0 FF FF FF ... stx ffff
16029 FEC3 FF FF FF ... stx ffff
16030 FEC6 FF FF FF ... stx ffff
16031 FEC9 FF FF FF ... stx ffff
16032 FECC FF FF FF ... stx ffff
16033 FECF FF FF FF ... stx ffff
16034 FED2 FF FF FF ... stx ffff
16035 FED5 FF FF FF ... stx ffff
16036 FED8 FF FF FF ... stx ffff
16037 FEDB FF FF FF ... stx ffff
16038 FEDE FF FF FF ... stx ffff
16039 FEE1 FF FF FF ... stx ffff
16040 FEE4 FF FF FF ... stx ffff
16041 FEE7 FF FF FF ... stx ffff
16042 FEEA FF FF FF ... stx ffff
16043 FEED FF FF FF ... stx ffff
16044 FEF0 FF FF FF ... stx ffff
16045 FEF3 FF FF FF ... stx ffff
16046 FEF6 FF FF FF ... stx ffff
16047 FEF9 FF FF FF ... stx ffff
16048 FEFC FF FF FF ... stx ffff
16049 FEFF FF FF FF ... stx ffff
16050 FF02 FF FF FF ... stx ffff
16051 FF05 FF FF FF ... stx ffff
16052 FF08 FF FF FF ... stx ffff
16053 FF0B FF FF FF ... stx ffff
16054 FF0E FF FF FF ... stx ffff
16055 FF11 FF FF FF ... stx ffff
16056 FF14 FF FF FF ... stx ffff
16057 FF17 FF FF FF ... stx ffff
16058 FF1A FF FF FF ... stx ffff
16059 FF1D FF FF FF ... stx ffff
16060 FF20 FF FF FF ... stx ffff
16061 FF23 FF FF FF ... stx ffff
16062 FF26 FF FF FF ... stx ffff
16063 FF29 FF FF FF ... stx ffff
16064 FF2C FF FF FF ... stx ffff
16065 FF2F FF FF FF ... stx ffff
16066 FF32 FF FF FF ... stx ffff
16067 FF35 FF FF FF ... stx ffff
16068 FF38 FF FF FF ... stx ffff
16069 FF3B FF FF FF ... stx ffff
16070 FF3E FF FF FF ... stx ffff
16071 FF41 FF FF FF ... stx ffff
16072 FF44 FF FF FF ... stx ffff
16073 FF47 FF FF FF ... stx ffff
16074 FF4A FF FF FF ... stx ffff
16075 FF4D FF FF FF ... stx ffff
16076 FF50 FF FF FF ... stx ffff
16077 FF53 FF FF FF ... stx ffff
16078 FF56 FF FF FF ... stx ffff
16079 FF59 FF FF FF ... stx ffff
16080 FF5C FF FF FF ... stx ffff
16081 FF5F FF FF FF ... stx ffff
16082 FF62 FF FF FF ... stx ffff
16083 FF65 FF FF FF ... stx ffff
16084 FF68 FF FF FF ... stx ffff
16085 FF6B FF FF FF ... stx ffff
16086 FF6E FF FF FF ... stx ffff
16087 FF71 FF FF FF ... stx ffff
16088 FF74 FF FF FF ... stx ffff
16089 FF77 FF FF FF ... stx ffff
16090 FF7A FF FF FF ... stx ffff
16091 FF7D FF FF FF ... stx ffff
16092 FF80 FF FF FF ... stx ffff
16093 FF83 FF FF FF ... stx ffff
16094 FF86 FF FF FF ... stx ffff
16095 FF89 FF FF FF ... stx ffff
16096 FF8C FF FF FF ... stx ffff
16097 FF8F FF FF FF ... stx ffff
16098 FF92 FF FF FF ... stx ffff
16099 FF95 FF FF FF ... stx ffff
16100 FF98 FF FF FF ... stx ffff
16101 FF9B FF FF FF ... stx ffff
16102 FF9E FF FF FF ... stx ffff
16103 FFA1 FF FF FF ... stx ffff
16104 FFA4 FF FF FF ... stx ffff
16105 FFA7 FF FF FF ... stx ffff
16106 FFAA FF FF FF ... stx ffff
16107 FFAD FF FF FF ... stx ffff
16108 FFB0 FF FF FF ... stx ffff
16109 FFB3 FF FF FF ... stx ffff
16110 FFB6 FF FF FF ... stx ffff
16111 FFB9 FF FF FF ... stx ffff
16112 FFBC FF FF FF ... stx ffff
16113 FFBF FF FF FF ... stx ffff
16114 FFC2 FF FF FF ... stx ffff
16115 FFC5 FF FF FF ... stx ffff
16116 FFC8 FF FF FF ... stx ffff
16117 FFCB FF FF FF ... stx ffff
16118 FFCE FF FF FF ... stx ffff
16119 FFD1 FF FF FF ... stx ffff
16123 .word c81c ; SCI serial system (generic) - goes to sciinterrupt
16124 .word fae2 ; SPI serial transfer complete - flashes *** ERROR *** for a second
16125 .word faef ; Pulse accumulator input edge - flashes *** ERROR *** for a second
16126 .word fafc ; Pulse accumulator overflow - flashes *** ERROR *** for a second
16127 .word fb09 ; Timer overflow - flashes *** ERROR *** for a second
16128 .word fb16 ; Timer input capture 4 - flashes *** ERROR *** for a second
16129 .word fb23 ; Timer output compare 4 - flashes *** ERROR *** for a second
16130 .word fb30 ; Timer output compare 3 - flashes *** ERROR *** for a second
16131 .word fb3d ; Timer output compare 2 - flashes *** ERROR *** for a second
16132 .word fb4a ; Timer output compare 1 - flashes *** ERROR *** for a second
16133 .word fb57 ; Timer input capture 3 - flashes *** ERROR *** for a second
16134 .word fb64 ; Timer input capture 2 - flashes *** ERROR *** for a second
16135 .word fb71 ; Timer input capture 1 - flashes *** ERROR *** for a second
16136 .word f718 ; RT interrupt - does something useful :) (goto rti)
16137 .word fb7e ; IRQ pin - flashes *** ERROR *** for a second
16138 .word fb8b ; XIRQ pin - flashes *** ERROR *** for a second
16139 .word fb98 ; software interrupt - flashes *** ERROR *** for a second
16140 .word fba5 ; illegal opcode trap - flashes *** ERROR *** for a second
16141 .word fbb2 ; watchdog reset - reboot
16142 .word fbb6 ; clock monitor reset - reboot
16143 .word fe49 ; reset - reboot