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 used exclusively in SCI interrupt
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
36 ;0042 current key press
39 ;0052 win-a-snack odds (in ram)
41 ;0056 last known keypad row 1 state
42 ;005b last known keypad row 0 state
44 ;005e Y in location XY (row?) cents1
45 ;005f X in location XY (column?) cents2
50 ;08c8 array of prices of each slot??
52 ;0b90 - 0b99 display buffer (backwards)
53 ;0b9a - some sort of id? press 89 on the machine
56 ;0bb5 win-a-snack odds (is this in NVRAM?)
58 ;0bd8 related to 0017 and 0021 (only lower 3 bits used)
61 ;0bc1 error status: (from jump72)
62 ; bit0: changer powerup
69 ;0bc2 - 0bce SCI read into these locations
72 ;0cd9 counter of something - reset to 4 on some serial input
73 ;0cda counter of something - reset to 4 on some serial input
74 ;0cdb also counts something - reset to 4 on some serial input
75 ;0dff - 0e04 keypad buffer - most recent in 0e04
76 ;0e05 array index of the array to follow
77 ;0e06 - ?? array of digits*10
80 ;1016 - timer output compare 1 register
82 ;1028 SPCR (Serial Peripheral Control Register)
88 ;1800 Internal switches
104 ; 1 Language selection
105 ; 0 Language selection
106 ;Rows are numbered 1-9, skipping 5. There is no row 5.
116 ;Motor driver data is sent cols 7, 6, 5, 4, 3, 2, 1, 0 rows 9, 8, 7, 6, 4, 3, 2
117 ;1. Cols 8 and 9 are separate outputs (they ran out of driver chip outputs).
118 ;Motor driver column output enable is PA6
119 ;Motor driver serial clock is PA5
120 ;It looks like motor overcurrent sense is on PE1 (PE1 will be low if a motor
121 ;is drawing too much current)
122 ; the changer speaks at 600 baud, where as the coin validator speaks
123 ; 9600 baud. and printer at 2400.
124 ;3000 changer outputs
125 ; 7 motor driver row output enable
135 ; 6 col 9 motor driver
136 ; 5 col 8 motor driver
137 ; 4 motor driver serial data
138 ; 3 display write (clock) enable (active high)
140 ; 1 note acceptor connector
141 ; 0 note acceptor connector
147 ; PortA - Data: 0x1000, DDR for PA7 & PA3 in 0x1026
148 ; PA7 display reset (active low)
149 ; PA6 enables motor column drivers (when low)
150 ; PA5 clocks snack motor drivers (U16 5890 = serial-input latched source drivers (latch unused))
151 ; PA4 beepy thang (active high)
152 ; PA3 high - talking to coin vendie, low - talking to printer. (through PD1)
153 ; PA2 coin dispenser pin 6 (does what???)
154 ; PA1 bill validator 2
155 ; PA0 bill validator 1
157 ; PortB - not used directly
158 ; PB7 Address lines 8-15
167 ; PortC - Data: 0x1003, Latch: 0x1005, DDR: 0x1007
168 ; PC7 Data Bus 0-7 / Address bus 0-7
177 ; PortD - Data: 0x1008, DDR: 0x1009
180 ; PD5 keypad row select (output)
181 ; PD4 SPI - keypad & display clock signal (output)
182 ; PD3 display data (output)
183 ; PD2 keypad data (input)
184 ; PD1 RX of SCI - to coin disp or printer depending on PA3
185 ; PD0 TX of SCI - to coin disp or printer depending on PA3
187 ; PortE - Data: 0x100A
192 ; PE3 goes high when 24VUN line is too low
193 ; PE2 remote no-sale switch (active low)
194 ; PE1 motor overvoltage sense (active high)
195 ; PE0 motor overcurrent sense (active low)
386 80FB 93 73 00 .s. subd 73
391 ; initial menu when door opens?
392 8100 F6 00 1D ... ldab 001d
393 8103 C4 10 .. andb #10
395 8107 BD D6 52 ..R jsr d652 ;jump5
396 810A CE 00 1D ... ldx #001d
397 810D 1D 00 10 ... bclr 00,x, #10
398 8110 CE 00 1D ... ldx #001d
399 8113 1C 00 80 .. bset 00,x, #80
400 8116 7F 00 42 .. clr 0042
401 8119 7F 00 60 ..` clr 0060
402 811C 7F 00 48 ..H clr 0048
403 811F 7F 00 38 ..8 clr 0038
404 8122 F6 0B A8 ... ldab 0ba8
406 8127 CE 0B A9 ... ldx #0ba9
407 812A 1C 00 02 .. bset 00,x, #02
409 812F CE 0B A9 ... ldx #0ba9
410 8132 1D 00 02 ... bclr 00,x, #02
411 8135 7F 0E 00 ... clr 0e00
412 8138 7F 0E 01 ... clr 0e01
413 813B 7F 0E 02 ... clr 0e02
414 813E 7F 0E 03 ... clr 0e03
415 8141 7F 0E 04 ... clr 0e04
416 8144 F6 00 42 ..B ldab 0042
417 8147 C1 0B .. cmpb #0b
419 814B BD AB 89 ... jsr ab89 ;jump7
420 814E 7F 00 19 ... clr 0019
421 8151 7F 00 60 ..` clr 0060
422 8154 7F 00 42 ..B clr 0042
423 8157 BD E6 1B ... jsr e61b ;jump4
424 815A F6 0B A8 ... ldab 0ba8
426 815F 7E 81 EF ~.. jmp 81ef ;goto1
427 8162 F6 00 60 ..` ldab 0060
428 8165 C1 04 .. cmpb #04
430 8169 F6 00 42 ..B ldab 0042
432 816E F6 00 42 ..B ldab 0042
433 8171 C1 0A .. cmpb #0a
435 8175 7F 00 42 ..B clr 0042
436 8178 F6 00 42 ..B ldab 0042
437 817B CB 30 .0 addb #30
439 817E F6 00 60 ..` ldab 0060
441 8182 C3 00 62 ..b addd #0062
444 8187 E7 00 .. stab 00,x
445 8189 7F 00 42 ..B clr 0042
446 818C 7C 00 60 |.` inc 0060
448 8191 F6 00 62 ..b ldab 0062
449 8194 F1 0B A4 ... cmpb 0ba4
451 8199 F6 00 63 ..c ldab 0063
452 819C F1 0B A5 ... cmpb 0ba5
454 81A1 F6 00 64 ..d ldab 0064
455 81A4 F1 0B A6 ... cmpb 0ba6
457 81A9 F6 00 65 ..e ldab 0065
458 81AC F1 0B A7 ... cmpb 0ba7
460 81B1 CE 0B A9 ... ldx #0ba9
461 81B4 1D 00 02 ... bclr 00,x, #02
462 81B7 CE 00 1F ... ldx #001f
463 81BA 1C 00 04 .. bset 00,x, #04
464 81BD CE 00 1F ... ldx #001f
465 81C0 1C 00 80 ... bset 00,x, #80
466 81C3 CE 00 1D ... ldx #001d
467 81C5 1C 00 10 ... bset 00,x, #10
468 81C9 CC 02 33 ..3 ldd #0233
469 81CC FD 00 3B ..; std 003b
470 81CF C6 05 .. ldab #05
471 81D1 F7 00 38 ..8 stab 0038
473 81D6 7F 00 42 ..B clr 0042
474 81D9 7F 00 60 ..` clr 0060
475 81DC BD BE 69 ..i jsr be69 ;displayreset
476 81DF BD BE 4B ..K jsr be4b ;displayblank
477 81E2 CC B0 81 ... ldd #b081 ;"NO ACCESS"
478 81E5 BD C0 BA ... jsr c0ba ;display:
479 81E8 C6 0A .. ldab #0a
480 81EA F7 00 38 ..8 stab 0038
483 81EF 7F 00 42 ..B clr 0042
484 81F2 F6 00 38 ..8 ldab 0038
486 81F7 7E 84 9F ~.. jmp 849f ;goto2
487 81FA BD BE 4B ..K jsr be4b ;displayblank
488 81FD F6 00 48 ..H ldab 0048
490 8202 BD AB A2 ... jsr aba2 ;jump8
491 8205 F6 00 48 ..H ldab 0048
493 8209 BD FE 16 ... jsr fe16 ;jump2
495 820E 00 0D .... ; list len-2
510 822C 84 78 .x ; end of jump2 data
511 822E F6 00 19 ... ldab 0019
512 8231 C4 01 .. andb #01
514 8235 CC AF F2 ... ldd #aff2 ;"OVER CRNT="
515 8238 BD C0 BA ... jsr c0ba ;display:
516 823B C6 0A .. ldab #0a
517 823D F7 00 38 ..8 stab 0038
518 8240 7F 00 54 ..T clr 0054
519 8243 7C 00 48 |.H inc 0048
521 8248 C6 02 .. ldab #02
522 824A F7 00 48 ..H stab 0048
523 824D 7E 84 9F ~.. jmp 849f ;goto2
524 8250 F6 00 54 ..T ldab 0054
526 8254 CE 00 05 ... ldx #0005
530 825B F6 00 54 ..T ldab 0054
531 825E F7 00 06 ... stab 0006
532 8261 F6 00 06 ... ldab 0006
533 8264 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
534 8267 83 00 00 ... subd #0000
536 826C CC 7F FF ... ldd #7fff
539 8271 F6 00 06 ... ldab 0006
542 8276 C3 08 00 ... addd #0800
545 827B A4 00 .. anda 00,x
546 827D E4 01 .. andb 01,x
547 827F ED 00 .. std 00,x
548 8281 F6 00 54 ..T ldab 0054
551 8286 C3 08 00 ... addd #0800
553 828A EC 00 .. ldd 00,x
554 828C 84 80 .. anda #80
556 8290 F6 00 54 ..T ldab 0054
559 8295 C3 08 C8 ... addd #08c8
561 8299 EC 00 .. ldd 00,x
562 829B 84 02 .. anda #02
564 829F BD 98 A5 ... jsr 98a5 ;jump11
565 82A2 C6 0A .. ldab #0a
566 82A4 F7 00 38 ..8 stab 0038
567 82A7 7C 00 54 |.T inc 0054
568 82AA F6 00 54 ..T ldab 0054
569 82AD C1 64 .d cmpb #64
571 82B1 7C 00 48 |.H inc 0048
572 82B4 7E 84 9F ~.. jmp 849f ;goto2
573 82B7 F6 00 19 ... ldab 0019
574 82BA C4 02 .. andb #02
576 82BE CC AF FD ... ldd #affd "HOME FAIL="
577 82C1 BD C0 BA ... jsr c0ba ;display:
578 82C4 C6 0A .. ldab #0a
579 82C6 F7 00 38 ..8 stab 0038
580 82C9 7F 00 54 ..T clr 0054
581 82CC 7C 00 48 |.H inc 0048
583 82D1 C6 04 .. ldab #04
584 82D3 F7 00 48 ..H stab 0048
585 82D6 7E 84 9F ~.. jmp 849f ;goto2
586 82D9 F6 00 54 ..T ldab 0054
588 82DD CE 00 05 ... ldx #0005
592 82E4 F6 00 54 ..T ldab 0054
593 82E7 F7 00 06 ... stab 0006
594 82EA F6 00 06 ... ldab 0006
595 82ED BD D7 A0 ... jsr d7a0 ;is_invalid_slot
596 82F0 83 00 00 ... subd #0000
598 82F5 CC 7F FF ... ldd #7fff
601 82FA F6 00 06 ... ldab 0006
604 82FF C3 08 00 ... addd #0800
607 8304 A4 00 .. anda 00,x
608 8306 E4 01 .. andb 01,x
609 8308 ED 00 .. std 00,x
610 830A F6 00 54 ..T ldab 0054
613 830F C3 08 00 ... addd #0800
615 8313 EC 00 .. ldd 00,x
616 8315 84 80 .. anda #80
618 8319 F6 00 54 ..T ldab 0054
621 831E C3 08 C8 ... addd #08c8
623 8322 EC 00 .. ldd 00,x
624 8324 84 04 .. anda #04
626 8328 BD 98 A5 ... jsr 98a5 ;jump11
627 832B C6 0A .. ldab #0a
628 832D F7 00 38 ..8 stab 0038
629 8330 7C 00 54 |.T inc 0054
630 8333 F6 00 54 ..T ldab 0054
631 8336 C1 64 .d cmpb #64
633 833A 7C 00 48 |.H inc 0048
634 833D 7E 84 9F ~.. jmp 849f ;goto2
635 8340 F6 00 19 ... ldab 0019
636 8343 C4 04 .. andb #04
638 8347 CC B0 08 ... ldd #b008 ; "CHK PRICES"
639 834A BD C0 BA ... jsr c0ba ;display:
640 834D C6 0A .. ldab #0a
641 834F F7 00 38 ..8 stab 0038
642 8352 7F 00 54 ..T clr 0054
643 8355 7C 00 48 |.H inc 0048
645 835A C6 06 .. ldab #06
646 835C F7 00 48 ..H stab 0048
647 835F 7E 84 9F ~.. jmp 849f ;goto2
648 8362 F6 00 54 ..T ldab 0054
650 8366 CE 00 05 ... ldx #0005
654 836D F6 00 54 ..T ldab 0054
655 8370 F7 00 06 ... stab 0006
656 8373 F6 00 06 ... ldab 0006
657 8376 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
658 8379 83 00 00 ... subd #0000
660 837E F6 00 54 ..T ldab 0054
663 8383 C3 08 C8 ... addd #08c8
665 8387 EC 00 .. ldd 00,x
666 8389 84 01 .. anda #01
668 838D BD 98 A5 ... jsr 98a5 ;jump11
669 8390 C6 0A .. ldab #0a
670 8392 F7 00 38 ..8 stab 0038
671 8395 7C 00 54 |.T inc 0054
672 8398 F6 00 54 ..T ldab 0054
673 839B C1 64 .d cmpb #64
675 839F 7C 00 48 |.H inc 0048
676 83A2 7E 84 9F ~.. jmp 849f ;goto2
678 83A5 F6 0B C1 ... ldab 0bc1
679 83A8 C4 01 .. andb #01
681 83AC CC B0 34 ..4 ldd #b034 "CHGR PWRUP"
682 83AF BD C0 BA ... jsr c0ba ;display:
683 83B2 7C 00 48 |.H inc 0048
684 83B5 C6 0A .. ldab #0a
685 83B7 F7 00 38 ..8 stab 0038
687 83BC 7C 00 48 |.H inc 0048
688 83BF 7E 84 9F ~.. jmp 849f ;goto2
689 83C2 F6 0B C1 ... ldab 0bc1
690 83C5 C4 02 .. andb #02
692 83C9 CC B0 4A ..J ldd #b04a "CARD PWRUP"
693 83CC BD C0 BA ... jsr c0ba ;display:
694 83CF 7C 00 48 |.H inc 0048
695 83D2 C6 0A .. ldab #0a
696 83D4 F7 00 38 ..8 stab 0038
698 83D9 7C 00 48 |.H inc 0048
699 83DC 7E 84 9F ~.. jmp 849f ;goto2
700 83DF F6 0B C1 ... ldab 0bc1
701 83E2 C4 04 .. andb #04
703 83E6 CC B0 3F ..? ldd #b03f "LINK PWRUP"
704 83E9 BD C0 BA ... jsr c0ba ;display:
705 83EC 7C 00 48 |.H inc 0048
706 83EF C6 0A .. ldab #0a
707 83F1 F7 00 38 ..8 stab 0038
709 83F6 7C 00 48 |.H inc 0048
710 83F9 7E 84 9F ~.. jmp 849f ;goto2
711 83FC F6 0B C1 ... ldab 0bc1
712 83FF C4 10 .. andb #10
714 8403 CC B0 1E ... ldd #b01e "COIN JAM"
715 8406 BD C0 BA ... jsr c0ba ;display:
716 8409 7C 00 48 |.H inc 0048
717 840C C6 0A .. ldab #0a
718 840E F7 00 38 ..8 stab 0038
720 8413 7C 00 48 |.H inc 0048
721 8416 7E 84 9F ~.. jmp 849f ;goto2
722 8419 F6 0B C1 ... ldab 0bc1
723 841C C4 20 . andb #20
725 8420 CC B0 29 ..) ldd #b029 "BAD SENSOR"
726 8423 BD C0 BA ... jsr c0ba ;display:
727 8426 7C 00 48 |.H inc 0048
728 8429 C6 0A .. ldab #0a
729 842B F7 00 38 ..8 stab 0038
731 8430 7C 00 48 |.H inc 0048
733 8435 F6 0B C1 ... ldab 0bc1
734 8438 C4 08 .. andb #08
736 843C CC B0 55 ..U ldd #b055 "BILL ERROR"
737 843F BD C0 BA ... jsr c0ba ;display:
738 8442 7C 00 48 |.H inc 0048
739 8445 C6 0A .. ldab #0a
740 8447 F7 00 38 ..8 stab 0038
742 844C 7C 00 48 |.H inc 0048
744 8451 F6 0B C1 ... ldab 0bc1
745 8454 C4 40 .@ andb #40
747 8458 CC B0 60 ..` ldd #b060 "TUBE ERROR"
748 845B BD C0 BA ... jsr c0ba ;display:
749 845E 7F 00 48 ..H clr 0048
750 8461 C6 0A .. ldab #0a
751 8463 F7 00 38 ..8 stab 0038
753 8468 7F 00 48 ..H clr 0048
754 846B CC B0 13 ... ldd #b013 "HIT RESET "
755 846E BD C0 BA ... jsr c0ba ;display:
756 8471 C6 0A .. ldab #0a
757 8473 F7 00 38 ..8 stab 0038
758 8476 20 27 ' bra 27 ; to 849f (exit)
759 8478 F6 00 1D ... ldab 001d
761 847D CC AE A8 ... ldd #aea8 " SYSTEM "
762 8480 BD C0 BA ... jsr c0ba ;display:
763 8483 CE 00 1D ... ldx #001d
764 8486 1D 00 80 .. bclr 00,x, #80
765 8489 20 0C . bra 0c ; to 8496
766 848B CC AE B3 ... ldd #aeb3 " OK "
767 848E BD C0 BA ... jsr c0ba ;display:
768 8491 CE 00 1D ... ldx #001d
769 8494 1C 00 80 .. bset 00,x, #80
770 8496 C6 0F .. ldab #0f
771 8499 F7 00 38 ..8 stab 0038
772 849C 7F 00 48 ..H clr 0048
778 84A0 FC 00 3B ..; ldd 003b
780 84A5 7E 85 96 ~.. jmp 8596 ;goto3
781 84A8 F6 00 1F ... ldab 001f
783 84AD BD D6 52 ..R jsr d652 ;jump5
784 84B0 7F 00 42 ..B clr 0042
785 84B3 7F 00 09 ... clr 0009
786 84B6 7F 00 0A ... clr 000a
787 84B9 7F 00 06 ... clr 0006
790 84BE FD 00 40 ..@ std 0040
793 84C3 FD 00 3E ..> std 003e
794 84C6 BD E5 AA ... jsr e5aa ;jump12
795 84C9 CE 00 1F ... ldx #001f
796 84CC 1D 00 80 .. bclr 00,x, #80
797 84CF CE 00 1F .. ldx #001f
798 84D2 1C 00 02 .... bset 00,x, #02
799 84D5 CE 00 1D ... ldx #001d
800 84D8 1C 00 10 .. bset 00,x, #10
801 84DB CE 00 17 ... ldx #0017
802 84DE 1D 00 20 .. bclr 00,x, #20
803 84E0 CE 00 17 . ldx #0017
804 84E4 1D 00 40 .. bclr 00,x, #40
805 84E7 CE 00 17 ... ldx #0017
806 84EA 1D 00 80 .. bclr 00,x, #80
807 84EC F6 0B A9 ... ldab 0ba9
808 84F0 C4 02 .. andb #02
809 84F2 27 20 ' beq 20 ; to 8414
810 84F4 F6 00 42 ..B ldab 0042
812 84F8 C3 0B E4 ... addd #0be4
814 84FC E6 00 .. ldab 00,x
816 8500 BD BE 4B ..K jsr be4b ;displayblank
817 8503 CC B0 81 ... ldd #b081 ;"NO ACCESS"
818 8506 BD C0 BA ... jsr c0ba ;display:
819 8509 CC 02 58 ..X ldd #0258 ;600
820 850C BD E5 71 ..q jsr e571 ;msdelay
821 850F BD 85 AF ... jsr 85af ;jump14
822 8512 20 6C l bra 6c ; to 8580
824 8514 F6 00 42 ..B ldab 0042
826 8518 BD FE 16 ... jsr fe16 ;jump2
829 851F 85 80 .. ; default action - leave menu?
830 8521 85 39 .9 ; 0 - no key pressed
831 8523 85 4A .J ; key 1 - changer loading & calibration
832 8525 85 4F .O ; key 2 - win-a-snack odds programming
833 8527 85 54 .T ; key 3 - set pricing
834 8529 85 59 .Y ; key 4 - smart shopping discount
835 852B 85 5E .^ ; key 5 - manual peripheral config
836 852D 85 63 .c ; key 6 - promo vend-pair programming
837 852F 85 68 .h ; key 7 - POS message & serial id
838 8531 85 6D .m ; key 8 - print info
839 8533 85 72 .r ; key 9 - security code programming
840 8535 85 77 .w ; key 0 - motor menu
841 8537 85 7C .| ; reset key -
843 8539 CC AE 92 ... ldd #ae92 "- "
844 853C BD C0 BA ... jsr c0ba ;display:
845 853F 7F 00 42 ..B clr 0042
846 8542 CE 00 1F ... ldx #001f
847 8545 1C 00 02 .. bset 00,x, #02
849 854A BD 86 84 ... jsr 8684 ;jump15
851 854F BD 88 2E ... jsr 882e ;jump16
853 8554 BD 88 B8 ... jsr 88b8 ;jump17
855 8559 BD 8C B4 ... jsr 8cb4 ;jump18
857 855E BD 8E 35 ..5 jsr 8e35 ;jump19
859 8563 BD 8F 0D ... jsr 8f0d ;jump20
861 8568 BD 90 D1 ... jsr 90d1 ;jump21
863 856D BD 92 EE ... jsr 92ee ;jump22
865 8572 BD 93 A5 ... jsr 93a5 ;jump23
867 8577 BD 94 DD ... jsr 94dd ;jump24
869 857C 8D 31 .1 bsr 31 ;jump14
872 8580 7F 00 0A ... clr 000a
873 8583 F6 00 42 ..B ldab 0042
874 8586 C1 0A .. cmpb #0a
876 858A F6 00 42 ..B ldab 0042
877 858D C1 07 .. cmpb #07
879 8591 7F 00 09 ... clr 0009
882 8596 CE 00 1F ... ldx #001f
883 8599 1D 00 04 ... bclr 00,x, #04
884 859C CE 00 1F ... ldx #001f
885 859F 1C 00 .. bset 00,x, #80
886 85A2 CE 00 1D ... ldx #001d
887 85A5 1C 00 10 ... bset 00,x, #10
888 85A8 BD BE 69 ..i jsr be69 ;displayreset
889 85AB BD E5 AA ... jsr e5aa ;jump12
893 85AF 7F 00 42 ..B clr 0042
894 85B2 7F 00 06 ... clr 0006
895 85B5 CE 00 1F ... ldx #001f
896 85B8 1C 00 02 .. bset 00,x, #02
897 85BB BD BE 69 ..i jsr be69 ;displayreset
901 85BF F6 00 12 ... ldab 0012
902 85C2 C4 1E .. andb #1e ; 00011110
904 85C5 BD FE 32 ..2 jsr fe32 ;jump25
905 85C8 85 DE 00 0E .... ; 14 000 0111 0
906 85CC 86 08 00 08 .... ; 22 000 1011 0
907 85D0 86 32 00 04 .... ; 26 000 1101 0
908 85D4 86 5C 00 02 .... ; 28 000 1110 0
909 85D8 86 83 FF E4 .... ; 0
910 85DC 00 00 .. ; end of array
911 85DE F6 0B DC ... ldab 0bdc
912 85E1 F7 00 01 ... stab 0001
913 85E4 BD C4 30 ..0 jsr c430 ;jump26
914 85E7 C6 01 .. ldab #01
915 85E9 F7 00 48 ..H stab 0048
916 85EC 7F 00 2C .., clr 002c
917 85EF F6 0C D9 ... ldab 0cd9
919 85F4 7A 0C D9 z.. dec 0cd9
920 85F7 BD 97 F6 ... jsr 97f6 ;jump27
921 85FA CC 01 5E ..^ ldd #015e
922 85FD BD E5 71 ..q jsr e571 ;msdelay
923 8600 CC 02 33 ..3 ldd #0233
924 8603 FD 00 3B ..; std 003b
926 8608 F6 0B DB ... ldab 0bdb
927 860B F7 00 01 ... stab 0001
928 860E BD C4 30 ..0 jsr c430 ;jump26
929 8611 C6 02 .. ldab #02
930 8613 F7 00 48 ..H stab 0048
931 8616 7F 00 2C .., clr 002c
932 8619 F6 0C DA ... ldab 0cda
934 861E 7A 0C DA z.. dec 0cda
935 8621 BD 97 F6 ... jsr 97f6 ;jump27
936 8624 CC 01 5E ..^ ldd #015e
937 8627 BD E5 71 ..q jsr e571 ;msdelay
938 862A CC 02 33 ..3 ldd #0233
939 862D FD 00 3B ..; std 003b
941 8632 F6 0B DA ... ldab 0bda
942 8635 F7 00 01 ... stab 0001
943 8638 BD C4 30 ..0 jsr c430 ;jump26
944 863B C6 03 .. ldab #03
945 863D F7 00 48 ..H stab 0048
946 8640 7F 00 2C .., clr 002c
947 8643 F6 0C DB ... ldab 0cdb
949 8648 7A 0C DB z.. dec 0cdb
950 864B BD 97 F6 ... jsr 97f6 ;jump27
951 864E CC 01 5E ..^ ldd #015e
952 8651 BD E5 71 ..q jsr e571 ;msdelay
953 8654 CC 02 33 ..3 ldd #0233
954 8657 FD 00 3B ..; std 003b
956 865C C6 40 .@ ldab #40
957 865E F7 00 01 ... stab 0001
958 8661 BD C4 30 ..0 jsr c430 ;jump26
959 8664 C6 04 .. ldab #04
960 8666 F7 00 48 ..H stab 0048
961 8669 7F 00 2C .., clr 002c
962 866C F6 0C DC ... ldab 0cdc
964 8671 7A 0C DC z.. dec 0cdc
965 8674 BD 97 F6 ... jsr 97f6 ;jump27
966 8677 CC 01 5E ..^ ldd #015e
967 867A BD E5 71 ..q jsr e571 ;msdelay
968 867D CC 02 33 ..3 ldd #0233
969 8680 FD 00 3B ..; std 003b
973 ; changer load & calibrate menu
974 8684 F6 00 1F ... ldab 001f
975 8687 C4 02 .. andb #02
977 868B CE 00 1F ... ldx #001f
978 868E 1D 00 02 ... bclr 00,x, #02
979 8691 C6 01 .. ldab #01
980 8693 F7 00 48 ..H stab 0048
981 8696 F6 0B C0 ... ldab 0bc0
982 8699 C4 01 .. andb #01
984 869D C6 27 .' ldab #27
985 869F F7 10 2D ..- stab 102d ; disable SCI transmission
986 86A2 C6 07 .. ldab #07
987 86A4 F7 10 2B ..+ stab 102b ; 600 baud
988 86A7 CE 00 1A ... ldx #001a
989 86AA 1D 00 01 .. bclr 00,x, #01
990 86AD F6 00 1A ... ldab 001a
991 86B0 F7 30 00 .0. stab 3000 ; changer accept on
992 86B3 7E 87 E8 ~.. jmp 87e8 ;goto4
993 86B6 F6 00 09 ... ldab 0009
995 86BA BD FE 32 ..2 jsr fe32 ;jump25
996 86BD 86 D7 00 00 .... ; no key
997 86C1 87 39 00 01 .... ; key 1
998 86C5 87 75 00 01 .... ; key 2
999 86C9 87 C5 00 08 .... ; key 0
1000 86CD 87 D9 00 01 .... ; key reset
1001 86D1 87 E8 FF F5 .... ; no key
1002 86D5 00 00 .. ; end of array data
1003 86D7 C6 FF .. ldab #ff
1004 86D9 F7 0B BC ... stab 0bbc
1005 86DC F6 18 00 ... ldab 1800
1006 86DF 2D 29 -) blt 29
1007 86E1 F6 00 07 ... ldab 0007
1008 86E4 26 24 &$ bne 24
1009 86E6 CE 00 1A ... ldx #001a
1010 86E9 1D 00 02 .. bclr 00,x, #02
1011 86EC F6 00 1A ... ldab 001a
1012 86EF F7 30 00 .0. stab 3000 ; send msg to changer?
1013 86F2 CC 00 32 ..2 ldd #0032
1014 86F5 BD E5 71 ..q jsr e571 ;msdelay
1015 86F8 CE 00 1A ... ldx #001a
1016 86FB 1C 00 02 .. bset 00,x, #02
1017 86FE F6 00 1A ... ldab 001a
1018 8701 F7 30 00 .0. stab 3000 ; turn changer send line off
1019 8704 CC 02 33 ..3 ldd #0233
1020 8707 FD 00 3B ..; std 003b
1023 870C FD 00 40 ..@ std 0040
1026 8711 FD 00 3E ..> std 003e
1027 8714 F6 0B C0 ... ldab 0bc0
1028 8717 C4 01 .. andb #01
1029 8719 27 03 '. beq 03
1030 871B BD 85 BF ... jsr 85bf ;jump28
1031 871E BD DC A3 ... jsr dca3 ;jump29
1032 8721 BD 97 F6 ... jsr 97f6 ;jump27
1033 8724 CE 00 17 ... ldx #0017
1034 8727 1D 00 .. bclr add,x 00,x
1038 872D 1D 00 40 ... bclr 00,x, #40
1039 8730 CE 00 17 ... ldx #0017
1040 8733 1D 00 .. bclr add,x 00,x
1041 8735 80 7E .~ suba #7e
1043 8738 E8 F6 .. eorb f6,x
1046 873C 26 2F &/ bne 2f
1047 873E F6 00 48 ..H ldab 0048
1049 8742 BD FE 16 ... jsr fe16 ;jump2
1050 8745 00 01 00 03 . ; data for jump2
1055 8751 87 62 . ; end of data
1056 8753 7C 0C D9 |.. inc 0cd9
1058 8758 7C 0C DA |.. inc 0cda
1060 875D 7C 0C DB |.. inc 0cdb
1062 8762 7C 0C DC |.. inc 0cdc
1063 8765 BD 97 F6 ... jsr 97f6 ;jump27
1064 8768 C6 02 .. ldab #02
1065 876A F7 00 36 ..6 stab 0036
1066 876D CE 00 1B ... ldx #001b
1067 8770 1C 00 10 ... bset 00,x, #10
1069 8775 F6 00 36 ..6 ldab 0036
1070 8778 26 43 &C bne 43
1071 877A F6 00 48 ..H ldab 0048
1073 877E BD FE 16 ... jsr fe16 ;jump2
1079 8786 B5 87 8F ... bita 878f
1081 878A 99 87 A3 ... adca 87
1083 878E AD F6 .. jsr f6,x
1085 8791 D9 27 03 .'. adcb 27
1086 8794 7A 0C D9 z.. dec 0cd9
1088 8799 F6 0C DA ... ldab 0cda
1089 879C 27 03 '. beq 03
1090 879E 7A 0C DA z.. dec 0cda
1092 87A3 F6 0C DB ... ldab 0cdb
1093 87A6 27 03 '. beq 03
1094 87A8 7A 0C DB z.. dec 0cdb
1096 87AD F6 0C DC ... ldab 0cdc
1097 87B0 27 03 '. beq 03
1098 87B2 7A 0C DC z.. dec 0cdc
1099 87B5 BD 97 F6 ... jsr 97f6 ;jump27
1100 87B8 C6 02 .. ldab #02
1101 87BA F7 00 36 ..6 stab 0036
1102 87BD CE 00 1B ... ldx #001b
1103 87C0 1C 00 10 ... bset 00,x, #10
1105 87C5 7C 00 48 |.H inc 0048
1106 87C8 F6 00 48 ..H ldab 0048
1107 87CB C1 04 .. cmpb #04
1108 87CD 23 05 #. bls 05
1109 87CF C6 01 .. ldab #01
1110 87D1 F7 00 48 ..H stab 0048
1111 87D4 BD 97 F6 ... jsr 97f6 ;jump27
1113 87D9 CE 00 1A ... ldx #001a
1114 87DC 1C 00 01 .. bset 00,x, #01
1115 87DF F6 00 1A ... ldab 001a
1116 87E2 F7 30 00 .0. stab 3000 ; turn changer accept line off
1117 87E5 BD 85 AF ... jsr 85af ;jump14
1122 ;motor count procedure
1123 87E9 7F 00 05 ... clr 0005
1124 87EC 7F 00 54 ..T clr 0054
1125 87EF F6 00 54 ..T ldab 0054
1126 87F2 C1 50 .P cmpb #50 ; 80 entries in lookup table
1127 87F4 24 2E $. bcc 2e ; to 8824
1128 87F6 F6 00 54 ..T ldab 0054
1130 87FA C3 B0 D3 ... addd #b0d3 ; lookup table
1132 87FE E6 00 .. ldab 00,x
1133 8800 F7 00 06 ... stab 0006
1134 8803 F6 00 06 ... ldab 0006
1135 8806 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
1136 8809 83 00 00 ... subd #0000
1137 880C 26 11 &. bne 11
1138 880E BD D3 11 ... jsr d311 ;jump30 - test it
1139 8811 83 00 00 ... subd #0000
1140 8814 26 03 &. bne 03
1141 8816 7C 00 05 |.. inc 0005
1142 8819 CC 00 05 ... ldd #0005
1143 881C BD E5 71 ..q jsr e571 ;msdelay
1144 881F 7C 00 54 |.T inc 0054
1146 8824 BD 99 81 ... jsr 9981 ;jump144 - write "MOTORS XX" (from 0005)
1147 8827 CC 07 D0 ... ldd #07d0
1148 882A BD E5 71 ..q jsr e571 ;msdelay
1152 882E F6 00 1F ... ldab 001f
1153 8831 C4 02 .. andb #02
1154 8833 27 12 '. beq 12
1155 8835 FC 0B B5 ... ldd 0bb5
1156 8838 C4 FF .. andb #ff
1157 883A 84 01 .. anda #01
1158 883C FD 00 52 ..R std 0052
1159 883F CE 00 1F ... ldx #001f
1160 8842 1D 00 02 ... bclr 00,x, #02
1162 8847 F6 00 09 ... ldab 0009
1164 884B BD FE 32 ..2 jsr fe32 ;jump25
1165 884E 88 68 00 00 .... ; cancel.
1166 8852 88 6D 00 01 .... ; key 1 - increment
1167 8856 88 83 00 01 .... ; key 2 - decrement
1168 885A 88 A7 00 08 .... ; key 0 - saving
1169 885E 88 B4 00 01 .... ; reset
1170 8862 88 B7 FF F5 .... ; no key - return
1171 8866 00 00 .... ; end of array data
1173 8868 BD 9A 05 ... jsr 9a05 ;jump102 - write ODDS 1/
1174 886B 20 4A J bra 4a ; to 88b7 - return
1176 886D FC 00 52 ..R ldd 0052
1177 8870 83 01 F4 ... subd #01f4 ; 500
1178 8873 24 09 $. bcc 09 ; dont let them go above 500
1179 8875 FC 00 52 ..R ldd 0052
1180 8878 C3 00 32 ..2 addd #0032 ; +50
1181 887B FD 00 52 ..R std 0052
1182 887E BD 9A 05 ... jsr 9a05 ;jump102 - write ODDS 1/
1185 8883 FC 00 52 ..R ldd 0052
1186 8886 83 00 32 ..2 subd #0032 ; 50
1187 8889 23 17 #. bls 17 ; dont let them go below 50
1188 888B FC 00 52 ..R ldd 0052
1189 888E C3 FF CE ... addd #ffce ; -50
1190 8891 FD 00 52 ..R std 0052
1191 8894 FC 00 52 ..R ldd 0052
1192 8897 83 00 32 ..2 subd #0032 ; 50
1193 889A 24 06 $. bcc 06
1194 889C CC 00 32 ..2 ldd #0032 ; 100
1195 889F FD 00 52 ..R std 0052
1196 88A2 BD 9A 05 ... jsr 9a05 ;jump102 - write ODDS 1/
1199 88A7 BD A3 7C ..| jsr a37c ;jump141 - save
1202 88AC FD 0B B9 ... std 0bb9
1203 88AF BD 85 AF ... jsr 85af ;jump14
1205 88B4 BD 85 AF ... jsr 85af ;jump14
1210 88B8 F6 00 1F ... ldab 001f
1211 88BB C4 02 .. andb #02
1212 88BD 26 0A &. bne 0a
1213 88BF F6 00 3A ..: ldab 003a
1214 88C2 26 28 &( bne 28
1215 88C4 F6 00 1D ... ldab 001d
1216 88C7 2D 23 -# blt 23
1217 88C9 7F 00 2C .., clr 002c
1218 88CC CC AE 9D ... ldd #ae9d "SET PRICE?"
1219 88CF BD C0 BA ... jsr c0ba ;display:
1220 88D2 CE 00 1F ... ldx #001f
1221 88D5 1D 00 02 .. bclr 00,x, #02
1222 88D8 CE 00 1F ... ldx #001f
1223 88DB 1D 00 40 .. bclr 00,x, #40
1224 88DE CE 00 1D ... ldx #001d
1225 88E1 1D 00 80 .. bclr 00,x, #80
1226 88E4 7F 00 54 ... clr 0054
1227 88E7 C6 32 .2 ldab #32
1228 88E9 F7 00 3A ..: stab 003a
1229 88EC F6 00 09 ... ldab 0009
1230 88EF 26 03 &. bne 03
1231 88F1 7E 89 E1 ~.. jmp 89e1 ;goto5
1232 88F4 F6 00 1D ... ldab 001d
1233 88F7 2C 03 ,. bge 03
1234 88F9 7E 89 E1 ~.. jmp 89e1 ;goto5
1235 88FC F6 00 09 ... ldab 0009
1236 88FF C1 0B .. cmpb #0b
1237 8901 26 06 &. bne 06
1238 8903 BD 85 AF ... jsr 85af ;jump14
1239 8906 7E 89 DE ~.. jmp 89de ;goto6
1240 8909 F6 00 54 ..T ldab 0054
1241 890C 26 26 && bne 26
1242 890E BD BE 4B ..K jsr be4b ;displayblank
1243 8911 F6 00 09 ... ldab 0009
1244 8914 C1 0A .. cmpb #0a
1245 8916 26 03 &. bne 03
1246 8918 7F 00 09 ... clr 0009
1247 891B F6 00 09 ... ldab 0009
1248 891E CB 30 .0 addb #30
1250 8921 CC 0B 95 ... ldd #0b95
1251 8924 F0 00 54 ..T subb 0054
1252 8927 82 00 .. sbca #00
1255 892B E7 00 .. stab 00,x
1256 892D C6 32 .2 ldab #32
1257 892F F7 00 3A ..: stab 003a
1259 8934 F6 00 54 ..T ldab 0054
1260 8937 C1 01 .. cmpb #01
1261 8939 26 27 &' bne 27
1262 893B F6 00 09 ... ldab 0009
1263 893E C1 05 .. cmpb #05
1265 8942 F6 00 09 ... ldab 0009
1266 8945 C1 0A .. cmpb #0a
1267 8947 27 19 '. beq 19
1268 8949 F6 00 09 ... ldab 0009
1269 894C CB 30 .0 addb #30
1271 894F CC 0B 95 ... ldd #0b95
1272 8952 F0 00 54 ..T subb 0054
1273 8955 82 00 .. sbca #00
1276 8959 E7 00 .. stab 00,x
1277 895B C6 32 .2 ldab #32
1278 895D F7 00 3A ..: stab 003a
1280 8962 CE 00 1F ... ldx #001f
1281 8965 1C 00 02 .. bset 00,x, #02
1282 8968 7F 00 3A ..: clr 003a
1283 896B BD BE 01 ... jsr be01 ;jump70
1284 896E 7C 00 54 |.T inc 0054
1285 8971 F6 00 54 ..T ldab 0054
1286 8974 C1 02 .. cmpb #02
1287 8976 26 60 &` bne 60
1288 8978 CE 00 1D ... ldx #001d
1289 897B 1C 00 80 .. bset 00,x, #80
1290 897E F6 0B 94 .. ldab 0b94
1291 8980 CB D0 .. addb #d0 ; -48 (unmake it a digit)
1293 8984 F6 0B 95 ... ldab 0b95
1294 8987 CB D0 .. addb #d0 ; -48 (unmake it a digit)
1295 8989 86 0A .. ldaa #0a
1298 898D EB 00 .. addb 00,x
1300 8990 F7 00 06 ... stab 0006
1301 8993 C6 32 .2 ldab #32
1302 8995 F7 00 3A ..: stab 003a
1303 8998 F6 00 06 ... ldab 0006
1304 899B BD D7 A0 ... jsr d7a0 ;is_invalid_slot
1305 899E 83 00 00 ... subd #0000
1306 89A1 26 27 &' bne 27 ; to 89ca
1307 89A3 BD D3 11 ... jsr d311 ;jump30 - test position exists
1308 89A6 83 00 00 ... subd #0000
1309 89A9 26 0B &. bne 0b
1310 89AB CE 00 1F ... ldx #001f
1311 89AE 1C 00 40 .. bset 00,x, #40
1312 89B1 BD 8C 73 ..s jsr 8c73 ;jump75
1314 89B6 CE 00 1F ... ldx #001f
1315 89B9 1D 00 40 .. bclr 00,x, #40
1316 89BC CC 2A FF .*. ldd #2aff ; 00101010 11111111
1317 89BF FD 00 27 ..' std 0027
1318 89C2 BD A3 85 ... jsr a385 ;jump40
1319 89C5 BD 9A 47 ..G jsr 9a47 ;jump39
1322 89CA CE 00 1D ... ldx #001d
1323 89CD 1D 00 .. bclr 00,x, #80
1324 89D0 CE 00 1F ... ldx #001f
1325 89D3 1C 00 02 ... bset 00,x, #02
1327 89D8 CE 00 1D ... ldx #001d
1328 89DB 1D 00 80 ... bclr 00,x, #80
1330 89DE 7E 8C 72 .~ jmp 8c72 ;goto7 (exit)
1332 89E1 F6 00 1D ... ldab 001d
1333 89E4 2D 03 -. blt 03
1334 89E6 7E 8C 72 ~.r jmp 8c72 ;goto7 (exit)
1335 89E9 F6 00 09 ... ldab 0009
1337 89ED BD FE 16 ... jsr fe16 ;jump2
1338 89F0 00 00 00 0B .... ; params to jump2
1339 89F4 8C 72 .. ; default action
1340 89F6 8A 0E .. ; 0 - display price on screen?
1352 8A0E BD 9A 47 .. jsr 9a47 ;jump39
1353 8A11 7E 8C 72 ... jmp 8c72 ;goto7 (exit)
1354 8A14 F6 00 36 ... ldab 0036
1355 8A17 27 03 '. beq 03
1356 8A19 7E 8A 9B ~.. jmp 8a9b ;goto8
1357 8A1C F6 00 1F ... ldab 001f
1358 8A1F C4 40 .@ andb #40
1359 8A21 27 78 'x beq 78
1360 8A23 F6 0B C0 ... ldab 0bc0
1361 8A26 C4 02 .. andb #02
1362 8A28 27 52 'R beq 52
1363 8A2A F6 0B AA ... ldab 0baa
1364 8A2D C1 32 .2 cmpb #32
1365 8A2F 24 22 $" bcc 22
1366 8A31 F6 0B AA ... ldab 0baa
1368 8A35 F3 00 27 ..' addd 0027
1369 8A38 FD 00 27 ..' std 0027
1370 8A3B F6 0B AA ... ldab 0baa
1374 8A41 CC 00 FA ... ldd #00fa ; 250 or -6
1375 8A44 BD FB BA ... jsr fbba ;jump38 - multiply?
1376 8A47 B3 00 27 ..' subd 0027
1377 8A4A 24 05 $. bcc 05
1380 8A4E FD 00 27 ..' std 0027
1382 8A53 F6 0B AA ... ldab 0baa
1383 8A56 C1 32 .2 cmpb #32
1385 8A5A F6 0B AA ... ldab 0baa
1387 8A5E F3 00 27 ..' addd 0027
1388 8A61 FD 00 27 ..' std 0027
1389 8A64 F6 0B AA ... ldab 0baa
1393 8A6A CC 00 C7 ... ldd #00c7
1394 8A6D BD FB BA ... jsr fbba ;jump38
1395 8A70 B3 00 27 ..' subd 0027
1396 8A73 24 05 $. bcc 05
1399 8A77 FD 00 27 ..' std 0027
1401 8A7C F6 0B AA ... ldab 0baa
1403 8A80 F3 00 27 ..' addd 0027
1404 8A83 FD 00 27 ..' std 0027
1405 8A86 FC 00 27 ..' ldd 0027
1406 8A89 83 27 0F .'. subd #270f
1407 8A8C 23 05 #. bls 05
1410 8A90 FD 00 27 ..' std 0027
1411 8A93 BD 9A 47 ..G jsr 9a47 ;jump39
1412 8A96 C6 02 .. ldab #02
1413 8A98 F7 00 36 ..6 stab 0036
1415 8A9B CE 00 1B ... ldx #001b
1416 8A9E 1C 00 10 ... bset 00,x, #10
1417 8AA1 CC 02 33 ..3 ldd #0233
1418 8AA4 FD 00 3B ..; std 003b
1419 8AA7 7E 8C 72 ~.r jmp 8c72 ;goto7 (exit)
1421 8AAA F6 00 36 ..6 ldab 0036
1422 8AAD 27 03 '. beq 03
1423 8AAF 7E 8B 4F ~.O jmp 8b4f ;goto9
1424 8AB2 F6 00 1F ... ldab 001f
1425 8AB5 C4 40 .@ andb #40
1426 8AB7 26 03 &. bne 03
1427 8AB9 7E 8B 4F ~.O jmp 8b4f ;goto9
1428 8ABC F6 0B C0 ... ldab 0bc0
1429 8ABF C4 02 .. andb #02
1430 8AC1 27 57 'W beq 57
1431 8AC3 FC 00 27 ..' ldd 0027
1432 8AC6 26 18 &. bne 18
1433 8AC8 F6 0B AA ... ldab 0baa
1434 8ACB C1 32 .2 cmpb #32
1435 8ACD 24 11 $. bcc 11
1436 8ACF F6 0B AA ... ldab 0baa
1440 8AD5 CC 00 FA ... ldd #00fa
1441 8AD8 BD FB BA ... jsr fbba ;jump38
1442 8ADB FD 00 27 ..' std 0027
1444 8AE0 FC 00 27 ..' ldd 0027
1445 8AE3 26 18 &. bne 18
1446 8AE5 F6 0B AA ... ldab 0baa
1447 8AE8 C1 32 .2 cmpb #32
1448 8AEA 26 11 &. bne 11
1449 8AEC F6 0B AA ... ldab 0baa
1453 8AF2 CC 00 C7 ... ldd #00c7
1454 8AF5 BD FB BA ... jsr fbba ;jump38
1455 8AF8 FD 00 27 ..' std 0027
1457 8AFD F6 0B AA ... ldab 0baa
1459 8B01 B3 00 27 ..' subd 0027
1460 8B04 22 0D ". bhi 0d
1461 8B06 FC 00 27 ..' ldd 0027
1462 8B09 F0 0B AA ... subb 0baa
1463 8B0C 82 00 .. sbca #00
1464 8B0E FD 00 27 ..' std 0027
1468 8B15 FD 00 27 ..' std 0027
1470 8B1A FC 00 27 ..' ldd 0027
1471 8B1D 26 0D &. bne 0d
1472 8B1F CC 27 10 .'. ldd #2710
1473 8B22 F0 0B AA ... subb 0baa
1474 8B25 82 00 .. sbca #00
1475 8B27 FD 00 27 ..' std 0027
1477 8B2C F6 0B AA ... ldab 0baa
1479 8B30 B3 00 27 ..' subd 0027
1480 8B33 22 0D ". bhi 0d
1481 8B35 FC 00 27 ..' ldd 0027
1482 8B38 F0 0B AA ... subb 0baa
1483 8B3B 82 00 .. sbca #00
1484 8B3D FD 00 27 ..' std 0027
1488 8B44 FD 00 27 ..' std 0027
1489 8B47 BD 9A 47 ..G jsr 9a47 ;jump39
1490 8B4A C6 02 .. ldab #02
1491 8B4C F7 00 36 ..6 stab 0036
1493 8B4F CE 00 1B ... ldx #001b
1494 8B52 1C 00 10 .. bset 00,x, #10
1495 8B55 CC 02 33 ..3 ldd #0233
1496 8B58 FD 00 3B ..; std 003b
1497 8B5B 7E 8C 72 ~.r jmp 8c72 ;goto7 (exit)
1498 8B5E F6 00 36 ..6 ldab 0036
1499 8B61 26 2C &, bne 2c
1500 8B63 F6 00 1F ... ldab 001f
1501 8B66 C4 40 .@ andb #40
1502 8B68 27 25 '% beq 25
1503 8B6A FC 00 46 ..F ldd 0046
1504 8B6D 83 00 64 ..d subd #0064
1505 8B70 24 15 $. bcc 15
1506 8B72 FE 00 46 ..F ldx 0046
1508 8B76 FF 00 46 ..F stx 0046
1509 8B79 FC 00 46 ..F ldd 0046
1510 8B7C 83 00 64 ..d subd #0064
1511 8B7F 25 06 %. bcs 06
1512 8B81 CC 00 01 ... ldd #0001
1513 8B84 FD 00 46 ..F std 0046
1514 8B87 BD 9A 47 ..G jsr 9a47 ;jump39
1515 8B8A C6 02 .. ldab #02
1516 8B8C F7 00 36 ..6 stab 0036
1517 8B8F CE 00 1B ... ldx #001b
1518 8B92 1C 00 10 .. bset 00,x, #10
1519 8B95 CC 02 33 ..3 ldd #0233
1520 8B98 FD 00 3B ..; std 003b
1521 8B9B 7E 8C 72 ~.r jmp 8c72 ;goto7 (exit)
1522 8B9E F6 00 36 ..6 ldab 0036
1523 8BA1 26 29 &) bne 29
1524 8BA3 F6 00 1F ... ldab 001f
1525 8BA6 C4 40 .@ andb #40
1526 8BA8 27 22 '" beq 22
1527 8BAA FC 00 46 ..F ldd 0046
1528 8BAD 83 00 00 ... subd #0000
1529 8BB0 23 12 #. bls 12
1530 8BB2 FE 00 46 ..F ldx 0046
1532 8BB6 FF 00 46 ..F stx 0046
1533 8BB9 FC 00 46 ..F ldd 0046
1534 8BBC 26 06 &. bne 06
1535 8BBE CC 00 63 ..c ldd #0063
1536 8BC1 FD 00 46 ..F std 0046
1537 8BC4 BD 9A 47 ..G jsr 9a47 ;jump39
1538 8BC7 C6 02 .. ldab #02
1539 8BC9 F7 00 36 ..6 stab 0036
1540 8BCC CE 00 1B ... ldx #001b
1541 8BCF 1C 00 10 ... bset 00,x, #10
1542 8BD2 CC 02 33 ..3 ldd #0233
1543 8BD5 FD 00 3B ..; std 003b
1544 8BD8 7E 8C 72 ~.r jmp 8c72 ;goto7 (exit)
1545 8BDB F6 00 1F ... ldab 001f
1546 8BDE C4 40 .@ andb #40
1547 8BE0 27 15 '. beq 15
1548 8BE2 F6 00 19 ... ldab 0019
1549 8BE5 C4 10 .. andb #10
1550 8BE7 27 08 '. beq 08
1551 8BE9 CE 00 19 ... ldx #0019
1552 8BEC 1D 00 10 ... bclr 00,x, #10
1554 8BF1 CE 00 19 ... ldx #0019
1555 8BF4 1C 00 10 ... bset 00,x, #10
1556 8BF7 BD 9A 47 ..G jsr 9a47 ;jump39
1558 8BFC BD A3 85 ... jsr a385 ;jump40
1559 8BFF F6 00 06 ... ldab 0006
1560 8C02 C1 64 .d cmpb #64
1561 8C04 24 24 $$ bcc 24
1562 8C06 BD 97 6F ..o jsr 976f ;jump41
1563 8C09 F6 00 06 ... ldab 0006
1564 8C0C BD D7 A0 ... jsr d7a0 ;is_invalid_slot
1565 8C0F 83 00 00 ... subd #0000
1566 8C12 27 16 '. beq 16
1567 8C14 F6 00 06 ... ldab 0006
1568 8C17 C1 09 .. cmpb #09
1569 8C19 26 03 &. bne 03
1570 8C1B BD 97 6F ..o jsr 976f ;jump41
1571 8C1E F6 00 06 ... ldab 0006
1572 8C21 C1 45 .E cmpb #45
1573 8C23 26 05 &. bne 05
1574 8C25 C6 01 .. ldab #01
1575 8C27 F7 00 06 ... stab 0006
1576 8C2A F6 0E 6D ..m ldab 0e6d
1577 8C2D C1 01 .. cmpb #01
1578 8C2F 26 11 &. bne 11
1579 8C31 F6 00 06 ... ldab 0006
1582 8C36 C3 08 C8 ... addd #08c8
1584 8C3A EC 00 .. ldd 00,x
1585 8C3C C4 7F .. andb #7f
1587 8C3F FD 00 46 ..F std 0046
1588 8C42 BD D3 11 ... jsr d311 ;jump30 - test position exists
1589 8C45 83 00 00 ... subd #0000
1590 8C48 26 12 &. bne 12
1591 8C4A CE 00 1F ... ldx #001f
1592 8C4D 1C 00 40 ... bset 00,x, #40
1593 8C50 FC 00 27 ..' ldd 0027
1594 8C53 83 27 0F .'. subd #270f
1595 8C56 23 02 #. bls 02
1596 8C58 8D 19 .. bsr dest 19
1598 8C5C CE 00 1F ... ldx #001f
1599 8C5F 1D 00 40 ... bclr 00,x, #40
1600 8C62 BD 9A 47 ..G jsr 9a47 ;jump39
1602 8C67 BD A3 85 ... jsr a385 ;jump40
1603 8C6A BD 85 AF ... jsr 85af ;jump14
1605 8C6F BD 85 AF ... jsr 85af ;jump14
1610 8C73 F6 00 06 ... ldab 0006
1613 8C78 C3 08 00 ... addd #0800
1615 8C7C EC 00 .. ldd 00,x
1616 8C7E C4 FF .. andb #ff
1617 8C80 84 3F .? anda #3f
1618 8C82 FD 00 27 ..' std 0027
1619 8C85 F6 00 06 ... ldab 0006
1622 8C8A C3 08 C8 ... addd #08c8
1624 8C8E EC 00 .. ldd 00,x
1625 8C90 C4 7F .. andb #7f
1627 8C93 FD 00 46 ..F std 0046
1628 8C96 F6 00 06 ... ldab 0006
1631 8C9B C3 08 C8 ... addd #08c8
1633 8C9F EC 00 .. ldd 00,x
1634 8CA1 84 08 .. anda #08
1635 8CA3 27 08 '. beq 08
1636 8CA5 CE 00 19 ... ldx #0019
1637 8CA8 1C 00 10 ... bset 00,x, #10
1639 8CAD CE 00 19 ... ldx #0019
1640 8CB0 1D 00 10 ... bclr 00,x, #10
1644 ; program smart shopping discount
1645 8CB4 F6 00 1F ... ldab 001f
1646 8CB7 C4 02 .. andb #02
1647 8CB9 27 12 '. beq 12
1648 8CBB FC 0B B7 ... ldd 0bb7
1649 8CBE FD 00 0D ... std 000d
1650 8CC1 CE 00 1F ... ldx #001f
1651 8CC4 1D 00 02 ... bclr 00,x, #02
1652 8CC7 7F 00 36 ..6 clr 0036
1653 8CCA 7E 8E 34 ~.4 jmp 8e34 ;goto10
1654 8CCD F6 00 09 ... ldab 0009
1656 8CD1 BD FE 32 ..2 jsr fe32 ;jump25
1657 8CD4 8C EE 00 00 .... ; array data for jump25
1658 8CD8 8C F4 00 01 ....
1659 8CDC 8D 80 00 01 ....
1660 8CE0 8E 29 00 08 .)..
1661 8CE4 8E 31 00 01 .1..
1662 8CE8 8E 34 FF F5 .4.
1663 8CEC 00 00 ... ; end of array data
1664 8CEE BD 9B 63 ..c jsr 9b63 ;jump101
1665 8CF1 7E 8E 34 ~.4 jmp 8e34 ;goto10
1666 8CF4 F6 00 36 ..6 ldab 0036
1667 8CF7 26 78 &x bne 78
1668 8CF9 F6 0B C0 ... ldab 0bc0
1669 8CFC C4 02 .. andb #02
1670 8CFE 27 52 'R beq 52
1671 8D00 F6 0B AA ... ldab 0baa
1672 8D03 C1 32 .2 cmpb #32
1673 8D05 24 22 $" bcc 22
1674 8D07 F6 0B AA ... ldab 0baa
1676 8D0B F3 00 0D ... addd 000d
1677 8D0E FD 00 0D ... std 000d
1678 8D11 F6 0B AA ... ldab 0baa
1682 8D17 CC 00 FA ... ldd #00fa
1683 8D1A BD FB BA ... jsr fbba ;jump38
1684 8D1D B3 00 0D ... subd 000d
1685 8D20 24 05 $. bcc 05
1688 8D24 FD 00 0D ... std 000d
1690 8D29 F6 0B AA ... ldab 0baa
1691 8D2C C1 32 .2 cmpb #32
1693 8D30 F6 0B AA ... ldab 0baa
1695 8D34 F3 00 0D ... addd 000d
1696 8D37 FD 00 0D ... std 000d
1697 8D3A F6 0B AA ... ldab 0baa
1701 8D40 CC 00 C7 ... ldd #00c7
1702 8D43 BD FB BA ... jsr fbba ;jump38
1703 8D46 B3 00 0D ... subd 000d
1704 8D49 24 05 $. bcc 05
1707 8D4D FD 00 0D ... std 000d
1709 8D52 F6 0B AA ... ldab 0baa
1711 8D56 F3 00 0D ... addd 000d
1712 8D59 FD 00 0D ... std 000d
1713 8D5C FC 00 0D ... ldd 000d
1714 8D5F 83 27 0F .'. subd #270f
1715 8D62 23 05 #. bls 05
1718 8D66 FD 00 0D ... std 000d
1719 8D69 BD 9B 63 ..c jsr 9b63 ;jump101
1720 8D6C C6 02 .. ldab #02
1721 8D6E F7 00 36 ..6 stab 0036
1722 8D71 CE 00 1B ... ldx #001b
1723 8D74 1C 00 10 .. bset 00,x, #10
1724 8D77 CC 02 33 ..3 ldd #0233
1725 8D7A FD 00 3B ..; std 003b
1726 8D7D 7E 8E 34 ~.4 jmp 8e34 ;goto10
1727 8D80 F6 00 36 ..6 ldab 0036
1728 8D83 27 03 '. beq 03
1729 8D85 7E 8E 1B ~.. jmp 8e1b ;goto11
1730 8D88 F6 0B C0 ... ldab 0bc0
1731 8D8B C4 02 .. andb #02
1732 8D8D 27 57 'W beq 57
1733 8D8F FC 00 0D ... ldd 000d
1734 8D92 26 18 &. bne 18
1735 8D94 F6 0B AA ... ldab 0baa
1736 8D97 C1 32 .2 cmpb #32
1737 8D99 24 11 $. bcc 11
1738 8D9B F6 0B AA ... ldab 0baa
1742 8DA1 CC 00 FA ... ldd #00fa
1743 8DA4 BD FB BA ... jsr fbba ;jump38
1744 8DA7 FD 00 0D ... std 000d
1746 8DAC FC 00 0D ... ldd 000d
1747 8DAF 26 18 &. bne 18
1748 8DB1 F6 0B AA ... ldab 0baa
1749 8DB4 C1 32 .2 cmpb #32
1750 8DB6 26 11 &. bne 11
1751 8DB8 F6 0B AA ... ldab 0baa
1755 8DBE CC 00 C7 ... ldd #00c7
1756 8DC1 BD FB BA ... jsr fbba ;jump38
1757 8DC4 FD 00 0D ... std 000d
1759 8DC9 F6 0B AA ... ldab 0baa
1761 8DCD B3 00 0D ... subd 000d
1762 8DD0 22 0D ". bhi 0d
1763 8DD2 FC 00 0D ... ldd 000d
1764 8DD5 F0 0B AA ... subb 0baa
1765 8DD8 82 00 .. sbca #00
1766 8DDA FD 00 0D ... std 000d
1770 8DE1 FD 00 0D ... std 000d
1772 8DE6 FC 00 0D ... ldd 000d
1773 8DE9 26 0D &. bne 0d
1774 8DEB CC 27 10 .'. ldd #2710
1775 8DEE F0 0B AA ... subb 0baa
1776 8DF1 82 00 .. sbca #00
1777 8DF3 FD 00 0D ... std 000d
1779 8DF8 F6 0B AA ... ldab 0baa
1781 8DFC B3 00 0D ... subd 000d
1782 8DFF 22 0D ". bhi 0d
1783 8E01 FC 00 0D ... ldd 000d
1784 8E04 F0 0B AA ... subb 0baa
1785 8E07 82 00 .. sbca #00
1786 8E09 FD 00 0D ... std 000d
1790 8E10 FD 00 0D ... std 000d
1791 8E13 BD 9B 63 ..c jsr 9b63 ;jump101
1792 8E16 C6 02 .. ldab #02
1793 8E18 F7 00 36 ..6 stab 0036
1795 8E1B CE 00 1B ... ldx #001b
1796 8E1E 1C 00 10 ... bset 00,x, #10
1797 8E21 CC 02 33 ..3 ldd #0233
1798 8E24 FD 00 3B ..; std 003b
1800 8E29 BD A4 4F ..O jsr a44f ;jump140
1801 8E2C BD 85 AF ... jsr 85af ;jump14
1803 8E31 BD 85 AF ... jsr 85af ;jump14
1808 ; manual peripheral config menu
1809 8E35 F6 00 1F ... ldab 001f
1810 8E38 C4 02 .. andb #02
1811 8E3A 27 1E '. beq 1e
1812 8E3C 7F 00 48 ..H clr 0048
1813 8E3F F6 0B C0 ... ldab 0bc0
1814 8E42 F7 00 67 ..g stab 0067
1815 8E45 F6 0E 6D ..m ldab 0e6d
1816 8E48 F7 0E 6F ..o stab 0e6f
1817 8E4B F6 0E 6E ..n ldab 0e6e
1818 8E4E F7 0E 70 ..p stab 0e70
1819 8E51 CE 00 1F ... ldx #001f
1820 8E54 1D 00 02 ... bclr 00,x, #02
1821 8E57 7E 8F 0C ~.. jmp 8f0c ;goto12
1822 8E5A F6 00 09 ... ldab 0009
1824 8E5E BD FE 32 ..2 jsr fe32 ;jump25
1825 8E61 8E 7B 00 00 .{.. ; array data for jump25
1826 8E65 8E 81 00 01 ....
1827 8E69 8E 87 00 04 ....
1828 8E6D 8F 01 00 05 ....
1829 8E71 8F 09 00 01 ....
1830 8E75 8F 0C FF F5 ....
1831 8E79 00 00 .. ; end of array data
1832 8E7B BD 9C 15 ... jsr 9c15 ;jump111
1833 8E7E 7E 8F 0C ~.. jmp 8f0c ;goto12
1834 8E81 BD A7 5F .._ jsr a75f ;jump133
1835 8E84 7E 8F 0C ~.. jmp 8f0c ;goto12
1836 8E87 F6 00 48 ..H ldab 0048
1837 8E8A C1 08 .. cmpb #08
1838 8E8C 25 05 %. bcs 05
1839 8E8E F6 00 67 ..g ldab 0067
1840 8E91 2D 03 -. blt 03
1841 8E93 BD A4 59 ..Y jsr a459 ;jump110
1842 8E96 F6 00 48 ..H ldab 0048
1843 8E99 C1 0A .. cmpb #0a
1844 8E9B 24 5F $_ bcc 5f
1845 8E9D 7C 00 48 |.H inc 0048
1846 8EA0 F6 00 48 ..H ldab 0048
1847 8EA3 C1 01 .. cmpb #01
1848 8EA5 26 0F &. bne 0f
1849 8EA7 F6 00 67 ..g ldab 0067
1850 8EAA C4 02 .. andb #02
1851 8EAC 26 08 &. bne 08
1852 8EAE F6 00 48 ..H ldab 0048
1853 8EB1 CB 02 .. addb #02
1854 8EB3 F7 00 48 ..H stab 0048
1855 8EB6 F6 00 48 ..H ldab 0048
1856 8EB9 C1 02 .. cmpb #02
1857 8EBB 26 0A &. bne 0a
1858 8EBD F6 00 67 ..g ldab 0067
1859 8EC0 C4 10 .. andb #10
1860 8EC2 26 03 &. bne 03
1861 8EC4 7C 00 48 |.H inc 0048
1862 8EC7 F6 00 48 ..H ldab 0048
1863 8ECA C1 06 .. cmpb #06
1864 8ECC 26 0F &. bne 0f
1865 8ECE F6 00 67 ..g ldab 0067
1866 8ED1 C4 08 .. andb #08
1867 8ED3 26 08 &. bne 08
1868 8ED5 C6 02 .. ldab #02
1869 8ED7 FB 00 48 ..H addb 0048
1870 8EDA F7 00 48 ..H stab 0048
1871 8EDD F6 00 48 ..H ldab 0048
1872 8EE0 C1 0A .. cmpb #0a
1873 8EE2 26 08 &. bne 08
1874 8EE4 F6 00 67 ..g ldab 0067
1875 8EE7 2D 03 -. blt 03
1876 8EE9 7C 00 48 |.H inc 0048
1877 8EEC F6 00 48 ..H ldab 0048
1878 8EEF C1 0A .. cmpb #0a
1879 8EF1 23 09 #. bls 09
1880 8EF3 7F 00 48 ..H clr 0048
1881 8EF6 F6 0B C0 ... ldab 0bc0
1882 8EF9 F7 00 67 ..g stab 0067
1883 8EFC BD 9C 15 ... jsr 9c15 ;jump111
1885 8F01 BD A4 59 ..Y jsr a459 ;jump110
1886 8F04 BD 85 AF ... jsr 85af ;jump14
1888 8F09 BD 85 AF ... jsr 85af ;jump14
1893 ; promotional vend-pair programming (buy one thing get another free?)
1894 8F0D F6 00 1F ... ldab 001f
1895 8F10 C4 02 .. andb #02
1896 8F12 27 1D '. beq 1d
1897 8F14 C6 01 .. ldab #01
1898 8F16 F7 00 22 .." stab 0022
1899 8F19 F6 0B AF ... ldab 0baf
1900 8F1C F7 00 24 ..$ stab 0024
1901 8F1F F6 0B B4 ... ldab 0bb4
1902 8F22 F7 00 2A ..* stab 002a
1903 8F25 CE 00 1F ... ldx #001f
1904 8F28 1D 00 02 .. bclr 00,x, #02
1905 8F2B 7F 00 36 ..6 clr 0036
1906 8F2E 7E 90 D0 ~.. jmp 90d0 ;goto13
1907 8F31 F6 00 09 ... ldab 0009
1909 8F35 BD FE 16 ... jsr fe16 ;jump2
1910 8F38 00 00 00 0B .... ; params for jump2
1924 8F56 BD 9D 2A ..* jsr 9d2a ;jump89
1925 8F59 7E 90 D0 ~.. jmp 90d0 ;goto13
1926 8F5C F6 00 36 ..6 ldab 0036
1927 8F5F 26 43 &C bne 43
1928 8F61 F6 00 24 ..$ ldab 0024
1929 8F64 C1 64 .d cmpb #64
1930 8F66 24 34 $4 bcc 34
1931 8F68 7C 00 24 |.$ inc 0024
1932 8F6B F6 00 24 ..$ ldab 0024
1933 8F6E F7 00 06 ... stab 0006
1934 8F71 F6 00 06 ... ldab 0006
1935 8F74 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
1936 8F77 83 00 00 ... subd #0000
1937 8F7A 27 03 '. beq 03
1938 8F7C 7C 00 24 |.$ inc 0024
1939 8F7F F6 00 24 ..$ ldab 0024
1940 8F82 C1 64 .d cmpb #64
1941 8F84 26 03 &. bne 03
1942 8F86 7F 00 24 ..$ clr 0024
1943 8F89 F6 00 24 ..$ ldab 0024
1945 8F8D CE 00 05 ... ldx #0005
1948 8F92 26 08 &. bne 08
1949 8F94 F6 00 24 ..$ ldab 0024
1950 8F97 27 03 '. beq 03
1951 8F99 7C 00 24 |.$ inc 0024
1952 8F9C BD 9D 2A ..* jsr 8d2a ;jump89
1953 8F9F C6 02 .. ldab #02
1954 8FA1 F7 00 36 ..6 stab 0036
1955 8FA4 CE 00 1B ... ldx #001b
1956 8FA7 1C 00 10 ... bset 00,x, #10
1957 8FAA CC 02 33 ..3 ldd #0233
1958 8FAD FD 00 3B ..; std 003b
1959 8FB0 7E 90 D0 ~.. jmp 90d0 ;goto13
1960 8FB3 F6 00 36 ..6 ldab 0036
1961 8FB6 26 45 &E bne 45
1962 8FB8 F6 00 24 ..$ ldab 0024
1963 8FBB C1 00 .. cmpb #00
1964 8FBD 23 2C #, bls 2c
1965 8FBF 7A 00 24 z.$ dec 0024
1966 8FC2 F6 00 24 ..$ ldab 0024
1968 8FC6 CE 00 05 ... ldx #0005
1971 8FCB 26 08 &. bne 08
1972 8FCD F6 00 24 ..$ ldab 0024
1973 8FD0 27 03 '. beq 03
1974 8FD2 7A 00 24 z.$ dec 0024
1975 8FD5 F6 00 24 ..$ ldab 0024
1976 8FD8 F7 00 06 ... stab 0006
1977 8FDB F6 00 06 ... ldab 0006
1978 8FDE BD D7 A0 ... jsr d7a0 ;is_invalid_slot
1979 8FE1 83 00 00 ... subd #0000
1980 8FE4 27 03 '. beq 03
1981 8FE6 7A 00 24 z.$ dec 0024
1983 8FEB F6 00 24 ..$ ldab 0024
1984 8FEE 26 05 &. bne 05
1985 8FF0 C6 62 .b ldab #62
1986 8FF2 F7 00 24 ..$ stab 0024
1987 8FF5 BD 9D 2A ..* jsr 9d2a ;jump89
1988 8FF8 C6 02 .. ldab #02
1989 8FFA F7 00 36 ..6 stab 0036
1990 8FFD CE 00 1B ... ldx #001b
1991 9000 1C 00 10 ... bset 00,x, #10
1992 9003 CC 02 33 ..3 ldd #0233
1993 9006 FD 00 3B ..; std 003b
1994 9009 7E 90 D0 ~.. jmp 90d0 ;goto13
1995 900C F6 00 36 ..6 ldab 0036
1996 900F 26 43 &C bne 43
1997 9011 F6 00 2A ..* ldab 002a
1998 9014 C1 64 .d cmpb #64
1999 9016 24 34 $4 bcc 34
2000 9018 7C 00 2A |.* inc 002a
2001 901B F6 00 2A ..* ldab 002a
2002 901E F7 00 06 ... stab 0006
2003 9021 F6 00 06 ... ldab 0006
2004 9024 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
2005 9027 83 00 00 ... subd #0000
2006 902A 27 03 '. beq 03
2007 902C 7C 00 2A |.* inc 002a
2008 902F F6 00 2A ..* ldab 002a
2009 9032 C1 64 .d cmpb #64
2010 9034 26 03 &. bne 03
2011 9036 7F 00 2A ..* clr 002a
2012 9039 F6 00 2A ..* ldab 002a
2014 903D CE 00 05 ... ldx #0005
2017 9042 26 08 &. bne 08
2018 9044 F6 00 2A ..* ldab 002a
2019 9047 27 03 '. beq 03
2020 9049 7C 00 2A |.* inc 002a
2021 904C BD 9D 2A ..* jsr 9d2a ;jump89
2022 904F C6 02 .. ldab #02
2023 9051 F7 00 36 ..6 stab 0036
2024 9054 CE 00 1B ... ldx #001b
2025 9057 1C 00 10 ... bset 00,x, #10
2026 905A CC 02 33 ..3 ldd #0233
2027 905D FD 00 3B ..; std 003b
2029 9062 F6 00 36 ..6 ldab 0036
2030 9065 26 45 &E bne 45
2031 9067 F6 00 2A ..* ldab 002a
2032 906A C1 00 .. cmpb #00
2033 906C 23 2C #, bls 2c
2034 906E 7A 00 2A z.* dec 002a
2035 9071 F6 00 2A ..* ldab 002a
2037 9075 CE 00 05 ... ldx #0005
2040 907A 26 08 &. bne 08
2041 907C F6 00 2A ..* ldab 002a
2042 907F 27 03 '. beq 03
2043 9081 7A 00 2A z.* dec 002a
2044 9084 F6 00 2A ..* ldab 002a
2045 9087 F7 00 06 ... stab 0006
2046 908A F6 00 06 ... ldab 0006
2047 908D BD D7 A0 ... jsr d7a0 ;is_invalid_slot
2048 9090 83 00 00 ... subd #0000
2049 9093 27 03 '. beq 03
2050 9095 7A 00 2A z.* dec 002a
2052 909A F6 00 2A ..* ldab 002a
2053 909D 26 05 &. bne 05
2054 909F C6 62 .b ldab #62
2055 90A1 F7 00 2A ..* stab 002a
2056 90A4 BD 9D 2A ..* jsr 9d2a ;jump89
2057 90A7 C6 02 .. ldab #02
2058 90A9 F7 00 36 ..6 stab 0036
2059 90AC CE 00 1B ... ldx #001b
2060 90AF 1C 00 10 ... bset 00,x, #10
2061 90B2 CC 02 33 ..3 ldd #0233
2062 90B5 FD 00 3B ..; std 003b
2064 90BA BD A5 1E ... jsr a51e ;jump109
2065 90BD BD AA 9A ... jsr aa9a ;jump127
2066 90C0 BD 9D 2A ..* jsr 9d2a ;jump89
2068 90C5 BD A5 1E ... jsr a51e ;jump109
2069 90C8 BD 85 AF ... jsr 85af ;jump14
2071 90CD BD 85 AF ... jsr 85af ;jump14
2076 ; pos message & serial id
2077 90D1 F6 00 1F ... ldab 001f
2078 90D4 C4 02 .. andb #02
2079 90D6 27 14 '. beq 14
2080 90D8 CE 00 1F ... ldx #001f
2081 90DB 1D 00 02 ... bclr 00,x, #02
2082 90DE CE 00 19 ... ldx #0019
2083 90E1 1C 00 .. bset add,x 00,x
2084 90E3 80 7F .. suba #7f
2087 90E7 7F 00 0A ... clr 000a
2089 90EC F6 00 09 ... ldab 0009
2091 90F0 BD FE 32 ..2 jsr fe32 ;jump25
2092 90F3 91 0D 00 00 .... ; array data for jump25
2093 90F7 91 15 00 01 ....
2094 90FB 91 19 00 01 ....
2095 90FF 91 1E 00 01 ....
2096 9103 91 23 00 08 .#..
2097 9107 91 26 FF F5 .&..
2098 910B 00 00 .. ; end of array data
2099 910D CC B0 AD ... ldd #b0ad ; "PROGRAM ?"
2100 9110 BD C0 BA ... jsr c0ba ;display:
2102 9115 8D 16 .. bsr dest 16
2104 9119 BD 91 C6 ... jsr 91c6 ;jump76
2106 911E BD 92 5A ..Z jsr 925a ;jump149
2108 9123 BD 85 AF ... jsr 85af ;jump14
2109 9126 7F 00 09 ... clr 0009
2110 9129 7F 00 0A ... clr 000a
2113 912D F6 00 19 ... ldab 0019
2114 9130 2C 28 ,( bge 28
2115 9132 BD A9 CF ... jsr a9cf ;jump131
2116 9135 C6 50 .P ldab #50
2117 9137 F7 0A 90 ... stab 0a90
2118 913A C6 20 . ldab #20
2119 913C F7 0B 8D ... stab 0b8d
2120 913F C6 20 . ldab #20
2121 9141 F7 0B 8E ... stab 0b8e
2122 9144 C6 28 .( ldab #28
2123 9146 F7 0B 8F ... stab 0b8f
2124 9149 7F 00 54 ..T clr 0054
2125 914C 7F 00 60 ..` clr 0060
2126 914F CE 00 19 ... ldx #0019
2127 9152 1D 00 .. bclr add,x 00,x
2128 9154 80 7F .. suba #7f
2132 915A F6 00 0A ... ldab 000a
2134 915E BD FE 16 ... jsr fe16 ;jump2
2139 9165 91 C5 91 ... cmpa c5
2140 9168 7F 91 84 ... clr 9184
2141 916B 91 89 91 ... cmpa 89
2142 916E 8E 91 9F ... lds #919f
2143 9171 91 B0 91 ... cmpa b0
2144 9174 C5 91 .. bitb #91
2145 9176 C5 91 .. bitb #91
2146 9178 C5 91 .. bitb #91
2147 917A B5 91 BA ... bita 91ba
2148 917D 91 C2 BD ... cmpa c2
2149 9180 9D 7E 20 .~ jsr 7e
2151 9184 BD A8 64 ..d jsr a864 ;jump99
2153 9189 BD A8 D5 ... jsr a8d5 ;jump97
2155 918E BD A8 96 ... jsr a896 ;jump98
2156 9191 CE 00 1B ... ldx #001b
2157 9194 1C 00 10 ... bset 00,x, #10
2158 9197 CC 02 33 ..3 ldd #0233
2159 919A FD 00 3B ..; std 003b
2161 919F BD A8 E5 ... jsr a8e5 ;jump96
2162 91A2 CE 00 1B ... ldx #001b
2163 91A5 1C 00 10 ... bset 00,x, #10
2164 91A8 CC 02 33 ..3 ldd #0233
2165 91AB FD 00 3B ..; std 003b
2167 91B0 BD A9 21 ..! jsr a921 ;jump95
2169 91B5 BD A9 7A ..z jsr a97a ;jump132
2171 91BA BD A5 7D ..} jsr a57d ;jump139
2172 91BD BD 85 AF ... jsr 85af ;jump14
2174 91C2 BD 85 AF ... jsr 85af ;jump14
2178 91C6 F6 00 19 ... ldab 0019
2179 91C9 2C 28 ,( bge 28
2180 91CB BD AA 0A ... jsr aa0a ;jump130
2181 91CE C6 53 .S ldab #53 ; "S"
2182 91D0 F7 0A 90 ... stab 0a90
2183 91D3 C6 20 . ldab #20 ; " "
2184 91D5 F7 0A 9D ... stab 0a9d
2185 91D8 C6 20 . ldab #20 ; " "
2186 91DA F7 0A 9E ... stab 0a9e
2187 91DD C6 28 .( ldab #28 ; "("
2188 91DF F7 0A 9F ... stab 0a9f
2189 91E2 7F 00 54 ..T clr 0054
2190 91E5 7F 00 60 ..` clr 0060
2191 91E8 CE 00 19 ... ldx #0019
2192 91EB 1D 00 .. bclr add,x 00,x
2193 91ED 80 7F .. suba #7f
2197 91F3 F6 00 0A ... ldab 000a
2199 91F7 BD FE 16 ... jsr fe16 ;jump2
2214 9218 BD 9D 7E .. jsr 9d7e
2215 921B 20 3C .~ bra 3c
2216 921D BD A8 64 ..d jsr a864 ;jump99
2218 9222 BD A8 D5 ... jsr a8d5 ;jump97
2220 9227 BD A8 96 ... jsr a896 ;jump98
2221 922A CE 00 1B ... ldx #001b
2222 922D 1C 00 10 ... bset 00,x, #10
2223 9230 CC 02 33 ..3 ldd #0233
2224 9233 FD 00 3B ..; std 003b
2226 9238 BD A8 E5 ... jsr a8e5 ;jump96
2227 923B CE 00 1B ... ldx #001b
2228 923E 1C 00 10 ... bset 00,x, #10
2229 9241 CC 02 33 ..3 ldd #0233
2230 9244 FD 00 3B ..; std 003b
2232 9249 BD A9 21 ..! jsr a921 ;jump95
2234 924E BD A5 AC ... jsr a5ac ;jump138
2235 9251 BD 85 AF ... jsr 85af ;jump14
2237 9256 BD 85 AF ... jsr 85af ;jump14
2241 925A F6 00 19 ... ldab 0019
2242 925D 2C 28 ,( bge 28
2243 925F BD AA 3F ..? jsr aa3f ;jump129
2244 9262 C6 49 .I ldab #49
2245 9264 F7 0A 90 ... stab 0a90
2246 9267 C6 20 . ldab #20
2247 9269 F7 0A 9D ... stab 0a9d
2248 926C C6 20 . ldab #20
2249 926E F7 0A 9E ... stab 0a9e
2250 9271 C6 28 .( ldab #28
2251 9273 F7 0A 9F ... stab 0a9f
2252 9276 7F 00 54 ..T clr 0054
2253 9279 7F 00 60 ..` clr 0060
2254 927C CE 00 19 ... ldx #0019
2255 927F 1D 00 .. bclr add,x 00,x
2256 9281 80 7F .. suba #7f
2260 9287 F6 00 0A ... ldab 000a
2262 928B BD FE 16 ... jsr fe16 ;jump2
2267 9292 92 ED 92 ... sbca ed
2268 9295 AC 92 .. cpx 92,x
2269 9297 B1 92 B6 ... cmpa 92b6
2270 929A 92 BB 92 ... sbca bb
2271 929D CC 92 DD ... ldd #92dd
2272 92A0 92 ED 92 ... sbca ed
2273 92A3 ED 92 .. std 92,x
2274 92A5 ED 92 .. std 92,x
2275 92A7 ED 92 .. std 92,x
2276 92A9 E2 92 .. sbcb 92,x
2277 92AB EA BD .. orb bd,x
2278 92AD 9D 7E 20 .~ jsr 7e
2280 92B1 BD A8 64 ..d jsr a864 ;jump99
2282 92B6 BD A8 D5 ... jsr a8d5 ;jump97
2284 92BB BD A8 96 ... jsr a896 ;jump98
2285 92BE CE 00 1B ... ldx #001b
2286 92C1 1C 00 10 ... bset 00,x, #10
2287 92C4 CC 02 33 ..3 ldd #0233
2288 92C7 FD 00 3B ..; std 003b
2290 92CC BD A8 E5 ... jsr a8e5 ;jump96
2291 92CF CE 00 1B ... ldx #001b
2292 92D2 1C 00 10 ... bset 00,x, #10
2293 92D5 CC 02 33 ..3 ldd #0233
2294 92D8 FD 00 3B ..; std 003b
2296 92DD BD A9 21 ..! jsr a921 ;jump95
2298 92E2 BD A5 D5 ... jsr a5d5 ;jump137
2299 92E5 BD 85 AF ... jsr 85af ;jump14
2301 92EA BD 85 AF ... jsr 85af ;jump14
2306 92EE F6 0C DC ... ldab 0cdc
2310 92F4 CC 00 64 ..d ldd #0064
2311 92F7 BD FB BA ... jsr fbba ;jump38
2312 92FA FD 0C E9 ... std 0ce9
2313 92FD BD D6 F6 ... jsr d6f6 ;jump106
2314 9300 FC 0C E9 ... ldd 0ce9
2315 9303 F3 0B EF ... addd 0bef
2316 9306 FD 0C F1 ... std 0cf1
2317 9309 FE 0C F5 ... ldx 0cf5
2319 930D FC 0C F3 ... ldd 0cf3
2322 9312 FE 0C F9 ... ldx 0cf9
2324 9316 FC 0C F7 ... ldd 0cf7
2325 9319 BD FC 25 ..% jsr fc25 ;jump85
2328 931E FE 0C FD ... ldx 0cfd
2330 9322 FC 0C FB ... ldd 0cfb
2331 9325 BD FC 25 ..% jsr fc25 ;jump85
2334 932A FE 0D 01 ... ldx 0d01
2336 932E FC 0C FF ... ldd 0cff
2337 9331 BD FC 25 ..% jsr fc25 ;jump85
2340 9336 FE 0D 05 ... ldx 0d05
2342 933A FC 0D 03 ... ldd 0d03
2343 933D BD FC 25 ..% jsr fc25 ;jump85
2344 9340 FD 0D F3 ... std 0df3
2347 9345 FD 0D F5 ... std 0df5
2348 9348 FE 0D F9 ... ldx 0df9
2350 934C FC 0D F7 ... ldd 0df7
2353 9351 FE 0D F5 ... ldx 0df5
2355 9355 FC 0D F3 ... ldd 0df3
2356 9358 BD FC 25 ..% jsr fc25 ;jump85
2357 935B FD 0D EF ... std 0def
2360 9360 FD 0D F1 ... std 0df1
2361 9363 F6 20 00 . . ldab 2000
2362 9366 C4 40 .@ andb #40
2363 9368 27 37 '7 beq 37
2364 936A F6 00 1F ... ldab 001f
2365 936D C4 02 .. andb #02
2366 936F 27 1F '. beq 1f
2367 9371 BD 97 E9 ... jsr 97e9 ;jump147
2368 9374 CE 00 1F ... ldx #001f
2369 9377 1D 00 02 ... bclr 00,x, #02
2370 937A CE 00 1F ... ldx #001f
2371 937D 1D 00 10 ... bclr 00,x, #10
2372 9380 CC 02 33 ..3 ldd #0233
2373 9383 FD 00 3B ..; std 003b
2374 9386 7F 00 09 ... clr 0009
2375 9389 C6 92 .. ldab #92
2376 938B F7 00 48 ..H stab 0048
2378 9390 F6 00 19 ... ldab 0019
2379 9393 C4 40 .@ andb #40
2380 9395 26 05 &. bne 05
2381 9397 BD 98 BF ... jsr 98bf ;jump146
2383 939C BD 85 AF ... jsr 85af ;jump14
2385 93A1 BD 98 FF ... jsr 98ff ;jump145
2389 ; program security code menu
2390 93A5 F6 00 1F ... ldab 001f
2391 93A8 C4 02 .. andb #02
2392 93AA 26 0A &. bne 0a
2393 93AC F6 00 3A ..: ldab 003a
2394 93AF 26 2B &+ bne 2b
2395 93B1 F6 00 1D ... ldab 001d
2396 93B4 2D 26 -& blt 26
2397 93B6 CC AF BB ... ldd #afbb ;"ENTER CODE"
2398 93B9 BD C0 BA ... jsr c0ba ;display:
2399 93BC CE 00 1F ... ldx #001f
2400 93BF 1D 00 02 ... bclr 00,x, #02
2401 93C2 CE 00 1D ... ldx #001d
2402 93C5 1D 00 .. bclr add,x 00,x
2403 93C7 80 C6 .. suba #c6
2405 93CA F7 00 3A ..: stab 003a
2406 93CD F6 0B A8 ... ldab 0ba8
2407 93D0 F7 00 66 ..f stab 0066
2408 93D3 BD AA 74 ..t jsr aa74 ;jump128
2409 93D6 7F 00 48 ..H clr 0048
2410 93D9 7F 00 54 ..T clr 0054
2411 93DC F6 00 09 ... ldab 0009
2412 93DF 26 03 &. bne 03
2413 93E1 7E 94 92 ~.. jmp 9492 ;goto14
2414 93E4 F6 00 1D ... ldab 001d
2415 93E7 2C 03 ,. bge 03
2416 93E9 7E 94 92 ~.. jmp 9492 ;goto14
2417 93EC F6 00 09 ... ldab 0009
2418 93EF C1 0B .. cmpb #0b
2419 93F1 26 06 &. bne 06
2420 93F3 BD 85 AF ... jsr 85af ;jump14
2421 93F6 7E 94 90 ~.. jmp 9490 ;goto15
2422 93F9 F6 00 09 ... ldab 0009
2423 93FC C1 0A .. cmpb #0a
2424 93FE 26 03 &. bne 03
2425 9400 7F 00 09 ... clr 0009
2426 9403 F6 00 09 ... ldab 0009
2427 9406 CB 30 .0 addb #30
2429 9409 F6 00 54 ..T ldab 0054
2431 940D C3 00 62 ..b addd #0062
2434 9412 E7 00 .. stab 00,x
2435 9414 BD BE 4B ..K jsr be4b ;displayblank
2436 9417 F6 00 54 ..T ldab 0054
2437 941A 26 06 &. bne 06
2438 941C F6 00 62 ..b ldab 0062
2439 941F F7 0B 96 ... stab 0b96
2440 9422 F6 00 54 ..T ldab 0054
2441 9425 C1 01 .. cmpb #01
2442 9427 26 0C &. bne 0c
2443 9429 F6 00 62 ..b ldab 0062
2444 942C F7 0B 96 ... stab 0b96
2445 942F F6 00 63 ..c ldab 0063
2446 9432 F7 0B 95 ... stab 0b95
2447 9435 F6 00 54 ..T ldab 0054
2448 9438 C1 02 .. cmpb #02
2449 943A 26 12 &. bne 12
2450 943C F6 00 62 ..b ldab 0062
2451 943F F7 0B 96 ... stab 0b96
2452 9442 F6 00 63 ..c ldab 0063
2453 9445 F7 0B 95 ... stab 0b95
2454 9448 F6 00 64 ..d ldab 0064
2455 944B F7 0B 94 ... stab 0b94
2456 944E F6 00 54 ..T ldab 0054
2457 9451 C1 03 .. cmpb #03
2458 9453 26 18 &. bne 18
2459 9455 F6 00 62 ..b ldab 0062
2460 9458 F7 0B 96 ... stab 0b96
2461 945B F6 00 63 ..c ldab 0063
2462 945E F7 0B 95 ... stab 0b95
2463 9461 F6 00 64 ..d ldab 0064
2464 9464 F7 0B 94 ... stab 0b94
2465 9467 F6 00 65 ..e ldab 0065
2466 946A F7 0B 93 ... stab 0b93
2467 946D BD BE 01 ... jsr be01 ;jump70
2468 9470 7C 00 54 |.T inc 0054
2469 9473 F6 00 54 ..T ldab 0054
2470 9476 C1 04 .. cmpb #04
2471 9478 26 0B &. bne 0b
2472 947A CE 00 1D ... ldx #001d
2473 947D 1C 00 .. bset add,x 00,x
2474 947F 80 BD .. suba #bd
2475 9481 A8 0F .. eora 0f,x
2477 9485 CE 00 1D ... ldx #001d
2478 9488 1D 00 .. bclr add,x 00,x
2479 948A 80 C6 .. suba #c6
2481 948D F7 00 3A ..: stab 003a
2485 9492 F6 00 1D ... ldab 001d
2486 9495 2C 45 ,E bge 45
2487 9497 F6 00 09 ... ldab 0009
2489 949B BD FE 32 ..2 jsr fe32 ;jump25
2490 949E 94 B8 00 00 .... ; array data for jump25
2491 94A2 94 BD 00 01 ....
2492 94A6 94 C2 00 04 ....
2493 94AA 94 D1 00 05 ....
2494 94AE 94 D9 00 01 ....
2495 94B2 94 DC FF F5 ....
2496 94B6 00 00 .. ; end of array data
2497 94B8 BD 9E 0F ... jsr 9e0f ;jump142
2499 94BD BD A7 1F ... jsr a71f ;jump134
2501 94C2 7C 00 48 |.H inc 0048
2502 94C5 F6 00 48 ..H ldab 0048
2503 94C8 C1 0A .. cmpb #0a
2504 94CA 23 03 #. bls 03
2505 94CC 7F 00 48 ..H clr 0048
2507 94D1 BD A5 FE ... jsr a5fe ;jump136
2508 94D4 BD 85 AF ... jsr 85af ;jump14
2510 94D9 BD 85 AF ... jsr 85af ;jump14
2514 ; motor functions menu
2515 94DD F6 00 1F ... ldab 001f
2516 94E0 C4 02 .. andb #02
2517 94E2 27 14 '. beq 14
2518 94E4 CE 00 1F ... ldx #001f
2519 94E7 1D 00 02 ... bclr 00,x, #02
2520 94EA CE 00 19 ... ldx #0019
2521 94ED 1C 00 80 .. bset 00,x, #80
2522 94EF 7F 00 09 .. clr 0009
2523 94F3 7F 00 0A ... clr 000a
2525 94F8 F6 00 09 ... ldab 0009
2527 94FC BD FE 32 ..2 jsr fe32 ;jump25
2528 94FF 95 19 00 00 .... ; no key
2529 9503 95 21 00 01 .!.. ; key 1 - motor count procedure
2530 9507 95 2C 00 01 .,.. ; key 2 - single test vend
2531 950B 95 30 00 01 .0.. ; key 3 - test vend everything
2532 950F 95 35 00 08 .5.. ; reset
2533 9513 95 38 FF F5 .8..
2534 9517 00 00 .. ; end of array data
2535 9519 CC B0 A2 ... ldd #b0a2 ; "MTR FUNCT?"
2536 951C BD C0 BA ... jsr c0ba ;display:
2538 9521 BD 87 E9 ... jsr 87e9 ;jump74 - motor count procedure
2539 9524 CE 00 1F ... ldx #001f
2540 9527 1C 00 02 ... bset 00,x, #02
2542 952C 8D 11 .. bsr dest 11 ;jump203 - test single vend
2544 9530 BD 96 88 ... jsr 9688 ;jump148 - test all vends
2546 9535 BD 85 AF ... jsr 85af ;jump14
2547 9538 7F 00 09 ... clr 0009
2548 953B 7F 00 0A ... clr 000a
2552 ; test a single vend
2553 953F F6 00 19 ... ldab 0019
2554 9542 2D 0A -. blt 0a
2555 9544 F6 00 3A ..: ldab 003a
2556 9547 26 22 &" bne 22
2557 9549 F6 00 1D ... ldab 001d
2558 954C 2D 1D -. blt 1d
2559 954E 7F 00 2C .., clr 002c
2560 9551 CC B0 B8 ... ldd #b0b8 ; "SELECTION?"
2561 9554 BD C0 BA ... jsr c0ba ;display:
2562 9557 CE 00 19 ... ldx #0019
2563 955A 1D 00 .. bclr add,x 00,x
2564 955C 80 CE .. suba #ce
2566 955F 1D 1D 00 ... bclr 1d,x, #00
2567 9562 80 7F .. suba #7f
2570 9566 C6 32 .2 ldab #32
2571 9568 F7 00 3A ..: stab 003a
2572 956B F6 00 0A ... ldab 000a
2573 956E 26 03 &. bne 03
2574 9570 7E 96 5C ~.\ jmp 965c ;goto16
2575 9573 F6 00 1D ... ldab 001d
2576 9576 2C 03 ,. bge 03
2577 9578 7E 96 5C ~.\ jmp 965c ;goto16
2578 957B F6 00 0A ... ldab 000a
2579 957E C1 0B .. cmpb #0b
2580 9580 26 09 &. bne 09
2581 9582 CE 00 1F ... ldx #001f
2582 9585 1C 00 02 ... bset 00,x, #02
2583 9588 7E 96 5A ~.Z jmp 965a ;goto93
2584 958B F6 00 54 ..T ldab 0054
2585 958E 26 26 && bne 26
2586 9590 BD BE 4B ..K jsr be4b ;displayblank
2587 9593 F6 00 0A ... ldab 000a
2588 9596 C1 0A .. cmpb #0a
2589 9598 26 03 &. bne 03
2590 959A 7F 00 0A ... clr 000a
2591 959D F6 00 0A ... ldab 000a
2592 95A0 CB 30 .0 addb #30
2594 95A3 CC 0B 95 ... ldd #0b95
2595 95A6 F0 00 54 ..T subb 0054
2596 95A9 82 00 .. sbca #00
2599 95AD E7 00 .. stab 00,x
2600 95AF C6 32 .2 ldab #32
2601 95B1 F7 00 3A ..: stab 003a
2603 95B6 F6 00 54 ..T ldab 0054
2604 95B9 C1 01 .. cmpb #01
2605 95BB 26 27 &' bne 27
2606 95BD F6 00 0A ... ldab 000a
2607 95C0 C1 05 .. cmpb #05
2609 95C4 F6 00 0A ... ldab 000a
2610 95C7 C1 0A .. cmpb #0a
2611 95C9 27 19 '. beq 19
2612 95CB F6 00 0A ... ldab 000a
2613 95CE CB 30 .0 addb #30
2615 95D1 CC 0B 95 ... ldd #0b95
2616 95D4 F0 00 54 ..T subb 0054
2617 95D7 82 00 .. sbca #00
2620 95DB E7 00 .. stab 00,x
2621 95DD C6 32 .2 ldab #32
2622 95DF F7 00 3A ..: stab 003a
2624 95E4 CE 00 19 ... ldx #0019
2625 95E7 1C 00 .. bset add,x 00,x
2626 95E9 80 7F .. suba #7f
2629 95ED BD BE 01 ... jsr be01 ;jump70
2630 95F0 7C 00 54 |.T inc 0054
2631 95F3 F6 00 54 ..T ldab 0054
2632 95F6 C1 02 .. cmpb #02
2633 95F8 26 5A &Z bne 5a
2634 95FA CE 00 1D ... ldx #001d
2635 95FD 1C 00 .. bset add,x 00,x
2636 95FF 80 F6 .. suba #f6
2638 9602 94 CB D0 ... anda cb
2640 9606 F6 0B 95 ... ldab 0b95
2641 9609 CB D0 .. addb #d0
2642 960B 86 0A .. ldaa #0a
2645 960F EB 00 .. addb 00,x
2647 9612 F7 00 06 ... stab 0006
2648 9615 C6 32 .2 ldab #32
2649 9617 F7 00 3A ..: stab 003a
2650 961A F6 00 06 ... ldab 0006
2651 961D BD D7 A0 ... jsr d7a0 ;is_invalid_slot
2652 9620 83 00 00 ... subd #0000
2653 9623 26 21 &! bne 21
2654 9625 BD D3 11 ... jsr d311 ;jump30 - test position exists
2655 9628 83 00 00 ... subd #0000
2656 962B 26 0B &. bne 0b
2657 962D CE 00 1F ... ldx #001f
2658 9630 1C 00 40 ... bset 00,x, #40
2659 9633 BD 8C 73 ..s jsr 8c73 ;jump75
2661 9638 CE 00 1F ... ldx #001f
2662 963B 1D 00 40 ... bclr 00,x, #40
2663 963E 7F 00 2C .., clr 002c
2664 9641 BD 9A 47 ..G jsr 9a47 ;jump39
2666 9646 CE 00 1D ... ldx #001d
2667 9649 1D 00 .. bclr add,x 00,x
2668 964B 80 CE .. suba #ce
2671 964F 1C 00 .. bset add,x 00,x
2672 9651 80 20 . suba #20
2674 9654 CE 00 1D ... ldx #001d
2675 9657 1D 00 .. bclr add,x 00,x
2676 9659 80 20 . suba #20
2678 965B 2B F6 +. bmi f6
2682 965E 1D 2C ., bclr add,x 2c,x
2683 9660 26 BD &. bne bd
2684 9662 D2 13 83 ... sbcb 13
2687 9667 26 0F &. bne 0f
2688 9669 CC 00 64 ..d ldd #0064
2689 966C BD E5 71 ..q jsr e571 ;msdelay
2690 966F BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
2691 9672 CC 03 84 ... ldd #0384
2692 9675 BD E5 71 ..q jsr e571 ;msdelay
2693 9678 7F 00 2E ... clr 002e
2694 967B CE 00 1D ... ldx #001d
2695 967E 1D 00 .. bclr add,x 00,x
2696 9680 80 CE .. suba #ce
2698 9683 1F 1C 00 02 .... brclr 1c,x 00 02
2704 9689 F6 00 19 ... ldab 0019
2705 968C 2C 19 ,. bge 19
2706 968E CE 00 19 ... ldx #0019
2707 9691 1D 00 80 .. bclr 00,x, #80
2708 9694 CC B0 97 ... ldd #b097 ; "TEST VEND"
2709 9697 BD C0 BA ... jsr c0ba ; display
2710 969A C6 0A .. ldab #0a
2711 969C F7 00 38 ..8 stab 0038
2712 969F 7F 00 05 ... clr 0005
2713 96A2 C6 01 .. ldab #01
2714 96A4 F7 00 06 ... stab 0006
2715 96A7 F6 00 0A ... ldab 000a
2716 96AA C1 0B .. cmpb #0b
2717 96AC 26 0C &. bne 0c ; to 96ba
2718 96AE CC 02 33 ..3 ldd #0233
2719 96B1 FD 00 3B ..; std 003b
2720 96B4 CE 00 1F ... ldx #001f
2721 96B7 1C 00 02 ... bset 00,x, #02
2722 96BA F6 00 38 ..8 ldab 0038
2723 96BD 27 03 '. beq 03
2724 96BF 7E 97 6D ~.m jmp 976d ;goto17 - return
2725 96C2 F6 00 06 ... ldab 0006
2726 96C5 C1 63 .c cmpb #63 ; exit if >63
2727 96C7 23 03 #. bls 03
2728 96C9 7E 97 6D ~.m jmp 976d ;goto17 - return
2729 96CC F6 00 06 ... ldab 0006
2730 96CF C1 63 .c cmpb #63
2731 96D1 26 0F &. bne 0f
2732 96D3 BD 99 C3 ... jsr 99c3 ;jump143 - write "VENDS XXX" (from 0005)
2733 96D6 CC 07 D0 ... ldd #07d0 ; 2000
2734 96D9 BD E5 71 ..q jsr e571 ;msdelay
2735 96DC CE 00 1F ... ldx #001f
2736 96DF 1C 00 02 ... bset 00,x, #02
2737 96E2 BD D3 11 ... jsr d311 ;jump30 - test position exists
2738 96E5 83 00 00 ... subd #0000
2739 96E8 26 0B &. bne 0b
2740 96EA CE 00 1F ... ldx #001f
2741 96ED 1C 00 40 ... bset 00,x, #40
2742 96F0 BD 8C 73 ..s jsr 8c73 ;jump75
2744 96F5 CE 00 1F ... ldx #001f
2745 96F8 1D 00 40 ... bclr 00,x, #40
2746 96FB BD 9A 47 ..G jsr 9a47 ;jump39
2747 96FE F6 00 06 ... ldab 0006
2748 9701 C1 63 .c cmpb #63
2749 9703 26 03 &. bne 03
2750 9705 7F 00 2C .., clr 002c
2751 9708 BD D2 13 ... jsr d213 ;jump45
2752 970B 83 00 00 ... subd #0000
2753 970E 27 03 '. beq 03
2754 9710 7C 00 05 |.. inc 0005
2755 9713 7F 00 2E ... clr 002e
2756 9716 C6 05 .. ldab #05
2757 9718 F7 00 38 ..8 stab 0038
2758 971B CC 02 33 ..3 ldd #0233
2759 971E FD 00 3B ..; std 003b
2761 9722 6F 00 o. clr 00,x
2762 9724 F6 0E 6D ..m ldab 0e6d
2763 9727 27 0C '. beq 0c
2764 9729 F6 00 06 ... ldab 0006
2765 972C C1 3E .> cmpb #3e
2766 972E 26 05 &. bne 05
2767 9730 C6 01 .. ldab #01
2769 9733 E7 00 .. stab 00,x
2770 9735 8D 38 .8 bsr dest 38
2771 9737 F6 0E 6D ..m ldab 0e6d
2772 973A 27 0C '. beq 0c
2774 973D E6 00 .. ldab 00,x
2775 973F C1 01 .. cmpb #01
2776 9741 26 05 &. bne 05
2777 9743 C6 45 .E ldab #45
2778 9745 F7 00 06 ... stab 0006
2779 9748 F6 00 06 ... ldab 0006
2780 974B BD D7 A0 ... jsr d7a0 ;is_invalid_slot
2781 974E 83 00 00 ... subd #0000
2782 9751 27 15 '. beq 15
2783 9753 F6 00 06 ... ldab 0006
2784 9756 C1 09 .. cmpb #09
2785 9758 26 02 &. bne 02
2786 975A 8D 13 .. bsr dest 13
2787 975C F6 00 06 ... ldab 0006
2788 975F C1 45 .E cmpb #45
2789 9761 26 05 &. bne 05
2790 9763 C6 63 .c ldab #63
2791 9765 F7 00 06 ... stab 0006
2794 976A FD 00 40 ..@ std 0040
2800 976F F6 0E 6D ..m ldab 0e6d
2801 9772 C1 01 .. cmpb #01
2802 9774 26 41 &A bne 41
2803 9776 F6 00 06 ... ldab 0006
2805 977A CE 00 0A ... ldx #000a
2807 977E C1 01 .. cmpb #01
2808 9780 26 05 &. bne 05
2809 9782 7C 00 06 |.. inc 0006
2811 9787 F6 00 06 ... ldab 0006
2813 978B CE 00 0A ... ldx #000a
2815 978F C1 02 .. cmpb #02
2816 9791 26 0A &. bne 0a
2817 9793 C6 09 .. ldab #09
2818 9795 FB 00 06 ... addb 0006
2819 9798 F7 00 06 ... stab 0006
2821 979D C6 0B .. ldab #0b
2822 979F F7 00 06 ... stab 0006
2823 97A2 F6 00 06 ... ldab 0006
2824 97A5 C1 3E .> cmpb #3e
2825 97A7 22 07 ". bhi 07
2826 97A9 F6 00 06 ... ldab 0006
2827 97AC C1 0B .. cmpb #0b
2828 97AE 24 05 $. bcc 05
2829 97B0 C6 0B .. ldab #0b
2830 97B2 F7 00 06 ... stab 0006
2832 97B7 F6 00 06 ... ldab 0006
2833 97BA CB 0A .. addb #0a
2834 97BC F7 00 06 ... stab 0006
2835 97BF F6 00 06 ... ldab 0006
2836 97C2 C1 64 .d cmpb #64
2837 97C4 23 22 #" bls 22
2838 97C6 F6 00 06 ... ldab 0006
2839 97C9 CB 9C .. addb #9c
2840 97CB CB 01 .. addb #01
2841 97CD F7 00 06 ... stab 0006
2842 97D0 F6 00 06 ... ldab 0006
2843 97D3 C1 05 .. cmpb #05
2844 97D5 26 05 &. bne 05
2845 97D7 C6 06 .. ldab #06
2846 97D9 F7 00 06 ... stab 0006
2847 97DC F6 00 06 ... ldab 0006
2848 97DF C1 0A .. cmpb #0a
2849 97E1 26 05 &. bne 05
2850 97E3 C6 01 .. ldab #01
2851 97E5 F7 00 06 ... stab 0006
2855 97E9 BD BE 4B ..K jsr be4b ;displayblank
2856 97EC CC AF E7 ... ldd #afe7 ; "-PRINTING-"
2857 97EF BD C0 BA ... jsr c0ba ;display:
2858 97F2 BD F4 15 ... jsr f415 ;jump112
2862 97F6 BD BE 4B ..K jsr be4b ;displayblank
2863 97F9 F6 00 48 ..H ldab 0048
2865 97FD BD FE 16 ... jsr fe16 ;jump2
2866 9800 00 01 00 03 . test
2872 980E F6 0C D9 .. ldab 0cd9
2874 9812 BD E7 95 ... jsr e795 ;jump54 - number to string
2875 9815 C6 4E .N ldab #4e
2876 9817 F7 0B 99 ... stab 0b99
2877 981A C6 49 .I ldab #49
2878 981C F7 0B 98 ... stab 0b98
2879 981F C6 4B .K ldab #4b
2880 9821 F7 0B 97 ... stab 0b97
2881 9824 C6 4C .L ldab #4c
2882 9826 F7 0B 96 ... stab 0b96
2884 982B F6 0C DA ... ldab 0cda
2886 982F BD E7 95 ... jsr e795 ;jump54 - number to string
2887 9832 C6 44 .D ldab #44
2888 9834 F7 0B 99 ... stab 0b99
2889 9837 C6 49 .I ldab #49
2890 9839 F7 0B 98 ... stab 0b98
2891 983C C6 4D .M ldab #4d
2892 983E F7 0B 97 ... stab 0b97
2893 9841 C6 45 .E ldab #45
2894 9843 F7 0B 96 ... stab 0b96
2896 9848 F6 0C DB ... ldab 0cdb
2898 984C BD E7 95 ... jsr e795 ;jump54 - number to string
2899 984F C6 51 .Q ldab #51
2900 9851 F7 0B 99 ... stab 0b99
2901 9854 C6 55 .U ldab #55
2902 9856 F7 0B 98 ... stab 0b98
2903 9859 C6 54 .T ldab #54
2904 985B F7 0B 97 ... stab 0b97
2905 985E C6 52 .R ldab #52
2906 9860 F7 0B 96 ... stab 0b96
2908 9865 F6 0C DC ... ldab 0cdc
2910 9869 BD E7 95 ... jsr e795 ;jump54 - number to string
2911 986C C6 44 .D ldab #44 ; "D"
2912 986E F7 0B 99 ... stab 0b99
2913 9871 C6 4F .O ldab #4f ; "O"
2914 9873 F7 0B 98 ... stab 0b98
2915 9876 C6 4C .L ldab #4c ; "L"
2916 9878 F7 0B 97 ... stab 0b97
2917 987B C6 52 .R ldab #52 ; "R"
2918 987D F7 0B 96 ... stab 0b96
2919 9880 C6 53 .S ldab #53 ; "S"
2920 9882 F7 0B 95 ... stab 0b95
2921 9885 C6 20 . ldab #20 ; " "
2922 9887 F7 0B 94 ... stab 0b94
2923 988A C6 20 . ldab #20 ; " "
2924 988C F7 0B 93 ... stab 0b93
2925 988F F6 00 5D ..] ldab 005d
2926 9892 F7 0B 92 ... stab 0b92
2927 9895 F6 00 5E ..^ ldab 005e ; row number?
2928 9898 F7 0B 91 ... stab 0b91
2929 989B F6 00 5F .._ ldab 005f ; column number?
2930 989E F7 0B 90 ... stab 0b90
2931 98A1 BD BE 01 ... jsr be01 ;jump70 - to disp buffer
2935 ; prints contents of 0054 to display
2936 98A5 BD BE 4B ..K jsr be4b ;displayblank
2937 98A8 F6 00 54 ..T ldab 0054
2939 98AC BD E7 95 ... jsr e795 ; slot number to digits
2940 98AF F6 00 5E ..^ ldab 005e
2941 98B2 F7 0B 95 ... stab 0b95
2942 98B5 F6 00 5F .._ ldab 005f
2943 98B8 F7 0B 94 ... stab 0b94
2944 98BB BD BE 01 ... jsr be01 ;jump70 - write to display
2948 98BF F6 00 09 ... ldab 0009
2949 98C2 C1 00 .. cmpb #00
2950 98C4 26 05 &. bne 05
2951 98C6 BD 9E 89 ... jsr 9e89 ;jump100
2953 98CB C1 01 .. cmpb #01
2954 98CD 26 1E &. bne 1e
2955 98CF F6 00 48 ..H ldab 0048
2956 98D2 C1 92 .. cmpb #92
2957 98D4 26 15 &. bne 15
2958 98D6 F6 00 1F ... ldab 001f
2959 98D9 C4 10 .. andb #10
2960 98DB 26 08 &. bne 08
2961 98DD CE 00 1F ... ldx #001f
2962 98E0 1C 00 10 ... bset 00,x, #10
2964 98E5 CE 00 1F ... ldx #001f
2965 98E8 1D 00 10 ... bclr 00,x, #10
2967 98ED C1 0B .. cmpb #0b
2968 98EF 26 0D &. bne 0d
2969 98F1 F6 00 1F ... ldab 001f
2970 98F4 C4 10 .. andb #10
2971 98F6 27 03 '. beq 03
2972 98F8 BD E9 2B ..+ jsr e92b ;jump103
2973 98FB BD 85 AF ... jsr 85af ;jump14
2977 98FF F6 00 1F ... ldab 001f
2978 9902 C4 02 .. andb #02
2979 9904 27 13 '. beq 13
2980 9906 C6 01 .. ldab #01
2981 9908 F7 00 48 ..H stab 0048
2982 990B CE 00 1F ... ldx #001f
2983 990E 1D 00 10 ... bclr 00,x, #10
2984 9911 CE 00 1F ... ldx #001f
2985 9914 1D 00 02 ... bclr 00,x, #02
2987 9919 F6 00 09 ... ldab 0009
2989 991D BD FE 32 ..2 jsr fe32 ;jump25
2990 9920 99 36 00 00 .6.. ; array data for jump25
2991 9924 99 3B 00 01 .;..
2992 9928 99 59 00 09 .Y..
2993 992C 99 73 00 01 .s..
2994 9930 99 80 FF F5 ....
2995 9934 00 00 .. ; end of array data
2996 9936 BD 9E 89 ... jsr 9e89 ;jump100
2998 993B F6 00 48 ..H ldab 0048
2999 993E C1 92 .. cmpb #92
3000 9940 26 15 &. bne 15
3001 9942 F6 00 1F ... ldab 001f
3002 9945 C4 10 .. andb #10
3003 9947 26 08 &. bne 08
3004 9949 CE 00 1F ... ldx #001f
3005 994C 1C 00 10 ... bset 00,x, #10
3007 9951 CE 00 1F ... ldx #001f
3008 9954 1D 00 10 ... bclr 00,x, #10
3010 9959 7C 00 48 |.H inc 0048
3011 995C F6 00 48 ..H ldab 0048
3012 995F C1 92 .. cmpb #92
3013 9961 23 0B #. bls 0b
3014 9963 C6 01 .. ldab #01
3015 9965 F7 00 48 ..H stab 0048
3016 9968 CE 00 1F ... ldx #001f
3017 996B 1D 00 10 ... bclr 00,x, #10
3018 996E BD 9E 89 ... jsr 9e89 ;jump100
3020 9973 F6 00 1F ... ldab 001f
3021 9976 C4 10 .. andb #10
3022 9978 27 03 '. beq 03
3023 997A BD E9 2B ..+ jsr e92b ;jump103
3024 997D BD 85 AF ... jsr 85af ;jump14
3028 ; writes "MOTORS XX" where XX is the slot number in 0005
3029 9981 BD BE 4B ..K jsr be4b ;displayblank
3030 9984 F6 00 05 ... ldab 0005
3032 9988 BD E7 95 ... jsr e795 ;jump54 - number to string
3033 998B C6 4D .M ldab #4d ; "M"
3034 998D F7 0B 99 ... stab 0b99
3035 9990 C6 4F .O ldab #4f ; "O"
3036 9992 F7 0B 98 ... stab 0b98
3037 9995 C6 54 .T ldab #54 ; "T"
3038 9997 F7 0B 97 ... stab 0b97
3039 999A C6 4F .O ldab #4f ; "O"
3040 999C F7 0B 96 ... stab 0b96
3041 999F C6 52 .R ldab #52 ; "R"
3042 99A1 F7 0B 95 ... stab 0b95
3043 99A4 C6 53 .S ldab #53 ; "S"
3044 99A6 F7 0B 94 ... stab 0b94
3045 99A9 C6 20 . ldab #20 ; " "
3046 99AB F7 0B 93 ... stab 0b93
3047 99AE C6 20 . ldab #20 ; " "
3048 99B0 F7 0B 92 ... stab 0b92
3049 99B3 F6 00 5E ..^ ldab 005e
3050 99B6 F7 0B 91 ... stab 0b91
3051 99B9 F6 00 5F .._ ldab 005f
3052 99BC F7 0B 90 ... stab 0b90
3053 99BF BD BE 01 ... jsr be01 ;jump70 - display
3057 ; writes VENDS XX where XX is contents of 0005
3058 99C3 BD BE 4B ..K jsr be4b ;displayblank
3059 99C6 F6 00 05 ... ldab 0005
3061 99CA BD E7 95 ... jsr e795 ;jump54 - number to string
3062 99CD C6 56 .V ldab #56 ; "V"
3063 99CF F7 0B 99 ... stab 0b99
3064 99D2 C6 45 .E ldab #45 ; "E"
3065 99D4 F7 0B 98 ... stab 0b98
3066 99D7 C6 4E .N ldab #4e ; "N"
3067 99D9 F7 0B 97 ... stab 0b97
3068 99DC C6 44 .D ldab #44 ; "D"
3069 99DE F7 0B 96 ... stab 0b96
3070 99E1 C6 53 .S ldab #53 ; "S"
3071 99E3 F7 0B 95 ... stab 0b95
3072 99E6 C6 20 . ldab #20 ; " "
3073 99E8 F7 0B 94 ... stab 0b94
3074 99EB C6 20 . ldab #20 ; " "
3075 99ED F7 0B 93 ... stab 0b93
3076 99F0 C6 20 . ldab #20 ; " "
3077 99F2 F7 0B 92 ... stab 0b92
3078 99F5 F6 00 5E ..^ ldab 005e
3079 99F8 F7 0B 91 ... stab 0b91
3080 99FB F6 00 5F .._ ldab 005f
3081 99FE F7 0B 90 ... stab 0b90
3082 9A01 BD BE 01 ... jsr be01 ;jump70
3086 9A05 BD BE 4B ..K jsr be4b ;displayblank
3087 9A08 FC 00 52 ..R ldd 0052
3088 9A0B BD E7 45 ..E jsr e745 ;jump55 - number to string
3089 9A0E C6 4F .O ldab #4f ; "O"
3090 9A10 F7 0B 99 ... stab 0b99
3091 9A13 C6 44 .D ldab #44 ; "D"
3092 9A15 F7 0B 98 ... stab 0b98
3093 9A18 C6 44 .D ldab #44 ; "D"
3094 9A1A F7 0B 97 ... stab 0b97
3095 9A1D C6 53 .S ldab #53 ; "S"
3096 9A1F F7 0B 96 ... stab 0b96
3097 9A22 C6 20 . ldab #20 ; " "
3098 9A24 F7 0B 95 ... stab 0b95
3099 9A27 C6 31 .1 ldab #31 ; "1"
3100 9A29 F7 0B 94 ... stab 0b94
3101 9A2C C6 2F ./ ldab #2f ; "/"
3102 9A2E F7 0B 93 ... stab 0b93
3103 9A31 F6 00 5D ..] ldab 005d
3104 9A34 F7 0B 92 ... stab 0b92
3105 9A37 F6 00 5E ..^ ldab 005e
3106 9A3A F7 0B 91 ... stab 0b91
3107 9A3D F6 00 5F .._ ldab 005f
3108 9A40 F7 0B 90 ... stab 0b90
3109 9A43 BD BE 01 ... jsr be01 ;jump70
3113 9A47 BD BE 4B ..K jsr be4b ;displayblank
3114 9A4A F6 00 06 ... ldab 0006
3116 9A4E BD E7 95 ... jsr e795 ;jump54 - number to string
3117 9A51 F6 00 5E ..^ ldab 005e
3118 9A54 F7 0B 99 ... stab 0b99
3119 9A57 F6 00 5F .._ ldab 005f
3120 9A5A F7 0B 98 ... stab 0b98
3121 9A5D C6 20 . ldab #20
3122 9A5F F7 0B 97 ... stab 0b97
3123 9A62 F6 00 1F ... ldab 001f
3124 9A65 C4 40 .@ andb #40
3125 9A67 27 45 'E beq 45
3126 9A69 FC 00 27 ..' ldd 0027
3127 9A6C BD E7 45 ..E jsr e745 ;jump55 - number to string
3128 9A6F F6 00 5A ..Z ldab 005a
3129 9A72 F7 0B 96 ... stab 0b96
3130 9A75 F6 00 5D ..] ldab 005d
3131 9A78 F7 0B 95 ... stab 0b95
3132 9A7B F6 00 5E ..^ ldab 005e
3133 9A7E F7 0B 94 ... stab 0b94
3134 9A81 F6 00 5F .._ ldab 005f
3135 9A84 F7 0B 93 ... stab 0b93
3136 9A87 F6 00 19 ... ldab 0019
3137 9A8A C4 10 .. andb #10
3138 9A8C 27 07 '. beq 07
3139 9A8E C6 2A .* ldab #2a
3140 9A90 F7 0B 92 ... stab 0b92
3142 9A95 C6 20 . ldab #20
3143 9A97 F7 0B 92 ... stab 0b92
3144 9A9A FC 00 46 ..F ldd 0046
3145 9A9D BD E7 45 ..E jsr e745 ;jump55 - number to string
3146 9AA0 F6 00 5E ..^ ldab 005e
3147 9AA3 F7 0B 91 ... stab 0b91
3148 9AA6 F6 00 5F .._ ldab 005f
3149 9AA9 F7 0B 90 ... stab 0b90
3151 9AAE C6 58 .X ldab #58 : "X"
3152 9AB0 F7 0B 96 ... stab 0b96
3153 9AB3 C6 58 .X ldab #58 : "X"
3154 9AB5 F7 0B 95 ... stab 0b95
3155 9AB8 C6 58 .X ldab #58 : "X"
3156 9ABA F7 0B 94 ... stab 0b94
3157 9ABD C6 58 .X ldab #58 : "X"
3158 9ABF F7 0B 93 ... stab 0b93
3159 9AC2 C6 58 .X ldab #58 : "X"
3160 9AC4 F7 0B 91 ... stab 0b91
3161 9AC7 C6 58 .X ldab #58 : "X"
3162 9AC9 F7 0B 90 ... stab 0b90
3163 9ACC F6 00 13 ... ldab 0013
3164 9ACF C1 01 .. cmpb #01
3165 9AD1 23 4C #L bls 4c
3166 9AD3 F6 0B 91 ... ldab 0b91
3167 9AD6 F7 0B 90 ... stab 0b90
3168 9AD9 F6 0B 92 ... ldab 0b92
3169 9ADC F7 0B 91 ... stab 0b91
3170 9ADF F6 0B 93 ... ldab 0b93
3171 9AE2 F7 0B 92 ... stab 0b92
3172 9AE5 F6 0B 94 ... ldab 0b94
3173 9AE8 F7 0B 93 ... stab 0b93
3174 9AEB F6 00 13 ... ldab 0013
3175 9AEE C1 02 .. cmpb #02
3176 9AF0 26 07 &. bne 07
3177 9AF2 C6 2E .. ldab #2e ; "."
3178 9AF4 F7 0B 94 ... stab 0b94
3180 9AF9 C1 04 .. cmpb #04
3181 9AFB 26 0D &. bne 0d
3182 9AFD F6 0B 95 ... ldab 0b95
3183 9B00 F7 0B 94 ... stab 0b94
3184 9B03 C6 2E .. ldab #2e ; "."
3185 9B05 F7 0B 95 ... stab 0b95
3187 9B0A C1 08 .. cmpb #08
3188 9B0C 26 11 &. bne 11
3189 9B0E F6 0B 95 ... ldab 0b95
3190 9B11 F7 0B 94 ... stab 0b94
3191 9B14 F6 0B 96 ... ldab 0b96
3192 9B17 F7 0B 95 ... stab 0b95
3193 9B1A C6 2E .. ldab #2e
3194 9B1C F7 0B 96 ... stab 0b96
3195 9B1F F6 00 2C .., ldab 002c
3196 9B22 26 3E &> bne 3e
3197 9B24 BD BE 69 ..i jsr be69 ;displayreset
3198 9B27 F6 00 13 ... ldab 0013
3199 9B2A C1 01 .. cmpb #01
3200 9B2C 23 2C #, bls 2c
3201 9B2E CE 10 28 ..( ldx #1028
3202 9B31 1C 00 40 ... bset 00,x, #40 ; enable SPI
3203 9B34 F6 00 1F ... ldab 001f
3204 9B37 C4 40 .@ andb #40
3205 9B39 27 0E '. beq 0e
3206 9B3B CE 00 01 ... ldx #0001
3208 9B3F F6 00 5F .._ ldab 005f
3210 9B43 BD BD B5 ... jsr bdb5 ;jump78
3213 9B49 CE 00 01 ... ldx #0001
3215 9B4D CC 00 58 ..X ldd #0058
3216 9B50 BD BD B5 ... jsr bdb5 ;jump78
3218 9B54 CE 10 28 ..( ldx #1028
3219 9B57 1D 00 40 ... bclr 00,x, #40
3220 9B5A BD BE 10 ... jsr be10 ;jump88
3221 9B5D C6 03 .. ldab #03
3222 9B5F F7 00 2C .., stab 002c
3226 9B63 BD BE 4B ..K jsr be4b ;displayblank
3227 9B66 FC 00 0D ... ldd 000d
3228 9B69 BD E7 45 ..E jsr e745 ;jump55 - number to string
3229 9B6C C6 44 .D ldab #44
3230 9B6E F7 0B 99 ... stab 0b99
3231 9B71 C6 53 .S ldab #53
3232 9B73 F7 0B 98 ... stab 0b98
3233 9B76 C6 43 .C ldab #43
3234 9B78 F7 0B 97 ... stab 0b97
3235 9B7B C6 4E .N ldab #4e
3236 9B7D F7 0B 96 ... stab 0b96
3237 9B80 C6 54 .T ldab #54
3238 9B82 F7 0B 95 ... stab 0b95
3239 9B85 C6 20 . ldab #20
3240 9B87 F7 0B 94 ... stab 0b94
3241 9B8A F6 00 5A ..Z ldab 005a
3242 9B8D F7 0B 93 ... stab 0b93
3243 9B90 F6 00 5D ..] ldab 005d
3244 9B93 F7 0B 92 ... stab 0b92
3245 9B96 F6 00 5E ..^ ldab 005e
3246 9B99 F7 0B 91 ... stab 0b91
3247 9B9C F6 00 5F .._ ldab 005f
3248 9B9F F7 0B 90 ... stab 0b90
3249 9BA2 F6 00 13 ... ldab 0013
3250 9BA5 C1 01 .. cmpb #01
3251 9BA7 23 3C #< bls 3c
3252 9BA9 F6 0B 91 ... ldab 0b91
3253 9BAC F7 0B 90 ... stab 0b90
3254 9BAF F6 00 13 ... ldab 0013
3255 9BB2 C1 02 .. cmpb #02
3256 9BB4 26 07 &. bne 07
3257 9BB6 C6 2E .. ldab #2e
3258 9BB8 F7 0B 91 ... stab 0b91
3260 9BBD C1 04 .. cmpb #04
3261 9BBF 26 0D &. bne 0d
3262 9BC1 F6 0B 92 ... ldab 0b92
3263 9BC4 F7 0B 91 ... stab 0b91
3264 9BC7 C6 2E .. ldab #2e
3265 9BC9 F7 0B 92 ... stab 0b92
3267 9BCE C1 08 .. cmpb #08
3268 9BD0 26 13 &. bne 13
3269 9BD2 F6 0B 92 ... ldab 0b92
3270 9BD5 F7 0B 91 ... stab 0b91
3271 9BD8 F6 0B 93 ... ldab 0b93
3272 9BDB F7 0B 92 ... stab 0b92
3273 9BDE C6 2E .. ldab #2e
3274 9BE0 F7 0B 93 ... stab 0b93
3276 9BE5 F6 00 2C .., ldab 002c
3277 9BE8 26 2A &* bne 2a
3278 9BEA BD BE 69 ..i jsr be69 ;displayreset
3279 9BED F6 00 13 ... ldab 0013
3280 9BF0 C1 01 .. cmpb #01
3281 9BF2 23 18 #. bls 18
3282 9BF4 CE 10 28 ..( ldx #1028
3283 9BF7 1C 00 40 ... bset 00,x, #40
3284 9BFA CE 00 01 ... ldx #0001
3286 9BFE F6 00 5F .._ ldab 005f
3288 9C02 BD BD B5 ... jsr bdb5 ;jump78
3290 9C06 CE 10 28 ..( ldx #1028
3291 9C09 1D 00 40 ... bclr 00,x, #40
3292 9C0C BD BE 10 ... jsr be10 ;jump88
3293 9C0F C6 03 .. ldab #03
3294 9C11 F7 00 2C .., stab 002c
3298 9C15 BD BE 4B ..K jsr be4b ;displayblank
3299 9C18 F6 00 48 ..H ldab 0048
3301 9C1C BD FE 16 ... jsr fe16 ;jump2
3306 9C23 9D 29 9C .). jsr 29
3308 9C27 9C 53 9C .S. cmpx 53
3310 9C2B 9C 83 9C ... cmpx 83
3311 9C2E 9B 9C B2 ... adda 9c
3312 9C31 9C C9 9C ... cmpx c9
3313 9C34 E0 9C .. subb 9c,x
3314 9C36 F7 9D 0E ... stab 9d0e
3315 9C39 9D 23 F6 .#. jsr 23
3317 9C3D 67 C4 g. asr c4,x
3319 9C40 27 08 '. beq 08
3320 9C42 CC AF 00 ... ldd #af00 ; "LNK MSTR Y"
3321 9C45 BD C0 BA ... jsr c0ba ;display:
3323 9C4A CC AF 0B ... ldd #af0b ; "LNK MSTR N"
3324 9C4D BD C0 BA ... jsr c0ba ;display:
3325 9C50 7E 9D 29 ~.) jmp 9d29 ;goto18
3326 9C53 F6 00 67 ..g ldab 0067
3327 9C56 C4 10 .. andb #10
3328 9C58 27 08 '. beq 08
3329 9C5A CC AF 42 ..B ldd #af42 ; "PRC HOLD Y"
3330 9C5D BD C0 BA ... jsr c0ba ;display:
3332 9C62 CC AF 4D ..M ldd #af4d ; "PRC HOLD N"
3333 9C65 BD C0 BA ... jsr c0ba ;display:
3334 9C68 7E 9D 29 ~.) jmp 9d29 ;goto18
3335 9C6B F6 00 67 ..g ldab 0067
3336 9C6E C4 20 . andb #20
3337 9C70 27 08 '. beq 08
3338 9C72 CC AF 58 ..X ldd #af58 ; "PRC DISP Y"
3339 9C75 BD C0 BA ... jsr c0ba ;display:
3341 9C7A CC AF 63 ..c ldd #af63 ; "PRC DISP N"
3342 9C7D BD C0 BA ... jsr c0ba ;display:
3343 9C80 7E 9D 29 ~.) jmp 9d29 ;goto18
3344 9C83 F6 00 67 ..g ldab 0067
3345 9C86 C4 01 .. andb #01
3346 9C88 27 08 '. beq 08
3347 9C8A CC AE EA ... ldd #aeea ; "DUMB MEC Y"
3348 9C8D BD C0 BA ... jsr c0ba ;display:
3350 9C92 CC AE F5 ... ldd #aef5 ; "DUMB MEC N"
3351 9C95 BD C0 BA ... jsr c0ba ;display:
3352 9C98 7E 9D 29 ~.) jmp 9d29 ;goto18
3353 9C9B F6 00 67 ..g ldab 0067
3354 9C9E C4 04 .. andb #04
3355 9CA0 27 08 '. beq 08
3356 9CA2 CC AF 16 ... ldd #af16 ; "CARD RDR Y"
3357 9CA5 BD C0 BA ... jsr c0ba ;display:
3359 9CAA CC AF 21 ..! ldd #af21 ; "CARD RDR N"
3360 9CAD BD C0 BA ... jsr c0ba ;display:
3362 9CB2 F6 00 67 ..g ldab 0067
3363 9CB5 C4 08 .. andb #08
3364 9CB7 27 08 '. beq 08
3365 9CB9 CC AF 2C .., ldd #af2c ; "BILL VAL Y"
3366 9CBC BD C0 BA ... jsr c0ba ;display:
3368 9CC1 CC AF 37 ..7 ldd #af37 ; "BILL VAL N"
3369 9CC4 BD C0 BA ... jsr c0ba ;display:
3371 9CC9 F6 00 67 ..g ldab 0067
3372 9CCC C4 40 .@ andb #40
3373 9CCE 27 08 '. beq 08
3374 9CD0 CC AF 84 ... ldd #af84 ; "$1 CHNGR Y"
3375 9CD3 BD C0 BA ... jsr c0ba ;display:
3377 9CD8 CC AF 8F ... ldd #af8f ; "$1 CHNGR N"
3378 9CDB BD C0 BA ... jsr c0ba ;display:
3380 9CE0 F6 0E 70 ..p ldab 0e70
3381 9CE3 C1 01 .. cmpb #01
3382 9CE5 26 08 &. bne 08
3383 9CE7 CC AE BE ... ldd #aebe ; "$5 ENABLE "
3384 9CEA BD C0 BA ... jsr c0ba ;display:
3386 9CEF CC AE C9 ... ldd #aec9 ; "$5 DISABLE"
3387 9CF2 BD C0 BA ... jsr c0ba ;display:
3389 9CF7 F6 0E 6F ..o ldab 0e6f
3390 9CFA C1 01 .. cmpb #01
3391 9CFC 26 08 &. bne 08
3392 9CFE CC AE D4 ... ldd #aed4 ; "SODA VEND "
3393 9D01 BD C0 BA ... jsr c0ba ;display:
3395 9D06 CC AE DF ... ldd #aedf ; "SNACK VEND"
3396 9D09 BD C0 BA ... jsr c0ba ;display:
3398 9D0E F6 00 67 ..g ldab 0067
3399 9D11 2C 08 ,. bge 08
3400 9D13 CC AF 6E ..n ldd #af6e ; "FREE VND Y"
3401 9D16 BD C0 BA ... jsr c0ba ;display:
3403 9D1B CC AF 79 ..y ldd #af79 ; "FREE VND N"
3404 9D1E BD C0 BA ... jsr c0ba ;display:
3406 9D23 CC AF B0 ... ldd #afb0 ; "HIT KEY "0""
3407 9D26 BD C0 BA ... jsr c0ba ;display:
3412 9D2A BD BE 4B ..K jsr be4b ;displayblank
3413 9D2D F6 00 22 .." ldab 0022
3415 9D31 BD E7 95 ... jsr e795 ;jump54 - number to string
3416 9D34 F6 00 5E ..^ ldab 005e
3417 9D37 F7 0B 99 ... stab 0b99
3418 9D3A F6 00 5F .._ ldab 005f
3419 9D3D F7 0B 98 ... stab 0b98
3420 9D40 C6 20 . ldab #20
3421 9D42 F7 0B 97 ... stab 0b97
3422 9D45 F6 00 24 ..$ ldab 0024
3424 9D49 BD E7 95 ... jsr e795 ;jump54 - number to string
3425 9D4C C6 50 .P ldab #50
3426 9D4E F7 0B 96 ... stab 0b96
3427 9D51 F6 00 5E ..^ ldab 005e
3428 9D54 F7 0B 95 ... stab 0b95
3429 9D57 F6 00 5F .._ ldab 005f
3430 9D5A F7 0B 94 ... stab 0b94
3431 9D5D C6 20 . ldab #20
3432 9D5F F7 0B 93 ... stab 0b93
3433 9D62 F6 00 2A ..* ldab 002a
3435 9D66 BD E7 95 ... jsr e795 ;jump54 - number to string
3436 9D69 C6 46 .F ldab #46
3437 9D6B F7 0B 92 ... stab 0b92
3438 9D6E F6 00 5E ..^ ldab 005e
3439 9D71 F7 0B 91 ... stab 0b91
3440 9D74 F6 00 5F .._ ldab 005f
3441 9D77 F7 0B 90 ... stab 0b90
3442 9D7A BD BE 01 ... jsr be01 ;jump70
3445 9D7E BD BE 4B ..K jsr be4b ;displayblank
3446 9D81 F6 00 60 ..` ldab 0060
3448 9D85 C3 0A 90 ... addd #0a90
3450 9D89 E6 00 .. ldab 00,x
3451 9D8B F7 0B 99 ... stab 0b99
3452 9D8E F6 00 60 ..` ldab 0060
3454 9D92 C3 0A 91 ... addd #0a91
3456 9D96 E6 00 .. ldab 00,x
3457 9D98 F7 0B 98 ... stab 0b98
3458 9D9B F6 00 60 ..` ldab 0060
3460 9D9F C3 0A 92 ... addd #0a92
3462 9DA3 E6 00 .. ldab 00,x
3463 9DA5 F7 0B 97 ... stab 0b97
3464 9DA8 F6 00 60 ..` ldab 0060
3466 9DAC C3 0A 94 ... addd #0a94
3468 9DB0 E6 00 .. ldab 00,x
3469 9DB2 F7 0B 95 ... stab 0b95
3470 9DB5 F6 00 60 ..` ldab 0060
3472 9DB9 C3 0A 95 ... addd #0a95
3474 9DBD E6 00 .. ldab 00,x
3475 9DBF F7 0B 94 ... stab 0b94
3476 9DC2 F6 00 60 ..` ldab 0060
3478 9DC6 C3 0A 96 ... addd #0a96
3480 9DCA E6 00 .. ldab 00,x
3481 9DCC F7 0B 93 ... stab 0b93
3482 9DCF C6 20 . ldab #20
3483 9DD1 F7 0B 92 ... stab 0b92
3484 9DD4 C6 20 . ldab #20
3485 9DD6 F7 0B 91 ... stab 0b91
3486 9DD9 F6 00 54 ..T ldab 0054
3488 9DDD C3 B4 8F ... addd #b48f
3490 9DE1 E6 00 .. ldab 00,x
3491 9DE3 F7 0B 90 ... stab 0b90
3492 9DE6 F6 00 38 ..8 ldab 0038
3493 9DE9 C1 03 .. cmpb #03
3494 9DEB 24 0F $. bcc 0f
3495 9DED F6 00 60 ..` ldab 0060
3497 9DF1 C3 0A 93 ... addd #0a93
3499 9DF5 E6 00 .. ldab 00,x
3500 9DF7 F7 0B 96 ... stab 0b96
3502 9DFC C6 1F .. ldab #1f
3503 9DFE F7 0B 96 ... stab 0b96
3504 9E01 BD BE 01 ... jsr be01 ;jump70
3505 9E04 F6 00 38 ..8 ldab 0038
3506 9E07 26 05 &. bne 05
3507 9E09 C6 05 .. ldab #05
3508 9E0B F7 00 38 ..8 stab 0038
3512 9E0F BD BE 4B ..K jsr be4b ;displayblank
3513 9E12 F6 00 48 ..H ldab 0048
3514 9E15 26 15 &. bne 15
3515 9E17 F6 00 66 ..f ldab 0066
3516 9E1A 27 08 '. beq 08
3517 9E1C CC AF C6 ... ldd #afc6 ; "SECURE ON"
3518 9E1F BD C0 BA ... jsr c0ba ;display:
3520 9E24 CC AF D1 ... ldd #afd1 ; "SECURE OFF"
3521 9E27 BD C0 BA ... jsr c0ba ;display:
3523 9E2C C6 4D .M ldab #4d
3524 9E2E F7 0B 99 ... stab 0b99
3525 9E31 C6 45 .E ldab #45
3526 9E33 F7 0B 98 ... stab 0b98
3527 9E36 C6 4E .N ldab #4e
3528 9E38 F7 0B 97 ... stab 0b97
3529 9E3B C6 55 .U ldab #55
3530 9E3D F7 0B 96 ... stab 0b96
3531 9E40 C6 20 . ldab #20
3532 9E42 F7 0B 95 ... stab 0b95
3533 9E45 F6 00 48 ..H ldab 0048
3534 9E48 CB 30 .0 addb #30
3535 9E4A F7 0B 94 ... stab 0b94
3536 9E4D F6 00 48 ..H ldab 0048
3537 9E50 C1 0A .. cmpb #0a
3538 9E52 26 05 &. bne 05
3539 9E54 C6 30 .0 ldab #30
3540 9E56 F7 0B 94 ... stab 0b94
3541 9E59 C6 20 . ldab #20
3542 9E5B F7 0B 93 ... stab 0b93
3543 9E5E C6 4F .O ldab #4f
3544 9E60 F7 0B 92 ... stab 0b92
3545 9E63 F6 00 48 ..H ldab 0048
3547 9E67 C3 00 68 ..h addd #0068
3549 9E6B E6 00 .. ldab 00,x
3550 9E6D 27 0C '. beq 0c
3551 9E6F C6 4E .N ldab #4e
3552 9E71 F7 0B 91 ... stab 0b91
3553 9E74 C6 20 . ldab #20
3554 9E76 F7 0B 90 ... stab 0b90
3556 9E7B C6 46 .F ldab #46
3557 9E7D F7 0B 91 ... stab 0b91
3558 9E80 C6 46 .F ldab #46
3559 9E82 F7 0B 90 ... stab 0b90
3560 9E85 BD BE 01 ... jsr be01 ;jump70
3564 9E89 BD BE 4B ..K jsr be4b ;displayblank
3565 9E8C F6 00 48 ..H ldab 0048
3567 9E90 BD FE 16 ... jsr fe16 ;jump2
3571 9E96 2D A1 -. blt a1
3572 9E98 C4 9E .. andb #9e
3573 9E9A F5 9E FE ... bitb 9efe
3574 9E9D 9F 07 9F ... sts 07
3576 9EA1 9F 19 9F ... sts 19
3578 9EA5 9F 44 9F .D. sts 44
3580 9EA9 9F 5B 9F .[. sts 5b
3582 9EAD 9F 72 9F .r. sts 72
3583 9EB0 80 9F .. suba #9f
3584 9EB2 89 9F .. adca #9f
3585 9EB4 97 9F A0 ... staa 9f
3586 9EB7 9F AE 9F ... sts ae
3587 9EBA B7 9F C5 ... staa 9fc5
3588 9EBD 9F DD 9F ... sts dd
3589 9EC0 EB A0 .. addb a0,x
3591 9EC3 A0 11 .. suba 11,x
3592 9EC5 A0 29 .) suba 29,x
3593 9EC7 A0 37 .7 suba 37,x
3594 9EC9 A0 54 .T suba 54,x
3595 9ECB A0 62 .b suba 62,x
3596 9ECD A0 7F .. suba 7f,x
3597 9ECF A0 8D .. suba 8d,x
3598 9ED1 A0 96 .. suba 96,x
3599 9ED3 A0 A4 .. suba a4,x
3600 9ED5 A0 AD .. suba ad,x
3601 9ED7 A0 BC .. suba bc,x
3602 9ED9 A0 C5 .. suba c5,x
3603 9EDB A0 D4 .. suba d4,x
3604 9EDD A0 DD .. suba dd,x
3605 9EDF A0 EC .. suba ec,x
3606 9EE1 A0 F5 .. suba f5,x
3607 9EE3 A1 04 .. cmpa 04,x
3608 9EE5 A1 26 .& cmpa 26,x
3609 9EE7 A1 34 .4 cmpa 34,x
3610 9EE9 A1 55 .U cmpa 55,x
3611 9EEB A1 62 .b cmpa 62,x
3612 9EED A1 83 .. cmpa 83,x
3613 9EEF A1 90 .. cmpa 90,x
3614 9EF1 A1 B1 .. cmpa b1,x
3615 9EF3 A1 BE .. cmpa be,x
3616 9EF5 CC B2 90 ... ldd #b290 ; "SERIAL #"
3617 9EF8 BD C0 BA ... jsr c0ba ;display:
3618 9EFB 7E A1 C4 ~.. jmp a1c4 ;goto19
3619 9EFE CC 0C BC ... ldd #0cbc ; serial number?
3620 9F01 BD C0 BA ... jsr c0ba ;display:
3621 9F04 7E A1 C4 ~.. jmp a1c4 ;goto19
3622 9F07 CC B2 A2 ... ldd #b2a2 ; "MACHINE ID"
3623 9F0A BD C0 BA ... jsr c0ba ;display:
3624 9F0D 7E A1 C4 ~.. jmp a1c4 ;goto19
3625 9F10 CC 0C CC ... ldd #0ccc ; machine id?
3626 9F13 BD C0 BA ... jsr c0ba ;display:
3627 9F16 7E A1 C4 ~.. jmp a1c4 ;goto19
3628 9F19 C6 41 .A ldab #41
3629 9F1B F7 0B 99 ... stab 0b99
3630 9F1E C6 55 .U ldab #55
3631 9F20 F7 0B 98 ... stab 0b98
3632 9F23 C6 44 .D ldab #44
3633 9F25 F7 0B 97 ... stab 0b97
3634 9F28 C6 54 .T ldab #54
3635 9F2A F7 0B 96 ... stab 0b96
3636 9F2D CE 00 00 ... ldx #0000
3638 9F31 FC 0C E7 ... ldd 0ce7
3639 9F34 BD A2 D4 ... jsr a2d4 ;jump79
3641 9F38 7E A1 C4 ~.. jmp a1c4 ;goto19
3642 9F3B CC B2 C6 ... ldd #b2c6 ; "SALES (R) "
3643 9F3E BD C0 BA ... jsr c0ba ;display:
3644 9F41 7E A1 C4 ~.. jmp a1c4 ;goto19
3645 9F44 FE 0D E9 ... ldx 0de9
3647 9F48 FC 0D E7 ... ldd 0de7
3648 9F4B BD A3 41 ..A jsr a341 ;jump77
3650 9F4F 7E A1 C4 ~.. jmp a1c4 ;goto19
3651 9F52 CC B2 D8 ... ldd #b2d8 ; "SALES (N) "
3652 9F55 BD C0 BA ... jsr c0ba ;display:
3653 9F58 7E A1 C4 ~.. jmp a1c4 ;goto19
3654 9F5B FE 0D ED ... ldx 0ded
3656 9F5F FC 0D EB ... ldd 0deb
3657 9F62 BD A3 41 ..A jsr a341 ;jump77
3659 9F66 7E A1 C4 ~.. jmp a1c4 ;goto19
3660 9F69 CC B2 EA ... ldd #b2ea ; "BAG TOTAL"
3661 9F6C BD C0 BA ... jsr c0ba ;display:
3662 9F6F 7E A1 C4 ~.. jmp a1c4 ;goto19
3663 9F72 FE 0D F1 ... ldx 0df1
3665 9F76 FC 0D EF ... ldd 0def
3666 9F79 BD A3 41 ..A jsr a341 ;jump77
3668 9F7D 7E A1 C4 ~.. jmp a1c4 ;goto19
3669 9F80 CC B2 FC ... ldd #b2fc ; "CASH BOX"
3670 9F83 BD C0 BA ... jsr c0ba ;display:
3671 9F86 7E A1 C4 ~.. jmp a1c4 ;goto19
3672 9F89 FE 0D F9 ... ldx 0df9
3674 9F8D FC 0D F7 ... ldd 0df7
3675 9F90 BD A3 41 ..A jsr a341 ;jump77
3677 9F94 7E A1 C4 ~.. jmp a1c4 ;goto19
3678 9F97 CC B3 0E ... ldd #b30e ; "CARD SALES"
3679 9F9A BD C0 BA ... jsr c0ba ;display:
3680 9F9D 7E A1 C4 ~.. jmp a1c4 ;goto19
3681 9FA0 FE 0D FD ... ldx 0dfd
3683 9FA4 FC 0D FB ... ldd 0dfb
3684 9FA7 BD A3 41 ..A jsr a341 ;jump77
3686 9FAB 7E A1 C4 ~.. jmp a1c4 ;goto19
3687 9FAE CC B3 35 ..5 ldd #b335 ; "BILL TOTAL"
3688 9FB1 BD C0 BA ... jsr c0ba ;display:
3689 9FB4 7E A1 C4 ~.. jmp a1c4 ;goto19
3690 9FB7 FE 0D F5 ... ldx 0df5
3692 9FBB FC 0D F3 ... ldd 0df3
3693 9FBE BD A3 41 ..A jsr a341 ;jump77
3695 9FC2 7E A1 C4 ~.. jmp a1c4 ;goto19
3696 9FC5 C6 24 .$ ldab #24
3697 9FC7 F7 0B 99 ... stab 0b99
3698 9FCA C6 31 .1 ldab #31
3699 9FCC F7 0B 98 ... stab 0b98
3700 9FCF CE 00 00 ... ldx #0000
3702 9FD3 FC 0C DD ... ldd 0cdd
3703 9FD6 BD A2 D4 ... jsr a2d4 ;jump79
3705 9FDA 7E A1 C4 ~.. jmp a1c4 ;goto19
3706 9FDD FE 0C F5 ... ldx 0cf5
3708 9FE1 FC 0C F3 ... ldd 0cf3
3709 9FE4 BD A3 41 ..A jsr a341 ;jump77
3711 9FE8 7E A1 C4 ~.. jmp a1c4 ;goto19
3712 9FEB C6 24 .$ ldab #24
3713 9FED F7 0B 99 ... stab 0b99
3714 9FF0 C6 32 .2 ldab #32
3715 9FF2 F7 0B 98 ... stab 0b98
3716 9FF5 CE 00 00 ... ldx #0000
3718 9FF9 FC 0C DF ... ldd 0cdf
3719 9FFC BD A2 D4 ... jsr a2d4 ;jump79
3721 A000 7E A1 C4 ~.. jmp a1c4 ;goto19
3722 A003 FE 0C F9 ... ldx 0cf9
3724 A007 FC 0C F7 ... ldd 0cf7
3725 A00A BD A3 41 ..A jsr a341 ;jump77
3727 A00E 7E A1 C4 ~.. jmp a1c4 ;goto19
3728 A011 C6 24 .$ ldab #24
3729 A013 F7 0B 99 ... stab 0b99
3730 A016 C6 35 .5 ldab #35
3731 A018 F7 0B 98 ... stab 0b98
3732 A01B CE 00 00 ... ldx #0000
3734 A01F FC 0C E1 ... ldd 0ce1
3735 A022 BD A2 D4 ... jsr a2d4 ;jump79
3737 A026 7E A1 C4 ~.. jmp a1c4 ;goto19
3738 A029 FE 0C FD ... ldx 0cfd
3740 A02D FC 0C FB ... ldd 0cfb
3741 A030 BD A3 41 ..A jsr a341 ;jump77
3743 A034 7E A1 C4 ~.. jmp a1c4 ;goto19
3744 A037 C6 24 .$ ldab #24
3745 A039 F7 0B 99 ... stab 0b99
3746 A03C C6 31 .1 ldab #31
3747 A03E F7 0B 98 ... stab 0b98
3748 A041 C6 30 .0 ldab #30
3749 A043 F7 0B 97 ... stab 0b97
3750 A046 CE 00 00 ... ldx #0000
3752 A04A FC 0C E3 ... ldd 0ce3
3753 A04D BD A2 D4 ... jsr a2d4 ;jump79
3755 A051 7E A1 C4 ~.. jmp a1c4 ;goto19
3756 A054 FE 0D 01 ... ldx 0d01
3758 A058 FC 0C FF ... ldd 0cff
3759 A05B BD A3 41 ..A jsr a341 ;jump77
3761 A05F 7E A1 C4 ~.. jmp a1c4 ;goto19
3762 A062 C6 24 .$ ldab #24
3763 A064 F7 0B 99 ... stab 0b99
3764 A067 C6 32 .2 ldab #32
3765 A069 F7 0B 98 ... stab 0b98
3766 A06C C6 30 .0 ldab #30
3767 A06E F7 0B 97 ... stab 0b97
3768 A071 CE 00 00 ... ldx #0000
3770 A075 FC 0C E5 ... ldd 0ce5
3771 A078 BD A2 D4 ... jsr a2d4 ;jump79
3773 A07C 7E A1 C4 ~.. jmp a1c4 ;goto19
3774 A07F FE 0D 05 ... ldx 0d05
3776 A083 FC 0D 03 ... ldd 0d03
3777 A086 BD A3 41 ..A jsr a341 ;jump77
3779 A08A 7E A1 C4 ~.. jmp a1c4 ;goto19
3780 A08D CC B3 B7 ... ldd #b3b7 ; "TUBE TOTAL"
3781 A090 BD C0 BA ... jsr c0ba ;display:
3782 A093 7E A1 C4 ~.. jmp a1c4 ;goto19
3783 A096 CE 00 01 ... ldx #0001
3785 A09A FC 0C F1 ... ldd 0cf1
3786 A09D BD A2 D4 ... jsr a2d4 ;jump79
3788 A0A1 7E A1 C4 ~.. jmp a1c4 ;goto19
3789 A0A4 CC B3 CE ... ldd #b3ce ; "$1 COIN"
3790 A0A7 BD C0 BA ... jsr c0ba ;display:
3791 A0AA 7E A1 C4 ~.. jmp a1c4 ;goto19
3792 A0AD FE 0C E9 ... ldx 0ce9
3794 A0B1 F6 0C DC ... ldab 0cdc
3796 A0B5 BD A3 1A ... jsr a31a ;jump93
3798 A0B9 7E A1 C4 ~.. jmp a1c4 ;goto19
3799 A0BC CC B3 E0 ... ldd #b3e0 ; "QUARTERS"
3800 A0BF BD C0 BA ... jsr c0ba ;display:
3801 A0C2 7E A1 C4 ~.. jmp a1c4 ;goto19
3802 A0C5 FE 0C EB ... ldx 0ceb
3804 A0C9 F6 0C DB ... ldab 0cdb
3806 A0CD BD A3 1A ... jsr a31a ;jump93
3808 A0D1 7E A1 C4 ~.. jmp a1c4 ;goto19
3809 A0D4 CC B3 F2 ... ldd #b3f2
3810 A0D7 BD C0 BA ... jsr c0ba ;display:
3811 A0DA 7E A1 C4 ~.. jmp a1c4 ;goto19
3812 A0DD FE 0C ED ... ldx 0ced
3814 A0E1 F6 0C DA ... ldab 0cda
3816 A0E5 BD A3 1A ... jsr a31a ;jump93
3818 A0E9 7E A1 C4 ~.. jmp a1c4 ;goto19
3819 A0EC CC B4 04 ... ldd #b404
3820 A0EF BD C0 BA ... jsr c0ba ;display:
3821 A0F2 7E A1 C4 ~.. jmp a1c4 ;goto19
3822 A0F5 FE 0C EF ... ldx 0cef
3824 A0F9 F6 0C D9 ... ldab 0cd9
3826 A0FD BD A3 1A ... jsr a31a ;jump93
3828 A101 7E A1 C4 ~.. jmp a1c4 ;goto19
3829 A104 C6 57 .W ldab #57
3830 A106 F7 0B 99 ... stab 0b99
3831 A109 C6 53 .S ldab #53
3832 A10B F7 0B 98 ... stab 0b98
3833 A10E C6 4E .N ldab #4e
3834 A110 F7 0B 97 ... stab 0b97
3835 A113 C6 4B .K ldab #4b
3836 A115 F7 0B 96 ... stab 0b96
3837 A118 CE 00 00 ... ldx #0000
3839 A11C FC 0D 07 ... ldd 0d07
3840 A11F BD A2 D4 ... jsr a2d4 ;jump79
3842 A123 7E A1 C4 ~.. jmp a1c4 ;goto19
3843 A126 FE 0D 11 ... ldx 0d11
3845 A12A FC 0D 0F ... ldd 0d0f
3846 A12D BD A3 41 ..A jsr a341 ;jump77
3848 A131 7E A1 C4 ~.. jmp a1c4 ;goto19
3849 A134 C6 53 .S ldab #53
3850 A136 F7 0B 99 ... stab 0b99
3851 A139 C6 48 .H ldab #48
3852 A13B F7 0B 98 ... stab 0b98
3853 A13E C6 50 .P ldab #50
3854 A140 F7 0B 97 ... stab 0b97
3855 A143 C6 52 .R ldab #52
3856 A145 F7 0B 96 ... stab 0b96
3857 A148 CE 00 00 ... ldx #0000
3859 A14C FC 0D 09 ... ldd 0d09
3860 A14F BD A2 D4 ... jsr a2d4 ;jump79
3863 A155 FE 0D 15 ... ldx 0d15
3865 A159 FC 0D 13 ... ldd 0d13
3866 A15C BD A3 41 ..A jsr a341 ;jump77
3869 A162 C6 50 .P ldab #50
3870 A164 F7 0B 99 ... stab 0b99
3871 A167 C6 52 .R ldab #52
3872 A169 F7 0B 98 ... stab 0b98
3873 A16C C6 4D .M ldab #4d
3874 A16E F7 0B 97 ... stab 0b97
3875 A171 C6 4F .O ldab #4f
3876 A173 F7 0B 96 ... stab 0b96
3877 A176 CE 00 00 ... ldx #0000
3879 A17A FC 0D 0B ... ldd 0d0b
3880 A17D BD A2 D4 ... jsr a2d4 ;jump79
3883 A183 FE 0D 19 ... ldx 0d19
3885 A187 FC 0D 17 ... ldd 0d17
3886 A18A BD A3 41 ..A jsr a341 ;jump77
3889 A190 C6 46 .F ldab #46
3890 A192 F7 0B 99 ... stab 0b99
3891 A195 C6 52 .R ldab #52
3892 A197 F7 0B 98 ... stab 0b98
3893 A19A C6 45 .E ldab #45
3894 A19C F7 0B 97 ... stab 0b97
3895 A19F C6 45 .E ldab #45
3896 A1A1 F7 0B 96 ... stab 0b96
3897 A1A4 CE 00 00 ... ldx #0000
3899 A1A8 FC 0D 0D ... ldd 0d0d
3900 A1AB BD A2 D4 ... jsr a2d4 ;jump79
3903 A1B1 FE 0D 1D ... ldx 0d1d
3905 A1B5 FC 0D 1B ... ldd 0d1b
3906 A1B8 BD A3 41 ..A jsr a341 ;jump77
3909 A1BE CC B4 84 ... ldd #b484 ; "VENDS/CODE"
3910 A1C1 BD C0 BA ... jsr c0ba ;display:
3912 A1C4 F6 00 48 ..H ldab 0048
3913 A1C7 C1 2E .. cmpb #2e
3914 A1C9 23 74 #t bls 74
3915 A1CB F6 00 48 ..H ldab 0048
3916 A1CE C1 92 .. cmpb #92
3917 A1D0 24 6D $m bcc 6d
3918 A1D2 F6 00 48 ..H ldab 0048
3921 A1D7 C3 08 6C ..l addd #086c
3923 A1DB EC 00 .. ldd 00,x
3924 A1DD C4 80 .. andb #80
3925 A1DF 26 0E &. bne 0e
3926 A1E1 7C 00 48 |.H inc 0048
3927 A1E4 F6 00 48 ..H ldab 0048
3928 A1E7 C1 92 .. cmpb #92
3929 A1E9 26 02 &. bne 02
3932 A1EF F6 00 48 ..H ldab 0048
3934 A1F3 C3 FF D2 ... addd #ffd2
3935 A1F6 BD E7 95 ... jsr e795 ;jump54 - number to string
3936 A1F9 F6 00 5E ..^ ldab 005e
3937 A1FC F7 0B 99 ... stab 0b99
3938 A1FF F6 00 5F .._ ldab 005f
3939 A202 F7 0B 98 ... stab 0b98
3940 A205 F6 00 48 ..H ldab 0048
3943 A20A C3 0C C3 ... addd #0cc3
3945 A20E EC 00 .. ldd 00,x
3946 A210 BD E7 45 ..E jsr e745 ;jump55 - number to string
3947 A213 F6 00 57 ..W ldab 0057
3948 A216 F7 0B 94 ... stab 0b94
3949 A219 F6 00 5A ..Z ldab 005a
3950 A21C F7 0B 93 ... stab 0b93
3951 A21F F6 00 5D ..] ldab 005d
3952 A222 F7 0B 92 ... stab 0b92
3953 A225 F6 00 5E ..^ ldab 005e
3954 A228 F7 0B 91 ... stab 0b91
3955 A22B F6 00 5F .._ ldab 005f
3956 A22E F7 0B 90 ... stab 0b90
3959 A233 8D 27 .' bsr dest 27
3960 A235 F6 00 48 ..H ldab 0048
3961 A238 C1 92 .. cmpb #92
3962 A23A 26 03 &. bne 03
3963 A23C 7F 00 2C .., clr 002c
3964 A23F F6 00 48 ..H ldab 0048
3965 A242 C1 92 .. cmpb #92
3966 A244 26 15 &. bne 15
3967 A246 F6 00 1F ... ldab 001f
3968 A249 C4 10 .. andb #10
3969 A24B 27 08 '. beq 08
3970 A24D CC AF 9A ... ldd #af9a ; "CLR MIS Y"
3971 A250 BD C0 BA ... jsr c0ba ;display:
3973 A255 CC AF A5 ... ldd #afa5 ; "CLR MIS N"
3974 A258 BD C0 BA ... jsr c0ba ;display:
3980 A25E F6 00 2C .., ldab 002c
3981 A261 26 6F &o bne 6f
3982 A263 BD BE 69 ..i jsr be69 ;displayreset
3984 A267 E6 01 .. ldab 01,x
3985 A269 27 5F '_ beq 5f
3986 A26B F6 00 13 ... ldab 0013
3987 A26E C1 01 .. cmpb #01
3988 A270 23 58 #X bls 58
3989 A272 CE 10 28 ..( ldx #1028
3990 A275 1C 00 40 ... bset 00,x, #40
3991 A278 CE 00 01 ... ldx #0001
3993 A27C F6 0B 90 ... ldab 0b90
3995 A280 BD BD B5 ... jsr bdb5 ;jump78
3997 A284 CE 10 28 ..( ldx #1028
3998 A287 1D 00 40 ... bclr 00,x, #40
3999 A28A F6 0B 91 ... ldab 0b91
4000 A28D F7 0B 90 ... stab 0b90
4001 A290 F6 00 13 ... ldab 0013
4002 A293 C1 02 .. cmpb #02
4003 A295 26 07 &. bne 07
4004 A297 C6 2E .. ldab #2e
4005 A299 F7 0B 91 ... stab 0b91
4007 A29E F6 00 13 ... ldab 0013
4008 A2A1 C1 04 .. cmpb #04
4009 A2A3 26 0D &. bne 0d
4010 A2A5 F6 0B 92 ... ldab 0b92
4011 A2A8 F7 0B 91 ... stab 0b91
4012 A2AB C6 2E .. ldab #2e
4013 A2AD F7 0B 92 ... stab 0b92
4015 A2B2 F6 00 13 ... ldab 0013
4016 A2B5 C1 08 .. cmpb #08
4017 A2B7 26 11 &. bne 11
4018 A2B9 F6 0B 92 ... ldab 0b92
4019 A2BC F7 0B 91 ... stab 0b91
4020 A2BF F6 0B 93 ... ldab 0b93
4021 A2C2 F7 0B 92 ... stab 0b92
4022 A2C5 C6 2E .. ldab #2e
4023 A2C7 F7 0B 93 ... stab 0b93
4024 A2CA BD BE 10 ... jsr be10 ;jump88
4025 A2CD C6 03 .. ldab #03
4026 A2CF F7 00 2C .., stab 002c
4034 A2D7 EC 00 .. ldd 00,x
4035 A2D9 BD E7 45 ..E jsr e745 ;jump55 - number to string
4036 A2DC F6 00 57 ..W ldab 0057
4037 A2DF F7 0B 94 ... stab 0b94
4038 A2E2 F6 00 5A ..Z ldab 005a
4039 A2E5 F7 0B 93 ... stab 0b93
4040 A2E8 F6 00 5D ..] ldab 005d
4041 A2EB F7 0B 92 ... stab 0b92
4042 A2EE F6 00 5E ..^ ldab 005e
4043 A2F1 F7 0B 91 ... stab 0b91
4044 A2F4 F6 00 5F .._ ldab 005f
4045 A2F7 F7 0B 90 ... stab 0b90
4047 A2FB E6 05 .. ldab 05,x
4048 A2FD 27 14 '. beq 14
4049 A2FF F6 00 17 ... ldab 0017
4050 A302 C4 08 .. andb #08
4051 A304 26 05 &. bne 05
4052 A306 C6 24 .$ ldab #24
4053 A308 F7 0B 95 ... stab 0b95
4054 A30B CC 00 01 ... ldd #0001
4055 A30E BD A2 5C ..\ jsr a25c ;jump82
4059 A315 BD A2 5C ..\ jsr a25c ;jump82
4067 A31D E6 01 .. ldab 01,x
4069 A320 BD E7 95 ... jsr e795 ;jump54 - number to string
4070 A323 F6 00 5D ..] ldab 005d
4071 A326 F7 0B 99 ... stab 0b99
4072 A329 F6 00 5E ..^ ldab 005e
4073 A32C F7 0B 98 ... stab 0b98
4074 A32F F6 00 5F .._ ldab 005f
4075 A332 F7 0B 97 ... stab 0b97
4076 A335 CE 00 01 ... ldx #0001
4079 A33A EC 06 .. ldd 06,x
4080 A33C 8D 96 .. bsr dest 96
4091 A346 EC 04 .. ldd 04,x
4094 A34A EC 02 .. ldd 02,x
4095 A34C BD E6 21 ..! jsr e621 ;jump56
4097 A350 C6 20 . ldab #20
4098 A352 F7 0B 99 ... stab 0b99
4099 A355 F6 00 17 ... ldab 0017
4100 A358 C4 08 .. andb #08
4101 A35A 26 05 &. bne 05
4102 A35C C6 24 .$ ldab #24
4103 A35E F7 0B 98 ... stab 0b98
4104 A361 CC 00 01 ... ldd #0001
4105 A364 BD A2 5C ..\ jsr a25c ;jump82
4109 A36A 6E 00 n. jmp 00,x
4112 A36C BD BE 4B ..K jsr be4b ;displayblank
4113 A36F CC AF DC ... ldd #afdc ; "- SAVING -"
4114 A372 BD C0 BA ... jsr c0ba ;display:
4115 A375 CC 01 F4 ... ldd #01f4
4116 A378 BD E5 71 ..q jsr e571 ;msdelay
4120 A37C FC 00 52 ..R ldd 0052
4121 A37F FD 0B B5 ... std 0bb5
4122 A382 8D E8 .. bsr dest e8
4126 A385 F6 00 1F ... ldab 001f
4127 A388 C4 40 .@ andb #40
4128 A38A 27 73 's beq 73
4129 A38C F6 00 06 ... ldab 0006
4132 A391 C3 08 00 ... addd #0800
4134 A395 EC 00 .. ldd 00,x
4136 A398 84 C0 .. anda #c0
4137 A39A FA 00 28 ..( orb 0028
4138 A39D BA 00 27 ..' ora 0027
4139 A3A0 FD 00 27 ..' std 0027
4140 A3A3 FC 00 27 ..' ldd 0027
4143 A3A8 F6 00 06 ... ldab 0006
4146 A3AD C3 08 00 ... addd #0800
4149 A3B2 ED 00 .. std 00,x
4150 A3B4 FC 00 27 ..' ldd 0027
4155 A3BB F6 00 06 ... ldab 0006
4158 A3C0 C3 0B F1 ... addd #0bf1
4161 A3C5 ED 00 .. std 00,x
4162 A3C7 F6 00 06 ... ldab 0006
4165 A3CC C3 08 C8 ... addd #08c8
4167 A3D0 EC 00 .. ldd 00,x
4168 A3D2 C4 80 .. andb #80
4169 A3D4 84 F7 .. anda #f7
4170 A3D6 FA 00 47 ..G orb 0047
4171 A3D9 BA 00 46 ..F ora 0046
4172 A3DC FD 00 46 ..F std 0046
4173 A3DF F6 00 19 ... ldab 0019
4174 A3E2 C4 10 .. andb #10
4175 A3E4 27 06 '. beq 06
4176 A3E6 CE 00 46 ..F ldx #0046
4177 A3E9 1C 00 08 ... bset 00,x, #08
4178 ; set memory location 08c8+(slotnum*2) to value of 0046
4179 A3EC FC 00 46 ..F ldd 0046
4182 A3F1 F6 00 06 ... ldab 0006
4185 A3F6 C3 08 C8 ... addd #08c8
4188 A3FB ED 00 .. std 00,x
4190 A3FF CC 2A FF .*. ldd #2aff ; 00101010 11111111
4193 A404 F6 00 06 ... ldab 0006
4196 A409 C3 08 00 ... addd #0800
4199 A40E ED 00 .. std 00,x
4200 A410 CC D5 00 ... ldd #d500
4203 A415 F6 00 06 ... ldab 0006
4206 A41A C3 0B F1 ... addd #0bf1
4209 A41F ED 00 .. std 00,x
4210 A421 F6 00 1F ... ldab 001f
4211 A424 C4 40 .@ andb #40
4212 A426 27 26 '& beq 26
4213 A428 F6 00 06 ... ldab 0006
4216 A42D C3 08 00 ... addd #0800
4218 A431 EC 00 .. ldd 00,x
4219 A433 C4 FF .. andb #ff
4220 A435 84 3F .? anda #3f
4221 A437 FD 00 27 ..' std 0027
4222 A43A F6 00 06 ... ldab 0006
4225 A43F C3 08 C8 ... addd #08c8
4227 A443 EC 00 .. ldd 00,x
4228 A445 C4 7F .. andb #7f
4230 A448 FD 00 46 ..F std 0046
4231 A44B BD A3 6C ..l jsr a36c ;jump81
4235 A44F FC 00 0D ... ldd 000d
4236 A452 FD 0B B7 ... std 0bb7
4237 A455 BD A3 6C ..l jsr a36c ;jump81
4242 A45A F6 00 67 ..g ldab 0067
4243 A45D C4 02 .. andb #02
4244 A45F 27 08 '. beq 08
4245 A461 CE 00 67 ..g ldx #0067
4246 A464 1D 00 4D ... bclr 00,x, #4D
4248 A469 CE 00 67 ..g ldx #0067
4249 A46C 1D 00 10 ... bclr 00,x, #10
4250 A46F CE 00 67 ..g ldx #0067
4251 A472 1D 00 .. bclr add,x 00,x
4254 A477 67 C4 g. asr c4,x
4256 A47A 26 06 &. bne 06
4257 A47C CE 00 67 ..g ldx #0067
4258 A47F 1D 00 .. bclr add,x 00,x
4261 A484 67 C4 g. asr c4,x
4263 A487 27 14 '. beq 14
4264 A489 CE 00 67 ..g ldx #0067
4265 A48C 1D 00 02 ... bclr 00,x, #02
4266 A48F CE 00 67 ..g ldx #0067
4267 A492 1D 00 10 ... bclr 00,x, #10
4268 A495 CE 00 67 ..g ldx #0067
4269 A498 1D 00 .. bclr add,x 00,x
4272 A49D CE 00 67 ..g ldx #0067
4273 A4A0 1D 00 08 ... bclr 00,x, #08
4274 A4A3 F6 00 67 ..g ldab 0067
4275 A4A6 C4 04 .. andb #04
4276 A4A8 27 12 '. beq 12
4277 A4AA CE 00 67 ..g ldx #0067
4278 A4AD 1D 00 02 ... bclr 00,x, #02
4279 A4B0 CE 00 67 ..g ldx #0067
4280 A4B3 1D 00 10 .. bclr 00,x, #10
4281 A4B6 CE 00 67 ..g ldx #0067
4282 A4B9 1D 00 20 .. bclr 00,x, #20
4283 A4BC F6 00 67 ... ldab 0067
4284 A4BF C4 08 .. andb #08
4285 A4C1 26 06 &. bne 06
4286 A4C3 CE 00 67 ..g ldx #0067
4287 A4C6 1D 00 40 ..@ bclr 00,x, #40
4288 A4C9 F6 00 67 ..g ldab 0067
4289 A4CC F7 0B C0 ... stab 0bc0
4290 A4CF F6 0E 70 ..p ldab 0e70
4291 A4D2 F7 0E 6E ..n stab 0e6e
4292 A4D5 F6 0E 6D ..m ldab 0e6d
4293 A4D8 26 39 &9 bne 39
4294 A4DA F6 0E 6F ..o ldab 0e6f
4295 A4DD 27 34 '4 beq 34
4296 A4DF 7F 00 06 ... clr 0006
4297 A4E2 F6 00 06 ... ldab 0006
4298 A4E5 C1 3F .? cmpb #3f
4299 A4E7 24 2A $* bcc 2a
4300 A4E9 F6 00 06 ... ldab 0006
4302 A4ED CE 00 05 ... ldx #0005
4305 A4F2 27 1A '. beq 1a
4306 A4F4 F6 00 06 ... ldab 0006
4308 A4F8 C3 08 00 ... addd #0800
4310 A4FC ED 00 .. std 00,x
4311 A4FE EC 00 .. ldd 00,x
4314 A502 F6 00 06 ... ldab 0006
4317 A507 C3 08 C8 ... addd #08c8
4320 A50C ED 00 .. std 00,x
4321 A50E 7C 00 06 |.. inc 0006
4323 A513 F6 0E 6F ..o ldab 0e6f
4324 A516 F7 0E 6D ..m stab 0e6d
4325 A519 BD A3 6C ..l jsr a36c ;jump81
4330 A51E F6 00 22 .." ldab 0022
4332 A522 BD FE 16 ... jsr fe16 ;jump2
4337 A529 A5 79 .y bita 79,x
4338 A52B A5 35 .5 bita 35,x
4339 A52D A5 43 .C bita 43,x
4340 A52F A5 51 .Q bita 51,x
4341 A531 A5 5F ._ bita 5f,x
4342 A533 A5 6D .m bita 6d,x
4343 A535 F6 00 24 ..$ ldab 0024
4344 A538 F7 0B AF ... stab 0baf
4345 A53B F6 00 2A ..* ldab 002a
4346 A53E F7 0B B4 ... stab 0bb4
4348 A543 F6 00 24 ..$ ldab 0024
4349 A546 F7 0B AE ... stab 0bae
4350 A549 F6 00 2A ..* ldab 002a
4351 A54C F7 0B B3 ... stab 0bb3
4353 A551 F6 00 24 ..$ ldab 0024
4354 A554 F7 0B AD ... stab 0bad
4355 A557 F6 00 2A ..* ldab 002a
4356 A55A F7 0B B2 ... stab 0bb2
4358 A55F F6 00 24 ..$ ldab 0024
4359 A562 F7 0B AC ... stab 0bac
4360 A565 F6 00 2A ..* ldab 002a
4361 A568 F7 0B B1 ... stab 0bb1
4363 A56D F6 00 24 ..$ ldab 0024
4364 A570 F7 0B AB ... stab 0bab
4365 A573 F6 00 2A ..* ldab 002a
4366 A576 F7 0B B0 ... stab 0bb0
4367 A579 BD A3 6C ..l jsr a36c ;jump81
4371 A57D 7F 00 54 ..T clr 0054
4372 A580 F6 00 54 ..T ldab 0054
4373 A583 C1 FF .. cmpb #ff
4374 A585 24 1B $. bcc 1b
4375 A587 F6 00 54 ..T ldab 0054
4377 A58B C3 0A 90 ... addd #0a90
4379 A58F E6 00 .. ldab 00,x
4381 A592 F6 00 54 ..T ldab 0054
4383 A596 C3 09 90 ... addd #0990
4386 A59B E7 00 .. stab 00,x
4387 A59D 7C 00 54 |.T inc 0054
4389 A5A2 F6 00 61 ..a ldab 0061
4390 A5A5 F7 0B BF ... stab 0bbf
4391 A5A8 BD A3 6C ..l jsr a36c ;jump81
4395 A5AC 7F 00 54 ..T clr 0054
4396 A5AF F6 00 54 ..T ldab 0054
4397 A5B2 C1 10 .. cmpb #10
4398 A5B4 24 1B $. bcc 1b
4399 A5B6 F6 00 54 ..T ldab 0054
4401 A5BA C3 0A 90 ... addd #0a90
4403 A5BE E6 00 .. ldab 00,x
4405 A5C1 F6 00 54 ..T ldab 0054
4407 A5C5 C3 0C B9 ... addd #0cb9
4410 A5CA E7 00 .. stab 00,x
4411 A5CC 7C 00 54 |.T inc 0054
4413 A5D1 BD A3 6C ..l jsr a36c ;jump81
4417 A5D5 7F 00 54 ..T clr 0054
4418 A5D8 F6 00 54 ..T ldab 0054
4419 A5DB C1 10 .. cmpb #10
4420 A5DD 24 1B $. bcc 1b
4421 A5DF F6 00 54 ..T ldab 0054
4423 A5E3 C3 0A 90 ... addd #0a90
4425 A5E7 E6 00 .. ldab 00,x
4427 A5EA F6 00 54 ..T ldab 0054
4429 A5EE C3 0C C9 ... addd #0cc9
4432 A5F3 E7 00 .. stab 00,x
4433 A5F5 7C 00 54 |.T inc 0054
4435 A5FA BD A3 6C ..l jsr a36c ;jump81
4439 A5FE 7F 00 54 ..T clr 0054
4440 A601 F6 00 54 ..T ldab 0054
4441 A604 C1 05 .. cmpb #05
4442 A606 24 1B $. bcc 1b
4443 A608 F6 00 54 ..T ldab 0054
4445 A60C C3 00 62 ..b addd #0062
4447 A610 E6 00 .. ldab 00,x
4449 A613 F6 00 54 ..T ldab 0054
4451 A617 C3 0B A4 ... addd #0ba4
4454 A61C E7 00 .. stab 00,x
4455 A61E 7C 00 54 |.T inc 0054
4457 A623 7F 00 54 ..T clr 0054
4458 A626 F6 00 54 ..T ldab 0054
4459 A629 C1 0B .. cmpb #0b
4460 A62B 24 1B $. bcc 1b
4461 A62D F6 00 54 ..T ldab 0054
4463 A631 C3 00 68 ..h addd #0068
4465 A635 E6 00 .. ldab 00,x
4467 A638 F6 00 54 ..T ldab 0054
4469 A63C C3 0B E4 ... addd #0be4
4472 A641 E7 00 .. stab 00,x
4473 A643 7C 00 54 |.T inc 0054
4475 A648 8D 04 .. bsr dest 04
4476 A64A BD A3 6C ..l jsr a36c ;jump81
4480 A64E BD AB 0C ... jsr ab0c ;jump126
4481 A651 C6 20 . ldab #20
4482 A653 F7 0B A3 ... stab 0ba3
4483 A656 C6 20 . ldab #20
4484 A658 F7 0B 9A ... stab 0b9a
4485 A65B C6 01 .. ldab #01
4486 A65D F7 00 54 ..T stab 0054
4488 A660 F6 00 54 ..T ldab 0054
4489 A663 C1 09 .. cmpb #09
4490 A665 25 03 %. bcs 03
4491 A667 7E A7 1E ~.. jmp a71e ;goto20
4492 A66A F6 00 54 ..T ldab 0054
4494 A66E BD FE 16 ... jsr fe16 ;jump2
4495 A671 00 01 00 07 . test
4505 A687 F6 00 62 ..b ldab 0062
4510 A68E C8 04 .. eorb #04
4511 A690 F7 00 5F .._ stab 005f
4513 A695 F6 00 62 ..b ldab 0062
4514 A698 C4 0F .. andb #0f
4515 A69A C8 0D .. eorb #0d
4516 A69C F7 00 5F .._ stab 005f
4518 A6A1 F6 00 63 ..c ldab 0063
4523 A6A8 C8 04 .. eorb #04
4524 A6AA F7 00 5F .._ stab 005f
4526 A6AF F6 00 63 ..c ldab 0063
4527 A6B2 C4 0F .. andb #0f
4528 A6B4 C8 05 .. eorb #05
4529 A6B6 F7 00 5F .._ stab 005f
4531 A6BB F6 00 64 ..d ldab 0064
4536 A6C2 C8 05 .. eorb #05
4537 A6C4 F7 00 5F .._ stab 005f
4539 A6C9 F6 00 64 ..d ldab 0064
4540 A6CC C4 0F .. andb #0f
4541 A6CE C8 04 .. eorb #04
4542 A6D0 F7 00 5F .._ stab 005f
4544 A6D5 F6 00 65 ..e ldab 0065
4549 A6DC C8 05 .. eorb #05
4550 A6DE F7 00 5F .._ stab 005f
4552 A6E3 F6 00 65 ..e ldab 0065
4553 A6E6 C4 0F .. andb #0f
4554 A6E8 C8 03 .. eorb #03
4555 A6EA F7 00 5F .._ stab 005f
4556 A6ED F6 00 5F .._ ldab 005f
4557 A6F0 C1 09 .. cmpb #09
4558 A6F2 23 13 #. bls 13
4559 A6F4 F6 00 5F .._ ldab 005f
4560 A6F7 CB 37 .7 addb #37
4562 A6FA F6 00 54 ..T ldab 0054
4564 A6FE C3 0B 9A ... addd #0b9a
4567 A703 E7 00 .. stab 00,x
4569 A707 F6 00 5F .._ ldab 005f
4570 A70A CB 30 .0 addb #30
4572 A70D F6 00 54 ..T ldab 0054
4574 A711 C3 0B 9A ... addd #0b9a
4577 A716 E7 00 .. stab 00,x
4578 A718 7C 00 54 |.T inc 0054
4579 A71B 7E A6 60 ~.` jmp a660 ;goto21
4584 A71F F6 00 48 ..H ldab 0048
4585 A722 26 11 &. bne 11
4586 A724 F6 00 66 ..f ldab 0066
4587 A727 26 07 &. bne 07
4588 A729 C6 01 .. ldab #01
4589 A72B F7 00 66 ..f stab 0066
4591 A730 7F 00 66 ..f clr 0066
4593 A735 F6 00 48 ..H ldab 0048
4595 A739 C3 00 68 ..h addd #0068
4597 A73D E6 00 .. ldab 00,x
4598 A73F 26 10 &. bne 10
4599 A741 C6 01 .. ldab #01
4601 A744 F6 00 48 ..H ldab 0048
4603 A748 C3 00 68 ..h addd #0068
4606 A74D E7 00 .. stab 00,x
4610 A753 F6 00 48 ..H ldab 0048
4612 A757 C3 00 68 ..h addd #0068
4615 A75C E7 00 .. stab 00,x
4619 A75F F6 00 48 ..H ldab 0048
4621 A763 BD FE 16 ... jsr fe16 ;jump2
4626 A76A A7 DC .. staa dc,x
4627 A76C A7 80 .. staa 80,x
4628 A76E A7 87 .. staa 87,x
4629 A770 A7 8E .. staa 8e,x
4630 A772 A7 95 .. staa 95,x
4631 A774 A7 9C .. staa 9c,x
4632 A776 A7 A3 .. staa a3,x
4633 A778 A7 AA .. staa aa,x
4634 A77A A7 B1 .. staa b1,x
4635 A77C A7 C4 .. staa c4,x
4636 A77E A7 D7 .. staa d7,x
4637 A780 C6 02 .. ldab #02
4638 A782 F7 00 02 ... stab 0002
4640 A787 C6 10 .. ldab #10
4641 A789 F7 00 02 ... stab 0002
4643 A78E C6 20 . ldab #20
4644 A790 F7 00 02 ... stab 0002
4646 A795 C6 01 .. ldab #01
4647 A797 F7 00 02 ... stab 0002
4649 A79C C6 04 .. ldab #04
4650 A79E F7 00 02 ... stab 0002
4652 A7A3 C6 08 .. ldab #08
4653 A7A5 F7 00 02 ... stab 0002
4655 A7AA C6 40 .@ ldab #40
4656 A7AC F7 00 02 ... stab 0002
4658 A7B1 F6 0E 70 ..p ldab 0e70
4659 A7B4 C1 01 .. cmpb #01
4660 A7B6 26 05 &. bne 05
4661 A7B8 7F 0E 70 ..p clr 0e70
4663 A7BD C6 01 .. ldab #01
4664 A7BF F7 0E 70 ..p stab 0e70
4666 A7C4 F6 0E 6F ..o ldab 0e6f
4667 A7C7 C1 01 .. cmpb #01
4668 A7C9 26 05 &. bne 05
4669 A7CB 7F 0E 6F ..o clr 0e6f
4671 A7D0 C6 01 .. ldab #01
4672 A7D2 F7 0E 6F ..o stab 0e6f
4674 A7D7 C6 80 .. ldab #80
4675 A7D9 F7 00 02 ... stab 0002
4676 A7DC F6 00 48 ..H ldab 0048
4677 A7DF C1 0A .. cmpb #0a
4678 A7E1 24 2B $+ bcc 2b
4679 A7E3 F6 00 48 ..H ldab 0048
4680 A7E6 C1 07 .. cmpb #07
4681 A7E8 27 24 '$ beq 24
4682 A7EA F6 00 48 ..H ldab 0048
4683 A7ED C1 08 .. cmpb #08
4684 A7EF 27 1D '. beq 1d
4685 A7F1 F6 00 67 ..g ldab 0067
4686 A7F4 F4 00 02 ... andb 0002
4687 A7F7 26 0B &. bne 0b
4688 A7F9 F6 00 02 ... ldab 0002
4689 A7FC FA 00 67 ..g orb 0067
4690 A7FF F7 00 67 ..g stab 0067
4692 A804 F6 00 02 ... ldab 0002
4694 A808 F4 00 67 ..g andb 0067
4695 A80B F7 00 67 ..g stab 0067
4698 A80F 7F 00 54 ..T clr 0054
4699 A812 F6 00 54 ..T ldab 0054
4700 A815 C1 04 .. cmpb #04
4701 A817 24 4A $J bcc 4a
4702 A819 CC 01 F4 ... ldd #01f4
4703 A81C BD E5 71 ..q jsr e571 ;msdelay
4704 A81F F6 0B 93 ... ldab 0b93
4705 A822 F7 00 5F .._ stab 005f
4706 A825 F6 0B 94 ... ldab 0b94
4707 A828 F7 00 5E ..^ stab 005e
4708 A82B F6 0B 95 ... ldab 0b95
4709 A82E F7 00 5D ..] stab 005d
4710 A831 F6 0B 96 ... ldab 0b96
4711 A834 F7 00 5A ..Z stab 005a
4712 A837 BD BE 4B ..K jsr be4b ;displayblank
4713 A83A BD BE 01 ... jsr be01 ;jump70
4714 A83D CC 01 F4 ... ldd #01f4
4715 A840 BD E5 71 ..q jsr e571 ;msdelay
4716 A843 F6 00 5F .._ ldab 005f
4717 A846 F7 0B 93 ... stab 0b93
4718 A849 F6 00 5E ..^ ldab 005e
4719 A84C F7 0B 94 ... stab 0b94
4720 A84F F6 00 5D ..] ldab 005d
4721 A852 F7 0B 95 ... stab 0b95
4722 A855 F6 00 5A ..Z ldab 005a
4723 A858 F7 0B 96 ... stab 0b96
4724 A85B BD BE 01 ... jsr be01 ;jump70
4725 A85E 7C 00 54 |.T inc 0054
4730 A864 F6 00 09 ... ldab 0009
4731 A867 C1 01 .. cmpb #01
4733 A86B F6 00 61 ..a ldab 0061
4735 A86F C3 00 01 ... addd #0001
4738 A874 F6 00 60 ..` ldab 0060
4741 A879 A3 00 .. subd 00,x
4744 A87D 2C 0A ,. bge 0a
4745 A87F F6 00 60 ..` ldab 0060
4746 A882 C1 F9 .. cmpb #f9
4747 A884 24 03 $. bcc 03
4748 A886 7C 00 60 |.` inc 0060
4750 A88B F6 00 60 ..` ldab 0060
4751 A88E C1 09 .. cmpb #09
4752 A890 24 03 $. bcc 03
4753 A892 7C 00 60 |.` inc 0060
4757 A896 F6 00 36 ..6 ldab 0036
4758 A899 26 39 &9 bne 39
4759 A89B F6 00 54 ..T ldab 0054
4760 A89E C1 27 .' cmpb #27
4762 A8A2 7C 00 54 |.T inc 0054
4763 A8A5 F6 00 09 ... ldab 0009
4764 A8A8 C1 01 .. cmpb #01
4765 A8AA 26 0C &. bne 0c
4766 A8AC F6 00 54 ..T ldab 0054
4767 A8AF C1 27 .' cmpb #27
4768 A8B1 26 03 &. bne 03
4769 A8B3 7F 00 54 ..T clr 0054
4771 A8B8 F6 00 54 ..T ldab 0054
4772 A8BB C1 24 .$ cmpb #24
4773 A8BD 26 03 &. bne 03
4774 A8BF 7F 00 54 ..T clr 0054
4775 A8C2 F6 00 54 ..T ldab 0054
4777 A8C6 C3 B4 8F ... addd #b48f
4779 A8CA E6 00 .. ldab 00,x
4780 A8CC F7 0B 90 ... stab 0b90
4781 A8CF C6 02 .. ldab #02
4782 A8D1 F7 00 36 ..6 stab 0036
4786 A8D5 F6 00 60 ..` ldab 0060
4787 A8D8 C1 00 .. cmpb #00
4788 A8DA 23 05 #. bls 05
4789 A8DC 7A 00 60 z.` dec 0060
4791 A8E1 7F 00 60 ..` clr 0060
4795 A8E5 F6 00 36 ..6 ldab 0036
4796 A8E8 26 36 &6 bne 36
4797 A8EA F6 00 54 ..T ldab 0054
4798 A8ED C1 00 .. cmpb #00
4799 A8EF 25 1D %. bcs 1d
4800 A8F1 F6 00 54 ..T ldab 0054
4801 A8F4 26 15 &. bne 15
4802 A8F6 F6 00 09 ... ldab 0009
4803 A8F9 C1 01 .. cmpb #01
4804 A8FB 26 07 &. bne 07
4805 A8FD C6 26 .& ldab #26
4806 A8FF F7 00 54 ..T stab 0054
4808 A904 C6 23 .# ldab #23
4809 A906 F7 00 54 ..T stab 0054
4811 A90B 7A 00 54 z.T dec 0054
4812 A90E F6 00 54 ..T ldab 0054
4814 A912 C3 B4 8F ... addd #b48f
4816 A916 E6 00 .. ldab 00,x
4817 A918 F7 0B 90 ... stab 0b90
4818 A91B C6 02 .. ldab #02
4819 A91D F7 00 36 ..6 stab 0036
4823 A921 F6 0B 90 ... ldab 0b90
4824 A924 F7 0B 96 ... stab 0b96
4825 A927 F6 0B 96 ... ldab 0b96
4827 A92B F6 00 60 ..` ldab 0060
4829 A92F C3 0A 93 ... addd #0a93
4832 A934 E7 00 .. stab 00,x
4833 A936 F6 00 09 ... ldab 0009
4834 A939 C1 01 .. cmpb #01
4835 A93B 26 32 &2 bne 32
4836 A93D F6 00 61 ..a ldab 0061
4838 A941 C3 00 01 ... addd #0001
4841 A946 F6 00 60 ..` ldab 0060
4844 A94B A3 00 .. subd 00,x
4847 A94F 26 0A &. bne 0a
4848 A951 F6 00 60 ..` ldab 0060
4849 A954 C1 FA .. cmpb #fa
4850 A956 24 03 $. bcc 03
4851 A958 7C 00 61 |.a inc 0061
4852 A95B F6 00 60 ..` ldab 0060
4853 A95E F1 00 61 ..a cmpb 0061
4854 A961 22 0A ". bhi 0a
4855 A963 F6 00 60 ..` ldab 0060
4856 A966 C1 F9 .. cmpb #f9
4857 A968 24 03 $. bcc 03
4858 A96A 7C 00 60 |.` inc 0060
4860 A96F F6 00 60 ..` ldab 0060
4861 A972 C1 09 .. cmpb #09
4862 A974 24 03 $. bcc 03
4863 A976 7C 00 60 |.` inc 0060
4867 A97A F6 00 60 ..` ldab 0060
4868 A97D 26 24 &$ bne 24
4869 A97F F6 00 60 ..` ldab 0060
4870 A982 CB 03 .. addb #03
4871 A984 F7 00 54 ..T stab 0054
4872 A987 F6 00 54 ..T ldab 0054
4873 A98A C1 FF .. cmpb #ff
4874 A98C 24 13 $. bcc 13
4875 A98E C6 20 . ldab #20
4877 A991 F6 00 54 ..T ldab 0054
4879 A995 C3 0A 90 ... addd #0a90
4882 A99A E7 00 .. stab 00,x
4883 A99C 7C 00 54 |.T inc 0054
4886 A9A3 F6 00 60 ..` ldab 0060
4887 A9A6 CB 04 .. addb #04
4888 A9A8 F7 00 54 ..T stab 0054
4889 A9AB F6 00 54 ..T ldab 0054
4890 A9AE C1 FF .. cmpb #ff
4891 A9B0 24 13 $. bcc 13
4892 A9B2 C6 20 . ldab #20
4894 A9B5 F6 00 54 ..T ldab 0054
4896 A9B9 C3 0A 90 ... addd #0a90
4899 A9BE E7 00 .. stab 00,x
4900 A9C0 7C 00 54 |.T inc 0054
4902 A9C5 F6 00 60 ..` ldab 0060
4903 A9C8 F7 00 61 ..a stab 0061
4904 A9CB 7F 00 54 ..T clr 0054
4908 A9CF C6 50 .P ldab #50
4909 A9D1 F7 09 90 ... stab 0990
4910 A9D4 C6 29 .) ldab #29
4911 A9D6 F7 09 91 ... stab 0991
4912 A9D9 C6 20 . ldab #20
4913 A9DB F7 09 92 ... stab 0992
4914 A9DE 7F 00 54 ..T clr 0054
4915 A9E1 F6 00 54 ..T ldab 0054
4916 A9E4 C1 FF .. cmpb #ff
4917 A9E6 24 1B $. bcc 1b
4918 A9E8 F6 00 54 ..T ldab 0054
4920 A9EC C3 09 90 ... addd #0990
4922 A9F0 E6 00 .. ldab 00,x
4924 A9F3 F6 00 54 ..T ldab 0054
4926 A9F7 C3 0A 90 ... addd #0a90
4929 A9FC E7 00 .. stab 00,x
4930 A9FE 7C 00 54 |.T inc 0054
4932 AA03 F6 0B BF ... ldab 0bbf
4933 AA06 F7 00 61 ..a stab 0061
4937 AA0A C6 53 .S ldab #53
4938 AA0C F7 0C B9 ... stab 0cb9
4939 AA0F C6 29 .) ldab #29
4940 AA11 F7 0C BA ... stab 0cba
4941 AA14 C6 20 . ldab #20
4942 AA16 F7 0C BB ... stab 0cbb
4943 AA19 7F 00 54 ..T clr 0054
4944 AA1C F6 00 54 ..T ldab 0054
4945 AA1F C1 10 .. cmpb #10
4946 AA21 24 1B $. bcc 1b
4947 AA23 F6 00 54 ..T ldab 0054
4949 AA27 C3 0C B9 ... addd #0cb9
4951 AA2B E6 00 .. ldab 00,x
4953 AA2E F6 00 54 ..T ldab 0054
4955 AA32 C3 0A 90 ... addd #0a90
4958 AA37 E7 00 .. stab 00,x
4959 AA39 7C 00 54 |.T inc 0054
4964 AA3F C6 49 .I ldab #49
4965 AA41 F7 0C C9 ... stab 0cc9
4966 AA44 C6 29 .) ldab #29
4967 AA46 F7 0C CA ... stab 0cca
4968 AA49 C6 20 . ldab #20
4969 AA4B F7 0C CB ... stab 0ccb
4970 AA4E 7F 00 54 ..T clr 0054
4971 AA51 F6 00 54 ..T ldab 0054
4972 AA54 C1 10 .. cmpb #10
4973 AA56 24 1B $. bcc 1b
4974 AA58 F6 00 54 ..T ldab 0054
4976 AA5C C3 0C C9 ... addd #0cc9
4978 AA60 E6 00 .. ldab 00,x
4980 AA63 F6 00 54 ..T ldab 0054
4982 AA67 C3 0A 90 ... addd #0a90
4985 AA6C E7 00 .. stab 00,x
4986 AA6E 7C 00 54 |.T inc 0054
4991 AA74 7F 00 54 ..T clr 0054
4992 AA77 F6 00 54 ..T ldab 0054
4993 AA7A C1 0B .. cmpb #0b
4994 AA7C 24 1B $. bcc 1b
4995 AA7E F6 00 54 ..T ldab 0054
4997 AA82 C3 0B E4 ... addd #0be4
4999 AA86 E6 00 .. ldab 00,x
5001 AA89 F6 00 54 ..T ldab 0054
5003 AA8D C3 00 68 ..h addd #0068
5006 AA92 E7 00 .. stab 00,x
5007 AA94 7C 00 54 |.T inc 0054
5012 AA9A F6 00 22 .." ldab 0022
5013 AA9D C1 06 .. cmpb #06
5014 AA9F 24 0F $. bcc 0f
5015 AAA1 7C 00 22 |." inc 0022
5016 AAA4 F6 00 22 .." ldab 0022
5017 AAA7 C1 05 .. cmpb #05
5018 AAA9 23 05 #. bls 05
5019 AAAB C6 01 .. ldab #01
5020 AAAD F7 00 22 .." stab 0022
5021 AAB0 F6 00 22 .." ldab 0022
5023 AAB4 BD FE 16 ... jsr fe16 ;jump2
5028 AABB AB 0B .. adda 0b,x
5029 AABD AA C7 .. ora c7,x
5030 AABF AA D5 .. ora d5,x
5031 AAC1 AA E3 .. ora e3,x
5032 AAC3 AA F1 .. ora f1,x
5033 AAC5 AA FF .. ora ff,x
5034 AAC7 F6 0B AF ... ldab 0baf
5035 AACA F7 00 24 ..$ stab 0024
5036 AACD F6 0B B4 ... ldab 0bb4
5037 AAD0 F7 00 2A ..* stab 002a
5039 AAD5 F6 0B AE ... ldab 0bae
5040 AAD8 F7 00 24 ..$ stab 0024
5041 AADB F6 0B B3 ... ldab 0bb3
5042 AADE F7 00 2A ..* stab 002a
5044 AAE3 F6 0B AD ... ldab 0bad
5045 AAE6 F7 00 24 ..$ stab 0024
5046 AAE9 F6 0B B2 ... ldab 0bb2
5047 AAEC F7 00 2A ..* stab 002a
5049 AAF1 F6 0B AC ... ldab 0bac
5050 AAF4 F7 00 24 ..$ stab 0024
5051 AAF7 F6 0B B1 ... ldab 0bb1
5052 AAFA F7 00 2A ..* stab 002a
5054 AAFF F6 0B AB ... ldab 0bab
5055 AB02 F7 00 24 ..$ stab 0024
5056 AB05 F6 0B B0 ... ldab 0bb0
5057 AB08 F7 00 2A ..* stab 002a
5061 AB0C C6 03 .. ldab #03
5062 AB0E F7 00 18 ... stab 0018
5063 AB11 7F 00 1C ... clr 001c
5064 AB14 F6 00 1C ... ldab 001c
5065 AB17 C1 04 .. cmpb #04
5066 AB19 24 6D $m bcc 6d
5067 AB1B C6 07 .. ldab #07
5068 AB1D F7 00 55 ..U stab 0055
5069 AB20 7F 00 54 ..T clr 0054
5070 AB23 F6 00 54 ..T ldab 0054
5071 AB26 C1 08 .. cmpb #08
5072 AB28 24 56 $V bcc 56
5073 AB2A F6 00 1C ... ldab 001c
5075 AB2E C3 0B A4 ... addd #0ba4
5077 AB32 E6 00 .. ldab 00,x
5079 AB35 F6 00 54 ..T ldab 0054
5081 AB39 C3 B4 B7 ... addd #b4b7
5083 AB3D E6 00 .. ldab 00,x
5085 AB40 E4 00 .. andb 00,x
5087 AB43 27 1A '. beq 1a
5088 AB45 F6 00 55 ..U ldab 0055
5090 AB49 C3 B4 B7 ... addd #b4b7
5092 AB4D E6 00 .. ldab 00,x
5094 AB50 F6 00 18 ... ldab 0018
5096 AB54 C3 00 62 ..b addd #0062
5099 AB59 EA 00 .. orb 00,x
5100 AB5B E7 00 .. stab 00,x
5102 AB5F F6 00 55 ..U ldab 0055
5104 AB63 C3 B4 B7 ... addd #b4b7
5106 AB67 E6 00 .. ldab 00,x
5109 AB6B F6 00 18 ... ldab 0018
5111 AB6F C3 00 62 ..b addd #0062
5114 AB74 E4 00 .. andb 00,x
5115 AB76 E7 00 .. stab 00,x
5116 AB78 7A 00 55 z.U dec 0055
5117 AB7B 7C 00 54 |.T inc 0054
5119 AB80 7A 00 18 z.. dec 0018
5120 AB83 7C 00 1C |.. inc 001c
5125 AB89 CC B0 8C ... ldd #b08c ; "NO ERRORS"
5126 AB8C BD C0 BA ... jsr c0ba ;display:
5127 AB8F CC 01 F4 ... ldd #01f4
5128 AB92 BD E5 71 ..q jsr e571 ;msdelay
5129 AB95 BD D4 79 ..y jsr d479 ;jump67
5130 AB98 BD E8 9A ... jsr e89a ;jump68
5131 AB9B BD E9 EA ... jsr e9ea ;jump113
5132 AB9E 7F 0B C1 ... clr 0bc1
5136 ABA2 7F 00 05 ... clr 0005
5138 ABA5 F6 00 05 ... ldab 0005
5139 ABA8 C1 64 .d cmpb #64
5140 ABAA 25 03 %. bcs 03
5141 ABAC 7E AC 81 ~.. jmp ac81 ;goto22
5142 ABAF F6 00 05 ... ldab 0005
5143 ABB2 F7 00 06 ... stab 0006
5144 ABB5 F6 00 05 ... ldab 0005
5146 ABB9 CE 00 05 ... ldx #0005
5149 ABBE 26 03 &. bne 03
5150 ABC0 7E AC 7B ~.{ jmp ac7b ;goto23
5151 ABC3 F6 00 06 ... ldab 0006
5152 ABC6 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
5153 ABC9 83 00 00 ... subd #0000
5154 ABCC 27 03 '. beq 03
5155 ABCE 7E AC 7B ~.{ jmp ac7b ;goto23
5156 ABD1 BD D3 11 ... jsr d311 ;jump30 - test position exists
5157 ABD4 83 00 00 ... subd #0000
5158 ABD7 27 2B '+ beq 2b
5159 ABD9 F6 00 05 ... ldab 0005
5162 ABDE C3 08 00 ... addd #0800
5164 ABE2 EC 00 .. ldd 00,x
5165 ABE4 C4 FF .. andb #ff
5166 ABE6 84 3F .? anda #3f
5167 ABE8 83 27 10 .'. subd #2710 ; 10000
5168 ABEB 24 15 $. bcc 15
5169 ABED CC 01 00 ... ldd #0100
5172 ABF2 F6 00 05 ... ldab 0005
5175 ABF7 C3 08 C8 ... addd #08c8
5178 ABFC AA 00 .. ora 00,x
5179 ABFE EA 01 .. orb 01,x
5180 AC00 ED 00 .. std 00,x
5182 AC04 F6 00 05 ... ldab 0005
5185 AC09 C3 08 00 ... addd #0800
5187 AC0D EC 00 .. ldd 00,x
5188 AC0F C4 FF .. andb #ff
5189 AC11 84 3F .? anda #3f
5190 AC13 83 27 0F .'. subd #270f
5191 AC16 23 15 #. bls 15
5192 AC18 CC 01 00 ... ldd #0100
5195 AC1D F6 00 05 ... ldab 0005
5198 AC22 C3 08 C8 ... addd #08c8
5201 AC27 AA 00 .. ora 00,x
5202 AC29 EA 01 .. orb 01,x
5203 AC2B ED 00 .. std 00,x
5204 AC2D F6 00 05 ... ldab 0005
5207 AC32 C3 08 C8 ... addd #08c8
5209 AC36 EC 00 .. ldd 00,x
5210 AC38 84 01 .. anda #01
5211 AC3A 27 06 '. beq 06
5212 AC3C CE 00 19 ... ldx #0019
5213 AC3F 1C 00 04 ... bset 00,x, #04
5214 AC42 F6 00 05 ... ldab 0005
5217 AC47 C3 08 00 ... addd #0800
5219 AC4B EC 00 .. ldd 00,x
5220 AC4D 84 80 .. anda #80
5221 AC4F 27 2A '* beq 2a
5222 AC51 F6 00 05 ... ldab 0005
5225 AC56 C3 08 C8 ... addd #08c8
5227 AC5A EC 00 .. ldd 00,x
5228 AC5C 84 02 .. anda #02
5229 AC5E 27 06 '. beq 06
5230 AC60 CE 00 19 ... ldx #0019
5231 AC63 1C 00 01 ... bset 00,x, #01
5232 AC66 F6 00 05 ... ldab 0005
5235 AC6B C3 08 C8 ... addd #08c8
5237 AC6F EC 00 .. ldd 00,x
5238 AC71 84 04 .. anda #04
5239 AC73 27 06 '. beq 06
5240 AC75 CE 00 19 ... ldx #0019
5241 AC78 1C 00 02 ... bset 00,x, #02
5243 AC7B 7C 00 05 |.. inc 0005
5244 AC7E 7E AB A5 ~.. jmp aba5 ;goto24
5246 AC81 F6 00 19 ... ldab 0019
5247 AC84 C4 07 .. andb #07
5248 AC86 26 0A &. bne 0a
5249 AC88 F6 0B C1 ... ldab 0bc1
5250 AC8B C4 7F .. andb #7f
5251 AC8D 26 03 &. bne 03
5254 AC92 C6 01 .. ldab #01
5256 AC95 26 05 &. bne 05
5257 AC97 C6 0D .. ldab #0d
5258 AC99 F7 00 48 ..H stab 0048
5697 AEBE 24 35 $5 bcc 35
5706 AEC9 24 35 $5 bcc 35
5862 AF84 24 31 $1 bcc 31
5870 AF8F 24 31 $1 bcc 31
5902 AFB7 22 30 "0 bhi 30
5903 AFB9 22 00 ". bhi 00
5942 AFE7 2D 50 -P blt 50
5950 AFF0 2D 00 -. blt 00
6151 B0C5 14 C8 . ;20 200
6164 ; here's a lookup table of some sort, for finding the slot
6165 ; numbers of each motor in turn
6167 ; 80 entries for 80 motors?
6260 table of powers of 2
6267 B12E 2A 2A ** bpl 2a ;"**ERROR***"
6273 B135 2A 2A ** bpl 2a
6274 B137 2A 00 *. bpl 00
6276 B139 2A 2A ** bpl 2a
6277 B13B 2A 2A ** bpl 2a
6278 B13D 2A 2A ** bpl 2a
6279 B13F 2A 2A ** bpl 2a
6280 B141 2A 2A ** bpl 2a
6313 B167 2D 50 -P blt 50
6322 B172 2D 50 -P blt 50
6331 B17D 2D 50 -P blt 50
6341 B188 2D 50 -P blt 50
6359 B19E 2D 50 -P blt 50
6377 B1B4 2D 50 -P blt 50
6396 B1CB 24 2C $, bcc 2c
6492 B240 2D 2D -- blt 2d
6493 B242 2D 2D -- blt 2d
6494 B244 2D 2D -- blt 2d
6495 B246 2D 2D -- blt 2d
6496 B248 2D 2D -- blt 2d
6497 B24A 2D 2D -- blt 2d
6498 B24C 2D 2D -- blt 2d
6499 B24E 2D 2D -- blt 2d
6500 B250 2D 2D -- blt 2d
6501 B252 2D 2D -- blt 2d
6502 B254 2D 00 -. blt 00
6591 B2CD 28 52 (R bvc 52
6603 B2DF 28 4E (N bvc 4e
6768 B3CE 24 31 $1 bcc 31
6818 B415 2D 53 -S blt 53
6912 B489 2F 43 /C ble 43
6953 B4B3 24 2A $* bcc 2a
6961 B4BE 80 FF .. suba #ff
6962 B4C0 FF FF FF ... stx ffff
6963 B4C3 FF FF FF ... stx ffff
6964 B4C6 FF FF FF ... stx ffff
6965 B4C9 FF FF FF ... stx ffff
6966 B4CC FF FF FF ... stx ffff
6967 B4CF FF FF FF ... stx ffff
6968 B4D2 FF FF FF ... stx ffff
6969 B4D5 FF FF FF ... stx ffff
6970 B4D8 FF FF FF ... stx ffff
6971 B4DB FF FF FF ... stx ffff
6972 B4DE FF FF FF ... stx ffff
6973 B4E1 FF FF FF ... stx ffff
6974 B4E4 FF FF FF ... stx ffff
6975 B4E7 FF FF FF ... stx ffff
6976 B4EA FF FF FF ... stx ffff
6977 B4ED FF FF FF ... stx ffff
6978 B4F0 FF FF FF ... stx ffff
6979 B4F3 FF FF FF ... stx ffff
6980 B4F6 FF FF FF ... stx ffff
6981 B4F9 FF FF FF ... stx ffff
6982 B4FC FF FF FF ... stx ffff
6983 B4FF FF FF FF ... stx ffff
6984 B502 FF FF FF ... stx ffff
6985 B505 FF FF FF ... stx ffff
6986 B508 FF FF FF ... stx ffff
6987 B50B FF FF FF ... stx ffff
6988 B50E FF FF FF ... stx ffff
6989 B511 FF FF FF ... stx ffff
6990 B514 FF FF FF ... stx ffff
6991 B517 FF FF FF ... stx ffff
6992 B51A FF FF FF ... stx ffff
6993 B51D FF FF FF ... stx ffff
6994 B520 FF FF FF ... stx ffff
6995 B523 FF FF FF ... stx ffff
6996 B526 FF FF FF ... stx ffff
6997 B529 FF FF FF ... stx ffff
6998 B52C FF FF FF ... stx ffff
6999 B52F FF FF FF ... stx ffff
7000 B532 FF FF FF ... stx ffff
7001 B535 FF FF FF ... stx ffff
7002 B538 FF FF FF ... stx ffff
7003 B53B FF FF FF ... stx ffff
7004 B53E FF FF FF ... stx ffff
7005 B541 FF FF FF ... stx ffff
7006 B544 FF FF FF ... stx ffff
7007 B547 FF FF FF ... stx ffff
7008 B54A FF FF FF ... stx ffff
7009 B54D FF FF FF ... stx ffff
7010 B550 FF FF FF ... stx ffff
7011 B553 FF FF FF ... stx ffff
7012 B556 FF FF FF ... stx ffff
7013 B559 FF FF FF ... stx ffff
7014 B55C FF FF FF ... stx ffff
7015 B55F FF FF FF ... stx ffff
7016 B562 FF FF FF ... stx ffff
7017 B565 FF FF FF ... stx ffff
7018 B568 FF FF FF ... stx ffff
7019 B56B FF FF FF ... stx ffff
7020 B56E FF FF FF ... stx ffff
7021 B571 FF FF FF ... stx ffff
7022 B574 FF FF FF ... stx ffff
7023 B577 FF FF FF ... stx ffff
7024 B57A FF FF FF ... stx ffff
7025 B57D FF FF FF ... stx ffff
7026 B580 FF FF FF ... stx ffff
7027 B583 FF FF FF ... stx ffff
7028 B586 FF FF FF ... stx ffff
7029 B589 FF FF FF ... stx ffff
7030 B58C FF FF FF ... stx ffff
7031 B58F FF FF FF ... stx ffff
7032 B592 FF FF FF ... stx ffff
7033 B595 FF FF FF ... stx ffff
7034 B598 FF FF FF ... stx ffff
7035 B59B FF FF FF ... stx ffff
7036 B59E FF FF FF ... stx ffff
7037 B5A1 FF FF FF ... stx ffff
7038 B5A4 FF FF FF ... stx ffff
7039 B5A7 FF FF FF ... stx ffff
7040 B5AA FF FF FF ... stx ffff
7041 B5AD FF FF FF ... stx ffff
7042 B5B0 FF FF FF ... stx ffff
7043 B5B3 FF FF FF ... stx ffff
7044 B5B6 FF FF FF ... stx ffff
7045 B5B9 FF FF FF ... stx ffff
7046 B5BC FF FF FF ... stx ffff
7047 B5BF FF FF FF ... stx ffff
7048 B5C2 FF FF FF ... stx ffff
7049 B5C5 FF FF FF ... stx ffff
7050 B5C8 FF FF FF ... stx ffff
7051 B5CB FF FF FF ... stx ffff
7052 B5CE FF FF FF ... stx ffff
7053 B5D1 FF FF FF ... stx ffff
7054 B5D4 FF FF FF ... stx ffff
7055 B5D7 FF FF FF ... stx ffff
7056 B5DA FF FF FF ... stx ffff
7057 B5DD FF FF FF ... stx ffff
7058 B5E0 FF FF FF ... stx ffff
7059 B5E3 FF FF FF ... stx ffff
7060 B5E6 FF FF FF ... stx ffff
7061 B5E9 FF FF FF ... stx ffff
7062 B5EC FF FF FF ... stx ffff
7063 B5EF FF FF FF ... stx ffff
7064 B5F2 FF FF FF ... stx ffff
7065 B5F5 FF FF FF ... stx ffff
7066 B5F8 FF FF FF ... stx ffff
7067 B5FB FF FF FF ... stx ffff
7068 B5FE FF FF FF ... stx ffff
7069 B601 FF FF FF ... stx ffff
7070 B604 FF FF FF ... stx ffff
7071 B607 FF FF FF ... stx ffff
7072 B60A FF FF FF ... stx ffff
7073 B60D FF FF FF ... stx ffff
7074 B610 FF FF FF ... stx ffff
7075 B613 FF FF FF ... stx ffff
7076 B616 FF FF FF ... stx ffff
7077 B619 FF FF FF ... stx ffff
7078 B61C FF FF FF ... stx ffff
7079 B61F FF FF FF ... stx ffff
7080 B622 FF FF FF ... stx ffff
7081 B625 FF FF FF ... stx ffff
7082 B628 FF FF FF ... stx ffff
7083 B62B FF FF FF ... stx ffff
7084 B62E FF FF FF ... stx ffff
7085 B631 FF FF FF ... stx ffff
7086 B634 FF FF FF ... stx ffff
7087 B637 FF FF FF ... stx ffff
7088 B63A FF FF FF ... stx ffff
7089 B63D FF FF FF ... stx ffff
7090 B640 FF FF FF ... stx ffff
7091 B643 FF FF FF ... stx ffff
7092 B646 FF FF FF ... stx ffff
7093 B649 FF FF FF ... stx ffff
7094 B64C FF FF FF ... stx ffff
7095 B64F FF FF FF ... stx ffff
7096 B652 FF FF FF ... stx ffff
7097 B655 FF FF FF ... stx ffff
7098 B658 FF FF FF ... stx ffff
7099 B65B FF FF FF ... stx ffff
7100 B65E FF FF FF ... stx ffff
7101 B661 FF FF FF ... stx ffff
7102 B664 FF FF FF ... stx ffff
7103 B667 FF FF FF ... stx ffff
7104 B66A FF FF FF ... stx ffff
7105 B66D FF FF FF ... stx ffff
7106 B670 FF FF FF ... stx ffff
7107 B673 FF FF FF ... stx ffff
7108 B676 FF FF FF ... stx ffff
7109 B679 FF FF FF ... stx ffff
7110 B67C FF FF FF ... stx ffff
7111 B67F FF FF FF ... stx ffff
7112 B682 FF FF FF ... stx ffff
7113 B685 FF FF FF ... stx ffff
7114 B688 FF FF FF ... stx ffff
7115 B68B FF FF FF ... stx ffff
7116 B68E FF FF FF ... stx ffff
7117 B691 FF FF FF ... stx ffff
7118 B694 FF FF FF ... stx ffff
7119 B697 FF FF FF ... stx ffff
7120 B69A FF FF FF ... stx ffff
7121 B69D FF FF FF ... stx ffff
7122 B6A0 FF FF FF ... stx ffff
7123 B6A3 FF FF FF ... stx ffff
7124 B6A6 FF FF FF ... stx ffff
7125 B6A9 FF FF FF ... stx ffff
7126 B6AC FF FF FF ... stx ffff
7127 B6AF FF FF FF ... stx ffff
7128 B6B2 FF FF FF ... stx ffff
7129 B6B5 FF FF FF ... stx ffff
7130 B6B8 FF FF FF ... stx ffff
7131 B6BB FF FF FF ... stx ffff
7132 B6BE FF FF FF ... stx ffff
7133 B6C1 FF FF FF ... stx ffff
7134 B6C4 FF FF FF ... stx ffff
7135 B6C7 FF FF FF ... stx ffff
7136 B6CA FF FF FF ... stx ffff
7137 B6CD FF FF FF ... stx ffff
7138 B6D0 FF FF FF ... stx ffff
7139 B6D3 FF FF FF ... stx ffff
7140 B6D6 FF FF FF ... stx ffff
7141 B6D9 FF FF FF ... stx ffff
7142 B6DC FF FF FF ... stx ffff
7143 B6DF FF FF FF ... stx ffff
7144 B6E2 FF FF FF ... stx ffff
7145 B6E5 FF FF FF ... stx ffff
7146 B6E8 FF FF FF ... stx ffff
7147 B6EB FF FF FF ... stx ffff
7148 B6EE FF FF FF ... stx ffff
7149 B6F1 FF FF FF ... stx ffff
7150 B6F4 FF FF FF ... stx ffff
7151 B6F7 FF FF FF ... stx ffff
7152 B6FA FF FF FF ... stx ffff
7153 B6FD FF FF FF ... stx ffff
7154 B700 FF FF FF ... stx ffff
7155 B703 FF FF FF ... stx ffff
7156 B706 FF FF FF ... stx ffff
7157 B709 FF FF FF ... stx ffff
7158 B70C FF FF FF ... stx ffff
7159 B70F FF FF FF ... stx ffff
7160 B712 FF FF FF ... stx ffff
7161 B715 FF FF FF ... stx ffff
7162 B718 FF FF FF ... stx ffff
7163 B71B FF FF FF ... stx ffff
7164 B71E FF FF FF ... stx ffff
7165 B721 FF FF FF ... stx ffff
7166 B724 FF FF FF ... stx ffff
7167 B727 FF FF FF ... stx ffff
7168 B72A FF FF FF ... stx ffff
7169 B72D FF FF FF ... stx ffff
7170 B730 FF FF FF ... stx ffff
7171 B733 FF FF FF ... stx ffff
7172 B736 FF FF FF ... stx ffff
7173 B739 FF FF FF ... stx ffff
7174 B73C FF FF FF ... stx ffff
7175 B73F FF FF FF ... stx ffff
7176 B742 FF FF FF ... stx ffff
7177 B745 FF FF FF ... stx ffff
7178 B748 FF FF FF ... stx ffff
7179 B74B FF FF FF ... stx ffff
7180 B74E FF FF FF ... stx ffff
7181 B751 FF FF FF ... stx ffff
7182 B754 FF FF FF ... stx ffff
7183 B757 FF FF FF ... stx ffff
7184 B75A FF FF FF ... stx ffff
7185 B75D FF FF FF ... stx ffff
7186 B760 FF FF FF ... stx ffff
7187 B763 FF FF FF ... stx ffff
7188 B766 FF FF FF ... stx ffff
7189 B769 FF FF FF ... stx ffff
7190 B76C FF FF FF ... stx ffff
7191 B76F FF FF FF ... stx ffff
7192 B772 FF FF FF ... stx ffff
7193 B775 FF FF FF ... stx ffff
7194 B778 FF FF FF ... stx ffff
7195 B77B FF FF FF ... stx ffff
7196 B77E FF FF FF ... stx ffff
7197 B781 FF FF FF ... stx ffff
7198 B784 FF FF FF ... stx ffff
7199 B787 FF FF FF ... stx ffff
7200 B78A FF FF FF ... stx ffff
7201 B78D FF FF FF ... stx ffff
7202 B790 FF FF FF ... stx ffff
7203 B793 FF FF FF ... stx ffff
7204 B796 FF FF FF ... stx ffff
7205 B799 FF FF FF ... stx ffff
7206 B79C FF FF FF ... stx ffff
7207 B79F FF FF FF ... stx ffff
7208 B7A2 FF FF FF ... stx ffff
7209 B7A5 FF FF FF ... stx ffff
7210 B7A8 FF FF FF ... stx ffff
7211 B7AB FF FF FF ... stx ffff
7212 B7AE FF FF FF ... stx ffff
7213 B7B1 FF FF FF ... stx ffff
7214 B7B4 FF FF FF ... stx ffff
7215 B7B7 FF FF FF ... stx ffff
7216 B7BA FF FF FF ... stx ffff
7217 B7BD FF FF FF ... stx ffff
7218 B7C0 FF FF FF ... stx ffff
7219 B7C3 FF FF FF ... stx ffff
7220 B7C6 FF FF FF ... stx ffff
7221 B7C9 FF FF FF ... stx ffff
7222 B7CC FF FF FF ... stx ffff
7223 B7CF FF FF FF ... stx ffff
7224 B7D2 FF FF FF ... stx ffff
7225 B7D5 FF FF FF ... stx ffff
7226 B7D8 FF FF FF ... stx ffff
7227 B7DB FF FF FF ... stx ffff
7228 B7DE FF FF FF ... stx ffff
7229 B7E1 FF FF FF ... stx ffff
7230 B7E4 FF FF FF ... stx ffff
7231 B7E7 FF FF FF ... stx ffff
7232 B7EA FF FF FF ... stx ffff
7233 B7ED FF FF FF ... stx ffff
7234 B7F0 FF FF FF ... stx ffff
7235 B7F3 FF FF FF ... stx ffff
7236 B7F6 FF FF FF ... stx ffff
7237 B7F9 FF FF FF ... stx ffff
7238 B7FC FF FF FF ... stx ffff
7243 B801 F6 0E 6D ... ldab 0e6d
7244 B804 C1 01 .. cmpb #01
7245 B806 27 03 '. beq 03
7246 B808 7E B9 2A ~.* jmp b92a ;goto25
7247 B80B F6 0E 02 ... ldab 0e02
7248 B80E C1 05 .. cmpb #05 ; was the 3rd last keypress a 5?
7249 B810 27 03 '. beq 03
7250 B812 7E B9 2A ~.* jmp b92a ;goto25
7251 B815 F6 0E 03 ... ldab 0e03
7252 B818 C1 05 .. cmpb #05 ; was the 2nd last keypress a 5?
7253 B81A 27 03 '. beq 03
7254 B81C 7E B9 2A ~.* jmp b92a ;goto25
7255 B81F F6 0E 04 ... ldab 0e04
7256 B822 C1 05 .. cmpb #05 ; was the last keypress a 5?
7257 B824 27 03 '. beq 03
7258 B826 7E B9 2A ~.* jmp b92a ;goto25
7259 B829 F6 00 12 ... ldab 0012
7260 B82C C4 20 . andb #20 ; test the door switch
7261 B82E 27 03 '. beq 03
7262 B830 7E B9 2A ~.* jmp b92a ;goto25
7264 B834 6F 00 o. clr 00,x
7265 B836 F6 0E 6A ..j ldab 0e6a
7266 B839 C1 00 .. cmpb #00
7267 B83B 22 33 "3 bhi 33
7268 B83D C6 64 .d ldab #64
7269 B83F F7 0E 6A ..j stab 0e6a
7270 B842 7C 0E 05 |.. inc 0e05
7271 B845 F6 0E 05 ... ldab 0e05
7272 B848 C1 64 .d cmpb #64
7273 B84A 23 03 #. bls 03
7274 B84C 7F 0E 05 ... clr 0e05
7275 B84F F6 0E 05 ... ldab 0e05
7276 B852 BD D4 68 ..h jsr d468 ;jump51
7277 B855 83 00 00 ... subd #0000
7278 B858 27 0B '. beq 0b
7279 B85A F6 0E 05 ... ldab 0e05
7280 B85D BD D7 A0 ... jsr d7a0 ;is_invalid_slot
7281 B860 83 00 00 ... subd #0000
7282 B863 27 09 '. beq 09
7284 B866 6C 00 l. inc 00,x
7285 B868 E6 00 .. ldab 00,x
7286 B86A C1 6E .n cmpb #6e ; 110 or 01101110
7287 B86C 2D D4 -. blt d4
7289 B870 F6 0E 6A ..j ldab 0e6a
7290 B873 C1 00 .. cmpb #00
7291 B875 23 03 #. bls 03
7292 B877 7A 0E 6A z.j dec 0e6a
7293 B87A F6 0E 05 ... ldab 0e05
7294 B87D BD D4 68 ..h jsr d468 ;jump51
7295 B880 83 00 00 ... subd #0000
7296 B883 26 03 &. bne 03
7297 B885 7E B9 0A ~.. jmp b90a ;goto26
7298 B888 F6 0E 05 ... ldab 0e05
7299 B88B BD D7 A0 ... jsr d7a0 ;is_invalid_slot
7300 B88E 83 00 00 ... subd #0000
7301 B891 26 77 &w bne 77
7302 B893 BD BE 4B ..K jsr be4b ;displayblank
7303 B896 C6 20 . ldab #20 ; " "
7304 B898 F7 0B 9A ... stab 0b9a
7305 B89B C6 20 . ldab #20 ; " "
7306 B89D F7 0B 99 ... stab 0b99
7307 B8A0 C6 20 . ldab #20 ; " "
7308 B8A2 F7 0B 98 ... stab 0b98
7309 B8A5 F6 0E 05 ... ldab 0e05 ; array index/10
7311 B8A9 CE 00 0A ... ldx #000a
7314 B8AE CB 30 .0 addb #30 ; make it a digit
7315 B8B0 F7 0B 97 ... stab 0b97
7316 B8B3 F6 0E 05 ... ldab 0e05 ; array index%10
7318 B8B7 CE 00 0A ... ldx #000a
7320 B8BB CB 30 .0 addb #30 ; make it a digit
7321 B8BD F7 0B 96 ... stab 0b96
7322 B8C0 C6 20 . ldab #20 ; " "
7323 B8C2 F7 0B 95 ... stab 0b95
7324 B8C5 C6 20 . ldab #20 ; " "
7325 B8C7 F7 0B 94 ... stab 0b94
7326 B8CA F6 0E 05 ... ldab 0e05 ; array[index]/10
7328 B8CE C3 0E 06 ... addd #0e06
7330 B8D2 E6 00 .. ldab 00,x
7332 B8D5 CE 00 0A ... ldx #000a
7335 B8DA CB 30 .0 addb #30 ; make it a digit
7336 B8DC F7 0B 93 ... stab 0b93
7337 B8DF F6 0E 05 ... ldab 0e05 ; array[index]%10
7339 B8E3 C3 0E 06 ... addd #0e06
7341 B8E7 E6 00 .. ldab 00,x
7343 B8EA CE 00 0A ... ldx #000a
7345 B8EE CB 30 .0 addb #30 ; make it a digit
7346 B8F0 F7 0B 92 ... stab 0b92
7347 B8F3 C6 20 . ldab #20 ; " "
7348 B8F5 F7 0B 91 ... stab 0b91
7349 B8F8 C6 20 . ldab #20 ; " "
7350 B8FA F7 0B 90 ... stab 0b90
7351 B8FD 7F 00 2C .., clr 002c
7352 B900 BD BE 01 ... jsr be01 ;jump70
7353 B903 C6 0A .. ldab #0a
7354 B905 F7 00 2C .., stab 002c
7357 B90A BD BE 4B ..K jsr be4b ;displayblank
7358 B90D C6 57 .W ldab #57 ; "W"
7359 B90F F7 0B 96 ... stab 0b96
7360 B912 C6 42 .B ldab #42 ; "B"
7361 B914 F7 0B 95 ... stab 0b95
7362 B917 C6 42 .B ldab #42 ; "B"
7363 B919 F7 0B 94 ... stab 0b94
7364 B91C 7F 00 2C .., clr 002c
7365 B91F BD BE 01 ... jsr be01 ;jump70 write to display
7366 B922 C6 0A .. ldab #0a
7367 B924 F7 00 2C .., stab 002c
7368 B927 7E BA 81 ~.. jmp ba81 ;goto27
7370 B92A F6 0E 6D ..m ldab 0e6d
7371 B92D C1 01 .. cmpb #01
7372 B92F 27 03 '. beq 03
7373 B931 7E BA 81 ~.. jmp ba81 ;goto27
7374 B934 F6 0E 00 ... ldab 0e00
7375 B937 C1 05 .. cmpb #05
7376 B939 27 03 '. beq 03
7377 B93B 7E BA 81 ~.. jmp ba81 ;goto27
7378 B93E F6 0E 01 ... ldab 0e01
7379 B941 C1 05 .. cmpb #05
7380 B943 27 03 '. beq 03
7381 B945 7E BA 81 ~.. jmp ba81 ;goto27
7382 B948 F6 0E 02 ... ldab 0e02
7383 B94B C1 05 .. cmpb #05
7384 B94D 27 03 '. beq 03
7385 B94F 7E BA 81 ~.. jmp ba81 ;goto27
7386 B952 F6 00 12 ... ldab 0012
7387 B955 C4 20 . andb #20 ; test the door switch
7388 B957 26 03 &. bne 03
7389 B959 7E BA 81 ~.. jmp ba81 ;goto27
7390 B95C F6 0E 04 ... ldab 0e04
7391 B95F C1 05 .. cmpb #05
7392 B961 26 79 &y bne 79
7393 B963 F6 0E 03 ... ldab 0e03
7394 B966 C1 05 .. cmpb #05
7395 B968 26 72 &r bne 72
7397 B96B 6F 00 o. clr 00,x
7399 B96E E6 00 .. ldab 00,x
7400 B970 C1 64 .d cmpb #64
7401 B972 2C 16 ,. bge 16
7405 B977 E6 01 .. ldab 01,x
7408 B97B 2C 01 ,. bge 01
7410 B97E C3 0E 06 ... addd #0e06
7413 B983 E7 00 .. stab 00,x
7415 B986 6C 00 l. inc 00,x
7417 B98A 7F 0D FF ... clr 0dff
7418 B98D 7F 0E 00 ... clr 0e00
7419 B990 7F 0E 01 ... clr 0e01
7420 B993 7F 0E 02 ... clr 0e02
7421 B996 7F 0E 03 ... clr 0e03
7422 B999 7F 0E 04 ... clr 0e04
7423 B99C C6 41 .A ldab #41 ; "A"
7424 B99E F7 0B 99 ... stab 0b99
7425 B9A1 C6 4C .L ldab #4c ; "L"
7426 B9A3 F7 0B 98 ... stab 0b98
7427 B9A6 C6 4C .L ldab #4c ; "L"
7428 B9A8 F7 0B 97 ... stab 0b97
7429 B9AB C6 20 . ldab #20 ; " "
7430 B9AD F7 0B 96 ... stab 0b96
7431 B9B0 C6 43 .C ldab #43 ; "C"
7432 B9B2 F7 0B 95 ... stab 0b95
7433 B9B5 C6 4C .L ldab #4c ; "L"
7434 B9B7 F7 0B 94 ... stab 0b94
7435 B9BA C6 45 .E ldab #45 ; "E"
7436 B9BC F7 0B 93 ... stab 0b93
7437 B9BF C6 41 .A ldab #41 ; "A"
7438 B9C1 F7 0B 92 ... stab 0b92
7439 B9C4 C6 52 .R ldab #52 ; "R"
7440 B9C6 F7 0B 91 ... stab 0b91
7441 B9C9 C6 20 . ldab #20 ; " "
7442 B9CB F7 0B 90 ... stab 0b90
7443 B9CE 7F 00 2C .., clr 002c
7444 B9D1 BD BE 01 ... jsr be01 ;jump70 - display
7445 B9D4 C6 1E .. ldab #1e
7446 B9D6 F7 00 2C .., stab 002c
7447 B9D9 7E BA 81 ~.. jmp ba81 ;goto27
7448 B9DC F6 0E 04 ... ldab 0e04
7449 B9DF C1 01 .. cmpb #01
7450 B9E1 27 0A '. beq 0a
7451 B9E3 F6 0E 04 ... ldab 0e04
7452 B9E6 C1 02 .. cmpb #02
7453 B9E8 27 03 '. beq 03
7454 B9EA 7E BA 81 ~.. jmp ba81 ;goto27
7455 B9ED F6 0E 03 ... ldab 0e03
7456 B9F0 C1 00 .. cmpb #00
7457 B9F2 22 03 ". bhi 03
7458 B9F4 7E BA 81 ~.. jmp ba81 ;goto27
7459 B9F7 F6 0E 03 ... ldab 0e03
7460 B9FA C1 05 .. cmpb #05
7461 B9FC 26 03 &. bne 03
7462 B9FE 7E BA 81 ~.. jmp ba81 ;goto27
7463 BA01 F6 0E 03 ... ldab 0e03
7464 BA04 C1 07 .. cmpb #07
7465 BA06 24 79 $y bcc 79
7466 BA08 F6 0E 03 ... ldab 0e03 ; prevkey*10+key
7467 BA0B 86 0A .. ldaa #0a
7469 BA0E FB 0E 04 ... addb 0e04
7471 BA12 E7 00 .. stab 00,x
7472 BA14 E6 00 .. ldab 00,x
7473 BA16 C1 64 .d cmpb #64
7474 BA18 2C 67 ,g bge 67
7475 BA1A E6 00 .. ldab 00,x
7476 BA1C 2D 63 -c blt 63
7480 BA21 E6 01 .. ldab 01,x
7483 BA25 2C 01 ,. bge 01
7485 BA28 C3 0E 06 ... addd #0e06
7488 BA2D E7 00 .. stab 00,x
7489 BA2F F6 0E 03 ... ldab 0e03
7490 BA32 CB 30 .0 addb #30 ; +48 (make an ascii digit)
7491 BA34 F7 0B 99 ... stab 0b99
7492 BA37 F6 0E 04 ... ldab 0e04
7493 BA3A CB 30 .0 addb #30 ; +48 (make an ascii digit)
7494 BA3C F7 0B 98 ... stab 0b98
7495 BA3F C6 20 . ldab #20 ; " "
7496 BA41 F7 0B 97 ... stab 0b97
7497 BA44 C6 43 .C ldab #43 ; "C"
7498 BA46 F7 0B 96 ... stab 0b96
7499 BA49 C6 4C .L ldab #4c ; "L"
7500 BA4B F7 0B 95 ... stab 0b95
7501 BA4E C6 45 .E ldab #45 ; "E"
7502 BA50 F7 0B 94 ... stab 0b94
7503 BA53 C6 41 .A ldab #41 ; "A"
7504 BA55 F7 0B 93 ... stab 0b93
7505 BA58 C6 52 .R ldab #52 ; "R"
7506 BA5A F7 0B 92 ... stab 0b92
7507 BA5D C6 45 .E ldab #45 ; "E"
7508 BA5F F7 0B 91 ... stab 0b91
7509 BA62 C6 44 .D ldab #44 ; "D"
7510 BA64 F7 0B 90 ... stab 0b90
7511 BA67 7F 0E 00 ... clr 0e00
7512 BA6A 7F 0E 01 ... clr 0e01
7513 BA6D 7F 0E 02 ... clr 0e02
7514 BA70 7F 0E 03 ... clr 0e03
7515 BA73 7F 0E 04 ... clr 0e04
7516 BA76 7F 00 2C .., clr 002c
7517 BA79 BD BE 01 ... jsr be01 ;jump70 - display
7518 BA7C C6 1E .. ldab #1e
7519 BA7E F7 00 2C .., stab 002c
7525 ; reads the keypad state into 005b & 0056
7526 ; it looks like it returns without doing anything if the
7527 ; no sale switch is pressed, but I haven't looked closely
7528 BA83 F6 18 00 ... ldab 1800
7529 BA86 C4 7F .. andb #7f
7530 BA88 F7 00 23 ..# stab 0023
7531 BA8B F6 00 23 ..# ldab 0023
7532 BA8E F1 00 12 ... cmpb 0012 ; door buffers - debouncing it?
7533 BA91 27 06 '. beq 06
7534 BA93 F6 00 23 ..# ldab 0023
7535 BA96 F7 00 12 ... stab 0012
7536 BA99 F6 20 00 . . ldab 2000
7537 BA9C F1 00 20 .. cmpb 0020
7538 BA9F 27 08 '. beq 08
7539 BAA1 F6 20 00 . . ldab 2000
7540 BAA4 F7 00 20 .. stab 0020
7542 BAA9 F6 00 20 .. ldab 0020
7543 BAAC F7 00 11 ... stab 0011
7544 BAAF F6 00 11 ... ldab 0011
7545 BAB2 C4 03 .. andb #03
7546 BAB4 F7 00 2B ..+ stab 002b
7547 BAB7 F6 00 1B ... ldab 001b
7548 BABA C4 04 .. andb #04
7550 BABD F6 10 0A ... ldab 100a ; PortE
7551 BAC0 C4 04 .. andb #04 ; no sale switch (active low)
7553 BAC3 E0 00 .. subb 00,x
7555 BAC6 27 17 '. beq 17
7556 BAC8 F6 10 0A ... ldab 100a ; PortE
7557 BACB C4 04 .. andb #04 : no sale switch (active low)
7558 BACD 27 08 '. beq 08
7559 BACF CE 00 1B ... ldx #001b
7560 BAD2 1C 00 04 .. bset 00,x, #04
7562 BAD7 CE 00 1B ... ldx #001b
7563 BADA 1D 00 04 .. bclr 00,x, #04
7565 BADF F6 10 0A ... ldab 100a ; PortE
7566 BAE2 C4 04 .. andb #04 ; no sale switch (active low)
7567 BAE4 27 08 '. beq 08
7568 BAE6 CE 00 1D ... ldx #001d
7569 BAE9 1C 00 04 .. bset 00,x, #04
7571 BAEE CE 00 1D ... ldx #001d
7572 BAF1 1D 00 04 .. bclr 00,x, #04
7573 BAF4 CE 10 08 ... ldx #1008 : PortD
7574 BAF7 1D 00 20 ... bclr 00,x, #20 ; select keypad row 0
7575 BAF9 CE 10 28 ... ldx #1028
7576 BAFC 1C 00 40 ... bset 00,x #40 ; enable SPI
7578 BB00 CE 00 14 ... ldx #0014 ; keypad strobe:
7579 BB03 1C 00 04 .. bset 00,x, #04 ; resets the keypad
7580 BB06 F6 00 14 ... ldab 0014 ; shift register
7581 BB09 F7 38 00 .8. stab 3800 ; ready for a new
7582 BB0C CE 00 14 ... ldx #0014 ; read
7583 BB0F 1D 00 04 .. bclr 00,x, #04
7584 BB12 F6 00 14 ... ldab 0014
7585 BB15 F7 38 00 .8. stab 3800
7587 BB18 CE 00 00 ... ldx #0000
7591 BB1E BD BD B5 ... jsr bdb5 ;jump78 - reads the keypad inputs into X
7593 BB22 F7 00 5B ..[ stab 005b
7595 BB25 CE 10 28 ..( ldx #1028
7596 BB28 1D 00 40 .. bclr 00,x, #40 ; disable SPI
7598 BB2B CE 10 08 ... ldx #1008
7599 BB2E 1C 00 20 .. bset 00,x, #20 ; select keypad row 1
7601 BB30 CE 10 28 ... ldx #1028
7602 BB33 1C 00 40 ... bset 00,x, #40 ; enable the SPI
7604 BB37 CE 00 14 ... ldx #0014
7605 BB3A 1C 00 04 .. bset 00,x, #04 ; keypad strobe
7606 BB3D F6 00 14 ... ldab 0014
7607 BB40 F7 38 00 .8. stab 3800
7608 BB43 CE 00 14 ... ldx #0014
7609 BB46 1D 00 04 .. bclr 00,x, #04
7610 BB49 F6 00 14 ... ldab 0014
7611 BB4C F7 38 00 .8. stab 3800
7613 BB4F CE 00 00 ... ldx #0000
7617 BB55 BD BD B5 ... jsr bdb5 ;jump78 - read the keypad
7619 BB59 F7 00 56 ..V stab 0056
7620 BB5C CE 10 28 ..( ldx #1028
7621 BB5F 1D 00 40 .. bclr 00,x, #40
7625 BB63 F6 00 00 ... ldab 0000
7626 BB66 27 03 '. beq 03
7627 BB68 7E BD B4 ~.. jmp bdb4 ;goto28
7628 BB6B F6 00 2E ... ldab 002e
7629 BB6E 27 03 '. beq 03
7630 BB70 7E BD B4 ~.. jmp bdb4 ;goto28
7631 BB73 BD BA 83 ... jsr ba83 ;jump125 - read keypad
7632 ; has a key been pressed?
7633 BB76 F6 00 5B ..[ ldab 005b
7634 BB79 F1 00 56 ..V cmpb 0056
7635 BB7C 26 0B &. bne 0b ; to bb89
7636 BB7E F6 00 56 ..V ldab 0056
7637 BB81 27 06 '. beq 06 ; to bb89
7638 BB83 7F 00 29 ..) clr 0029 ; to key pressed
7639 BB86 7E BD AF ~.. jmp bdaf ;goto29 (bail)
7640 ; find keypad number
7641 BB89 F6 00 5B ..[ ldab 005b ; is row0 = 0
7642 BB8C 27 34 '4 beq 34 ; if so, to bbc2
7643 BB8E F6 00 5B ..[ ldab 005b
7644 BB91 F7 00 5F .._ stab 005f
7645 BB94 7F 00 1C ... clr 001c ; i=0
7647 BB97 F6 00 1C ... ldab 001c
7648 BB9A C1 08 .. cmpb #08 ; if i >= 8
7649 BB9C 24 15 $. bcc 15 ; to bbb3 (break)
7650 BB9E F6 00 5F .._ ldab 005f
7651 BBA1 C4 01 .. andb #01
7652 BBA3 27 02 '. beq 02
7653 BBA5 20 0C . bra 0c ; to bbb3
7654 BBA7 F6 00 5F .._ ldab 005f
7655 BBAA 54 T lsrb ; ready to test next bit
7656 BBAB F7 00 5F .._ stab 005f
7657 BBAE 7C 00 1C |.. inc 001c
7658 BBB1 20 E4 . bra e4 ; to bb97
7659 ; look up i in the keypad map
7660 BBB3 F6 00 1C ... ldab 001c
7662 BBB7 C3 AC 9D ... addd #ac9d ; keypad mapping
7664 BBBB E6 00 .. ldab 00,x
7665 BBBD F7 00 16 ... stab 0016
7666 BBC0 20 3C < bra 3c ; to bbfe
7667 ; test row 1 - ditto
7668 BBC2 F6 00 56 ..V ldab 0056
7669 BBC5 27 34 '4 beq 34
7670 BBC7 F6 00 56 ..V ldab 0056
7671 BBCA F7 00 5F .._ stab 005f
7672 BBCD 7F 00 1C ... clr 001c
7673 BBD0 F6 00 1C ... ldab 001c
7674 BBD3 C1 08 .. cmpb #08
7675 BBD5 24 15 $. bcc 15
7676 BBD7 F6 00 5F .._ ldab 005f
7677 BBDA C4 01 .. andb #01
7678 BBDC 27 02 '. beq 02
7679 BBDE 20 0C . bra 0c ; to bbec
7680 BBE0 F6 00 5F .._ ldab 005f
7682 BBE4 F7 00 5F .._ stab 005f
7683 BBE7 7C 00 1C |.. inc 001c
7685 BBEC F6 00 1C ... ldab 001c
7688 BBF0 C3 AC A0 ... addd #aca0
7690 BBF4 E6 00 .. ldab 00,x
7691 BBF6 F7 00 16 ... stab 0016
7693 BBFB 7F 00 16 ... clr 0016
7695 BBFE F6 00 5B ..[ ldab 005b
7696 BC01 FA 00 56 ..V orb 0056
7697 BC04 F7 00 5F .._ stab 005f
7698 BC07 7F 00 5E ..^ clr 005e
7699 BC0A 7F 00 1C ... clr 001c
7700 BC0D F6 00 1C ... ldab 001c
7701 BC10 C1 08 .. cmpb #08
7702 BC12 24 16 $. bcc 16
7703 BC14 F6 00 5F .._ ldab 005f
7704 BC17 C4 01 .. andb #01
7705 BC19 27 03 '. beq 03
7706 BC1B 7C 00 5E |.^ inc 005e
7707 BC1E F6 00 5F .._ ldab 005f
7709 BC22 F7 00 5F .._ stab 005f
7710 BC25 7C 00 1C |.. inc 001c
7712 BC2A F6 00 5E ..^ ldab 005e
7713 BC2D C1 01 .. cmpb #01
7714 BC2F 22 05 ". bhi 05
7715 BC31 F6 00 16 ... ldab 0016
7716 BC34 26 0F &. bne 0f
7717 BC36 7F 00 29 ..) clr 0029
7718 BC39 CE 00 1B ... ldx #001b
7719 BC3C 1C 00 10 ... bset 00,x, #10
7720 BC3F 7F 00 37 ..7 clr 0037
7721 BC42 7E BD AF ~.. jmp bdaf ;goto29 (bail)
7722 BC45 F6 00 16 ... ldab 0016 ; key release or debounce?
7723 BC48 F1 00 29 ..) cmpb 0029
7724 BC4B 27 2D '- beq 2d
7725 BC4D F6 00 16 ... ldab 0016
7726 BC50 F7 00 29 ..) stab 0029
7727 BC53 F6 0E 00 ... ldab 0e00 ; this is the key buffer?
7728 BC56 F7 0D FF ... stab 0dff
7729 BC59 F6 0E 01 ... ldab 0e01
7730 BC5C F7 0E 00 ... stab 0e00
7731 BC5F F6 0E 02 ... ldab 0e02
7732 BC62 F7 0E 01 ... stab 0e01
7733 BC65 F6 0E 03 ... ldab 0e03
7734 BC68 F7 0E 02 ... stab 0e02
7735 BC6B F6 0E 04 ... ldab 0e04
7736 BC6E F7 0E 03 ... stab 0e03
7737 BC71 F6 00 29 ..) ldab 0029
7738 BC74 F7 0E 04 ... stab 0e04
7739 BC77 7E BD AF ~.. jmp bdaf ;goto29 (bail)
7740 BC7A F6 00 12 ... ldab 0012
7741 BC7D C4 20 . andb #20 ; test door switch
7742 BC7F 27 3B '; beq 3b ; to bcbc
7743 BC81 F6 00 29 ..) ldab 0029
7744 BC84 27 33 '3 beq 33
7745 BC86 F6 00 1B ... ldab 001b
7746 BC89 C4 10 .. andb #10
7747 BC8B 27 2C ', beq 2c
7748 BC8D F6 00 42 ..B ldab 0042
7749 BC90 27 15 '. beq 15
7750 BC92 F6 00 09 ... ldab 0009
7751 BC95 27 08 '. beq 08
7752 BC97 F6 00 29 ..) ldab 0029
7753 BC9A F7 00 0A ... stab 000a
7755 BC9F F6 00 29 ..) ldab 0029
7756 BCA2 F7 00 09 ... stab 0009
7758 BCA7 F6 00 29 ..) ldab 0029
7759 BCAA F7 00 42 ..B stab 0042
7760 BCAD BD E5 AA ... jsr e5aa ;jump12
7761 BCB0 7F 00 2C .., clr 002c
7762 BCB3 CE 00 1B ... ldx #001b
7763 BCB6 1D 00 10 ... bclr 00,x, #10
7764 BCB9 7E BD AF ~.. jmp bdaf ;goto29 (bail)
7766 BCBC F6 00 1B ... ldab 001b
7767 BCBF C4 10 .. andb #10
7768 BCC1 26 03 &. bne 03
7769 BCC3 7E BD 91 ~.. jmp bd91 ;goto30
7770 BCC6 F6 00 21 ..! ldab 0021
7771 BCC9 C4 20 . andb #20
7772 BCCB 27 03 '. beq 03
7773 BCCD 7E BD 91 ~.. jmp bd91 ;goto30
7774 BCD0 F6 00 29 ..) ldab 0029
7775 BCD3 C1 0B .. cmpb #0b
7776 BCD5 26 03 &. bne 03
7777 BCD7 7E BD 5C ~.\ jmp bd5c ;goto31
7778 BCDA 7F 00 49 ..I clr 0049
7779 BCDD F6 00 3A ..: ldab 003a
7780 BCE0 26 32 &2 bne 32
7781 BCE2 F6 00 29 ..) ldab 0029
7782 BCE5 C1 0A .. cmpb #0a
7783 BCE7 26 05 &. bne 05
7784 BCE9 7F 00 1E ... clr 001e
7786 BCEE F6 00 29 ..) ldab 0029
7787 BCF1 F7 00 1E ... stab 001e
7788 BCF4 C6 32 .2 ldab #32
7789 BCF6 F7 00 3A ..: stab 003a
7790 BCF9 BD BE 4B ..K jsr be4b ;displayblank
7791 BCFC F6 00 1E ... ldab 001e
7792 BCFF CB 30 .0 addb #30
7793 BD01 F7 0B 95 ... stab 0b95
7794 BD04 BD E5 AA ... jsr e5aa ;jump12
7795 BD07 7F 00 2C .., clr 002c
7796 BD0A BD BE 01 ... jsr be01 ;jump70
7797 BD0D C6 32 .2 ldab #32
7798 BD0F F7 00 2C .., stab 002c
7800 BD14 F6 00 29 ..) ldab 0029
7801 BD17 C1 05 .. cmpb #05
7802 BD19 27 07 '. beq 07
7803 BD1B F6 00 29 ..) ldab 0029
7804 BD1E C1 0A .. cmpb #0a
7805 BD20 26 05 &. bne 05
7806 BD22 7F 00 2C .., clr 002c
7808 BD27 F6 00 1E ... ldab 001e
7812 BD2D F7 00 06 ... stab 0006
7813 BD30 F6 00 1E ... ldab 001e
7815 BD34 FB 00 06 ... addb 0006
7816 BD37 F7 00 06 ... stab 0006
7817 BD3A F6 00 29 ..) ldab 0029
7818 BD3D FB 00 06 ... addb 0006
7819 BD40 F7 00 06 ... stab 0006
7820 BD43 F6 00 29 ..) ldab 0029
7821 BD46 CB 30 .0 addb #30
7822 BD48 F7 0B 94 ... stab 0b94
7823 BD4B BD BE 01 ... jsr be01 ;jump70
7824 BD4E CE 00 1B ... ldx #001b
7825 BD51 1D 00 40 ... bclr 00,x, #40
7826 BD54 7F 00 3A ..: clr 003a
7827 BD57 BD E5 AA ... jsr e5aa ;jump12
7830 BD5C C6 19 .. ldab #19
7831 BD5E F7 00 37 ..7 stab 0037
7832 BD61 F6 00 3A ..: ldab 003a
7833 BD64 27 08 '. beq 08
7834 BD66 7F 00 3A ..: clr 003a
7835 BD69 7F 00 2C .., clr 002c
7837 BD6E 7C 00 49 |.I inc 0049
7838 BD71 F6 00 49 ..I ldab 0049
7839 BD74 C1 02 .. cmpb #02
7840 BD76 25 0E %. bcs 0e
7841 BD78 7F 00 49 ..I clr 0049
7842 BD7B CE 00 1B ... ldx #001b
7843 BD7E 1C 00 01 ... bset 00,x, #01
7844 BD81 C6 3C .< ldab #3c
7845 BD83 F7 00 4F ..O stab 004f
7846 BD86 BD E5 AA ... jsr e5aa ;jump12
7847 BD89 CE 00 1B ... ldx #001b
7848 BD8C 1D 00 10 ... bclr 00,x, #10
7851 BD91 F6 00 1B ... ldab 001b
7852 BD94 C4 10 .. andb #10
7853 BD96 26 17 &. bne 17
7854 BD98 F6 00 29 ..) ldab 0029
7855 BD9B C1 0B .. cmpb #0b
7856 BD9D 26 10 &. bne 10
7857 BD9F F6 00 37 ..7 ldab 0037
7858 BDA2 26 0B &. bne 0b
7859 BDA4 BD DD D5 ... jsr ddd5 ;jump120
7860 BDA7 7F 00 49 ..I clr 0049
7861 BDAA C6 14 .. ldab #14
7862 BDAC F7 00 2C .., stab 002c
7864 BDAF C6 01 .. ldab #01
7865 BDB1 F7 00 00 ... stab 0000
7870 ; start/finish sending a byte to the display
7871 ; stack parameter - 0 to disable clock (finish), 1 to enable clock (start)
7872 ; lower 8-bits of D - byte to write to display.
7873 ; bytes with bit 7 unset are characters (0-127)
7874 ; bytes with bit 7 set are control commands.
7875 ; this probably also reads the keypad simultaneously
7882 BDBB ED 00 .. std 00,x
7883 BDBD E6 07 .. ldab 07,x
7884 BDBF 27 0E '. beq 0e ; to bdcf if 0
7885 BDC1 CE 00 14 ... ldx #0014
7886 BDC4 1C 00 08 ... bset 00,x, #08
7887 BDC7 F6 00 14 ... ldab 0014
7888 BDCA F7 38 00 .8. stab 3800 ; enable display clock line
7889 BDCD 20 0C . bra 0c ; to bddb
7890 BDCF CE 00 14 ... ldx #0014
7891 BDD2 1D 00 08 ... bclr 00,x, #08
7892 BDD5 F6 00 14 ... ldab 0014
7893 BDD8 F7 38 00 .8. stab 3800 ; disable display clock line
7895 BDDC E6 03 .. ldab 03,x
7896 BDDE F7 10 2A ..* stab 102a ; write to spdr
7897 BDE1 F6 10 29 ..) ldab 1029 ; read spsr
7898 BDE4 2D 0F -. blt 0f ; exit sub if SPI complete
7903 BDEA EC 00 .. ldd 00,x
7904 BDEC 83 FF FF ... subd #ffff ; put a really long timeout on the action
7905 BDEF 26 02 &. bne 02
7907 BDF3 20 EC . bra ec ; loop a while back to bde1
7908 BDF5 F6 10 2A ..* ldab 102a ; reading SPSR (just done) & SPDR clears SPIF
7910 BDF9 E7 03 .. stab 03,x
7911 BDFB E6 03 .. ldab 03,x ; return contents of spdr - keypad data!
7918 ; Write a string in the display buffer at 0x0b90 to the display
7919 BE01 F6 00 2C .., ldab 002c
7920 BE04 26 09 &. bne 09 ; to be0f - ret if mem 0x2c != 0
7921 BE06 8D 61 .a bsr dest 61 ; to displayreset - reset display
7922 BE08 8D 06 .. bsr dest 06 ; to jump88 - commit to display
7923 BE0A C6 03 .. ldab #03
7924 BE0C F7 00 2C .., stab 002c
7928 ; writes the display buffer (at 0b90-0b99) to the display
7929 ; enable the SPI system
7930 BE10 CE 10 28 ..( ldx #1028
7931 BE13 1C 00 40 ..@ bset 00,x, #40
7933 BE16 7F 00 1C ... clr 001c
7934 BE19 F6 00 1C ... ldab 001c
7935 BE1C C1 0A .. cmpb #0a
7936 BE1E 24 19 $. bcc 19 ; to be39
7937 BE20 CE 00 01 ... ldx #0001
7939 BE24 F6 00 1C ... ldab 001c
7941 BE28 C3 0B 90 ... addd #0b90
7943 BE2C E6 00 .. ldab 00,x
7944 BE2E C4 7F .. andb #7f ; make sure we don't send a control command
7946 BE31 8D 82 .. bsr dest 82 ; to jump78
7948 BE34 7C 00 1C |.. inc 001c
7949 BE37 20 E0 . bra e0 ; to be19
7950 BE39 CE 00 01 ... ldx #0001
7952 BE3D CC 00 FF ... ldd #00ff
7953 BE40 BD BD B5 ... jsr bdb5 ;jump78
7955 ; disable the SPI system
7956 BE44 CE 10 28 ..( ldx #1028
7957 BE47 1D 00 40 ..@ bclr 00,x, #40
7961 ; stores 0x20 into memory locations 0b90-0b99
7962 ; "blanks out" (with spaces) the display buffer
7963 BE4B 7F 00 1C ... clr 001c
7964 BE4E F6 00 1C ... ldab 001c
7965 BE51 C1 0A .. cmpb #0a
7966 BE53 24 13 $. bcc 13 ; to be68 - rts
7967 BE55 C6 20 . ldab #20
7969 BE58 F6 00 1C ... ldab 001c
7971 BE5C C3 0B 90 ... addd #0b90
7974 BE61 E7 00 .. stab 00,x
7975 BE63 7C 00 1C |.. inc 001c
7976 BE66 20 E6 . bra e6 ; to be4e
7981 ; Clear bit 7 of PortA - display reset
7982 BE69 CE 10 00 ... ldx #1000
7983 BE6C 1D 00 80 .. bclr x,#80
7984 BE6F BD E5 96 ... jsr e596 ;jump115 - 100ms delay
7985 ; Clear bit 7 of PortA - reset line back to high (not active)
7986 BE72 CE 10 00 ... ldx #1000
7987 BE75 1C 00 80 .. bset 00,x, #80
7989 ; set clock polarity
7990 BE78 CE 10 28 ... ldx #1028
7991 BE7B 1C 00 40 ... bset 00,x, #40
7993 BE7E BD E5 96 ... jsr e596 ;jump115 - 100ms delay
7995 ; tell the display controller there are 10 digits
7996 BE81 CE 00 01 ... ldx #0001
7998 BE85 CC 00 CA ... ldd #00ca ;11001010
7999 BE88 BD BD B5 ... jsr bdb5 ;jump78
8002 ; set brightness to 100%
8003 BE8C CE 00 01 ... ldx #0001
8005 BE90 CC 00 E0 ... ldd #00e0 ;11100000
8006 BE93 BD BD B5 ... jsr bdb5 ;jump78
8009 ; revert clock polarity
8010 BE97 CE 10 28 ..( ldx #1028
8011 BE9A 1D 00 40 ... bclr 00,x, #40
8017 ; writes a slot and price to the screen?
8020 BEA0 8D A9 .. bsr a9 ; to be4b - displayblank
8022 BEA3 E6 05 .. ldab 05,x
8023 BEA5 26 1B &. bne 1b
8024 BEA7 F6 00 06 ... ldab 0006
8026 BEAB CE 00 0A ... ldx #000a
8029 BEB0 CB 30 .0 addb #30
8030 BEB2 F7 0B 99 ... stab 0b99 ; write slotnumber/10
8031 BEB5 F6 00 06 ... ldab 0006
8033 BEB8 CE 00 0A ... ldx #000a
8035 BEBD CB 30 .0 addb #30
8036 BEBF F7 0B 98 ... stab 0b98 ; write slotnumber%10
8038 BEC3 EC 00 .. ldd 00,x
8039 BEC5 C4 FF .. andb #ff
8040 BEC7 84 3F .? anda #3f
8041 BEC9 ED 00 .. std 00,x
8042 BECB EC 00 .. ldd 00,x
8043 BECD CE 03 E8 ... ldx #03e8 ; / 1000
8046 BED2 CB 30 .0 addb #30
8049 BED6 E6 06 .. ldab 06,x
8051 BED9 C3 0B 95 ... addd #0b95
8054 BEDE E7 00 .. stab 00,x ; write MSB dollars
8056 BEE1 EC 00 .. ldd 00,x
8057 BEE3 CE 03 E8 ... ldx #03e8 ; %1000
8059 BEE7 CE 00 64 ..d ldx #0064 ; /100
8062 BEEC CB 30 .0 addb #30
8065 BEF0 E6 06 .. ldab 06,x
8067 BEF3 C3 0B 94 ... addd #0b94 ; write LSB dollars
8070 BEF8 E7 00 .. stab 00,x
8072 BEFB EC 00 .. ldd 00,x
8073 BEFD CE 00 64 ..d ldx #0064 ; %100
8075 BF01 CE 00 0A ... ldx #000a ; /10
8078 BF06 CB 30 .0 addb #30
8081 BF0A E6 06 .. ldab 06,x
8083 BF0D C3 0B 93 ... addd #0b93 ; write MSB cents
8086 BF12 E7 00 .. stab 00,x
8088 BF15 EC 00 .. ldd 00,x
8089 BF17 CE 00 0A ... ldx #000a
8091 BF1B CB 30 .0 addb #30
8094 BF1F E6 06 .. ldab 06,x
8096 BF22 C3 0B 92 ... addd #0b92 ; write LSB cents
8099 BF27 E7 00 .. stab 00,x
8100 BF29 F6 00 13 ... ldab 0013
8101 BF2C C1 01 .. cmpb #01
8102 BF2E 22 03 ". bhi 03
8103 BF30 7E BF DE ~.. jmp bfde ;goto32
8105 BF34 E6 05 .. ldab 05,x
8107 BF37 C3 0B 92 ... addd #0b92
8109 BF3B E6 00 .. ldab 00,x
8112 BF3F E6 06 .. ldab 06,x
8114 BF42 C3 0B 91 ... addd #0b91
8117 BF47 E7 00 .. stab 00,x
8119 BF4A E6 05 .. ldab 05,x
8121 BF4D C3 0B 93 ... addd #0b93
8123 BF51 E6 00 .. ldab 00,x
8126 BF55 E6 06 .. ldab 06,x
8128 BF58 C3 0B 92 ... addd #0b92
8131 BF5D E7 00 .. stab 00,x
8132 BF5F F6 00 13 ... ldab 0013
8133 BF62 C1 02 .. cmpb #02
8134 BF64 26 10 &. bne 10
8135 BF66 C6 2E .. ldab #2e
8138 BF6A E6 06 .. ldab 06,x
8140 BF6D C3 0B 93 ... addd #0b93
8143 BF72 E7 00 .. stab 00,x
8144 BF74 20 68 h bra 68 ;goto32
8146 BF76 C1 04 .. cmpb #04
8147 BF78 26 26 && bne 26
8149 BF7B E6 05 .. ldab 05,x
8151 BF7E C3 0B 94 ... addd #0b94
8153 BF82 E6 00 .. ldab 00,x
8156 BF86 E6 06 .. ldab 06,x
8158 BF89 C3 0B 93 ... addd #0b93
8161 BF8E E7 00 .. stab 00,x
8162 BF90 C6 2E .. ldab #2e ; "."
8165 BF94 E6 06 .. ldab 06,x
8167 BF97 C3 0B 94 ... addd #0b94
8170 BF9C E7 00 .. stab 00,x
8172 BFA0 C1 08 .. cmpb #08
8173 BFA2 26 3A &: bne 3a
8175 BFA5 E6 05 .. ldab 05,x
8177 BFA8 C3 0B 94 ... addd #0b94
8179 BFAC E6 00 .. ldab 00,x
8182 BFB0 E6 06 .. ldab 06,x
8184 BFB3 C3 0B 93 ... addd #0b93
8187 BFB8 E7 00 .. stab 00,x
8189 BFBB E6 05 .. ldab 05,x
8191 BFBE C3 0B 95 ... addd #0b95
8193 BFC2 E6 00 .. ldab 00,x
8196 BFC6 E6 06 .. ldab 06,x
8198 BFC9 C3 0B 94 ... addd #0b94
8201 BFCE E7 00 .. stab 00,x
8202 BFD0 C6 2E .. ldab #2e ; "."
8205 BFD4 E6 06 .. ldab 06,x
8207 BFD7 C3 0B 95 ... addd #0b95
8210 BFDC E7 00 .. stab 00,x
8212 BFDE F6 0B C0 ... ldab 0bc0
8213 BFE1 C4 01 .. andb #01
8214 BFE3 26 0E &. bne 0e ; to bff3
8215 BFE5 F6 0B C0 ... ldab 0bc0
8216 BFE8 C4 04 .. andb #04
8217 BFEA 26 07 &. bne 07 ; to bff3
8218 BFEC F6 0B C0 ... ldab 0bc0
8219 BFEF C4 08 .. andb #08
8220 BFF1 27 15 '. beq 15 ; to c008
8221 BFF3 F6 00 17 ... ldab 0017
8222 BFF6 C4 08 .. andb #08
8223 BFF8 26 0E &. bne 0e ; to c008
8224 ; plonk a dollar sign somewhere
8225 BFFA C6 24 .$ ldab #24 ; "$"
8228 BFFE E6 06 .. ldab 06,x
8230 C001 C3 0B 96 ... addd #0b96
8233 C006 E7 00 .. stab 00,x
8234 C008 BD BE 69 ..i jsr be69 ;displayreset
8235 C00B F6 00 13 ... ldab 0013
8236 C00E C1 01 .. cmpb #01
8237 C010 23 17 #. bls 17
8238 C012 CE 10 28 ..( ldx #1028
8239 C015 1C 00 40 ... bset 00,x, #40 ; enable SPI send
8240 C018 CE 00 01 ... ldx #0001
8242 C01C CC 00 20 .. ldd #0020
8243 C01F BD BD B5 ... jsr bdb5 ;jump78 - send space to display
8245 C023 CE 10 28 ..( ldx #1028 ; disable SPI send
8246 C026 1D 00 40 ... bclr 00,x, #40
8247 C029 BD BE 10 ... jsr be10 ;jump88 - write buffer to display
8252 ; part of the display: function abstraction
8253 ; D points to a string, and the stack contains the length of the message
8254 ; Also seems to handle scrolling of long strings?
8258 ; need 002c to be zero to display stuff
8259 C031 F6 00 2C .., ldab 002c
8260 C034 27 03 '. beq 03
8261 C036 7E C0 B7 ~.. jmp c0b7 ;goto33 (bail out)
8263 C039 FC 00 03 ... ldd 0003
8265 C03D A3 02 .. subd 02,x
8266 C03F 25 0A %. bcs 0a ; to c04b
8268 C041 E6 07 .. ldab 07,x
8270 C044 E3 02 .. addd 02,x
8271 C046 B3 00 03 ... subd 0003
8272 C049 24 06 $. bcc 06 ; to c051
8275 C04C EC 02 .. ldd 02,x
8276 C04E FD 00 03 ... std 0003
8277 C051 FE 00 03 ... ldx 0003
8279 C055 FF 00 03 ... stx 0003
8283 C05B ED 00 .. std 00,x
8284 C05D C6 09 .. ldab #09
8285 C05F F7 00 18 ... stab 0018
8286 C062 F6 00 18 ... ldab 0018
8287 C065 C1 FF .. cmpb #ff
8288 C067 24 46 $F bcc 46 ; to c0af (jump 70 - write string)
8290 C06A E6 07 .. ldab 07,x
8292 C06D E3 02 .. addd 02,x
8293 C06F A3 00 .. subd 00,x
8294 C071 24 05 $. bcc 05
8296 C074 EC 02 .. ldd 02,x
8297 C076 ED 00 .. std 00,x
8299 C079 EE 00 .. ldx 00,x
8300 C07B E6 00 .. ldab 00,x
8301 C07D C1 40 .@ cmpb #40
8302 C07F 24 13 $. bcc 13
8304 C082 EE 00 .. ldx 00,x
8305 C084 E6 00 .. ldab 00,x
8307 C087 F6 00 18 ... ldab 0018
8309 C08B C3 0B 90 ... addd #0b90
8312 C090 E7 00 .. stab 00,x
8315 C095 EE 00 .. ldx 00,x
8316 C097 E6 00 .. ldab 00,x
8317 C099 CB C0 .. addb #c0
8319 C09C F6 00 18 ... ldab 0018
8321 C0A0 C3 0B 90 ... addd #0b90
8324 C0A5 E7 00 .. stab 00,x
8328 C0AA 7A 00 18 z.. dec 0018
8330 C0AF BD BE 01 ... jsr be01 ;jump70
8331 C0B2 C6 03 .. ldab #03
8332 C0B4 F7 00 2C .., stab 002c
8338 ;Display a string. D points to the string, which is NULL-terminated
8343 C0BC F6 00 1F ... ldab 001f
8344 C0BF C4 04 .. andb #04
8345 C0C1 26 03 &. bne 03
8346 C0C3 7F 00 2C .., clr 002c
8347 C0C6 F6 00 2C .., ldab 002c
8348 C0C9 26 13 &. bne 13 ; to c0de
8351 C0CD FD 00 03 ... std 0003
8352 C0D0 7F 00 2C .., clr 002c
8353 C0D3 CE 00 09 ... ldx #0009
8356 C0D8 EC 02 .. ldd 02,x
8357 C0DA BD C0 2E ... jsr c02e ;jump71
8363 C0E0 F6 00 15 ... ldab 0015
8364 C0E3 2C 02 ,. bge 02
8366 C0E7 CE 00 1D ... ldx #001d
8367 C0EA 1C 00 20 .. bset 00,x, #20
8368 C0ED BD D7 30 . jsr d730 ;jump202
8369 C0EE 83 00 00 .0. subd #0000
8370 C0F3 27 09 '. beq 09
8371 C0F5 CE 00 1D ... ldx #001d
8372 C0F8 1D 00 20 .. bclr 00,x, #20
8377 C0FE CE 00 14 ... ldx #0014
8378 C101 1C 00 01 ... bset 00,x, #01
8379 C104 F6 00 14 ... ldab 0014
8380 C107 F7 38 00 .8. stab 3800 ; note acceptor business
8381 C10A F6 00 15 ... ldab 0015
8382 C10D C4 1F .. andb #1f
8383 C10F 26 03 &. bne 03
8384 C111 7E C3 1B ~.. jmp c31b ;goto34
8385 C114 C6 14 .. ldab #14
8386 C116 F7 00 31 ..1 stab 0031
8387 C119 F6 00 15 ... ldab 0015
8388 C11C 2D 15 -. blt 15
8389 C11E F6 00 31 ..1 ldab 0031
8390 C121 C1 0A .. cmpb #0a
8391 C123 22 0C ". bhi 0c
8392 C125 BD C5 D3 ... jsr c5d3 ;jump6
8393 C128 CE 00 1D ... ldx #001d
8394 C12B 1D 00 20 .. bclr 00,x, #20
8400 C133 FC 00 3E ..> ldd 003e
8401 C136 F3 00 40 ..@ addd 0040
8402 C139 FD 00 40 ..@ std 0040
8405 C13E FD 00 3E ..> std 003e
8406 C141 F6 00 15 ... ldab 0015
8407 C144 C4 1F .. andb #1f
8409 C147 BD FE 32 ..2 jsr fe32 ;jump25
8410 C14A C1 64 00 01 .... ; array data for jump25
8411 C14E C1 BA 00 01 ....
8412 C152 C2 10 00 02 ....
8413 C156 C2 66 00 04 .f..
8414 C15A C2 BB 00 08 ....
8415 C15E C3 0E FF F0 ....
8416 C162 00 00 .. ; end of array data
8417 C164 FC 0C DD ... ldd 0cdd
8418 C167 83 FF FF ... subd #ffff
8419 C16A 26 05 &. bne 05
8422 C16E FD 0C DD ... std 0cdd
8423 C171 FE 0C DD ... ldx 0cdd
8425 C175 FF 0C DD ... stx 0cdd
8426 C178 CE 00 64 ..d ldx #0064
8428 C17C CC 00 00 ... ldd #0000
8431 C181 CC 0C F3 ... ldd #0cf3
8432 C184 BD FB DF ... jsr fbdf ;jump46
8435 C189 FE 0C F5 ... ldx 0cf5
8437 C18D FC 0C F3 ... ldd 0cf3
8440 C192 CE FF 9C ... ldx #ff9c
8442 C196 CC 00 63 ..c ldd #0063
8444 C19A A3 02 .. subd 02,x
8447 C19E 26 02 &. bne 02
8448 C1A0 A3 04 .. subd 04,x
8451 C1A4 24 11 $. bcc 11
8452 C1A6 CE 00 64 ..d ldx #0064
8454 C1AA CC FF 9C ... ldd #ff9c
8457 C1AF CC 0C F3 ... ldd #0cf3
8458 C1B2 BD FB DF ... jsr fbdf ;jump46
8461 C1B7 7E C3 0E ~.. jmp c30e ;goto35
8462 C1BA FC 0C DF ... ldd 0cdf
8463 C1BD 83 FF FF ... subd #ffff
8464 C1C0 26 05 &. bne 05
8467 C1C4 FD 0C DF ... std 0cdf
8468 C1C7 FE 0C DF ... ldx 0cdf
8470 C1CB FF 0C DF ... stx 0cdf
8471 C1CE CE 00 C8 ... ldx #00c8
8473 C1D2 CC 00 00 ... ldd #0000
8476 C1D7 CC 0C F7 ... ldd #0cf7
8477 C1DA BD FB DF ... jsr fbdf ;jump46
8480 C1DF FE 0C F9 ... ldx 0cf9
8482 C1E3 FC 0C F7 ... ldd 0cf7
8485 C1E8 CE FF 38 ..8 ldx #ff38 ; -200
8487 C1EC CC 00 C7 ... ldd #00c7
8489 C1F0 A3 02 .. subd 02,x
8492 C1F4 26 02 &. bne 02
8493 C1F6 A3 04 .. subd 04,x
8496 C1FA 24 11 $. bcc 11
8497 C1FC CE 00 C8 ... ldx #00c8
8499 C200 CC FF 38 ..8 ldd #ff38 ; -200
8502 C205 CC 0C F7 ... ldd #0cf7
8503 C208 BD FB DF ... jsr fbdf ;jump46
8506 C20D 7E C3 0E ~.. jmp c30e ;goto35
8507 C210 FC 0C E1 ... ldd 0ce1
8508 C213 83 FF FF ... subd #ffff
8509 C216 26 05 &. bne 05
8512 C21A FD 0C E1 ... std 0ce1
8513 C21D FE 0C E1 ... ldx 0ce1
8515 C221 FF 0C E1 ... stx 0ce1
8516 C224 CE 01 F4 ... ldx #01f4
8518 C228 CC 00 00 ... ldd #0000
8521 C22D CC 0C FB ... ldd #0cfb
8522 C230 BD FB DF ... jsr fbdf ;jump46
8525 C235 FE 0C FD ... ldx 0cfd
8527 C239 FC 0C FB ... ldd 0cfb
8530 C23E CE FE 0C ... ldx #fe0c
8532 C242 CC 01 F3 ... ldd #01f3
8534 C246 A3 02 .. subd 02,x
8537 C24A 26 02 &. bne 02
8538 C24C A3 04 .. subd 04,x
8541 C250 24 11 $. bcc 11
8542 C252 CE 01 F4 ... ldx #01f4
8544 C256 CC FE 0C ... ldd #fe0c
8547 C25B CC 0C FB ... ldd #0cfb
8548 C25E BD FB DF ... jsr fbdf ;jump46
8551 C263 7E C3 0E ~.. jmp c30e ;goto35
8552 C266 FC 0C E3 ... ldd 0ce3
8553 C269 83 FF FF ... subd #ffff
8554 C26C 26 05 &. bne 05
8557 C270 FD 0C E3 ... std 0ce3
8558 C273 FE 0C E3 ... ldx 0ce3
8560 C277 FF 0C E3 ... stx 0ce3
8561 C27A CE 03 E8 ... ldx #03e8
8563 C27E CC 00 00 ... ldd #0000
8566 C283 CC 0C FF ... ldd #0cff
8567 C286 BD FB DF ... jsr fbdf ;jump46
8570 C28B FE 0D 01 ... ldx 0d01
8572 C28F FC 0C FF ... ldd 0cff
8575 C294 CE FC 18 ... ldx #fc18
8577 C298 CC 03 E7 ... ldd #03e7
8579 C29C A3 02 .. subd 02,x
8582 C2A0 26 02 &. bne 02
8583 C2A2 A3 04 .. subd 04,x
8586 C2A6 24 11 $. bcc 11
8587 C2A8 CE 03 E8 ... ldx #03e8
8589 C2AC CC FC 18 ... ldd #fc18
8592 C2B1 CC 0C FF ... ldd #0cff
8593 C2B4 BD FB DF ... jsr fbdf ;jump46
8597 C2BB FC 0C E5 ... ldd 0ce5
8598 C2BE 83 C3 4F ..O subd #c34f
8599 C2C1 26 05 &. bne 05
8602 C2C5 FD 0C E5 ... std 0ce5
8603 C2C8 FE 0C E5 ... ldx 0ce5
8605 C2CC FF 0C E5 ... stx 0ce5
8606 C2CF CE 07 D0 ... ldx #07d0
8608 C2D3 CC 00 00 ... ldd #0000
8611 C2D8 CC 0D 03 ... ldd #0d03
8612 C2DB BD FB DF ... jsr fbdf ;jump46
8615 C2E0 FE 0D 05 ... ldx 0d05
8617 C2E4 FC 0D 03 ... ldd 0d03
8620 C2E9 CE D9 30 ..0 ldx #d930
8622 C2ED CC 05 F5 ... ldd #05f5
8624 C2F1 A3 02 .. subd 02,x
8627 C2F5 26 02 &. bne 02
8628 C2F7 A3 04 .. subd 04,x
8631 C2FB 24 11 $. bcc 11
8632 C2FD CE 26 D0 .&. ldx #26d0
8634 C301 CC FA 0A ... ldd #fa0a
8637 C306 CC 0D 03 ... ldd #0d03
8638 C309 BD FB DF ... jsr fbdf ;jump46
8642 C30E F6 00 15 ... ldab 0015
8643 C311 2C 02 ,. bge 02
8645 C315 CE 00 15 ... ldx #0015
8646 C318 1D 00 .. bclr add,x 00,x
8647 C31A 1F CE 00 1D .... brclr ce,x 00 1d
8650 C31E 1D 00 .. bclr add,x 00,x
8657 C325 F6 10 00 ... ldab 1000
8658 C328 C4 01 .. andb #01
8659 C32A 26 13 &. bne 13
8660 C32C 7C 00 7D |.} inc 007d
8661 C32F F6 00 7D ..} ldab 007d
8662 C332 C1 05 .. cmpb #05
8663 C334 23 03 #. bls 03
8664 C336 7F 00 7D ..} clr 007d
8665 C339 7F 00 7E ..~ clr 007e
8666 C33C 7E C4 2F ~./ jmp c42f ;goto36
8667 C33F 7C 00 7E |.~ inc 007e
8668 C342 F6 00 7E ..~ ldab 007e
8669 C345 C1 07 .. cmpb #07
8670 C347 23 17 #. bls 17
8671 C349 7F 00 7D ..} clr 007d
8672 C34C 7F 00 7E ..~ clr 007e
8673 C34F 7F 00 7C ..| clr 007c
8674 C352 F6 00 15 ... ldab 0015
8675 C355 2C 03 ,. bge 03
8676 C357 7F 00 2C .., clr 002c
8677 C35A CE 00 15 ... ldx #0015
8678 C35D 1D 00 80 .. bclr 00,x, #80
8679 C35F F6 00 7E ... ldab 007e
8680 C363 26 03 .. bne 03 ; to c368
8681 C365 7E C4 2F ~./ jmp c42f ;goto36
8682 C368 F6 00 7D ..} ldab 007d
8683 C36B C1 01 .. cmpb #01
8684 C36D 22 03 ". bhi 03
8685 C36F 7E C4 2F ~./ jmp c42f ;goto36
8686 C372 CE 00 15 ... ldx #0015
8687 C375 1C 00 80 .. bset 00,x, #80
8688 C378 CE 0B C1 ... ldx #0bc1
8689 C37B 1D 00 08 .. bclr 00,x #08
8690 C37E F6 00 1D ... ldab 001d
8691 C381 C4 20 . andb #20
8692 C383 27 03 '. beq 03
8693 C385 7E C4 29 ~.) jmp c429 ;goto38
8694 C388 C6 02 .. ldab #02
8695 C38A F7 00 2C .., stab 002c
8696 C38D 7F 00 3A ..: clr 003a
8697 C390 CE 00 1B ... ldx #001b
8698 C393 1D 00 40 .. bclr 00,x, #40
8699 C396 7F 00 25 ..% clr 0025
8700 C399 CE 00 21 ..! ldx #0021
8701 C39C 1D 00 08 ... bclr 00,x, #08
8702 C39F CE 00 14 ... ldx #0014
8703 C3A2 1D 00 01 .. bclr 00,x, #01
8704 C3A5 F6 00 14 ... ldab 0014
8705 C3A8 F7 38 00 .8. stab 3800 ; note acceptor business
8706 C3AB 7C 00 7C |.| inc 007c
8707 C3AE CE 00 15 ... ldx #0015
8708 C3B1 1D 00 1F .. bclr 00,x, #1f
8709 C3B4 F6 00 7C ..| ldab 007c
8710 C3B7 C1 01 .. cmpb #01
8711 C3B9 26 0E &. bne 0e
8712 C3BB CE 00 15 ... ldx #0015
8713 C3BE 1C 00 01 .. bset 00,x, #01
8714 C3C1 CC 00 64 ..d ldd #0064
8715 C3C4 FD 00 3E ..> std 003e
8717 C3C9 F6 00 7C ..| ldab 007c
8718 C3CC C1 02 .. cmpb #02
8719 C3CE 26 0E &. bne 0e
8720 C3D0 CE 00 15 ... ldx #0015
8721 C3D3 1C 00 02 .. bset 00,x, #02
8722 C3D6 CC 00 C8 ... ldd #00c8
8723 C3D9 FD 00 3E ..> std 003e
8725 C3DE F6 00 7C ..| ldab 007c
8726 C3E1 C1 02 .. cmpb #02
8727 C3E3 23 15 #. bls 15
8728 C3E5 F6 00 7C ..| ldab 007c
8729 C3E8 C1 06 .. cmpb #06
8730 C3EA 24 0E $. bcc 0e
8731 C3EC CE 00 15 ... ldx #0015
8732 C3EF 1C 00 .. bset 00,x, #04
8733 C3F2 CC 01 F4 ... ldd #01f4
8734 C3F5 FD 00 3E ..> std 003e
8736 C3FA F6 00 7C ..| ldab 007c
8737 C3FD C1 05 .. cmpb #05
8738 C3FF 23 15 #. bls 15
8739 C401 F6 00 7C ..| ldab 007c
8740 C404 C1 0B .. cmpb #0b
8741 C406 24 0E $. bcc 0e
8742 C408 CE 00 15 ... ldx #0015
8743 C40B 1C 00 08 .. bset 00,x, #08
8744 C40E CC 03 E8 ... ldd #03e8
8745 C411 FD 00 3E ..> std 003e
8746 C414 20 13 . bra 13 ; to c429
8747 C416 F6 00 7C ..| ldab 007c
8748 C419 C1 0B .. cmpb #0b
8749 C41B 23 0C #. bls 0c
8750 C41D CE 00 15 ... ldx #0015
8751 C420 1C 00 10 .. bset 00,x, #10
8752 C423 CC 07 D0 ... ldd #07d0
8753 C426 FD 00 3E ..> std 003e
8755 C429 7F 00 7D ..} clr 007d
8756 C42C 7F 00 7E ..~ clr 007e
8761 ; tweaks the changer output lines (at 3000) that correspond with the bitmask of
8762 ; 0001. It pulls the lines with 1 set in the bitmask low (active) for 100ms
8763 C430 F6 00 01 ... ldab 0001
8765 C434 F4 00 1A ... andb 001a ; 0x3000 buffer - changer outputs
8766 C437 F7 00 1A ... stab 001a
8767 C43A F6 00 1A ... ldab 001a
8768 C43D F7 30 00 .0. stab 3000 ; coin mask
8769 C440 CC 00 64 ..d ldd #0064
8770 C443 BD E5 71 ..q jsr e571 ;msdelay
8771 C446 F6 00 01 ... ldab 0001
8772 C449 FA 00 1A ... orb 001a
8773 C44C F7 00 1A ... stab 001a
8774 C44F F6 00 1A ... ldab 001a
8775 C452 F7 30 00 .0. stab 3000 ; changer outputs again
8779 C456 FC 00 40 ..@ ldd 0040
8780 C459 26 03 &. bne 03
8781 C45B 7E C5 C6 ~.. jmp c5c6 ;goto39
8782 C45E CE 00 1A ... ldx #001a
8783 C461 1C 00 01 .. bset 00,x, #01
8784 C464 F6 00 1A ... ldab 001a
8785 C467 F7 30 00 .0. stab 3000 ; changer accept off
8786 C46A CC 03 E8 ... ldd #03e8
8787 C46D BD E5 71 ..q jsr e571 ;msdelay
8789 C470 FC 00 40 ..@ ldd 0040
8790 C473 83 00 00 ... subd #0000
8791 C476 22 03 ". bhi 03
8792 C478 7E C5 B0 ~.. jmp c5b0 ;goto40
8793 C47B F6 00 1B ... ldab 001b
8794 C47E C4 20 . andb #20
8795 C480 27 1B '. beq 1b
8796 C482 FC 00 40 ..@ ldd 0040
8797 C485 83 03 E8 ... subd #03e8
8798 C488 25 13 %. bcs 13
8799 C48A C6 28 .( ldab #28
8800 C48C F7 00 01 ... stab 0001
8801 C48F CC FC 18 ... ldd #fc18
8802 C492 F3 00 40 ..@ addd 0040
8803 C495 FD 00 40 ..@ std 0040
8804 C498 8D 96 .. bsr dest 96
8805 C49A 7E C5 7C ~.| jmp c57c ;goto41
8806 C49D F6 00 1B ... ldab 001b
8807 C4A0 C4 20 . andb #20
8808 C4A2 27 1C '. beq 1c
8809 C4A4 FC 00 40 ..@ ldd 0040
8810 C4A7 83 00 64 ..d subd #0064
8811 C4AA 25 14 %. bcs 14
8812 C4AC C6 30 .0 ldab #30
8813 C4AE F7 00 01 ... stab 0001
8814 C4B1 CC FF 9C ... ldd #ff9c
8815 C4B4 F3 00 40 ..@ addd 0040
8816 C4B7 FD 00 40 ..@ std 0040
8817 C4BA BD C4 30 ..0 jsr c430 ;jump26
8818 C4BD 7E C5 7C ~.| jmp c57c ;goto41
8819 C4C0 FC 0B DD ... ldd 0bdd
8820 C4C3 27 3C '< beq 3c
8821 C4C5 FC 00 40 ..@ ldd 0040
8822 C4C8 B3 0B DD ... subd 0bdd
8823 C4CB 25 34 %4 bcs 34
8824 C4CD F6 0C DB ... ldab 0cdb
8825 C4D0 26 07 &. bne 07
8826 C4D2 F6 00 1B ... ldab 001b
8827 C4D5 C4 20 . andb #20
8828 C4D7 27 28 '( beq 28
8829 C4D9 FC 0B DD ... ldd 0bdd
8832 C4DE F9 00 41 ..A adcb 0041
8833 C4E1 B9 00 40 ..@ adca 0040
8834 C4E4 FD 00 40 ..@ std 0040
8835 C4E7 F6 0B DA ... ldab 0bda
8836 C4EA F7 00 01 ... stab 0001
8837 C4ED BD C4 30 ..0 jsr c430 ;jump26
8838 C4F0 F6 00 1B ... ldab 001b
8839 C4F3 C4 20 . andb #20
8840 C4F5 26 08 &. bne 08
8841 C4F7 F6 0C DB ... ldab 0cdb
8842 C4FA 27 03 '. beq 03
8843 C4FC 7A 0C DB z.. dec 0cdb
8845 C501 FC 0B DF ... ldd 0bdf
8846 C504 27 3C '< beq 3c
8847 C506 FC 00 40 ..@ ldd 0040
8848 C509 B3 0B DF ... subd 0bdf
8849 C50C 25 34 %4 bcs 34
8850 C50E F6 0C DA ... ldab 0cda
8851 C511 26 07 &. bne 07
8852 C513 F6 00 1B ... ldab 001b
8853 C516 C4 20 . andb #20
8854 C518 27 28 '( beq 28
8855 C51A FC 0B DF ... ldd 0bdf
8858 C51F F9 00 41 ..A adcb 0041
8859 C522 B9 00 40 ..@ adca 0040
8860 C525 FD 00 40 ..@ std 0040
8861 C528 F6 0B DB ... ldab 0bdb
8862 C52B F7 00 01 ... stab 0001
8863 C52E BD C4 30 ..0 jsr c430 ;jump26
8864 C531 F6 00 1B ... ldab 001b
8865 C534 C4 20 . andb #20
8866 C536 26 08 &. bne 08
8867 C538 F6 0C DA ... ldab 0cda
8868 C53B 27 03 '. beq 03
8869 C53D 7A 0C DA z.. dec 0cda
8871 C542 FC 0B E1 ... ldd 0be1
8872 C545 27 30 '0 beq 30
8873 C547 FC 00 40 ..@ ldd 0040
8874 C54A B3 0B E1 ... subd 0be1
8875 C54D 25 28 %( bcs 28
8876 C54F FC 0B E1 ... ldd 0be1
8879 C554 F9 00 41 ..A adcb 0041
8880 C557 B9 00 40 ..@ adca 0040
8881 C55A FD 00 40 ..@ std 0040
8882 C55D F6 0B DC ... ldab 0bdc
8883 C560 F7 00 01 ... stab 0001
8884 C563 BD C4 30 ..0 jsr c430 ;jump26
8885 C566 F6 00 1B ... ldab 001b
8886 C569 C4 20 . andb #20
8887 C56B 26 08 &. bne 08
8888 C56D F6 0C D9 ... ldab 0cd9
8889 C570 27 03 '. beq 03
8890 C572 7A 0C D9 z.. dec 0cd9
8894 C579 FD 00 40 ..@ std 0040
8896 C57C CC 01 2C .., ldd #012c
8897 C57F BD E5 71 ..q jsr e571 ;msdelay
8898 C582 F6 00 1B ... ldab 001b
8899 C585 C4 20 . andb #20
8900 C587 26 24 &$ bne 24
8901 C589 CE 00 1A ... ldx #001a
8902 C58C 1D 00 01 .. bclr 00,x, #01
8903 C58F F6 00 1A ... ldab 001a
8904 C592 F7 30 00 .0. stab 3000 ; changer accept' low
8905 C595 CC 00 0C ... ldd #000c
8906 C598 BD E5 71 ..q jsr e571 ;msdelay
8907 C59B CE 00 1A ... ldx #001a
8908 C59E 1C 00 01 .. bset 00,x, #01
8909 C5A1 F6 00 1A ... ldab 001a
8910 C5A4 F7 30 00 .0. stab 3000 ; changer accept' high
8911 C5A7 CC 00 23 ..# ldd #0023
8912 C5AA BD E5 71 ..q jsr e571 ;msdelay
8913 C5AD 7E C4 70 ~.p jmp c470 ;goto42
8915 C5B0 F6 0B C0 ... ldab 0bc0
8916 C5B3 C4 04 .. andb #04
8917 C5B5 27 0F '. beq 0f
8918 C5B7 F6 00 1B ... ldab 001b
8919 C5BA C4 20 . andb #20
8920 C5BC 27 08 '. beq 08
8921 C5BE C6 38 .8 ldab #38
8922 C5C0 F7 00 01 ... stab 0001
8923 C5C3 BD C4 30 ..0 jsr c430 ;jump26
8925 C5C6 CE 00 21 ..! ldx #0021
8926 C5C9 1D 00 10 ... bclr 00,x, #10
8927 C5CC CE 00 1B ... ldx #001b
8928 C5CF 1D 00 .. bclr add,x 00,x
8932 C5D3 F6 00 15 ... ldab 0015
8933 C5D6 C4 1F .. andb #1f
8934 C5D8 26 03 &. bne 03
8935 C5DA 7E C6 7C ~.| jmp c67c ;goto43
8936 C5DD CC 00 C8 ... ldd #00c8
8937 C5E0 BD E5 71 ..q jsr e571 ;msdelay
8938 C5E3 FC 00 3E ..> ldd 003e
8939 C5E6 27 58 'X beq 58
8940 C5E8 F6 00 15 ... ldab 0015
8941 C5EB C4 1F .. andb #1f
8943 C5EE BD FE 32 ..2 jsr fe32 ;jump25
8944 C5F1 C6 0B 00 01 .. ; array data for jump25
8950 C609 00 00 .. ;end of array data
8951 C60B CC FF 9C ... ldd #ff9c
8952 C60E F3 00 3E ..> addd 003e
8953 C611 FD 00 3E ..> std 003e
8955 C616 CC FF 38 ..8 ldd #ff38
8956 C619 F3 00 3E ..> addd 003e
8957 C61C FD 00 3E ..> std 003e
8959 C621 CC FE 0C ... ldd #fe0c
8960 C624 F3 00 3E ..> addd 003e
8961 C627 FD 00 3E ..> std 003e
8963 C62C CC FC 18 ... ldd #fc18
8964 C62F F3 00 3E ..> addd 003e
8965 C632 FD 00 3E ..> std 003e
8967 C637 CC F8 30 ..0 ldd #f830
8968 C63A F3 00 3E ..> addd 003e
8969 C63D FD 00 3E ..> std 003e
8970 C640 CE 00 14 ... ldx #0014
8971 C643 1D 00 02 ... bclr 00,x, #02
8972 C646 F6 00 14 ... ldab 0014
8973 C649 F7 38 00 .8. stab 3800 ; bill acceptor
8974 C64C CC 00 1E ... ldd #001e
8975 C64F BD E5 71 ..q jsr e571 ;msdelay
8976 C652 CE 00 15 ... ldx #0015
8977 C655 1D 00 .. bclr add,x 00,x
8978 C657 1F CE 00 14 .... brclr ce,x 00 14
8979 C65B 1C 00 02 ... bset 00,x, #02
8980 C65E F6 00 14 ... ldab 0014
8981 C661 F7 38 00 .8. stab 3800 ; bill acceptor
8982 C664 CC 00 19 ... ldd #0019
8983 C667 BD E5 71 ..q jsr e571 ;msdelay
8984 C66A CE 00 14 ... ldx #0014
8985 C66D 1C 00 01 .. bset 00,x, #01
8986 C670 F6 00 14 ... ldab 0014
8987 C673 F7 38 00 .8. stab 3800 ; bill acceptor
8988 C676 CC 00 19 ... ldd #0019
8989 C679 BD E5 71 ..q jsr e571 ;msdelay
8995 C67D F6 00 30 ..0 ldab 0030
8996 C680 26 55 &U bne 55
8997 C682 F6 0B C0 ... ldab 0bc0
8998 C685 C4 04 .. andb #04
8999 C687 26 4E &N bne 4e
9000 C689 C6 27 .' ldab #27
9001 C68B F7 10 2D ..- stab 102d ; disable SCI transmission
9002 C68E C6 07 .. ldab #07
9003 C690 F7 10 2B ..+ stab 102b ; 600 baud
9004 C693 CE 00 1A ... ldx #001a
9005 C696 1C 00 .. bset 00,x, #04
9006 C699 F6 00 1A ... ldab 001a
9007 C69C F7 30 00 .0. stab 3000 ; keypad strobe
9008 C69F CC 00 14 ... ldd #0014
9009 C6A2 BD E5 71 ..q jsr e571 ;msdelay
9010 C6A5 F6 0B C0 ... ldab 0bc0
9011 C6A8 C4 01 .. andb #01
9012 C6AA 27 06 '. beq 06
9013 C6AC CE 0B C1 ... ldx #0bc1
9014 C6AF 1C 00 01 ... bset 00,x, #01
9015 C6B2 F6 0B C0 ... ldab 0bc0
9016 C6B5 C4 04 .. andb #04
9017 C6B7 27 06 '. beq 06
9018 C6B9 CE 0B C1 ... ldx #0bc1
9019 C6BC 1C 00 02 ... bset 00,x, #02
9020 C6BF CE 00 1A ... ldx #001a
9021 C6C2 1D 00 04 ... bclr 00,x, #04 ; keypad strobe finish
9022 C6C5 F6 00 1A ... ldab 001a
9023 C6C8 F7 30 00 .0. stab 3000
9024 C6CB C6 96 .. ldab #96
9025 C6CD F7 00 30 ..0 stab 0030
9026 C6D0 C6 1E .. ldab #1e
9027 C6D2 F7 00 35 ..5 stab 0035
9029 C6D7 F6 18 00 ... ldab 1800
9030 C6DA 2D 2A -* blt 2a
9031 C6DC F6 00 07 ... ldab 0007
9032 C6DF 26 25 &% bne 25
9033 C6E1 CE 00 1A ... ldx #001a
9034 C6E4 1D 00 02 ... bclr 00,x, #02
9035 C6E7 F6 00 1A ... ldab 001a
9036 C6EA F7 30 00 .0. stab 3000 ; changer send' low
9037 C6ED C6 64 .d ldab #64
9038 C6EF F7 00 2D ..- stab 002d
9039 C6F2 CC 00 32 ..2 ldd #0032
9040 C6F5 BD E5 71 ..q jsr e571 ;msdelay
9041 C6F8 CE 00 1A ... ldx #001a
9042 C6FB 1C 00 02 ... bset 00,x, #02
9043 C6FE F6 00 1A ... ldab 001a
9044 C701 F7 30 00 .0. stab 3000 ; changer send' high
9046 C706 F6 00 2D ..- ldab 002d
9047 C709 26 29 &) bne 29
9048 C70B CE 00 1A ... ldx #001a
9049 C70E 1D 00 01 ... bclr 00,x, #01
9050 C711 F6 00 1A ... ldab 001a
9051 C714 F7 30 00 .0. stab 3000 ; changer accept' low
9052 C717 CC 00 0C ... ldd #000c
9053 C71A BD E5 71 ..q jsr e571 ;msdelay
9054 C71D CE 00 1A ... ldx #001a
9055 C720 1C 00 01 ... bset 00,x, #01
9056 C723 F6 00 1A ... ldab 001a
9057 C726 F7 30 00 .0. stab 3000 ; changer accept' high
9058 C729 CC 00 23 ..# ldd #0023
9059 C72C BD E5 71 ..q jsr e571 ;msdelay
9060 C72F C6 64 .d ldab #64
9061 C731 F7 00 2D ..- stab 002d
9062 C734 F6 00 21 ..! ldab 0021
9063 C737 C4 10 .. andb #10
9064 C739 27 45 'E beq 45
9065 C73B F6 00 11 ... ldab 0011
9066 C73E C4 04 .. andb #04
9067 C740 26 1A &. bne 1a
9068 C742 FC 00 40 ..@ ldd 0040
9069 C745 F3 00 3E ..> addd 003e
9070 C748 B3 00 50 ..P subd 0050
9071 C74B 25 0F %. bcs 0f
9072 C74D F6 0B C0 ... ldab 0bc0
9073 C750 C4 04 .. andb #04
9074 C752 26 08 &. bne 08
9075 C754 CE 00 21 ..! ldx #0021
9076 C757 1D 00 10 ... bclr 00,x, #10
9078 C75C F6 0B C0 ... ldab 0bc0
9079 C75F C4 08 .. andb #08
9080 C761 27 03 '. beq 03
9081 C763 BD C5 D3 ... jsr c5d3 ;jump6
9082 C766 FC 0B DD ... ldd 0bdd
9083 C769 26 12 &. bne 12
9084 C76B FC 0B DF ... ldd 0bdf
9085 C76E 26 0D &. bne 0d
9086 C770 FC 0B E1 ... ldd 0be1
9087 C773 26 08 &. bne 08
9088 C775 CE 00 21 ..! ldx #0021
9089 C778 1D 00 10 ... bclr 00,x, #10
9091 C77D BD C4 56 ..V jsr c456 ;jump47
9092 C780 F6 00 15 ... ldab 0015
9093 C783 2D 08 -. blt 08
9094 C785 CE 00 21 ..! ldx #0021
9095 C788 1C 00 08 ... bset 00,x, #08
9097 C78D CE 00 21 ..! ldx #0021
9098 C790 1D 00 08 ... bclr 00,x, #08
9101 ;proc(a,b) var local
9111 C796 34 4 des ;stack: 0=local, 1=A, 2=B
9113 C798 6F 00 o. clr 00,x
9116 C79B E6 02 .. ldab 02,x
9117 C79D 27 1A '. beq exit ;c7b9
9119 C7A0 1F 02 01 0D .... brclr 02,x 01 skip ;c7b1
9121 C7A5 E6 00 .. ldab 00,x
9122 C7A7 27 05 '. beq else ;c7ae
9124 C7AA 6A 00 j. dec 00,x
9125 C7AC 20 03 . bra skip ;c7b1
9128 C7AF 6C 00 l. inc 00,x
9131 C7B2 E6 02 .. ldab 02,x
9133 C7B5 E7 02 .. stab 02,x
9134 C7B7 20 E1 . bra loop ;c79a
9137 C7BA E6 00 .. ldab 00,x
9144 ; parity tester. returns 0 if good
9145 C7C0 F6 10 2F ../ ldab 102f ; sci data
9147 C7C4 8D CE .. bsr c794 ; parity test?
9148 C7C6 83 00 00 ... subd #0000
9149 C7C9 27 05 '. beq 05
9150 C7CB F6 10 2C .., ldab 102c ; test the 9th bit
9151 C7CE 2D 10 -. blt 10 ; to c7e0
9152 C7D0 F6 10 2F ../ ldab 102f ; sci data
9154 C7D4 8D BE .. bsr c794 ; parity test?
9155 C7D6 83 00 00 ... subd #0000
9156 C7D9 26 09 &. bne 09 ; to c7e4
9157 C7DB F6 10 2C .., ldab 102c ; test the 9th bit
9158 C7DE 2D 04 -. blt 04
9159 C7E0 CC 00 01 ... ldd #0001 ; return 1
9167 ;this might send a byte to the serial port
9171 C7E9 C6 32 .2 ldab #32 ; 50
9172 C7EB F7 00 31 ..1 stab 0031
9174 C7EF E6 01 .. ldab 01,x
9175 C7F1 F7 00 43 ..C stab 0043
9176 ; poll the TD register empty flag until it's set
9177 C7F4 F6 10 2E ... ldab 102e
9178 C7F7 2D 02 -. blt 02 ; transmit data register empty
9179 C7F9 20 F9 . bra f9 ; to c7f4
9182 C7FC E6 01 .. ldab 01,x
9184 C7FF 8D 93 .. bsr 93 ; to c794 - generate parity bit?
9185 C801 83 00 00 ... subd #0000
9186 C804 27 08 '. beq 08
9187 C806 CE 10 2C .., ldx #102c
9188 C809 1C 00 40 ... bset 00,x, #40 ; set the 9th bit
9190 C80E CE 10 2C .., ldx #102c ;SCI control 1
9191 C811 1D 00 40 ... bclr 00,x, #40 ; clear the 9th bit
9193 C815 E6 01 .. ldab 01,x
9194 C817 F7 10 2F ../ stab 102f ; send to serial port
9203 C81D F6 0B C0 ... ldab 0bc0
9204 C820 C4 01 .. andb #01
9205 C822 26 0A &. bne 0e ; to c82e
9206 C824 F6 0B C0 ... ldab 0bc0
9207 C827 C4 04 .. andb #04
9208 C829 26 03 &. bne 03 ; to c82e
9209 C82B 7E CB FF ~.. jmp cbff ;goto44
9210 C82E C6 96 .. ldab #96 ; 150
9211 C830 F7 00 30 ..0 stab 0030
9212 C833 F6 10 2E ... ldab 102e ; SCI status
9213 C836 C4 02 .. andb #02 ; test for Framing Error
9214 C838 26 0B &. bne 0b ; if so, to c845
9215 C83A F6 10 2F ../ ldab 102f ; read SCI data
9216 C83D F1 00 26 ..& cmpb 0026
9217 C840 26 03 &. bne 03
9218 C842 7E C9 1B ~.. jmp c91b ;goto45
9220 C845 F6 10 2F ../ ldab 102f ; read SCI data
9221 C848 C4 63 .c andb #63 ; 01100110
9222 C84A C1 23 .# cmpb #23 ; 00100110
9223 C84C 27 03 '. beq 03
9224 C84E 7E C8 E7 ~.. jmp c8e7 ;goto46 - pulse send' of changer
9226 C851 F6 00 1A ... ldab 001a ; register 3000 buffer
9227 C854 C4 01 .. andb #01 ; accept' line of changer
9228 C856 26 03 &. bne 03
9229 C858 7E C8 E7 ~.. jmp c8e7 ;goto46 - pulse send' of changer
9231 C85B F6 00 21 ..! ldab 0021
9232 C85E C4 F8 .. andb #f8 ; 11111000
9234 C861 F6 10 2F ../ ldab 102f ; read SCI data
9235 C864 C4 1C .. andb #1c ; 00011100
9236 C866 54 T lsrb ; ^^^
9237 C867 54 T lsrb ; get these bits out
9239 C869 EA 00 .. orb 00,x ; or it with the thing just above
9241 C86C F7 00 21 ..! stab 0021
9242 C86F F6 00 21 ..! ldab 0021
9243 C872 F4 0B D7 ... andb 0bd7 ; if (0021 & 0bd7)
9244 C875 27 08 '. beq 08 ; is false
9245 C877 CE 00 17 ... ldx #0017
9246 C87A 1C 00 20 .. bset 00,x, #20
9248 C87F F6 00 17 ... ldab 0017 ; if true
9249 C882 C4 20 . andb #20
9250 C884 27 11 '. beq 11 ; if unset to c897 (break out of if)
9251 C886 CE 00 17 ... ldx #0017
9252 C889 1D 00 .. bclr 00,x, #20
9253 C88C C6 04 . andb #04
9254 C88E F7 0C DB ... stab 0cdb
9255 C891 CE 0B C1 ... ldx #0bc1
9256 C894 1C 00 40 ... bset 00,x, #40 ;endif
9257 C897 F6 00 21 ..! ldab 0021
9258 C89A F4 0B D8 ... andb 0bd8
9259 C89D 27 08 '. beq 08 ; to c8a7
9260 C89F CE 00 17 ... ldx #0017
9261 C8A2 1C 00 40 ... bset 00,x, #40
9262 C8A5 20 18 . bra 18 ; to c8cf
9264 C8A7 F6 00 17 ... ldab 0017
9265 C8AA C4 40 .@ andb #40
9266 C8AC 27 11 '. beq 11 ; to c8bf if unset
9267 C8AE CE 00 17 ... ldx #0017
9268 C8B1 1D 00 40 ... bclr 00,x, #40
9269 C8B4 C6 04 .. ldab #04
9270 C8B6 F7 0C DA ... stab 0cda
9271 C8B9 CE 0B C1 ... ldx #0bc1
9272 C8BC 1C 00 40 ... bset 00,x, #40
9273 ; if 0021 & 0bd9, then set bit 7 of 0017, else unset it.
9274 C8BF F6 00 21 ..! ldab 0021
9275 C8C2 F4 0B D9 ... andb 0bd9
9276 C8C5 27 08 '. beq 08
9277 C8C7 CE 00 17 ... ldx #0017
9278 C8CA 1C 00 80 .. bset 00,x, #80
9279 C8CC 20 16 . bra 16 ; to c8e5
9281 C8CF F6 00 17 ... ldab 0017
9282 C8D2 2C 11 ,. bge 11 ; to c8e5
9283 C8D4 CE 00 17 ... ldx #0017
9284 C8D7 1D 00 .. bclr 00,x, #80
9286 C8D9 C6 04 .. ldab #04
9287 C8DC F7 0C D9 ... stab 0cd9
9288 ; set tube error bit
9289 C8DF CE 0B C1 ... ldx #0bc1
9290 C8E2 1C 00 40 ... bset 00,x, #40
9291 C8E5 20 31 1 bra 31 ; to c918
9293 goto46: ; pulse the send' line of the changer
9294 C8E7 F6 10 2F ../ ldab 102f ; read SCI data
9295 C8EA F7 00 26 ..& stab 0026
9296 C8ED CE 00 1A ... ldx #001a
9297 C8F0 1C 00 02 ... bset 00,x, #02
9298 C8F3 F6 00 1A ... ldab 001a
9299 C8F6 F7 30 00 .0. stab 3000 ; changer send' high
9300 C8F9 F6 00 3D ..= ldab 003d
9301 C8FC C4 04 .. andb #04
9302 C8FE 26 18 &. bne 18 ; to c918
9303 C900 CC 00 03 ... ldd #0003
9304 C903 BD E5 71 ..q jsr e571 ;msdelay
9305 C906 CE 00 1A ... ldx #001a
9306 C909 1D 00 02 ... bclr 00,x, #02
9307 C90C F6 00 1A ... ldab 001a
9308 C90F F7 30 00 .0. stab 3000 ; changer send' low
9309 C912 7C 00 3D |.= inc 003d
9310 C915 7E CE 46 ~.F jmp ce46 ;goto47 (exit)
9311 C918 7E CB DA ~.. jmp cbda ;goto48 (clean exit)
9314 C91B F6 00 08 ... ldab 0008
9315 C91E 26 03 &. bne 03
9316 C920 7E CA 5F ~._ jmp ca5f ;goto49
9317 C923 F6 00 17 ... ldab 0017
9318 C926 C4 04 .. andb #04
9319 C928 26 03 &. bne 03
9320 C92A 7E CA 5F ~._ jmp ca5f ;goto49
9321 C92D F6 00 17 ... ldab 0017
9322 C930 C4 08 .. andb #08
9323 C932 26 03 &. bne 03
9324 C934 7E CA 5F ~._ jmp ca5f ;goto49
9325 C937 F6 10 2F ../ ldab 102f ; read SCI data
9326 C93A C1 FF .. cmpb #ff
9327 C93C 27 07 '. beq 07 ; to c945
9328 C93E F6 00 08 ... ldab 0008
9329 C941 C1 0E .. cmpb #0e ; if > 14
9330 C943 25 12 %. bcs 12 ; to c957
9331 C945 CE 00 17 ... ldx #0017
9332 C948 1D 00 04 ... bclr 00,x, #04
9333 C94B 7F 00 08 ... clr 0008
9334 C94E BD CE 48 ..H jsr ce48 ;jump48
9335 C951 7F 00 2C .., clr 002c
9336 C954 7E CA 5C ~.\ jmp ca5c ;goto50 - clean exit
9338 C957 F6 00 08 ... ldab 0008
9340 C95B BD FE 16 ... jsr fe16 ;jump2
9342 C962 CA 59 .Y ; inc 0008 and clean exit
9343 C964 C9 7E .~ ; read byte into 0bc2
9344 C966 C9 87 .. ; read byte into 0bc3 & ^10 and stuff
9345 C968 C9 DF .. ; read byte into 0bc4 & stuff
9346 C96A C9 F3 .. ; read byte into 0bc5 & stuff
9347 C96C CA 07 .. ; read byte into 0bc6 & stuff
9348 C96E CA 1B .. ; read byte into 0bc7 only
9349 C970 CA 23 .# ; read byte into 0bc8 only
9350 C972 CA 2B .+ ; read byte into 0bc9 only
9351 C974 CA 33 .3 ; read byte into 0bca only
9352 C976 CA 3B .; ; read byte into 0bcb only
9353 C978 CA 43 .C ; read byte into 0bcc only
9354 C97A CA 4B .K ; read byte into 0bcd only
9355 C97C CA 53 .S ; read byte into 0bce only
9356 C97E F6 10 2F ../ ldab 102f ; read SCI data
9357 C981 F7 0B C2 ... stab 0bc2
9358 C984 7E CA 59 ~.Y jmp ca59 ;goto51 - inc 0008 and exit
9360 C987 F6 10 2F ../ ldab 102f ; read SCI data
9361 C98A F7 0B E3 ... stab 0be3
9362 C98D F6 10 2F ../ ldab 102f ; read SCI data
9363 C990 C4 0F .. andb #0f
9364 C992 C1 01 .. cmpb #01
9365 C994 26 07 &. bne 07 ; to c99d
9366 C996 C6 02 .. ldab #02
9367 C998 F7 00 13 ... stab 0013
9368 C99B 20 1B . bra 1b ; to c9b8
9369 C99D C1 02 .. cmpb #02
9370 C99F 26 07 &. bne 07 ; to c9a8
9371 C9A1 C6 04 .. ldab #04
9372 C9A3 F7 00 13 ... stab 0013
9373 C9A6 20 10 . bra 10 ; to c9b8
9374 C9A8 C1 03 .. cmpb #03
9375 C9AA 26 07 &. bne 07 ; to c9b3
9376 C9AC C6 08 .. ldab #08
9377 C9AE F7 00 13 ... stab 0013
9378 C9B1 20 05 . bra 05 ; to c9b8
9379 C9B3 C6 01 .. ldab #01
9380 C9B5 F7 00 13 ... stab 0013
9381 C9B8 F6 10 2F ../ ldab 102f ; read SCI data
9382 C9BB C4 F0 .. andb #f0
9387 C9C1 F7 0B C3 ... stab 0bc3
9388 C9C4 F6 0B C2 ... ldab 0bc2
9389 C9C7 F7 0B AA ... stab 0baa
9390 ;;0baa^:=pow(10,0bc3^) 0bc3 is the top 4 bits from the serial port.
9395 C9CA F6 0B C3 ... ldab 0bc3
9396 C9CD 27 0E '. beq c9dd
9397 C9CF F6 0B AA ... ldab 0baa
9398 C9D2 86 0A .. ldaa #0a
9400 C9D5 F7 0B AA ... stab 0baa
9401 C9D8 7A 0B C3 z.. dec 0bc3
9402 C9DB 20 ED . bra c9ca
9404 C9DD 20 7A z bra 7a ;goto51 - inc 0008 & clean exit
9406 C9DF F6 10 2F ../ ldab 102f ; read SCI data
9407 C9E2 F7 0B C4 ... stab 0bc4
9408 C9E5 F6 0B C4 ... ldab 0bc4
9409 C9E8 C1 80 .. cmpb #80
9410 C9EA 26 05 &. bne 05
9411 C9EC C6 0F .. ldab #0f
9412 C9EE F7 0B C4 ... stab 0bc4
9413 C9F1 20 66 f bra 66 ;goto51 - inc 0008 & clean exit
9415 C9F3 F6 10 2F ../ ldab 102f ; read SCI data
9416 C9F6 F7 0B C5 ... stab 0bc5
9417 C9F9 F6 0B C5 ... ldab 0bc5
9418 C9FC C1 80 .. cmpb #80
9419 C9FE 26 05 &. bne 05
9420 CA00 C6 0F .. ldab #0f
9421 CA02 F7 0B C5 ... stab 0bc5
9422 CA05 20 52 R bra 52 ;goto51 - inc 0008 & clean exit
9424 CA07 F6 10 2F ../ ldab 102f ; read SCI data
9425 CA0A F7 0B C6 ... stab 0bc6
9426 CA0D F6 0B C6 ... ldab 0bc6
9427 CA10 C1 80 .. cmpb #80
9428 CA12 26 05 &. bne ca19
9429 CA14 C6 0F .. ldab #0f
9430 CA16 F7 0B C6 ... stab 0bc6
9431 CA19 20 3E > bra 3e ;goto51 - inc 0008 & clean exit
9433 ; read byte of data into 0bc7 - 0bce
9434 CA1B F6 10 2F ../ ldab 102f ; read SCI data
9435 CA1E F7 0B C7 ... stab 0bc7
9438 CA23 F6 10 2F ../ ldab 102f ; read SCI data
9439 CA26 F7 0B C8 ... stab 0bc8
9442 CA2B F6 10 2F ../ ldab 102f ; read SCI data
9443 CA2E F7 0B C9 ... stab 0bc9
9446 CA33 F6 10 2F ../ ldab 102f ; read SCI data
9447 CA36 F7 0B CA ... stab 0bca
9450 CA3B F6 10 2F ../ ldab 102f ; read SCI data
9451 CA3E F7 0B CB ... stab 0bcb
9454 CA43 F6 10 2F ../ ldab 102f ; read SCI data
9455 CA46 F7 0B CC ... stab 0bcc
9458 CA4B F6 10 2F ../ ldab 102f ; read SCI data
9459 CA4E F7 0B CD ... stab 0bcd
9462 CA53 F6 10 2F ../ ldab 102f ; read SCI data
9463 CA56 F7 0B CE ... stab 0bce
9465 CA59 7C 00 08 |.. inc 0008
9467 CA5C 7E CB DA ~.. jmp cbda ;goto48 (clean exit)
9470 CA5F F6 10 2F ../ ldab 102f ; read SCI data
9471 CA62 C4 EF .. andb #ef ; 11101111
9472 CA64 C1 E2 .. cmpb #e2 ; 11100010
9473 CA66 26 1A &. bne 1a ; if no match, to ca82
9474 CA68 CE 00 17 ... ldx #0017
9475 CA6B 1C 00 08 ... bset 00,x, #08
9476 CA6E CE 00 17 ... ldx #0017
9477 CA71 1C 00 04 ... bset 00,x, #04
9478 CA74 C6 01 .. ldab #01
9479 CA76 F7 00 08 ... stab 0008
9480 CA79 CE 0B C1 ... ldx #0bc1
9481 CA7C 1D 00 01 ... bclr 00,x, #01
9482 CA7F 7E CB DA ~.. jmp cbda ;goto48 (clean exit)
9484 CA82 F6 10 2F ../ ldab 102f ; read SCI data
9485 CA85 C4 02 .. andb #02
9486 CA87 27 03 '. beq 03 ; if bit is set then
9487 CA89 7E CB 6C ~.l jmp cb6c ; goto52
9488 CA8C F6 10 2F ../ ldab 102f ; read SCI data
9489 CA8F 2C 38 ,8 bge 38 ; if bit 7 unset, to cac9
9490 CA91 F6 00 17 ... ldab 0017
9491 CA94 C4 08 .. andb #08
9492 CA96 26 31 &1 bne 31
9493 CA98 F6 10 2F ../ ldab 102f ; read SCI data
9494 CA9B C4 78 .x andb #78 ; 01111000
9499 CAA1 C3 0B C7 ... addd #0bc7
9501 CAA5 E6 00 .. ldab 00,x
9505 CAAA F6 0B AA ... ldab 0baa
9507 CAAE BD FB BA ... jsr fbba ;jump38 - multiply?
9508 CAB1 F3 00 40 ..@ addd 0040
9509 CAB4 FD 00 40 ..@ std 0040
9510 CAB7 CE 00 1B ... ldx #001b
9511 CABA 1C 00 .. bset 00,x, #20
9512 CABD CE 00 1B ... ldx #001b
9513 CAC0 1D 00 40 ... bclr 00,x, #40
9514 CAC3 7F 00 25 ..% clr 0025
9515 CAC6 7E CB 64 ~.d jmp cb64 ;goto53
9517 CAC9 F6 00 17 ... ldab 0017
9518 CACC C4 08 .. andb #08
9519 CACE 26 4A &J bne 4a ;to cb1a
9520 CAD0 F6 10 2F ../ ldab 102f ; read SCI data
9521 CAD3 C4 60 .` andb #60 ; 01100000
9522 CAD5 54 T lsrb ; ^^^^
9526 CAD9 C3 0B C7 ... addd #0bc7
9528 CADD E6 00 .. ldab 00,x
9532 CAE2 F6 0B AA ... ldab 0baa
9534 CAE6 BD FB BA ... jsr fbba ;jump38 - multiply?
9535 CAE9 FD 0B BD ... std 0bbd
9536 CAEC FC 0B BD ... ldd 0bbd
9537 CAEF F3 00 40 ..@ addd 0040
9538 CAF2 FD 00 40 ..@ std 0040
9539 CAF5 F6 00 21 ..! ldab 0021
9540 CAF8 C4 F8 .. andb #f8 ; 11111000
9542 CAFB F6 10 2F ../ ldab 102f ; read SCI data
9543 CAFE C4 1C .. andb #1c ; 00011100
9547 CB03 EA 00 .. orb 00,x ; or lower 3 bits with 0021
9549 CB06 F7 00 21 ..! stab 0021
9550 CB09 F6 10 2F ../ ldab 102f ; read SCI data
9551 CB0C F7 0B BC ... stab 0bbc
9552 CB0F CE 00 1B ... ldx #001b
9553 CB12 1D 00 40 .. bclr 00,x, #40
9554 CB15 7F 00 25 ..% clr 0025
9555 CB18 20 4A J bra 4a ;goto53 - more cleanups and exit
9557 CB1A F6 10 2F ../ ldab 102f ; read SCI data
9558 CB1D C4 E0 .. andb #e0 ; 11100000
9563 CB23 54 T lsrb ; shr5
9565 CB25 C3 0B C7 ... addd #0bc7
9567 CB29 E6 00 .. ldab 00,x
9571 CB2E F6 0B AA ... ldab 0baa
9573 CB32 BD FB BA ... jsr fbba ;jump38 - multiply?
9574 CB35 FD 0B BD ... std 0bbd
9575 CB38 FC 0B BD ... ldd 0bbd
9576 CB3B F3 00 40 ..@ addd 0040
9577 CB3E FD 00 40 ..@ std 0040
9578 CB41 F6 00 21 ..! ldab 0021
9579 CB44 C4 F8 .. andb #f8
9581 CB47 F6 10 2F ../ ldab 102f ; read SCI data
9582 CB4A C4 1C .. andb #1c
9586 CB4F EA 00 .. orb 00,x
9588 CB52 F7 00 21 ..! stab 0021
9589 CB55 F6 10 2F ../ ldab 102f ; read SCI data
9590 CB58 F7 0B BC ... stab 0bbc
9591 CB5B CE 00 1B ... ldx #001b
9592 CB5E 1D 00 40 ... bclr 00,x, #40
9593 CB61 7F 00 25 ..% clr 0025
9594 goto53: ; more cleanups and exit
9595 CB64 7F 00 2C .., clr 002c
9596 CB67 7F 00 3A ..: clr 003a
9597 CB6A 20 6E n bra 6e ; to cbda - cleanup and exit
9599 CB6C F6 10 2F ../ ldab 102f ; read SCI data
9600 CB6F C4 03 .. andb #03
9601 CB71 C1 02 .. cmpb #02
9602 CB73 26 0F &. bne 0f ; to bc84
9603 CB75 F6 00 21 ..! ldab 0021
9604 CB78 C4 08 .. andb #08
9605 CB7A 27 08 '. beq 08
9606 CB7C CE 00 21 ..! ldx #0021
9607 CB7F 1C 00 10 ... bset 00,x, #10
9608 CB82 20 56 V bra 56 ; to cbda - cleanup and exit
9610 CB84 F6 10 2F ../ ldab 102f ; read SCI data
9611 CB87 C4 EF .. andb #ef ; 11101111
9612 CB89 C1 E3 .. cmpb #e3 ; 11100111
9613 CB8B 26 08 &. bne 08 ; to cb95
9614 CB8D CE 0B C1 ... ldx #0bc1
9615 CB90 1D 00 02 ... bclr 00,x, #02
9618 CB95 F6 10 2F ../ ldab 102f ; read SCI data
9619 CB98 C4 EF .. andb #ef ; 11101111
9620 CB9A C1 63 .c cmpb #63 ; 01101110
9621 CB9C 26 1C &. bne 1c ; to cbba
9622 CB9E CE 0B C1 ... ldx #0bc1
9623 CBA1 1D 00 01 ... bclr 00,x, #01
9624 CBA4 F6 0B C0 ... ldab 0bc0
9625 CBA7 C4 01 .. andb #01
9626 CBA9 27 0D '. beq 0d ; to cbb8
9627 CBAB F6 0B C0 ... ldab 0bc0
9628 CBAE C4 04 .. andb #04
9629 CBB0 27 06 '. beq 06 ; to cbb8
9630 CBB2 CE 0B C1 ... ldx #0bc1
9631 CBB5 1D 00 02 ... bclr 00,x, #02
9632 CBB8 20 20 bra 20 ;goto48 - cleanup & exit
9634 CBBA F6 10 2F ../ ldab 102f ; read SCI data
9635 CBBD C4 EF .. andb #ef ; 11101111
9636 CBBF C1 67 .g cmpb #67 ; 01100111
9637 CBC1 26 08 &. bne 08 ; to cbcb
9638 CBC3 CE 0B C1 ... ldx #0bc1
9639 CBC6 1C 00 .. bset 00,x, #20
9640 CBC9 20 0F bra 0f ;goto48 - cleanup & exit
9642 CBCB F6 10 2F ../ ldab 102f ; read SCI data
9643 CBCE C4 EF .. andb #ef ; 11101111
9644 CBD0 C1 27 .' cmpb #27 ; 00100111
9645 CBD2 26 06 &. bne 06 ;goto48 - cleanup & exit
9647 CBD4 CE 0B C1 ... ldx #0bc1
9648 CBD7 1C 00 10 ... bset 00,x, #10
9649 goto48: ; cleanup and exit
9650 CBDA CE 00 1A ... ldx #001a
9651 CBDD 1C 00 02 ... bset 00,x, #02
9652 CBE0 F6 00 1A ... ldab 001a
9653 CBE3 F7 30 00 .0. stab 3000 ; changer send' high
9654 CBE6 F6 00 17 ... ldab 0017
9655 CBE9 C4 04 .. andb #04
9656 CBEB 26 05 &. bne 05 ; to cbf2
9657 CBED C6 06 .. ldab #06
9658 CBEF F7 00 07 ... stab 0007
9659 CBF2 F6 00 26 ..& ldab 0026 ; 0026 ~= 0026
9661 CBF6 F7 00 26 ..& stab 0026
9662 CBF9 7F 00 3D ..= clr 003d
9663 CBFC 7E CE 46 ~.F jmp ce46 ;goto47 (exit)
9666 CBFF F6 0B C0 ... ldab 0bc0
9667 CC02 C4 02 .. andb #02
9668 CC04 26 03 &. bne 03
9669 CC06 7E CE 3B ~.; jmp ce3b ;goto54 - swallow 2 bytes & exit
9670 CC09 F6 10 2F ../ ldab 102f ; read SCI data
9671 CC0C C4 E0 .. andb #e0
9672 CC0E C1 20 . cmpb #20
9673 CC10 27 03 '. beq 03
9674 CC12 7E CE 3B ~.; jmp ce3b ;goto54 - swallow 2 bytes & exit
9675 CC15 C6 32 .2 ldab #32 ; 50
9676 CC17 F7 00 2F ../ stab 002f
9677 CC1A CE 00 1B ... ldx #001b
9678 CC1D 1C 00 02 ... bset 00,x, #02
9679 CC20 F6 10 2E ... ldab 102e ; SCI status
9680 CC23 C4 02 .. andb #02 ; test for Framing Error
9681 CC25 26 08 &. bne 08
9682 CC27 BD C7 C0 ... jsr c7c0 ;jump49 - parity test
9683 CC2A 83 00 00 ... subd #0000
9684 CC2D 26 0F &. bne 0f ; if failed, to cc3e
9685 CC2F F6 10 2F ../ ldab 102f ; read SCI data
9687 CC33 E7 00 .. stab 00,x
9688 CC35 CC 00 FF ... ldd #00ff
9689 CC38 BD C7 E7 ... jsr c7e7 ;jump37 - send #FF to coin mech
9690 CC3B 7E CE 39 ~.9 jmp ce39 ;goto55 - exit
9692 CC3E F6 10 2F ../ ldab 102f ; read SCI data
9693 CC41 C1 3F .? cmpb #3f ; 00111111
9694 CC43 26 0A &. bne 0a ; to cc4f
9695 CC45 F6 00 43 ..C ldab 0043
9697 CC49 BD C7 E7 ... jsr c7e7 ;jump37 - send 0043 to coin mech - retry?
9698 CC4C 7E CE 39 ~.9 jmp ce39 ;goto55 - exit
9700 CC4F F6 00 08 ... ldab 0008
9701 CC52 26 03 &. bne 03
9702 CC54 7E CD 94 ~.. jmp cd94 ;goto56
9703 CC57 F6 10 2F ../ ldab 102f ; read SCI data
9704 CC5A C4 F0 .. andb #f0
9705 CC5C C1 20 . cmpb #20
9706 CC5E 27 03 '. beq 03
9707 CC60 7E CD 94 ~.. jmp cd94 ;goto56
9708 CC63 F6 10 2F ../ ldab 102f ; read SCI data
9709 CC66 C4 0F .. andb #0f
9711 CC69 E7 00 .. stab 00,x
9712 CC6B F6 00 08 ... ldab 0008
9714 CC6F BD FE 16 ... jsr fe16 ;jump2
9715 CC72 00 01 00 07 . ; array data for jump2
9716 CC76 CD 7A . ; if 0008 == 9, clr 0008, 002c. else inc 0008, send #00 to coin mech
9717 CC78 CC 88 .. ; if 0017 sp=>0076, else sp=>0040, then same as above
9718 CC7A CC A2 .. ; if 0017 0076+=sp<<4, else 0040+=sp<<4, then same as above
9719 CC7C CC CA .. ; if 0017 0076+=sp<<8, else 0040+=sp<<8, then same as above
9720 CC7E CC EE .. ; if 0017 0076+=sp<<16, else 0040+=sp<16, then same as above
9721 CC80 CD 19 .. ; 0baa = sp, then same as above
9722 CC82 CD 21 . ; 0baa = sp<<4, then same as above
9723 CC83 CD 30 !. ; 0013 = sp, then same as above
9724 CC85 CD 38 0 ; read byte & #01,
9726 CC88 F6 00 17 ... ldab 0017
9727 CC8B C4 01 .. andb #01
9728 CC8D 27 09 '. beq 09 ; to cc98
9730 CC90 E6 00 .. ldab 00,x
9732 CC93 FD 00 76 ..v std 0076
9733 CC96 20 07 . bra 07 ; to cc9f
9735 CC99 E6 00 .. ldab 00,x
9737 CC9C FD 00 40 ..@ std 0040
9738 CC9F 7E CD 7A ~.z jmp cd7a ;goto57
9740 CCA2 F6 00 17 ... ldab 0017
9741 CCA5 C4 01 .. andb #01
9742 CCA7 27 10 '. beq 10 ; to ccb9
9744 CCAA E6 00 .. ldab 00,x
9750 CCB1 F3 00 76 ..v addd 0076
9751 CCB4 FD 00 76 ..v std 0076
9752 CCB7 20 0E . bra 0e ; to ccc7
9754 CCBA E6 00 .. ldab 00,x
9760 CCC1 F3 00 40 ..@ addd 0040
9761 CCC4 FD 00 40 ..@ std 0040
9762 CCC7 7E CD 7A ~.z jmp cd7a ;goto57
9764 CCCA F6 00 17 ... ldab 0017
9765 CCCD C4 01 .. andb #01
9766 CCCF 27 0E '. beq 0e ; to ccdf
9768 CCD2 E6 00 .. ldab 00,x
9772 CCD7 F3 00 76 ..v addd 0076
9773 CCDA FD 00 76 ..v std 0076
9774 CCDD 20 0C . bra 0c ; to cceb
9776 CCE0 E6 00 .. ldab 00,x
9780 CCE5 F3 00 40 ..@ addd 0040
9781 CCE8 FD 00 40 ..@ std 0040
9782 CCEB 7E CD 7A ~.z jmp cd7a ;goto57
9784 CCEE F6 00 17 ... ldab 0017
9785 CCF1 C4 01 .. andb #01
9786 CCF3 27 12 '. beq 12 ; to cd07
9788 CCF6 E6 00 .. ldab 00,x
9796 CCFF F3 00 76 ..v addd 0076
9797 CD02 FD 00 76 ..v std 0076
9798 CD05 20 10 . bra 10 ; to cd17
9800 CD08 E6 00 .. ldab 00,x
9808 CD11 F3 00 40 ..@ addd 0040
9809 CD14 FD 00 40 ..@ std 0040
9813 CD1A E6 00 .. ldab 00,x
9814 CD1C F7 0B AA ... stab 0baa
9815 CD1F 20 59 Y bra 59 ; to cd7a - goto57
9818 CD22 E6 00 .. ldab 00,x
9823 CD28 FB 0B AA ... addb 0baa
9824 CD2B F7 0B AA ... stab 0baa
9825 CD2E 20 4A J bra 4a ; to cd7a - goto57
9828 CD31 E6 00 .. ldab 00,x
9829 CD33 F7 00 13 ... stab 0013
9830 CD36 20 42 B bra 42 ; to cd7a - goto57
9832 CD38 F6 10 2F ../ ldab 102f ; read SCI data
9833 CD3B C4 01 .. andb #01
9834 CD3D 27 08 '. beq 08 ; to cd47
9835 CD3F CE 00 21 ..! ldx #0021
9836 CD42 1C 00 40 ... bset 00,x, #40
9837 CD45 20 06 . bra 06 ; to cd4d
9838 CD47 CE 00 21 ..! ldx #0021
9839 CD4A 1D 00 40 ... bclr 00,x, #40
9841 CD4D F6 00 17 ... ldab 0017
9842 CD50 C4 01 .. andb #01
9843 CD52 27 17 '. beq 17 ; to cd6b
9844 CD54 F6 0B AA ... ldab 0baa
9848 CD5A FC 00 76 ..v ldd 0076
9849 CD5D BD FB BA ... jsr fbba ;jump38 - multiply?
9850 CD60 FD 00 76 ..v std 0076 ; 0076 *= 0baa
9851 CD63 CE 00 17 ... ldx #0017
9852 CD66 1D 00 01 ... bclr 00,x, #01
9853 CD69 20 0F . bra 0f ;goto57 - send byte & exit
9854 CD6B F6 0B AA ... ldab 0baa
9858 CD71 FC 00 40 ..@ ldd 0040
9859 CD74 BD FB BA ... jsr fbba ;jump38 - multiply?
9860 CD77 FD 00 40 ..@ std 0040 ; 0040 *= 0baa
9861 goto57: ; sends the byte, clearing the counter if its the 8th byte
9862 CD7A F6 00 08 ... ldab 0008
9863 CD7D C1 09 .. cmpb #09
9864 CD7F 26 08 &. bne 08
9865 CD81 7F 00 2C .., clr 002c
9866 CD84 7F 00 08 ... clr 0008
9868 CD89 7C 00 08 |.. inc 0008
9871 CD8E BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech
9872 CD91 7E CE 39 ~.9 jmp ce39 ;goto55 - exit
9874 CD94 F6 10 2F ../ ldab 102f ; read SCI data
9876 CD98 BD FE 32 ..2 jsr fe32 ;jump25
9877 CD9B CD B1 00 31 ...1 ; 49 "1"
9878 CD9F CD DB 00 01 .... ; 50 "2"
9879 CDA3 CE 20 00 01 . .. ; 51 "3"
9880 CDA7 CE 28 00 05 .(.. ; 56 "8"
9881 CDAB CE 34 FF C8 .4.. ; 0
9882 CDAF 00 00 .. ; end of array data
9883 CDB1 F6 00 21 ..! ldab 0021
9884 CDB4 2C 08 ,. bge 08
9885 CDB6 CC 00 80 ... ldd #0080
9886 CDB9 BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech
9890 CDC0 BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech
9891 CDC3 F6 00 1F ... ldab 001f
9892 CDC6 C4 08 .. andb #08
9893 CDC8 27 0C '. beq 0c
9894 CDCA F6 0B C0 ... ldab 0bc0
9895 CDCD C4 10 .. andb #10
9896 CDCF 27 05 '. beq 05
9897 CDD1 7C 00 75 |.u inc 0075
9899 CDD6 7F 00 75 ..u clr 0075
9901 CDDB F6 00 1D ... ldab 001d
9902 CDDE C4 02 .. andb #02
9903 CDE0 27 07 '. beq 07
9904 CDE2 F6 00 19 ... ldab 0019
9905 CDE5 C4 08 .. andb #08
9906 CDE7 26 19 &. bne 19
9907 CDE9 CC 00 FE ... ldd #00fe
9908 CDEC BD C7 E7 ... jsr c7e7 ;jump37 - send #fe to coin mech
9909 CDEF F6 00 1F ... ldab 001f
9910 CDF2 C4 08 .. andb #08
9911 CDF4 27 0A '. beq 0a
9912 CDF6 F6 0B C0 ... ldab 0bc0
9913 CDF9 C4 10 .. andb #10
9914 CDFB 27 03 '. beq 03
9915 CDFD 7C 00 75 |.u inc 0075
9917 CE02 FC 00 44 ..D ldd 0044
9920 CE07 F6 0B AA ... ldab 0baa
9926 CE0F BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech
9927 CE12 CE 00 19 ... ldx #0019
9928 CE15 1D 00 08 ... bclr 00,x, #08
9929 CE18 CE 00 1F ... ldx #001f
9930 CE1B 1C 00 08 ... bset 00,x, #08
9932 CE20 CE 00 1D ... ldx #001d
9933 CE23 1D 00 02 ... bclr 00,x, #02
9935 CE28 C6 01 .. ldab #01
9936 CE2A F7 00 08 ... stab 0008
9939 CE2F BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech
9943 CE36 BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech
9945 CE39 20 0B . bra 0b ; to ce46 (exit)
9946 goto54: ; just swallow two bytes?
9947 CE3B F6 10 2E ... ldab 102e ; SCI Status
9949 CE3F E7 00 .. stab 00,x
9950 CE41 F6 10 2F ../ ldab 102f ; read SCI data
9951 CE44 E7 00 .. stab 00,x
9957 CE48 F6 0B C4 ... ldab 0bc4
9958 CE4B F1 0B C5 ... cmpb 0bc5
9959 CE4E 25 53 %S bcs 53
9960 CE50 F6 0B C5 ... ldab 0bc5
9961 CE53 F1 0B C6 ... cmpb 0bc6
9962 CE56 25 4B %K bcs 4b
9963 CE58 F6 0B C4 ... ldab 0bc4
9965 CE5C C3 0B C7 ... addd #0bc7
9967 CE60 E6 00 .. ldab 00,x
9969 CE63 FD 0B DD ... std 0bdd
9970 CE66 F6 0B C5 ... ldab 0bc5
9972 CE6A C3 0B C7 ... addd #0bc7
9974 CE6E E6 00 .. ldab 00,x
9976 CE71 FD 0B DF ... std 0bdf
9977 CE74 F6 0B C6 ... ldab 0bc6
9979 CE78 C3 0B C7 ... addd #0bc7
9981 CE7C E6 00 .. ldab 00,x
9983 CE7F FD 0B E1 ... std 0be1
9984 CE82 C6 01 .. ldab #01
9985 CE84 F7 0B D7 ... stab 0bd7
9986 CE87 C6 04 .. ldab #04
9987 CE89 F7 0B D8 ... stab 0bd8
9988 CE8C C6 02 .. ldab #02
9989 CE8E F7 0B D9 ... stab 0bd9
9990 CE91 C6 20 . ldab #20
9991 CE93 F7 0B DA ... stab 0bda
9992 CE96 C6 08 .. ldab #08
9993 CE98 F7 0B DB ... stab 0bdb
9994 CE9B C6 10 .. ldab #10
9995 CE9D F7 0B DC ... stab 0bdc
9996 CEA0 7E D0 66 ~.f jmp d066 ;goto58
9997 CEA3 F6 0B C4 ... ldab 0bc4
9998 CEA6 F1 0B C6 ... cmpb 0bc6
9999 CEA9 25 53 %S bcs 53
10000 CEAB F6 0B C6 ... ldab 0bc6
10001 CEAE F1 0B C5 ... cmpb 0bc5
10002 CEB1 25 4B %K bcs 4b
10003 CEB3 F6 0B C4 ... ldab 0bc4
10005 CEB7 C3 0B C7 ... addd #0bc7
10007 CEBB E6 00 .. ldab 00,x
10009 CEBE FD 0B DD ... std 0bdd
10010 CEC1 F6 0B C6 ... ldab 0bc6
10012 CEC5 C3 0B C7 ... addd #0bc7
10014 CEC9 E6 00 .. ldab 00,x
10016 CECC FD 0B DF ... std 0bdf
10017 CECF F6 0B C5 ... ldab 0bc5
10019 CED3 C3 0B C7 ... addd #0bc7
10021 CED7 E6 00 .. ldab 00,x
10023 CEDA FD 0B E1 ... std 0be1
10024 CEDD C6 01 .. ldab #01
10025 CEDF F7 0B D7 ... stab 0bd7
10026 CEE2 C6 02 .. ldab #02
10027 CEE4 F7 0B D8 ... stab 0bd8
10028 CEE7 C6 04 .. ldab #04
10029 CEE9 F7 0B D9 ... stab 0bd9
10030 CEEC C6 20 . ldab #20
10031 CEEE F7 0B DA ... stab 0bda
10032 CEF1 C6 10 .. ldab #10
10033 CEF3 F7 0B DB ... stab 0bdb
10034 CEF6 C6 08 .. ldab #08
10035 CEF8 F7 0B DC ... stab 0bdc
10036 CEFB 7E D0 66 ~.f jmp d066 ;goto58
10037 CEFE F6 0B C5 ... ldab 0bc5
10038 CF01 F1 0B C4 ... cmpb 0bc4
10039 CF04 25 53 %S bcs 53
10040 CF06 F6 0B C4 ... ldab 0bc4
10041 CF09 F1 0B C6 ... cmpb 0bc6
10042 CF0C 25 4B %K bcs 4b
10043 CF0E F6 0B C5 ... ldab 0bc5
10045 CF12 C3 0B C7 ... addd #0bc7
10047 CF16 E6 00 .. ldab 00,x
10049 CF19 FD 0B DD ... std 0bdd
10050 CF1C F6 0B C4 ... ldab 0bc4
10052 CF20 C3 0B C7 ... addd #0bc7
10054 CF24 E6 00 .. ldab 00,x
10056 CF27 FD 0B DF ... std 0bdf
10057 CF2A F6 0B C6 ... ldab 0bc6
10059 CF2E C3 0B C7 ... addd #0bc7
10061 CF32 E6 00 .. ldab 00,x
10063 CF35 FD 0B E1 ... std 0be1
10064 CF38 C6 04 .. ldab #04
10065 CF3A F7 0B D7 ... stab 0bd7
10066 CF3D C6 01 .. ldab #01
10067 CF3F F7 0B D8 ... stab 0bd8
10068 CF42 C6 02 .. ldab #02
10069 CF44 F7 0B D9 ... stab 0bd9
10070 CF47 C6 08 .. ldab #08
10071 CF49 F7 0B DA ... stab 0bda
10072 CF4C C6 20 . ldab #20
10073 CF4E F7 0B DB ... stab 0bdb
10074 CF51 C6 10 .. ldab #10
10075 CF53 F7 0B DC ... stab 0bdc
10076 CF56 7E D0 66 ~.f jmp d066 ;goto58
10077 CF59 F6 0B C5 ... ldab 0bc5
10078 CF5C F1 0B C6 ... cmpb 0bc6
10079 CF5F 25 53 %S bcs 53
10080 CF61 F6 0B C6 ... ldab 0bc6
10081 CF64 F1 0B C4 ... cmpb 0bc4
10082 CF67 25 4B %K bcs 4b
10083 CF69 F6 0B C5 ... ldab 0bc5
10085 CF6D C3 0B C7 ... addd #0bc7
10087 CF71 E6 00 .. ldab 00,x
10089 CF74 FD 0B DD ... std 0bdd
10090 CF77 F6 0B C6 ... ldab 0bc6
10092 CF7B C3 0B C7 ... addd #0bc7
10094 CF7F E6 00 .. ldab 00,x
10096 CF82 FD 0B DF ... std 0bdf
10097 CF85 F6 0B C4 ... ldab 0bc4
10099 CF89 C3 0B C7 ... addd #0bc7
10101 CF8D E6 00 .. ldab 00,x
10103 CF90 FD 0B E1 ... std 0be1
10104 CF93 C6 04 .. ldab #04
10105 CF95 F7 0B D7 ... stab 0bd7
10106 CF98 C6 02 .. ldab #02
10107 CF9A F7 0B D8 ... stab 0bd8
10108 CF9D C6 01 .. ldab #01
10109 CF9F F7 0B D9 ... stab 0bd9
10110 CFA2 C6 08 .. ldab #08
10111 CFA4 F7 0B DA ... stab 0bda
10112 CFA7 C6 10 .. ldab #10
10113 CFA9 F7 0B DB ... stab 0bdb
10114 CFAC C6 20 . ldab #20
10115 CFAE F7 0B DC ... stab 0bdc
10116 CFB1 7E D0 66 ~.f jmp d066 ;goto58
10117 CFB4 F6 0B C6 ... ldab 0bc6
10118 CFB7 F1 0B C4 ... cmpb 0bc4
10119 CFBA 25 52 %R bcs 52
10120 CFBC F6 0B C4 ... ldab 0bc4
10121 CFBF F1 0B C5 ... cmpb 0bc5
10122 CFC2 25 4A %J bcs 4a
10123 CFC4 F6 0B C6 ... ldab 0bc6
10125 CFC8 C3 0B C7 ... addd #0bc7
10127 CFCC E6 00 .. ldab 00,x
10129 CFCF FD 0B DD ... std 0bdd
10130 CFD2 F6 0B C4 ... ldab 0bc4
10132 CFD6 C3 0B C7 ... addd #0bc7
10134 CFDA E6 00 .. ldab 00,x
10136 CFDD FD 0B DF ... std 0bdf
10137 CFE0 F6 0B C5 ... ldab 0bc5
10139 CFE4 C3 0B C7 ... addd #0bc7
10141 CFE8 E6 00 .. ldab 00,x
10143 CFEB FD 0B E1 ... std 0be1
10144 CFEE C6 02 .. ldab #02
10145 CFF0 F7 0B D7 ... stab 0bd7
10146 CFF3 C6 01 .. ldab #01
10147 CFF5 F7 0B D8 ... stab 0bd8
10148 CFF8 C6 04 .. ldab #04
10149 CFFA F7 0B D9 ... stab 0bd9
10150 CFFD C6 10 .. ldab #10
10151 CFFF F7 0B DA ... stab 0bda
10152 D002 C6 20 . ldab #20
10153 D004 F7 0B DB ... stab 0bdb
10154 D007 C6 08 .. ldab #08
10155 D009 F7 0B DC ... stab 0bdc
10156 D00C 20 58 X bra 58
10157 D00E F6 0B C6 ... ldab 0bc6
10158 D011 F1 0B C5 ... cmpb 0bc5
10159 D014 25 50 %P bcs 50
10160 D016 F6 0B C5 ... ldab 0bc5
10161 D019 F1 0B C4 ... cmpb 0bc4
10162 D01C 25 48 %H bcs 48
10163 D01E F6 0B C6 ... ldab 0bc6
10165 D022 C3 0B C7 ... addd #0bc7
10167 D026 E6 00 .. ldab 00,x
10169 D029 FD 0B DD ... std 0bdd
10170 D02C F6 0B C5 ... ldab 0bc5
10172 D030 C3 0B C7 ... addd #0bc7
10174 D034 E6 00 .. ldab 00,x
10176 D037 FD 0B DF ... std 0bdf
10177 D03A F6 0B C4 ... ldab 0bc4
10179 D03E C3 0B C7 ... addd #0bc7
10181 D042 E6 00 .. ldab 00,x
10183 D045 FD 0B E1 ... std 0be1
10184 D048 C6 02 .. ldab #02
10185 D04A F7 0B D7 ... stab 0bd7
10186 D04D C6 04 .. ldab #04
10187 D04F F7 0B D8 ... stab 0bd8
10188 D052 C6 01 .. ldab #01
10189 D054 F7 0B D9 ... stab 0bd9
10190 D057 C6 10 .. ldab #10
10191 D059 F7 0B DA ... stab 0bda
10192 D05C C6 08 .. ldab #08
10193 D05E F7 0B DB ... stab 0bdb
10194 D061 C6 20 . ldab #20
10195 D063 F7 0B DC ... stab 0bdc
10197 D066 F6 0B AA ... ldab 0baa
10201 D06C FC 0B DD ... ldd 0bdd
10202 D06F BD FB BA ... jsr fbba ;jump38 - multiply?
10203 D072 FD 0B DD ... std 0bdd
10204 D075 F6 0B AA ... ldab 0baa
10208 D07B FC 0B DF ... ldd 0bdf
10209 D07E BD FB BA ... jsr fbba ;jump38 - multiply?
10210 D081 FD 0B DF ... std 0bdf
10211 D084 F6 0B AA ... ldab 0baa
10215 D08A FC 0B E1 ... ldd 0be1
10216 D08D BD FB BA ... jsr fbba ;jump38 - multiply?
10217 D090 FD 0B E1 ... std 0be1
10221 ; initializes a big bunch of variables
10225 D096 6F 00 o. clr 00,x
10228 D099 E6 00 .. ldab 00,x
10229 D09B C1 10 .. cmpb #10
10230 D09D 24 1B $. bcc 1b ; to d0ba
10231 ; read memloc of b0c3+i
10233 D0A0 E6 00 .. ldab 00,x
10235 D0A3 C3 B0 C3 ... addd #b0c3
10237 D0A7 E6 00 .. ldab 00,x
10239 ; put value of that location into 0bc7+i
10241 D0AB E6 01 .. ldab 01,x
10243 D0AE C3 0B C7 ... addd #0bc7
10246 D0B3 E7 00 .. stab 00,x
10249 D0B6 6C 00 l. inc 00,x
10250 D0B8 20 DE . bra de ; to d098
10252 D0BA C6 05 .. ldab #05
10253 D0BC F7 0B AA ... stab 0baa
10254 D0BF C6 04 .. ldab #04
10255 D0C1 F7 00 13 ... stab 0013
10256 D0C4 C6 01 .. ldab #01
10257 D0C6 F7 0B C4 ... stab 0bc4
10258 D0C9 C6 03 .. ldab #03
10259 D0CB F7 0B C5 ... stab 0bc5
10260 D0CE C6 02 .. ldab #02
10261 D0D0 F7 0B C6 ... stab 0bc6
10262 D0D3 CC 00 19 ... ldd #0019
10263 D0D6 FD 0B DD ... std 0bdd
10264 D0D9 CC 00 0A ... ldd #000a
10265 D0DC FD 0B DF ... std 0bdf
10266 D0DF CC 00 05 ... ldd #0005
10267 D0E2 FD 0B E1 ... std 0be1
10268 D0E5 C6 01 .. ldab #01
10269 D0E7 F7 0B D7 ... stab 0bd7
10270 D0EA C6 02 .. ldab #02
10271 D0EC F7 0B D8 ... stab 0bd8
10272 D0EF C6 04 .. ldab #04
10273 D0F1 F7 0B D9 ... stab 0bd9
10274 D0F4 C6 20 . ldab #20
10275 D0F6 F7 0B DA ... stab 0bda
10276 D0F9 C6 10 .. ldab #10
10277 D0FB F7 0B DB ... stab 0bdb
10278 D0FE C6 08 .. ldab #08
10279 D100 F7 0B DC ... stab 0bdc
10284 ; turns all motors off
10286 D106 CE 00 1A ... ldx #001a
10287 D109 1C 00 80 .. bset 00,x, #80
10288 D10C F6 00 1A .. ldab 001a
10289 D10F F7 30 00 .0. stab 3000 ; motor rows off
10290 D112 C6 C8 .. ldab #c8 ; loop of 200 - short delay
10292 D115 E7 00 .. stab 00,x
10294 D118 E6 00 .. ldab 00,x
10295 D11A C1 00 .. cmpb #00
10296 D11C 23 05 #. bls 05 ; to d123
10298 D11F 6A 00 j. dec 00,x
10299 D121 20 F4 . bra f4 ; to d117
10301 D123 CE 10 00 ... ldx #1000
10302 D126 1C 00 40 .. bset 00,x, #40 ; motor columns off
10303 D129 CE 00 14 ... ldx #0014
10304 D12C 1D 00 20 .. bclr 00,x, #20 ; motors col 8 off
10305 D12F CE 00 14 . ldx #0014
10306 D132 1D 00 40 .. bclr 00,x, #40 ; motors col 9 off
10307 D135 F6 00 14 ... ldab 0014
10308 D138 F7 38 00 .8. stab 3800 ; motors off
10313 ; turn on the motor of the slot given in memory location 0006
10314 D13D F6 00 06 ... ldab 0006
10316 D141 CE 00 0A ... ldx #000a
10319 D146 CB 01 .. addb #01 ; we live in an odd world?
10320 D148 F7 00 5F .._ stab 005f ; slot number /10
10321 D14B F6 00 06 ... ldab 0006
10323 D14F CE 00 0A ... ldx #000a
10325 D153 F7 00 5E ..^ stab 005e ; slot number%10
10326 D156 F6 00 5E ..^ ldab 005e
10327 D159 C1 05 .. cmpb #05 ; there is not row 5
10328 D15B 23 03 #. bls 03
10329 D15D 7A 00 5E z.^ dec 005e ; make it row 4
10330 D160 F6 00 5E ..^ ldab 005e
10332 D164 C3 B1 23 ..# addd #b123 ; powers of 2
10334 D168 E6 00 .. ldab 00,x
10338 D16D F6 00 5F .._ ldab 005f
10340 D171 C3 B1 23 ..# addd #b123 ; powers of 2
10342 D175 E6 00 .. ldab 00,x
10347 D17B E3 00 .. addd 00,x
10349 D17E FD 00 58 ..X std 0058
10352 D181 7F 00 1C ... clr 001c
10354 D184 F6 00 1C ... ldab 001c
10355 D187 C1 10 .. cmpb #10
10356 D189 24 37 $7 bcc 37 ; to d1c2
10357 D18B F6 00 58 ..X ldab 0058
10358 D18E 2C 0E ,. bge 0e ; to d19e
10360 D190 CE 00 14 ... ldx #0014
10361 D193 1C 00 10 ... bset 00,x, #10
10362 D196 F6 00 14 ... ldab 0014
10363 D199 F7 38 00 .8. stab 3800 ; set high motor serial data
10364 D19C 20 0C . bra 0c ; to d1aa
10366 D19E CE 00 14 ... ldx #0014
10367 D1A1 1D 00 10 .. bclr 00,x, #10
10368 D1A4 F6 00 14 ... ldab 0014
10369 D1A7 F7 38 00 .8. stab 3800 ; set low motor serial data
10371 ; send a clock pulse
10372 D1AA CE 10 00 ... ldx #1000
10373 D1AD 1C 00 20 .. bset 00,x, #20
10374 D1B0 CE 10 00 . ldx #1000
10375 D1B3 1D 00 .. bclr 00,x, #20
10377 ; get the next bit ready to send
10378 D1B6 FC 00 58 . ldd 0058
10380 D1BA FD 00 58 ..X std 0058
10381 D1BD 7C 00 1C |.. inc 001c
10382 D1C0 20 C2 . bra c2
10383 ; if this is column 8 (9 for pascal programmers ;)
10384 D1C2 F6 00 5F .._ ldab 005f
10385 D1C5 C1 09 .. cmpb #09
10386 D1C7 26 0E &. bne 0e ; to d1d7
10387 D1C9 CE 00 14 ... ldx #0014
10388 D1CC 1C 00 20 ... bset 00,x, #20
10389 D1CF F6 00 14 . ldab 0014
10390 D1D2 F7 38 00 .8. stab 3800 ; say its column 8
10391 D1D5 20 13 . bra 13 ; to d1ea
10392 ; if this is column 9 (denoted as 10)
10393 D1D7 F6 00 5F .._ ldab 005f
10394 D1DA C1 0A .. cmpb #0a
10395 D1DC 26 0C &. bne 0c
10396 D1DE CE 00 14 ... ldx #0014
10397 D1E1 1C 00 40 .. bset 00,x, #40 ; say its column 9
10398 D1E4 F6 00 14 ... ldab 0014
10399 D1E7 F7 38 00 .8. stab 3800
10400 ; clear the motor clock
10401 D1EA CE 10 00 ... ldx #1000
10402 D1ED 1D 00 40 .. bclr 00,x, #40 ; motor clock line low
10403 ; clear motor row output enable
10404 D1F0 CE 00 1A ... ldx #001a
10405 D1F3 1D 00 .. bclr 00,x, #80
10406 D1F6 F6 00 1A ... ldab 001a
10407 D1F9 F7 30 00 .0. stab 3000 ; motor driver outputs enable
10411 D1FD CC 40 00 .@. ldd #4000
10414 D202 F6 00 06 ... ldab 0006
10417 D207 C3 08 00 ... addd #0800
10420 D20C AA 00 .. ora 00,x
10421 D20E EA 01 .. orb 01,x
10422 D210 ED 00 .. std 00,x
10426 D213 F6 00 1F ... ldab 001f
10427 D216 C4 04 .. andb #04
10428 D218 26 12 &. bne 12
10429 D21A F6 0B C0 ... ldab 0bc0
10430 D21D C4 10 .. andb #10
10431 D21F 26 0B &. bne 0b
10432 D221 CE 00 00 ... ldx #0000
10434 D225 FC 00 44 ..D ldd 0044
10435 D228 BD BE 9E ... jsr be9e ;jump50
10437 D22C BD D3 11 ... jsr d311 ;jump30 - test position exists
10438 D22F 83 00 00 ... subd #0000
10439 D232 27 13 '. beq 13
10440 D234 F6 00 06 ... ldab 0006
10441 D237 BD D4 68 ..h jsr d468 ;jump51
10442 D23A 83 00 00 ... subd #0000
10443 D23D 27 05 '. beq 05
10444 D23F 8D BC .. bsr bc ;jump90
10445 D241 BD D6 3C ..< jsr d63c ;jump33
10450 D247 BD D1 3D ..= jsr d13d ;jump34 - motor on
10451 D24A C6 3C .< ldab #3c
10452 D24C F7 00 2E ... stab 002e
10453 D24F C6 41 .A ldab #41
10454 D251 F7 00 31 ..1 stab 0031
10455 D254 CE 00 1B ... ldx #001b
10456 D257 1D 00 08 ... bclr 00,x #08
10458 D25A F6 00 1B ... ldab 001b
10459 D25D C4 08 .. andb #08
10460 D25F 26 22 &" bne 22
10461 D261 F6 00 2E ... ldab 002e
10462 D264 C1 35 .5 cmpb #35
10463 D266 23 10 #. bls 10
10464 D268 BD D5 70 ..p jsr d570 ;jump35
10465 D26B 83 00 00 ... subd #0000
10466 D26E 27 06 '. beq 06
10467 D270 CE 00 1B ... ldx #001b
10468 D273 1C 00 08 ... bset 00,x, #08
10469 D276 20 0B . bra 0b
10470 D278 BD D1 05 ... jsr d105 ;motors_off
10471 D27B 8D 80 .. bsr 80 ;jump90
10472 D27D BD D6 3C ..< jsr d63c ;jump33
10477 D283 F6 00 2E ... ldab 002e
10478 D286 C1 36 .6 cmpb #36
10479 D288 24 56 $V bcc 56 ; to d2e0
10480 D28A BD D5 F7 ... jsr d5f7 ;jump108
10481 D28D 83 00 00 ... subd #0000
10482 D290 27 4E 'N beq 4e ; to d2e0
10483 D292 BD D5 B0 ... jsr d5b0 ;jump31
10484 D295 83 00 00 ... subd #0000
10485 D298 27 46 'F beq 46 ; to d2e0
10486 D29A BD D1 05 ... jsr d105 ;motors_off
10487 D29D F6 00 2E ... ldab 002e
10488 D2A0 C1 32 .2 cmpb #32
10489 D2A2 22 07 ". bhi 07
10490 D2A4 8D 6B .k bsr dest 6b
10491 D2A6 83 00 00 ... subd #0000
10492 D2A9 27 0C '. beq 0c
10493 D2AB BD D1 05 ... jsr d105 ;motors_off
10494 D2AE BD D1 FD ... jsr d1fd ;jump90
10495 D2B1 BD D6 3C ..< jsr d63c ;jump33
10500 D2B7 F6 00 06 ... ldab 0006
10502 D2BB C3 0E 06 ... addd #0e06
10504 D2BF 6C 00 l. inc 00,x
10505 D2C1 F6 00 06 ... ldab 0006
10507 D2C5 C3 0E 06 ... addd #0e06
10509 D2C9 E6 00 .. ldab 00,x
10510 D2CB C1 64 .d cmpb #64
10511 D2CD 23 0D #. bls 0d
10514 D2D1 F6 00 06 ... ldab 0006
10516 D2D5 C3 0E 06 ... addd #0e06
10519 D2DA E7 00 .. stab 00,x
10520 D2DC CC 00 01 ... ldd #0001
10523 D2E0 F6 00 2E ... ldab 002e
10524 D2E3 26 14 &. bne 14
10525 D2E5 BD D5 F7 ... jsr d5f7 ;jump108
10526 D2E8 83 00 00 ... subd #0000
10527 D2EB 26 0C &. bne 0c
10528 D2ED BD D1 05 ... jsr d105 ;motors_off
10529 D2F0 BD D1 FD ... jsr d1fd ;jump90
10530 D2F3 BD D6 26 ..& jsr d626 ;jump91
10535 D2F9 F6 00 2E ... ldab 002e
10536 D2FC 26 0C &. bne 0c
10537 D2FE BD D1 05 ... jsr d105 ;motors_off
10538 D301 BD D1 FD ... jsr d1fd ;jump90
10539 D304 BD D6 3C ..< jsr d63c ;jump33
10544 D30A 7E D2 5A ~.Z jmp d25a ;goto59
10545 D30D BD E6 1B ... jsr e61b ;jump4
10549 ; tests to see if a motor exists here
10550 D311 BD D1 3D ..= jsr d13d ;jump34 - motor on
10551 D314 7F 00 1C ... clr 001c
10552 D317 7F 00 18 ... clr 0018
10553 D31A F6 10 0A ... ldab 100a
10554 D31D C4 02 .. andb #02 ; motor overvoltage sense
10555 D31F 27 13 '. beq 13 ; to d334
10556 D321 7C 00 1C |.. inc 001c
10557 D324 F6 00 1C ... ldab 001c
10558 D327 C1 FF .. cmpb #ff
10559 D329 26 07 &. bne 07
10560 D32B BD D1 05 ... jsr d105 ;motors_off
10561 D32E CC 00 01 ... ldd #0001
10564 D332 20 10 . bra 10 ; to d344
10565 D334 7C 00 18 |.. inc 0018
10566 D337 F6 00 18 ... ldab 0018
10567 D33A C1 08 .. cmpb #08
10568 D33C 26 06 &. bne 06 ; continue
10569 D33E BD D1 05 ... jsr d105 ;motors_off
10573 D344 20 D4 . bra d4 ; continue
10580 D34A F6 0E 6D ..m ldab 0e6d
10581 D34D C1 01 .. cmpb #01
10582 D34F 27 03 '. beq 03
10583 D351 7E D4 07 ~.. jmp d407 ;goto60
10584 D354 F6 00 06 ... ldab 0006
10587 D359 C3 08 C8 ... addd #08c8
10589 D35D EC 00 .. ldd 00,x
10590 D35F C4 7F .. andb #7f
10592 D362 FD 0E 6B ..k std 0e6b
10593 D365 7F 00 06 ... clr 0006
10595 D368 F6 00 06 ... ldab 0006
10596 D36B C1 3E .> cmpb #3e
10597 D36D 26 03 &. bne 03
10598 D36F 7E D4 02 ~.. jmp d402 ;goto61
10599 D372 BD 97 6F ..o jsr 976f ;jump41
10600 D375 F6 00 06 ... ldab 0006
10603 D37A C3 08 C8 ... addd #08c8
10605 D37E EC 00 .. ldd 00,x
10606 D380 C4 7F .. andb #7f
10608 D383 B3 0E 6B ..k subd 0e6b
10609 D386 26 77 &w bne 77
10610 D388 F6 00 06 ... ldab 0006
10612 D38C CE 00 0A ... ldx #000a
10615 D391 E7 01 .. stab 01,x
10616 D393 E6 01 .. ldab 01,x
10617 D395 C1 01 .. cmpb #01
10618 D397 26 07 &. bne 07
10619 D399 C6 40 .@ ldab #40
10621 D39C E7 00 .. stab 00,x
10622 D39E 20 0C . bra 0c
10624 D3A1 E6 01 .. ldab 01,x
10625 D3A3 C1 02 .. cmpb #02
10626 D3A5 26 05 &. bne 05
10627 D3A7 C6 80 .. ldab #80
10629 D3AA E7 00 .. stab 00,x
10630 D3AC BD D1 3D ..= jsr d13d ;jump34 - motor on
10634 D3B2 ED 03 .. std 03,x
10635 ;look at the home sensors for this row. If it is 0, increment 03/04 else
10636 ;decrement 03/05. Do this 10 times.
10637 D3B4 CC 00 0A ... ldd #000a
10638 D3B7 ED 05 .. std 05,x
10641 D3BA EC 05 .. ldd 05,x
10642 D3BC 2F 23 /# ble 23 ; to D3E1
10643 D3BE F6 28 00 .(. ldab 2800 ;snack motor home sensors
10645 D3C2 E4 00 .. andb 00,x
10646 D3C4 26 09 &. bne d3cf
10648 D3C7 6C 04 l. inc 04,x
10649 D3C9 26 0C &. bne 0c
10650 D3CB 6C 03 l. inc 03,x
10651 D3CD 20 08 . bra d3d7
10653 D3D0 EC 03 .. ldd 03,x
10654 D3D2 83 00 01 ... subd #0001
10655 D3D5 ED 03 .. std 03,x
10657 D3D8 EC 05 .. ldd 05,x
10658 D3DA 83 00 01 ... subd #0001
10659 D3DD ED 05 .. std 05,x
10660 D3DF 20 D8 . bra loop ;d3b9
10661 D3E1 BD D1 05 ... jsr d105 ;motors_off - turn motors off
10663 D3E5 EC 03 .. ldd 03,x
10664 D3E7 2C 16 ,. bge 16
10665 D3E9 F6 00 06 ... ldab 0006
10666 D3EC 8D 7A .z bsr dest 7a
10667 D3EE 83 00 00 ... subd #0000
10668 D3F1 27 0C '. beq 0c
10669 D3F3 BD D5 61 ..a jsr d561 ;jump42
10670 D3F6 83 00 00 ... subd #0000
10671 D3F9 26 04 &. bne 04
10674 D3FD 20 64 d bra 64
10675 D3FF 7E D3 68 ~.h jmp d368 ;goto62
10677 D402 CC 00 01 ... ldd #0001
10678 D405 20 5C \ bra 5c
10680 D407 F6 00 06 ... ldab 0006
10681 D40A C1 13 .. cmpb #13
10682 D40C 27 1C '. beq 1c
10683 D40E F6 00 06 ... ldab 0006
10684 D411 C1 1D .. cmpb #1d
10685 D413 27 15 '. beq 15
10686 D415 F6 00 06 ... ldab 0006
10687 D418 C1 27 .' cmpb #27
10688 D41A 27 0E '. beq 0e
10689 D41C F6 00 06 ... ldab 0006
10690 D41F C1 31 .1 cmpb #31
10691 D421 27 07 '. beq 07
10692 D423 F6 00 06 ... ldab 0006
10693 D426 C1 3B .; cmpb #3b
10694 D428 26 37 &7 bne 37
10695 D42A BD D1 3D ..= jsr d13d ;jump34 - motor on
10696 D42D 7F 00 1C ... clr 001c
10697 D430 7F 00 18 ... clr 0018
10698 D433 F6 18 00 ... ldab 1800
10699 D436 C4 40 .@ andb #40
10700 D438 26 14 &. bne 14
10701 D43A 7C 00 1C |.. inc 001c
10702 D43D F6 00 1C ... ldab 001c
10703 D440 C1 FF .. cmpb #ff
10704 D442 26 08 &. bne 08
10705 D444 BD D1 05 ... jsr d105 ;motors_off
10706 D447 CC 00 01 ... ldd #0001
10707 D44A 20 17 . bra 17
10708 D44C 20 11 . bra 11
10709 D44E 7C 00 18 |.. inc 0018
10710 D451 F6 00 18 ... ldab 0018
10711 D454 C1 08 .. cmpb #08
10712 D456 26 07 &. bne 07
10713 D458 BD D1 05 ... jsr d105 ;motors_off
10716 D45D 20 04 . bra 04
10717 D45F 20 D2 . bra d2
10729 D46A E6 00 .. ldab 00,x
10732 D46E C3 08 00 ... addd #0800
10734 D472 EC 00 .. ldd 00,x
10736 D475 84 80 .. anda #80
10741 D479 7F 00 1C ... clr 001c
10742 D47C F6 00 1C ... ldab 001c
10743 D47F C1 64 .d cmpb #64
10744 D481 24 1A $. bcc 1a
10745 D483 CC FF 7F ... ldd #ff7f
10748 D488 F6 00 1C ... ldab 001c
10751 D48D C3 08 C8 ... addd #08c8
10754 D492 A4 00 .. anda 00,x
10755 D494 E4 01 .. andb 01,x
10756 D496 ED 00 .. std 00,x
10757 D498 7C 00 1C |.. inc 001c
10758 D49B 20 DF . bra df
10759 D49D 7F 00 05 ... clr 0005
10761 D4A0 F6 00 05 ... ldab 0005
10762 D4A3 C1 50 .P cmpb #50 ; 80
10763 D4A5 25 03 %. bcs 03
10764 D4A7 7E D5 60 ~.` jmp d560 ;goto63 - exit
10765 D4AA F6 00 05 ... ldab 0005
10767 D4AE C3 B0 D3 ... addd #b0d3 ;motor lookup table
10769 D4B2 E6 00 .. ldab 00,x
10770 D4B4 F7 00 06 ... stab 0006
10771 D4B7 BD D3 11 ... jsr d311 ;jump30 - test position exists
10772 D4BA 83 00 00 ... subd #0000
10773 D4BD 27 03 '. beq 03
10774 D4BF 7E D5 45 ~.E jmp d545 ;goto64
10775 D4C2 F6 00 06 ... ldab 0006
10776 D4C5 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
10777 D4C8 83 00 00 ... subd #0000
10778 D4CB 26 78 &x bne 78
10779 D4CD BD D5 B0 ... jsr d5b0 ;jump31
10780 D4D0 83 00 00 ... subd #0000
10781 D4D3 26 06 &. bne 06
10782 D4D5 BD D1 FD ... jsr d1fd ;jump90
10783 D4D8 BD D6 3C ..< jsr d63c ;jump33
10784 D4DB CC 80 00 ... ldd #8000
10787 D4E0 F6 00 06 ... ldab 0006
10790 D4E5 C3 08 00 ... addd #0800
10793 D4EA AA 00 .. ora 00,x
10794 D4EC EA 01 .. orb 01,x
10795 D4EE ED 00 .. std 00,x
10796 D4F0 F6 00 06 ... ldab 0006
10799 D4F5 C3 08 00 ... addd #0800
10801 D4F9 EC 00 .. ldd 00,x
10802 D4FB C4 FF .. andb #ff
10803 D4FD 84 3F .? anda #3f
10804 D4FF 83 27 0F .'. subd #270f
10805 D502 23 1A #. bls 1a
10806 D504 BD D1 FD ... jsr d1fd ;jump90
10807 D507 CC 01 00 ... ldd #0100
10810 D50C F6 00 06 ... ldab 0006
10813 D511 C3 08 C8 ... addd #08c8
10816 D516 AA 00 .. ora 00,x
10817 D518 EA 01 .. orb 01,x
10818 D51A ED 00 .. std 00,x
10819 D51C 20 25 % bra 25
10820 D51E F6 00 06 ... ldab 0006
10823 D523 C3 08 C8 ... addd #08c8
10825 D527 EC 00 .. ldd 00,x
10826 D529 C4 7F .. andb #7f
10827 D52B F7 00 06 ... stab 0006
10828 D52E CC 00 80 ... ldd #0080
10831 D533 F6 00 06 ... ldab 0006
10834 D538 C3 08 C8 ... addd #08c8
10837 D53D AA 00 .. ora 00,x
10838 D53F EA 01 .. orb 01,x
10839 D541 ED 00 .. std 00,x
10840 D543 20 15 . bra 15
10842 D545 CC 7F FF ... ldd #7fff
10845 D54A F6 00 06 ... ldab 0006
10848 D54F C3 08 00 ... addd #0800
10851 D554 A4 00 .. anda 00,x
10852 D556 E4 01 .. andb 01,x
10853 D558 ED 00 .. std 00,x
10854 D55A 7C 00 05 |.. inc 0005
10855 D55D 7E D4 A0 ~.. jmp d4a0 ;goto65
10860 D561 F6 00 06 ... ldab 0006
10863 D566 C3 08 00 ... addd #0800
10865 D56A EC 00 .. ldd 00,x
10867 D56D 84 40 .@ anda #40
10870 ;Look at the home sensor for the row of this slot. If it isn't 0 within 5
10871 ;loops, return 1 (fault?), else return 0 (OK?).
10872 ;005f is the row number in this routine. scratch variable?
10873 ;looks like 0006 is the slot number.
10874 ;this is called twice
10876 D570 F6 00 06 ... ldab 0006
10878 D574 CE 00 0A ... ldx #000a
10880 D578 F7 00 5F .._ stab 005f
10881 D57B F6 00 5F .._ ldab 005f
10882 D57E C1 05 .. cmpb #05
10883 D580 23 03 #. bls d585
10884 D582 7A 00 5F z._ dec 005f
10885 D585 F6 00 5F .._ ldab 005f ;row number
10887 D589 C3 B1 23 ..# addd #b123
10889 D58D E6 00 .. ldab 00,x ;get bit for this row
10890 D58F F7 00 5E ..^ stab 005e
10891 D592 7F 00 1C ... clr 001c
10893 D595 F6 28 00 .(. ldab 2800 ;snack motor home sensors
10894 D598 F4 00 5E ..^ andb 005e ;check home sensor for this row
10895 D59B 27 10 '. beq d5ad
10896 D59D 7C 00 1C |.. inc 001c
10897 D5A0 F6 00 1C ... ldab 001c
10898 D5A3 C1 05 .. cmpb #05
10899 D5A5 26 04 &. bne d5ab
10900 D5A7 CC 00 01 ... ldd #0001
10903 D5AB 20 E8 . bra loop ;d595
10908 ;This does almost the same - check the home sensor for this row (slot number
10909 ;is in 0006) up to 5 times. If it is 1, return 0. If it stays 0, return 0.
10910 ;(this is the reverse of the routine above). But also check bit 0 of 100a.
10911 ;If it is ever 0, return 0.
10912 ;005f is the row number
10913 ;005e is the bit mask for this row
10915 D5B0 F6 00 06 ... ldab 0006
10917 D5B4 CE 00 0A ... ldx #000a
10919 D5B8 F7 00 5F .._ stab 005f
10920 D5BB F6 00 5F .._ ldab 005f
10921 D5BE C1 05 .. cmpb #05
10922 D5C0 23 03 #. bls 03
10923 D5C2 7A 00 5F z._ dec 005f
10924 D5C5 F6 00 5F .._ ldab 005f
10926 D5C9 C3 B1 23 ..# addd #b123
10928 D5CD E6 00 .. ldab 00,x
10929 D5CF F7 00 5E ..^ stab 005e
10930 D5D2 7F 00 1C ... clr 001c
10932 D5D5 F6 28 00 .(. ldab 2800 ;snack motor home sensors
10933 D5D8 F4 00 5E ..^ andb 005e
10934 D5DB 26 17 &. bne d5f4
10935 D5DD F6 10 0A ... ldab 100a
10936 D5E0 C4 01 .. andb #01
10937 D5E2 27 10 '. beq d5f4
10938 D5E4 7C 00 1C |.. inc 001c
10939 D5E7 F6 00 1C ... ldab 001c
10940 D5EA C1 05 .. cmpb #05
10941 D5EC 26 04 &. bne d5f2
10942 D5EE CC 00 01 ... ldd #0001
10945 D5F2 20 E1 . bra loop ;d5d5
10951 D5F7 C6 07 .. ldab #07
10952 D5F9 F7 00 1C ... stab 001c
10953 D5FC 7F 00 18 ... clr 0018
10955 D5FF F6 00 1C ... ldab 001c
10956 D602 27 1E '. beq 1e ; to d620
10957 D604 7A 00 1C z.. dec 001c
10958 D607 F6 10 0A ... ldab 100a
10959 D60A C4 01 .. andb #01
10960 D60C 26 12 &. bne 12 ; to d620
10961 D60E C6 07 .. ldab #07
10962 D610 F7 00 1C ... stab 001c
10963 D613 7C 00 18 |.. inc 0018
10964 D616 F6 00 18 ... ldab 0018
10965 D619 C1 05 .. cmpb #05
10966 D61B 26 03 &. bne 03
10971 D620 20 DD . bra dd ; to d5ff
10972 D622 CC 00 01 ... ldd #0001
10976 ; ORs memory location 08c8+(slotnum*2) with #0200
10977 D626 CC 02 00 ... ldd #0200
10980 D62B F6 00 06 ... ldab 0006
10983 D630 C3 08 C8 ... addd #08c8
10986 D635 AA 00 .. ora 00,x
10987 D637 EA 01 .. orb 01,x
10988 D639 ED 00 .. std 00,x
10992 ; ORs memory location 08c8+(slotnum*2) with #0400
10993 D63C CC 04 00 ... ldd #0400
10996 D641 F6 00 06 ... ldab 0006
10999 D646 C3 08 C8 ... addd #08c8
11002 D64B AA 00 .. ora 00,x
11003 D64D EA 01 .. orb 01,x
11004 D64F ED 00 .. std 00,x
11008 ; Sends a pulse to the bill acceptor
11009 D652 CE 00 1A ... ldx #001a
11010 D655 1C 00 01 .. bset 00,x, #01
11011 D658 F6 00 1A ... ldab 001a
11012 D65B F7 30 00 .0. stab 3000
11013 D65E CE 00 14 ... ldx #0014
11014 D661 1D 00 01 .. bclr 00,x, #01
11015 D664 F6 00 14 ... ldab 0014
11016 D667 F7 38 00 .8. stab 3800
11020 D66B F6 0B C0 ... ldab 0bc0
11021 D66E C4 08 .. andb #08
11022 D670 27 07 '. beq 07
11023 D672 F6 00 7D ..} ldab 007d
11024 D675 27 02 '. beq 02
11025 D677 20 F9 . bra f9
11026 D679 F6 00 15 ... ldab 0015
11027 D67C 2D 77 -w blt 77
11028 D67E FC 00 40 ..@ ldd 0040
11029 D681 F3 00 3E ..> addd 003e
11030 D684 B3 00 0F ... subd 000f
11031 D687 24 4F $O bcc 4f
11032 D689 F6 0B C0 ... ldab 0bc0
11033 D68C C4 01 .. andb #01
11034 D68E 26 07 &. bne 07
11035 D690 F6 0B C0 ... ldab 0bc0
11036 D693 C4 04 .. andb #04
11037 D695 27 0C '. beq 0c
11038 D697 CE 00 1A ... ldx #001a
11039 D69A 1D 00 01 .. bclr 00,x, #01
11040 D69D F6 00 1A ... ldab 001a
11041 D6A0 F7 30 00 .0. stab 3000 ; changer accept' line
11042 D6A3 F6 0B C0 ... ldab 0bc0
11043 D6A6 C4 08 .. andb #08
11044 D6A8 27 20 ' beq 20
11045 D6AA F6 0C D9 ... ldab 0cd9
11046 D6AD C1 03 .. cmpb #03
11047 D6AF 23 19 #. bls 19
11048 D6B1 FC 0B EF ... ldd 0bef
11049 D6B4 83 00 64 ..d subd #0064
11050 D6B7 25 11 %. bcs 11
11051 D6B9 CE 00 14 ... ldx #0014
11052 D6BC 1C 00 02 .. bset 00,x, #02
11053 D6BF F6 00 14 ... ldab 0014
11054 D6C2 F7 38 00 .8. stab 3800 ; bill acceptor
11055 D6C5 BD C0 E0 ... jsr c0e0 ;jump94
11056 D6C8 20 0C . bra 0c
11057 D6CA CE 00 14 ... ldx #0014
11058 D6CD 1D 00 01 .. bclr 00,x, #01
11059 D6D0 F6 00 14 ... ldab 0014
11060 D6D3 F7 38 00 .8. stab 3800
11061 D6D6 20 05 . bra 05
11062 D6D8 BD D6 52 ..R jsr d652 ;jump5
11063 D6DB 8D 53 .S bsr dest 53
11064 D6DD F6 0B C0 ... ldab 0bc0
11065 D6E0 C4 08 .. andb #08
11066 D6E2 27 11 '. beq 11
11067 D6E4 F6 0B C0 ... ldab 0bc0
11068 D6E7 C4 40 .@ andb #40
11069 D6E9 27 0A '. beq 0a
11070 D6EB F6 00 15 ... ldab 0015
11071 D6EE C4 01 .. andb #01
11072 D6F0 27 03 '. beq 03
11073 D6F2 BD C0 E0 ... jsr c0e0 ;jump94
11077 D6F6 F6 0C DB ... ldab 0cdb
11081 D6FC FC 0B DD ... ldd 0bdd
11082 D6FF BD FB BA ... jsr fbba ;jump38 - multiply?
11083 D702 FD 0C EB ... std 0ceb
11084 D705 F6 0C DA ... ldab 0cda
11088 D70B FC 0B DF ... ldd 0bdf
11089 D70E BD FB BA ... jsr fbba ;jump38 - multiply?
11090 D711 FD 0C ED ... std 0ced
11091 D714 F6 0C D9 ... ldab 0cd9
11095 D71A FC 0B E1 ... ldd 0be1
11096 D71D BD FB BA ... jsr fbba ;jump38 - multiply?
11097 D720 FD 0C EF ... std 0cef
11098 D723 FC 0C EB ... ldd 0ceb
11099 D726 F3 0C ED ... addd 0ced
11100 D729 F3 0C EF ... addd 0cef
11101 D72C FD 0B EF ... std 0bef
11105 D730 F6 00 15 ... ldab 0015
11106 D733 C4 1F .. andb #1f
11107 D735 27 49 'I beq 49
11108 D737 FC 00 40 ..@ ldd 0040
11109 D73A F3 00 3E ..> addd 003e
11110 D73D B3 0B EF ... subd 0bef
11111 D740 23 19 #. bls 19
11112 D742 CC B0 6B ..k ldd #b06b ; "NO CHANGE"
11113 D745 BD C0 BA ... jsr c0ba ;display:
11114 D748 CC 01 F4 ... ldd #01f4
11115 D74B BD E5 71 ..q jsr e571 ;msdelay
11116 D74E BD C5 D3 ... jsr c5d3 ;jump6
11117 D751 CC 01 F4 ... ldd #01f4
11118 D754 BD E5 71 ..q jsr e571 ;msdelay
11119 D757 CC 00 01 ... ldd #0001
11122 D75B F6 00 15 ... ldab 0015
11123 D75E C4 04 .. andb #04
11124 D760 27 1E '. beq 1e
11125 D762 F6 0E 6E ..n ldab 0e6e
11126 D765 26 19 &. bne 19
11127 D767 CC B0 76 ..v ldd #b076 ; "NO FIVES"
11128 D76A BD C0 BA ... jsr c0ba ;display:
11129 D76D CC 01 F4 ... ldd #01f4
11130 D770 BD E5 71 ..q jsr e571 ;msdelay
11131 D773 BD C5 D3 ... jsr c5d3 ;jump6
11132 D776 CC 01 F4 ... ldd #01f4
11133 D779 BD E5 71 ..q jsr e571 ;msdelay
11134 D77C CC 00 01 ... ldd #0001
11142 D783 F6 00 06 ... ldab 0006
11144 D787 CE 00 0A ... ldx #000a
11146 D78B C1 04 .. cmpb #04
11147 D78D 26 0E &. bne 0e
11148 D78F F6 00 1D ... ldab 001d
11149 D792 C4 04 .. andb #04
11150 D794 27 03 '. beq 03
11155 D799 CC 00 01 ... ldd #0001
11163 ; validates a slot number? (return 1 if invalid)
11164 ; let i = number on stack
11165 ; if i in [9, 69, 79, 89, 99], return 1
11166 ; if 0e6d!=1 return 0
11167 ; if i%10 not in [1,2] return 1
11168 ; if i < 11 return 1
11169 ; if i <= 62 return 0
11173 D7A2 E6 00 .. ldab 00,x
11174 D7A4 C1 09 .. cmpb #09 ; 9
11175 D7A6 27 18 '. beq 18 ; to d7c0 (returns 1)
11176 D7A8 E6 00 .. ldab 00,x
11177 D7AA C1 45 .E cmpb #45 ; 69
11178 D7AC 27 12 '. beq 12 ; to d7c0 (returns 1)
11179 D7AE E6 00 .. ldab 00,x
11180 D7B0 C1 4F .O cmpb #4f ; 79
11181 D7B2 27 0C '. beq 0c ; to d7c0 (returns 1)
11182 D7B4 E6 00 .. ldab 00,x
11183 D7B6 C1 59 .Y cmpb #59 ; 89
11184 D7B8 27 06 '. beq 06 ; to d7c0 (returns 1)
11185 D7BA E6 00 .. ldab 00,x
11186 D7BC C1 63 .c cmpb #63 ; 99 (also returns 1)
11187 D7BE 26 05 &. bne 05 ; to d7c5 if not equal
11188 D7C0 CC 00 01 ... ldd #0001
11189 D7C3 20 38 8 bra 38 ; to d7fd (return 1)
11190 D7C5 F6 0E 6D ..m ldab 0e6d
11191 D7C8 C1 01 .. cmpb #01
11192 D7CA 26 2F &/ bne 2f ;to d7fb (return 0)
11194 D7CD E6 00 .. ldab 00,x
11196 D7D0 CE 00 0A ... ldx #000a
11198 D7D4 C1 01 .. cmpb #01
11199 D7D6 27 11 '. beq 11 ;to d7e9 if num%10==1
11201 D7D9 E6 00 .. ldab 00,x
11203 D7DC CE 00 0A ... ldx #000a
11205 D7E0 C1 02 .. cmpb #02
11206 D7E2 27 05 '. beq 05 ;to d7e9 if num%10==2
11207 D7E4 CC 00 01 ... ldd #0001
11208 D7E7 20 14 . bra 14 ; to d7fd (return 1)
11210 D7EA E6 00 .. ldab 00,x
11211 D7EC C1 0B .. cmpb #0b ; < 11
11212 D7EE 25 06 %. bcs 06 ; return 1
11213 D7F0 E6 00 .. ldab 00,x
11214 D7F2 C1 3E .> cmpb #3e ; <= 62
11215 D7F4 23 05 #. bls 05 ; return 0
11216 D7F6 CC 00 01 ... ldd #0001
11217 D7F9 20 02 . bra 02
11224 D7FF 7F 00 1C ... clr 001c
11225 D802 F6 00 1C ... ldab 001c
11227 D806 B3 00 4D ..M subd 004d
11228 D809 24 05 $. bcc 05
11229 D80B 7C 00 1C |.. inc 001c
11230 D80E 20 F2 . bra f2
11231 D810 F6 00 1C ... ldab 001c
11234 D815 C3 0D 1F ... addd #0d1f
11236 D819 EC 00 .. ldd 00,x
11237 D81B 83 FF FF ... subd #ffff
11238 D81E 26 10 &. bne 10
11243 D824 F6 00 1C ... ldab 001c
11246 D829 C3 0D 1F ... addd #0d1f
11249 D82E ED 00 .. std 00,x
11250 D830 F6 00 1C ... ldab 001c
11253 D835 C3 0D 1F ... addd #0d1f
11255 D839 6C 01 l. inc 01,x
11256 D83B 26 02 &. bne 02
11257 D83D 6C 00 l. inc 00,x
11261 D840 FC 00 44 ..D ldd 0044
11262 D843 26 03 &. bne 03
11263 D845 7E D8 D2 ~.. jmp d8d2 ;goto66
11264 D848 FC 00 44 ..D ldd 0044
11271 D851 CC 0D EB ... ldd #0deb
11272 D854 BD FB DF ... jsr fbdf ;jump46
11275 D859 FE 0D ED ... ldx 0ded
11277 D85D FC 0D EB ... ldd 0deb
11280 D862 CE E1 00 ... ldx #e100
11282 D866 CC 05 F5 ... ldd #05f5
11286 D86C EC 06 .. ldd 06,x
11287 D86E A3 02 .. subd 02,x
11288 D870 EC 04 .. ldd 04,x
11289 D872 E2 01 .. sbcb 01,x
11290 D874 A2 00 .. sbca 00,x
11295 D87A 25 11 %. bcs 11
11296 D87C CE 1F 00 ... ldx #1f00
11298 D880 CC FA 0A ... ldd #fa0a
11301 D885 CC 0D EB ... ldd #0deb
11302 D888 BD FB DF ... jsr fbdf ;jump46
11305 D88D FC 00 44 ..D ldd 0044
11312 D896 CC 0D E7 ... ldd #0de7
11313 D899 BD FB DF ... jsr fbdf ;jump46
11316 D89E FE 0D E9 ... ldx 0de9
11318 D8A2 FC 0D E7 ... ldd 0de7
11321 D8A7 CE E1 00 ... ldx #e100 ; 57600
11323 D8AB CC 05 F5 ... ldd #05f5
11327 D8B1 EC 06 .. ldd 06,x
11328 D8B3 A3 02 .. subd 02,x
11329 D8B5 EC 04 .. ldd 04,x
11330 D8B7 E2 01 .. sbcb 01,x
11331 D8B9 A2 00 .. sbca 00,x
11336 D8BF 25 11 %. bcs 11
11337 D8C1 CE 1F 00 ... ldx #1f00
11339 D8C5 CC FA 0A ... ldd #fa0a
11342 D8CA CC 0D E7 ... ldd #0de7
11343 D8CD BD FB DF ... jsr fbdf ;jump46
11351 D8D3 7F 00 18 ... clr 0018
11352 D8D6 F6 00 18 ... ldab 0018
11353 D8D9 C1 10 .. cmpb #10
11354 D8DB 24 0B $. bcc 0b
11355 D8DD CC 00 32 ..2 ldd #0032
11356 D8E0 BD E5 71 ..q jsr e571 ;msdelay
11357 D8E3 7C 00 18 |.. inc 0018
11358 D8E6 20 EE . bra ee
11362 ; displays select other item
11363 D8E9 F6 00 2B ..+ ldab 002b
11364 D8EC C1 00 .. cmpb #00
11365 D8EE 26 18 &. bne 18
11366 D8F0 CC AD 84 ... ldd #ad84 ; " PULSE "
11367 D8F3 BD C0 BA ... jsr c0ba ;display:
11368 D8F6 8D DB .. bsr dest db
11369 D8F8 CC AD 8F ... ldd #ad8f ; " EXTRA "
11370 D8FB BD C0 BA ... jsr c0ba ;display:
11371 D8FE 8D D3 .. bsr dest d3
11372 D900 CC AD 9A ... ldd #ad9a ; "SELECTION"
11373 D903 BD C0 BA ... jsr c0ba ;display:
11374 D906 20 4E N bra 4e
11375 D908 C1 01 .. cmpb #01
11376 D90A 26 18 &. bne 18
11377 D90C CC AD 63 ..c ldd #ad63 ; " BITTE "
11378 D90F BD C0 BA ... jsr c0ba ;display:
11379 D912 8D BF .. bsr dest bf
11380 D914 CC AD 6E ..n ldd #ad6e ; " ANDERE "
11381 D917 BD C0 BA ... jsr c0ba ;display:
11382 D91A 8D B7 .. bsr dest b7
11383 D91C CC AD 79 ..y ldd #ad79 ; " WAHL "
11384 D91F BD C0 BA ... jsr c0ba ;display:
11385 D922 20 32 2 bra 32
11386 D924 C1 02 .. cmpb #02
11387 D926 26 18 &. bne 18
11388 D928 CC AD 42 ..B ldd #ad42 ; "FAITES"
11389 D92B BD C0 BA ... jsr c0ba ;display:
11390 D92E 8D A3 .. bsr dest a3
11391 D930 CC AD 4D ..M ldd #ad4d ; "AURTE"
11392 D933 BD C0 BA ... jsr c0ba ;display:
11393 D936 8D 9B .. bsr dest 9b
11394 D938 CC AD 58 ..X ldd #ad58 ; "CHOIX"
11395 D92B BD C0 BA ... jsr c0ba ;display:
11396 D93E 20 16 . bra 16
11397 D940 CC AD 21 ..! ldd #ad21 ; "SELECT "
11398 D943 BD C0 BA ... jsr c0ba ;display:
11399 D946 8D 8B .. bsr dest 8b
11400 D948 CC AD 2C .., ldd #ad2c ; "OTHER"
11401 D94B BD C0 BA ... jsr c0ba ;display:
11402 D94E 8D 83 .. bsr dest 83
11403 D950 CC AD 37 ..7 ldd #ad37 ; "ITEM"
11404 D953 BD C0 BA ... jsr c0ba ;display:
11405 D956 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay
11409 D95A F6 00 06 ... ldab 0006
11410 D95D F1 0B AF ... cmpb 0baf
11411 D960 26 0D &. bne 0d ; to d984
11412 D962 BD D7 FF ... jsr d7ff ;jump80
11413 D965 F6 0B B4 ... ldab 0bb4
11414 D968 F7 00 06 ... stab 0006
11415 D96B 8D 55 .U bsr 55 ;jump205
11416 D96D 20 52 R bra 52 ; exit
11417 D96F F6 00 06 ... ldab 0006
11418 D972 F1 0B AE ... cmpb 0bae
11419 D975 26 0D &. bne 0d ; to d984
11420 D977 BD D7 FF ... jsr d7ff ;jump80
11421 D97A F6 0B B3 ... ldab 0bb3
11422 D97D F7 00 06 ... stab 0006
11423 D980 8D 40 .@ bsr 40 ;jump205
11424 D982 20 3D = bra 3d
11425 D984 F6 00 06 ... ldab 0006
11426 D987 F1 0B AD ... cmpb 0bad
11427 D98A 26 0D &. bne 0d
11428 D98C BD D7 FF ... jsr d7ff ;jump80
11429 D98F F6 0B B2 ... ldab 0bb2
11430 D992 F7 00 06 ... stab 0006
11431 D995 8D 2B .+ bsr 2b ;jump205
11432 D997 20 28 ( bra 28
11433 D999 F6 00 06 ... ldab 0006
11434 D99C F1 0B AC ... cmpb 0bac
11435 D99F 26 0D &. bne 0d
11436 D9A1 BD D7 FF ... jsr d7ff ;jump80
11437 D9A4 F6 0B B1 ... ldab 0bb1
11438 D9A7 F7 00 06 ... stab 0006
11439 D9AA 8D 16 .. bsr 16 ;jump205
11440 D9AC 20 13 . bra 13
11441 D9AE F6 00 06 ... ldab 0006
11442 D9B1 F1 0B AB ... cmpb 0bab
11443 D9B4 26 0B &. bne 0b
11444 D9B6 BD D7 FF ... jsr d7ff ;jump80
11445 D9B9 F6 0B B0 ... ldab 0bb0
11446 D9BC F7 00 06 ... stab 0006
11447 D9BF 8D 01 .. bsr 01 ;jump205
11451 D9C2 CC 03 E8 ... ldd #03e8
11452 D9C5 BD E5 71 ..q jsr e571 ;msdelay
11453 D9C8 BD D7 83 ... jsr d783 ;jump44
11454 D9CB 83 00 00 ... subd #0000
11455 D9CE 27 0B '. beq 0b
11456 D9D0 7F 00 06 ... clr 0006
11459 D9D5 FD 00 4D ..M std 004d
11460 D9D8 7E DA 63 ~.c jmp da63 ;goto67
11461 D9DB BD D2 13 ... jsr d213 ;jump45
11462 D9DE 83 00 00 ... subd #0000
11463 D9E1 26 0A &. bne 0a
11464 D9E3 7F 00 06 ... clr 0006
11467 D9E8 FD 00 4D ..M std 004d
11468 D9EB 20 76 v bra 76
11469 D9ED FC 0D 0B ... ldd 0d0b
11470 D9F0 83 FF FF ... subd #ffff
11471 D9F3 26 05 &. bne 05
11474 D9F7 FD 0D 0B ... std 0d0b
11475 D9FA FE 0D 0B ... ldx 0d0b
11477 D9FE FF 0D 0B ... stx 0d0b
11478 DA01 F6 00 06 ... ldab 0006
11481 DA06 C3 08 C8 ... addd #08c8
11483 DA0A EC 00 .. ldd 00,x
11484 DA0C C4 7F .. andb #7f
11486 DA0F FD 00 4D ..M std 004d
11487 DA12 F6 00 06 ... ldab 0006
11490 DA17 C3 08 00 ... addd #0800
11492 DA1B EC 00 .. ldd 00,x
11493 DA1D C4 FF .. andb #ff
11494 DA1F 84 3F .? anda #3f
11501 DA27 CC 0D 17 ... ldd #0d17
11502 DA2A BD FB DF ... jsr fbdf ;jump46
11505 DA2F FE 0D 19 ... ldx 0d19
11507 DA33 FC 0D 17 ... ldd 0d17
11510 DA38 CE E1 00 ... ldx #e100
11512 DA3C CC 05 F5 ... ldd #05f5
11516 DA42 EC 06 .. ldd 06,x
11517 DA44 A3 02 .. subd 02,x
11518 DA46 EC 04 .. ldd 04,x
11519 DA48 E2 01 .. sbcb 01,x
11520 DA4A A2 00 .. sbca 00,x
11525 DA50 25 11 %. bcs 11
11526 DA52 CE 1F 00 ... ldx #1f00
11528 DA56 CC FA 0A ... ldd #fa0a
11531 DA5B CC 0D 17 ... ldd #0d17
11532 DA5E BD FB DF ... jsr fbdf ;jump46
11539 DA64 FE 0B B9 ... ldx 0bb9
11541 DA68 FF 0B B9 ... stx 0bb9
11542 DA6B FC 0B B5 ... ldd 0bb5
11543 DA6E CE 00 32 ..2 ldx #0032
11548 DA75 CC 00 C3 ... ldd #00c3
11549 DA78 BD FB BA ... jsr fbba ;jump38 - multiply?
11550 DA7B B3 0B B9 ... subd 0bb9
11551 DA7E 24 05 $. bcc 05
11554 DA82 FD 0B B9 ... std 0bb9
11555 DA85 FC 0B B9 ... ldd 0bb9
11558 DA8A CC 00 0A ... ldd #000a
11559 DA8D BD FB BA ... jsr fbba ;jump38 - multiply?
11562 DA92 FC 0B B5 ... ldd 0bb5
11563 DA95 CE 00 32 ..2 ldx #0032
11572 DAA0 CC 00 0A ... ldd #000a
11573 DAA3 BD FB BA ... jsr fbba ;jump38 - multiply?
11574 DAA6 CE 00 0A ... ldx #000a
11577 DAAB FD 00 4A ..J std 004a
11578 DAAE FC 00 4A ..J ldd 004a
11579 DAB1 BD FE 32 ..2 jsr fe32 ;jump25
11580 DAB4 DA CA 00 6E ...n ; 110
11581 DAB8 DA CA 02 80 .... ; 750
11582 DABC DA CA 01 C2 .... ; 1200
11583 DAC0 DA CA 01 C2 .... ; 1650
11584 DAC4 DB 43 F9 8E .... ; 0
11585 DAC8 00 00 .. ; end of array data
11586 DACA FC 0D 07 ... ldd 0d07
11587 DACD 83 FF FF ... subd #ffff
11588 DAD0 26 05 &. bne 05
11591 DAD4 FD 0D 07 ... std 0d07
11592 DAD7 FE 0D 07 ... ldx 0d07
11594 DADB FF 0D 07 ... stx 0d07
11595 DADE F6 00 06 ... ldab 0006
11598 DAE3 C3 08 00 ... addd #0800
11600 DAE7 EC 00 .. ldd 00,x
11601 DAE9 C4 FF .. andb #ff
11602 DAEB 84 3F .? anda #3f
11609 DAF3 CC 0D 0F ... ldd #0d0f
11610 DAF6 BD FB DF ... jsr fbdf ;jump46
11613 DAFB FE 0D 11 ... ldx 0d11
11615 DAFF FC 0D 0F ... ldd 0d0f
11618 DB04 CE E1 00 ... ldx #e100
11620 DB08 CC 05 F5 ... ldd #05f5
11624 DB0E EC 06 .. ldd 06,x
11625 DB10 A3 02 .. subd 02,x
11626 DB12 EC 04 .. ldd 04,x
11627 DB14 E2 01 .. sbcb 01,x
11628 DB16 A2 00 .. sbca 00,x
11633 DB1C 25 11 %. bcs 11
11634 DB1E CE 1F 00 ... ldx #1f00
11636 DB22 CC FA 0A ... ldd #fa0a
11639 DB27 CC 0D 0F ... ldd #0d0f
11640 DB2A BD FB DF ... jsr fbdf ;jump46
11645 DB31 FD 00 44 ..D std 0044
11646 DB34 CE 00 1B ... ldx #001b
11647 DB37 1D 00 01 ... bclr 00,x, #01
11648 DB3A 7F 00 4F ..O clr 004f
11649 DB3D CE 00 11 ... ldx #0011
11650 DB40 1C 00 10 ... bset 00,x, #10
11655 DB44 F6 00 2B ..+ ldab 002b
11656 DB47 C1 00 .. cmpb #00
11657 DB49 26 08 &. bne 08
11658 DB4B CC AC DF ... ldd #acdf
11659 DB4E BD C0 BA ... jsr c0ba ;display:
11660 DB51 20 1E . bra 1e
11661 DB53 C1 01 .. cmpb #01
11662 DB55 26 08 &. bne 08
11663 DB57 CC AC D4 ... ldd #acd4 ; "CHANGE"
11664 DB5A BD C0 BA ... jsr c0ba ;display:
11665 DB5D 20 12 . bra 12
11666 DB5F C1 02 .. cmpb #02
11667 DB61 26 08 &. bne 08
11668 DB63 CC AC EA ... ldd #acea
11669 DB66 BD C0 BA ... jsr c0ba ;display:
11670 DB69 20 06 . bra 06
11671 DB6B CC AC D4 ... ldd #acd4
11672 DB6E BD C0 BA ... jsr c0ba ;display:
11673 DB71 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay
11674 DB74 CE 00 01 ... ldx #0001
11676 DB78 FC 00 40 ..@ ldd 0040
11677 DB7B F3 00 3E ..> addd 003e
11678 DB7E BD BE 9E ... jsr be9e ;jump50
11680 DB82 FC 00 40 ..@ ldd 0040
11681 DB85 27 05 '. beq 05
11682 DB87 BD C4 56 ..V jsr c456 ;jump47
11683 DB8A 20 06 . bra 06
11684 DB8C CC 02 58 ..X ldd #0258
11685 DB8F BD E5 71 ..q jsr e571 ;msdelay
11686 DB92 FC 00 3E ..> ldd 003e
11687 DB95 27 03 '. beq 03
11688 DB97 BD C5 D3 ... jsr c5d3 ;jump6
11689 DB9A F6 00 2B ..+ ldab 002b
11690 DB9D C1 00 .. cmpb #00
11691 DB9F 26 08 &. bne 08
11692 DBA1 CC AD 16 ... ldd #ad16 ; "GRACIAS"
11693 DBA4 BD C0 BA ... jsr c0ba ;display:
11694 DBA7 20 1E . bra 1e
11695 DBA9 C1 01 .. cmpb #01
11696 DBAB 26 08 &. bne 08
11697 DBAD CC AD 0B ... ldd #ad0b ; "DANKE"
11698 DBB0 BD C0 BA ... jsr c0ba ;display:
11699 DBB3 20 12 . bra 12
11700 DBB5 C1 02 .. cmpb #02
11701 DBB7 26 08 &. bne 08
11702 DBB9 CC AD 00 ... ldd #ad00 ; "MERCI"
11703 DBBC BD C0 BA ... jsr c0ba ;display:
11704 DBBF 20 06 . bra 06
11705 DBC1 CC AC F5 ... ldd #acf5 ; "THANKS"
11706 DBC4 BD C0 BA ... jsr c0ba ;display:
11707 DBC7 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay
11711 DBCB F6 00 1B ... ldab 001b
11712 DBCE C4 01 .. andb #01
11713 DBD0 26 03 &. bne 03
11714 DBD2 7E DC 98 ~.. jmp dc98 ;goto68
11715 DBD5 F6 00 06 ... ldab 0006
11718 DBDA C3 08 C8 ... addd #08c8
11720 DBDE EC 00 .. ldd 00,x
11721 DBE0 84 08 .. anda #08
11722 DBE2 26 03 &. bne 03
11723 DBE4 7E DC 98 ~.. jmp dc98 ;goto68
11724 DBE7 BD D7 FF ... jsr d7ff ;jump80
11725 DBEA CC 03 E8 ... ldd #03e8
11726 DBED BD E5 71 ..q jsr e571 ;msdelay
11727 DBF0 BD D3 46 ..F jsr d346 ;jump43
11728 DBF3 83 00 00 ... subd #0000
11729 DBF6 26 08 &. bne 08
11730 DBF8 BD D7 83 ... jsr d783 ;jump44
11731 DBFB 83 00 00 ... subd #0000
11732 DBFE 27 17 '. beq 17
11735 DC02 FD 00 4D ..M std 004d
11736 DC05 FC 00 44 ..D ldd 0044
11737 DC08 F3 0B B7 ... addd 0bb7
11739 DC0C F3 00 40 ..@ addd 0040
11740 DC0F B3 0B B7 ... subd 0bb7
11741 DC12 FD 00 40 ..@ std 0040
11742 DC15 20 78 x bra 78
11743 DC17 BD D2 13 ... jsr d213 ;jump45
11744 DC1A 83 00 00 ... subd #0000
11745 DC1D 26 17 &. bne 17
11748 DC21 FD 00 4D ..M std 004d
11749 DC24 FC 00 44 ..D ldd 0044
11750 DC27 F3 0B B7 ... addd 0bb7
11752 DC2B F3 00 40 ..@ addd 0040
11753 DC2E B3 0B B7 ... subd 0bb7
11754 DC31 FD 00 40 ..@ std 0040
11755 DC34 20 59 Y bra 59
11756 DC36 FC 0D 09 ... ldd 0d09
11757 DC39 83 FF FF ... subd #ffff
11758 DC3C 26 05 &. bne 05
11761 DC40 FD 0D 09 ... std 0d09
11762 DC43 FE 0D 09 ... ldx 0d09
11764 DC47 FF 0D 09 ... stx 0d09
11765 DC4A FC 0B B7 ... ldd 0bb7
11772 DC53 CC 0D 13 ... ldd #0d13
11773 DC56 BD FB DF ... jsr fbdf ;jump46
11776 DC5B FE 0D 15 ... ldx 0d15
11778 DC5F FC 0D 13 ... ldd 0d13
11781 DC64 CE E1 00 ... ldx #e100
11783 DC68 CC 05 F5 ... ldd #05f5
11787 DC6E EC 06 .. ldd 06,x
11788 DC70 A3 02 .. subd 02,x
11789 DC72 EC 04 .. ldd 04,x
11790 DC74 E2 01 .. sbcb 01,x
11791 DC76 A2 00 .. sbca 00,x
11796 DC7C 25 11 %. bcs 11
11797 DC7E CE 1F 00 ... ldx #1f00
11799 DC82 CC FA 0A ... ldd #fa0a
11802 DC87 CC 0D 13 ... ldd #0d13
11803 DC8A BD FB DF ... jsr fbdf ;jump46
11806 DC8F CE 00 1B ... ldx #001b
11807 DC92 1D 00 01 ... bclr 00,x, #01
11808 DC95 7F 00 4F ..O clr 004f
11810 DC98 F6 00 11 ... ldab 0011
11811 DC9B C4 08 .. andb #08
11812 DC9D 26 03 &. bne 03
11813 DC9F BD D9 5A ..Z jsr d95a ;jump123
11817 DCA3 CE 0B BC ... ldx #0bbc
11818 DCA6 1D 00 1C .. bclr 00,x, #1c
11819 DCA9 F6 0B BC .. ldab 0bbc
11820 DCAB C4 03 ... andb #03
11821 DCAE 26 48 &H bne 48
11822 DCB0 FC 0B BD ... ldd 0bbd
11829 DCB9 CC 0D F7 ... ldd #0df7
11830 DCBC BD FB DF ... jsr fbdf ;jump46
11833 DCC1 FE 0D F9 ... ldx 0df9
11835 DCC5 FC 0D F7 ... ldd 0df7
11838 DCCA CE E1 00 ... ldx #e100
11840 DCCE CC 05 F5 ... ldd #05f5
11844 DCD4 EC 06 .. ldd 06,x
11845 DCD6 A3 02 .. subd 02,x
11846 DCD8 EC 04 .. ldd 04,x
11847 DCDA E2 01 .. sbcb 01,x
11848 DCDC A2 00 .. sbca 00,x
11853 DCE2 25 11 %. bcs 11
11854 DCE4 CE 1F 00 ... ldx #1f00
11856 DCE8 CC FA 0A ... ldd #fa0a
11859 DCED CC 0D F7 ... ldd #0df7
11860 DCF0 BD FB DF ... jsr fbdf ;jump46
11863 DCF5 7E DD D4 ~.. jmp ddd4 ;goto69
11864 DCF8 F6 0B BC ... ldab 0bbc
11865 DCFB C4 03 .. andb #03
11866 DCFD C1 01 .. cmpb #01
11867 DCFF 27 03 '. beq 03
11868 DD01 7E DD D4 ~.. jmp ddd4 ;goto69
11869 DD04 F6 0B BC ... ldab 0bbc
11870 DD07 C4 E0 .. andb #e0
11876 DD0E F7 0B BC ... stab 0bbc
11877 DD11 F6 0B BC ... ldab 0bbc
11878 DD14 F1 0B C4 ... cmpb 0bc4
11879 DD17 26 33 &3 bne 33
11880 DD19 F6 0B D7 ... ldab 0bd7
11881 DD1C C1 01 .. cmpb #01
11882 DD1E 26 0A &. bne 0a
11883 DD20 7C 0C DB |.. inc 0cdb
11884 DD23 C6 03 .. ldab #03
11885 DD25 F7 00 48 ..H stab 0048
11887 DD2A F6 0B D8 ... ldab 0bd8
11888 DD2D C1 01 .. cmpb #01
11889 DD2F 26 0A &. bne 0a
11890 DD31 7C 0C DA |.. inc 0cda
11891 DD34 C6 02 .. ldab #02
11892 DD36 F7 00 48 ..H stab 0048
11893 DD39 20 0F . bra 0f
11894 DD3B F6 0B D9 ... ldab 0bd9
11895 DD3E C1 01 .. cmpb #01
11896 DD40 26 08 &. bne 08
11897 DD42 7C 0C D9 |.. inc 0cd9
11898 DD45 C6 01 .. ldab #01
11899 DD47 F7 00 48 ..H stab 0048
11900 DD4A 20 74 t bra 74
11901 DD4C F6 0B BC ... ldab 0bbc
11902 DD4F F1 0B C5 ... cmpb 0bc5
11903 DD52 26 33 &3 bne 33
11904 DD54 F6 0B D7 ... ldab 0bd7
11905 DD57 C1 04 .. cmpb #04
11906 DD59 26 0A &. bne 0a
11907 DD5B 7C 0C DB |.. inc 0cdb
11908 DD5E C6 03 .. ldab #03
11909 DD60 F7 00 48 ..H stab 0048
11911 DD65 F6 0B D8 ... ldab 0bd8
11912 DD68 C1 04 .. cmpb #04
11913 DD6A 26 0A &. bne 0a
11914 DD6C 7C 0C DA |.. inc 0cda
11915 DD6F C6 02 .. ldab #02
11916 DD71 F7 00 48 ..H stab 0048
11917 DD74 20 0F . bra 0f
11918 DD76 F6 0B D9 ... ldab 0bd9
11919 DD79 C1 04 .. cmpb #04
11920 DD7B 26 08 &. bne 08
11921 DD7D 7C 0C D9 |.. inc 0cd9
11922 DD80 C6 01 .. ldab #01
11923 DD82 F7 00 48 ..H stab 0048
11924 DD85 20 39 9 bra 39
11925 DD87 F6 0B BC ... ldab 0bbc
11926 DD8A F1 0B C6 ... cmpb 0bc6
11927 DD8D 26 31 &1 bne 31
11928 DD8F F6 0B D7 ... ldab 0bd7
11929 DD92 C1 02 .. cmpb #02
11930 DD94 26 0A &. bne 0a
11931 DD96 7C 0C DB |.. inc 0cdb
11932 DD99 C6 03 .. ldab #03
11933 DD9B F7 00 48 ..H stab 0048
11935 DDA0 F6 0B D8 ... ldab 0bd8
11936 DDA3 C1 02 .. cmpb #02
11937 DDA5 26 0A &. bne 0a
11938 DDA7 7C 0C DA |.. inc 0cda
11939 DDAA C6 02 .. ldab #02
11940 DDAC F7 00 48 ..H stab 0048
11941 DDAF 20 0F . bra 0f
11942 DDB1 F6 0B D9 ... ldab 0bd9
11943 DDB4 C1 02 .. cmpb #02
11944 DDB6 26 08 &. bne 08
11945 DDB8 7C 0C D9 |.. inc 0cd9
11946 DDBB C6 01 .. ldab #01
11947 DDBD F7 00 48 ..H stab 0048
11948 DDC0 F6 00 17 ... ldab 0017
11949 DDC3 C4 08 .. andb #08
11950 DDC5 26 0D &. bne 0d
11951 DDC7 F6 0B BC ... ldab 0bbc
11952 DDCA 26 08 &. bne 08
11953 DDCC 7C 0C DC |.. inc 0cdc
11954 DDCF C6 04 .. ldab #04
11955 DDD1 F7 00 48 ..H stab 0048
11960 DDD5 BD BE 69 ..i jsr be69 ;displayreset
11961 DDD8 C6 03 .. ldab #03
11962 DDDA F7 00 1C ... stab 001c
11963 DDDD F6 00 1C ... ldab 001c
11964 DDE0 C1 0D .. cmpb #0d
11965 DDE2 24 1C $. bcc 1c
11966 DDE4 F6 00 1C ... ldab 001c
11968 DDE8 C3 0C B9 ... addd #0cb9
11970 DDEC E6 00 .. ldab 00,x
11972 DDEF CC 0B 9C ... ldd #0b9c
11973 DDF2 F0 00 1C ... subb 001c
11974 DDF5 82 00 .. sbca #00
11977 DDF9 E7 00 .. stab 00,x
11978 DDFB 7C 00 1C |.. inc 001c
11979 DDFE 20 DD . bra dd
11980 DE00 BD BE 10 ... jsr be10 ;jump88
11981 DE03 C6 14 .. ldab #14
11982 DE05 F7 00 2C .., stab 002c
11986 DE09 CC 0B 9A ... ldd #0b9a ; machine id?
11987 DE0C BD C0 BA ... jsr c0ba ;display:
11988 DE0F C6 14 .. ldab #14
11989 DE11 F7 00 2C .., stab 002c
11993 DE15 F6 00 1B ... ldab 001b
11994 DE18 C4 01 .. andb #01
11995 DE1A 26 03 &. bne 03
11996 DE1C 7E DE A4 ~.. jmp dea4 ;goto70
11997 DE1F F6 00 06 ... ldab 0006
12000 DE24 C3 08 C8 ... addd #08c8
12002 DE28 EC 00 .. ldd 00,x
12003 DE2A 84 08 .. anda #08
12004 DE2C 27 76 'v beq 76
12005 DE2E F6 00 11 ... ldab 0011
12006 DE31 C4 08 .. andb #08
12007 DE33 26 33 &3 bne 33
12008 DE35 F6 00 06 ... ldab 0006
12009 DE38 F1 0B AF ... cmpb 0baf
12010 DE3B 27 20 ' beq 20
12011 DE3D F6 00 06 ... ldab 0006
12012 DE40 F1 0B AE ... cmpb 0bae
12013 DE43 27 18 '. beq 18
12014 DE45 F6 00 06 ... ldab 0006
12015 DE48 F1 0B AD ... cmpb 0bad
12016 DE4B 27 10 '. beq 10
12017 DE4D F6 00 06 ... ldab 0006
12018 DE50 F1 0B AC ... cmpb 0bac
12019 DE53 27 08 '. beq 08
12020 DE55 F6 00 06 ... ldab 0006
12021 DE58 F1 0B AB ... cmpb 0bab
12022 DE5B 26 0B &. bne 0b
12023 DE5D CE 00 1B ... ldx #001b
12024 DE60 1D 00 01 ... bclr 00,x, #01
12025 DE63 7F 00 4F ..O clr 004f
12026 DE66 20 3C < bra 3c
12027 DE68 FC 00 44 ..D ldd 0044
12028 DE6B B3 0B B7 ... subd 0bb7
12029 DE6E 23 2B #+ bls 2b
12030 DE70 FC 00 40 ..@ ldd 0040
12031 DE73 F3 00 3E ..> addd 003e
12034 DE78 FC 00 44 ..D ldd 0044
12035 DE7B B3 0B B7 ... subd 0bb7
12036 DE7E F3 00 44 ..D addd 0044
12038 DE82 A3 00 .. subd 00,x
12041 DE86 22 13 ". bhi 13
12042 DE88 FC 0B B7 ... ldd 0bb7
12043 DE8B 27 0E '. beq 0e
12044 DE8D FC 00 44 ..D ldd 0044
12045 DE90 B3 0B B7 ... subd 0bb7
12046 DE93 F3 00 44 ..D addd 0044
12047 DE96 FD 00 44 ..D std 0044
12048 DE99 20 09 . bra 09
12049 DE9B CE 00 1B ... ldx #001b
12050 DE9E 1D 00 01 ... bclr 00,x, #01
12051 DEA1 7F 00 4F ..O clr 004f
12056 ; machine out of order display?
12057 DEA5 F6 00 2B ..+ ldab 002b
12058 DEA8 C1 00 .. cmpb #00
12059 DEAA 26 0D &. bne 0d
12060 DEAC CE 00 12 ... ldx #0012
12062 DEB0 CC AE 7E ..~ ldd #ae7e
12063 DEB3 BD C0 2E ... jsr c02e ;jump71
12065 DEB7 20 2D - bra 2d
12066 DEB9 C1 01 .. cmpb #01
12067 DEBB 26 0D &. bne 0d
12068 DEBD CE 00 0F ... ldx #000f
12070 DEC1 CC AE 6D ..m ldd #ae6d ; something german
12071 DEC4 BD C0 2E ... jsr c02e ;jump71
12073 DEC8 20 1C . bra 1c
12074 DECA C1 02 .. cmpb #02
12075 DECC 26 0D &. bne 0d
12076 DECE CE 00 10 ... ldx #0010
12078 DED2 CC AE 5B ..[ ldd #ae5b ; more german
12079 DED5 BD C0 2E ... jsr c02e ;jump71
12081 DED9 20 0B . bra 0b
12082 DEDB CE 00 15 ... ldx #0015
12084 DEDF CC AE 44 ..D ldd #ae44 ; "MACHINE OUT OF ORDER"
12085 DEE2 BD C0 2E ... jsr c02e ;jump71
12090 ; revolves around coinage
12091 DEE7 F6 0B C0 ... ldab 0bc0
12092 DEEA C4 01 .. andb #01
12093 DEEC 26 07 &. bne 07
12094 DEEE F6 0B C0 ... ldab 0bc0
12095 DEF1 C4 04 .. andb #04
12096 DEF3 27 15 '. beq 15
12097 DEF5 C6 FF .. ldab #ff
12098 DEF7 F7 0B BC ... stab 0bbc
12099 DEFA F6 00 15 ... ldab 0015
12100 DEFD 2D 03 -. blt 03
12101 DEFF BD C6 7D ..} jsr c67d ;jump124 - chat to changer
12102 DF02 BD D6 6B ..k jsr d66b ;jump107 - chat to bill acceptor
12103 DF05 BD DC A3 ... jsr dca3 ;jump29
12104 DF08 20 25 % bra 25
12105 DF0A F6 0B C0 ... ldab 0bc0
12106 DF0D C4 02 .. andb #02
12107 DF0F 27 1E '. beq 1e
12108 DF11 F6 00 2F ../ ldab 002f
12109 DF14 26 19 &. bne 19
12110 DF16 F6 00 1B ... ldab 001b
12111 DF19 C4 02 .. andb #02
12112 DF1B 26 12 &. bne 12
12113 DF1D CC 00 FF ... ldd #00ff
12114 DF20 BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
12115 DF23 CE 00 1B ... ldx #001b
12116 DF26 1C 00 02 .. bset 00,x, #02
12117 DF29 CE 0B C1 ... ldx #0bc1
12118 DF2C 1C 00 04 .. bset 00,x, #04
12119 DF2F F6 00 21 ..! ldab 0021
12120 DF32 C4 20 . andb #20
12121 DF34 27 07 '. beq 07
12123 DF36 BD D6 52 ..R jsr d652 ;jump5 - pulse bill acceptor
12124 DF39 BD DE A5 ... jsr dea5 ;jump117 - machine out of order?
12127 DF3D F6 00 4F ..O ldab 004f
12128 DF40 26 06 &. bne 06
12129 DF42 CE 00 1B ... ldx #001b
12130 DF45 1D 00 01 ... bclr 00,x, #01
12131 DF48 F6 00 25 ..% ldab 0025
12132 DF4B 26 20 & bne 20
12133 DF4D F6 00 1B ... ldab 001b
12134 DF50 C4 40 .@ andb #40
12135 DF52 27 19 '. beq 19
12136 DF54 BD D6 52 ..R jsr d652 ;jump5
12137 DF57 FC 00 40 ..@ ldd 0040
12138 DF5A 26 05 &. bne 05
12139 DF5C FC 00 3E ..> ldd 003e
12140 DF5F 27 03 '. beq 03
12141 DF61 BD DB 44 ..D jsr db44 ;jump104
12142 DF64 BD D6 6B ..k jsr d66b ;jump107
12143 DF67 CE 00 1B ... ldx #001b
12144 DF6A 1D 00 40 ... bclr 00,x, #40
12145 DF6D F6 00 2C .., ldab 002c
12146 DF70 27 03 '. beq 03
12147 DF72 7E E0 66 ~.f jmp e066 ;goto71
12148 DF75 F6 00 34 ..4 ldab 0034
12149 DF78 26 0B &. bne 0b
12150 DF7A BD BE 69 ..i jsr be69 ;displayreset
12151 DF7D C6 32 .2 ldab #32
12152 DF7F F7 00 34 ..4 stab 0034
12153 DF82 7E E0 63 ~.c jmp e063 ;goto72
12154 DF85 FC 00 40 ..@ ldd 0040
12155 DF88 26 05 &. bne 05
12156 DF8A FC 00 3E ..> ldd 003e
12157 DF8D 27 16 '. beq 16
12158 DF8F CE 00 01 ... ldx #0001
12160 DF93 FC 00 40 ..@ ldd 0040
12161 DF96 F3 00 3E ..> addd 003e
12162 DF99 BD BE 9E ... jsr be9e ;jump50
12164 DF9D C6 05 .. ldab #05
12165 DF9F F7 00 2C .., stab 002c
12166 DFA2 7E E0 63 ~.c jmp e063 ;goto72
12167 DFA5 F6 0C D9 ... ldab 0cd9
12168 DFA8 C1 04 .. cmpb #04
12169 DFAA 24 07 $. bcc 07
12170 DFAC F6 0B C0 ... ldab 0bc0
12171 DFAF C4 01 .. andb #01
12172 DFB1 26 07 &. bne 07
12173 DFB3 F6 00 21 ..! ldab 0021
12174 DFB6 C4 40 .@ andb #40
12175 DFB8 27 43 'C beq 43
12176 DFBA F6 00 2B ..+ ldab 002b
12177 DFBD C1 00 .. cmpb #00
12178 DFBF 26 0D &. bne 0d
12179 DFC1 CE 00 19 ... ldx #0019
12181 DFC5 CC AD E7 ... ldd #ade7 ; "INTRODUZCA"
12182 DFC8 BD C0 2E ... jsr c02e ;jump71
12184 DFCC 20 2D - bra 2d
12185 DFCE C1 01 .. cmpb #01
12186 DFD0 26 0D &. bne 0d
12187 DFD2 CE 00 12 ... ldx #0012
12189 DFD6 CC AD D3 ... ldd #add3 ; "NICT UEBERZAHLEN"
12190 DFD9 BD C0 2E ... jsr c02e ;jump71
12192 DFDD 20 1C . bra 1c
12193 DFDF C1 02 .. cmpb #02
12194 DFE1 26 0D &. bne 0d
12195 DFE3 CE 00 19 ... ldx #0019
12197 DFE7 CC AD B8 ... ldd #adb8 ; "MONNAIE EXACT"
12198 DFEA BD C0 2E ... jsr c02e ;jump71
12200 DFEE 20 0B . bra 0b
12201 DFF0 CE 00 11 ... ldx #0011 ; length of
12203 DFF4 CC AD A5 ... ldd #ada5 ; " EXACT COINS ONLY "
12204 DFF7 BD C0 2E ... jsr c02e ;jump71 - display
12206 DFFB 20 66 f bra 66
12207 DFFD F6 0B C0 ... ldab 0bc0
12208 E000 C4 08 .. andb #08
12209 E002 27 52 'R beq 52
12210 E004 F6 0B C1 ... ldab 0bc1
12211 E007 C4 08 .. andb #08
12212 E009 26 08 &. bne 08
12213 E00B FC 0B EF ... ldd 0bef
12214 E00E 83 00 64 ..d subd #0064
12215 E011 24 43 $C bcc 43
12216 E013 F6 00 2B ..+ ldab 002b
12217 E016 C1 00 .. cmpb #00
12218 E018 26 0D &. bne 0d
12219 E01A CE 00 12 ... ldx #0012
12221 E01E CC AE 30 ..0 ldd #ae30 ; "MONEDA UNICAMENTE"
12222 E021 BD C0 2E ... jsr c02e ;jump71
12224 E025 20 2D - bra 2d
12225 E027 C1 01 .. cmpb #01
12226 E029 26 0D &. bne 0d
12227 E02B CE 00 0B ... ldx #000b
12229 E02F CC AE 23 ..# ldd #ae23 ; "NUR MUNZEN"
12230 E032 BD C0 2E ... jsr c02e ;jump71
12232 E036 20 1C . bra 1c
12233 E038 C1 02 .. cmpb #02
12234 E03A 26 0D &. bne 0d
12235 E03C CE 00 12 ... ldx #0012
12237 E040 CC AE 0F ... ldd #ae0f ; "MONNAIES SEULEMENT"
12238 E043 BD C0 2E ... jsr c02e ;jump71
12240 E047 20 0B . bra 0b
12241 E049 CE 00 0B ... ldx #000b
12243 E04D CC AE 02 ... ldd #ae02 ; "COINS ONLY"
12244 E050 BD C0 2E ... jsr c02e ;jump71
12246 E054 20 0D . bra 0d
12247 E056 F6 0B BF ... ldab 0bbf
12251 E05C CC 09 93 ... ldd #0993 ; some custom message?
12252 E05F BD C0 2E ... jsr c02e ;jump71
12255 E063 7E E5 6A ~.j jmp e56a ;goto73
12257 E066 F6 00 06 ... ldab 0006
12258 E069 26 03 &. bne 03
12259 E06B 7E E5 6A ~.j jmp e56a ;goto73
12260 E06E CE 00 1D ... ldx #001d
12261 E071 1C 00 40 ... bset 00,x, #40
12262 E074 BD E7 C7 ... jsr e7c7 ;jump114
12263 E077 F6 00 06 ... ldab 0006
12264 E07A C1 59 .Y cmpb #59 ; 89
12265 E07C 26 06 &. bne 06
12266 E07E BD DE 09 ... jsr de09 ;jump119
12267 E081 7E E5 5E ~.^ jmp e55e ;goto74
12268 E084 F6 00 06 ... ldab 0006
12269 E087 BD D4 68 ..h jsr d468 ;jump51
12270 E08A 83 00 00 ... subd #0000
12271 E08D 27 18 '. beq 18
12272 E08F BD D5 61 ..a jsr d561 ;jump42
12273 E092 83 00 00 ... subd #0000
12274 E095 26 10 &. bne 10
12275 E097 BD D3 46 ..F jsr d346 ;jump43
12276 E09A 83 00 00 ... subd #0000
12277 E09D 26 08 &. bne 08
12278 E09F BD D7 83 ... jsr d783 ;jump44
12279 E0A2 83 00 00 ... subd #0000
12280 E0A5 27 09 '. beq 09
12281 E0A7 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
12282 E0AA BD D8 E9 ... jsr d8e9 ;jump92
12283 E0AD 7E E5 5E ~.^ jmp e55e ;goto74
12284 E0B0 F6 00 06 ... ldab 0006
12287 E0B5 C3 08 00 ... addd #0800
12289 E0B9 EC 00 .. ldd 00,x
12290 E0BB C4 FF .. andb #ff
12291 E0BD 84 3F .? anda #3f
12292 E0BF FD 00 44 ..D std 0044
12293 E0C2 F6 00 06 ... ldab 0006
12296 E0C7 C3 08 C8 ... addd #08c8
12298 E0CB EC 00 .. ldd 00,x
12299 E0CD C4 7F .. andb #7f
12301 E0D0 FD 00 4D ..M std 004d
12302 E0D3 F6 0B C0 ... ldab 0bc0
12303 E0D6 2C 05 ,. bge 05
12306 E0DA FD 00 44 ..D std 0044
12307 E0DD F6 0B C0 ... ldab 0bc0
12308 E0E0 C4 02 .. andb #02
12309 E0E2 26 03 &. bne 03
12310 E0E4 BD DE 15 ... jsr de15 ;dump118
12311 E0E7 F6 00 11 ... ldab 0011
12312 E0EA C4 20 . andb #20
12313 E0EC 26 1A &. bne 1a
12314 E0EE F6 0B C0 ... ldab 0bc0
12315 E0F1 C4 02 .. andb #02
12316 E0F3 26 13 &. bne 13
12317 E0F5 FC 00 40 ..@ ldd 0040
12318 E0F8 F3 00 3E ..> addd 003e
12319 E0FB B3 00 44 ..D subd 0044
12320 E0FE 25 08 %. bcs 08
12321 E100 F6 0B C0 ... ldab 0bc0
12322 E103 2D 03 -. blt 03
12323 E105 BD DA 64 ..d jsr da64 ;jump122
12324 E108 FC 00 40 ..@ ldd 0040
12325 E10B F3 00 3E ..> addd 003e
12326 E10E B3 00 44 ..D subd 0044
12327 E111 24 50 $P bcc 50
12328 E113 F6 0B C0 ... ldab 0bc0
12329 E116 C4 10 .. andb #10
12330 E118 26 49 &I bne 49
12331 E11A F6 00 2B ..+ ldab 002b
12332 E11D C1 00 .. cmpb #00
12333 E11F 26 08 &. bne 08
12334 E121 CC AC C9 ... ldd #acc9 ; "PRECIO"
12335 E124 BD C0 BA ... jsr c0ba ;display:
12336 E127 20 1E . bra 1e
12337 E129 C1 01 .. cmpb #01
12338 E12B 26 08 &. bne 08
12339 E12D CC AC BE ... ldd #acbe ; "PREIS"
12340 E130 BD C0 BA ... jsr c0ba ;display:
12341 E133 20 12 . bra 12
12342 E135 C1 02 .. cmpb #02
12343 E137 26 08 &. bne 08
12344 E139 CC AC B3 ... ldd #acb3 ; "PRIX"
12345 E13C BD C0 BA ... jsr c0ba ;display:
12346 E13F 20 06 . bra 06
12347 E141 CC AC A8 ... ldd #aca8 ; "PRICE"
12348 E144 BD C0 BA ... jsr c0ba ;display:
12349 E147 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay
12350 E14A CE 00 00 ... ldx #0000
12352 E14E FC 00 44 ..D ldd 0044
12353 E151 BD BE 9E ... jsr be9e ;jump50
12355 E155 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
12356 E158 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay
12357 E15B C6 0C .. ldab #0c
12358 E15D F7 00 2C .., stab 002c
12359 E160 7E E5 5E ~.^ jmp e55e ;goto74
12360 E163 F6 0B C0 ... ldab 0bc0
12361 E166 C4 01 .. andb #01
12362 E168 26 11 &. bne 11
12363 E16A F6 0B C0 ... ldab 0bc0
12364 E16D C4 04 .. andb #04
12365 E16F 26 0A &. bne 0a
12366 E171 F6 0B C0 ... ldab 0bc0
12367 E174 C4 0F .. andb #0f
12368 E176 27 03 '. beq 03
12369 E178 7E E3 35 ~.5 jmp e335 ;goto75
12370 E17B FC 00 40 ..@ ldd 0040
12371 E17E F3 00 3E ..> addd 003e
12372 E181 B3 00 44 ..D subd 0044
12373 E184 FD 10 16 ... std 1016
12374 E187 F6 00 15 ... ldab 0015
12375 E18A C4 01 .. andb #01
12376 E18C 27 08 '. beq 08
12377 E18E FC 10 16 ... ldd 1016
12378 E191 83 00 64 ..d subd #0064
12379 E194 25 3C %< bcs 3c
12380 E196 F6 00 15 ... ldab 0015
12381 E199 C4 02 .. andb #02
12382 E19B 27 08 '. beq 08
12383 E19D FC 10 16 ... ldd 1016
12384 E1A0 83 00 C8 ... subd #00c8
12385 E1A3 25 2D %- bcs 2d
12386 E1A5 F6 00 15 ... ldab 0015
12387 E1A8 C4 04 .. andb #04
12388 E1AA 27 08 '. beq 08
12389 E1AC FC 10 16 ... ldd 1016
12390 E1AF 83 01 F4 ... subd #01f4
12391 E1B2 25 1E %. bcs 1e
12392 E1B4 F6 00 15 ... ldab 0015
12393 E1B7 C4 08 .. andb #08
12394 E1B9 27 08 '. beq 08
12395 E1BB FC 10 16 ... ldd 1016
12396 E1BE 83 03 E8 ... subd #03e8
12397 E1C1 25 0F %. bcs 0f
12398 E1C3 F6 00 15 ... ldab 0015
12399 E1C6 C4 10 .. andb #10
12400 E1C8 27 13 '. beq 13
12401 E1CA FC 10 16 ... ldd 1016
12402 E1CD 83 07 D0 ... subd #07d0
12403 E1D0 24 0B $. bcc 0b
12404 E1D2 BD C0 E0 ... jsr c0e0 ;jump94
12405 E1D5 83 00 00 ... subd #0000
12406 E1D8 26 01 &. bne 01
12410 E1DB 20 03 . bra 03
12411 E1DD BD C5 D3 ... jsr c5d3 ;jump6
12412 E1E0 BD D6 52 ..R jsr d652 ;jump5
12413 E1E3 FC 00 40 ..@ ldd 0040
12414 E1E6 B3 00 44 ..D subd 0044
12415 E1E9 F3 00 3E ..> addd 003e
12416 E1EC FD 00 40 ..@ std 0040
12419 E1F1 FD 00 3E ..> std 003e
12420 E1F4 CE 00 1B ... ldx #001b
12421 E1F7 1C 00 80 .. bset 00,x, #80
12422 E1F9 BD D2 13 .. jsr d213 ;jump45
12423 E1FC 83 00 00 ... subd #0000
12424 E200 26 12 &. bne 12
12425 E202 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
12426 E205 BD D8 E9 ... jsr d8e9 ;jump92 - "SELECT OTHER ITEM"
12427 E208 FC 00 40 ..@ ldd 0040
12428 E20B F3 00 44 ..D addd 0044
12429 E20E FD 00 40 ..@ std 0040
12430 E211 7E E3 29 ~.) jmp e329 ;goto92
12431 E214 BD DB CB ... jsr dbcb ;jump121
12432 E217 F6 00 1B ... ldab 001b
12433 E21A C4 20 . andb #20
12434 E21C 27 45 'E beq 45
12435 E21E FC 00 44 ..D ldd 0044
12442 E227 CC 0D FB ... ldd #0dfb
12443 E22A BD FB DF ... jsr fbdf ;jump46
12446 E22F FE 0D FD ... ldx 0dfd
12448 E233 FC 0D FB ... ldd 0dfb
12451 E238 CE E1 00 ... ldx #e100
12453 E23C CC 05 F5 ... ldd #05f5
12457 E242 EC 06 .. ldd 06,x
12458 E244 A3 02 .. subd 02,x
12459 E246 EC 04 .. ldd 04,x
12460 E248 E2 01 .. sbcb 01,x
12461 E24A A2 00 .. sbca 00,x
12466 E250 25 11 %. bcs 11
12467 E252 CE 1F 00 ... ldx #1f00
12469 E256 CC FA 0A ... ldd #fa0a
12472 E25B CC 0D FB ... ldd #0dfb
12473 E25E BD FB DF ... jsr fbdf ;jump46
12476 E263 F6 0B C0 ... ldab 0bc0
12477 E266 2C 78 ,x bge 78
12478 E268 F6 00 06 ... ldab 0006
12481 E26D C3 08 00 ... addd #0800
12483 E271 EC 00 .. ldd 00,x
12484 E273 C4 FF .. andb #ff
12485 E275 26 02 &. bne 02
12486 E277 84 3F .? anda #3f
12487 E279 27 65 'e beq 65
12488 E27B FC 0D 0D ... ldd 0d0d
12489 E27E 83 FF FF ... subd #ffff
12490 E281 26 05 &. bne 05
12493 E285 FD 0D 0D ... std 0d0d
12494 E288 FE 0D 0D ... ldx 0d0d
12496 E28C FF 0D 0D ... stx 0d0d
12497 E28F F6 00 06 ... ldab 0006
12500 E294 C3 08 00 ... addd #0800
12502 E298 EC 00 .. ldd 00,x
12503 E29A C4 FF .. andb #ff
12504 E29C 84 3F .? anda #3f
12511 E2A4 CC 0D 1B ... ldd #0d1b
12512 E2A7 BD FB DF ... jsr fbdf ;jump46
12515 E2AC FE 0D 1D ... ldx 0d1d
12517 E2B0 FC 0D 1B ... ldd 0d1b
12520 E2B5 CE E1 00 ... ldx #e100
12522 E2B9 CC 05 F5 ... ldd #05f5
12526 E2BF EC 06 .. ldd 06,x
12527 E2C1 A3 02 .. subd 02,x
12528 E2C3 EC 04 .. ldd 04,x
12529 E2C5 E2 01 .. sbcb 01,x
12530 E2C7 A2 00 .. sbca 00,x
12535 E2CD 25 11 %. bcs 11
12536 E2CF CE 1F 00 ... ldx #1f00
12538 E2D3 CC FA 0A ... ldd #fa0a
12541 E2D8 CC 0D 1B ... ldd #0d1b
12542 E2DB BD FB DF ... jsr fbdf ;jump46
12545 E2E0 F6 00 11 ... ldab 0011
12546 E2E3 C4 10 .. andb #10
12547 E2E5 26 14 &. bne 14
12548 E2E7 FC 00 40 ..@ ldd 0040
12549 E2EA 27 0F '. beq 0f
12550 E2EC FC 00 40 ..@ ldd 0040
12551 E2EF B3 00 50 ..P subd 0050
12552 E2F2 24 15 $. bcc 15
12553 E2F4 F6 00 11 ... ldab 0011
12554 E2F7 C4 10 .. andb #10
12555 E2F9 26 0E &. bne 0e
12556 E2FB BD DB 44 ..D jsr db44 ;jump104
12557 E2FE CE 00 1B ... ldx #001b
12558 E301 1D 00 40 ... bclr 00,x, #40
12559 E304 7F 00 25 ..% clr 0025
12560 E307 20 1A . bra 1a
12561 E309 7F 00 2C .., clr 002c
12562 E30C CC 01 F4 ... ldd #01f4
12563 E30F BD E5 71 ..q jsr e571 ;msdelay
12564 E312 BD E5 AA ... jsr e5aa ;jump12
12565 E315 BD D8 E9 ... jsr d8e9 ;jump92
12566 E318 CE 00 1B ... ldx #001b
12567 E31B 1C 00 40 ... bset 00,x, #40
12568 E31E C6 0A .. ldab #0a
12569 E320 F7 00 25 ..% stab 0025
12570 E323 BD D7 FF ... jsr d7ff ;jump80
12571 E326 BD D8 40 ..@ jsr d840 ;jump105
12573 E329 BD E8 9A ... jsr e89a ;jump68
12574 E32C CE 0B C1 ... ldx #0bc1
12575 E32F 1D 00 08 ... bclr 00,x, #08
12576 E332 7E E5 5E ~.^ jmp e55e ;goto74
12578 E335 F6 0B C0 ... ldab 0bc0
12579 E338 C4 02 .. andb #02
12580 E33A 26 03 &. bne 03
12581 E33C 7E E5 5E ~.^ jmp e55e ;goto74
12584 E341 FD 00 76 ..v std 0076
12585 E344 CE 00 17 ... ldx #0017
12586 E347 1D 00 01 ... bclr 00,x, #01
12587 E34A CE 00 17 ... ldx #0017
12588 E34D 1D 00 02 ... bclr 00,x, #02
12589 E350 FC 00 44 ..D ldd 0044
12590 E353 26 1C &. bne 1c
12591 E355 F6 0B C0 ... ldab 0bc0
12592 E358 C4 10 .. andb #10
12593 E35A 26 08 &. bne 08
12594 E35C CE 00 21 ..! ldx #0021
12595 E35F 1C 00 .. bset add,x 00,x
12596 E361 80 20 . suba #20
12598 E364 CE 00 21 ..! ldx #0021
12599 E367 1D 00 .. bclr add,x 00,x
12600 E369 80 C6 .. suba #c6
12602 E36C F7 00 75 ..u stab 0075
12603 E36F 20 57 W bra 57
12604 E371 F6 0B C0 ... ldab 0bc0
12605 E374 C4 10 .. andb #10
12606 E376 27 50 'P beq 50
12607 E378 FC 00 40 ..@ ldd 0040
12608 E37B 26 4B &K bne 4b
12609 E37D F6 0B C0 ... ldab 0bc0
12610 E380 C4 20 . andb #20
12611 E382 27 3E '> beq 3e
12612 E384 CE 00 17 ... ldx #0017
12613 E387 1C 00 01 ... bset 00,x, #01
12614 E38A F6 00 2B ..+ ldab 002b
12615 E38D C1 00 .. cmpb #00
12616 E38F 26 08 &. bne 08
12617 E391 CC AC C9 ... ldd #acc9 ; " PRECIO "
12618 E394 BD C0 BA ... jsr c0ba ;display:
12619 E397 20 1E . bra 1e
12620 E399 C1 01 .. cmpb #01
12621 E39B 26 08 &. bne 08
12622 E39D CC AC BE ... ldd #acbe ; " PRIES "
12623 E3A0 BD C0 BA ... jsr c0ba ;display:
12624 E3A3 20 12 . bra 12
12625 E3A5 C1 02 .. cmpb #02
12626 E3A7 26 08 &. bne 08
12627 E3A9 CC AC B3 ... ldd #acb3 ; " PRIX "
12628 E3AC BD C0 BA ... jsr c0ba ;display:
12629 E3AF 20 06 . bra 06
12630 E3B1 CC AC A8 ... ldd #aca8 ; " PRICE "
12631 E3B4 BD C0 BA ... jsr c0ba ;display:
12632 E3B7 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay
12633 E3BA CE 00 17 ... ldx #0017
12634 E3BD 1C 00 02 ... bset 00,x, #02
12635 E3C0 20 06 . bra 06
12636 E3C2 CE 00 1F ... ldx #001f
12637 E3C5 1C 00 08 ... bset 00,x, #08
12638 E3C8 CE 00 1D ... ldx #001d
12639 E3CB 1C 00 02 ... bset 00,x, #02
12640 E3CE CE 00 19 ... ldx #0019
12641 E3D1 1C 00 08 ... bset 00,x, #08
12642 E3D4 C6 32 .2 ldab #32
12643 E3D6 F7 00 31 ..1 stab 0031
12644 E3D9 C6 19 .. ldab #19
12645 E3DB F7 00 36 ..6 stab 0036
12647 E3DE F6 00 1D ... ldab 001d
12648 E3E1 C4 02 .. andb #02
12649 E3E3 26 03 &. bne 03
12650 E3E5 7E E4 6E ~.n jmp e46e ;goto76
12651 E3E8 F6 00 75 ..u ldab 0075
12652 E3EB C1 04 .. cmpb #04
12653 E3ED 22 05 ". bhi 05
12654 E3EF F6 00 36 ..6 ldab 0036
12655 E3F2 26 3C &< bne 3c
12656 E3F4 7F 00 06 ... clr 0006
12659 E3F9 FD 00 76 ..v std 0076
12660 E3FC 7F 00 2E ... clr 002e
12661 E3FF 7F 00 2C .., clr 002c
12662 E402 7F 00 75 ..u clr 0075
12663 E405 CE 00 17 ... ldx #0017
12664 E408 1D 00 01 ... bclr 00,x, #01
12665 E40B CE 00 19 ... ldx #0019
12666 E40E 1D 00 08 ... bclr 00,x, #08
12667 E411 CE 00 1B ... ldx #001b
12668 E414 1D 00 .. bclr add,x 00,x
12669 E416 80 CE .. suba #ce
12671 E419 1D 1D 00 ... bclr 1d,x, #00
12673 E41D CE 00 1D ... ldx #001d
12674 E420 1D 00 02 ... bclr 00,x, #02
12675 E423 CE 00 1F ... ldx #001f
12676 E426 1D 00 08 ... bclr 00,x, #08
12677 E429 CE 00 21 ..! ldx #0021
12678 E42C 1D 00 .. bclr add,x 00,x
12679 E42E 80 39 .9 suba #39
12680 E430 F6 0B C0 ... ldab 0bc0
12681 E433 C4 20 . andb #20
12682 E435 27 34 '4 beq 34
12683 E437 F6 00 17 ... ldab 0017
12684 E43A C4 01 .. andb #01
12685 E43C 26 2D &- bne 2d
12686 E43E F6 00 17 ... ldab 0017
12687 E441 C4 02 .. andb #02
12688 E443 27 26 '& beq 26
12689 E445 CE 00 00 ... ldx #0000
12691 E449 FC 00 76 ..v ldd 0076
12692 E44C BD BE 9E ... jsr be9e ;jump50
12694 E450 FC 00 76 ..v ldd 0076
12695 E453 26 06 &. bne 06
12696 E455 CE 00 17 ... ldx #0017
12697 E458 1D 00 02 ... bclr 00,x, #02
12698 E45B F6 00 17 ... ldab 0017
12699 E45E C4 02 .. andb #02
12700 E460 27 09 '. beq 09
12701 E462 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
12702 E465 CE 00 17 ... ldx #0017
12703 E468 1D 00 02 ... bclr 00,x, #02
12704 E46B 7E E3 DE ~.. jmp e3de ;goto77
12706 E46E CE 00 21 ..! ldx #0021
12707 E471 1D 00 .. bclr add,x 00,x
12708 E473 80 CE .. suba #ce
12710 E476 1F 1D 00 08 .... brclr 1d,x 00 08
12711 E47A BD D2 13 ... jsr d213 ;jump45
12712 E47D 83 00 00 ... subd #0000
12713 E480 26 0F &. bne 0f
12714 E482 CC 00 80 ... ldd #0080
12715 E485 BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
12716 E488 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
12717 E48B BD D8 E9 ... jsr d8e9 ;jump92
12718 E48E 7E E5 5E ~.^ jmp e55e ;goto74
12719 E491 F6 00 2B ..+ ldab 002b
12720 E494 C1 00 .. cmpb #00
12721 E496 26 08 &. bne 08
12722 E498 CC AD 16 ... ldd #ad16 ; "GRACIAS"
12723 E49B BD C0 BA ... jsr c0ba ;display:
12724 E49E 20 1E . bra 1e
12725 E4A0 C1 01 .. cmpb #01
12726 E4A2 26 08 &. bne 08
12727 E4A4 CC AD 0B ... ldd #ad0b ; "DANKE"
12728 E4A7 BD C0 BA ... jsr c0ba ;display:
12729 E4AA 20 12 . bra 12
12730 E4AC C1 02 .. cmpb #02
12731 E4AE 26 08 &. bne 08
12732 E4B0 CC AD 00 ... ldd #ad00 ; "MERCI"
12733 E4B3 BD C0 BA ... jsr c0ba ;display:
12734 E4B6 20 06 . bra 06
12735 E4B8 CC AC F5 ... ldd #acf5 ; "THANKS"
12736 E4BB BD C0 BA ... jsr c0ba ;display:
12737 E4BE BD D8 D3 ... jsr d8d3 ;jump84 500ms delay
12738 E4C1 CE 00 01 ... ldx #0001
12740 E4C5 FC 00 40 ..@ ldd 0040
12741 E4C8 BD BE 9E ... jsr be9e ;jump50
12745 E4CE BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
12746 E4D1 F6 0B C0 ... ldab 0bc0
12747 E4D4 2D 03 -. blt 03
12748 E4D6 7E E5 58 ~.X jmp e558 ;goto78
12749 E4D9 F6 0B C0 ... ldab 0bc0
12750 E4DC C4 10 .. andb #10
12751 E4DE 26 78 &x bne 78
12752 E4E0 F6 00 06 ... ldab 0006
12755 E4E5 C3 08 00 ... addd #0800
12757 E4E9 EC 00 .. ldd 00,x
12758 E4EB C4 FF .. andb #ff
12759 E4ED 26 02 &. bne 02
12760 E4EF 84 3F .? anda #3f
12761 E4F1 27 65 'e beq 65
12762 E4F3 FC 0D 0D ... ldd 0d0d
12763 E4F6 83 FF FF ... subd #ffff
12764 E4F9 26 05 &. bne 05
12767 E4FD FD 0D 0D ... std 0d0d
12768 E500 FE 0D 0D ... ldx 0d0d
12770 E504 FF 0D 0D ... stx 0d0d
12771 E507 F6 00 06 ... ldab 0006
12774 E50C C3 08 00 ... addd #0800
12776 E510 EC 00 .. ldd 00,x
12777 E512 C4 FF .. andb #ff
12778 E514 84 3F .? anda #3f
12785 E51C CC 0D 1B ... ldd #0d1b
12786 E51F BD FB DF ... jsr fbdf ;jump46
12789 E524 FE 0D 1D ... ldx 0d1d
12791 E528 FC 0D 1B ... ldd 0d1b
12794 E52D CE E1 00 ... ldx #e100
12796 E531 CC 05 F5 ... ldd #05f5
12800 E537 EC 06 .. ldd 06,x
12801 E539 A3 02 .. subd 02,x
12802 E53B EC 04 .. ldd 04,x
12803 E53D E2 01 .. sbcb 01,x
12804 E53F A2 00 .. sbca 00,x
12809 E545 25 11 %. bcs 11
12810 E547 CE 1F 00 ... ldx #1f00
12812 E54B CC FA 0A ... ldd #fa0a
12815 E550 CC 0D 1B ... ldd #0d1b
12816 E553 BD FB DF ... jsr fbdf ;jump46
12820 E558 BD D7 FF ... jsr d7ff ;jump80
12821 E55B BD D8 40 ..@ jsr d840 ;jump105
12823 E55E 7F 00 06 ... clr 0006
12824 E561 7F 00 2E ... clr 002e
12825 E564 CE 00 1B ... ldx #001b
12826 E567 1D 00 80 .. bclr 00,x, #80
12828 E56A CE 00 1D ... ldx #001d
12829 E56C 1D 00 40 .. bclr 00,x, #40
12832 ;!!! Is this a delay routine? It gets called between displaying strings
12833 ;on startup. Looks like a delay. e61b just stores 0a at 0031 and returns.
12835 ; appears to delay for roughly D milliseconds.
12840 E575 EC 01 .. ldd 01,x
12841 E577 83 00 01 ... subd #0001
12842 E57A ED 01 .. std 01,x
12843 E57C 2D 15 -. blt 15 ; to e593
12844 E57E C6 41 .A ldab #41
12846 E581 E7 00 .. stab 00,x
12848 E584 E6 00 .. ldab 00,x
12849 E586 6A 00 j. dec 00,x
12850 E588 C1 00 .. cmpb #00
12851 E58A 23 02 #. bls 02
12852 E58C 20 F5 . bra f5 ; to e583
12853 E58E BD E6 1B ... jsr e61b ;jump4
12854 E591 20 E1 . bra e1 ; to e574
12855 E593 38 8 pulx ;this must just be a standard 'pull 3
12856 E594 31 1 ins ;bytes and I don't care where they go'
12857 ;to clean up the stack.
12861 ; A short delay - counts to 32 in a stack variable. (about 100ms?)
12863 E597 C6 32 .2 ldab #32
12865 E59A E7 00 .. stab 00,x
12867 E59D E6 00 .. ldab 00,x
12868 E59F C1 00 .. cmpb #00
12869 E5A1 23 05 #. bls e5a8
12871 E5A4 6A 00 j. dec 00,x
12872 E5A6 20 F4 . bra e59c
12877 ; beep if keypressed?
12878 E5AA F6 00 33 ..3 ldab 0033
12879 E5AD 27 0C '. beq 0c ; to e5bb
12880 E5AF F6 00 29 ..) ldab 0029 ; key state
12881 E5B2 27 05 '. beq 05 ; to e5b9 (out)
12882 E5B4 C6 02 .. ldab #02
12883 E5B6 F7 00 33 ..3 stab 0033
12884 E5B9 20 15 . bra 15 ; to e5d0 (out)
12885 E5BB C6 03 .. ldab #03 ; beep
12886 E5BD F7 00 32 ..2 stab 0032
12887 E5C0 FC 00 3B ..; ldd 003b
12888 E5C3 27 06 '. beq 06 ; to e5cb
12889 E5C5 CC 02 33 ..3 ldd #0233
12890 E5C8 FD 00 3B ..; std 003b
12891 E5CB C6 02 .. ldab #02
12892 E5CD F7 00 33 ..3 stab 0033
12896 ; signifies a triple beep?
12897 E5D1 C6 0B .. ldab #0b ; 1011
12898 E5D3 F7 00 32 ..2 stab 0032
12902 ; tests an internal switch or input line
12903 ; Parameters: Port Address in D, bit mask on stack
12907 ; make some stack space
12913 ; 00,x on stack - number of hits
12914 E5DE ED 00 .. std 00,x
12915 ; we call i = 02,x. let i = 64
12916 E5E0 CC 00 64 ..d ldd #0064
12917 E5E3 ED 02 .. std 02,x
12920 E5E6 EC 02 .. ldd 02,x
12921 E5E8 2F 21 /! ble 21 ; to e60b
12922 ; we call j = 04,x. let j = initial value of D
12924 E5EB EE 04 .. ldx 04,x
12925 E5ED E6 00 .. ldab 00,x
12927 E5F0 E4 09 .. andb 09,x
12928 E5F2 27 05 '. beq 05 ; to e5f9 if bit cleared
12930 E5F5 08 . inx ; increment number of hits
12932 E5F7 20 08 . bra 08 ; to e601
12934 E5FA EC 00 .. ldd 00,x
12935 E5FC 83 00 01 ... subd #0001 ; decrement number of hits
12936 E5FF ED 00 .. std 00,x
12938 E602 EC 02 .. ldd 02,x
12939 E604 83 00 01 ... subd #0001 ; i--
12940 E607 ED 02 .. std 02,x
12941 E609 20 DA . bra da ; to e5e5
12943 ; return 1 iff the key was pressed
12945 E60C EC 00 .. ldd 00,x
12946 E60E 2F 04 /. ble 04 ; to e614 if -ve
12949 E612 20 03 . bra 03 ; to e617
12950 E614 CC 00 01 ... ldd #0001
12957 E61B C6 0A .. ldab #0a
12958 E61D F7 00 31 ..1 stab 0031
12966 E625 BD BE 4B ..K jsr be4b ;displayblank
12968 E629 EC 04 .. ldd 04,x
12971 E62D EC 02 .. ldd 02,x
12974 E631 CE 96 80 ... ldx #9680
12976 E635 CC 00 98 ... ldd #0098
12977 E638 BD FC 4C ..L jsr fc4c ;jump83
12980 E63D CB 30 .0 addb #30
12981 E63F F7 0B 97 ... stab 0b97
12983 E643 EC 04 .. ldd 04,x
12986 E647 EC 02 .. ldd 02,x
12989 E64B CE 96 80 ... ldx #9680
12991 E64F CC 00 98 ... ldd #0098
12992 E652 BD FC 5C ..\ jsr fc5c ;jump82
12995 E657 CE 42 40 .B@ ldx #4240
12997 E65B CC 00 0F ... ldd #000f
12998 E65E BD FC 4C ..L jsr fc4c ;jump83
13001 E663 CB 30 .0 addb #30
13002 E665 F7 0B 96 ... stab 0b96
13004 E669 EC 04 .. ldd 04,x
13007 E66D EC 02 .. ldd 02,x
13010 E671 CE 42 40 .B@ ldx #4240
13012 E675 CC 00 0F ... ldd #000f
13013 E678 BD FC 5C ..\ jsr fc5c ;jump82
13016 E67D CE 86 A0 ... ldx #86a0
13018 E681 CC 00 01 ... ldd #0001
13019 E684 BD FC 4C ..L jsr fc4c ;jump83
13022 E689 CB 30 .0 addb #30
13023 E68B F7 0B 95 ... stab 0b95
13025 E68F EC 04 .. ldd 04,x
13028 E693 EC 02 .. ldd 02,x
13031 E697 CE 86 A0 ... ldx #86a0
13033 E69B CC 00 01 ... ldd #0001
13034 E69E BD FC 5C ..\ jsr fc5c ;jump82
13037 E6A3 CE 27 10 .'. ldx #2710
13039 E6A7 CC 00 00 ... ldd #0000
13040 E6AA BD FC 4C ..L jsr fc4c ;jump83
13043 E6AF CB 30 .0 addb #30
13044 E6B1 F7 0B 94 ... stab 0b94
13046 E6B5 EC 04 .. ldd 04,x
13049 E6B9 EC 02 .. ldd 02,x
13052 E6BD CE 27 10 .'. ldx #2710
13054 E6C1 CC 00 00 ... ldd #0000
13055 E6C4 BD FC 5C ..\ jsr fc5c ;jump82
13058 E6C9 CE 03 E8 ... ldx #03e8
13060 E6CD CC 00 00 ... ldd #0000
13061 E6D0 BD FC 4C ..L jsr fc4c ;jump83
13064 E6D5 CB 30 .0 addb #30
13065 E6D7 F7 0B 93 ... stab 0b93
13067 E6DB EC 04 .. ldd 04,x
13070 E6DF EC 02 .. ldd 02,x
13073 E6E3 CE 03 E8 ... ldx #03e8
13075 E6E7 CC 00 00 ... ldd #0000
13076 E6EA BD FC 5C ..\ jsr fc5c ;jump82
13079 E6EF CE 00 64 ..d ldx #0064
13081 E6F3 CC 00 00 ... ldd #0000
13082 E6F6 BD FC 4C ..L jsr fc4c ;jump83
13085 E6FB CB 30 .0 addb #30
13086 E6FD F7 0B 92 ... stab 0b92
13088 E701 EC 04 .. ldd 04,x
13091 E705 EC 02 .. ldd 02,x
13094 E709 CE 00 64 ..d ldx #0064
13096 E70D CC 00 00 ... ldd #0000
13097 E710 BD FC 5C ..\ jsr fc5c ;jump82
13100 E715 CE 00 0A ... ldx #000a
13102 E719 CC 00 00 ... ldd #0000
13103 E71C BD FC 4C ..L jsr fc4c ;jump83
13106 E721 CB 30 .0 addb #30
13107 E723 F7 0B 91 ... stab 0b91
13109 E727 EC 04 .. ldd 04,x
13112 E72B EC 02 .. ldd 02,x
13115 E72F CE 00 0A ... ldx #000a
13117 E733 CC 00 00 ... ldd #0000
13118 E736 BD FC 5C ..\ jsr fc5c ;jump82
13121 E73B CB 30 .0 addb #30
13122 E73D F7 0B 90 ... stab 0b90
13126 E743 6E 00 n. jmp 00,x
13129 ; number to string. number is <= 99999. puts it into 0057, 005a, 005d-005f
13133 E748 EC 00 .. ldd 00,x
13134 E74A CE 27 10 .'. ldx #2710 ; 10000
13137 E74F CB 30 .0 addb #30
13138 E751 F7 00 57 ..W stab 0057 ; num/10000 => 0057
13140 E755 EC 00 .. ldd 00,x
13141 E757 CE 27 10 .'. ldx #2710 ; 10000
13143 E75B CE 03 E8 ... ldx #03e8
13146 E760 CB 30 .0 addb #30
13147 E762 F7 00 5A ..Z stab 005a ; num%10000/1000 => 005a
13149 E766 EC 00 .. ldd 00,x
13150 E768 CE 03 E8 ... ldx #03e8
13152 E76C CE 00 64 ..d ldx #0064
13155 E771 CB 30 .0 addb #30
13156 E773 F7 00 5D ..] stab 005d ; num%1000/100 => 005d
13158 E777 EC 00 .. ldd 00,x
13159 E779 CE 00 64 ..d ldx #0064
13161 E77D CE 00 0A ... ldx #000a
13164 E782 CB 30 .0 addb #30
13165 E784 F7 00 5E ..^ stab 005e ; num%100/10 => 005e
13167 E788 EC 00 .. ldd 00,x
13168 E78A CE 00 0A ... ldx #000a
13170 E78E CB 30 .0 addb #30
13171 E790 F7 00 5F .._ stab 005f ; num%10 => 005f
13176 ; number to string. number is <= 999. puts it into 005d-005f
13180 E798 E6 01 .. ldab 01,x
13182 E79B CE 00 64 ..d ldx #0064 ; /100
13185 E7A0 CB 30 .0 addb #30 ; make it a digit
13186 E7A2 F7 00 5D ..] stab 005d
13188 E7A6 E6 01 .. ldab 01,x
13190 E7A9 CE 00 64 ..d ldx #0064
13193 E7AE CE 00 0A ... ldx #000a
13196 E7B3 CB 30 .0 addb #30 ; %100 / 10 -> digit
13197 E7B5 F7 00 5E ..^ stab 005e
13199 E7B9 E6 01 .. ldab 01,x
13201 E7BC CE 00 0A ... ldx #000a
13203 E7C0 CB 30 .0 addb #30
13204 E7C2 F7 00 5F .._ stab 005f ; %10
13209 E7C7 F6 00 06 ... ldab 0006
13211 E7CB CE 00 05 ... ldx #0005
13214 E7D0 26 03 &. bne 03
13215 E7D2 7E E8 99 ~.. jmp e899 ;goto79
13216 E7D5 F6 00 06 ... ldab 0006
13217 E7D8 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
13218 E7DB 83 00 00 ... subd #0000
13219 E7DE 27 03 '. beq 03
13220 E7E0 7E E8 99 ~.. jmp e899 ;goto79
13221 E7E3 F6 00 06 ... ldab 0006
13224 E7E8 C3 08 00 ... addd #0800
13226 E7EC EC 00 .. ldd 00,x
13227 E7EE C4 FF .. andb #ff
13228 E7F0 84 3F .? anda #3f
13229 E7F2 FD 10 16 ... std 1016
13230 E7F5 F6 00 06 ... ldab 0006
13233 E7FA C3 0B F1 ... addd #0bf1
13235 E7FE EC 00 .. ldd 00,x
13236 E800 C4 FF .. andb #ff
13237 E802 84 3F .? anda #3f
13238 E804 FD 10 18 ... std 1018
13239 E807 FC 10 16 ... ldd 1016
13240 E80A 83 00 00 ... subd #0000
13241 E80D 25 08 %. bcs 08
13242 E80F FC 10 16 ... ldd 1016
13243 E812 83 27 0F .'. subd #270f
13244 E815 23 35 #5 bls 35
13245 E817 F6 00 06 ... ldab 0006
13246 E81A BD D4 68 ..h jsr d468 ;jump51
13247 E81D 83 00 00 ... subd #0000
13248 E820 27 2A '* beq 2a
13249 E822 CC 01 00 ... ldd #0100
13252 E827 F6 00 06 ... ldab 0006
13255 E82C C3 08 C8 ... addd #08c8
13258 E831 AA 00 .. ora 00,x
13259 E833 EA 01 .. orb 01,x
13260 E835 ED 00 .. std 00,x
13261 E837 CC 40 00 .@. ldd #4000
13264 E83C F6 00 06 ... ldab 0006
13267 E841 C3 08 00 ... addd #0800
13270 E846 AA 00 .. ora 00,x
13271 E848 EA 01 .. orb 01,x
13272 E84A ED 00 .. std 00,x
13273 E84C CE 10 16 ... ldx #1016
13274 E84F 1D 00 C0 .. bclr 00,x, #c0
13275 E852 FC 10 18 .. ldd 1018
13278 E857 FD 10 18 ... std 1018
13279 E85A CE 10 18 ... ldx #1018
13280 E85D 1D 00 C0 .. bclr 00,x, #c0
13281 E85F FC 10 16 .. ldd 1016
13284 E865 FC 10 18 ... ldd 1018
13286 E869 A3 00 .. subd 00,x
13289 E86D 27 2A '* beq 2a
13290 E86F CC 01 00 ... ldd #0100
13293 E874 F6 00 06 ... ldab 0006
13296 E879 C3 08 C8 ... addd #08c8
13299 E87E AA 00 .. ora 00,x
13300 E880 EA 01 .. orb 01,x
13301 E882 ED 00 .. std 00,x
13302 E884 CC 40 00 .@. ldd #4000
13305 E889 F6 00 06 ... ldab 0006
13308 E88E C3 08 00 ... addd #0800
13311 E893 AA 00 .. ora 00,x
13312 E895 EA 01 .. orb 01,x
13313 E897 ED 00 .. std 00,x
13320 E89C FD 00 0F ... std 000f
13321 E89F CC 3F FF .?. ldd #3fff
13322 E8A2 FD 00 50 ..P std 0050
13323 E8A5 7F 00 06 ... clr 0006
13324 E8A8 F6 00 06 ... ldab 0006
13325 E8AB C1 64 .d cmpb #64
13326 E8AD 24 64 $d bcc 64
13327 E8AF F6 00 06 ... ldab 0006
13329 E8B3 CE 00 05 ... ldx #0005
13332 E8B8 27 54 'T beq 54
13333 E8BA F6 00 06 ... ldab 0006
13334 E8BD BD D7 A0 ... jsr d7a0 ;is_invalid_slot
13335 E8C0 83 00 00 ... subd #0000
13336 E8C3 26 49 &I bne 49
13337 E8C5 F6 00 06 ... ldab 0006
13340 E8CA C3 08 00 ... addd #0800
13342 E8CE EC 00 .. ldd 00,x
13343 E8D0 C4 FF .. andb #ff
13344 E8D2 84 3F .? anda #3f
13345 E8D4 FD 10 16 ... std 1016
13346 E8D7 FC 10 16 ... ldd 1016
13347 E8DA 83 27 10 .'. subd #2710 ; 10000
13348 E8DD 24 2F $/ bcc 2f
13349 E8DF F6 00 06 ... ldab 0006
13350 E8E2 BD D4 68 ..h jsr d468 ;jump51
13351 E8E5 83 00 00 ... subd #0000
13352 E8E8 27 24 '$ beq 24
13353 E8EA BD D5 61 ..a jsr d561 ;jump42
13354 E8ED 83 00 00 ... subd #0000
13355 E8F0 26 1C &. bne 1c
13356 E8F2 FC 10 16 ... ldd 1016
13357 E8F5 B3 00 0F ... subd 000f
13358 E8F8 23 06 #. bls 06
13359 E8FA FC 10 16 ... ldd 1016
13360 E8FD FD 00 0F ... std 000f
13361 E900 FC 10 16 ... ldd 1016
13362 E903 B3 00 50 ..P subd 0050
13363 E906 24 06 $. bcc 06
13364 E908 FC 10 16 ... ldd 1016
13365 E90B FD 00 50 ..P std 0050
13366 E90E 7C 00 06 |.. inc 0006
13367 E911 20 95 . bra 95
13368 E913 FC 0B B7 ... ldd 0bb7
13369 E916 27 12 '. beq 12
13370 E918 FC 00 0F ... ldd 000f
13371 E91B B3 0B B7 ... subd 0bb7
13372 E91E 23 0A #. bls 0a
13373 E920 FC 00 0F ... ldd 000f
13375 E924 B3 0B B7 ... subd 0bb7
13376 E927 FD 00 0F ... std 000f
13382 E92D 6F 00 o. clr 00,x
13384 E930 E6 00 .. ldab 00,x
13385 E932 C1 64 .d cmpb #64
13386 E934 24 15 $. bcc 15
13392 E93B E6 02 .. ldab 02,x
13395 E93F C3 0D 1F ... addd #0d1f
13398 E944 ED 00 .. std 00,x
13400 E947 6C 00 l. inc 00,x
13401 E949 20 E4 . bra e4
13404 E94D FD 0D F9 ... std 0df9
13405 E950 FD 0D F7 ... std 0df7
13408 E955 FD 0D F5 ... std 0df5
13409 E958 FD 0D F3 ... std 0df3
13412 E95D FD 0D F1 ... std 0df1
13413 E960 FD 0D EF ... std 0def
13416 E965 FD 0D FD ... std 0dfd
13417 E968 FD 0D FB ... std 0dfb
13420 E96D FD 0D E9 ... std 0de9
13421 E970 FD 0D E7 ... std 0de7
13424 E975 FD 0C DD ... std 0cdd
13427 E97A FD 0C DF ... std 0cdf
13430 E97F FD 0C E1 ... std 0ce1
13433 E984 FD 0C E3 ... std 0ce3
13436 E989 FD 0C E5 ... std 0ce5
13439 E98E FD 0C F5 ... std 0cf5
13440 E991 FD 0C F3 ... std 0cf3
13443 E996 FD 0C F9 ... std 0cf9
13444 E999 FD 0C F7 ... std 0cf7
13447 E99E FD 0C FD ... std 0cfd
13448 E9A1 FD 0C FB ... std 0cfb
13451 E9A6 FD 0D 01 ... std 0d01
13452 E9A9 FD 0C FF ... std 0cff
13455 E9AE FD 0D 05 ... std 0d05
13456 E9B1 FD 0D 03 ... std 0d03
13459 E9B6 FD 0D 07 ... std 0d07
13462 E9BB FD 0D 09 ... std 0d09
13465 E9C0 FD 0D 0B ... std 0d0b
13468 E9C5 FD 0D 0D ... std 0d0d
13471 E9CA FD 0D 11 ... std 0d11
13472 E9CD FD 0D 0F ... std 0d0f
13475 E9D2 FD 0D 15 ... std 0d15
13476 E9D5 FD 0D 13 ... std 0d13
13479 E9DA FD 0D 19 ... std 0d19
13480 E9DD FD 0D 17 ... std 0d17
13483 E9E2 FD 0D 1D ... std 0d1d
13484 E9E5 FD 0D 1B ... std 0d1b
13489 E9EA 7F 00 06 ... clr 0006
13490 E9ED F6 00 06 ... ldab 0006
13491 E9F0 C1 64 .d cmpb #64
13492 E9F2 24 64 $d bcc 64
13493 E9F4 F6 00 06 ... ldab 0006
13495 E9F8 CE 00 05 ... ldx #0005
13498 E9FD 27 54 'T beq 54
13499 E9FF CC BF FF ... ldd #bfff
13502 EA04 F6 00 06 ... ldab 0006
13505 EA09 C3 08 00 ... addd #0800
13508 EA0E A4 00 .. anda 00,x
13509 EA10 E4 01 .. andb 01,x
13510 EA12 ED 00 .. std 00,x
13511 EA14 CC FE FF ... ldd #feff
13514 EA19 F6 00 06 ... ldab 0006
13517 EA1E C3 08 C8 ... addd #08c8
13520 EA23 A4 00 .. anda 00,x
13521 EA25 E4 01 .. andb 01,x
13522 EA27 ED 00 .. std 00,x
13523 EA29 CC FD FF ... ldd #fdff
13526 EA2E F6 00 06 ... ldab 0006
13529 EA33 C3 08 C8 ... addd #08c8
13532 EA38 A4 00 .. anda 00,x
13533 EA3A E4 01 .. andb 01,x
13534 EA3C ED 00 .. std 00,x
13535 EA3E CC FB FF ... ldd #fbff
13538 EA43 F6 00 06 ... ldab 0006
13541 EA48 C3 08 C8 ... addd #08c8
13544 EA4D A4 00 .. anda 00,x
13545 EA4F E4 01 .. andb 01,x
13546 EA51 ED 00 .. std 00,x
13547 EA53 7C 00 06 |.. inc 0006
13548 EA56 20 95 . bra 95
13553 ; test PE2 - remote no-sale switch.
13554 EA5A CE 00 04 ... ldx #0004
13556 EA5E CC 10 0A ... ldd #100a
13557 EA61 BD E5 D7 ... jsr e5d7 ;jump69 - test input line
13559 EA65 83 00 00 ... subd #0000
13560 EA68 27 3F '? beq 3f ; to eaa9 if off
13562 ; test internal mode switch (bit 1 of 1800)
13563 EA6A CE 00 01 ... ldx #0001
13565 EA6E CC 18 00 ... ldd #1800
13566 EA71 BD E5 D7 ... jsr e5d7 ;jump69 - test input line
13568 EA75 83 00 00 ... subd #0000
13569 EA78 27 2F '/ beq 2f ; to eaa9 if off
13571 ; both no-sale & mode switches held.
13574 EA7A CC 03 E8 ... ldd #03e8
13575 EA7D BD E5 71 ..q jsr e571 ;msdelay
13577 EA80 7F 0B A8 ... clr 0ba8
13579 ; blink "SECURE OFF" until mode switch is released
13580 EA83 F6 18 00 ... ldab 1800
13581 EA86 C4 01 .. andb #01
13582 EA88 26 1C &. bne 1c ; to eaa4 (loop until released)
13585 EA8A BD BE 4B ..K jsr be4b ;displayblank (blank display buffer)
13587 EA8E BD BE 01 ... jsr be01 ;jump70 (commit to display)
13591 EA92 CC 01 F4 ... ldd #01f4
13592 EA95 BD E5 71 ..q jsr e571 ;msdelay
13594 EA98 CC AF D1 ... ldd #afd1 ; "SECURE OFF"
13595 EA9B BD C0 BA ... jsr c0ba ;display:
13598 EA9E CC 01 F4 ... ldd #01f4
13599 EAA1 BD E5 71 ..q jsr e571 ;msdelay
13601 EAA4 20 DD . bra dd ; to ea83
13602 EAA6 BD BE 69 ..i jsr be69 ;displayreset
13604 ; no sale switch or internal mode switch on
13606 ; fiddle with the bill acceptor
13607 EAA9 C6 01 .. ldab #01
13608 EAAB F7 00 14 ... stab 0014
13609 EAAE F6 00 14 ... ldab 0014
13610 EAB1 F7 38 00 .8. stab 3800
13613 EAB4 CC 00 1E ... ldd #001e
13614 EAB7 BD E5 71 ..q jsr e571 ;msdelay
13616 ; more bill acceptor fiddling & tests
13617 EABA CE 00 01 ... ldx #0001
13619 EABE CC 10 00 ... ldd #1000
13620 EAC1 BD E5 D7 ... jsr e5d7 ;jump69 - test input line
13622 EAC5 83 00 00 ... subd #0000
13623 EAC8 27 10 '. beq 10
13624 EACA CE 00 02 ... ldx #0002
13626 EACE CC 10 00 ... ldd #1000
13627 EAD1 BD E5 D7 ... jsr e5d7 ;jump69 - test input line
13629 EAD5 83 00 00 ... subd #0000
13630 EAD8 27 03 '. beq 03
13631 ; we've decided if we have a bill acceptor. if not, skip this bit
13632 EADA 7E ED F8 ~.. jmp edf8 ;goto80
13633 ; we have a bill acceptor - play some more
13634 EADD C6 02 .. ldab #02
13635 EADF F7 00 14 ... stab 0014
13636 EAE2 F6 00 14 ... ldab 0014
13637 EAE5 F7 38 00 .8. stab 3800
13638 EAE8 CC 00 1E ... ldd #001e
13639 EAEB BD E5 71 ..q jsr e571 ;msdelay
13640 EAEE CE 00 01 ... ldx #0001
13642 EAF2 CC 10 00 ... ldd #1000
13643 EAF5 BD E5 D7 ... jsr e5d7 ;jump69 - test input line
13645 EAF9 83 00 00 ... subd #0000
13646 EAFC 26 10 &. bne 10
13647 EAFE CE 00 02 ... ldx #0002
13649 EB02 CC 10 00 ... ldd #1000
13650 EB05 BD E5 D7 ... jsr e5d7 ;jump69 - test input line
13652 EB09 83 00 00 ... subd #0000
13653 EB0C 26 03 &. bne 03
13654 EB0E 7E ED F8 ~.. jmp edf8 ;goto80 - something about the bill validator failed. skip it.
13655 EB11 CC 5A 5A .ZZ ldd #5a5a ; 23130
13656 EB14 FD 10 16 ... std 1016
13657 EB17 CC B1 39 ..9 ldd #b139 ;"**********"
13658 EB1A BD C0 BA ... jsr c0ba ;display:
13659 EB1D CC 07 D0 ... ldd #07d0
13660 EB20 BD E5 71 ..q jsr e571 ;msdelay
13661 EB23 CC B1 44 ..D ldd #b144 ;"OOOOOOOOOO"
13662 EB26 BD C0 BA ... jsr c0ba ;display:
13663 EB29 CC 07 D0 ... ldd #07d0
13664 EB2C BD E5 71 ..q jsr e571 ;msdelay
13665 EB2F CC 00 14 ... ldd #0014
13666 EB32 FD 00 3B ..; std 003b
13667 EB35 FC 00 3B ..; ldd 003b
13668 EB38 27 47 'G beq 47
13669 ; draws a sequence of 10 dots ..... along the display.
13671 EB3B 6F 00 o. clr 00,x
13673 EB3E E6 00 .. ldab 00,x
13674 EB40 C1 0A .. cmpb #0a
13675 EB42 24 3B $; bcc 3b
13676 EB44 BD BE 4B ..K jsr be4b ;displayblank
13677 EB47 C6 2E .. ldab #2e
13680 EB4B E6 01 .. ldab 01,x
13682 EB4E C3 0B 90 ... addd #0b90
13685 EB53 E7 00 .. stab 00,x
13687 EB56 BD BE 69 ..i jsr be69 ;displayreset
13688 EB59 CE 10 28 ..( ldx #1028
13689 EB5C 1C 00 40 .. bset 00,x, #40 ; tweak the clock phase
13690 EB5F CE 00 01 ... ldx #0001
13692 EB63 CC 00 20 .. ldd #0020
13693 EB66 BD BD B5 ... jsr bdb5 ;jump78 - send display byte
13695 EB6A CE 10 28 ..( ldx #1028
13696 EB6D 1D 00 40 ..@ bclr 00,x, #40 ; tweak the clock phase back
13697 EB70 BD BE 10 ... jsr be10 ;jump88
13699 EB74 CC 00 07 ... ldd #0007
13700 EB77 BD E5 71 ..q jsr e571 ;msdelay 7-unit delay
13702 EB7B 6C 00 l. inc 00,x
13703 EB7D 20 BE . bra be
13704 EB7F 20 B4 . bra b4
13705 EB81 BD BE 69 ..i jsr be69 ;displayreset
13706 EB84 CC 08 00 ... ldd #0800
13707 EB87 FD 00 73 ..s std 0073
13708 EB8A FC 00 73 ..s ldd 0073
13709 EB8D 83 0F FF ... subd #0fff
13710 EB90 22 10 ". bhi 10 ; to eba2
13711 EB92 C6 AA .. ldab #aa
13712 EB94 FE 00 73 ..s ldx 0073
13713 EB97 E7 00 .. stab 00,x
13714 EB99 FE 00 73 ..s ldx 0073
13716 EB9D FF 00 73 ..s stx 0073
13717 EBA0 20 E8 . bra e8
13718 EBA2 CC 08 00 ... ldd #0800
13719 EBA5 FD 00 73 ..s std 0073
13720 EBA8 FC 00 73 ..s ldd 0073
13721 EBAB 83 0F FF ... subd #0fff
13722 EBAE 22 1A ". bhi 1a
13723 EBB0 FE 00 73 ..s ldx 0073
13724 EBB3 E6 00 .. ldab 00,x
13725 EBB5 C1 AA .. cmpb #aa
13726 EBB7 27 08 '. beq 08
13727 EBB9 CE 10 16 ... ldx #1016 ; timer output compare register
13728 EBBC 1D 00 FF .. bclr 00,x, #FF
13729 EBBF 20 09 .. bra 09
13730 EBC1 FE 00 73 ..s ldx 0073
13732 EBC5 FF 00 73 ..s stx 0073
13733 EBC8 20 DE . bra de
13734 EBCA CC 08 00 ... ldd #0800
13735 EBCD FD 00 73 ..s std 0073
13736 EBD0 FC 00 73 ..s ldd 0073
13737 EBD3 83 0F FF ... subd #0fff
13738 EBD6 22 10 ". bhi 10
13739 EBD8 C6 55 .U ldab #55
13740 EBDA FE 00 73 ..s ldx 0073
13741 EBDD E7 00 .. stab 00,x
13742 EBDF FE 00 73 ..s ldx 0073
13744 EBE3 FF 00 73 ..s stx 0073
13745 EBE6 20 E8 . bra e8
13746 EBE8 CC 08 00 ... ldd #0800
13747 EBEB FD 00 73 ..s std 0073
13748 EBEE FC 00 73 ..s ldd 0073
13749 EBF1 83 0F FF ... subd #0fff
13750 EBF4 22 1A ". bhi 1a
13751 EBF6 FE 00 73 ..s ldx 0073
13752 EBF9 E6 00 .. ldab 00,x
13753 EBFB C1 55 .U cmpb #55
13754 EBFD 27 08 '. beq 08
13755 EBFF CE 10 16 ... ldx #1016
13756 EC02 1D 00 FF ... bclr 00,x #ff
13757 EC05 20 09 . bra 09
13758 EC07 FE 00 73 ..s ldx 0073
13760 EC0B FF 00 73 ..s stx 0073
13761 EC0E 20 DE . bra de
13762 EC10 CC 08 00 ... ldd #0800
13763 EC13 FD 00 73 ..s std 0073
13764 EC16 FC 00 73 ..s ldd 0073
13765 EC19 83 0F FF ... subd #0fff
13766 EC1C 22 0F ". bhi 0f
13768 EC1F FE 00 73 ..s ldx 0073
13769 EC22 E7 00 .. stab 00,x
13770 EC24 FE 00 73 ..s ldx 0073
13772 EC28 FF 00 73 ..s stx 0073
13773 EC2B 20 E9 . bra e9
13774 EC2D 7F 00 06 ... clr 0006
13775 EC30 F6 00 06 ... ldab 0006
13776 EC33 C1 64 .d cmpb #64
13777 EC35 24 4D $M bcc 4d
13778 EC37 F6 00 06 ... ldab 0006
13780 EC3B CE 00 05 ... ldx #0005
13783 EC40 27 3D '= beq 3d
13784 EC42 CC 00 32 ..2 ldd #0032
13787 EC47 F6 00 06 ... ldab 0006
13790 EC4C C3 08 00 ... addd #0800
13793 EC51 ED 00 .. std 00,x
13794 EC53 F6 00 06 ... ldab 0006
13797 EC58 C3 08 00 ... addd #0800
13799 EC5C EC 00 .. ldd 00,x
13804 EC62 F6 00 06 ... ldab 0006
13807 EC67 C3 0B F1 ... addd #0bf1
13810 EC6C ED 00 .. std 00,x
13811 EC6E CC 08 01 ... ldd #0801
13814 EC73 F6 00 06 ... ldab 0006
13817 EC78 C3 08 C8 ... addd #08c8
13820 EC7D ED 00 .. std 00,x
13821 EC7F 7C 00 06 |.. inc 0006
13822 EC82 20 AC . bra ac
13823 EC84 C6 1D .. ldab #1d
13824 EC86 F7 0B BF ... stab 0bbf
13826 EC8A 6F 00 o. clr 00,x
13827 EC8C F6 0B BF ... ldab 0bbf
13829 EC90 C3 00 02 ... addd #0002
13833 EC96 E6 02 .. ldab 02,x
13835 EC99 A3 00 .. subd 00,x
13838 EC9D 2C 1B ,. bge 1b
13840 ECA0 E6 00 .. ldab 00,x
13842 ECA3 C3 B1 D0 ... addd #b1d0 ; "THANK YOU FOR YOUR PATRONAGE"
13844 ECA7 E6 00 .. ldab 00,x
13847 ECAB E6 01 .. ldab 01,x
13849 ECAE C3 09 93 ... addd #0993
13852 ECB3 E7 00 .. stab 00,x
13854 ECB6 6C 00 l. inc 00,x
13855 ECB8 20 D2 . bra d2
13856 ECBA 7F 0B A8 ... clr 0ba8
13857 ECBD CC 00 32 ..2 ldd #0032
13858 ECC0 FD 0B B5 ... std 0bb5
13861 ECC5 FD 0B B7 ... std 0bb7
13862 ECC8 7F 00 06 ... clr 0006
13863 ECCB BD A6 4E ..N jsr a64e ;jump135
13864 ECCE C6 09 .. ldab #09
13865 ECD0 F7 0B C0 ... stab 0bc0
13866 ECD3 7F 0E 6D ..m clr 0e6d
13867 ECD6 C6 01 .. ldab #01
13868 ECD8 F7 0E 6E ..n stab 0e6e
13870 ECDC 6F 00 o. clr 00,x
13872 ECDF E6 00 .. ldab 00,x
13873 ECE1 C1 0F .. cmpb #0f
13874 ECE3 24 21 $! bcc 21
13875 ECE5 C6 30 .0 ldab #30
13878 ECE9 E6 01 .. ldab 01,x
13880 ECEC C3 0C B9 ... addd #0cb9
13883 ECF1 E7 00 .. stab 00,x
13884 ECF3 C6 30 .0 ldab #30
13887 ECF7 E6 01 .. ldab 01,x
13889 ECFA C3 0C C9 ... addd #0cc9
13892 ECFF E7 00 .. stab 00,x
13894 ED02 6C 00 l. inc 00,x
13895 ED04 20 D8 . bra d8
13897 ED07 6F 00 o. clr 00,x
13900 ED0A E6 00 .. ldab 00,x
13901 ED0C C1 0B .. cmpb #0b
13902 ED0E 24 12 $. bcc 12 ; to ed22
13906 ED13 E6 01 .. ldab 01,x
13908 ED16 C3 0B E4 ... addd #0be4
13911 ED1B E7 00 .. stab 00,x
13913 ED1E 6C 00 l. inc 00,x
13914 ED20 20 E7 . bra e7
13915 ; clear stuff ready for test harness?
13918 ED24 FD 0D F9 ... std 0df9
13919 ED27 FD 0D F7 ... std 0df7
13922 ED2C FD 0D F5 ... std 0df5
13923 ED2F FD 0D F3 ... std 0df3
13924 ED32 7F 0C D9 ... clr 0cd9
13925 ED35 7F 0C DA ... clr 0cda
13926 ED38 7F 0C DB ... clr 0cdb
13927 ED3B 7F 0C DC ... clr 0cdc
13930 ED40 FD 0D F1 ... std 0df1
13931 ED43 FD 0D EF ... std 0def
13934 ED48 FD 0D FD ... std 0dfd
13935 ED4B FD 0D FB ... std 0dfb
13938 ED50 FD 0D E9 ... std 0de9
13939 ED53 FD 0D E7 ... std 0de7
13942 ED58 FD 0D ED ... std 0ded
13943 ED5B FD 0D EB ... std 0deb
13946 ED60 FD 0C DD ... std 0cdd
13949 ED65 FD 0C DF ... std 0cdf
13952 ED6A FD 0C E1 ... std 0ce1
13955 ED6F FD 0C E3 ... std 0ce3
13958 ED74 FD 0C E5 ... std 0ce5
13961 ED79 FD 0C F5 ... std 0cf5
13962 ED7C FD 0C F3 ... std 0cf3
13965 ED81 FD 0C F9 ... std 0cf9
13966 ED84 FD 0C F7 ... std 0cf7
13969 ED89 FD 0C FD ... std 0cfd
13970 ED8C FD 0C FB ... std 0cfb
13973 ED91 FD 0D 01 ... std 0d01
13974 ED94 FD 0C FF ... std 0cff
13977 ED99 FD 0D 05 ... std 0d05
13978 ED9C FD 0D 03 ... std 0d03
13981 EDA1 FD 0D 07 ... std 0d07
13984 EDA6 FD 0D 09 ... std 0d09
13987 EDAB FD 0D 0B ... std 0d0b
13990 EDB0 FD 0D 0D ... std 0d0d
13993 EDB5 FD 0D 11 ... std 0d11
13994 EDB8 FD 0D 0F ... std 0d0f
13997 EDBD FD 0D 15 ... std 0d15
13998 EDC0 FD 0D 13 ... std 0d13
14001 EDC5 FD 0D 19 ... std 0d19
14002 EDC8 FD 0D 17 ... std 0d17
14005 EDCD FD 0D 1D ... std 0d1d
14006 EDD0 FD 0D 1B ... std 0d1b
14007 EDD3 7F 0B AF ... clr 0baf
14008 EDD6 7F 0B AE ... clr 0bae
14009 EDD9 7F 0B AD ... clr 0bad
14010 EDDC 7F 0B AC ... clr 0bac
14011 EDDF 7F 0B AB ... clr 0bab
14012 EDE2 7F 0B B4 ... clr 0bb4
14013 EDE5 7F 0B B3 ... clr 0bb3
14014 EDE8 7F 0B B2 ... clr 0bb2
14015 EDEB 7F 0B B1 ... clr 0bb1
14016 EDEE 7F 0B B0 ... clr 0bb0
14017 EDF1 C6 05 .. ldab #05
14018 EDF3 F7 08 00 ... stab 0800
14019 EDF6 8D 21 .! bsr 21 ;jump204 - test harness function
14021 ; switch things off (motors, display clock, keypad strobe)
14022 EDF8 7F 00 14 ... clr 0014
14023 EDFB F6 00 14 ... ldab 0014
14024 EDFE F7 38 00 .8. stab 3800
14029 ; writes msg to screen for 1.5s
14033 EE06 EC 00 .. ldd 00,x
14034 EE08 BD C0 BA ... jsr c0ba ;display:
14035 EE0B CE 10 16 ... ldx #1016
14036 EE0E 1D 01 FF .. bclr 01,x, #ff
14037 EE11 CC 05 DC ... ldd #05dc ; 1500
14038 EE14 BD E5 71 ... jsr e571 ;msdelay
14043 EE19 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
14045 ; this the diagnostic function activated when the "test harness"
14047 EE1C CE 10 16 ... ldx #1016
14048 EE1F 1D 01 .. bclr 01,x, #ff
14049 EE21 CE 10 16 .. ldx #1016
14050 EE25 1C 01 5A ... bset 01,x, #5A
14051 EE28 F6 10 16 ... ldab 1016
14052 EE2B 26 0C &. bne 0c ; to ee39
14053 EE2D CC B1 4F ..O ldd #b14f ;"RAM FAIL"
14054 EE30 BD C0 BA ... jsr c0ba ;display:
14055 EE33 CC 05 DC ... ldd #05dc
14056 EE36 BD E5 71 ..q jsr e571 ;msdelay
14058 EE39 C6 04 .. ldab #04
14059 EE3B F7 00 1C ... stab 001c
14061 EE3E F6 00 1C ... ldab 001c
14062 EE41 C1 07 .. cmpb #07
14063 EE43 24 57 $W bcc 57 ; to ee9c (break out)
14064 EE45 F6 00 1C ... ldab 001c
14066 EE49 C3 B1 23 ..# addd #b123 ; power of 2
14068 EE4D E6 00 .. ldab 00,x
14070 EE50 F4 00 1A ... andb 001a
14071 EE53 F7 00 1A ... stab 001a
14072 EE56 F6 00 1A ... ldab 001a
14073 EE59 F7 30 00 .0. stab 3000 ; set coin bit active (low)
14074 EE5C CC 00 0A ... ldd #000a
14075 EE5F BD E5 71 ..q jsr e571 ;msdelay
14076 EE62 F6 18 00 ... ldab 1800
14077 EE65 2C 07 ,. bge 07 ; to ee6e
14078 EE67 CC B1 5A ..Z ldd #b15a ; "P2 FAIL"
14079 EE6A 8D 97 .. bsr dest 97 ; display to ee03
14080 EE6C 20 2E . bra 2e ; to ee9c
14081 EE6E F6 00 1C ... ldab 001c
14083 EE72 C3 B1 23 ..# addd #b123 ; powers of 2
14085 EE76 E6 00 .. ldab 00,x
14086 EE78 FA 00 1A ... orb 001a
14087 EE7B F7 00 1A ... stab 001a
14088 EE7E F6 00 1A ... ldab 001a
14089 EE81 F7 30 00 .0. stab 3000 ; set coin bit inactive (high)
14090 EE84 CC 00 0A ... ldd #000a
14091 EE87 BD E5 71 ..q jsr e571 ;msdelay
14092 EE8A F6 18 00 ... ldab 1800 ; if changer int'
14093 EE8D 2D 08 -. blt 08 ; ee97
14094 EE8F CC B1 5A ..Z ldd #b15a ; "P2 FAIL"
14095 EE92 BD EE 03 ... jsr ee03 ;jump36
14096 EE95 20 05 . bra 05 ; to ee9c
14097 EE97 7C 00 1C |.. inc 001c
14098 EE9A 20 A2 . bra a2 ; to ee3e
14100 EE9C CE 10 00 ... ldx #1000
14101 EE9F 1C 00 08 ... bset 00,x, #08 ; talk to coin mech
14102 EEA2 CE 10 08 ... ldx #1008
14103 EEA5 1C 00 02 ... bset 00,x, #02 ; set rx of sci
14104 EEA8 CE 00 1A ... ldx #001a
14105 EEAB 1C 00 40 ... bset 00,x, #40
14106 EEAE F6 00 1A ... ldab 001a
14107 EEB1 F7 30 00 .0. stab 3000 ; unset $1.00 line
14108 EEB4 CC 00 0A ... ldd #000a
14109 EEB7 BD E5 71 ..q jsr e571 ;msdelay
14110 EEBA F6 10 08 ... ldab 1008
14111 EEBD C4 01 .. andb #01 ; tests tx of sci
14112 EEBF 26 06 &. bne 06 ; to eec7
14113 EEC1 CC B1 5A ..Z ldd #b15a ; "P2 FAIL"
14114 EEC4 BD EE 03 ... jsr ee03 ;jump36
14115 EEC7 CE 00 1A ... ldx #001a
14116 EECA 1D 00 40 ... bclr 00,x, #40
14117 EECD F6 00 1A ... ldab 001a
14118 EED0 F7 30 00 .0. stab 3000 ; set $1.00 line
14119 EED3 CC 00 0A ... ldd #000a
14120 EED6 BD E5 71 ..q jsr e571 ;msdelay
14122 EED9 F6 10 08 ... ldab 1008
14123 EEDC C4 01 .. andb #01 ; tests txt of sci
14124 EEDE 27 06 '. beq 06 ; to eee6
14125 EEE0 CC B1 5A ..Z ldd #b15a ; "P2 FAIL"
14126 EEE3 BD EE 03 ... jsr ee03 ;jump36
14127 EEE6 CE 00 1A ... ldx #001a
14128 EEE9 1C 00 02 ... bset 00,x, #02
14129 EEEC F6 00 1A ... ldab 001a
14130 EEEF F7 30 00 .0. stab 3000 ; ditto for $0.25
14131 EEF2 CC 00 0A ... ldd #000a
14132 EEF5 BD E5 71 ..q jsr e571 ;msdelay
14133 EEF8 F6 10 00 ... ldab 1000
14134 EEFB C4 04 .. andb #04
14135 EEFD 26 06 &. bne 06
14136 EEFF CC B1 65 ..e ldd #b165
14137 EF02 BD EE 03 ... jsr ee03 ;jump36
14138 EF05 CE 00 1A ... ldx #001a
14139 EF08 1D 00 02 ... bclr 00,x, #02
14140 EF0B F6 00 1A ... ldab 001a
14141 EF0E F7 30 00 .0. stab 3000 ; ditto for $0.25
14142 EF11 CC 00 0A ... ldd #000a
14143 EF14 BD E5 71 ..q jsr e571 ;msdelay
14145 EF17 F6 10 00 ... ldab 1000
14146 EF1A C4 04 .. andb #04 ; coin dispenser pin6
14147 EF1C 27 06 '. beq 06
14148 EF1E CC B1 65 ..e ldd #b165 ; "P2-P3 FAIL"
14149 EF21 BD EE 03 ... jsr ee03 ;jump36
14150 EF24 CE 00 1A ... ldx #001a
14151 EF27 1C 00 01 ... bset 00,x, #01
14152 EF2A F6 00 1A ... ldab 001a
14153 EF2D F7 30 00 .0. stab 3000 ; send line of changer
14154 EF30 CC 00 0A ... ldd #000a
14155 EF33 BD E5 71 ..q jsr e571 ;msdelay
14157 EF36 F6 18 00 ... ldab 1800
14158 EF39 C4 20 . andb #20 ; test door switch
14159 EF3B 26 06 &. bne 06
14160 EF3D CC B1 70 ..p ldd #b170 ; "P2-P8 FAIL"
14161 EF40 BD EE 03 ... jsr ee03 ;jump36
14162 EF43 CE 00 1A ... ldx #001a
14163 EF46 1D 00 01 ... bclr 00,x, #01
14164 EF49 F6 00 1A ... ldab 001a
14165 EF4C F7 30 00 .0. stab 3000 ; unset send line of changer
14166 EF4F CC 00 0A ... ldd #000a
14167 EF52 BD E5 71 ..q jsr e571 ;msdelay
14168 EF55 F6 18 00 ... ldab 1800
14169 EF58 C4 20 . andb #20 ; test door again?
14170 EF5A 27 06 '. beq 06
14171 EF5C CC B1 70 ..p ldd #b170 ; "P2-P8 FAIL"
14172 EF5F BD EE 03 ... jsr ee03 ;jump36
14173 EF62 CE 00 1A ... ldx #001a
14174 EF65 1C 00 04 ... bset 00,x, #04 ; reset changer
14175 EF68 F6 00 1A ... ldab 001a
14176 EF6B F7 30 00 .0. stab 3000
14177 EF6E CC 00 0A ... ldd #000a
14178 EF71 BD E5 71 ..q jsr e571 ;msdelay
14179 EF74 F6 10 0A ... ldab 100a
14180 EF77 C4 04 .. andb #04 ; test no-sale switch
14181 EF79 26 06 &. bne 06
14182 EF7B CC B1 7B ..{ ldd #b17b ; "P2-P9 FAIL"
14183 EF7E BD EE 03 ... jsr ee03 ;jump36
14184 EF81 CE 00 1A ... ldx #001a
14185 EF84 1D 00 04 ... bclr 00,x, #04
14186 EF87 F6 00 1A ... ldab 001a
14187 EF8A F7 30 00 .0. stab 3000 ;snack motor drivers serial data is bit 7
14188 EF8D CC 00 0A ... ldd #000a
14189 EF90 BD E5 71 ..q jsr e571 ;msdelay
14190 EF93 F6 10 0A ... ldab 100a
14191 EF96 C4 04 .. andb #04
14192 EF98 27 06 '. beq 06
14193 EF9A CC B1 7B ..{ ldd #b17b ; "P2-P9 FAIL"
14194 EF9D BD EE 03 ... jsr ee03 ;jump36
14195 EFA0 CE 10 00 ... ldx #1000
14196 EFA3 1C 00 08 ... bset 00,x, #08
14197 EFA6 CE 00 1A ... ldx #001a
14198 EFA9 1C 00 40 ... bset 00,x, #40
14199 EFAC F6 00 1A ... ldab 001a
14200 EFAF F7 30 00 .0. stab 3000
14201 EFB2 CE 10 08 ... ldx #1008
14202 EFB5 1C 00 02 ... bset 00,x, #02 ; keypad data
14203 EFB8 CC 00 0A ... ldd #000a
14204 EFBB BD E5 71 ..q jsr e571 ;msdelay
14205 EFBE F6 10 08 ... ldab 1008
14206 EFC1 C4 01 .. andb #01
14207 EFC3 26 06 &. bne 06
14208 EFC5 CC B1 86 ... ldd #b186 ; "P3-P4 FAIL"
14209 EFC8 BD EE 03 ... jsr ee03 ;jump36
14210 EFCB CE 10 08 ... ldx #1008
14211 EFCE 1D 00 02 ... bclr 00,x, #02
14212 EFD1 CC 00 0A ... ldd #000a
14213 EFD4 BD E5 71 ..q jsr e571 ;msdelay
14214 EFD7 F6 10 08 ... ldab 1008
14215 EFDA C4 01 .. andb #01
14216 EFDC 27 06 '. beq 06
14217 EFDE CC B1 86 ... ldd #b186 ; "P3-P4 FAIL"
14218 EFE1 BD EE 03 ... jsr ee03 ;jump36
14219 EFE4 CE 10 00 ... ldx #1000
14220 EFE7 1D 00 08 ... bclr 00,x, #08
14221 EFEA CE 10 08 ... ldx #1008
14222 EFED 1C 00 02 ... bset 00,x, #02
14223 EFF0 CC 00 0A ... ldd #000a
14224 EFF3 BD E5 71 ..q jsr e571 ;msdelay
14225 EFF6 F6 10 08 ... ldab 1008
14226 EFF9 C4 01 .. andb #01
14227 EFFB 26 06 &. bne 06
14228 EFFD CC B1 91 ... ldd #b191 ; "P5 FAIL"
14229 F000 BD EE 03 ... jsr ee03 ;jump36
14230 F003 CE 10 08 ... ldx #1008
14231 F006 1D 00 02 ... bclr 00,x, #02
14232 F009 CC 00 0A ... ldd #000a
14233 F00C BD E5 71 ..q jsr e571 ;msdelay
14234 F00F F6 10 08 ... ldab 1008
14235 F012 C4 01 .. andb #01
14236 F014 27 06 '. beq 06
14237 F016 CC B1 91 ... ldd #b191
14238 F019 BD EE 03 ... jsr ee03 ;jump36
14239 F01C CE 00 14 ... ldx #0014
14240 F01F 1C 00 .. bset add,x 00,x
14241 F021 20 F6 . bra f6
14244 F025 F7 38 00 .8. stab 3800
14245 F028 CC 00 0A ... ldd #000a
14246 F02B BD E5 71 ..q jsr e571 ;msdelay
14247 F02E F6 20 00 . . ldab 2000
14248 F031 C4 40 .@ andb #40
14249 F033 26 06 &. bne 06
14250 F035 CC B1 9C ... ldd #b19c
14251 F038 BD EE 03 ... jsr ee03 ;jump36
14252 F03B CE 00 14 ... ldx #0014
14253 F03E 1D 00 .. bclr add,x 00,x
14254 F040 20 F6 . bra f6
14257 F044 F7 38 00 .8. stab 3800
14258 F047 CC 00 0A ... ldd #000a
14259 F04A BD E5 71 ..q jsr e571 ;msdelay
14260 F04D F6 20 00 . . ldab 2000
14261 F050 C4 40 .@ andb #40
14262 F052 27 06 '. beq 06
14263 F054 CC B1 9C ... ldd #b19c
14264 F057 BD EE 03 ... jsr ee03 ;jump36
14265 F05A CE 00 14 ... ldx #0014
14266 F05D 1C 00 40 ... bset 00,x, #40
14267 F060 F6 00 14 ... ldab 0014
14268 F063 F7 38 00 .8. stab 3800
14269 F066 CC 00 0A ... ldd #000a
14270 F069 BD E5 71 ..q jsr e571 ;msdelay
14271 F06C F6 20 00 . . ldab 2000
14272 F06F 2C 06 ,. bge 06
14273 F071 CC B1 9C ... ldd #b19c
14274 F074 BD EE 03 ... jsr ee03 ;jump36
14275 F077 CE 00 14 ... ldx #0014
14276 F07A 1D 00 40 ... bclr 00,x, #40
14277 F07D F6 00 14 ... ldab 0014
14278 F080 F7 38 00 .8. stab 3800
14279 F083 CC 00 0A ... ldd #000a
14280 F086 BD E5 71 ..q jsr e571 ;msdelay
14281 F089 F6 20 00 . . ldab 2000
14282 F08C 2D 06 -. blt 06
14283 F08E CC B1 9C ... ldd #b19c
14284 F091 BD EE 03 ... jsr ee03 ;jump36
14285 F094 7F 00 61 ..a clr 0061
14286 F097 F6 00 61 ..a ldab 0061
14287 F09A C1 08 .. cmpb #08
14288 F09C 24 22 $" bcc 22
14289 F09E F6 00 61 ..a ldab 0061
14291 F0A2 C3 B1 C8 ... addd #b1c8
14293 F0A6 E6 00 .. ldab 00,x
14294 F0A8 F7 00 06 ... stab 0006
14295 F0AB BD D3 11 ... jsr d311 ;jump30 - test position exists
14296 F0AE 83 00 00 ... subd #0000
14297 F0B1 27 08 '. beq 08
14298 F0B3 CC B1 A7 ... ldd #b1a7
14299 F0B6 BD EE 03 ... jsr ee03 ;jump36
14300 F0B9 20 05 . bra 05
14301 F0BB 7C 00 61 |.a inc 0061
14302 F0BE 20 D7 . bra d7
14303 F0C0 7F 00 61 ..a clr 0061
14304 F0C3 F6 00 61 ..a ldab 0061
14305 F0C6 C1 08 .. cmpb #08
14306 F0C8 24 2B $+ bcc 2b
14307 F0CA F6 00 61 ..a ldab 0061
14309 F0CE C3 B1 C8 ... addd #b1c8
14311 F0D2 E6 00 .. ldab 00,x
14312 F0D4 F7 00 06 ... stab 0006
14313 F0D7 BD D1 3D ..= jsr d13d ;jump34 - motor on
14314 F0DA BD D5 70 ..p jsr d570 ;jump35
14315 F0DD 83 00 00 ... subd #0000
14316 F0E0 26 0B &. bne 0b
14317 F0E2 BD D1 05 ... jsr d105 ;motors_off
14318 F0E5 CC B1 B2 ... ldd #b1b2
14319 F0E8 BD EE 03 ... jsr ee03 ;jump36
14320 F0EB 20 08 . bra 08
14321 F0ED BD D1 05 ... jsr d105 ;motors_off
14322 F0F0 7C 00 61 |.a inc 0061
14323 F0F3 20 CE . bra ce
14324 F0F5 7F 00 61 ..a clr 0061
14325 F0F8 F6 00 61 ..a ldab 0061
14326 F0FB C1 05 .. cmpb #05
14327 F0FD 24 45 $E bcc 45
14328 F0FF F6 00 61 ..a ldab 0061
14330 F103 C3 B1 C8 ... addd #b1c8
14332 F107 E6 00 .. ldab 00,x
14333 F109 F7 00 06 ... stab 0006
14334 F10C BD D1 3D ..= jsr d13d ;jump34 - motor on
14335 F10F CC 00 0A ... ldd #000a
14336 F112 BD E5 71 ..q jsr e571 ;msdelay
14337 F115 F6 18 00 ... ldab 1800
14338 F118 C4 40 .@ andb #40
14339 F11A 26 0B &. bne 0b
14340 F11C BD D1 05 ... jsr d105 ;motors_off
14341 F11F CC B1 B2 ... ldd #b1b2
14342 F122 BD EE 03 ... jsr ee03 ;jump36
14343 F125 20 1D . bra 1d
14344 F127 BD D1 05 ... jsr d105 ;motors_off
14345 F12A CC 00 0A ... ldd #000a
14346 F12D BD E5 71 ..q jsr e571 ;msdelay
14347 F130 F6 18 00 ... ldab 1800
14348 F133 C4 40 .@ andb #40
14349 F135 27 08 '. beq 08
14350 F137 CC B1 B2 ... ldd #b1b2
14351 F13A BD EE 03 ... jsr ee03 ;jump36
14352 F13D 20 05 . bra 05
14353 F13F 7C 00 61 |.a inc 0061
14354 F142 20 B4 . bra b4
14355 F144 FC 10 16 ... ldd 1016
14356 F147 83 5A 5A .ZZ subd #5a5a
14357 F14A 26 0C &. bne 0c
14358 F14C CC B1 BD ... ldd #b1bd ; " PASSED "
14359 F14F BD C0 BA ... jsr c0ba ;display:
14360 F152 CC 05 DC ... ldd #05dc
14361 F155 BD E5 71 ..q jsr e571 ;msdelay
14362 F158 7E EE 1C ~.. jmp ee1c ;goto81
14364 ;send a byte to the printer?
14365 ;it calls c7e7, which does things with the serial port
14369 F15D F6 00 19 ... ldab 0019
14370 F160 C4 40 .@ andb #40
14371 F162 26 5B &[ bne 5b
14372 F164 C6 FF .. ldab #ff
14373 F166 F7 00 39 ..9 stab 0039
14374 F169 F6 20 00 . . ldab 2000
14375 F16C 2C 11 ,. bge 11
14376 F16E F6 20 00 . . ldab 2000
14377 F171 C4 40 .@ andb #40
14378 F173 27 0A '. beq 0a
14379 F175 F6 00 39 ..9 ldab 0039
14380 F178 27 05 '. beq 05
14381 F17A BD E6 1B ... jsr e61b ;jump4
14382 F17D 20 EA . bra ea
14383 F17F F6 00 39 ..9 ldab 0039
14384 F182 26 08 &. bne 08
14385 F184 CE 00 19 ... ldx #0019
14386 F187 1C 00 40 ... bset 00,x, #40
14387 F18A 20 33 3 bra 33
14388 F18C F6 20 00 . . ldab 2000
14389 F18F C4 40 .@ andb #40
14390 F191 27 2C ', beq 2c
14391 F193 F6 00 1D ... ldab 001d
14392 F196 C4 01 .. andb #01
14393 F198 27 1E '. beq 1e
14395 F19B E6 01 .. ldab 01,x
14396 F19D C1 30 .0 cmpb #30
14397 F19F 26 08 &. bne 08
14398 F1A1 CC 00 20 .. ldd #0020
14399 F1A4 BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
14400 F1A7 20 0D . bra 0d
14402 F1AA E6 01 .. ldab 01,x
14404 F1AD BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
14405 F1B0 CE 00 1D ... ldx #001d
14406 F1B3 1D 00 01 ... bclr 00,x, #01
14407 F1B6 20 07 . bra 07
14409 F1B9 E6 01 .. ldab 01,x
14411 F1BC BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
14418 F1C3 F6 20 00 . . ldab 2000
14419 F1C6 C4 40 .@ andb #40
14420 F1C8 27 1C '. beq 1c
14421 F1CA 7F 00 18 ... clr 0018
14422 F1CD F6 00 18 ... ldab 0018
14424 F1D1 E1 05 .. cmpb 05,x
14425 F1D3 24 11 $. bcc 11
14427 F1D6 EE 00 .. ldx 00,x
14428 F1D8 E6 00 .. ldab 00,x
14430 F1DB BD F1 5B ..[ jsr f15b ;jump53
14434 F1E1 7C 00 18 |.. inc 0018
14435 F1E4 20 E7 . bra e7
14439 ;send a string to the printer. D is a pointer to a string
14443 F1EA F6 20 00 . . ldab 2000
14444 F1ED C4 40 .@ andb #40
14445 F1EF 27 1B '. beq 1b
14446 F1F1 CC 00 20 .. ldd #0020
14447 F1F4 BD F1 5B ..[ jsr f15b ;jump53
14449 F1F8 EE 00 .. ldx 00,x
14450 F1FA E6 00 .. ldab 00,x
14451 F1FC 27 0E '. beq 0e
14453 F1FF EE 00 .. ldx 00,x
14454 F201 E6 00 .. ldab 00,x
14456 F204 BD F1 5B ..[ jsr f15b ;jump53
14460 F20A 20 EB . bra eb
14467 F210 F6 20 00 . . ldab 2000
14468 F213 C4 40 .@ andb #40
14469 F215 27 34 '4 beq 34
14470 F217 CE 00 1D ... ldx #001d
14471 F21A 1C 00 01 ... bset 00,x, #01
14473 F21E E6 01 .. ldab 01,x
14475 F221 BD E7 95 ... jsr e795 ;jump54 - number to string
14476 F224 F6 00 5D ..] ldab 005d
14478 F228 BD F1 5B ..[ jsr f15b ;jump53
14479 F22B F6 00 5E ..^ ldab 005e
14481 F22F BD F1 5B ..[ jsr f15b ;jump53
14482 F232 CE 00 1D ... ldx #001d
14483 F235 1D 00 01 ... bclr 00,x, #01
14484 F238 F6 00 5F .._ ldab 005f
14486 F23C BD F1 5B ..[ jsr f15b ;jump53
14487 F23F CC 00 20 .. ldd #0020
14488 F242 BD F1 5B ..[ jsr f15b ;jump53
14489 F245 CC 00 20 .. ldd #0020
14490 F248 BD F1 5B ..[ jsr f15b ;jump53
14497 F24F F6 20 00 . . ldab 2000
14498 F252 C4 40 .@ andb #40
14499 F254 27 41 'A beq 41
14500 F256 CE 00 1D ... ldx #001d
14501 F259 1C 00 01 ... bset 00,x, #01
14503 F25D EC 00 .. ldd 00,x
14504 F25F BD E7 45 ..E jsr e745 ;jump55 - number to string
14505 F262 F6 00 57 ..W ldab 0057
14507 F266 BD F1 5B ..[ jsr f15b ;jump53
14508 F269 F6 00 5A ..Z ldab 005a
14510 F26D BD F1 5B ..[ jsr f15b ;jump53
14511 F270 F6 00 5D ..] ldab 005d
14513 F274 BD F1 5B ..[ jsr f15b ;jump53
14514 F277 F6 00 5E ..^ ldab 005e
14516 F27B BD F1 5B ..[ jsr f15b ;jump53
14517 F27E CE 00 1D ... ldx #001d
14518 F281 1D 00 01 ... bclr 00,x, #01
14519 F284 F6 00 5F .._ ldab 005f
14521 F288 BD F1 5B ..[ jsr f15b ;jump53
14522 F28B CC 00 20 .. ldd #0020
14523 F28E BD F1 5B ..[ jsr f15b ;jump53
14524 F291 CC 00 20 .. ldd #0020
14525 F294 BD F1 5B ..[ jsr f15b ;jump53
14533 F29B F6 20 00 . . ldab 2000
14534 F29E C4 40 .@ andb #40
14535 F2A0 27 7B '{ beq 7b
14536 F2A2 F6 00 17 ... ldab 0017
14537 F2A5 C4 08 .. andb #08
14538 F2A7 26 06 &. bne 06
14539 F2A9 CC 00 24 ..$ ldd #0024
14540 F2AC BD F1 5B ..[ jsr f15b ;jump53
14541 F2AF CE 00 1D ... ldx #001d
14542 F2B2 1C 00 01 ... bset 00,x, #01
14544 F2B6 EC 00 .. ldd 00,x
14545 F2B8 BD E7 45 ..E jsr e745 ;jump55 - number to string
14546 F2BB F6 00 57 ..W ldab 0057
14548 F2BF BD F1 5B ..[ jsr f15b ;jump53
14549 F2C2 F6 00 5A ..Z ldab 005a
14551 F2C6 BD F1 5B ..[ jsr f15b ;jump53
14552 F2C9 F6 00 13 ... ldab 0013
14553 F2CC C1 08 .. cmpb #08
14554 F2CE 26 0C &. bne 0c
14555 F2D0 CC 00 2E ... ldd #002e
14556 F2D3 BD F1 5B ..[ jsr f15b ;jump53
14557 F2D6 CE 00 1D ... ldx #001d
14558 F2D9 1D 00 01 ... bclr 00,x, #01
14559 F2DC F6 00 5D ..] ldab 005d
14561 F2E0 BD F1 5B ..[ jsr f15b ;jump53
14562 F2E3 F6 00 13 ... ldab 0013
14563 F2E6 C1 04 .. cmpb #04
14564 F2E8 26 0C &. bne 0c
14565 F2EA CC 00 2E ... ldd #002e
14566 F2ED BD F1 5B ..[ jsr f15b ;jump53
14567 F2F0 CE 00 1D ... ldx #001d
14568 F2F3 1D 00 01 ... bclr 00,x, #01
14569 F2F6 F6 00 5E ..^ ldab 005e
14571 F2FA BD F1 5B ..[ jsr f15b ;jump53
14572 F2FD F6 00 13 ... ldab 0013
14573 F300 C1 02 .. cmpb #02
14574 F302 26 06 &. bne 06
14575 F304 CC 00 2E ... ldd #002e
14576 F307 BD F1 5B ..[ jsr f15b ;jump53
14577 F30A CE 00 1D ... ldx #001d
14578 F30D 1D 00 01 ... bclr 00,x, #01
14579 F310 F6 00 5F .._ ldab 005f
14581 F314 BD F1 5B ..[ jsr f15b ;jump53
14582 F317 CC 00 0A ... ldd #000a
14583 F31A BD F1 5B ..[ jsr f15b ;jump53
14592 F323 F6 20 00 . . ldab 2000
14593 F326 C4 40 .@ andb #40
14594 F328 26 03 &. bne 03
14595 F32A 7E F3 BC ~.. jmp f3bc ;goto82
14596 F32D F6 00 17 ... ldab 0017
14597 F330 C4 08 .. andb #08
14598 F332 26 06 &. bne 06
14599 F334 CC 00 24 ..$ ldd #0024
14600 F337 BD F1 5B ..[ jsr f15b ;jump53
14601 F33A CE 00 1D ... ldx #001d
14602 F33D 1C 00 01 ... bset 00,x, #01
14604 F341 EC 04 .. ldd 04,x
14607 F345 EC 02 .. ldd 02,x
14608 F347 BD E6 21 ..! jsr e621 ;jump56
14610 F34B C6 07 .. ldab #07
14611 F34D F7 00 18 ... stab 0018
14612 F350 F6 00 18 ... ldab 0018
14613 F353 C1 FF .. cmpb #ff
14614 F355 24 5F $_ bcc 5f
14615 F357 F6 00 18 ... ldab 0018
14617 F35B C3 0B 90 ... addd #0b90
14619 F35F E6 00 .. ldab 00,x
14621 F362 BD F1 5B ..[ jsr f15b ;jump53
14622 F365 F6 00 18 ... ldab 0018
14623 F368 C1 03 .. cmpb #03
14624 F36A 26 15 &. bne 15
14625 F36C F6 00 13 ... ldab 0013
14626 F36F C1 08 .. cmpb #08
14627 F371 26 0C &. bne 0c
14628 F373 CC 00 2E ... ldd #002e
14629 F376 BD F1 5B ..[ jsr f15b ;jump53
14630 F379 CE 00 1D ... ldx #001d
14631 F37C 1D 00 01 ... bclr 00,x, #01
14632 F37F 20 30 0 bra 30
14633 F381 C1 02 .. cmpb #02
14634 F383 26 15 &. bne 15
14635 F385 F6 00 13 ... ldab 0013
14636 F388 C1 04 .. cmpb #04
14637 F38A 26 0C &. bne 0c
14638 F38C CC 00 2E ... ldd #002e
14639 F38F BD F1 5B ..[ jsr f15b ;jump53
14640 F392 CE 00 1D ... ldx #001d
14641 F395 1D 00 01 ... bclr 00,x, #01
14642 F398 20 17 . bra 17
14643 F39A C1 01 .. cmpb #01
14644 F39C 26 13 &. bne 13
14645 F39E F6 00 13 ... ldab 0013
14646 F3A1 C1 02 .. cmpb #02
14647 F3A3 26 06 &. bne 06
14648 F3A5 CC 00 2E ... ldd #002e
14649 F3A8 BD F1 5B ..[ jsr f15b ;jump53
14650 F3AB CE 00 1D ... ldx #001d
14651 F3AE 1D 00 01 ... bclr 00,x, #01
14652 F3B1 7A 00 18 z.. dec 0018
14653 F3B4 20 9A . bra 9a
14654 F3B6 CC 00 0A ... ldd #000a
14655 F3B9 BD F1 5B ..[ jsr f15b ;jump53
14660 F3BF 6E 00 n. jmp 00,x
14665 F3C3 F6 20 00 . . ldab 2000
14666 F3C6 C4 40 .@ andb #40
14667 F3C8 27 49 'I beq 49
14668 F3CA CC B4 71 ..q ldd #b471 " CODE "
14669 F3CD BD F1 E8 ... jsr f1e8 ;jump57
14671 F3D1 E6 01 .. ldab 01,x
14673 F3D4 CE 00 0A ... ldx #000a
14676 F3D9 CB 30 .0 addb #30
14677 F3DB F7 00 5E ..^ stab 005e
14679 F3DF E6 01 .. ldab 01,x
14681 F3E2 CE 00 0A ... ldx #000a
14683 F3E6 CB 30 .0 addb #30
14684 F3E8 F7 00 5F .._ stab 005f ;5e and 5f now param in ascii
14685 F3EB F6 00 5E ..^ ldab 005e
14687 F3EF BD F1 5B ..[ jsr f15b ;jump53
14688 F3F2 F6 00 5F .._ ldab 005f
14690 F3F6 BD F1 5B ..[ jsr f15b ;jump53
14691 F3F9 CC B4 7B ..{ ldd #b47b "VENDS - "
14692 F3FC BD F1 E8 ... jsr f1e8 ;jump57
14694 F400 E6 01 .. ldab 01,x
14697 F404 C3 0D 1F ... addd #0d1f
14699 F408 EC 00 .. ldd 00,x
14700 F40A BD F2 4D ..M jsr f24d ;jump58
14701 F40D CC 00 0A ... ldd #000a
14702 F410 BD F1 5B ..[ jsr f15b ;jump53
14707 F415 F6 0B C0 ... ldab 0bc0
14708 F418 C4 02 .. andb #02
14709 F41A 27 15 '. beq 15
14710 F41C CE 00 21 ..! ldx #0021
14711 F41F 1C 00 .. bset 00,x, #80
14712 F421 F6 00 1D .. ldab 001d
14713 F424 C4 02 .. andb #02
14714 F427 27 02 '. beq 02
14715 F429 20 F7 . bra f7
14716 F42B CE 00 21 ..! ldx #0021
14717 F42E 1D 00 .. bclr 00,x, #80
14718 F430 C6 10 .. ldab #10
14719 F433 F7 10 2C .., stab 102c ; set 9N1
14720 F436 C6 2E .. ldab #2e
14721 F438 F7 10 2D ..- stab 102d ; enable SCI transmission
14722 F43B C6 05 .. ldab #05
14723 F43D F7 10 2B ..+ stab 102b ; 2400 baud
14724 F440 CC 03 E8 ... ldd #03e8
14725 F443 BD E5 71 ..q jsr e571 ;msdelay
14726 F446 CE 10 00 ... ldx #1000
14727 F449 1D 00 08 ... bclr 00,x, #08 ; talk to ze printer
14728 F44C CE 00 19 ... ldx #0019
14729 F44F 1D 00 40 ... bclr 00,x, #40
14730 F452 CE 00 1D ... ldx #001d
14731 F455 1D 00 01 ... bclr 00,x, #01
14732 F458 CC 00 18 ... ldd #0018
14733 F45B BD F1 5B ..[ jsr f15b ;jump53
14734 F45E CC B2 1B ... ldd #b21b " ROWE INTERNATIONAL"
14735 F461 BD F1 E8 ... jsr f1e8 ;jump57
14736 F464 CC 00 0A ... ldd #000a
14737 F467 BD F1 5B ..[ jsr f15b ;jump53
14738 F46A CC B2 38 ..8 ldd #b238 " -------------------"
14739 F46D BD F1 E8 ... jsr f1e8 ;jump57
14740 F470 CC 00 0A ... ldd #000a
14741 F473 BD F1 5B ..[ jsr f15b ;jump53
14742 F476 CC B2 56 ..V ldd #b256
14743 F479 BD F1 E8 ... jsr f1e8 ;jump57
14744 F47C CC 00 0A ... ldd #000a
14745 F47F BD F1 5B ..[ jsr f15b ;jump53
14746 F482 CC 00 0A ... ldd #000a
14747 F485 BD F1 5B ..[ jsr f15b ;jump53
14748 F488 CC B2 75 ..u ldd #b275
14749 F48B BD F1 E8 ... jsr f1e8 ;jump57
14750 F48E CC 00 0A ... ldd #000a
14751 F491 BD F1 5B ..[ jsr f15b ;jump53
14752 F494 CC B2 38 ..8 ldd #b238
14753 F497 BD F1 E8 ... jsr f1e8 ;jump57
14754 F49A CC 00 0A ... ldd #000a
14755 F49D BD F1 5B ..[ jsr f15b ;jump53
14756 F4A0 CC 00 0A ... ldd #000a
14757 F4A3 BD F1 5B ..[ jsr f15b ;jump53
14758 F4A6 CC B2 90 ... ldd #b290
14759 F4A9 BD F1 E8 ... jsr f1e8 ;jump57
14760 F4AC CE 00 0A ... ldx #000a
14762 F4B0 CC 0C BC ... ldd #0cbc
14763 F4B3 BD F1 C1 ... jsr f1c1 ;jump59
14765 F4B7 CC 00 0A ... ldd #000a
14766 F4BA BD F1 5B ..[ jsr f15b ;jump53
14767 F4BD CC B2 A2 ... ldd #b2a2 ; "MACHINE ID"
14768 F4C0 BD F1 E8 ... jsr f1e8 ;jump57
14769 F4C3 CE 00 0A ... ldx #000a
14771 F4C7 CC 0C CC ... ldd #0ccc
14772 F4CA BD F1 C1 ... jsr f1c1 ;jump59
14774 F4CE CC 00 0A ... ldd #000a
14775 F4D1 BD F1 5B ..[ jsr f15b ;jump53
14776 F4D4 CC B2 B4 ... ldd #b2b4
14777 F4D7 BD F1 E8 ... jsr f1e8 ;jump57
14778 F4DA FC 0C E7 ... ldd 0ce7
14779 F4DD BD F2 4D ..M jsr f24d ;jump58
14780 F4E0 CC 00 0A ... ldd #000a
14781 F4E3 BD F1 5B ..[ jsr f15b ;jump53
14782 F4E6 CC 00 0A ... ldd #000a
14783 F4E9 BD F1 5B ..[ jsr f15b ;jump53
14784 F4EC CC B2 C6 ... ldd #b2c6
14785 F4EF BD F1 E8 ... jsr f1e8 ;jump57
14786 F4F2 FE 0D E9 ... ldx 0de9
14788 F4F6 FC 0D E7 ... ldd 0de7
14789 F4F9 BD F3 1F ... jsr f31f ;jump60
14791 F4FD CC B2 D8 ... ldd #b2d8
14792 F500 BD F1 E8 ... jsr f1e8 ;jump57
14793 F503 FE 0D ED ... ldx 0ded
14795 F507 FC 0D EB ... ldd 0deb
14796 F50A BD F3 1F ... jsr f31f ;jump60
14798 F50E CC B2 EA ... ldd #b2ea
14799 F511 BD F1 E8 ... jsr f1e8 ;jump57
14800 F514 FE 0D F1 ... ldx 0df1
14802 F518 FC 0D EF ... ldd 0def
14803 F51B BD F3 1F ... jsr f31f ;jump60
14805 F51F CC B2 FC ... ldd #b2fc
14806 F522 BD F1 E8 ... jsr f1e8 ;jump57
14807 F525 FE 0D F9 ... ldx 0df9
14809 F529 FC 0D F7 ... ldd 0df7
14810 F52C BD F3 1F ... jsr f31f ;jump60
14812 F530 CC B3 0E ... ldd #b30e
14813 F533 BD F1 E8 ... jsr f1e8 ;jump57
14814 F536 FE 0D FD ... ldx 0dfd
14816 F53A FC 0D FB ... ldd 0dfb
14817 F53D BD F3 1F ... jsr f31f ;jump60
14819 F541 CC 00 0A ... ldd #000a
14820 F544 BD F1 5B ..[ jsr f15b ;jump53
14821 F547 CC B3 20 .. ldd #b320
14822 F54A BD F1 E8 ... jsr f1e8 ;jump57
14823 F54D CC 00 0A ... ldd #000a
14824 F550 BD F1 5B ..[ jsr f15b ;jump53
14825 F553 CC B3 31 ..1 ldd #b331
14826 F556 BD F1 E8 ... jsr f1e8 ;jump57
14827 F559 FE 0D F5 ... ldx 0df5
14829 F55D FC 0D F3 ... ldd 0df3
14830 F560 BD F3 1F ... jsr f31f ;jump60
14832 F564 CC B3 4A ..J ldd #b34a
14833 F567 BD F1 E8 ... jsr f1e8 ;jump57
14834 F56A FC 0C DD ... ldd 0cdd
14835 F56D BD F2 4D ..M jsr f24d ;jump58
14836 F570 FE 0C F5 ... ldx 0cf5
14838 F574 FC 0C F3 ... ldd 0cf3
14839 F577 BD F3 1F ... jsr f31f ;jump60
14841 F57B CC B3 5C ..\ ldd #b35c
14842 F57E BD F1 E8 ... jsr f1e8 ;jump57
14843 F581 FC 0C DF ... ldd 0cdf
14844 F584 BD F2 4D ..M jsr f24d ;jump58
14845 F587 FE 0C F9 ... ldx 0cf9
14847 F58B FC 0C F7 ... ldd 0cf7
14848 F58E BD F3 1F ... jsr f31f ;jump60
14850 F592 CC B3 6E ..n ldd #b36e
14851 F595 BD F1 E8 ... jsr f1e8 ;jump57
14852 F598 FC 0C E1 ... ldd 0ce1
14853 F59B BD F2 4D ..M jsr f24d ;jump58
14854 F59E FE 0C FD ... ldx 0cfd
14856 F5A2 FC 0C FB ... ldd 0cfb
14857 F5A5 BD F3 1F ... jsr f31f ;jump60
14859 F5A9 CC B3 80 ... ldd #b380
14860 F5AC BD F1 E8 ... jsr f1e8 ;jump57
14861 F5AF FC 0C E3 ... ldd 0ce3
14862 F5B2 BD F2 4D ..M jsr f24d ;jump58
14863 F5B5 FE 0D 01 ... ldx 0d01
14865 F5B9 FC 0C FF ... ldd 0cff
14866 F5BC BD F3 1F ... jsr f31f ;jump60
14868 F5C0 CC B3 92 ... ldd #b392
14869 F5C3 BD F1 E8 ... jsr f1e8 ;jump57
14870 F5C6 FC 0C E5 ... ldd 0ce5
14871 F5C9 BD F2 4D ..M jsr f24d ;jump58
14872 F5CC FE 0D 05 ... ldx 0d05
14874 F5D0 FC 0D 03 ... ldd 0d03
14875 F5D3 BD F3 1F ... jsr f31f ;jump60
14877 F5D7 CC 00 0A ... ldd #000a
14878 F5DA BD F1 5B ..[ jsr f15b ;jump53
14879 F5DD CC B3 A4 ... ldd #b3a4
14880 F5E0 BD F1 E8 ... jsr f1e8 ;jump57
14881 F5E3 CC 00 0A ... ldd #000a
14882 F5E6 BD F1 5B ..[ jsr f15b ;jump53
14883 F5E9 CC B3 B3 ... ldd #b3b3
14884 F5EC BD F1 E8 ... jsr f1e8 ;jump57
14885 F5EF FC 0C F1 ... ldd 0cf1
14886 F5F2 BD F2 99 ... jsr f299 ;jump61
14887 F5F5 CC B3 CA ... ldd #b3ca
14888 F5F8 BD F1 E8 ... jsr f1e8 ;jump57
14889 F5FB F6 0C DC ... ldab 0cdc
14891 F5FF BD F2 0E ... jsr f20e ;jump62
14892 F602 FC 0C E9 ... ldd 0ce9
14893 F605 BD F2 99 ... jsr f299 ;jump61
14894 F608 CC B3 DC ... ldd #b3dc
14895 F60B BD F1 E8 ... jsr f1e8 ;jump57
14896 F60E F6 0C DB ... ldab 0cdb
14898 F612 BD F2 0E ... jsr f20e ;jump62
14899 F615 FC 0C EB ... ldd 0ceb
14900 F618 BD F2 99 ... jsr f299 ;jump61
14901 F61B CC B3 EE ... ldd #b3ee
14902 F61E BD F1 E8 ... jsr f1e8 ;jump57
14903 F621 F6 0C DA ... ldab 0cda
14905 F625 BD F2 0E ... jsr f20e ;jump62
14906 F628 FC 0C ED ... ldd 0ced
14907 F62B BD F2 99 ... jsr f299 ;jump61
14908 F62E CC B4 00 ... ldd #b400
14909 F631 BD F1 E8 ... jsr f1e8 ;jump57
14910 F634 F6 0C D9 ... ldab 0cd9
14912 F638 BD F2 0E ... jsr f20e ;jump62
14913 F63B FC 0C EF ... ldd 0cef
14914 F63E BD F2 99 ... jsr f299 ;jump61
14915 F641 CC 00 0A ... ldd #000a
14916 F644 BD F1 5B ..[ jsr f15b ;jump53
14917 F647 CC B4 12 ... ldd #b412
14918 F64A BD F1 E8 ... jsr f1e8 ;jump57
14919 F64D FC 0D 07 ... ldd 0d07
14920 F650 BD F2 4D ..M jsr f24d ;jump58
14921 F653 FE 0D 11 ... ldx 0d11
14923 F657 FC 0D 0F ... ldd 0d0f
14924 F65A BD F3 1F ... jsr f31f ;jump60
14926 F65E CC B4 24 ..$ ldd #b424
14927 F661 BD F1 E8 ... jsr f1e8 ;jump57
14928 F664 FC 0D 09 ... ldd 0d09
14929 F667 BD F2 4D ..M jsr f24d ;jump58
14930 F66A FE 0D 15 ... ldx 0d15
14932 F66E FC 0D 13 ... ldd 0d13
14933 F671 BD F3 1F ... jsr f31f ;jump60
14935 F675 CC B4 36 ..6 ldd #b436
14936 F678 BD F1 E8 ... jsr f1e8 ;jump57
14937 F67B FC 0D 0B ... ldd 0d0b
14938 F67E BD F2 4D ..M jsr f24d ;jump58
14939 F681 FE 0D 19 ... ldx 0d19
14941 F685 FC 0D 17 ... ldd 0d17
14942 F688 BD F3 1F ... jsr f31f ;jump60
14944 F68C CC B4 48 ..H ldd #b448
14945 F68F BD F1 E8 ... jsr f1e8 ;jump57
14946 F692 FC 0D 0D ... ldd 0d0d
14947 F695 BD F2 4D ..M jsr f24d ;jump58
14948 F698 FE 0D 1D ... ldx 0d1d
14950 F69C FC 0D 1B ... ldd 0d1b
14951 F69F BD F3 1F ... jsr f31f ;jump60
14953 F6A3 CC 00 0A ... ldd #000a
14954 F6A6 BD F1 5B ..[ jsr f15b ;jump53
14955 F6A9 CC B4 5A ..Z ldd #b45a
14956 F6AC BD F1 E8 ... jsr f1e8 ;jump57
14957 F6AF CC 00 0A ... ldd #000a
14958 F6B2 BD F1 5B ..[ jsr f15b ;jump53
14959 F6B5 C6 01 .. ldab #01
14960 F6B7 F7 00 54 ..T stab 0054
14961 F6BA F6 00 54 ..T ldab 0054
14962 F6BD C1 63 .c cmpb #63
14963 F6BF 22 1B ". bhi 1b
14964 F6C1 F6 00 54 ..T ldab 0054
14967 F6C6 C3 08 C8 ... addd #08c8
14969 F6CA EC 00 .. ldd 00,x
14970 F6CC C4 80 .. andb #80
14971 F6CE 27 07 '. beq 07
14972 F6D0 F6 00 54 ..T ldab 0054
14974 F6D4 BD F3 C1 ... jsr f3c1 ;jump63
14975 F6D7 7C 00 54 |.T inc 0054
14976 F6DA 20 DE . bra de
14977 F6DC CC 00 0A ... ldd #000a
14978 F6DF BD F1 5B ..[ jsr f15b ;jump53
14979 F6E2 F6 00 19 ... ldab 0019
14980 F6E5 C4 40 .@ andb #40
14981 F6E7 26 07 &. bne 07
14982 F6E9 FE 0C E7 ... ldx 0ce7
14984 F6ED FF 0C E7 ... stx 0ce7
14985 F6F0 CE 00 1D ... ldx #001d
14986 F6F3 1D 00 01 ... bclr 00,x, #01
14987 F6F6 CC 03 E8 ... ldd #03e8
14988 F6F9 BD E5 71 ..q jsr e571 ;msdelay
14989 F6FC C6 03 .. ldab #03
14990 F6FE F7 10 2B ..+ stab 102b ; back to 9600 baud
14991 F701 CE 10 00 ... ldx #1000
14992 F704 1C 00 08 ... bset 00,x, #08 ; set back to coin mech
14993 F707 F6 0B C0 ... ldab 0bc0
14994 F70A C4 02 .. andb #02
14995 F70C 27 06 '. beq 06
14996 F70E CC 00 80 ... ldd #0080
14997 F711 BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
14998 F714 7F 00 38 ..8 clr 0038
15003 F719 F6 0B C0 ... ldab 0bc0
15004 F71C C4 08 .. andb #08
15005 F71E 27 03 '. beq 03
15006 F720 BD C3 25 ..% jsr c325 ;jump64
15007 F723 7C 00 0C |.. inc 000c
15008 F726 F6 00 0C ... ldab 000c
15009 F729 C1 02 .. cmpb #02
15010 F72B 26 13 &. bne 13
15011 F72D 7F 00 0C ... clr 000c
15012 F730 F6 00 07 ... ldab 0007
15013 F733 27 03 '. beq 03
15014 F735 7A 00 07 z.. dec 0007
15015 F738 F6 00 00 ... ldab 0000
15016 F73B 27 03 '. beq 03
15017 F73D 7A 00 00 z.. dec 0000
15018 F740 7C 00 0B |.. inc 000b
15019 F743 F6 00 0B ... ldab 000b
15020 F746 C1 08 .. cmpb #08
15021 F748 26 37 &7 bne 37 ; to f781
15022 F74A 7F 00 0B ... clr 000b
15023 F74D FC 00 3B ..; ldd 003b
15024 F750 27 07 '. beq 07
15025 F752 FE 00 3B ..; ldx 003b
15027 F756 FF 00 3B ..; stx 003b
15028 F759 CC 00 2C .., ldd #002c
15030 F75D ED 00 .. std 00,x
15032 F760 EC 00 .. ldd 00,x
15035 F764 CC 00 3A ..: ldd #003a
15037 F768 A3 00 .. subd 00,x
15040 F76C 25 13 %. bcs 13
15042 F76F EE 00 .. ldx 00,x
15043 F771 E6 00 .. ldab 00,x
15044 F773 27 07 '. beq 07
15046 F776 EE 00 .. ldx 00,x
15047 F778 6A 00 j. dec 00,x
15048 F77A E6 00 .. ldab 00,x
15052 F77F 20 DE . bra de ; to f75f
15054 F781 F6 00 32 ..2 ldab 0032
15055 F784 27 07 '. beq 07 ; to f78d
15056 F786 F6 00 32 ..2 ldab 0032
15057 F789 C4 02 .. andb #02
15058 F78B 26 08 &. bne 08 ; to f795
15060 F78D CE 10 00 ... ldx #1000 ; chime off
15061 F790 1D 00 10 .. bclr 00,x, #10
15062 F793 20 0D . bra 0d ; to f7a2
15064 F795 F6 00 32 ..2 ldab 0032
15065 F798 C4 01 .. andb #01
15066 F79A 26 06 &. bne 06 ; to f7a2
15067 F79C CE 10 00 ... ldx #1000 ; chime on
15068 F79F 1C 00 10 .. bset 00,x, #10
15070 F7A2 7C 00 4C |.L inc 004c
15071 F7A5 F6 00 4C ..L ldab 004c
15072 F7A8 C1 4B .K cmpb #4b
15073 F7AA 26 13 &. bne 13 ; to f7bf
15074 F7AC 7F 00 4C ..L clr 004c
15075 F7AF F6 00 4F ..O ldab 004f
15076 F7B2 27 03 '. beq 03
15077 F7B4 7A 00 4F z.O dec 004f
15079 F7B7 F6 00 25 ..% ldab 0025
15080 F7BA 27 03 '. beq 03
15081 F7BC 7A 00 25 z.% dec 0025
15083 F7BF F6 00 31 ..1 ldab 0031
15084 F7C2 26 03 &. bne 03
15085 F7C4 BD FE 69 ..i jsr fe69 ;reset
15087 F7C7 F6 00 7F ... ldab 007f
15088 F7CA 27 03 '. beq 03
15089 F7CC BD FE 69 ..i jsr fe69 ;reset
15091 F7CF C6 40 .@ ldab #40
15092 F7D1 F7 10 25 ..% stab 1025 ; notify end of RTI period
15098 F7D6 7F 00 14 ... clr 0014 ;0 -> 0014
15100 ; clears the bits of U14 flipflop
15101 F7D9 5F _ clrb ;0 -> B
15102 F7DA F7 38 00 .8. stab 3800 ;B -> 3800
15104 F7DD C6 7F .. ldab #7f ;7F -> B
15105 F7DF F7 00 1A ... stab 001a ;B -> 001a
15107 ; set changer outputs all on, row motors off
15108 F7E2 C6 7F .. ldab #7f ;7F -> B
15109 F7E4 F7 30 00 .0. stab 3000 ;
15111 ; sets priority select bits 0-3 (elevates interrupt priority of all interrupts)
15112 F7E7 C6 07 .. ldab #07 ;7 -> B
15113 F7E9 F7 10 3C ..< stab 103c
15115 ; Set PA7 output, PA3 input, RT clock rate to 314 Hz (4.9152Mhz / 2^14)
15116 F7EC C6 81 .. ldab #81 ;81 -> B
15117 F7EE F7 10 26 ..& stab 1026
15119 ; clear ADC register
15120 F7F1 5F _ clrb ;0 -> B
15121 F7F2 F7 10 30 ..0 stab 1030
15123 ; talk to coin mech, beep, tie clock motors & display reset high (off)
15124 F7F5 C6 C8 .. ldab #c8 ;c8 -> B ; 11001000
15125 F7F7 F7 10 00 ... stab 1000 ; to port A
15127 ; sets PortD directions. XXX: Why is PD2 an output?
15128 F7FA C6 3E .> ldab #3e ;3e -> B 00111110
15129 F7FC F7 10 09 ... stab 1009 ; port D DDR
15131 ; make PortD pins open-drain, set clock polarity
15132 F7FF C6 12 .. ldab #12 ;12 -> B
15133 F801 F7 10 28 ..( stab 1028 ; SPCR 00101000
15135 ; initialize the display
15136 F804 BD BE 69 ..i jsr be69 ;displayreset
15138 ; initialize the bill validator & more stuff
15139 F807 BD EA 59 ..Y jsr ea59 ;jump65
15141 F80A CC 00 64 ..d ldd #0064 ; 100-unit delay
15142 F80D BD E5 71 ..q jsr e571 ;msdelay
15144 F810 CC B1 EF ... ldd #b1ef " ROWE INT "
15145 F813 BD C0 BA ... jsr c0ba ;display:
15146 F816 CC 01 F4 ... ldd #01f4 ; 500-unit delay
15147 F819 BD E5 71 ..q jsr e571 ;msdelay
15148 F81C CC B1 FA ... ldd #b1fa "COPYRIGHT "
15149 F81F BD C0 BA ... jsr c0ba ;display:
15150 F822 CC 01 F4 ... ldd #01f4
15151 F825 BD E5 71 ..q jsr e571 ;msdelay
15152 F828 CC B2 05 ... ldd #b205 " 1993 "
15153 F82B BD C0 BA ... jsr c0ba ;display:
15154 F82E CC 01 F4 ... ldd #01f4
15155 F831 BD E5 71 ..q jsr e571 ;msdelay
15156 F834 CC B2 10 ... ldd #b210 "5900 VER 5"
15157 F837 BD C0 BA ... jsr c0ba ;display:
15158 F83A CC 00 0A ... ldd #000a
15159 F83D BD E5 71 ..q jsr e571 ;msdelay
15162 F840 7F 00 7F ... clr 007f
15163 F843 7F 00 21 ..! clr 0021
15164 F846 7F 00 1F ... clr 001f
15165 F849 7F 00 1D ... clr 001d
15166 F84C 7F 00 1B ... clr 001b
15167 F84F 7F 00 19 ... clr 0019
15169 F852 F6 0B C0 ... ldab 0bc0
15170 F855 C4 01 .. andb #01
15171 F857 27 08 '. beq 08 ; to f861
15172 F859 CE 0B C1 ... ldx #0bc1
15173 F85C 1C 00 01 ... bset 00,x, #01 ; set changer powerup fail
15174 F85F 20 06 . bra 06 ; to f867
15175 F861 CE 0B C1 ... ldx #0bc1
15176 F864 1D 00 01 ... bclr 00,x, #01 ; clear changer powerup fail
15178 F867 F6 0B C0 ... ldab 0bc0
15179 F86A C4 04 .. andb #04
15180 F86C 27 08 '. beq 08 ; to f876
15181 F86E CE 0B C1 ... ldx #0bc1
15182 F871 1C 00 02 ... bset 00,x, #02 ; set card powerup fail
15183 F874 20 06 . bra 06 ; to f87c
15184 F876 CE 0B C1 ... ldx #0bc1
15185 F879 1D 00 02 .. bclr 00,x, #02 ; clear card powerup fail
15186 F87C CE 0B C1 ... ldx #0bc1
15187 F87F 1D 00 04 .. bclr 00,x, #04 ; clear link powerup fail
15188 F882 F6 0B C0 ... ldab 0bc0
15189 F885 C4 02 .. andb #02
15190 F887 27 2D '- beq 2d ; to f8b6
15191 F889 C6 3C .< ldab #3c
15192 F88B F7 00 31 ..1 stab 0031
15194 F88F CC 00 FF ... ldd #00ff
15195 F892 BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
15198 F897 FD 00 40 ..@ std 0040
15199 F89A C6 10 .. ldab #10
15200 F89C F7 10 2C .., stab 102c ; set 9N1
15201 F89F C6 2E .. ldab #2e
15202 F8A1 F7 10 2D ..- stab 102d ; enable SCI transmission
15203 F8A4 C6 03 .. ldab #03
15204 F8A6 F7 10 2B ..+ stab 102b ; set 9600 baud
15205 F8A9 C6 46 .F ldab #46 ; 70
15206 F8AB F7 00 2F ../ stab 002f
15207 F8AE CC 07 D0 ... ldd #07d0
15208 F8B1 BD E5 71 ..q jsr e571 ;msdelay
15209 F8B4 20 2B + bra 2b ; to f8e1
15210 F8B6 BD D0 94 ... jsr d094 ;jump66 - init variables
15211 F8B9 C6 27 .' ldab #27
15212 F8BB F7 10 2D ..- stab 102d ; disable SCI transmission
15213 F8BE C6 07 .. ldab #07
15214 F8C0 F7 10 2B ..+ stab 102b ; set 600 baud
15215 ; reset the changer
15216 F8C3 CE 00 1A ... ldx #001a
15217 F8C6 1C 00 04 .. bset 00,x, #04
15218 F8C9 F6 00 1A ... ldab 001a
15219 F8CC F7 30 00 .0. stab 3000 ; reset the changer
15220 F8CF CC 07 D0 ... ldd #07d0
15221 F8D2 BD E5 71 ..q jsr e571 ;msdelay
15222 F8D5 CE 00 1A ... ldx #001a
15223 F8D8 1D 00 04 .. bclr 00,x, #04
15224 F8DB F6 00 1A ... ldab 001a
15225 F8DE F7 30 00 .0. stab 3000 ; pull reset line back
15227 F8E1 7F 0E 6A ..j clr 0e6a
15228 F8E4 BD D4 79 ..y jsr d479 ;jump67
15229 F8E7 BD E8 9A ... jsr e89a ;jump68
15230 F8EA 7F 00 06 ... clr 0006
15231 F8ED CE 00 1D ... ldx #001d
15232 F8F0 1C 00 10 .. bset 00,x, #10
15233 F8F3 CC 05 DC ... ldd #05dc
15234 F8F6 BD E5 71 ..q jsr e571 ;msdelay
15235 F8F9 C6 1E .. ldab #1e
15236 F8FB F7 00 35 ..5 stab 0035
15239 ; begin of main loop
15241 F8FF BD E6 1B ... jsr e61b ;jump4 set 0031 to 10
15242 F902 BD D1 05 ... jsr d105 ;motors_off
15243 F905 F6 10 0A ... ldab 100a
15244 F908 C4 08 .. andb #08 ; 24VUN line too low
15245 F90A 27 46 'F beq 46 ; to f952
15246 F90C F6 10 0A ... ldab 100a
15247 F90F C4 08 .. andb #08
15248 F911 27 11 '. beq 11 ; to f924
15249 F913 CE 00 1A ... ldx #001a
15250 F916 1C 00 04 .. bset 00,x, #04
15251 F919 F6 00 1A ... ldab 001a
15252 F91C F7 30 00 .0. stab 3000 ; changer reset
15253 F91F BD E6 1B ... jsr e61b ;jump4 put #0a => 0031
15254 F922 20 E8 . bra e8 ; to f90c
15256 F924 BD D0 94 ... jsr d094 ;jump66 - reset some variables to defaults?
15257 F927 F6 0B C0 ... ldab 0bc0
15258 F92A C4 01 .. andb #01
15259 F92C 27 06 '. beq 06
15260 F92E CE 0B C1 ... ldx #0bc1
15261 F931 1C 00 01 .. bset 00,x, #01 ; set changer powerup fail
15262 F934 F6 0B C0 ... ldab 0bc0
15263 F937 C4 04 .. andb #04
15264 F939 27 06 '. beq 06
15265 F93B CE 0B C1 ... ldx #0bc1
15266 F93E 1C 00 02 .. bset 00,x, #02 ; set card powerup fail
15267 F941 CE 00 1A ... ldx #001a
15268 F944 1D 00 04 .. bclr 00,x, #04
15269 F947 F6 00 1A ... ldab 001a
15270 F94A F7 30 00 .0. stab 3000 ; clear send & reset lines
15271 F94D C6 1E .. ldab #1e
15272 F94F F7 00 35 ..5 stab 0035
15274 F952 F6 0B C0 ... ldab 0bc0
15275 F955 C4 08 .. andb #08
15276 F957 27 16 '. beq 16 ; to f96f
15277 F959 CE 00 02 ... ldx #0002
15279 F95D CC 10 00 ... ldd #1000
15280 F960 BD E5 D7 ... jsr e5d7 ;jump69 - poll bill validator
15282 F964 83 00 00 ... subd #0000
15283 F967 27 06 '. beq 06
15284 F969 CE 0B C1 ... ldx #0bc1
15285 F96C 1C 00 08 .. bset 00,x, #08 ; set bill error bit
15287 F96F F6 0B C1 ... ldab 0bc1
15288 F972 C4 07 .. andb #07 ; test for power failures
15289 F974 27 0D '. beq 0d ; to f983
15290 F976 F6 00 35 ..5 ldab 0035
15291 F979 26 08 &. bne 08
15292 F97B CE 00 21 ..! ldx #0021
15293 F97E 1C 00 20 .. bset 00,x, #20
15294 F981 20 06 .. bra 06 ; to f989
15296 F983 CE 00 21 ..! ldx #0021
15297 F986 1D 00 20 .. bclr 00,x, #20
15298 F989 BD BB 63 . jsr bb63 ;jump200 - read the keypad
15299 F98C BD B8 00 ... jsr b800 ;jump201 - interpret the keys and write to the display
15300 F98F F6 0B C0 ... ldab 0bc0
15301 F992 C4 01 .. andb #01
15302 F994 27 0B '. beq 0b
15303 F996 FC 00 40 ..@ ldd 0040
15304 F999 F3 00 3E ..> addd 003e
15305 F99C 26 03 &. bne 03
15306 F99E BD D6 F6 ... jsr d6f6 ;jump106
15307 F9A1 F6 00 12 ... ldab 0012
15308 F9A4 C4 20 . andb #20 ; test door switch
15309 F9A6 27 08 '. beq 08
15310 F9A8 F6 00 35 ..5 ldab 0035
15311 F9AB 26 03 &. bne 03
15312 F9AD 7E FA 79 ~.y jmp fa79 ;goto83
15313 F9B0 CE 00 1F ... ldx #001f
15314 F9B3 1D 00 04 ... bclr 00,x, #04
15315 F9B6 CE 00 1D ... ldx #001d
15316 F9B9 1C 00 10 ... bset 00,x, #10
15317 F9BC F6 00 1F ... ldab 001f
15318 F9BF C4 20 . andb #20
15319 F9C1 26 03 &. bne 03
15320 F9C3 7E FA 74 ~.t jmp fa74 ;goto84
15321 F9C6 F6 0B C0 ... ldab 0bc0
15322 F9C9 C4 01 .. andb #01
15323 F9CB 27 08 '. beq 08
15324 F9CD CE 0B C1 ... ldx #0bc1
15325 F9D0 1C 00 01 ... bset 00,x, #01 ; set changer powerup error
15326 F9D3 20 06 . bra 06
15327 F9D5 CE 0B C1 ... ldx #0bc1
15328 F9D8 1D 00 01 ... bclr 00,x, #01 ; unset changer powerup error
15329 F9DB F6 0B C0 ... ldab 0bc0
15330 F9DE C4 04 .. andb #04
15331 F9E0 27 08 '. beq 08
15332 F9E2 CE 0B C1 ... ldx #0bc1
15333 F9E5 1C 00 02 ... bset 00,x, #02 ; set card powerup error
15334 F9E8 20 06 . bra 06
15335 F9EA CE 0B C1 ... ldx #0bc1
15336 F9ED 1D 00 02 ... bclr 00,x, #02 ; unset card powerup error
15337 F9F0 CE 0B C1 ... ldx #0bc1
15338 F9F3 1D 00 04 ... bclr 00,x, #04 ; unset link powerup error
15339 F9F6 CE 00 1B ... ldx #001b
15340 F9F9 1D 00 02 ... bclr 00,x, #02
15341 F9FC F6 0B C0 ... ldab 0bc0
15342 F9FF C4 02 .. andb #02
15343 FA01 27 27 '' beq 27
15344 FA03 C6 3C .< ldab #3c
15345 FA05 F7 00 31 ..1 stab 0031
15347 FA09 CC 00 FF ... ldd #00ff
15348 FA0C BD C7 E7 ... jsr c7e7 ;jump37 - send #ff to coin mech
15351 FA11 FD 00 40 ..@ std 0040
15352 FA14 C6 10 .. ldab #10
15353 FA16 F7 10 2C .., stab 102c ; set 9N1
15354 FA19 C6 2E .. ldab #2e
15355 FA1B F7 10 2D ..- stab 102d ; enable SCI transmission
15356 FA1E C6 03 .. ldab #03
15357 FA20 F7 10 2B ..+ stab 102b ; 9600 baud
15358 FA23 C6 46 .F ldab #46 ; 70
15359 FA25 F7 00 2F ../ stab 002f
15360 FA28 20 31 1 bra 31
15361 FA2A CE 00 21 ..! ldx #0021
15362 FA2D 1D 00 40 ... bclr 00,x, #40
15363 FA30 BD D0 94 ... jsr d094 ;jump66 - init variables
15364 FA33 C6 27 .' ldab #27
15365 FA35 F7 10 2D ..- stab 102d ; disable SCI transmission
15366 FA38 C6 07 .. ldab #07
15367 FA3A F7 10 2B ..+ stab 102b ; 600 baud
15368 FA3D CE 00 1A ... ldx #001a
15369 FA40 1C 00 04 ... bset 00,x, #04
15370 FA43 F6 00 1A ... ldab 001a
15371 FA46 F7 30 00 .0. stab 3000 ; changer reset line high
15372 FA49 CC 00 32 ..2 ldd #0032
15373 FA4C BD E5 71 ..q jsr e571 ;msdelay
15374 FA4F CE 00 1A ... ldx #001a
15375 FA52 1D 00 04 ... bclr 00,x, #04
15376 FA55 F6 00 1A ... ldab 001a
15377 FA58 F7 30 00 .0. stab 3000 ; changer reset line low
15378 FA5B BD D4 79 ..y jsr d479 ;jump67
15379 FA5E BD E8 9A ... jsr e89a ;jump68
15380 FA61 BD BE 69 ..i jsr be69 ;displayreset
15381 FA64 7F 00 06 ... clr 0006
15382 FA67 CE 00 1F ... ldx #001f
15383 FA6A 1D 00 20 .. bclr 00,x, #20
15384 FA6D C6 1E . ldab #1e
15385 FA6F F7 00 35 ...5 stab 0035
15386 FA72 20 03 . bra 03
15388 FA74 BD DE E7 ... jsr dee7 ;jump116
15389 FA77 20 66 f bra 66
15391 FA79 F6 00 12 ... ldab 0012
15392 FA7C C4 20 . andb #20
15393 FA7E 27 5F '_ beq 5f ; to fadf - restart loop
15394 FA80 F6 00 1F ... ldab 001f
15395 FA83 C4 20 . andb #20
15396 FA85 26 03 &. bne 03
15397 FA87 BD E5 AA ... jsr e5aa ;jump12
15398 FA8A CE 00 1F ... ldx #001f
15399 FA8D 1C 00 .. bset 00,x, #20
15400 FA8F F6 00 12 ... ldab 0012
15401 FA93 C4 01 .. andb #01
15402 FA95 26 33 &3 bne 33
15403 FA97 F6 00 1D ... ldab 001d
15404 FA9A C4 08 .. andb #08
15405 FA9C 27 2A '* beq 2a ; to fac8, to fad0
15406 FA9E F6 00 1F ... ldab 001f
15407 FAA1 C4 04 .. andb #04
15408 FAA3 26 14 &. bne 14
15409 FAA5 CE 00 1F ... ldx #001f
15410 FAA8 1C 00 04 ... bset 00,x, #04
15411 FAAB CE 00 1F ... ldx #001f
15412 FAAE 1C 00 .. bset 00,x, #80
15413 FAB0 CC 02 33 .. ldd #0233
15414 FAB4 FD 00 3B ..; std 003b
15415 FAB7 20 09 . bra 09 ; to fac2
15417 FAB9 BD E5 AA ... jsr e5aa ;jump12 - beep if key pressed?
15418 FABC CE 00 1F ... ldx #001f
15419 FABF 1D 00 04 ... bclr 00,x, #04
15420 FAC2 CE 00 1D ... ldx #001d
15421 FAC5 1D 00 08 ... bclr 00,x, #08
15422 FAC8 20 06 . bra 06 ; to fad0
15423 FACA CE 00 1D ... ldx #001d
15424 FACD 1C 00 08 ... bset 00,x, #08
15425 FAD0 F6 00 1F ... ldab 001f
15426 FAD3 C4 04 .. andb #04
15427 FAD5 26 05 &. bne 05 ; to fadc - service menu
15428 FAD7 BD 81 00 ... jsr 8100 ;jump72 - preservice menu?
15429 FADA 20 03 . bra 03
15430 FADC BD 84 A0 ... jsr 84a0 ;jump73
15431 FADF 7E F8 FF ~.. jmp f8ff ;goto85
15432 ; main should never return in theory.
15435 ; error interrupts (see vectors at end)
15436 FAE2 CC B1 2E ... ldd #b12e ;"**ERROR***"
15437 FAE5 BD C0 BA ... jsr c0ba ;display:
15438 FAE8 CC 07 D0 ... ldd #07d0
15439 FAEB BD E5 71 ..q jsr e571 ;msdelay
15441 FAEF CC B1 2E ... ldd #b12e ;"**ERROR***"
15442 FAF2 BD C0 BA ... jsr c0ba ;display:
15443 FAF5 CC 07 D0 ... ldd #07d0
15444 FAF8 BD E5 71 ..q jsr e571 ;msdelay
15446 FAFC CC B1 2E ... ldd #b12e ;"**ERROR***"
15447 FAFF BD C0 BA ... jsr c0ba ;display:
15448 FB02 CC 07 D0 ... ldd #07d0
15449 FB05 BD E5 71 ..q jsr e571 ;msdelay
15451 FB09 CC B1 2E ... ldd #b12e ;"**ERROR***"
15452 FB0C BD C0 BA ... jsr c0ba ;display:
15453 FB0F CC 07 D0 ... ldd #07d0
15454 FB12 BD E5 71 ..q jsr e571 ;msdelay
15456 FB16 CC B1 2E ... ldd #b12e ;"**ERROR***"
15457 FB19 BD C0 BA ... jsr c0ba ;display:
15458 FB1C CC 07 D0 ... ldd #07d0
15459 FB1F BD E5 71 ..q jsr e571 ;msdelay
15461 FB23 CC B1 2E ... ldd #b12e ;"**ERROR***"
15462 FB26 BD C0 BA ... jsr c0ba ;display:
15463 FB29 CC 07 D0 ... ldd #07d0
15464 FB2C BD E5 71 ..q jsr e571 ;msdelay
15466 FB30 CC B1 2E ... ldd #b12e ;"**ERROR***"
15467 FB33 BD C0 BA ... jsr c0ba ;display:
15468 FB36 CC 07 D0 ... ldd #07d0
15469 FB39 BD E5 71 ..q jsr e571 ;msdelay
15471 FB3D CC B1 2E ... ldd #b12e ;"**ERROR***"
15472 FB40 BD C0 BA ... jsr c0ba ;display:
15473 FB43 CC 07 D0 ... ldd #07d0
15474 FB46 BD E5 71 ..q jsr e571 ;msdelay
15476 FB4A CC B1 2E ... ldd #b12e ;"**ERROR***"
15477 FB4D BD C0 BA ... jsr c0ba ;display:
15478 FB50 CC 07 D0 ... ldd #07d0
15479 FB53 BD E5 71 ..q jsr e571 ;msdelay
15481 FB57 CC B1 2E ... ldd #b12e ;"**ERROR***"
15482 FB5A BD C0 BA ... jsr c0ba ;display:
15483 FB5D CC 07 D0 ... ldd #07d0
15484 FB60 BD E5 71 ..q jsr e571 ;msdelay
15486 FB64 CC B1 2E ... ldd #b12e ;"**ERROR***"
15487 FB67 BD C0 BA ... jsr c0ba ;display:
15488 FB6A CC 07 D0 ... ldd #07d0
15489 FB6D BD E5 71 ..q jsr e571 ;msdelay
15491 FB71 CC B1 2E ... ldd #b12e ;"**ERROR***"
15492 FB74 BD C0 BA ... jsr c0ba ;display:
15493 FB77 CC 07 D0 ... ldd #07d0
15494 FB7A BD E5 71 ..q jsr e571 ;msdelay
15496 FB7E CC B1 2E ... ldd #b12e ;"**ERROR***"
15497 FB81 BD C0 BA ... jsr c0ba ;display:
15498 FB84 CC 07 D0 ... ldd #07d0
15499 FB87 BD E5 71 ..q jsr e571 ;msdelay
15501 FB8B CC B1 2E ... ldd #b12e ;"**ERROR***"
15502 FB8E BD C0 BA ... jsr c0ba ;display:
15503 FB91 CC 07 D0 ... ldd #07d0
15504 FB94 BD E5 71 ..q jsr e571 ;msdelay
15506 FB98 CC B1 2E ... ldd #b12e ;"**ERROR***"
15507 FB9B BD C0 BA ... jsr c0ba ;display:
15508 FB9E CC 07 D0 ... ldd #07d0
15509 FBA1 BD E5 71 ..q jsr e571 ;msdelay
15511 FBA5 CC B1 2E ... ldd #b12e ;"**ERROR***"
15512 FBA8 BD C0 BA ... jsr c0ba ;display:
15513 FBAB CC 07 D0 ... ldd #07d0
15514 FBAE BD E5 71 ..q jsr e571 ;msdelay
15516 FBB2 BD FE 69 ..i jsr fe69 ;reset
15518 FBB6 BD FE 69 ..i jsr fe69 ;reset
15522 ; passed a u16 on the stack, i, and a u16 in D, j
15523 ; multiplication funciton of some sort?
15527 FBBD E6 06 .. ldab 06,x ; lower 8-bits of i
15528 FBBF 3D = mul ; A*B => D
15529 FBC0 A6 00 .. ldaa 00,x
15531 FBC3 E6 05 .. ldab 05,x
15537 FBCA A6 06 .. ldaa 06,x
15540 FBCE AB 00 .. adda 00,x
15542 FBD1 EC 03 .. ldd 03,x
15543 FBD3 ED 05 .. std 05,x
15546 FBD7 83 00 00 ... subd #0000
15554 FBDF BD FB E8 ... jsr fbe8 ;jump86
15555 FBE2 BD FC 25 ..% jsr fc25 ;jump85
15556 FBE5 7E FC 04 ~.. jmp fc04 ;goto87
15561 FBEA EC 02 .. ldd 02,x
15564 FBEE EC 00 .. ldd 00,x
15573 FBF8 EC 12 .. ldd 12,x
15574 FBFA ED 04 .. std 04,x
15575 FBFC EC 0C .. ldd 0c,x
15576 FBFE ED 02 .. std 02,x
15577 FC00 EC 10 .. ldd 10,x
15582 FC04 ED 00 .. std 00,x
15585 FC08 EC 08 .. ldd 08,x
15586 FC0A ED 0A .. std 0a,x
15587 FC0C EC 02 .. ldd 02,x
15588 FC0E ED 0C .. std 0c,x
15590 FC11 ED 02 .. std 02,x
15591 FC13 EC 00 .. ldd 00,x
15592 FC15 26 06 &. bne 06
15593 FC17 6D 02 m. tst 02,x
15594 FC19 26 02 &. bne 02
15595 FC1B 6D 03 m. tst 03,x
15608 FC27 E3 06 .. addd 06,x
15611 FC2B EC 02 .. ldd 02,x
15612 FC2D ED 06 .. std 06,x
15613 FC2F EC 04 .. ldd 04,x
15614 FC31 E3 08 .. addd 08,x
15615 FC33 ED 08 .. std 08,x
15618 FC37 C9 00 .. adcb #00
15619 FC39 89 00 .. adca #00
15620 FC3B 83 00 00 ... subd #0000
15621 FC3E 26 06 &. bne 06
15622 FC40 6D 08 m. tst 08,x
15623 FC42 26 02 &. bne 02
15624 FC44 6D 09 m. tst 09,x
15643 FC57 A7 04 .. staa 04,x
15644 FC59 7E FC 6D ~.m jmp fc6d ;goto88
15656 FC66 86 01 .. ldaa #01
15657 FC68 A7 04 .. staa 04,x
15658 FC6A 7E FC 6D ~.m jmp fc6d ;goto88
15660 FC6D 1A EE 0E ... ldy 0e,x
15661 FC70 EC 08 .. ldd 08,x
15662 FC72 ED 0E .. std 0e,x
15663 FC74 EC 14 .. ldd 14,x
15664 FC76 ED 0C .. std 0c,x
15665 FC78 EC 12 .. ldd 12,x
15666 FC7A ED 0A .. std 0a,x
15667 FC7C 1A EF 12 ... sty 12,x
15670 FC81 ED 08 .. std 08,x
15671 FC83 ED 06 .. std 06,x
15672 FC85 EC 0A .. ldd 0a,x
15673 FC87 1A A3 0E ... cmpd 0e,x
15674 FC8A 22 23 "# bhi 23
15675 FC8C 27 15 '. beq 15
15676 FC8E 1E 04 01 08 .... brset 04,x 01 08
15677 FC92 CC 00 00 ... ldd #0000
15678 FC95 ED 14 .. std 14,x
15679 FC97 7E FE 04 ~.. jmp fe04 ;goto89
15680 FC9A EC 0C .. ldd 0c,x
15681 FC9C ED 14 .. std 14,x
15682 FC9E EC 0A .. ldd 0a,x
15683 FCA0 7E FD E3 ~.. jmp fde3 ;goto90
15684 FCA3 83 00 00 ... subd #0000
15685 FCA6 27 12 '. beq 12
15686 FCA8 EC 0C .. ldd 0c,x
15687 FCAA 1A A3 10 ... cmpd 10,x
15688 FCAD 25 DF %. bcs df
15689 FCAF 6D 0E m. tst 0e,x
15690 FCB1 26 70 &p bne 70
15691 FCB3 6D 0F m. tst 0f,x
15692 FCB5 27 1A '. beq 1a
15693 FCB7 7E FD A4 ~.. jmp fda4 ;goto91
15697 FCBE EC 0C .. ldd 0c,x
15698 FCC0 EE 10 .. ldx 10,x
15700 FCC3 18 1E 04 01 01 ..... brset 04,y 01 01
15703 FCCA ED 14 .. std 14,x
15706 FCCE 7E FD E3 ~.. jmp fde3 ;goto90
15710 FCD5 EC 0A .. ldd 0a,x
15711 FCD7 EE 10 .. ldx 10,x
15714 FCDB CD EF 0A ... stx 02x,y
15718 FCE1 CD EF 0E ... stx 02x,y
15720 FCE5 18 E3 0C ... addd 0c,y
15721 FCE8 24 1B $. bcc 1b
15722 FCEA 18 ED 0C ... std 0c,y
15724 FCEE C6 01 .. ldab #01
15728 FCF3 18 E3 0E ... addd 0e,y
15729 FCF6 24 03 $. bcc 03
15730 FCF8 18 6C 0A .l. inc 0a,y
15731 FCFB 18 ED 0E ... std 0e,y
15734 FD00 18 E3 0C ... addd 0c,y
15735 FD03 25 E5 %. bcs e5
15738 FD07 18 E3 0E ... addd 0e,y
15739 FD0A 24 03 $. bcc 03
15740 FD0C 18 6C 0A .l. inc 0a,y
15741 FD0F 18 1F 04 01 07 ..... brclr 04,y 01 07
15743 FD15 18 6F 0A .o. clr 0a,y
15744 FD18 18 6F 0B .o. clr 0b,y
15746 FD1C ED 14 .. std 14,x
15747 FD1E EC 0A .. ldd 0a,x
15748 FD20 7E FD E3 ~.. jmp fde3 ;goto90
15749 FD23 86 08 .. ldaa #08
15750 FD25 A7 05 .. staa 05,x
15761 FD31 EC 0B .. ldd 0b,x
15762 FD33 A3 10 .. subd 10,x
15763 FD35 ED 14 .. std 14,x
15764 FD37 EC 09 .. ldd 09,x
15765 FD39 E2 0F .. sbcb 0f,x
15766 FD3B A2 0E .. sbca 0e,x
15767 FD3D 25 06 %. bcs 06
15768 FD3F ED 09 .. std 09,x
15769 FD41 EC 14 .. ldd 14,x
15770 FD43 ED 0B .. std 0b,x
15771 FD45 6A 05 j. dec 05,x
15772 FD47 26 DE &. bne de
15775 FD4B 1F 04 01 09 .... brclr 04,x 01 09
15776 FD4F EC 0B .. ldd 0b,x
15777 FD51 ED 14 .. std 14,x
15778 FD53 EC 09 .. ldd 09,x
15779 FD55 7E FD E3 ~.. jmp fde3 ;goto90
15781 FD59 E6 0D .. ldab 0d,x
15783 FD5C ED 14 .. std 14,x
15785 FD5F 7E FD E3 ~.. jmp fde3 ;goto90
15786 FD62 86 10 .. ldaa #10
15787 FD64 A7 05 .. staa 05,x
15800 FD72 EC 0A .. ldd 0a,x
15801 FD74 A3 10 .. subd 10,x
15802 FD76 ED 14 .. std 14,x
15803 FD78 EC 08 .. ldd 08,x
15804 FD7A E2 0F .. sbcb 0f,x
15805 FD7C 82 00 .. sbca #00
15806 FD7E 25 06 %. bcs 06
15807 FD80 ED 08 .. std 08,x
15808 FD82 EC 14 .. ldd 14,x
15809 FD84 ED 0A .. std 0a,x
15810 FD86 6A 05 j. dec 05,x
15811 FD88 26 DC &. bne dc
15816 FD8E 1F 04 01 08 .... brclr 04,x 01 08
15817 FD92 EC 0A .. ldd 0a,x
15818 FD94 ED 14 .. std 14,x
15819 FD96 EC 08 .. ldd 08,x
15820 FD98 20 49 I bra 49
15821 FD9A EC 0C .. ldd 0c,x
15824 FD9E ED 14 .. std 14,x
15827 FDA2 20 3F ? bra 3f
15829 FDA4 2B BC +. bmi bc
15830 FDA6 86 10 .. ldaa #10
15831 FDA8 A7 05 .. staa 05,x
15842 FDB4 EC 0A .. ldd 0a,x
15843 FDB6 A3 10 .. subd 10,x
15844 FDB8 ED 14 .. std 14,x
15845 FDBA A6 07 .. ldaa 07,x
15846 FDBC A2 0F .. sbca 0f,x
15847 FDBE 25 06 %. bcs 06
15848 FDC0 A7 07 .. staa 07,x
15849 FDC2 EC 14 .. ldd 14,x
15850 FDC4 ED 0A .. std 0a,x
15851 FDC6 6A 05 j. dec 05,x
15852 FDC8 26 E0 &. bne e0
15857 FDCE 1F 04 01 09 .... brclr 04,x 01 09
15858 FDD2 EC 0A .. ldd 0a,x
15859 FDD4 ED 14 .. std 14,x
15861 FDD7 E6 07 .. ldab 07,x
15862 FDD9 20 08 . bra 08
15863 FDDB EC 0C .. ldd 0c,x
15866 FDDF ED 14 .. std 14,x
15870 FDE3 1F 04 80 12 .... brclr 04,x 80 12
15873 FDE9 63 14 c. com 14,x
15874 FDEB 63 15 c. com 15,x
15875 FDED 6C 15 l. inc 15,x
15876 FDEF 26 08 &. bne 08
15877 FDF1 6C 14 l. inc 14,x
15878 FDF3 26 04 &. bne 04
15880 FDF6 26 01 &. bne 01
15882 FDF9 83 00 00 ... subd #0000
15883 FDFC 26 06 &. bne 06
15884 FDFE 6D 14 m. tst 14,x
15885 FE00 26 02 &. bne 02
15886 FE02 6D 15 m. tst 15,x
15907 ; passed a structure (in code following the call to jump2) and a number D
15908 ; popular D candidates come from $48, $42, $9, $a, etc...
15909 ; D must be between 0 and len, inclusive.
15912 ; u16 jmplocs[len+2];
15915 FE17 A3 00 .. subd 00,x ; D -= var1
15916 FE19 2D 05 -. blt 05 ; if D<0, to fe20, where D=-1
15917 FE1B 1A A3 02 ... cmpd 02,x ;
15918 FE1E 2F 03 /. ble 03 ; if D > len, D=-1, else to fe23
15919 FE20 CC FF FF ... ldd #ffff
15920 FE23 3C < pshx ; push return ptr back onto stack
15921 FE24 05 . asld ; D *= 2
15923 FE26 E3 00 .. addd 00,x ; D += return-ptr
15924 FE28 C3 00 06 ... addd #0006 ; + 6
15926 FE2C EC 00 .. ldd 00,x ; return ptr = jmplocs[orig D]
15928 FE2F ED 00 .. std 00,x
15932 ; this looks like a switch statement
15933 ; we're passed an array of 4-byte items... this is passed in the code segment
15934 ; we take the return address and start counting until we hit a double zero.
15935 ; hence much of the code following this call in a standard disassembly is garbage
15936 ; we also look at D - common values passed to use are contents of $9, $12, $15, $4A or the SCI $102f
15938 FE33 6D 04 m. tst 04,x
15939 FE35 26 04 &. bne 04 ; to fe3b if this is not the last one
15940 FE37 6D 05 m. tst 05,x ; double check it really is last one.
15941 FE39 27 0A '. beq 0a ; to fe45
15942 FE3B A3 02 .. subd 02,x ; subtract lower order bits from D
15943 FE3D 27 06 '. beq 06 ; to fe45
15944 FE3F 08 . inx ; move the array index up one
15948 FE43 20 EE . bra ee ; to fe33
15949 FE45 EE 00 .. ldx 00,x ; return to our destination address
15950 FE47 6E 00 n. jmp 00,x
15954 ; Enable the Real-time Interrupt (periodic hw interrupt)
15955 FE49 86 40 .@ ldaa #40 ;40 -> A
15956 FE4B B7 10 24 ..$ staa 1024 ;A -> 1024
15957 ; Enable the ADC & configure IRQ' for edge-sensitive only operation
15958 FE4E 86 A0 .. ldaa #a0 ;a0 -> A
15959 FE50 B7 10 39 ..9 staa 1039 ;A -> 1039
15960 ; Set a stack pointer?
15961 FE53 8E 00 EF ... lds #00ef
15962 ; Zero out the first 128 bytes of ram.
15963 FE56 CE 00 00 ... ldx #0000 ;wipe 0000-007f X=0000
15964 FE59 8C 00 80 ... cpx #0080 ;loop: if X = 0080
15965 FE5C 24 05 $. bcc fe63 ; finished
15966 FE5E 6F 00 o. clr 00,x ; else: load addr X with 0
15967 FE60 08 . inx ; increment X
15968 FE61 20 F6 . bra fe59 ;repeat
15970 ; Jump to main procedure
15971 FE63 BD F7 D6 ... jsr f7d6 ;goto main:
15972 FE66 7E FE 6D ~.m jmp fe6d ; goto91
15974 ; Reboot function for when things go astray?
15975 FE69 0F . sei ;inhibit interrupts
15976 FE6A 7E FE 49 ~.I jmp fe49 ;goto reset:
15978 ; loop forever - called after main is exited.
15980 FE6D 20 FE . bra fe6d ;loop forever
15981 ;[SAF] - wait for interrupts?
15983 FE6F FF FF FF ... stx ffff
15984 FE72 FF FF FF ... stx ffff
15985 FE75 FF FF FF ... stx ffff
15986 FE78 FF FF FF ... stx ffff
15987 FE7B FF FF FF ... stx ffff
15988 FE7E FF FF FF ... stx ffff
15989 FE81 FF FF FF ... stx ffff
15990 FE84 FF FF FF ... stx ffff
15991 FE87 FF FF FF ... stx ffff
15992 FE8A FF FF FF ... stx ffff
15993 FE8D FF FF FF ... stx ffff
15994 FE90 FF FF FF ... stx ffff
15995 FE93 FF FF FF ... stx ffff
15996 FE96 FF FF FF ... stx ffff
15997 FE99 FF FF FF ... stx ffff
15998 FE9C FF FF FF ... stx ffff
15999 FE9F FF FF FF ... stx ffff
16000 FEA2 FF FF FF ... stx ffff
16001 FEA5 FF FF FF ... stx ffff
16002 FEA8 FF FF FF ... stx ffff
16003 FEAB FF FF FF ... stx ffff
16004 FEAE FF FF FF ... stx ffff
16005 FEB1 FF FF FF ... stx ffff
16006 FEB4 FF FF FF ... stx ffff
16007 FEB7 FF FF FF ... stx ffff
16008 FEBA FF FF FF ... stx ffff
16009 FEBD FF FF FF ... stx ffff
16010 FEC0 FF FF FF ... stx ffff
16011 FEC3 FF FF FF ... stx ffff
16012 FEC6 FF FF FF ... stx ffff
16013 FEC9 FF FF FF ... stx ffff
16014 FECC FF FF FF ... stx ffff
16015 FECF FF FF FF ... stx ffff
16016 FED2 FF FF FF ... stx ffff
16017 FED5 FF FF FF ... stx ffff
16018 FED8 FF FF FF ... stx ffff
16019 FEDB FF FF FF ... stx ffff
16020 FEDE FF FF FF ... stx ffff
16021 FEE1 FF FF FF ... stx ffff
16022 FEE4 FF FF FF ... stx ffff
16023 FEE7 FF FF FF ... stx ffff
16024 FEEA FF FF FF ... stx ffff
16025 FEED FF FF FF ... stx ffff
16026 FEF0 FF FF FF ... stx ffff
16027 FEF3 FF FF FF ... stx ffff
16028 FEF6 FF FF FF ... stx ffff
16029 FEF9 FF FF FF ... stx ffff
16030 FEFC FF FF FF ... stx ffff
16031 FEFF FF FF FF ... stx ffff
16032 FF02 FF FF FF ... stx ffff
16033 FF05 FF FF FF ... stx ffff
16034 FF08 FF FF FF ... stx ffff
16035 FF0B FF FF FF ... stx ffff
16036 FF0E FF FF FF ... stx ffff
16037 FF11 FF FF FF ... stx ffff
16038 FF14 FF FF FF ... stx ffff
16039 FF17 FF FF FF ... stx ffff
16040 FF1A FF FF FF ... stx ffff
16041 FF1D FF FF FF ... stx ffff
16042 FF20 FF FF FF ... stx ffff
16043 FF23 FF FF FF ... stx ffff
16044 FF26 FF FF FF ... stx ffff
16045 FF29 FF FF FF ... stx ffff
16046 FF2C FF FF FF ... stx ffff
16047 FF2F FF FF FF ... stx ffff
16048 FF32 FF FF FF ... stx ffff
16049 FF35 FF FF FF ... stx ffff
16050 FF38 FF FF FF ... stx ffff
16051 FF3B FF FF FF ... stx ffff
16052 FF3E FF FF FF ... stx ffff
16053 FF41 FF FF FF ... stx ffff
16054 FF44 FF FF FF ... stx ffff
16055 FF47 FF FF FF ... stx ffff
16056 FF4A FF FF FF ... stx ffff
16057 FF4D FF FF FF ... stx ffff
16058 FF50 FF FF FF ... stx ffff
16059 FF53 FF FF FF ... stx ffff
16060 FF56 FF FF FF ... stx ffff
16061 FF59 FF FF FF ... stx ffff
16062 FF5C FF FF FF ... stx ffff
16063 FF5F FF FF FF ... stx ffff
16064 FF62 FF FF FF ... stx ffff
16065 FF65 FF FF FF ... stx ffff
16066 FF68 FF FF FF ... stx ffff
16067 FF6B FF FF FF ... stx ffff
16068 FF6E FF FF FF ... stx ffff
16069 FF71 FF FF FF ... stx ffff
16070 FF74 FF FF FF ... stx ffff
16071 FF77 FF FF FF ... stx ffff
16072 FF7A FF FF FF ... stx ffff
16073 FF7D FF FF FF ... stx ffff
16074 FF80 FF FF FF ... stx ffff
16075 FF83 FF FF FF ... stx ffff
16076 FF86 FF FF FF ... stx ffff
16077 FF89 FF FF FF ... stx ffff
16078 FF8C FF FF FF ... stx ffff
16079 FF8F FF FF FF ... stx ffff
16080 FF92 FF FF FF ... stx ffff
16081 FF95 FF FF FF ... stx ffff
16082 FF98 FF FF FF ... stx ffff
16083 FF9B FF FF FF ... stx ffff
16084 FF9E FF FF FF ... stx ffff
16085 FFA1 FF FF FF ... stx ffff
16086 FFA4 FF FF FF ... stx ffff
16087 FFA7 FF FF FF ... stx ffff
16088 FFAA FF FF FF ... stx ffff
16089 FFAD FF FF FF ... stx ffff
16090 FFB0 FF FF FF ... stx ffff
16091 FFB3 FF FF FF ... stx ffff
16092 FFB6 FF FF FF ... stx ffff
16093 FFB9 FF FF FF ... stx ffff
16094 FFBC FF FF FF ... stx ffff
16095 FFBF FF FF FF ... stx ffff
16096 FFC2 FF FF FF ... stx ffff
16097 FFC5 FF FF FF ... stx ffff
16098 FFC8 FF FF FF ... stx ffff
16099 FFCB FF FF FF ... stx ffff
16100 FFCE FF FF FF ... stx ffff
16101 FFD1 FF FF FF ... stx ffff
16105 .word c81c ; SCI serial system (generic) - goes to sciinterrupt
16106 .word fae2 ; SPI serial transfer complete - flashes *** ERROR *** for a second
16107 .word faef ; Pulse accumulator input edge - flashes *** ERROR *** for a second
16108 .word fafc ; Pulse accumulator overflow - flashes *** ERROR *** for a second
16109 .word fb09 ; Timer overflow - flashes *** ERROR *** for a second
16110 .word fb16 ; Timer input capture 4 - flashes *** ERROR *** for a second
16111 .word fb23 ; Timer output compare 4 - flashes *** ERROR *** for a second
16112 .word fb30 ; Timer output compare 3 - flashes *** ERROR *** for a second
16113 .word fb3d ; Timer output compare 2 - flashes *** ERROR *** for a second
16114 .word fb4a ; Timer output compare 1 - flashes *** ERROR *** for a second
16115 .word fb57 ; Timer input capture 3 - flashes *** ERROR *** for a second
16116 .word fb64 ; Timer input capture 2 - flashes *** ERROR *** for a second
16117 .word fb71 ; Timer input capture 1 - flashes *** ERROR *** for a second
16118 .word f718 ; RT interrupt - does something useful :) (goto rti)
16119 .word fb7e ; IRQ pin - flashes *** ERROR *** for a second
16120 .word fb8b ; XIRQ pin - flashes *** ERROR *** for a second
16121 .word fb98 ; software interrupt - flashes *** ERROR *** for a second
16122 .word fba5 ; illegal opcode trap - flashes *** ERROR *** for a second
16123 .word fbb2 ; watchdog reset - reboot
16124 .word fbb6 ; clock monitor reset - reboot
16125 .word fe49 ; reset - reboot