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
55 ;0bb5 win-a-snack odds (is this in NVRAM?)
57 ;0bd8 related to 0017 and 0021 (only lower 3 bits used)
60 ;0bc1 error status: (from jump72)
61 ; bit0: changer powerup
68 ;0bc2 - 0bce SCI read into these locations
71 ;0cd9 counter of something - reset to 4 on some serial input
72 ;0cda counter of something - reset to 4 on some serial input
73 ;0cdb also counts something - reset to 4 on some serial input
74 ;0dff - 0e04 keypad buffer - most recent in 0e04
75 ;0e05 array index of the array to follow
76 ;0e06 - ?? array of digits*10
80 ;1028 SPCR (Serial Peripheral Control Register)
85 ;1016 - timer output compare 1 register
87 ;1800 Internal switches
103 ; 1 Language selection
104 ; 0 Language selection
105 ;Rows are numbered 1-9, skipping 5. There is no row 5.
115 ;Motor driver data is sent cols 7, 6, 5, 4, 3, 2, 1, 0 rows 9, 8, 7, 6, 4, 3, 2
116 ;1. Cols 8 and 9 are separate outputs (they ran out of driver chip outputs).
117 ;Motor driver column output enable is PA6
118 ;Motor driver serial clock is PA5
119 ;It looks like motor overcurrent sense is on PE1 (PE1 will be low if a motor
120 ;is drawing too much current)
121 ; the changer speaks at 600 baud, where as the coin validator speaks
122 ; 9600 baud. and printer at 2400.
123 ;3000 changer outputs
124 ; 7 motor driver row output enable
134 ; 6 col 9 motor driver
135 ; 5 col 8 motor driver
136 ; 4 motor driver serial data
137 ; 3 display write (clock) enable (active high)
139 ; 1 note acceptor connector
140 ; 0 note acceptor connector
146 ; PortA - Data: 0x1000, DDR for PA7 & PA3 in 0x1026
147 ; PA7 display reset (active low)
148 ; PA6 enables motor column drivers (when low)
149 ; PA5 clocks snack motor drivers (U16 5890 = serial-input latched source drivers (latch unused))
150 ; PA4 beepy thang (active high)
151 ; PA3 high - talking to coin vendie, low - talking to printer. (through PD1)
152 ; PA2 coin dispenser pin 6 (does what???)
153 ; PA1 bill validator 2
154 ; PA0 bill validator 1
156 ; PortB - not used directly
157 ; PB7 Address lines 8-15
166 ; PortC - Data: 0x1003, Latch: 0x1005, DDR: 0x1007
167 ; PC7 Data Bus 0-7 / Address bus 0-7
176 ; PortD - Data: 0x1008, DDR: 0x1009
179 ; PD5 keypad row select (output)
180 ; PD4 SPI - keypad & display clock signal (output)
181 ; PD3 display data (output)
182 ; PD2 keypad data (input)
183 ; PD1 RX of SCI - to coin disp or printer depending on PA3
184 ; PD0 TX of SCI - to coin disp or printer depending on PA3
186 ; PortE - Data: 0x100A
191 ; PE3 goes high when 24VUN line is too low
192 ; PE2 remote no-sale switch (active low)
193 ; PE1 motor overvoltage sense (active high)
194 ; PE0 motor overcurrent sense (active low)
385 80FB 93 73 00 .s. subd 73
390 ; initial menu when door opens?
391 8100 F6 00 1D ... ldab 001d
392 8103 C4 10 .. andb #10
394 8107 BD D6 52 ..R jsr d652 ;jump5
395 810A CE 00 1D ... ldx #001d
396 810D 1D 00 10 ... bclr 00,x, #10
397 8110 CE 00 1D ... ldx #001d
398 8113 1C 00 80 .. bset 00,x, #80
399 8116 7F 00 42 .. clr 0042
400 8119 7F 00 60 ..` clr 0060
401 811C 7F 00 48 ..H clr 0048
402 811F 7F 00 38 ..8 clr 0038
403 8122 F6 0B A8 ... ldab 0ba8
405 8127 CE 0B A9 ... ldx #0ba9
406 812A 1C 00 02 .. bset 00,x, #02
408 812F CE 0B A9 ... ldx #0ba9
409 8132 1D 00 02 ... bclr 00,x, #02
410 8135 7F 0E 00 ... clr 0e00
411 8138 7F 0E 01 ... clr 0e01
412 813B 7F 0E 02 ... clr 0e02
413 813E 7F 0E 03 ... clr 0e03
414 8141 7F 0E 04 ... clr 0e04
415 8144 F6 00 42 ..B ldab 0042
416 8147 C1 0B .. cmpb #0b
418 814B BD AB 89 ... jsr ab89 ;jump7
419 814E 7F 00 19 ... clr 0019
420 8151 7F 00 60 ..` clr 0060
421 8154 7F 00 42 ..B clr 0042
422 8157 BD E6 1B ... jsr e61b ;jump4
423 815A F6 0B A8 ... ldab 0ba8
425 815F 7E 81 EF ~.. jmp 81ef ;goto1
426 8162 F6 00 60 ..` ldab 0060
427 8165 C1 04 .. cmpb #04
429 8169 F6 00 42 ..B ldab 0042
431 816E F6 00 42 ..B ldab 0042
432 8171 C1 0A .. cmpb #0a
434 8175 7F 00 42 ..B clr 0042
435 8178 F6 00 42 ..B ldab 0042
436 817B CB 30 .0 addb #30
438 817E F6 00 60 ..` ldab 0060
440 8182 C3 00 62 ..b addd #0062
443 8187 E7 00 .. stab 00,x
444 8189 7F 00 42 ..B clr 0042
445 818C 7C 00 60 |.` inc 0060
447 8191 F6 00 62 ..b ldab 0062
448 8194 F1 0B A4 ... cmpb 0ba4
450 8199 F6 00 63 ..c ldab 0063
451 819C F1 0B A5 ... cmpb 0ba5
453 81A1 F6 00 64 ..d ldab 0064
454 81A4 F1 0B A6 ... cmpb 0ba6
456 81A9 F6 00 65 ..e ldab 0065
457 81AC F1 0B A7 ... cmpb 0ba7
459 81B1 CE 0B A9 ... ldx #0ba9
460 81B4 1D 00 02 ... bclr 00,x, #02
461 81B7 CE 00 1F ... ldx #001f
462 81BA 1C 00 04 .. bset 00,x, #04
463 81BD CE 00 1F ... ldx #001f
464 81C0 1C 00 80 ... bset 00,x, #80
465 81C3 CE 00 1D ... ldx #001d
466 81C5 1C 00 10 ... bset 00,x, #10
467 81C9 CC 02 33 ..3 ldd #0233
468 81CC FD 00 3B ..; std 003b
469 81CF C6 05 .. ldab #05
470 81D1 F7 00 38 ..8 stab 0038
472 81D6 7F 00 42 ..B clr 0042
473 81D9 7F 00 60 ..` clr 0060
474 81DC BD BE 69 ..i jsr be69 ;displayreset
475 81DF BD BE 4B ..K jsr be4b ;displayblank
476 81E2 CC B0 81 ... ldd #b081 ;"NO ACCESS"
477 81E5 BD C0 BA ... jsr c0ba ;display:
478 81E8 C6 0A .. ldab #0a
479 81EA F7 00 38 ..8 stab 0038
482 81EF 7F 00 42 ..B clr 0042
483 81F2 F6 00 38 ..8 ldab 0038
485 81F7 7E 84 9F ~.. jmp 849f ;goto2
486 81FA BD BE 4B ..K jsr be4b ;displayblank
487 81FD F6 00 48 ..H ldab 0048
489 8202 BD AB A2 ... jsr aba2 ;jump8
490 8205 F6 00 48 ..H ldab 0048
492 8209 BD FE 16 ... jsr fe16 ;jump2
494 820E 00 0D .... ; list len-2
509 822C 84 78 .x ; end of jump2 data
510 822E F6 00 19 ... ldab 0019
511 8231 C4 01 .. andb #01
513 8235 CC AF F2 ... ldd #aff2 ;"OVER CRNT="
514 8238 BD C0 BA ... jsr c0ba ;display:
515 823B C6 0A .. ldab #0a
516 823D F7 00 38 ..8 stab 0038
517 8240 7F 00 54 ..T clr 0054
518 8243 7C 00 48 |.H inc 0048
520 8248 C6 02 .. ldab #02
521 824A F7 00 48 ..H stab 0048
522 824D 7E 84 9F ~.. jmp 849f ;goto2
523 8250 F6 00 54 ..T ldab 0054
525 8254 CE 00 05 ... ldx #0005
529 825B F6 00 54 ..T ldab 0054
530 825E F7 00 06 ... stab 0006
531 8261 F6 00 06 ... ldab 0006
532 8264 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
533 8267 83 00 00 ... subd #0000
535 826C CC 7F FF ... ldd #7fff
538 8271 F6 00 06 ... ldab 0006
541 8276 C3 08 00 ... addd #0800
544 827B A4 00 .. anda 00,x
545 827D E4 01 .. andb 01,x
546 827F ED 00 .. std 00,x
547 8281 F6 00 54 ..T ldab 0054
550 8286 C3 08 00 ... addd #0800
552 828A EC 00 .. ldd 00,x
553 828C 84 80 .. anda #80
555 8290 F6 00 54 ..T ldab 0054
558 8295 C3 08 C8 ... addd #08c8
560 8299 EC 00 .. ldd 00,x
561 829B 84 02 .. anda #02
563 829F BD 98 A5 ... jsr 98a5 ;jump11
564 82A2 C6 0A .. ldab #0a
565 82A4 F7 00 38 ..8 stab 0038
566 82A7 7C 00 54 |.T inc 0054
567 82AA F6 00 54 ..T ldab 0054
568 82AD C1 64 .d cmpb #64
570 82B1 7C 00 48 |.H inc 0048
571 82B4 7E 84 9F ~.. jmp 849f ;goto2
572 82B7 F6 00 19 ... ldab 0019
573 82BA C4 02 .. andb #02
575 82BE CC AF FD ... ldd #affd "HOME FAIL="
576 82C1 BD C0 BA ... jsr c0ba ;display:
577 82C4 C6 0A .. ldab #0a
578 82C6 F7 00 38 ..8 stab 0038
579 82C9 7F 00 54 ..T clr 0054
580 82CC 7C 00 48 |.H inc 0048
582 82D1 C6 04 .. ldab #04
583 82D3 F7 00 48 ..H stab 0048
584 82D6 7E 84 9F ~.. jmp 849f ;goto2
585 82D9 F6 00 54 ..T ldab 0054
587 82DD CE 00 05 ... ldx #0005
591 82E4 F6 00 54 ..T ldab 0054
592 82E7 F7 00 06 ... stab 0006
593 82EA F6 00 06 ... ldab 0006
594 82ED BD D7 A0 ... jsr d7a0 ;is_invalid_slot
595 82F0 83 00 00 ... subd #0000
597 82F5 CC 7F FF ... ldd #7fff
600 82FA F6 00 06 ... ldab 0006
603 82FF C3 08 00 ... addd #0800
606 8304 A4 00 .. anda 00,x
607 8306 E4 01 .. andb 01,x
608 8308 ED 00 .. std 00,x
609 830A F6 00 54 ..T ldab 0054
612 830F C3 08 00 ... addd #0800
614 8313 EC 00 .. ldd 00,x
615 8315 84 80 .. anda #80
617 8319 F6 00 54 ..T ldab 0054
620 831E C3 08 C8 ... addd #08c8
622 8322 EC 00 .. ldd 00,x
623 8324 84 04 .. anda #04
625 8328 BD 98 A5 ... jsr 98a5 ;jump11
626 832B C6 0A .. ldab #0a
627 832D F7 00 38 ..8 stab 0038
628 8330 7C 00 54 |.T inc 0054
629 8333 F6 00 54 ..T ldab 0054
630 8336 C1 64 .d cmpb #64
632 833A 7C 00 48 |.H inc 0048
633 833D 7E 84 9F ~.. jmp 849f ;goto2
634 8340 F6 00 19 ... ldab 0019
635 8343 C4 04 .. andb #04
637 8347 CC B0 08 ... ldd #b008 ; "CHK PRICES"
638 834A BD C0 BA ... jsr c0ba ;display:
639 834D C6 0A .. ldab #0a
640 834F F7 00 38 ..8 stab 0038
641 8352 7F 00 54 ..T clr 0054
642 8355 7C 00 48 |.H inc 0048
644 835A C6 06 .. ldab #06
645 835C F7 00 48 ..H stab 0048
646 835F 7E 84 9F ~.. jmp 849f ;goto2
647 8362 F6 00 54 ..T ldab 0054
649 8366 CE 00 05 ... ldx #0005
653 836D F6 00 54 ..T ldab 0054
654 8370 F7 00 06 ... stab 0006
655 8373 F6 00 06 ... ldab 0006
656 8376 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
657 8379 83 00 00 ... subd #0000
659 837E F6 00 54 ..T ldab 0054
662 8383 C3 08 C8 ... addd #08c8
664 8387 EC 00 .. ldd 00,x
665 8389 84 01 .. anda #01
667 838D BD 98 A5 ... jsr 98a5 ;jump11
668 8390 C6 0A .. ldab #0a
669 8392 F7 00 38 ..8 stab 0038
670 8395 7C 00 54 |.T inc 0054
671 8398 F6 00 54 ..T ldab 0054
672 839B C1 64 .d cmpb #64
674 839F 7C 00 48 |.H inc 0048
675 83A2 7E 84 9F ~.. jmp 849f ;goto2
677 83A5 F6 0B C1 ... ldab 0bc1
678 83A8 C4 01 .. andb #01
680 83AC CC B0 34 ..4 ldd #b034 "CHGR PWRUP"
681 83AF BD C0 BA ... jsr c0ba ;display:
682 83B2 7C 00 48 |.H inc 0048
683 83B5 C6 0A .. ldab #0a
684 83B7 F7 00 38 ..8 stab 0038
686 83BC 7C 00 48 |.H inc 0048
687 83BF 7E 84 9F ~.. jmp 849f ;goto2
688 83C2 F6 0B C1 ... ldab 0bc1
689 83C5 C4 02 .. andb #02
691 83C9 CC B0 4A ..J ldd #b04a "CARD PWRUP"
692 83CC BD C0 BA ... jsr c0ba ;display:
693 83CF 7C 00 48 |.H inc 0048
694 83D2 C6 0A .. ldab #0a
695 83D4 F7 00 38 ..8 stab 0038
697 83D9 7C 00 48 |.H inc 0048
698 83DC 7E 84 9F ~.. jmp 849f ;goto2
699 83DF F6 0B C1 ... ldab 0bc1
700 83E2 C4 04 .. andb #04
702 83E6 CC B0 3F ..? ldd #b03f "LINK PWRUP"
703 83E9 BD C0 BA ... jsr c0ba ;display:
704 83EC 7C 00 48 |.H inc 0048
705 83EF C6 0A .. ldab #0a
706 83F1 F7 00 38 ..8 stab 0038
708 83F6 7C 00 48 |.H inc 0048
709 83F9 7E 84 9F ~.. jmp 849f ;goto2
710 83FC F6 0B C1 ... ldab 0bc1
711 83FF C4 10 .. andb #10
713 8403 CC B0 1E ... ldd #b01e "COIN JAM"
714 8406 BD C0 BA ... jsr c0ba ;display:
715 8409 7C 00 48 |.H inc 0048
716 840C C6 0A .. ldab #0a
717 840E F7 00 38 ..8 stab 0038
719 8413 7C 00 48 |.H inc 0048
720 8416 7E 84 9F ~.. jmp 849f ;goto2
721 8419 F6 0B C1 ... ldab 0bc1
722 841C C4 20 . andb #20
724 8420 CC B0 29 ..) ldd #b029 "BAD SENSOR"
725 8423 BD C0 BA ... jsr c0ba ;display:
726 8426 7C 00 48 |.H inc 0048
727 8429 C6 0A .. ldab #0a
728 842B F7 00 38 ..8 stab 0038
730 8430 7C 00 48 |.H inc 0048
732 8435 F6 0B C1 ... ldab 0bc1
733 8438 C4 08 .. andb #08
735 843C CC B0 55 ..U ldd #b055 "BILL ERROR"
736 843F BD C0 BA ... jsr c0ba ;display:
737 8442 7C 00 48 |.H inc 0048
738 8445 C6 0A .. ldab #0a
739 8447 F7 00 38 ..8 stab 0038
741 844C 7C 00 48 |.H inc 0048
743 8451 F6 0B C1 ... ldab 0bc1
744 8454 C4 40 .@ andb #40
746 8458 CC B0 60 ..` ldd #b060 "TUBE ERROR"
747 845B BD C0 BA ... jsr c0ba ;display:
748 845E 7F 00 48 ..H clr 0048
749 8461 C6 0A .. ldab #0a
750 8463 F7 00 38 ..8 stab 0038
752 8468 7F 00 48 ..H clr 0048
753 846B CC B0 13 ... ldd #b013 "HIT RESET "
754 846E BD C0 BA ... jsr c0ba ;display:
755 8471 C6 0A .. ldab #0a
756 8473 F7 00 38 ..8 stab 0038
757 8476 20 27 ' bra 27 ; to 849f (exit)
758 8478 F6 00 1D ... ldab 001d
760 847D CC AE A8 ... ldd #aea8 " SYSTEM "
761 8480 BD C0 BA ... jsr c0ba ;display:
762 8483 CE 00 1D ... ldx #001d
763 8486 1D 00 80 .. bclr 00,x, #80
764 8489 20 0C . bra 0c ; to 8496
765 848B CC AE B3 ... ldd #aeb3 " OK "
766 848E BD C0 BA ... jsr c0ba ;display:
767 8491 CE 00 1D ... ldx #001d
768 8494 1C 00 80 .. bset 00,x, #80
769 8496 C6 0F .. ldab #0f
770 8499 F7 00 38 ..8 stab 0038
771 849C 7F 00 48 ..H clr 0048
777 84A0 FC 00 3B ..; ldd 003b
779 84A5 7E 85 96 ~.. jmp 8596 ;goto3
780 84A8 F6 00 1F ... ldab 001f
782 84AD BD D6 52 ..R jsr d652 ;jump5
783 84B0 7F 00 42 ..B clr 0042
784 84B3 7F 00 09 ... clr 0009
785 84B6 7F 00 0A ... clr 000a
786 84B9 7F 00 06 ... clr 0006
789 84BE FD 00 40 ..@ std 0040
792 84C3 FD 00 3E ..> std 003e
793 84C6 BD E5 AA ... jsr e5aa ;jump12
794 84C9 CE 00 1F ... ldx #001f
795 84CC 1D 00 80 .. bclr 00,x, #80
796 84CF CE 00 1F .. ldx #001f
797 84D2 1C 00 02 .... bset 00,x, #02
798 84D5 CE 00 1D ... ldx #001d
799 84D8 1C 00 10 .. bset 00,x, #10
800 84DB CE 00 17 ... ldx #0017
801 84DE 1D 00 20 .. bclr 00,x, #20
802 84E0 CE 00 17 . ldx #0017
803 84E4 1D 00 40 .. bclr 00,x, #40
804 84E7 CE 00 17 ... ldx #0017
805 84EA 1D 00 80 .. bclr 00,x, #80
806 84EC F6 0B A9 ... ldab 0ba9
807 84F0 C4 02 .. andb #02
808 84F2 27 20 ' beq 20 ; to 8414
809 84F4 F6 00 42 ..B ldab 0042
811 84F8 C3 0B E4 ... addd #0be4
813 84FC E6 00 .. ldab 00,x
815 8500 BD BE 4B ..K jsr be4b ;displayblank
816 8503 CC B0 81 ... ldd #b081 ;"NO ACCESS"
817 8506 BD C0 BA ... jsr c0ba ;display:
818 8509 CC 02 58 ..X ldd #0258 ;600
819 850C BD E5 71 ..q jsr e571 ;msdelay
820 850F BD 85 AF ... jsr 85af ;jump14
821 8512 20 6C l bra 6c ; to 8580
823 8514 F6 00 42 ..B ldab 0042
825 8518 BD FE 16 ... jsr fe16 ;jump2
828 851F 85 80 .. ; default action - leave menu?
829 8521 85 39 .9 ; 0 - no key pressed
830 8523 85 4A .J ; key 1 - changer loading & calibration
831 8525 85 4F .O ; key 2 - win-a-snack odds programming
832 8527 85 54 .T ; key 3 - set pricing
833 8529 85 59 .Y ; key 4 - smart shopping discount
834 852B 85 5E .^ ; key 5 - manual peripheral config
835 852D 85 63 .c ; key 6 - promo vend-pair programming
836 852F 85 68 .h ; key 7 - POS message & serial id
837 8531 85 6D .m ; key 8 - print info
838 8533 85 72 .r ; key 9 - security code programming
839 8535 85 77 .w ; key 0 - motor menu
840 8537 85 7C .| ; reset key -
842 8539 CC AE 92 ... ldd #ae92 "- "
843 853C BD C0 BA ... jsr c0ba ;display:
844 853F 7F 00 42 ..B clr 0042
845 8542 CE 00 1F ... ldx #001f
846 8545 1C 00 02 .. bset 00,x, #02
848 854A BD 86 84 ... jsr 8684 ;jump15
850 854F BD 88 2E ... jsr 882e ;jump16
852 8554 BD 88 B8 ... jsr 88b8 ;jump17
854 8559 BD 8C B4 ... jsr 8cb4 ;jump18
856 855E BD 8E 35 ..5 jsr 8e35 ;jump19
858 8563 BD 8F 0D ... jsr 8f0d ;jump20
860 8568 BD 90 D1 ... jsr 90d1 ;jump21
862 856D BD 92 EE ... jsr 92ee ;jump22
864 8572 BD 93 A5 ... jsr 93a5 ;jump23
866 8577 BD 94 DD ... jsr 94dd ;jump24
868 857C 8D 31 .1 bsr 31 ;jump14
871 8580 7F 00 0A ... clr 000a
872 8583 F6 00 42 ..B ldab 0042
873 8586 C1 0A .. cmpb #0a
875 858A F6 00 42 ..B ldab 0042
876 858D C1 07 .. cmpb #07
878 8591 7F 00 09 ... clr 0009
881 8596 CE 00 1F ... ldx #001f
882 8599 1D 00 04 ... bclr 00,x, #04
883 859C CE 00 1F ... ldx #001f
884 859F 1C 00 .. bset 00,x, #80
885 85A2 CE 00 1D ... ldx #001d
886 85A5 1C 00 10 ... bset 00,x, #10
887 85A8 BD BE 69 ..i jsr be69 ;displayreset
888 85AB BD E5 AA ... jsr e5aa ;jump12
892 85AF 7F 00 42 ..B clr 0042
893 85B2 7F 00 06 ... clr 0006
894 85B5 CE 00 1F ... ldx #001f
895 85B8 1C 00 02 .. bset 00,x, #02
896 85BB BD BE 69 ..i jsr be69 ;displayreset
900 85BF F6 00 12 ... ldab 0012
901 85C2 C4 1E .. andb #1e ; 00011110
903 85C5 BD FE 32 ..2 jsr fe32 ;jump25
904 85C8 85 DE 00 0E .... ; 14 000 0111 0
905 85CC 86 08 00 08 .... ; 22 000 1011 0
906 85D0 86 32 00 04 .... ; 26 000 1101 0
907 85D4 86 5C 00 02 .... ; 28 000 1110 0
908 85D8 86 83 FF E4 .... ; 0
909 85DC 00 00 .. ; end of array
910 85DE F6 0B DC ... ldab 0bdc
911 85E1 F7 00 01 ... stab 0001
912 85E4 BD C4 30 ..0 jsr c430 ;jump26
913 85E7 C6 01 .. ldab #01
914 85E9 F7 00 48 ..H stab 0048
915 85EC 7F 00 2C .., clr 002c
916 85EF F6 0C D9 ... ldab 0cd9
918 85F4 7A 0C D9 z.. dec 0cd9
919 85F7 BD 97 F6 ... jsr 97f6 ;jump27
920 85FA CC 01 5E ..^ ldd #015e
921 85FD BD E5 71 ..q jsr e571 ;msdelay
922 8600 CC 02 33 ..3 ldd #0233
923 8603 FD 00 3B ..; std 003b
925 8608 F6 0B DB ... ldab 0bdb
926 860B F7 00 01 ... stab 0001
927 860E BD C4 30 ..0 jsr c430 ;jump26
928 8611 C6 02 .. ldab #02
929 8613 F7 00 48 ..H stab 0048
930 8616 7F 00 2C .., clr 002c
931 8619 F6 0C DA ... ldab 0cda
933 861E 7A 0C DA z.. dec 0cda
934 8621 BD 97 F6 ... jsr 97f6 ;jump27
935 8624 CC 01 5E ..^ ldd #015e
936 8627 BD E5 71 ..q jsr e571 ;msdelay
937 862A CC 02 33 ..3 ldd #0233
938 862D FD 00 3B ..; std 003b
940 8632 F6 0B DA ... ldab 0bda
941 8635 F7 00 01 ... stab 0001
942 8638 BD C4 30 ..0 jsr c430 ;jump26
943 863B C6 03 .. ldab #03
944 863D F7 00 48 ..H stab 0048
945 8640 7F 00 2C .., clr 002c
946 8643 F6 0C DB ... ldab 0cdb
948 8648 7A 0C DB z.. dec 0cdb
949 864B BD 97 F6 ... jsr 97f6 ;jump27
950 864E CC 01 5E ..^ ldd #015e
951 8651 BD E5 71 ..q jsr e571 ;msdelay
952 8654 CC 02 33 ..3 ldd #0233
953 8657 FD 00 3B ..; std 003b
955 865C C6 40 .@ ldab #40
956 865E F7 00 01 ... stab 0001
957 8661 BD C4 30 ..0 jsr c430 ;jump26
958 8664 C6 04 .. ldab #04
959 8666 F7 00 48 ..H stab 0048
960 8669 7F 00 2C .., clr 002c
961 866C F6 0C DC ... ldab 0cdc
963 8671 7A 0C DC z.. dec 0cdc
964 8674 BD 97 F6 ... jsr 97f6 ;jump27
965 8677 CC 01 5E ..^ ldd #015e
966 867A BD E5 71 ..q jsr e571 ;msdelay
967 867D CC 02 33 ..3 ldd #0233
968 8680 FD 00 3B ..; std 003b
972 ; changer load & calibrate menu
973 8684 F6 00 1F ... ldab 001f
974 8687 C4 02 .. andb #02
976 868B CE 00 1F ... ldx #001f
977 868E 1D 00 02 ... bclr 00,x, #02
978 8691 C6 01 .. ldab #01
979 8693 F7 00 48 ..H stab 0048
980 8696 F6 0B C0 ... ldab 0bc0
981 8699 C4 01 .. andb #01
983 869D C6 27 .' ldab #27
984 869F F7 10 2D ..- stab 102d ; disable SCI transmission
985 86A2 C6 07 .. ldab #07
986 86A4 F7 10 2B ..+ stab 102b ; 600 baud
987 86A7 CE 00 1A ... ldx #001a
988 86AA 1D 00 01 .. bclr 00,x, #01
989 86AD F6 00 1A ... ldab 001a
990 86B0 F7 30 00 .0. stab 3000 ; changer accept on
991 86B3 7E 87 E8 ~.. jmp 87e8 ;goto4
992 86B6 F6 00 09 ... ldab 0009
994 86BA BD FE 32 ..2 jsr fe32 ;jump25
995 86BD 86 D7 00 00 .... ; no key
996 86C1 87 39 00 01 .... ; key 1
997 86C5 87 75 00 01 .... ; key 2
998 86C9 87 C5 00 08 .... ; key 0
999 86CD 87 D9 00 01 .... ; key reset
1000 86D1 87 E8 FF F5 .... ; no key
1001 86D5 00 00 .. ; end of array data
1002 86D7 C6 FF .. ldab #ff
1003 86D9 F7 0B BC ... stab 0bbc
1004 86DC F6 18 00 ... ldab 1800
1005 86DF 2D 29 -) blt 29
1006 86E1 F6 00 07 ... ldab 0007
1007 86E4 26 24 &$ bne 24
1008 86E6 CE 00 1A ... ldx #001a
1009 86E9 1D 00 02 .. bclr 00,x, #02
1010 86EC F6 00 1A ... ldab 001a
1011 86EF F7 30 00 .0. stab 3000 ; send msg to changer?
1012 86F2 CC 00 32 ..2 ldd #0032
1013 86F5 BD E5 71 ..q jsr e571 ;msdelay
1014 86F8 CE 00 1A ... ldx #001a
1015 86FB 1C 00 02 .. bset 00,x, #02
1016 86FE F6 00 1A ... ldab 001a
1017 8701 F7 30 00 .0. stab 3000 ; turn changer send line off
1018 8704 CC 02 33 ..3 ldd #0233
1019 8707 FD 00 3B ..; std 003b
1022 870C FD 00 40 ..@ std 0040
1025 8711 FD 00 3E ..> std 003e
1026 8714 F6 0B C0 ... ldab 0bc0
1027 8717 C4 01 .. andb #01
1028 8719 27 03 '. beq 03
1029 871B BD 85 BF ... jsr 85bf ;jump28
1030 871E BD DC A3 ... jsr dca3 ;jump29
1031 8721 BD 97 F6 ... jsr 97f6 ;jump27
1032 8724 CE 00 17 ... ldx #0017
1033 8727 1D 00 .. bclr add,x 00,x
1037 872D 1D 00 40 ... bclr 00,x, #40
1038 8730 CE 00 17 ... ldx #0017
1039 8733 1D 00 .. bclr add,x 00,x
1040 8735 80 7E .~ suba #7e
1042 8738 E8 F6 .. eorb f6,x
1045 873C 26 2F &/ bne 2f
1046 873E F6 00 48 ..H ldab 0048
1048 8742 BD FE 16 ... jsr fe16 ;jump2
1049 8745 00 01 00 03 . ; data for jump2
1054 8751 87 62 . ; end of data
1055 8753 7C 0C D9 |.. inc 0cd9
1057 8758 7C 0C DA |.. inc 0cda
1059 875D 7C 0C DB |.. inc 0cdb
1061 8762 7C 0C DC |.. inc 0cdc
1062 8765 BD 97 F6 ... jsr 97f6 ;jump27
1063 8768 C6 02 .. ldab #02
1064 876A F7 00 36 ..6 stab 0036
1065 876D CE 00 1B ... ldx #001b
1066 8770 1C 00 10 ... bset 00,x, #10
1068 8775 F6 00 36 ..6 ldab 0036
1069 8778 26 43 &C bne 43
1070 877A F6 00 48 ..H ldab 0048
1072 877E BD FE 16 ... jsr fe16 ;jump2
1078 8786 B5 87 8F ... bita 878f
1080 878A 99 87 A3 ... adca 87
1082 878E AD F6 .. jsr f6,x
1084 8791 D9 27 03 .'. adcb 27
1085 8794 7A 0C D9 z.. dec 0cd9
1087 8799 F6 0C DA ... ldab 0cda
1088 879C 27 03 '. beq 03
1089 879E 7A 0C DA z.. dec 0cda
1091 87A3 F6 0C DB ... ldab 0cdb
1092 87A6 27 03 '. beq 03
1093 87A8 7A 0C DB z.. dec 0cdb
1095 87AD F6 0C DC ... ldab 0cdc
1096 87B0 27 03 '. beq 03
1097 87B2 7A 0C DC z.. dec 0cdc
1098 87B5 BD 97 F6 ... jsr 97f6 ;jump27
1099 87B8 C6 02 .. ldab #02
1100 87BA F7 00 36 ..6 stab 0036
1101 87BD CE 00 1B ... ldx #001b
1102 87C0 1C 00 10 ... bset 00,x, #10
1104 87C5 7C 00 48 |.H inc 0048
1105 87C8 F6 00 48 ..H ldab 0048
1106 87CB C1 04 .. cmpb #04
1107 87CD 23 05 #. bls 05
1108 87CF C6 01 .. ldab #01
1109 87D1 F7 00 48 ..H stab 0048
1110 87D4 BD 97 F6 ... jsr 97f6 ;jump27
1112 87D9 CE 00 1A ... ldx #001a
1113 87DC 1C 00 01 .. bset 00,x, #01
1114 87DF F6 00 1A ... ldab 001a
1115 87E2 F7 30 00 .0. stab 3000 ; turn changer accept line off
1116 87E5 BD 85 AF ... jsr 85af ;jump14
1121 ;motor count procedure
1122 87E9 7F 00 05 ... clr 0005
1123 87EC 7F 00 54 ..T clr 0054
1124 87EF F6 00 54 ..T ldab 0054
1125 87F2 C1 50 .P cmpb #50 ; 80
1126 87F4 24 2E $. bcc 2e ; to 8824
1127 87F6 F6 00 54 ..T ldab 0054
1129 87FA C3 B0 D3 ... addd #b0d3
1131 87FE E6 00 .. ldab 00,x
1132 8800 F7 00 06 ... stab 0006
1133 8803 F6 00 06 ... ldab 0006
1134 8806 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
1135 8809 83 00 00 ... subd #0000
1136 880C 26 11 &. bne 11
1137 880E BD D3 11 ... jsr d311 ;jump30 - test it
1138 8811 83 00 00 ... subd #0000
1139 8814 26 03 &. bne 03
1140 8816 7C 00 05 |.. inc 0005
1141 8819 CC 00 05 ... ldd #0005
1142 881C BD E5 71 ..q jsr e571 ;msdelay
1143 881F 7C 00 54 |.T inc 0054
1145 8824 BD 99 81 ... jsr 9981 ;jump144 - write "MOTORS XX" (from 0005)
1146 8827 CC 07 D0 ... ldd #07d0
1147 882A BD E5 71 ..q jsr e571 ;msdelay
1151 882E F6 00 1F ... ldab 001f
1152 8831 C4 02 .. andb #02
1153 8833 27 12 '. beq 12
1154 8835 FC 0B B5 ... ldd 0bb5
1155 8838 C4 FF .. andb #ff
1156 883A 84 01 .. anda #01
1157 883C FD 00 52 ..R std 0052
1158 883F CE 00 1F ... ldx #001f
1159 8842 1D 00 02 ... bclr 00,x, #02
1161 8847 F6 00 09 ... ldab 0009
1163 884B BD FE 32 ..2 jsr fe32 ;jump25
1164 884E 88 68 00 00 .... ; cancel.
1165 8852 88 6D 00 01 .... ; key 1 - increment
1166 8856 88 83 00 01 .... ; key 2 - decrement
1167 885A 88 A7 00 08 .... ; key 0 - saving
1168 885E 88 B4 00 01 .... ; reset
1169 8862 88 B7 FF F5 .... ; no key - return
1170 8866 00 00 .... ; end of array data
1172 8868 BD 9A 05 ... jsr 9a05 ;jump102 - write ODDS 1/
1173 886B 20 4A J bra 4a ; to 88b7 - return
1175 886D FC 00 52 ..R ldd 0052
1176 8870 83 01 F4 ... subd #01f4 ; 500
1177 8873 24 09 $. bcc 09 ; dont let them go above 500
1178 8875 FC 00 52 ..R ldd 0052
1179 8878 C3 00 32 ..2 addd #0032 ; +50
1180 887B FD 00 52 ..R std 0052
1181 887E BD 9A 05 ... jsr 9a05 ;jump102 - write ODDS 1/
1184 8883 FC 00 52 ..R ldd 0052
1185 8886 83 00 32 ..2 subd #0032 ; 50
1186 8889 23 17 #. bls 17 ; dont let them go below 50
1187 888B FC 00 52 ..R ldd 0052
1188 888E C3 FF CE ... addd #ffce ; -50
1189 8891 FD 00 52 ..R std 0052
1190 8894 FC 00 52 ..R ldd 0052
1191 8897 83 00 32 ..2 subd #0032 ; 50
1192 889A 24 06 $. bcc 06
1193 889C CC 00 32 ..2 ldd #0032 ; 100
1194 889F FD 00 52 ..R std 0052
1195 88A2 BD 9A 05 ... jsr 9a05 ;jump102 - write ODDS 1/
1198 88A7 BD A3 7C ..| jsr a37c ;jump141 - save
1201 88AC FD 0B B9 ... std 0bb9
1202 88AF BD 85 AF ... jsr 85af ;jump14
1204 88B4 BD 85 AF ... jsr 85af ;jump14
1209 88B8 F6 00 1F ... ldab 001f
1210 88BB C4 02 .. andb #02
1211 88BD 26 0A &. bne 0a
1212 88BF F6 00 3A ..: ldab 003a
1213 88C2 26 28 &( bne 28
1214 88C4 F6 00 1D ... ldab 001d
1215 88C7 2D 23 -# blt 23
1216 88C9 7F 00 2C .., clr 002c
1217 88CC CC AE 9D ... ldd #ae9d "SET PRICE?"
1218 88CF BD C0 BA ... jsr c0ba ;display:
1219 88D2 CE 00 1F ... ldx #001f
1220 88D5 1D 00 02 .. bclr 00,x, #02
1221 88D8 CE 00 1F ... ldx #001f
1222 88DB 1D 00 40 .. bclr 00,x, #40
1223 88DE CE 00 1D ... ldx #001d
1224 88E1 1D 00 80 .. bclr 00,x, #80
1225 88E4 7F 00 54 ... clr 0054
1226 88E7 C6 32 .2 ldab #32
1227 88E9 F7 00 3A ..: stab 003a
1228 88EC F6 00 09 ... ldab 0009
1229 88EF 26 03 &. bne 03
1230 88F1 7E 89 E1 ~.. jmp 89e1 ;goto5
1231 88F4 F6 00 1D ... ldab 001d
1232 88F7 2C 03 ,. bge 03
1233 88F9 7E 89 E1 ~.. jmp 89e1 ;goto5
1234 88FC F6 00 09 ... ldab 0009
1235 88FF C1 0B .. cmpb #0b
1236 8901 26 06 &. bne 06
1237 8903 BD 85 AF ... jsr 85af ;jump14
1238 8906 7E 89 DE ~.. jmp 89de ;goto6
1239 8909 F6 00 54 ..T ldab 0054
1240 890C 26 26 && bne 26
1241 890E BD BE 4B ..K jsr be4b ;displayblank
1242 8911 F6 00 09 ... ldab 0009
1243 8914 C1 0A .. cmpb #0a
1244 8916 26 03 &. bne 03
1245 8918 7F 00 09 ... clr 0009
1246 891B F6 00 09 ... ldab 0009
1247 891E CB 30 .0 addb #30
1249 8921 CC 0B 95 ... ldd #0b95
1250 8924 F0 00 54 ..T subb 0054
1251 8927 82 00 .. sbca #00
1254 892B E7 00 .. stab 00,x
1255 892D C6 32 .2 ldab #32
1256 892F F7 00 3A ..: stab 003a
1258 8934 F6 00 54 ..T ldab 0054
1259 8937 C1 01 .. cmpb #01
1260 8939 26 27 &' bne 27
1261 893B F6 00 09 ... ldab 0009
1262 893E C1 05 .. cmpb #05
1264 8942 F6 00 09 ... ldab 0009
1265 8945 C1 0A .. cmpb #0a
1266 8947 27 19 '. beq 19
1267 8949 F6 00 09 ... ldab 0009
1268 894C CB 30 .0 addb #30
1270 894F CC 0B 95 ... ldd #0b95
1271 8952 F0 00 54 ..T subb 0054
1272 8955 82 00 .. sbca #00
1275 8959 E7 00 .. stab 00,x
1276 895B C6 32 .2 ldab #32
1277 895D F7 00 3A ..: stab 003a
1279 8962 CE 00 1F ... ldx #001f
1280 8965 1C 00 02 .. bset 00,x, #02
1281 8968 7F 00 3A ..: clr 003a
1282 896B BD BE 01 ... jsr be01 ;jump70
1283 896E 7C 00 54 |.T inc 0054
1284 8971 F6 00 54 ..T ldab 0054
1285 8974 C1 02 .. cmpb #02
1286 8976 26 60 &` bne 60
1287 8978 CE 00 1D ... ldx #001d
1288 897B 1C 00 80 .. bset 00,x, #80
1289 897E F6 0B 94 .. ldab 0b94
1290 8980 CB D0 .. addb #d0 ; -48 (unmake it a digit)
1292 8984 F6 0B 95 ... ldab 0b95
1293 8987 CB D0 .. addb #d0 ; -48 (unmake it a digit)
1294 8989 86 0A .. ldaa #0a
1297 898D EB 00 .. addb 00,x
1299 8990 F7 00 06 ... stab 0006
1300 8993 C6 32 .2 ldab #32
1301 8995 F7 00 3A ..: stab 003a
1302 8998 F6 00 06 ... ldab 0006
1303 899B BD D7 A0 ... jsr d7a0 ;is_invalid_slot
1304 899E 83 00 00 ... subd #0000
1305 89A1 26 27 &' bne 27 ; to 89ca
1306 89A3 BD D3 11 ... jsr d311 ;jump30 - test position exists
1307 89A6 83 00 00 ... subd #0000
1308 89A9 26 0B &. bne 0b
1309 89AB CE 00 1F ... ldx #001f
1310 89AE 1C 00 40 .. bset 00,x, #40
1311 89B1 BD 8C 73 ..s jsr 8c73 ;jump75
1313 89B6 CE 00 1F ... ldx #001f
1314 89B9 1D 00 40 .. bclr 00,x, #40
1315 89BC CC 2A FF .*. ldd #2aff ; 00101010 11111111
1316 89BF FD 00 27 ..' std 0027
1317 89C2 BD A3 85 ... jsr a385 ;jump40
1318 89C5 BD 9A 47 ..G jsr 9a47 ;jump39
1321 89CA CE 00 1D ... ldx #001d
1322 89CD 1D 00 .. bclr 00,x, #80
1323 89D0 CE 00 1F ... ldx #001f
1324 89D3 1C 00 02 ... bset 00,x, #02
1326 89D8 CE 00 1D ... ldx #001d
1327 89DB 1D 00 80 ... bclr 00,x, #80
1329 89DE 7E 8C 72 .~ jmp 8c72 ;goto7 (exit)
1331 89E1 F6 00 1D ... ldab 001d
1332 89E4 2D 03 -. blt 03
1333 89E6 7E 8C 72 ~.r jmp 8c72 ;goto7 (exit)
1334 89E9 F6 00 09 ... ldab 0009
1336 89ED BD FE 16 ... jsr fe16 ;jump2
1337 89F0 00 00 00 0B .... ; params to jump2
1338 89F4 8C 72 .. ; default action
1339 89F6 8A 0E .. ; 0 - display price on screen?
1351 8A0E BD 9A 47 .. jsr 9a47 ;jump39
1352 8A11 7E 8C 72 ... jmp 8c72 ;goto7 (exit)
1353 8A14 F6 00 36 ... ldab 0036
1354 8A17 27 03 '. beq 03
1355 8A19 7E 8A 9B ~.. jmp 8a9b ;goto8
1356 8A1C F6 00 1F ... ldab 001f
1357 8A1F C4 40 .@ andb #40
1358 8A21 27 78 'x beq 78
1359 8A23 F6 0B C0 ... ldab 0bc0
1360 8A26 C4 02 .. andb #02
1361 8A28 27 52 'R beq 52
1362 8A2A F6 0B AA ... ldab 0baa
1363 8A2D C1 32 .2 cmpb #32
1364 8A2F 24 22 $" bcc 22
1365 8A31 F6 0B AA ... ldab 0baa
1367 8A35 F3 00 27 ..' addd 0027
1368 8A38 FD 00 27 ..' std 0027
1369 8A3B F6 0B AA ... ldab 0baa
1373 8A41 CC 00 FA ... ldd #00fa ; 250 or -6
1374 8A44 BD FB BA ... jsr fbba ;jump38 - multiply?
1375 8A47 B3 00 27 ..' subd 0027
1376 8A4A 24 05 $. bcc 05
1379 8A4E FD 00 27 ..' std 0027
1381 8A53 F6 0B AA ... ldab 0baa
1382 8A56 C1 32 .2 cmpb #32
1384 8A5A F6 0B AA ... ldab 0baa
1386 8A5E F3 00 27 ..' addd 0027
1387 8A61 FD 00 27 ..' std 0027
1388 8A64 F6 0B AA ... ldab 0baa
1392 8A6A CC 00 C7 ... ldd #00c7
1393 8A6D BD FB BA ... jsr fbba ;jump38
1394 8A70 B3 00 27 ..' subd 0027
1395 8A73 24 05 $. bcc 05
1398 8A77 FD 00 27 ..' std 0027
1400 8A7C F6 0B AA ... ldab 0baa
1402 8A80 F3 00 27 ..' addd 0027
1403 8A83 FD 00 27 ..' std 0027
1404 8A86 FC 00 27 ..' ldd 0027
1405 8A89 83 27 0F .'. subd #270f
1406 8A8C 23 05 #. bls 05
1409 8A90 FD 00 27 ..' std 0027
1410 8A93 BD 9A 47 ..G jsr 9a47 ;jump39
1411 8A96 C6 02 .. ldab #02
1412 8A98 F7 00 36 ..6 stab 0036
1414 8A9B CE 00 1B ... ldx #001b
1415 8A9E 1C 00 10 ... bset 00,x, #10
1416 8AA1 CC 02 33 ..3 ldd #0233
1417 8AA4 FD 00 3B ..; std 003b
1418 8AA7 7E 8C 72 ~.r jmp 8c72 ;goto7 (exit)
1420 8AAA F6 00 36 ..6 ldab 0036
1421 8AAD 27 03 '. beq 03
1422 8AAF 7E 8B 4F ~.O jmp 8b4f ;goto9
1423 8AB2 F6 00 1F ... ldab 001f
1424 8AB5 C4 40 .@ andb #40
1425 8AB7 26 03 &. bne 03
1426 8AB9 7E 8B 4F ~.O jmp 8b4f ;goto9
1427 8ABC F6 0B C0 ... ldab 0bc0
1428 8ABF C4 02 .. andb #02
1429 8AC1 27 57 'W beq 57
1430 8AC3 FC 00 27 ..' ldd 0027
1431 8AC6 26 18 &. bne 18
1432 8AC8 F6 0B AA ... ldab 0baa
1433 8ACB C1 32 .2 cmpb #32
1434 8ACD 24 11 $. bcc 11
1435 8ACF F6 0B AA ... ldab 0baa
1439 8AD5 CC 00 FA ... ldd #00fa
1440 8AD8 BD FB BA ... jsr fbba ;jump38
1441 8ADB FD 00 27 ..' std 0027
1443 8AE0 FC 00 27 ..' ldd 0027
1444 8AE3 26 18 &. bne 18
1445 8AE5 F6 0B AA ... ldab 0baa
1446 8AE8 C1 32 .2 cmpb #32
1447 8AEA 26 11 &. bne 11
1448 8AEC F6 0B AA ... ldab 0baa
1452 8AF2 CC 00 C7 ... ldd #00c7
1453 8AF5 BD FB BA ... jsr fbba ;jump38
1454 8AF8 FD 00 27 ..' std 0027
1456 8AFD F6 0B AA ... ldab 0baa
1458 8B01 B3 00 27 ..' subd 0027
1459 8B04 22 0D ". bhi 0d
1460 8B06 FC 00 27 ..' ldd 0027
1461 8B09 F0 0B AA ... subb 0baa
1462 8B0C 82 00 .. sbca #00
1463 8B0E FD 00 27 ..' std 0027
1467 8B15 FD 00 27 ..' std 0027
1469 8B1A FC 00 27 ..' ldd 0027
1470 8B1D 26 0D &. bne 0d
1471 8B1F CC 27 10 .'. ldd #2710
1472 8B22 F0 0B AA ... subb 0baa
1473 8B25 82 00 .. sbca #00
1474 8B27 FD 00 27 ..' std 0027
1476 8B2C F6 0B AA ... ldab 0baa
1478 8B30 B3 00 27 ..' subd 0027
1479 8B33 22 0D ". bhi 0d
1480 8B35 FC 00 27 ..' ldd 0027
1481 8B38 F0 0B AA ... subb 0baa
1482 8B3B 82 00 .. sbca #00
1483 8B3D FD 00 27 ..' std 0027
1487 8B44 FD 00 27 ..' std 0027
1488 8B47 BD 9A 47 ..G jsr 9a47 ;jump39
1489 8B4A C6 02 .. ldab #02
1490 8B4C F7 00 36 ..6 stab 0036
1492 8B4F CE 00 1B ... ldx #001b
1493 8B52 1C 00 10 .. bset 00,x, #10
1494 8B55 CC 02 33 ..3 ldd #0233
1495 8B58 FD 00 3B ..; std 003b
1496 8B5B 7E 8C 72 ~.r jmp 8c72 ;goto7 (exit)
1497 8B5E F6 00 36 ..6 ldab 0036
1498 8B61 26 2C &, bne 2c
1499 8B63 F6 00 1F ... ldab 001f
1500 8B66 C4 40 .@ andb #40
1501 8B68 27 25 '% beq 25
1502 8B6A FC 00 46 ..F ldd 0046
1503 8B6D 83 00 64 ..d subd #0064
1504 8B70 24 15 $. bcc 15
1505 8B72 FE 00 46 ..F ldx 0046
1507 8B76 FF 00 46 ..F stx 0046
1508 8B79 FC 00 46 ..F ldd 0046
1509 8B7C 83 00 64 ..d subd #0064
1510 8B7F 25 06 %. bcs 06
1511 8B81 CC 00 01 ... ldd #0001
1512 8B84 FD 00 46 ..F std 0046
1513 8B87 BD 9A 47 ..G jsr 9a47 ;jump39
1514 8B8A C6 02 .. ldab #02
1515 8B8C F7 00 36 ..6 stab 0036
1516 8B8F CE 00 1B ... ldx #001b
1517 8B92 1C 00 10 .. bset 00,x, #10
1518 8B95 CC 02 33 ..3 ldd #0233
1519 8B98 FD 00 3B ..; std 003b
1520 8B9B 7E 8C 72 ~.r jmp 8c72 ;goto7 (exit)
1521 8B9E F6 00 36 ..6 ldab 0036
1522 8BA1 26 29 &) bne 29
1523 8BA3 F6 00 1F ... ldab 001f
1524 8BA6 C4 40 .@ andb #40
1525 8BA8 27 22 '" beq 22
1526 8BAA FC 00 46 ..F ldd 0046
1527 8BAD 83 00 00 ... subd #0000
1528 8BB0 23 12 #. bls 12
1529 8BB2 FE 00 46 ..F ldx 0046
1531 8BB6 FF 00 46 ..F stx 0046
1532 8BB9 FC 00 46 ..F ldd 0046
1533 8BBC 26 06 &. bne 06
1534 8BBE CC 00 63 ..c ldd #0063
1535 8BC1 FD 00 46 ..F std 0046
1536 8BC4 BD 9A 47 ..G jsr 9a47 ;jump39
1537 8BC7 C6 02 .. ldab #02
1538 8BC9 F7 00 36 ..6 stab 0036
1539 8BCC CE 00 1B ... ldx #001b
1540 8BCF 1C 00 10 ... bset 00,x, #10
1541 8BD2 CC 02 33 ..3 ldd #0233
1542 8BD5 FD 00 3B ..; std 003b
1543 8BD8 7E 8C 72 ~.r jmp 8c72 ;goto7 (exit)
1544 8BDB F6 00 1F ... ldab 001f
1545 8BDE C4 40 .@ andb #40
1546 8BE0 27 15 '. beq 15
1547 8BE2 F6 00 19 ... ldab 0019
1548 8BE5 C4 10 .. andb #10
1549 8BE7 27 08 '. beq 08
1550 8BE9 CE 00 19 ... ldx #0019
1551 8BEC 1D 00 10 ... bclr 00,x, #10
1553 8BF1 CE 00 19 ... ldx #0019
1554 8BF4 1C 00 10 ... bset 00,x, #10
1555 8BF7 BD 9A 47 ..G jsr 9a47 ;jump39
1557 8BFC BD A3 85 ... jsr a385 ;jump40
1558 8BFF F6 00 06 ... ldab 0006
1559 8C02 C1 64 .d cmpb #64
1560 8C04 24 24 $$ bcc 24
1561 8C06 BD 97 6F ..o jsr 976f ;jump41
1562 8C09 F6 00 06 ... ldab 0006
1563 8C0C BD D7 A0 ... jsr d7a0 ;is_invalid_slot
1564 8C0F 83 00 00 ... subd #0000
1565 8C12 27 16 '. beq 16
1566 8C14 F6 00 06 ... ldab 0006
1567 8C17 C1 09 .. cmpb #09
1568 8C19 26 03 &. bne 03
1569 8C1B BD 97 6F ..o jsr 976f ;jump41
1570 8C1E F6 00 06 ... ldab 0006
1571 8C21 C1 45 .E cmpb #45
1572 8C23 26 05 &. bne 05
1573 8C25 C6 01 .. ldab #01
1574 8C27 F7 00 06 ... stab 0006
1575 8C2A F6 0E 6D ..m ldab 0e6d
1576 8C2D C1 01 .. cmpb #01
1577 8C2F 26 11 &. bne 11
1578 8C31 F6 00 06 ... ldab 0006
1581 8C36 C3 08 C8 ... addd #08c8
1583 8C3A EC 00 .. ldd 00,x
1584 8C3C C4 7F .. andb #7f
1586 8C3F FD 00 46 ..F std 0046
1587 8C42 BD D3 11 ... jsr d311 ;jump30 - test position exists
1588 8C45 83 00 00 ... subd #0000
1589 8C48 26 12 &. bne 12
1590 8C4A CE 00 1F ... ldx #001f
1591 8C4D 1C 00 40 ... bset 00,x, #40
1592 8C50 FC 00 27 ..' ldd 0027
1593 8C53 83 27 0F .'. subd #270f
1594 8C56 23 02 #. bls 02
1595 8C58 8D 19 .. bsr dest 19
1597 8C5C CE 00 1F ... ldx #001f
1598 8C5F 1D 00 40 ... bclr 00,x, #40
1599 8C62 BD 9A 47 ..G jsr 9a47 ;jump39
1601 8C67 BD A3 85 ... jsr a385 ;jump40
1602 8C6A BD 85 AF ... jsr 85af ;jump14
1604 8C6F BD 85 AF ... jsr 85af ;jump14
1609 8C73 F6 00 06 ... ldab 0006
1612 8C78 C3 08 00 ... addd #0800
1614 8C7C EC 00 .. ldd 00,x
1615 8C7E C4 FF .. andb #ff
1616 8C80 84 3F .? anda #3f
1617 8C82 FD 00 27 ..' std 0027
1618 8C85 F6 00 06 ... ldab 0006
1621 8C8A C3 08 C8 ... addd #08c8
1623 8C8E EC 00 .. ldd 00,x
1624 8C90 C4 7F .. andb #7f
1626 8C93 FD 00 46 ..F std 0046
1627 8C96 F6 00 06 ... ldab 0006
1630 8C9B C3 08 C8 ... addd #08c8
1632 8C9F EC 00 .. ldd 00,x
1633 8CA1 84 08 .. anda #08
1634 8CA3 27 08 '. beq 08
1635 8CA5 CE 00 19 ... ldx #0019
1636 8CA8 1C 00 10 ... bset 00,x, #10
1638 8CAD CE 00 19 ... ldx #0019
1639 8CB0 1D 00 10 ... bclr 00,x, #10
1643 ; program smart shopping discount
1644 8CB4 F6 00 1F ... ldab 001f
1645 8CB7 C4 02 .. andb #02
1646 8CB9 27 12 '. beq 12
1647 8CBB FC 0B B7 ... ldd 0bb7
1648 8CBE FD 00 0D ... std 000d
1649 8CC1 CE 00 1F ... ldx #001f
1650 8CC4 1D 00 02 ... bclr 00,x, #02
1651 8CC7 7F 00 36 ..6 clr 0036
1652 8CCA 7E 8E 34 ~.4 jmp 8e34 ;goto10
1653 8CCD F6 00 09 ... ldab 0009
1655 8CD1 BD FE 32 ..2 jsr fe32 ;jump25
1656 8CD4 8C EE 00 00 .... ; array data for jump25
1657 8CD8 8C F4 00 01 ....
1658 8CDC 8D 80 00 01 ....
1659 8CE0 8E 29 00 08 .)..
1660 8CE4 8E 31 00 01 .1..
1661 8CE8 8E 34 FF F5 .4.
1662 8CEC 00 00 ... ; end of array data
1663 8CEE BD 9B 63 ..c jsr 9b63 ;jump101
1664 8CF1 7E 8E 34 ~.4 jmp 8e34 ;goto10
1665 8CF4 F6 00 36 ..6 ldab 0036
1666 8CF7 26 78 &x bne 78
1667 8CF9 F6 0B C0 ... ldab 0bc0
1668 8CFC C4 02 .. andb #02
1669 8CFE 27 52 'R beq 52
1670 8D00 F6 0B AA ... ldab 0baa
1671 8D03 C1 32 .2 cmpb #32
1672 8D05 24 22 $" bcc 22
1673 8D07 F6 0B AA ... ldab 0baa
1675 8D0B F3 00 0D ... addd 000d
1676 8D0E FD 00 0D ... std 000d
1677 8D11 F6 0B AA ... ldab 0baa
1681 8D17 CC 00 FA ... ldd #00fa
1682 8D1A BD FB BA ... jsr fbba ;jump38
1683 8D1D B3 00 0D ... subd 000d
1684 8D20 24 05 $. bcc 05
1687 8D24 FD 00 0D ... std 000d
1689 8D29 F6 0B AA ... ldab 0baa
1690 8D2C C1 32 .2 cmpb #32
1692 8D30 F6 0B AA ... ldab 0baa
1694 8D34 F3 00 0D ... addd 000d
1695 8D37 FD 00 0D ... std 000d
1696 8D3A F6 0B AA ... ldab 0baa
1700 8D40 CC 00 C7 ... ldd #00c7
1701 8D43 BD FB BA ... jsr fbba ;jump38
1702 8D46 B3 00 0D ... subd 000d
1703 8D49 24 05 $. bcc 05
1706 8D4D FD 00 0D ... std 000d
1708 8D52 F6 0B AA ... ldab 0baa
1710 8D56 F3 00 0D ... addd 000d
1711 8D59 FD 00 0D ... std 000d
1712 8D5C FC 00 0D ... ldd 000d
1713 8D5F 83 27 0F .'. subd #270f
1714 8D62 23 05 #. bls 05
1717 8D66 FD 00 0D ... std 000d
1718 8D69 BD 9B 63 ..c jsr 9b63 ;jump101
1719 8D6C C6 02 .. ldab #02
1720 8D6E F7 00 36 ..6 stab 0036
1721 8D71 CE 00 1B ... ldx #001b
1722 8D74 1C 00 10 .. bset 00,x, #10
1723 8D77 CC 02 33 ..3 ldd #0233
1724 8D7A FD 00 3B ..; std 003b
1725 8D7D 7E 8E 34 ~.4 jmp 8e34 ;goto10
1726 8D80 F6 00 36 ..6 ldab 0036
1727 8D83 27 03 '. beq 03
1728 8D85 7E 8E 1B ~.. jmp 8e1b ;goto11
1729 8D88 F6 0B C0 ... ldab 0bc0
1730 8D8B C4 02 .. andb #02
1731 8D8D 27 57 'W beq 57
1732 8D8F FC 00 0D ... ldd 000d
1733 8D92 26 18 &. bne 18
1734 8D94 F6 0B AA ... ldab 0baa
1735 8D97 C1 32 .2 cmpb #32
1736 8D99 24 11 $. bcc 11
1737 8D9B F6 0B AA ... ldab 0baa
1741 8DA1 CC 00 FA ... ldd #00fa
1742 8DA4 BD FB BA ... jsr fbba ;jump38
1743 8DA7 FD 00 0D ... std 000d
1745 8DAC FC 00 0D ... ldd 000d
1746 8DAF 26 18 &. bne 18
1747 8DB1 F6 0B AA ... ldab 0baa
1748 8DB4 C1 32 .2 cmpb #32
1749 8DB6 26 11 &. bne 11
1750 8DB8 F6 0B AA ... ldab 0baa
1754 8DBE CC 00 C7 ... ldd #00c7
1755 8DC1 BD FB BA ... jsr fbba ;jump38
1756 8DC4 FD 00 0D ... std 000d
1758 8DC9 F6 0B AA ... ldab 0baa
1760 8DCD B3 00 0D ... subd 000d
1761 8DD0 22 0D ". bhi 0d
1762 8DD2 FC 00 0D ... ldd 000d
1763 8DD5 F0 0B AA ... subb 0baa
1764 8DD8 82 00 .. sbca #00
1765 8DDA FD 00 0D ... std 000d
1769 8DE1 FD 00 0D ... std 000d
1771 8DE6 FC 00 0D ... ldd 000d
1772 8DE9 26 0D &. bne 0d
1773 8DEB CC 27 10 .'. ldd #2710
1774 8DEE F0 0B AA ... subb 0baa
1775 8DF1 82 00 .. sbca #00
1776 8DF3 FD 00 0D ... std 000d
1778 8DF8 F6 0B AA ... ldab 0baa
1780 8DFC B3 00 0D ... subd 000d
1781 8DFF 22 0D ". bhi 0d
1782 8E01 FC 00 0D ... ldd 000d
1783 8E04 F0 0B AA ... subb 0baa
1784 8E07 82 00 .. sbca #00
1785 8E09 FD 00 0D ... std 000d
1789 8E10 FD 00 0D ... std 000d
1790 8E13 BD 9B 63 ..c jsr 9b63 ;jump101
1791 8E16 C6 02 .. ldab #02
1792 8E18 F7 00 36 ..6 stab 0036
1794 8E1B CE 00 1B ... ldx #001b
1795 8E1E 1C 00 10 ... bset 00,x, #10
1796 8E21 CC 02 33 ..3 ldd #0233
1797 8E24 FD 00 3B ..; std 003b
1799 8E29 BD A4 4F ..O jsr a44f ;jump140
1800 8E2C BD 85 AF ... jsr 85af ;jump14
1802 8E31 BD 85 AF ... jsr 85af ;jump14
1807 ; manual peripheral config menu
1808 8E35 F6 00 1F ... ldab 001f
1809 8E38 C4 02 .. andb #02
1810 8E3A 27 1E '. beq 1e
1811 8E3C 7F 00 48 ..H clr 0048
1812 8E3F F6 0B C0 ... ldab 0bc0
1813 8E42 F7 00 67 ..g stab 0067
1814 8E45 F6 0E 6D ..m ldab 0e6d
1815 8E48 F7 0E 6F ..o stab 0e6f
1816 8E4B F6 0E 6E ..n ldab 0e6e
1817 8E4E F7 0E 70 ..p stab 0e70
1818 8E51 CE 00 1F ... ldx #001f
1819 8E54 1D 00 02 ... bclr 00,x, #02
1820 8E57 7E 8F 0C ~.. jmp 8f0c ;goto12
1821 8E5A F6 00 09 ... ldab 0009
1823 8E5E BD FE 32 ..2 jsr fe32 ;jump25
1824 8E61 8E 7B 00 00 .{.. ; array data for jump25
1825 8E65 8E 81 00 01 ....
1826 8E69 8E 87 00 04 ....
1827 8E6D 8F 01 00 05 ....
1828 8E71 8F 09 00 01 ....
1829 8E75 8F 0C FF F5 ....
1830 8E79 00 00 .. ; end of array data
1831 8E7B BD 9C 15 ... jsr 9c15 ;jump111
1832 8E7E 7E 8F 0C ~.. jmp 8f0c ;goto12
1833 8E81 BD A7 5F .._ jsr a75f ;jump133
1834 8E84 7E 8F 0C ~.. jmp 8f0c ;goto12
1835 8E87 F6 00 48 ..H ldab 0048
1836 8E8A C1 08 .. cmpb #08
1837 8E8C 25 05 %. bcs 05
1838 8E8E F6 00 67 ..g ldab 0067
1839 8E91 2D 03 -. blt 03
1840 8E93 BD A4 59 ..Y jsr a459 ;jump110
1841 8E96 F6 00 48 ..H ldab 0048
1842 8E99 C1 0A .. cmpb #0a
1843 8E9B 24 5F $_ bcc 5f
1844 8E9D 7C 00 48 |.H inc 0048
1845 8EA0 F6 00 48 ..H ldab 0048
1846 8EA3 C1 01 .. cmpb #01
1847 8EA5 26 0F &. bne 0f
1848 8EA7 F6 00 67 ..g ldab 0067
1849 8EAA C4 02 .. andb #02
1850 8EAC 26 08 &. bne 08
1851 8EAE F6 00 48 ..H ldab 0048
1852 8EB1 CB 02 .. addb #02
1853 8EB3 F7 00 48 ..H stab 0048
1854 8EB6 F6 00 48 ..H ldab 0048
1855 8EB9 C1 02 .. cmpb #02
1856 8EBB 26 0A &. bne 0a
1857 8EBD F6 00 67 ..g ldab 0067
1858 8EC0 C4 10 .. andb #10
1859 8EC2 26 03 &. bne 03
1860 8EC4 7C 00 48 |.H inc 0048
1861 8EC7 F6 00 48 ..H ldab 0048
1862 8ECA C1 06 .. cmpb #06
1863 8ECC 26 0F &. bne 0f
1864 8ECE F6 00 67 ..g ldab 0067
1865 8ED1 C4 08 .. andb #08
1866 8ED3 26 08 &. bne 08
1867 8ED5 C6 02 .. ldab #02
1868 8ED7 FB 00 48 ..H addb 0048
1869 8EDA F7 00 48 ..H stab 0048
1870 8EDD F6 00 48 ..H ldab 0048
1871 8EE0 C1 0A .. cmpb #0a
1872 8EE2 26 08 &. bne 08
1873 8EE4 F6 00 67 ..g ldab 0067
1874 8EE7 2D 03 -. blt 03
1875 8EE9 7C 00 48 |.H inc 0048
1876 8EEC F6 00 48 ..H ldab 0048
1877 8EEF C1 0A .. cmpb #0a
1878 8EF1 23 09 #. bls 09
1879 8EF3 7F 00 48 ..H clr 0048
1880 8EF6 F6 0B C0 ... ldab 0bc0
1881 8EF9 F7 00 67 ..g stab 0067
1882 8EFC BD 9C 15 ... jsr 9c15 ;jump111
1884 8F01 BD A4 59 ..Y jsr a459 ;jump110
1885 8F04 BD 85 AF ... jsr 85af ;jump14
1887 8F09 BD 85 AF ... jsr 85af ;jump14
1892 ; promotional vend-pair programming (buy one thing get another free?)
1893 8F0D F6 00 1F ... ldab 001f
1894 8F10 C4 02 .. andb #02
1895 8F12 27 1D '. beq 1d
1896 8F14 C6 01 .. ldab #01
1897 8F16 F7 00 22 .." stab 0022
1898 8F19 F6 0B AF ... ldab 0baf
1899 8F1C F7 00 24 ..$ stab 0024
1900 8F1F F6 0B B4 ... ldab 0bb4
1901 8F22 F7 00 2A ..* stab 002a
1902 8F25 CE 00 1F ... ldx #001f
1903 8F28 1D 00 02 .. bclr 00,x, #02
1904 8F2B 7F 00 36 ..6 clr 0036
1905 8F2E 7E 90 D0 ~.. jmp 90d0 ;goto13
1906 8F31 F6 00 09 ... ldab 0009
1908 8F35 BD FE 16 ... jsr fe16 ;jump2
1909 8F38 00 00 00 0B .... ; params for jump2
1923 8F56 BD 9D 2A ..* jsr 9d2a ;jump89
1924 8F59 7E 90 D0 ~.. jmp 90d0 ;goto13
1925 8F5C F6 00 36 ..6 ldab 0036
1926 8F5F 26 43 &C bne 43
1927 8F61 F6 00 24 ..$ ldab 0024
1928 8F64 C1 64 .d cmpb #64
1929 8F66 24 34 $4 bcc 34
1930 8F68 7C 00 24 |.$ inc 0024
1931 8F6B F6 00 24 ..$ ldab 0024
1932 8F6E F7 00 06 ... stab 0006
1933 8F71 F6 00 06 ... ldab 0006
1934 8F74 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
1935 8F77 83 00 00 ... subd #0000
1936 8F7A 27 03 '. beq 03
1937 8F7C 7C 00 24 |.$ inc 0024
1938 8F7F F6 00 24 ..$ ldab 0024
1939 8F82 C1 64 .d cmpb #64
1940 8F84 26 03 &. bne 03
1941 8F86 7F 00 24 ..$ clr 0024
1942 8F89 F6 00 24 ..$ ldab 0024
1944 8F8D CE 00 05 ... ldx #0005
1947 8F92 26 08 &. bne 08
1948 8F94 F6 00 24 ..$ ldab 0024
1949 8F97 27 03 '. beq 03
1950 8F99 7C 00 24 |.$ inc 0024
1951 8F9C BD 9D 2A ..* jsr 8d2a ;jump89
1952 8F9F C6 02 .. ldab #02
1953 8FA1 F7 00 36 ..6 stab 0036
1954 8FA4 CE 00 1B ... ldx #001b
1955 8FA7 1C 00 10 ... bset 00,x, #10
1956 8FAA CC 02 33 ..3 ldd #0233
1957 8FAD FD 00 3B ..; std 003b
1958 8FB0 7E 90 D0 ~.. jmp 90d0 ;goto13
1959 8FB3 F6 00 36 ..6 ldab 0036
1960 8FB6 26 45 &E bne 45
1961 8FB8 F6 00 24 ..$ ldab 0024
1962 8FBB C1 00 .. cmpb #00
1963 8FBD 23 2C #, bls 2c
1964 8FBF 7A 00 24 z.$ dec 0024
1965 8FC2 F6 00 24 ..$ ldab 0024
1967 8FC6 CE 00 05 ... ldx #0005
1970 8FCB 26 08 &. bne 08
1971 8FCD F6 00 24 ..$ ldab 0024
1972 8FD0 27 03 '. beq 03
1973 8FD2 7A 00 24 z.$ dec 0024
1974 8FD5 F6 00 24 ..$ ldab 0024
1975 8FD8 F7 00 06 ... stab 0006
1976 8FDB F6 00 06 ... ldab 0006
1977 8FDE BD D7 A0 ... jsr d7a0 ;is_invalid_slot
1978 8FE1 83 00 00 ... subd #0000
1979 8FE4 27 03 '. beq 03
1980 8FE6 7A 00 24 z.$ dec 0024
1982 8FEB F6 00 24 ..$ ldab 0024
1983 8FEE 26 05 &. bne 05
1984 8FF0 C6 62 .b ldab #62
1985 8FF2 F7 00 24 ..$ stab 0024
1986 8FF5 BD 9D 2A ..* jsr 9d2a ;jump89
1987 8FF8 C6 02 .. ldab #02
1988 8FFA F7 00 36 ..6 stab 0036
1989 8FFD CE 00 1B ... ldx #001b
1990 9000 1C 00 10 ... bset 00,x, #10
1991 9003 CC 02 33 ..3 ldd #0233
1992 9006 FD 00 3B ..; std 003b
1993 9009 7E 90 D0 ~.. jmp 90d0 ;goto13
1994 900C F6 00 36 ..6 ldab 0036
1995 900F 26 43 &C bne 43
1996 9011 F6 00 2A ..* ldab 002a
1997 9014 C1 64 .d cmpb #64
1998 9016 24 34 $4 bcc 34
1999 9018 7C 00 2A |.* inc 002a
2000 901B F6 00 2A ..* ldab 002a
2001 901E F7 00 06 ... stab 0006
2002 9021 F6 00 06 ... ldab 0006
2003 9024 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
2004 9027 83 00 00 ... subd #0000
2005 902A 27 03 '. beq 03
2006 902C 7C 00 2A |.* inc 002a
2007 902F F6 00 2A ..* ldab 002a
2008 9032 C1 64 .d cmpb #64
2009 9034 26 03 &. bne 03
2010 9036 7F 00 2A ..* clr 002a
2011 9039 F6 00 2A ..* ldab 002a
2013 903D CE 00 05 ... ldx #0005
2016 9042 26 08 &. bne 08
2017 9044 F6 00 2A ..* ldab 002a
2018 9047 27 03 '. beq 03
2019 9049 7C 00 2A |.* inc 002a
2020 904C BD 9D 2A ..* jsr 9d2a ;jump89
2021 904F C6 02 .. ldab #02
2022 9051 F7 00 36 ..6 stab 0036
2023 9054 CE 00 1B ... ldx #001b
2024 9057 1C 00 10 ... bset 00,x, #10
2025 905A CC 02 33 ..3 ldd #0233
2026 905D FD 00 3B ..; std 003b
2028 9062 F6 00 36 ..6 ldab 0036
2029 9065 26 45 &E bne 45
2030 9067 F6 00 2A ..* ldab 002a
2031 906A C1 00 .. cmpb #00
2032 906C 23 2C #, bls 2c
2033 906E 7A 00 2A z.* dec 002a
2034 9071 F6 00 2A ..* ldab 002a
2036 9075 CE 00 05 ... ldx #0005
2039 907A 26 08 &. bne 08
2040 907C F6 00 2A ..* ldab 002a
2041 907F 27 03 '. beq 03
2042 9081 7A 00 2A z.* dec 002a
2043 9084 F6 00 2A ..* ldab 002a
2044 9087 F7 00 06 ... stab 0006
2045 908A F6 00 06 ... ldab 0006
2046 908D BD D7 A0 ... jsr d7a0 ;is_invalid_slot
2047 9090 83 00 00 ... subd #0000
2048 9093 27 03 '. beq 03
2049 9095 7A 00 2A z.* dec 002a
2051 909A F6 00 2A ..* ldab 002a
2052 909D 26 05 &. bne 05
2053 909F C6 62 .b ldab #62
2054 90A1 F7 00 2A ..* stab 002a
2055 90A4 BD 9D 2A ..* jsr 9d2a ;jump89
2056 90A7 C6 02 .. ldab #02
2057 90A9 F7 00 36 ..6 stab 0036
2058 90AC CE 00 1B ... ldx #001b
2059 90AF 1C 00 10 ... bset 00,x, #10
2060 90B2 CC 02 33 ..3 ldd #0233
2061 90B5 FD 00 3B ..; std 003b
2063 90BA BD A5 1E ... jsr a51e ;jump109
2064 90BD BD AA 9A ... jsr aa9a ;jump127
2065 90C0 BD 9D 2A ..* jsr 9d2a ;jump89
2067 90C5 BD A5 1E ... jsr a51e ;jump109
2068 90C8 BD 85 AF ... jsr 85af ;jump14
2070 90CD BD 85 AF ... jsr 85af ;jump14
2075 ; pos message & serial id
2076 90D1 F6 00 1F ... ldab 001f
2077 90D4 C4 02 .. andb #02
2078 90D6 27 14 '. beq 14
2079 90D8 CE 00 1F ... ldx #001f
2080 90DB 1D 00 02 ... bclr 00,x, #02
2081 90DE CE 00 19 ... ldx #0019
2082 90E1 1C 00 .. bset add,x 00,x
2083 90E3 80 7F .. suba #7f
2086 90E7 7F 00 0A ... clr 000a
2088 90EC F6 00 09 ... ldab 0009
2090 90F0 BD FE 32 ..2 jsr fe32 ;jump25
2091 90F3 91 0D 00 00 .... ; array data for jump25
2092 90F7 91 15 00 01 ....
2093 90FB 91 19 00 01 ....
2094 90FF 91 1E 00 01 ....
2095 9103 91 23 00 08 .#..
2096 9107 91 26 FF F5 .&..
2097 910B 00 00 .. ; end of array data
2098 910D CC B0 AD ... ldd #b0ad ; "PROGRAM ?"
2099 9110 BD C0 BA ... jsr c0ba ;display:
2101 9115 8D 16 .. bsr dest 16
2103 9119 BD 91 C6 ... jsr 91c6 ;jump76
2105 911E BD 92 5A ..Z jsr 925a ;jump149
2107 9123 BD 85 AF ... jsr 85af ;jump14
2108 9126 7F 00 09 ... clr 0009
2109 9129 7F 00 0A ... clr 000a
2112 912D F6 00 19 ... ldab 0019
2113 9130 2C 28 ,( bge 28
2114 9132 BD A9 CF ... jsr a9cf ;jump131
2115 9135 C6 50 .P ldab #50
2116 9137 F7 0A 90 ... stab 0a90
2117 913A C6 20 . ldab #20
2118 913C F7 0B 8D ... stab 0b8d
2119 913F C6 20 . ldab #20
2120 9141 F7 0B 8E ... stab 0b8e
2121 9144 C6 28 .( ldab #28
2122 9146 F7 0B 8F ... stab 0b8f
2123 9149 7F 00 54 ..T clr 0054
2124 914C 7F 00 60 ..` clr 0060
2125 914F CE 00 19 ... ldx #0019
2126 9152 1D 00 .. bclr add,x 00,x
2127 9154 80 7F .. suba #7f
2131 915A F6 00 0A ... ldab 000a
2133 915E BD FE 16 ... jsr fe16 ;jump2
2138 9165 91 C5 91 ... cmpa c5
2139 9168 7F 91 84 ... clr 9184
2140 916B 91 89 91 ... cmpa 89
2141 916E 8E 91 9F ... lds #919f
2142 9171 91 B0 91 ... cmpa b0
2143 9174 C5 91 .. bitb #91
2144 9176 C5 91 .. bitb #91
2145 9178 C5 91 .. bitb #91
2146 917A B5 91 BA ... bita 91ba
2147 917D 91 C2 BD ... cmpa c2
2148 9180 9D 7E 20 .~ jsr 7e
2150 9184 BD A8 64 ..d jsr a864 ;jump99
2152 9189 BD A8 D5 ... jsr a8d5 ;jump97
2154 918E BD A8 96 ... jsr a896 ;jump98
2155 9191 CE 00 1B ... ldx #001b
2156 9194 1C 00 10 ... bset 00,x, #10
2157 9197 CC 02 33 ..3 ldd #0233
2158 919A FD 00 3B ..; std 003b
2160 919F BD A8 E5 ... jsr a8e5 ;jump96
2161 91A2 CE 00 1B ... ldx #001b
2162 91A5 1C 00 10 ... bset 00,x, #10
2163 91A8 CC 02 33 ..3 ldd #0233
2164 91AB FD 00 3B ..; std 003b
2166 91B0 BD A9 21 ..! jsr a921 ;jump95
2168 91B5 BD A9 7A ..z jsr a97a ;jump132
2170 91BA BD A5 7D ..} jsr a57d ;jump139
2171 91BD BD 85 AF ... jsr 85af ;jump14
2173 91C2 BD 85 AF ... jsr 85af ;jump14
2177 91C6 F6 00 19 ... ldab 0019
2178 91C9 2C 28 ,( bge 28
2179 91CB BD AA 0A ... jsr aa0a ;jump130
2180 91CE C6 53 .S ldab #53 ; "S"
2181 91D0 F7 0A 90 ... stab 0a90
2182 91D3 C6 20 . ldab #20 ; " "
2183 91D5 F7 0A 9D ... stab 0a9d
2184 91D8 C6 20 . ldab #20 ; " "
2185 91DA F7 0A 9E ... stab 0a9e
2186 91DD C6 28 .( ldab #28 ; "("
2187 91DF F7 0A 9F ... stab 0a9f
2188 91E2 7F 00 54 ..T clr 0054
2189 91E5 7F 00 60 ..` clr 0060
2190 91E8 CE 00 19 ... ldx #0019
2191 91EB 1D 00 .. bclr add,x 00,x
2192 91ED 80 7F .. suba #7f
2196 91F3 F6 00 0A ... ldab 000a
2198 91F7 BD FE 16 ... jsr fe16 ;jump2
2213 9218 BD 9D 7E .. jsr 9d7e
2214 921B 20 3C .~ bra 3c
2215 921D BD A8 64 ..d jsr a864 ;jump99
2217 9222 BD A8 D5 ... jsr a8d5 ;jump97
2219 9227 BD A8 96 ... jsr a896 ;jump98
2220 922A CE 00 1B ... ldx #001b
2221 922D 1C 00 10 ... bset 00,x, #10
2222 9230 CC 02 33 ..3 ldd #0233
2223 9233 FD 00 3B ..; std 003b
2225 9238 BD A8 E5 ... jsr a8e5 ;jump96
2226 923B CE 00 1B ... ldx #001b
2227 923E 1C 00 10 ... bset 00,x, #10
2228 9241 CC 02 33 ..3 ldd #0233
2229 9244 FD 00 3B ..; std 003b
2231 9249 BD A9 21 ..! jsr a921 ;jump95
2233 924E BD A5 AC ... jsr a5ac ;jump138
2234 9251 BD 85 AF ... jsr 85af ;jump14
2236 9256 BD 85 AF ... jsr 85af ;jump14
2240 925A F6 00 19 ... ldab 0019
2241 925D 2C 28 ,( bge 28
2242 925F BD AA 3F ..? jsr aa3f ;jump129
2243 9262 C6 49 .I ldab #49
2244 9264 F7 0A 90 ... stab 0a90
2245 9267 C6 20 . ldab #20
2246 9269 F7 0A 9D ... stab 0a9d
2247 926C C6 20 . ldab #20
2248 926E F7 0A 9E ... stab 0a9e
2249 9271 C6 28 .( ldab #28
2250 9273 F7 0A 9F ... stab 0a9f
2251 9276 7F 00 54 ..T clr 0054
2252 9279 7F 00 60 ..` clr 0060
2253 927C CE 00 19 ... ldx #0019
2254 927F 1D 00 .. bclr add,x 00,x
2255 9281 80 7F .. suba #7f
2259 9287 F6 00 0A ... ldab 000a
2261 928B BD FE 16 ... jsr fe16 ;jump2
2266 9292 92 ED 92 ... sbca ed
2267 9295 AC 92 .. cpx 92,x
2268 9297 B1 92 B6 ... cmpa 92b6
2269 929A 92 BB 92 ... sbca bb
2270 929D CC 92 DD ... ldd #92dd
2271 92A0 92 ED 92 ... sbca ed
2272 92A3 ED 92 .. std 92,x
2273 92A5 ED 92 .. std 92,x
2274 92A7 ED 92 .. std 92,x
2275 92A9 E2 92 .. sbcb 92,x
2276 92AB EA BD .. orb bd,x
2277 92AD 9D 7E 20 .~ jsr 7e
2279 92B1 BD A8 64 ..d jsr a864 ;jump99
2281 92B6 BD A8 D5 ... jsr a8d5 ;jump97
2283 92BB BD A8 96 ... jsr a896 ;jump98
2284 92BE CE 00 1B ... ldx #001b
2285 92C1 1C 00 10 ... bset 00,x, #10
2286 92C4 CC 02 33 ..3 ldd #0233
2287 92C7 FD 00 3B ..; std 003b
2289 92CC BD A8 E5 ... jsr a8e5 ;jump96
2290 92CF CE 00 1B ... ldx #001b
2291 92D2 1C 00 10 ... bset 00,x, #10
2292 92D5 CC 02 33 ..3 ldd #0233
2293 92D8 FD 00 3B ..; std 003b
2295 92DD BD A9 21 ..! jsr a921 ;jump95
2297 92E2 BD A5 D5 ... jsr a5d5 ;jump137
2298 92E5 BD 85 AF ... jsr 85af ;jump14
2300 92EA BD 85 AF ... jsr 85af ;jump14
2305 92EE F6 0C DC ... ldab 0cdc
2309 92F4 CC 00 64 ..d ldd #0064
2310 92F7 BD FB BA ... jsr fbba ;jump38
2311 92FA FD 0C E9 ... std 0ce9
2312 92FD BD D6 F6 ... jsr d6f6 ;jump106
2313 9300 FC 0C E9 ... ldd 0ce9
2314 9303 F3 0B EF ... addd 0bef
2315 9306 FD 0C F1 ... std 0cf1
2316 9309 FE 0C F5 ... ldx 0cf5
2318 930D FC 0C F3 ... ldd 0cf3
2321 9312 FE 0C F9 ... ldx 0cf9
2323 9316 FC 0C F7 ... ldd 0cf7
2324 9319 BD FC 25 ..% jsr fc25 ;jump85
2327 931E FE 0C FD ... ldx 0cfd
2329 9322 FC 0C FB ... ldd 0cfb
2330 9325 BD FC 25 ..% jsr fc25 ;jump85
2333 932A FE 0D 01 ... ldx 0d01
2335 932E FC 0C FF ... ldd 0cff
2336 9331 BD FC 25 ..% jsr fc25 ;jump85
2339 9336 FE 0D 05 ... ldx 0d05
2341 933A FC 0D 03 ... ldd 0d03
2342 933D BD FC 25 ..% jsr fc25 ;jump85
2343 9340 FD 0D F3 ... std 0df3
2346 9345 FD 0D F5 ... std 0df5
2347 9348 FE 0D F9 ... ldx 0df9
2349 934C FC 0D F7 ... ldd 0df7
2352 9351 FE 0D F5 ... ldx 0df5
2354 9355 FC 0D F3 ... ldd 0df3
2355 9358 BD FC 25 ..% jsr fc25 ;jump85
2356 935B FD 0D EF ... std 0def
2359 9360 FD 0D F1 ... std 0df1
2360 9363 F6 20 00 . . ldab 2000
2361 9366 C4 40 .@ andb #40
2362 9368 27 37 '7 beq 37
2363 936A F6 00 1F ... ldab 001f
2364 936D C4 02 .. andb #02
2365 936F 27 1F '. beq 1f
2366 9371 BD 97 E9 ... jsr 97e9 ;jump147
2367 9374 CE 00 1F ... ldx #001f
2368 9377 1D 00 02 ... bclr 00,x, #02
2369 937A CE 00 1F ... ldx #001f
2370 937D 1D 00 10 ... bclr 00,x, #10
2371 9380 CC 02 33 ..3 ldd #0233
2372 9383 FD 00 3B ..; std 003b
2373 9386 7F 00 09 ... clr 0009
2374 9389 C6 92 .. ldab #92
2375 938B F7 00 48 ..H stab 0048
2377 9390 F6 00 19 ... ldab 0019
2378 9393 C4 40 .@ andb #40
2379 9395 26 05 &. bne 05
2380 9397 BD 98 BF ... jsr 98bf ;jump146
2382 939C BD 85 AF ... jsr 85af ;jump14
2384 93A1 BD 98 FF ... jsr 98ff ;jump145
2388 ; program security code menu
2389 93A5 F6 00 1F ... ldab 001f
2390 93A8 C4 02 .. andb #02
2391 93AA 26 0A &. bne 0a
2392 93AC F6 00 3A ..: ldab 003a
2393 93AF 26 2B &+ bne 2b
2394 93B1 F6 00 1D ... ldab 001d
2395 93B4 2D 26 -& blt 26
2396 93B6 CC AF BB ... ldd #afbb ;"ENTER CODE"
2397 93B9 BD C0 BA ... jsr c0ba ;display:
2398 93BC CE 00 1F ... ldx #001f
2399 93BF 1D 00 02 ... bclr 00,x, #02
2400 93C2 CE 00 1D ... ldx #001d
2401 93C5 1D 00 .. bclr add,x 00,x
2402 93C7 80 C6 .. suba #c6
2404 93CA F7 00 3A ..: stab 003a
2405 93CD F6 0B A8 ... ldab 0ba8
2406 93D0 F7 00 66 ..f stab 0066
2407 93D3 BD AA 74 ..t jsr aa74 ;jump128
2408 93D6 7F 00 48 ..H clr 0048
2409 93D9 7F 00 54 ..T clr 0054
2410 93DC F6 00 09 ... ldab 0009
2411 93DF 26 03 &. bne 03
2412 93E1 7E 94 92 ~.. jmp 9492 ;goto14
2413 93E4 F6 00 1D ... ldab 001d
2414 93E7 2C 03 ,. bge 03
2415 93E9 7E 94 92 ~.. jmp 9492 ;goto14
2416 93EC F6 00 09 ... ldab 0009
2417 93EF C1 0B .. cmpb #0b
2418 93F1 26 06 &. bne 06
2419 93F3 BD 85 AF ... jsr 85af ;jump14
2420 93F6 7E 94 90 ~.. jmp 9490 ;goto15
2421 93F9 F6 00 09 ... ldab 0009
2422 93FC C1 0A .. cmpb #0a
2423 93FE 26 03 &. bne 03
2424 9400 7F 00 09 ... clr 0009
2425 9403 F6 00 09 ... ldab 0009
2426 9406 CB 30 .0 addb #30
2428 9409 F6 00 54 ..T ldab 0054
2430 940D C3 00 62 ..b addd #0062
2433 9412 E7 00 .. stab 00,x
2434 9414 BD BE 4B ..K jsr be4b ;displayblank
2435 9417 F6 00 54 ..T ldab 0054
2436 941A 26 06 &. bne 06
2437 941C F6 00 62 ..b ldab 0062
2438 941F F7 0B 96 ... stab 0b96
2439 9422 F6 00 54 ..T ldab 0054
2440 9425 C1 01 .. cmpb #01
2441 9427 26 0C &. bne 0c
2442 9429 F6 00 62 ..b ldab 0062
2443 942C F7 0B 96 ... stab 0b96
2444 942F F6 00 63 ..c ldab 0063
2445 9432 F7 0B 95 ... stab 0b95
2446 9435 F6 00 54 ..T ldab 0054
2447 9438 C1 02 .. cmpb #02
2448 943A 26 12 &. bne 12
2449 943C F6 00 62 ..b ldab 0062
2450 943F F7 0B 96 ... stab 0b96
2451 9442 F6 00 63 ..c ldab 0063
2452 9445 F7 0B 95 ... stab 0b95
2453 9448 F6 00 64 ..d ldab 0064
2454 944B F7 0B 94 ... stab 0b94
2455 944E F6 00 54 ..T ldab 0054
2456 9451 C1 03 .. cmpb #03
2457 9453 26 18 &. bne 18
2458 9455 F6 00 62 ..b ldab 0062
2459 9458 F7 0B 96 ... stab 0b96
2460 945B F6 00 63 ..c ldab 0063
2461 945E F7 0B 95 ... stab 0b95
2462 9461 F6 00 64 ..d ldab 0064
2463 9464 F7 0B 94 ... stab 0b94
2464 9467 F6 00 65 ..e ldab 0065
2465 946A F7 0B 93 ... stab 0b93
2466 946D BD BE 01 ... jsr be01 ;jump70
2467 9470 7C 00 54 |.T inc 0054
2468 9473 F6 00 54 ..T ldab 0054
2469 9476 C1 04 .. cmpb #04
2470 9478 26 0B &. bne 0b
2471 947A CE 00 1D ... ldx #001d
2472 947D 1C 00 .. bset add,x 00,x
2473 947F 80 BD .. suba #bd
2474 9481 A8 0F .. eora 0f,x
2476 9485 CE 00 1D ... ldx #001d
2477 9488 1D 00 .. bclr add,x 00,x
2478 948A 80 C6 .. suba #c6
2480 948D F7 00 3A ..: stab 003a
2484 9492 F6 00 1D ... ldab 001d
2485 9495 2C 45 ,E bge 45
2486 9497 F6 00 09 ... ldab 0009
2488 949B BD FE 32 ..2 jsr fe32 ;jump25
2489 949E 94 B8 00 00 .... ; array data for jump25
2490 94A2 94 BD 00 01 ....
2491 94A6 94 C2 00 04 ....
2492 94AA 94 D1 00 05 ....
2493 94AE 94 D9 00 01 ....
2494 94B2 94 DC FF F5 ....
2495 94B6 00 00 .. ; end of array data
2496 94B8 BD 9E 0F ... jsr 9e0f ;jump142
2498 94BD BD A7 1F ... jsr a71f ;jump134
2500 94C2 7C 00 48 |.H inc 0048
2501 94C5 F6 00 48 ..H ldab 0048
2502 94C8 C1 0A .. cmpb #0a
2503 94CA 23 03 #. bls 03
2504 94CC 7F 00 48 ..H clr 0048
2506 94D1 BD A5 FE ... jsr a5fe ;jump136
2507 94D4 BD 85 AF ... jsr 85af ;jump14
2509 94D9 BD 85 AF ... jsr 85af ;jump14
2513 ; motor functions menu
2514 94DD F6 00 1F ... ldab 001f
2515 94E0 C4 02 .. andb #02
2516 94E2 27 14 '. beq 14
2517 94E4 CE 00 1F ... ldx #001f
2518 94E7 1D 00 02 ... bclr 00,x, #02
2519 94EA CE 00 19 ... ldx #0019
2520 94ED 1C 00 80 .. bset 00,x, #80
2521 94EF 7F 00 09 .. clr 0009
2522 94F3 7F 00 0A ... clr 000a
2524 94F8 F6 00 09 ... ldab 0009
2526 94FC BD FE 32 ..2 jsr fe32 ;jump25
2527 94FF 95 19 00 00 .... ; no key
2528 9503 95 21 00 01 .!.. ; key 1 - motor count procedure
2529 9507 95 2C 00 01 .,.. ; key 2 - single test vend
2530 950B 95 30 00 01 .0.. ; key 3 - test vend everything
2531 950F 95 35 00 08 .5.. ; reset
2532 9513 95 38 FF F5 .8..
2533 9517 00 00 .. ; end of array data
2534 9519 CC B0 A2 ... ldd #b0a2 ; "MTR FUNCT?"
2535 951C BD C0 BA ... jsr c0ba ;display:
2537 9521 BD 87 E9 ... jsr 87e9 ;jump74 - motor count procedure
2538 9524 CE 00 1F ... ldx #001f
2539 9527 1C 00 02 ... bset 00,x, #02
2541 952C 8D 11 .. bsr dest 11 ;jump203 - test single vend
2543 9530 BD 96 88 ... jsr 9688 ;jump148 - test all vends
2545 9535 BD 85 AF ... jsr 85af ;jump14
2546 9538 7F 00 09 ... clr 0009
2547 953B 7F 00 0A ... clr 000a
2551 ; test a single vend
2552 953F F6 00 19 ... ldab 0019
2553 9542 2D 0A -. blt 0a
2554 9544 F6 00 3A ..: ldab 003a
2555 9547 26 22 &" bne 22
2556 9549 F6 00 1D ... ldab 001d
2557 954C 2D 1D -. blt 1d
2558 954E 7F 00 2C .., clr 002c
2559 9551 CC B0 B8 ... ldd #b0b8 ; "SELECTION?"
2560 9554 BD C0 BA ... jsr c0ba ;display:
2561 9557 CE 00 19 ... ldx #0019
2562 955A 1D 00 .. bclr add,x 00,x
2563 955C 80 CE .. suba #ce
2565 955F 1D 1D 00 ... bclr 1d,x, #00
2566 9562 80 7F .. suba #7f
2569 9566 C6 32 .2 ldab #32
2570 9568 F7 00 3A ..: stab 003a
2571 956B F6 00 0A ... ldab 000a
2572 956E 26 03 &. bne 03
2573 9570 7E 96 5C ~.\ jmp 965c ;goto16
2574 9573 F6 00 1D ... ldab 001d
2575 9576 2C 03 ,. bge 03
2576 9578 7E 96 5C ~.\ jmp 965c ;goto16
2577 957B F6 00 0A ... ldab 000a
2578 957E C1 0B .. cmpb #0b
2579 9580 26 09 &. bne 09
2580 9582 CE 00 1F ... ldx #001f
2581 9585 1C 00 02 ... bset 00,x, #02
2582 9588 7E 96 5A ~.Z jmp 965a ;goto93
2583 958B F6 00 54 ..T ldab 0054
2584 958E 26 26 && bne 26
2585 9590 BD BE 4B ..K jsr be4b ;displayblank
2586 9593 F6 00 0A ... ldab 000a
2587 9596 C1 0A .. cmpb #0a
2588 9598 26 03 &. bne 03
2589 959A 7F 00 0A ... clr 000a
2590 959D F6 00 0A ... ldab 000a
2591 95A0 CB 30 .0 addb #30
2593 95A3 CC 0B 95 ... ldd #0b95
2594 95A6 F0 00 54 ..T subb 0054
2595 95A9 82 00 .. sbca #00
2598 95AD E7 00 .. stab 00,x
2599 95AF C6 32 .2 ldab #32
2600 95B1 F7 00 3A ..: stab 003a
2602 95B6 F6 00 54 ..T ldab 0054
2603 95B9 C1 01 .. cmpb #01
2604 95BB 26 27 &' bne 27
2605 95BD F6 00 0A ... ldab 000a
2606 95C0 C1 05 .. cmpb #05
2608 95C4 F6 00 0A ... ldab 000a
2609 95C7 C1 0A .. cmpb #0a
2610 95C9 27 19 '. beq 19
2611 95CB F6 00 0A ... ldab 000a
2612 95CE CB 30 .0 addb #30
2614 95D1 CC 0B 95 ... ldd #0b95
2615 95D4 F0 00 54 ..T subb 0054
2616 95D7 82 00 .. sbca #00
2619 95DB E7 00 .. stab 00,x
2620 95DD C6 32 .2 ldab #32
2621 95DF F7 00 3A ..: stab 003a
2623 95E4 CE 00 19 ... ldx #0019
2624 95E7 1C 00 .. bset add,x 00,x
2625 95E9 80 7F .. suba #7f
2628 95ED BD BE 01 ... jsr be01 ;jump70
2629 95F0 7C 00 54 |.T inc 0054
2630 95F3 F6 00 54 ..T ldab 0054
2631 95F6 C1 02 .. cmpb #02
2632 95F8 26 5A &Z bne 5a
2633 95FA CE 00 1D ... ldx #001d
2634 95FD 1C 00 .. bset add,x 00,x
2635 95FF 80 F6 .. suba #f6
2637 9602 94 CB D0 ... anda cb
2639 9606 F6 0B 95 ... ldab 0b95
2640 9609 CB D0 .. addb #d0
2641 960B 86 0A .. ldaa #0a
2644 960F EB 00 .. addb 00,x
2646 9612 F7 00 06 ... stab 0006
2647 9615 C6 32 .2 ldab #32
2648 9617 F7 00 3A ..: stab 003a
2649 961A F6 00 06 ... ldab 0006
2650 961D BD D7 A0 ... jsr d7a0 ;is_invalid_slot
2651 9620 83 00 00 ... subd #0000
2652 9623 26 21 &! bne 21
2653 9625 BD D3 11 ... jsr d311 ;jump30 - test position exists
2654 9628 83 00 00 ... subd #0000
2655 962B 26 0B &. bne 0b
2656 962D CE 00 1F ... ldx #001f
2657 9630 1C 00 40 ... bset 00,x, #40
2658 9633 BD 8C 73 ..s jsr 8c73 ;jump75
2660 9638 CE 00 1F ... ldx #001f
2661 963B 1D 00 40 ... bclr 00,x, #40
2662 963E 7F 00 2C .., clr 002c
2663 9641 BD 9A 47 ..G jsr 9a47 ;jump39
2665 9646 CE 00 1D ... ldx #001d
2666 9649 1D 00 .. bclr add,x 00,x
2667 964B 80 CE .. suba #ce
2670 964F 1C 00 .. bset add,x 00,x
2671 9651 80 20 . suba #20
2673 9654 CE 00 1D ... ldx #001d
2674 9657 1D 00 .. bclr add,x 00,x
2675 9659 80 20 . suba #20
2677 965B 2B F6 +. bmi f6
2681 965E 1D 2C ., bclr add,x 2c,x
2682 9660 26 BD &. bne bd
2683 9662 D2 13 83 ... sbcb 13
2686 9667 26 0F &. bne 0f
2687 9669 CC 00 64 ..d ldd #0064
2688 966C BD E5 71 ..q jsr e571 ;msdelay
2689 966F BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
2690 9672 CC 03 84 ... ldd #0384
2691 9675 BD E5 71 ..q jsr e571 ;msdelay
2692 9678 7F 00 2E ... clr 002e
2693 967B CE 00 1D ... ldx #001d
2694 967E 1D 00 .. bclr add,x 00,x
2695 9680 80 CE .. suba #ce
2697 9683 1F 1C 00 02 .... brclr 1c,x 00 02
2703 9689 F6 00 19 ... ldab 0019
2704 968C 2C 19 ,. bge 19
2705 968E CE 00 19 ... ldx #0019
2706 9691 1D 00 80 .. bclr 00,x, #80
2707 9694 CC B0 97 ... ldd #b097 ; "TEST VEND"
2708 9697 BD C0 BA ... jsr c0ba ; display
2709 969A C6 0A .. ldab #0a
2710 969C F7 00 38 ..8 stab 0038
2711 969F 7F 00 05 ... clr 0005
2712 96A2 C6 01 .. ldab #01
2713 96A4 F7 00 06 ... stab 0006
2714 96A7 F6 00 0A ... ldab 000a
2715 96AA C1 0B .. cmpb #0b
2716 96AC 26 0C &. bne 0c ; to 96ba
2717 96AE CC 02 33 ..3 ldd #0233
2718 96B1 FD 00 3B ..; std 003b
2719 96B4 CE 00 1F ... ldx #001f
2720 96B7 1C 00 02 ... bset 00,x, #02
2721 96BA F6 00 38 ..8 ldab 0038
2722 96BD 27 03 '. beq 03
2723 96BF 7E 97 6D ~.m jmp 976d ;goto17 - return
2724 96C2 F6 00 06 ... ldab 0006
2725 96C5 C1 63 .c cmpb #63 ; exit if >63
2726 96C7 23 03 #. bls 03
2727 96C9 7E 97 6D ~.m jmp 976d ;goto17 - return
2728 96CC F6 00 06 ... ldab 0006
2729 96CF C1 63 .c cmpb #63
2730 96D1 26 0F &. bne 0f
2731 96D3 BD 99 C3 ... jsr 99c3 ;jump143 - write "VENDS XXX" (from 0005)
2732 96D6 CC 07 D0 ... ldd #07d0 ; 2000
2733 96D9 BD E5 71 ..q jsr e571 ;msdelay
2734 96DC CE 00 1F ... ldx #001f
2735 96DF 1C 00 02 ... bset 00,x, #02
2736 96E2 BD D3 11 ... jsr d311 ;jump30 - test position exists
2737 96E5 83 00 00 ... subd #0000
2738 96E8 26 0B &. bne 0b
2739 96EA CE 00 1F ... ldx #001f
2740 96ED 1C 00 40 ... bset 00,x, #40
2741 96F0 BD 8C 73 ..s jsr 8c73 ;jump75
2743 96F5 CE 00 1F ... ldx #001f
2744 96F8 1D 00 40 ... bclr 00,x, #40
2745 96FB BD 9A 47 ..G jsr 9a47 ;jump39
2746 96FE F6 00 06 ... ldab 0006
2747 9701 C1 63 .c cmpb #63
2748 9703 26 03 &. bne 03
2749 9705 7F 00 2C .., clr 002c
2750 9708 BD D2 13 ... jsr d213 ;jump45
2751 970B 83 00 00 ... subd #0000
2752 970E 27 03 '. beq 03
2753 9710 7C 00 05 |.. inc 0005
2754 9713 7F 00 2E ... clr 002e
2755 9716 C6 05 .. ldab #05
2756 9718 F7 00 38 ..8 stab 0038
2757 971B CC 02 33 ..3 ldd #0233
2758 971E FD 00 3B ..; std 003b
2760 9722 6F 00 o. clr 00,x
2761 9724 F6 0E 6D ..m ldab 0e6d
2762 9727 27 0C '. beq 0c
2763 9729 F6 00 06 ... ldab 0006
2764 972C C1 3E .> cmpb #3e
2765 972E 26 05 &. bne 05
2766 9730 C6 01 .. ldab #01
2768 9733 E7 00 .. stab 00,x
2769 9735 8D 38 .8 bsr dest 38
2770 9737 F6 0E 6D ..m ldab 0e6d
2771 973A 27 0C '. beq 0c
2773 973D E6 00 .. ldab 00,x
2774 973F C1 01 .. cmpb #01
2775 9741 26 05 &. bne 05
2776 9743 C6 45 .E ldab #45
2777 9745 F7 00 06 ... stab 0006
2778 9748 F6 00 06 ... ldab 0006
2779 974B BD D7 A0 ... jsr d7a0 ;is_invalid_slot
2780 974E 83 00 00 ... subd #0000
2781 9751 27 15 '. beq 15
2782 9753 F6 00 06 ... ldab 0006
2783 9756 C1 09 .. cmpb #09
2784 9758 26 02 &. bne 02
2785 975A 8D 13 .. bsr dest 13
2786 975C F6 00 06 ... ldab 0006
2787 975F C1 45 .E cmpb #45
2788 9761 26 05 &. bne 05
2789 9763 C6 63 .c ldab #63
2790 9765 F7 00 06 ... stab 0006
2793 976A FD 00 40 ..@ std 0040
2799 976F F6 0E 6D ..m ldab 0e6d
2800 9772 C1 01 .. cmpb #01
2801 9774 26 41 &A bne 41
2802 9776 F6 00 06 ... ldab 0006
2804 977A CE 00 0A ... ldx #000a
2806 977E C1 01 .. cmpb #01
2807 9780 26 05 &. bne 05
2808 9782 7C 00 06 |.. inc 0006
2810 9787 F6 00 06 ... ldab 0006
2812 978B CE 00 0A ... ldx #000a
2814 978F C1 02 .. cmpb #02
2815 9791 26 0A &. bne 0a
2816 9793 C6 09 .. ldab #09
2817 9795 FB 00 06 ... addb 0006
2818 9798 F7 00 06 ... stab 0006
2820 979D C6 0B .. ldab #0b
2821 979F F7 00 06 ... stab 0006
2822 97A2 F6 00 06 ... ldab 0006
2823 97A5 C1 3E .> cmpb #3e
2824 97A7 22 07 ". bhi 07
2825 97A9 F6 00 06 ... ldab 0006
2826 97AC C1 0B .. cmpb #0b
2827 97AE 24 05 $. bcc 05
2828 97B0 C6 0B .. ldab #0b
2829 97B2 F7 00 06 ... stab 0006
2831 97B7 F6 00 06 ... ldab 0006
2832 97BA CB 0A .. addb #0a
2833 97BC F7 00 06 ... stab 0006
2834 97BF F6 00 06 ... ldab 0006
2835 97C2 C1 64 .d cmpb #64
2836 97C4 23 22 #" bls 22
2837 97C6 F6 00 06 ... ldab 0006
2838 97C9 CB 9C .. addb #9c
2839 97CB CB 01 .. addb #01
2840 97CD F7 00 06 ... stab 0006
2841 97D0 F6 00 06 ... ldab 0006
2842 97D3 C1 05 .. cmpb #05
2843 97D5 26 05 &. bne 05
2844 97D7 C6 06 .. ldab #06
2845 97D9 F7 00 06 ... stab 0006
2846 97DC F6 00 06 ... ldab 0006
2847 97DF C1 0A .. cmpb #0a
2848 97E1 26 05 &. bne 05
2849 97E3 C6 01 .. ldab #01
2850 97E5 F7 00 06 ... stab 0006
2854 97E9 BD BE 4B ..K jsr be4b ;displayblank
2855 97EC CC AF E7 ... ldd #afe7 ; "-PRINTING-"
2856 97EF BD C0 BA ... jsr c0ba ;display:
2857 97F2 BD F4 15 ... jsr f415 ;jump112
2861 97F6 BD BE 4B ..K jsr be4b ;displayblank
2862 97F9 F6 00 48 ..H ldab 0048
2864 97FD BD FE 16 ... jsr fe16 ;jump2
2865 9800 00 01 00 03 . test
2871 980E F6 0C D9 .. ldab 0cd9
2873 9812 BD E7 95 ... jsr e795 ;jump54 - number to string
2874 9815 C6 4E .N ldab #4e
2875 9817 F7 0B 99 ... stab 0b99
2876 981A C6 49 .I ldab #49
2877 981C F7 0B 98 ... stab 0b98
2878 981F C6 4B .K ldab #4b
2879 9821 F7 0B 97 ... stab 0b97
2880 9824 C6 4C .L ldab #4c
2881 9826 F7 0B 96 ... stab 0b96
2883 982B F6 0C DA ... ldab 0cda
2885 982F BD E7 95 ... jsr e795 ;jump54 - number to string
2886 9832 C6 44 .D ldab #44
2887 9834 F7 0B 99 ... stab 0b99
2888 9837 C6 49 .I ldab #49
2889 9839 F7 0B 98 ... stab 0b98
2890 983C C6 4D .M ldab #4d
2891 983E F7 0B 97 ... stab 0b97
2892 9841 C6 45 .E ldab #45
2893 9843 F7 0B 96 ... stab 0b96
2895 9848 F6 0C DB ... ldab 0cdb
2897 984C BD E7 95 ... jsr e795 ;jump54 - number to string
2898 984F C6 51 .Q ldab #51
2899 9851 F7 0B 99 ... stab 0b99
2900 9854 C6 55 .U ldab #55
2901 9856 F7 0B 98 ... stab 0b98
2902 9859 C6 54 .T ldab #54
2903 985B F7 0B 97 ... stab 0b97
2904 985E C6 52 .R ldab #52
2905 9860 F7 0B 96 ... stab 0b96
2907 9865 F6 0C DC ... ldab 0cdc
2909 9869 BD E7 95 ... jsr e795 ;jump54 - number to string
2910 986C C6 44 .D ldab #44 ; "D"
2911 986E F7 0B 99 ... stab 0b99
2912 9871 C6 4F .O ldab #4f ; "O"
2913 9873 F7 0B 98 ... stab 0b98
2914 9876 C6 4C .L ldab #4c ; "L"
2915 9878 F7 0B 97 ... stab 0b97
2916 987B C6 52 .R ldab #52 ; "R"
2917 987D F7 0B 96 ... stab 0b96
2918 9880 C6 53 .S ldab #53 ; "S"
2919 9882 F7 0B 95 ... stab 0b95
2920 9885 C6 20 . ldab #20 ; " "
2921 9887 F7 0B 94 ... stab 0b94
2922 988A C6 20 . ldab #20 ; " "
2923 988C F7 0B 93 ... stab 0b93
2924 988F F6 00 5D ..] ldab 005d
2925 9892 F7 0B 92 ... stab 0b92
2926 9895 F6 00 5E ..^ ldab 005e ; row number?
2927 9898 F7 0B 91 ... stab 0b91
2928 989B F6 00 5F .._ ldab 005f ; column number?
2929 989E F7 0B 90 ... stab 0b90
2930 98A1 BD BE 01 ... jsr be01 ;jump70 - to disp buffer
2934 ; prints contents of 0054 to display
2935 98A5 BD BE 4B ..K jsr be4b ;displayblank
2936 98A8 F6 00 54 ..T ldab 0054
2938 98AC BD E7 95 ... jsr e795 ; slot number to digits
2939 98AF F6 00 5E ..^ ldab 005e
2940 98B2 F7 0B 95 ... stab 0b95
2941 98B5 F6 00 5F .._ ldab 005f
2942 98B8 F7 0B 94 ... stab 0b94
2943 98BB BD BE 01 ... jsr be01 ;jump70 - write to display
2947 98BF F6 00 09 ... ldab 0009
2948 98C2 C1 00 .. cmpb #00
2949 98C4 26 05 &. bne 05
2950 98C6 BD 9E 89 ... jsr 9e89 ;jump100
2952 98CB C1 01 .. cmpb #01
2953 98CD 26 1E &. bne 1e
2954 98CF F6 00 48 ..H ldab 0048
2955 98D2 C1 92 .. cmpb #92
2956 98D4 26 15 &. bne 15
2957 98D6 F6 00 1F ... ldab 001f
2958 98D9 C4 10 .. andb #10
2959 98DB 26 08 &. bne 08
2960 98DD CE 00 1F ... ldx #001f
2961 98E0 1C 00 10 ... bset 00,x, #10
2963 98E5 CE 00 1F ... ldx #001f
2964 98E8 1D 00 10 ... bclr 00,x, #10
2966 98ED C1 0B .. cmpb #0b
2967 98EF 26 0D &. bne 0d
2968 98F1 F6 00 1F ... ldab 001f
2969 98F4 C4 10 .. andb #10
2970 98F6 27 03 '. beq 03
2971 98F8 BD E9 2B ..+ jsr e92b ;jump103
2972 98FB BD 85 AF ... jsr 85af ;jump14
2976 98FF F6 00 1F ... ldab 001f
2977 9902 C4 02 .. andb #02
2978 9904 27 13 '. beq 13
2979 9906 C6 01 .. ldab #01
2980 9908 F7 00 48 ..H stab 0048
2981 990B CE 00 1F ... ldx #001f
2982 990E 1D 00 10 ... bclr 00,x, #10
2983 9911 CE 00 1F ... ldx #001f
2984 9914 1D 00 02 ... bclr 00,x, #02
2986 9919 F6 00 09 ... ldab 0009
2988 991D BD FE 32 ..2 jsr fe32 ;jump25
2989 9920 99 36 00 00 .6.. ; array data for jump25
2990 9924 99 3B 00 01 .;..
2991 9928 99 59 00 09 .Y..
2992 992C 99 73 00 01 .s..
2993 9930 99 80 FF F5 ....
2994 9934 00 00 .. ; end of array data
2995 9936 BD 9E 89 ... jsr 9e89 ;jump100
2997 993B F6 00 48 ..H ldab 0048
2998 993E C1 92 .. cmpb #92
2999 9940 26 15 &. bne 15
3000 9942 F6 00 1F ... ldab 001f
3001 9945 C4 10 .. andb #10
3002 9947 26 08 &. bne 08
3003 9949 CE 00 1F ... ldx #001f
3004 994C 1C 00 10 ... bset 00,x, #10
3006 9951 CE 00 1F ... ldx #001f
3007 9954 1D 00 10 ... bclr 00,x, #10
3009 9959 7C 00 48 |.H inc 0048
3010 995C F6 00 48 ..H ldab 0048
3011 995F C1 92 .. cmpb #92
3012 9961 23 0B #. bls 0b
3013 9963 C6 01 .. ldab #01
3014 9965 F7 00 48 ..H stab 0048
3015 9968 CE 00 1F ... ldx #001f
3016 996B 1D 00 10 ... bclr 00,x, #10
3017 996E BD 9E 89 ... jsr 9e89 ;jump100
3019 9973 F6 00 1F ... ldab 001f
3020 9976 C4 10 .. andb #10
3021 9978 27 03 '. beq 03
3022 997A BD E9 2B ..+ jsr e92b ;jump103
3023 997D BD 85 AF ... jsr 85af ;jump14
3027 ; writes "MOTORS XX" where XX is the slot number in 0005
3028 9981 BD BE 4B ..K jsr be4b ;displayblank
3029 9984 F6 00 05 ... ldab 0005
3031 9988 BD E7 95 ... jsr e795 ;jump54 - number to string
3032 998B C6 4D .M ldab #4d ; "M"
3033 998D F7 0B 99 ... stab 0b99
3034 9990 C6 4F .O ldab #4f ; "O"
3035 9992 F7 0B 98 ... stab 0b98
3036 9995 C6 54 .T ldab #54 ; "T"
3037 9997 F7 0B 97 ... stab 0b97
3038 999A C6 4F .O ldab #4f ; "O"
3039 999C F7 0B 96 ... stab 0b96
3040 999F C6 52 .R ldab #52 ; "R"
3041 99A1 F7 0B 95 ... stab 0b95
3042 99A4 C6 53 .S ldab #53 ; "S"
3043 99A6 F7 0B 94 ... stab 0b94
3044 99A9 C6 20 . ldab #20 ; " "
3045 99AB F7 0B 93 ... stab 0b93
3046 99AE C6 20 . ldab #20 ; " "
3047 99B0 F7 0B 92 ... stab 0b92
3048 99B3 F6 00 5E ..^ ldab 005e
3049 99B6 F7 0B 91 ... stab 0b91
3050 99B9 F6 00 5F .._ ldab 005f
3051 99BC F7 0B 90 ... stab 0b90
3052 99BF BD BE 01 ... jsr be01 ;jump70 - display
3056 ; writes VENDS XX where XX is contents of 0005
3057 99C3 BD BE 4B ..K jsr be4b ;displayblank
3058 99C6 F6 00 05 ... ldab 0005
3060 99CA BD E7 95 ... jsr e795 ;jump54 - number to string
3061 99CD C6 56 .V ldab #56 ; "V"
3062 99CF F7 0B 99 ... stab 0b99
3063 99D2 C6 45 .E ldab #45 ; "E"
3064 99D4 F7 0B 98 ... stab 0b98
3065 99D7 C6 4E .N ldab #4e ; "N"
3066 99D9 F7 0B 97 ... stab 0b97
3067 99DC C6 44 .D ldab #44 ; "D"
3068 99DE F7 0B 96 ... stab 0b96
3069 99E1 C6 53 .S ldab #53 ; "S"
3070 99E3 F7 0B 95 ... stab 0b95
3071 99E6 C6 20 . ldab #20 ; " "
3072 99E8 F7 0B 94 ... stab 0b94
3073 99EB C6 20 . ldab #20 ; " "
3074 99ED F7 0B 93 ... stab 0b93
3075 99F0 C6 20 . ldab #20 ; " "
3076 99F2 F7 0B 92 ... stab 0b92
3077 99F5 F6 00 5E ..^ ldab 005e
3078 99F8 F7 0B 91 ... stab 0b91
3079 99FB F6 00 5F .._ ldab 005f
3080 99FE F7 0B 90 ... stab 0b90
3081 9A01 BD BE 01 ... jsr be01 ;jump70
3085 9A05 BD BE 4B ..K jsr be4b ;displayblank
3086 9A08 FC 00 52 ..R ldd 0052
3087 9A0B BD E7 45 ..E jsr e745 ;jump55 - number to string
3088 9A0E C6 4F .O ldab #4f ; "O"
3089 9A10 F7 0B 99 ... stab 0b99
3090 9A13 C6 44 .D ldab #44 ; "D"
3091 9A15 F7 0B 98 ... stab 0b98
3092 9A18 C6 44 .D ldab #44 ; "D"
3093 9A1A F7 0B 97 ... stab 0b97
3094 9A1D C6 53 .S ldab #53 ; "S"
3095 9A1F F7 0B 96 ... stab 0b96
3096 9A22 C6 20 . ldab #20 ; " "
3097 9A24 F7 0B 95 ... stab 0b95
3098 9A27 C6 31 .1 ldab #31 ; "1"
3099 9A29 F7 0B 94 ... stab 0b94
3100 9A2C C6 2F ./ ldab #2f ; "/"
3101 9A2E F7 0B 93 ... stab 0b93
3102 9A31 F6 00 5D ..] ldab 005d
3103 9A34 F7 0B 92 ... stab 0b92
3104 9A37 F6 00 5E ..^ ldab 005e
3105 9A3A F7 0B 91 ... stab 0b91
3106 9A3D F6 00 5F .._ ldab 005f
3107 9A40 F7 0B 90 ... stab 0b90
3108 9A43 BD BE 01 ... jsr be01 ;jump70
3112 9A47 BD BE 4B ..K jsr be4b ;displayblank
3113 9A4A F6 00 06 ... ldab 0006
3115 9A4E BD E7 95 ... jsr e795 ;jump54 - number to string
3116 9A51 F6 00 5E ..^ ldab 005e
3117 9A54 F7 0B 99 ... stab 0b99
3118 9A57 F6 00 5F .._ ldab 005f
3119 9A5A F7 0B 98 ... stab 0b98
3120 9A5D C6 20 . ldab #20
3121 9A5F F7 0B 97 ... stab 0b97
3122 9A62 F6 00 1F ... ldab 001f
3123 9A65 C4 40 .@ andb #40
3124 9A67 27 45 'E beq 45
3125 9A69 FC 00 27 ..' ldd 0027
3126 9A6C BD E7 45 ..E jsr e745 ;jump55 - number to string
3127 9A6F F6 00 5A ..Z ldab 005a
3128 9A72 F7 0B 96 ... stab 0b96
3129 9A75 F6 00 5D ..] ldab 005d
3130 9A78 F7 0B 95 ... stab 0b95
3131 9A7B F6 00 5E ..^ ldab 005e
3132 9A7E F7 0B 94 ... stab 0b94
3133 9A81 F6 00 5F .._ ldab 005f
3134 9A84 F7 0B 93 ... stab 0b93
3135 9A87 F6 00 19 ... ldab 0019
3136 9A8A C4 10 .. andb #10
3137 9A8C 27 07 '. beq 07
3138 9A8E C6 2A .* ldab #2a
3139 9A90 F7 0B 92 ... stab 0b92
3141 9A95 C6 20 . ldab #20
3142 9A97 F7 0B 92 ... stab 0b92
3143 9A9A FC 00 46 ..F ldd 0046
3144 9A9D BD E7 45 ..E jsr e745 ;jump55 - number to string
3145 9AA0 F6 00 5E ..^ ldab 005e
3146 9AA3 F7 0B 91 ... stab 0b91
3147 9AA6 F6 00 5F .._ ldab 005f
3148 9AA9 F7 0B 90 ... stab 0b90
3150 9AAE C6 58 .X ldab #58 : "X"
3151 9AB0 F7 0B 96 ... stab 0b96
3152 9AB3 C6 58 .X ldab #58 : "X"
3153 9AB5 F7 0B 95 ... stab 0b95
3154 9AB8 C6 58 .X ldab #58 : "X"
3155 9ABA F7 0B 94 ... stab 0b94
3156 9ABD C6 58 .X ldab #58 : "X"
3157 9ABF F7 0B 93 ... stab 0b93
3158 9AC2 C6 58 .X ldab #58 : "X"
3159 9AC4 F7 0B 91 ... stab 0b91
3160 9AC7 C6 58 .X ldab #58 : "X"
3161 9AC9 F7 0B 90 ... stab 0b90
3162 9ACC F6 00 13 ... ldab 0013
3163 9ACF C1 01 .. cmpb #01
3164 9AD1 23 4C #L bls 4c
3165 9AD3 F6 0B 91 ... ldab 0b91
3166 9AD6 F7 0B 90 ... stab 0b90
3167 9AD9 F6 0B 92 ... ldab 0b92
3168 9ADC F7 0B 91 ... stab 0b91
3169 9ADF F6 0B 93 ... ldab 0b93
3170 9AE2 F7 0B 92 ... stab 0b92
3171 9AE5 F6 0B 94 ... ldab 0b94
3172 9AE8 F7 0B 93 ... stab 0b93
3173 9AEB F6 00 13 ... ldab 0013
3174 9AEE C1 02 .. cmpb #02
3175 9AF0 26 07 &. bne 07
3176 9AF2 C6 2E .. ldab #2e ; "."
3177 9AF4 F7 0B 94 ... stab 0b94
3179 9AF9 C1 04 .. cmpb #04
3180 9AFB 26 0D &. bne 0d
3181 9AFD F6 0B 95 ... ldab 0b95
3182 9B00 F7 0B 94 ... stab 0b94
3183 9B03 C6 2E .. ldab #2e ; "."
3184 9B05 F7 0B 95 ... stab 0b95
3186 9B0A C1 08 .. cmpb #08
3187 9B0C 26 11 &. bne 11
3188 9B0E F6 0B 95 ... ldab 0b95
3189 9B11 F7 0B 94 ... stab 0b94
3190 9B14 F6 0B 96 ... ldab 0b96
3191 9B17 F7 0B 95 ... stab 0b95
3192 9B1A C6 2E .. ldab #2e
3193 9B1C F7 0B 96 ... stab 0b96
3194 9B1F F6 00 2C .., ldab 002c
3195 9B22 26 3E &> bne 3e
3196 9B24 BD BE 69 ..i jsr be69 ;displayreset
3197 9B27 F6 00 13 ... ldab 0013
3198 9B2A C1 01 .. cmpb #01
3199 9B2C 23 2C #, bls 2c
3200 9B2E CE 10 28 ..( ldx #1028
3201 9B31 1C 00 40 ... bset 00,x, #40 ; enable SPI
3202 9B34 F6 00 1F ... ldab 001f
3203 9B37 C4 40 .@ andb #40
3204 9B39 27 0E '. beq 0e
3205 9B3B CE 00 01 ... ldx #0001
3207 9B3F F6 00 5F .._ ldab 005f
3209 9B43 BD BD B5 ... jsr bdb5 ;jump78
3212 9B49 CE 00 01 ... ldx #0001
3214 9B4D CC 00 58 ..X ldd #0058
3215 9B50 BD BD B5 ... jsr bdb5 ;jump78
3217 9B54 CE 10 28 ..( ldx #1028
3218 9B57 1D 00 40 ... bclr 00,x, #40
3219 9B5A BD BE 10 ... jsr be10 ;jump88
3220 9B5D C6 03 .. ldab #03
3221 9B5F F7 00 2C .., stab 002c
3225 9B63 BD BE 4B ..K jsr be4b ;displayblank
3226 9B66 FC 00 0D ... ldd 000d
3227 9B69 BD E7 45 ..E jsr e745 ;jump55 - number to string
3228 9B6C C6 44 .D ldab #44
3229 9B6E F7 0B 99 ... stab 0b99
3230 9B71 C6 53 .S ldab #53
3231 9B73 F7 0B 98 ... stab 0b98
3232 9B76 C6 43 .C ldab #43
3233 9B78 F7 0B 97 ... stab 0b97
3234 9B7B C6 4E .N ldab #4e
3235 9B7D F7 0B 96 ... stab 0b96
3236 9B80 C6 54 .T ldab #54
3237 9B82 F7 0B 95 ... stab 0b95
3238 9B85 C6 20 . ldab #20
3239 9B87 F7 0B 94 ... stab 0b94
3240 9B8A F6 00 5A ..Z ldab 005a
3241 9B8D F7 0B 93 ... stab 0b93
3242 9B90 F6 00 5D ..] ldab 005d
3243 9B93 F7 0B 92 ... stab 0b92
3244 9B96 F6 00 5E ..^ ldab 005e
3245 9B99 F7 0B 91 ... stab 0b91
3246 9B9C F6 00 5F .._ ldab 005f
3247 9B9F F7 0B 90 ... stab 0b90
3248 9BA2 F6 00 13 ... ldab 0013
3249 9BA5 C1 01 .. cmpb #01
3250 9BA7 23 3C #< bls 3c
3251 9BA9 F6 0B 91 ... ldab 0b91
3252 9BAC F7 0B 90 ... stab 0b90
3253 9BAF F6 00 13 ... ldab 0013
3254 9BB2 C1 02 .. cmpb #02
3255 9BB4 26 07 &. bne 07
3256 9BB6 C6 2E .. ldab #2e
3257 9BB8 F7 0B 91 ... stab 0b91
3259 9BBD C1 04 .. cmpb #04
3260 9BBF 26 0D &. bne 0d
3261 9BC1 F6 0B 92 ... ldab 0b92
3262 9BC4 F7 0B 91 ... stab 0b91
3263 9BC7 C6 2E .. ldab #2e
3264 9BC9 F7 0B 92 ... stab 0b92
3266 9BCE C1 08 .. cmpb #08
3267 9BD0 26 13 &. bne 13
3268 9BD2 F6 0B 92 ... ldab 0b92
3269 9BD5 F7 0B 91 ... stab 0b91
3270 9BD8 F6 0B 93 ... ldab 0b93
3271 9BDB F7 0B 92 ... stab 0b92
3272 9BDE C6 2E .. ldab #2e
3273 9BE0 F7 0B 93 ... stab 0b93
3275 9BE5 F6 00 2C .., ldab 002c
3276 9BE8 26 2A &* bne 2a
3277 9BEA BD BE 69 ..i jsr be69 ;displayreset
3278 9BED F6 00 13 ... ldab 0013
3279 9BF0 C1 01 .. cmpb #01
3280 9BF2 23 18 #. bls 18
3281 9BF4 CE 10 28 ..( ldx #1028
3282 9BF7 1C 00 40 ... bset 00,x, #40
3283 9BFA CE 00 01 ... ldx #0001
3285 9BFE F6 00 5F .._ ldab 005f
3287 9C02 BD BD B5 ... jsr bdb5 ;jump78
3289 9C06 CE 10 28 ..( ldx #1028
3290 9C09 1D 00 40 ... bclr 00,x, #40
3291 9C0C BD BE 10 ... jsr be10 ;jump88
3292 9C0F C6 03 .. ldab #03
3293 9C11 F7 00 2C .., stab 002c
3297 9C15 BD BE 4B ..K jsr be4b ;displayblank
3298 9C18 F6 00 48 ..H ldab 0048
3300 9C1C BD FE 16 ... jsr fe16 ;jump2
3305 9C23 9D 29 9C .). jsr 29
3307 9C27 9C 53 9C .S. cmpx 53
3309 9C2B 9C 83 9C ... cmpx 83
3310 9C2E 9B 9C B2 ... adda 9c
3311 9C31 9C C9 9C ... cmpx c9
3312 9C34 E0 9C .. subb 9c,x
3313 9C36 F7 9D 0E ... stab 9d0e
3314 9C39 9D 23 F6 .#. jsr 23
3316 9C3D 67 C4 g. asr c4,x
3318 9C40 27 08 '. beq 08
3319 9C42 CC AF 00 ... ldd #af00 ; "LNK MSTR Y"
3320 9C45 BD C0 BA ... jsr c0ba ;display:
3322 9C4A CC AF 0B ... ldd #af0b ; "LNK MSTR N"
3323 9C4D BD C0 BA ... jsr c0ba ;display:
3324 9C50 7E 9D 29 ~.) jmp 9d29 ;goto18
3325 9C53 F6 00 67 ..g ldab 0067
3326 9C56 C4 10 .. andb #10
3327 9C58 27 08 '. beq 08
3328 9C5A CC AF 42 ..B ldd #af42 ; "PRC HOLD Y"
3329 9C5D BD C0 BA ... jsr c0ba ;display:
3331 9C62 CC AF 4D ..M ldd #af4d ; "PRC HOLD N"
3332 9C65 BD C0 BA ... jsr c0ba ;display:
3333 9C68 7E 9D 29 ~.) jmp 9d29 ;goto18
3334 9C6B F6 00 67 ..g ldab 0067
3335 9C6E C4 20 . andb #20
3336 9C70 27 08 '. beq 08
3337 9C72 CC AF 58 ..X ldd #af58 ; "PRC DISP Y"
3338 9C75 BD C0 BA ... jsr c0ba ;display:
3340 9C7A CC AF 63 ..c ldd #af63 ; "PRC DISP N"
3341 9C7D BD C0 BA ... jsr c0ba ;display:
3342 9C80 7E 9D 29 ~.) jmp 9d29 ;goto18
3343 9C83 F6 00 67 ..g ldab 0067
3344 9C86 C4 01 .. andb #01
3345 9C88 27 08 '. beq 08
3346 9C8A CC AE EA ... ldd #aeea ; "DUMB MEC Y"
3347 9C8D BD C0 BA ... jsr c0ba ;display:
3349 9C92 CC AE F5 ... ldd #aef5 ; "DUMB MEC N"
3350 9C95 BD C0 BA ... jsr c0ba ;display:
3351 9C98 7E 9D 29 ~.) jmp 9d29 ;goto18
3352 9C9B F6 00 67 ..g ldab 0067
3353 9C9E C4 04 .. andb #04
3354 9CA0 27 08 '. beq 08
3355 9CA2 CC AF 16 ... ldd #af16 ; "CARD RDR Y"
3356 9CA5 BD C0 BA ... jsr c0ba ;display:
3358 9CAA CC AF 21 ..! ldd #af21 ; "CARD RDR N"
3359 9CAD BD C0 BA ... jsr c0ba ;display:
3361 9CB2 F6 00 67 ..g ldab 0067
3362 9CB5 C4 08 .. andb #08
3363 9CB7 27 08 '. beq 08
3364 9CB9 CC AF 2C .., ldd #af2c ; "BILL VAL Y"
3365 9CBC BD C0 BA ... jsr c0ba ;display:
3367 9CC1 CC AF 37 ..7 ldd #af37 ; "BILL VAL N"
3368 9CC4 BD C0 BA ... jsr c0ba ;display:
3370 9CC9 F6 00 67 ..g ldab 0067
3371 9CCC C4 40 .@ andb #40
3372 9CCE 27 08 '. beq 08
3373 9CD0 CC AF 84 ... ldd #af84 ; "$1 CHNGR Y"
3374 9CD3 BD C0 BA ... jsr c0ba ;display:
3376 9CD8 CC AF 8F ... ldd #af8f ; "$1 CHNGR N"
3377 9CDB BD C0 BA ... jsr c0ba ;display:
3379 9CE0 F6 0E 70 ..p ldab 0e70
3380 9CE3 C1 01 .. cmpb #01
3381 9CE5 26 08 &. bne 08
3382 9CE7 CC AE BE ... ldd #aebe ; "$5 ENABLE "
3383 9CEA BD C0 BA ... jsr c0ba ;display:
3385 9CEF CC AE C9 ... ldd #aec9 ; "$5 DISABLE"
3386 9CF2 BD C0 BA ... jsr c0ba ;display:
3388 9CF7 F6 0E 6F ..o ldab 0e6f
3389 9CFA C1 01 .. cmpb #01
3390 9CFC 26 08 &. bne 08
3391 9CFE CC AE D4 ... ldd #aed4 ; "SODA VEND "
3392 9D01 BD C0 BA ... jsr c0ba ;display:
3394 9D06 CC AE DF ... ldd #aedf ; "SNACK VEND"
3395 9D09 BD C0 BA ... jsr c0ba ;display:
3397 9D0E F6 00 67 ..g ldab 0067
3398 9D11 2C 08 ,. bge 08
3399 9D13 CC AF 6E ..n ldd #af6e ; "FREE VND Y"
3400 9D16 BD C0 BA ... jsr c0ba ;display:
3402 9D1B CC AF 79 ..y ldd #af79 ; "FREE VND N"
3403 9D1E BD C0 BA ... jsr c0ba ;display:
3405 9D23 CC AF B0 ... ldd #afb0 ; "HIT KEY "0""
3406 9D26 BD C0 BA ... jsr c0ba ;display:
3411 9D2A BD BE 4B ..K jsr be4b ;displayblank
3412 9D2D F6 00 22 .." ldab 0022
3414 9D31 BD E7 95 ... jsr e795 ;jump54 - number to string
3415 9D34 F6 00 5E ..^ ldab 005e
3416 9D37 F7 0B 99 ... stab 0b99
3417 9D3A F6 00 5F .._ ldab 005f
3418 9D3D F7 0B 98 ... stab 0b98
3419 9D40 C6 20 . ldab #20
3420 9D42 F7 0B 97 ... stab 0b97
3421 9D45 F6 00 24 ..$ ldab 0024
3423 9D49 BD E7 95 ... jsr e795 ;jump54 - number to string
3424 9D4C C6 50 .P ldab #50
3425 9D4E F7 0B 96 ... stab 0b96
3426 9D51 F6 00 5E ..^ ldab 005e
3427 9D54 F7 0B 95 ... stab 0b95
3428 9D57 F6 00 5F .._ ldab 005f
3429 9D5A F7 0B 94 ... stab 0b94
3430 9D5D C6 20 . ldab #20
3431 9D5F F7 0B 93 ... stab 0b93
3432 9D62 F6 00 2A ..* ldab 002a
3434 9D66 BD E7 95 ... jsr e795 ;jump54 - number to string
3435 9D69 C6 46 .F ldab #46
3436 9D6B F7 0B 92 ... stab 0b92
3437 9D6E F6 00 5E ..^ ldab 005e
3438 9D71 F7 0B 91 ... stab 0b91
3439 9D74 F6 00 5F .._ ldab 005f
3440 9D77 F7 0B 90 ... stab 0b90
3441 9D7A BD BE 01 ... jsr be01 ;jump70
3444 9D7E BD BE 4B ..K jsr be4b ;displayblank
3445 9D81 F6 00 60 ..` ldab 0060
3447 9D85 C3 0A 90 ... addd #0a90
3449 9D89 E6 00 .. ldab 00,x
3450 9D8B F7 0B 99 ... stab 0b99
3451 9D8E F6 00 60 ..` ldab 0060
3453 9D92 C3 0A 91 ... addd #0a91
3455 9D96 E6 00 .. ldab 00,x
3456 9D98 F7 0B 98 ... stab 0b98
3457 9D9B F6 00 60 ..` ldab 0060
3459 9D9F C3 0A 92 ... addd #0a92
3461 9DA3 E6 00 .. ldab 00,x
3462 9DA5 F7 0B 97 ... stab 0b97
3463 9DA8 F6 00 60 ..` ldab 0060
3465 9DAC C3 0A 94 ... addd #0a94
3467 9DB0 E6 00 .. ldab 00,x
3468 9DB2 F7 0B 95 ... stab 0b95
3469 9DB5 F6 00 60 ..` ldab 0060
3471 9DB9 C3 0A 95 ... addd #0a95
3473 9DBD E6 00 .. ldab 00,x
3474 9DBF F7 0B 94 ... stab 0b94
3475 9DC2 F6 00 60 ..` ldab 0060
3477 9DC6 C3 0A 96 ... addd #0a96
3479 9DCA E6 00 .. ldab 00,x
3480 9DCC F7 0B 93 ... stab 0b93
3481 9DCF C6 20 . ldab #20
3482 9DD1 F7 0B 92 ... stab 0b92
3483 9DD4 C6 20 . ldab #20
3484 9DD6 F7 0B 91 ... stab 0b91
3485 9DD9 F6 00 54 ..T ldab 0054
3487 9DDD C3 B4 8F ... addd #b48f
3489 9DE1 E6 00 .. ldab 00,x
3490 9DE3 F7 0B 90 ... stab 0b90
3491 9DE6 F6 00 38 ..8 ldab 0038
3492 9DE9 C1 03 .. cmpb #03
3493 9DEB 24 0F $. bcc 0f
3494 9DED F6 00 60 ..` ldab 0060
3496 9DF1 C3 0A 93 ... addd #0a93
3498 9DF5 E6 00 .. ldab 00,x
3499 9DF7 F7 0B 96 ... stab 0b96
3501 9DFC C6 1F .. ldab #1f
3502 9DFE F7 0B 96 ... stab 0b96
3503 9E01 BD BE 01 ... jsr be01 ;jump70
3504 9E04 F6 00 38 ..8 ldab 0038
3505 9E07 26 05 &. bne 05
3506 9E09 C6 05 .. ldab #05
3507 9E0B F7 00 38 ..8 stab 0038
3511 9E0F BD BE 4B ..K jsr be4b ;displayblank
3512 9E12 F6 00 48 ..H ldab 0048
3513 9E15 26 15 &. bne 15
3514 9E17 F6 00 66 ..f ldab 0066
3515 9E1A 27 08 '. beq 08
3516 9E1C CC AF C6 ... ldd #afc6 ; "SECURE ON"
3517 9E1F BD C0 BA ... jsr c0ba ;display:
3519 9E24 CC AF D1 ... ldd #afd1 ; "SECURE OFF"
3520 9E27 BD C0 BA ... jsr c0ba ;display:
3522 9E2C C6 4D .M ldab #4d
3523 9E2E F7 0B 99 ... stab 0b99
3524 9E31 C6 45 .E ldab #45
3525 9E33 F7 0B 98 ... stab 0b98
3526 9E36 C6 4E .N ldab #4e
3527 9E38 F7 0B 97 ... stab 0b97
3528 9E3B C6 55 .U ldab #55
3529 9E3D F7 0B 96 ... stab 0b96
3530 9E40 C6 20 . ldab #20
3531 9E42 F7 0B 95 ... stab 0b95
3532 9E45 F6 00 48 ..H ldab 0048
3533 9E48 CB 30 .0 addb #30
3534 9E4A F7 0B 94 ... stab 0b94
3535 9E4D F6 00 48 ..H ldab 0048
3536 9E50 C1 0A .. cmpb #0a
3537 9E52 26 05 &. bne 05
3538 9E54 C6 30 .0 ldab #30
3539 9E56 F7 0B 94 ... stab 0b94
3540 9E59 C6 20 . ldab #20
3541 9E5B F7 0B 93 ... stab 0b93
3542 9E5E C6 4F .O ldab #4f
3543 9E60 F7 0B 92 ... stab 0b92
3544 9E63 F6 00 48 ..H ldab 0048
3546 9E67 C3 00 68 ..h addd #0068
3548 9E6B E6 00 .. ldab 00,x
3549 9E6D 27 0C '. beq 0c
3550 9E6F C6 4E .N ldab #4e
3551 9E71 F7 0B 91 ... stab 0b91
3552 9E74 C6 20 . ldab #20
3553 9E76 F7 0B 90 ... stab 0b90
3555 9E7B C6 46 .F ldab #46
3556 9E7D F7 0B 91 ... stab 0b91
3557 9E80 C6 46 .F ldab #46
3558 9E82 F7 0B 90 ... stab 0b90
3559 9E85 BD BE 01 ... jsr be01 ;jump70
3563 9E89 BD BE 4B ..K jsr be4b ;displayblank
3564 9E8C F6 00 48 ..H ldab 0048
3566 9E90 BD FE 16 ... jsr fe16 ;jump2
3570 9E96 2D A1 -. blt a1
3571 9E98 C4 9E .. andb #9e
3572 9E9A F5 9E FE ... bitb 9efe
3573 9E9D 9F 07 9F ... sts 07
3575 9EA1 9F 19 9F ... sts 19
3577 9EA5 9F 44 9F .D. sts 44
3579 9EA9 9F 5B 9F .[. sts 5b
3581 9EAD 9F 72 9F .r. sts 72
3582 9EB0 80 9F .. suba #9f
3583 9EB2 89 9F .. adca #9f
3584 9EB4 97 9F A0 ... staa 9f
3585 9EB7 9F AE 9F ... sts ae
3586 9EBA B7 9F C5 ... staa 9fc5
3587 9EBD 9F DD 9F ... sts dd
3588 9EC0 EB A0 .. addb a0,x
3590 9EC3 A0 11 .. suba 11,x
3591 9EC5 A0 29 .) suba 29,x
3592 9EC7 A0 37 .7 suba 37,x
3593 9EC9 A0 54 .T suba 54,x
3594 9ECB A0 62 .b suba 62,x
3595 9ECD A0 7F .. suba 7f,x
3596 9ECF A0 8D .. suba 8d,x
3597 9ED1 A0 96 .. suba 96,x
3598 9ED3 A0 A4 .. suba a4,x
3599 9ED5 A0 AD .. suba ad,x
3600 9ED7 A0 BC .. suba bc,x
3601 9ED9 A0 C5 .. suba c5,x
3602 9EDB A0 D4 .. suba d4,x
3603 9EDD A0 DD .. suba dd,x
3604 9EDF A0 EC .. suba ec,x
3605 9EE1 A0 F5 .. suba f5,x
3606 9EE3 A1 04 .. cmpa 04,x
3607 9EE5 A1 26 .& cmpa 26,x
3608 9EE7 A1 34 .4 cmpa 34,x
3609 9EE9 A1 55 .U cmpa 55,x
3610 9EEB A1 62 .b cmpa 62,x
3611 9EED A1 83 .. cmpa 83,x
3612 9EEF A1 90 .. cmpa 90,x
3613 9EF1 A1 B1 .. cmpa b1,x
3614 9EF3 A1 BE .. cmpa be,x
3615 9EF5 CC B2 90 ... ldd #b290 ; "SERIAL #"
3616 9EF8 BD C0 BA ... jsr c0ba ;display:
3617 9EFB 7E A1 C4 ~.. jmp a1c4 ;goto19
3618 9EFE CC 0C BC ... ldd #0cbc ; serial number?
3619 9F01 BD C0 BA ... jsr c0ba ;display:
3620 9F04 7E A1 C4 ~.. jmp a1c4 ;goto19
3621 9F07 CC B2 A2 ... ldd #b2a2 ; "MACHINE ID"
3622 9F0A BD C0 BA ... jsr c0ba ;display:
3623 9F0D 7E A1 C4 ~.. jmp a1c4 ;goto19
3624 9F10 CC 0C CC ... ldd #0ccc ; machine id?
3625 9F13 BD C0 BA ... jsr c0ba ;display:
3626 9F16 7E A1 C4 ~.. jmp a1c4 ;goto19
3627 9F19 C6 41 .A ldab #41
3628 9F1B F7 0B 99 ... stab 0b99
3629 9F1E C6 55 .U ldab #55
3630 9F20 F7 0B 98 ... stab 0b98
3631 9F23 C6 44 .D ldab #44
3632 9F25 F7 0B 97 ... stab 0b97
3633 9F28 C6 54 .T ldab #54
3634 9F2A F7 0B 96 ... stab 0b96
3635 9F2D CE 00 00 ... ldx #0000
3637 9F31 FC 0C E7 ... ldd 0ce7
3638 9F34 BD A2 D4 ... jsr a2d4 ;jump79
3640 9F38 7E A1 C4 ~.. jmp a1c4 ;goto19
3641 9F3B CC B2 C6 ... ldd #b2c6 ; "SALES (R) "
3642 9F3E BD C0 BA ... jsr c0ba ;display:
3643 9F41 7E A1 C4 ~.. jmp a1c4 ;goto19
3644 9F44 FE 0D E9 ... ldx 0de9
3646 9F48 FC 0D E7 ... ldd 0de7
3647 9F4B BD A3 41 ..A jsr a341 ;jump77
3649 9F4F 7E A1 C4 ~.. jmp a1c4 ;goto19
3650 9F52 CC B2 D8 ... ldd #b2d8 ; "SALES (N) "
3651 9F55 BD C0 BA ... jsr c0ba ;display:
3652 9F58 7E A1 C4 ~.. jmp a1c4 ;goto19
3653 9F5B FE 0D ED ... ldx 0ded
3655 9F5F FC 0D EB ... ldd 0deb
3656 9F62 BD A3 41 ..A jsr a341 ;jump77
3658 9F66 7E A1 C4 ~.. jmp a1c4 ;goto19
3659 9F69 CC B2 EA ... ldd #b2ea ; "BAG TOTAL"
3660 9F6C BD C0 BA ... jsr c0ba ;display:
3661 9F6F 7E A1 C4 ~.. jmp a1c4 ;goto19
3662 9F72 FE 0D F1 ... ldx 0df1
3664 9F76 FC 0D EF ... ldd 0def
3665 9F79 BD A3 41 ..A jsr a341 ;jump77
3667 9F7D 7E A1 C4 ~.. jmp a1c4 ;goto19
3668 9F80 CC B2 FC ... ldd #b2fc ; "CASH BOX"
3669 9F83 BD C0 BA ... jsr c0ba ;display:
3670 9F86 7E A1 C4 ~.. jmp a1c4 ;goto19
3671 9F89 FE 0D F9 ... ldx 0df9
3673 9F8D FC 0D F7 ... ldd 0df7
3674 9F90 BD A3 41 ..A jsr a341 ;jump77
3676 9F94 7E A1 C4 ~.. jmp a1c4 ;goto19
3677 9F97 CC B3 0E ... ldd #b30e ; "CARD SALES"
3678 9F9A BD C0 BA ... jsr c0ba ;display:
3679 9F9D 7E A1 C4 ~.. jmp a1c4 ;goto19
3680 9FA0 FE 0D FD ... ldx 0dfd
3682 9FA4 FC 0D FB ... ldd 0dfb
3683 9FA7 BD A3 41 ..A jsr a341 ;jump77
3685 9FAB 7E A1 C4 ~.. jmp a1c4 ;goto19
3686 9FAE CC B3 35 ..5 ldd #b335 ; "BILL TOTAL"
3687 9FB1 BD C0 BA ... jsr c0ba ;display:
3688 9FB4 7E A1 C4 ~.. jmp a1c4 ;goto19
3689 9FB7 FE 0D F5 ... ldx 0df5
3691 9FBB FC 0D F3 ... ldd 0df3
3692 9FBE BD A3 41 ..A jsr a341 ;jump77
3694 9FC2 7E A1 C4 ~.. jmp a1c4 ;goto19
3695 9FC5 C6 24 .$ ldab #24
3696 9FC7 F7 0B 99 ... stab 0b99
3697 9FCA C6 31 .1 ldab #31
3698 9FCC F7 0B 98 ... stab 0b98
3699 9FCF CE 00 00 ... ldx #0000
3701 9FD3 FC 0C DD ... ldd 0cdd
3702 9FD6 BD A2 D4 ... jsr a2d4 ;jump79
3704 9FDA 7E A1 C4 ~.. jmp a1c4 ;goto19
3705 9FDD FE 0C F5 ... ldx 0cf5
3707 9FE1 FC 0C F3 ... ldd 0cf3
3708 9FE4 BD A3 41 ..A jsr a341 ;jump77
3710 9FE8 7E A1 C4 ~.. jmp a1c4 ;goto19
3711 9FEB C6 24 .$ ldab #24
3712 9FED F7 0B 99 ... stab 0b99
3713 9FF0 C6 32 .2 ldab #32
3714 9FF2 F7 0B 98 ... stab 0b98
3715 9FF5 CE 00 00 ... ldx #0000
3717 9FF9 FC 0C DF ... ldd 0cdf
3718 9FFC BD A2 D4 ... jsr a2d4 ;jump79
3720 A000 7E A1 C4 ~.. jmp a1c4 ;goto19
3721 A003 FE 0C F9 ... ldx 0cf9
3723 A007 FC 0C F7 ... ldd 0cf7
3724 A00A BD A3 41 ..A jsr a341 ;jump77
3726 A00E 7E A1 C4 ~.. jmp a1c4 ;goto19
3727 A011 C6 24 .$ ldab #24
3728 A013 F7 0B 99 ... stab 0b99
3729 A016 C6 35 .5 ldab #35
3730 A018 F7 0B 98 ... stab 0b98
3731 A01B CE 00 00 ... ldx #0000
3733 A01F FC 0C E1 ... ldd 0ce1
3734 A022 BD A2 D4 ... jsr a2d4 ;jump79
3736 A026 7E A1 C4 ~.. jmp a1c4 ;goto19
3737 A029 FE 0C FD ... ldx 0cfd
3739 A02D FC 0C FB ... ldd 0cfb
3740 A030 BD A3 41 ..A jsr a341 ;jump77
3742 A034 7E A1 C4 ~.. jmp a1c4 ;goto19
3743 A037 C6 24 .$ ldab #24
3744 A039 F7 0B 99 ... stab 0b99
3745 A03C C6 31 .1 ldab #31
3746 A03E F7 0B 98 ... stab 0b98
3747 A041 C6 30 .0 ldab #30
3748 A043 F7 0B 97 ... stab 0b97
3749 A046 CE 00 00 ... ldx #0000
3751 A04A FC 0C E3 ... ldd 0ce3
3752 A04D BD A2 D4 ... jsr a2d4 ;jump79
3754 A051 7E A1 C4 ~.. jmp a1c4 ;goto19
3755 A054 FE 0D 01 ... ldx 0d01
3757 A058 FC 0C FF ... ldd 0cff
3758 A05B BD A3 41 ..A jsr a341 ;jump77
3760 A05F 7E A1 C4 ~.. jmp a1c4 ;goto19
3761 A062 C6 24 .$ ldab #24
3762 A064 F7 0B 99 ... stab 0b99
3763 A067 C6 32 .2 ldab #32
3764 A069 F7 0B 98 ... stab 0b98
3765 A06C C6 30 .0 ldab #30
3766 A06E F7 0B 97 ... stab 0b97
3767 A071 CE 00 00 ... ldx #0000
3769 A075 FC 0C E5 ... ldd 0ce5
3770 A078 BD A2 D4 ... jsr a2d4 ;jump79
3772 A07C 7E A1 C4 ~.. jmp a1c4 ;goto19
3773 A07F FE 0D 05 ... ldx 0d05
3775 A083 FC 0D 03 ... ldd 0d03
3776 A086 BD A3 41 ..A jsr a341 ;jump77
3778 A08A 7E A1 C4 ~.. jmp a1c4 ;goto19
3779 A08D CC B3 B7 ... ldd #b3b7 ; "TUBE TOTAL"
3780 A090 BD C0 BA ... jsr c0ba ;display:
3781 A093 7E A1 C4 ~.. jmp a1c4 ;goto19
3782 A096 CE 00 01 ... ldx #0001
3784 A09A FC 0C F1 ... ldd 0cf1
3785 A09D BD A2 D4 ... jsr a2d4 ;jump79
3787 A0A1 7E A1 C4 ~.. jmp a1c4 ;goto19
3788 A0A4 CC B3 CE ... ldd #b3ce ; "$1 COIN"
3789 A0A7 BD C0 BA ... jsr c0ba ;display:
3790 A0AA 7E A1 C4 ~.. jmp a1c4 ;goto19
3791 A0AD FE 0C E9 ... ldx 0ce9
3793 A0B1 F6 0C DC ... ldab 0cdc
3795 A0B5 BD A3 1A ... jsr a31a ;jump93
3797 A0B9 7E A1 C4 ~.. jmp a1c4 ;goto19
3798 A0BC CC B3 E0 ... ldd #b3e0 ; "QUARTERS"
3799 A0BF BD C0 BA ... jsr c0ba ;display:
3800 A0C2 7E A1 C4 ~.. jmp a1c4 ;goto19
3801 A0C5 FE 0C EB ... ldx 0ceb
3803 A0C9 F6 0C DB ... ldab 0cdb
3805 A0CD BD A3 1A ... jsr a31a ;jump93
3807 A0D1 7E A1 C4 ~.. jmp a1c4 ;goto19
3808 A0D4 CC B3 F2 ... ldd #b3f2
3809 A0D7 BD C0 BA ... jsr c0ba ;display:
3810 A0DA 7E A1 C4 ~.. jmp a1c4 ;goto19
3811 A0DD FE 0C ED ... ldx 0ced
3813 A0E1 F6 0C DA ... ldab 0cda
3815 A0E5 BD A3 1A ... jsr a31a ;jump93
3817 A0E9 7E A1 C4 ~.. jmp a1c4 ;goto19
3818 A0EC CC B4 04 ... ldd #b404
3819 A0EF BD C0 BA ... jsr c0ba ;display:
3820 A0F2 7E A1 C4 ~.. jmp a1c4 ;goto19
3821 A0F5 FE 0C EF ... ldx 0cef
3823 A0F9 F6 0C D9 ... ldab 0cd9
3825 A0FD BD A3 1A ... jsr a31a ;jump93
3827 A101 7E A1 C4 ~.. jmp a1c4 ;goto19
3828 A104 C6 57 .W ldab #57
3829 A106 F7 0B 99 ... stab 0b99
3830 A109 C6 53 .S ldab #53
3831 A10B F7 0B 98 ... stab 0b98
3832 A10E C6 4E .N ldab #4e
3833 A110 F7 0B 97 ... stab 0b97
3834 A113 C6 4B .K ldab #4b
3835 A115 F7 0B 96 ... stab 0b96
3836 A118 CE 00 00 ... ldx #0000
3838 A11C FC 0D 07 ... ldd 0d07
3839 A11F BD A2 D4 ... jsr a2d4 ;jump79
3841 A123 7E A1 C4 ~.. jmp a1c4 ;goto19
3842 A126 FE 0D 11 ... ldx 0d11
3844 A12A FC 0D 0F ... ldd 0d0f
3845 A12D BD A3 41 ..A jsr a341 ;jump77
3847 A131 7E A1 C4 ~.. jmp a1c4 ;goto19
3848 A134 C6 53 .S ldab #53
3849 A136 F7 0B 99 ... stab 0b99
3850 A139 C6 48 .H ldab #48
3851 A13B F7 0B 98 ... stab 0b98
3852 A13E C6 50 .P ldab #50
3853 A140 F7 0B 97 ... stab 0b97
3854 A143 C6 52 .R ldab #52
3855 A145 F7 0B 96 ... stab 0b96
3856 A148 CE 00 00 ... ldx #0000
3858 A14C FC 0D 09 ... ldd 0d09
3859 A14F BD A2 D4 ... jsr a2d4 ;jump79
3862 A155 FE 0D 15 ... ldx 0d15
3864 A159 FC 0D 13 ... ldd 0d13
3865 A15C BD A3 41 ..A jsr a341 ;jump77
3868 A162 C6 50 .P ldab #50
3869 A164 F7 0B 99 ... stab 0b99
3870 A167 C6 52 .R ldab #52
3871 A169 F7 0B 98 ... stab 0b98
3872 A16C C6 4D .M ldab #4d
3873 A16E F7 0B 97 ... stab 0b97
3874 A171 C6 4F .O ldab #4f
3875 A173 F7 0B 96 ... stab 0b96
3876 A176 CE 00 00 ... ldx #0000
3878 A17A FC 0D 0B ... ldd 0d0b
3879 A17D BD A2 D4 ... jsr a2d4 ;jump79
3882 A183 FE 0D 19 ... ldx 0d19
3884 A187 FC 0D 17 ... ldd 0d17
3885 A18A BD A3 41 ..A jsr a341 ;jump77
3888 A190 C6 46 .F ldab #46
3889 A192 F7 0B 99 ... stab 0b99
3890 A195 C6 52 .R ldab #52
3891 A197 F7 0B 98 ... stab 0b98
3892 A19A C6 45 .E ldab #45
3893 A19C F7 0B 97 ... stab 0b97
3894 A19F C6 45 .E ldab #45
3895 A1A1 F7 0B 96 ... stab 0b96
3896 A1A4 CE 00 00 ... ldx #0000
3898 A1A8 FC 0D 0D ... ldd 0d0d
3899 A1AB BD A2 D4 ... jsr a2d4 ;jump79
3902 A1B1 FE 0D 1D ... ldx 0d1d
3904 A1B5 FC 0D 1B ... ldd 0d1b
3905 A1B8 BD A3 41 ..A jsr a341 ;jump77
3908 A1BE CC B4 84 ... ldd #b484 ; "VENDS/CODE"
3909 A1C1 BD C0 BA ... jsr c0ba ;display:
3911 A1C4 F6 00 48 ..H ldab 0048
3912 A1C7 C1 2E .. cmpb #2e
3913 A1C9 23 74 #t bls 74
3914 A1CB F6 00 48 ..H ldab 0048
3915 A1CE C1 92 .. cmpb #92
3916 A1D0 24 6D $m bcc 6d
3917 A1D2 F6 00 48 ..H ldab 0048
3920 A1D7 C3 08 6C ..l addd #086c
3922 A1DB EC 00 .. ldd 00,x
3923 A1DD C4 80 .. andb #80
3924 A1DF 26 0E &. bne 0e
3925 A1E1 7C 00 48 |.H inc 0048
3926 A1E4 F6 00 48 ..H ldab 0048
3927 A1E7 C1 92 .. cmpb #92
3928 A1E9 26 02 &. bne 02
3931 A1EF F6 00 48 ..H ldab 0048
3933 A1F3 C3 FF D2 ... addd #ffd2
3934 A1F6 BD E7 95 ... jsr e795 ;jump54 - number to string
3935 A1F9 F6 00 5E ..^ ldab 005e
3936 A1FC F7 0B 99 ... stab 0b99
3937 A1FF F6 00 5F .._ ldab 005f
3938 A202 F7 0B 98 ... stab 0b98
3939 A205 F6 00 48 ..H ldab 0048
3942 A20A C3 0C C3 ... addd #0cc3
3944 A20E EC 00 .. ldd 00,x
3945 A210 BD E7 45 ..E jsr e745 ;jump55 - number to string
3946 A213 F6 00 57 ..W ldab 0057
3947 A216 F7 0B 94 ... stab 0b94
3948 A219 F6 00 5A ..Z ldab 005a
3949 A21C F7 0B 93 ... stab 0b93
3950 A21F F6 00 5D ..] ldab 005d
3951 A222 F7 0B 92 ... stab 0b92
3952 A225 F6 00 5E ..^ ldab 005e
3953 A228 F7 0B 91 ... stab 0b91
3954 A22B F6 00 5F .._ ldab 005f
3955 A22E F7 0B 90 ... stab 0b90
3958 A233 8D 27 .' bsr dest 27
3959 A235 F6 00 48 ..H ldab 0048
3960 A238 C1 92 .. cmpb #92
3961 A23A 26 03 &. bne 03
3962 A23C 7F 00 2C .., clr 002c
3963 A23F F6 00 48 ..H ldab 0048
3964 A242 C1 92 .. cmpb #92
3965 A244 26 15 &. bne 15
3966 A246 F6 00 1F ... ldab 001f
3967 A249 C4 10 .. andb #10
3968 A24B 27 08 '. beq 08
3969 A24D CC AF 9A ... ldd #af9a ; "CLR MIS Y"
3970 A250 BD C0 BA ... jsr c0ba ;display:
3972 A255 CC AF A5 ... ldd #afa5 ; "CLR MIS N"
3973 A258 BD C0 BA ... jsr c0ba ;display:
3979 A25E F6 00 2C .., ldab 002c
3980 A261 26 6F &o bne 6f
3981 A263 BD BE 69 ..i jsr be69 ;displayreset
3983 A267 E6 01 .. ldab 01,x
3984 A269 27 5F '_ beq 5f
3985 A26B F6 00 13 ... ldab 0013
3986 A26E C1 01 .. cmpb #01
3987 A270 23 58 #X bls 58
3988 A272 CE 10 28 ..( ldx #1028
3989 A275 1C 00 40 ... bset 00,x, #40
3990 A278 CE 00 01 ... ldx #0001
3992 A27C F6 0B 90 ... ldab 0b90
3994 A280 BD BD B5 ... jsr bdb5 ;jump78
3996 A284 CE 10 28 ..( ldx #1028
3997 A287 1D 00 40 ... bclr 00,x, #40
3998 A28A F6 0B 91 ... ldab 0b91
3999 A28D F7 0B 90 ... stab 0b90
4000 A290 F6 00 13 ... ldab 0013
4001 A293 C1 02 .. cmpb #02
4002 A295 26 07 &. bne 07
4003 A297 C6 2E .. ldab #2e
4004 A299 F7 0B 91 ... stab 0b91
4006 A29E F6 00 13 ... ldab 0013
4007 A2A1 C1 04 .. cmpb #04
4008 A2A3 26 0D &. bne 0d
4009 A2A5 F6 0B 92 ... ldab 0b92
4010 A2A8 F7 0B 91 ... stab 0b91
4011 A2AB C6 2E .. ldab #2e
4012 A2AD F7 0B 92 ... stab 0b92
4014 A2B2 F6 00 13 ... ldab 0013
4015 A2B5 C1 08 .. cmpb #08
4016 A2B7 26 11 &. bne 11
4017 A2B9 F6 0B 92 ... ldab 0b92
4018 A2BC F7 0B 91 ... stab 0b91
4019 A2BF F6 0B 93 ... ldab 0b93
4020 A2C2 F7 0B 92 ... stab 0b92
4021 A2C5 C6 2E .. ldab #2e
4022 A2C7 F7 0B 93 ... stab 0b93
4023 A2CA BD BE 10 ... jsr be10 ;jump88
4024 A2CD C6 03 .. ldab #03
4025 A2CF F7 00 2C .., stab 002c
4033 A2D7 EC 00 .. ldd 00,x
4034 A2D9 BD E7 45 ..E jsr e745 ;jump55 - number to string
4035 A2DC F6 00 57 ..W ldab 0057
4036 A2DF F7 0B 94 ... stab 0b94
4037 A2E2 F6 00 5A ..Z ldab 005a
4038 A2E5 F7 0B 93 ... stab 0b93
4039 A2E8 F6 00 5D ..] ldab 005d
4040 A2EB F7 0B 92 ... stab 0b92
4041 A2EE F6 00 5E ..^ ldab 005e
4042 A2F1 F7 0B 91 ... stab 0b91
4043 A2F4 F6 00 5F .._ ldab 005f
4044 A2F7 F7 0B 90 ... stab 0b90
4046 A2FB E6 05 .. ldab 05,x
4047 A2FD 27 14 '. beq 14
4048 A2FF F6 00 17 ... ldab 0017
4049 A302 C4 08 .. andb #08
4050 A304 26 05 &. bne 05
4051 A306 C6 24 .$ ldab #24
4052 A308 F7 0B 95 ... stab 0b95
4053 A30B CC 00 01 ... ldd #0001
4054 A30E BD A2 5C ..\ jsr a25c ;jump82
4058 A315 BD A2 5C ..\ jsr a25c ;jump82
4066 A31D E6 01 .. ldab 01,x
4068 A320 BD E7 95 ... jsr e795 ;jump54 - number to string
4069 A323 F6 00 5D ..] ldab 005d
4070 A326 F7 0B 99 ... stab 0b99
4071 A329 F6 00 5E ..^ ldab 005e
4072 A32C F7 0B 98 ... stab 0b98
4073 A32F F6 00 5F .._ ldab 005f
4074 A332 F7 0B 97 ... stab 0b97
4075 A335 CE 00 01 ... ldx #0001
4078 A33A EC 06 .. ldd 06,x
4079 A33C 8D 96 .. bsr dest 96
4090 A346 EC 04 .. ldd 04,x
4093 A34A EC 02 .. ldd 02,x
4094 A34C BD E6 21 ..! jsr e621 ;jump56
4096 A350 C6 20 . ldab #20
4097 A352 F7 0B 99 ... stab 0b99
4098 A355 F6 00 17 ... ldab 0017
4099 A358 C4 08 .. andb #08
4100 A35A 26 05 &. bne 05
4101 A35C C6 24 .$ ldab #24
4102 A35E F7 0B 98 ... stab 0b98
4103 A361 CC 00 01 ... ldd #0001
4104 A364 BD A2 5C ..\ jsr a25c ;jump82
4108 A36A 6E 00 n. jmp 00,x
4111 A36C BD BE 4B ..K jsr be4b ;displayblank
4112 A36F CC AF DC ... ldd #afdc ; "- SAVING -"
4113 A372 BD C0 BA ... jsr c0ba ;display:
4114 A375 CC 01 F4 ... ldd #01f4
4115 A378 BD E5 71 ..q jsr e571 ;msdelay
4119 A37C FC 00 52 ..R ldd 0052
4120 A37F FD 0B B5 ... std 0bb5
4121 A382 8D E8 .. bsr dest e8
4125 A385 F6 00 1F ... ldab 001f
4126 A388 C4 40 .@ andb #40
4127 A38A 27 73 's beq 73
4128 A38C F6 00 06 ... ldab 0006
4131 A391 C3 08 00 ... addd #0800
4133 A395 EC 00 .. ldd 00,x
4135 A398 84 C0 .. anda #c0
4136 A39A FA 00 28 ..( orb 0028
4137 A39D BA 00 27 ..' ora 0027
4138 A3A0 FD 00 27 ..' std 0027
4139 A3A3 FC 00 27 ..' ldd 0027
4142 A3A8 F6 00 06 ... ldab 0006
4145 A3AD C3 08 00 ... addd #0800
4148 A3B2 ED 00 .. std 00,x
4149 A3B4 FC 00 27 ..' ldd 0027
4154 A3BB F6 00 06 ... ldab 0006
4157 A3C0 C3 0B F1 ... addd #0bf1
4160 A3C5 ED 00 .. std 00,x
4161 A3C7 F6 00 06 ... ldab 0006
4164 A3CC C3 08 C8 ... addd #08c8
4166 A3D0 EC 00 .. ldd 00,x
4167 A3D2 C4 80 .. andb #80
4168 A3D4 84 F7 .. anda #f7
4169 A3D6 FA 00 47 ..G orb 0047
4170 A3D9 BA 00 46 ..F ora 0046
4171 A3DC FD 00 46 ..F std 0046
4172 A3DF F6 00 19 ... ldab 0019
4173 A3E2 C4 10 .. andb #10
4174 A3E4 27 06 '. beq 06
4175 A3E6 CE 00 46 ..F ldx #0046
4176 A3E9 1C 00 08 ... bset 00,x, #08
4177 ; set memory location 08c8+(slotnum*2) to value of 0046
4178 A3EC FC 00 46 ..F ldd 0046
4181 A3F1 F6 00 06 ... ldab 0006
4184 A3F6 C3 08 C8 ... addd #08c8
4187 A3FB ED 00 .. std 00,x
4189 A3FF CC 2A FF .*. ldd #2aff ; 00101010 11111111
4192 A404 F6 00 06 ... ldab 0006
4195 A409 C3 08 00 ... addd #0800
4198 A40E ED 00 .. std 00,x
4199 A410 CC D5 00 ... ldd #d500
4202 A415 F6 00 06 ... ldab 0006
4205 A41A C3 0B F1 ... addd #0bf1
4208 A41F ED 00 .. std 00,x
4209 A421 F6 00 1F ... ldab 001f
4210 A424 C4 40 .@ andb #40
4211 A426 27 26 '& beq 26
4212 A428 F6 00 06 ... ldab 0006
4215 A42D C3 08 00 ... addd #0800
4217 A431 EC 00 .. ldd 00,x
4218 A433 C4 FF .. andb #ff
4219 A435 84 3F .? anda #3f
4220 A437 FD 00 27 ..' std 0027
4221 A43A F6 00 06 ... ldab 0006
4224 A43F C3 08 C8 ... addd #08c8
4226 A443 EC 00 .. ldd 00,x
4227 A445 C4 7F .. andb #7f
4229 A448 FD 00 46 ..F std 0046
4230 A44B BD A3 6C ..l jsr a36c ;jump81
4234 A44F FC 00 0D ... ldd 000d
4235 A452 FD 0B B7 ... std 0bb7
4236 A455 BD A3 6C ..l jsr a36c ;jump81
4241 A45A F6 00 67 ..g ldab 0067
4242 A45D C4 02 .. andb #02
4243 A45F 27 08 '. beq 08
4244 A461 CE 00 67 ..g ldx #0067
4245 A464 1D 00 4D ... bclr 00,x, #4D
4247 A469 CE 00 67 ..g ldx #0067
4248 A46C 1D 00 10 ... bclr 00,x, #10
4249 A46F CE 00 67 ..g ldx #0067
4250 A472 1D 00 .. bclr add,x 00,x
4253 A477 67 C4 g. asr c4,x
4255 A47A 26 06 &. bne 06
4256 A47C CE 00 67 ..g ldx #0067
4257 A47F 1D 00 .. bclr add,x 00,x
4260 A484 67 C4 g. asr c4,x
4262 A487 27 14 '. beq 14
4263 A489 CE 00 67 ..g ldx #0067
4264 A48C 1D 00 02 ... bclr 00,x, #02
4265 A48F CE 00 67 ..g ldx #0067
4266 A492 1D 00 10 ... bclr 00,x, #10
4267 A495 CE 00 67 ..g ldx #0067
4268 A498 1D 00 .. bclr add,x 00,x
4271 A49D CE 00 67 ..g ldx #0067
4272 A4A0 1D 00 08 ... bclr 00,x, #08
4273 A4A3 F6 00 67 ..g ldab 0067
4274 A4A6 C4 04 .. andb #04
4275 A4A8 27 12 '. beq 12
4276 A4AA CE 00 67 ..g ldx #0067
4277 A4AD 1D 00 02 ... bclr 00,x, #02
4278 A4B0 CE 00 67 ..g ldx #0067
4279 A4B3 1D 00 10 .. bclr 00,x, #10
4280 A4B6 CE 00 67 ..g ldx #0067
4281 A4B9 1D 00 20 .. bclr 00,x, #20
4282 A4BC F6 00 67 ... ldab 0067
4283 A4BF C4 08 .. andb #08
4284 A4C1 26 06 &. bne 06
4285 A4C3 CE 00 67 ..g ldx #0067
4286 A4C6 1D 00 40 ..@ bclr 00,x, #40
4287 A4C9 F6 00 67 ..g ldab 0067
4288 A4CC F7 0B C0 ... stab 0bc0
4289 A4CF F6 0E 70 ..p ldab 0e70
4290 A4D2 F7 0E 6E ..n stab 0e6e
4291 A4D5 F6 0E 6D ..m ldab 0e6d
4292 A4D8 26 39 &9 bne 39
4293 A4DA F6 0E 6F ..o ldab 0e6f
4294 A4DD 27 34 '4 beq 34
4295 A4DF 7F 00 06 ... clr 0006
4296 A4E2 F6 00 06 ... ldab 0006
4297 A4E5 C1 3F .? cmpb #3f
4298 A4E7 24 2A $* bcc 2a
4299 A4E9 F6 00 06 ... ldab 0006
4301 A4ED CE 00 05 ... ldx #0005
4304 A4F2 27 1A '. beq 1a
4305 A4F4 F6 00 06 ... ldab 0006
4307 A4F8 C3 08 00 ... addd #0800
4309 A4FC ED 00 .. std 00,x
4310 A4FE EC 00 .. ldd 00,x
4313 A502 F6 00 06 ... ldab 0006
4316 A507 C3 08 C8 ... addd #08c8
4319 A50C ED 00 .. std 00,x
4320 A50E 7C 00 06 |.. inc 0006
4322 A513 F6 0E 6F ..o ldab 0e6f
4323 A516 F7 0E 6D ..m stab 0e6d
4324 A519 BD A3 6C ..l jsr a36c ;jump81
4329 A51E F6 00 22 .." ldab 0022
4331 A522 BD FE 16 ... jsr fe16 ;jump2
4336 A529 A5 79 .y bita 79,x
4337 A52B A5 35 .5 bita 35,x
4338 A52D A5 43 .C bita 43,x
4339 A52F A5 51 .Q bita 51,x
4340 A531 A5 5F ._ bita 5f,x
4341 A533 A5 6D .m bita 6d,x
4342 A535 F6 00 24 ..$ ldab 0024
4343 A538 F7 0B AF ... stab 0baf
4344 A53B F6 00 2A ..* ldab 002a
4345 A53E F7 0B B4 ... stab 0bb4
4347 A543 F6 00 24 ..$ ldab 0024
4348 A546 F7 0B AE ... stab 0bae
4349 A549 F6 00 2A ..* ldab 002a
4350 A54C F7 0B B3 ... stab 0bb3
4352 A551 F6 00 24 ..$ ldab 0024
4353 A554 F7 0B AD ... stab 0bad
4354 A557 F6 00 2A ..* ldab 002a
4355 A55A F7 0B B2 ... stab 0bb2
4357 A55F F6 00 24 ..$ ldab 0024
4358 A562 F7 0B AC ... stab 0bac
4359 A565 F6 00 2A ..* ldab 002a
4360 A568 F7 0B B1 ... stab 0bb1
4362 A56D F6 00 24 ..$ ldab 0024
4363 A570 F7 0B AB ... stab 0bab
4364 A573 F6 00 2A ..* ldab 002a
4365 A576 F7 0B B0 ... stab 0bb0
4366 A579 BD A3 6C ..l jsr a36c ;jump81
4370 A57D 7F 00 54 ..T clr 0054
4371 A580 F6 00 54 ..T ldab 0054
4372 A583 C1 FF .. cmpb #ff
4373 A585 24 1B $. bcc 1b
4374 A587 F6 00 54 ..T ldab 0054
4376 A58B C3 0A 90 ... addd #0a90
4378 A58F E6 00 .. ldab 00,x
4380 A592 F6 00 54 ..T ldab 0054
4382 A596 C3 09 90 ... addd #0990
4385 A59B E7 00 .. stab 00,x
4386 A59D 7C 00 54 |.T inc 0054
4388 A5A2 F6 00 61 ..a ldab 0061
4389 A5A5 F7 0B BF ... stab 0bbf
4390 A5A8 BD A3 6C ..l jsr a36c ;jump81
4394 A5AC 7F 00 54 ..T clr 0054
4395 A5AF F6 00 54 ..T ldab 0054
4396 A5B2 C1 10 .. cmpb #10
4397 A5B4 24 1B $. bcc 1b
4398 A5B6 F6 00 54 ..T ldab 0054
4400 A5BA C3 0A 90 ... addd #0a90
4402 A5BE E6 00 .. ldab 00,x
4404 A5C1 F6 00 54 ..T ldab 0054
4406 A5C5 C3 0C B9 ... addd #0cb9
4409 A5CA E7 00 .. stab 00,x
4410 A5CC 7C 00 54 |.T inc 0054
4412 A5D1 BD A3 6C ..l jsr a36c ;jump81
4416 A5D5 7F 00 54 ..T clr 0054
4417 A5D8 F6 00 54 ..T ldab 0054
4418 A5DB C1 10 .. cmpb #10
4419 A5DD 24 1B $. bcc 1b
4420 A5DF F6 00 54 ..T ldab 0054
4422 A5E3 C3 0A 90 ... addd #0a90
4424 A5E7 E6 00 .. ldab 00,x
4426 A5EA F6 00 54 ..T ldab 0054
4428 A5EE C3 0C C9 ... addd #0cc9
4431 A5F3 E7 00 .. stab 00,x
4432 A5F5 7C 00 54 |.T inc 0054
4434 A5FA BD A3 6C ..l jsr a36c ;jump81
4438 A5FE 7F 00 54 ..T clr 0054
4439 A601 F6 00 54 ..T ldab 0054
4440 A604 C1 05 .. cmpb #05
4441 A606 24 1B $. bcc 1b
4442 A608 F6 00 54 ..T ldab 0054
4444 A60C C3 00 62 ..b addd #0062
4446 A610 E6 00 .. ldab 00,x
4448 A613 F6 00 54 ..T ldab 0054
4450 A617 C3 0B A4 ... addd #0ba4
4453 A61C E7 00 .. stab 00,x
4454 A61E 7C 00 54 |.T inc 0054
4456 A623 7F 00 54 ..T clr 0054
4457 A626 F6 00 54 ..T ldab 0054
4458 A629 C1 0B .. cmpb #0b
4459 A62B 24 1B $. bcc 1b
4460 A62D F6 00 54 ..T ldab 0054
4462 A631 C3 00 68 ..h addd #0068
4464 A635 E6 00 .. ldab 00,x
4466 A638 F6 00 54 ..T ldab 0054
4468 A63C C3 0B E4 ... addd #0be4
4471 A641 E7 00 .. stab 00,x
4472 A643 7C 00 54 |.T inc 0054
4474 A648 8D 04 .. bsr dest 04
4475 A64A BD A3 6C ..l jsr a36c ;jump81
4479 A64E BD AB 0C ... jsr ab0c ;jump126
4480 A651 C6 20 . ldab #20
4481 A653 F7 0B A3 ... stab 0ba3
4482 A656 C6 20 . ldab #20
4483 A658 F7 0B 9A ... stab 0b9a
4484 A65B C6 01 .. ldab #01
4485 A65D F7 00 54 ..T stab 0054
4487 A660 F6 00 54 ..T ldab 0054
4488 A663 C1 09 .. cmpb #09
4489 A665 25 03 %. bcs 03
4490 A667 7E A7 1E ~.. jmp a71e ;goto20
4491 A66A F6 00 54 ..T ldab 0054
4493 A66E BD FE 16 ... jsr fe16 ;jump2
4494 A671 00 01 00 07 . test
4504 A687 F6 00 62 ..b ldab 0062
4509 A68E C8 04 .. eorb #04
4510 A690 F7 00 5F .._ stab 005f
4512 A695 F6 00 62 ..b ldab 0062
4513 A698 C4 0F .. andb #0f
4514 A69A C8 0D .. eorb #0d
4515 A69C F7 00 5F .._ stab 005f
4517 A6A1 F6 00 63 ..c ldab 0063
4522 A6A8 C8 04 .. eorb #04
4523 A6AA F7 00 5F .._ stab 005f
4525 A6AF F6 00 63 ..c ldab 0063
4526 A6B2 C4 0F .. andb #0f
4527 A6B4 C8 05 .. eorb #05
4528 A6B6 F7 00 5F .._ stab 005f
4530 A6BB F6 00 64 ..d ldab 0064
4535 A6C2 C8 05 .. eorb #05
4536 A6C4 F7 00 5F .._ stab 005f
4538 A6C9 F6 00 64 ..d ldab 0064
4539 A6CC C4 0F .. andb #0f
4540 A6CE C8 04 .. eorb #04
4541 A6D0 F7 00 5F .._ stab 005f
4543 A6D5 F6 00 65 ..e ldab 0065
4548 A6DC C8 05 .. eorb #05
4549 A6DE F7 00 5F .._ stab 005f
4551 A6E3 F6 00 65 ..e ldab 0065
4552 A6E6 C4 0F .. andb #0f
4553 A6E8 C8 03 .. eorb #03
4554 A6EA F7 00 5F .._ stab 005f
4555 A6ED F6 00 5F .._ ldab 005f
4556 A6F0 C1 09 .. cmpb #09
4557 A6F2 23 13 #. bls 13
4558 A6F4 F6 00 5F .._ ldab 005f
4559 A6F7 CB 37 .7 addb #37
4561 A6FA F6 00 54 ..T ldab 0054
4563 A6FE C3 0B 9A ... addd #0b9a
4566 A703 E7 00 .. stab 00,x
4568 A707 F6 00 5F .._ ldab 005f
4569 A70A CB 30 .0 addb #30
4571 A70D F6 00 54 ..T ldab 0054
4573 A711 C3 0B 9A ... addd #0b9a
4576 A716 E7 00 .. stab 00,x
4577 A718 7C 00 54 |.T inc 0054
4578 A71B 7E A6 60 ~.` jmp a660 ;goto21
4583 A71F F6 00 48 ..H ldab 0048
4584 A722 26 11 &. bne 11
4585 A724 F6 00 66 ..f ldab 0066
4586 A727 26 07 &. bne 07
4587 A729 C6 01 .. ldab #01
4588 A72B F7 00 66 ..f stab 0066
4590 A730 7F 00 66 ..f clr 0066
4592 A735 F6 00 48 ..H ldab 0048
4594 A739 C3 00 68 ..h addd #0068
4596 A73D E6 00 .. ldab 00,x
4597 A73F 26 10 &. bne 10
4598 A741 C6 01 .. ldab #01
4600 A744 F6 00 48 ..H ldab 0048
4602 A748 C3 00 68 ..h addd #0068
4605 A74D E7 00 .. stab 00,x
4609 A753 F6 00 48 ..H ldab 0048
4611 A757 C3 00 68 ..h addd #0068
4614 A75C E7 00 .. stab 00,x
4618 A75F F6 00 48 ..H ldab 0048
4620 A763 BD FE 16 ... jsr fe16 ;jump2
4625 A76A A7 DC .. staa dc,x
4626 A76C A7 80 .. staa 80,x
4627 A76E A7 87 .. staa 87,x
4628 A770 A7 8E .. staa 8e,x
4629 A772 A7 95 .. staa 95,x
4630 A774 A7 9C .. staa 9c,x
4631 A776 A7 A3 .. staa a3,x
4632 A778 A7 AA .. staa aa,x
4633 A77A A7 B1 .. staa b1,x
4634 A77C A7 C4 .. staa c4,x
4635 A77E A7 D7 .. staa d7,x
4636 A780 C6 02 .. ldab #02
4637 A782 F7 00 02 ... stab 0002
4639 A787 C6 10 .. ldab #10
4640 A789 F7 00 02 ... stab 0002
4642 A78E C6 20 . ldab #20
4643 A790 F7 00 02 ... stab 0002
4645 A795 C6 01 .. ldab #01
4646 A797 F7 00 02 ... stab 0002
4648 A79C C6 04 .. ldab #04
4649 A79E F7 00 02 ... stab 0002
4651 A7A3 C6 08 .. ldab #08
4652 A7A5 F7 00 02 ... stab 0002
4654 A7AA C6 40 .@ ldab #40
4655 A7AC F7 00 02 ... stab 0002
4657 A7B1 F6 0E 70 ..p ldab 0e70
4658 A7B4 C1 01 .. cmpb #01
4659 A7B6 26 05 &. bne 05
4660 A7B8 7F 0E 70 ..p clr 0e70
4662 A7BD C6 01 .. ldab #01
4663 A7BF F7 0E 70 ..p stab 0e70
4665 A7C4 F6 0E 6F ..o ldab 0e6f
4666 A7C7 C1 01 .. cmpb #01
4667 A7C9 26 05 &. bne 05
4668 A7CB 7F 0E 6F ..o clr 0e6f
4670 A7D0 C6 01 .. ldab #01
4671 A7D2 F7 0E 6F ..o stab 0e6f
4673 A7D7 C6 80 .. ldab #80
4674 A7D9 F7 00 02 ... stab 0002
4675 A7DC F6 00 48 ..H ldab 0048
4676 A7DF C1 0A .. cmpb #0a
4677 A7E1 24 2B $+ bcc 2b
4678 A7E3 F6 00 48 ..H ldab 0048
4679 A7E6 C1 07 .. cmpb #07
4680 A7E8 27 24 '$ beq 24
4681 A7EA F6 00 48 ..H ldab 0048
4682 A7ED C1 08 .. cmpb #08
4683 A7EF 27 1D '. beq 1d
4684 A7F1 F6 00 67 ..g ldab 0067
4685 A7F4 F4 00 02 ... andb 0002
4686 A7F7 26 0B &. bne 0b
4687 A7F9 F6 00 02 ... ldab 0002
4688 A7FC FA 00 67 ..g orb 0067
4689 A7FF F7 00 67 ..g stab 0067
4691 A804 F6 00 02 ... ldab 0002
4693 A808 F4 00 67 ..g andb 0067
4694 A80B F7 00 67 ..g stab 0067
4697 A80F 7F 00 54 ..T clr 0054
4698 A812 F6 00 54 ..T ldab 0054
4699 A815 C1 04 .. cmpb #04
4700 A817 24 4A $J bcc 4a
4701 A819 CC 01 F4 ... ldd #01f4
4702 A81C BD E5 71 ..q jsr e571 ;msdelay
4703 A81F F6 0B 93 ... ldab 0b93
4704 A822 F7 00 5F .._ stab 005f
4705 A825 F6 0B 94 ... ldab 0b94
4706 A828 F7 00 5E ..^ stab 005e
4707 A82B F6 0B 95 ... ldab 0b95
4708 A82E F7 00 5D ..] stab 005d
4709 A831 F6 0B 96 ... ldab 0b96
4710 A834 F7 00 5A ..Z stab 005a
4711 A837 BD BE 4B ..K jsr be4b ;displayblank
4712 A83A BD BE 01 ... jsr be01 ;jump70
4713 A83D CC 01 F4 ... ldd #01f4
4714 A840 BD E5 71 ..q jsr e571 ;msdelay
4715 A843 F6 00 5F .._ ldab 005f
4716 A846 F7 0B 93 ... stab 0b93
4717 A849 F6 00 5E ..^ ldab 005e
4718 A84C F7 0B 94 ... stab 0b94
4719 A84F F6 00 5D ..] ldab 005d
4720 A852 F7 0B 95 ... stab 0b95
4721 A855 F6 00 5A ..Z ldab 005a
4722 A858 F7 0B 96 ... stab 0b96
4723 A85B BD BE 01 ... jsr be01 ;jump70
4724 A85E 7C 00 54 |.T inc 0054
4729 A864 F6 00 09 ... ldab 0009
4730 A867 C1 01 .. cmpb #01
4732 A86B F6 00 61 ..a ldab 0061
4734 A86F C3 00 01 ... addd #0001
4737 A874 F6 00 60 ..` ldab 0060
4740 A879 A3 00 .. subd 00,x
4743 A87D 2C 0A ,. bge 0a
4744 A87F F6 00 60 ..` ldab 0060
4745 A882 C1 F9 .. cmpb #f9
4746 A884 24 03 $. bcc 03
4747 A886 7C 00 60 |.` inc 0060
4749 A88B F6 00 60 ..` ldab 0060
4750 A88E C1 09 .. cmpb #09
4751 A890 24 03 $. bcc 03
4752 A892 7C 00 60 |.` inc 0060
4756 A896 F6 00 36 ..6 ldab 0036
4757 A899 26 39 &9 bne 39
4758 A89B F6 00 54 ..T ldab 0054
4759 A89E C1 27 .' cmpb #27
4761 A8A2 7C 00 54 |.T inc 0054
4762 A8A5 F6 00 09 ... ldab 0009
4763 A8A8 C1 01 .. cmpb #01
4764 A8AA 26 0C &. bne 0c
4765 A8AC F6 00 54 ..T ldab 0054
4766 A8AF C1 27 .' cmpb #27
4767 A8B1 26 03 &. bne 03
4768 A8B3 7F 00 54 ..T clr 0054
4770 A8B8 F6 00 54 ..T ldab 0054
4771 A8BB C1 24 .$ cmpb #24
4772 A8BD 26 03 &. bne 03
4773 A8BF 7F 00 54 ..T clr 0054
4774 A8C2 F6 00 54 ..T ldab 0054
4776 A8C6 C3 B4 8F ... addd #b48f
4778 A8CA E6 00 .. ldab 00,x
4779 A8CC F7 0B 90 ... stab 0b90
4780 A8CF C6 02 .. ldab #02
4781 A8D1 F7 00 36 ..6 stab 0036
4785 A8D5 F6 00 60 ..` ldab 0060
4786 A8D8 C1 00 .. cmpb #00
4787 A8DA 23 05 #. bls 05
4788 A8DC 7A 00 60 z.` dec 0060
4790 A8E1 7F 00 60 ..` clr 0060
4794 A8E5 F6 00 36 ..6 ldab 0036
4795 A8E8 26 36 &6 bne 36
4796 A8EA F6 00 54 ..T ldab 0054
4797 A8ED C1 00 .. cmpb #00
4798 A8EF 25 1D %. bcs 1d
4799 A8F1 F6 00 54 ..T ldab 0054
4800 A8F4 26 15 &. bne 15
4801 A8F6 F6 00 09 ... ldab 0009
4802 A8F9 C1 01 .. cmpb #01
4803 A8FB 26 07 &. bne 07
4804 A8FD C6 26 .& ldab #26
4805 A8FF F7 00 54 ..T stab 0054
4807 A904 C6 23 .# ldab #23
4808 A906 F7 00 54 ..T stab 0054
4810 A90B 7A 00 54 z.T dec 0054
4811 A90E F6 00 54 ..T ldab 0054
4813 A912 C3 B4 8F ... addd #b48f
4815 A916 E6 00 .. ldab 00,x
4816 A918 F7 0B 90 ... stab 0b90
4817 A91B C6 02 .. ldab #02
4818 A91D F7 00 36 ..6 stab 0036
4822 A921 F6 0B 90 ... ldab 0b90
4823 A924 F7 0B 96 ... stab 0b96
4824 A927 F6 0B 96 ... ldab 0b96
4826 A92B F6 00 60 ..` ldab 0060
4828 A92F C3 0A 93 ... addd #0a93
4831 A934 E7 00 .. stab 00,x
4832 A936 F6 00 09 ... ldab 0009
4833 A939 C1 01 .. cmpb #01
4834 A93B 26 32 &2 bne 32
4835 A93D F6 00 61 ..a ldab 0061
4837 A941 C3 00 01 ... addd #0001
4840 A946 F6 00 60 ..` ldab 0060
4843 A94B A3 00 .. subd 00,x
4846 A94F 26 0A &. bne 0a
4847 A951 F6 00 60 ..` ldab 0060
4848 A954 C1 FA .. cmpb #fa
4849 A956 24 03 $. bcc 03
4850 A958 7C 00 61 |.a inc 0061
4851 A95B F6 00 60 ..` ldab 0060
4852 A95E F1 00 61 ..a cmpb 0061
4853 A961 22 0A ". bhi 0a
4854 A963 F6 00 60 ..` ldab 0060
4855 A966 C1 F9 .. cmpb #f9
4856 A968 24 03 $. bcc 03
4857 A96A 7C 00 60 |.` inc 0060
4859 A96F F6 00 60 ..` ldab 0060
4860 A972 C1 09 .. cmpb #09
4861 A974 24 03 $. bcc 03
4862 A976 7C 00 60 |.` inc 0060
4866 A97A F6 00 60 ..` ldab 0060
4867 A97D 26 24 &$ bne 24
4868 A97F F6 00 60 ..` ldab 0060
4869 A982 CB 03 .. addb #03
4870 A984 F7 00 54 ..T stab 0054
4871 A987 F6 00 54 ..T ldab 0054
4872 A98A C1 FF .. cmpb #ff
4873 A98C 24 13 $. bcc 13
4874 A98E C6 20 . ldab #20
4876 A991 F6 00 54 ..T ldab 0054
4878 A995 C3 0A 90 ... addd #0a90
4881 A99A E7 00 .. stab 00,x
4882 A99C 7C 00 54 |.T inc 0054
4885 A9A3 F6 00 60 ..` ldab 0060
4886 A9A6 CB 04 .. addb #04
4887 A9A8 F7 00 54 ..T stab 0054
4888 A9AB F6 00 54 ..T ldab 0054
4889 A9AE C1 FF .. cmpb #ff
4890 A9B0 24 13 $. bcc 13
4891 A9B2 C6 20 . ldab #20
4893 A9B5 F6 00 54 ..T ldab 0054
4895 A9B9 C3 0A 90 ... addd #0a90
4898 A9BE E7 00 .. stab 00,x
4899 A9C0 7C 00 54 |.T inc 0054
4901 A9C5 F6 00 60 ..` ldab 0060
4902 A9C8 F7 00 61 ..a stab 0061
4903 A9CB 7F 00 54 ..T clr 0054
4907 A9CF C6 50 .P ldab #50
4908 A9D1 F7 09 90 ... stab 0990
4909 A9D4 C6 29 .) ldab #29
4910 A9D6 F7 09 91 ... stab 0991
4911 A9D9 C6 20 . ldab #20
4912 A9DB F7 09 92 ... stab 0992
4913 A9DE 7F 00 54 ..T clr 0054
4914 A9E1 F6 00 54 ..T ldab 0054
4915 A9E4 C1 FF .. cmpb #ff
4916 A9E6 24 1B $. bcc 1b
4917 A9E8 F6 00 54 ..T ldab 0054
4919 A9EC C3 09 90 ... addd #0990
4921 A9F0 E6 00 .. ldab 00,x
4923 A9F3 F6 00 54 ..T ldab 0054
4925 A9F7 C3 0A 90 ... addd #0a90
4928 A9FC E7 00 .. stab 00,x
4929 A9FE 7C 00 54 |.T inc 0054
4931 AA03 F6 0B BF ... ldab 0bbf
4932 AA06 F7 00 61 ..a stab 0061
4936 AA0A C6 53 .S ldab #53
4937 AA0C F7 0C B9 ... stab 0cb9
4938 AA0F C6 29 .) ldab #29
4939 AA11 F7 0C BA ... stab 0cba
4940 AA14 C6 20 . ldab #20
4941 AA16 F7 0C BB ... stab 0cbb
4942 AA19 7F 00 54 ..T clr 0054
4943 AA1C F6 00 54 ..T ldab 0054
4944 AA1F C1 10 .. cmpb #10
4945 AA21 24 1B $. bcc 1b
4946 AA23 F6 00 54 ..T ldab 0054
4948 AA27 C3 0C B9 ... addd #0cb9
4950 AA2B E6 00 .. ldab 00,x
4952 AA2E F6 00 54 ..T ldab 0054
4954 AA32 C3 0A 90 ... addd #0a90
4957 AA37 E7 00 .. stab 00,x
4958 AA39 7C 00 54 |.T inc 0054
4963 AA3F C6 49 .I ldab #49
4964 AA41 F7 0C C9 ... stab 0cc9
4965 AA44 C6 29 .) ldab #29
4966 AA46 F7 0C CA ... stab 0cca
4967 AA49 C6 20 . ldab #20
4968 AA4B F7 0C CB ... stab 0ccb
4969 AA4E 7F 00 54 ..T clr 0054
4970 AA51 F6 00 54 ..T ldab 0054
4971 AA54 C1 10 .. cmpb #10
4972 AA56 24 1B $. bcc 1b
4973 AA58 F6 00 54 ..T ldab 0054
4975 AA5C C3 0C C9 ... addd #0cc9
4977 AA60 E6 00 .. ldab 00,x
4979 AA63 F6 00 54 ..T ldab 0054
4981 AA67 C3 0A 90 ... addd #0a90
4984 AA6C E7 00 .. stab 00,x
4985 AA6E 7C 00 54 |.T inc 0054
4990 AA74 7F 00 54 ..T clr 0054
4991 AA77 F6 00 54 ..T ldab 0054
4992 AA7A C1 0B .. cmpb #0b
4993 AA7C 24 1B $. bcc 1b
4994 AA7E F6 00 54 ..T ldab 0054
4996 AA82 C3 0B E4 ... addd #0be4
4998 AA86 E6 00 .. ldab 00,x
5000 AA89 F6 00 54 ..T ldab 0054
5002 AA8D C3 00 68 ..h addd #0068
5005 AA92 E7 00 .. stab 00,x
5006 AA94 7C 00 54 |.T inc 0054
5011 AA9A F6 00 22 .." ldab 0022
5012 AA9D C1 06 .. cmpb #06
5013 AA9F 24 0F $. bcc 0f
5014 AAA1 7C 00 22 |." inc 0022
5015 AAA4 F6 00 22 .." ldab 0022
5016 AAA7 C1 05 .. cmpb #05
5017 AAA9 23 05 #. bls 05
5018 AAAB C6 01 .. ldab #01
5019 AAAD F7 00 22 .." stab 0022
5020 AAB0 F6 00 22 .." ldab 0022
5022 AAB4 BD FE 16 ... jsr fe16 ;jump2
5027 AABB AB 0B .. adda 0b,x
5028 AABD AA C7 .. ora c7,x
5029 AABF AA D5 .. ora d5,x
5030 AAC1 AA E3 .. ora e3,x
5031 AAC3 AA F1 .. ora f1,x
5032 AAC5 AA FF .. ora ff,x
5033 AAC7 F6 0B AF ... ldab 0baf
5034 AACA F7 00 24 ..$ stab 0024
5035 AACD F6 0B B4 ... ldab 0bb4
5036 AAD0 F7 00 2A ..* stab 002a
5038 AAD5 F6 0B AE ... ldab 0bae
5039 AAD8 F7 00 24 ..$ stab 0024
5040 AADB F6 0B B3 ... ldab 0bb3
5041 AADE F7 00 2A ..* stab 002a
5043 AAE3 F6 0B AD ... ldab 0bad
5044 AAE6 F7 00 24 ..$ stab 0024
5045 AAE9 F6 0B B2 ... ldab 0bb2
5046 AAEC F7 00 2A ..* stab 002a
5048 AAF1 F6 0B AC ... ldab 0bac
5049 AAF4 F7 00 24 ..$ stab 0024
5050 AAF7 F6 0B B1 ... ldab 0bb1
5051 AAFA F7 00 2A ..* stab 002a
5053 AAFF F6 0B AB ... ldab 0bab
5054 AB02 F7 00 24 ..$ stab 0024
5055 AB05 F6 0B B0 ... ldab 0bb0
5056 AB08 F7 00 2A ..* stab 002a
5060 AB0C C6 03 .. ldab #03
5061 AB0E F7 00 18 ... stab 0018
5062 AB11 7F 00 1C ... clr 001c
5063 AB14 F6 00 1C ... ldab 001c
5064 AB17 C1 04 .. cmpb #04
5065 AB19 24 6D $m bcc 6d
5066 AB1B C6 07 .. ldab #07
5067 AB1D F7 00 55 ..U stab 0055
5068 AB20 7F 00 54 ..T clr 0054
5069 AB23 F6 00 54 ..T ldab 0054
5070 AB26 C1 08 .. cmpb #08
5071 AB28 24 56 $V bcc 56
5072 AB2A F6 00 1C ... ldab 001c
5074 AB2E C3 0B A4 ... addd #0ba4
5076 AB32 E6 00 .. ldab 00,x
5078 AB35 F6 00 54 ..T ldab 0054
5080 AB39 C3 B4 B7 ... addd #b4b7
5082 AB3D E6 00 .. ldab 00,x
5084 AB40 E4 00 .. andb 00,x
5086 AB43 27 1A '. beq 1a
5087 AB45 F6 00 55 ..U ldab 0055
5089 AB49 C3 B4 B7 ... addd #b4b7
5091 AB4D E6 00 .. ldab 00,x
5093 AB50 F6 00 18 ... ldab 0018
5095 AB54 C3 00 62 ..b addd #0062
5098 AB59 EA 00 .. orb 00,x
5099 AB5B E7 00 .. stab 00,x
5101 AB5F F6 00 55 ..U ldab 0055
5103 AB63 C3 B4 B7 ... addd #b4b7
5105 AB67 E6 00 .. ldab 00,x
5108 AB6B F6 00 18 ... ldab 0018
5110 AB6F C3 00 62 ..b addd #0062
5113 AB74 E4 00 .. andb 00,x
5114 AB76 E7 00 .. stab 00,x
5115 AB78 7A 00 55 z.U dec 0055
5116 AB7B 7C 00 54 |.T inc 0054
5118 AB80 7A 00 18 z.. dec 0018
5119 AB83 7C 00 1C |.. inc 001c
5124 AB89 CC B0 8C ... ldd #b08c ; "NO ERRORS"
5125 AB8C BD C0 BA ... jsr c0ba ;display:
5126 AB8F CC 01 F4 ... ldd #01f4
5127 AB92 BD E5 71 ..q jsr e571 ;msdelay
5128 AB95 BD D4 79 ..y jsr d479 ;jump67
5129 AB98 BD E8 9A ... jsr e89a ;jump68
5130 AB9B BD E9 EA ... jsr e9ea ;jump113
5131 AB9E 7F 0B C1 ... clr 0bc1
5135 ABA2 7F 00 05 ... clr 0005
5137 ABA5 F6 00 05 ... ldab 0005
5138 ABA8 C1 64 .d cmpb #64
5139 ABAA 25 03 %. bcs 03
5140 ABAC 7E AC 81 ~.. jmp ac81 ;goto22
5141 ABAF F6 00 05 ... ldab 0005
5142 ABB2 F7 00 06 ... stab 0006
5143 ABB5 F6 00 05 ... ldab 0005
5145 ABB9 CE 00 05 ... ldx #0005
5148 ABBE 26 03 &. bne 03
5149 ABC0 7E AC 7B ~.{ jmp ac7b ;goto23
5150 ABC3 F6 00 06 ... ldab 0006
5151 ABC6 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
5152 ABC9 83 00 00 ... subd #0000
5153 ABCC 27 03 '. beq 03
5154 ABCE 7E AC 7B ~.{ jmp ac7b ;goto23
5155 ABD1 BD D3 11 ... jsr d311 ;jump30 - test position exists
5156 ABD4 83 00 00 ... subd #0000
5157 ABD7 27 2B '+ beq 2b
5158 ABD9 F6 00 05 ... ldab 0005
5161 ABDE C3 08 00 ... addd #0800
5163 ABE2 EC 00 .. ldd 00,x
5164 ABE4 C4 FF .. andb #ff
5165 ABE6 84 3F .? anda #3f
5166 ABE8 83 27 10 .'. subd #2710 ; 10000
5167 ABEB 24 15 $. bcc 15
5168 ABED CC 01 00 ... ldd #0100
5171 ABF2 F6 00 05 ... ldab 0005
5174 ABF7 C3 08 C8 ... addd #08c8
5177 ABFC AA 00 .. ora 00,x
5178 ABFE EA 01 .. orb 01,x
5179 AC00 ED 00 .. std 00,x
5181 AC04 F6 00 05 ... ldab 0005
5184 AC09 C3 08 00 ... addd #0800
5186 AC0D EC 00 .. ldd 00,x
5187 AC0F C4 FF .. andb #ff
5188 AC11 84 3F .? anda #3f
5189 AC13 83 27 0F .'. subd #270f
5190 AC16 23 15 #. bls 15
5191 AC18 CC 01 00 ... ldd #0100
5194 AC1D F6 00 05 ... ldab 0005
5197 AC22 C3 08 C8 ... addd #08c8
5200 AC27 AA 00 .. ora 00,x
5201 AC29 EA 01 .. orb 01,x
5202 AC2B ED 00 .. std 00,x
5203 AC2D F6 00 05 ... ldab 0005
5206 AC32 C3 08 C8 ... addd #08c8
5208 AC36 EC 00 .. ldd 00,x
5209 AC38 84 01 .. anda #01
5210 AC3A 27 06 '. beq 06
5211 AC3C CE 00 19 ... ldx #0019
5212 AC3F 1C 00 04 ... bset 00,x, #04
5213 AC42 F6 00 05 ... ldab 0005
5216 AC47 C3 08 00 ... addd #0800
5218 AC4B EC 00 .. ldd 00,x
5219 AC4D 84 80 .. anda #80
5220 AC4F 27 2A '* beq 2a
5221 AC51 F6 00 05 ... ldab 0005
5224 AC56 C3 08 C8 ... addd #08c8
5226 AC5A EC 00 .. ldd 00,x
5227 AC5C 84 02 .. anda #02
5228 AC5E 27 06 '. beq 06
5229 AC60 CE 00 19 ... ldx #0019
5230 AC63 1C 00 01 ... bset 00,x, #01
5231 AC66 F6 00 05 ... ldab 0005
5234 AC6B C3 08 C8 ... addd #08c8
5236 AC6F EC 00 .. ldd 00,x
5237 AC71 84 04 .. anda #04
5238 AC73 27 06 '. beq 06
5239 AC75 CE 00 19 ... ldx #0019
5240 AC78 1C 00 02 ... bset 00,x, #02
5242 AC7B 7C 00 05 |.. inc 0005
5243 AC7E 7E AB A5 ~.. jmp aba5 ;goto24
5245 AC81 F6 00 19 ... ldab 0019
5246 AC84 C4 07 .. andb #07
5247 AC86 26 0A &. bne 0a
5248 AC88 F6 0B C1 ... ldab 0bc1
5249 AC8B C4 7F .. andb #7f
5250 AC8D 26 03 &. bne 03
5253 AC92 C6 01 .. ldab #01
5255 AC95 26 05 &. bne 05
5256 AC97 C6 0D .. ldab #0d
5257 AC99 F7 00 48 ..H stab 0048
5696 AEBE 24 35 $5 bcc 35
5705 AEC9 24 35 $5 bcc 35
5861 AF84 24 31 $1 bcc 31
5869 AF8F 24 31 $1 bcc 31
5901 AFB7 22 30 "0 bhi 30
5902 AFB9 22 00 ". bhi 00
5941 AFE7 2D 50 -P blt 50
5949 AFF0 2D 00 -. blt 00
6165 B0DD 21 2C !, brn 2c
6176 B0EA 63 1F c. com 1f,x
6177 B0EC 2A 35 *5 bpl 35
6183 B0F3 29 34 )4 bvs 34
6194 B0FF 60 07 `. neg 07,x
6196 B102 1D 3D 48 ... bclr 3d,x, #48
6201 B109 1C 27 47 ... bset 27,x, #47 ; fixed by ./fixbset.pl - verify me
6207 B111 26 31 &1 bne 31
6213 B118 25 30 %0 bcs 30
6219 B11F 24 2F $/ bcc 2f
6223 table of powers of 2
6230 B12E 2A 2A ** bpl 2a ;"**ERROR***"
6236 B135 2A 2A ** bpl 2a
6237 B137 2A 00 *. bpl 00
6239 B139 2A 2A ** bpl 2a
6240 B13B 2A 2A ** bpl 2a
6241 B13D 2A 2A ** bpl 2a
6242 B13F 2A 2A ** bpl 2a
6243 B141 2A 2A ** bpl 2a
6276 B167 2D 50 -P blt 50
6285 B172 2D 50 -P blt 50
6294 B17D 2D 50 -P blt 50
6304 B188 2D 50 -P blt 50
6322 B19E 2D 50 -P blt 50
6340 B1B4 2D 50 -P blt 50
6359 B1CB 24 2C $, bcc 2c
6455 B240 2D 2D -- blt 2d
6456 B242 2D 2D -- blt 2d
6457 B244 2D 2D -- blt 2d
6458 B246 2D 2D -- blt 2d
6459 B248 2D 2D -- blt 2d
6460 B24A 2D 2D -- blt 2d
6461 B24C 2D 2D -- blt 2d
6462 B24E 2D 2D -- blt 2d
6463 B250 2D 2D -- blt 2d
6464 B252 2D 2D -- blt 2d
6465 B254 2D 00 -. blt 00
6554 B2CD 28 52 (R bvc 52
6566 B2DF 28 4E (N bvc 4e
6731 B3CE 24 31 $1 bcc 31
6781 B415 2D 53 -S blt 53
6875 B489 2F 43 /C ble 43
6916 B4B3 24 2A $* bcc 2a
6924 B4BE 80 FF .. suba #ff
6925 B4C0 FF FF FF ... stx ffff
6926 B4C3 FF FF FF ... stx ffff
6927 B4C6 FF FF FF ... stx ffff
6928 B4C9 FF FF FF ... stx ffff
6929 B4CC FF FF FF ... stx ffff
6930 B4CF FF FF FF ... stx ffff
6931 B4D2 FF FF FF ... stx ffff
6932 B4D5 FF FF FF ... stx ffff
6933 B4D8 FF FF FF ... stx ffff
6934 B4DB FF FF FF ... stx ffff
6935 B4DE FF FF FF ... stx ffff
6936 B4E1 FF FF FF ... stx ffff
6937 B4E4 FF FF FF ... stx ffff
6938 B4E7 FF FF FF ... stx ffff
6939 B4EA FF FF FF ... stx ffff
6940 B4ED FF FF FF ... stx ffff
6941 B4F0 FF FF FF ... stx ffff
6942 B4F3 FF FF FF ... stx ffff
6943 B4F6 FF FF FF ... stx ffff
6944 B4F9 FF FF FF ... stx ffff
6945 B4FC FF FF FF ... stx ffff
6946 B4FF FF FF FF ... stx ffff
6947 B502 FF FF FF ... stx ffff
6948 B505 FF FF FF ... stx ffff
6949 B508 FF FF FF ... stx ffff
6950 B50B FF FF FF ... stx ffff
6951 B50E FF FF FF ... stx ffff
6952 B511 FF FF FF ... stx ffff
6953 B514 FF FF FF ... stx ffff
6954 B517 FF FF FF ... stx ffff
6955 B51A FF FF FF ... stx ffff
6956 B51D FF FF FF ... stx ffff
6957 B520 FF FF FF ... stx ffff
6958 B523 FF FF FF ... stx ffff
6959 B526 FF FF FF ... stx ffff
6960 B529 FF FF FF ... stx ffff
6961 B52C FF FF FF ... stx ffff
6962 B52F FF FF FF ... stx ffff
6963 B532 FF FF FF ... stx ffff
6964 B535 FF FF FF ... stx ffff
6965 B538 FF FF FF ... stx ffff
6966 B53B FF FF FF ... stx ffff
6967 B53E FF FF FF ... stx ffff
6968 B541 FF FF FF ... stx ffff
6969 B544 FF FF FF ... stx ffff
6970 B547 FF FF FF ... stx ffff
6971 B54A FF FF FF ... stx ffff
6972 B54D FF FF FF ... stx ffff
6973 B550 FF FF FF ... stx ffff
6974 B553 FF FF FF ... stx ffff
6975 B556 FF FF FF ... stx ffff
6976 B559 FF FF FF ... stx ffff
6977 B55C FF FF FF ... stx ffff
6978 B55F FF FF FF ... stx ffff
6979 B562 FF FF FF ... stx ffff
6980 B565 FF FF FF ... stx ffff
6981 B568 FF FF FF ... stx ffff
6982 B56B FF FF FF ... stx ffff
6983 B56E FF FF FF ... stx ffff
6984 B571 FF FF FF ... stx ffff
6985 B574 FF FF FF ... stx ffff
6986 B577 FF FF FF ... stx ffff
6987 B57A FF FF FF ... stx ffff
6988 B57D FF FF FF ... stx ffff
6989 B580 FF FF FF ... stx ffff
6990 B583 FF FF FF ... stx ffff
6991 B586 FF FF FF ... stx ffff
6992 B589 FF FF FF ... stx ffff
6993 B58C FF FF FF ... stx ffff
6994 B58F FF FF FF ... stx ffff
6995 B592 FF FF FF ... stx ffff
6996 B595 FF FF FF ... stx ffff
6997 B598 FF FF FF ... stx ffff
6998 B59B FF FF FF ... stx ffff
6999 B59E FF FF FF ... stx ffff
7000 B5A1 FF FF FF ... stx ffff
7001 B5A4 FF FF FF ... stx ffff
7002 B5A7 FF FF FF ... stx ffff
7003 B5AA FF FF FF ... stx ffff
7004 B5AD FF FF FF ... stx ffff
7005 B5B0 FF FF FF ... stx ffff
7006 B5B3 FF FF FF ... stx ffff
7007 B5B6 FF FF FF ... stx ffff
7008 B5B9 FF FF FF ... stx ffff
7009 B5BC FF FF FF ... stx ffff
7010 B5BF FF FF FF ... stx ffff
7011 B5C2 FF FF FF ... stx ffff
7012 B5C5 FF FF FF ... stx ffff
7013 B5C8 FF FF FF ... stx ffff
7014 B5CB FF FF FF ... stx ffff
7015 B5CE FF FF FF ... stx ffff
7016 B5D1 FF FF FF ... stx ffff
7017 B5D4 FF FF FF ... stx ffff
7018 B5D7 FF FF FF ... stx ffff
7019 B5DA FF FF FF ... stx ffff
7020 B5DD FF FF FF ... stx ffff
7021 B5E0 FF FF FF ... stx ffff
7022 B5E3 FF FF FF ... stx ffff
7023 B5E6 FF FF FF ... stx ffff
7024 B5E9 FF FF FF ... stx ffff
7025 B5EC FF FF FF ... stx ffff
7026 B5EF FF FF FF ... stx ffff
7027 B5F2 FF FF FF ... stx ffff
7028 B5F5 FF FF FF ... stx ffff
7029 B5F8 FF FF FF ... stx ffff
7030 B5FB FF FF FF ... stx ffff
7031 B5FE FF FF FF ... stx ffff
7032 B601 FF FF FF ... stx ffff
7033 B604 FF FF FF ... stx ffff
7034 B607 FF FF FF ... stx ffff
7035 B60A FF FF FF ... stx ffff
7036 B60D FF FF FF ... stx ffff
7037 B610 FF FF FF ... stx ffff
7038 B613 FF FF FF ... stx ffff
7039 B616 FF FF FF ... stx ffff
7040 B619 FF FF FF ... stx ffff
7041 B61C FF FF FF ... stx ffff
7042 B61F FF FF FF ... stx ffff
7043 B622 FF FF FF ... stx ffff
7044 B625 FF FF FF ... stx ffff
7045 B628 FF FF FF ... stx ffff
7046 B62B FF FF FF ... stx ffff
7047 B62E FF FF FF ... stx ffff
7048 B631 FF FF FF ... stx ffff
7049 B634 FF FF FF ... stx ffff
7050 B637 FF FF FF ... stx ffff
7051 B63A FF FF FF ... stx ffff
7052 B63D FF FF FF ... stx ffff
7053 B640 FF FF FF ... stx ffff
7054 B643 FF FF FF ... stx ffff
7055 B646 FF FF FF ... stx ffff
7056 B649 FF FF FF ... stx ffff
7057 B64C FF FF FF ... stx ffff
7058 B64F FF FF FF ... stx ffff
7059 B652 FF FF FF ... stx ffff
7060 B655 FF FF FF ... stx ffff
7061 B658 FF FF FF ... stx ffff
7062 B65B FF FF FF ... stx ffff
7063 B65E FF FF FF ... stx ffff
7064 B661 FF FF FF ... stx ffff
7065 B664 FF FF FF ... stx ffff
7066 B667 FF FF FF ... stx ffff
7067 B66A FF FF FF ... stx ffff
7068 B66D FF FF FF ... stx ffff
7069 B670 FF FF FF ... stx ffff
7070 B673 FF FF FF ... stx ffff
7071 B676 FF FF FF ... stx ffff
7072 B679 FF FF FF ... stx ffff
7073 B67C FF FF FF ... stx ffff
7074 B67F FF FF FF ... stx ffff
7075 B682 FF FF FF ... stx ffff
7076 B685 FF FF FF ... stx ffff
7077 B688 FF FF FF ... stx ffff
7078 B68B FF FF FF ... stx ffff
7079 B68E FF FF FF ... stx ffff
7080 B691 FF FF FF ... stx ffff
7081 B694 FF FF FF ... stx ffff
7082 B697 FF FF FF ... stx ffff
7083 B69A FF FF FF ... stx ffff
7084 B69D FF FF FF ... stx ffff
7085 B6A0 FF FF FF ... stx ffff
7086 B6A3 FF FF FF ... stx ffff
7087 B6A6 FF FF FF ... stx ffff
7088 B6A9 FF FF FF ... stx ffff
7089 B6AC FF FF FF ... stx ffff
7090 B6AF FF FF FF ... stx ffff
7091 B6B2 FF FF FF ... stx ffff
7092 B6B5 FF FF FF ... stx ffff
7093 B6B8 FF FF FF ... stx ffff
7094 B6BB FF FF FF ... stx ffff
7095 B6BE FF FF FF ... stx ffff
7096 B6C1 FF FF FF ... stx ffff
7097 B6C4 FF FF FF ... stx ffff
7098 B6C7 FF FF FF ... stx ffff
7099 B6CA FF FF FF ... stx ffff
7100 B6CD FF FF FF ... stx ffff
7101 B6D0 FF FF FF ... stx ffff
7102 B6D3 FF FF FF ... stx ffff
7103 B6D6 FF FF FF ... stx ffff
7104 B6D9 FF FF FF ... stx ffff
7105 B6DC FF FF FF ... stx ffff
7106 B6DF FF FF FF ... stx ffff
7107 B6E2 FF FF FF ... stx ffff
7108 B6E5 FF FF FF ... stx ffff
7109 B6E8 FF FF FF ... stx ffff
7110 B6EB FF FF FF ... stx ffff
7111 B6EE FF FF FF ... stx ffff
7112 B6F1 FF FF FF ... stx ffff
7113 B6F4 FF FF FF ... stx ffff
7114 B6F7 FF FF FF ... stx ffff
7115 B6FA FF FF FF ... stx ffff
7116 B6FD FF FF FF ... stx ffff
7117 B700 FF FF FF ... stx ffff
7118 B703 FF FF FF ... stx ffff
7119 B706 FF FF FF ... stx ffff
7120 B709 FF FF FF ... stx ffff
7121 B70C FF FF FF ... stx ffff
7122 B70F FF FF FF ... stx ffff
7123 B712 FF FF FF ... stx ffff
7124 B715 FF FF FF ... stx ffff
7125 B718 FF FF FF ... stx ffff
7126 B71B FF FF FF ... stx ffff
7127 B71E FF FF FF ... stx ffff
7128 B721 FF FF FF ... stx ffff
7129 B724 FF FF FF ... stx ffff
7130 B727 FF FF FF ... stx ffff
7131 B72A FF FF FF ... stx ffff
7132 B72D FF FF FF ... stx ffff
7133 B730 FF FF FF ... stx ffff
7134 B733 FF FF FF ... stx ffff
7135 B736 FF FF FF ... stx ffff
7136 B739 FF FF FF ... stx ffff
7137 B73C FF FF FF ... stx ffff
7138 B73F FF FF FF ... stx ffff
7139 B742 FF FF FF ... stx ffff
7140 B745 FF FF FF ... stx ffff
7141 B748 FF FF FF ... stx ffff
7142 B74B FF FF FF ... stx ffff
7143 B74E FF FF FF ... stx ffff
7144 B751 FF FF FF ... stx ffff
7145 B754 FF FF FF ... stx ffff
7146 B757 FF FF FF ... stx ffff
7147 B75A FF FF FF ... stx ffff
7148 B75D FF FF FF ... stx ffff
7149 B760 FF FF FF ... stx ffff
7150 B763 FF FF FF ... stx ffff
7151 B766 FF FF FF ... stx ffff
7152 B769 FF FF FF ... stx ffff
7153 B76C FF FF FF ... stx ffff
7154 B76F FF FF FF ... stx ffff
7155 B772 FF FF FF ... stx ffff
7156 B775 FF FF FF ... stx ffff
7157 B778 FF FF FF ... stx ffff
7158 B77B FF FF FF ... stx ffff
7159 B77E FF FF FF ... stx ffff
7160 B781 FF FF FF ... stx ffff
7161 B784 FF FF FF ... stx ffff
7162 B787 FF FF FF ... stx ffff
7163 B78A FF FF FF ... stx ffff
7164 B78D FF FF FF ... stx ffff
7165 B790 FF FF FF ... stx ffff
7166 B793 FF FF FF ... stx ffff
7167 B796 FF FF FF ... stx ffff
7168 B799 FF FF FF ... stx ffff
7169 B79C FF FF FF ... stx ffff
7170 B79F FF FF FF ... stx ffff
7171 B7A2 FF FF FF ... stx ffff
7172 B7A5 FF FF FF ... stx ffff
7173 B7A8 FF FF FF ... stx ffff
7174 B7AB FF FF FF ... stx ffff
7175 B7AE FF FF FF ... stx ffff
7176 B7B1 FF FF FF ... stx ffff
7177 B7B4 FF FF FF ... stx ffff
7178 B7B7 FF FF FF ... stx ffff
7179 B7BA FF FF FF ... stx ffff
7180 B7BD FF FF FF ... stx ffff
7181 B7C0 FF FF FF ... stx ffff
7182 B7C3 FF FF FF ... stx ffff
7183 B7C6 FF FF FF ... stx ffff
7184 B7C9 FF FF FF ... stx ffff
7185 B7CC FF FF FF ... stx ffff
7186 B7CF FF FF FF ... stx ffff
7187 B7D2 FF FF FF ... stx ffff
7188 B7D5 FF FF FF ... stx ffff
7189 B7D8 FF FF FF ... stx ffff
7190 B7DB FF FF FF ... stx ffff
7191 B7DE FF FF FF ... stx ffff
7192 B7E1 FF FF FF ... stx ffff
7193 B7E4 FF FF FF ... stx ffff
7194 B7E7 FF FF FF ... stx ffff
7195 B7EA FF FF FF ... stx ffff
7196 B7ED FF FF FF ... stx ffff
7197 B7F0 FF FF FF ... stx ffff
7198 B7F3 FF FF FF ... stx ffff
7199 B7F6 FF FF FF ... stx ffff
7200 B7F9 FF FF FF ... stx ffff
7201 B7FC FF FF FF ... stx ffff
7206 B801 F6 0E 6D ... ldab 0e6d
7207 B804 C1 01 .. cmpb #01
7208 B806 27 03 '. beq 03
7209 B808 7E B9 2A ~.* jmp b92a ;goto25
7210 B80B F6 0E 02 ... ldab 0e02
7211 B80E C1 05 .. cmpb #05 ; was the 3rd last keypress a 5?
7212 B810 27 03 '. beq 03
7213 B812 7E B9 2A ~.* jmp b92a ;goto25
7214 B815 F6 0E 03 ... ldab 0e03
7215 B818 C1 05 .. cmpb #05 ; was the 2nd last keypress a 5?
7216 B81A 27 03 '. beq 03
7217 B81C 7E B9 2A ~.* jmp b92a ;goto25
7218 B81F F6 0E 04 ... ldab 0e04
7219 B822 C1 05 .. cmpb #05 ; was the last keypress a 5?
7220 B824 27 03 '. beq 03
7221 B826 7E B9 2A ~.* jmp b92a ;goto25
7222 B829 F6 00 12 ... ldab 0012
7223 B82C C4 20 . andb #20 ; test the door switch
7224 B82E 27 03 '. beq 03
7225 B830 7E B9 2A ~.* jmp b92a ;goto25
7227 B834 6F 00 o. clr 00,x
7228 B836 F6 0E 6A ..j ldab 0e6a
7229 B839 C1 00 .. cmpb #00
7230 B83B 22 33 "3 bhi 33
7231 B83D C6 64 .d ldab #64
7232 B83F F7 0E 6A ..j stab 0e6a
7233 B842 7C 0E 05 |.. inc 0e05
7234 B845 F6 0E 05 ... ldab 0e05
7235 B848 C1 64 .d cmpb #64
7236 B84A 23 03 #. bls 03
7237 B84C 7F 0E 05 ... clr 0e05
7238 B84F F6 0E 05 ... ldab 0e05
7239 B852 BD D4 68 ..h jsr d468 ;jump51
7240 B855 83 00 00 ... subd #0000
7241 B858 27 0B '. beq 0b
7242 B85A F6 0E 05 ... ldab 0e05
7243 B85D BD D7 A0 ... jsr d7a0 ;is_invalid_slot
7244 B860 83 00 00 ... subd #0000
7245 B863 27 09 '. beq 09
7247 B866 6C 00 l. inc 00,x
7248 B868 E6 00 .. ldab 00,x
7249 B86A C1 6E .n cmpb #6e ; 110 or 01101110
7250 B86C 2D D4 -. blt d4
7252 B870 F6 0E 6A ..j ldab 0e6a
7253 B873 C1 00 .. cmpb #00
7254 B875 23 03 #. bls 03
7255 B877 7A 0E 6A z.j dec 0e6a
7256 B87A F6 0E 05 ... ldab 0e05
7257 B87D BD D4 68 ..h jsr d468 ;jump51
7258 B880 83 00 00 ... subd #0000
7259 B883 26 03 &. bne 03
7260 B885 7E B9 0A ~.. jmp b90a ;goto26
7261 B888 F6 0E 05 ... ldab 0e05
7262 B88B BD D7 A0 ... jsr d7a0 ;is_invalid_slot
7263 B88E 83 00 00 ... subd #0000
7264 B891 26 77 &w bne 77
7265 B893 BD BE 4B ..K jsr be4b ;displayblank
7266 B896 C6 20 . ldab #20 ; " "
7267 B898 F7 0B 9A ... stab 0b9a
7268 B89B C6 20 . ldab #20 ; " "
7269 B89D F7 0B 99 ... stab 0b99
7270 B8A0 C6 20 . ldab #20 ; " "
7271 B8A2 F7 0B 98 ... stab 0b98
7272 B8A5 F6 0E 05 ... ldab 0e05 ; array index/10
7274 B8A9 CE 00 0A ... ldx #000a
7277 B8AE CB 30 .0 addb #30 ; make it a digit
7278 B8B0 F7 0B 97 ... stab 0b97
7279 B8B3 F6 0E 05 ... ldab 0e05 ; array index%10
7281 B8B7 CE 00 0A ... ldx #000a
7283 B8BB CB 30 .0 addb #30 ; make it a digit
7284 B8BD F7 0B 96 ... stab 0b96
7285 B8C0 C6 20 . ldab #20 ; " "
7286 B8C2 F7 0B 95 ... stab 0b95
7287 B8C5 C6 20 . ldab #20 ; " "
7288 B8C7 F7 0B 94 ... stab 0b94
7289 B8CA F6 0E 05 ... ldab 0e05 ; array[index]/10
7291 B8CE C3 0E 06 ... addd #0e06
7293 B8D2 E6 00 .. ldab 00,x
7295 B8D5 CE 00 0A ... ldx #000a
7298 B8DA CB 30 .0 addb #30 ; make it a digit
7299 B8DC F7 0B 93 ... stab 0b93
7300 B8DF F6 0E 05 ... ldab 0e05 ; array[index]%10
7302 B8E3 C3 0E 06 ... addd #0e06
7304 B8E7 E6 00 .. ldab 00,x
7306 B8EA CE 00 0A ... ldx #000a
7308 B8EE CB 30 .0 addb #30 ; make it a digit
7309 B8F0 F7 0B 92 ... stab 0b92
7310 B8F3 C6 20 . ldab #20 ; " "
7311 B8F5 F7 0B 91 ... stab 0b91
7312 B8F8 C6 20 . ldab #20 ; " "
7313 B8FA F7 0B 90 ... stab 0b90
7314 B8FD 7F 00 2C .., clr 002c
7315 B900 BD BE 01 ... jsr be01 ;jump70
7316 B903 C6 0A .. ldab #0a
7317 B905 F7 00 2C .., stab 002c
7320 B90A BD BE 4B ..K jsr be4b ;displayblank
7321 B90D C6 57 .W ldab #57 ; "W"
7322 B90F F7 0B 96 ... stab 0b96
7323 B912 C6 42 .B ldab #42 ; "B"
7324 B914 F7 0B 95 ... stab 0b95
7325 B917 C6 42 .B ldab #42 ; "B"
7326 B919 F7 0B 94 ... stab 0b94
7327 B91C 7F 00 2C .., clr 002c
7328 B91F BD BE 01 ... jsr be01 ;jump70 write to display
7329 B922 C6 0A .. ldab #0a
7330 B924 F7 00 2C .., stab 002c
7331 B927 7E BA 81 ~.. jmp ba81 ;goto27
7333 B92A F6 0E 6D ..m ldab 0e6d
7334 B92D C1 01 .. cmpb #01
7335 B92F 27 03 '. beq 03
7336 B931 7E BA 81 ~.. jmp ba81 ;goto27
7337 B934 F6 0E 00 ... ldab 0e00
7338 B937 C1 05 .. cmpb #05
7339 B939 27 03 '. beq 03
7340 B93B 7E BA 81 ~.. jmp ba81 ;goto27
7341 B93E F6 0E 01 ... ldab 0e01
7342 B941 C1 05 .. cmpb #05
7343 B943 27 03 '. beq 03
7344 B945 7E BA 81 ~.. jmp ba81 ;goto27
7345 B948 F6 0E 02 ... ldab 0e02
7346 B94B C1 05 .. cmpb #05
7347 B94D 27 03 '. beq 03
7348 B94F 7E BA 81 ~.. jmp ba81 ;goto27
7349 B952 F6 00 12 ... ldab 0012
7350 B955 C4 20 . andb #20 ; test the door switch
7351 B957 26 03 &. bne 03
7352 B959 7E BA 81 ~.. jmp ba81 ;goto27
7353 B95C F6 0E 04 ... ldab 0e04
7354 B95F C1 05 .. cmpb #05
7355 B961 26 79 &y bne 79
7356 B963 F6 0E 03 ... ldab 0e03
7357 B966 C1 05 .. cmpb #05
7358 B968 26 72 &r bne 72
7360 B96B 6F 00 o. clr 00,x
7362 B96E E6 00 .. ldab 00,x
7363 B970 C1 64 .d cmpb #64
7364 B972 2C 16 ,. bge 16
7368 B977 E6 01 .. ldab 01,x
7371 B97B 2C 01 ,. bge 01
7373 B97E C3 0E 06 ... addd #0e06
7376 B983 E7 00 .. stab 00,x
7378 B986 6C 00 l. inc 00,x
7380 B98A 7F 0D FF ... clr 0dff
7381 B98D 7F 0E 00 ... clr 0e00
7382 B990 7F 0E 01 ... clr 0e01
7383 B993 7F 0E 02 ... clr 0e02
7384 B996 7F 0E 03 ... clr 0e03
7385 B999 7F 0E 04 ... clr 0e04
7386 B99C C6 41 .A ldab #41 ; "A"
7387 B99E F7 0B 99 ... stab 0b99
7388 B9A1 C6 4C .L ldab #4c ; "L"
7389 B9A3 F7 0B 98 ... stab 0b98
7390 B9A6 C6 4C .L ldab #4c ; "L"
7391 B9A8 F7 0B 97 ... stab 0b97
7392 B9AB C6 20 . ldab #20 ; " "
7393 B9AD F7 0B 96 ... stab 0b96
7394 B9B0 C6 43 .C ldab #43 ; "C"
7395 B9B2 F7 0B 95 ... stab 0b95
7396 B9B5 C6 4C .L ldab #4c ; "L"
7397 B9B7 F7 0B 94 ... stab 0b94
7398 B9BA C6 45 .E ldab #45 ; "E"
7399 B9BC F7 0B 93 ... stab 0b93
7400 B9BF C6 41 .A ldab #41 ; "A"
7401 B9C1 F7 0B 92 ... stab 0b92
7402 B9C4 C6 52 .R ldab #52 ; "R"
7403 B9C6 F7 0B 91 ... stab 0b91
7404 B9C9 C6 20 . ldab #20 ; " "
7405 B9CB F7 0B 90 ... stab 0b90
7406 B9CE 7F 00 2C .., clr 002c
7407 B9D1 BD BE 01 ... jsr be01 ;jump70 - display
7408 B9D4 C6 1E .. ldab #1e
7409 B9D6 F7 00 2C .., stab 002c
7410 B9D9 7E BA 81 ~.. jmp ba81 ;goto27
7411 B9DC F6 0E 04 ... ldab 0e04
7412 B9DF C1 01 .. cmpb #01
7413 B9E1 27 0A '. beq 0a
7414 B9E3 F6 0E 04 ... ldab 0e04
7415 B9E6 C1 02 .. cmpb #02
7416 B9E8 27 03 '. beq 03
7417 B9EA 7E BA 81 ~.. jmp ba81 ;goto27
7418 B9ED F6 0E 03 ... ldab 0e03
7419 B9F0 C1 00 .. cmpb #00
7420 B9F2 22 03 ". bhi 03
7421 B9F4 7E BA 81 ~.. jmp ba81 ;goto27
7422 B9F7 F6 0E 03 ... ldab 0e03
7423 B9FA C1 05 .. cmpb #05
7424 B9FC 26 03 &. bne 03
7425 B9FE 7E BA 81 ~.. jmp ba81 ;goto27
7426 BA01 F6 0E 03 ... ldab 0e03
7427 BA04 C1 07 .. cmpb #07
7428 BA06 24 79 $y bcc 79
7429 BA08 F6 0E 03 ... ldab 0e03 ; prevkey*10+key
7430 BA0B 86 0A .. ldaa #0a
7432 BA0E FB 0E 04 ... addb 0e04
7434 BA12 E7 00 .. stab 00,x
7435 BA14 E6 00 .. ldab 00,x
7436 BA16 C1 64 .d cmpb #64
7437 BA18 2C 67 ,g bge 67
7438 BA1A E6 00 .. ldab 00,x
7439 BA1C 2D 63 -c blt 63
7443 BA21 E6 01 .. ldab 01,x
7446 BA25 2C 01 ,. bge 01
7448 BA28 C3 0E 06 ... addd #0e06
7451 BA2D E7 00 .. stab 00,x
7452 BA2F F6 0E 03 ... ldab 0e03
7453 BA32 CB 30 .0 addb #30 ; +48 (make an ascii digit)
7454 BA34 F7 0B 99 ... stab 0b99
7455 BA37 F6 0E 04 ... ldab 0e04
7456 BA3A CB 30 .0 addb #30 ; +48 (make an ascii digit)
7457 BA3C F7 0B 98 ... stab 0b98
7458 BA3F C6 20 . ldab #20 ; " "
7459 BA41 F7 0B 97 ... stab 0b97
7460 BA44 C6 43 .C ldab #43 ; "C"
7461 BA46 F7 0B 96 ... stab 0b96
7462 BA49 C6 4C .L ldab #4c ; "L"
7463 BA4B F7 0B 95 ... stab 0b95
7464 BA4E C6 45 .E ldab #45 ; "E"
7465 BA50 F7 0B 94 ... stab 0b94
7466 BA53 C6 41 .A ldab #41 ; "A"
7467 BA55 F7 0B 93 ... stab 0b93
7468 BA58 C6 52 .R ldab #52 ; "R"
7469 BA5A F7 0B 92 ... stab 0b92
7470 BA5D C6 45 .E ldab #45 ; "E"
7471 BA5F F7 0B 91 ... stab 0b91
7472 BA62 C6 44 .D ldab #44 ; "D"
7473 BA64 F7 0B 90 ... stab 0b90
7474 BA67 7F 0E 00 ... clr 0e00
7475 BA6A 7F 0E 01 ... clr 0e01
7476 BA6D 7F 0E 02 ... clr 0e02
7477 BA70 7F 0E 03 ... clr 0e03
7478 BA73 7F 0E 04 ... clr 0e04
7479 BA76 7F 00 2C .., clr 002c
7480 BA79 BD BE 01 ... jsr be01 ;jump70 - display
7481 BA7C C6 1E .. ldab #1e
7482 BA7E F7 00 2C .., stab 002c
7488 ; reads the keypad state into 005b & 0056
7489 ; it looks like it returns without doing anything if the
7490 ; no sale switch is pressed, but I haven't looked closely
7491 BA83 F6 18 00 ... ldab 1800
7492 BA86 C4 7F .. andb #7f
7493 BA88 F7 00 23 ..# stab 0023
7494 BA8B F6 00 23 ..# ldab 0023
7495 BA8E F1 00 12 ... cmpb 0012 ; door buffers - debouncing it?
7496 BA91 27 06 '. beq 06
7497 BA93 F6 00 23 ..# ldab 0023
7498 BA96 F7 00 12 ... stab 0012
7499 BA99 F6 20 00 . . ldab 2000
7500 BA9C F1 00 20 .. cmpb 0020
7501 BA9F 27 08 '. beq 08
7502 BAA1 F6 20 00 . . ldab 2000
7503 BAA4 F7 00 20 .. stab 0020
7505 BAA9 F6 00 20 .. ldab 0020
7506 BAAC F7 00 11 ... stab 0011
7507 BAAF F6 00 11 ... ldab 0011
7508 BAB2 C4 03 .. andb #03
7509 BAB4 F7 00 2B ..+ stab 002b
7510 BAB7 F6 00 1B ... ldab 001b
7511 BABA C4 04 .. andb #04
7513 BABD F6 10 0A ... ldab 100a ; PortE
7514 BAC0 C4 04 .. andb #04 ; no sale switch (active low)
7516 BAC3 E0 00 .. subb 00,x
7518 BAC6 27 17 '. beq 17
7519 BAC8 F6 10 0A ... ldab 100a ; PortE
7520 BACB C4 04 .. andb #04 : no sale switch (active low)
7521 BACD 27 08 '. beq 08
7522 BACF CE 00 1B ... ldx #001b
7523 BAD2 1C 00 04 .. bset 00,x, #04
7525 BAD7 CE 00 1B ... ldx #001b
7526 BADA 1D 00 04 .. bclr 00,x, #04
7528 BADF F6 10 0A ... ldab 100a ; PortE
7529 BAE2 C4 04 .. andb #04 ; no sale switch (active low)
7530 BAE4 27 08 '. beq 08
7531 BAE6 CE 00 1D ... ldx #001d
7532 BAE9 1C 00 04 .. bset 00,x, #04
7534 BAEE CE 00 1D ... ldx #001d
7535 BAF1 1D 00 04 .. bclr 00,x, #04
7536 BAF4 CE 10 08 ... ldx #1008 : PortD
7537 BAF7 1D 00 20 ... bclr 00,x, #20 ; select keypad row 0
7538 BAF9 CE 10 28 ... ldx #1028
7539 BAFC 1C 00 40 ... bset 00,x #40 ; enable SPI
7541 BB00 CE 00 14 ... ldx #0014 ; keypad strobe:
7542 BB03 1C 00 04 .. bset 00,x, #04 ; resets the keypad
7543 BB06 F6 00 14 ... ldab 0014 ; shift register
7544 BB09 F7 38 00 .8. stab 3800 ; ready for a new
7545 BB0C CE 00 14 ... ldx #0014 ; read
7546 BB0F 1D 00 04 .. bclr 00,x, #04
7547 BB12 F6 00 14 ... ldab 0014
7548 BB15 F7 38 00 .8. stab 3800
7550 BB18 CE 00 00 ... ldx #0000
7554 BB1E BD BD B5 ... jsr bdb5 ;jump78 - reads the keypad inputs into X
7556 BB22 F7 00 5B ..[ stab 005b
7558 BB25 CE 10 28 ..( ldx #1028
7559 BB28 1D 00 40 .. bclr 00,x, #40 ; disable SPI
7561 BB2B CE 10 08 ... ldx #1008
7562 BB2E 1C 00 20 .. bset 00,x, #20 ; select keypad row 1
7564 BB30 CE 10 28 ... ldx #1028
7565 BB33 1C 00 40 ... bset 00,x, #40 ; enable the SPI
7567 BB37 CE 00 14 ... ldx #0014
7568 BB3A 1C 00 04 .. bset 00,x, #04 ; keypad strobe
7569 BB3D F6 00 14 ... ldab 0014
7570 BB40 F7 38 00 .8. stab 3800
7571 BB43 CE 00 14 ... ldx #0014
7572 BB46 1D 00 04 .. bclr 00,x, #04
7573 BB49 F6 00 14 ... ldab 0014
7574 BB4C F7 38 00 .8. stab 3800
7576 BB4F CE 00 00 ... ldx #0000
7580 BB55 BD BD B5 ... jsr bdb5 ;jump78 - read the keypad
7582 BB59 F7 00 56 ..V stab 0056
7583 BB5C CE 10 28 ..( ldx #1028
7584 BB5F 1D 00 40 .. bclr 00,x, #40
7588 BB63 F6 00 00 ... ldab 0000
7589 BB66 27 03 '. beq 03
7590 BB68 7E BD B4 ~.. jmp bdb4 ;goto28
7591 BB6B F6 00 2E ... ldab 002e
7592 BB6E 27 03 '. beq 03
7593 BB70 7E BD B4 ~.. jmp bdb4 ;goto28
7594 BB73 BD BA 83 ... jsr ba83 ;jump125 - read keypad
7595 ; has a key been pressed?
7596 BB76 F6 00 5B ..[ ldab 005b
7597 BB79 F1 00 56 ..V cmpb 0056
7598 BB7C 26 0B &. bne 0b ; to bb89
7599 BB7E F6 00 56 ..V ldab 0056
7600 BB81 27 06 '. beq 06 ; to bb89
7601 BB83 7F 00 29 ..) clr 0029 ; to key pressed
7602 BB86 7E BD AF ~.. jmp bdaf ;goto29 (bail)
7603 ; find keypad number
7604 BB89 F6 00 5B ..[ ldab 005b ; is row0 = 0
7605 BB8C 27 34 '4 beq 34 ; if so, to bbc2
7606 BB8E F6 00 5B ..[ ldab 005b
7607 BB91 F7 00 5F .._ stab 005f
7608 BB94 7F 00 1C ... clr 001c ; i=0
7610 BB97 F6 00 1C ... ldab 001c
7611 BB9A C1 08 .. cmpb #08 ; if i >= 8
7612 BB9C 24 15 $. bcc 15 ; to bbb3 (break)
7613 BB9E F6 00 5F .._ ldab 005f
7614 BBA1 C4 01 .. andb #01
7615 BBA3 27 02 '. beq 02
7616 BBA5 20 0C . bra 0c ; to bbb3
7617 BBA7 F6 00 5F .._ ldab 005f
7618 BBAA 54 T lsrb ; ready to test next bit
7619 BBAB F7 00 5F .._ stab 005f
7620 BBAE 7C 00 1C |.. inc 001c
7621 BBB1 20 E4 . bra e4 ; to bb97
7622 ; look up i in the keypad map
7623 BBB3 F6 00 1C ... ldab 001c
7625 BBB7 C3 AC 9D ... addd #ac9d ; keypad mapping
7627 BBBB E6 00 .. ldab 00,x
7628 BBBD F7 00 16 ... stab 0016
7629 BBC0 20 3C < bra 3c ; to bbfe
7630 ; test row 1 - ditto
7631 BBC2 F6 00 56 ..V ldab 0056
7632 BBC5 27 34 '4 beq 34
7633 BBC7 F6 00 56 ..V ldab 0056
7634 BBCA F7 00 5F .._ stab 005f
7635 BBCD 7F 00 1C ... clr 001c
7636 BBD0 F6 00 1C ... ldab 001c
7637 BBD3 C1 08 .. cmpb #08
7638 BBD5 24 15 $. bcc 15
7639 BBD7 F6 00 5F .._ ldab 005f
7640 BBDA C4 01 .. andb #01
7641 BBDC 27 02 '. beq 02
7642 BBDE 20 0C . bra 0c ; to bbec
7643 BBE0 F6 00 5F .._ ldab 005f
7645 BBE4 F7 00 5F .._ stab 005f
7646 BBE7 7C 00 1C |.. inc 001c
7648 BBEC F6 00 1C ... ldab 001c
7651 BBF0 C3 AC A0 ... addd #aca0
7653 BBF4 E6 00 .. ldab 00,x
7654 BBF6 F7 00 16 ... stab 0016
7656 BBFB 7F 00 16 ... clr 0016
7658 BBFE F6 00 5B ..[ ldab 005b
7659 BC01 FA 00 56 ..V orb 0056
7660 BC04 F7 00 5F .._ stab 005f
7661 BC07 7F 00 5E ..^ clr 005e
7662 BC0A 7F 00 1C ... clr 001c
7663 BC0D F6 00 1C ... ldab 001c
7664 BC10 C1 08 .. cmpb #08
7665 BC12 24 16 $. bcc 16
7666 BC14 F6 00 5F .._ ldab 005f
7667 BC17 C4 01 .. andb #01
7668 BC19 27 03 '. beq 03
7669 BC1B 7C 00 5E |.^ inc 005e
7670 BC1E F6 00 5F .._ ldab 005f
7672 BC22 F7 00 5F .._ stab 005f
7673 BC25 7C 00 1C |.. inc 001c
7675 BC2A F6 00 5E ..^ ldab 005e
7676 BC2D C1 01 .. cmpb #01
7677 BC2F 22 05 ". bhi 05
7678 BC31 F6 00 16 ... ldab 0016
7679 BC34 26 0F &. bne 0f
7680 BC36 7F 00 29 ..) clr 0029
7681 BC39 CE 00 1B ... ldx #001b
7682 BC3C 1C 00 10 ... bset 00,x, #10
7683 BC3F 7F 00 37 ..7 clr 0037
7684 BC42 7E BD AF ~.. jmp bdaf ;goto29 (bail)
7685 BC45 F6 00 16 ... ldab 0016 ; key release or debounce?
7686 BC48 F1 00 29 ..) cmpb 0029
7687 BC4B 27 2D '- beq 2d
7688 BC4D F6 00 16 ... ldab 0016
7689 BC50 F7 00 29 ..) stab 0029
7690 BC53 F6 0E 00 ... ldab 0e00 ; this is the key buffer?
7691 BC56 F7 0D FF ... stab 0dff
7692 BC59 F6 0E 01 ... ldab 0e01
7693 BC5C F7 0E 00 ... stab 0e00
7694 BC5F F6 0E 02 ... ldab 0e02
7695 BC62 F7 0E 01 ... stab 0e01
7696 BC65 F6 0E 03 ... ldab 0e03
7697 BC68 F7 0E 02 ... stab 0e02
7698 BC6B F6 0E 04 ... ldab 0e04
7699 BC6E F7 0E 03 ... stab 0e03
7700 BC71 F6 00 29 ..) ldab 0029
7701 BC74 F7 0E 04 ... stab 0e04
7702 BC77 7E BD AF ~.. jmp bdaf ;goto29 (bail)
7703 BC7A F6 00 12 ... ldab 0012
7704 BC7D C4 20 . andb #20 ; test door switch
7705 BC7F 27 3B '; beq 3b ; to bcbc
7706 BC81 F6 00 29 ..) ldab 0029
7707 BC84 27 33 '3 beq 33
7708 BC86 F6 00 1B ... ldab 001b
7709 BC89 C4 10 .. andb #10
7710 BC8B 27 2C ', beq 2c
7711 BC8D F6 00 42 ..B ldab 0042
7712 BC90 27 15 '. beq 15
7713 BC92 F6 00 09 ... ldab 0009
7714 BC95 27 08 '. beq 08
7715 BC97 F6 00 29 ..) ldab 0029
7716 BC9A F7 00 0A ... stab 000a
7718 BC9F F6 00 29 ..) ldab 0029
7719 BCA2 F7 00 09 ... stab 0009
7721 BCA7 F6 00 29 ..) ldab 0029
7722 BCAA F7 00 42 ..B stab 0042
7723 BCAD BD E5 AA ... jsr e5aa ;jump12
7724 BCB0 7F 00 2C .., clr 002c
7725 BCB3 CE 00 1B ... ldx #001b
7726 BCB6 1D 00 10 ... bclr 00,x, #10
7727 BCB9 7E BD AF ~.. jmp bdaf ;goto29 (bail)
7729 BCBC F6 00 1B ... ldab 001b
7730 BCBF C4 10 .. andb #10
7731 BCC1 26 03 &. bne 03
7732 BCC3 7E BD 91 ~.. jmp bd91 ;goto30
7733 BCC6 F6 00 21 ..! ldab 0021
7734 BCC9 C4 20 . andb #20
7735 BCCB 27 03 '. beq 03
7736 BCCD 7E BD 91 ~.. jmp bd91 ;goto30
7737 BCD0 F6 00 29 ..) ldab 0029
7738 BCD3 C1 0B .. cmpb #0b
7739 BCD5 26 03 &. bne 03
7740 BCD7 7E BD 5C ~.\ jmp bd5c ;goto31
7741 BCDA 7F 00 49 ..I clr 0049
7742 BCDD F6 00 3A ..: ldab 003a
7743 BCE0 26 32 &2 bne 32
7744 BCE2 F6 00 29 ..) ldab 0029
7745 BCE5 C1 0A .. cmpb #0a
7746 BCE7 26 05 &. bne 05
7747 BCE9 7F 00 1E ... clr 001e
7749 BCEE F6 00 29 ..) ldab 0029
7750 BCF1 F7 00 1E ... stab 001e
7751 BCF4 C6 32 .2 ldab #32
7752 BCF6 F7 00 3A ..: stab 003a
7753 BCF9 BD BE 4B ..K jsr be4b ;displayblank
7754 BCFC F6 00 1E ... ldab 001e
7755 BCFF CB 30 .0 addb #30
7756 BD01 F7 0B 95 ... stab 0b95
7757 BD04 BD E5 AA ... jsr e5aa ;jump12
7758 BD07 7F 00 2C .., clr 002c
7759 BD0A BD BE 01 ... jsr be01 ;jump70
7760 BD0D C6 32 .2 ldab #32
7761 BD0F F7 00 2C .., stab 002c
7763 BD14 F6 00 29 ..) ldab 0029
7764 BD17 C1 05 .. cmpb #05
7765 BD19 27 07 '. beq 07
7766 BD1B F6 00 29 ..) ldab 0029
7767 BD1E C1 0A .. cmpb #0a
7768 BD20 26 05 &. bne 05
7769 BD22 7F 00 2C .., clr 002c
7771 BD27 F6 00 1E ... ldab 001e
7775 BD2D F7 00 06 ... stab 0006
7776 BD30 F6 00 1E ... ldab 001e
7778 BD34 FB 00 06 ... addb 0006
7779 BD37 F7 00 06 ... stab 0006
7780 BD3A F6 00 29 ..) ldab 0029
7781 BD3D FB 00 06 ... addb 0006
7782 BD40 F7 00 06 ... stab 0006
7783 BD43 F6 00 29 ..) ldab 0029
7784 BD46 CB 30 .0 addb #30
7785 BD48 F7 0B 94 ... stab 0b94
7786 BD4B BD BE 01 ... jsr be01 ;jump70
7787 BD4E CE 00 1B ... ldx #001b
7788 BD51 1D 00 40 ... bclr 00,x, #40
7789 BD54 7F 00 3A ..: clr 003a
7790 BD57 BD E5 AA ... jsr e5aa ;jump12
7793 BD5C C6 19 .. ldab #19
7794 BD5E F7 00 37 ..7 stab 0037
7795 BD61 F6 00 3A ..: ldab 003a
7796 BD64 27 08 '. beq 08
7797 BD66 7F 00 3A ..: clr 003a
7798 BD69 7F 00 2C .., clr 002c
7800 BD6E 7C 00 49 |.I inc 0049
7801 BD71 F6 00 49 ..I ldab 0049
7802 BD74 C1 02 .. cmpb #02
7803 BD76 25 0E %. bcs 0e
7804 BD78 7F 00 49 ..I clr 0049
7805 BD7B CE 00 1B ... ldx #001b
7806 BD7E 1C 00 01 ... bset 00,x, #01
7807 BD81 C6 3C .< ldab #3c
7808 BD83 F7 00 4F ..O stab 004f
7809 BD86 BD E5 AA ... jsr e5aa ;jump12
7810 BD89 CE 00 1B ... ldx #001b
7811 BD8C 1D 00 10 ... bclr 00,x, #10
7814 BD91 F6 00 1B ... ldab 001b
7815 BD94 C4 10 .. andb #10
7816 BD96 26 17 &. bne 17
7817 BD98 F6 00 29 ..) ldab 0029
7818 BD9B C1 0B .. cmpb #0b
7819 BD9D 26 10 &. bne 10
7820 BD9F F6 00 37 ..7 ldab 0037
7821 BDA2 26 0B &. bne 0b
7822 BDA4 BD DD D5 ... jsr ddd5 ;jump120
7823 BDA7 7F 00 49 ..I clr 0049
7824 BDAA C6 14 .. ldab #14
7825 BDAC F7 00 2C .., stab 002c
7827 BDAF C6 01 .. ldab #01
7828 BDB1 F7 00 00 ... stab 0000
7833 ; start/finish sending a byte to the display
7834 ; stack parameter - 0 to disable clock (finish), 1 to enable clock (start)
7835 ; lower 8-bits of D - byte to write to display.
7836 ; bytes with bit 7 unset are characters (0-127)
7837 ; bytes with bit 7 set are control commands.
7838 ; this probably also reads the keypad simultaneously
7845 BDBB ED 00 .. std 00,x
7846 BDBD E6 07 .. ldab 07,x
7847 BDBF 27 0E '. beq 0e ; to bdcf if 0
7848 BDC1 CE 00 14 ... ldx #0014
7849 BDC4 1C 00 08 ... bset 00,x, #08
7850 BDC7 F6 00 14 ... ldab 0014
7851 BDCA F7 38 00 .8. stab 3800 ; enable display clock line
7852 BDCD 20 0C . bra 0c ; to bddb
7853 BDCF CE 00 14 ... ldx #0014
7854 BDD2 1D 00 08 ... bclr 00,x, #08
7855 BDD5 F6 00 14 ... ldab 0014
7856 BDD8 F7 38 00 .8. stab 3800 ; disable display clock line
7858 BDDC E6 03 .. ldab 03,x
7859 BDDE F7 10 2A ..* stab 102a ; write to spdr
7860 BDE1 F6 10 29 ..) ldab 1029 ; read spsr
7861 BDE4 2D 0F -. blt 0f ; exit sub if SPI complete
7866 BDEA EC 00 .. ldd 00,x
7867 BDEC 83 FF FF ... subd #ffff ; put a really long timeout on the action
7868 BDEF 26 02 &. bne 02
7870 BDF3 20 EC . bra ec ; loop a while back to bde1
7871 BDF5 F6 10 2A ..* ldab 102a ; reading SPSR (just done) & SPDR clears SPIF
7873 BDF9 E7 03 .. stab 03,x
7874 BDFB E6 03 .. ldab 03,x ; return contents of spdr - keypad data!
7881 ; Write a string in the display buffer at 0x0b90 to the display
7882 BE01 F6 00 2C .., ldab 002c
7883 BE04 26 09 &. bne 09 ; to be0f - ret if mem 0x2c != 0
7884 BE06 8D 61 .a bsr dest 61 ; to displayreset - reset display
7885 BE08 8D 06 .. bsr dest 06 ; to jump88 - commit to display
7886 BE0A C6 03 .. ldab #03
7887 BE0C F7 00 2C .., stab 002c
7891 ; writes the display buffer (at 0b90-0b99) to the display
7892 ; enable the SPI system
7893 BE10 CE 10 28 ..( ldx #1028
7894 BE13 1C 00 40 ..@ bset 00,x, #40
7896 BE16 7F 00 1C ... clr 001c
7897 BE19 F6 00 1C ... ldab 001c
7898 BE1C C1 0A .. cmpb #0a
7899 BE1E 24 19 $. bcc 19 ; to be39
7900 BE20 CE 00 01 ... ldx #0001
7902 BE24 F6 00 1C ... ldab 001c
7904 BE28 C3 0B 90 ... addd #0b90
7906 BE2C E6 00 .. ldab 00,x
7907 BE2E C4 7F .. andb #7f ; make sure we don't send a control command
7909 BE31 8D 82 .. bsr dest 82 ; to jump78
7911 BE34 7C 00 1C |.. inc 001c
7912 BE37 20 E0 . bra e0 ; to be19
7913 BE39 CE 00 01 ... ldx #0001
7915 BE3D CC 00 FF ... ldd #00ff
7916 BE40 BD BD B5 ... jsr bdb5 ;jump78
7918 ; disable the SPI system
7919 BE44 CE 10 28 ..( ldx #1028
7920 BE47 1D 00 40 ..@ bclr 00,x, #40
7924 ; stores 0x20 into memory locations 0b90-0b99
7925 ; "blanks out" (with spaces) the display buffer
7926 BE4B 7F 00 1C ... clr 001c
7927 BE4E F6 00 1C ... ldab 001c
7928 BE51 C1 0A .. cmpb #0a
7929 BE53 24 13 $. bcc 13 ; to be68 - rts
7930 BE55 C6 20 . ldab #20
7932 BE58 F6 00 1C ... ldab 001c
7934 BE5C C3 0B 90 ... addd #0b90
7937 BE61 E7 00 .. stab 00,x
7938 BE63 7C 00 1C |.. inc 001c
7939 BE66 20 E6 . bra e6 ; to be4e
7944 ; Clear bit 7 of PortA - display reset
7945 BE69 CE 10 00 ... ldx #1000
7946 BE6C 1D 00 80 .. bclr x,#80
7947 BE6F BD E5 96 ... jsr e596 ;jump115 - 100ms delay
7948 ; Clear bit 7 of PortA - reset line back to high (not active)
7949 BE72 CE 10 00 ... ldx #1000
7950 BE75 1C 00 80 .. bset 00,x, #80
7952 ; set clock polarity
7953 BE78 CE 10 28 ... ldx #1028
7954 BE7B 1C 00 40 ... bset 00,x, #40
7956 BE7E BD E5 96 ... jsr e596 ;jump115 - 100ms delay
7958 ; tell the display controller there are 10 digits
7959 BE81 CE 00 01 ... ldx #0001
7961 BE85 CC 00 CA ... ldd #00ca ;11001010
7962 BE88 BD BD B5 ... jsr bdb5 ;jump78
7965 ; set brightness to 100%
7966 BE8C CE 00 01 ... ldx #0001
7968 BE90 CC 00 E0 ... ldd #00e0 ;11100000
7969 BE93 BD BD B5 ... jsr bdb5 ;jump78
7972 ; revert clock polarity
7973 BE97 CE 10 28 ..( ldx #1028
7974 BE9A 1D 00 40 ... bclr 00,x, #40
7980 ; writes a slot and price to the screen?
7983 BEA0 8D A9 .. bsr a9 ; to be4b - displayblank
7985 BEA3 E6 05 .. ldab 05,x
7986 BEA5 26 1B &. bne 1b
7987 BEA7 F6 00 06 ... ldab 0006
7989 BEAB CE 00 0A ... ldx #000a
7992 BEB0 CB 30 .0 addb #30
7993 BEB2 F7 0B 99 ... stab 0b99 ; write slotnumber/10
7994 BEB5 F6 00 06 ... ldab 0006
7996 BEB8 CE 00 0A ... ldx #000a
7998 BEBD CB 30 .0 addb #30
7999 BEBF F7 0B 98 ... stab 0b98 ; write slotnumber%10
8001 BEC3 EC 00 .. ldd 00,x
8002 BEC5 C4 FF .. andb #ff
8003 BEC7 84 3F .? anda #3f
8004 BEC9 ED 00 .. std 00,x
8005 BECB EC 00 .. ldd 00,x
8006 BECD CE 03 E8 ... ldx #03e8 ; / 1000
8009 BED2 CB 30 .0 addb #30
8012 BED6 E6 06 .. ldab 06,x
8014 BED9 C3 0B 95 ... addd #0b95
8017 BEDE E7 00 .. stab 00,x ; write MSB dollars
8019 BEE1 EC 00 .. ldd 00,x
8020 BEE3 CE 03 E8 ... ldx #03e8 ; %1000
8022 BEE7 CE 00 64 ..d ldx #0064 ; /100
8025 BEEC CB 30 .0 addb #30
8028 BEF0 E6 06 .. ldab 06,x
8030 BEF3 C3 0B 94 ... addd #0b94 ; write LSB dollars
8033 BEF8 E7 00 .. stab 00,x
8035 BEFB EC 00 .. ldd 00,x
8036 BEFD CE 00 64 ..d ldx #0064 ; %100
8038 BF01 CE 00 0A ... ldx #000a ; /10
8041 BF06 CB 30 .0 addb #30
8044 BF0A E6 06 .. ldab 06,x
8046 BF0D C3 0B 93 ... addd #0b93 ; write MSB cents
8049 BF12 E7 00 .. stab 00,x
8051 BF15 EC 00 .. ldd 00,x
8052 BF17 CE 00 0A ... ldx #000a
8054 BF1B CB 30 .0 addb #30
8057 BF1F E6 06 .. ldab 06,x
8059 BF22 C3 0B 92 ... addd #0b92 ; write LSB cents
8062 BF27 E7 00 .. stab 00,x
8063 BF29 F6 00 13 ... ldab 0013
8064 BF2C C1 01 .. cmpb #01
8065 BF2E 22 03 ". bhi 03
8066 BF30 7E BF DE ~.. jmp bfde ;goto32
8068 BF34 E6 05 .. ldab 05,x
8070 BF37 C3 0B 92 ... addd #0b92
8072 BF3B E6 00 .. ldab 00,x
8075 BF3F E6 06 .. ldab 06,x
8077 BF42 C3 0B 91 ... addd #0b91
8080 BF47 E7 00 .. stab 00,x
8082 BF4A E6 05 .. ldab 05,x
8084 BF4D C3 0B 93 ... addd #0b93
8086 BF51 E6 00 .. ldab 00,x
8089 BF55 E6 06 .. ldab 06,x
8091 BF58 C3 0B 92 ... addd #0b92
8094 BF5D E7 00 .. stab 00,x
8095 BF5F F6 00 13 ... ldab 0013
8096 BF62 C1 02 .. cmpb #02
8097 BF64 26 10 &. bne 10
8098 BF66 C6 2E .. ldab #2e
8101 BF6A E6 06 .. ldab 06,x
8103 BF6D C3 0B 93 ... addd #0b93
8106 BF72 E7 00 .. stab 00,x
8107 BF74 20 68 h bra 68 ;goto32
8109 BF76 C1 04 .. cmpb #04
8110 BF78 26 26 && bne 26
8112 BF7B E6 05 .. ldab 05,x
8114 BF7E C3 0B 94 ... addd #0b94
8116 BF82 E6 00 .. ldab 00,x
8119 BF86 E6 06 .. ldab 06,x
8121 BF89 C3 0B 93 ... addd #0b93
8124 BF8E E7 00 .. stab 00,x
8125 BF90 C6 2E .. ldab #2e ; "."
8128 BF94 E6 06 .. ldab 06,x
8130 BF97 C3 0B 94 ... addd #0b94
8133 BF9C E7 00 .. stab 00,x
8135 BFA0 C1 08 .. cmpb #08
8136 BFA2 26 3A &: bne 3a
8138 BFA5 E6 05 .. ldab 05,x
8140 BFA8 C3 0B 94 ... addd #0b94
8142 BFAC E6 00 .. ldab 00,x
8145 BFB0 E6 06 .. ldab 06,x
8147 BFB3 C3 0B 93 ... addd #0b93
8150 BFB8 E7 00 .. stab 00,x
8152 BFBB E6 05 .. ldab 05,x
8154 BFBE C3 0B 95 ... addd #0b95
8156 BFC2 E6 00 .. ldab 00,x
8159 BFC6 E6 06 .. ldab 06,x
8161 BFC9 C3 0B 94 ... addd #0b94
8164 BFCE E7 00 .. stab 00,x
8165 BFD0 C6 2E .. ldab #2e ; "."
8168 BFD4 E6 06 .. ldab 06,x
8170 BFD7 C3 0B 95 ... addd #0b95
8173 BFDC E7 00 .. stab 00,x
8175 BFDE F6 0B C0 ... ldab 0bc0
8176 BFE1 C4 01 .. andb #01
8177 BFE3 26 0E &. bne 0e ; to bff3
8178 BFE5 F6 0B C0 ... ldab 0bc0
8179 BFE8 C4 04 .. andb #04
8180 BFEA 26 07 &. bne 07 ; to bff3
8181 BFEC F6 0B C0 ... ldab 0bc0
8182 BFEF C4 08 .. andb #08
8183 BFF1 27 15 '. beq 15 ; to c008
8184 BFF3 F6 00 17 ... ldab 0017
8185 BFF6 C4 08 .. andb #08
8186 BFF8 26 0E &. bne 0e ; to c008
8187 ; plonk a dollar sign somewhere
8188 BFFA C6 24 .$ ldab #24 ; "$"
8191 BFFE E6 06 .. ldab 06,x
8193 C001 C3 0B 96 ... addd #0b96
8196 C006 E7 00 .. stab 00,x
8197 C008 BD BE 69 ..i jsr be69 ;displayreset
8198 C00B F6 00 13 ... ldab 0013
8199 C00E C1 01 .. cmpb #01
8200 C010 23 17 #. bls 17
8201 C012 CE 10 28 ..( ldx #1028
8202 C015 1C 00 40 ... bset 00,x, #40 ; enable SPI send
8203 C018 CE 00 01 ... ldx #0001
8205 C01C CC 00 20 .. ldd #0020
8206 C01F BD BD B5 ... jsr bdb5 ;jump78 - send space to display
8208 C023 CE 10 28 ..( ldx #1028 ; disable SPI send
8209 C026 1D 00 40 ... bclr 00,x, #40
8210 C029 BD BE 10 ... jsr be10 ;jump88 - write buffer to display
8215 ; part of the display: function abstraction
8216 ; D points to a string, and the stack contains the length of the message
8217 ; Also seems to handle scrolling of long strings?
8221 ; need 002c to be zero to display stuff
8222 C031 F6 00 2C .., ldab 002c
8223 C034 27 03 '. beq 03
8224 C036 7E C0 B7 ~.. jmp c0b7 ;goto33 (bail out)
8226 C039 FC 00 03 ... ldd 0003
8228 C03D A3 02 .. subd 02,x
8229 C03F 25 0A %. bcs 0a ; to c04b
8231 C041 E6 07 .. ldab 07,x
8233 C044 E3 02 .. addd 02,x
8234 C046 B3 00 03 ... subd 0003
8235 C049 24 06 $. bcc 06 ; to c051
8238 C04C EC 02 .. ldd 02,x
8239 C04E FD 00 03 ... std 0003
8240 C051 FE 00 03 ... ldx 0003
8242 C055 FF 00 03 ... stx 0003
8246 C05B ED 00 .. std 00,x
8247 C05D C6 09 .. ldab #09
8248 C05F F7 00 18 ... stab 0018
8249 C062 F6 00 18 ... ldab 0018
8250 C065 C1 FF .. cmpb #ff
8251 C067 24 46 $F bcc 46 ; to c0af (jump 70 - write string)
8253 C06A E6 07 .. ldab 07,x
8255 C06D E3 02 .. addd 02,x
8256 C06F A3 00 .. subd 00,x
8257 C071 24 05 $. bcc 05
8259 C074 EC 02 .. ldd 02,x
8260 C076 ED 00 .. std 00,x
8262 C079 EE 00 .. ldx 00,x
8263 C07B E6 00 .. ldab 00,x
8264 C07D C1 40 .@ cmpb #40
8265 C07F 24 13 $. bcc 13
8267 C082 EE 00 .. ldx 00,x
8268 C084 E6 00 .. ldab 00,x
8270 C087 F6 00 18 ... ldab 0018
8272 C08B C3 0B 90 ... addd #0b90
8275 C090 E7 00 .. stab 00,x
8278 C095 EE 00 .. ldx 00,x
8279 C097 E6 00 .. ldab 00,x
8280 C099 CB C0 .. addb #c0
8282 C09C F6 00 18 ... ldab 0018
8284 C0A0 C3 0B 90 ... addd #0b90
8287 C0A5 E7 00 .. stab 00,x
8291 C0AA 7A 00 18 z.. dec 0018
8293 C0AF BD BE 01 ... jsr be01 ;jump70
8294 C0B2 C6 03 .. ldab #03
8295 C0B4 F7 00 2C .., stab 002c
8301 ;Display a string. D points to the string, which is NULL-terminated
8306 C0BC F6 00 1F ... ldab 001f
8307 C0BF C4 04 .. andb #04
8308 C0C1 26 03 &. bne 03
8309 C0C3 7F 00 2C .., clr 002c
8310 C0C6 F6 00 2C .., ldab 002c
8311 C0C9 26 13 &. bne 13 ; to c0de
8314 C0CD FD 00 03 ... std 0003
8315 C0D0 7F 00 2C .., clr 002c
8316 C0D3 CE 00 09 ... ldx #0009
8319 C0D8 EC 02 .. ldd 02,x
8320 C0DA BD C0 2E ... jsr c02e ;jump71
8326 C0E0 F6 00 15 ... ldab 0015
8327 C0E3 2C 02 ,. bge 02
8329 C0E7 CE 00 1D ... ldx #001d
8330 C0EA 1C 00 20 .. bset 00,x, #20
8331 C0ED BD D7 30 . jsr d730 ;jump202
8332 C0EE 83 00 00 .0. subd #0000
8333 C0F3 27 09 '. beq 09
8334 C0F5 CE 00 1D ... ldx #001d
8335 C0F8 1D 00 20 .. bclr 00,x, #20
8340 C0FE CE 00 14 ... ldx #0014
8341 C101 1C 00 01 ... bset 00,x, #01
8342 C104 F6 00 14 ... ldab 0014
8343 C107 F7 38 00 .8. stab 3800 ; note acceptor business
8344 C10A F6 00 15 ... ldab 0015
8345 C10D C4 1F .. andb #1f
8346 C10F 26 03 &. bne 03
8347 C111 7E C3 1B ~.. jmp c31b ;goto34
8348 C114 C6 14 .. ldab #14
8349 C116 F7 00 31 ..1 stab 0031
8350 C119 F6 00 15 ... ldab 0015
8351 C11C 2D 15 -. blt 15
8352 C11E F6 00 31 ..1 ldab 0031
8353 C121 C1 0A .. cmpb #0a
8354 C123 22 0C ". bhi 0c
8355 C125 BD C5 D3 ... jsr c5d3 ;jump6
8356 C128 CE 00 1D ... ldx #001d
8357 C12B 1D 00 20 .. bclr 00,x, #20
8363 C133 FC 00 3E ..> ldd 003e
8364 C136 F3 00 40 ..@ addd 0040
8365 C139 FD 00 40 ..@ std 0040
8368 C13E FD 00 3E ..> std 003e
8369 C141 F6 00 15 ... ldab 0015
8370 C144 C4 1F .. andb #1f
8372 C147 BD FE 32 ..2 jsr fe32 ;jump25
8373 C14A C1 64 00 01 .... ; array data for jump25
8374 C14E C1 BA 00 01 ....
8375 C152 C2 10 00 02 ....
8376 C156 C2 66 00 04 .f..
8377 C15A C2 BB 00 08 ....
8378 C15E C3 0E FF F0 ....
8379 C162 00 00 .. ; end of array data
8380 C164 FC 0C DD ... ldd 0cdd
8381 C167 83 FF FF ... subd #ffff
8382 C16A 26 05 &. bne 05
8385 C16E FD 0C DD ... std 0cdd
8386 C171 FE 0C DD ... ldx 0cdd
8388 C175 FF 0C DD ... stx 0cdd
8389 C178 CE 00 64 ..d ldx #0064
8391 C17C CC 00 00 ... ldd #0000
8394 C181 CC 0C F3 ... ldd #0cf3
8395 C184 BD FB DF ... jsr fbdf ;jump46
8398 C189 FE 0C F5 ... ldx 0cf5
8400 C18D FC 0C F3 ... ldd 0cf3
8403 C192 CE FF 9C ... ldx #ff9c
8405 C196 CC 00 63 ..c ldd #0063
8407 C19A A3 02 .. subd 02,x
8410 C19E 26 02 &. bne 02
8411 C1A0 A3 04 .. subd 04,x
8414 C1A4 24 11 $. bcc 11
8415 C1A6 CE 00 64 ..d ldx #0064
8417 C1AA CC FF 9C ... ldd #ff9c
8420 C1AF CC 0C F3 ... ldd #0cf3
8421 C1B2 BD FB DF ... jsr fbdf ;jump46
8424 C1B7 7E C3 0E ~.. jmp c30e ;goto35
8425 C1BA FC 0C DF ... ldd 0cdf
8426 C1BD 83 FF FF ... subd #ffff
8427 C1C0 26 05 &. bne 05
8430 C1C4 FD 0C DF ... std 0cdf
8431 C1C7 FE 0C DF ... ldx 0cdf
8433 C1CB FF 0C DF ... stx 0cdf
8434 C1CE CE 00 C8 ... ldx #00c8
8436 C1D2 CC 00 00 ... ldd #0000
8439 C1D7 CC 0C F7 ... ldd #0cf7
8440 C1DA BD FB DF ... jsr fbdf ;jump46
8443 C1DF FE 0C F9 ... ldx 0cf9
8445 C1E3 FC 0C F7 ... ldd 0cf7
8448 C1E8 CE FF 38 ..8 ldx #ff38 ; -200
8450 C1EC CC 00 C7 ... ldd #00c7
8452 C1F0 A3 02 .. subd 02,x
8455 C1F4 26 02 &. bne 02
8456 C1F6 A3 04 .. subd 04,x
8459 C1FA 24 11 $. bcc 11
8460 C1FC CE 00 C8 ... ldx #00c8
8462 C200 CC FF 38 ..8 ldd #ff38 ; -200
8465 C205 CC 0C F7 ... ldd #0cf7
8466 C208 BD FB DF ... jsr fbdf ;jump46
8469 C20D 7E C3 0E ~.. jmp c30e ;goto35
8470 C210 FC 0C E1 ... ldd 0ce1
8471 C213 83 FF FF ... subd #ffff
8472 C216 26 05 &. bne 05
8475 C21A FD 0C E1 ... std 0ce1
8476 C21D FE 0C E1 ... ldx 0ce1
8478 C221 FF 0C E1 ... stx 0ce1
8479 C224 CE 01 F4 ... ldx #01f4
8481 C228 CC 00 00 ... ldd #0000
8484 C22D CC 0C FB ... ldd #0cfb
8485 C230 BD FB DF ... jsr fbdf ;jump46
8488 C235 FE 0C FD ... ldx 0cfd
8490 C239 FC 0C FB ... ldd 0cfb
8493 C23E CE FE 0C ... ldx #fe0c
8495 C242 CC 01 F3 ... ldd #01f3
8497 C246 A3 02 .. subd 02,x
8500 C24A 26 02 &. bne 02
8501 C24C A3 04 .. subd 04,x
8504 C250 24 11 $. bcc 11
8505 C252 CE 01 F4 ... ldx #01f4
8507 C256 CC FE 0C ... ldd #fe0c
8510 C25B CC 0C FB ... ldd #0cfb
8511 C25E BD FB DF ... jsr fbdf ;jump46
8514 C263 7E C3 0E ~.. jmp c30e ;goto35
8515 C266 FC 0C E3 ... ldd 0ce3
8516 C269 83 FF FF ... subd #ffff
8517 C26C 26 05 &. bne 05
8520 C270 FD 0C E3 ... std 0ce3
8521 C273 FE 0C E3 ... ldx 0ce3
8523 C277 FF 0C E3 ... stx 0ce3
8524 C27A CE 03 E8 ... ldx #03e8
8526 C27E CC 00 00 ... ldd #0000
8529 C283 CC 0C FF ... ldd #0cff
8530 C286 BD FB DF ... jsr fbdf ;jump46
8533 C28B FE 0D 01 ... ldx 0d01
8535 C28F FC 0C FF ... ldd 0cff
8538 C294 CE FC 18 ... ldx #fc18
8540 C298 CC 03 E7 ... ldd #03e7
8542 C29C A3 02 .. subd 02,x
8545 C2A0 26 02 &. bne 02
8546 C2A2 A3 04 .. subd 04,x
8549 C2A6 24 11 $. bcc 11
8550 C2A8 CE 03 E8 ... ldx #03e8
8552 C2AC CC FC 18 ... ldd #fc18
8555 C2B1 CC 0C FF ... ldd #0cff
8556 C2B4 BD FB DF ... jsr fbdf ;jump46
8560 C2BB FC 0C E5 ... ldd 0ce5
8561 C2BE 83 C3 4F ..O subd #c34f
8562 C2C1 26 05 &. bne 05
8565 C2C5 FD 0C E5 ... std 0ce5
8566 C2C8 FE 0C E5 ... ldx 0ce5
8568 C2CC FF 0C E5 ... stx 0ce5
8569 C2CF CE 07 D0 ... ldx #07d0
8571 C2D3 CC 00 00 ... ldd #0000
8574 C2D8 CC 0D 03 ... ldd #0d03
8575 C2DB BD FB DF ... jsr fbdf ;jump46
8578 C2E0 FE 0D 05 ... ldx 0d05
8580 C2E4 FC 0D 03 ... ldd 0d03
8583 C2E9 CE D9 30 ..0 ldx #d930
8585 C2ED CC 05 F5 ... ldd #05f5
8587 C2F1 A3 02 .. subd 02,x
8590 C2F5 26 02 &. bne 02
8591 C2F7 A3 04 .. subd 04,x
8594 C2FB 24 11 $. bcc 11
8595 C2FD CE 26 D0 .&. ldx #26d0
8597 C301 CC FA 0A ... ldd #fa0a
8600 C306 CC 0D 03 ... ldd #0d03
8601 C309 BD FB DF ... jsr fbdf ;jump46
8605 C30E F6 00 15 ... ldab 0015
8606 C311 2C 02 ,. bge 02
8608 C315 CE 00 15 ... ldx #0015
8609 C318 1D 00 .. bclr add,x 00,x
8610 C31A 1F CE 00 1D .... brclr ce,x 00 1d
8613 C31E 1D 00 .. bclr add,x 00,x
8620 C325 F6 10 00 ... ldab 1000
8621 C328 C4 01 .. andb #01
8622 C32A 26 13 &. bne 13
8623 C32C 7C 00 7D |.} inc 007d
8624 C32F F6 00 7D ..} ldab 007d
8625 C332 C1 05 .. cmpb #05
8626 C334 23 03 #. bls 03
8627 C336 7F 00 7D ..} clr 007d
8628 C339 7F 00 7E ..~ clr 007e
8629 C33C 7E C4 2F ~./ jmp c42f ;goto36
8630 C33F 7C 00 7E |.~ inc 007e
8631 C342 F6 00 7E ..~ ldab 007e
8632 C345 C1 07 .. cmpb #07
8633 C347 23 17 #. bls 17
8634 C349 7F 00 7D ..} clr 007d
8635 C34C 7F 00 7E ..~ clr 007e
8636 C34F 7F 00 7C ..| clr 007c
8637 C352 F6 00 15 ... ldab 0015
8638 C355 2C 03 ,. bge 03
8639 C357 7F 00 2C .., clr 002c
8640 C35A CE 00 15 ... ldx #0015
8641 C35D 1D 00 80 .. bclr 00,x, #80
8642 C35F F6 00 7E ... ldab 007e
8643 C363 26 03 .. bne 03 ; to c368
8644 C365 7E C4 2F ~./ jmp c42f ;goto36
8645 C368 F6 00 7D ..} ldab 007d
8646 C36B C1 01 .. cmpb #01
8647 C36D 22 03 ". bhi 03
8648 C36F 7E C4 2F ~./ jmp c42f ;goto36
8649 C372 CE 00 15 ... ldx #0015
8650 C375 1C 00 80 .. bset 00,x, #80
8651 C378 CE 0B C1 ... ldx #0bc1
8652 C37B 1D 00 08 .. bclr 00,x #08
8653 C37E F6 00 1D ... ldab 001d
8654 C381 C4 20 . andb #20
8655 C383 27 03 '. beq 03
8656 C385 7E C4 29 ~.) jmp c429 ;goto38
8657 C388 C6 02 .. ldab #02
8658 C38A F7 00 2C .., stab 002c
8659 C38D 7F 00 3A ..: clr 003a
8660 C390 CE 00 1B ... ldx #001b
8661 C393 1D 00 40 .. bclr 00,x, #40
8662 C396 7F 00 25 ..% clr 0025
8663 C399 CE 00 21 ..! ldx #0021
8664 C39C 1D 00 08 ... bclr 00,x, #08
8665 C39F CE 00 14 ... ldx #0014
8666 C3A2 1D 00 01 .. bclr 00,x, #01
8667 C3A5 F6 00 14 ... ldab 0014
8668 C3A8 F7 38 00 .8. stab 3800 ; note acceptor business
8669 C3AB 7C 00 7C |.| inc 007c
8670 C3AE CE 00 15 ... ldx #0015
8671 C3B1 1D 00 1F .. bclr 00,x, #1f
8672 C3B4 F6 00 7C ..| ldab 007c
8673 C3B7 C1 01 .. cmpb #01
8674 C3B9 26 0E &. bne 0e
8675 C3BB CE 00 15 ... ldx #0015
8676 C3BE 1C 00 01 .. bset 00,x, #01
8677 C3C1 CC 00 64 ..d ldd #0064
8678 C3C4 FD 00 3E ..> std 003e
8680 C3C9 F6 00 7C ..| ldab 007c
8681 C3CC C1 02 .. cmpb #02
8682 C3CE 26 0E &. bne 0e
8683 C3D0 CE 00 15 ... ldx #0015
8684 C3D3 1C 00 02 .. bset 00,x, #02
8685 C3D6 CC 00 C8 ... ldd #00c8
8686 C3D9 FD 00 3E ..> std 003e
8688 C3DE F6 00 7C ..| ldab 007c
8689 C3E1 C1 02 .. cmpb #02
8690 C3E3 23 15 #. bls 15
8691 C3E5 F6 00 7C ..| ldab 007c
8692 C3E8 C1 06 .. cmpb #06
8693 C3EA 24 0E $. bcc 0e
8694 C3EC CE 00 15 ... ldx #0015
8695 C3EF 1C 00 .. bset 00,x, #04
8696 C3F2 CC 01 F4 ... ldd #01f4
8697 C3F5 FD 00 3E ..> std 003e
8699 C3FA F6 00 7C ..| ldab 007c
8700 C3FD C1 05 .. cmpb #05
8701 C3FF 23 15 #. bls 15
8702 C401 F6 00 7C ..| ldab 007c
8703 C404 C1 0B .. cmpb #0b
8704 C406 24 0E $. bcc 0e
8705 C408 CE 00 15 ... ldx #0015
8706 C40B 1C 00 08 .. bset 00,x, #08
8707 C40E CC 03 E8 ... ldd #03e8
8708 C411 FD 00 3E ..> std 003e
8709 C414 20 13 . bra 13 ; to c429
8710 C416 F6 00 7C ..| ldab 007c
8711 C419 C1 0B .. cmpb #0b
8712 C41B 23 0C #. bls 0c
8713 C41D CE 00 15 ... ldx #0015
8714 C420 1C 00 10 .. bset 00,x, #10
8715 C423 CC 07 D0 ... ldd #07d0
8716 C426 FD 00 3E ..> std 003e
8718 C429 7F 00 7D ..} clr 007d
8719 C42C 7F 00 7E ..~ clr 007e
8724 ; tweaks the changer output lines (at 3000) that correspond with the bitmask of
8725 ; 0001. It pulls the lines with 1 set in the bitmask low (active) for 100ms
8726 C430 F6 00 01 ... ldab 0001
8728 C434 F4 00 1A ... andb 001a ; 0x3000 buffer - changer outputs
8729 C437 F7 00 1A ... stab 001a
8730 C43A F6 00 1A ... ldab 001a
8731 C43D F7 30 00 .0. stab 3000 ; coin mask
8732 C440 CC 00 64 ..d ldd #0064
8733 C443 BD E5 71 ..q jsr e571 ;msdelay
8734 C446 F6 00 01 ... ldab 0001
8735 C449 FA 00 1A ... orb 001a
8736 C44C F7 00 1A ... stab 001a
8737 C44F F6 00 1A ... ldab 001a
8738 C452 F7 30 00 .0. stab 3000 ; changer outputs again
8742 C456 FC 00 40 ..@ ldd 0040
8743 C459 26 03 &. bne 03
8744 C45B 7E C5 C6 ~.. jmp c5c6 ;goto39
8745 C45E CE 00 1A ... ldx #001a
8746 C461 1C 00 01 .. bset 00,x, #01
8747 C464 F6 00 1A ... ldab 001a
8748 C467 F7 30 00 .0. stab 3000 ; changer accept off
8749 C46A CC 03 E8 ... ldd #03e8
8750 C46D BD E5 71 ..q jsr e571 ;msdelay
8752 C470 FC 00 40 ..@ ldd 0040
8753 C473 83 00 00 ... subd #0000
8754 C476 22 03 ". bhi 03
8755 C478 7E C5 B0 ~.. jmp c5b0 ;goto40
8756 C47B F6 00 1B ... ldab 001b
8757 C47E C4 20 . andb #20
8758 C480 27 1B '. beq 1b
8759 C482 FC 00 40 ..@ ldd 0040
8760 C485 83 03 E8 ... subd #03e8
8761 C488 25 13 %. bcs 13
8762 C48A C6 28 .( ldab #28
8763 C48C F7 00 01 ... stab 0001
8764 C48F CC FC 18 ... ldd #fc18
8765 C492 F3 00 40 ..@ addd 0040
8766 C495 FD 00 40 ..@ std 0040
8767 C498 8D 96 .. bsr dest 96
8768 C49A 7E C5 7C ~.| jmp c57c ;goto41
8769 C49D F6 00 1B ... ldab 001b
8770 C4A0 C4 20 . andb #20
8771 C4A2 27 1C '. beq 1c
8772 C4A4 FC 00 40 ..@ ldd 0040
8773 C4A7 83 00 64 ..d subd #0064
8774 C4AA 25 14 %. bcs 14
8775 C4AC C6 30 .0 ldab #30
8776 C4AE F7 00 01 ... stab 0001
8777 C4B1 CC FF 9C ... ldd #ff9c
8778 C4B4 F3 00 40 ..@ addd 0040
8779 C4B7 FD 00 40 ..@ std 0040
8780 C4BA BD C4 30 ..0 jsr c430 ;jump26
8781 C4BD 7E C5 7C ~.| jmp c57c ;goto41
8782 C4C0 FC 0B DD ... ldd 0bdd
8783 C4C3 27 3C '< beq 3c
8784 C4C5 FC 00 40 ..@ ldd 0040
8785 C4C8 B3 0B DD ... subd 0bdd
8786 C4CB 25 34 %4 bcs 34
8787 C4CD F6 0C DB ... ldab 0cdb
8788 C4D0 26 07 &. bne 07
8789 C4D2 F6 00 1B ... ldab 001b
8790 C4D5 C4 20 . andb #20
8791 C4D7 27 28 '( beq 28
8792 C4D9 FC 0B DD ... ldd 0bdd
8795 C4DE F9 00 41 ..A adcb 0041
8796 C4E1 B9 00 40 ..@ adca 0040
8797 C4E4 FD 00 40 ..@ std 0040
8798 C4E7 F6 0B DA ... ldab 0bda
8799 C4EA F7 00 01 ... stab 0001
8800 C4ED BD C4 30 ..0 jsr c430 ;jump26
8801 C4F0 F6 00 1B ... ldab 001b
8802 C4F3 C4 20 . andb #20
8803 C4F5 26 08 &. bne 08
8804 C4F7 F6 0C DB ... ldab 0cdb
8805 C4FA 27 03 '. beq 03
8806 C4FC 7A 0C DB z.. dec 0cdb
8808 C501 FC 0B DF ... ldd 0bdf
8809 C504 27 3C '< beq 3c
8810 C506 FC 00 40 ..@ ldd 0040
8811 C509 B3 0B DF ... subd 0bdf
8812 C50C 25 34 %4 bcs 34
8813 C50E F6 0C DA ... ldab 0cda
8814 C511 26 07 &. bne 07
8815 C513 F6 00 1B ... ldab 001b
8816 C516 C4 20 . andb #20
8817 C518 27 28 '( beq 28
8818 C51A FC 0B DF ... ldd 0bdf
8821 C51F F9 00 41 ..A adcb 0041
8822 C522 B9 00 40 ..@ adca 0040
8823 C525 FD 00 40 ..@ std 0040
8824 C528 F6 0B DB ... ldab 0bdb
8825 C52B F7 00 01 ... stab 0001
8826 C52E BD C4 30 ..0 jsr c430 ;jump26
8827 C531 F6 00 1B ... ldab 001b
8828 C534 C4 20 . andb #20
8829 C536 26 08 &. bne 08
8830 C538 F6 0C DA ... ldab 0cda
8831 C53B 27 03 '. beq 03
8832 C53D 7A 0C DA z.. dec 0cda
8834 C542 FC 0B E1 ... ldd 0be1
8835 C545 27 30 '0 beq 30
8836 C547 FC 00 40 ..@ ldd 0040
8837 C54A B3 0B E1 ... subd 0be1
8838 C54D 25 28 %( bcs 28
8839 C54F FC 0B E1 ... ldd 0be1
8842 C554 F9 00 41 ..A adcb 0041
8843 C557 B9 00 40 ..@ adca 0040
8844 C55A FD 00 40 ..@ std 0040
8845 C55D F6 0B DC ... ldab 0bdc
8846 C560 F7 00 01 ... stab 0001
8847 C563 BD C4 30 ..0 jsr c430 ;jump26
8848 C566 F6 00 1B ... ldab 001b
8849 C569 C4 20 . andb #20
8850 C56B 26 08 &. bne 08
8851 C56D F6 0C D9 ... ldab 0cd9
8852 C570 27 03 '. beq 03
8853 C572 7A 0C D9 z.. dec 0cd9
8857 C579 FD 00 40 ..@ std 0040
8859 C57C CC 01 2C .., ldd #012c
8860 C57F BD E5 71 ..q jsr e571 ;msdelay
8861 C582 F6 00 1B ... ldab 001b
8862 C585 C4 20 . andb #20
8863 C587 26 24 &$ bne 24
8864 C589 CE 00 1A ... ldx #001a
8865 C58C 1D 00 01 .. bclr 00,x, #01
8866 C58F F6 00 1A ... ldab 001a
8867 C592 F7 30 00 .0. stab 3000 ; changer accept' low
8868 C595 CC 00 0C ... ldd #000c
8869 C598 BD E5 71 ..q jsr e571 ;msdelay
8870 C59B CE 00 1A ... ldx #001a
8871 C59E 1C 00 01 .. bset 00,x, #01
8872 C5A1 F6 00 1A ... ldab 001a
8873 C5A4 F7 30 00 .0. stab 3000 ; changer accept' high
8874 C5A7 CC 00 23 ..# ldd #0023
8875 C5AA BD E5 71 ..q jsr e571 ;msdelay
8876 C5AD 7E C4 70 ~.p jmp c470 ;goto42
8878 C5B0 F6 0B C0 ... ldab 0bc0
8879 C5B3 C4 04 .. andb #04
8880 C5B5 27 0F '. beq 0f
8881 C5B7 F6 00 1B ... ldab 001b
8882 C5BA C4 20 . andb #20
8883 C5BC 27 08 '. beq 08
8884 C5BE C6 38 .8 ldab #38
8885 C5C0 F7 00 01 ... stab 0001
8886 C5C3 BD C4 30 ..0 jsr c430 ;jump26
8888 C5C6 CE 00 21 ..! ldx #0021
8889 C5C9 1D 00 10 ... bclr 00,x, #10
8890 C5CC CE 00 1B ... ldx #001b
8891 C5CF 1D 00 .. bclr add,x 00,x
8895 C5D3 F6 00 15 ... ldab 0015
8896 C5D6 C4 1F .. andb #1f
8897 C5D8 26 03 &. bne 03
8898 C5DA 7E C6 7C ~.| jmp c67c ;goto43
8899 C5DD CC 00 C8 ... ldd #00c8
8900 C5E0 BD E5 71 ..q jsr e571 ;msdelay
8901 C5E3 FC 00 3E ..> ldd 003e
8902 C5E6 27 58 'X beq 58
8903 C5E8 F6 00 15 ... ldab 0015
8904 C5EB C4 1F .. andb #1f
8906 C5EE BD FE 32 ..2 jsr fe32 ;jump25
8907 C5F1 C6 0B 00 01 .. ; array data for jump25
8913 C609 00 00 .. ;end of array data
8914 C60B CC FF 9C ... ldd #ff9c
8915 C60E F3 00 3E ..> addd 003e
8916 C611 FD 00 3E ..> std 003e
8918 C616 CC FF 38 ..8 ldd #ff38
8919 C619 F3 00 3E ..> addd 003e
8920 C61C FD 00 3E ..> std 003e
8922 C621 CC FE 0C ... ldd #fe0c
8923 C624 F3 00 3E ..> addd 003e
8924 C627 FD 00 3E ..> std 003e
8926 C62C CC FC 18 ... ldd #fc18
8927 C62F F3 00 3E ..> addd 003e
8928 C632 FD 00 3E ..> std 003e
8930 C637 CC F8 30 ..0 ldd #f830
8931 C63A F3 00 3E ..> addd 003e
8932 C63D FD 00 3E ..> std 003e
8933 C640 CE 00 14 ... ldx #0014
8934 C643 1D 00 02 ... bclr 00,x, #02
8935 C646 F6 00 14 ... ldab 0014
8936 C649 F7 38 00 .8. stab 3800 ; bill acceptor
8937 C64C CC 00 1E ... ldd #001e
8938 C64F BD E5 71 ..q jsr e571 ;msdelay
8939 C652 CE 00 15 ... ldx #0015
8940 C655 1D 00 .. bclr add,x 00,x
8941 C657 1F CE 00 14 .... brclr ce,x 00 14
8942 C65B 1C 00 02 ... bset 00,x, #02
8943 C65E F6 00 14 ... ldab 0014
8944 C661 F7 38 00 .8. stab 3800 ; bill acceptor
8945 C664 CC 00 19 ... ldd #0019
8946 C667 BD E5 71 ..q jsr e571 ;msdelay
8947 C66A CE 00 14 ... ldx #0014
8948 C66D 1C 00 01 .. bset 00,x, #01
8949 C670 F6 00 14 ... ldab 0014
8950 C673 F7 38 00 .8. stab 3800 ; bill acceptor
8951 C676 CC 00 19 ... ldd #0019
8952 C679 BD E5 71 ..q jsr e571 ;msdelay
8958 C67D F6 00 30 ..0 ldab 0030
8959 C680 26 55 &U bne 55
8960 C682 F6 0B C0 ... ldab 0bc0
8961 C685 C4 04 .. andb #04
8962 C687 26 4E &N bne 4e
8963 C689 C6 27 .' ldab #27
8964 C68B F7 10 2D ..- stab 102d ; disable SCI transmission
8965 C68E C6 07 .. ldab #07
8966 C690 F7 10 2B ..+ stab 102b ; 600 baud
8967 C693 CE 00 1A ... ldx #001a
8968 C696 1C 00 .. bset 00,x, #04
8969 C699 F6 00 1A ... ldab 001a
8970 C69C F7 30 00 .0. stab 3000 ; keypad strobe
8971 C69F CC 00 14 ... ldd #0014
8972 C6A2 BD E5 71 ..q jsr e571 ;msdelay
8973 C6A5 F6 0B C0 ... ldab 0bc0
8974 C6A8 C4 01 .. andb #01
8975 C6AA 27 06 '. beq 06
8976 C6AC CE 0B C1 ... ldx #0bc1
8977 C6AF 1C 00 01 ... bset 00,x, #01
8978 C6B2 F6 0B C0 ... ldab 0bc0
8979 C6B5 C4 04 .. andb #04
8980 C6B7 27 06 '. beq 06
8981 C6B9 CE 0B C1 ... ldx #0bc1
8982 C6BC 1C 00 02 ... bset 00,x, #02
8983 C6BF CE 00 1A ... ldx #001a
8984 C6C2 1D 00 04 ... bclr 00,x, #04 ; keypad strobe finish
8985 C6C5 F6 00 1A ... ldab 001a
8986 C6C8 F7 30 00 .0. stab 3000
8987 C6CB C6 96 .. ldab #96
8988 C6CD F7 00 30 ..0 stab 0030
8989 C6D0 C6 1E .. ldab #1e
8990 C6D2 F7 00 35 ..5 stab 0035
8992 C6D7 F6 18 00 ... ldab 1800
8993 C6DA 2D 2A -* blt 2a
8994 C6DC F6 00 07 ... ldab 0007
8995 C6DF 26 25 &% bne 25
8996 C6E1 CE 00 1A ... ldx #001a
8997 C6E4 1D 00 02 ... bclr 00,x, #02
8998 C6E7 F6 00 1A ... ldab 001a
8999 C6EA F7 30 00 .0. stab 3000 ; changer send' low
9000 C6ED C6 64 .d ldab #64
9001 C6EF F7 00 2D ..- stab 002d
9002 C6F2 CC 00 32 ..2 ldd #0032
9003 C6F5 BD E5 71 ..q jsr e571 ;msdelay
9004 C6F8 CE 00 1A ... ldx #001a
9005 C6FB 1C 00 02 ... bset 00,x, #02
9006 C6FE F6 00 1A ... ldab 001a
9007 C701 F7 30 00 .0. stab 3000 ; changer send' high
9009 C706 F6 00 2D ..- ldab 002d
9010 C709 26 29 &) bne 29
9011 C70B CE 00 1A ... ldx #001a
9012 C70E 1D 00 01 ... bclr 00,x, #01
9013 C711 F6 00 1A ... ldab 001a
9014 C714 F7 30 00 .0. stab 3000 ; changer accept' low
9015 C717 CC 00 0C ... ldd #000c
9016 C71A BD E5 71 ..q jsr e571 ;msdelay
9017 C71D CE 00 1A ... ldx #001a
9018 C720 1C 00 01 ... bset 00,x, #01
9019 C723 F6 00 1A ... ldab 001a
9020 C726 F7 30 00 .0. stab 3000 ; changer accept' high
9021 C729 CC 00 23 ..# ldd #0023
9022 C72C BD E5 71 ..q jsr e571 ;msdelay
9023 C72F C6 64 .d ldab #64
9024 C731 F7 00 2D ..- stab 002d
9025 C734 F6 00 21 ..! ldab 0021
9026 C737 C4 10 .. andb #10
9027 C739 27 45 'E beq 45
9028 C73B F6 00 11 ... ldab 0011
9029 C73E C4 04 .. andb #04
9030 C740 26 1A &. bne 1a
9031 C742 FC 00 40 ..@ ldd 0040
9032 C745 F3 00 3E ..> addd 003e
9033 C748 B3 00 50 ..P subd 0050
9034 C74B 25 0F %. bcs 0f
9035 C74D F6 0B C0 ... ldab 0bc0
9036 C750 C4 04 .. andb #04
9037 C752 26 08 &. bne 08
9038 C754 CE 00 21 ..! ldx #0021
9039 C757 1D 00 10 ... bclr 00,x, #10
9041 C75C F6 0B C0 ... ldab 0bc0
9042 C75F C4 08 .. andb #08
9043 C761 27 03 '. beq 03
9044 C763 BD C5 D3 ... jsr c5d3 ;jump6
9045 C766 FC 0B DD ... ldd 0bdd
9046 C769 26 12 &. bne 12
9047 C76B FC 0B DF ... ldd 0bdf
9048 C76E 26 0D &. bne 0d
9049 C770 FC 0B E1 ... ldd 0be1
9050 C773 26 08 &. bne 08
9051 C775 CE 00 21 ..! ldx #0021
9052 C778 1D 00 10 ... bclr 00,x, #10
9054 C77D BD C4 56 ..V jsr c456 ;jump47
9055 C780 F6 00 15 ... ldab 0015
9056 C783 2D 08 -. blt 08
9057 C785 CE 00 21 ..! ldx #0021
9058 C788 1C 00 08 ... bset 00,x, #08
9060 C78D CE 00 21 ..! ldx #0021
9061 C790 1D 00 08 ... bclr 00,x, #08
9064 ;proc(a,b) var local
9074 C796 34 4 des ;stack: 0=local, 1=A, 2=B
9076 C798 6F 00 o. clr 00,x
9079 C79B E6 02 .. ldab 02,x
9080 C79D 27 1A '. beq exit ;c7b9
9082 C7A0 1F 02 01 0D .... brclr 02,x 01 skip ;c7b1
9084 C7A5 E6 00 .. ldab 00,x
9085 C7A7 27 05 '. beq else ;c7ae
9087 C7AA 6A 00 j. dec 00,x
9088 C7AC 20 03 . bra skip ;c7b1
9091 C7AF 6C 00 l. inc 00,x
9094 C7B2 E6 02 .. ldab 02,x
9096 C7B5 E7 02 .. stab 02,x
9097 C7B7 20 E1 . bra loop ;c79a
9100 C7BA E6 00 .. ldab 00,x
9107 ; parity tester. returns 0 if good
9108 C7C0 F6 10 2F ../ ldab 102f ; sci data
9110 C7C4 8D CE .. bsr c794 ; parity test?
9111 C7C6 83 00 00 ... subd #0000
9112 C7C9 27 05 '. beq 05
9113 C7CB F6 10 2C .., ldab 102c ; test the 9th bit
9114 C7CE 2D 10 -. blt 10 ; to c7e0
9115 C7D0 F6 10 2F ../ ldab 102f ; sci data
9117 C7D4 8D BE .. bsr c794 ; parity test?
9118 C7D6 83 00 00 ... subd #0000
9119 C7D9 26 09 &. bne 09 ; to c7e4
9120 C7DB F6 10 2C .., ldab 102c ; test the 9th bit
9121 C7DE 2D 04 -. blt 04
9122 C7E0 CC 00 01 ... ldd #0001 ; return 1
9130 ;this might send a byte to the serial port
9134 C7E9 C6 32 .2 ldab #32 ; 50
9135 C7EB F7 00 31 ..1 stab 0031
9137 C7EF E6 01 .. ldab 01,x
9138 C7F1 F7 00 43 ..C stab 0043
9139 ; poll the TD register empty flag until it's set
9140 C7F4 F6 10 2E ... ldab 102e
9141 C7F7 2D 02 -. blt 02 ; transmit data register empty
9142 C7F9 20 F9 . bra f9 ; to c7f4
9145 C7FC E6 01 .. ldab 01,x
9147 C7FF 8D 93 .. bsr 93 ; to c794 - generate parity bit?
9148 C801 83 00 00 ... subd #0000
9149 C804 27 08 '. beq 08
9150 C806 CE 10 2C .., ldx #102c
9151 C809 1C 00 40 ... bset 00,x, #40 ; set the 9th bit
9153 C80E CE 10 2C .., ldx #102c ;SCI control 1
9154 C811 1D 00 40 ... bclr 00,x, #40 ; clear the 9th bit
9156 C815 E6 01 .. ldab 01,x
9157 C817 F7 10 2F ../ stab 102f ; send to serial port
9166 C81D F6 0B C0 ... ldab 0bc0
9167 C820 C4 01 .. andb #01
9168 C822 26 0A &. bne 0e ; to c82e
9169 C824 F6 0B C0 ... ldab 0bc0
9170 C827 C4 04 .. andb #04
9171 C829 26 03 &. bne 03 ; to c82e
9172 C82B 7E CB FF ~.. jmp cbff ;goto44
9173 C82E C6 96 .. ldab #96 ; 150
9174 C830 F7 00 30 ..0 stab 0030
9175 C833 F6 10 2E ... ldab 102e ; SCI status
9176 C836 C4 02 .. andb #02 ; test for Framing Error
9177 C838 26 0B &. bne 0b ; if so, to c845
9178 C83A F6 10 2F ../ ldab 102f ; read SCI data
9179 C83D F1 00 26 ..& cmpb 0026
9180 C840 26 03 &. bne 03
9181 C842 7E C9 1B ~.. jmp c91b ;goto45
9183 C845 F6 10 2F ../ ldab 102f ; read SCI data
9184 C848 C4 63 .c andb #63 ; 01100110
9185 C84A C1 23 .# cmpb #23 ; 00100110
9186 C84C 27 03 '. beq 03
9187 C84E 7E C8 E7 ~.. jmp c8e7 ;goto46 - pulse send' of changer
9189 C851 F6 00 1A ... ldab 001a ; register 3000 buffer
9190 C854 C4 01 .. andb #01 ; accept' line of changer
9191 C856 26 03 &. bne 03
9192 C858 7E C8 E7 ~.. jmp c8e7 ;goto46 - pulse send' of changer
9194 C85B F6 00 21 ..! ldab 0021
9195 C85E C4 F8 .. andb #f8 ; 11111000
9197 C861 F6 10 2F ../ ldab 102f ; read SCI data
9198 C864 C4 1C .. andb #1c ; 00011100
9199 C866 54 T lsrb ; ^^^
9200 C867 54 T lsrb ; get these bits out
9202 C869 EA 00 .. orb 00,x ; or it with the thing just above
9204 C86C F7 00 21 ..! stab 0021
9205 C86F F6 00 21 ..! ldab 0021
9206 C872 F4 0B D7 ... andb 0bd7 ; if (0021 & 0bd7)
9207 C875 27 08 '. beq 08 ; is false
9208 C877 CE 00 17 ... ldx #0017
9209 C87A 1C 00 20 .. bset 00,x, #20
9211 C87F F6 00 17 ... ldab 0017 ; if true
9212 C882 C4 20 . andb #20
9213 C884 27 11 '. beq 11 ; if unset to c897 (break out of if)
9214 C886 CE 00 17 ... ldx #0017
9215 C889 1D 00 .. bclr 00,x, #20
9216 C88C C6 04 . andb #04
9217 C88E F7 0C DB ... stab 0cdb
9218 C891 CE 0B C1 ... ldx #0bc1
9219 C894 1C 00 40 ... bset 00,x, #40 ;endif
9220 C897 F6 00 21 ..! ldab 0021
9221 C89A F4 0B D8 ... andb 0bd8
9222 C89D 27 08 '. beq 08 ; to c8a7
9223 C89F CE 00 17 ... ldx #0017
9224 C8A2 1C 00 40 ... bset 00,x, #40
9225 C8A5 20 18 . bra 18 ; to c8cf
9227 C8A7 F6 00 17 ... ldab 0017
9228 C8AA C4 40 .@ andb #40
9229 C8AC 27 11 '. beq 11 ; to c8bf if unset
9230 C8AE CE 00 17 ... ldx #0017
9231 C8B1 1D 00 40 ... bclr 00,x, #40
9232 C8B4 C6 04 .. ldab #04
9233 C8B6 F7 0C DA ... stab 0cda
9234 C8B9 CE 0B C1 ... ldx #0bc1
9235 C8BC 1C 00 40 ... bset 00,x, #40
9236 ; if 0021 & 0bd9, then set bit 7 of 0017, else unset it.
9237 C8BF F6 00 21 ..! ldab 0021
9238 C8C2 F4 0B D9 ... andb 0bd9
9239 C8C5 27 08 '. beq 08
9240 C8C7 CE 00 17 ... ldx #0017
9241 C8CA 1C 00 80 .. bset 00,x, #80
9242 C8CC 20 16 . bra 16 ; to c8e5
9244 C8CF F6 00 17 ... ldab 0017
9245 C8D2 2C 11 ,. bge 11 ; to c8e5
9246 C8D4 CE 00 17 ... ldx #0017
9247 C8D7 1D 00 .. bclr 00,x, #80
9249 C8D9 C6 04 .. ldab #04
9250 C8DC F7 0C D9 ... stab 0cd9
9251 ; set tube error bit
9252 C8DF CE 0B C1 ... ldx #0bc1
9253 C8E2 1C 00 40 ... bset 00,x, #40
9254 C8E5 20 31 1 bra 31 ; to c918
9256 goto46: ; pulse the send' line of the changer
9257 C8E7 F6 10 2F ../ ldab 102f ; read SCI data
9258 C8EA F7 00 26 ..& stab 0026
9259 C8ED CE 00 1A ... ldx #001a
9260 C8F0 1C 00 02 ... bset 00,x, #02
9261 C8F3 F6 00 1A ... ldab 001a
9262 C8F6 F7 30 00 .0. stab 3000 ; changer send' high
9263 C8F9 F6 00 3D ..= ldab 003d
9264 C8FC C4 04 .. andb #04
9265 C8FE 26 18 &. bne 18 ; to c918
9266 C900 CC 00 03 ... ldd #0003
9267 C903 BD E5 71 ..q jsr e571 ;msdelay
9268 C906 CE 00 1A ... ldx #001a
9269 C909 1D 00 02 ... bclr 00,x, #02
9270 C90C F6 00 1A ... ldab 001a
9271 C90F F7 30 00 .0. stab 3000 ; changer send' low
9272 C912 7C 00 3D |.= inc 003d
9273 C915 7E CE 46 ~.F jmp ce46 ;goto47 (exit)
9274 C918 7E CB DA ~.. jmp cbda ;goto48 (clean exit)
9277 C91B F6 00 08 ... ldab 0008
9278 C91E 26 03 &. bne 03
9279 C920 7E CA 5F ~._ jmp ca5f ;goto49
9280 C923 F6 00 17 ... ldab 0017
9281 C926 C4 04 .. andb #04
9282 C928 26 03 &. bne 03
9283 C92A 7E CA 5F ~._ jmp ca5f ;goto49
9284 C92D F6 00 17 ... ldab 0017
9285 C930 C4 08 .. andb #08
9286 C932 26 03 &. bne 03
9287 C934 7E CA 5F ~._ jmp ca5f ;goto49
9288 C937 F6 10 2F ../ ldab 102f ; read SCI data
9289 C93A C1 FF .. cmpb #ff
9290 C93C 27 07 '. beq 07 ; to c945
9291 C93E F6 00 08 ... ldab 0008
9292 C941 C1 0E .. cmpb #0e ; if > 14
9293 C943 25 12 %. bcs 12 ; to c957
9294 C945 CE 00 17 ... ldx #0017
9295 C948 1D 00 04 ... bclr 00,x, #04
9296 C94B 7F 00 08 ... clr 0008
9297 C94E BD CE 48 ..H jsr ce48 ;jump48
9298 C951 7F 00 2C .., clr 002c
9299 C954 7E CA 5C ~.\ jmp ca5c ;goto50 - clean exit
9301 C957 F6 00 08 ... ldab 0008
9303 C95B BD FE 16 ... jsr fe16 ;jump2
9305 C962 CA 59 .Y ; inc 0008 and clean exit
9306 C964 C9 7E .~ ; read byte into 0bc2
9307 C966 C9 87 .. ; read byte into 0bc3 & ^10 and stuff
9308 C968 C9 DF .. ; read byte into 0bc4 & stuff
9309 C96A C9 F3 .. ; read byte into 0bc5 & stuff
9310 C96C CA 07 .. ; read byte into 0bc6 & stuff
9311 C96E CA 1B .. ; read byte into 0bc7 only
9312 C970 CA 23 .# ; read byte into 0bc8 only
9313 C972 CA 2B .+ ; read byte into 0bc9 only
9314 C974 CA 33 .3 ; read byte into 0bca only
9315 C976 CA 3B .; ; read byte into 0bcb only
9316 C978 CA 43 .C ; read byte into 0bcc only
9317 C97A CA 4B .K ; read byte into 0bcd only
9318 C97C CA 53 .S ; read byte into 0bce only
9319 C97E F6 10 2F ../ ldab 102f ; read SCI data
9320 C981 F7 0B C2 ... stab 0bc2
9321 C984 7E CA 59 ~.Y jmp ca59 ;goto51 - inc 0008 and exit
9323 C987 F6 10 2F ../ ldab 102f ; read SCI data
9324 C98A F7 0B E3 ... stab 0be3
9325 C98D F6 10 2F ../ ldab 102f ; read SCI data
9326 C990 C4 0F .. andb #0f
9327 C992 C1 01 .. cmpb #01
9328 C994 26 07 &. bne 07 ; to c99d
9329 C996 C6 02 .. ldab #02
9330 C998 F7 00 13 ... stab 0013
9331 C99B 20 1B . bra 1b ; to c9b8
9332 C99D C1 02 .. cmpb #02
9333 C99F 26 07 &. bne 07 ; to c9a8
9334 C9A1 C6 04 .. ldab #04
9335 C9A3 F7 00 13 ... stab 0013
9336 C9A6 20 10 . bra 10 ; to c9b8
9337 C9A8 C1 03 .. cmpb #03
9338 C9AA 26 07 &. bne 07 ; to c9b3
9339 C9AC C6 08 .. ldab #08
9340 C9AE F7 00 13 ... stab 0013
9341 C9B1 20 05 . bra 05 ; to c9b8
9342 C9B3 C6 01 .. ldab #01
9343 C9B5 F7 00 13 ... stab 0013
9344 C9B8 F6 10 2F ../ ldab 102f ; read SCI data
9345 C9BB C4 F0 .. andb #f0
9350 C9C1 F7 0B C3 ... stab 0bc3
9351 C9C4 F6 0B C2 ... ldab 0bc2
9352 C9C7 F7 0B AA ... stab 0baa
9353 ;;0baa^:=pow(10,0bc3^) 0bc3 is the top 4 bits from the serial port.
9358 C9CA F6 0B C3 ... ldab 0bc3
9359 C9CD 27 0E '. beq c9dd
9360 C9CF F6 0B AA ... ldab 0baa
9361 C9D2 86 0A .. ldaa #0a
9363 C9D5 F7 0B AA ... stab 0baa
9364 C9D8 7A 0B C3 z.. dec 0bc3
9365 C9DB 20 ED . bra c9ca
9367 C9DD 20 7A z bra 7a ;goto51 - inc 0008 & clean exit
9369 C9DF F6 10 2F ../ ldab 102f ; read SCI data
9370 C9E2 F7 0B C4 ... stab 0bc4
9371 C9E5 F6 0B C4 ... ldab 0bc4
9372 C9E8 C1 80 .. cmpb #80
9373 C9EA 26 05 &. bne 05
9374 C9EC C6 0F .. ldab #0f
9375 C9EE F7 0B C4 ... stab 0bc4
9376 C9F1 20 66 f bra 66 ;goto51 - inc 0008 & clean exit
9378 C9F3 F6 10 2F ../ ldab 102f ; read SCI data
9379 C9F6 F7 0B C5 ... stab 0bc5
9380 C9F9 F6 0B C5 ... ldab 0bc5
9381 C9FC C1 80 .. cmpb #80
9382 C9FE 26 05 &. bne 05
9383 CA00 C6 0F .. ldab #0f
9384 CA02 F7 0B C5 ... stab 0bc5
9385 CA05 20 52 R bra 52 ;goto51 - inc 0008 & clean exit
9387 CA07 F6 10 2F ../ ldab 102f ; read SCI data
9388 CA0A F7 0B C6 ... stab 0bc6
9389 CA0D F6 0B C6 ... ldab 0bc6
9390 CA10 C1 80 .. cmpb #80
9391 CA12 26 05 &. bne ca19
9392 CA14 C6 0F .. ldab #0f
9393 CA16 F7 0B C6 ... stab 0bc6
9394 CA19 20 3E > bra 3e ;goto51 - inc 0008 & clean exit
9396 ; read byte of data into 0bc7 - 0bce
9397 CA1B F6 10 2F ../ ldab 102f ; read SCI data
9398 CA1E F7 0B C7 ... stab 0bc7
9401 CA23 F6 10 2F ../ ldab 102f ; read SCI data
9402 CA26 F7 0B C8 ... stab 0bc8
9405 CA2B F6 10 2F ../ ldab 102f ; read SCI data
9406 CA2E F7 0B C9 ... stab 0bc9
9409 CA33 F6 10 2F ../ ldab 102f ; read SCI data
9410 CA36 F7 0B CA ... stab 0bca
9413 CA3B F6 10 2F ../ ldab 102f ; read SCI data
9414 CA3E F7 0B CB ... stab 0bcb
9417 CA43 F6 10 2F ../ ldab 102f ; read SCI data
9418 CA46 F7 0B CC ... stab 0bcc
9421 CA4B F6 10 2F ../ ldab 102f ; read SCI data
9422 CA4E F7 0B CD ... stab 0bcd
9425 CA53 F6 10 2F ../ ldab 102f ; read SCI data
9426 CA56 F7 0B CE ... stab 0bce
9428 CA59 7C 00 08 |.. inc 0008
9430 CA5C 7E CB DA ~.. jmp cbda ;goto48 (clean exit)
9433 CA5F F6 10 2F ../ ldab 102f ; read SCI data
9434 CA62 C4 EF .. andb #ef ; 11101111
9435 CA64 C1 E2 .. cmpb #e2 ; 11100010
9436 CA66 26 1A &. bne 1a ; if no match, to ca82
9437 CA68 CE 00 17 ... ldx #0017
9438 CA6B 1C 00 08 ... bset 00,x, #08
9439 CA6E CE 00 17 ... ldx #0017
9440 CA71 1C 00 04 ... bset 00,x, #04
9441 CA74 C6 01 .. ldab #01
9442 CA76 F7 00 08 ... stab 0008
9443 CA79 CE 0B C1 ... ldx #0bc1
9444 CA7C 1D 00 01 ... bclr 00,x, #01
9445 CA7F 7E CB DA ~.. jmp cbda ;goto48 (clean exit)
9447 CA82 F6 10 2F ../ ldab 102f ; read SCI data
9448 CA85 C4 02 .. andb #02
9449 CA87 27 03 '. beq 03 ; if bit is set then
9450 CA89 7E CB 6C ~.l jmp cb6c ; goto52
9451 CA8C F6 10 2F ../ ldab 102f ; read SCI data
9452 CA8F 2C 38 ,8 bge 38 ; if bit 7 unset, to cac9
9453 CA91 F6 00 17 ... ldab 0017
9454 CA94 C4 08 .. andb #08
9455 CA96 26 31 &1 bne 31
9456 CA98 F6 10 2F ../ ldab 102f ; read SCI data
9457 CA9B C4 78 .x andb #78 ; 01111000
9462 CAA1 C3 0B C7 ... addd #0bc7
9464 CAA5 E6 00 .. ldab 00,x
9468 CAAA F6 0B AA ... ldab 0baa
9470 CAAE BD FB BA ... jsr fbba ;jump38 - multiply?
9471 CAB1 F3 00 40 ..@ addd 0040
9472 CAB4 FD 00 40 ..@ std 0040
9473 CAB7 CE 00 1B ... ldx #001b
9474 CABA 1C 00 .. bset 00,x, #20
9475 CABD CE 00 1B ... ldx #001b
9476 CAC0 1D 00 40 ... bclr 00,x, #40
9477 CAC3 7F 00 25 ..% clr 0025
9478 CAC6 7E CB 64 ~.d jmp cb64 ;goto53
9480 CAC9 F6 00 17 ... ldab 0017
9481 CACC C4 08 .. andb #08
9482 CACE 26 4A &J bne 4a ;to cb1a
9483 CAD0 F6 10 2F ../ ldab 102f ; read SCI data
9484 CAD3 C4 60 .` andb #60 ; 01100000
9485 CAD5 54 T lsrb ; ^^^^
9489 CAD9 C3 0B C7 ... addd #0bc7
9491 CADD E6 00 .. ldab 00,x
9495 CAE2 F6 0B AA ... ldab 0baa
9497 CAE6 BD FB BA ... jsr fbba ;jump38 - multiply?
9498 CAE9 FD 0B BD ... std 0bbd
9499 CAEC FC 0B BD ... ldd 0bbd
9500 CAEF F3 00 40 ..@ addd 0040
9501 CAF2 FD 00 40 ..@ std 0040
9502 CAF5 F6 00 21 ..! ldab 0021
9503 CAF8 C4 F8 .. andb #f8 ; 11111000
9505 CAFB F6 10 2F ../ ldab 102f ; read SCI data
9506 CAFE C4 1C .. andb #1c ; 00011100
9510 CB03 EA 00 .. orb 00,x ; or lower 3 bits with 0021
9512 CB06 F7 00 21 ..! stab 0021
9513 CB09 F6 10 2F ../ ldab 102f ; read SCI data
9514 CB0C F7 0B BC ... stab 0bbc
9515 CB0F CE 00 1B ... ldx #001b
9516 CB12 1D 00 40 .. bclr 00,x, #40
9517 CB15 7F 00 25 ..% clr 0025
9518 CB18 20 4A J bra 4a ;goto53 - more cleanups and exit
9520 CB1A F6 10 2F ../ ldab 102f ; read SCI data
9521 CB1D C4 E0 .. andb #e0 ; 11100000
9526 CB23 54 T lsrb ; shr5
9528 CB25 C3 0B C7 ... addd #0bc7
9530 CB29 E6 00 .. ldab 00,x
9534 CB2E F6 0B AA ... ldab 0baa
9536 CB32 BD FB BA ... jsr fbba ;jump38 - multiply?
9537 CB35 FD 0B BD ... std 0bbd
9538 CB38 FC 0B BD ... ldd 0bbd
9539 CB3B F3 00 40 ..@ addd 0040
9540 CB3E FD 00 40 ..@ std 0040
9541 CB41 F6 00 21 ..! ldab 0021
9542 CB44 C4 F8 .. andb #f8
9544 CB47 F6 10 2F ../ ldab 102f ; read SCI data
9545 CB4A C4 1C .. andb #1c
9549 CB4F EA 00 .. orb 00,x
9551 CB52 F7 00 21 ..! stab 0021
9552 CB55 F6 10 2F ../ ldab 102f ; read SCI data
9553 CB58 F7 0B BC ... stab 0bbc
9554 CB5B CE 00 1B ... ldx #001b
9555 CB5E 1D 00 40 ... bclr 00,x, #40
9556 CB61 7F 00 25 ..% clr 0025
9557 goto53: ; more cleanups and exit
9558 CB64 7F 00 2C .., clr 002c
9559 CB67 7F 00 3A ..: clr 003a
9560 CB6A 20 6E n bra 6e ; to cbda - cleanup and exit
9562 CB6C F6 10 2F ../ ldab 102f ; read SCI data
9563 CB6F C4 03 .. andb #03
9564 CB71 C1 02 .. cmpb #02
9565 CB73 26 0F &. bne 0f ; to bc84
9566 CB75 F6 00 21 ..! ldab 0021
9567 CB78 C4 08 .. andb #08
9568 CB7A 27 08 '. beq 08
9569 CB7C CE 00 21 ..! ldx #0021
9570 CB7F 1C 00 10 ... bset 00,x, #10
9571 CB82 20 56 V bra 56 ; to cbda - cleanup and exit
9573 CB84 F6 10 2F ../ ldab 102f ; read SCI data
9574 CB87 C4 EF .. andb #ef ; 11101111
9575 CB89 C1 E3 .. cmpb #e3 ; 11100111
9576 CB8B 26 08 &. bne 08 ; to cb95
9577 CB8D CE 0B C1 ... ldx #0bc1
9578 CB90 1D 00 02 ... bclr 00,x, #02
9581 CB95 F6 10 2F ../ ldab 102f ; read SCI data
9582 CB98 C4 EF .. andb #ef ; 11101111
9583 CB9A C1 63 .c cmpb #63 ; 01101110
9584 CB9C 26 1C &. bne 1c ; to cbba
9585 CB9E CE 0B C1 ... ldx #0bc1
9586 CBA1 1D 00 01 ... bclr 00,x, #01
9587 CBA4 F6 0B C0 ... ldab 0bc0
9588 CBA7 C4 01 .. andb #01
9589 CBA9 27 0D '. beq 0d ; to cbb8
9590 CBAB F6 0B C0 ... ldab 0bc0
9591 CBAE C4 04 .. andb #04
9592 CBB0 27 06 '. beq 06 ; to cbb8
9593 CBB2 CE 0B C1 ... ldx #0bc1
9594 CBB5 1D 00 02 ... bclr 00,x, #02
9595 CBB8 20 20 bra 20 ;goto48 - cleanup & exit
9597 CBBA F6 10 2F ../ ldab 102f ; read SCI data
9598 CBBD C4 EF .. andb #ef ; 11101111
9599 CBBF C1 67 .g cmpb #67 ; 01100111
9600 CBC1 26 08 &. bne 08 ; to cbcb
9601 CBC3 CE 0B C1 ... ldx #0bc1
9602 CBC6 1C 00 .. bset 00,x, #20
9603 CBC9 20 0F bra 0f ;goto48 - cleanup & exit
9605 CBCB F6 10 2F ../ ldab 102f ; read SCI data
9606 CBCE C4 EF .. andb #ef ; 11101111
9607 CBD0 C1 27 .' cmpb #27 ; 00100111
9608 CBD2 26 06 &. bne 06 ;goto48 - cleanup & exit
9610 CBD4 CE 0B C1 ... ldx #0bc1
9611 CBD7 1C 00 10 ... bset 00,x, #10
9612 goto48: ; cleanup and exit
9613 CBDA CE 00 1A ... ldx #001a
9614 CBDD 1C 00 02 ... bset 00,x, #02
9615 CBE0 F6 00 1A ... ldab 001a
9616 CBE3 F7 30 00 .0. stab 3000 ; changer send' high
9617 CBE6 F6 00 17 ... ldab 0017
9618 CBE9 C4 04 .. andb #04
9619 CBEB 26 05 &. bne 05 ; to cbf2
9620 CBED C6 06 .. ldab #06
9621 CBEF F7 00 07 ... stab 0007
9622 CBF2 F6 00 26 ..& ldab 0026 ; 0026 ~= 0026
9624 CBF6 F7 00 26 ..& stab 0026
9625 CBF9 7F 00 3D ..= clr 003d
9626 CBFC 7E CE 46 ~.F jmp ce46 ;goto47 (exit)
9629 CBFF F6 0B C0 ... ldab 0bc0
9630 CC02 C4 02 .. andb #02
9631 CC04 26 03 &. bne 03
9632 CC06 7E CE 3B ~.; jmp ce3b ;goto54 - swallow 2 bytes & exit
9633 CC09 F6 10 2F ../ ldab 102f ; read SCI data
9634 CC0C C4 E0 .. andb #e0
9635 CC0E C1 20 . cmpb #20
9636 CC10 27 03 '. beq 03
9637 CC12 7E CE 3B ~.; jmp ce3b ;goto54 - swallow 2 bytes & exit
9638 CC15 C6 32 .2 ldab #32 ; 50
9639 CC17 F7 00 2F ../ stab 002f
9640 CC1A CE 00 1B ... ldx #001b
9641 CC1D 1C 00 02 ... bset 00,x, #02
9642 CC20 F6 10 2E ... ldab 102e ; SCI status
9643 CC23 C4 02 .. andb #02 ; test for Framing Error
9644 CC25 26 08 &. bne 08
9645 CC27 BD C7 C0 ... jsr c7c0 ;jump49 - parity test
9646 CC2A 83 00 00 ... subd #0000
9647 CC2D 26 0F &. bne 0f ; if failed, to cc3e
9648 CC2F F6 10 2F ../ ldab 102f ; read SCI data
9650 CC33 E7 00 .. stab 00,x
9651 CC35 CC 00 FF ... ldd #00ff
9652 CC38 BD C7 E7 ... jsr c7e7 ;jump37 - send #FF to coin mech
9653 CC3B 7E CE 39 ~.9 jmp ce39 ;goto55 - exit
9655 CC3E F6 10 2F ../ ldab 102f ; read SCI data
9656 CC41 C1 3F .? cmpb #3f ; 00111111
9657 CC43 26 0A &. bne 0a ; to cc4f
9658 CC45 F6 00 43 ..C ldab 0043
9660 CC49 BD C7 E7 ... jsr c7e7 ;jump37 - send 0043 to coin mech - retry?
9661 CC4C 7E CE 39 ~.9 jmp ce39 ;goto55 - exit
9663 CC4F F6 00 08 ... ldab 0008
9664 CC52 26 03 &. bne 03
9665 CC54 7E CD 94 ~.. jmp cd94 ;goto56
9666 CC57 F6 10 2F ../ ldab 102f ; read SCI data
9667 CC5A C4 F0 .. andb #f0
9668 CC5C C1 20 . cmpb #20
9669 CC5E 27 03 '. beq 03
9670 CC60 7E CD 94 ~.. jmp cd94 ;goto56
9671 CC63 F6 10 2F ../ ldab 102f ; read SCI data
9672 CC66 C4 0F .. andb #0f
9674 CC69 E7 00 .. stab 00,x
9675 CC6B F6 00 08 ... ldab 0008
9677 CC6F BD FE 16 ... jsr fe16 ;jump2
9678 CC72 00 01 00 07 . ; array data for jump2
9679 CC76 CD 7A . ; if 0008 == 9, clr 0008, 002c. else inc 0008, send #00 to coin mech
9680 CC78 CC 88 .. ; if 0017 sp=>0076, else sp=>0040, then same as above
9681 CC7A CC A2 .. ; if 0017 0076+=sp<<4, else 0040+=sp<<4, then same as above
9682 CC7C CC CA .. ; if 0017 0076+=sp<<8, else 0040+=sp<<8, then same as above
9683 CC7E CC EE .. ; if 0017 0076+=sp<<16, else 0040+=sp<16, then same as above
9684 CC80 CD 19 .. ; 0baa = sp, then same as above
9685 CC82 CD 21 . ; 0baa = sp<<4, then same as above
9686 CC83 CD 30 !. ; 0013 = sp, then same as above
9687 CC85 CD 38 0 ; read byte & #01,
9689 CC88 F6 00 17 ... ldab 0017
9690 CC8B C4 01 .. andb #01
9691 CC8D 27 09 '. beq 09 ; to cc98
9693 CC90 E6 00 .. ldab 00,x
9695 CC93 FD 00 76 ..v std 0076
9696 CC96 20 07 . bra 07 ; to cc9f
9698 CC99 E6 00 .. ldab 00,x
9700 CC9C FD 00 40 ..@ std 0040
9701 CC9F 7E CD 7A ~.z jmp cd7a ;goto57
9703 CCA2 F6 00 17 ... ldab 0017
9704 CCA5 C4 01 .. andb #01
9705 CCA7 27 10 '. beq 10 ; to ccb9
9707 CCAA E6 00 .. ldab 00,x
9713 CCB1 F3 00 76 ..v addd 0076
9714 CCB4 FD 00 76 ..v std 0076
9715 CCB7 20 0E . bra 0e ; to ccc7
9717 CCBA E6 00 .. ldab 00,x
9723 CCC1 F3 00 40 ..@ addd 0040
9724 CCC4 FD 00 40 ..@ std 0040
9725 CCC7 7E CD 7A ~.z jmp cd7a ;goto57
9727 CCCA F6 00 17 ... ldab 0017
9728 CCCD C4 01 .. andb #01
9729 CCCF 27 0E '. beq 0e ; to ccdf
9731 CCD2 E6 00 .. ldab 00,x
9735 CCD7 F3 00 76 ..v addd 0076
9736 CCDA FD 00 76 ..v std 0076
9737 CCDD 20 0C . bra 0c ; to cceb
9739 CCE0 E6 00 .. ldab 00,x
9743 CCE5 F3 00 40 ..@ addd 0040
9744 CCE8 FD 00 40 ..@ std 0040
9745 CCEB 7E CD 7A ~.z jmp cd7a ;goto57
9747 CCEE F6 00 17 ... ldab 0017
9748 CCF1 C4 01 .. andb #01
9749 CCF3 27 12 '. beq 12 ; to cd07
9751 CCF6 E6 00 .. ldab 00,x
9759 CCFF F3 00 76 ..v addd 0076
9760 CD02 FD 00 76 ..v std 0076
9761 CD05 20 10 . bra 10 ; to cd17
9763 CD08 E6 00 .. ldab 00,x
9771 CD11 F3 00 40 ..@ addd 0040
9772 CD14 FD 00 40 ..@ std 0040
9776 CD1A E6 00 .. ldab 00,x
9777 CD1C F7 0B AA ... stab 0baa
9778 CD1F 20 59 Y bra 59 ; to cd7a - goto57
9781 CD22 E6 00 .. ldab 00,x
9786 CD28 FB 0B AA ... addb 0baa
9787 CD2B F7 0B AA ... stab 0baa
9788 CD2E 20 4A J bra 4a ; to cd7a - goto57
9791 CD31 E6 00 .. ldab 00,x
9792 CD33 F7 00 13 ... stab 0013
9793 CD36 20 42 B bra 42 ; to cd7a - goto57
9795 CD38 F6 10 2F ../ ldab 102f ; read SCI data
9796 CD3B C4 01 .. andb #01
9797 CD3D 27 08 '. beq 08 ; to cd47
9798 CD3F CE 00 21 ..! ldx #0021
9799 CD42 1C 00 40 ... bset 00,x, #40
9800 CD45 20 06 . bra 06 ; to cd4d
9801 CD47 CE 00 21 ..! ldx #0021
9802 CD4A 1D 00 40 ... bclr 00,x, #40
9804 CD4D F6 00 17 ... ldab 0017
9805 CD50 C4 01 .. andb #01
9806 CD52 27 17 '. beq 17 ; to cd6b
9807 CD54 F6 0B AA ... ldab 0baa
9811 CD5A FC 00 76 ..v ldd 0076
9812 CD5D BD FB BA ... jsr fbba ;jump38 - multiply?
9813 CD60 FD 00 76 ..v std 0076 ; 0076 *= 0baa
9814 CD63 CE 00 17 ... ldx #0017
9815 CD66 1D 00 01 ... bclr 00,x, #01
9816 CD69 20 0F . bra 0f ;goto57 - send byte & exit
9817 CD6B F6 0B AA ... ldab 0baa
9821 CD71 FC 00 40 ..@ ldd 0040
9822 CD74 BD FB BA ... jsr fbba ;jump38 - multiply?
9823 CD77 FD 00 40 ..@ std 0040 ; 0040 *= 0baa
9824 goto57: ; sends the byte, clearing the counter if its the 8th byte
9825 CD7A F6 00 08 ... ldab 0008
9826 CD7D C1 09 .. cmpb #09
9827 CD7F 26 08 &. bne 08
9828 CD81 7F 00 2C .., clr 002c
9829 CD84 7F 00 08 ... clr 0008
9831 CD89 7C 00 08 |.. inc 0008
9834 CD8E BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech
9835 CD91 7E CE 39 ~.9 jmp ce39 ;goto55 - exit
9837 CD94 F6 10 2F ../ ldab 102f ; read SCI data
9839 CD98 BD FE 32 ..2 jsr fe32 ;jump25
9840 CD9B CD B1 00 31 ...1 ; 49 "1"
9841 CD9F CD DB 00 01 .... ; 50 "2"
9842 CDA3 CE 20 00 01 . .. ; 51 "3"
9843 CDA7 CE 28 00 05 .(.. ; 56 "8"
9844 CDAB CE 34 FF C8 .4.. ; 0
9845 CDAF 00 00 .. ; end of array data
9846 CDB1 F6 00 21 ..! ldab 0021
9847 CDB4 2C 08 ,. bge 08
9848 CDB6 CC 00 80 ... ldd #0080
9849 CDB9 BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech
9853 CDC0 BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech
9854 CDC3 F6 00 1F ... ldab 001f
9855 CDC6 C4 08 .. andb #08
9856 CDC8 27 0C '. beq 0c
9857 CDCA F6 0B C0 ... ldab 0bc0
9858 CDCD C4 10 .. andb #10
9859 CDCF 27 05 '. beq 05
9860 CDD1 7C 00 75 |.u inc 0075
9862 CDD6 7F 00 75 ..u clr 0075
9864 CDDB F6 00 1D ... ldab 001d
9865 CDDE C4 02 .. andb #02
9866 CDE0 27 07 '. beq 07
9867 CDE2 F6 00 19 ... ldab 0019
9868 CDE5 C4 08 .. andb #08
9869 CDE7 26 19 &. bne 19
9870 CDE9 CC 00 FE ... ldd #00fe
9871 CDEC BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech
9872 CDEF F6 00 1F ... ldab 001f
9873 CDF2 C4 08 .. andb #08
9874 CDF4 27 0A '. beq 0a
9875 CDF6 F6 0B C0 ... ldab 0bc0
9876 CDF9 C4 10 .. andb #10
9877 CDFB 27 03 '. beq 03
9878 CDFD 7C 00 75 |.u inc 0075
9880 CE02 FC 00 44 ..D ldd 0044
9883 CE07 F6 0B AA ... ldab 0baa
9889 CE0F BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech
9890 CE12 CE 00 19 ... ldx #0019
9891 CE15 1D 00 08 ... bclr 00,x, #08
9892 CE18 CE 00 1F ... ldx #001f
9893 CE1B 1C 00 08 ... bset 00,x, #08
9895 CE20 CE 00 1D ... ldx #001d
9896 CE23 1D 00 02 ... bclr 00,x, #02
9898 CE28 C6 01 .. ldab #01
9899 CE2A F7 00 08 ... stab 0008
9902 CE2F BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech
9906 CE36 BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech
9908 CE39 20 0B . bra 0b ; to ce46 (exit)
9909 goto54: ; just swallow two bytes?
9910 CE3B F6 10 2E ... ldab 102e ; SCI Status
9912 CE3F E7 00 .. stab 00,x
9913 CE41 F6 10 2F ../ ldab 102f ; read SCI data
9914 CE44 E7 00 .. stab 00,x
9920 CE48 F6 0B C4 ... ldab 0bc4
9921 CE4B F1 0B C5 ... cmpb 0bc5
9922 CE4E 25 53 %S bcs 53
9923 CE50 F6 0B C5 ... ldab 0bc5
9924 CE53 F1 0B C6 ... cmpb 0bc6
9925 CE56 25 4B %K bcs 4b
9926 CE58 F6 0B C4 ... ldab 0bc4
9928 CE5C C3 0B C7 ... addd #0bc7
9930 CE60 E6 00 .. ldab 00,x
9932 CE63 FD 0B DD ... std 0bdd
9933 CE66 F6 0B C5 ... ldab 0bc5
9935 CE6A C3 0B C7 ... addd #0bc7
9937 CE6E E6 00 .. ldab 00,x
9939 CE71 FD 0B DF ... std 0bdf
9940 CE74 F6 0B C6 ... ldab 0bc6
9942 CE78 C3 0B C7 ... addd #0bc7
9944 CE7C E6 00 .. ldab 00,x
9946 CE7F FD 0B E1 ... std 0be1
9947 CE82 C6 01 .. ldab #01
9948 CE84 F7 0B D7 ... stab 0bd7
9949 CE87 C6 04 .. ldab #04
9950 CE89 F7 0B D8 ... stab 0bd8
9951 CE8C C6 02 .. ldab #02
9952 CE8E F7 0B D9 ... stab 0bd9
9953 CE91 C6 20 . ldab #20
9954 CE93 F7 0B DA ... stab 0bda
9955 CE96 C6 08 .. ldab #08
9956 CE98 F7 0B DB ... stab 0bdb
9957 CE9B C6 10 .. ldab #10
9958 CE9D F7 0B DC ... stab 0bdc
9959 CEA0 7E D0 66 ~.f jmp d066 ;goto58
9960 CEA3 F6 0B C4 ... ldab 0bc4
9961 CEA6 F1 0B C6 ... cmpb 0bc6
9962 CEA9 25 53 %S bcs 53
9963 CEAB F6 0B C6 ... ldab 0bc6
9964 CEAE F1 0B C5 ... cmpb 0bc5
9965 CEB1 25 4B %K bcs 4b
9966 CEB3 F6 0B C4 ... ldab 0bc4
9968 CEB7 C3 0B C7 ... addd #0bc7
9970 CEBB E6 00 .. ldab 00,x
9972 CEBE FD 0B DD ... std 0bdd
9973 CEC1 F6 0B C6 ... ldab 0bc6
9975 CEC5 C3 0B C7 ... addd #0bc7
9977 CEC9 E6 00 .. ldab 00,x
9979 CECC FD 0B DF ... std 0bdf
9980 CECF F6 0B C5 ... ldab 0bc5
9982 CED3 C3 0B C7 ... addd #0bc7
9984 CED7 E6 00 .. ldab 00,x
9986 CEDA FD 0B E1 ... std 0be1
9987 CEDD C6 01 .. ldab #01
9988 CEDF F7 0B D7 ... stab 0bd7
9989 CEE2 C6 02 .. ldab #02
9990 CEE4 F7 0B D8 ... stab 0bd8
9991 CEE7 C6 04 .. ldab #04
9992 CEE9 F7 0B D9 ... stab 0bd9
9993 CEEC C6 20 . ldab #20
9994 CEEE F7 0B DA ... stab 0bda
9995 CEF1 C6 10 .. ldab #10
9996 CEF3 F7 0B DB ... stab 0bdb
9997 CEF6 C6 08 .. ldab #08
9998 CEF8 F7 0B DC ... stab 0bdc
9999 CEFB 7E D0 66 ~.f jmp d066 ;goto58
10000 CEFE F6 0B C5 ... ldab 0bc5
10001 CF01 F1 0B C4 ... cmpb 0bc4
10002 CF04 25 53 %S bcs 53
10003 CF06 F6 0B C4 ... ldab 0bc4
10004 CF09 F1 0B C6 ... cmpb 0bc6
10005 CF0C 25 4B %K bcs 4b
10006 CF0E F6 0B C5 ... ldab 0bc5
10008 CF12 C3 0B C7 ... addd #0bc7
10010 CF16 E6 00 .. ldab 00,x
10012 CF19 FD 0B DD ... std 0bdd
10013 CF1C F6 0B C4 ... ldab 0bc4
10015 CF20 C3 0B C7 ... addd #0bc7
10017 CF24 E6 00 .. ldab 00,x
10019 CF27 FD 0B DF ... std 0bdf
10020 CF2A F6 0B C6 ... ldab 0bc6
10022 CF2E C3 0B C7 ... addd #0bc7
10024 CF32 E6 00 .. ldab 00,x
10026 CF35 FD 0B E1 ... std 0be1
10027 CF38 C6 04 .. ldab #04
10028 CF3A F7 0B D7 ... stab 0bd7
10029 CF3D C6 01 .. ldab #01
10030 CF3F F7 0B D8 ... stab 0bd8
10031 CF42 C6 02 .. ldab #02
10032 CF44 F7 0B D9 ... stab 0bd9
10033 CF47 C6 08 .. ldab #08
10034 CF49 F7 0B DA ... stab 0bda
10035 CF4C C6 20 . ldab #20
10036 CF4E F7 0B DB ... stab 0bdb
10037 CF51 C6 10 .. ldab #10
10038 CF53 F7 0B DC ... stab 0bdc
10039 CF56 7E D0 66 ~.f jmp d066 ;goto58
10040 CF59 F6 0B C5 ... ldab 0bc5
10041 CF5C F1 0B C6 ... cmpb 0bc6
10042 CF5F 25 53 %S bcs 53
10043 CF61 F6 0B C6 ... ldab 0bc6
10044 CF64 F1 0B C4 ... cmpb 0bc4
10045 CF67 25 4B %K bcs 4b
10046 CF69 F6 0B C5 ... ldab 0bc5
10048 CF6D C3 0B C7 ... addd #0bc7
10050 CF71 E6 00 .. ldab 00,x
10052 CF74 FD 0B DD ... std 0bdd
10053 CF77 F6 0B C6 ... ldab 0bc6
10055 CF7B C3 0B C7 ... addd #0bc7
10057 CF7F E6 00 .. ldab 00,x
10059 CF82 FD 0B DF ... std 0bdf
10060 CF85 F6 0B C4 ... ldab 0bc4
10062 CF89 C3 0B C7 ... addd #0bc7
10064 CF8D E6 00 .. ldab 00,x
10066 CF90 FD 0B E1 ... std 0be1
10067 CF93 C6 04 .. ldab #04
10068 CF95 F7 0B D7 ... stab 0bd7
10069 CF98 C6 02 .. ldab #02
10070 CF9A F7 0B D8 ... stab 0bd8
10071 CF9D C6 01 .. ldab #01
10072 CF9F F7 0B D9 ... stab 0bd9
10073 CFA2 C6 08 .. ldab #08
10074 CFA4 F7 0B DA ... stab 0bda
10075 CFA7 C6 10 .. ldab #10
10076 CFA9 F7 0B DB ... stab 0bdb
10077 CFAC C6 20 . ldab #20
10078 CFAE F7 0B DC ... stab 0bdc
10079 CFB1 7E D0 66 ~.f jmp d066 ;goto58
10080 CFB4 F6 0B C6 ... ldab 0bc6
10081 CFB7 F1 0B C4 ... cmpb 0bc4
10082 CFBA 25 52 %R bcs 52
10083 CFBC F6 0B C4 ... ldab 0bc4
10084 CFBF F1 0B C5 ... cmpb 0bc5
10085 CFC2 25 4A %J bcs 4a
10086 CFC4 F6 0B C6 ... ldab 0bc6
10088 CFC8 C3 0B C7 ... addd #0bc7
10090 CFCC E6 00 .. ldab 00,x
10092 CFCF FD 0B DD ... std 0bdd
10093 CFD2 F6 0B C4 ... ldab 0bc4
10095 CFD6 C3 0B C7 ... addd #0bc7
10097 CFDA E6 00 .. ldab 00,x
10099 CFDD FD 0B DF ... std 0bdf
10100 CFE0 F6 0B C5 ... ldab 0bc5
10102 CFE4 C3 0B C7 ... addd #0bc7
10104 CFE8 E6 00 .. ldab 00,x
10106 CFEB FD 0B E1 ... std 0be1
10107 CFEE C6 02 .. ldab #02
10108 CFF0 F7 0B D7 ... stab 0bd7
10109 CFF3 C6 01 .. ldab #01
10110 CFF5 F7 0B D8 ... stab 0bd8
10111 CFF8 C6 04 .. ldab #04
10112 CFFA F7 0B D9 ... stab 0bd9
10113 CFFD C6 10 .. ldab #10
10114 CFFF F7 0B DA ... stab 0bda
10115 D002 C6 20 . ldab #20
10116 D004 F7 0B DB ... stab 0bdb
10117 D007 C6 08 .. ldab #08
10118 D009 F7 0B DC ... stab 0bdc
10119 D00C 20 58 X bra 58
10120 D00E F6 0B C6 ... ldab 0bc6
10121 D011 F1 0B C5 ... cmpb 0bc5
10122 D014 25 50 %P bcs 50
10123 D016 F6 0B C5 ... ldab 0bc5
10124 D019 F1 0B C4 ... cmpb 0bc4
10125 D01C 25 48 %H bcs 48
10126 D01E F6 0B C6 ... ldab 0bc6
10128 D022 C3 0B C7 ... addd #0bc7
10130 D026 E6 00 .. ldab 00,x
10132 D029 FD 0B DD ... std 0bdd
10133 D02C F6 0B C5 ... ldab 0bc5
10135 D030 C3 0B C7 ... addd #0bc7
10137 D034 E6 00 .. ldab 00,x
10139 D037 FD 0B DF ... std 0bdf
10140 D03A F6 0B C4 ... ldab 0bc4
10142 D03E C3 0B C7 ... addd #0bc7
10144 D042 E6 00 .. ldab 00,x
10146 D045 FD 0B E1 ... std 0be1
10147 D048 C6 02 .. ldab #02
10148 D04A F7 0B D7 ... stab 0bd7
10149 D04D C6 04 .. ldab #04
10150 D04F F7 0B D8 ... stab 0bd8
10151 D052 C6 01 .. ldab #01
10152 D054 F7 0B D9 ... stab 0bd9
10153 D057 C6 10 .. ldab #10
10154 D059 F7 0B DA ... stab 0bda
10155 D05C C6 08 .. ldab #08
10156 D05E F7 0B DB ... stab 0bdb
10157 D061 C6 20 . ldab #20
10158 D063 F7 0B DC ... stab 0bdc
10160 D066 F6 0B AA ... ldab 0baa
10164 D06C FC 0B DD ... ldd 0bdd
10165 D06F BD FB BA ... jsr fbba ;jump38 - multiply?
10166 D072 FD 0B DD ... std 0bdd
10167 D075 F6 0B AA ... ldab 0baa
10171 D07B FC 0B DF ... ldd 0bdf
10172 D07E BD FB BA ... jsr fbba ;jump38 - multiply?
10173 D081 FD 0B DF ... std 0bdf
10174 D084 F6 0B AA ... ldab 0baa
10178 D08A FC 0B E1 ... ldd 0be1
10179 D08D BD FB BA ... jsr fbba ;jump38 - multiply?
10180 D090 FD 0B E1 ... std 0be1
10184 ; initializes a big bunch of variables
10188 D096 6F 00 o. clr 00,x
10191 D099 E6 00 .. ldab 00,x
10192 D09B C1 10 .. cmpb #10
10193 D09D 24 1B $. bcc 1b ; to d0ba
10194 ; read memloc of b0c3+i
10196 D0A0 E6 00 .. ldab 00,x
10198 D0A3 C3 B0 C3 ... addd #b0c3
10200 D0A7 E6 00 .. ldab 00,x
10202 ; put value of that location into 0bc7+i
10204 D0AB E6 01 .. ldab 01,x
10206 D0AE C3 0B C7 ... addd #0bc7
10209 D0B3 E7 00 .. stab 00,x
10212 D0B6 6C 00 l. inc 00,x
10213 D0B8 20 DE . bra de ; to d098
10215 D0BA C6 05 .. ldab #05
10216 D0BC F7 0B AA ... stab 0baa
10217 D0BF C6 04 .. ldab #04
10218 D0C1 F7 00 13 ... stab 0013
10219 D0C4 C6 01 .. ldab #01
10220 D0C6 F7 0B C4 ... stab 0bc4
10221 D0C9 C6 03 .. ldab #03
10222 D0CB F7 0B C5 ... stab 0bc5
10223 D0CE C6 02 .. ldab #02
10224 D0D0 F7 0B C6 ... stab 0bc6
10225 D0D3 CC 00 19 ... ldd #0019
10226 D0D6 FD 0B DD ... std 0bdd
10227 D0D9 CC 00 0A ... ldd #000a
10228 D0DC FD 0B DF ... std 0bdf
10229 D0DF CC 00 05 ... ldd #0005
10230 D0E2 FD 0B E1 ... std 0be1
10231 D0E5 C6 01 .. ldab #01
10232 D0E7 F7 0B D7 ... stab 0bd7
10233 D0EA C6 02 .. ldab #02
10234 D0EC F7 0B D8 ... stab 0bd8
10235 D0EF C6 04 .. ldab #04
10236 D0F1 F7 0B D9 ... stab 0bd9
10237 D0F4 C6 20 . ldab #20
10238 D0F6 F7 0B DA ... stab 0bda
10239 D0F9 C6 10 .. ldab #10
10240 D0FB F7 0B DB ... stab 0bdb
10241 D0FE C6 08 .. ldab #08
10242 D100 F7 0B DC ... stab 0bdc
10247 ; turns all motors off
10249 D106 CE 00 1A ... ldx #001a
10250 D109 1C 00 80 .. bset 00,x, #80
10251 D10C F6 00 1A .. ldab 001a
10252 D10F F7 30 00 .0. stab 3000 ; motor rows off
10253 D112 C6 C8 .. ldab #c8 ; loop of 200 - short delay
10255 D115 E7 00 .. stab 00,x
10257 D118 E6 00 .. ldab 00,x
10258 D11A C1 00 .. cmpb #00
10259 D11C 23 05 #. bls 05 ; to d123
10261 D11F 6A 00 j. dec 00,x
10262 D121 20 F4 . bra f4 ; to d117
10264 D123 CE 10 00 ... ldx #1000
10265 D126 1C 00 40 .. bset 00,x, #40 ; motor columns off
10266 D129 CE 00 14 ... ldx #0014
10267 D12C 1D 00 20 .. bclr 00,x, #20 ; motors col 8 off
10268 D12F CE 00 14 . ldx #0014
10269 D132 1D 00 40 .. bclr 00,x, #40 ; motors col 9 off
10270 D135 F6 00 14 ... ldab 0014
10271 D138 F7 38 00 .8. stab 3800 ; motors off
10276 ; turn on the motor of the slot given in memory location 0006
10277 D13D F6 00 06 ... ldab 0006
10279 D141 CE 00 0A ... ldx #000a
10282 D146 CB 01 .. addb #01 ; we live in an odd world?
10283 D148 F7 00 5F .._ stab 005f ; slot number /10
10284 D14B F6 00 06 ... ldab 0006
10286 D14F CE 00 0A ... ldx #000a
10288 D153 F7 00 5E ..^ stab 005e ; slot number%10
10289 D156 F6 00 5E ..^ ldab 005e
10290 D159 C1 05 .. cmpb #05 ; there is not row 5
10291 D15B 23 03 #. bls 03
10292 D15D 7A 00 5E z.^ dec 005e ; make it row 4
10293 D160 F6 00 5E ..^ ldab 005e
10295 D164 C3 B1 23 ..# addd #b123 ; powers of 2
10297 D168 E6 00 .. ldab 00,x
10301 D16D F6 00 5F .._ ldab 005f
10303 D171 C3 B1 23 ..# addd #b123 ; powers of 2
10305 D175 E6 00 .. ldab 00,x
10310 D17B E3 00 .. addd 00,x
10312 D17E FD 00 58 ..X std 0058
10315 D181 7F 00 1C ... clr 001c
10317 D184 F6 00 1C ... ldab 001c
10318 D187 C1 10 .. cmpb #10
10319 D189 24 37 $7 bcc 37 ; to d1c2
10320 D18B F6 00 58 ..X ldab 0058
10321 D18E 2C 0E ,. bge 0e ; to d19e
10323 D190 CE 00 14 ... ldx #0014
10324 D193 1C 00 10 ... bset 00,x, #10
10325 D196 F6 00 14 ... ldab 0014
10326 D199 F7 38 00 .8. stab 3800 ; set high motor serial data
10327 D19C 20 0C . bra 0c ; to d1aa
10329 D19E CE 00 14 ... ldx #0014
10330 D1A1 1D 00 10 .. bclr 00,x, #10
10331 D1A4 F6 00 14 ... ldab 0014
10332 D1A7 F7 38 00 .8. stab 3800 ; set low motor serial data
10334 ; send a clock pulse
10335 D1AA CE 10 00 ... ldx #1000
10336 D1AD 1C 00 20 .. bset 00,x, #20
10337 D1B0 CE 10 00 . ldx #1000
10338 D1B3 1D 00 .. bclr 00,x, #20
10340 ; get the next bit ready to send
10341 D1B6 FC 00 58 . ldd 0058
10343 D1BA FD 00 58 ..X std 0058
10344 D1BD 7C 00 1C |.. inc 001c
10345 D1C0 20 C2 . bra c2
10346 ; if this is column 8 (9 for pascal programmers ;)
10347 D1C2 F6 00 5F .._ ldab 005f
10348 D1C5 C1 09 .. cmpb #09
10349 D1C7 26 0E &. bne 0e ; to d1d7
10350 D1C9 CE 00 14 ... ldx #0014
10351 D1CC 1C 00 20 ... bset 00,x, #20
10352 D1CF F6 00 14 . ldab 0014
10353 D1D2 F7 38 00 .8. stab 3800 ; say its column 8
10354 D1D5 20 13 . bra 13 ; to d1ea
10355 ; if this is column 9 (denoted as 10)
10356 D1D7 F6 00 5F .._ ldab 005f
10357 D1DA C1 0A .. cmpb #0a
10358 D1DC 26 0C &. bne 0c
10359 D1DE CE 00 14 ... ldx #0014
10360 D1E1 1C 00 40 .. bset 00,x, #40 ; say its column 9
10361 D1E4 F6 00 14 ... ldab 0014
10362 D1E7 F7 38 00 .8. stab 3800
10363 ; clear the motor clock
10364 D1EA CE 10 00 ... ldx #1000
10365 D1ED 1D 00 40 .. bclr 00,x, #40 ; motor clock line low
10366 ; clear motor row output enable
10367 D1F0 CE 00 1A ... ldx #001a
10368 D1F3 1D 00 .. bclr 00,x, #80
10369 D1F6 F6 00 1A ... ldab 001a
10370 D1F9 F7 30 00 .0. stab 3000 ; motor driver outputs enable
10374 D1FD CC 40 00 .@. ldd #4000
10377 D202 F6 00 06 ... ldab 0006
10380 D207 C3 08 00 ... addd #0800
10383 D20C AA 00 .. ora 00,x
10384 D20E EA 01 .. orb 01,x
10385 D210 ED 00 .. std 00,x
10389 D213 F6 00 1F ... ldab 001f
10390 D216 C4 04 .. andb #04
10391 D218 26 12 &. bne 12
10392 D21A F6 0B C0 ... ldab 0bc0
10393 D21D C4 10 .. andb #10
10394 D21F 26 0B &. bne 0b
10395 D221 CE 00 00 ... ldx #0000
10397 D225 FC 00 44 ..D ldd 0044
10398 D228 BD BE 9E ... jsr be9e ;jump50
10400 D22C BD D3 11 ... jsr d311 ;jump30 - test position exists
10401 D22F 83 00 00 ... subd #0000
10402 D232 27 13 '. beq 13
10403 D234 F6 00 06 ... ldab 0006
10404 D237 BD D4 68 ..h jsr d468 ;jump51
10405 D23A 83 00 00 ... subd #0000
10406 D23D 27 05 '. beq 05
10407 D23F 8D BC .. bsr bc ;jump90
10408 D241 BD D6 3C ..< jsr d63c ;jump33
10413 D247 BD D1 3D ..= jsr d13d ;jump34 - motor on
10414 D24A C6 3C .< ldab #3c
10415 D24C F7 00 2E ... stab 002e
10416 D24F C6 41 .A ldab #41
10417 D251 F7 00 31 ..1 stab 0031
10418 D254 CE 00 1B ... ldx #001b
10419 D257 1D 00 08 ... bclr 00,x #08
10421 D25A F6 00 1B ... ldab 001b
10422 D25D C4 08 .. andb #08
10423 D25F 26 22 &" bne 22
10424 D261 F6 00 2E ... ldab 002e
10425 D264 C1 35 .5 cmpb #35
10426 D266 23 10 #. bls 10
10427 D268 BD D5 70 ..p jsr d570 ;jump35
10428 D26B 83 00 00 ... subd #0000
10429 D26E 27 06 '. beq 06
10430 D270 CE 00 1B ... ldx #001b
10431 D273 1C 00 08 ... bset 00,x, #08
10432 D276 20 0B . bra 0b
10433 D278 BD D1 05 ... jsr d105 ;motors_off
10434 D27B 8D 80 .. bsr 80 ;jump90
10435 D27D BD D6 3C ..< jsr d63c ;jump33
10440 D283 F6 00 2E ... ldab 002e
10441 D286 C1 36 .6 cmpb #36
10442 D288 24 56 $V bcc 56 ; to d2e0
10443 D28A BD D5 F7 ... jsr d5f7 ;jump108
10444 D28D 83 00 00 ... subd #0000
10445 D290 27 4E 'N beq 4e ; to d2e0
10446 D292 BD D5 B0 ... jsr d5b0 ;jump31
10447 D295 83 00 00 ... subd #0000
10448 D298 27 46 'F beq 46 ; to d2e0
10449 D29A BD D1 05 ... jsr d105 ;motors_off
10450 D29D F6 00 2E ... ldab 002e
10451 D2A0 C1 32 .2 cmpb #32
10452 D2A2 22 07 ". bhi 07
10453 D2A4 8D 6B .k bsr dest 6b
10454 D2A6 83 00 00 ... subd #0000
10455 D2A9 27 0C '. beq 0c
10456 D2AB BD D1 05 ... jsr d105 ;motors_off
10457 D2AE BD D1 FD ... jsr d1fd ;jump90
10458 D2B1 BD D6 3C ..< jsr d63c ;jump33
10463 D2B7 F6 00 06 ... ldab 0006
10465 D2BB C3 0E 06 ... addd #0e06
10467 D2BF 6C 00 l. inc 00,x
10468 D2C1 F6 00 06 ... ldab 0006
10470 D2C5 C3 0E 06 ... addd #0e06
10472 D2C9 E6 00 .. ldab 00,x
10473 D2CB C1 64 .d cmpb #64
10474 D2CD 23 0D #. bls 0d
10477 D2D1 F6 00 06 ... ldab 0006
10479 D2D5 C3 0E 06 ... addd #0e06
10482 D2DA E7 00 .. stab 00,x
10483 D2DC CC 00 01 ... ldd #0001
10486 D2E0 F6 00 2E ... ldab 002e
10487 D2E3 26 14 &. bne 14
10488 D2E5 BD D5 F7 ... jsr d5f7 ;jump108
10489 D2E8 83 00 00 ... subd #0000
10490 D2EB 26 0C &. bne 0c
10491 D2ED BD D1 05 ... jsr d105 ;motors_off
10492 D2F0 BD D1 FD ... jsr d1fd ;jump90
10493 D2F3 BD D6 26 ..& jsr d626 ;jump91
10498 D2F9 F6 00 2E ... ldab 002e
10499 D2FC 26 0C &. bne 0c
10500 D2FE BD D1 05 ... jsr d105 ;motors_off
10501 D301 BD D1 FD ... jsr d1fd ;jump90
10502 D304 BD D6 3C ..< jsr d63c ;jump33
10507 D30A 7E D2 5A ~.Z jmp d25a ;goto59
10508 D30D BD E6 1B ... jsr e61b ;jump4
10512 ; tests to see if a motor exists here
10513 D311 BD D1 3D ..= jsr d13d ;jump34 - motor on
10514 D314 7F 00 1C ... clr 001c
10515 D317 7F 00 18 ... clr 0018
10516 D31A F6 10 0A ... ldab 100a
10517 D31D C4 02 .. andb #02 ; motor overvoltage sense
10518 D31F 27 13 '. beq 13 ; to d334
10519 D321 7C 00 1C |.. inc 001c
10520 D324 F6 00 1C ... ldab 001c
10521 D327 C1 FF .. cmpb #ff
10522 D329 26 07 &. bne 07
10523 D32B BD D1 05 ... jsr d105 ;motors_off
10524 D32E CC 00 01 ... ldd #0001
10527 D332 20 10 . bra 10 ; to d344
10528 D334 7C 00 18 |.. inc 0018
10529 D337 F6 00 18 ... ldab 0018
10530 D33A C1 08 .. cmpb #08
10531 D33C 26 06 &. bne 06 ; continue
10532 D33E BD D1 05 ... jsr d105 ;motors_off
10536 D344 20 D4 . bra d4 ; continue
10543 D34A F6 0E 6D ..m ldab 0e6d
10544 D34D C1 01 .. cmpb #01
10545 D34F 27 03 '. beq 03
10546 D351 7E D4 07 ~.. jmp d407 ;goto60
10547 D354 F6 00 06 ... ldab 0006
10550 D359 C3 08 C8 ... addd #08c8
10552 D35D EC 00 .. ldd 00,x
10553 D35F C4 7F .. andb #7f
10555 D362 FD 0E 6B ..k std 0e6b
10556 D365 7F 00 06 ... clr 0006
10558 D368 F6 00 06 ... ldab 0006
10559 D36B C1 3E .> cmpb #3e
10560 D36D 26 03 &. bne 03
10561 D36F 7E D4 02 ~.. jmp d402 ;goto61
10562 D372 BD 97 6F ..o jsr 976f ;jump41
10563 D375 F6 00 06 ... ldab 0006
10566 D37A C3 08 C8 ... addd #08c8
10568 D37E EC 00 .. ldd 00,x
10569 D380 C4 7F .. andb #7f
10571 D383 B3 0E 6B ..k subd 0e6b
10572 D386 26 77 &w bne 77
10573 D388 F6 00 06 ... ldab 0006
10575 D38C CE 00 0A ... ldx #000a
10578 D391 E7 01 .. stab 01,x
10579 D393 E6 01 .. ldab 01,x
10580 D395 C1 01 .. cmpb #01
10581 D397 26 07 &. bne 07
10582 D399 C6 40 .@ ldab #40
10584 D39C E7 00 .. stab 00,x
10585 D39E 20 0C . bra 0c
10587 D3A1 E6 01 .. ldab 01,x
10588 D3A3 C1 02 .. cmpb #02
10589 D3A5 26 05 &. bne 05
10590 D3A7 C6 80 .. ldab #80
10592 D3AA E7 00 .. stab 00,x
10593 D3AC BD D1 3D ..= jsr d13d ;jump34 - motor on
10597 D3B2 ED 03 .. std 03,x
10598 ;look at the home sensors for this row. If it is 0, increment 03/04 else
10599 ;decrement 03/05. Do this 10 times.
10600 D3B4 CC 00 0A ... ldd #000a
10601 D3B7 ED 05 .. std 05,x
10604 D3BA EC 05 .. ldd 05,x
10605 D3BC 2F 23 /# ble 23 ; to D3E1
10606 D3BE F6 28 00 .(. ldab 2800 ;snack motor home sensors
10608 D3C2 E4 00 .. andb 00,x
10609 D3C4 26 09 &. bne d3cf
10611 D3C7 6C 04 l. inc 04,x
10612 D3C9 26 0C &. bne 0c
10613 D3CB 6C 03 l. inc 03,x
10614 D3CD 20 08 . bra d3d7
10616 D3D0 EC 03 .. ldd 03,x
10617 D3D2 83 00 01 ... subd #0001
10618 D3D5 ED 03 .. std 03,x
10620 D3D8 EC 05 .. ldd 05,x
10621 D3DA 83 00 01 ... subd #0001
10622 D3DD ED 05 .. std 05,x
10623 D3DF 20 D8 . bra loop ;d3b9
10624 D3E1 BD D1 05 ... jsr d105 ;motors_off - turn motors off
10626 D3E5 EC 03 .. ldd 03,x
10627 D3E7 2C 16 ,. bge 16
10628 D3E9 F6 00 06 ... ldab 0006
10629 D3EC 8D 7A .z bsr dest 7a
10630 D3EE 83 00 00 ... subd #0000
10631 D3F1 27 0C '. beq 0c
10632 D3F3 BD D5 61 ..a jsr d561 ;jump42
10633 D3F6 83 00 00 ... subd #0000
10634 D3F9 26 04 &. bne 04
10637 D3FD 20 64 d bra 64
10638 D3FF 7E D3 68 ~.h jmp d368 ;goto62
10640 D402 CC 00 01 ... ldd #0001
10641 D405 20 5C \ bra 5c
10643 D407 F6 00 06 ... ldab 0006
10644 D40A C1 13 .. cmpb #13
10645 D40C 27 1C '. beq 1c
10646 D40E F6 00 06 ... ldab 0006
10647 D411 C1 1D .. cmpb #1d
10648 D413 27 15 '. beq 15
10649 D415 F6 00 06 ... ldab 0006
10650 D418 C1 27 .' cmpb #27
10651 D41A 27 0E '. beq 0e
10652 D41C F6 00 06 ... ldab 0006
10653 D41F C1 31 .1 cmpb #31
10654 D421 27 07 '. beq 07
10655 D423 F6 00 06 ... ldab 0006
10656 D426 C1 3B .; cmpb #3b
10657 D428 26 37 &7 bne 37
10658 D42A BD D1 3D ..= jsr d13d ;jump34 - motor on
10659 D42D 7F 00 1C ... clr 001c
10660 D430 7F 00 18 ... clr 0018
10661 D433 F6 18 00 ... ldab 1800
10662 D436 C4 40 .@ andb #40
10663 D438 26 14 &. bne 14
10664 D43A 7C 00 1C |.. inc 001c
10665 D43D F6 00 1C ... ldab 001c
10666 D440 C1 FF .. cmpb #ff
10667 D442 26 08 &. bne 08
10668 D444 BD D1 05 ... jsr d105 ;motors_off
10669 D447 CC 00 01 ... ldd #0001
10670 D44A 20 17 . bra 17
10671 D44C 20 11 . bra 11
10672 D44E 7C 00 18 |.. inc 0018
10673 D451 F6 00 18 ... ldab 0018
10674 D454 C1 08 .. cmpb #08
10675 D456 26 07 &. bne 07
10676 D458 BD D1 05 ... jsr d105 ;motors_off
10679 D45D 20 04 . bra 04
10680 D45F 20 D2 . bra d2
10692 D46A E6 00 .. ldab 00,x
10695 D46E C3 08 00 ... addd #0800
10697 D472 EC 00 .. ldd 00,x
10699 D475 84 80 .. anda #80
10704 D479 7F 00 1C ... clr 001c
10705 D47C F6 00 1C ... ldab 001c
10706 D47F C1 64 .d cmpb #64
10707 D481 24 1A $. bcc 1a
10708 D483 CC FF 7F ... ldd #ff7f
10711 D488 F6 00 1C ... ldab 001c
10714 D48D C3 08 C8 ... addd #08c8
10717 D492 A4 00 .. anda 00,x
10718 D494 E4 01 .. andb 01,x
10719 D496 ED 00 .. std 00,x
10720 D498 7C 00 1C |.. inc 001c
10721 D49B 20 DF . bra df
10722 D49D 7F 00 05 ... clr 0005
10724 D4A0 F6 00 05 ... ldab 0005
10725 D4A3 C1 50 .P cmpb #50
10726 D4A5 25 03 %. bcs 03
10727 D4A7 7E D5 60 ~.` jmp d560 ;goto63
10728 D4AA F6 00 05 ... ldab 0005
10730 D4AE C3 B0 D3 ... addd #b0d3
10732 D4B2 E6 00 .. ldab 00,x
10733 D4B4 F7 00 06 ... stab 0006
10734 D4B7 BD D3 11 ... jsr d311 ;jump30 - test position exists
10735 D4BA 83 00 00 ... subd #0000
10736 D4BD 27 03 '. beq 03
10737 D4BF 7E D5 45 ~.E jmp d545 ;goto64
10738 D4C2 F6 00 06 ... ldab 0006
10739 D4C5 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
10740 D4C8 83 00 00 ... subd #0000
10741 D4CB 26 78 &x bne 78
10742 D4CD BD D5 B0 ... jsr d5b0 ;jump31
10743 D4D0 83 00 00 ... subd #0000
10744 D4D3 26 06 &. bne 06
10745 D4D5 BD D1 FD ... jsr d1fd ;jump90
10746 D4D8 BD D6 3C ..< jsr d63c ;jump33
10747 D4DB CC 80 00 ... ldd #8000
10750 D4E0 F6 00 06 ... ldab 0006
10753 D4E5 C3 08 00 ... addd #0800
10756 D4EA AA 00 .. ora 00,x
10757 D4EC EA 01 .. orb 01,x
10758 D4EE ED 00 .. std 00,x
10759 D4F0 F6 00 06 ... ldab 0006
10762 D4F5 C3 08 00 ... addd #0800
10764 D4F9 EC 00 .. ldd 00,x
10765 D4FB C4 FF .. andb #ff
10766 D4FD 84 3F .? anda #3f
10767 D4FF 83 27 0F .'. subd #270f
10768 D502 23 1A #. bls 1a
10769 D504 BD D1 FD ... jsr d1fd ;jump90
10770 D507 CC 01 00 ... ldd #0100
10773 D50C F6 00 06 ... ldab 0006
10776 D511 C3 08 C8 ... addd #08c8
10779 D516 AA 00 .. ora 00,x
10780 D518 EA 01 .. orb 01,x
10781 D51A ED 00 .. std 00,x
10782 D51C 20 25 % bra 25
10783 D51E F6 00 06 ... ldab 0006
10786 D523 C3 08 C8 ... addd #08c8
10788 D527 EC 00 .. ldd 00,x
10789 D529 C4 7F .. andb #7f
10790 D52B F7 00 06 ... stab 0006
10791 D52E CC 00 80 ... ldd #0080
10794 D533 F6 00 06 ... ldab 0006
10797 D538 C3 08 C8 ... addd #08c8
10800 D53D AA 00 .. ora 00,x
10801 D53F EA 01 .. orb 01,x
10802 D541 ED 00 .. std 00,x
10803 D543 20 15 . bra 15
10805 D545 CC 7F FF ... ldd #7fff
10808 D54A F6 00 06 ... ldab 0006
10811 D54F C3 08 00 ... addd #0800
10814 D554 A4 00 .. anda 00,x
10815 D556 E4 01 .. andb 01,x
10816 D558 ED 00 .. std 00,x
10817 D55A 7C 00 05 |.. inc 0005
10818 D55D 7E D4 A0 ~.. jmp d4a0 ;goto65
10823 D561 F6 00 06 ... ldab 0006
10826 D566 C3 08 00 ... addd #0800
10828 D56A EC 00 .. ldd 00,x
10830 D56D 84 40 .@ anda #40
10833 ;Look at the home sensor for the row of this slot. If it isn't 0 within 5
10834 ;loops, return 1 (fault?), else return 0 (OK?).
10835 ;005f is the row number in this routine. scratch variable?
10836 ;looks like 0006 is the slot number.
10837 ;this is called twice
10839 D570 F6 00 06 ... ldab 0006
10841 D574 CE 00 0A ... ldx #000a
10843 D578 F7 00 5F .._ stab 005f
10844 D57B F6 00 5F .._ ldab 005f
10845 D57E C1 05 .. cmpb #05
10846 D580 23 03 #. bls d585
10847 D582 7A 00 5F z._ dec 005f
10848 D585 F6 00 5F .._ ldab 005f ;row number
10850 D589 C3 B1 23 ..# addd #b123
10852 D58D E6 00 .. ldab 00,x ;get bit for this row
10853 D58F F7 00 5E ..^ stab 005e
10854 D592 7F 00 1C ... clr 001c
10856 D595 F6 28 00 .(. ldab 2800 ;snack motor home sensors
10857 D598 F4 00 5E ..^ andb 005e ;check home sensor for this row
10858 D59B 27 10 '. beq d5ad
10859 D59D 7C 00 1C |.. inc 001c
10860 D5A0 F6 00 1C ... ldab 001c
10861 D5A3 C1 05 .. cmpb #05
10862 D5A5 26 04 &. bne d5ab
10863 D5A7 CC 00 01 ... ldd #0001
10866 D5AB 20 E8 . bra loop ;d595
10871 ;This does almost the same - check the home sensor for this row (slot number
10872 ;is in 0006) up to 5 times. If it is 1, return 0. If it stays 0, return 0.
10873 ;(this is the reverse of the routine above). But also check bit 0 of 100a.
10874 ;If it is ever 0, return 0.
10875 ;005f is the row number
10876 ;005e is the bit mask for this row
10878 D5B0 F6 00 06 ... ldab 0006
10880 D5B4 CE 00 0A ... ldx #000a
10882 D5B8 F7 00 5F .._ stab 005f
10883 D5BB F6 00 5F .._ ldab 005f
10884 D5BE C1 05 .. cmpb #05
10885 D5C0 23 03 #. bls 03
10886 D5C2 7A 00 5F z._ dec 005f
10887 D5C5 F6 00 5F .._ ldab 005f
10889 D5C9 C3 B1 23 ..# addd #b123
10891 D5CD E6 00 .. ldab 00,x
10892 D5CF F7 00 5E ..^ stab 005e
10893 D5D2 7F 00 1C ... clr 001c
10895 D5D5 F6 28 00 .(. ldab 2800 ;snack motor home sensors
10896 D5D8 F4 00 5E ..^ andb 005e
10897 D5DB 26 17 &. bne d5f4
10898 D5DD F6 10 0A ... ldab 100a
10899 D5E0 C4 01 .. andb #01
10900 D5E2 27 10 '. beq d5f4
10901 D5E4 7C 00 1C |.. inc 001c
10902 D5E7 F6 00 1C ... ldab 001c
10903 D5EA C1 05 .. cmpb #05
10904 D5EC 26 04 &. bne d5f2
10905 D5EE CC 00 01 ... ldd #0001
10908 D5F2 20 E1 . bra loop ;d5d5
10914 D5F7 C6 07 .. ldab #07
10915 D5F9 F7 00 1C ... stab 001c
10916 D5FC 7F 00 18 ... clr 0018
10918 D5FF F6 00 1C ... ldab 001c
10919 D602 27 1E '. beq 1e ; to d620
10920 D604 7A 00 1C z.. dec 001c
10921 D607 F6 10 0A ... ldab 100a
10922 D60A C4 01 .. andb #01
10923 D60C 26 12 &. bne 12 ; to d620
10924 D60E C6 07 .. ldab #07
10925 D610 F7 00 1C ... stab 001c
10926 D613 7C 00 18 |.. inc 0018
10927 D616 F6 00 18 ... ldab 0018
10928 D619 C1 05 .. cmpb #05
10929 D61B 26 03 &. bne 03
10934 D620 20 DD . bra dd ; to d5ff
10935 D622 CC 00 01 ... ldd #0001
10939 ; ORs memory location 08c8+(slotnum*2) with #0200
10940 D626 CC 02 00 ... ldd #0200
10943 D62B F6 00 06 ... ldab 0006
10946 D630 C3 08 C8 ... addd #08c8
10949 D635 AA 00 .. ora 00,x
10950 D637 EA 01 .. orb 01,x
10951 D639 ED 00 .. std 00,x
10955 ; ORs memory location 08c8+(slotnum*2) with #0400
10956 D63C CC 04 00 ... ldd #0400
10959 D641 F6 00 06 ... ldab 0006
10962 D646 C3 08 C8 ... addd #08c8
10965 D64B AA 00 .. ora 00,x
10966 D64D EA 01 .. orb 01,x
10967 D64F ED 00 .. std 00,x
10971 ; Sends a pulse to the bill acceptor
10972 D652 CE 00 1A ... ldx #001a
10973 D655 1C 00 01 .. bset 00,x, #01
10974 D658 F6 00 1A ... ldab 001a
10975 D65B F7 30 00 .0. stab 3000
10976 D65E CE 00 14 ... ldx #0014
10977 D661 1D 00 01 .. bclr 00,x, #01
10978 D664 F6 00 14 ... ldab 0014
10979 D667 F7 38 00 .8. stab 3800
10983 D66B F6 0B C0 ... ldab 0bc0
10984 D66E C4 08 .. andb #08
10985 D670 27 07 '. beq 07
10986 D672 F6 00 7D ..} ldab 007d
10987 D675 27 02 '. beq 02
10988 D677 20 F9 . bra f9
10989 D679 F6 00 15 ... ldab 0015
10990 D67C 2D 77 -w blt 77
10991 D67E FC 00 40 ..@ ldd 0040
10992 D681 F3 00 3E ..> addd 003e
10993 D684 B3 00 0F ... subd 000f
10994 D687 24 4F $O bcc 4f
10995 D689 F6 0B C0 ... ldab 0bc0
10996 D68C C4 01 .. andb #01
10997 D68E 26 07 &. bne 07
10998 D690 F6 0B C0 ... ldab 0bc0
10999 D693 C4 04 .. andb #04
11000 D695 27 0C '. beq 0c
11001 D697 CE 00 1A ... ldx #001a
11002 D69A 1D 00 01 .. bclr 00,x, #01
11003 D69D F6 00 1A ... ldab 001a
11004 D6A0 F7 30 00 .0. stab 3000 ; changer accept' line
11005 D6A3 F6 0B C0 ... ldab 0bc0
11006 D6A6 C4 08 .. andb #08
11007 D6A8 27 20 ' beq 20
11008 D6AA F6 0C D9 ... ldab 0cd9
11009 D6AD C1 03 .. cmpb #03
11010 D6AF 23 19 #. bls 19
11011 D6B1 FC 0B EF ... ldd 0bef
11012 D6B4 83 00 64 ..d subd #0064
11013 D6B7 25 11 %. bcs 11
11014 D6B9 CE 00 14 ... ldx #0014
11015 D6BC 1C 00 02 .. bset 00,x, #02
11016 D6BF F6 00 14 ... ldab 0014
11017 D6C2 F7 38 00 .8. stab 3800 ; bill acceptor
11018 D6C5 BD C0 E0 ... jsr c0e0 ;jump94
11019 D6C8 20 0C . bra 0c
11020 D6CA CE 00 14 ... ldx #0014
11021 D6CD 1D 00 01 .. bclr 00,x, #01
11022 D6D0 F6 00 14 ... ldab 0014
11023 D6D3 F7 38 00 .8. stab 3800
11024 D6D6 20 05 . bra 05
11025 D6D8 BD D6 52 ..R jsr d652 ;jump5
11026 D6DB 8D 53 .S bsr dest 53
11027 D6DD F6 0B C0 ... ldab 0bc0
11028 D6E0 C4 08 .. andb #08
11029 D6E2 27 11 '. beq 11
11030 D6E4 F6 0B C0 ... ldab 0bc0
11031 D6E7 C4 40 .@ andb #40
11032 D6E9 27 0A '. beq 0a
11033 D6EB F6 00 15 ... ldab 0015
11034 D6EE C4 01 .. andb #01
11035 D6F0 27 03 '. beq 03
11036 D6F2 BD C0 E0 ... jsr c0e0 ;jump94
11040 D6F6 F6 0C DB ... ldab 0cdb
11044 D6FC FC 0B DD ... ldd 0bdd
11045 D6FF BD FB BA ... jsr fbba ;jump38 - multiply?
11046 D702 FD 0C EB ... std 0ceb
11047 D705 F6 0C DA ... ldab 0cda
11051 D70B FC 0B DF ... ldd 0bdf
11052 D70E BD FB BA ... jsr fbba ;jump38 - multiply?
11053 D711 FD 0C ED ... std 0ced
11054 D714 F6 0C D9 ... ldab 0cd9
11058 D71A FC 0B E1 ... ldd 0be1
11059 D71D BD FB BA ... jsr fbba ;jump38 - multiply?
11060 D720 FD 0C EF ... std 0cef
11061 D723 FC 0C EB ... ldd 0ceb
11062 D726 F3 0C ED ... addd 0ced
11063 D729 F3 0C EF ... addd 0cef
11064 D72C FD 0B EF ... std 0bef
11068 D730 F6 00 15 ... ldab 0015
11069 D733 C4 1F .. andb #1f
11070 D735 27 49 'I beq 49
11071 D737 FC 00 40 ..@ ldd 0040
11072 D73A F3 00 3E ..> addd 003e
11073 D73D B3 0B EF ... subd 0bef
11074 D740 23 19 #. bls 19
11075 D742 CC B0 6B ..k ldd #b06b ; "NO CHANGE"
11076 D745 BD C0 BA ... jsr c0ba ;display:
11077 D748 CC 01 F4 ... ldd #01f4
11078 D74B BD E5 71 ..q jsr e571 ;msdelay
11079 D74E BD C5 D3 ... jsr c5d3 ;jump6
11080 D751 CC 01 F4 ... ldd #01f4
11081 D754 BD E5 71 ..q jsr e571 ;msdelay
11082 D757 CC 00 01 ... ldd #0001
11085 D75B F6 00 15 ... ldab 0015
11086 D75E C4 04 .. andb #04
11087 D760 27 1E '. beq 1e
11088 D762 F6 0E 6E ..n ldab 0e6e
11089 D765 26 19 &. bne 19
11090 D767 CC B0 76 ..v ldd #b076 ; "NO FIVES"
11091 D76A BD C0 BA ... jsr c0ba ;display:
11092 D76D CC 01 F4 ... ldd #01f4
11093 D770 BD E5 71 ..q jsr e571 ;msdelay
11094 D773 BD C5 D3 ... jsr c5d3 ;jump6
11095 D776 CC 01 F4 ... ldd #01f4
11096 D779 BD E5 71 ..q jsr e571 ;msdelay
11097 D77C CC 00 01 ... ldd #0001
11105 D783 F6 00 06 ... ldab 0006
11107 D787 CE 00 0A ... ldx #000a
11109 D78B C1 04 .. cmpb #04
11110 D78D 26 0E &. bne 0e
11111 D78F F6 00 1D ... ldab 001d
11112 D792 C4 04 .. andb #04
11113 D794 27 03 '. beq 03
11118 D799 CC 00 01 ... ldd #0001
11126 ; validates a slot number? (return 1 if invalid)
11127 ; let i = number on stack
11128 ; if i in [9, 69, 79, 89, 99], return 1
11129 ; if 0e6d!=1 return 0
11130 ; if i%10 not in [1,2] return 1
11131 ; if i < 11 return 1
11132 ; if i <= 62 return 0
11136 D7A2 E6 00 .. ldab 00,x
11137 D7A4 C1 09 .. cmpb #09 ; 9
11138 D7A6 27 18 '. beq 18 ; to d7c0 (returns 1)
11139 D7A8 E6 00 .. ldab 00,x
11140 D7AA C1 45 .E cmpb #45 ; 69
11141 D7AC 27 12 '. beq 12 ; to d7c0 (returns 1)
11142 D7AE E6 00 .. ldab 00,x
11143 D7B0 C1 4F .O cmpb #4f ; 79
11144 D7B2 27 0C '. beq 0c ; to d7c0 (returns 1)
11145 D7B4 E6 00 .. ldab 00,x
11146 D7B6 C1 59 .Y cmpb #59 ; 89
11147 D7B8 27 06 '. beq 06 ; to d7c0 (returns 1)
11148 D7BA E6 00 .. ldab 00,x
11149 D7BC C1 63 .c cmpb #63 ; 99 (also returns 1)
11150 D7BE 26 05 &. bne 05 ; to d7c5 if not equal
11151 D7C0 CC 00 01 ... ldd #0001
11152 D7C3 20 38 8 bra 38 ; to d7fd (return 1)
11153 D7C5 F6 0E 6D ..m ldab 0e6d
11154 D7C8 C1 01 .. cmpb #01
11155 D7CA 26 2F &/ bne 2f ;to d7fb (return 0)
11157 D7CD E6 00 .. ldab 00,x
11159 D7D0 CE 00 0A ... ldx #000a
11161 D7D4 C1 01 .. cmpb #01
11162 D7D6 27 11 '. beq 11 ;to d7e9 if num%10==1
11164 D7D9 E6 00 .. ldab 00,x
11166 D7DC CE 00 0A ... ldx #000a
11168 D7E0 C1 02 .. cmpb #02
11169 D7E2 27 05 '. beq 05 ;to d7e9 if num%10==2
11170 D7E4 CC 00 01 ... ldd #0001
11171 D7E7 20 14 . bra 14 ; to d7fd (return 1)
11173 D7EA E6 00 .. ldab 00,x
11174 D7EC C1 0B .. cmpb #0b ; < 11
11175 D7EE 25 06 %. bcs 06 ; return 1
11176 D7F0 E6 00 .. ldab 00,x
11177 D7F2 C1 3E .> cmpb #3e ; <= 62
11178 D7F4 23 05 #. bls 05 ; return 0
11179 D7F6 CC 00 01 ... ldd #0001
11180 D7F9 20 02 . bra 02
11187 D7FF 7F 00 1C ... clr 001c
11188 D802 F6 00 1C ... ldab 001c
11190 D806 B3 00 4D ..M subd 004d
11191 D809 24 05 $. bcc 05
11192 D80B 7C 00 1C |.. inc 001c
11193 D80E 20 F2 . bra f2
11194 D810 F6 00 1C ... ldab 001c
11197 D815 C3 0D 1F ... addd #0d1f
11199 D819 EC 00 .. ldd 00,x
11200 D81B 83 FF FF ... subd #ffff
11201 D81E 26 10 &. bne 10
11206 D824 F6 00 1C ... ldab 001c
11209 D829 C3 0D 1F ... addd #0d1f
11212 D82E ED 00 .. std 00,x
11213 D830 F6 00 1C ... ldab 001c
11216 D835 C3 0D 1F ... addd #0d1f
11218 D839 6C 01 l. inc 01,x
11219 D83B 26 02 &. bne 02
11220 D83D 6C 00 l. inc 00,x
11224 D840 FC 00 44 ..D ldd 0044
11225 D843 26 03 &. bne 03
11226 D845 7E D8 D2 ~.. jmp d8d2 ;goto66
11227 D848 FC 00 44 ..D ldd 0044
11234 D851 CC 0D EB ... ldd #0deb
11235 D854 BD FB DF ... jsr fbdf ;jump46
11238 D859 FE 0D ED ... ldx 0ded
11240 D85D FC 0D EB ... ldd 0deb
11243 D862 CE E1 00 ... ldx #e100
11245 D866 CC 05 F5 ... ldd #05f5
11249 D86C EC 06 .. ldd 06,x
11250 D86E A3 02 .. subd 02,x
11251 D870 EC 04 .. ldd 04,x
11252 D872 E2 01 .. sbcb 01,x
11253 D874 A2 00 .. sbca 00,x
11258 D87A 25 11 %. bcs 11
11259 D87C CE 1F 00 ... ldx #1f00
11261 D880 CC FA 0A ... ldd #fa0a
11264 D885 CC 0D EB ... ldd #0deb
11265 D888 BD FB DF ... jsr fbdf ;jump46
11268 D88D FC 00 44 ..D ldd 0044
11275 D896 CC 0D E7 ... ldd #0de7
11276 D899 BD FB DF ... jsr fbdf ;jump46
11279 D89E FE 0D E9 ... ldx 0de9
11281 D8A2 FC 0D E7 ... ldd 0de7
11284 D8A7 CE E1 00 ... ldx #e100
11286 D8AB CC 05 F5 ... ldd #05f5
11290 D8B1 EC 06 .. ldd 06,x
11291 D8B3 A3 02 .. subd 02,x
11292 D8B5 EC 04 .. ldd 04,x
11293 D8B7 E2 01 .. sbcb 01,x
11294 D8B9 A2 00 .. sbca 00,x
11299 D8BF 25 11 %. bcs 11
11300 D8C1 CE 1F 00 ... ldx #1f00
11302 D8C5 CC FA 0A ... ldd #fa0a
11305 D8CA CC 0D E7 ... ldd #0de7
11306 D8CD BD FB DF ... jsr fbdf ;jump46
11314 D8D3 7F 00 18 ... clr 0018
11315 D8D6 F6 00 18 ... ldab 0018
11316 D8D9 C1 10 .. cmpb #10
11317 D8DB 24 0B $. bcc 0b
11318 D8DD CC 00 32 ..2 ldd #0032
11319 D8E0 BD E5 71 ..q jsr e571 ;msdelay
11320 D8E3 7C 00 18 |.. inc 0018
11321 D8E6 20 EE . bra ee
11325 ; displays select other item
11326 D8E9 F6 00 2B ..+ ldab 002b
11327 D8EC C1 00 .. cmpb #00
11328 D8EE 26 18 &. bne 18
11329 D8F0 CC AD 84 ... ldd #ad84 ; " PULSE "
11330 D8F3 BD C0 BA ... jsr c0ba ;display:
11331 D8F6 8D DB .. bsr dest db
11332 D8F8 CC AD 8F ... ldd #ad8f ; " EXTRA "
11333 D8FB BD C0 BA ... jsr c0ba ;display:
11334 D8FE 8D D3 .. bsr dest d3
11335 D900 CC AD 9A ... ldd #ad9a ; "SELECTION"
11336 D903 BD C0 BA ... jsr c0ba ;display:
11337 D906 20 4E N bra 4e
11338 D908 C1 01 .. cmpb #01
11339 D90A 26 18 &. bne 18
11340 D90C CC AD 63 ..c ldd #ad63 ; " BITTE "
11341 D90F BD C0 BA ... jsr c0ba ;display:
11342 D912 8D BF .. bsr dest bf
11343 D914 CC AD 6E ..n ldd #ad6e ; " ANDERE "
11344 D917 BD C0 BA ... jsr c0ba ;display:
11345 D91A 8D B7 .. bsr dest b7
11346 D91C CC AD 79 ..y ldd #ad79 ; " WAHL "
11347 D91F BD C0 BA ... jsr c0ba ;display:
11348 D922 20 32 2 bra 32
11349 D924 C1 02 .. cmpb #02
11350 D926 26 18 &. bne 18
11351 D928 CC AD 42 ..B ldd #ad42 ; "FAITES"
11352 D92B BD C0 BA ... jsr c0ba ;display:
11353 D92E 8D A3 .. bsr dest a3
11354 D930 CC AD 4D ..M ldd #ad4d ; "AURTE"
11355 D933 BD C0 BA ... jsr c0ba ;display:
11356 D936 8D 9B .. bsr dest 9b
11357 D938 CC AD 58 ..X ldd #ad58 ; "CHOIX"
11358 D92B BD C0 BA ... jsr c0ba ;display:
11359 D93E 20 16 . bra 16
11360 D940 CC AD 21 ..! ldd #ad21 ; "SELECT "
11361 D943 BD C0 BA ... jsr c0ba ;display:
11362 D946 8D 8B .. bsr dest 8b
11363 D948 CC AD 2C .., ldd #ad2c ; "OTHER"
11364 D94B BD C0 BA ... jsr c0ba ;display:
11365 D94E 8D 83 .. bsr dest 83
11366 D950 CC AD 37 ..7 ldd #ad37 ; "ITEM"
11367 D953 BD C0 BA ... jsr c0ba ;display:
11368 D956 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay
11372 D95A F6 00 06 ... ldab 0006
11373 D95D F1 0B AF ... cmpb 0baf
11374 D960 26 0D &. bne 0d
11375 D962 BD D7 FF ... jsr d7ff ;jump80
11376 D965 F6 0B B4 ... ldab 0bb4
11377 D968 F7 00 06 ... stab 0006
11378 D96B 8D 55 .U bsr 55 ;jump205
11379 D96D 20 52 R bra 52
11380 D96F F6 00 06 ... ldab 0006
11381 D972 F1 0B AE ... cmpb 0bae
11382 D975 26 0D &. bne 0d
11383 D977 BD D7 FF ... jsr d7ff ;jump80
11384 D97A F6 0B B3 ... ldab 0bb3
11385 D97D F7 00 06 ... stab 0006
11386 D980 8D 40 .@ bsr dest 40
11387 D982 20 3D = bra 3d
11388 D984 F6 00 06 ... ldab 0006
11389 D987 F1 0B AD ... cmpb 0bad
11390 D98A 26 0D &. bne 0d
11391 D98C BD D7 FF ... jsr d7ff ;jump80
11392 D98F F6 0B B2 ... ldab 0bb2
11393 D992 F7 00 06 ... stab 0006
11394 D995 8D 2B .+ bsr dest 2b
11395 D997 20 28 ( bra 28
11396 D999 F6 00 06 ... ldab 0006
11397 D99C F1 0B AC ... cmpb 0bac
11398 D99F 26 0D &. bne 0d
11399 D9A1 BD D7 FF ... jsr d7ff ;jump80
11400 D9A4 F6 0B B1 ... ldab 0bb1
11401 D9A7 F7 00 06 ... stab 0006
11402 D9AA 8D 16 .. bsr dest 16
11403 D9AC 20 13 . bra 13
11404 D9AE F6 00 06 ... ldab 0006
11405 D9B1 F1 0B AB ... cmpb 0bab
11406 D9B4 26 0B &. bne 0b
11407 D9B6 BD D7 FF ... jsr d7ff ;jump80
11408 D9B9 F6 0B B0 ... ldab 0bb0
11409 D9BC F7 00 06 ... stab 0006
11410 D9BF 8D 01 .. bsr dest 01
11414 D9C2 CC 03 E8 ... ldd #03e8
11415 D9C5 BD E5 71 ..q jsr e571 ;msdelay
11416 D9C8 BD D7 83 ... jsr d783 ;jump44
11417 D9CB 83 00 00 ... subd #0000
11418 D9CE 27 0B '. beq 0b
11419 D9D0 7F 00 06 ... clr 0006
11422 D9D5 FD 00 4D ..M std 004d
11423 D9D8 7E DA 63 ~.c jmp da63 ;goto67
11424 D9DB BD D2 13 ... jsr d213 ;jump45
11425 D9DE 83 00 00 ... subd #0000
11426 D9E1 26 0A &. bne 0a
11427 D9E3 7F 00 06 ... clr 0006
11430 D9E8 FD 00 4D ..M std 004d
11431 D9EB 20 76 v bra 76
11432 D9ED FC 0D 0B ... ldd 0d0b
11433 D9F0 83 FF FF ... subd #ffff
11434 D9F3 26 05 &. bne 05
11437 D9F7 FD 0D 0B ... std 0d0b
11438 D9FA FE 0D 0B ... ldx 0d0b
11440 D9FE FF 0D 0B ... stx 0d0b
11441 DA01 F6 00 06 ... ldab 0006
11444 DA06 C3 08 C8 ... addd #08c8
11446 DA0A EC 00 .. ldd 00,x
11447 DA0C C4 7F .. andb #7f
11449 DA0F FD 00 4D ..M std 004d
11450 DA12 F6 00 06 ... ldab 0006
11453 DA17 C3 08 00 ... addd #0800
11455 DA1B EC 00 .. ldd 00,x
11456 DA1D C4 FF .. andb #ff
11457 DA1F 84 3F .? anda #3f
11464 DA27 CC 0D 17 ... ldd #0d17
11465 DA2A BD FB DF ... jsr fbdf ;jump46
11468 DA2F FE 0D 19 ... ldx 0d19
11470 DA33 FC 0D 17 ... ldd 0d17
11473 DA38 CE E1 00 ... ldx #e100
11475 DA3C CC 05 F5 ... ldd #05f5
11479 DA42 EC 06 .. ldd 06,x
11480 DA44 A3 02 .. subd 02,x
11481 DA46 EC 04 .. ldd 04,x
11482 DA48 E2 01 .. sbcb 01,x
11483 DA4A A2 00 .. sbca 00,x
11488 DA50 25 11 %. bcs 11
11489 DA52 CE 1F 00 ... ldx #1f00
11491 DA56 CC FA 0A ... ldd #fa0a
11494 DA5B CC 0D 17 ... ldd #0d17
11495 DA5E BD FB DF ... jsr fbdf ;jump46
11502 DA64 FE 0B B9 ... ldx 0bb9
11504 DA68 FF 0B B9 ... stx 0bb9
11505 DA6B FC 0B B5 ... ldd 0bb5
11506 DA6E CE 00 32 ..2 ldx #0032
11511 DA75 CC 00 C3 ... ldd #00c3
11512 DA78 BD FB BA ... jsr fbba ;jump38 - multiply?
11513 DA7B B3 0B B9 ... subd 0bb9
11514 DA7E 24 05 $. bcc 05
11517 DA82 FD 0B B9 ... std 0bb9
11518 DA85 FC 0B B9 ... ldd 0bb9
11521 DA8A CC 00 0A ... ldd #000a
11522 DA8D BD FB BA ... jsr fbba ;jump38 - multiply?
11525 DA92 FC 0B B5 ... ldd 0bb5
11526 DA95 CE 00 32 ..2 ldx #0032
11535 DAA0 CC 00 0A ... ldd #000a
11536 DAA3 BD FB BA ... jsr fbba ;jump38 - multiply?
11537 DAA6 CE 00 0A ... ldx #000a
11540 DAAB FD 00 4A ..J std 004a
11541 DAAE FC 00 4A ..J ldd 004a
11542 DAB1 BD FE 32 ..2 jsr fe32 ;jump25
11543 DAB4 DA CA 00 6E ...n ; 110
11544 DAB8 DA CA 02 80 .... ; 750
11545 DABC DA CA 01 C2 .... ; 1200
11546 DAC0 DA CA 01 C2 .... ; 1650
11547 DAC4 DB 43 F9 8E .... ; 0
11548 DAC8 00 00 .. ; end of array data
11549 DACA FC 0D 07 ... ldd 0d07
11550 DACD 83 FF FF ... subd #ffff
11551 DAD0 26 05 &. bne 05
11554 DAD4 FD 0D 07 ... std 0d07
11555 DAD7 FE 0D 07 ... ldx 0d07
11557 DADB FF 0D 07 ... stx 0d07
11558 DADE F6 00 06 ... ldab 0006
11561 DAE3 C3 08 00 ... addd #0800
11563 DAE7 EC 00 .. ldd 00,x
11564 DAE9 C4 FF .. andb #ff
11565 DAEB 84 3F .? anda #3f
11572 DAF3 CC 0D 0F ... ldd #0d0f
11573 DAF6 BD FB DF ... jsr fbdf ;jump46
11576 DAFB FE 0D 11 ... ldx 0d11
11578 DAFF FC 0D 0F ... ldd 0d0f
11581 DB04 CE E1 00 ... ldx #e100
11583 DB08 CC 05 F5 ... ldd #05f5
11587 DB0E EC 06 .. ldd 06,x
11588 DB10 A3 02 .. subd 02,x
11589 DB12 EC 04 .. ldd 04,x
11590 DB14 E2 01 .. sbcb 01,x
11591 DB16 A2 00 .. sbca 00,x
11596 DB1C 25 11 %. bcs 11
11597 DB1E CE 1F 00 ... ldx #1f00
11599 DB22 CC FA 0A ... ldd #fa0a
11602 DB27 CC 0D 0F ... ldd #0d0f
11603 DB2A BD FB DF ... jsr fbdf ;jump46
11608 DB31 FD 00 44 ..D std 0044
11609 DB34 CE 00 1B ... ldx #001b
11610 DB37 1D 00 01 ... bclr 00,x, #01
11611 DB3A 7F 00 4F ..O clr 004f
11612 DB3D CE 00 11 ... ldx #0011
11613 DB40 1C 00 10 ... bset 00,x, #10
11618 DB44 F6 00 2B ..+ ldab 002b
11619 DB47 C1 00 .. cmpb #00
11620 DB49 26 08 &. bne 08
11621 DB4B CC AC DF ... ldd #acdf
11622 DB4E BD C0 BA ... jsr c0ba ;display:
11623 DB51 20 1E . bra 1e
11624 DB53 C1 01 .. cmpb #01
11625 DB55 26 08 &. bne 08
11626 DB57 CC AC D4 ... ldd #acd4 ; "CHANGE"
11627 DB5A BD C0 BA ... jsr c0ba ;display:
11628 DB5D 20 12 . bra 12
11629 DB5F C1 02 .. cmpb #02
11630 DB61 26 08 &. bne 08
11631 DB63 CC AC EA ... ldd #acea
11632 DB66 BD C0 BA ... jsr c0ba ;display:
11633 DB69 20 06 . bra 06
11634 DB6B CC AC D4 ... ldd #acd4
11635 DB6E BD C0 BA ... jsr c0ba ;display:
11636 DB71 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay
11637 DB74 CE 00 01 ... ldx #0001
11639 DB78 FC 00 40 ..@ ldd 0040
11640 DB7B F3 00 3E ..> addd 003e
11641 DB7E BD BE 9E ... jsr be9e ;jump50
11643 DB82 FC 00 40 ..@ ldd 0040
11644 DB85 27 05 '. beq 05
11645 DB87 BD C4 56 ..V jsr c456 ;jump47
11646 DB8A 20 06 . bra 06
11647 DB8C CC 02 58 ..X ldd #0258
11648 DB8F BD E5 71 ..q jsr e571 ;msdelay
11649 DB92 FC 00 3E ..> ldd 003e
11650 DB95 27 03 '. beq 03
11651 DB97 BD C5 D3 ... jsr c5d3 ;jump6
11652 DB9A F6 00 2B ..+ ldab 002b
11653 DB9D C1 00 .. cmpb #00
11654 DB9F 26 08 &. bne 08
11655 DBA1 CC AD 16 ... ldd #ad16 ; "GRACIAS"
11656 DBA4 BD C0 BA ... jsr c0ba ;display:
11657 DBA7 20 1E . bra 1e
11658 DBA9 C1 01 .. cmpb #01
11659 DBAB 26 08 &. bne 08
11660 DBAD CC AD 0B ... ldd #ad0b ; "DANKE"
11661 DBB0 BD C0 BA ... jsr c0ba ;display:
11662 DBB3 20 12 . bra 12
11663 DBB5 C1 02 .. cmpb #02
11664 DBB7 26 08 &. bne 08
11665 DBB9 CC AD 00 ... ldd #ad00 ; "MERCI"
11666 DBBC BD C0 BA ... jsr c0ba ;display:
11667 DBBF 20 06 . bra 06
11668 DBC1 CC AC F5 ... ldd #acf5 ; "THANKS"
11669 DBC4 BD C0 BA ... jsr c0ba ;display:
11670 DBC7 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay
11674 DBCB F6 00 1B ... ldab 001b
11675 DBCE C4 01 .. andb #01
11676 DBD0 26 03 &. bne 03
11677 DBD2 7E DC 98 ~.. jmp dc98 ;goto68
11678 DBD5 F6 00 06 ... ldab 0006
11681 DBDA C3 08 C8 ... addd #08c8
11683 DBDE EC 00 .. ldd 00,x
11684 DBE0 84 08 .. anda #08
11685 DBE2 26 03 &. bne 03
11686 DBE4 7E DC 98 ~.. jmp dc98 ;goto68
11687 DBE7 BD D7 FF ... jsr d7ff ;jump80
11688 DBEA CC 03 E8 ... ldd #03e8
11689 DBED BD E5 71 ..q jsr e571 ;msdelay
11690 DBF0 BD D3 46 ..F jsr d346 ;jump43
11691 DBF3 83 00 00 ... subd #0000
11692 DBF6 26 08 &. bne 08
11693 DBF8 BD D7 83 ... jsr d783 ;jump44
11694 DBFB 83 00 00 ... subd #0000
11695 DBFE 27 17 '. beq 17
11698 DC02 FD 00 4D ..M std 004d
11699 DC05 FC 00 44 ..D ldd 0044
11700 DC08 F3 0B B7 ... addd 0bb7
11702 DC0C F3 00 40 ..@ addd 0040
11703 DC0F B3 0B B7 ... subd 0bb7
11704 DC12 FD 00 40 ..@ std 0040
11705 DC15 20 78 x bra 78
11706 DC17 BD D2 13 ... jsr d213 ;jump45
11707 DC1A 83 00 00 ... subd #0000
11708 DC1D 26 17 &. bne 17
11711 DC21 FD 00 4D ..M std 004d
11712 DC24 FC 00 44 ..D ldd 0044
11713 DC27 F3 0B B7 ... addd 0bb7
11715 DC2B F3 00 40 ..@ addd 0040
11716 DC2E B3 0B B7 ... subd 0bb7
11717 DC31 FD 00 40 ..@ std 0040
11718 DC34 20 59 Y bra 59
11719 DC36 FC 0D 09 ... ldd 0d09
11720 DC39 83 FF FF ... subd #ffff
11721 DC3C 26 05 &. bne 05
11724 DC40 FD 0D 09 ... std 0d09
11725 DC43 FE 0D 09 ... ldx 0d09
11727 DC47 FF 0D 09 ... stx 0d09
11728 DC4A FC 0B B7 ... ldd 0bb7
11735 DC53 CC 0D 13 ... ldd #0d13
11736 DC56 BD FB DF ... jsr fbdf ;jump46
11739 DC5B FE 0D 15 ... ldx 0d15
11741 DC5F FC 0D 13 ... ldd 0d13
11744 DC64 CE E1 00 ... ldx #e100
11746 DC68 CC 05 F5 ... ldd #05f5
11750 DC6E EC 06 .. ldd 06,x
11751 DC70 A3 02 .. subd 02,x
11752 DC72 EC 04 .. ldd 04,x
11753 DC74 E2 01 .. sbcb 01,x
11754 DC76 A2 00 .. sbca 00,x
11759 DC7C 25 11 %. bcs 11
11760 DC7E CE 1F 00 ... ldx #1f00
11762 DC82 CC FA 0A ... ldd #fa0a
11765 DC87 CC 0D 13 ... ldd #0d13
11766 DC8A BD FB DF ... jsr fbdf ;jump46
11769 DC8F CE 00 1B ... ldx #001b
11770 DC92 1D 00 01 ... bclr 00,x, #01
11771 DC95 7F 00 4F ..O clr 004f
11773 DC98 F6 00 11 ... ldab 0011
11774 DC9B C4 08 .. andb #08
11775 DC9D 26 03 &. bne 03
11776 DC9F BD D9 5A ..Z jsr d95a ;jump123
11780 DCA3 CE 0B BC ... ldx #0bbc
11781 DCA6 1D 00 1C .. bclr 00,x, #1c
11782 DCA9 F6 0B BC .. ldab 0bbc
11783 DCAB C4 03 ... andb #03
11784 DCAE 26 48 &H bne 48
11785 DCB0 FC 0B BD ... ldd 0bbd
11792 DCB9 CC 0D F7 ... ldd #0df7
11793 DCBC BD FB DF ... jsr fbdf ;jump46
11796 DCC1 FE 0D F9 ... ldx 0df9
11798 DCC5 FC 0D F7 ... ldd 0df7
11801 DCCA CE E1 00 ... ldx #e100
11803 DCCE CC 05 F5 ... ldd #05f5
11807 DCD4 EC 06 .. ldd 06,x
11808 DCD6 A3 02 .. subd 02,x
11809 DCD8 EC 04 .. ldd 04,x
11810 DCDA E2 01 .. sbcb 01,x
11811 DCDC A2 00 .. sbca 00,x
11816 DCE2 25 11 %. bcs 11
11817 DCE4 CE 1F 00 ... ldx #1f00
11819 DCE8 CC FA 0A ... ldd #fa0a
11822 DCED CC 0D F7 ... ldd #0df7
11823 DCF0 BD FB DF ... jsr fbdf ;jump46
11826 DCF5 7E DD D4 ~.. jmp ddd4 ;goto69
11827 DCF8 F6 0B BC ... ldab 0bbc
11828 DCFB C4 03 .. andb #03
11829 DCFD C1 01 .. cmpb #01
11830 DCFF 27 03 '. beq 03
11831 DD01 7E DD D4 ~.. jmp ddd4 ;goto69
11832 DD04 F6 0B BC ... ldab 0bbc
11833 DD07 C4 E0 .. andb #e0
11839 DD0E F7 0B BC ... stab 0bbc
11840 DD11 F6 0B BC ... ldab 0bbc
11841 DD14 F1 0B C4 ... cmpb 0bc4
11842 DD17 26 33 &3 bne 33
11843 DD19 F6 0B D7 ... ldab 0bd7
11844 DD1C C1 01 .. cmpb #01
11845 DD1E 26 0A &. bne 0a
11846 DD20 7C 0C DB |.. inc 0cdb
11847 DD23 C6 03 .. ldab #03
11848 DD25 F7 00 48 ..H stab 0048
11850 DD2A F6 0B D8 ... ldab 0bd8
11851 DD2D C1 01 .. cmpb #01
11852 DD2F 26 0A &. bne 0a
11853 DD31 7C 0C DA |.. inc 0cda
11854 DD34 C6 02 .. ldab #02
11855 DD36 F7 00 48 ..H stab 0048
11856 DD39 20 0F . bra 0f
11857 DD3B F6 0B D9 ... ldab 0bd9
11858 DD3E C1 01 .. cmpb #01
11859 DD40 26 08 &. bne 08
11860 DD42 7C 0C D9 |.. inc 0cd9
11861 DD45 C6 01 .. ldab #01
11862 DD47 F7 00 48 ..H stab 0048
11863 DD4A 20 74 t bra 74
11864 DD4C F6 0B BC ... ldab 0bbc
11865 DD4F F1 0B C5 ... cmpb 0bc5
11866 DD52 26 33 &3 bne 33
11867 DD54 F6 0B D7 ... ldab 0bd7
11868 DD57 C1 04 .. cmpb #04
11869 DD59 26 0A &. bne 0a
11870 DD5B 7C 0C DB |.. inc 0cdb
11871 DD5E C6 03 .. ldab #03
11872 DD60 F7 00 48 ..H stab 0048
11874 DD65 F6 0B D8 ... ldab 0bd8
11875 DD68 C1 04 .. cmpb #04
11876 DD6A 26 0A &. bne 0a
11877 DD6C 7C 0C DA |.. inc 0cda
11878 DD6F C6 02 .. ldab #02
11879 DD71 F7 00 48 ..H stab 0048
11880 DD74 20 0F . bra 0f
11881 DD76 F6 0B D9 ... ldab 0bd9
11882 DD79 C1 04 .. cmpb #04
11883 DD7B 26 08 &. bne 08
11884 DD7D 7C 0C D9 |.. inc 0cd9
11885 DD80 C6 01 .. ldab #01
11886 DD82 F7 00 48 ..H stab 0048
11887 DD85 20 39 9 bra 39
11888 DD87 F6 0B BC ... ldab 0bbc
11889 DD8A F1 0B C6 ... cmpb 0bc6
11890 DD8D 26 31 &1 bne 31
11891 DD8F F6 0B D7 ... ldab 0bd7
11892 DD92 C1 02 .. cmpb #02
11893 DD94 26 0A &. bne 0a
11894 DD96 7C 0C DB |.. inc 0cdb
11895 DD99 C6 03 .. ldab #03
11896 DD9B F7 00 48 ..H stab 0048
11898 DDA0 F6 0B D8 ... ldab 0bd8
11899 DDA3 C1 02 .. cmpb #02
11900 DDA5 26 0A &. bne 0a
11901 DDA7 7C 0C DA |.. inc 0cda
11902 DDAA C6 02 .. ldab #02
11903 DDAC F7 00 48 ..H stab 0048
11904 DDAF 20 0F . bra 0f
11905 DDB1 F6 0B D9 ... ldab 0bd9
11906 DDB4 C1 02 .. cmpb #02
11907 DDB6 26 08 &. bne 08
11908 DDB8 7C 0C D9 |.. inc 0cd9
11909 DDBB C6 01 .. ldab #01
11910 DDBD F7 00 48 ..H stab 0048
11911 DDC0 F6 00 17 ... ldab 0017
11912 DDC3 C4 08 .. andb #08
11913 DDC5 26 0D &. bne 0d
11914 DDC7 F6 0B BC ... ldab 0bbc
11915 DDCA 26 08 &. bne 08
11916 DDCC 7C 0C DC |.. inc 0cdc
11917 DDCF C6 04 .. ldab #04
11918 DDD1 F7 00 48 ..H stab 0048
11923 DDD5 BD BE 69 ..i jsr be69 ;displayreset
11924 DDD8 C6 03 .. ldab #03
11925 DDDA F7 00 1C ... stab 001c
11926 DDDD F6 00 1C ... ldab 001c
11927 DDE0 C1 0D .. cmpb #0d
11928 DDE2 24 1C $. bcc 1c
11929 DDE4 F6 00 1C ... ldab 001c
11931 DDE8 C3 0C B9 ... addd #0cb9
11933 DDEC E6 00 .. ldab 00,x
11935 DDEF CC 0B 9C ... ldd #0b9c
11936 DDF2 F0 00 1C ... subb 001c
11937 DDF5 82 00 .. sbca #00
11940 DDF9 E7 00 .. stab 00,x
11941 DDFB 7C 00 1C |.. inc 001c
11942 DDFE 20 DD . bra dd
11943 DE00 BD BE 10 ... jsr be10 ;jump88
11944 DE03 C6 14 .. ldab #14
11945 DE05 F7 00 2C .., stab 002c
11949 DE09 CC 0B 9A ... ldd #0b9a ; machine id?
11950 DE0C BD C0 BA ... jsr c0ba ;display:
11951 DE0F C6 14 .. ldab #14
11952 DE11 F7 00 2C .., stab 002c
11956 DE15 F6 00 1B ... ldab 001b
11957 DE18 C4 01 .. andb #01
11958 DE1A 26 03 &. bne 03
11959 DE1C 7E DE A4 ~.. jmp dea4 ;goto70
11960 DE1F F6 00 06 ... ldab 0006
11963 DE24 C3 08 C8 ... addd #08c8
11965 DE28 EC 00 .. ldd 00,x
11966 DE2A 84 08 .. anda #08
11967 DE2C 27 76 'v beq 76
11968 DE2E F6 00 11 ... ldab 0011
11969 DE31 C4 08 .. andb #08
11970 DE33 26 33 &3 bne 33
11971 DE35 F6 00 06 ... ldab 0006
11972 DE38 F1 0B AF ... cmpb 0baf
11973 DE3B 27 20 ' beq 20
11974 DE3D F6 00 06 ... ldab 0006
11975 DE40 F1 0B AE ... cmpb 0bae
11976 DE43 27 18 '. beq 18
11977 DE45 F6 00 06 ... ldab 0006
11978 DE48 F1 0B AD ... cmpb 0bad
11979 DE4B 27 10 '. beq 10
11980 DE4D F6 00 06 ... ldab 0006
11981 DE50 F1 0B AC ... cmpb 0bac
11982 DE53 27 08 '. beq 08
11983 DE55 F6 00 06 ... ldab 0006
11984 DE58 F1 0B AB ... cmpb 0bab
11985 DE5B 26 0B &. bne 0b
11986 DE5D CE 00 1B ... ldx #001b
11987 DE60 1D 00 01 ... bclr 00,x, #01
11988 DE63 7F 00 4F ..O clr 004f
11989 DE66 20 3C < bra 3c
11990 DE68 FC 00 44 ..D ldd 0044
11991 DE6B B3 0B B7 ... subd 0bb7
11992 DE6E 23 2B #+ bls 2b
11993 DE70 FC 00 40 ..@ ldd 0040
11994 DE73 F3 00 3E ..> addd 003e
11997 DE78 FC 00 44 ..D ldd 0044
11998 DE7B B3 0B B7 ... subd 0bb7
11999 DE7E F3 00 44 ..D addd 0044
12001 DE82 A3 00 .. subd 00,x
12004 DE86 22 13 ". bhi 13
12005 DE88 FC 0B B7 ... ldd 0bb7
12006 DE8B 27 0E '. beq 0e
12007 DE8D FC 00 44 ..D ldd 0044
12008 DE90 B3 0B B7 ... subd 0bb7
12009 DE93 F3 00 44 ..D addd 0044
12010 DE96 FD 00 44 ..D std 0044
12011 DE99 20 09 . bra 09
12012 DE9B CE 00 1B ... ldx #001b
12013 DE9E 1D 00 01 ... bclr 00,x, #01
12014 DEA1 7F 00 4F ..O clr 004f
12019 ; machine out of order display?
12020 DEA5 F6 00 2B ..+ ldab 002b
12021 DEA8 C1 00 .. cmpb #00
12022 DEAA 26 0D &. bne 0d
12023 DEAC CE 00 12 ... ldx #0012
12025 DEB0 CC AE 7E ..~ ldd #ae7e
12026 DEB3 BD C0 2E ... jsr c02e ;jump71
12028 DEB7 20 2D - bra 2d
12029 DEB9 C1 01 .. cmpb #01
12030 DEBB 26 0D &. bne 0d
12031 DEBD CE 00 0F ... ldx #000f
12033 DEC1 CC AE 6D ..m ldd #ae6d ; something german
12034 DEC4 BD C0 2E ... jsr c02e ;jump71
12036 DEC8 20 1C . bra 1c
12037 DECA C1 02 .. cmpb #02
12038 DECC 26 0D &. bne 0d
12039 DECE CE 00 10 ... ldx #0010
12041 DED2 CC AE 5B ..[ ldd #ae5b ; more german
12042 DED5 BD C0 2E ... jsr c02e ;jump71
12044 DED9 20 0B . bra 0b
12045 DEDB CE 00 15 ... ldx #0015
12047 DEDF CC AE 44 ..D ldd #ae44 ; "MACHINE OUT OF ORDER"
12048 DEE2 BD C0 2E ... jsr c02e ;jump71
12053 ; revolves around coinage
12054 DEE7 F6 0B C0 ... ldab 0bc0
12055 DEEA C4 01 .. andb #01
12056 DEEC 26 07 &. bne 07
12057 DEEE F6 0B C0 ... ldab 0bc0
12058 DEF1 C4 04 .. andb #04
12059 DEF3 27 15 '. beq 15
12060 DEF5 C6 FF .. ldab #ff
12061 DEF7 F7 0B BC ... stab 0bbc
12062 DEFA F6 00 15 ... ldab 0015
12063 DEFD 2D 03 -. blt 03
12064 DEFF BD C6 7D ..} jsr c67d ;jump124 - chat to changer
12065 DF02 BD D6 6B ..k jsr d66b ;jump107 - chat to bill acceptor
12066 DF05 BD DC A3 ... jsr dca3 ;jump29
12067 DF08 20 25 % bra 25
12068 DF0A F6 0B C0 ... ldab 0bc0
12069 DF0D C4 02 .. andb #02
12070 DF0F 27 1E '. beq 1e
12071 DF11 F6 00 2F ../ ldab 002f
12072 DF14 26 19 &. bne 19
12073 DF16 F6 00 1B ... ldab 001b
12074 DF19 C4 02 .. andb #02
12075 DF1B 26 12 &. bne 12
12076 DF1D CC 00 FF ... ldd #00ff
12077 DF20 BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
12078 DF23 CE 00 1B ... ldx #001b
12079 DF26 1C 00 02 .. bset 00,x, #02
12080 DF29 CE 0B C1 ... ldx #0bc1
12081 DF2C 1C 00 04 .. bset 00,x, #04
12082 DF2F F6 00 21 ..! ldab 0021
12083 DF32 C4 20 . andb #20
12084 DF34 27 07 '. beq 07
12086 DF36 BD D6 52 ..R jsr d652 ;jump5 - pulse bill acceptor
12087 DF39 BD DE A5 ... jsr dea5 ;jump117 - machine out of order?
12090 DF3D F6 00 4F ..O ldab 004f
12091 DF40 26 06 &. bne 06
12092 DF42 CE 00 1B ... ldx #001b
12093 DF45 1D 00 01 ... bclr 00,x, #01
12094 DF48 F6 00 25 ..% ldab 0025
12095 DF4B 26 20 & bne 20
12096 DF4D F6 00 1B ... ldab 001b
12097 DF50 C4 40 .@ andb #40
12098 DF52 27 19 '. beq 19
12099 DF54 BD D6 52 ..R jsr d652 ;jump5
12100 DF57 FC 00 40 ..@ ldd 0040
12101 DF5A 26 05 &. bne 05
12102 DF5C FC 00 3E ..> ldd 003e
12103 DF5F 27 03 '. beq 03
12104 DF61 BD DB 44 ..D jsr db44 ;jump104
12105 DF64 BD D6 6B ..k jsr d66b ;jump107
12106 DF67 CE 00 1B ... ldx #001b
12107 DF6A 1D 00 40 ... bclr 00,x, #40
12108 DF6D F6 00 2C .., ldab 002c
12109 DF70 27 03 '. beq 03
12110 DF72 7E E0 66 ~.f jmp e066 ;goto71
12111 DF75 F6 00 34 ..4 ldab 0034
12112 DF78 26 0B &. bne 0b
12113 DF7A BD BE 69 ..i jsr be69 ;displayreset
12114 DF7D C6 32 .2 ldab #32
12115 DF7F F7 00 34 ..4 stab 0034
12116 DF82 7E E0 63 ~.c jmp e063 ;goto72
12117 DF85 FC 00 40 ..@ ldd 0040
12118 DF88 26 05 &. bne 05
12119 DF8A FC 00 3E ..> ldd 003e
12120 DF8D 27 16 '. beq 16
12121 DF8F CE 00 01 ... ldx #0001
12123 DF93 FC 00 40 ..@ ldd 0040
12124 DF96 F3 00 3E ..> addd 003e
12125 DF99 BD BE 9E ... jsr be9e ;jump50
12127 DF9D C6 05 .. ldab #05
12128 DF9F F7 00 2C .., stab 002c
12129 DFA2 7E E0 63 ~.c jmp e063 ;goto72
12130 DFA5 F6 0C D9 ... ldab 0cd9
12131 DFA8 C1 04 .. cmpb #04
12132 DFAA 24 07 $. bcc 07
12133 DFAC F6 0B C0 ... ldab 0bc0
12134 DFAF C4 01 .. andb #01
12135 DFB1 26 07 &. bne 07
12136 DFB3 F6 00 21 ..! ldab 0021
12137 DFB6 C4 40 .@ andb #40
12138 DFB8 27 43 'C beq 43
12139 DFBA F6 00 2B ..+ ldab 002b
12140 DFBD C1 00 .. cmpb #00
12141 DFBF 26 0D &. bne 0d
12142 DFC1 CE 00 19 ... ldx #0019
12144 DFC5 CC AD E7 ... ldd #ade7 ; "INTRODUZCA"
12145 DFC8 BD C0 2E ... jsr c02e ;jump71
12147 DFCC 20 2D - bra 2d
12148 DFCE C1 01 .. cmpb #01
12149 DFD0 26 0D &. bne 0d
12150 DFD2 CE 00 12 ... ldx #0012
12152 DFD6 CC AD D3 ... ldd #add3 ; "NICT UEBERZAHLEN"
12153 DFD9 BD C0 2E ... jsr c02e ;jump71
12155 DFDD 20 1C . bra 1c
12156 DFDF C1 02 .. cmpb #02
12157 DFE1 26 0D &. bne 0d
12158 DFE3 CE 00 19 ... ldx #0019
12160 DFE7 CC AD B8 ... ldd #adb8 ; "MONNAIE EXACT"
12161 DFEA BD C0 2E ... jsr c02e ;jump71
12163 DFEE 20 0B . bra 0b
12164 DFF0 CE 00 11 ... ldx #0011 ; length of
12166 DFF4 CC AD A5 ... ldd #ada5 ; " EXACT COINS ONLY "
12167 DFF7 BD C0 2E ... jsr c02e ;jump71 - display
12169 DFFB 20 66 f bra 66
12170 DFFD F6 0B C0 ... ldab 0bc0
12171 E000 C4 08 .. andb #08
12172 E002 27 52 'R beq 52
12173 E004 F6 0B C1 ... ldab 0bc1
12174 E007 C4 08 .. andb #08
12175 E009 26 08 &. bne 08
12176 E00B FC 0B EF ... ldd 0bef
12177 E00E 83 00 64 ..d subd #0064
12178 E011 24 43 $C bcc 43
12179 E013 F6 00 2B ..+ ldab 002b
12180 E016 C1 00 .. cmpb #00
12181 E018 26 0D &. bne 0d
12182 E01A CE 00 12 ... ldx #0012
12184 E01E CC AE 30 ..0 ldd #ae30 ; "MONEDA UNICAMENTE"
12185 E021 BD C0 2E ... jsr c02e ;jump71
12187 E025 20 2D - bra 2d
12188 E027 C1 01 .. cmpb #01
12189 E029 26 0D &. bne 0d
12190 E02B CE 00 0B ... ldx #000b
12192 E02F CC AE 23 ..# ldd #ae23 ; "NUR MUNZEN"
12193 E032 BD C0 2E ... jsr c02e ;jump71
12195 E036 20 1C . bra 1c
12196 E038 C1 02 .. cmpb #02
12197 E03A 26 0D &. bne 0d
12198 E03C CE 00 12 ... ldx #0012
12200 E040 CC AE 0F ... ldd #ae0f ; "MONNAIES SEULEMENT"
12201 E043 BD C0 2E ... jsr c02e ;jump71
12203 E047 20 0B . bra 0b
12204 E049 CE 00 0B ... ldx #000b
12206 E04D CC AE 02 ... ldd #ae02 ; "COINS ONLY"
12207 E050 BD C0 2E ... jsr c02e ;jump71
12209 E054 20 0D . bra 0d
12210 E056 F6 0B BF ... ldab 0bbf
12214 E05C CC 09 93 ... ldd #0993 ; some custom message?
12215 E05F BD C0 2E ... jsr c02e ;jump71
12218 E063 7E E5 6A ~.j jmp e56a ;goto73
12220 E066 F6 00 06 ... ldab 0006
12221 E069 26 03 &. bne 03
12222 E06B 7E E5 6A ~.j jmp e56a ;goto73
12223 E06E CE 00 1D ... ldx #001d
12224 E071 1C 00 40 ... bset 00,x, #40
12225 E074 BD E7 C7 ... jsr e7c7 ;jump114
12226 E077 F6 00 06 ... ldab 0006
12227 E07A C1 59 .Y cmpb #59 ; 89
12228 E07C 26 06 &. bne 06
12229 E07E BD DE 09 ... jsr de09 ;jump119
12230 E081 7E E5 5E ~.^ jmp e55e ;goto74
12231 E084 F6 00 06 ... ldab 0006
12232 E087 BD D4 68 ..h jsr d468 ;jump51
12233 E08A 83 00 00 ... subd #0000
12234 E08D 27 18 '. beq 18
12235 E08F BD D5 61 ..a jsr d561 ;jump42
12236 E092 83 00 00 ... subd #0000
12237 E095 26 10 &. bne 10
12238 E097 BD D3 46 ..F jsr d346 ;jump43
12239 E09A 83 00 00 ... subd #0000
12240 E09D 26 08 &. bne 08
12241 E09F BD D7 83 ... jsr d783 ;jump44
12242 E0A2 83 00 00 ... subd #0000
12243 E0A5 27 09 '. beq 09
12244 E0A7 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
12245 E0AA BD D8 E9 ... jsr d8e9 ;jump92
12246 E0AD 7E E5 5E ~.^ jmp e55e ;goto74
12247 E0B0 F6 00 06 ... ldab 0006
12250 E0B5 C3 08 00 ... addd #0800
12252 E0B9 EC 00 .. ldd 00,x
12253 E0BB C4 FF .. andb #ff
12254 E0BD 84 3F .? anda #3f
12255 E0BF FD 00 44 ..D std 0044
12256 E0C2 F6 00 06 ... ldab 0006
12259 E0C7 C3 08 C8 ... addd #08c8
12261 E0CB EC 00 .. ldd 00,x
12262 E0CD C4 7F .. andb #7f
12264 E0D0 FD 00 4D ..M std 004d
12265 E0D3 F6 0B C0 ... ldab 0bc0
12266 E0D6 2C 05 ,. bge 05
12269 E0DA FD 00 44 ..D std 0044
12270 E0DD F6 0B C0 ... ldab 0bc0
12271 E0E0 C4 02 .. andb #02
12272 E0E2 26 03 &. bne 03
12273 E0E4 BD DE 15 ... jsr de15 ;dump118
12274 E0E7 F6 00 11 ... ldab 0011
12275 E0EA C4 20 . andb #20
12276 E0EC 26 1A &. bne 1a
12277 E0EE F6 0B C0 ... ldab 0bc0
12278 E0F1 C4 02 .. andb #02
12279 E0F3 26 13 &. bne 13
12280 E0F5 FC 00 40 ..@ ldd 0040
12281 E0F8 F3 00 3E ..> addd 003e
12282 E0FB B3 00 44 ..D subd 0044
12283 E0FE 25 08 %. bcs 08
12284 E100 F6 0B C0 ... ldab 0bc0
12285 E103 2D 03 -. blt 03
12286 E105 BD DA 64 ..d jsr da64 ;jump122
12287 E108 FC 00 40 ..@ ldd 0040
12288 E10B F3 00 3E ..> addd 003e
12289 E10E B3 00 44 ..D subd 0044
12290 E111 24 50 $P bcc 50
12291 E113 F6 0B C0 ... ldab 0bc0
12292 E116 C4 10 .. andb #10
12293 E118 26 49 &I bne 49
12294 E11A F6 00 2B ..+ ldab 002b
12295 E11D C1 00 .. cmpb #00
12296 E11F 26 08 &. bne 08
12297 E121 CC AC C9 ... ldd #acc9 ; "PRECIO"
12298 E124 BD C0 BA ... jsr c0ba ;display:
12299 E127 20 1E . bra 1e
12300 E129 C1 01 .. cmpb #01
12301 E12B 26 08 &. bne 08
12302 E12D CC AC BE ... ldd #acbe ; "PREIS"
12303 E130 BD C0 BA ... jsr c0ba ;display:
12304 E133 20 12 . bra 12
12305 E135 C1 02 .. cmpb #02
12306 E137 26 08 &. bne 08
12307 E139 CC AC B3 ... ldd #acb3 ; "PRIX"
12308 E13C BD C0 BA ... jsr c0ba ;display:
12309 E13F 20 06 . bra 06
12310 E141 CC AC A8 ... ldd #aca8 ; "PRICE"
12311 E144 BD C0 BA ... jsr c0ba ;display:
12312 E147 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay
12313 E14A CE 00 00 ... ldx #0000
12315 E14E FC 00 44 ..D ldd 0044
12316 E151 BD BE 9E ... jsr be9e ;jump50
12318 E155 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
12319 E158 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay
12320 E15B C6 0C .. ldab #0c
12321 E15D F7 00 2C .., stab 002c
12322 E160 7E E5 5E ~.^ jmp e55e ;goto74
12323 E163 F6 0B C0 ... ldab 0bc0
12324 E166 C4 01 .. andb #01
12325 E168 26 11 &. bne 11
12326 E16A F6 0B C0 ... ldab 0bc0
12327 E16D C4 04 .. andb #04
12328 E16F 26 0A &. bne 0a
12329 E171 F6 0B C0 ... ldab 0bc0
12330 E174 C4 0F .. andb #0f
12331 E176 27 03 '. beq 03
12332 E178 7E E3 35 ~.5 jmp e335 ;goto75
12333 E17B FC 00 40 ..@ ldd 0040
12334 E17E F3 00 3E ..> addd 003e
12335 E181 B3 00 44 ..D subd 0044
12336 E184 FD 10 16 ... std 1016
12337 E187 F6 00 15 ... ldab 0015
12338 E18A C4 01 .. andb #01
12339 E18C 27 08 '. beq 08
12340 E18E FC 10 16 ... ldd 1016
12341 E191 83 00 64 ..d subd #0064
12342 E194 25 3C %< bcs 3c
12343 E196 F6 00 15 ... ldab 0015
12344 E199 C4 02 .. andb #02
12345 E19B 27 08 '. beq 08
12346 E19D FC 10 16 ... ldd 1016
12347 E1A0 83 00 C8 ... subd #00c8
12348 E1A3 25 2D %- bcs 2d
12349 E1A5 F6 00 15 ... ldab 0015
12350 E1A8 C4 04 .. andb #04
12351 E1AA 27 08 '. beq 08
12352 E1AC FC 10 16 ... ldd 1016
12353 E1AF 83 01 F4 ... subd #01f4
12354 E1B2 25 1E %. bcs 1e
12355 E1B4 F6 00 15 ... ldab 0015
12356 E1B7 C4 08 .. andb #08
12357 E1B9 27 08 '. beq 08
12358 E1BB FC 10 16 ... ldd 1016
12359 E1BE 83 03 E8 ... subd #03e8
12360 E1C1 25 0F %. bcs 0f
12361 E1C3 F6 00 15 ... ldab 0015
12362 E1C6 C4 10 .. andb #10
12363 E1C8 27 13 '. beq 13
12364 E1CA FC 10 16 ... ldd 1016
12365 E1CD 83 07 D0 ... subd #07d0
12366 E1D0 24 0B $. bcc 0b
12367 E1D2 BD C0 E0 ... jsr c0e0 ;jump94
12368 E1D5 83 00 00 ... subd #0000
12369 E1D8 26 01 &. bne 01
12373 E1DB 20 03 . bra 03
12374 E1DD BD C5 D3 ... jsr c5d3 ;jump6
12375 E1E0 BD D6 52 ..R jsr d652 ;jump5
12376 E1E3 FC 00 40 ..@ ldd 0040
12377 E1E6 B3 00 44 ..D subd 0044
12378 E1E9 F3 00 3E ..> addd 003e
12379 E1EC FD 00 40 ..@ std 0040
12382 E1F1 FD 00 3E ..> std 003e
12383 E1F4 CE 00 1B ... ldx #001b
12384 E1F7 1C 00 80 .. bset 00,x, #80
12385 E1F9 BD D2 13 .. jsr d213 ;jump45
12386 E1FC 83 00 00 ... subd #0000
12387 E200 26 12 &. bne 12
12388 E202 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
12389 E205 BD D8 E9 ... jsr d8e9 ;jump92
12390 E208 FC 00 40 ..@ ldd 0040
12391 E20B F3 00 44 ..D addd 0044
12392 E20E FD 00 40 ..@ std 0040
12393 E211 7E E3 29 ~.) jmp e329 ;goto92
12394 E214 BD DB CB ... jsr dbcb ;jump121
12395 E217 F6 00 1B ... ldab 001b
12396 E21A C4 20 . andb #20
12397 E21C 27 45 'E beq 45
12398 E21E FC 00 44 ..D ldd 0044
12405 E227 CC 0D FB ... ldd #0dfb
12406 E22A BD FB DF ... jsr fbdf ;jump46
12409 E22F FE 0D FD ... ldx 0dfd
12411 E233 FC 0D FB ... ldd 0dfb
12414 E238 CE E1 00 ... ldx #e100
12416 E23C CC 05 F5 ... ldd #05f5
12420 E242 EC 06 .. ldd 06,x
12421 E244 A3 02 .. subd 02,x
12422 E246 EC 04 .. ldd 04,x
12423 E248 E2 01 .. sbcb 01,x
12424 E24A A2 00 .. sbca 00,x
12429 E250 25 11 %. bcs 11
12430 E252 CE 1F 00 ... ldx #1f00
12432 E256 CC FA 0A ... ldd #fa0a
12435 E25B CC 0D FB ... ldd #0dfb
12436 E25E BD FB DF ... jsr fbdf ;jump46
12439 E263 F6 0B C0 ... ldab 0bc0
12440 E266 2C 78 ,x bge 78
12441 E268 F6 00 06 ... ldab 0006
12444 E26D C3 08 00 ... addd #0800
12446 E271 EC 00 .. ldd 00,x
12447 E273 C4 FF .. andb #ff
12448 E275 26 02 &. bne 02
12449 E277 84 3F .? anda #3f
12450 E279 27 65 'e beq 65
12451 E27B FC 0D 0D ... ldd 0d0d
12452 E27E 83 FF FF ... subd #ffff
12453 E281 26 05 &. bne 05
12456 E285 FD 0D 0D ... std 0d0d
12457 E288 FE 0D 0D ... ldx 0d0d
12459 E28C FF 0D 0D ... stx 0d0d
12460 E28F F6 00 06 ... ldab 0006
12463 E294 C3 08 00 ... addd #0800
12465 E298 EC 00 .. ldd 00,x
12466 E29A C4 FF .. andb #ff
12467 E29C 84 3F .? anda #3f
12474 E2A4 CC 0D 1B ... ldd #0d1b
12475 E2A7 BD FB DF ... jsr fbdf ;jump46
12478 E2AC FE 0D 1D ... ldx 0d1d
12480 E2B0 FC 0D 1B ... ldd 0d1b
12483 E2B5 CE E1 00 ... ldx #e100
12485 E2B9 CC 05 F5 ... ldd #05f5
12489 E2BF EC 06 .. ldd 06,x
12490 E2C1 A3 02 .. subd 02,x
12491 E2C3 EC 04 .. ldd 04,x
12492 E2C5 E2 01 .. sbcb 01,x
12493 E2C7 A2 00 .. sbca 00,x
12498 E2CD 25 11 %. bcs 11
12499 E2CF CE 1F 00 ... ldx #1f00
12501 E2D3 CC FA 0A ... ldd #fa0a
12504 E2D8 CC 0D 1B ... ldd #0d1b
12505 E2DB BD FB DF ... jsr fbdf ;jump46
12508 E2E0 F6 00 11 ... ldab 0011
12509 E2E3 C4 10 .. andb #10
12510 E2E5 26 14 &. bne 14
12511 E2E7 FC 00 40 ..@ ldd 0040
12512 E2EA 27 0F '. beq 0f
12513 E2EC FC 00 40 ..@ ldd 0040
12514 E2EF B3 00 50 ..P subd 0050
12515 E2F2 24 15 $. bcc 15
12516 E2F4 F6 00 11 ... ldab 0011
12517 E2F7 C4 10 .. andb #10
12518 E2F9 26 0E &. bne 0e
12519 E2FB BD DB 44 ..D jsr db44 ;jump104
12520 E2FE CE 00 1B ... ldx #001b
12521 E301 1D 00 40 ... bclr 00,x, #40
12522 E304 7F 00 25 ..% clr 0025
12523 E307 20 1A . bra 1a
12524 E309 7F 00 2C .., clr 002c
12525 E30C CC 01 F4 ... ldd #01f4
12526 E30F BD E5 71 ..q jsr e571 ;msdelay
12527 E312 BD E5 AA ... jsr e5aa ;jump12
12528 E315 BD D8 E9 ... jsr d8e9 ;jump92
12529 E318 CE 00 1B ... ldx #001b
12530 E31B 1C 00 40 ... bset 00,x, #40
12531 E31E C6 0A .. ldab #0a
12532 E320 F7 00 25 ..% stab 0025
12533 E323 BD D7 FF ... jsr d7ff ;jump80
12534 E326 BD D8 40 ..@ jsr d840 ;jump105
12536 E329 BD E8 9A ... jsr e89a ;jump68
12537 E32C CE 0B C1 ... ldx #0bc1
12538 E32F 1D 00 08 ... bclr 00,x, #08
12539 E332 7E E5 5E ~.^ jmp e55e ;goto74
12541 E335 F6 0B C0 ... ldab 0bc0
12542 E338 C4 02 .. andb #02
12543 E33A 26 03 &. bne 03
12544 E33C 7E E5 5E ~.^ jmp e55e ;goto74
12547 E341 FD 00 76 ..v std 0076
12548 E344 CE 00 17 ... ldx #0017
12549 E347 1D 00 01 ... bclr 00,x, #01
12550 E34A CE 00 17 ... ldx #0017
12551 E34D 1D 00 02 ... bclr 00,x, #02
12552 E350 FC 00 44 ..D ldd 0044
12553 E353 26 1C &. bne 1c
12554 E355 F6 0B C0 ... ldab 0bc0
12555 E358 C4 10 .. andb #10
12556 E35A 26 08 &. bne 08
12557 E35C CE 00 21 ..! ldx #0021
12558 E35F 1C 00 .. bset add,x 00,x
12559 E361 80 20 . suba #20
12561 E364 CE 00 21 ..! ldx #0021
12562 E367 1D 00 .. bclr add,x 00,x
12563 E369 80 C6 .. suba #c6
12565 E36C F7 00 75 ..u stab 0075
12566 E36F 20 57 W bra 57
12567 E371 F6 0B C0 ... ldab 0bc0
12568 E374 C4 10 .. andb #10
12569 E376 27 50 'P beq 50
12570 E378 FC 00 40 ..@ ldd 0040
12571 E37B 26 4B &K bne 4b
12572 E37D F6 0B C0 ... ldab 0bc0
12573 E380 C4 20 . andb #20
12574 E382 27 3E '> beq 3e
12575 E384 CE 00 17 ... ldx #0017
12576 E387 1C 00 01 ... bset 00,x, #01
12577 E38A F6 00 2B ..+ ldab 002b
12578 E38D C1 00 .. cmpb #00
12579 E38F 26 08 &. bne 08
12580 E391 CC AC C9 ... ldd #acc9 ; " PRECIO "
12581 E394 BD C0 BA ... jsr c0ba ;display:
12582 E397 20 1E . bra 1e
12583 E399 C1 01 .. cmpb #01
12584 E39B 26 08 &. bne 08
12585 E39D CC AC BE ... ldd #acbe ; " PRIES "
12586 E3A0 BD C0 BA ... jsr c0ba ;display:
12587 E3A3 20 12 . bra 12
12588 E3A5 C1 02 .. cmpb #02
12589 E3A7 26 08 &. bne 08
12590 E3A9 CC AC B3 ... ldd #acb3 ; " PRIX "
12591 E3AC BD C0 BA ... jsr c0ba ;display:
12592 E3AF 20 06 . bra 06
12593 E3B1 CC AC A8 ... ldd #aca8 ; " PRICE "
12594 E3B4 BD C0 BA ... jsr c0ba ;display:
12595 E3B7 BD D8 D3 ... jsr d8d3 ;jump84 500ms delay
12596 E3BA CE 00 17 ... ldx #0017
12597 E3BD 1C 00 02 ... bset 00,x, #02
12598 E3C0 20 06 . bra 06
12599 E3C2 CE 00 1F ... ldx #001f
12600 E3C5 1C 00 08 ... bset 00,x, #08
12601 E3C8 CE 00 1D ... ldx #001d
12602 E3CB 1C 00 02 ... bset 00,x, #02
12603 E3CE CE 00 19 ... ldx #0019
12604 E3D1 1C 00 08 ... bset 00,x, #08
12605 E3D4 C6 32 .2 ldab #32
12606 E3D6 F7 00 31 ..1 stab 0031
12607 E3D9 C6 19 .. ldab #19
12608 E3DB F7 00 36 ..6 stab 0036
12610 E3DE F6 00 1D ... ldab 001d
12611 E3E1 C4 02 .. andb #02
12612 E3E3 26 03 &. bne 03
12613 E3E5 7E E4 6E ~.n jmp e46e ;goto76
12614 E3E8 F6 00 75 ..u ldab 0075
12615 E3EB C1 04 .. cmpb #04
12616 E3ED 22 05 ". bhi 05
12617 E3EF F6 00 36 ..6 ldab 0036
12618 E3F2 26 3C &< bne 3c
12619 E3F4 7F 00 06 ... clr 0006
12622 E3F9 FD 00 76 ..v std 0076
12623 E3FC 7F 00 2E ... clr 002e
12624 E3FF 7F 00 2C .., clr 002c
12625 E402 7F 00 75 ..u clr 0075
12626 E405 CE 00 17 ... ldx #0017
12627 E408 1D 00 01 ... bclr 00,x, #01
12628 E40B CE 00 19 ... ldx #0019
12629 E40E 1D 00 08 ... bclr 00,x, #08
12630 E411 CE 00 1B ... ldx #001b
12631 E414 1D 00 .. bclr add,x 00,x
12632 E416 80 CE .. suba #ce
12634 E419 1D 1D 00 ... bclr 1d,x, #00
12636 E41D CE 00 1D ... ldx #001d
12637 E420 1D 00 02 ... bclr 00,x, #02
12638 E423 CE 00 1F ... ldx #001f
12639 E426 1D 00 08 ... bclr 00,x, #08
12640 E429 CE 00 21 ..! ldx #0021
12641 E42C 1D 00 .. bclr add,x 00,x
12642 E42E 80 39 .9 suba #39
12643 E430 F6 0B C0 ... ldab 0bc0
12644 E433 C4 20 . andb #20
12645 E435 27 34 '4 beq 34
12646 E437 F6 00 17 ... ldab 0017
12647 E43A C4 01 .. andb #01
12648 E43C 26 2D &- bne 2d
12649 E43E F6 00 17 ... ldab 0017
12650 E441 C4 02 .. andb #02
12651 E443 27 26 '& beq 26
12652 E445 CE 00 00 ... ldx #0000
12654 E449 FC 00 76 ..v ldd 0076
12655 E44C BD BE 9E ... jsr be9e ;jump50
12657 E450 FC 00 76 ..v ldd 0076
12658 E453 26 06 &. bne 06
12659 E455 CE 00 17 ... ldx #0017
12660 E458 1D 00 02 ... bclr 00,x, #02
12661 E45B F6 00 17 ... ldab 0017
12662 E45E C4 02 .. andb #02
12663 E460 27 09 '. beq 09
12664 E462 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
12665 E465 CE 00 17 ... ldx #0017
12666 E468 1D 00 02 ... bclr 00,x, #02
12667 E46B 7E E3 DE ~.. jmp e3de ;goto77
12669 E46E CE 00 21 ..! ldx #0021
12670 E471 1D 00 .. bclr add,x 00,x
12671 E473 80 CE .. suba #ce
12673 E476 1F 1D 00 08 .... brclr 1d,x 00 08
12674 E47A BD D2 13 ... jsr d213 ;jump45
12675 E47D 83 00 00 ... subd #0000
12676 E480 26 0F &. bne 0f
12677 E482 CC 00 80 ... ldd #0080
12678 E485 BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
12679 E488 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
12680 E48B BD D8 E9 ... jsr d8e9 ;jump92
12681 E48E 7E E5 5E ~.^ jmp e55e ;goto74
12682 E491 F6 00 2B ..+ ldab 002b
12683 E494 C1 00 .. cmpb #00
12684 E496 26 08 &. bne 08
12685 E498 CC AD 16 ... ldd #ad16 ; "GRACIAS"
12686 E49B BD C0 BA ... jsr c0ba ;display:
12687 E49E 20 1E . bra 1e
12688 E4A0 C1 01 .. cmpb #01
12689 E4A2 26 08 &. bne 08
12690 E4A4 CC AD 0B ... ldd #ad0b ; "DANKE"
12691 E4A7 BD C0 BA ... jsr c0ba ;display:
12692 E4AA 20 12 . bra 12
12693 E4AC C1 02 .. cmpb #02
12694 E4AE 26 08 &. bne 08
12695 E4B0 CC AD 00 ... ldd #ad00 ; "MERCI"
12696 E4B3 BD C0 BA ... jsr c0ba ;display:
12697 E4B6 20 06 . bra 06
12698 E4B8 CC AC F5 ... ldd #acf5 ; "THANKS"
12699 E4BB BD C0 BA ... jsr c0ba ;display:
12700 E4BE BD D8 D3 ... jsr d8d3 ;jump84 500ms delay
12701 E4C1 CE 00 01 ... ldx #0001
12703 E4C5 FC 00 40 ..@ ldd 0040
12704 E4C8 BD BE 9E ... jsr be9e ;jump50
12708 E4CE BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
12709 E4D1 F6 0B C0 ... ldab 0bc0
12710 E4D4 2D 03 -. blt 03
12711 E4D6 7E E5 58 ~.X jmp e558 ;goto78
12712 E4D9 F6 0B C0 ... ldab 0bc0
12713 E4DC C4 10 .. andb #10
12714 E4DE 26 78 &x bne 78
12715 E4E0 F6 00 06 ... ldab 0006
12718 E4E5 C3 08 00 ... addd #0800
12720 E4E9 EC 00 .. ldd 00,x
12721 E4EB C4 FF .. andb #ff
12722 E4ED 26 02 &. bne 02
12723 E4EF 84 3F .? anda #3f
12724 E4F1 27 65 'e beq 65
12725 E4F3 FC 0D 0D ... ldd 0d0d
12726 E4F6 83 FF FF ... subd #ffff
12727 E4F9 26 05 &. bne 05
12730 E4FD FD 0D 0D ... std 0d0d
12731 E500 FE 0D 0D ... ldx 0d0d
12733 E504 FF 0D 0D ... stx 0d0d
12734 E507 F6 00 06 ... ldab 0006
12737 E50C C3 08 00 ... addd #0800
12739 E510 EC 00 .. ldd 00,x
12740 E512 C4 FF .. andb #ff
12741 E514 84 3F .? anda #3f
12748 E51C CC 0D 1B ... ldd #0d1b
12749 E51F BD FB DF ... jsr fbdf ;jump46
12752 E524 FE 0D 1D ... ldx 0d1d
12754 E528 FC 0D 1B ... ldd 0d1b
12757 E52D CE E1 00 ... ldx #e100
12759 E531 CC 05 F5 ... ldd #05f5
12763 E537 EC 06 .. ldd 06,x
12764 E539 A3 02 .. subd 02,x
12765 E53B EC 04 .. ldd 04,x
12766 E53D E2 01 .. sbcb 01,x
12767 E53F A2 00 .. sbca 00,x
12772 E545 25 11 %. bcs 11
12773 E547 CE 1F 00 ... ldx #1f00
12775 E54B CC FA 0A ... ldd #fa0a
12778 E550 CC 0D 1B ... ldd #0d1b
12779 E553 BD FB DF ... jsr fbdf ;jump46
12783 E558 BD D7 FF ... jsr d7ff ;jump80
12784 E55B BD D8 40 ..@ jsr d840 ;jump105
12786 E55E 7F 00 06 ... clr 0006
12787 E561 7F 00 2E ... clr 002e
12788 E564 CE 00 1B ... ldx #001b
12789 E567 1D 00 80 .. bclr 00,x, #80
12791 E56A CE 00 1D ... ldx #001d
12792 E56C 1D 00 40 .. bclr 00,x, #40
12795 ;!!! Is this a delay routine? It gets called between displaying strings
12796 ;on startup. Looks like a delay. e61b just stores 0a at 0031 and returns.
12798 ; appears to delay for roughly D milliseconds.
12803 E575 EC 01 .. ldd 01,x
12804 E577 83 00 01 ... subd #0001
12805 E57A ED 01 .. std 01,x
12806 E57C 2D 15 -. blt 15 ; to e593
12807 E57E C6 41 .A ldab #41
12809 E581 E7 00 .. stab 00,x
12811 E584 E6 00 .. ldab 00,x
12812 E586 6A 00 j. dec 00,x
12813 E588 C1 00 .. cmpb #00
12814 E58A 23 02 #. bls 02
12815 E58C 20 F5 . bra f5 ; to e583
12816 E58E BD E6 1B ... jsr e61b ;jump4
12817 E591 20 E1 . bra e1 ; to e574
12818 E593 38 8 pulx ;this must just be a standard 'pull 3
12819 E594 31 1 ins ;bytes and I don't care where they go'
12820 ;to clean up the stack.
12824 ; A short delay - counts to 32 in a stack variable. (about 100ms?)
12826 E597 C6 32 .2 ldab #32
12828 E59A E7 00 .. stab 00,x
12830 E59D E6 00 .. ldab 00,x
12831 E59F C1 00 .. cmpb #00
12832 E5A1 23 05 #. bls e5a8
12834 E5A4 6A 00 j. dec 00,x
12835 E5A6 20 F4 . bra e59c
12840 E5AA F6 00 33 ..3 ldab 0033
12841 E5AD 27 0C '. beq 0c ; to e5bb
12842 E5AF F6 00 29 ..) ldab 0029 ; key state
12843 E5B2 27 05 '. beq 05 ; to e5b9 (out)
12844 E5B4 C6 02 .. ldab #02
12845 E5B6 F7 00 33 ..3 stab 0033
12846 E5B9 20 15 . bra 15 ; to e5d0 (out)
12847 E5BB C6 03 .. ldab #03 ; beep
12848 E5BD F7 00 32 ..2 stab 0032
12849 E5C0 FC 00 3B ..; ldd 003b
12850 E5C3 27 06 '. beq 06 ; to e5cb
12851 E5C5 CC 02 33 ..3 ldd #0233
12852 E5C8 FD 00 3B ..; std 003b
12853 E5CB C6 02 .. ldab #02
12854 E5CD F7 00 33 ..3 stab 0033
12858 ; signifies a triple beep?
12859 E5D1 C6 0B .. ldab #0b ; 1011
12860 E5D3 F7 00 32 ..2 stab 0032
12864 ; tests an internal switch or input line
12865 ; Parameters: Port Address in D, bit mask on stack
12869 ; make some stack space
12875 ; 00,x on stack - number of hits
12876 E5DE ED 00 .. std 00,x
12877 ; we call i = 02,x. let i = 64
12878 E5E0 CC 00 64 ..d ldd #0064
12879 E5E3 ED 02 .. std 02,x
12882 E5E6 EC 02 .. ldd 02,x
12883 E5E8 2F 21 /! ble 21 ; to e60b
12884 ; we call j = 04,x. let j = initial value of D
12886 E5EB EE 04 .. ldx 04,x
12887 E5ED E6 00 .. ldab 00,x
12889 E5F0 E4 09 .. andb 09,x
12890 E5F2 27 05 '. beq 05 ; to e5f9 if bit cleared
12892 E5F5 08 . inx ; increment number of hits
12894 E5F7 20 08 . bra 08 ; to e601
12896 E5FA EC 00 .. ldd 00,x
12897 E5FC 83 00 01 ... subd #0001 ; decrement number of hits
12898 E5FF ED 00 .. std 00,x
12900 E602 EC 02 .. ldd 02,x
12901 E604 83 00 01 ... subd #0001 ; i--
12902 E607 ED 02 .. std 02,x
12903 E609 20 DA . bra da ; to e5e5
12905 ; return 1 iff the key was pressed
12907 E60C EC 00 .. ldd 00,x
12908 E60E 2F 04 /. ble 04 ; to e614 if -ve
12911 E612 20 03 . bra 03 ; to e617
12912 E614 CC 00 01 ... ldd #0001
12919 E61B C6 0A .. ldab #0a
12920 E61D F7 00 31 ..1 stab 0031
12928 E625 BD BE 4B ..K jsr be4b ;displayblank
12930 E629 EC 04 .. ldd 04,x
12933 E62D EC 02 .. ldd 02,x
12936 E631 CE 96 80 ... ldx #9680
12938 E635 CC 00 98 ... ldd #0098
12939 E638 BD FC 4C ..L jsr fc4c ;jump83
12942 E63D CB 30 .0 addb #30
12943 E63F F7 0B 97 ... stab 0b97
12945 E643 EC 04 .. ldd 04,x
12948 E647 EC 02 .. ldd 02,x
12951 E64B CE 96 80 ... ldx #9680
12953 E64F CC 00 98 ... ldd #0098
12954 E652 BD FC 5C ..\ jsr fc5c ;jump82
12957 E657 CE 42 40 .B@ ldx #4240
12959 E65B CC 00 0F ... ldd #000f
12960 E65E BD FC 4C ..L jsr fc4c ;jump83
12963 E663 CB 30 .0 addb #30
12964 E665 F7 0B 96 ... stab 0b96
12966 E669 EC 04 .. ldd 04,x
12969 E66D EC 02 .. ldd 02,x
12972 E671 CE 42 40 .B@ ldx #4240
12974 E675 CC 00 0F ... ldd #000f
12975 E678 BD FC 5C ..\ jsr fc5c ;jump82
12978 E67D CE 86 A0 ... ldx #86a0
12980 E681 CC 00 01 ... ldd #0001
12981 E684 BD FC 4C ..L jsr fc4c ;jump83
12984 E689 CB 30 .0 addb #30
12985 E68B F7 0B 95 ... stab 0b95
12987 E68F EC 04 .. ldd 04,x
12990 E693 EC 02 .. ldd 02,x
12993 E697 CE 86 A0 ... ldx #86a0
12995 E69B CC 00 01 ... ldd #0001
12996 E69E BD FC 5C ..\ jsr fc5c ;jump82
12999 E6A3 CE 27 10 .'. ldx #2710
13001 E6A7 CC 00 00 ... ldd #0000
13002 E6AA BD FC 4C ..L jsr fc4c ;jump83
13005 E6AF CB 30 .0 addb #30
13006 E6B1 F7 0B 94 ... stab 0b94
13008 E6B5 EC 04 .. ldd 04,x
13011 E6B9 EC 02 .. ldd 02,x
13014 E6BD CE 27 10 .'. ldx #2710
13016 E6C1 CC 00 00 ... ldd #0000
13017 E6C4 BD FC 5C ..\ jsr fc5c ;jump82
13020 E6C9 CE 03 E8 ... ldx #03e8
13022 E6CD CC 00 00 ... ldd #0000
13023 E6D0 BD FC 4C ..L jsr fc4c ;jump83
13026 E6D5 CB 30 .0 addb #30
13027 E6D7 F7 0B 93 ... stab 0b93
13029 E6DB EC 04 .. ldd 04,x
13032 E6DF EC 02 .. ldd 02,x
13035 E6E3 CE 03 E8 ... ldx #03e8
13037 E6E7 CC 00 00 ... ldd #0000
13038 E6EA BD FC 5C ..\ jsr fc5c ;jump82
13041 E6EF CE 00 64 ..d ldx #0064
13043 E6F3 CC 00 00 ... ldd #0000
13044 E6F6 BD FC 4C ..L jsr fc4c ;jump83
13047 E6FB CB 30 .0 addb #30
13048 E6FD F7 0B 92 ... stab 0b92
13050 E701 EC 04 .. ldd 04,x
13053 E705 EC 02 .. ldd 02,x
13056 E709 CE 00 64 ..d ldx #0064
13058 E70D CC 00 00 ... ldd #0000
13059 E710 BD FC 5C ..\ jsr fc5c ;jump82
13062 E715 CE 00 0A ... ldx #000a
13064 E719 CC 00 00 ... ldd #0000
13065 E71C BD FC 4C ..L jsr fc4c ;jump83
13068 E721 CB 30 .0 addb #30
13069 E723 F7 0B 91 ... stab 0b91
13071 E727 EC 04 .. ldd 04,x
13074 E72B EC 02 .. ldd 02,x
13077 E72F CE 00 0A ... ldx #000a
13079 E733 CC 00 00 ... ldd #0000
13080 E736 BD FC 5C ..\ jsr fc5c ;jump82
13083 E73B CB 30 .0 addb #30
13084 E73D F7 0B 90 ... stab 0b90
13088 E743 6E 00 n. jmp 00,x
13091 ; number to string. number is <= 99999. puts it into 0057, 005a, 005d-005f
13095 E748 EC 00 .. ldd 00,x
13096 E74A CE 27 10 .'. ldx #2710 ; 10000
13099 E74F CB 30 .0 addb #30
13100 E751 F7 00 57 ..W stab 0057 ; num/10000 => 0057
13102 E755 EC 00 .. ldd 00,x
13103 E757 CE 27 10 .'. ldx #2710 ; 10000
13105 E75B CE 03 E8 ... ldx #03e8
13108 E760 CB 30 .0 addb #30
13109 E762 F7 00 5A ..Z stab 005a ; num%10000/1000 => 005a
13111 E766 EC 00 .. ldd 00,x
13112 E768 CE 03 E8 ... ldx #03e8
13114 E76C CE 00 64 ..d ldx #0064
13117 E771 CB 30 .0 addb #30
13118 E773 F7 00 5D ..] stab 005d ; num%1000/100 => 005d
13120 E777 EC 00 .. ldd 00,x
13121 E779 CE 00 64 ..d ldx #0064
13123 E77D CE 00 0A ... ldx #000a
13126 E782 CB 30 .0 addb #30
13127 E784 F7 00 5E ..^ stab 005e ; num%100/10 => 005e
13129 E788 EC 00 .. ldd 00,x
13130 E78A CE 00 0A ... ldx #000a
13132 E78E CB 30 .0 addb #30
13133 E790 F7 00 5F .._ stab 005f ; num%10 => 005f
13138 ; number to string. number is <= 999. puts it into 005d-005f
13142 E798 E6 01 .. ldab 01,x
13144 E79B CE 00 64 ..d ldx #0064 ; /100
13147 E7A0 CB 30 .0 addb #30 ; make it a digit
13148 E7A2 F7 00 5D ..] stab 005d
13150 E7A6 E6 01 .. ldab 01,x
13152 E7A9 CE 00 64 ..d ldx #0064
13155 E7AE CE 00 0A ... ldx #000a
13158 E7B3 CB 30 .0 addb #30 ; %100 / 10 -> digit
13159 E7B5 F7 00 5E ..^ stab 005e
13161 E7B9 E6 01 .. ldab 01,x
13163 E7BC CE 00 0A ... ldx #000a
13165 E7C0 CB 30 .0 addb #30
13166 E7C2 F7 00 5F .._ stab 005f ; %10
13171 E7C7 F6 00 06 ... ldab 0006
13173 E7CB CE 00 05 ... ldx #0005
13176 E7D0 26 03 &. bne 03
13177 E7D2 7E E8 99 ~.. jmp e899 ;goto79
13178 E7D5 F6 00 06 ... ldab 0006
13179 E7D8 BD D7 A0 ... jsr d7a0 ;is_invalid_slot
13180 E7DB 83 00 00 ... subd #0000
13181 E7DE 27 03 '. beq 03
13182 E7E0 7E E8 99 ~.. jmp e899 ;goto79
13183 E7E3 F6 00 06 ... ldab 0006
13186 E7E8 C3 08 00 ... addd #0800
13188 E7EC EC 00 .. ldd 00,x
13189 E7EE C4 FF .. andb #ff
13190 E7F0 84 3F .? anda #3f
13191 E7F2 FD 10 16 ... std 1016
13192 E7F5 F6 00 06 ... ldab 0006
13195 E7FA C3 0B F1 ... addd #0bf1
13197 E7FE EC 00 .. ldd 00,x
13198 E800 C4 FF .. andb #ff
13199 E802 84 3F .? anda #3f
13200 E804 FD 10 18 ... std 1018
13201 E807 FC 10 16 ... ldd 1016
13202 E80A 83 00 00 ... subd #0000
13203 E80D 25 08 %. bcs 08
13204 E80F FC 10 16 ... ldd 1016
13205 E812 83 27 0F .'. subd #270f
13206 E815 23 35 #5 bls 35
13207 E817 F6 00 06 ... ldab 0006
13208 E81A BD D4 68 ..h jsr d468 ;jump51
13209 E81D 83 00 00 ... subd #0000
13210 E820 27 2A '* beq 2a
13211 E822 CC 01 00 ... ldd #0100
13214 E827 F6 00 06 ... ldab 0006
13217 E82C C3 08 C8 ... addd #08c8
13220 E831 AA 00 .. ora 00,x
13221 E833 EA 01 .. orb 01,x
13222 E835 ED 00 .. std 00,x
13223 E837 CC 40 00 .@. ldd #4000
13226 E83C F6 00 06 ... ldab 0006
13229 E841 C3 08 00 ... addd #0800
13232 E846 AA 00 .. ora 00,x
13233 E848 EA 01 .. orb 01,x
13234 E84A ED 00 .. std 00,x
13235 E84C CE 10 16 ... ldx #1016
13236 E84F 1D 00 C0 .. bclr 00,x, #c0
13237 E852 FC 10 18 .. ldd 1018
13240 E857 FD 10 18 ... std 1018
13241 E85A CE 10 18 ... ldx #1018
13242 E85D 1D 00 C0 .. bclr 00,x, #c0
13243 E85F FC 10 16 .. ldd 1016
13246 E865 FC 10 18 ... ldd 1018
13248 E869 A3 00 .. subd 00,x
13251 E86D 27 2A '* beq 2a
13252 E86F CC 01 00 ... ldd #0100
13255 E874 F6 00 06 ... ldab 0006
13258 E879 C3 08 C8 ... addd #08c8
13261 E87E AA 00 .. ora 00,x
13262 E880 EA 01 .. orb 01,x
13263 E882 ED 00 .. std 00,x
13264 E884 CC 40 00 .@. ldd #4000
13267 E889 F6 00 06 ... ldab 0006
13270 E88E C3 08 00 ... addd #0800
13273 E893 AA 00 .. ora 00,x
13274 E895 EA 01 .. orb 01,x
13275 E897 ED 00 .. std 00,x
13282 E89C FD 00 0F ... std 000f
13283 E89F CC 3F FF .?. ldd #3fff
13284 E8A2 FD 00 50 ..P std 0050
13285 E8A5 7F 00 06 ... clr 0006
13286 E8A8 F6 00 06 ... ldab 0006
13287 E8AB C1 64 .d cmpb #64
13288 E8AD 24 64 $d bcc 64
13289 E8AF F6 00 06 ... ldab 0006
13291 E8B3 CE 00 05 ... ldx #0005
13294 E8B8 27 54 'T beq 54
13295 E8BA F6 00 06 ... ldab 0006
13296 E8BD BD D7 A0 ... jsr d7a0 ;is_invalid_slot
13297 E8C0 83 00 00 ... subd #0000
13298 E8C3 26 49 &I bne 49
13299 E8C5 F6 00 06 ... ldab 0006
13302 E8CA C3 08 00 ... addd #0800
13304 E8CE EC 00 .. ldd 00,x
13305 E8D0 C4 FF .. andb #ff
13306 E8D2 84 3F .? anda #3f
13307 E8D4 FD 10 16 ... std 1016
13308 E8D7 FC 10 16 ... ldd 1016
13309 E8DA 83 27 10 .'. subd #2710 ; 10000
13310 E8DD 24 2F $/ bcc 2f
13311 E8DF F6 00 06 ... ldab 0006
13312 E8E2 BD D4 68 ..h jsr d468 ;jump51
13313 E8E5 83 00 00 ... subd #0000
13314 E8E8 27 24 '$ beq 24
13315 E8EA BD D5 61 ..a jsr d561 ;jump42
13316 E8ED 83 00 00 ... subd #0000
13317 E8F0 26 1C &. bne 1c
13318 E8F2 FC 10 16 ... ldd 1016
13319 E8F5 B3 00 0F ... subd 000f
13320 E8F8 23 06 #. bls 06
13321 E8FA FC 10 16 ... ldd 1016
13322 E8FD FD 00 0F ... std 000f
13323 E900 FC 10 16 ... ldd 1016
13324 E903 B3 00 50 ..P subd 0050
13325 E906 24 06 $. bcc 06
13326 E908 FC 10 16 ... ldd 1016
13327 E90B FD 00 50 ..P std 0050
13328 E90E 7C 00 06 |.. inc 0006
13329 E911 20 95 . bra 95
13330 E913 FC 0B B7 ... ldd 0bb7
13331 E916 27 12 '. beq 12
13332 E918 FC 00 0F ... ldd 000f
13333 E91B B3 0B B7 ... subd 0bb7
13334 E91E 23 0A #. bls 0a
13335 E920 FC 00 0F ... ldd 000f
13337 E924 B3 0B B7 ... subd 0bb7
13338 E927 FD 00 0F ... std 000f
13344 E92D 6F 00 o. clr 00,x
13346 E930 E6 00 .. ldab 00,x
13347 E932 C1 64 .d cmpb #64
13348 E934 24 15 $. bcc 15
13354 E93B E6 02 .. ldab 02,x
13357 E93F C3 0D 1F ... addd #0d1f
13360 E944 ED 00 .. std 00,x
13362 E947 6C 00 l. inc 00,x
13363 E949 20 E4 . bra e4
13366 E94D FD 0D F9 ... std 0df9
13367 E950 FD 0D F7 ... std 0df7
13370 E955 FD 0D F5 ... std 0df5
13371 E958 FD 0D F3 ... std 0df3
13374 E95D FD 0D F1 ... std 0df1
13375 E960 FD 0D EF ... std 0def
13378 E965 FD 0D FD ... std 0dfd
13379 E968 FD 0D FB ... std 0dfb
13382 E96D FD 0D E9 ... std 0de9
13383 E970 FD 0D E7 ... std 0de7
13386 E975 FD 0C DD ... std 0cdd
13389 E97A FD 0C DF ... std 0cdf
13392 E97F FD 0C E1 ... std 0ce1
13395 E984 FD 0C E3 ... std 0ce3
13398 E989 FD 0C E5 ... std 0ce5
13401 E98E FD 0C F5 ... std 0cf5
13402 E991 FD 0C F3 ... std 0cf3
13405 E996 FD 0C F9 ... std 0cf9
13406 E999 FD 0C F7 ... std 0cf7
13409 E99E FD 0C FD ... std 0cfd
13410 E9A1 FD 0C FB ... std 0cfb
13413 E9A6 FD 0D 01 ... std 0d01
13414 E9A9 FD 0C FF ... std 0cff
13417 E9AE FD 0D 05 ... std 0d05
13418 E9B1 FD 0D 03 ... std 0d03
13421 E9B6 FD 0D 07 ... std 0d07
13424 E9BB FD 0D 09 ... std 0d09
13427 E9C0 FD 0D 0B ... std 0d0b
13430 E9C5 FD 0D 0D ... std 0d0d
13433 E9CA FD 0D 11 ... std 0d11
13434 E9CD FD 0D 0F ... std 0d0f
13437 E9D2 FD 0D 15 ... std 0d15
13438 E9D5 FD 0D 13 ... std 0d13
13441 E9DA FD 0D 19 ... std 0d19
13442 E9DD FD 0D 17 ... std 0d17
13445 E9E2 FD 0D 1D ... std 0d1d
13446 E9E5 FD 0D 1B ... std 0d1b
13451 E9EA 7F 00 06 ... clr 0006
13452 E9ED F6 00 06 ... ldab 0006
13453 E9F0 C1 64 .d cmpb #64
13454 E9F2 24 64 $d bcc 64
13455 E9F4 F6 00 06 ... ldab 0006
13457 E9F8 CE 00 05 ... ldx #0005
13460 E9FD 27 54 'T beq 54
13461 E9FF CC BF FF ... ldd #bfff
13464 EA04 F6 00 06 ... ldab 0006
13467 EA09 C3 08 00 ... addd #0800
13470 EA0E A4 00 .. anda 00,x
13471 EA10 E4 01 .. andb 01,x
13472 EA12 ED 00 .. std 00,x
13473 EA14 CC FE FF ... ldd #feff
13476 EA19 F6 00 06 ... ldab 0006
13479 EA1E C3 08 C8 ... addd #08c8
13482 EA23 A4 00 .. anda 00,x
13483 EA25 E4 01 .. andb 01,x
13484 EA27 ED 00 .. std 00,x
13485 EA29 CC FD FF ... ldd #fdff
13488 EA2E F6 00 06 ... ldab 0006
13491 EA33 C3 08 C8 ... addd #08c8
13494 EA38 A4 00 .. anda 00,x
13495 EA3A E4 01 .. andb 01,x
13496 EA3C ED 00 .. std 00,x
13497 EA3E CC FB FF ... ldd #fbff
13500 EA43 F6 00 06 ... ldab 0006
13503 EA48 C3 08 C8 ... addd #08c8
13506 EA4D A4 00 .. anda 00,x
13507 EA4F E4 01 .. andb 01,x
13508 EA51 ED 00 .. std 00,x
13509 EA53 7C 00 06 |.. inc 0006
13510 EA56 20 95 . bra 95
13515 ; test PE2 - remote no-sale switch.
13516 EA5A CE 00 04 ... ldx #0004
13518 EA5E CC 10 0A ... ldd #100a
13519 EA61 BD E5 D7 ... jsr e5d7 ;jump69 - test input line
13521 EA65 83 00 00 ... subd #0000
13522 EA68 27 3F '? beq 3f ; to eaa9 if off
13524 ; test internal mode switch (bit 1 of 1800)
13525 EA6A CE 00 01 ... ldx #0001
13527 EA6E CC 18 00 ... ldd #1800
13528 EA71 BD E5 D7 ... jsr e5d7 ;jump69 - test input line
13530 EA75 83 00 00 ... subd #0000
13531 EA78 27 2F '/ beq 2f ; to eaa9 if off
13533 ; both no-sale & mode switches held.
13536 EA7A CC 03 E8 ... ldd #03e8
13537 EA7D BD E5 71 ..q jsr e571 ;msdelay
13539 EA80 7F 0B A8 ... clr 0ba8
13541 ; blink "SECURE OFF" until mode switch is released
13542 EA83 F6 18 00 ... ldab 1800
13543 EA86 C4 01 .. andb #01
13544 EA88 26 1C &. bne 1c ; to eaa4 (loop until released)
13547 EA8A BD BE 4B ..K jsr be4b ;displayblank (blank display buffer)
13549 EA8E BD BE 01 ... jsr be01 ;jump70 (commit to display)
13553 EA92 CC 01 F4 ... ldd #01f4
13554 EA95 BD E5 71 ..q jsr e571 ;msdelay
13556 EA98 CC AF D1 ... ldd #afd1 ; "SECURE OFF"
13557 EA9B BD C0 BA ... jsr c0ba ;display:
13560 EA9E CC 01 F4 ... ldd #01f4
13561 EAA1 BD E5 71 ..q jsr e571 ;msdelay
13563 EAA4 20 DD . bra dd ; to ea83
13564 EAA6 BD BE 69 ..i jsr be69 ;displayreset
13566 ; no sale switch or internal mode switch on
13568 ; fiddle with the bill acceptor
13569 EAA9 C6 01 .. ldab #01
13570 EAAB F7 00 14 ... stab 0014
13571 EAAE F6 00 14 ... ldab 0014
13572 EAB1 F7 38 00 .8. stab 3800
13575 EAB4 CC 00 1E ... ldd #001e
13576 EAB7 BD E5 71 ..q jsr e571 ;msdelay
13578 ; more bill acceptor fiddling & tests
13579 EABA CE 00 01 ... ldx #0001
13581 EABE CC 10 00 ... ldd #1000
13582 EAC1 BD E5 D7 ... jsr e5d7 ;jump69 - test input line
13584 EAC5 83 00 00 ... subd #0000
13585 EAC8 27 10 '. beq 10
13586 EACA CE 00 02 ... ldx #0002
13588 EACE CC 10 00 ... ldd #1000
13589 EAD1 BD E5 D7 ... jsr e5d7 ;jump69 - test input line
13591 EAD5 83 00 00 ... subd #0000
13592 EAD8 27 03 '. beq 03
13593 ; we've decided if we have a bill acceptor. if not, skip this bit
13594 EADA 7E ED F8 ~.. jmp edf8 ;goto80
13595 ; we have a bill acceptor - play some more
13596 EADD C6 02 .. ldab #02
13597 EADF F7 00 14 ... stab 0014
13598 EAE2 F6 00 14 ... ldab 0014
13599 EAE5 F7 38 00 .8. stab 3800
13600 EAE8 CC 00 1E ... ldd #001e
13601 EAEB BD E5 71 ..q jsr e571 ;msdelay
13602 EAEE CE 00 01 ... ldx #0001
13604 EAF2 CC 10 00 ... ldd #1000
13605 EAF5 BD E5 D7 ... jsr e5d7 ;jump69 - test input line
13607 EAF9 83 00 00 ... subd #0000
13608 EAFC 26 10 &. bne 10
13609 EAFE CE 00 02 ... ldx #0002
13611 EB02 CC 10 00 ... ldd #1000
13612 EB05 BD E5 D7 ... jsr e5d7 ;jump69 - test input line
13614 EB09 83 00 00 ... subd #0000
13615 EB0C 26 03 &. bne 03
13616 EB0E 7E ED F8 ~.. jmp edf8 ;goto80 - something about the bill validator failed. skip it.
13617 EB11 CC 5A 5A .ZZ ldd #5a5a ; 23130
13618 EB14 FD 10 16 ... std 1016
13619 EB17 CC B1 39 ..9 ldd #b139 ;"**********"
13620 EB1A BD C0 BA ... jsr c0ba ;display:
13621 EB1D CC 07 D0 ... ldd #07d0
13622 EB20 BD E5 71 ..q jsr e571 ;msdelay
13623 EB23 CC B1 44 ..D ldd #b144 ;"OOOOOOOOOO"
13624 EB26 BD C0 BA ... jsr c0ba ;display:
13625 EB29 CC 07 D0 ... ldd #07d0
13626 EB2C BD E5 71 ..q jsr e571 ;msdelay
13627 EB2F CC 00 14 ... ldd #0014
13628 EB32 FD 00 3B ..; std 003b
13629 EB35 FC 00 3B ..; ldd 003b
13630 EB38 27 47 'G beq 47
13631 ; draws a sequence of 10 dots ..... along the display.
13633 EB3B 6F 00 o. clr 00,x
13635 EB3E E6 00 .. ldab 00,x
13636 EB40 C1 0A .. cmpb #0a
13637 EB42 24 3B $; bcc 3b
13638 EB44 BD BE 4B ..K jsr be4b ;displayblank
13639 EB47 C6 2E .. ldab #2e
13642 EB4B E6 01 .. ldab 01,x
13644 EB4E C3 0B 90 ... addd #0b90
13647 EB53 E7 00 .. stab 00,x
13649 EB56 BD BE 69 ..i jsr be69 ;displayreset
13650 EB59 CE 10 28 ..( ldx #1028
13651 EB5C 1C 00 40 .. bset 00,x, #40 ; tweak the clock phase
13652 EB5F CE 00 01 ... ldx #0001
13654 EB63 CC 00 20 .. ldd #0020
13655 EB66 BD BD B5 ... jsr bdb5 ;jump78 - send display byte
13657 EB6A CE 10 28 ..( ldx #1028
13658 EB6D 1D 00 40 ..@ bclr 00,x, #40 ; tweak the clock phase back
13659 EB70 BD BE 10 ... jsr be10 ;jump88
13661 EB74 CC 00 07 ... ldd #0007
13662 EB77 BD E5 71 ..q jsr e571 ;msdelay 7-unit delay
13664 EB7B 6C 00 l. inc 00,x
13665 EB7D 20 BE . bra be
13666 EB7F 20 B4 . bra b4
13667 EB81 BD BE 69 ..i jsr be69 ;displayreset
13668 EB84 CC 08 00 ... ldd #0800
13669 EB87 FD 00 73 ..s std 0073
13670 EB8A FC 00 73 ..s ldd 0073
13671 EB8D 83 0F FF ... subd #0fff
13672 EB90 22 10 ". bhi 10 ; to eba2
13673 EB92 C6 AA .. ldab #aa
13674 EB94 FE 00 73 ..s ldx 0073
13675 EB97 E7 00 .. stab 00,x
13676 EB99 FE 00 73 ..s ldx 0073
13678 EB9D FF 00 73 ..s stx 0073
13679 EBA0 20 E8 . bra e8
13680 EBA2 CC 08 00 ... ldd #0800
13681 EBA5 FD 00 73 ..s std 0073
13682 EBA8 FC 00 73 ..s ldd 0073
13683 EBAB 83 0F FF ... subd #0fff
13684 EBAE 22 1A ". bhi 1a
13685 EBB0 FE 00 73 ..s ldx 0073
13686 EBB3 E6 00 .. ldab 00,x
13687 EBB5 C1 AA .. cmpb #aa
13688 EBB7 27 08 '. beq 08
13689 EBB9 CE 10 16 ... ldx #1016 ; timer output compare register
13690 EBBC 1D 00 FF .. bclr 00,x, #FF
13691 EBBF 20 09 .. bra 09
13692 EBC1 FE 00 73 ..s ldx 0073
13694 EBC5 FF 00 73 ..s stx 0073
13695 EBC8 20 DE . bra de
13696 EBCA CC 08 00 ... ldd #0800
13697 EBCD FD 00 73 ..s std 0073
13698 EBD0 FC 00 73 ..s ldd 0073
13699 EBD3 83 0F FF ... subd #0fff
13700 EBD6 22 10 ". bhi 10
13701 EBD8 C6 55 .U ldab #55
13702 EBDA FE 00 73 ..s ldx 0073
13703 EBDD E7 00 .. stab 00,x
13704 EBDF FE 00 73 ..s ldx 0073
13706 EBE3 FF 00 73 ..s stx 0073
13707 EBE6 20 E8 . bra e8
13708 EBE8 CC 08 00 ... ldd #0800
13709 EBEB FD 00 73 ..s std 0073
13710 EBEE FC 00 73 ..s ldd 0073
13711 EBF1 83 0F FF ... subd #0fff
13712 EBF4 22 1A ". bhi 1a
13713 EBF6 FE 00 73 ..s ldx 0073
13714 EBF9 E6 00 .. ldab 00,x
13715 EBFB C1 55 .U cmpb #55
13716 EBFD 27 08 '. beq 08
13717 EBFF CE 10 16 ... ldx #1016
13718 EC02 1D 00 FF ... bclr 00,x #ff
13719 EC05 20 09 . bra 09
13720 EC07 FE 00 73 ..s ldx 0073
13722 EC0B FF 00 73 ..s stx 0073
13723 EC0E 20 DE . bra de
13724 EC10 CC 08 00 ... ldd #0800
13725 EC13 FD 00 73 ..s std 0073
13726 EC16 FC 00 73 ..s ldd 0073
13727 EC19 83 0F FF ... subd #0fff
13728 EC1C 22 0F ". bhi 0f
13730 EC1F FE 00 73 ..s ldx 0073
13731 EC22 E7 00 .. stab 00,x
13732 EC24 FE 00 73 ..s ldx 0073
13734 EC28 FF 00 73 ..s stx 0073
13735 EC2B 20 E9 . bra e9
13736 EC2D 7F 00 06 ... clr 0006
13737 EC30 F6 00 06 ... ldab 0006
13738 EC33 C1 64 .d cmpb #64
13739 EC35 24 4D $M bcc 4d
13740 EC37 F6 00 06 ... ldab 0006
13742 EC3B CE 00 05 ... ldx #0005
13745 EC40 27 3D '= beq 3d
13746 EC42 CC 00 32 ..2 ldd #0032
13749 EC47 F6 00 06 ... ldab 0006
13752 EC4C C3 08 00 ... addd #0800
13755 EC51 ED 00 .. std 00,x
13756 EC53 F6 00 06 ... ldab 0006
13759 EC58 C3 08 00 ... addd #0800
13761 EC5C EC 00 .. ldd 00,x
13766 EC62 F6 00 06 ... ldab 0006
13769 EC67 C3 0B F1 ... addd #0bf1
13772 EC6C ED 00 .. std 00,x
13773 EC6E CC 08 01 ... ldd #0801
13776 EC73 F6 00 06 ... ldab 0006
13779 EC78 C3 08 C8 ... addd #08c8
13782 EC7D ED 00 .. std 00,x
13783 EC7F 7C 00 06 |.. inc 0006
13784 EC82 20 AC . bra ac
13785 EC84 C6 1D .. ldab #1d
13786 EC86 F7 0B BF ... stab 0bbf
13788 EC8A 6F 00 o. clr 00,x
13789 EC8C F6 0B BF ... ldab 0bbf
13791 EC90 C3 00 02 ... addd #0002
13795 EC96 E6 02 .. ldab 02,x
13797 EC99 A3 00 .. subd 00,x
13800 EC9D 2C 1B ,. bge 1b
13802 ECA0 E6 00 .. ldab 00,x
13804 ECA3 C3 B1 D0 ... addd #b1d0 ; "THANK YOU FOR YOUR PATRONAGE"
13806 ECA7 E6 00 .. ldab 00,x
13809 ECAB E6 01 .. ldab 01,x
13811 ECAE C3 09 93 ... addd #0993
13814 ECB3 E7 00 .. stab 00,x
13816 ECB6 6C 00 l. inc 00,x
13817 ECB8 20 D2 . bra d2
13818 ECBA 7F 0B A8 ... clr 0ba8
13819 ECBD CC 00 32 ..2 ldd #0032
13820 ECC0 FD 0B B5 ... std 0bb5
13823 ECC5 FD 0B B7 ... std 0bb7
13824 ECC8 7F 00 06 ... clr 0006
13825 ECCB BD A6 4E ..N jsr a64e ;jump135
13826 ECCE C6 09 .. ldab #09
13827 ECD0 F7 0B C0 ... stab 0bc0
13828 ECD3 7F 0E 6D ..m clr 0e6d
13829 ECD6 C6 01 .. ldab #01
13830 ECD8 F7 0E 6E ..n stab 0e6e
13832 ECDC 6F 00 o. clr 00,x
13834 ECDF E6 00 .. ldab 00,x
13835 ECE1 C1 0F .. cmpb #0f
13836 ECE3 24 21 $! bcc 21
13837 ECE5 C6 30 .0 ldab #30
13840 ECE9 E6 01 .. ldab 01,x
13842 ECEC C3 0C B9 ... addd #0cb9
13845 ECF1 E7 00 .. stab 00,x
13846 ECF3 C6 30 .0 ldab #30
13849 ECF7 E6 01 .. ldab 01,x
13851 ECFA C3 0C C9 ... addd #0cc9
13854 ECFF E7 00 .. stab 00,x
13856 ED02 6C 00 l. inc 00,x
13857 ED04 20 D8 . bra d8
13859 ED07 6F 00 o. clr 00,x
13862 ED0A E6 00 .. ldab 00,x
13863 ED0C C1 0B .. cmpb #0b
13864 ED0E 24 12 $. bcc 12 ; to ed22
13868 ED13 E6 01 .. ldab 01,x
13870 ED16 C3 0B E4 ... addd #0be4
13873 ED1B E7 00 .. stab 00,x
13875 ED1E 6C 00 l. inc 00,x
13876 ED20 20 E7 . bra e7
13877 ; clear stuff ready for test harness?
13880 ED24 FD 0D F9 ... std 0df9
13881 ED27 FD 0D F7 ... std 0df7
13884 ED2C FD 0D F5 ... std 0df5
13885 ED2F FD 0D F3 ... std 0df3
13886 ED32 7F 0C D9 ... clr 0cd9
13887 ED35 7F 0C DA ... clr 0cda
13888 ED38 7F 0C DB ... clr 0cdb
13889 ED3B 7F 0C DC ... clr 0cdc
13892 ED40 FD 0D F1 ... std 0df1
13893 ED43 FD 0D EF ... std 0def
13896 ED48 FD 0D FD ... std 0dfd
13897 ED4B FD 0D FB ... std 0dfb
13900 ED50 FD 0D E9 ... std 0de9
13901 ED53 FD 0D E7 ... std 0de7
13904 ED58 FD 0D ED ... std 0ded
13905 ED5B FD 0D EB ... std 0deb
13908 ED60 FD 0C DD ... std 0cdd
13911 ED65 FD 0C DF ... std 0cdf
13914 ED6A FD 0C E1 ... std 0ce1
13917 ED6F FD 0C E3 ... std 0ce3
13920 ED74 FD 0C E5 ... std 0ce5
13923 ED79 FD 0C F5 ... std 0cf5
13924 ED7C FD 0C F3 ... std 0cf3
13927 ED81 FD 0C F9 ... std 0cf9
13928 ED84 FD 0C F7 ... std 0cf7
13931 ED89 FD 0C FD ... std 0cfd
13932 ED8C FD 0C FB ... std 0cfb
13935 ED91 FD 0D 01 ... std 0d01
13936 ED94 FD 0C FF ... std 0cff
13939 ED99 FD 0D 05 ... std 0d05
13940 ED9C FD 0D 03 ... std 0d03
13943 EDA1 FD 0D 07 ... std 0d07
13946 EDA6 FD 0D 09 ... std 0d09
13949 EDAB FD 0D 0B ... std 0d0b
13952 EDB0 FD 0D 0D ... std 0d0d
13955 EDB5 FD 0D 11 ... std 0d11
13956 EDB8 FD 0D 0F ... std 0d0f
13959 EDBD FD 0D 15 ... std 0d15
13960 EDC0 FD 0D 13 ... std 0d13
13963 EDC5 FD 0D 19 ... std 0d19
13964 EDC8 FD 0D 17 ... std 0d17
13967 EDCD FD 0D 1D ... std 0d1d
13968 EDD0 FD 0D 1B ... std 0d1b
13969 EDD3 7F 0B AF ... clr 0baf
13970 EDD6 7F 0B AE ... clr 0bae
13971 EDD9 7F 0B AD ... clr 0bad
13972 EDDC 7F 0B AC ... clr 0bac
13973 EDDF 7F 0B AB ... clr 0bab
13974 EDE2 7F 0B B4 ... clr 0bb4
13975 EDE5 7F 0B B3 ... clr 0bb3
13976 EDE8 7F 0B B2 ... clr 0bb2
13977 EDEB 7F 0B B1 ... clr 0bb1
13978 EDEE 7F 0B B0 ... clr 0bb0
13979 EDF1 C6 05 .. ldab #05
13980 EDF3 F7 08 00 ... stab 0800
13981 EDF6 8D 21 .! bsr 21 ;jump204 - test harness function
13983 ; switch things off (motors, display clock, keypad strobe)
13984 EDF8 7F 00 14 ... clr 0014
13985 EDFB F6 00 14 ... ldab 0014
13986 EDFE F7 38 00 .8. stab 3800
13991 ; writes msg to screen for 1.5s
13995 EE06 EC 00 .. ldd 00,x
13996 EE08 BD C0 BA ... jsr c0ba ;display:
13997 EE0B CE 10 16 ... ldx #1016
13998 EE0E 1D 01 FF .. bclr 01,x, #ff
13999 EE11 CC 05 DC ... ldd #05dc ; 1500
14000 EE14 BD E5 71 ... jsr e571 ;msdelay
14005 EE19 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
14007 ; this the diagnostic function activated when the "test harness"
14009 EE1C CE 10 16 ... ldx #1016
14010 EE1F 1D 01 .. bclr 01,x, #ff
14011 EE21 CE 10 16 .. ldx #1016
14012 EE25 1C 01 5A ... bset 01,x, #5A
14013 EE28 F6 10 16 ... ldab 1016
14014 EE2B 26 0C &. bne 0c ; to ee39
14015 EE2D CC B1 4F ..O ldd #b14f ;"RAM FAIL"
14016 EE30 BD C0 BA ... jsr c0ba ;display:
14017 EE33 CC 05 DC ... ldd #05dc
14018 EE36 BD E5 71 ..q jsr e571 ;msdelay
14020 EE39 C6 04 .. ldab #04
14021 EE3B F7 00 1C ... stab 001c
14023 EE3E F6 00 1C ... ldab 001c
14024 EE41 C1 07 .. cmpb #07
14025 EE43 24 57 $W bcc 57 ; to ee9c (break out)
14026 EE45 F6 00 1C ... ldab 001c
14028 EE49 C3 B1 23 ..# addd #b123 ; power of 2
14030 EE4D E6 00 .. ldab 00,x
14032 EE50 F4 00 1A ... andb 001a
14033 EE53 F7 00 1A ... stab 001a
14034 EE56 F6 00 1A ... ldab 001a
14035 EE59 F7 30 00 .0. stab 3000 ; set coin bit active (low)
14036 EE5C CC 00 0A ... ldd #000a
14037 EE5F BD E5 71 ..q jsr e571 ;msdelay
14038 EE62 F6 18 00 ... ldab 1800
14039 EE65 2C 07 ,. bge 07 ; to ee6e
14040 EE67 CC B1 5A ..Z ldd #b15a ; "P2 FAIL"
14041 EE6A 8D 97 .. bsr dest 97 ; display to ee03
14042 EE6C 20 2E . bra 2e ; to ee9c
14043 EE6E F6 00 1C ... ldab 001c
14045 EE72 C3 B1 23 ..# addd #b123 ; powers of 2
14047 EE76 E6 00 .. ldab 00,x
14048 EE78 FA 00 1A ... orb 001a
14049 EE7B F7 00 1A ... stab 001a
14050 EE7E F6 00 1A ... ldab 001a
14051 EE81 F7 30 00 .0. stab 3000 ; set coin bit inactive (high)
14052 EE84 CC 00 0A ... ldd #000a
14053 EE87 BD E5 71 ..q jsr e571 ;msdelay
14054 EE8A F6 18 00 ... ldab 1800 ; if changer int'
14055 EE8D 2D 08 -. blt 08 ; ee97
14056 EE8F CC B1 5A ..Z ldd #b15a ; "P2 FAIL"
14057 EE92 BD EE 03 ... jsr ee03 ;jump36
14058 EE95 20 05 . bra 05 ; to ee9c
14059 EE97 7C 00 1C |.. inc 001c
14060 EE9A 20 A2 . bra a2 ; to ee3e
14062 EE9C CE 10 00 ... ldx #1000
14063 EE9F 1C 00 08 ... bset 00,x, #08 ; talk to coin mech
14064 EEA2 CE 10 08 ... ldx #1008
14065 EEA5 1C 00 02 ... bset 00,x, #02 ; set rx of sci
14066 EEA8 CE 00 1A ... ldx #001a
14067 EEAB 1C 00 40 ... bset 00,x, #40
14068 EEAE F6 00 1A ... ldab 001a
14069 EEB1 F7 30 00 .0. stab 3000 ; unset $1.00 line
14070 EEB4 CC 00 0A ... ldd #000a
14071 EEB7 BD E5 71 ..q jsr e571 ;msdelay
14072 EEBA F6 10 08 ... ldab 1008
14073 EEBD C4 01 .. andb #01 ; tests tx of sci
14074 EEBF 26 06 &. bne 06 ; to eec7
14075 EEC1 CC B1 5A ..Z ldd #b15a ; "P2 FAIL"
14076 EEC4 BD EE 03 ... jsr ee03 ;jump36
14077 EEC7 CE 00 1A ... ldx #001a
14078 EECA 1D 00 40 ... bclr 00,x, #40
14079 EECD F6 00 1A ... ldab 001a
14080 EED0 F7 30 00 .0. stab 3000 ; set $1.00 line
14081 EED3 CC 00 0A ... ldd #000a
14082 EED6 BD E5 71 ..q jsr e571 ;msdelay
14084 EED9 F6 10 08 ... ldab 1008
14085 EEDC C4 01 .. andb #01 ; tests txt of sci
14086 EEDE 27 06 '. beq 06 ; to eee6
14087 EEE0 CC B1 5A ..Z ldd #b15a ; "P2 FAIL"
14088 EEE3 BD EE 03 ... jsr ee03 ;jump36
14089 EEE6 CE 00 1A ... ldx #001a
14090 EEE9 1C 00 02 ... bset 00,x, #02
14091 EEEC F6 00 1A ... ldab 001a
14092 EEEF F7 30 00 .0. stab 3000 ; ditto for $0.25
14093 EEF2 CC 00 0A ... ldd #000a
14094 EEF5 BD E5 71 ..q jsr e571 ;msdelay
14095 EEF8 F6 10 00 ... ldab 1000
14096 EEFB C4 04 .. andb #04
14097 EEFD 26 06 &. bne 06
14098 EEFF CC B1 65 ..e ldd #b165
14099 EF02 BD EE 03 ... jsr ee03 ;jump36
14100 EF05 CE 00 1A ... ldx #001a
14101 EF08 1D 00 02 ... bclr 00,x, #02
14102 EF0B F6 00 1A ... ldab 001a
14103 EF0E F7 30 00 .0. stab 3000 ; ditto for $0.25
14104 EF11 CC 00 0A ... ldd #000a
14105 EF14 BD E5 71 ..q jsr e571 ;msdelay
14107 EF17 F6 10 00 ... ldab 1000
14108 EF1A C4 04 .. andb #04 ; coin dispenser pin6
14109 EF1C 27 06 '. beq 06
14110 EF1E CC B1 65 ..e ldd #b165 ; "P2-P3 FAIL"
14111 EF21 BD EE 03 ... jsr ee03 ;jump36
14112 EF24 CE 00 1A ... ldx #001a
14113 EF27 1C 00 01 ... bset 00,x, #01
14114 EF2A F6 00 1A ... ldab 001a
14115 EF2D F7 30 00 .0. stab 3000 ; send line of changer
14116 EF30 CC 00 0A ... ldd #000a
14117 EF33 BD E5 71 ..q jsr e571 ;msdelay
14119 EF36 F6 18 00 ... ldab 1800
14120 EF39 C4 20 . andb #20 ; test door switch
14121 EF3B 26 06 &. bne 06
14122 EF3D CC B1 70 ..p ldd #b170 ; "P2-P8 FAIL"
14123 EF40 BD EE 03 ... jsr ee03 ;jump36
14124 EF43 CE 00 1A ... ldx #001a
14125 EF46 1D 00 01 ... bclr 00,x, #01
14126 EF49 F6 00 1A ... ldab 001a
14127 EF4C F7 30 00 .0. stab 3000 ; unset send line of changer
14128 EF4F CC 00 0A ... ldd #000a
14129 EF52 BD E5 71 ..q jsr e571 ;msdelay
14130 EF55 F6 18 00 ... ldab 1800
14131 EF58 C4 20 . andb #20 ; test door again?
14132 EF5A 27 06 '. beq 06
14133 EF5C CC B1 70 ..p ldd #b170 ; "P2-P8 FAIL"
14134 EF5F BD EE 03 ... jsr ee03 ;jump36
14135 EF62 CE 00 1A ... ldx #001a
14136 EF65 1C 00 04 ... bset 00,x, #04 ; reset changer
14137 EF68 F6 00 1A ... ldab 001a
14138 EF6B F7 30 00 .0. stab 3000
14139 EF6E CC 00 0A ... ldd #000a
14140 EF71 BD E5 71 ..q jsr e571 ;msdelay
14141 EF74 F6 10 0A ... ldab 100a
14142 EF77 C4 04 .. andb #04 ; test no-sale switch
14143 EF79 26 06 &. bne 06
14144 EF7B CC B1 7B ..{ ldd #b17b ; "P2-P9 FAIL"
14145 EF7E BD EE 03 ... jsr ee03 ;jump36
14146 EF81 CE 00 1A ... ldx #001a
14147 EF84 1D 00 04 ... bclr 00,x, #04
14148 EF87 F6 00 1A ... ldab 001a
14149 EF8A F7 30 00 .0. stab 3000 ;snack motor drivers serial data is bit 7
14150 EF8D CC 00 0A ... ldd #000a
14151 EF90 BD E5 71 ..q jsr e571 ;msdelay
14152 EF93 F6 10 0A ... ldab 100a
14153 EF96 C4 04 .. andb #04
14154 EF98 27 06 '. beq 06
14155 EF9A CC B1 7B ..{ ldd #b17b ; "P2-P9 FAIL"
14156 EF9D BD EE 03 ... jsr ee03 ;jump36
14157 EFA0 CE 10 00 ... ldx #1000
14158 EFA3 1C 00 08 ... bset 00,x, #08
14159 EFA6 CE 00 1A ... ldx #001a
14160 EFA9 1C 00 40 ... bset 00,x, #40
14161 EFAC F6 00 1A ... ldab 001a
14162 EFAF F7 30 00 .0. stab 3000
14163 EFB2 CE 10 08 ... ldx #1008
14164 EFB5 1C 00 02 ... bset 00,x, #02 ; keypad data
14165 EFB8 CC 00 0A ... ldd #000a
14166 EFBB BD E5 71 ..q jsr e571 ;msdelay
14167 EFBE F6 10 08 ... ldab 1008
14168 EFC1 C4 01 .. andb #01
14169 EFC3 26 06 &. bne 06
14170 EFC5 CC B1 86 ... ldd #b186 ; "P3-P4 FAIL"
14171 EFC8 BD EE 03 ... jsr ee03 ;jump36
14172 EFCB CE 10 08 ... ldx #1008
14173 EFCE 1D 00 02 ... bclr 00,x, #02
14174 EFD1 CC 00 0A ... ldd #000a
14175 EFD4 BD E5 71 ..q jsr e571 ;msdelay
14176 EFD7 F6 10 08 ... ldab 1008
14177 EFDA C4 01 .. andb #01
14178 EFDC 27 06 '. beq 06
14179 EFDE CC B1 86 ... ldd #b186 ; "P3-P4 FAIL"
14180 EFE1 BD EE 03 ... jsr ee03 ;jump36
14181 EFE4 CE 10 00 ... ldx #1000
14182 EFE7 1D 00 08 ... bclr 00,x, #08
14183 EFEA CE 10 08 ... ldx #1008
14184 EFED 1C 00 02 ... bset 00,x, #02
14185 EFF0 CC 00 0A ... ldd #000a
14186 EFF3 BD E5 71 ..q jsr e571 ;msdelay
14187 EFF6 F6 10 08 ... ldab 1008
14188 EFF9 C4 01 .. andb #01
14189 EFFB 26 06 &. bne 06
14190 EFFD CC B1 91 ... ldd #b191 ; "P5 FAIL"
14191 F000 BD EE 03 ... jsr ee03 ;jump36
14192 F003 CE 10 08 ... ldx #1008
14193 F006 1D 00 02 ... bclr 00,x, #02
14194 F009 CC 00 0A ... ldd #000a
14195 F00C BD E5 71 ..q jsr e571 ;msdelay
14196 F00F F6 10 08 ... ldab 1008
14197 F012 C4 01 .. andb #01
14198 F014 27 06 '. beq 06
14199 F016 CC B1 91 ... ldd #b191
14200 F019 BD EE 03 ... jsr ee03 ;jump36
14201 F01C CE 00 14 ... ldx #0014
14202 F01F 1C 00 .. bset add,x 00,x
14203 F021 20 F6 . bra f6
14206 F025 F7 38 00 .8. stab 3800
14207 F028 CC 00 0A ... ldd #000a
14208 F02B BD E5 71 ..q jsr e571 ;msdelay
14209 F02E F6 20 00 . . ldab 2000
14210 F031 C4 40 .@ andb #40
14211 F033 26 06 &. bne 06
14212 F035 CC B1 9C ... ldd #b19c
14213 F038 BD EE 03 ... jsr ee03 ;jump36
14214 F03B CE 00 14 ... ldx #0014
14215 F03E 1D 00 .. bclr add,x 00,x
14216 F040 20 F6 . bra f6
14219 F044 F7 38 00 .8. stab 3800
14220 F047 CC 00 0A ... ldd #000a
14221 F04A BD E5 71 ..q jsr e571 ;msdelay
14222 F04D F6 20 00 . . ldab 2000
14223 F050 C4 40 .@ andb #40
14224 F052 27 06 '. beq 06
14225 F054 CC B1 9C ... ldd #b19c
14226 F057 BD EE 03 ... jsr ee03 ;jump36
14227 F05A CE 00 14 ... ldx #0014
14228 F05D 1C 00 40 ... bset 00,x, #40
14229 F060 F6 00 14 ... ldab 0014
14230 F063 F7 38 00 .8. stab 3800
14231 F066 CC 00 0A ... ldd #000a
14232 F069 BD E5 71 ..q jsr e571 ;msdelay
14233 F06C F6 20 00 . . ldab 2000
14234 F06F 2C 06 ,. bge 06
14235 F071 CC B1 9C ... ldd #b19c
14236 F074 BD EE 03 ... jsr ee03 ;jump36
14237 F077 CE 00 14 ... ldx #0014
14238 F07A 1D 00 40 ... bclr 00,x, #40
14239 F07D F6 00 14 ... ldab 0014
14240 F080 F7 38 00 .8. stab 3800
14241 F083 CC 00 0A ... ldd #000a
14242 F086 BD E5 71 ..q jsr e571 ;msdelay
14243 F089 F6 20 00 . . ldab 2000
14244 F08C 2D 06 -. blt 06
14245 F08E CC B1 9C ... ldd #b19c
14246 F091 BD EE 03 ... jsr ee03 ;jump36
14247 F094 7F 00 61 ..a clr 0061
14248 F097 F6 00 61 ..a ldab 0061
14249 F09A C1 08 .. cmpb #08
14250 F09C 24 22 $" bcc 22
14251 F09E F6 00 61 ..a ldab 0061
14253 F0A2 C3 B1 C8 ... addd #b1c8
14255 F0A6 E6 00 .. ldab 00,x
14256 F0A8 F7 00 06 ... stab 0006
14257 F0AB BD D3 11 ... jsr d311 ;jump30 - test position exists
14258 F0AE 83 00 00 ... subd #0000
14259 F0B1 27 08 '. beq 08
14260 F0B3 CC B1 A7 ... ldd #b1a7
14261 F0B6 BD EE 03 ... jsr ee03 ;jump36
14262 F0B9 20 05 . bra 05
14263 F0BB 7C 00 61 |.a inc 0061
14264 F0BE 20 D7 . bra d7
14265 F0C0 7F 00 61 ..a clr 0061
14266 F0C3 F6 00 61 ..a ldab 0061
14267 F0C6 C1 08 .. cmpb #08
14268 F0C8 24 2B $+ bcc 2b
14269 F0CA F6 00 61 ..a ldab 0061
14271 F0CE C3 B1 C8 ... addd #b1c8
14273 F0D2 E6 00 .. ldab 00,x
14274 F0D4 F7 00 06 ... stab 0006
14275 F0D7 BD D1 3D ..= jsr d13d ;jump34 - motor on
14276 F0DA BD D5 70 ..p jsr d570 ;jump35
14277 F0DD 83 00 00 ... subd #0000
14278 F0E0 26 0B &. bne 0b
14279 F0E2 BD D1 05 ... jsr d105 ;motors_off
14280 F0E5 CC B1 B2 ... ldd #b1b2
14281 F0E8 BD EE 03 ... jsr ee03 ;jump36
14282 F0EB 20 08 . bra 08
14283 F0ED BD D1 05 ... jsr d105 ;motors_off
14284 F0F0 7C 00 61 |.a inc 0061
14285 F0F3 20 CE . bra ce
14286 F0F5 7F 00 61 ..a clr 0061
14287 F0F8 F6 00 61 ..a ldab 0061
14288 F0FB C1 05 .. cmpb #05
14289 F0FD 24 45 $E bcc 45
14290 F0FF F6 00 61 ..a ldab 0061
14292 F103 C3 B1 C8 ... addd #b1c8
14294 F107 E6 00 .. ldab 00,x
14295 F109 F7 00 06 ... stab 0006
14296 F10C BD D1 3D ..= jsr d13d ;jump34 - motor on
14297 F10F CC 00 0A ... ldd #000a
14298 F112 BD E5 71 ..q jsr e571 ;msdelay
14299 F115 F6 18 00 ... ldab 1800
14300 F118 C4 40 .@ andb #40
14301 F11A 26 0B &. bne 0b
14302 F11C BD D1 05 ... jsr d105 ;motors_off
14303 F11F CC B1 B2 ... ldd #b1b2
14304 F122 BD EE 03 ... jsr ee03 ;jump36
14305 F125 20 1D . bra 1d
14306 F127 BD D1 05 ... jsr d105 ;motors_off
14307 F12A CC 00 0A ... ldd #000a
14308 F12D BD E5 71 ..q jsr e571 ;msdelay
14309 F130 F6 18 00 ... ldab 1800
14310 F133 C4 40 .@ andb #40
14311 F135 27 08 '. beq 08
14312 F137 CC B1 B2 ... ldd #b1b2
14313 F13A BD EE 03 ... jsr ee03 ;jump36
14314 F13D 20 05 . bra 05
14315 F13F 7C 00 61 |.a inc 0061
14316 F142 20 B4 . bra b4
14317 F144 FC 10 16 ... ldd 1016
14318 F147 83 5A 5A .ZZ subd #5a5a
14319 F14A 26 0C &. bne 0c
14320 F14C CC B1 BD ... ldd #b1bd ; " PASSED "
14321 F14F BD C0 BA ... jsr c0ba ;display:
14322 F152 CC 05 DC ... ldd #05dc
14323 F155 BD E5 71 ..q jsr e571 ;msdelay
14324 F158 7E EE 1C ~.. jmp ee1c ;goto81
14326 ;send a byte to the printer?
14327 ;it calls c7e7, which does things with the serial port
14331 F15D F6 00 19 ... ldab 0019
14332 F160 C4 40 .@ andb #40
14333 F162 26 5B &[ bne 5b
14334 F164 C6 FF .. ldab #ff
14335 F166 F7 00 39 ..9 stab 0039
14336 F169 F6 20 00 . . ldab 2000
14337 F16C 2C 11 ,. bge 11
14338 F16E F6 20 00 . . ldab 2000
14339 F171 C4 40 .@ andb #40
14340 F173 27 0A '. beq 0a
14341 F175 F6 00 39 ..9 ldab 0039
14342 F178 27 05 '. beq 05
14343 F17A BD E6 1B ... jsr e61b ;jump4
14344 F17D 20 EA . bra ea
14345 F17F F6 00 39 ..9 ldab 0039
14346 F182 26 08 &. bne 08
14347 F184 CE 00 19 ... ldx #0019
14348 F187 1C 00 40 ... bset 00,x, #40
14349 F18A 20 33 3 bra 33
14350 F18C F6 20 00 . . ldab 2000
14351 F18F C4 40 .@ andb #40
14352 F191 27 2C ', beq 2c
14353 F193 F6 00 1D ... ldab 001d
14354 F196 C4 01 .. andb #01
14355 F198 27 1E '. beq 1e
14357 F19B E6 01 .. ldab 01,x
14358 F19D C1 30 .0 cmpb #30
14359 F19F 26 08 &. bne 08
14360 F1A1 CC 00 20 .. ldd #0020
14361 F1A4 BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
14362 F1A7 20 0D . bra 0d
14364 F1AA E6 01 .. ldab 01,x
14366 F1AD BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
14367 F1B0 CE 00 1D ... ldx #001d
14368 F1B3 1D 00 01 ... bclr 00,x, #01
14369 F1B6 20 07 . bra 07
14371 F1B9 E6 01 .. ldab 01,x
14373 F1BC BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
14380 F1C3 F6 20 00 . . ldab 2000
14381 F1C6 C4 40 .@ andb #40
14382 F1C8 27 1C '. beq 1c
14383 F1CA 7F 00 18 ... clr 0018
14384 F1CD F6 00 18 ... ldab 0018
14386 F1D1 E1 05 .. cmpb 05,x
14387 F1D3 24 11 $. bcc 11
14389 F1D6 EE 00 .. ldx 00,x
14390 F1D8 E6 00 .. ldab 00,x
14392 F1DB BD F1 5B ..[ jsr f15b ;jump53
14396 F1E1 7C 00 18 |.. inc 0018
14397 F1E4 20 E7 . bra e7
14401 ;send a string to the printer. D is a pointer to a string
14405 F1EA F6 20 00 . . ldab 2000
14406 F1ED C4 40 .@ andb #40
14407 F1EF 27 1B '. beq 1b
14408 F1F1 CC 00 20 .. ldd #0020
14409 F1F4 BD F1 5B ..[ jsr f15b ;jump53
14411 F1F8 EE 00 .. ldx 00,x
14412 F1FA E6 00 .. ldab 00,x
14413 F1FC 27 0E '. beq 0e
14415 F1FF EE 00 .. ldx 00,x
14416 F201 E6 00 .. ldab 00,x
14418 F204 BD F1 5B ..[ jsr f15b ;jump53
14422 F20A 20 EB . bra eb
14429 F210 F6 20 00 . . ldab 2000
14430 F213 C4 40 .@ andb #40
14431 F215 27 34 '4 beq 34
14432 F217 CE 00 1D ... ldx #001d
14433 F21A 1C 00 01 ... bset 00,x, #01
14435 F21E E6 01 .. ldab 01,x
14437 F221 BD E7 95 ... jsr e795 ;jump54 - number to string
14438 F224 F6 00 5D ..] ldab 005d
14440 F228 BD F1 5B ..[ jsr f15b ;jump53
14441 F22B F6 00 5E ..^ ldab 005e
14443 F22F BD F1 5B ..[ jsr f15b ;jump53
14444 F232 CE 00 1D ... ldx #001d
14445 F235 1D 00 01 ... bclr 00,x, #01
14446 F238 F6 00 5F .._ ldab 005f
14448 F23C BD F1 5B ..[ jsr f15b ;jump53
14449 F23F CC 00 20 .. ldd #0020
14450 F242 BD F1 5B ..[ jsr f15b ;jump53
14451 F245 CC 00 20 .. ldd #0020
14452 F248 BD F1 5B ..[ jsr f15b ;jump53
14459 F24F F6 20 00 . . ldab 2000
14460 F252 C4 40 .@ andb #40
14461 F254 27 41 'A beq 41
14462 F256 CE 00 1D ... ldx #001d
14463 F259 1C 00 01 ... bset 00,x, #01
14465 F25D EC 00 .. ldd 00,x
14466 F25F BD E7 45 ..E jsr e745 ;jump55 - number to string
14467 F262 F6 00 57 ..W ldab 0057
14469 F266 BD F1 5B ..[ jsr f15b ;jump53
14470 F269 F6 00 5A ..Z ldab 005a
14472 F26D BD F1 5B ..[ jsr f15b ;jump53
14473 F270 F6 00 5D ..] ldab 005d
14475 F274 BD F1 5B ..[ jsr f15b ;jump53
14476 F277 F6 00 5E ..^ ldab 005e
14478 F27B BD F1 5B ..[ jsr f15b ;jump53
14479 F27E CE 00 1D ... ldx #001d
14480 F281 1D 00 01 ... bclr 00,x, #01
14481 F284 F6 00 5F .._ ldab 005f
14483 F288 BD F1 5B ..[ jsr f15b ;jump53
14484 F28B CC 00 20 .. ldd #0020
14485 F28E BD F1 5B ..[ jsr f15b ;jump53
14486 F291 CC 00 20 .. ldd #0020
14487 F294 BD F1 5B ..[ jsr f15b ;jump53
14495 F29B F6 20 00 . . ldab 2000
14496 F29E C4 40 .@ andb #40
14497 F2A0 27 7B '{ beq 7b
14498 F2A2 F6 00 17 ... ldab 0017
14499 F2A5 C4 08 .. andb #08
14500 F2A7 26 06 &. bne 06
14501 F2A9 CC 00 24 ..$ ldd #0024
14502 F2AC BD F1 5B ..[ jsr f15b ;jump53
14503 F2AF CE 00 1D ... ldx #001d
14504 F2B2 1C 00 01 ... bset 00,x, #01
14506 F2B6 EC 00 .. ldd 00,x
14507 F2B8 BD E7 45 ..E jsr e745 ;jump55 - number to string
14508 F2BB F6 00 57 ..W ldab 0057
14510 F2BF BD F1 5B ..[ jsr f15b ;jump53
14511 F2C2 F6 00 5A ..Z ldab 005a
14513 F2C6 BD F1 5B ..[ jsr f15b ;jump53
14514 F2C9 F6 00 13 ... ldab 0013
14515 F2CC C1 08 .. cmpb #08
14516 F2CE 26 0C &. bne 0c
14517 F2D0 CC 00 2E ... ldd #002e
14518 F2D3 BD F1 5B ..[ jsr f15b ;jump53
14519 F2D6 CE 00 1D ... ldx #001d
14520 F2D9 1D 00 01 ... bclr 00,x, #01
14521 F2DC F6 00 5D ..] ldab 005d
14523 F2E0 BD F1 5B ..[ jsr f15b ;jump53
14524 F2E3 F6 00 13 ... ldab 0013
14525 F2E6 C1 04 .. cmpb #04
14526 F2E8 26 0C &. bne 0c
14527 F2EA CC 00 2E ... ldd #002e
14528 F2ED BD F1 5B ..[ jsr f15b ;jump53
14529 F2F0 CE 00 1D ... ldx #001d
14530 F2F3 1D 00 01 ... bclr 00,x, #01
14531 F2F6 F6 00 5E ..^ ldab 005e
14533 F2FA BD F1 5B ..[ jsr f15b ;jump53
14534 F2FD F6 00 13 ... ldab 0013
14535 F300 C1 02 .. cmpb #02
14536 F302 26 06 &. bne 06
14537 F304 CC 00 2E ... ldd #002e
14538 F307 BD F1 5B ..[ jsr f15b ;jump53
14539 F30A CE 00 1D ... ldx #001d
14540 F30D 1D 00 01 ... bclr 00,x, #01
14541 F310 F6 00 5F .._ ldab 005f
14543 F314 BD F1 5B ..[ jsr f15b ;jump53
14544 F317 CC 00 0A ... ldd #000a
14545 F31A BD F1 5B ..[ jsr f15b ;jump53
14554 F323 F6 20 00 . . ldab 2000
14555 F326 C4 40 .@ andb #40
14556 F328 26 03 &. bne 03
14557 F32A 7E F3 BC ~.. jmp f3bc ;goto82
14558 F32D F6 00 17 ... ldab 0017
14559 F330 C4 08 .. andb #08
14560 F332 26 06 &. bne 06
14561 F334 CC 00 24 ..$ ldd #0024
14562 F337 BD F1 5B ..[ jsr f15b ;jump53
14563 F33A CE 00 1D ... ldx #001d
14564 F33D 1C 00 01 ... bset 00,x, #01
14566 F341 EC 04 .. ldd 04,x
14569 F345 EC 02 .. ldd 02,x
14570 F347 BD E6 21 ..! jsr e621 ;jump56
14572 F34B C6 07 .. ldab #07
14573 F34D F7 00 18 ... stab 0018
14574 F350 F6 00 18 ... ldab 0018
14575 F353 C1 FF .. cmpb #ff
14576 F355 24 5F $_ bcc 5f
14577 F357 F6 00 18 ... ldab 0018
14579 F35B C3 0B 90 ... addd #0b90
14581 F35F E6 00 .. ldab 00,x
14583 F362 BD F1 5B ..[ jsr f15b ;jump53
14584 F365 F6 00 18 ... ldab 0018
14585 F368 C1 03 .. cmpb #03
14586 F36A 26 15 &. bne 15
14587 F36C F6 00 13 ... ldab 0013
14588 F36F C1 08 .. cmpb #08
14589 F371 26 0C &. bne 0c
14590 F373 CC 00 2E ... ldd #002e
14591 F376 BD F1 5B ..[ jsr f15b ;jump53
14592 F379 CE 00 1D ... ldx #001d
14593 F37C 1D 00 01 ... bclr 00,x, #01
14594 F37F 20 30 0 bra 30
14595 F381 C1 02 .. cmpb #02
14596 F383 26 15 &. bne 15
14597 F385 F6 00 13 ... ldab 0013
14598 F388 C1 04 .. cmpb #04
14599 F38A 26 0C &. bne 0c
14600 F38C CC 00 2E ... ldd #002e
14601 F38F BD F1 5B ..[ jsr f15b ;jump53
14602 F392 CE 00 1D ... ldx #001d
14603 F395 1D 00 01 ... bclr 00,x, #01
14604 F398 20 17 . bra 17
14605 F39A C1 01 .. cmpb #01
14606 F39C 26 13 &. bne 13
14607 F39E F6 00 13 ... ldab 0013
14608 F3A1 C1 02 .. cmpb #02
14609 F3A3 26 06 &. bne 06
14610 F3A5 CC 00 2E ... ldd #002e
14611 F3A8 BD F1 5B ..[ jsr f15b ;jump53
14612 F3AB CE 00 1D ... ldx #001d
14613 F3AE 1D 00 01 ... bclr 00,x, #01
14614 F3B1 7A 00 18 z.. dec 0018
14615 F3B4 20 9A . bra 9a
14616 F3B6 CC 00 0A ... ldd #000a
14617 F3B9 BD F1 5B ..[ jsr f15b ;jump53
14622 F3BF 6E 00 n. jmp 00,x
14627 F3C3 F6 20 00 . . ldab 2000
14628 F3C6 C4 40 .@ andb #40
14629 F3C8 27 49 'I beq 49
14630 F3CA CC B4 71 ..q ldd #b471 " CODE "
14631 F3CD BD F1 E8 ... jsr f1e8 ;jump57
14633 F3D1 E6 01 .. ldab 01,x
14635 F3D4 CE 00 0A ... ldx #000a
14638 F3D9 CB 30 .0 addb #30
14639 F3DB F7 00 5E ..^ stab 005e
14641 F3DF E6 01 .. ldab 01,x
14643 F3E2 CE 00 0A ... ldx #000a
14645 F3E6 CB 30 .0 addb #30
14646 F3E8 F7 00 5F .._ stab 005f ;5e and 5f now param in ascii
14647 F3EB F6 00 5E ..^ ldab 005e
14649 F3EF BD F1 5B ..[ jsr f15b ;jump53
14650 F3F2 F6 00 5F .._ ldab 005f
14652 F3F6 BD F1 5B ..[ jsr f15b ;jump53
14653 F3F9 CC B4 7B ..{ ldd #b47b "VENDS - "
14654 F3FC BD F1 E8 ... jsr f1e8 ;jump57
14656 F400 E6 01 .. ldab 01,x
14659 F404 C3 0D 1F ... addd #0d1f
14661 F408 EC 00 .. ldd 00,x
14662 F40A BD F2 4D ..M jsr f24d ;jump58
14663 F40D CC 00 0A ... ldd #000a
14664 F410 BD F1 5B ..[ jsr f15b ;jump53
14669 F415 F6 0B C0 ... ldab 0bc0
14670 F418 C4 02 .. andb #02
14671 F41A 27 15 '. beq 15
14672 F41C CE 00 21 ..! ldx #0021
14673 F41F 1C 00 .. bset 00,x, #80
14674 F421 F6 00 1D .. ldab 001d
14675 F424 C4 02 .. andb #02
14676 F427 27 02 '. beq 02
14677 F429 20 F7 . bra f7
14678 F42B CE 00 21 ..! ldx #0021
14679 F42E 1D 00 .. bclr 00,x, #80
14680 F430 C6 10 .. ldab #10
14681 F433 F7 10 2C .., stab 102c ; set 9N1
14682 F436 C6 2E .. ldab #2e
14683 F438 F7 10 2D ..- stab 102d ; enable SCI transmission
14684 F43B C6 05 .. ldab #05
14685 F43D F7 10 2B ..+ stab 102b ; 2400 baud
14686 F440 CC 03 E8 ... ldd #03e8
14687 F443 BD E5 71 ..q jsr e571 ;msdelay
14688 F446 CE 10 00 ... ldx #1000
14689 F449 1D 00 08 ... bclr 00,x, #08 ; talk to ze printer
14690 F44C CE 00 19 ... ldx #0019
14691 F44F 1D 00 40 ... bclr 00,x, #40
14692 F452 CE 00 1D ... ldx #001d
14693 F455 1D 00 01 ... bclr 00,x, #01
14694 F458 CC 00 18 ... ldd #0018
14695 F45B BD F1 5B ..[ jsr f15b ;jump53
14696 F45E CC B2 1B ... ldd #b21b " ROWE INTERNATIONAL"
14697 F461 BD F1 E8 ... jsr f1e8 ;jump57
14698 F464 CC 00 0A ... ldd #000a
14699 F467 BD F1 5B ..[ jsr f15b ;jump53
14700 F46A CC B2 38 ..8 ldd #b238 " -------------------"
14701 F46D BD F1 E8 ... jsr f1e8 ;jump57
14702 F470 CC 00 0A ... ldd #000a
14703 F473 BD F1 5B ..[ jsr f15b ;jump53
14704 F476 CC B2 56 ..V ldd #b256
14705 F479 BD F1 E8 ... jsr f1e8 ;jump57
14706 F47C CC 00 0A ... ldd #000a
14707 F47F BD F1 5B ..[ jsr f15b ;jump53
14708 F482 CC 00 0A ... ldd #000a
14709 F485 BD F1 5B ..[ jsr f15b ;jump53
14710 F488 CC B2 75 ..u ldd #b275
14711 F48B BD F1 E8 ... jsr f1e8 ;jump57
14712 F48E CC 00 0A ... ldd #000a
14713 F491 BD F1 5B ..[ jsr f15b ;jump53
14714 F494 CC B2 38 ..8 ldd #b238
14715 F497 BD F1 E8 ... jsr f1e8 ;jump57
14716 F49A CC 00 0A ... ldd #000a
14717 F49D BD F1 5B ..[ jsr f15b ;jump53
14718 F4A0 CC 00 0A ... ldd #000a
14719 F4A3 BD F1 5B ..[ jsr f15b ;jump53
14720 F4A6 CC B2 90 ... ldd #b290
14721 F4A9 BD F1 E8 ... jsr f1e8 ;jump57
14722 F4AC CE 00 0A ... ldx #000a
14724 F4B0 CC 0C BC ... ldd #0cbc
14725 F4B3 BD F1 C1 ... jsr f1c1 ;jump59
14727 F4B7 CC 00 0A ... ldd #000a
14728 F4BA BD F1 5B ..[ jsr f15b ;jump53
14729 F4BD CC B2 A2 ... ldd #b2a2 ; "MACHINE ID"
14730 F4C0 BD F1 E8 ... jsr f1e8 ;jump57
14731 F4C3 CE 00 0A ... ldx #000a
14733 F4C7 CC 0C CC ... ldd #0ccc
14734 F4CA BD F1 C1 ... jsr f1c1 ;jump59
14736 F4CE CC 00 0A ... ldd #000a
14737 F4D1 BD F1 5B ..[ jsr f15b ;jump53
14738 F4D4 CC B2 B4 ... ldd #b2b4
14739 F4D7 BD F1 E8 ... jsr f1e8 ;jump57
14740 F4DA FC 0C E7 ... ldd 0ce7
14741 F4DD BD F2 4D ..M jsr f24d ;jump58
14742 F4E0 CC 00 0A ... ldd #000a
14743 F4E3 BD F1 5B ..[ jsr f15b ;jump53
14744 F4E6 CC 00 0A ... ldd #000a
14745 F4E9 BD F1 5B ..[ jsr f15b ;jump53
14746 F4EC CC B2 C6 ... ldd #b2c6
14747 F4EF BD F1 E8 ... jsr f1e8 ;jump57
14748 F4F2 FE 0D E9 ... ldx 0de9
14750 F4F6 FC 0D E7 ... ldd 0de7
14751 F4F9 BD F3 1F ... jsr f31f ;jump60
14753 F4FD CC B2 D8 ... ldd #b2d8
14754 F500 BD F1 E8 ... jsr f1e8 ;jump57
14755 F503 FE 0D ED ... ldx 0ded
14757 F507 FC 0D EB ... ldd 0deb
14758 F50A BD F3 1F ... jsr f31f ;jump60
14760 F50E CC B2 EA ... ldd #b2ea
14761 F511 BD F1 E8 ... jsr f1e8 ;jump57
14762 F514 FE 0D F1 ... ldx 0df1
14764 F518 FC 0D EF ... ldd 0def
14765 F51B BD F3 1F ... jsr f31f ;jump60
14767 F51F CC B2 FC ... ldd #b2fc
14768 F522 BD F1 E8 ... jsr f1e8 ;jump57
14769 F525 FE 0D F9 ... ldx 0df9
14771 F529 FC 0D F7 ... ldd 0df7
14772 F52C BD F3 1F ... jsr f31f ;jump60
14774 F530 CC B3 0E ... ldd #b30e
14775 F533 BD F1 E8 ... jsr f1e8 ;jump57
14776 F536 FE 0D FD ... ldx 0dfd
14778 F53A FC 0D FB ... ldd 0dfb
14779 F53D BD F3 1F ... jsr f31f ;jump60
14781 F541 CC 00 0A ... ldd #000a
14782 F544 BD F1 5B ..[ jsr f15b ;jump53
14783 F547 CC B3 20 .. ldd #b320
14784 F54A BD F1 E8 ... jsr f1e8 ;jump57
14785 F54D CC 00 0A ... ldd #000a
14786 F550 BD F1 5B ..[ jsr f15b ;jump53
14787 F553 CC B3 31 ..1 ldd #b331
14788 F556 BD F1 E8 ... jsr f1e8 ;jump57
14789 F559 FE 0D F5 ... ldx 0df5
14791 F55D FC 0D F3 ... ldd 0df3
14792 F560 BD F3 1F ... jsr f31f ;jump60
14794 F564 CC B3 4A ..J ldd #b34a
14795 F567 BD F1 E8 ... jsr f1e8 ;jump57
14796 F56A FC 0C DD ... ldd 0cdd
14797 F56D BD F2 4D ..M jsr f24d ;jump58
14798 F570 FE 0C F5 ... ldx 0cf5
14800 F574 FC 0C F3 ... ldd 0cf3
14801 F577 BD F3 1F ... jsr f31f ;jump60
14803 F57B CC B3 5C ..\ ldd #b35c
14804 F57E BD F1 E8 ... jsr f1e8 ;jump57
14805 F581 FC 0C DF ... ldd 0cdf
14806 F584 BD F2 4D ..M jsr f24d ;jump58
14807 F587 FE 0C F9 ... ldx 0cf9
14809 F58B FC 0C F7 ... ldd 0cf7
14810 F58E BD F3 1F ... jsr f31f ;jump60
14812 F592 CC B3 6E ..n ldd #b36e
14813 F595 BD F1 E8 ... jsr f1e8 ;jump57
14814 F598 FC 0C E1 ... ldd 0ce1
14815 F59B BD F2 4D ..M jsr f24d ;jump58
14816 F59E FE 0C FD ... ldx 0cfd
14818 F5A2 FC 0C FB ... ldd 0cfb
14819 F5A5 BD F3 1F ... jsr f31f ;jump60
14821 F5A9 CC B3 80 ... ldd #b380
14822 F5AC BD F1 E8 ... jsr f1e8 ;jump57
14823 F5AF FC 0C E3 ... ldd 0ce3
14824 F5B2 BD F2 4D ..M jsr f24d ;jump58
14825 F5B5 FE 0D 01 ... ldx 0d01
14827 F5B9 FC 0C FF ... ldd 0cff
14828 F5BC BD F3 1F ... jsr f31f ;jump60
14830 F5C0 CC B3 92 ... ldd #b392
14831 F5C3 BD F1 E8 ... jsr f1e8 ;jump57
14832 F5C6 FC 0C E5 ... ldd 0ce5
14833 F5C9 BD F2 4D ..M jsr f24d ;jump58
14834 F5CC FE 0D 05 ... ldx 0d05
14836 F5D0 FC 0D 03 ... ldd 0d03
14837 F5D3 BD F3 1F ... jsr f31f ;jump60
14839 F5D7 CC 00 0A ... ldd #000a
14840 F5DA BD F1 5B ..[ jsr f15b ;jump53
14841 F5DD CC B3 A4 ... ldd #b3a4
14842 F5E0 BD F1 E8 ... jsr f1e8 ;jump57
14843 F5E3 CC 00 0A ... ldd #000a
14844 F5E6 BD F1 5B ..[ jsr f15b ;jump53
14845 F5E9 CC B3 B3 ... ldd #b3b3
14846 F5EC BD F1 E8 ... jsr f1e8 ;jump57
14847 F5EF FC 0C F1 ... ldd 0cf1
14848 F5F2 BD F2 99 ... jsr f299 ;jump61
14849 F5F5 CC B3 CA ... ldd #b3ca
14850 F5F8 BD F1 E8 ... jsr f1e8 ;jump57
14851 F5FB F6 0C DC ... ldab 0cdc
14853 F5FF BD F2 0E ... jsr f20e ;jump62
14854 F602 FC 0C E9 ... ldd 0ce9
14855 F605 BD F2 99 ... jsr f299 ;jump61
14856 F608 CC B3 DC ... ldd #b3dc
14857 F60B BD F1 E8 ... jsr f1e8 ;jump57
14858 F60E F6 0C DB ... ldab 0cdb
14860 F612 BD F2 0E ... jsr f20e ;jump62
14861 F615 FC 0C EB ... ldd 0ceb
14862 F618 BD F2 99 ... jsr f299 ;jump61
14863 F61B CC B3 EE ... ldd #b3ee
14864 F61E BD F1 E8 ... jsr f1e8 ;jump57
14865 F621 F6 0C DA ... ldab 0cda
14867 F625 BD F2 0E ... jsr f20e ;jump62
14868 F628 FC 0C ED ... ldd 0ced
14869 F62B BD F2 99 ... jsr f299 ;jump61
14870 F62E CC B4 00 ... ldd #b400
14871 F631 BD F1 E8 ... jsr f1e8 ;jump57
14872 F634 F6 0C D9 ... ldab 0cd9
14874 F638 BD F2 0E ... jsr f20e ;jump62
14875 F63B FC 0C EF ... ldd 0cef
14876 F63E BD F2 99 ... jsr f299 ;jump61
14877 F641 CC 00 0A ... ldd #000a
14878 F644 BD F1 5B ..[ jsr f15b ;jump53
14879 F647 CC B4 12 ... ldd #b412
14880 F64A BD F1 E8 ... jsr f1e8 ;jump57
14881 F64D FC 0D 07 ... ldd 0d07
14882 F650 BD F2 4D ..M jsr f24d ;jump58
14883 F653 FE 0D 11 ... ldx 0d11
14885 F657 FC 0D 0F ... ldd 0d0f
14886 F65A BD F3 1F ... jsr f31f ;jump60
14888 F65E CC B4 24 ..$ ldd #b424
14889 F661 BD F1 E8 ... jsr f1e8 ;jump57
14890 F664 FC 0D 09 ... ldd 0d09
14891 F667 BD F2 4D ..M jsr f24d ;jump58
14892 F66A FE 0D 15 ... ldx 0d15
14894 F66E FC 0D 13 ... ldd 0d13
14895 F671 BD F3 1F ... jsr f31f ;jump60
14897 F675 CC B4 36 ..6 ldd #b436
14898 F678 BD F1 E8 ... jsr f1e8 ;jump57
14899 F67B FC 0D 0B ... ldd 0d0b
14900 F67E BD F2 4D ..M jsr f24d ;jump58
14901 F681 FE 0D 19 ... ldx 0d19
14903 F685 FC 0D 17 ... ldd 0d17
14904 F688 BD F3 1F ... jsr f31f ;jump60
14906 F68C CC B4 48 ..H ldd #b448
14907 F68F BD F1 E8 ... jsr f1e8 ;jump57
14908 F692 FC 0D 0D ... ldd 0d0d
14909 F695 BD F2 4D ..M jsr f24d ;jump58
14910 F698 FE 0D 1D ... ldx 0d1d
14912 F69C FC 0D 1B ... ldd 0d1b
14913 F69F BD F3 1F ... jsr f31f ;jump60
14915 F6A3 CC 00 0A ... ldd #000a
14916 F6A6 BD F1 5B ..[ jsr f15b ;jump53
14917 F6A9 CC B4 5A ..Z ldd #b45a
14918 F6AC BD F1 E8 ... jsr f1e8 ;jump57
14919 F6AF CC 00 0A ... ldd #000a
14920 F6B2 BD F1 5B ..[ jsr f15b ;jump53
14921 F6B5 C6 01 .. ldab #01
14922 F6B7 F7 00 54 ..T stab 0054
14923 F6BA F6 00 54 ..T ldab 0054
14924 F6BD C1 63 .c cmpb #63
14925 F6BF 22 1B ". bhi 1b
14926 F6C1 F6 00 54 ..T ldab 0054
14929 F6C6 C3 08 C8 ... addd #08c8
14931 F6CA EC 00 .. ldd 00,x
14932 F6CC C4 80 .. andb #80
14933 F6CE 27 07 '. beq 07
14934 F6D0 F6 00 54 ..T ldab 0054
14936 F6D4 BD F3 C1 ... jsr f3c1 ;jump63
14937 F6D7 7C 00 54 |.T inc 0054
14938 F6DA 20 DE . bra de
14939 F6DC CC 00 0A ... ldd #000a
14940 F6DF BD F1 5B ..[ jsr f15b ;jump53
14941 F6E2 F6 00 19 ... ldab 0019
14942 F6E5 C4 40 .@ andb #40
14943 F6E7 26 07 &. bne 07
14944 F6E9 FE 0C E7 ... ldx 0ce7
14946 F6ED FF 0C E7 ... stx 0ce7
14947 F6F0 CE 00 1D ... ldx #001d
14948 F6F3 1D 00 01 ... bclr 00,x, #01
14949 F6F6 CC 03 E8 ... ldd #03e8
14950 F6F9 BD E5 71 ..q jsr e571 ;msdelay
14951 F6FC C6 03 .. ldab #03
14952 F6FE F7 10 2B ..+ stab 102b ; back to 9600 baud
14953 F701 CE 10 00 ... ldx #1000
14954 F704 1C 00 08 ... bset 00,x, #08 ; set back to coin mech
14955 F707 F6 0B C0 ... ldab 0bc0
14956 F70A C4 02 .. andb #02
14957 F70C 27 06 '. beq 06
14958 F70E CC 00 80 ... ldd #0080
14959 F711 BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
14960 F714 7F 00 38 ..8 clr 0038
14965 F719 F6 0B C0 ... ldab 0bc0
14966 F71C C4 08 .. andb #08
14967 F71E 27 03 '. beq 03
14968 F720 BD C3 25 ..% jsr c325 ;jump64
14969 F723 7C 00 0C |.. inc 000c
14970 F726 F6 00 0C ... ldab 000c
14971 F729 C1 02 .. cmpb #02
14972 F72B 26 13 &. bne 13
14973 F72D 7F 00 0C ... clr 000c
14974 F730 F6 00 07 ... ldab 0007
14975 F733 27 03 '. beq 03
14976 F735 7A 00 07 z.. dec 0007
14977 F738 F6 00 00 ... ldab 0000
14978 F73B 27 03 '. beq 03
14979 F73D 7A 00 00 z.. dec 0000
14980 F740 7C 00 0B |.. inc 000b
14981 F743 F6 00 0B ... ldab 000b
14982 F746 C1 08 .. cmpb #08
14983 F748 26 37 &7 bne 37 ; to f781
14984 F74A 7F 00 0B ... clr 000b
14985 F74D FC 00 3B ..; ldd 003b
14986 F750 27 07 '. beq 07
14987 F752 FE 00 3B ..; ldx 003b
14989 F756 FF 00 3B ..; stx 003b
14990 F759 CC 00 2C .., ldd #002c
14992 F75D ED 00 .. std 00,x
14994 F760 EC 00 .. ldd 00,x
14997 F764 CC 00 3A ..: ldd #003a
14999 F768 A3 00 .. subd 00,x
15002 F76C 25 13 %. bcs 13
15004 F76F EE 00 .. ldx 00,x
15005 F771 E6 00 .. ldab 00,x
15006 F773 27 07 '. beq 07
15008 F776 EE 00 .. ldx 00,x
15009 F778 6A 00 j. dec 00,x
15010 F77A E6 00 .. ldab 00,x
15014 F77F 20 DE . bra de ; to f75f
15016 F781 F6 00 32 ..2 ldab 0032
15017 F784 27 07 '. beq 07 ; to f78d
15018 F786 F6 00 32 ..2 ldab 0032
15019 F789 C4 02 .. andb #02
15020 F78B 26 08 &. bne 08 ; to f795
15022 F78D CE 10 00 ... ldx #1000 ; chime off
15023 F790 1D 00 10 .. bclr 00,x, #10
15024 F793 20 0D . bra 0d ; to f7a2
15026 F795 F6 00 32 ..2 ldab 0032
15027 F798 C4 01 .. andb #01
15028 F79A 26 06 &. bne 06 ; to f7a2
15029 F79C CE 10 00 ... ldx #1000 ; chime on
15030 F79F 1C 00 10 .. bset 00,x, #10
15032 F7A2 7C 00 4C |.L inc 004c
15033 F7A5 F6 00 4C ..L ldab 004c
15034 F7A8 C1 4B .K cmpb #4b
15035 F7AA 26 13 &. bne 13 ; to f7bf
15036 F7AC 7F 00 4C ..L clr 004c
15037 F7AF F6 00 4F ..O ldab 004f
15038 F7B2 27 03 '. beq 03
15039 F7B4 7A 00 4F z.O dec 004f
15041 F7B7 F6 00 25 ..% ldab 0025
15042 F7BA 27 03 '. beq 03
15043 F7BC 7A 00 25 z.% dec 0025
15045 F7BF F6 00 31 ..1 ldab 0031
15046 F7C2 26 03 &. bne 03
15047 F7C4 BD FE 69 ..i jsr fe69 ;reset
15049 F7C7 F6 00 7F ... ldab 007f
15050 F7CA 27 03 '. beq 03
15051 F7CC BD FE 69 ..i jsr fe69 ;reset
15053 F7CF C6 40 .@ ldab #40
15054 F7D1 F7 10 25 ..% stab 1025 ; notify end of RTI period
15060 F7D6 7F 00 14 ... clr 0014 ;0 -> 0014
15062 ; clears the bits of U14 flipflop
15063 F7D9 5F _ clrb ;0 -> B
15064 F7DA F7 38 00 .8. stab 3800 ;B -> 3800
15066 F7DD C6 7F .. ldab #7f ;7F -> B
15067 F7DF F7 00 1A ... stab 001a ;B -> 001a
15069 ; set changer outputs all on, row motors off
15070 F7E2 C6 7F .. ldab #7f ;7F -> B
15071 F7E4 F7 30 00 .0. stab 3000 ;
15073 ; sets priority select bits 0-3 (elevates interrupt priority of all interrupts)
15074 F7E7 C6 07 .. ldab #07 ;7 -> B
15075 F7E9 F7 10 3C ..< stab 103c
15077 ; Set PA7 output, PA3 input, RT clock rate to 314 Hz (4.9152Mhz / 2^14)
15078 F7EC C6 81 .. ldab #81 ;81 -> B
15079 F7EE F7 10 26 ..& stab 1026
15081 ; clear ADC register
15082 F7F1 5F _ clrb ;0 -> B
15083 F7F2 F7 10 30 ..0 stab 1030
15085 ; talk to coin mech, beep, tie clock motors & display reset high (off)
15086 F7F5 C6 C8 .. ldab #c8 ;c8 -> B ; 11001000
15087 F7F7 F7 10 00 ... stab 1000 ; to port A
15089 ; sets PortD directions. XXX: Why is PD2 an output?
15090 F7FA C6 3E .> ldab #3e ;3e -> B 00111110
15091 F7FC F7 10 09 ... stab 1009 ; port D DDR
15093 ; make PortD pins open-drain, set clock polarity
15094 F7FF C6 12 .. ldab #12 ;12 -> B
15095 F801 F7 10 28 ..( stab 1028 ; SPCR 00101000
15097 ; initialize the display
15098 F804 BD BE 69 ..i jsr be69 ;displayreset
15100 ; initialize the bill validator & more stuff
15101 F807 BD EA 59 ..Y jsr ea59 ;jump65
15103 F80A CC 00 64 ..d ldd #0064 ; 100-unit delay
15104 F80D BD E5 71 ..q jsr e571 ;msdelay
15106 F810 CC B1 EF ... ldd #b1ef " ROWE INT "
15107 F813 BD C0 BA ... jsr c0ba ;display:
15108 F816 CC 01 F4 ... ldd #01f4 ; 500-unit delay
15109 F819 BD E5 71 ..q jsr e571 ;msdelay
15110 F81C CC B1 FA ... ldd #b1fa "COPYRIGHT "
15111 F81F BD C0 BA ... jsr c0ba ;display:
15112 F822 CC 01 F4 ... ldd #01f4
15113 F825 BD E5 71 ..q jsr e571 ;msdelay
15114 F828 CC B2 05 ... ldd #b205 " 1993 "
15115 F82B BD C0 BA ... jsr c0ba ;display:
15116 F82E CC 01 F4 ... ldd #01f4
15117 F831 BD E5 71 ..q jsr e571 ;msdelay
15118 F834 CC B2 10 ... ldd #b210 "5900 VER 5"
15119 F837 BD C0 BA ... jsr c0ba ;display:
15120 F83A CC 00 0A ... ldd #000a
15121 F83D BD E5 71 ..q jsr e571 ;msdelay
15124 F840 7F 00 7F ... clr 007f
15125 F843 7F 00 21 ..! clr 0021
15126 F846 7F 00 1F ... clr 001f
15127 F849 7F 00 1D ... clr 001d
15128 F84C 7F 00 1B ... clr 001b
15129 F84F 7F 00 19 ... clr 0019
15131 F852 F6 0B C0 ... ldab 0bc0
15132 F855 C4 01 .. andb #01
15133 F857 27 08 '. beq 08 ; to f861
15134 F859 CE 0B C1 ... ldx #0bc1
15135 F85C 1C 00 01 ... bset 00,x, #01 ; set changer powerup fail
15136 F85F 20 06 . bra 06 ; to f867
15137 F861 CE 0B C1 ... ldx #0bc1
15138 F864 1D 00 01 ... bclr 00,x, #01 ; clear changer powerup fail
15140 F867 F6 0B C0 ... ldab 0bc0
15141 F86A C4 04 .. andb #04
15142 F86C 27 08 '. beq 08 ; to f876
15143 F86E CE 0B C1 ... ldx #0bc1
15144 F871 1C 00 02 ... bset 00,x, #02 ; set card powerup fail
15145 F874 20 06 . bra 06 ; to f87c
15146 F876 CE 0B C1 ... ldx #0bc1
15147 F879 1D 00 02 .. bclr 00,x, #02 ; clear card powerup fail
15148 F87C CE 0B C1 ... ldx #0bc1
15149 F87F 1D 00 04 .. bclr 00,x, #04 ; clear link powerup fail
15150 F882 F6 0B C0 ... ldab 0bc0
15151 F885 C4 02 .. andb #02
15152 F887 27 2D '- beq 2d ; to f8b6
15153 F889 C6 3C .< ldab #3c
15154 F88B F7 00 31 ..1 stab 0031
15156 F88F CC 00 FF ... ldd #00ff
15157 F892 BD C7 E7 ... jsr c7e7 ;jump37 - send to serial port
15160 F897 FD 00 40 ..@ std 0040
15161 F89A C6 10 .. ldab #10
15162 F89C F7 10 2C .., stab 102c ; set 9N1
15163 F89F C6 2E .. ldab #2e
15164 F8A1 F7 10 2D ..- stab 102d ; enable SCI transmission
15165 F8A4 C6 03 .. ldab #03
15166 F8A6 F7 10 2B ..+ stab 102b ; set 9600 baud
15167 F8A9 C6 46 .F ldab #46 ; 70
15168 F8AB F7 00 2F ../ stab 002f
15169 F8AE CC 07 D0 ... ldd #07d0
15170 F8B1 BD E5 71 ..q jsr e571 ;msdelay
15171 F8B4 20 2B + bra 2b ; to f8e1
15172 F8B6 BD D0 94 ... jsr d094 ;jump66 - init variables
15173 F8B9 C6 27 .' ldab #27
15174 F8BB F7 10 2D ..- stab 102d ; disable SCI transmission
15175 F8BE C6 07 .. ldab #07
15176 F8C0 F7 10 2B ..+ stab 102b ; set 600 baud
15177 ; reset the changer
15178 F8C3 CE 00 1A ... ldx #001a
15179 F8C6 1C 00 04 .. bset 00,x, #04
15180 F8C9 F6 00 1A ... ldab 001a
15181 F8CC F7 30 00 .0. stab 3000 ; reset the changer
15182 F8CF CC 07 D0 ... ldd #07d0
15183 F8D2 BD E5 71 ..q jsr e571 ;msdelay
15184 F8D5 CE 00 1A ... ldx #001a
15185 F8D8 1D 00 04 .. bclr 00,x, #04
15186 F8DB F6 00 1A ... ldab 001a
15187 F8DE F7 30 00 .0. stab 3000 ; pull reset line back
15189 F8E1 7F 0E 6A ..j clr 0e6a
15190 F8E4 BD D4 79 ..y jsr d479 ;jump67
15191 F8E7 BD E8 9A ... jsr e89a ;jump68
15192 F8EA 7F 00 06 ... clr 0006
15193 F8ED CE 00 1D ... ldx #001d
15194 F8F0 1C 00 10 .. bset 00,x, #10
15195 F8F3 CC 05 DC ... ldd #05dc
15196 F8F6 BD E5 71 ..q jsr e571 ;msdelay
15197 F8F9 C6 1E .. ldab #1e
15198 F8FB F7 00 35 ..5 stab 0035
15201 ; begin of main loop
15203 F8FF BD E6 1B ... jsr e61b ;jump4 set 0031 to 10
15204 F902 BD D1 05 ... jsr d105 ;motors_off
15205 F905 F6 10 0A ... ldab 100a
15206 F908 C4 08 .. andb #08 ; 24VUN line too low
15207 F90A 27 46 'F beq 46 ; to f952
15208 F90C F6 10 0A ... ldab 100a
15209 F90F C4 08 .. andb #08
15210 F911 27 11 '. beq 11 ; to f924
15211 F913 CE 00 1A ... ldx #001a
15212 F916 1C 00 04 .. bset 00,x, #04
15213 F919 F6 00 1A ... ldab 001a
15214 F91C F7 30 00 .0. stab 3000 ; changer reset
15215 F91F BD E6 1B ... jsr e61b ;jump4 put #0a => 0031
15216 F922 20 E8 . bra e8 ; to f90c
15218 F924 BD D0 94 ... jsr d094 ;jump66 - reset some variables to defaults?
15219 F927 F6 0B C0 ... ldab 0bc0
15220 F92A C4 01 .. andb #01
15221 F92C 27 06 '. beq 06
15222 F92E CE 0B C1 ... ldx #0bc1
15223 F931 1C 00 01 .. bset 00,x, #01 ; set changer powerup fail
15224 F934 F6 0B C0 ... ldab 0bc0
15225 F937 C4 04 .. andb #04
15226 F939 27 06 '. beq 06
15227 F93B CE 0B C1 ... ldx #0bc1
15228 F93E 1C 00 02 .. bset 00,x, #02 ; set card powerup fail
15229 F941 CE 00 1A ... ldx #001a
15230 F944 1D 00 04 .. bclr 00,x, #04
15231 F947 F6 00 1A ... ldab 001a
15232 F94A F7 30 00 .0. stab 3000 ; clear send & reset lines
15233 F94D C6 1E .. ldab #1e
15234 F94F F7 00 35 ..5 stab 0035
15236 F952 F6 0B C0 ... ldab 0bc0
15237 F955 C4 08 .. andb #08
15238 F957 27 16 '. beq 16 ; to f96f
15239 F959 CE 00 02 ... ldx #0002
15241 F95D CC 10 00 ... ldd #1000
15242 F960 BD E5 D7 ... jsr e5d7 ;jump69 - poll bill validator
15244 F964 83 00 00 ... subd #0000
15245 F967 27 06 '. beq 06
15246 F969 CE 0B C1 ... ldx #0bc1
15247 F96C 1C 00 08 .. bset 00,x, #08 ; set bill error bit
15249 F96F F6 0B C1 ... ldab 0bc1
15250 F972 C4 07 .. andb #07 ; test for power failures
15251 F974 27 0D '. beq 0d ; to f983
15252 F976 F6 00 35 ..5 ldab 0035
15253 F979 26 08 &. bne 08
15254 F97B CE 00 21 ..! ldx #0021
15255 F97E 1C 00 20 .. bset 00,x, #20
15256 F981 20 06 .. bra 06 ; to f989
15258 F983 CE 00 21 ..! ldx #0021
15259 F986 1D 00 20 .. bclr 00,x, #20
15260 F989 BD BB 63 . jsr bb63 ;jump200 - read the keypad
15261 F98C BD B8 00 ... jsr b800 ;jump201 - interpret the keys and write to the display
15262 F98F F6 0B C0 ... ldab 0bc0
15263 F992 C4 01 .. andb #01
15264 F994 27 0B '. beq 0b
15265 F996 FC 00 40 ..@ ldd 0040
15266 F999 F3 00 3E ..> addd 003e
15267 F99C 26 03 &. bne 03
15268 F99E BD D6 F6 ... jsr d6f6 ;jump106
15269 F9A1 F6 00 12 ... ldab 0012
15270 F9A4 C4 20 . andb #20 ; test door switch
15271 F9A6 27 08 '. beq 08
15272 F9A8 F6 00 35 ..5 ldab 0035
15273 F9AB 26 03 &. bne 03
15274 F9AD 7E FA 79 ~.y jmp fa79 ;goto83
15275 F9B0 CE 00 1F ... ldx #001f
15276 F9B3 1D 00 04 ... bclr 00,x, #04
15277 F9B6 CE 00 1D ... ldx #001d
15278 F9B9 1C 00 10 ... bset 00,x, #10
15279 F9BC F6 00 1F ... ldab 001f
15280 F9BF C4 20 . andb #20
15281 F9C1 26 03 &. bne 03
15282 F9C3 7E FA 74 ~.t jmp fa74 ;goto84
15283 F9C6 F6 0B C0 ... ldab 0bc0
15284 F9C9 C4 01 .. andb #01
15285 F9CB 27 08 '. beq 08
15286 F9CD CE 0B C1 ... ldx #0bc1
15287 F9D0 1C 00 01 ... bset 00,x, #01 ; set changer powerup error
15288 F9D3 20 06 . bra 06
15289 F9D5 CE 0B C1 ... ldx #0bc1
15290 F9D8 1D 00 01 ... bclr 00,x, #01 ; unset changer powerup error
15291 F9DB F6 0B C0 ... ldab 0bc0
15292 F9DE C4 04 .. andb #04
15293 F9E0 27 08 '. beq 08
15294 F9E2 CE 0B C1 ... ldx #0bc1
15295 F9E5 1C 00 02 ... bset 00,x, #02 ; set card powerup error
15296 F9E8 20 06 . bra 06
15297 F9EA CE 0B C1 ... ldx #0bc1
15298 F9ED 1D 00 02 ... bclr 00,x, #02 ; unset card powerup error
15299 F9F0 CE 0B C1 ... ldx #0bc1
15300 F9F3 1D 00 04 ... bclr 00,x, #04 ; unset link powerup error
15301 F9F6 CE 00 1B ... ldx #001b
15302 F9F9 1D 00 02 ... bclr 00,x, #02
15303 F9FC F6 0B C0 ... ldab 0bc0
15304 F9FF C4 02 .. andb #02
15305 FA01 27 27 '' beq 27
15306 FA03 C6 3C .< ldab #3c
15307 FA05 F7 00 31 ..1 stab 0031
15309 FA09 CC 00 FF ... ldd #00ff
15310 FA0C BD C7 E7 ... jsr c7e7 ;jump37 - send #ff to coin mech
15313 FA11 FD 00 40 ..@ std 0040
15314 FA14 C6 10 .. ldab #10
15315 FA16 F7 10 2C .., stab 102c ; set 9N1
15316 FA19 C6 2E .. ldab #2e
15317 FA1B F7 10 2D ..- stab 102d ; enable SCI transmission
15318 FA1E C6 03 .. ldab #03
15319 FA20 F7 10 2B ..+ stab 102b ; 9600 baud
15320 FA23 C6 46 .F ldab #46 ; 70
15321 FA25 F7 00 2F ../ stab 002f
15322 FA28 20 31 1 bra 31
15323 FA2A CE 00 21 ..! ldx #0021
15324 FA2D 1D 00 40 ... bclr 00,x, #40
15325 FA30 BD D0 94 ... jsr d094 ;jump66 - init variables
15326 FA33 C6 27 .' ldab #27
15327 FA35 F7 10 2D ..- stab 102d ; disable SCI transmission
15328 FA38 C6 07 .. ldab #07
15329 FA3A F7 10 2B ..+ stab 102b ; 600 baud
15330 FA3D CE 00 1A ... ldx #001a
15331 FA40 1C 00 04 ... bset 00,x, #04
15332 FA43 F6 00 1A ... ldab 001a
15333 FA46 F7 30 00 .0. stab 3000 ; changer reset line high
15334 FA49 CC 00 32 ..2 ldd #0032
15335 FA4C BD E5 71 ..q jsr e571 ;msdelay
15336 FA4F CE 00 1A ... ldx #001a
15337 FA52 1D 00 04 ... bclr 00,x, #04
15338 FA55 F6 00 1A ... ldab 001a
15339 FA58 F7 30 00 .0. stab 3000 ; changer reset line low
15340 FA5B BD D4 79 ..y jsr d479 ;jump67
15341 FA5E BD E8 9A ... jsr e89a ;jump68
15342 FA61 BD BE 69 ..i jsr be69 ;displayreset
15343 FA64 7F 00 06 ... clr 0006
15344 FA67 CE 00 1F ... ldx #001f
15345 FA6A 1D 00 .. bclr add,x 00,x
15346 FA6C 20 C6 . bra c6
15347 FA6E 1E F7 00 35 ...5 brset f7,x 00 35
15348 FA72 20 03 . bra 03
15350 FA74 BD DE E7 ... jsr dee7 ;jump116
15351 FA77 20 66 f bra 66
15353 FA79 F6 00 12 ... ldab 0012
15354 FA7C C4 20 . andb #20
15355 FA7E 27 5F '_ beq 5f
15356 FA80 F6 00 1F ... ldab 001f
15357 FA83 C4 20 . andb #20
15358 FA85 26 03 &. bne 03
15359 FA87 BD E5 AA ... jsr e5aa ;jump12
15360 FA8A CE 00 1F ... ldx #001f
15361 FA8D 1C 00 .. bset 00,x, #20
15362 FA8F F6 00 12 ... ldab 0012
15363 FA93 C4 01 .. andb #01
15364 FA95 26 33 &3 bne 33
15365 FA97 F6 00 1D ... ldab 001d
15366 FA9A C4 08 .. andb #08
15367 FA9C 27 2A '* beq 2a ; to fac8, to fad0
15368 FA9E F6 00 1F ... ldab 001f
15369 FAA1 C4 04 .. andb #04
15370 FAA3 26 14 &. bne 14
15371 FAA5 CE 00 1F ... ldx #001f
15372 FAA8 1C 00 04 ... bset 00,x, #04
15373 FAAB CE 00 1F ... ldx #001f
15374 FAAE 1C 00 .. bset 00,x, #80
15375 FAB0 CC 02 33 .. ldd #0233
15376 FAB4 FD 00 3B ..; std 003b
15377 FAB7 20 09 . bra 09 ; to fac2
15379 FAB9 BD E5 AA ... jsr e5aa ;jump12
15380 FABC CE 00 1F ... ldx #001f
15381 FABF 1D 00 04 ... bclr 00,x, #04
15382 FAC2 CE 00 1D ... ldx #001d
15383 FAC5 1D 00 08 ... bclr 00,x, #08
15384 FAC8 20 06 . bra 06 ; to fad0
15385 FACA CE 00 1D ... ldx #001d
15386 FACD 1C 00 08 ... bset 00,x, #08
15387 FAD0 F6 00 1F ... ldab 001f
15388 FAD3 C4 04 .. andb #04
15389 FAD5 26 05 &. bne 05 ; to fadc - service menu
15390 FAD7 BD 81 00 ... jsr 8100 ;jump72 - preservice menu?
15391 FADA 20 03 . bra 03
15392 FADC BD 84 A0 ... jsr 84a0 ;jump73
15393 FADF 7E F8 FF ~.. jmp f8ff ;goto85
15394 ; main should never return in theory.
15397 ; error interrupts (see vectors at end)
15398 FAE2 CC B1 2E ... ldd #b12e ;"**ERROR***"
15399 FAE5 BD C0 BA ... jsr c0ba ;display:
15400 FAE8 CC 07 D0 ... ldd #07d0
15401 FAEB BD E5 71 ..q jsr e571 ;msdelay
15403 FAEF CC B1 2E ... ldd #b12e ;"**ERROR***"
15404 FAF2 BD C0 BA ... jsr c0ba ;display:
15405 FAF5 CC 07 D0 ... ldd #07d0
15406 FAF8 BD E5 71 ..q jsr e571 ;msdelay
15408 FAFC CC B1 2E ... ldd #b12e ;"**ERROR***"
15409 FAFF BD C0 BA ... jsr c0ba ;display:
15410 FB02 CC 07 D0 ... ldd #07d0
15411 FB05 BD E5 71 ..q jsr e571 ;msdelay
15413 FB09 CC B1 2E ... ldd #b12e ;"**ERROR***"
15414 FB0C BD C0 BA ... jsr c0ba ;display:
15415 FB0F CC 07 D0 ... ldd #07d0
15416 FB12 BD E5 71 ..q jsr e571 ;msdelay
15418 FB16 CC B1 2E ... ldd #b12e ;"**ERROR***"
15419 FB19 BD C0 BA ... jsr c0ba ;display:
15420 FB1C CC 07 D0 ... ldd #07d0
15421 FB1F BD E5 71 ..q jsr e571 ;msdelay
15423 FB23 CC B1 2E ... ldd #b12e ;"**ERROR***"
15424 FB26 BD C0 BA ... jsr c0ba ;display:
15425 FB29 CC 07 D0 ... ldd #07d0
15426 FB2C BD E5 71 ..q jsr e571 ;msdelay
15428 FB30 CC B1 2E ... ldd #b12e ;"**ERROR***"
15429 FB33 BD C0 BA ... jsr c0ba ;display:
15430 FB36 CC 07 D0 ... ldd #07d0
15431 FB39 BD E5 71 ..q jsr e571 ;msdelay
15433 FB3D CC B1 2E ... ldd #b12e ;"**ERROR***"
15434 FB40 BD C0 BA ... jsr c0ba ;display:
15435 FB43 CC 07 D0 ... ldd #07d0
15436 FB46 BD E5 71 ..q jsr e571 ;msdelay
15438 FB4A CC B1 2E ... ldd #b12e ;"**ERROR***"
15439 FB4D BD C0 BA ... jsr c0ba ;display:
15440 FB50 CC 07 D0 ... ldd #07d0
15441 FB53 BD E5 71 ..q jsr e571 ;msdelay
15443 FB57 CC B1 2E ... ldd #b12e ;"**ERROR***"
15444 FB5A BD C0 BA ... jsr c0ba ;display:
15445 FB5D CC 07 D0 ... ldd #07d0
15446 FB60 BD E5 71 ..q jsr e571 ;msdelay
15448 FB64 CC B1 2E ... ldd #b12e ;"**ERROR***"
15449 FB67 BD C0 BA ... jsr c0ba ;display:
15450 FB6A CC 07 D0 ... ldd #07d0
15451 FB6D BD E5 71 ..q jsr e571 ;msdelay
15453 FB71 CC B1 2E ... ldd #b12e ;"**ERROR***"
15454 FB74 BD C0 BA ... jsr c0ba ;display:
15455 FB77 CC 07 D0 ... ldd #07d0
15456 FB7A BD E5 71 ..q jsr e571 ;msdelay
15458 FB7E CC B1 2E ... ldd #b12e ;"**ERROR***"
15459 FB81 BD C0 BA ... jsr c0ba ;display:
15460 FB84 CC 07 D0 ... ldd #07d0
15461 FB87 BD E5 71 ..q jsr e571 ;msdelay
15463 FB8B CC B1 2E ... ldd #b12e ;"**ERROR***"
15464 FB8E BD C0 BA ... jsr c0ba ;display:
15465 FB91 CC 07 D0 ... ldd #07d0
15466 FB94 BD E5 71 ..q jsr e571 ;msdelay
15468 FB98 CC B1 2E ... ldd #b12e ;"**ERROR***"
15469 FB9B BD C0 BA ... jsr c0ba ;display:
15470 FB9E CC 07 D0 ... ldd #07d0
15471 FBA1 BD E5 71 ..q jsr e571 ;msdelay
15473 FBA5 CC B1 2E ... ldd #b12e ;"**ERROR***"
15474 FBA8 BD C0 BA ... jsr c0ba ;display:
15475 FBAB CC 07 D0 ... ldd #07d0
15476 FBAE BD E5 71 ..q jsr e571 ;msdelay
15478 FBB2 BD FE 69 ..i jsr fe69 ;reset
15480 FBB6 BD FE 69 ..i jsr fe69 ;reset
15484 ; passed a u16 on the stack, i, and a u16 in D, j
15485 ; multiplication funciton of some sort?
15489 FBBD E6 06 .. ldab 06,x ; lower 8-bits of i
15490 FBBF 3D = mul ; A*B => D
15491 FBC0 A6 00 .. ldaa 00,x
15493 FBC3 E6 05 .. ldab 05,x
15499 FBCA A6 06 .. ldaa 06,x
15502 FBCE AB 00 .. adda 00,x
15504 FBD1 EC 03 .. ldd 03,x
15505 FBD3 ED 05 .. std 05,x
15508 FBD7 83 00 00 ... subd #0000
15516 FBDF BD FB E8 ... jsr fbe8 ;jump86
15517 FBE2 BD FC 25 ..% jsr fc25 ;jump85
15518 FBE5 7E FC 04 ~.. jmp fc04 ;goto87
15523 FBEA EC 02 .. ldd 02,x
15526 FBEE EC 00 .. ldd 00,x
15535 FBF8 EC 12 .. ldd 12,x
15536 FBFA ED 04 .. std 04,x
15537 FBFC EC 0C .. ldd 0c,x
15538 FBFE ED 02 .. std 02,x
15539 FC00 EC 10 .. ldd 10,x
15544 FC04 ED 00 .. std 00,x
15547 FC08 EC 08 .. ldd 08,x
15548 FC0A ED 0A .. std 0a,x
15549 FC0C EC 02 .. ldd 02,x
15550 FC0E ED 0C .. std 0c,x
15552 FC11 ED 02 .. std 02,x
15553 FC13 EC 00 .. ldd 00,x
15554 FC15 26 06 &. bne 06
15555 FC17 6D 02 m. tst 02,x
15556 FC19 26 02 &. bne 02
15557 FC1B 6D 03 m. tst 03,x
15570 FC27 E3 06 .. addd 06,x
15573 FC2B EC 02 .. ldd 02,x
15574 FC2D ED 06 .. std 06,x
15575 FC2F EC 04 .. ldd 04,x
15576 FC31 E3 08 .. addd 08,x
15577 FC33 ED 08 .. std 08,x
15580 FC37 C9 00 .. adcb #00
15581 FC39 89 00 .. adca #00
15582 FC3B 83 00 00 ... subd #0000
15583 FC3E 26 06 &. bne 06
15584 FC40 6D 08 m. tst 08,x
15585 FC42 26 02 &. bne 02
15586 FC44 6D 09 m. tst 09,x
15605 FC57 A7 04 .. staa 04,x
15606 FC59 7E FC 6D ~.m jmp fc6d ;goto88
15618 FC66 86 01 .. ldaa #01
15619 FC68 A7 04 .. staa 04,x
15620 FC6A 7E FC 6D ~.m jmp fc6d ;goto88
15622 FC6D 1A EE 0E ... ldy 0e,x
15623 FC70 EC 08 .. ldd 08,x
15624 FC72 ED 0E .. std 0e,x
15625 FC74 EC 14 .. ldd 14,x
15626 FC76 ED 0C .. std 0c,x
15627 FC78 EC 12 .. ldd 12,x
15628 FC7A ED 0A .. std 0a,x
15629 FC7C 1A EF 12 ... sty 12,x
15632 FC81 ED 08 .. std 08,x
15633 FC83 ED 06 .. std 06,x
15634 FC85 EC 0A .. ldd 0a,x
15635 FC87 1A A3 0E ... cmpd 0e,x
15636 FC8A 22 23 "# bhi 23
15637 FC8C 27 15 '. beq 15
15638 FC8E 1E 04 01 08 .... brset 04,x 01 08
15639 FC92 CC 00 00 ... ldd #0000
15640 FC95 ED 14 .. std 14,x
15641 FC97 7E FE 04 ~.. jmp fe04 ;goto89
15642 FC9A EC 0C .. ldd 0c,x
15643 FC9C ED 14 .. std 14,x
15644 FC9E EC 0A .. ldd 0a,x
15645 FCA0 7E FD E3 ~.. jmp fde3 ;goto90
15646 FCA3 83 00 00 ... subd #0000
15647 FCA6 27 12 '. beq 12
15648 FCA8 EC 0C .. ldd 0c,x
15649 FCAA 1A A3 10 ... cmpd 10,x
15650 FCAD 25 DF %. bcs df
15651 FCAF 6D 0E m. tst 0e,x
15652 FCB1 26 70 &p bne 70
15653 FCB3 6D 0F m. tst 0f,x
15654 FCB5 27 1A '. beq 1a
15655 FCB7 7E FD A4 ~.. jmp fda4 ;goto91
15659 FCBE EC 0C .. ldd 0c,x
15660 FCC0 EE 10 .. ldx 10,x
15662 FCC3 18 1E 04 01 01 ..... brset 04,y 01 01
15665 FCCA ED 14 .. std 14,x
15668 FCCE 7E FD E3 ~.. jmp fde3 ;goto90
15672 FCD5 EC 0A .. ldd 0a,x
15673 FCD7 EE 10 .. ldx 10,x
15676 FCDB CD EF 0A ... stx 02x,y
15680 FCE1 CD EF 0E ... stx 02x,y
15682 FCE5 18 E3 0C ... addd 0c,y
15683 FCE8 24 1B $. bcc 1b
15684 FCEA 18 ED 0C ... std 0c,y
15686 FCEE C6 01 .. ldab #01
15690 FCF3 18 E3 0E ... addd 0e,y
15691 FCF6 24 03 $. bcc 03
15692 FCF8 18 6C 0A .l. inc 0a,y
15693 FCFB 18 ED 0E ... std 0e,y
15696 FD00 18 E3 0C ... addd 0c,y
15697 FD03 25 E5 %. bcs e5
15700 FD07 18 E3 0E ... addd 0e,y
15701 FD0A 24 03 $. bcc 03
15702 FD0C 18 6C 0A .l. inc 0a,y
15703 FD0F 18 1F 04 01 07 ..... brclr 04,y 01 07
15705 FD15 18 6F 0A .o. clr 0a,y
15706 FD18 18 6F 0B .o. clr 0b,y
15708 FD1C ED 14 .. std 14,x
15709 FD1E EC 0A .. ldd 0a,x
15710 FD20 7E FD E3 ~.. jmp fde3 ;goto90
15711 FD23 86 08 .. ldaa #08
15712 FD25 A7 05 .. staa 05,x
15723 FD31 EC 0B .. ldd 0b,x
15724 FD33 A3 10 .. subd 10,x
15725 FD35 ED 14 .. std 14,x
15726 FD37 EC 09 .. ldd 09,x
15727 FD39 E2 0F .. sbcb 0f,x
15728 FD3B A2 0E .. sbca 0e,x
15729 FD3D 25 06 %. bcs 06
15730 FD3F ED 09 .. std 09,x
15731 FD41 EC 14 .. ldd 14,x
15732 FD43 ED 0B .. std 0b,x
15733 FD45 6A 05 j. dec 05,x
15734 FD47 26 DE &. bne de
15737 FD4B 1F 04 01 09 .... brclr 04,x 01 09
15738 FD4F EC 0B .. ldd 0b,x
15739 FD51 ED 14 .. std 14,x
15740 FD53 EC 09 .. ldd 09,x
15741 FD55 7E FD E3 ~.. jmp fde3 ;goto90
15743 FD59 E6 0D .. ldab 0d,x
15745 FD5C ED 14 .. std 14,x
15747 FD5F 7E FD E3 ~.. jmp fde3 ;goto90
15748 FD62 86 10 .. ldaa #10
15749 FD64 A7 05 .. staa 05,x
15762 FD72 EC 0A .. ldd 0a,x
15763 FD74 A3 10 .. subd 10,x
15764 FD76 ED 14 .. std 14,x
15765 FD78 EC 08 .. ldd 08,x
15766 FD7A E2 0F .. sbcb 0f,x
15767 FD7C 82 00 .. sbca #00
15768 FD7E 25 06 %. bcs 06
15769 FD80 ED 08 .. std 08,x
15770 FD82 EC 14 .. ldd 14,x
15771 FD84 ED 0A .. std 0a,x
15772 FD86 6A 05 j. dec 05,x
15773 FD88 26 DC &. bne dc
15778 FD8E 1F 04 01 08 .... brclr 04,x 01 08
15779 FD92 EC 0A .. ldd 0a,x
15780 FD94 ED 14 .. std 14,x
15781 FD96 EC 08 .. ldd 08,x
15782 FD98 20 49 I bra 49
15783 FD9A EC 0C .. ldd 0c,x
15786 FD9E ED 14 .. std 14,x
15789 FDA2 20 3F ? bra 3f
15791 FDA4 2B BC +. bmi bc
15792 FDA6 86 10 .. ldaa #10
15793 FDA8 A7 05 .. staa 05,x
15804 FDB4 EC 0A .. ldd 0a,x
15805 FDB6 A3 10 .. subd 10,x
15806 FDB8 ED 14 .. std 14,x
15807 FDBA A6 07 .. ldaa 07,x
15808 FDBC A2 0F .. sbca 0f,x
15809 FDBE 25 06 %. bcs 06
15810 FDC0 A7 07 .. staa 07,x
15811 FDC2 EC 14 .. ldd 14,x
15812 FDC4 ED 0A .. std 0a,x
15813 FDC6 6A 05 j. dec 05,x
15814 FDC8 26 E0 &. bne e0
15819 FDCE 1F 04 01 09 .... brclr 04,x 01 09
15820 FDD2 EC 0A .. ldd 0a,x
15821 FDD4 ED 14 .. std 14,x
15823 FDD7 E6 07 .. ldab 07,x
15824 FDD9 20 08 . bra 08
15825 FDDB EC 0C .. ldd 0c,x
15828 FDDF ED 14 .. std 14,x
15832 FDE3 1F 04 80 12 .... brclr 04,x 80 12
15835 FDE9 63 14 c. com 14,x
15836 FDEB 63 15 c. com 15,x
15837 FDED 6C 15 l. inc 15,x
15838 FDEF 26 08 &. bne 08
15839 FDF1 6C 14 l. inc 14,x
15840 FDF3 26 04 &. bne 04
15842 FDF6 26 01 &. bne 01
15844 FDF9 83 00 00 ... subd #0000
15845 FDFC 26 06 &. bne 06
15846 FDFE 6D 14 m. tst 14,x
15847 FE00 26 02 &. bne 02
15848 FE02 6D 15 m. tst 15,x
15869 ; passed a structure (in code following the call to jump2) and a number D
15870 ; popular D candidates come from $48, $42, $9, $a, etc...
15871 ; D must be between 0 and len, inclusive.
15874 ; u16 jmplocs[len+2];
15877 FE17 A3 00 .. subd 00,x ; D -= var1
15878 FE19 2D 05 -. blt 05 ; if D<0, to fe20, where D=-1
15879 FE1B 1A A3 02 ... cmpd 02,x ;
15880 FE1E 2F 03 /. ble 03 ; if D > len, D=-1, else to fe23
15881 FE20 CC FF FF ... ldd #ffff
15882 FE23 3C < pshx ; push return ptr back onto stack
15883 FE24 05 . asld ; D *= 2
15885 FE26 E3 00 .. addd 00,x ; D += return-ptr
15886 FE28 C3 00 06 ... addd #0006 ; + 6
15888 FE2C EC 00 .. ldd 00,x ; return ptr = jmplocs[orig D]
15890 FE2F ED 00 .. std 00,x
15894 ; this looks like a switch statement
15895 ; we're passed an array of 4-byte items... this is passed in the code segment
15896 ; we take the return address and start counting until we hit a double zero.
15897 ; hence much of the code following this call in a standard disassembly is garbage
15898 ; we also look at D - common values passed to use are contents of $9, $12, $15, $4A or the SCI $102f
15900 FE33 6D 04 m. tst 04,x
15901 FE35 26 04 &. bne 04 ; to fe3b if this is not the last one
15902 FE37 6D 05 m. tst 05,x ; double check it really is last one.
15903 FE39 27 0A '. beq 0a ; to fe45
15904 FE3B A3 02 .. subd 02,x ; subtract lower order bits from D
15905 FE3D 27 06 '. beq 06 ; to fe45
15906 FE3F 08 . inx ; move the array index up one
15910 FE43 20 EE . bra ee ; to fe33
15911 FE45 EE 00 .. ldx 00,x ; return to our destination address
15912 FE47 6E 00 n. jmp 00,x
15916 ; Enable the Real-time Interrupt (periodic hw interrupt)
15917 FE49 86 40 .@ ldaa #40 ;40 -> A
15918 FE4B B7 10 24 ..$ staa 1024 ;A -> 1024
15919 ; Enable the ADC & configure IRQ' for edge-sensitive only operation
15920 FE4E 86 A0 .. ldaa #a0 ;a0 -> A
15921 FE50 B7 10 39 ..9 staa 1039 ;A -> 1039
15922 ; Set a stack pointer?
15923 FE53 8E 00 EF ... lds #00ef
15924 ; Zero out the first 128 bytes of ram.
15925 FE56 CE 00 00 ... ldx #0000 ;wipe 0000-007f X=0000
15926 FE59 8C 00 80 ... cpx #0080 ;loop: if X = 0080
15927 FE5C 24 05 $. bcc fe63 ; finished
15928 FE5E 6F 00 o. clr 00,x ; else: load addr X with 0
15929 FE60 08 . inx ; increment X
15930 FE61 20 F6 . bra fe59 ;repeat
15932 ; Jump to main procedure
15933 FE63 BD F7 D6 ... jsr f7d6 ;goto main:
15934 FE66 7E FE 6D ~.m jmp fe6d ; goto91
15936 ; Reboot function for when things go astray?
15937 FE69 0F . sei ;inhibit interrupts
15938 FE6A 7E FE 49 ~.I jmp fe49 ;goto reset:
15940 ; loop forever - called after main is exited.
15942 FE6D 20 FE . bra fe6d ;loop forever
15943 ;[SAF] - wait for interrupts?
15945 FE6F FF FF FF ... stx ffff
15946 FE72 FF FF FF ... stx ffff
15947 FE75 FF FF FF ... stx ffff
15948 FE78 FF FF FF ... stx ffff
15949 FE7B FF FF FF ... stx ffff
15950 FE7E FF FF FF ... stx ffff
15951 FE81 FF FF FF ... stx ffff
15952 FE84 FF FF FF ... stx ffff
15953 FE87 FF FF FF ... stx ffff
15954 FE8A FF FF FF ... stx ffff
15955 FE8D FF FF FF ... stx ffff
15956 FE90 FF FF FF ... stx ffff
15957 FE93 FF FF FF ... stx ffff
15958 FE96 FF FF FF ... stx ffff
15959 FE99 FF FF FF ... stx ffff
15960 FE9C FF FF FF ... stx ffff
15961 FE9F FF FF FF ... stx ffff
15962 FEA2 FF FF FF ... stx ffff
15963 FEA5 FF FF FF ... stx ffff
15964 FEA8 FF FF FF ... stx ffff
15965 FEAB FF FF FF ... stx ffff
15966 FEAE FF FF FF ... stx ffff
15967 FEB1 FF FF FF ... stx ffff
15968 FEB4 FF FF FF ... stx ffff
15969 FEB7 FF FF FF ... stx ffff
15970 FEBA FF FF FF ... stx ffff
15971 FEBD FF FF FF ... stx ffff
15972 FEC0 FF FF FF ... stx ffff
15973 FEC3 FF FF FF ... stx ffff
15974 FEC6 FF FF FF ... stx ffff
15975 FEC9 FF FF FF ... stx ffff
15976 FECC FF FF FF ... stx ffff
15977 FECF FF FF FF ... stx ffff
15978 FED2 FF FF FF ... stx ffff
15979 FED5 FF FF FF ... stx ffff
15980 FED8 FF FF FF ... stx ffff
15981 FEDB FF FF FF ... stx ffff
15982 FEDE FF FF FF ... stx ffff
15983 FEE1 FF FF FF ... stx ffff
15984 FEE4 FF FF FF ... stx ffff
15985 FEE7 FF FF FF ... stx ffff
15986 FEEA FF FF FF ... stx ffff
15987 FEED FF FF FF ... stx ffff
15988 FEF0 FF FF FF ... stx ffff
15989 FEF3 FF FF FF ... stx ffff
15990 FEF6 FF FF FF ... stx ffff
15991 FEF9 FF FF FF ... stx ffff
15992 FEFC FF FF FF ... stx ffff
15993 FEFF FF FF FF ... stx ffff
15994 FF02 FF FF FF ... stx ffff
15995 FF05 FF FF FF ... stx ffff
15996 FF08 FF FF FF ... stx ffff
15997 FF0B FF FF FF ... stx ffff
15998 FF0E FF FF FF ... stx ffff
15999 FF11 FF FF FF ... stx ffff
16000 FF14 FF FF FF ... stx ffff
16001 FF17 FF FF FF ... stx ffff
16002 FF1A FF FF FF ... stx ffff
16003 FF1D FF FF FF ... stx ffff
16004 FF20 FF FF FF ... stx ffff
16005 FF23 FF FF FF ... stx ffff
16006 FF26 FF FF FF ... stx ffff
16007 FF29 FF FF FF ... stx ffff
16008 FF2C FF FF FF ... stx ffff
16009 FF2F FF FF FF ... stx ffff
16010 FF32 FF FF FF ... stx ffff
16011 FF35 FF FF FF ... stx ffff
16012 FF38 FF FF FF ... stx ffff
16013 FF3B FF FF FF ... stx ffff
16014 FF3E FF FF FF ... stx ffff
16015 FF41 FF FF FF ... stx ffff
16016 FF44 FF FF FF ... stx ffff
16017 FF47 FF FF FF ... stx ffff
16018 FF4A FF FF FF ... stx ffff
16019 FF4D FF FF FF ... stx ffff
16020 FF50 FF FF FF ... stx ffff
16021 FF53 FF FF FF ... stx ffff
16022 FF56 FF FF FF ... stx ffff
16023 FF59 FF FF FF ... stx ffff
16024 FF5C FF FF FF ... stx ffff
16025 FF5F FF FF FF ... stx ffff
16026 FF62 FF FF FF ... stx ffff
16027 FF65 FF FF FF ... stx ffff
16028 FF68 FF FF FF ... stx ffff
16029 FF6B FF FF FF ... stx ffff
16030 FF6E FF FF FF ... stx ffff
16031 FF71 FF FF FF ... stx ffff
16032 FF74 FF FF FF ... stx ffff
16033 FF77 FF FF FF ... stx ffff
16034 FF7A FF FF FF ... stx ffff
16035 FF7D FF FF FF ... stx ffff
16036 FF80 FF FF FF ... stx ffff
16037 FF83 FF FF FF ... stx ffff
16038 FF86 FF FF FF ... stx ffff
16039 FF89 FF FF FF ... stx ffff
16040 FF8C FF FF FF ... stx ffff
16041 FF8F FF FF FF ... stx ffff
16042 FF92 FF FF FF ... stx ffff
16043 FF95 FF FF FF ... stx ffff
16044 FF98 FF FF FF ... stx ffff
16045 FF9B FF FF FF ... stx ffff
16046 FF9E FF FF FF ... stx ffff
16047 FFA1 FF FF FF ... stx ffff
16048 FFA4 FF FF FF ... stx ffff
16049 FFA7 FF FF FF ... stx ffff
16050 FFAA FF FF FF ... stx ffff
16051 FFAD FF FF FF ... stx ffff
16052 FFB0 FF FF FF ... stx ffff
16053 FFB3 FF FF FF ... stx ffff
16054 FFB6 FF FF FF ... stx ffff
16055 FFB9 FF FF FF ... stx ffff
16056 FFBC FF FF FF ... stx ffff
16057 FFBF FF FF FF ... stx ffff
16058 FFC2 FF FF FF ... stx ffff
16059 FFC5 FF FF FF ... stx ffff
16060 FFC8 FF FF FF ... stx ffff
16061 FFCB FF FF FF ... stx ffff
16062 FFCE FF FF FF ... stx ffff
16063 FFD1 FF FF FF ... stx ffff
16067 .word c81c ; SCI serial system (generic) - goes to sciinterrupt
16068 .word fae2 ; SPI serial transfer complete - flashes *** ERROR *** for a second
16069 .word faef ; Pulse accumulator input edge - flashes *** ERROR *** for a second
16070 .word fafc ; Pulse accumulator overflow - flashes *** ERROR *** for a second
16071 .word fb09 ; Timer overflow - flashes *** ERROR *** for a second
16072 .word fb16 ; Timer input capture 4 - flashes *** ERROR *** for a second
16073 .word fb23 ; Timer output compare 4 - flashes *** ERROR *** for a second
16074 .word fb30 ; Timer output compare 3 - flashes *** ERROR *** for a second
16075 .word fb3d ; Timer output compare 2 - flashes *** ERROR *** for a second
16076 .word fb4a ; Timer output compare 1 - flashes *** ERROR *** for a second
16077 .word fb57 ; Timer input capture 3 - flashes *** ERROR *** for a second
16078 .word fb64 ; Timer input capture 2 - flashes *** ERROR *** for a second
16079 .word fb71 ; Timer input capture 1 - flashes *** ERROR *** for a second
16080 .word f718 ; RT interrupt - does something useful :) (goto rti)
16081 .word fb7e ; IRQ pin - flashes *** ERROR *** for a second
16082 .word fb8b ; XIRQ pin - flashes *** ERROR *** for a second
16083 .word fb98 ; software interrupt - flashes *** ERROR *** for a second
16084 .word fba5 ; illegal opcode trap - flashes *** ERROR *** for a second
16085 .word fbb2 ; watchdog reset - reboot
16086 .word fbb6 ; clock monitor reset - reboot
16087 .word fe49 ; reset - reboot