647b3c9a97d1f5242d8963e29164e1c065461097
[uccvend-snackrom.git] / ROM-2003 / vend.asm
1 ;0000   
2 ;0001   coin mask? (cf 0x001a, 0x3000, 0xc430)
3 ;0003   global only used in jump71
4 ;0006   slot number
5 ;0007   06 stored into it sometimes.
6 ;0008   used exclusively in SCI interrupt
7 ;0009
8 ;000a   
9 ;000c
10 ;0012   another buffer for 1800
11 ;0013
12 ;0014   buffer for 3800 register  
13 ;0015
14 ;0016   new key state (cf 0029)
15 ;0017   bits 5-7 used mostly
16 ;0018   
17 ;0019   
18 ;001a   buffer for 3000 register - initialised to 7F
19 ;001b   bit 3 - denote motor fault?
20 ;001c   used for loop variables
21 ;001d   
22 ;001f   display related? bit 2.  bit 4 denotes service mode
23 ;0021   lower 3 bits taken from SCI data somewhere
24 ;0023   buffer for 1800
25 ;0026   used exclusively in SCI interrupt handler
26 ;0029   previous key state (cf 0016)
27 ;002c   inhibits display writes?
28 ;0032
29 ;0033
30 ;0035   only ever contains #1e
31 ;003b   commonly contains $0233
32 ;003d
33 ;0040   
34 ;0042   current key press
35 ;0048   error status 
36 ;004a
37 ;0052   win-a-snack odds (in ram)
38 ;0056   last known keypad row 1 state
39 ;005b   last known keypad row 0 state
40 ;005d   
41 ;005e   Y in location XY (row?)
42 ;005f   X in location XY (column?)
43 ;0073   
44 ;0076-0077 word
45 ;007f   
46 ;00c8   
47 ;08c8   array of prices of each slot??
48 ;0993   custom message?
49 ;0b90 - 0b99 display buffer (backwards)
50 ;0baa   
51 ;0bb5   win-a-snack odds (is this in NVRAM?)
52 ;0bbd   
53 ;0bd8   related to 0017 and 0021 (only lower 3 bits used)
54 ;0bd9   also related
55 ;0bc0   bit 0, 2, 1, 3
56 ;0bc1   error status:  (from jump72)
57 ;         bit0: changer powerup
58 ;         bit1: card powerup
59 ;         bit2: link powerup
60 ;         bit3: bill error
61 ;         bit4: coin jam
62 ;         bit5: bad sensor
63 ;         bit6: tube error
64 ;0bc2 - 0bce SCI read into these locations
65 ;0cbc   serial number
66 ;0ccc   machine ID
67 ;0cd9   counter of something - reset to 4 on some serial input
68 ;0cda   counter of something - reset to 4 on some serial input
69 ;0cdb   also counts something - reset to 4 on some serial input
70 ;0dff - 0e04 keypad buffer - most recent in 0e04
71 ;0e05   array index of the array to follow
72 ;0e06 - ?? array of digits*10
73 ;1000
74 ;1009
75 ;1026
76 ;1028   SPCR (Serial Peripheral Control Register)
77 ;1030
78 ;103c
79
80
81 ;1016 - timer output compare 1 register
82
83 ;1800  Internal switches
84 ;   7 changer INT'
85 ;   6 Sold out.
86 ;   5 Door open
87 ;   4 $0.05
88 ;   3 $0.10
89 ;   2 $0.25
90 ;   1 $1
91 ;   0 Mode
92 ;2000  Misc inputs
93 ;   7 R2 of MAX232
94 ;   6 Printer DSR
95 ;   5 Win-a-snack
96 ;   4 Multi
97 ;   3 Promotional
98 ;   2 Force?
99 ;   1 Language selection
100 ;   0 Language selection
101 ;Rows are numbered 1-9, skipping 5.  There is no row 5.
102 ;2800   home sensors
103 ;       7  row 9
104 ;       6  row 8
105 ;       5  row 7
106 ;       4  row 6
107 ;       3  row 4
108 ;       2  row 3
109 ;       1  row 2
110 ;       0  row 1
111 ;Motor driver data is sent cols 7, 6, 5, 4, 3, 2, 1, 0 rows 9, 8, 7, 6, 4, 3, 2
112 ;1.  Cols 8 and 9 are separate outputs (they ran out of driver chip outputs).
113 ;Motor driver column output enable is PA6
114 ;Motor driver serial clock is PA5
115 ;It looks like motor overcurrent sense is on PE1 (PE1 will be low if a motor
116 ;is drawing too much current)
117 ; the changer speaks at 600 baud, where as the coin validator speaks
118 ; 9600 baud. and printer at 2400.
119 ;3000   changer outputs
120 ;       7  motor driver row output enable
121 ;       6  /$1.00
122 ;       5  /$.25
123 ;       4  /$.10
124 ;       3  /$.05
125 ;       2  RESET
126 ;       1  /SEND
127 ;       0  /ACCEPT
128 ;3800   misc outputs
129 ;       7  not used
130 ;       6  col 9 motor driver
131 ;       5  col 8 motor driver
132 ;       4  motor driver serial data
133 ;       3  display write (clock) enable (active high)
134 ;       2  keypad strobe
135 ;       1  note acceptor connector
136 ;       0  note acceptor connector
137
138 ;-------
139 ; Ports
140 ;-------
141
142 ; PortA - Data: 0x1000, DDR for PA7 & PA3 in 0x1026
143 ; PA7 display reset (active low)
144 ; PA6 enables motor column drivers (when low)
145 ; PA5 clocks snack motor drivers (U16 5890 = serial-input latched source drivers (latch unused))
146 ; PA4 beepy thang (active high)
147 ; PA3 high - talking to coin vendie, low - talking to printer. (through PD1)
148 ; PA2 coin dispenser pin 6 (does what???)
149 ; PA1 bill validator 2
150 ; PA0 bill validator 1
151
152 ; PortB - not used directly
153 ; PB7 Address lines 8-15
154 ; PB6 
155 ; PB5 
156 ; PB4 
157 ; PB3 
158 ; PB2
159 ; PB1
160 ; PB0 
161
162 ; PortC - Data: 0x1003, Latch: 0x1005, DDR: 0x1007
163 ; PC7 Data Bus 0-7 / Address bus 0-7
164 ; PC6 
165 ; PC5 
166 ; PC4 
167 ; PC3 
168 ; PC2
169 ; PC1
170 ; PC0 
171
172 ; PortD - Data: 0x1008, DDR: 0x1009
173 ; PD7 n/c
174 ; PD6 n/c
175 ; PD5 keypad row select (output)
176 ; PD4 SPI - keypad & display clock signal (output)
177 ; PD3 display data (output)
178 ; PD2 keypad data (input)
179 ; PD1 RX of SCI - to coin disp or printer depending on PA3
180 ; PD0 TX of SCI - to coin disp or printer depending on PA3
181
182 ; PortE - Data: 0x100A
183 ; PE7 <unused>
184 ; PE6 <unused>
185 ; PE5 <unused>
186 ; PE4 <unused>
187 ; PE3 goes high when 24VUN line is too low
188 ; PE2 remote no-sale switch (active low)
189 ; PE1 motor overvoltage sense (active high)
190 ; PE0 motor overcurrent sense (active low)
191
192 ; Current status:
193 ;  JSR mapped out
194 ;  JMP mapped out
195
196 ; TODO:
197
198 8000 43              C     coma 
199 8001 20 50            P    bra 50
200 8003 4F              O     clra 
201 8004 57              W     asrb 
202 8005 45              E     illegal 
203 8006 52              R     illegal 
204 8007 20 43            C    bra 43
205 8009 4F              O     clra 
206 800A 4D              M     tsta 
207 800B 50              P     negb 
208 800C 41              A     illegal 
209 800D 4E              N     illegal 
210 800E 59              Y     rolb 
211 800F 00              .     test 
212 8010 43              C     coma 
213 8011 4F              O     clra 
214 8012 50              P     negb 
215 8013 59              Y     rolb 
216 8014 52              R     illegal 
217 8015 49              I     rola 
218 8016 47              G     asra 
219 8017 48              H     asla 
220 8018 54              T     lsrb 
221 8019 20 31            1    bra 31
222 801B 39              9     rts 
223 801C 39              9     rts 
224 801D 33              3     pulb 
225 801E 20 00            .    bra 00
226 8020 20 20                 bra 20
227 8022 20 20                 bra 20
228 8024 20 20                 bra 20
229 8026 20 20                 bra 20
230 8028 20 20                 bra 20
231 802A 20 20                 bra 20
232 802C 20 20                 bra 20
233 802E 20 00            .    bra 00
234 8030 56              V     rorb 
235 8031 45              E     illegal 
236 8032 4E              N     illegal 
237 8033 44              D     lsra 
238 8034 49              I     rola 
239 8035 4E              N     illegal 
240 8036 47              G     asra 
241 8037 20 4D            M    bra 4d
242 8039 41              A     illegal 
243 803A 43              C     coma 
244 803B 48              H     asla 
245 803C 49              I     rola 
246 803D 4E              N     illegal 
247 803E 45              E     illegal 
248 803F 00              .     test 
249 8040 53              S     comb 
250 8041 4F              O     clra 
251 8042 46              F     rora 
252 8043 54              T     lsrb 
253 8044 57              W     asrb 
254 8045 41              A     illegal 
255 8046 52              R     illegal 
256 8047 45              E     illegal 
257 8048 20 57            W    bra 57
258 804A 52              R     illegal 
259 804B 4F              O     clra 
260 804C 54              T     lsrb 
261 804D 45              E     illegal 
262 804E 20 00            .    bra 00
263 8050 42              B     illegal 
264 8051 59              Y     rolb 
265 8052 20 42            B    bra 42
266 8054 52              R     illegal 
267 8055 45              E     illegal 
268 8056 54              T     lsrb 
269 8057 20 42            B    bra 42
270 8059 4F              O     clra 
271 805A 52              R     illegal 
272 805B 45              E     illegal 
273 805C 4E              N     illegal 
274 805D 2E 20           .     bgt 20
275 805F 00              .     test 
276 8060 20 20                 bra 20
277 8062 20 20                 bra 20
278 8064 20 20                 bra 20
279 8066 20 20                 bra 20
280 8068 20 20                 bra 20
281 806A 20 20                 bra 20
282 806C 20 20                 bra 20
283 806E 20 00            .    bra 00
284 8070 50              P     negb 
285 8071 52              R     illegal 
286 8072 4F              O     clra 
287 8073 47              G     asra 
288 8074 52              R     illegal 
289 8075 41              A     illegal 
290 8076 4D              M     tsta 
291 8077 20 46            F    bra 46
292 8079 4F              O     clra 
293 807A 52              R     illegal 
294 807B 20 54            T    bra 54
295 807D 48              H     asla 
296 807E 45              E     illegal 
297 807F 00              .     test 
298 8080 35              5     txs 
299 8081 30              0     tsx 
300 8082 35              5     txs 
301 8083 20 41            A    bra 41
302 8085 4E              N     illegal 
303 8086 44              D     lsra 
304 8087 20 35            5    bra 35
305 8089 39              9     rts 
306 808A 30              0     tsx 
307 808B 30              0     tsx 
308 808C 2E 20           .     bgt 20
309 808E 20 00            .    bra 00
310 8090 20 20                 bra 20
311 8092 20 20                 bra 20
312 8094 20 20                 bra 20
313 8096 20 20                 bra 20
314 8098 20 20                 bra 20
315 809A 20 20                 bra 20
316 809C 20 20                 bra 20
317 809E 20 00            .    bra 00
318 80A0 50              P     negb 
319 80A1 41              A     illegal 
320 80A2 52              R     illegal 
321 80A3 54              T     lsrb 
322 80A4 20 4E            N    bra 4e
323 80A6 55              U     illegal 
324 80A7 4D              M     tsta 
325 80A8 42              B     illegal 
326 80A9 45              E     illegal 
327 80AA 52              R     illegal 
328 80AB 3A              :     abx 
329 80AC 20 20                 bra 20
330 80AE 20 00            .    bra 00
331 80B0 39              9     rts 
332 80B1 33              3     pulb 
333 80B2 37              7     pshb 
334 80B3 2D 33           -3    blt 33
335 80B5 30              0     tsx 
336 80B6 30              0     tsx 
337 80B7 30              0     tsx 
338 80B8 31              1     ins 
339 80B9 20 56            V    bra 56
340 80BB 45              E     illegal 
341 80BC 52              R     illegal 
342 80BD 20 35            5    bra 35
343 80BF 00              .     test 
344 80C0 43              C     coma 
345 80C1 48              H     asla 
346 80C2 45              E     illegal 
347 80C3 43              C     coma 
348 80C4 4B              K     illegal 
349 80C5 53              S     comb 
350 80C6 55              U     illegal 
351 80C7 4D              M     tsta 
352 80C8 20 45            E    bra 45
353 80CA 4E              N     illegal 
354 80CB 44              D     lsra 
355 80CC 3A              :     abx 
356 80CD 30              0     tsx 
357 80CE 30              0     tsx 
358 80CF 00              .     test 
359 80D0 20 20                 bra 20
360 80D2 20 20                 bra 20
361 80D4 20 20                 bra 20
362 80D6 20 20                 bra 20
363 80D8 20 20                 bra 20
364 80DA 20 20                 bra 20
365 80DC 20 20                 bra 20
366 80DE 20 00            .    bra 00
367 80E0 20 20                 bra 20
368 80E2 20 20                 bra 20
369 80E4 20 20                 bra 20
370 80E6 20 20                 bra 20
371 80E8 20 20                 bra 20
372 80EA 20 20                 bra 20
373 80EC 20 20                 bra 20
374 80EE 20 00            .    bra 00
375 80F0 20 20                 bra 20
376 80F2 20 20                 bra 20
377 80F4 20 20                 bra 20
378 80F6 20 20                 bra 20
379 80F8 00              .     test 
380 80F9 20 0C            .    bra 0c
381 80FB 93 73 00        .s.   subd 73
382 80FE 01              .     nop 
383 80FF 05              .     asld 
384
385 jump72:
386 8100 F6 00 1D        ...   ldab 001d
387 8103 C4 10           ..    andb #10
388 8105 27 3D           '=    beq 3d
389 8107 BD D6 52        ..R   jsr d652             ;jump5
390 810A CE 00 1D        ...   ldx #001d
391 810D 1D 00 10        ...   bclr 00,x, #10
392 8110 CE 00 1D        ...   ldx #001d
393 8113 1C 00 80        ..    bset 00,x, #80
394 8116 7F 00 42        ..    clr 0042
395 8119 7F 00 60        ..`   clr 0060
396 811C 7F 00 48        ..H   clr 0048
397 811F 7F 00 38        ..8   clr 0038
398 8122 F6 0B A8        ...   ldab 0ba8
399 8125 27 08           '.    beq 08
400 8127 CE 0B A9        ...   ldx #0ba9
401 812A 1C 00 02        ..    bset 00,x, #02
402 812D 20 06            .    bra 06
403 812F CE 0B A9        ...   ldx #0ba9
404 8132 1D 00 02        ...   bclr 00,x, #02
405 8135 7F 0E 00        ...   clr 0e00
406 8138 7F 0E 01        ...   clr 0e01
407 813B 7F 0E 02        ...   clr 0e02
408 813E 7F 0E 03        ...   clr 0e03
409 8141 7F 0E 04        ...   clr 0e04
410 8144 F6 00 42        ..B   ldab 0042
411 8147 C1 0B           ..    cmpb #0b
412 8149 26 0F           &.    bne 0f
413 814B BD AB 89        ...   jsr ab89             ;jump7
414 814E 7F 00 19        ...   clr 0019
415 8151 7F 00 60        ..`   clr 0060
416 8154 7F 00 42        ..B   clr 0042
417 8157 BD E6 1B        ...   jsr e61b             ;jump4
418 815A F6 0B A8        ...   ldab 0ba8
419 815D 26 03           &.    bne 03
420 815F 7E 81 EF        ~..   jmp 81ef             ;goto1
421 8162 F6 00 60        ..`   ldab 0060
422 8165 C1 04           ..    cmpb #04
423 8167 24 28           $(    bcc 28
424 8169 F6 00 42        ..B   ldab 0042
425 816C 27 21           '!    beq 21
426 816E F6 00 42        ..B   ldab 0042
427 8171 C1 0A           ..    cmpb #0a
428 8173 26 03           &.    bne 03
429 8175 7F 00 42        ..B   clr 0042
430 8178 F6 00 42        ..B   ldab 0042
431 817B CB 30           .0    addb #30
432 817D 37              7     pshb 
433 817E F6 00 60        ..`   ldab 0060
434 8181 4F              O     clra 
435 8182 C3 00 62        ..b   addd #0062
436 8185 8F              .     xgdx 
437 8186 33              3     pulb 
438 8187 E7 00           ..    stab 00,x
439 8189 7F 00 42        ..B   clr 0042
440 818C 7C 00 60        |.`   inc 0060
441 818F 20 5C            \    bra 5c
442 8191 F6 00 62        ..b   ldab 0062
443 8194 F1 0B A4        ...   cmpb 0ba4
444 8197 26 3D           &=    bne 3d
445 8199 F6 00 63        ..c   ldab 0063
446 819C F1 0B A5        ...   cmpb 0ba5
447 819F 26 35           &5    bne 35
448 81A1 F6 00 64        ..d   ldab 0064
449 81A4 F1 0B A6        ...   cmpb 0ba6
450 81A7 26 2D           &-    bne 2d
451 81A9 F6 00 65        ..e   ldab 0065
452 81AC F1 0B A7        ...   cmpb 0ba7
453 81AF 26 25           &%    bne 25
454 81B1 CE 0B A9        ...   ldx #0ba9
455 81B4 1D 00 02        ...   bclr 00,x, #02
456 81B7 CE 00 1F        ...   ldx #001f
457 81BA 1C 00 04        ..    bset 00,x, #04
458 81BD CE 00 1F        ...   ldx #001f
459 81C0 1C 00 80        ...   bset 00,x, #80
460 81C3 CE 00 1D        ...   ldx #001d
461 81C5 1C 00 10        ...   bset 00,x, #10
462 81C9 CC 02 33        ..3   ldd #0233
463 81CC FD 00 3B        ..;   std 003b
464 81CF C6 05           ..    ldab #05
465 81D1 F7 00 38        ..8   stab 0038
466 81D4 20 17            .    bra 17
467 81D6 7F 00 42        ..B   clr 0042
468 81D9 7F 00 60        ..`   clr 0060
469 81DC BD BE 69        ..i   jsr be69         ;displayreset
470 81DF BD BE 4B        ..K   jsr be4b         ;displayblank
471 81E2 CC B0 81        ...   ldd #b081    ;"NO  ACCESS"
472 81E5 BD C0 BA        ...   jsr c0ba         ;display:
473 81E8 C6 0A           ..    ldab #0a
474 81EA F7 00 38        ..8   stab 0038
475 81ED 20 03            .    bra 03
476 goto1:
477 81EF 7F 00 42        ..B   clr 0042
478 81F2 F6 00 38        ..8   ldab 0038
479 81F5 27 03           '.    beq 03
480 81F7 7E 84 9F        ~..   jmp 849f             ;goto2
481 81FA BD BE 4B        ..K   jsr be4b             ;displayblank
482 81FD F6 00 48        ..H   ldab 0048
483 8200 26 03           &.    bne 03
484 8202 BD AB A2        ...   jsr aba2             ;jump8
485 8205 F6 00 48        ..H   ldab 0048
486 8208 4F              O     clra 
487 8209 BD FE 16        ...   jsr fe16             ;jump2
488 820C 00 00                 ; hmmm.
489 820E 00 0D           ....  ; list len-2
490 8210 84 9F           ..    
491 8212 82 2E           ..    
492 8214 82 50           .P    
493 8216 82 B7           ..    
494 8218 82 D9           ..    
495 821A 83 40           .@    
496 821C 83 62           ..    
497 821E 83 A5           ..    
498 8220 82 C2           ..    
499 8222 83 DF           ..    
500 8224 83 FC           ..    
501 8226 84 19           ..    
502 8228 84 35           .5    
503 822A 84 51           .Q    
504 822C 84 78           .x    ; end of jump2 data
505 822E F6 00 19        ...   ldab 0019
506 8231 C4 01           ..    andb #01
507 8233 27 13           '.    beq 13
508 8235 CC AF F2        ...   ldd #aff2    ;"OVER CRNT="
509 8238 BD C0 BA        ...   jsr c0ba             ;display:
510 823B C6 0A           ..    ldab #0a
511 823D F7 00 38        ..8   stab 0038
512 8240 7F 00 54        ..T   clr 0054
513 8243 7C 00 48        |.H   inc 0048
514 8246 20 05            .    bra 05
515 8248 C6 02           ..    ldab #02
516 824A F7 00 48        ..H   stab 0048
517 824D 7E 84 9F        ~..   jmp 849f             ;goto2
518 8250 F6 00 54        ..T   ldab 0054
519 8253 4F              O     clra 
520 8254 CE 00 05        ...   ldx #0005
521 8257 02              .     idiv 
522 8258 5D              ]     tstb 
523 8259 27 4C           'L    beq 4c
524 825B F6 00 54        ..T   ldab 0054
525 825E F7 00 06        ...   stab 0006
526 8261 F6 00 06        ...   ldab 0006
527 8264 BD D7 A0        ...   jsr d7a0             ;jump10
528 8267 83 00 00        ...   subd #0000
529 826A 27 15           '.    beq 15
530 826C CC 7F FF        ...   ldd #7fff
531 826F 37              7     pshb 
532 8270 36              6     psha 
533 8271 F6 00 06        ...   ldab 0006
534 8274 4F              O     clra 
535 8275 05              .     asld 
536 8276 C3 08 00        ...   addd #0800
537 8279 38              8     pulx 
538 827A 8F              .     xgdx 
539 827B A4 00           ..    anda 00,x
540 827D E4 01           ..    andb 01,x
541 827F ED 00           ..    std 00,x
542 8281 F6 00 54        ..T   ldab 0054
543 8284 4F              O     clra 
544 8285 05              .     asld 
545 8286 C3 08 00        ...   addd #0800
546 8289 8F              .     xgdx 
547 828A EC 00           ..    ldd 00,x
548 828C 84 80           ..    anda #80
549 828E 27 17           '.    beq 17
550 8290 F6 00 54        ..T   ldab 0054
551 8293 4F              O     clra 
552 8294 05              .     asld 
553 8295 C3 08 C8        ...   addd #08c8
554 8298 8F              .     xgdx 
555 8299 EC 00           ..    ldd 00,x
556 829B 84 02           ..    anda #02
557 829D 27 08           '.    beq 08
558 829F BD 98 A5        ...   jsr 98a5             ;jump11
559 82A2 C6 0A           ..    ldab #0a
560 82A4 F7 00 38        ..8   stab 0038
561 82A7 7C 00 54        |.T   inc 0054
562 82AA F6 00 54        ..T   ldab 0054
563 82AD C1 64           .d    cmpb #64
564 82AF 26 03           &.    bne 03
565 82B1 7C 00 48        |.H   inc 0048
566 82B4 7E 84 9F        ~..   jmp 849f             ;goto2
567 82B7 F6 00 19        ...   ldab 0019
568 82BA C4 02           ..    andb #02
569 82BC 27 13           '.    beq 13
570 82BE CC AF FD        ...   ldd #affd    "HOME FAIL="
571 82C1 BD C0 BA        ...   jsr c0ba             ;display:
572 82C4 C6 0A           ..    ldab #0a
573 82C6 F7 00 38        ..8   stab 0038
574 82C9 7F 00 54        ..T   clr 0054
575 82CC 7C 00 48        |.H   inc 0048
576 82CF 20 05            .    bra 05
577 82D1 C6 04           ..    ldab #04
578 82D3 F7 00 48        ..H   stab 0048
579 82D6 7E 84 9F        ~..   jmp 849f             ;goto2
580 82D9 F6 00 54        ..T   ldab 0054
581 82DC 4F              O     clra 
582 82DD CE 00 05        ...   ldx #0005
583 82E0 02              .     idiv 
584 82E1 5D              ]     tstb 
585 82E2 27 4C           'L    beq 4c
586 82E4 F6 00 54        ..T   ldab 0054
587 82E7 F7 00 06        ...   stab 0006
588 82EA F6 00 06        ...   ldab 0006
589 82ED BD D7 A0        ...   jsr d7a0             ;jump10
590 82F0 83 00 00        ...   subd #0000
591 82F3 27 15           '.    beq 15
592 82F5 CC 7F FF        ...   ldd #7fff
593 82F8 37              7     pshb 
594 82F9 36              6     psha 
595 82FA F6 00 06        ...   ldab 0006
596 82FD 4F              O     clra 
597 82FE 05              .     asld 
598 82FF C3 08 00        ...   addd #0800
599 8302 38              8     pulx 
600 8303 8F              .     xgdx 
601 8304 A4 00           ..    anda 00,x
602 8306 E4 01           ..    andb 01,x
603 8308 ED 00           ..    std 00,x
604 830A F6 00 54        ..T   ldab 0054
605 830D 4F              O     clra 
606 830E 05              .     asld 
607 830F C3 08 00        ...   addd #0800
608 8312 8F              .     xgdx 
609 8313 EC 00           ..    ldd 00,x
610 8315 84 80           ..    anda #80
611 8317 27 17           '.    beq 17
612 8319 F6 00 54        ..T   ldab 0054
613 831C 4F              O     clra 
614 831D 05              .     asld 
615 831E C3 08 C8        ...   addd #08c8
616 8321 8F              .     xgdx 
617 8322 EC 00           ..    ldd 00,x
618 8324 84 04           ..    anda #04
619 8326 27 08           '.    beq 08
620 8328 BD 98 A5        ...   jsr 98a5             ;jump11
621 832B C6 0A           ..    ldab #0a
622 832D F7 00 38        ..8   stab 0038
623 8330 7C 00 54        |.T   inc 0054
624 8333 F6 00 54        ..T   ldab 0054
625 8336 C1 64           .d    cmpb #64
626 8338 26 03           &.    bne 03
627 833A 7C 00 48        |.H   inc 0048
628 833D 7E 84 9F        ~..   jmp 849f             ;goto2
629 8340 F6 00 19        ...   ldab 0019
630 8343 C4 04           ..    andb #04
631 8345 27 13           '.    beq 13
632 8347 CC B0 08        ...   ldd #b008    ; "CHK PRICES"
633 834A BD C0 BA        ...   jsr c0ba             ;display:
634 834D C6 0A           ..    ldab #0a
635 834F F7 00 38        ..8   stab 0038
636 8352 7F 00 54        ..T   clr 0054
637 8355 7C 00 48        |.H   inc 0048
638 8358 20 05            .    bra 05
639 835A C6 06           ..    ldab #06
640 835C F7 00 48        ..H   stab 0048
641 835F 7E 84 9F        ~..   jmp 849f             ;goto2
642 8362 F6 00 54        ..T   ldab 0054
643 8365 4F              O     clra 
644 8366 CE 00 05        ...   ldx #0005
645 8369 02              .     idiv 
646 836A 5D              ]     tstb 
647 836B 27 28           '(    beq 28
648 836D F6 00 54        ..T   ldab 0054
649 8370 F7 00 06        ...   stab 0006
650 8373 F6 00 06        ...   ldab 0006
651 8376 BD D7 A0        ...   jsr d7a0             ;jump10
652 8379 83 00 00        ...   subd #0000
653 837C 26 17           &.    bne 17
654 837E F6 00 54        ..T   ldab 0054
655 8381 4F              O     clra 
656 8382 05              .     asld 
657 8383 C3 08 C8        ...   addd #08c8
658 8386 8F              .     xgdx 
659 8387 EC 00           ..    ldd 00,x
660 8389 84 01           ..    anda #01
661 838B 27 08           '.    beq 08
662 838D BD 98 A5        ...   jsr 98a5             ;jump11
663 8390 C6 0A           ..    ldab #0a
664 8392 F7 00 38        ..8   stab 0038
665 8395 7C 00 54        |.T   inc 0054
666 8398 F6 00 54        ..T   ldab 0054
667 839B C1 64           .d    cmpb #64
668 839D 26 03           &.    bne 03
669 839F 7C 00 48        |.H   inc 0048
670 83A2 7E 84 9F        ~..   jmp 849f             ;goto2
671 ;
672 83A5 F6 0B C1        ...   ldab 0bc1
673 83A8 C4 01           ..    andb #01
674 83AA 27 10           '.    beq 10
675 83AC CC B0 34        ..4   ldd #b034    "CHGR PWRUP"
676 83AF BD C0 BA        ...   jsr c0ba             ;display:
677 83B2 7C 00 48        |.H   inc 0048
678 83B5 C6 0A           ..    ldab #0a
679 83B7 F7 00 38        ..8   stab 0038
680 83BA 20 03            .    bra 03
681 83BC 7C 00 48        |.H   inc 0048
682 83BF 7E 84 9F        ~..   jmp 849f             ;goto2
683 83C2 F6 0B C1        ...   ldab 0bc1
684 83C5 C4 02           ..    andb #02
685 83C7 27 10           '.    beq 10
686 83C9 CC B0 4A        ..J   ldd #b04a    "CARD PWRUP"
687 83CC BD C0 BA        ...   jsr c0ba             ;display:
688 83CF 7C 00 48        |.H   inc 0048
689 83D2 C6 0A           ..    ldab #0a
690 83D4 F7 00 38        ..8   stab 0038
691 83D7 20 03            .    bra 03
692 83D9 7C 00 48        |.H   inc 0048
693 83DC 7E 84 9F        ~..   jmp 849f             ;goto2
694 83DF F6 0B C1        ...   ldab 0bc1
695 83E2 C4 04           ..    andb #04
696 83E4 27 10           '.    beq 10
697 83E6 CC B0 3F        ..?   ldd #b03f    "LINK PWRUP"
698 83E9 BD C0 BA        ...   jsr c0ba             ;display:
699 83EC 7C 00 48        |.H   inc 0048
700 83EF C6 0A           ..    ldab #0a
701 83F1 F7 00 38        ..8   stab 0038
702 83F4 20 03            .    bra 03
703 83F6 7C 00 48        |.H   inc 0048
704 83F9 7E 84 9F        ~..   jmp 849f             ;goto2
705 83FC F6 0B C1        ...   ldab 0bc1
706 83FF C4 10           ..    andb #10
707 8401 27 10           '.    beq 10
708 8403 CC B0 1E        ...   ldd #b01e    "COIN   JAM"
709 8406 BD C0 BA        ...   jsr c0ba             ;display:
710 8409 7C 00 48        |.H   inc 0048
711 840C C6 0A           ..    ldab #0a
712 840E F7 00 38        ..8   stab 0038
713 8411 20 03            .    bra 03
714 8413 7C 00 48        |.H   inc 0048
715 8416 7E 84 9F        ~..   jmp 849f             ;goto2
716 8419 F6 0B C1        ...   ldab 0bc1
717 841C C4 20           .     andb #20
718 841E 27 10           '.    beq 10
719 8420 CC B0 29        ..)   ldd #b029    "BAD SENSOR"
720 8423 BD C0 BA        ...   jsr c0ba             ;display:
721 8426 7C 00 48        |.H   inc 0048
722 8429 C6 0A           ..    ldab #0a
723 842B F7 00 38        ..8   stab 0038
724 842E 20 03            .    bra 03
725 8430 7C 00 48        |.H   inc 0048
726 8433 20 6A            j    bra 6a
727 8435 F6 0B C1        ...   ldab 0bc1
728 8438 C4 08           ..    andb #08
729 843A 27 10           '.    beq 10
730 843C CC B0 55        ..U   ldd #b055    "BILL ERROR"
731 843F BD C0 BA        ...   jsr c0ba             ;display:
732 8442 7C 00 48        |.H   inc 0048
733 8445 C6 0A           ..    ldab #0a
734 8447 F7 00 38        ..8   stab 0038
735 844A 20 03            .    bra 03
736 844C 7C 00 48        |.H   inc 0048
737 844F 20 4E            N    bra 4e
738 8451 F6 0B C1        ...   ldab 0bc1
739 8454 C4 40           .@    andb #40
740 8456 27 10           '.    beq 10
741 8458 CC B0 60        ..`   ldd #b060    "TUBE ERROR"
742 845B BD C0 BA        ...   jsr c0ba             ;display:
743 845E 7F 00 48        ..H   clr 0048
744 8461 C6 0A           ..    ldab #0a
745 8463 F7 00 38        ..8   stab 0038
746 8466 20 0E            .    bra 0e
747 8468 7F 00 48        ..H   clr 0048
748 846B CC B0 13        ...   ldd #b013    "HIT RESET "
749 846E BD C0 BA        ...   jsr c0ba              ;display:
750 8471 C6 0A           ..    ldab #0a
751 8473 F7 00 38        ..8   stab 0038
752 8476 20 27            '    bra 27       ; to 849f (exit)
753 8478 F6 00 1D        ...   ldab 001d
754 847B 2C 0E           ,.    bge 0e
755 847D CC AE A8        ...   ldd #aea8    "  SYSTEM  "
756 8480 BD C0 BA        ...   jsr c0ba             ;display:
757 8483 CE 00 1D        ...   ldx #001d
758 8486 1D 00 80        ..    bclr 00,x, #80
759 8489 20 0C           .     bra 0c       ; to 8496
760 848B CC AE B3        ...   ldd #aeb3    "    OK    "
761 848E BD C0 BA        ...   jsr c0ba             ;display:
762 8491 CE 00 1D        ...   ldx #001d
763 8494 1C 00 80        ..    bset 00,x, #80
764 8496 C6 0F           ..    ldab #0f
765 8499 F7 00 38        ..8   stab 0038
766 849C 7F 00 48        ..H   clr 0048
767 goto2:
768 849F 39              9     rts 
769
770 jump73:
771 ; service mode menu?
772 84A0 FC 00 3B        ..;   ldd 003b
773 84A3 26 03           &.    bne 03
774 84A5 7E 85 96        ~..   jmp 8596             ;goto3
775 84A8 F6 00 1F        ...   ldab 001f
776 84AB 2C 40           ,@    bge 40
777 84AD BD D6 52        ..R   jsr d652             ;jump5
778 84B0 7F 00 42        ..B   clr 0042
779 84B3 7F 00 09        ...   clr 0009
780 84B6 7F 00 0A        ...   clr 000a
781 84B9 7F 00 06        ...   clr 0006
782 84BC 5F              _     clrb 
783 84BD 4F              O     clra 
784 84BE FD 00 40        ..@   std 0040
785 84C1 5F              _     clrb 
786 84C2 4F              O     clra 
787 84C3 FD 00 3E        ..>   std 003e
788 84C6 BD E5 AA        ...   jsr e5aa             ;jump12
789 84C9 CE 00 1F        ...   ldx #001f
790 84CC 1D 00 80        ..    bclr 00,x, #80
791 84CF CE 00 1F        ..    ldx #001f
792 84D2 1C 00 02        ....  bset 00,x, #02
793 84D5 CE 00 1D        ...   ldx #001d
794 84D8 1C 00 10        ..    bset 00,x, #10
795 84DB CE 00 17        ...   ldx #0017
796 84DE 1D 00 20        ..    bclr 00,x, #20
797 84E0 CE 00 17         .    ldx #0017
798 84E4 1D 00 40        ..    bclr 00,x, #40
799 84E7 CE 00 17        ...   ldx #0017
800 84EA 1D 00 80        ..    bclr 00,x, #80
801 84EC F6 0B A9        ...   ldab 0ba9
802 84F0 C4 02           ..    andb #02
803 84F2 27 20           '     beq 20       ; to 8414
804 84F4 F6 00 42        ..B   ldab 0042
805 84F7 4F              O     clra 
806 84F8 C3 0B E4        ...   addd #0be4
807 84FB 8F              .     xgdx 
808 84FC E6 00           ..    ldab 00,x
809 84FE 27 14           '.    beq 14
810 8500 BD BE 4B        ..K   jsr be4b             ;displayblank
811 8503 CC B0 81        ...   ldd #b081    ;"NO  ACCESS"
812 8506 BD C0 BA        ...   jsr c0ba             ;display:
813 8509 CC 02 58        ..X   ldd #0258    ;600
814 850C BD E5 71        ..q   jsr e571             ;msdelay
815 850F BD 85 AF        ...   jsr 85af             ;jump14
816 8512 20 6C            l    bra 6c       ; to 8580
817 ;
818 8514 F6 00 42        ..B   ldab 0042
819 8517 4F              O     clra 
820 8518 BD FE 16        ...   jsr fe16             ;jump2
821 851B 00 00           .     
822 851C 00 0B           .     
823 851F 85 80           ..    
824 8521 85 39           .9    
825 8523 85 4A           .J    ; key 1 - changer loading & calibration
826 8525 85 4F           .O    ; key 2 - win-a-snack odds programming
827 8527 85 54           .T    ; key 3 - set pricing
828 8529 85 59           .Y    ; key 4 - smart shopping discount
829 852B 85 5E           .^    ; key 5 - manual peripheral config
830 852D 85 63           .c    ; key 6 - promo vend-pair programming
831 852F 85 68           .h    ; key 7 - POS message & serial id
832 8531 85 6D           .m    ; key 8 - print info
833 8533 85 72           .r    ; key 9 - security code programming
834 8535 85 77           .w    ; key 0 - motor menu
835 8537 85 7C           .|    ; reset key - 
836 ;
837 8539 CC AE 92        ...   ldd #ae92    "-         "
838 853C BD C0 BA        ...   jsr c0ba         ;display:
839 853F 7F 00 42        ..B   clr 0042
840 8542 CE 00 1F        ...   ldx #001f
841 8545 1C 00 02        ..    bset 00,x, #02
842 8548 20 36            6    bra 36
843 854A BD 86 84        ...   jsr 8684             ;jump15
844 854D 20 31            1    bra 31
845 854F BD 88 2E        ...   jsr 882e             ;jump16
846 8552 20 2C            ,    bra 2c
847 8554 BD 88 B8        ...   jsr 88b8             ;jump17
848 8557 20 27            '    bra 27
849 8559 BD 8C B4        ...   jsr 8cb4             ;jump18
850 855C 20 22            "    bra 22
851 855E BD 8E 35        ..5   jsr 8e35             ;jump19
852 8561 20 1D            .    bra 1d
853 8563 BD 8F 0D        ...   jsr 8f0d             ;jump20
854 8566 20 18            .    bra 18
855 8568 BD 90 D1        ...   jsr 90d1             ;jump21
856 856B 20 13            .    bra 13
857 856D BD 92 EE        ...   jsr 92ee             ;jump22
858 8570 20 0E            .    bra 0e
859 8572 BD 93 A5        ...   jsr 93a5             ;jump23
860 8575 20 09            .    bra 09
861 8577 BD 94 DD        ...   jsr 94dd             ;jump24
862 857A 20 04            .    bra 04
863 857C 8D 31           .1    bsr 31       ;jump14
864 857E 20 00            .    bra 00
865 ;
866 8580 7F 00 0A        ...   clr 000a
867 8583 F6 00 42        ..B   ldab 0042
868 8586 C1 0A           ..    cmpb #0a
869 8588 27 0A           '.    beq 0a
870 858A F6 00 42        ..B   ldab 0042
871 858D C1 07           ..    cmpb #07
872 858F 27 03           '.    beq 03
873 8591 7F 00 09        ...   clr 0009
874 8594 20 18            .    bra 18
875 goto3:
876 8596 CE 00 1F        ...   ldx #001f
877 8599 1D 00 04        ...   bclr 00,x, #04
878 859C CE 00 1F        ...   ldx #001f
879 859F 1C 00           ..    bset 00,x, #80
880 85A2 CE 00 1D        ...   ldx #001d
881 85A5 1C 00 10        ...   bset 00,x, #10
882 85A8 BD BE 69        ..i   jsr be69             ;displayreset
883 85AB BD E5 AA        ...   jsr e5aa             ;jump12
884 85AE 39              9     rts 
885
886 jump14:
887 85AF 7F 00 42        ..B   clr 0042
888 85B2 7F 00 06        ...   clr 0006
889 85B5 CE 00 1F        ...   ldx #001f
890 85B8 1C 00 02        ..    bset 00,x, #02
891 85BB BD BE 69        ..i   jsr be69             ;displayreset
892 85BE 39              9     rts 
893
894 jump28:
895 85BF F6 00 12        ...   ldab 0012
896 85C2 C4 1E           ..    andb #1e     ; 00011110
897 85C4 4F              O     clra 
898 85C5 BD FE 32        ..2   jsr fe32             ;jump25
899 85C8 85 DE 00 0E     ....  ; 14  000 0111 0
900 85CC 86 08 00 08     ....  ; 22  000 1011 0
901 85D0 86 32 00 04     ....  ; 26  000 1101 0
902 85D4 86 5C 00 02     ....  ; 28  000 1110 0
903 85D8 86 83 FF E4     ....  ; 0
904 85DC 00 00           ..    ; end of array
905 85DE F6 0B DC        ...   ldab 0bdc
906 85E1 F7 00 01        ...   stab 0001
907 85E4 BD C4 30        ..0   jsr c430             ;jump26
908 85E7 C6 01           ..    ldab #01
909 85E9 F7 00 48        ..H   stab 0048
910 85EC 7F 00 2C        ..,   clr 002c
911 85EF F6 0C D9        ...   ldab 0cd9
912 85F2 27 03           '.    beq 03
913 85F4 7A 0C D9        z..   dec 0cd9
914 85F7 BD 97 F6        ...   jsr 97f6             ;jump27
915 85FA CC 01 5E        ..^   ldd #015e
916 85FD BD E5 71        ..q   jsr e571             ;msdelay
917 8600 CC 02 33        ..3   ldd #0233
918 8603 FD 00 3B        ..;   std 003b
919 8606 20 7B            {    bra 7b
920 8608 F6 0B DB        ...   ldab 0bdb
921 860B F7 00 01        ...   stab 0001
922 860E BD C4 30        ..0   jsr c430             ;jump26
923 8611 C6 02           ..    ldab #02
924 8613 F7 00 48        ..H   stab 0048
925 8616 7F 00 2C        ..,   clr 002c
926 8619 F6 0C DA        ...   ldab 0cda
927 861C 27 03           '.    beq 03
928 861E 7A 0C DA        z..   dec 0cda
929 8621 BD 97 F6        ...   jsr 97f6             ;jump27
930 8624 CC 01 5E        ..^   ldd #015e
931 8627 BD E5 71        ..q   jsr e571             ;msdelay
932 862A CC 02 33        ..3   ldd #0233
933 862D FD 00 3B        ..;   std 003b
934 8630 20 51            Q    bra 51
935 8632 F6 0B DA        ...   ldab 0bda
936 8635 F7 00 01        ...   stab 0001
937 8638 BD C4 30        ..0   jsr c430             ;jump26
938 863B C6 03           ..    ldab #03
939 863D F7 00 48        ..H   stab 0048
940 8640 7F 00 2C        ..,   clr 002c
941 8643 F6 0C DB        ...   ldab 0cdb
942 8646 27 03           '.    beq 03
943 8648 7A 0C DB        z..   dec 0cdb
944 864B BD 97 F6        ...   jsr 97f6             ;jump27
945 864E CC 01 5E        ..^   ldd #015e
946 8651 BD E5 71        ..q   jsr e571             ;msdelay
947 8654 CC 02 33        ..3   ldd #0233
948 8657 FD 00 3B        ..;   std 003b
949 865A 20 27            '    bra 27
950 865C C6 40           .@    ldab #40
951 865E F7 00 01        ...   stab 0001
952 8661 BD C4 30        ..0   jsr c430             ;jump26
953 8664 C6 04           ..    ldab #04
954 8666 F7 00 48        ..H   stab 0048
955 8669 7F 00 2C        ..,   clr 002c
956 866C F6 0C DC        ...   ldab 0cdc
957 866F 27 03           '.    beq 03
958 8671 7A 0C DC        z..   dec 0cdc
959 8674 BD 97 F6        ...   jsr 97f6             ;jump27
960 8677 CC 01 5E        ..^   ldd #015e
961 867A BD E5 71        ..q   jsr e571             ;msdelay
962 867D CC 02 33        ..3   ldd #0233
963 8680 FD 00 3B        ..;   std 003b
964 8683 39              9     rts 
965
966 jump15:
967 ; changer load & calibrate menu
968 8684 F6 00 1F        ...   ldab 001f
969 8687 C4 02           ..    andb #02
970 8689 27 2B           '+    beq 2b
971 868B CE 00 1F        ...   ldx #001f
972 868E 1D 00 02        ...   bclr 00,x, #02
973 8691 C6 01           ..    ldab #01
974 8693 F7 00 48        ..H   stab 0048
975 8696 F6 0B C0        ...   ldab 0bc0
976 8699 C4 01           ..    andb #01
977 869B 27 16           '.    beq 16
978 869D C6 27           .'    ldab #27
979 869F F7 10 2D        ..-   stab 102d    ; disable SCI transmission
980 86A2 C6 07           ..    ldab #07
981 86A4 F7 10 2B        ..+   stab 102b    ; 600 baud
982 86A7 CE 00 1A        ...   ldx #001a
983 86AA 1D 00 01        ..    bclr 00,x, #01
984 86AD F6 00 1A        ...   ldab 001a
985 86B0 F7 30 00        .0.   stab 3000    ; changer accept on
986 86B3 7E 87 E8        ~..   jmp 87e8             ;goto4
987 86B6 F6 00 09        ...   ldab 0009
988 86B9 4F              O     clra 
989 86BA BD FE 32        ..2   jsr fe32             ;jump25
990 86BD 86 D7 00 00     ....  ; no key
991 86C1 87 39 00 01     ....  ; key 1
992 86C5 87 75 00 01     ....  ; key 2
993 86C9 87 C5 00 08     ....  ; key 0
994 86CD 87 D9 00 01     ....  ; key reset
995 86D1 87 E8 FF F5     ....  ; no key
996 86D5 00 00           ..    ; end of array data
997 86D7 C6 FF           ..    ldab #ff
998 86D9 F7 0B BC        ...   stab 0bbc
999 86DC F6 18 00        ...   ldab 1800
1000 86DF 2D 29           -)    blt 29
1001 86E1 F6 00 07        ...   ldab 0007
1002 86E4 26 24           &$    bne 24
1003 86E6 CE 00 1A        ...   ldx #001a
1004 86E9 1D 00 02        ..    bclr 00,x, #02
1005 86EC F6 00 1A        ...   ldab 001a
1006 86EF F7 30 00        .0.   stab 3000    ; send msg to changer?
1007 86F2 CC 00 32        ..2   ldd #0032
1008 86F5 BD E5 71        ..q   jsr e571             ;msdelay
1009 86F8 CE 00 1A        ...   ldx #001a
1010 86FB 1C 00 02        ..    bset 00,x, #02
1011 86FE F6 00 1A        ...   ldab 001a
1012 8701 F7 30 00        .0.   stab 3000    ; turn changer send line off
1013 8704 CC 02 33        ..3   ldd #0233
1014 8707 FD 00 3B        ..;   std 003b
1015 870A 5F              _     clrb 
1016 870B 4F              O     clra 
1017 870C FD 00 40        ..@   std 0040
1018 870F 5F              _     clrb 
1019 8710 4F              O     clra 
1020 8711 FD 00 3E        ..>   std 003e
1021 8714 F6 0B C0        ...   ldab 0bc0
1022 8717 C4 01           ..    andb #01
1023 8719 27 03           '.    beq 03
1024 871B BD 85 BF        ...   jsr 85bf             ;jump28
1025 871E BD DC A3        ...   jsr dca3             ;jump29
1026 8721 BD 97 F6        ...   jsr 97f6             ;jump27
1027 8724 CE 00 17        ...   ldx #0017
1028 8727 1D 00           ..    bclr add,x 00,x
1029 8729 20 CE            .    bra ce
1030 872B 00              .     test 
1031 872C 17              .     tba 
1032 872D 1D 00 40        ...   bclr 00,x, #40
1033 8730 CE 00 17        ...   ldx #0017
1034 8733 1D 00           ..    bclr add,x 00,x
1035 8735 80 7E           .~    suba #7e
1036 8737 87              .     illegal 
1037 8738 E8 F6           ..    eorb f6,x
1038 873A 00              .     test 
1039 873B 36              6     psha 
1040 873C 26 2F           &/    bne 2f
1041 873E F6 00 48        ..H   ldab 0048
1042 8741 4F              O     clra 
1043 8742 BD FE 16        ...   jsr fe16             ;jump2
1044 8745 00 01 00 03     .     ; data for jump2
1045 8749 87 65           .     
1046 874B 87 53           .     
1047 874D 87 58           .     
1048 874F 87 5D           .     
1049 8751 87 62           .     ; end of data
1050 8753 7C 0C D9        |..   inc 0cd9
1051 8756 20 0D            .    bra 0d
1052 8758 7C 0C DA        |..   inc 0cda
1053 875B 20 08            .    bra 08
1054 875D 7C 0C DB        |..   inc 0cdb
1055 8760 20 03            .    bra 03
1056 8762 7C 0C DC        |..   inc 0cdc
1057 8765 BD 97 F6        ...   jsr 97f6             ;jump27
1058 8768 C6 02           ..    ldab #02
1059 876A F7 00 36        ..6   stab 0036
1060 876D CE 00 1B        ...   ldx #001b
1061 8770 1C 00 10        ...   bset 00,x, #10
1062 8773 20 73            s    bra 73
1063 8775 F6 00 36        ..6   ldab 0036
1064 8778 26 43           &C    bne 43
1065 877A F6 00 48        ..H   ldab 0048
1066 877D 4F              O     clra 
1067 877E BD FE 16        ...   jsr fe16             ;jump2
1068 8781 00              .     test 
1069 8782 01              .     nop 
1070 8783 00              .     test 
1071 8784 03              .     fdiv 
1072 8785 87              .     illegal 
1073 8786 B5 87 8F        ...   bita 878f
1074 8789 87              .     illegal 
1075 878A 99 87 A3        ...   adca 87
1076 878D 87              .     illegal 
1077 878E AD F6           ..    jsr f6,x
1078 8790 0C              .     clc 
1079 8791 D9 27 03        .'.   adcb 27
1080 8794 7A 0C D9        z..   dec 0cd9
1081 8797 20 1C            .    bra 1c
1082 8799 F6 0C DA        ...   ldab 0cda
1083 879C 27 03           '.    beq 03
1084 879E 7A 0C DA        z..   dec 0cda
1085 87A1 20 12            .    bra 12
1086 87A3 F6 0C DB        ...   ldab 0cdb
1087 87A6 27 03           '.    beq 03
1088 87A8 7A 0C DB        z..   dec 0cdb
1089 87AB 20 08            .    bra 08
1090 87AD F6 0C DC        ...   ldab 0cdc
1091 87B0 27 03           '.    beq 03
1092 87B2 7A 0C DC        z..   dec 0cdc
1093 87B5 BD 97 F6        ...   jsr 97f6             ;jump27
1094 87B8 C6 02           ..    ldab #02
1095 87BA F7 00 36        ..6   stab 0036
1096 87BD CE 00 1B        ...   ldx #001b
1097 87C0 1C 00 10        ...   bset 00,x, #10
1098 87C3 20 23            #    bra 23
1099 87C5 7C 00 48        |.H   inc 0048
1100 87C8 F6 00 48        ..H   ldab 0048
1101 87CB C1 04           ..    cmpb #04
1102 87CD 23 05           #.    bls 05
1103 87CF C6 01           ..    ldab #01
1104 87D1 F7 00 48        ..H   stab 0048
1105 87D4 BD 97 F6        ...   jsr 97f6             ;jump27
1106 87D7 20 0F            .    bra 0f
1107 87D9 CE 00 1A        ...   ldx #001a
1108 87DC 1C 00 01        ..    bset 00,x, #01
1109 87DF F6 00 1A        ...   ldab 001a
1110 87E2 F7 30 00        .0.   stab 3000    ; turn changer accept line off
1111 87E5 BD 85 AF        ...   jsr 85af             ;jump14
1112 goto4:
1113 87E8 39              9     rts 
1114
1115 jump74:
1116 87E9 7F 00 05        ...   clr 0005
1117 87EC 7F 00 54        ..T   clr 0054
1118 87EF F6 00 54        ..T   ldab 0054
1119 87F2 C1 50           .P    cmpb #50
1120 87F4 24 2E           $.    bcc 2e
1121 87F6 F6 00 54        ..T   ldab 0054
1122 87F9 4F              O     clra 
1123 87FA C3 B0 D3        ...   addd #b0d3
1124 87FD 8F              .     xgdx 
1125 87FE E6 00           ..    ldab 00,x
1126 8800 F7 00 06        ...   stab 0006
1127 8803 F6 00 06        ...   ldab 0006
1128 8806 BD D7 A0        ...   jsr d7a0             ;jump10
1129 8809 83 00 00        ...   subd #0000
1130 880C 26 11           &.    bne 11
1131 880E BD D3 11        ...   jsr d311             ;jump30
1132 8811 83 00 00        ...   subd #0000
1133 8814 26 03           &.    bne 03
1134 8816 7C 00 05        |..   inc 0005
1135 8819 CC 00 05        ...   ldd #0005
1136 881C BD E5 71        ..q   jsr e571             ;msdelay
1137 881F 7C 00 54        |.T   inc 0054
1138 8822 20 CB            .    bra cb
1139 8824 BD 99 81        ...   jsr 9981             ;jump144
1140 8827 CC 07 D0        ...   ldd #07d0
1141 882A BD E5 71        ..q   jsr e571             ;msdelay
1142 882D 39              9     rts 
1143
1144 jump16:
1145 882E F6 00 1F        ...   ldab 001f
1146 8831 C4 02           ..    andb #02
1147 8833 27 12           '.    beq 12
1148 8835 FC 0B B5        ...   ldd 0bb5
1149 8838 C4 FF           ..    andb #ff
1150 883A 84 01           ..    anda #01
1151 883C FD 00 52        ..R   std 0052
1152 883F CE 00 1F        ...   ldx #001f
1153 8842 1D 00 02        ...   bclr 00,x, #02
1154 8845 20 70            p    bra 70
1155 8847 F6 00 09        ...   ldab 0009
1156 884A 4F              O     clra 
1157 884B BD FE 32        ..2   jsr fe32             ;jump25
1158 884E 88 68 00 00     ....  ; cancel.
1159 8852 88 6D 00 01     ....  ; key 1 - increment
1160 8856 88 83 00 01     ....  ; key 2 - decrement
1161 885A 88 A7 00 08     ....  ; key 0 - saving
1162 885E 88 B4 00 01     ....  ; reset
1163 8862 88 B7 FF F5     ....  ; no key - return
1164 8866 00 00           ....  ; end of array data
1165 ;
1166 8868 BD 9A 05        ...   jsr 9a05             ;jump102 - write ODDS 1/
1167 886B 20 4A            J    bra 4a       ; to 88b7 - return
1168 ; increment 50
1169 886D FC 00 52        ..R   ldd 0052
1170 8870 83 01 F4        ...   subd #01f4   ; 500
1171 8873 24 09           $.    bcc 09       ; dont let them go above 500
1172 8875 FC 00 52        ..R   ldd 0052
1173 8878 C3 00 32        ..2   addd #0032   ; +50
1174 887B FD 00 52        ..R   std 0052
1175 887E BD 9A 05        ...   jsr 9a05             ;jump102 - write ODDS 1/
1176 8881 20 34            4    bra 34
1177 ;
1178 8883 FC 00 52        ..R   ldd 0052
1179 8886 83 00 32        ..2   subd #0032   ; 50
1180 8889 23 17           #.    bls 17       ; dont let them go below 50
1181 888B FC 00 52        ..R   ldd 0052
1182 888E C3 FF CE        ...   addd #ffce   ; -50
1183 8891 FD 00 52        ..R   std 0052
1184 8894 FC 00 52        ..R   ldd 0052
1185 8897 83 00 32        ..2   subd #0032   ; 50
1186 889A 24 06           $.    bcc 06
1187 889C CC 00 32        ..2   ldd #0032   ; 100
1188 889F FD 00 52        ..R   std 0052
1189 88A2 BD 9A 05        ...   jsr 9a05             ;jump102 - write ODDS 1/
1190 88A5 20 10            .    bra 10
1191 ;
1192 88A7 BD A3 7C        ..|   jsr a37c             ;jump141 - save
1193 88AA 5F              _     clrb 
1194 88AB 4F              O     clra 
1195 88AC FD 0B B9        ...   std 0bb9
1196 88AF BD 85 AF        ...   jsr 85af             ;jump14
1197 88B2 20 03            .    bra 03
1198 88B4 BD 85 AF        ...   jsr 85af             ;jump14
1199 88B7 39              9     rts 
1200
1201 jump17:
1202 ; set pricing
1203 88B8 F6 00 1F        ...   ldab 001f
1204 88BB C4 02           ..    andb #02
1205 88BD 26 0A           &.    bne 0a
1206 88BF F6 00 3A        ..:   ldab 003a
1207 88C2 26 28           &(    bne 28
1208 88C4 F6 00 1D        ...   ldab 001d
1209 88C7 2D 23           -#    blt 23
1210 88C9 7F 00 2C        ..,   clr 002c
1211 88CC CC AE 9D        ...   ldd #ae9d    "SET PRICE?"
1212 88CF BD C0 BA        ...   jsr c0ba             ;display:
1213 88D2 CE 00 1F        ...   ldx #001f
1214 88D5 1D 00 02        ..    bclr 00,x, #02
1215 88D8 CE 00 1F        ...   ldx #001f
1216 88DB 1D 00 40        ..    bclr 00,x, #40
1217 88DE CE 00 1D        ...   ldx #001d
1218 88E1 1D 00 80        ..    bclr 00,x, #80
1219 88E4 7F 00 54        ...   clr 0054
1220 88E7 C6 32           .2    ldab #32
1221 88E9 F7 00 3A        ..:   stab 003a
1222 88EC F6 00 09        ...   ldab 0009
1223 88EF 26 03           &.    bne 03
1224 88F1 7E 89 E1        ~..   jmp 89e1             ;goto5
1225 88F4 F6 00 1D        ...   ldab 001d
1226 88F7 2C 03           ,.    bge 03
1227 88F9 7E 89 E1        ~..   jmp 89e1             ;goto5
1228 88FC F6 00 09        ...   ldab 0009
1229 88FF C1 0B           ..    cmpb #0b
1230 8901 26 06           &.    bne 06
1231 8903 BD 85 AF        ...   jsr 85af             ;jump14
1232 8906 7E 89 DE        ~..   jmp 89de             ;goto6
1233 8909 F6 00 54        ..T   ldab 0054
1234 890C 26 26           &&    bne 26
1235 890E BD BE 4B        ..K   jsr be4b             ;displayblank
1236 8911 F6 00 09        ...   ldab 0009
1237 8914 C1 0A           ..    cmpb #0a
1238 8916 26 03           &.    bne 03
1239 8918 7F 00 09        ...   clr 0009
1240 891B F6 00 09        ...   ldab 0009
1241 891E CB 30           .0    addb #30
1242 8920 37              7     pshb 
1243 8921 CC 0B 95        ...   ldd #0b95
1244 8924 F0 00 54        ..T   subb 0054
1245 8927 82 00           ..    sbca #00
1246 8929 8F              .     xgdx 
1247 892A 33              3     pulb 
1248 892B E7 00           ..    stab 00,x
1249 892D C6 32           .2    ldab #32
1250 892F F7 00 3A        ..:   stab 003a
1251 8932 20 37            7    bra 37
1252 8934 F6 00 54        ..T   ldab 0054
1253 8937 C1 01           ..    cmpb #01
1254 8939 26 27           &'    bne 27
1255 893B F6 00 09        ...   ldab 0009
1256 893E C1 05           ..    cmpb #05
1257 8940 27 20           '     beq 20
1258 8942 F6 00 09        ...   ldab 0009
1259 8945 C1 0A           ..    cmpb #0a
1260 8947 27 19           '.    beq 19
1261 8949 F6 00 09        ...   ldab 0009
1262 894C CB 30           .0    addb #30
1263 894E 37              7     pshb 
1264 894F CC 0B 95        ...   ldd #0b95
1265 8952 F0 00 54        ..T   subb 0054
1266 8955 82 00           ..    sbca #00
1267 8957 8F              .     xgdx 
1268 8958 33              3     pulb 
1269 8959 E7 00           ..    stab 00,x
1270 895B C6 32           .2    ldab #32
1271 895D F7 00 3A        ..:   stab 003a
1272 8960 20 09            .    bra 09
1273 8962 CE 00 1F        ...   ldx #001f
1274 8965 1C 00 02        ..    bset 00,x, #02
1275 8968 7F 00 3A        ..:   clr 003a
1276 896B BD BE 01        ...   jsr be01             ;jump70
1277 896E 7C 00 54        |.T   inc 0054
1278 8971 F6 00 54        ..T   ldab 0054
1279 8974 C1 02           ..    cmpb #02
1280 8976 26 60           &`    bne 60
1281 8978 CE 00 1D        ...   ldx #001d
1282 897B 1C 00 80        ..    bset 00,x, #80
1283 897E F6 0B 94        ..    ldab 0b94
1284 8980 CB D0           ..    addb #d0
1285 8983 37              7     pshb 
1286 8984 F6 0B 95        ...   ldab 0b95
1287 8987 CB D0           ..    addb #d0
1288 8989 86 0A           ..    ldaa #0a
1289 898B 3D              =     mul 
1290 898C 30              0     tsx 
1291 898D EB 00           ..    addb 00,x
1292 898F 31              1     ins 
1293 8990 F7 00 06        ...   stab 0006
1294 8993 C6 32           .2    ldab #32
1295 8995 F7 00 3A        ..:   stab 003a
1296 8998 F6 00 06        ...   ldab 0006
1297 899B BD D7 A0        ...   jsr d7a0             ;jump10
1298 899E 83 00 00        ...   subd #0000
1299 89A1 26 27           &'    bne 27
1300 89A3 BD D3 11        ...   jsr d311             ;jump30
1301 89A6 83 00 00        ...   subd #0000
1302 89A9 26 0B           &.    bne 0b
1303 89AB CE 00 1F        ...   ldx #001f
1304 89AE 1C 00 40        ..    bset 00,x, #40
1305 89B1 BD 8C 73        ..s   jsr 8c73             ;jump75
1306 89B4 20 0F            .    bra 0f
1307 89B6 CE 00 1F        ...   ldx #001f
1308 89B9 1D 00 40        ..    bclr 00,x, #40
1309 89BC CC 2A FF        .*.   ldd #2aff
1310 89BF FD 00 27        ..'   std 0027
1311 89C2 BD A3 85        ...   jsr a385             ;jump40
1312 89C5 BD 9A 47        ..G   jsr 9a47             ;jump39
1313 89C8 20 0C            .    bra 0c
1314 89CA CE 00 1D        ...   ldx #001d
1315 89CD 1D 00           ..    bclr 00,x, #80
1316 89D0 CE 00 1F        ...   ldx #001f
1317 89D3 1C 00 02        ...   bset 00,x, #02
1318 89D6 20 06            .    bra 06
1319 89D8 CE 00 1D        ...   ldx #001d
1320 89DB 1D 00 80        ...   bclr 00,x, #80
1321 ;goto6
1322 89DE 7E 8C 72        .~    jmp 8c72     ;goto7
1323 ;goto5
1324 89E1 F6 00 1D        ...   ldab 001d
1325 89E4 2D 03           -.    blt 03
1326 89E6 7E 8C 72        ~.r   jmp 8c72             ;goto7
1327 89E9 F6 00 09        ...   ldab 0009
1328 89EC 4F              O     clra 
1329 89ED BD FE 16        ...   jsr fe16             ;jump2
1330 89F0 00 00 00 0B     ....  ; params to jump2
1331 89F4 8C 72           ..    
1332 89F6 8A 0E           ..    
1333 89F8 8A 14           ..    
1334 89FA 8A AA           ..    
1335 89FC 8B 5E           .^    
1336 89FE 8B 9E           ..    
1337 8A00 8B DB           ..    
1338 8A02 8C 72           ..    
1339 8A04 8C 72           ..    
1340 8A06 8C 72           ..    
1341 8A08 8B FC           ..    
1342 8A0A 8C 67           ..    
1343 8A0C 8C 6F           ..    
1344 8A0E BD 9A 47        ..    jsr 9a47    ;jump39
1345 8A11 7E 8C 72        ...   jmp 8c72    ;goto7
1346 8A14 F6 00 36        ...   ldab 0036
1347 8A17 27 03           '.    beq 03
1348 8A19 7E 8A 9B        ~..   jmp 8a9b             ;goto8
1349 8A1C F6 00 1F        ...   ldab 001f
1350 8A1F C4 40           .@    andb #40
1351 8A21 27 78           'x    beq 78
1352 8A23 F6 0B C0        ...   ldab 0bc0
1353 8A26 C4 02           ..    andb #02
1354 8A28 27 52           'R    beq 52
1355 8A2A F6 0B AA        ...   ldab 0baa
1356 8A2D C1 32           .2    cmpb #32
1357 8A2F 24 22           $"    bcc 22
1358 8A31 F6 0B AA        ...   ldab 0baa
1359 8A34 4F              O     clra 
1360 8A35 F3 00 27        ..'   addd 0027
1361 8A38 FD 00 27        ..'   std 0027
1362 8A3B F6 0B AA        ...   ldab 0baa
1363 8A3E 4F              O     clra 
1364 8A3F 37              7     pshb 
1365 8A40 36              6     psha 
1366 8A41 CC 00 FA        ...   ldd #00fa
1367 8A44 BD FB BA        ...   jsr fbba             ;jump38
1368 8A47 B3 00 27        ..'   subd 0027
1369 8A4A 24 05           $.    bcc 05
1370 8A4C 5F              _     clrb 
1371 8A4D 4F              O     clra 
1372 8A4E FD 00 27        ..'   std 0027
1373 8A51 20 27            '    bra 27
1374 8A53 F6 0B AA        ...   ldab 0baa
1375 8A56 C1 32           .2    cmpb #32
1376 8A58 26 20           &     bne 20
1377 8A5A F6 0B AA        ...   ldab 0baa
1378 8A5D 4F              O     clra 
1379 8A5E F3 00 27        ..'   addd 0027
1380 8A61 FD 00 27        ..'   std 0027
1381 8A64 F6 0B AA        ...   ldab 0baa
1382 8A67 4F              O     clra 
1383 8A68 37              7     pshb 
1384 8A69 36              6     psha 
1385 8A6A CC 00 C7        ...   ldd #00c7
1386 8A6D BD FB BA        ...   jsr fbba             ;jump38
1387 8A70 B3 00 27        ..'   subd 0027
1388 8A73 24 05           $.    bcc 05
1389 8A75 5F              _     clrb 
1390 8A76 4F              O     clra 
1391 8A77 FD 00 27        ..'   std 0027
1392 8A7A 20 17            .    bra 17
1393 8A7C F6 0B AA        ...   ldab 0baa
1394 8A7F 4F              O     clra 
1395 8A80 F3 00 27        ..'   addd 0027
1396 8A83 FD 00 27        ..'   std 0027
1397 8A86 FC 00 27        ..'   ldd 0027
1398 8A89 83 27 0F        .'.   subd #270f
1399 8A8C 23 05           #.    bls 05
1400 8A8E 5F              _     clrb 
1401 8A8F 4F              O     clra 
1402 8A90 FD 00 27        ..'   std 0027
1403 8A93 BD 9A 47        ..G   jsr 9a47             ;jump39
1404 8A96 C6 02           ..    ldab #02
1405 8A98 F7 00 36        ..6   stab 0036
1406
1407 goto8:
1408 8A9B CE 00 1B        ...   ldx #001b
1409 8A9E 1C 00 10        ...   bset 00,x, #10
1410 8AA1 CC 02 33        ..3   ldd #0233
1411 8AA4 FD 00 3B        ..;   std 003b
1412 8AA7 7E 8C 72        ~.r   jmp 8c72             ;goto7
1413 8AAA F6 00 36        ..6   ldab 0036
1414 8AAD 27 03           '.    beq 03
1415 8AAF 7E 8B 4F        ~.O   jmp 8b4f             ;goto9
1416 8AB2 F6 00 1F        ...   ldab 001f
1417 8AB5 C4 40           .@    andb #40
1418 8AB7 26 03           &.    bne 03
1419 8AB9 7E 8B 4F        ~.O   jmp 8b4f             ;goto9
1420 8ABC F6 0B C0        ...   ldab 0bc0
1421 8ABF C4 02           ..    andb #02
1422 8AC1 27 57           'W    beq 57
1423 8AC3 FC 00 27        ..'   ldd 0027
1424 8AC6 26 18           &.    bne 18
1425 8AC8 F6 0B AA        ...   ldab 0baa
1426 8ACB C1 32           .2    cmpb #32
1427 8ACD 24 11           $.    bcc 11
1428 8ACF F6 0B AA        ...   ldab 0baa
1429 8AD2 4F              O     clra 
1430 8AD3 37              7     pshb 
1431 8AD4 36              6     psha 
1432 8AD5 CC 00 FA        ...   ldd #00fa
1433 8AD8 BD FB BA        ...   jsr fbba             ;jump38
1434 8ADB FD 00 27        ..'   std 0027
1435 8ADE 20 38            8    bra 38
1436 8AE0 FC 00 27        ..'   ldd 0027
1437 8AE3 26 18           &.    bne 18
1438 8AE5 F6 0B AA        ...   ldab 0baa
1439 8AE8 C1 32           .2    cmpb #32
1440 8AEA 26 11           &.    bne 11
1441 8AEC F6 0B AA        ...   ldab 0baa
1442 8AEF 4F              O     clra 
1443 8AF0 37              7     pshb 
1444 8AF1 36              6     psha 
1445 8AF2 CC 00 C7        ...   ldd #00c7
1446 8AF5 BD FB BA        ...   jsr fbba             ;jump38
1447 8AF8 FD 00 27        ..'   std 0027
1448 8AFB 20 1B            .    bra 1b
1449 8AFD F6 0B AA        ...   ldab 0baa
1450 8B00 4F              O     clra 
1451 8B01 B3 00 27        ..'   subd 0027
1452 8B04 22 0D           ".    bhi 0d
1453 8B06 FC 00 27        ..'   ldd 0027
1454 8B09 F0 0B AA        ...   subb 0baa
1455 8B0C 82 00           ..    sbca #00
1456 8B0E FD 00 27        ..'   std 0027
1457 8B11 20 05            .    bra 05
1458 8B13 5F              _     clrb 
1459 8B14 4F              O     clra 
1460 8B15 FD 00 27        ..'   std 0027
1461 8B18 20 2D            -    bra 2d
1462 8B1A FC 00 27        ..'   ldd 0027
1463 8B1D 26 0D           &.    bne 0d
1464 8B1F CC 27 10        .'.   ldd #2710
1465 8B22 F0 0B AA        ...   subb 0baa
1466 8B25 82 00           ..    sbca #00
1467 8B27 FD 00 27        ..'   std 0027
1468 8B2A 20 1B            .    bra 1b
1469 8B2C F6 0B AA        ...   ldab 0baa
1470 8B2F 4F              O     clra 
1471 8B30 B3 00 27        ..'   subd 0027
1472 8B33 22 0D           ".    bhi 0d
1473 8B35 FC 00 27        ..'   ldd 0027
1474 8B38 F0 0B AA        ...   subb 0baa
1475 8B3B 82 00           ..    sbca #00
1476 8B3D FD 00 27        ..'   std 0027
1477 8B40 20 05            .    bra 05
1478 8B42 5F              _     clrb 
1479 8B43 4F              O     clra 
1480 8B44 FD 00 27        ..'   std 0027
1481 8B47 BD 9A 47        ..G   jsr 9a47             ;jump39
1482 8B4A C6 02           ..    ldab #02
1483 8B4C F7 00 36        ..6   stab 0036
1484 goto9:
1485 8B4F CE 00 1B        ...   ldx #001b
1486 8B52 1C 00 10        ..    bset 00,x, #10
1487 8B55 CC 02 33        ..3   ldd #0233
1488 8B58 FD 00 3B        ..;   std 003b
1489 8B5B 7E 8C 72        ~.r   jmp 8c72             ;goto7
1490 8B5E F6 00 36        ..6   ldab 0036
1491 8B61 26 2C           &,    bne 2c
1492 8B63 F6 00 1F        ...   ldab 001f
1493 8B66 C4 40           .@    andb #40
1494 8B68 27 25           '%    beq 25
1495 8B6A FC 00 46        ..F   ldd 0046
1496 8B6D 83 00 64        ..d   subd #0064
1497 8B70 24 15           $.    bcc 15
1498 8B72 FE 00 46        ..F   ldx 0046
1499 8B75 08              .     inx 
1500 8B76 FF 00 46        ..F   stx 0046
1501 8B79 FC 00 46        ..F   ldd 0046
1502 8B7C 83 00 64        ..d   subd #0064
1503 8B7F 25 06           %.    bcs 06
1504 8B81 CC 00 01        ...   ldd #0001
1505 8B84 FD 00 46        ..F   std 0046
1506 8B87 BD 9A 47        ..G   jsr 9a47             ;jump39
1507 8B8A C6 02           ..    ldab #02
1508 8B8C F7 00 36        ..6   stab 0036
1509 8B8F CE 00 1B        ...   ldx #001b
1510 8B92 1C 00 10        ..    bset 00,x, #10
1511 8B95 CC 02 33        ..3   ldd #0233
1512 8B98 FD 00 3B        ..;   std 003b
1513 8B9B 7E 8C 72        ~.r   jmp 8c72             ;goto7
1514 8B9E F6 00 36        ..6   ldab 0036
1515 8BA1 26 29           &)    bne 29
1516 8BA3 F6 00 1F        ...   ldab 001f
1517 8BA6 C4 40           .@    andb #40
1518 8BA8 27 22           '"    beq 22
1519 8BAA FC 00 46        ..F   ldd 0046
1520 8BAD 83 00 00        ...   subd #0000
1521 8BB0 23 12           #.    bls 12
1522 8BB2 FE 00 46        ..F   ldx 0046
1523 8BB5 09              .     dex 
1524 8BB6 FF 00 46        ..F   stx 0046
1525 8BB9 FC 00 46        ..F   ldd 0046
1526 8BBC 26 06           &.    bne 06
1527 8BBE CC 00 63        ..c   ldd #0063
1528 8BC1 FD 00 46        ..F   std 0046
1529 8BC4 BD 9A 47        ..G   jsr 9a47             ;jump39
1530 8BC7 C6 02           ..    ldab #02
1531 8BC9 F7 00 36        ..6   stab 0036
1532 8BCC CE 00 1B        ...   ldx #001b
1533 8BCF 1C 00 10        ...   bset 00,x, #10
1534 8BD2 CC 02 33        ..3   ldd #0233
1535 8BD5 FD 00 3B        ..;   std 003b
1536 8BD8 7E 8C 72        ~.r   jmp 8c72             ;goto7
1537 8BDB F6 00 1F        ...   ldab 001f
1538 8BDE C4 40           .@    andb #40
1539 8BE0 27 15           '.    beq 15
1540 8BE2 F6 00 19        ...   ldab 0019
1541 8BE5 C4 10           ..    andb #10
1542 8BE7 27 08           '.    beq 08
1543 8BE9 CE 00 19        ...   ldx #0019
1544 8BEC 1D 00 10        ...   bclr 00,x, #10
1545 8BEF 20 06            .    bra 06
1546 8BF1 CE 00 19        ...   ldx #0019
1547 8BF4 1C 00 10        ...   bset 00,x, #10
1548 8BF7 BD 9A 47        ..G   jsr 9a47             ;jump39
1549 8BFA 20 76            v    bra 76
1550 8BFC BD A3 85        ...   jsr a385             ;jump40
1551 8BFF F6 00 06        ...   ldab 0006
1552 8C02 C1 64           .d    cmpb #64
1553 8C04 24 24           $$    bcc 24
1554 8C06 BD 97 6F        ..o   jsr 976f             ;jump41
1555 8C09 F6 00 06        ...   ldab 0006
1556 8C0C BD D7 A0        ...   jsr d7a0             ;jump10
1557 8C0F 83 00 00        ...   subd #0000
1558 8C12 27 16           '.    beq 16
1559 8C14 F6 00 06        ...   ldab 0006
1560 8C17 C1 09           ..    cmpb #09
1561 8C19 26 03           &.    bne 03
1562 8C1B BD 97 6F        ..o   jsr 976f             ;jump41
1563 8C1E F6 00 06        ...   ldab 0006
1564 8C21 C1 45           .E    cmpb #45
1565 8C23 26 05           &.    bne 05
1566 8C25 C6 01           ..    ldab #01
1567 8C27 F7 00 06        ...   stab 0006
1568 8C2A F6 0E 6D        ..m   ldab 0e6d
1569 8C2D C1 01           ..    cmpb #01
1570 8C2F 26 11           &.    bne 11
1571 8C31 F6 00 06        ...   ldab 0006
1572 8C34 4F              O     clra 
1573 8C35 05              .     asld 
1574 8C36 C3 08 C8        ...   addd #08c8
1575 8C39 8F              .     xgdx 
1576 8C3A EC 00           ..    ldd 00,x
1577 8C3C C4 7F           ..    andb #7f
1578 8C3E 4F              O     clra 
1579 8C3F FD 00 46        ..F   std 0046
1580 8C42 BD D3 11        ...   jsr d311             ;jump30
1581 8C45 83 00 00        ...   subd #0000
1582 8C48 26 12           &.    bne 12
1583 8C4A CE 00 1F        ...   ldx #001f
1584 8C4D 1C 00 40        ...   bset 00,x, #40
1585 8C50 FC 00 27        ..'   ldd 0027
1586 8C53 83 27 0F        .'.   subd #270f
1587 8C56 23 02           #.    bls 02
1588 8C58 8D 19           ..    bsr dest 19
1589 8C5A 20 06            .    bra 06
1590 8C5C CE 00 1F        ...   ldx #001f
1591 8C5F 1D 00 40        ...   bclr 00,x, #40
1592 8C62 BD 9A 47        ..G   jsr 9a47             ;jump39
1593 8C65 20 0B            .    bra 0b
1594 8C67 BD A3 85        ...   jsr a385             ;jump40
1595 8C6A BD 85 AF        ...   jsr 85af             ;jump14
1596 8C6D 20 03            .    bra 03
1597 8C6F BD 85 AF        ...   jsr 85af             ;jump14
1598 goto7:
1599 8C72 39              9     rts 
1600
1601 jump75:
1602 8C73 F6 00 06        ...   ldab 0006
1603 8C76 4F              O     clra 
1604 8C77 05              .     asld 
1605 8C78 C3 08 00        ...   addd #0800
1606 8C7B 8F              .     xgdx 
1607 8C7C EC 00           ..    ldd 00,x
1608 8C7E C4 FF           ..    andb #ff
1609 8C80 84 3F           .?    anda #3f
1610 8C82 FD 00 27        ..'   std 0027
1611 8C85 F6 00 06        ...   ldab 0006
1612 8C88 4F              O     clra 
1613 8C89 05              .     asld 
1614 8C8A C3 08 C8        ...   addd #08c8
1615 8C8D 8F              .     xgdx 
1616 8C8E EC 00           ..    ldd 00,x
1617 8C90 C4 7F           ..    andb #7f
1618 8C92 4F              O     clra 
1619 8C93 FD 00 46        ..F   std 0046
1620 8C96 F6 00 06        ...   ldab 0006
1621 8C99 4F              O     clra 
1622 8C9A 05              .     asld 
1623 8C9B C3 08 C8        ...   addd #08c8
1624 8C9E 8F              .     xgdx 
1625 8C9F EC 00           ..    ldd 00,x
1626 8CA1 84 08           ..    anda #08
1627 8CA3 27 08           '.    beq 08
1628 8CA5 CE 00 19        ...   ldx #0019
1629 8CA8 1C 00 10        ...   bset 00,x, #10
1630 8CAB 20 06            .    bra 06
1631 8CAD CE 00 19        ...   ldx #0019
1632 8CB0 1D 00 10        ...   bclr 00,x, #10
1633 8CB3 39              9     rts 
1634
1635 jump18:
1636 ; program smart shopping discount
1637 8CB4 F6 00 1F        ...   ldab 001f
1638 8CB7 C4 02           ..    andb #02
1639 8CB9 27 12           '.    beq 12
1640 8CBB FC 0B B7        ...   ldd 0bb7
1641 8CBE FD 00 0D        ...   std 000d
1642 8CC1 CE 00 1F        ...   ldx #001f
1643 8CC4 1D 00 02        ...   bclr 00,x, #02
1644 8CC7 7F 00 36        ..6   clr 0036
1645 8CCA 7E 8E 34        ~.4   jmp 8e34             ;goto10
1646 8CCD F6 00 09        ...   ldab 0009
1647 8CD0 4F              O     clra 
1648 8CD1 BD FE 32        ..2   jsr fe32             ;jump25
1649 8CD4 8C EE 00 00     ....  ; array data for jump25
1650 8CD8 8C F4 00 01     ....  
1651 8CDC 8D 80 00 01     ....  
1652 8CE0 8E 29 00 08     .)..  
1653 8CE4 8E 31 00 01     .1..  
1654 8CE8 8E 34 FF F5     .4.   
1655 8CEC 00 00           ...   ; end of array data
1656 8CEE BD 9B 63        ..c   jsr 9b63             ;jump101
1657 8CF1 7E 8E 34        ~.4   jmp 8e34             ;goto10
1658 8CF4 F6 00 36        ..6   ldab 0036
1659 8CF7 26 78           &x    bne 78
1660 8CF9 F6 0B C0        ...   ldab 0bc0
1661 8CFC C4 02           ..    andb #02
1662 8CFE 27 52           'R    beq 52
1663 8D00 F6 0B AA        ...   ldab 0baa
1664 8D03 C1 32           .2    cmpb #32
1665 8D05 24 22           $"    bcc 22
1666 8D07 F6 0B AA        ...   ldab 0baa
1667 8D0A 4F              O     clra 
1668 8D0B F3 00 0D        ...   addd 000d
1669 8D0E FD 00 0D        ...   std 000d
1670 8D11 F6 0B AA        ...   ldab 0baa
1671 8D14 4F              O     clra 
1672 8D15 37              7     pshb 
1673 8D16 36              6     psha 
1674 8D17 CC 00 FA        ...   ldd #00fa
1675 8D1A BD FB BA        ...   jsr fbba             ;jump38
1676 8D1D B3 00 0D        ...   subd 000d
1677 8D20 24 05           $.    bcc 05
1678 8D22 5F              _     clrb 
1679 8D23 4F              O     clra 
1680 8D24 FD 00 0D        ...   std 000d
1681 8D27 20 27            '    bra 27
1682 8D29 F6 0B AA        ...   ldab 0baa
1683 8D2C C1 32           .2    cmpb #32
1684 8D2E 26 20           &     bne 20
1685 8D30 F6 0B AA        ...   ldab 0baa
1686 8D33 4F              O     clra 
1687 8D34 F3 00 0D        ...   addd 000d
1688 8D37 FD 00 0D        ...   std 000d
1689 8D3A F6 0B AA        ...   ldab 0baa
1690 8D3D 4F              O     clra 
1691 8D3E 37              7     pshb 
1692 8D3F 36              6     psha 
1693 8D40 CC 00 C7        ...   ldd #00c7
1694 8D43 BD FB BA        ...   jsr fbba             ;jump38
1695 8D46 B3 00 0D        ...   subd 000d
1696 8D49 24 05           $.    bcc 05
1697 8D4B 5F              _     clrb 
1698 8D4C 4F              O     clra 
1699 8D4D FD 00 0D        ...   std 000d
1700 8D50 20 17            .    bra 17
1701 8D52 F6 0B AA        ...   ldab 0baa
1702 8D55 4F              O     clra 
1703 8D56 F3 00 0D        ...   addd 000d
1704 8D59 FD 00 0D        ...   std 000d
1705 8D5C FC 00 0D        ...   ldd 000d
1706 8D5F 83 27 0F        .'.   subd #270f
1707 8D62 23 05           #.    bls 05
1708 8D64 5F              _     clrb 
1709 8D65 4F              O     clra 
1710 8D66 FD 00 0D        ...   std 000d
1711 8D69 BD 9B 63        ..c   jsr 9b63             ;jump101
1712 8D6C C6 02           ..    ldab #02
1713 8D6E F7 00 36        ..6   stab 0036
1714 8D71 CE 00 1B        ...   ldx #001b
1715 8D74 1C 00 10        ..    bset 00,x, #10
1716 8D77 CC 02 33        ..3   ldd #0233
1717 8D7A FD 00 3B        ..;   std 003b
1718 8D7D 7E 8E 34        ~.4   jmp 8e34             ;goto10
1719 8D80 F6 00 36        ..6   ldab 0036
1720 8D83 27 03           '.    beq 03
1721 8D85 7E 8E 1B        ~..   jmp 8e1b             ;goto11
1722 8D88 F6 0B C0        ...   ldab 0bc0
1723 8D8B C4 02           ..    andb #02
1724 8D8D 27 57           'W    beq 57
1725 8D8F FC 00 0D        ...   ldd 000d
1726 8D92 26 18           &.    bne 18
1727 8D94 F6 0B AA        ...   ldab 0baa
1728 8D97 C1 32           .2    cmpb #32
1729 8D99 24 11           $.    bcc 11
1730 8D9B F6 0B AA        ...   ldab 0baa
1731 8D9E 4F              O     clra 
1732 8D9F 37              7     pshb 
1733 8DA0 36              6     psha 
1734 8DA1 CC 00 FA        ...   ldd #00fa
1735 8DA4 BD FB BA        ...   jsr fbba             ;jump38
1736 8DA7 FD 00 0D        ...   std 000d
1737 8DAA 20 38            8    bra 38
1738 8DAC FC 00 0D        ...   ldd 000d
1739 8DAF 26 18           &.    bne 18
1740 8DB1 F6 0B AA        ...   ldab 0baa
1741 8DB4 C1 32           .2    cmpb #32
1742 8DB6 26 11           &.    bne 11
1743 8DB8 F6 0B AA        ...   ldab 0baa
1744 8DBB 4F              O     clra 
1745 8DBC 37              7     pshb 
1746 8DBD 36              6     psha 
1747 8DBE CC 00 C7        ...   ldd #00c7
1748 8DC1 BD FB BA        ...   jsr fbba             ;jump38
1749 8DC4 FD 00 0D        ...   std 000d
1750 8DC7 20 1B            .    bra 1b
1751 8DC9 F6 0B AA        ...   ldab 0baa
1752 8DCC 4F              O     clra 
1753 8DCD B3 00 0D        ...   subd 000d
1754 8DD0 22 0D           ".    bhi 0d
1755 8DD2 FC 00 0D        ...   ldd 000d
1756 8DD5 F0 0B AA        ...   subb 0baa
1757 8DD8 82 00           ..    sbca #00
1758 8DDA FD 00 0D        ...   std 000d
1759 8DDD 20 05            .    bra 05
1760 8DDF 5F              _     clrb 
1761 8DE0 4F              O     clra 
1762 8DE1 FD 00 0D        ...   std 000d
1763 8DE4 20 2D            -    bra 2d
1764 8DE6 FC 00 0D        ...   ldd 000d
1765 8DE9 26 0D           &.    bne 0d
1766 8DEB CC 27 10        .'.   ldd #2710
1767 8DEE F0 0B AA        ...   subb 0baa
1768 8DF1 82 00           ..    sbca #00
1769 8DF3 FD 00 0D        ...   std 000d
1770 8DF6 20 1B            .    bra 1b
1771 8DF8 F6 0B AA        ...   ldab 0baa
1772 8DFB 4F              O     clra 
1773 8DFC B3 00 0D        ...   subd 000d
1774 8DFF 22 0D           ".    bhi 0d
1775 8E01 FC 00 0D        ...   ldd 000d
1776 8E04 F0 0B AA        ...   subb 0baa
1777 8E07 82 00           ..    sbca #00
1778 8E09 FD 00 0D        ...   std 000d
1779 8E0C 20 05            .    bra 05
1780 8E0E 5F              _     clrb 
1781 8E0F 4F              O     clra 
1782 8E10 FD 00 0D        ...   std 000d
1783 8E13 BD 9B 63        ..c   jsr 9b63             ;jump101
1784 8E16 C6 02           ..    ldab #02
1785 8E18 F7 00 36        ..6   stab 0036
1786 goto11:
1787 8E1B CE 00 1B        ...   ldx #001b
1788 8E1E 1C 00 10        ...   bset 00,x, #10
1789 8E21 CC 02 33        ..3   ldd #0233
1790 8E24 FD 00 3B        ..;   std 003b
1791 8E27 20 0B            .    bra 0b
1792 8E29 BD A4 4F        ..O   jsr a44f             ;jump140
1793 8E2C BD 85 AF        ...   jsr 85af             ;jump14
1794 8E2F 20 03            .    bra 03
1795 8E31 BD 85 AF        ...   jsr 85af             ;jump14
1796 goto10:
1797 8E34 39              9     rts 
1798
1799 jump19:
1800 ; manual peripheral config menu
1801 8E35 F6 00 1F        ...   ldab 001f
1802 8E38 C4 02           ..    andb #02
1803 8E3A 27 1E           '.    beq 1e
1804 8E3C 7F 00 48        ..H   clr 0048
1805 8E3F F6 0B C0        ...   ldab 0bc0
1806 8E42 F7 00 67        ..g   stab 0067
1807 8E45 F6 0E 6D        ..m   ldab 0e6d
1808 8E48 F7 0E 6F        ..o   stab 0e6f
1809 8E4B F6 0E 6E        ..n   ldab 0e6e
1810 8E4E F7 0E 70        ..p   stab 0e70
1811 8E51 CE 00 1F        ...   ldx #001f
1812 8E54 1D 00 02        ...   bclr 00,x, #02
1813 8E57 7E 8F 0C        ~..   jmp 8f0c             ;goto12
1814 8E5A F6 00 09        ...   ldab 0009
1815 8E5D 4F              O     clra 
1816 8E5E BD FE 32        ..2   jsr fe32             ;jump25
1817 8E61 8E 7B 00 00     .{..  ; array data for jump25
1818 8E65 8E 81 00 01     ....  
1819 8E69 8E 87 00 04     ....  
1820 8E6D 8F 01 00 05     ....  
1821 8E71 8F 09 00 01     ....  
1822 8E75 8F 0C FF F5     ....  
1823 8E79 00 00           ..    ; end of array data
1824 8E7B BD 9C 15        ...   jsr 9c15             ;jump111
1825 8E7E 7E 8F 0C        ~..   jmp 8f0c             ;goto12
1826 8E81 BD A7 5F        .._   jsr a75f             ;jump133
1827 8E84 7E 8F 0C        ~..   jmp 8f0c             ;goto12
1828 8E87 F6 00 48        ..H   ldab 0048
1829 8E8A C1 08           ..    cmpb #08
1830 8E8C 25 05           %.    bcs 05
1831 8E8E F6 00 67        ..g   ldab 0067
1832 8E91 2D 03           -.    blt 03
1833 8E93 BD A4 59        ..Y   jsr a459             ;jump110
1834 8E96 F6 00 48        ..H   ldab 0048
1835 8E99 C1 0A           ..    cmpb #0a
1836 8E9B 24 5F           $_    bcc 5f
1837 8E9D 7C 00 48        |.H   inc 0048
1838 8EA0 F6 00 48        ..H   ldab 0048
1839 8EA3 C1 01           ..    cmpb #01
1840 8EA5 26 0F           &.    bne 0f
1841 8EA7 F6 00 67        ..g   ldab 0067
1842 8EAA C4 02           ..    andb #02
1843 8EAC 26 08           &.    bne 08
1844 8EAE F6 00 48        ..H   ldab 0048
1845 8EB1 CB 02           ..    addb #02
1846 8EB3 F7 00 48        ..H   stab 0048
1847 8EB6 F6 00 48        ..H   ldab 0048
1848 8EB9 C1 02           ..    cmpb #02
1849 8EBB 26 0A           &.    bne 0a
1850 8EBD F6 00 67        ..g   ldab 0067
1851 8EC0 C4 10           ..    andb #10
1852 8EC2 26 03           &.    bne 03
1853 8EC4 7C 00 48        |.H   inc 0048
1854 8EC7 F6 00 48        ..H   ldab 0048
1855 8ECA C1 06           ..    cmpb #06
1856 8ECC 26 0F           &.    bne 0f
1857 8ECE F6 00 67        ..g   ldab 0067
1858 8ED1 C4 08           ..    andb #08
1859 8ED3 26 08           &.    bne 08
1860 8ED5 C6 02           ..    ldab #02
1861 8ED7 FB 00 48        ..H   addb 0048
1862 8EDA F7 00 48        ..H   stab 0048
1863 8EDD F6 00 48        ..H   ldab 0048
1864 8EE0 C1 0A           ..    cmpb #0a
1865 8EE2 26 08           &.    bne 08
1866 8EE4 F6 00 67        ..g   ldab 0067
1867 8EE7 2D 03           -.    blt 03
1868 8EE9 7C 00 48        |.H   inc 0048
1869 8EEC F6 00 48        ..H   ldab 0048
1870 8EEF C1 0A           ..    cmpb #0a
1871 8EF1 23 09           #.    bls 09
1872 8EF3 7F 00 48        ..H   clr 0048
1873 8EF6 F6 0B C0        ...   ldab 0bc0
1874 8EF9 F7 00 67        ..g   stab 0067
1875 8EFC BD 9C 15        ...   jsr 9c15             ;jump111
1876 8EFF 20 0B            .    bra 0b
1877 8F01 BD A4 59        ..Y   jsr a459             ;jump110
1878 8F04 BD 85 AF        ...   jsr 85af             ;jump14
1879 8F07 20 03            .    bra 03
1880 8F09 BD 85 AF        ...   jsr 85af             ;jump14
1881 goto12:
1882 8F0C 39              9     rts 
1883
1884 jump20:
1885 ; promotional vend-pair programming (buy one thing get another free?)
1886 8F0D F6 00 1F        ...   ldab 001f
1887 8F10 C4 02           ..    andb #02
1888 8F12 27 1D           '.    beq 1d
1889 8F14 C6 01           ..    ldab #01
1890 8F16 F7 00 22        .."   stab 0022
1891 8F19 F6 0B AF        ...   ldab 0baf
1892 8F1C F7 00 24        ..$   stab 0024
1893 8F1F F6 0B B4        ...   ldab 0bb4
1894 8F22 F7 00 2A        ..*   stab 002a
1895 8F25 CE 00 1F        ...   ldx #001f
1896 8F28 1D 00 02        ..    bclr 00,x, #02
1897 8F2B 7F 00 36        ..6   clr 0036
1898 8F2E 7E 90 D0        ~..   jmp 90d0             ;goto13
1899 8F31 F6 00 09        ...   ldab 0009
1900 8F34 4F              O     clra 
1901 8F35 BD FE 16        ...   jsr fe16             ;jump2
1902 8F38 00 00 00 0B     ....  ; params for jump2
1903 8F3C 90 D0           ..
1904 8F3E 8F 56           ..    
1905 8F40 8F 5C           ..    
1906 8F42 8F B3           ..    
1907 8F44 90 0C           ..    
1908 8F46 90 62           ..
1909 8F48 90 BA           ..    
1910 8F4A 90 DO           ..    
1911 8F4C 90 D0           ..    
1912 8F4E 90 D0           ..    
1913 8F50 90 DO           ..    
1914 8F52 90 C5           ..    
1915 8F54 90 CD           ..    
1916 8F56 BD 9D 2A        ..*   jsr 9d2a             ;jump89
1917 8F59 7E 90 D0        ~..   jmp 90d0             ;goto13
1918 8F5C F6 00 36        ..6   ldab 0036
1919 8F5F 26 43           &C    bne 43
1920 8F61 F6 00 24        ..$   ldab 0024
1921 8F64 C1 64           .d    cmpb #64
1922 8F66 24 34           $4    bcc 34
1923 8F68 7C 00 24        |.$   inc 0024
1924 8F6B F6 00 24        ..$   ldab 0024
1925 8F6E F7 00 06        ...   stab 0006
1926 8F71 F6 00 06        ...   ldab 0006
1927 8F74 BD D7 A0        ...   jsr d7a0             ;jump10
1928 8F77 83 00 00        ...   subd #0000
1929 8F7A 27 03           '.    beq 03
1930 8F7C 7C 00 24        |.$   inc 0024
1931 8F7F F6 00 24        ..$   ldab 0024
1932 8F82 C1 64           .d    cmpb #64
1933 8F84 26 03           &.    bne 03
1934 8F86 7F 00 24        ..$   clr 0024
1935 8F89 F6 00 24        ..$   ldab 0024
1936 8F8C 4F              O     clra 
1937 8F8D CE 00 05        ...   ldx #0005
1938 8F90 02              .     idiv 
1939 8F91 5D              ]     tstb 
1940 8F92 26 08           &.    bne 08
1941 8F94 F6 00 24        ..$   ldab 0024
1942 8F97 27 03           '.    beq 03
1943 8F99 7C 00 24        |.$   inc 0024
1944 8F9C BD 9D 2A        ..*   jsr 8d2a             ;jump89
1945 8F9F C6 02           ..    ldab #02
1946 8FA1 F7 00 36        ..6   stab 0036
1947 8FA4 CE 00 1B        ...   ldx #001b
1948 8FA7 1C 00 10        ...   bset 00,x, #10
1949 8FAA CC 02 33        ..3   ldd #0233
1950 8FAD FD 00 3B        ..;   std 003b
1951 8FB0 7E 90 D0        ~..   jmp 90d0             ;goto13
1952 8FB3 F6 00 36        ..6   ldab 0036
1953 8FB6 26 45           &E    bne 45
1954 8FB8 F6 00 24        ..$   ldab 0024
1955 8FBB C1 00           ..    cmpb #00
1956 8FBD 23 2C           #,    bls 2c
1957 8FBF 7A 00 24        z.$   dec 0024
1958 8FC2 F6 00 24        ..$   ldab 0024
1959 8FC5 4F              O     clra 
1960 8FC6 CE 00 05        ...   ldx #0005
1961 8FC9 02              .     idiv 
1962 8FCA 5D              ]     tstb 
1963 8FCB 26 08           &.    bne 08
1964 8FCD F6 00 24        ..$   ldab 0024
1965 8FD0 27 03           '.    beq 03
1966 8FD2 7A 00 24        z.$   dec 0024
1967 8FD5 F6 00 24        ..$   ldab 0024
1968 8FD8 F7 00 06        ...   stab 0006
1969 8FDB F6 00 06        ...   ldab 0006
1970 8FDE BD D7 A0        ...   jsr d7a0             ;jump10
1971 8FE1 83 00 00        ...   subd #0000
1972 8FE4 27 03           '.    beq 03
1973 8FE6 7A 00 24        z.$   dec 0024
1974 8FE9 20 0A            .    bra 0a
1975 8FEB F6 00 24        ..$   ldab 0024
1976 8FEE 26 05           &.    bne 05
1977 8FF0 C6 62           .b    ldab #62
1978 8FF2 F7 00 24        ..$   stab 0024
1979 8FF5 BD 9D 2A        ..*   jsr 9d2a             ;jump89
1980 8FF8 C6 02           ..    ldab #02
1981 8FFA F7 00 36        ..6   stab 0036
1982 8FFD CE 00 1B        ...   ldx #001b
1983 9000 1C 00 10        ...   bset 00,x, #10
1984 9003 CC 02 33        ..3   ldd #0233
1985 9006 FD 00 3B        ..;   std 003b
1986 9009 7E 90 D0        ~..   jmp 90d0             ;goto13
1987 900C F6 00 36        ..6   ldab 0036
1988 900F 26 43           &C    bne 43
1989 9011 F6 00 2A        ..*   ldab 002a
1990 9014 C1 64           .d    cmpb #64
1991 9016 24 34           $4    bcc 34
1992 9018 7C 00 2A        |.*   inc 002a
1993 901B F6 00 2A        ..*   ldab 002a
1994 901E F7 00 06        ...   stab 0006
1995 9021 F6 00 06        ...   ldab 0006
1996 9024 BD D7 A0        ...   jsr d7a0             ;jump10
1997 9027 83 00 00        ...   subd #0000
1998 902A 27 03           '.    beq 03
1999 902C 7C 00 2A        |.*   inc 002a
2000 902F F6 00 2A        ..*   ldab 002a
2001 9032 C1 64           .d    cmpb #64
2002 9034 26 03           &.    bne 03
2003 9036 7F 00 2A        ..*   clr 002a
2004 9039 F6 00 2A        ..*   ldab 002a
2005 903C 4F              O     clra 
2006 903D CE 00 05        ...   ldx #0005
2007 9040 02              .     idiv 
2008 9041 5D              ]     tstb 
2009 9042 26 08           &.    bne 08
2010 9044 F6 00 2A        ..*   ldab 002a
2011 9047 27 03           '.    beq 03
2012 9049 7C 00 2A        |.*   inc 002a
2013 904C BD 9D 2A        ..*   jsr 9d2a             ;jump89
2014 904F C6 02           ..    ldab #02
2015 9051 F7 00 36        ..6   stab 0036
2016 9054 CE 00 1B        ...   ldx #001b
2017 9057 1C 00 10        ...   bset 00,x, #10
2018 905A CC 02 33        ..3   ldd #0233
2019 905D FD 00 3B        ..;   std 003b
2020 9060 20 6E            n    bra 6e
2021 9062 F6 00 36        ..6   ldab 0036
2022 9065 26 45           &E    bne 45
2023 9067 F6 00 2A        ..*   ldab 002a
2024 906A C1 00           ..    cmpb #00
2025 906C 23 2C           #,    bls 2c
2026 906E 7A 00 2A        z.*   dec 002a
2027 9071 F6 00 2A        ..*   ldab 002a
2028 9074 4F              O     clra 
2029 9075 CE 00 05        ...   ldx #0005
2030 9078 02              .     idiv 
2031 9079 5D              ]     tstb 
2032 907A 26 08           &.    bne 08
2033 907C F6 00 2A        ..*   ldab 002a
2034 907F 27 03           '.    beq 03
2035 9081 7A 00 2A        z.*   dec 002a
2036 9084 F6 00 2A        ..*   ldab 002a
2037 9087 F7 00 06        ...   stab 0006
2038 908A F6 00 06        ...   ldab 0006
2039 908D BD D7 A0        ...   jsr d7a0             ;jump10
2040 9090 83 00 00        ...   subd #0000
2041 9093 27 03           '.    beq 03
2042 9095 7A 00 2A        z.*   dec 002a
2043 9098 20 0A            .    bra 0a
2044 909A F6 00 2A        ..*   ldab 002a
2045 909D 26 05           &.    bne 05
2046 909F C6 62           .b    ldab #62
2047 90A1 F7 00 2A        ..*   stab 002a
2048 90A4 BD 9D 2A        ..*   jsr 9d2a             ;jump89
2049 90A7 C6 02           ..    ldab #02
2050 90A9 F7 00 36        ..6   stab 0036
2051 90AC CE 00 1B        ...   ldx #001b
2052 90AF 1C 00 10        ...   bset 00,x, #10
2053 90B2 CC 02 33        ..3   ldd #0233
2054 90B5 FD 00 3B        ..;   std 003b
2055 90B8 20 16            .    bra 16
2056 90BA BD A5 1E        ...   jsr a51e             ;jump109
2057 90BD BD AA 9A        ...   jsr aa9a             ;jump127
2058 90C0 BD 9D 2A        ..*   jsr 9d2a             ;jump89
2059 90C3 20 0B            .    bra 0b
2060 90C5 BD A5 1E        ...   jsr a51e             ;jump109
2061 90C8 BD 85 AF        ...   jsr 85af             ;jump14
2062 90CB 20 03            .    bra 03
2063 90CD BD 85 AF        ...   jsr 85af             ;jump14
2064 goto13:
2065 90D0 39              9     rts 
2066
2067 jump21:
2068 ; pos message & serial id
2069 90D1 F6 00 1F        ...   ldab 001f
2070 90D4 C4 02           ..    andb #02
2071 90D6 27 14           '.    beq 14
2072 90D8 CE 00 1F        ...   ldx #001f
2073 90DB 1D 00 02        ...   bclr 00,x, #02
2074 90DE CE 00 19        ...   ldx #0019
2075 90E1 1C 00           ..    bset add,x 00,x
2076 90E3 80 7F           ..    suba #7f
2077 90E5 00              .     test 
2078 90E6 09              .     dex 
2079 90E7 7F 00 0A        ...   clr 000a
2080 90EA 20 40            @    bra 40
2081 90EC F6 00 09        ...   ldab 0009
2082 90EF 4F              O     clra 
2083 90F0 BD FE 32        ..2   jsr fe32             ;jump25
2084 90F3 91 0D 00 00     ....  ; array data for jump25
2085 90F7 91 15 00 01     ....  
2086 90FB 91 19 00 01     ....  
2087 90FF 91 1E 00 01     ....  
2088 9103 91 23 00 08     .#..  
2089 9107 91 26 FF F5     .&..  
2090 910B 00 00           ..    ; end of array data
2091 910D CC B0 AD        ...   ldd #b0ad    ; "PROGRAM  ?"
2092 9110 BD C0 BA        ...   jsr c0ba             ;display:
2093 9113 20 17            .    bra 17
2094 9115 8D 16           ..    bsr dest 16
2095 9117 20 13            .    bra 13
2096 9119 BD 91 C6        ...   jsr 91c6             ;jump76
2097 911C 20 0E            .    bra 0e
2098 911E BD 92 5A        ..Z   jsr 925a             ;jump149
2099 9121 20 09            .    bra 09
2100 9123 BD 85 AF        ...   jsr 85af             ;jump14
2101 9126 7F 00 09        ...   clr 0009
2102 9129 7F 00 0A        ...   clr 000a
2103 912C 39              9     rts 
2104
2105 912D F6 00 19        ...   ldab 0019
2106 9130 2C 28           ,(    bge 28
2107 9132 BD A9 CF        ...   jsr a9cf             ;jump131
2108 9135 C6 50           .P    ldab #50
2109 9137 F7 0A 90        ...   stab 0a90
2110 913A C6 20           .     ldab #20
2111 913C F7 0B 8D        ...   stab 0b8d
2112 913F C6 20           .     ldab #20
2113 9141 F7 0B 8E        ...   stab 0b8e
2114 9144 C6 28           .(    ldab #28
2115 9146 F7 0B 8F        ...   stab 0b8f
2116 9149 7F 00 54        ..T   clr 0054
2117 914C 7F 00 60        ..`   clr 0060
2118 914F CE 00 19        ...   ldx #0019
2119 9152 1D 00           ..    bclr add,x 00,x
2120 9154 80 7F           ..    suba #7f
2121 9156 00              .     test 
2122 9157 36              6     psha 
2123 9158 20 6B            k    bra 6b
2124 915A F6 00 0A        ...   ldab 000a
2125 915D 4F              O     clra 
2126 915E BD FE 16        ...   jsr fe16             ;jump2
2127 9161 00              .     test 
2128 9162 00              .     test 
2129 9163 00              .     test 
2130 9164 0B              .     sev 
2131 9165 91 C5 91        ...   cmpa c5
2132 9168 7F 91 84        ...   clr 9184
2133 916B 91 89 91        ...   cmpa 89
2134 916E 8E 91 9F        ...   lds #919f
2135 9171 91 B0 91        ...   cmpa b0
2136 9174 C5 91           ..    bitb #91
2137 9176 C5 91           ..    bitb #91
2138 9178 C5 91           ..    bitb #91
2139 917A B5 91 BA        ...   bita 91ba
2140 917D 91 C2 BD        ...   cmpa c2
2141 9180 9D 7E 20        .~    jsr 7e
2142 9183 41              A     illegal 
2143 9184 BD A8 64        ..d   jsr a864             ;jump99
2144 9187 20 3C            <    bra 3c
2145 9189 BD A8 D5        ...   jsr a8d5             ;jump97
2146 918C 20 37            7    bra 37
2147 918E BD A8 96        ...   jsr a896             ;jump98
2148 9191 CE 00 1B        ...   ldx #001b
2149 9194 1C 00 10        ...   bset 00,x, #10
2150 9197 CC 02 33        ..3   ldd #0233
2151 919A FD 00 3B        ..;   std 003b
2152 919D 20 26            &    bra 26
2153 919F BD A8 E5        ...   jsr a8e5             ;jump96
2154 91A2 CE 00 1B        ...   ldx #001b
2155 91A5 1C 00 10        ...   bset 00,x, #10
2156 91A8 CC 02 33        ..3   ldd #0233
2157 91AB FD 00 3B        ..;   std 003b
2158 91AE 20 15            .    bra 15
2159 91B0 BD A9 21        ..!   jsr a921             ;jump95
2160 91B3 20 10            .    bra 10
2161 91B5 BD A9 7A        ..z   jsr a97a             ;jump132
2162 91B8 20 0B            .    bra 0b
2163 91BA BD A5 7D        ..}   jsr a57d             ;jump139
2164 91BD BD 85 AF        ...   jsr 85af             ;jump14
2165 91C0 20 03            .    bra 03
2166 91C2 BD 85 AF        ...   jsr 85af             ;jump14
2167 91C5 39              9     rts 
2168
2169 jump76:
2170 91C6 F6 00 19        ...   ldab 0019
2171 91C9 2C 28           ,(    bge 28
2172 91CB BD AA 0A        ...   jsr aa0a             ;jump130
2173 91CE C6 53           .S    ldab #53     ; "S"
2174 91D0 F7 0A 90        ...   stab 0a90
2175 91D3 C6 20           .     ldab #20     ; " "
2176 91D5 F7 0A 9D        ...   stab 0a9d
2177 91D8 C6 20           .     ldab #20     ; " "
2178 91DA F7 0A 9E        ...   stab 0a9e
2179 91DD C6 28           .(    ldab #28     ; "("
2180 91DF F7 0A 9F        ...   stab 0a9f
2181 91E2 7F 00 54        ..T   clr 0054
2182 91E5 7F 00 60        ..`   clr 0060
2183 91E8 CE 00 19        ...   ldx #0019
2184 91EB 1D 00           ..    bclr add,x 00,x
2185 91ED 80 7F           ..    suba #7f
2186 91EF 00              .     test 
2187 91F0 36              6     psha 
2188 91F1 20 66            f    bra 66
2189 91F3 F6 00 0A        ...   ldab 000a
2190 91F6 4F              O     clra 
2191 91F7 BD FE 16        ...   jsr fe16             ;jump2
2192 91FA 00 00 00 08     .     
2193 91FE 92 59           ..    
2194 9200 92 18           ..    
2195 9202 92 1D           ..    
2196 9204 92 22           ..    
2197 9206 92 27           ..    
2198 9208 92 38           ..    
2199 920A 92 49           ..    
2200 920C 92 59           ..    
2201 920E 92 59           ..    
2202 9210 92 59           ..    
2203 9212 92 59           ..    
2204 9214 92 4E           ..    
2205 9216 92 56           ..    
2206 9218 BD 9D 7E        ..    jsr 9d7e
2207 921B 20 3C           .~    bra 3c
2208 921D BD A8 64        ..d   jsr a864             ;jump99
2209 9220 20 37            7    bra 37
2210 9222 BD A8 D5        ...   jsr a8d5             ;jump97
2211 9225 20 32            2    bra 32
2212 9227 BD A8 96        ...   jsr a896             ;jump98
2213 922A CE 00 1B        ...   ldx #001b
2214 922D 1C 00 10        ...   bset 00,x, #10
2215 9230 CC 02 33        ..3   ldd #0233
2216 9233 FD 00 3B        ..;   std 003b
2217 9236 20 21            !    bra 21
2218 9238 BD A8 E5        ...   jsr a8e5             ;jump96
2219 923B CE 00 1B        ...   ldx #001b
2220 923E 1C 00 10        ...   bset 00,x, #10
2221 9241 CC 02 33        ..3   ldd #0233
2222 9244 FD 00 3B        ..;   std 003b
2223 9247 20 10            .    bra 10
2224 9249 BD A9 21        ..!   jsr a921             ;jump95
2225 924C 20 0B            .    bra 0b
2226 924E BD A5 AC        ...   jsr a5ac             ;jump138
2227 9251 BD 85 AF        ...   jsr 85af             ;jump14
2228 9254 20 03            .    bra 03
2229 9256 BD 85 AF        ...   jsr 85af             ;jump14
2230 9259 39              9     rts 
2231
2232 jump149:
2233 925A F6 00 19        ...   ldab 0019
2234 925D 2C 28           ,(    bge 28
2235 925F BD AA 3F        ..?   jsr aa3f             ;jump129
2236 9262 C6 49           .I    ldab #49
2237 9264 F7 0A 90        ...   stab 0a90
2238 9267 C6 20           .     ldab #20
2239 9269 F7 0A 9D        ...   stab 0a9d
2240 926C C6 20           .     ldab #20
2241 926E F7 0A 9E        ...   stab 0a9e
2242 9271 C6 28           .(    ldab #28
2243 9273 F7 0A 9F        ...   stab 0a9f
2244 9276 7F 00 54        ..T   clr 0054
2245 9279 7F 00 60        ..`   clr 0060
2246 927C CE 00 19        ...   ldx #0019
2247 927F 1D 00           ..    bclr add,x 00,x
2248 9281 80 7F           ..    suba #7f
2249 9283 00              .     test 
2250 9284 36              6     psha 
2251 9285 20 66            f    bra 66
2252 9287 F6 00 0A        ...   ldab 000a
2253 928A 4F              O     clra 
2254 928B BD FE 16        ...   jsr fe16             ;jump2
2255 928E 00              .     test 
2256 928F 00              .     test 
2257 9290 00              .     test 
2258 9291 0B              .     sev 
2259 9292 92 ED 92        ...   sbca ed
2260 9295 AC 92           ..    cpx 92,x
2261 9297 B1 92 B6        ...   cmpa 92b6
2262 929A 92 BB 92        ...   sbca bb
2263 929D CC 92 DD        ...   ldd #92dd
2264 92A0 92 ED 92        ...   sbca ed
2265 92A3 ED 92           ..    std 92,x
2266 92A5 ED 92           ..    std 92,x
2267 92A7 ED 92           ..    std 92,x
2268 92A9 E2 92           ..    sbcb 92,x
2269 92AB EA BD           ..    orb bd,x
2270 92AD 9D 7E 20        .~    jsr 7e
2271 92B0 3C              <     pshx 
2272 92B1 BD A8 64        ..d   jsr a864             ;jump99
2273 92B4 20 37            7    bra 37
2274 92B6 BD A8 D5        ...   jsr a8d5             ;jump97
2275 92B9 20 32            2    bra 32
2276 92BB BD A8 96        ...   jsr a896             ;jump98
2277 92BE CE 00 1B        ...   ldx #001b
2278 92C1 1C 00 10        ...   bset 00,x, #10
2279 92C4 CC 02 33        ..3   ldd #0233
2280 92C7 FD 00 3B        ..;   std 003b
2281 92CA 20 21            !    bra 21
2282 92CC BD A8 E5        ...   jsr a8e5             ;jump96
2283 92CF CE 00 1B        ...   ldx #001b
2284 92D2 1C 00 10        ...   bset 00,x, #10
2285 92D5 CC 02 33        ..3   ldd #0233
2286 92D8 FD 00 3B        ..;   std 003b
2287 92DB 20 10            .    bra 10
2288 92DD BD A9 21        ..!   jsr a921             ;jump95
2289 92E0 20 0B            .    bra 0b
2290 92E2 BD A5 D5        ...   jsr a5d5             ;jump137
2291 92E5 BD 85 AF        ...   jsr 85af             ;jump14
2292 92E8 20 03            .    bra 03
2293 92EA BD 85 AF        ...   jsr 85af             ;jump14
2294 92ED 39              9     rts 
2295
2296 jump22:
2297 ; print info
2298 92EE F6 0C DC        ...   ldab 0cdc
2299 92F1 4F              O     clra 
2300 92F2 37              7     pshb 
2301 92F3 36              6     psha 
2302 92F4 CC 00 64        ..d   ldd #0064
2303 92F7 BD FB BA        ...   jsr fbba             ;jump38
2304 92FA FD 0C E9        ...   std 0ce9
2305 92FD BD D6 F6        ...   jsr d6f6             ;jump106
2306 9300 FC 0C E9        ...   ldd 0ce9
2307 9303 F3 0B EF        ...   addd 0bef
2308 9306 FD 0C F1        ...   std 0cf1
2309 9309 FE 0C F5        ...   ldx 0cf5
2310 930C 3C              <     pshx 
2311 930D FC 0C F3        ...   ldd 0cf3
2312 9310 37              7     pshb 
2313 9311 36              6     psha 
2314 9312 FE 0C F9        ...   ldx 0cf9
2315 9315 3C              <     pshx 
2316 9316 FC 0C F7        ...   ldd 0cf7
2317 9319 BD FC 25        ..%   jsr fc25             ;jump85
2318 931C 37              7     pshb 
2319 931D 36              6     psha 
2320 931E FE 0C FD        ...   ldx 0cfd
2321 9321 3C              <     pshx 
2322 9322 FC 0C FB        ...   ldd 0cfb
2323 9325 BD FC 25        ..%   jsr fc25             ;jump85
2324 9328 37              7     pshb 
2325 9329 36              6     psha 
2326 932A FE 0D 01        ...   ldx 0d01
2327 932D 3C              <     pshx 
2328 932E FC 0C FF        ...   ldd 0cff
2329 9331 BD FC 25        ..%   jsr fc25             ;jump85
2330 9334 37              7     pshb 
2331 9335 36              6     psha 
2332 9336 FE 0D 05        ...   ldx 0d05
2333 9339 3C              <     pshx 
2334 933A FC 0D 03        ...   ldd 0d03
2335 933D BD FC 25        ..%   jsr fc25             ;jump85
2336 9340 FD 0D F3        ...   std 0df3
2337 9343 32              2     pula 
2338 9344 33              3     pulb 
2339 9345 FD 0D F5        ...   std 0df5
2340 9348 FE 0D F9        ...   ldx 0df9
2341 934B 3C              <     pshx 
2342 934C FC 0D F7        ...   ldd 0df7
2343 934F 37              7     pshb 
2344 9350 36              6     psha 
2345 9351 FE 0D F5        ...   ldx 0df5
2346 9354 3C              <     pshx 
2347 9355 FC 0D F3        ...   ldd 0df3
2348 9358 BD FC 25        ..%   jsr fc25             ;jump85
2349 935B FD 0D EF        ...   std 0def
2350 935E 32              2     pula 
2351 935F 33              3     pulb 
2352 9360 FD 0D F1        ...   std 0df1
2353 9363 F6 20 00        . .   ldab 2000
2354 9366 C4 40           .@    andb #40
2355 9368 27 37           '7    beq 37
2356 936A F6 00 1F        ...   ldab 001f
2357 936D C4 02           ..    andb #02
2358 936F 27 1F           '.    beq 1f
2359 9371 BD 97 E9        ...   jsr 97e9             ;jump147
2360 9374 CE 00 1F        ...   ldx #001f
2361 9377 1D 00 02        ...   bclr 00,x, #02
2362 937A CE 00 1F        ...   ldx #001f
2363 937D 1D 00 10        ...   bclr 00,x, #10
2364 9380 CC 02 33        ..3   ldd #0233
2365 9383 FD 00 3B        ..;   std 003b
2366 9386 7F 00 09        ...   clr 0009
2367 9389 C6 92           ..    ldab #92
2368 938B F7 00 48        ..H   stab 0048
2369 938E 20 0F            .    bra 0f
2370 9390 F6 00 19        ...   ldab 0019
2371 9393 C4 40           .@    andb #40
2372 9395 26 05           &.    bne 05
2373 9397 BD 98 BF        ...   jsr 98bf             ;jump146
2374 939A 20 03            .    bra 03
2375 939C BD 85 AF        ...   jsr 85af             ;jump14
2376 939F 20 03            .    bra 03
2377 93A1 BD 98 FF        ...   jsr 98ff             ;jump145
2378 93A4 39              9     rts 
2379
2380 jump23:
2381 ; program security code menu
2382 93A5 F6 00 1F        ...   ldab 001f
2383 93A8 C4 02           ..    andb #02
2384 93AA 26 0A           &.    bne 0a
2385 93AC F6 00 3A        ..:   ldab 003a
2386 93AF 26 2B           &+    bne 2b
2387 93B1 F6 00 1D        ...   ldab 001d
2388 93B4 2D 26           -&    blt 26
2389 93B6 CC AF BB        ...   ldd #afbb    ;"ENTER CODE"
2390 93B9 BD C0 BA        ...   jsr c0ba             ;display:
2391 93BC CE 00 1F        ...   ldx #001f
2392 93BF 1D 00 02        ...   bclr 00,x, #02
2393 93C2 CE 00 1D        ...   ldx #001d
2394 93C5 1D 00           ..    bclr add,x 00,x
2395 93C7 80 C6           ..    suba #c6
2396 93C9 32              2     pula 
2397 93CA F7 00 3A        ..:   stab 003a
2398 93CD F6 0B A8        ...   ldab 0ba8
2399 93D0 F7 00 66        ..f   stab 0066
2400 93D3 BD AA 74        ..t   jsr aa74             ;jump128
2401 93D6 7F 00 48        ..H   clr 0048
2402 93D9 7F 00 54        ..T   clr 0054
2403 93DC F6 00 09        ...   ldab 0009
2404 93DF 26 03           &.    bne 03
2405 93E1 7E 94 92        ~..   jmp 9492             ;goto14
2406 93E4 F6 00 1D        ...   ldab 001d
2407 93E7 2C 03           ,.    bge 03
2408 93E9 7E 94 92        ~..   jmp 9492             ;goto14
2409 93EC F6 00 09        ...   ldab 0009
2410 93EF C1 0B           ..    cmpb #0b
2411 93F1 26 06           &.    bne 06
2412 93F3 BD 85 AF        ...   jsr 85af             ;jump14
2413 93F6 7E 94 90        ~..   jmp 9490             ;goto15
2414 93F9 F6 00 09        ...   ldab 0009
2415 93FC C1 0A           ..    cmpb #0a
2416 93FE 26 03           &.    bne 03
2417 9400 7F 00 09        ...   clr 0009
2418 9403 F6 00 09        ...   ldab 0009
2419 9406 CB 30           .0    addb #30
2420 9408 37              7     pshb 
2421 9409 F6 00 54        ..T   ldab 0054
2422 940C 4F              O     clra 
2423 940D C3 00 62        ..b   addd #0062
2424 9410 8F              .     xgdx 
2425 9411 33              3     pulb 
2426 9412 E7 00           ..    stab 00,x
2427 9414 BD BE 4B        ..K   jsr be4b             ;displayblank
2428 9417 F6 00 54        ..T   ldab 0054
2429 941A 26 06           &.    bne 06
2430 941C F6 00 62        ..b   ldab 0062
2431 941F F7 0B 96        ...   stab 0b96
2432 9422 F6 00 54        ..T   ldab 0054
2433 9425 C1 01           ..    cmpb #01
2434 9427 26 0C           &.    bne 0c
2435 9429 F6 00 62        ..b   ldab 0062
2436 942C F7 0B 96        ...   stab 0b96
2437 942F F6 00 63        ..c   ldab 0063
2438 9432 F7 0B 95        ...   stab 0b95
2439 9435 F6 00 54        ..T   ldab 0054
2440 9438 C1 02           ..    cmpb #02
2441 943A 26 12           &.    bne 12
2442 943C F6 00 62        ..b   ldab 0062
2443 943F F7 0B 96        ...   stab 0b96
2444 9442 F6 00 63        ..c   ldab 0063
2445 9445 F7 0B 95        ...   stab 0b95
2446 9448 F6 00 64        ..d   ldab 0064
2447 944B F7 0B 94        ...   stab 0b94
2448 944E F6 00 54        ..T   ldab 0054
2449 9451 C1 03           ..    cmpb #03
2450 9453 26 18           &.    bne 18
2451 9455 F6 00 62        ..b   ldab 0062
2452 9458 F7 0B 96        ...   stab 0b96
2453 945B F6 00 63        ..c   ldab 0063
2454 945E F7 0B 95        ...   stab 0b95
2455 9461 F6 00 64        ..d   ldab 0064
2456 9464 F7 0B 94        ...   stab 0b94
2457 9467 F6 00 65        ..e   ldab 0065
2458 946A F7 0B 93        ...   stab 0b93
2459 946D BD BE 01        ...   jsr be01             ;jump70
2460 9470 7C 00 54        |.T   inc 0054
2461 9473 F6 00 54        ..T   ldab 0054
2462 9476 C1 04           ..    cmpb #04
2463 9478 26 0B           &.    bne 0b
2464 947A CE 00 1D        ...   ldx #001d
2465 947D 1C 00           ..    bset add,x 00,x
2466 947F 80 BD           ..    suba #bd
2467 9481 A8 0F           ..    eora 0f,x
2468 9483 20 06            .    bra 06
2469 9485 CE 00 1D        ...   ldx #001d
2470 9488 1D 00           ..    bclr add,x 00,x
2471 948A 80 C6           ..    suba #c6
2472 948C 32              2     pula 
2473 948D F7 00 3A        ..:   stab 003a
2474 goto15:
2475 9490 20 4A            J    bra 4a
2476 goto14:
2477 9492 F6 00 1D        ...   ldab 001d
2478 9495 2C 45           ,E    bge 45
2479 9497 F6 00 09        ...   ldab 0009
2480 949A 4F              O     clra 
2481 949B BD FE 32        ..2   jsr fe32             ;jump25
2482 949E 94 B8 00 00     ....  ; array data for jump25
2483 94A2 94 BD 00 01     ....  
2484 94A6 94 C2 00 04     ....  
2485 94AA 94 D1 00 05     ....  
2486 94AE 94 D9 00 01     ....  
2487 94B2 94 DC FF F5     ....  
2488 94B6 00 00           ..    ; end of array data
2489 94B8 BD 9E 0F        ...   jsr 9e0f             ;jump142
2490 94BB 20 1F            .    bra 1f
2491 94BD BD A7 1F        ...   jsr a71f             ;jump134
2492 94C0 20 1A            .    bra 1a
2493 94C2 7C 00 48        |.H   inc 0048
2494 94C5 F6 00 48        ..H   ldab 0048
2495 94C8 C1 0A           ..    cmpb #0a
2496 94CA 23 03           #.    bls 03
2497 94CC 7F 00 48        ..H   clr 0048
2498 94CF 20 0B            .    bra 0b
2499 94D1 BD A5 FE        ...   jsr a5fe             ;jump136
2500 94D4 BD 85 AF        ...   jsr 85af             ;jump14
2501 94D7 20 03            .    bra 03
2502 94D9 BD 85 AF        ...   jsr 85af             ;jump14
2503 94DC 39              9     rts 
2504
2505 jump24:
2506 ; motor functions menu
2507 94DD F6 00 1F        ...   ldab 001f
2508 94E0 C4 02           ..    andb #02
2509 94E2 27 14           '.    beq 14
2510 94E4 CE 00 1F        ...   ldx #001f
2511 94E7 1D 00 02        ...   bclr 00,x, #02
2512 94EA CE 00 19        ...   ldx #0019
2513 94ED 1C 00 80        ..    bset 00,x, #80
2514 94EF 7F 00 09        ..    clr 0009
2515 94F3 7F 00 0A        ...   clr 000a
2516 94F6 20 46            F    bra 46
2517 94F8 F6 00 09        ...   ldab 0009
2518 94FB 4F              O     clra 
2519 94FC BD FE 32        ..2   jsr fe32             ;jump25
2520 94FF 95 19 00 00     ....  ; no key
2521 9503 95 21 00 01     .!..  ; key 1
2522 9507 95 2C 00 01     .,..  ; key 2
2523 950B 95 30 00 01     .0..  ; key 3
2524 950F 95 35 00 08     .5..  ; reset
2525 9513 95 38 FF F5     .8..  
2526 9517 00 00           ..    ; end of array data
2527 9519 CC B0 A2        ...   ldd #b0a2    ; "MTR FUNCT?"
2528 951C BD C0 BA        ...   jsr c0ba             ;display:
2529 951F 20 1D            .    bra 1d
2530 9521 BD 87 E9        ...   jsr 87e9             ;jump74
2531 9524 CE 00 1F        ...   ldx #001f
2532 9527 1C 00 02        ...   bset 00,x, #02
2533 952A 20 12            .    bra 12
2534 952C 8D 11           ..    bsr dest 11
2535 952E 20 0E            .    bra 0e
2536 9530 BD 96 88        ...   jsr 9688             ;jump148
2537 9533 20 09            .    bra 09
2538 9535 BD 85 AF        ...   jsr 85af             ;jump14
2539 9538 7F 00 09        ...   clr 0009
2540 953B 7F 00 0A        ...   clr 000a
2541 953E 39              9     rts 
2542 ;
2543 953F F6 00 19        ...   ldab 0019
2544 9542 2D 0A           -.    blt 0a
2545 9544 F6 00 3A        ..:   ldab 003a
2546 9547 26 22           &"    bne 22
2547 9549 F6 00 1D        ...   ldab 001d
2548 954C 2D 1D           -.    blt 1d
2549 954E 7F 00 2C        ..,   clr 002c
2550 9551 CC B0 B8        ...   ldd #b0b8    ; "SELECTION?"
2551 9554 BD C0 BA        ...   jsr c0ba             ;display:
2552 9557 CE 00 19        ...   ldx #0019
2553 955A 1D 00           ..    bclr add,x 00,x
2554 955C 80 CE           ..    suba #ce
2555 955E 00              .     test 
2556 955F 1D 1D 00        ...   bclr 1d,x, #00
2557 9562 80 7F           ..    suba #7f
2558 9564 00              .     test 
2559 9565 54              T     lsrb 
2560 9566 C6 32           .2    ldab #32
2561 9568 F7 00 3A        ..:   stab 003a
2562 956B F6 00 0A        ...   ldab 000a
2563 956E 26 03           &.    bne 03
2564 9570 7E 96 5C        ~.\   jmp 965c             ;goto16
2565 9573 F6 00 1D        ...   ldab 001d
2566 9576 2C 03           ,.    bge 03
2567 9578 7E 96 5C        ~.\   jmp 965c             ;goto16
2568 957B F6 00 0A        ...   ldab 000a
2569 957E C1 0B           ..    cmpb #0b
2570 9580 26 09           &.    bne 09
2571 9582 CE 00 1F        ...   ldx #001f
2572 9585 1C 00 02        ...   bset 00,x, #02
2573 9588 7E 96 5A        ~.Z   jmp 965a             ;goto93
2574 958B F6 00 54        ..T   ldab 0054
2575 958E 26 26           &&    bne 26
2576 9590 BD BE 4B        ..K   jsr be4b             ;displayblank
2577 9593 F6 00 0A        ...   ldab 000a
2578 9596 C1 0A           ..    cmpb #0a
2579 9598 26 03           &.    bne 03
2580 959A 7F 00 0A        ...   clr 000a
2581 959D F6 00 0A        ...   ldab 000a
2582 95A0 CB 30           .0    addb #30
2583 95A2 37              7     pshb 
2584 95A3 CC 0B 95        ...   ldd #0b95
2585 95A6 F0 00 54        ..T   subb 0054
2586 95A9 82 00           ..    sbca #00
2587 95AB 8F              .     xgdx 
2588 95AC 33              3     pulb 
2589 95AD E7 00           ..    stab 00,x
2590 95AF C6 32           .2    ldab #32
2591 95B1 F7 00 3A        ..:   stab 003a
2592 95B4 20 37            7    bra 37
2593 95B6 F6 00 54        ..T   ldab 0054
2594 95B9 C1 01           ..    cmpb #01
2595 95BB 26 27           &'    bne 27
2596 95BD F6 00 0A        ...   ldab 000a
2597 95C0 C1 05           ..    cmpb #05
2598 95C2 27 20           '     beq 20
2599 95C4 F6 00 0A        ...   ldab 000a
2600 95C7 C1 0A           ..    cmpb #0a
2601 95C9 27 19           '.    beq 19
2602 95CB F6 00 0A        ...   ldab 000a
2603 95CE CB 30           .0    addb #30
2604 95D0 37              7     pshb 
2605 95D1 CC 0B 95        ...   ldd #0b95
2606 95D4 F0 00 54        ..T   subb 0054
2607 95D7 82 00           ..    sbca #00
2608 95D9 8F              .     xgdx 
2609 95DA 33              3     pulb 
2610 95DB E7 00           ..    stab 00,x
2611 95DD C6 32           .2    ldab #32
2612 95DF F7 00 3A        ..:   stab 003a
2613 95E2 20 09            .    bra 09
2614 95E4 CE 00 19        ...   ldx #0019
2615 95E7 1C 00           ..    bset add,x 00,x
2616 95E9 80 7F           ..    suba #7f
2617 95EB 00              .     test 
2618 95EC 3A              :     abx 
2619 95ED BD BE 01        ...   jsr be01             ;jump70
2620 95F0 7C 00 54        |.T   inc 0054
2621 95F3 F6 00 54        ..T   ldab 0054
2622 95F6 C1 02           ..    cmpb #02
2623 95F8 26 5A           &Z    bne 5a
2624 95FA CE 00 1D        ...   ldx #001d
2625 95FD 1C 00           ..    bset add,x 00,x
2626 95FF 80 F6           ..    suba #f6
2627 9601 0B              .     sev 
2628 9602 94 CB D0        ...   anda cb
2629 9605 37              7     pshb 
2630 9606 F6 0B 95        ...   ldab 0b95
2631 9609 CB D0           ..    addb #d0
2632 960B 86 0A           ..    ldaa #0a
2633 960D 3D              =     mul 
2634 960E 30              0     tsx 
2635 960F EB 00           ..    addb 00,x
2636 9611 31              1     ins 
2637 9612 F7 00 06        ...   stab 0006
2638 9615 C6 32           .2    ldab #32
2639 9617 F7 00 3A        ..:   stab 003a
2640 961A F6 00 06        ...   ldab 0006
2641 961D BD D7 A0        ...   jsr d7a0             ;jump10
2642 9620 83 00 00        ...   subd #0000
2643 9623 26 21           &!    bne 21
2644 9625 BD D3 11        ...   jsr d311             ;jump30
2645 9628 83 00 00        ...   subd #0000
2646 962B 26 0B           &.    bne 0b
2647 962D CE 00 1F        ...   ldx #001f
2648 9630 1C 00 40        ...   bset 00,x, #40
2649 9633 BD 8C 73        ..s   jsr 8c73             ;jump75
2650 9636 20 06            .    bra 06
2651 9638 CE 00 1F        ...   ldx #001f
2652 963B 1D 00 40        ...   bclr 00,x, #40
2653 963E 7F 00 2C        ..,   clr 002c
2654 9641 BD 9A 47        ..G   jsr 9a47             ;jump39
2655 9644 20 0C            .    bra 0c
2656 9646 CE 00 1D        ...   ldx #001d
2657 9649 1D 00           ..    bclr add,x 00,x
2658 964B 80 CE           ..    suba #ce
2659 964D 00              .     test 
2660 964E 19              .     daa 
2661 964F 1C 00           ..    bset add,x 00,x
2662 9651 80 20           .     suba #20
2663 9653 06              .     tap 
2664 9654 CE 00 1D        ...   ldx #001d
2665 9657 1D 00           ..    bclr add,x 00,x
2666 9659 80 20           .     suba #20
2667 ; 965a   goto93
2668 965B 2B F6           +.    bmi f6
2669 ; 965C
2670 ;goto16
2671 965D 00              .     test 
2672 965E 1D 2C           .,    bclr add,x 2c,x
2673 9660 26 BD           &.    bne bd
2674 9662 D2 13 83        ...   sbcb 13
2675 9665 00              .     test 
2676 9666 00              .     test 
2677 9667 26 0F           &.    bne 0f
2678 9669 CC 00 64        ..d   ldd #0064
2679 966C BD E5 71        ..q   jsr e571             ;msdelay
2680 966F BD E5 D1        ...   jsr e5d1             ;jump52
2681 9672 CC 03 84        ...   ldd #0384
2682 9675 BD E5 71        ..q   jsr e571             ;msdelay
2683 9678 7F 00 2E        ...   clr 002e
2684 967B CE 00 1D        ...   ldx #001d
2685 967E 1D 00           ..    bclr add,x 00,x
2686 9680 80 CE           ..    suba #ce
2687 9682 00              .     test 
2688 9683 1F 1C 00 02     ....  brclr 1c,x 00 02
2689 9687 39              9     rts 
2690
2691 jump148:
2692 9688 34              4     des 
2693 9689 F6 00 19        ...   ldab 0019
2694 968C 2C 19           ,.    bge 19
2695 968E CE 00 19        ...   ldx #0019
2696 9691 1D 00           ..    bclr add,x 00,x
2697 9693 80 CC           ..    suba #cc
2698 9695 B0 97 BD        ...   suba 97bd
2699 9698 C0 BA           ..    subb #ba
2700 969A C6 0A           ..    ldab #0a
2701 969C F7 00 38        ..8   stab 0038
2702 969F 7F 00 05        ...   clr 0005
2703 96A2 C6 01           ..    ldab #01
2704 96A4 F7 00 06        ...   stab 0006
2705 96A7 F6 00 0A        ...   ldab 000a
2706 96AA C1 0B           ..    cmpb #0b
2707 96AC 26 0C           &.    bne 0c
2708 96AE CC 02 33        ..3   ldd #0233
2709 96B1 FD 00 3B        ..;   std 003b
2710 96B4 CE 00 1F        ...   ldx #001f
2711 96B7 1C 00 02        ...   bset 00,x, #02
2712 96BA F6 00 38        ..8   ldab 0038
2713 96BD 27 03           '.    beq 03
2714 96BF 7E 97 6D        ~.m   jmp 976d             ;goto17
2715 96C2 F6 00 06        ...   ldab 0006
2716 96C5 C1 63           .c    cmpb #63
2717 96C7 23 03           #.    bls 03
2718 96C9 7E 97 6D        ~.m   jmp 976d             ;goto17
2719 96CC F6 00 06        ...   ldab 0006
2720 96CF C1 63           .c    cmpb #63
2721 96D1 26 0F           &.    bne 0f
2722 96D3 BD 99 C3        ...   jsr 99c3             ;jump143
2723 96D6 CC 07 D0        ...   ldd #07d0
2724 96D9 BD E5 71        ..q   jsr e571             ;msdelay
2725 96DC CE 00 1F        ...   ldx #001f
2726 96DF 1C 00 02        ...   bset 00,x, #02
2727 96E2 BD D3 11        ...   jsr d311             ;jump30
2728 96E5 83 00 00        ...   subd #0000
2729 96E8 26 0B           &.    bne 0b
2730 96EA CE 00 1F        ...   ldx #001f
2731 96ED 1C 00 40        ...   bset 00,x, #40
2732 96F0 BD 8C 73        ..s   jsr 8c73             ;jump75
2733 96F3 20 06            .    bra 06
2734 96F5 CE 00 1F        ...   ldx #001f
2735 96F8 1D 00 40        ...   bclr 00,x, #40
2736 96FB BD 9A 47        ..G   jsr 9a47             ;jump39
2737 96FE F6 00 06        ...   ldab 0006
2738 9701 C1 63           .c    cmpb #63
2739 9703 26 03           &.    bne 03
2740 9705 7F 00 2C        ..,   clr 002c
2741 9708 BD D2 13        ...   jsr d213             ;jump45
2742 970B 83 00 00        ...   subd #0000
2743 970E 27 03           '.    beq 03
2744 9710 7C 00 05        |..   inc 0005
2745 9713 7F 00 2E        ...   clr 002e
2746 9716 C6 05           ..    ldab #05
2747 9718 F7 00 38        ..8   stab 0038
2748 971B CC 02 33        ..3   ldd #0233
2749 971E FD 00 3B        ..;   std 003b
2750 9721 30              0     tsx 
2751 9722 6F 00           o.    clr 00,x
2752 9724 F6 0E 6D        ..m   ldab 0e6d
2753 9727 27 0C           '.    beq 0c
2754 9729 F6 00 06        ...   ldab 0006
2755 972C C1 3E           .>    cmpb #3e
2756 972E 26 05           &.    bne 05
2757 9730 C6 01           ..    ldab #01
2758 9732 30              0     tsx 
2759 9733 E7 00           ..    stab 00,x
2760 9735 8D 38           .8    bsr dest 38
2761 9737 F6 0E 6D        ..m   ldab 0e6d
2762 973A 27 0C           '.    beq 0c
2763 973C 30              0     tsx 
2764 973D E6 00           ..    ldab 00,x
2765 973F C1 01           ..    cmpb #01
2766 9741 26 05           &.    bne 05
2767 9743 C6 45           .E    ldab #45
2768 9745 F7 00 06        ...   stab 0006
2769 9748 F6 00 06        ...   ldab 0006
2770 974B BD D7 A0        ...   jsr d7a0             ;jump10
2771 974E 83 00 00        ...   subd #0000
2772 9751 27 15           '.    beq 15
2773 9753 F6 00 06        ...   ldab 0006
2774 9756 C1 09           ..    cmpb #09
2775 9758 26 02           &.    bne 02
2776 975A 8D 13           ..    bsr dest 13
2777 975C F6 00 06        ...   ldab 0006
2778 975F C1 45           .E    cmpb #45
2779 9761 26 05           &.    bne 05
2780 9763 C6 63           .c    ldab #63
2781 9765 F7 00 06        ...   stab 0006
2782 9768 5F              _     clrb 
2783 9769 4F              O     clra 
2784 976A FD 00 40        ..@   std 0040
2785 goto17:
2786 976D 31              1     ins 
2787 976E 39              9     rts 
2788
2789 jump41:
2790 976F F6 0E 6D        ..m   ldab 0e6d
2791 9772 C1 01           ..    cmpb #01
2792 9774 26 41           &A    bne 41
2793 9776 F6 00 06        ...   ldab 0006
2794 9779 4F              O     clra 
2795 977A CE 00 0A        ...   ldx #000a
2796 977D 02              .     idiv 
2797 977E C1 01           ..    cmpb #01
2798 9780 26 05           &.    bne 05
2799 9782 7C 00 06        |..   inc 0006
2800 9785 20 1B            .    bra 1b
2801 9787 F6 00 06        ...   ldab 0006
2802 978A 4F              O     clra 
2803 978B CE 00 0A        ...   ldx #000a
2804 978E 02              .     idiv 
2805 978F C1 02           ..    cmpb #02
2806 9791 26 0A           &.    bne 0a
2807 9793 C6 09           ..    ldab #09
2808 9795 FB 00 06        ...   addb 0006
2809 9798 F7 00 06        ...   stab 0006
2810 979B 20 05            .    bra 05
2811 979D C6 0B           ..    ldab #0b
2812 979F F7 00 06        ...   stab 0006
2813 97A2 F6 00 06        ...   ldab 0006
2814 97A5 C1 3E           .>    cmpb #3e
2815 97A7 22 07           ".    bhi 07
2816 97A9 F6 00 06        ...   ldab 0006
2817 97AC C1 0B           ..    cmpb #0b
2818 97AE 24 05           $.    bcc 05
2819 97B0 C6 0B           ..    ldab #0b
2820 97B2 F7 00 06        ...   stab 0006
2821 97B5 20 31            1    bra 31
2822 97B7 F6 00 06        ...   ldab 0006
2823 97BA CB 0A           ..    addb #0a
2824 97BC F7 00 06        ...   stab 0006
2825 97BF F6 00 06        ...   ldab 0006
2826 97C2 C1 64           .d    cmpb #64
2827 97C4 23 22           #"    bls 22
2828 97C6 F6 00 06        ...   ldab 0006
2829 97C9 CB 9C           ..    addb #9c
2830 97CB CB 01           ..    addb #01
2831 97CD F7 00 06        ...   stab 0006
2832 97D0 F6 00 06        ...   ldab 0006
2833 97D3 C1 05           ..    cmpb #05
2834 97D5 26 05           &.    bne 05
2835 97D7 C6 06           ..    ldab #06
2836 97D9 F7 00 06        ...   stab 0006
2837 97DC F6 00 06        ...   ldab 0006
2838 97DF C1 0A           ..    cmpb #0a
2839 97E1 26 05           &.    bne 05
2840 97E3 C6 01           ..    ldab #01
2841 97E5 F7 00 06        ...   stab 0006
2842 97E8 39              9     rts 
2843
2844 jump147:
2845 97E9 BD BE 4B        ..K   jsr be4b             ;displayblank
2846 97EC CC AF E7        ...   ldd #afe7    ; "-PRINTING-"
2847 97EF BD C0 BA        ...   jsr c0ba             ;display:
2848 97F2 BD F4 15        ...   jsr f415             ;jump112
2849 97F5 39              9     rts 
2850
2851 jump27:
2852 97F6 BD BE 4B        ..K   jsr be4b             ;displayblank
2853 97F9 F6 00 48        ..H   ldab 0048
2854 97FC 4F              O     clra 
2855 97FD BD FE 16        ...   jsr fe16             ;jump2
2856 9800 00 01 00 03     .     test 
2857 9804 98 80           ..    
2858 9806 98 0E           ..    
2859 9808 98 2B           ..    
2860 980A 98 48           ..    
2861 980C 98 65           ..    
2862 980E F6 0C D9        ..    ldab 0cd9
2863 9811 4F              .     clra
2864 9812 BD E7 95        ...   jsr e795      ;jump54
2865 9815 C6 4E           .N    ldab #4e
2866 9817 F7 0B 99        ...   stab 0b99
2867 981A C6 49           .I    ldab #49
2868 981C F7 0B 98        ...   stab 0b98
2869 981F C6 4B           .K    ldab #4b
2870 9821 F7 0B 97        ...   stab 0b97
2871 9824 C6 4C           .L    ldab #4c
2872 9826 F7 0B 96        ...   stab 0b96
2873 9829 20 55            U    bra 55
2874 982B F6 0C DA        ...   ldab 0cda
2875 982E 4F              O     clra 
2876 982F BD E7 95        ...   jsr e795             ;jump54
2877 9832 C6 44           .D    ldab #44
2878 9834 F7 0B 99        ...   stab 0b99
2879 9837 C6 49           .I    ldab #49
2880 9839 F7 0B 98        ...   stab 0b98
2881 983C C6 4D           .M    ldab #4d
2882 983E F7 0B 97        ...   stab 0b97
2883 9841 C6 45           .E    ldab #45
2884 9843 F7 0B 96        ...   stab 0b96
2885 9846 20 38            8    bra 38
2886 9848 F6 0C DB        ...   ldab 0cdb
2887 984B 4F              O     clra 
2888 984C BD E7 95        ...   jsr e795             ;jump54
2889 984F C6 51           .Q    ldab #51
2890 9851 F7 0B 99        ...   stab 0b99
2891 9854 C6 55           .U    ldab #55
2892 9856 F7 0B 98        ...   stab 0b98
2893 9859 C6 54           .T    ldab #54
2894 985B F7 0B 97        ...   stab 0b97
2895 985E C6 52           .R    ldab #52
2896 9860 F7 0B 96        ...   stab 0b96
2897 9863 20 1B            .    bra 1b
2898 9865 F6 0C DC        ...   ldab 0cdc
2899 9868 4F              O     clra 
2900 9869 BD E7 95        ...   jsr e795             ;jump54
2901 986C C6 44           .D    ldab #44     ; "D"
2902 986E F7 0B 99        ...   stab 0b99
2903 9871 C6 4F           .O    ldab #4f     ; "O"
2904 9873 F7 0B 98        ...   stab 0b98
2905 9876 C6 4C           .L    ldab #4c     ; "L"
2906 9878 F7 0B 97        ...   stab 0b97
2907 987B C6 52           .R    ldab #52     ; "R"
2908 987D F7 0B 96        ...   stab 0b96
2909 9880 C6 53           .S    ldab #53     ; "S"
2910 9882 F7 0B 95        ...   stab 0b95
2911 9885 C6 20           .     ldab #20     ; " "
2912 9887 F7 0B 94        ...   stab 0b94
2913 988A C6 20           .     ldab #20     ; " "
2914 988C F7 0B 93        ...   stab 0b93
2915 988F F6 00 5D        ..]   ldab 005d
2916 9892 F7 0B 92        ...   stab 0b92
2917 9895 F6 00 5E        ..^   ldab 005e    ; row number?
2918 9898 F7 0B 91        ...   stab 0b91
2919 989B F6 00 5F        .._   ldab 005f    ; column number?
2920 989E F7 0B 90        ...   stab 0b90
2921 98A1 BD BE 01        ...   jsr be01             ;jump70 - to disp buffer
2922 98A4 39              9     rts 
2923
2924 jump11:
2925 98A5 BD BE 4B        ..K   jsr be4b             ;displayblank
2926 98A8 F6 00 54        ..T   ldab 0054
2927 98AB 4F              O     clra 
2928 98AC BD E7 95        ...   jsr e795             ;jump54
2929 98AF F6 00 5E        ..^   ldab 005e
2930 98B2 F7 0B 95        ...   stab 0b95
2931 98B5 F6 00 5F        .._   ldab 005f
2932 98B8 F7 0B 94        ...   stab 0b94
2933 98BB BD BE 01        ...   jsr be01             ;jump70
2934 98BE 39              9     rts 
2935
2936 jump146:
2937 98BF F6 00 09        ...   ldab 0009
2938 98C2 C1 00           ..    cmpb #00
2939 98C4 26 05           &.    bne 05
2940 98C6 BD 9E 89        ...   jsr 9e89             ;jump100
2941 98C9 20 33            3    bra 33
2942 98CB C1 01           ..    cmpb #01
2943 98CD 26 1E           &.    bne 1e
2944 98CF F6 00 48        ..H   ldab 0048
2945 98D2 C1 92           ..    cmpb #92
2946 98D4 26 15           &.    bne 15
2947 98D6 F6 00 1F        ...   ldab 001f
2948 98D9 C4 10           ..    andb #10
2949 98DB 26 08           &.    bne 08
2950 98DD CE 00 1F        ...   ldx #001f
2951 98E0 1C 00 10        ...   bset 00,x, #10
2952 98E3 20 06            .    bra 06
2953 98E5 CE 00 1F        ...   ldx #001f
2954 98E8 1D 00 10        ...   bclr 00,x, #10
2955 98EB 20 11            .    bra 11
2956 98ED C1 0B           ..    cmpb #0b
2957 98EF 26 0D           &.    bne 0d
2958 98F1 F6 00 1F        ...   ldab 001f
2959 98F4 C4 10           ..    andb #10
2960 98F6 27 03           '.    beq 03
2961 98F8 BD E9 2B        ..+   jsr e92b             ;jump103
2962 98FB BD 85 AF        ...   jsr 85af             ;jump14
2963 98FE 39              9     rts 
2964
2965 jump145:
2966 98FF F6 00 1F        ...   ldab 001f
2967 9902 C4 02           ..    andb #02
2968 9904 27 13           '.    beq 13
2969 9906 C6 01           ..    ldab #01
2970 9908 F7 00 48        ..H   stab 0048
2971 990B CE 00 1F        ...   ldx #001f
2972 990E 1D 00 10        ...   bclr 00,x, #10
2973 9911 CE 00 1F        ...   ldx #001f
2974 9914 1D 00 02        ...   bclr 00,x, #02
2975 9917 20 67            g    bra 67
2976 9919 F6 00 09        ...   ldab 0009
2977 991C 4F              O     clra 
2978 991D BD FE 32        ..2   jsr fe32             ;jump25
2979 9920 99 36 00 00     .6..  ; array data for jump25
2980 9924 99 3B 00 01     .;..  
2981 9928 99 59 00 09     .Y..  
2982 992C 99 73 00 01     .s..  
2983 9930 99 80 FF F5     ....  
2984 9934 00 00           ..    ; end of array data
2985 9936 BD 9E 89        ...   jsr 9e89             ;jump100
2986 9939 20 45            E    bra 45
2987 993B F6 00 48        ..H   ldab 0048
2988 993E C1 92           ..    cmpb #92
2989 9940 26 15           &.    bne 15
2990 9942 F6 00 1F        ...   ldab 001f
2991 9945 C4 10           ..    andb #10
2992 9947 26 08           &.    bne 08
2993 9949 CE 00 1F        ...   ldx #001f
2994 994C 1C 00 10        ...   bset 00,x, #10
2995 994F 20 06            .    bra 06
2996 9951 CE 00 1F        ...   ldx #001f
2997 9954 1D 00 10        ...   bclr 00,x, #10
2998 9957 20 27            '    bra 27
2999 9959 7C 00 48        |.H   inc 0048
3000 995C F6 00 48        ..H   ldab 0048
3001 995F C1 92           ..    cmpb #92
3002 9961 23 0B           #.    bls 0b
3003 9963 C6 01           ..    ldab #01
3004 9965 F7 00 48        ..H   stab 0048
3005 9968 CE 00 1F        ...   ldx #001f
3006 996B 1D 00 10        ...   bclr 00,x, #10
3007 996E BD 9E 89        ...   jsr 9e89             ;jump100
3008 9971 20 0D            .    bra 0d
3009 9973 F6 00 1F        ...   ldab 001f
3010 9976 C4 10           ..    andb #10
3011 9978 27 03           '.    beq 03
3012 997A BD E9 2B        ..+   jsr e92b             ;jump103
3013 997D BD 85 AF        ...   jsr 85af             ;jump14
3014 9980 39              9     rts 
3015
3016 jump144:
3017 9981 BD BE 4B        ..K   jsr be4b             ;displayblank
3018 9984 F6 00 05        ...   ldab 0005
3019 9987 4F              O     clra 
3020 9988 BD E7 95        ...   jsr e795             ;jump54
3021 998B C6 4D           .M    ldab #4d
3022 998D F7 0B 99        ...   stab 0b99
3023 9990 C6 4F           .O    ldab #4f
3024 9992 F7 0B 98        ...   stab 0b98
3025 9995 C6 54           .T    ldab #54
3026 9997 F7 0B 97        ...   stab 0b97
3027 999A C6 4F           .O    ldab #4f
3028 999C F7 0B 96        ...   stab 0b96
3029 999F C6 52           .R    ldab #52
3030 99A1 F7 0B 95        ...   stab 0b95
3031 99A4 C6 53           .S    ldab #53
3032 99A6 F7 0B 94        ...   stab 0b94
3033 99A9 C6 20           .     ldab #20
3034 99AB F7 0B 93        ...   stab 0b93
3035 99AE C6 20           .     ldab #20
3036 99B0 F7 0B 92        ...   stab 0b92
3037 99B3 F6 00 5E        ..^   ldab 005e
3038 99B6 F7 0B 91        ...   stab 0b91
3039 99B9 F6 00 5F        .._   ldab 005f
3040 99BC F7 0B 90        ...   stab 0b90
3041 99BF BD BE 01        ...   jsr be01             ;jump70
3042 99C2 39              9     rts 
3043
3044 jump143:
3045 99C3 BD BE 4B        ..K   jsr be4b             ;displayblank
3046 99C6 F6 00 05        ...   ldab 0005
3047 99C9 4F              O     clra 
3048 99CA BD E7 95        ...   jsr e795             ;jump54
3049 99CD C6 56           .V    ldab #56
3050 99CF F7 0B 99        ...   stab 0b99
3051 99D2 C6 45           .E    ldab #45
3052 99D4 F7 0B 98        ...   stab 0b98
3053 99D7 C6 4E           .N    ldab #4e
3054 99D9 F7 0B 97        ...   stab 0b97
3055 99DC C6 44           .D    ldab #44
3056 99DE F7 0B 96        ...   stab 0b96
3057 99E1 C6 53           .S    ldab #53
3058 99E3 F7 0B 95        ...   stab 0b95
3059 99E6 C6 20           .     ldab #20
3060 99E8 F7 0B 94        ...   stab 0b94
3061 99EB C6 20           .     ldab #20
3062 99ED F7 0B 93        ...   stab 0b93
3063 99F0 C6 20           .     ldab #20
3064 99F2 F7 0B 92        ...   stab 0b92
3065 99F5 F6 00 5E        ..^   ldab 005e
3066 99F8 F7 0B 91        ...   stab 0b91
3067 99FB F6 00 5F        .._   ldab 005f
3068 99FE F7 0B 90        ...   stab 0b90
3069 9A01 BD BE 01        ...   jsr be01             ;jump70
3070 9A04 39              9     rts 
3071
3072 jump102:
3073 9A05 BD BE 4B        ..K   jsr be4b             ;displayblank
3074 9A08 FC 00 52        ..R   ldd 0052
3075 9A0B BD E7 45        ..E   jsr e745             ;jump55
3076 9A0E C6 4F           .O    ldab #4f     ; "O"
3077 9A10 F7 0B 99        ...   stab 0b99
3078 9A13 C6 44           .D    ldab #44     ; "D"
3079 9A15 F7 0B 98        ...   stab 0b98
3080 9A18 C6 44           .D    ldab #44     ; "D"
3081 9A1A F7 0B 97        ...   stab 0b97
3082 9A1D C6 53           .S    ldab #53     ; "S"
3083 9A1F F7 0B 96        ...   stab 0b96
3084 9A22 C6 20           .     ldab #20     ; " "
3085 9A24 F7 0B 95        ...   stab 0b95
3086 9A27 C6 31           .1    ldab #31     ; "1"
3087 9A29 F7 0B 94        ...   stab 0b94
3088 9A2C C6 2F           ./    ldab #2f     ; "/"
3089 9A2E F7 0B 93        ...   stab 0b93
3090 9A31 F6 00 5D        ..]   ldab 005d
3091 9A34 F7 0B 92        ...   stab 0b92
3092 9A37 F6 00 5E        ..^   ldab 005e
3093 9A3A F7 0B 91        ...   stab 0b91
3094 9A3D F6 00 5F        .._   ldab 005f
3095 9A40 F7 0B 90        ...   stab 0b90
3096 9A43 BD BE 01        ...   jsr be01             ;jump70
3097 9A46 39              9     rts 
3098
3099 jump39:
3100 9A47 BD BE 4B        ..K   jsr be4b             ;displayblank
3101 9A4A F6 00 06        ...   ldab 0006
3102 9A4D 4F              O     clra 
3103 9A4E BD E7 95        ...   jsr e795             ;jump54
3104 9A51 F6 00 5E        ..^   ldab 005e
3105 9A54 F7 0B 99        ...   stab 0b99
3106 9A57 F6 00 5F        .._   ldab 005f
3107 9A5A F7 0B 98        ...   stab 0b98
3108 9A5D C6 20           .     ldab #20
3109 9A5F F7 0B 97        ...   stab 0b97
3110 9A62 F6 00 1F        ...   ldab 001f
3111 9A65 C4 40           .@    andb #40
3112 9A67 27 45           'E    beq 45
3113 9A69 FC 00 27        ..'   ldd 0027
3114 9A6C BD E7 45        ..E   jsr e745             ;jump55
3115 9A6F F6 00 5A        ..Z   ldab 005a
3116 9A72 F7 0B 96        ...   stab 0b96
3117 9A75 F6 00 5D        ..]   ldab 005d
3118 9A78 F7 0B 95        ...   stab 0b95
3119 9A7B F6 00 5E        ..^   ldab 005e
3120 9A7E F7 0B 94        ...   stab 0b94
3121 9A81 F6 00 5F        .._   ldab 005f
3122 9A84 F7 0B 93        ...   stab 0b93
3123 9A87 F6 00 19        ...   ldab 0019
3124 9A8A C4 10           ..    andb #10
3125 9A8C 27 07           '.    beq 07
3126 9A8E C6 2A           .*    ldab #2a
3127 9A90 F7 0B 92        ...   stab 0b92
3128 9A93 20 05            .    bra 05
3129 9A95 C6 20           .     ldab #20
3130 9A97 F7 0B 92        ...   stab 0b92
3131 9A9A FC 00 46        ..F   ldd 0046
3132 9A9D BD E7 45        ..E   jsr e745             ;jump55
3133 9AA0 F6 00 5E        ..^   ldab 005e
3134 9AA3 F7 0B 91        ...   stab 0b91
3135 9AA6 F6 00 5F        .._   ldab 005f
3136 9AA9 F7 0B 90        ...   stab 0b90
3137 9AAC 20 1E            .    bra 1e
3138 9AAE C6 58           .X    ldab #58   : "X"
3139 9AB0 F7 0B 96        ...   stab 0b96
3140 9AB3 C6 58           .X    ldab #58   : "X"
3141 9AB5 F7 0B 95        ...   stab 0b95
3142 9AB8 C6 58           .X    ldab #58   : "X"
3143 9ABA F7 0B 94        ...   stab 0b94
3144 9ABD C6 58           .X    ldab #58   : "X"
3145 9ABF F7 0B 93        ...   stab 0b93
3146 9AC2 C6 58           .X    ldab #58   : "X"
3147 9AC4 F7 0B 91        ...   stab 0b91
3148 9AC7 C6 58           .X    ldab #58   : "X"
3149 9AC9 F7 0B 90        ...   stab 0b90
3150 9ACC F6 00 13        ...   ldab 0013
3151 9ACF C1 01           ..    cmpb #01
3152 9AD1 23 4C           #L    bls 4c
3153 9AD3 F6 0B 91        ...   ldab 0b91
3154 9AD6 F7 0B 90        ...   stab 0b90
3155 9AD9 F6 0B 92        ...   ldab 0b92
3156 9ADC F7 0B 91        ...   stab 0b91
3157 9ADF F6 0B 93        ...   ldab 0b93
3158 9AE2 F7 0B 92        ...   stab 0b92
3159 9AE5 F6 0B 94        ...   ldab 0b94
3160 9AE8 F7 0B 93        ...   stab 0b93
3161 9AEB F6 00 13        ...   ldab 0013
3162 9AEE C1 02           ..    cmpb #02
3163 9AF0 26 07           &.    bne 07
3164 9AF2 C6 2E           ..    ldab #2e   ; "."
3165 9AF4 F7 0B 94        ...   stab 0b94
3166 9AF7 20 26            &    bra 26
3167 9AF9 C1 04           ..    cmpb #04
3168 9AFB 26 0D           &.    bne 0d
3169 9AFD F6 0B 95        ...   ldab 0b95
3170 9B00 F7 0B 94        ...   stab 0b94
3171 9B03 C6 2E           ..    ldab #2e   ; "."
3172 9B05 F7 0B 95        ...   stab 0b95
3173 9B08 20 15            .    bra 15
3174 9B0A C1 08           ..    cmpb #08
3175 9B0C 26 11           &.    bne 11
3176 9B0E F6 0B 95        ...   ldab 0b95
3177 9B11 F7 0B 94        ...   stab 0b94
3178 9B14 F6 0B 96        ...   ldab 0b96
3179 9B17 F7 0B 95        ...   stab 0b95
3180 9B1A C6 2E           ..    ldab #2e
3181 9B1C F7 0B 96        ...   stab 0b96
3182 9B1F F6 00 2C        ..,   ldab 002c
3183 9B22 26 3E           &>    bne 3e
3184 9B24 BD BE 69        ..i   jsr be69             ;displayreset
3185 9B27 F6 00 13        ...   ldab 0013
3186 9B2A C1 01           ..    cmpb #01
3187 9B2C 23 2C           #,    bls 2c
3188 9B2E CE 10 28        ..(   ldx #1028
3189 9B31 1C 00 40        ...   bset 00,x, #40 ; enable SPI
3190 9B34 F6 00 1F        ...   ldab 001f
3191 9B37 C4 40           .@    andb #40
3192 9B39 27 0E           '.    beq 0e
3193 9B3B CE 00 01        ...   ldx #0001
3194 9B3E 3C              <     pshx 
3195 9B3F F6 00 5F        .._   ldab 005f
3196 9B42 4F              O     clra 
3197 9B43 BD BD B5        ...   jsr bdb5             ;jump78 
3198 9B46 38              8     pulx 
3199 9B47 20 0B            .    bra 0b
3200 9B49 CE 00 01        ...   ldx #0001
3201 9B4C 3C              <     pshx 
3202 9B4D CC 00 58        ..X   ldd #0058
3203 9B50 BD BD B5        ...   jsr bdb5             ;jump78 
3204 9B53 38              8     pulx 
3205 9B54 CE 10 28        ..(   ldx #1028
3206 9B57 1D 00 40        ...   bclr 00,x, #40
3207 9B5A BD BE 10        ...   jsr be10             ;jump88
3208 9B5D C6 03           ..    ldab #03
3209 9B5F F7 00 2C        ..,   stab 002c
3210 9B62 39              9     rts 
3211
3212 jump101:
3213 9B63 BD BE 4B        ..K   jsr be4b             ;displayblank
3214 9B66 FC 00 0D        ...   ldd 000d
3215 9B69 BD E7 45        ..E   jsr e745             ;jump55
3216 9B6C C6 44           .D    ldab #44
3217 9B6E F7 0B 99        ...   stab 0b99
3218 9B71 C6 53           .S    ldab #53
3219 9B73 F7 0B 98        ...   stab 0b98
3220 9B76 C6 43           .C    ldab #43
3221 9B78 F7 0B 97        ...   stab 0b97
3222 9B7B C6 4E           .N    ldab #4e
3223 9B7D F7 0B 96        ...   stab 0b96
3224 9B80 C6 54           .T    ldab #54
3225 9B82 F7 0B 95        ...   stab 0b95
3226 9B85 C6 20           .     ldab #20
3227 9B87 F7 0B 94        ...   stab 0b94
3228 9B8A F6 00 5A        ..Z   ldab 005a
3229 9B8D F7 0B 93        ...   stab 0b93
3230 9B90 F6 00 5D        ..]   ldab 005d
3231 9B93 F7 0B 92        ...   stab 0b92
3232 9B96 F6 00 5E        ..^   ldab 005e
3233 9B99 F7 0B 91        ...   stab 0b91
3234 9B9C F6 00 5F        .._   ldab 005f
3235 9B9F F7 0B 90        ...   stab 0b90
3236 9BA2 F6 00 13        ...   ldab 0013
3237 9BA5 C1 01           ..    cmpb #01
3238 9BA7 23 3C           #<    bls 3c
3239 9BA9 F6 0B 91        ...   ldab 0b91
3240 9BAC F7 0B 90        ...   stab 0b90
3241 9BAF F6 00 13        ...   ldab 0013
3242 9BB2 C1 02           ..    cmpb #02
3243 9BB4 26 07           &.    bne 07
3244 9BB6 C6 2E           ..    ldab #2e
3245 9BB8 F7 0B 91        ...   stab 0b91
3246 9BBB 20 28            (    bra 28
3247 9BBD C1 04           ..    cmpb #04
3248 9BBF 26 0D           &.    bne 0d
3249 9BC1 F6 0B 92        ...   ldab 0b92
3250 9BC4 F7 0B 91        ...   stab 0b91
3251 9BC7 C6 2E           ..    ldab #2e
3252 9BC9 F7 0B 92        ...   stab 0b92
3253 9BCC 20 17            .    bra 17
3254 9BCE C1 08           ..    cmpb #08
3255 9BD0 26 13           &.    bne 13
3256 9BD2 F6 0B 92        ...   ldab 0b92
3257 9BD5 F7 0B 91        ...   stab 0b91
3258 9BD8 F6 0B 93        ...   ldab 0b93
3259 9BDB F7 0B 92        ...   stab 0b92
3260 9BDE C6 2E           ..    ldab #2e
3261 9BE0 F7 0B 93        ...   stab 0b93
3262 9BE3 20 00            .    bra 00
3263 9BE5 F6 00 2C        ..,   ldab 002c
3264 9BE8 26 2A           &*    bne 2a
3265 9BEA BD BE 69        ..i   jsr be69             ;displayreset
3266 9BED F6 00 13        ...   ldab 0013
3267 9BF0 C1 01           ..    cmpb #01
3268 9BF2 23 18           #.    bls 18
3269 9BF4 CE 10 28        ..(   ldx #1028
3270 9BF7 1C 00 40        ...   bset 00,x, #40
3271 9BFA CE 00 01        ...   ldx #0001
3272 9BFD 3C              <     pshx 
3273 9BFE F6 00 5F        .._   ldab 005f
3274 9C01 4F              O     clra 
3275 9C02 BD BD B5        ...   jsr bdb5             ;jump78 
3276 9C05 38              8     pulx 
3277 9C06 CE 10 28        ..(   ldx #1028
3278 9C09 1D 00 40        ...   bclr 00,x, #40
3279 9C0C BD BE 10        ...   jsr be10             ;jump88
3280 9C0F C6 03           ..    ldab #03
3281 9C11 F7 00 2C        ..,   stab 002c
3282 9C14 39              9     rts 
3283
3284 jump111:
3285 9C15 BD BE 4B        ..K   jsr be4b             ;displayblank
3286 9C18 F6 00 48        ..H   ldab 0048
3287 9C1B 4F              O     clra 
3288 9C1C BD FE 16        ...   jsr fe16             ;jump2
3289 9C1F 00              .     test 
3290 9C20 00              .     test 
3291 9C21 00              .     test 
3292 9C22 0A              .     clv 
3293 9C23 9D 29 9C        .).   jsr 29
3294 9C26 3B              ;     rti 
3295 9C27 9C 53 9C        .S.   cmpx 53
3296 9C2A 6B              k     illegal 
3297 9C2B 9C 83 9C        ...   cmpx 83
3298 9C2E 9B 9C B2        ...   adda 9c
3299 9C31 9C C9 9C        ...   cmpx c9
3300 9C34 E0 9C           ..    subb 9c,x
3301 9C36 F7 9D 0E        ...   stab 9d0e
3302 9C39 9D 23 F6        .#.   jsr 23
3303 9C3C 00              .     test 
3304 9C3D 67 C4           g.    asr c4,x
3305 9C3F 02              .     idiv 
3306 9C40 27 08           '.    beq 08
3307 9C42 CC AF 00        ...   ldd #af00    ; "LNK MSTR Y"
3308 9C45 BD C0 BA        ...   jsr c0ba             ;display:
3309 9C48 20 06            .    bra 06
3310 9C4A CC AF 0B        ...   ldd #af0b    ; "LNK MSTR N"
3311 9C4D BD C0 BA        ...   jsr c0ba             ;display:
3312 9C50 7E 9D 29        ~.)   jmp 9d29             ;goto18
3313 9C53 F6 00 67        ..g   ldab 0067
3314 9C56 C4 10           ..    andb #10
3315 9C58 27 08           '.    beq 08
3316 9C5A CC AF 42        ..B   ldd #af42    ; "PRC HOLD Y"
3317 9C5D BD C0 BA        ...   jsr c0ba             ;display:
3318 9C60 20 06            .    bra 06
3319 9C62 CC AF 4D        ..M   ldd #af4d    ; "PRC HOLD N"
3320 9C65 BD C0 BA        ...   jsr c0ba             ;display:
3321 9C68 7E 9D 29        ~.)   jmp 9d29             ;goto18
3322 9C6B F6 00 67        ..g   ldab 0067
3323 9C6E C4 20           .     andb #20
3324 9C70 27 08           '.    beq 08
3325 9C72 CC AF 58        ..X   ldd #af58    ; "PRC DISP Y"
3326 9C75 BD C0 BA        ...   jsr c0ba             ;display:
3327 9C78 20 06            .    bra 06
3328 9C7A CC AF 63        ..c   ldd #af63    ; "PRC DISP N"
3329 9C7D BD C0 BA        ...   jsr c0ba             ;display:
3330 9C80 7E 9D 29        ~.)   jmp 9d29             ;goto18
3331 9C83 F6 00 67        ..g   ldab 0067
3332 9C86 C4 01           ..    andb #01
3333 9C88 27 08           '.    beq 08
3334 9C8A CC AE EA        ...   ldd #aeea    ; "DUMB MEC Y"
3335 9C8D BD C0 BA        ...   jsr c0ba             ;display:
3336 9C90 20 06            .    bra 06
3337 9C92 CC AE F5        ...   ldd #aef5    ; "DUMB MEC N"
3338 9C95 BD C0 BA        ...   jsr c0ba             ;display:
3339 9C98 7E 9D 29        ~.)   jmp 9d29             ;goto18
3340 9C9B F6 00 67        ..g   ldab 0067
3341 9C9E C4 04           ..    andb #04
3342 9CA0 27 08           '.    beq 08
3343 9CA2 CC AF 16        ...   ldd #af16    ; "CARD RDR Y"
3344 9CA5 BD C0 BA        ...   jsr c0ba             ;display:
3345 9CA8 20 06            .    bra 06
3346 9CAA CC AF 21        ..!   ldd #af21    ; "CARD RDR N"
3347 9CAD BD C0 BA        ...   jsr c0ba             ;display:
3348 9CB0 20 77            w    bra 77
3349 9CB2 F6 00 67        ..g   ldab 0067
3350 9CB5 C4 08           ..    andb #08
3351 9CB7 27 08           '.    beq 08
3352 9CB9 CC AF 2C        ..,   ldd #af2c    ; "BILL VAL Y"
3353 9CBC BD C0 BA        ...   jsr c0ba             ;display:
3354 9CBF 20 06            .    bra 06
3355 9CC1 CC AF 37        ..7   ldd #af37    ; "BILL VAL N"
3356 9CC4 BD C0 BA        ...   jsr c0ba             ;display:
3357 9CC7 20 60            `    bra 60
3358 9CC9 F6 00 67        ..g   ldab 0067
3359 9CCC C4 40           .@    andb #40
3360 9CCE 27 08           '.    beq 08
3361 9CD0 CC AF 84        ...   ldd #af84    ; "$1 CHNGR Y"
3362 9CD3 BD C0 BA        ...   jsr c0ba             ;display:
3363 9CD6 20 06            .    bra 06
3364 9CD8 CC AF 8F        ...   ldd #af8f    ; "$1 CHNGR N"
3365 9CDB BD C0 BA        ...   jsr c0ba             ;display:
3366 9CDE 20 49            I    bra 49
3367 9CE0 F6 0E 70        ..p   ldab 0e70
3368 9CE3 C1 01           ..    cmpb #01
3369 9CE5 26 08           &.    bne 08
3370 9CE7 CC AE BE        ...   ldd #aebe    ; "$5 ENABLE "
3371 9CEA BD C0 BA        ...   jsr c0ba             ;display:
3372 9CED 20 06            .    bra 06
3373 9CEF CC AE C9        ...   ldd #aec9    ; "$5 DISABLE"
3374 9CF2 BD C0 BA        ...   jsr c0ba             ;display:
3375 9CF5 20 32            2    bra 32
3376 9CF7 F6 0E 6F        ..o   ldab 0e6f
3377 9CFA C1 01           ..    cmpb #01
3378 9CFC 26 08           &.    bne 08
3379 9CFE CC AE D4        ...   ldd #aed4    ; "SODA VEND "
3380 9D01 BD C0 BA        ...   jsr c0ba             ;display:
3381 9D04 20 06            .    bra 06
3382 9D06 CC AE DF        ...   ldd #aedf    ; "SNACK VEND"
3383 9D09 BD C0 BA        ...   jsr c0ba             ;display:
3384 9D0C 20 1B            .    bra 1b
3385 9D0E F6 00 67        ..g   ldab 0067
3386 9D11 2C 08           ,.    bge 08
3387 9D13 CC AF 6E        ..n   ldd #af6e    ; "FREE VND Y"
3388 9D16 BD C0 BA        ...   jsr c0ba             ;display:
3389 9D19 20 06            .    bra 06
3390 9D1B CC AF 79        ..y   ldd #af79    ; "FREE VND N"
3391 9D1E BD C0 BA        ...   jsr c0ba             ;display:
3392 9D21 20 06            .    bra 06
3393 9D23 CC AF B0        ...   ldd #afb0    ; "HIT KEY "0""
3394 9D26 BD C0 BA        ...   jsr c0ba             ;display:
3395 goto18:
3396 9D29 39              9     rts 
3397
3398 jump89:
3399 9D2A BD BE 4B        ..K   jsr be4b             ;displayblank
3400 9D2D F6 00 22        .."   ldab 0022
3401 9D30 4F              O     clra 
3402 9D31 BD E7 95        ...   jsr e795             ;jump54
3403 9D34 F6 00 5E        ..^   ldab 005e
3404 9D37 F7 0B 99        ...   stab 0b99
3405 9D3A F6 00 5F        .._   ldab 005f
3406 9D3D F7 0B 98        ...   stab 0b98
3407 9D40 C6 20           .     ldab #20
3408 9D42 F7 0B 97        ...   stab 0b97
3409 9D45 F6 00 24        ..$   ldab 0024
3410 9D48 4F              O     clra 
3411 9D49 BD E7 95        ...   jsr e795             ;jump54
3412 9D4C C6 50           .P    ldab #50
3413 9D4E F7 0B 96        ...   stab 0b96
3414 9D51 F6 00 5E        ..^   ldab 005e
3415 9D54 F7 0B 95        ...   stab 0b95
3416 9D57 F6 00 5F        .._   ldab 005f
3417 9D5A F7 0B 94        ...   stab 0b94
3418 9D5D C6 20           .     ldab #20
3419 9D5F F7 0B 93        ...   stab 0b93
3420 9D62 F6 00 2A        ..*   ldab 002a
3421 9D65 4F              O     clra 
3422 9D66 BD E7 95        ...   jsr e795             ;jump54
3423 9D69 C6 46           .F    ldab #46
3424 9D6B F7 0B 92        ...   stab 0b92
3425 9D6E F6 00 5E        ..^   ldab 005e
3426 9D71 F7 0B 91        ...   stab 0b91
3427 9D74 F6 00 5F        .._   ldab 005f
3428 9D77 F7 0B 90        ...   stab 0b90
3429 9D7A BD BE 01        ...   jsr be01             ;jump70
3430 9D7D 39              9     rts 
3431
3432 9D7E BD BE 4B        ..K   jsr be4b             ;displayblank
3433 9D81 F6 00 60        ..`   ldab 0060
3434 9D84 4F              O     clra 
3435 9D85 C3 0A 90        ...   addd #0a90
3436 9D88 8F              .     xgdx 
3437 9D89 E6 00           ..    ldab 00,x
3438 9D8B F7 0B 99        ...   stab 0b99
3439 9D8E F6 00 60        ..`   ldab 0060
3440 9D91 4F              O     clra 
3441 9D92 C3 0A 91        ...   addd #0a91
3442 9D95 8F              .     xgdx 
3443 9D96 E6 00           ..    ldab 00,x
3444 9D98 F7 0B 98        ...   stab 0b98
3445 9D9B F6 00 60        ..`   ldab 0060
3446 9D9E 4F              O     clra 
3447 9D9F C3 0A 92        ...   addd #0a92
3448 9DA2 8F              .     xgdx 
3449 9DA3 E6 00           ..    ldab 00,x
3450 9DA5 F7 0B 97        ...   stab 0b97
3451 9DA8 F6 00 60        ..`   ldab 0060
3452 9DAB 4F              O     clra 
3453 9DAC C3 0A 94        ...   addd #0a94
3454 9DAF 8F              .     xgdx 
3455 9DB0 E6 00           ..    ldab 00,x
3456 9DB2 F7 0B 95        ...   stab 0b95
3457 9DB5 F6 00 60        ..`   ldab 0060
3458 9DB8 4F              O     clra 
3459 9DB9 C3 0A 95        ...   addd #0a95
3460 9DBC 8F              .     xgdx 
3461 9DBD E6 00           ..    ldab 00,x
3462 9DBF F7 0B 94        ...   stab 0b94
3463 9DC2 F6 00 60        ..`   ldab 0060
3464 9DC5 4F              O     clra 
3465 9DC6 C3 0A 96        ...   addd #0a96
3466 9DC9 8F              .     xgdx 
3467 9DCA E6 00           ..    ldab 00,x
3468 9DCC F7 0B 93        ...   stab 0b93
3469 9DCF C6 20           .     ldab #20
3470 9DD1 F7 0B 92        ...   stab 0b92
3471 9DD4 C6 20           .     ldab #20
3472 9DD6 F7 0B 91        ...   stab 0b91
3473 9DD9 F6 00 54        ..T   ldab 0054
3474 9DDC 4F              O     clra 
3475 9DDD C3 B4 8F        ...   addd #b48f
3476 9DE0 8F              .     xgdx 
3477 9DE1 E6 00           ..    ldab 00,x
3478 9DE3 F7 0B 90        ...   stab 0b90
3479 9DE6 F6 00 38        ..8   ldab 0038
3480 9DE9 C1 03           ..    cmpb #03
3481 9DEB 24 0F           $.    bcc 0f
3482 9DED F6 00 60        ..`   ldab 0060
3483 9DF0 4F              O     clra 
3484 9DF1 C3 0A 93        ...   addd #0a93
3485 9DF4 8F              .     xgdx 
3486 9DF5 E6 00           ..    ldab 00,x
3487 9DF7 F7 0B 96        ...   stab 0b96
3488 9DFA 20 05            .    bra 05
3489 9DFC C6 1F           ..    ldab #1f
3490 9DFE F7 0B 96        ...   stab 0b96
3491 9E01 BD BE 01        ...   jsr be01             ;jump70
3492 9E04 F6 00 38        ..8   ldab 0038
3493 9E07 26 05           &.    bne 05
3494 9E09 C6 05           ..    ldab #05
3495 9E0B F7 00 38        ..8   stab 0038
3496 9E0E 39              9     rts 
3497
3498 jump142:
3499 9E0F BD BE 4B        ..K   jsr be4b             ;displayblank
3500 9E12 F6 00 48        ..H   ldab 0048
3501 9E15 26 15           &.    bne 15
3502 9E17 F6 00 66        ..f   ldab 0066
3503 9E1A 27 08           '.    beq 08
3504 9E1C CC AF C6        ...   ldd #afc6    ; "SECURE ON"
3505 9E1F BD C0 BA        ...   jsr c0ba             ;display:
3506 9E22 20 06            .    bra 06
3507 9E24 CC AF D1        ...   ldd #afd1    ; "SECURE OFF"
3508 9E27 BD C0 BA        ...   jsr c0ba             ;display:
3509 9E2A 20 5C            \    bra 5c
3510 9E2C C6 4D           .M    ldab #4d
3511 9E2E F7 0B 99        ...   stab 0b99
3512 9E31 C6 45           .E    ldab #45
3513 9E33 F7 0B 98        ...   stab 0b98
3514 9E36 C6 4E           .N    ldab #4e
3515 9E38 F7 0B 97        ...   stab 0b97
3516 9E3B C6 55           .U    ldab #55
3517 9E3D F7 0B 96        ...   stab 0b96
3518 9E40 C6 20           .     ldab #20
3519 9E42 F7 0B 95        ...   stab 0b95
3520 9E45 F6 00 48        ..H   ldab 0048
3521 9E48 CB 30           .0    addb #30
3522 9E4A F7 0B 94        ...   stab 0b94
3523 9E4D F6 00 48        ..H   ldab 0048
3524 9E50 C1 0A           ..    cmpb #0a
3525 9E52 26 05           &.    bne 05
3526 9E54 C6 30           .0    ldab #30
3527 9E56 F7 0B 94        ...   stab 0b94
3528 9E59 C6 20           .     ldab #20
3529 9E5B F7 0B 93        ...   stab 0b93
3530 9E5E C6 4F           .O    ldab #4f
3531 9E60 F7 0B 92        ...   stab 0b92
3532 9E63 F6 00 48        ..H   ldab 0048
3533 9E66 4F              O     clra 
3534 9E67 C3 00 68        ..h   addd #0068
3535 9E6A 8F              .     xgdx 
3536 9E6B E6 00           ..    ldab 00,x
3537 9E6D 27 0C           '.    beq 0c
3538 9E6F C6 4E           .N    ldab #4e
3539 9E71 F7 0B 91        ...   stab 0b91
3540 9E74 C6 20           .     ldab #20
3541 9E76 F7 0B 90        ...   stab 0b90
3542 9E79 20 0A            .    bra 0a
3543 9E7B C6 46           .F    ldab #46
3544 9E7D F7 0B 91        ...   stab 0b91
3545 9E80 C6 46           .F    ldab #46
3546 9E82 F7 0B 90        ...   stab 0b90
3547 9E85 BD BE 01        ...   jsr be01             ;jump70
3548 9E88 39              9     rts 
3549
3550 jump100:
3551 9E89 BD BE 4B        ..K   jsr be4b             ;displayblank
3552 9E8C F6 00 48        ..H   ldab 0048
3553 9E8F 4F              O     clra 
3554 9E90 BD FE 16        ...   jsr fe16             ;jump2
3555 9E93 00              .     test 
3556 9E94 01              .     nop 
3557 9E95 00              .     test 
3558 9E96 2D A1           -.    blt a1
3559 9E98 C4 9E           ..    andb #9e
3560 9E9A F5 9E FE        ...   bitb 9efe
3561 9E9D 9F 07 9F        ...   sts 07
3562 9EA0 10              .     sba 
3563 9EA1 9F 19 9F        ...   sts 19
3564 9EA4 3B              ;     rti 
3565 9EA5 9F 44 9F        .D.   sts 44
3566 9EA8 52              R     illegal 
3567 9EA9 9F 5B 9F        .[.   sts 5b
3568 9EAC 69              i     rol 
3569 9EAD 9F 72 9F        .r.   sts 72
3570 9EB0 80 9F           ..    suba #9f
3571 9EB2 89 9F           ..    adca #9f
3572 9EB4 97 9F A0        ...   staa 9f
3573 9EB7 9F AE 9F        ...   sts ae
3574 9EBA B7 9F C5        ...   staa 9fc5
3575 9EBD 9F DD 9F        ...   sts dd
3576 9EC0 EB A0           ..    addb a0,x
3577 9EC2 03              .     fdiv 
3578 9EC3 A0 11           ..    suba 11,x
3579 9EC5 A0 29           .)    suba 29,x
3580 9EC7 A0 37           .7    suba 37,x
3581 9EC9 A0 54           .T    suba 54,x
3582 9ECB A0 62           .b    suba 62,x
3583 9ECD A0 7F           ..    suba 7f,x
3584 9ECF A0 8D           ..    suba 8d,x
3585 9ED1 A0 96           ..    suba 96,x
3586 9ED3 A0 A4           ..    suba a4,x
3587 9ED5 A0 AD           ..    suba ad,x
3588 9ED7 A0 BC           ..    suba bc,x
3589 9ED9 A0 C5           ..    suba c5,x
3590 9EDB A0 D4           ..    suba d4,x
3591 9EDD A0 DD           ..    suba dd,x
3592 9EDF A0 EC           ..    suba ec,x
3593 9EE1 A0 F5           ..    suba f5,x
3594 9EE3 A1 04           ..    cmpa 04,x
3595 9EE5 A1 26           .&    cmpa 26,x
3596 9EE7 A1 34           .4    cmpa 34,x
3597 9EE9 A1 55           .U    cmpa 55,x
3598 9EEB A1 62           .b    cmpa 62,x
3599 9EED A1 83           ..    cmpa 83,x
3600 9EEF A1 90           ..    cmpa 90,x
3601 9EF1 A1 B1           ..    cmpa b1,x
3602 9EF3 A1 BE           ..    cmpa be,x
3603 9EF5 CC B2 90        ...   ldd #b290    ; "SERIAL #"
3604 9EF8 BD C0 BA        ...   jsr c0ba             ;display:
3605 9EFB 7E A1 C4        ~..   jmp a1c4             ;goto19
3606 9EFE CC 0C BC        ...   ldd #0cbc    ; serial number?
3607 9F01 BD C0 BA        ...   jsr c0ba             ;display:
3608 9F04 7E A1 C4        ~..   jmp a1c4             ;goto19
3609 9F07 CC B2 A2        ...   ldd #b2a2    ; "MACHINE ID"
3610 9F0A BD C0 BA        ...   jsr c0ba             ;display:
3611 9F0D 7E A1 C4        ~..   jmp a1c4             ;goto19
3612 9F10 CC 0C CC        ...   ldd #0ccc    ; machine id?
3613 9F13 BD C0 BA        ...   jsr c0ba             ;display:
3614 9F16 7E A1 C4        ~..   jmp a1c4             ;goto19
3615 9F19 C6 41           .A    ldab #41
3616 9F1B F7 0B 99        ...   stab 0b99
3617 9F1E C6 55           .U    ldab #55
3618 9F20 F7 0B 98        ...   stab 0b98
3619 9F23 C6 44           .D    ldab #44
3620 9F25 F7 0B 97        ...   stab 0b97
3621 9F28 C6 54           .T    ldab #54
3622 9F2A F7 0B 96        ...   stab 0b96
3623 9F2D CE 00 00        ...   ldx #0000
3624 9F30 3C              <     pshx 
3625 9F31 FC 0C E7        ...   ldd 0ce7
3626 9F34 BD A2 D4        ...   jsr a2d4             ;jump79
3627 9F37 38              8     pulx 
3628 9F38 7E A1 C4        ~..   jmp a1c4             ;goto19
3629 9F3B CC B2 C6        ...   ldd #b2c6
3630 9F3E BD C0 BA        ...   jsr c0ba             ;display:
3631 9F41 7E A1 C4        ~..   jmp a1c4             ;goto19
3632 9F44 FE 0D E9        ...   ldx 0de9
3633 9F47 3C              <     pshx 
3634 9F48 FC 0D E7        ...   ldd 0de7
3635 9F4B BD A3 41        ..A   jsr a341             ;jump77
3636 9F4E 38              8     pulx 
3637 9F4F 7E A1 C4        ~..   jmp a1c4             ;goto19
3638 9F52 CC B2 D8        ...   ldd #b2d8
3639 9F55 BD C0 BA        ...   jsr c0ba             ;display:
3640 9F58 7E A1 C4        ~..   jmp a1c4             ;goto19
3641 9F5B FE 0D ED        ...   ldx 0ded
3642 9F5E 3C              <     pshx 
3643 9F5F FC 0D EB        ...   ldd 0deb
3644 9F62 BD A3 41        ..A   jsr a341             ;jump77
3645 9F65 38              8     pulx 
3646 9F66 7E A1 C4        ~..   jmp a1c4             ;goto19
3647 9F69 CC B2 EA        ...   ldd #b2ea
3648 9F6C BD C0 BA        ...   jsr c0ba             ;display:
3649 9F6F 7E A1 C4        ~..   jmp a1c4             ;goto19
3650 9F72 FE 0D F1        ...   ldx 0df1
3651 9F75 3C              <     pshx 
3652 9F76 FC 0D EF        ...   ldd 0def
3653 9F79 BD A3 41        ..A   jsr a341             ;jump77
3654 9F7C 38              8     pulx 
3655 9F7D 7E A1 C4        ~..   jmp a1c4             ;goto19
3656 9F80 CC B2 FC        ...   ldd #b2fc
3657 9F83 BD C0 BA        ...   jsr c0ba             ;display:
3658 9F86 7E A1 C4        ~..   jmp a1c4             ;goto19
3659 9F89 FE 0D F9        ...   ldx 0df9
3660 9F8C 3C              <     pshx 
3661 9F8D FC 0D F7        ...   ldd 0df7
3662 9F90 BD A3 41        ..A   jsr a341             ;jump77
3663 9F93 38              8     pulx 
3664 9F94 7E A1 C4        ~..   jmp a1c4             ;goto19
3665 9F97 CC B3 0E        ...   ldd #b30e
3666 9F9A BD C0 BA        ...   jsr c0ba             ;display:
3667 9F9D 7E A1 C4        ~..   jmp a1c4             ;goto19
3668 9FA0 FE 0D FD        ...   ldx 0dfd
3669 9FA3 3C              <     pshx 
3670 9FA4 FC 0D FB        ...   ldd 0dfb
3671 9FA7 BD A3 41        ..A   jsr a341             ;jump77
3672 9FAA 38              8     pulx 
3673 9FAB 7E A1 C4        ~..   jmp a1c4             ;goto19
3674 9FAE CC B3 35        ..5   ldd #b335
3675 9FB1 BD C0 BA        ...   jsr c0ba             ;display:
3676 9FB4 7E A1 C4        ~..   jmp a1c4             ;goto19
3677 9FB7 FE 0D F5        ...   ldx 0df5
3678 9FBA 3C              <     pshx 
3679 9FBB FC 0D F3        ...   ldd 0df3
3680 9FBE BD A3 41        ..A   jsr a341             ;jump77
3681 9FC1 38              8     pulx 
3682 9FC2 7E A1 C4        ~..   jmp a1c4             ;goto19
3683 9FC5 C6 24           .$    ldab #24
3684 9FC7 F7 0B 99        ...   stab 0b99
3685 9FCA C6 31           .1    ldab #31
3686 9FCC F7 0B 98        ...   stab 0b98
3687 9FCF CE 00 00        ...   ldx #0000
3688 9FD2 3C              <     pshx 
3689 9FD3 FC 0C DD        ...   ldd 0cdd
3690 9FD6 BD A2 D4        ...   jsr a2d4             ;jump79
3691 9FD9 38              8     pulx 
3692 9FDA 7E A1 C4        ~..   jmp a1c4             ;goto19
3693 9FDD FE 0C F5        ...   ldx 0cf5
3694 9FE0 3C              <     pshx 
3695 9FE1 FC 0C F3        ...   ldd 0cf3
3696 9FE4 BD A3 41        ..A   jsr a341             ;jump77
3697 9FE7 38              8     pulx 
3698 9FE8 7E A1 C4        ~..   jmp a1c4             ;goto19
3699 9FEB C6 24           .$    ldab #24
3700 9FED F7 0B 99        ...   stab 0b99
3701 9FF0 C6 32           .2    ldab #32
3702 9FF2 F7 0B 98        ...   stab 0b98
3703 9FF5 CE 00 00        ...   ldx #0000
3704 9FF8 3C              <     pshx 
3705 9FF9 FC 0C DF        ...   ldd 0cdf
3706 9FFC BD A2 D4        ...   jsr a2d4             ;jump79
3707 9FFF 38              8     pulx 
3708 A000 7E A1 C4        ~..   jmp a1c4             ;goto19
3709 A003 FE 0C F9        ...   ldx 0cf9
3710 A006 3C              <     pshx 
3711 A007 FC 0C F7        ...   ldd 0cf7
3712 A00A BD A3 41        ..A   jsr a341             ;jump77
3713 A00D 38              8     pulx 
3714 A00E 7E A1 C4        ~..   jmp a1c4             ;goto19
3715 A011 C6 24           .$    ldab #24
3716 A013 F7 0B 99        ...   stab 0b99
3717 A016 C6 35           .5    ldab #35
3718 A018 F7 0B 98        ...   stab 0b98
3719 A01B CE 00 00        ...   ldx #0000
3720 A01E 3C              <     pshx 
3721 A01F FC 0C E1        ...   ldd 0ce1
3722 A022 BD A2 D4        ...   jsr a2d4             ;jump79
3723 A025 38              8     pulx 
3724 A026 7E A1 C4        ~..   jmp a1c4             ;goto19
3725 A029 FE 0C FD        ...   ldx 0cfd
3726 A02C 3C              <     pshx 
3727 A02D FC 0C FB        ...   ldd 0cfb
3728 A030 BD A3 41        ..A   jsr a341             ;jump77
3729 A033 38              8     pulx 
3730 A034 7E A1 C4        ~..   jmp a1c4             ;goto19
3731 A037 C6 24           .$    ldab #24
3732 A039 F7 0B 99        ...   stab 0b99
3733 A03C C6 31           .1    ldab #31
3734 A03E F7 0B 98        ...   stab 0b98
3735 A041 C6 30           .0    ldab #30
3736 A043 F7 0B 97        ...   stab 0b97
3737 A046 CE 00 00        ...   ldx #0000
3738 A049 3C              <     pshx 
3739 A04A FC 0C E3        ...   ldd 0ce3
3740 A04D BD A2 D4        ...   jsr a2d4             ;jump79
3741 A050 38              8     pulx 
3742 A051 7E A1 C4        ~..   jmp a1c4             ;goto19
3743 A054 FE 0D 01        ...   ldx 0d01
3744 A057 3C              <     pshx 
3745 A058 FC 0C FF        ...   ldd 0cff
3746 A05B BD A3 41        ..A   jsr a341             ;jump77
3747 A05E 38              8     pulx 
3748 A05F 7E A1 C4        ~..   jmp a1c4             ;goto19
3749 A062 C6 24           .$    ldab #24
3750 A064 F7 0B 99        ...   stab 0b99
3751 A067 C6 32           .2    ldab #32
3752 A069 F7 0B 98        ...   stab 0b98
3753 A06C C6 30           .0    ldab #30
3754 A06E F7 0B 97        ...   stab 0b97
3755 A071 CE 00 00        ...   ldx #0000
3756 A074 3C              <     pshx 
3757 A075 FC 0C E5        ...   ldd 0ce5
3758 A078 BD A2 D4        ...   jsr a2d4             ;jump79
3759 A07B 38              8     pulx 
3760 A07C 7E A1 C4        ~..   jmp a1c4             ;goto19
3761 A07F FE 0D 05        ...   ldx 0d05
3762 A082 3C              <     pshx 
3763 A083 FC 0D 03        ...   ldd 0d03
3764 A086 BD A3 41        ..A   jsr a341             ;jump77
3765 A089 38              8     pulx 
3766 A08A 7E A1 C4        ~..   jmp a1c4             ;goto19
3767 A08D CC B3 B7        ...   ldd #b3b7
3768 A090 BD C0 BA        ...   jsr c0ba             ;display:
3769 A093 7E A1 C4        ~..   jmp a1c4             ;goto19
3770 A096 CE 00 01        ...   ldx #0001
3771 A099 3C              <     pshx 
3772 A09A FC 0C F1        ...   ldd 0cf1
3773 A09D BD A2 D4        ...   jsr a2d4             ;jump79
3774 A0A0 38              8     pulx 
3775 A0A1 7E A1 C4        ~..   jmp a1c4             ;goto19
3776 A0A4 CC B3 CE        ...   ldd #b3ce
3777 A0A7 BD C0 BA        ...   jsr c0ba             ;display:
3778 A0AA 7E A1 C4        ~..   jmp a1c4             ;goto19
3779 A0AD FE 0C E9        ...   ldx 0ce9
3780 A0B0 3C              <     pshx 
3781 A0B1 F6 0C DC        ...   ldab 0cdc
3782 A0B4 4F              O     clra 
3783 A0B5 BD A3 1A        ...   jsr a31a             ;jump93
3784 A0B8 38              8     pulx 
3785 A0B9 7E A1 C4        ~..   jmp a1c4             ;goto19
3786 A0BC CC B3 E0        ...   ldd #b3e0
3787 A0BF BD C0 BA        ...   jsr c0ba             ;display:
3788 A0C2 7E A1 C4        ~..   jmp a1c4             ;goto19
3789 A0C5 FE 0C EB        ...   ldx 0ceb
3790 A0C8 3C              <     pshx 
3791 A0C9 F6 0C DB        ...   ldab 0cdb
3792 A0CC 4F              O     clra 
3793 A0CD BD A3 1A        ...   jsr a31a             ;jump93
3794 A0D0 38              8     pulx 
3795 A0D1 7E A1 C4        ~..   jmp a1c4             ;goto19
3796 A0D4 CC B3 F2        ...   ldd #b3f2
3797 A0D7 BD C0 BA        ...   jsr c0ba             ;display:
3798 A0DA 7E A1 C4        ~..   jmp a1c4             ;goto19
3799 A0DD FE 0C ED        ...   ldx 0ced
3800 A0E0 3C              <     pshx 
3801 A0E1 F6 0C DA        ...   ldab 0cda
3802 A0E4 4F              O     clra 
3803 A0E5 BD A3 1A        ...   jsr a31a             ;jump93
3804 A0E8 38              8     pulx 
3805 A0E9 7E A1 C4        ~..   jmp a1c4             ;goto19
3806 A0EC CC B4 04        ...   ldd #b404
3807 A0EF BD C0 BA        ...   jsr c0ba             ;display:
3808 A0F2 7E A1 C4        ~..   jmp a1c4             ;goto19
3809 A0F5 FE 0C EF        ...   ldx 0cef
3810 A0F8 3C              <     pshx 
3811 A0F9 F6 0C D9        ...   ldab 0cd9
3812 A0FC 4F              O     clra 
3813 A0FD BD A3 1A        ...   jsr a31a             ;jump93
3814 A100 38              8     pulx 
3815 A101 7E A1 C4        ~..   jmp a1c4             ;goto19
3816 A104 C6 57           .W    ldab #57
3817 A106 F7 0B 99        ...   stab 0b99
3818 A109 C6 53           .S    ldab #53
3819 A10B F7 0B 98        ...   stab 0b98
3820 A10E C6 4E           .N    ldab #4e
3821 A110 F7 0B 97        ...   stab 0b97
3822 A113 C6 4B           .K    ldab #4b
3823 A115 F7 0B 96        ...   stab 0b96
3824 A118 CE 00 00        ...   ldx #0000
3825 A11B 3C              <     pshx 
3826 A11C FC 0D 07        ...   ldd 0d07
3827 A11F BD A2 D4        ...   jsr a2d4             ;jump79
3828 A122 38              8     pulx 
3829 A123 7E A1 C4        ~..   jmp a1c4             ;goto19
3830 A126 FE 0D 11        ...   ldx 0d11
3831 A129 3C              <     pshx 
3832 A12A FC 0D 0F        ...   ldd 0d0f
3833 A12D BD A3 41        ..A   jsr a341             ;jump77
3834 A130 38              8     pulx 
3835 A131 7E A1 C4        ~..   jmp a1c4             ;goto19
3836 A134 C6 53           .S    ldab #53
3837 A136 F7 0B 99        ...   stab 0b99
3838 A139 C6 48           .H    ldab #48
3839 A13B F7 0B 98        ...   stab 0b98
3840 A13E C6 50           .P    ldab #50
3841 A140 F7 0B 97        ...   stab 0b97
3842 A143 C6 52           .R    ldab #52
3843 A145 F7 0B 96        ...   stab 0b96
3844 A148 CE 00 00        ...   ldx #0000
3845 A14B 3C              <     pshx 
3846 A14C FC 0D 09        ...   ldd 0d09
3847 A14F BD A2 D4        ...   jsr a2d4             ;jump79
3848 A152 38              8     pulx 
3849 A153 20 6F            o    bra 6f
3850 A155 FE 0D 15        ...   ldx 0d15
3851 A158 3C              <     pshx 
3852 A159 FC 0D 13        ...   ldd 0d13
3853 A15C BD A3 41        ..A   jsr a341             ;jump77
3854 A15F 38              8     pulx 
3855 A160 20 62            b    bra 62
3856 A162 C6 50           .P    ldab #50
3857 A164 F7 0B 99        ...   stab 0b99
3858 A167 C6 52           .R    ldab #52
3859 A169 F7 0B 98        ...   stab 0b98
3860 A16C C6 4D           .M    ldab #4d
3861 A16E F7 0B 97        ...   stab 0b97
3862 A171 C6 4F           .O    ldab #4f
3863 A173 F7 0B 96        ...   stab 0b96
3864 A176 CE 00 00        ...   ldx #0000
3865 A179 3C              <     pshx 
3866 A17A FC 0D 0B        ...   ldd 0d0b
3867 A17D BD A2 D4        ...   jsr a2d4             ;jump79
3868 A180 38              8     pulx 
3869 A181 20 41            A    bra 41
3870 A183 FE 0D 19        ...   ldx 0d19
3871 A186 3C              <     pshx 
3872 A187 FC 0D 17        ...   ldd 0d17
3873 A18A BD A3 41        ..A   jsr a341             ;jump77
3874 A18D 38              8     pulx 
3875 A18E 20 34            4    bra 34
3876 A190 C6 46           .F    ldab #46
3877 A192 F7 0B 99        ...   stab 0b99
3878 A195 C6 52           .R    ldab #52
3879 A197 F7 0B 98        ...   stab 0b98
3880 A19A C6 45           .E    ldab #45
3881 A19C F7 0B 97        ...   stab 0b97
3882 A19F C6 45           .E    ldab #45
3883 A1A1 F7 0B 96        ...   stab 0b96
3884 A1A4 CE 00 00        ...   ldx #0000
3885 A1A7 3C              <     pshx 
3886 A1A8 FC 0D 0D        ...   ldd 0d0d
3887 A1AB BD A2 D4        ...   jsr a2d4             ;jump79
3888 A1AE 38              8     pulx 
3889 A1AF 20 13            .    bra 13
3890 A1B1 FE 0D 1D        ...   ldx 0d1d
3891 A1B4 3C              <     pshx 
3892 A1B5 FC 0D 1B        ...   ldd 0d1b
3893 A1B8 BD A3 41        ..A   jsr a341             ;jump77
3894 A1BB 38              8     pulx 
3895 A1BC 20 06            .    bra 06
3896 A1BE CC B4 84        ...   ldd #b484
3897 A1C1 BD C0 BA        ...   jsr c0ba             ;display:
3898 goto19:
3899 A1C4 F6 00 48        ..H   ldab 0048
3900 A1C7 C1 2E           ..    cmpb #2e
3901 A1C9 23 74           #t    bls 74
3902 A1CB F6 00 48        ..H   ldab 0048
3903 A1CE C1 92           ..    cmpb #92
3904 A1D0 24 6D           $m    bcc 6d
3905 A1D2 F6 00 48        ..H   ldab 0048
3906 A1D5 4F              O     clra 
3907 A1D6 05              .     asld 
3908 A1D7 C3 08 6C        ..l   addd #086c
3909 A1DA 8F              .     xgdx 
3910 A1DB EC 00           ..    ldd 00,x
3911 A1DD C4 80           ..    andb #80
3912 A1DF 26 0E           &.    bne 0e
3913 A1E1 7C 00 48        |.H   inc 0048
3914 A1E4 F6 00 48        ..H   ldab 0048
3915 A1E7 C1 92           ..    cmpb #92
3916 A1E9 26 02           &.    bne 02
3917 A1EB 20 02            .    bra 02
3918 A1ED 20 E3            .    bra e3
3919 A1EF F6 00 48        ..H   ldab 0048
3920 A1F2 4F              O     clra 
3921 A1F3 C3 FF D2        ...   addd #ffd2
3922 A1F6 BD E7 95        ...   jsr e795             ;jump54
3923 A1F9 F6 00 5E        ..^   ldab 005e
3924 A1FC F7 0B 99        ...   stab 0b99
3925 A1FF F6 00 5F        .._   ldab 005f
3926 A202 F7 0B 98        ...   stab 0b98
3927 A205 F6 00 48        ..H   ldab 0048
3928 A208 4F              O     clra 
3929 A209 05              .     asld 
3930 A20A C3 0C C3        ...   addd #0cc3
3931 A20D 8F              .     xgdx 
3932 A20E EC 00           ..    ldd 00,x
3933 A210 BD E7 45        ..E   jsr e745             ;jump55
3934 A213 F6 00 57        ..W   ldab 0057
3935 A216 F7 0B 94        ...   stab 0b94
3936 A219 F6 00 5A        ..Z   ldab 005a
3937 A21C F7 0B 93        ...   stab 0b93
3938 A21F F6 00 5D        ..]   ldab 005d
3939 A222 F7 0B 92        ...   stab 0b92
3940 A225 F6 00 5E        ..^   ldab 005e
3941 A228 F7 0B 91        ...   stab 0b91
3942 A22B F6 00 5F        .._   ldab 005f
3943 A22E F7 0B 90        ...   stab 0b90
3944 A231 5F              _     clrb 
3945 A232 4F              O     clra 
3946 A233 8D 27           .'    bsr dest 27
3947 A235 F6 00 48        ..H   ldab 0048
3948 A238 C1 92           ..    cmpb #92
3949 A23A 26 03           &.    bne 03
3950 A23C 7F 00 2C        ..,   clr 002c
3951 A23F F6 00 48        ..H   ldab 0048
3952 A242 C1 92           ..    cmpb #92
3953 A244 26 15           &.    bne 15
3954 A246 F6 00 1F        ...   ldab 001f
3955 A249 C4 10           ..    andb #10
3956 A24B 27 08           '.    beq 08
3957 A24D CC AF 9A        ...   ldd #af9a
3958 A250 BD C0 BA        ...   jsr c0ba             ;display:
3959 A253 20 06            .    bra 06
3960 A255 CC AF A5        ...   ldd #afa5
3961 A258 BD C0 BA        ...   jsr c0ba             ;display:
3962 A25B 39              9     rts 
3963
3964 jump82:
3965 A25C 37              7     pshb 
3966 A25D 36              6     psha 
3967 A25E F6 00 2C        ..,   ldab 002c
3968 A261 26 6F           &o    bne 6f
3969 A263 BD BE 69        ..i   jsr be69             ;displayreset
3970 A266 30              0     tsx 
3971 A267 E6 01           ..    ldab 01,x
3972 A269 27 5F           '_    beq 5f
3973 A26B F6 00 13        ...   ldab 0013
3974 A26E C1 01           ..    cmpb #01
3975 A270 23 58           #X    bls 58
3976 A272 CE 10 28        ..(   ldx #1028
3977 A275 1C 00 40        ...   bset 00,x, #40
3978 A278 CE 00 01        ...   ldx #0001
3979 A27B 3C              <     pshx 
3980 A27C F6 0B 90        ...   ldab 0b90
3981 A27F 4F              O     clra 
3982 A280 BD BD B5        ...   jsr bdb5             ;jump78 
3983 A283 38              8     pulx 
3984 A284 CE 10 28        ..(   ldx #1028
3985 A287 1D 00 40        ...   bclr 00,x, #40
3986 A28A F6 0B 91        ...   ldab 0b91
3987 A28D F7 0B 90        ...   stab 0b90
3988 A290 F6 00 13        ...   ldab 0013
3989 A293 C1 02           ..    cmpb #02
3990 A295 26 07           &.    bne 07
3991 A297 C6 2E           ..    ldab #2e
3992 A299 F7 0B 91        ...   stab 0b91
3993 A29C 20 2C            ,    bra 2c
3994 A29E F6 00 13        ...   ldab 0013
3995 A2A1 C1 04           ..    cmpb #04
3996 A2A3 26 0D           &.    bne 0d
3997 A2A5 F6 0B 92        ...   ldab 0b92
3998 A2A8 F7 0B 91        ...   stab 0b91
3999 A2AB C6 2E           ..    ldab #2e
4000 A2AD F7 0B 92        ...   stab 0b92
4001 A2B0 20 18            .    bra 18
4002 A2B2 F6 00 13        ...   ldab 0013
4003 A2B5 C1 08           ..    cmpb #08
4004 A2B7 26 11           &.    bne 11
4005 A2B9 F6 0B 92        ...   ldab 0b92
4006 A2BC F7 0B 91        ...   stab 0b91
4007 A2BF F6 0B 93        ...   ldab 0b93
4008 A2C2 F7 0B 92        ...   stab 0b92
4009 A2C5 C6 2E           ..    ldab #2e
4010 A2C7 F7 0B 93        ...   stab 0b93
4011 A2CA BD BE 10        ...   jsr be10             ;jump88
4012 A2CD C6 03           ..    ldab #03
4013 A2CF F7 00 2C        ..,   stab 002c
4014 A2D2 38              8     pulx 
4015 A2D3 39              9     rts 
4016
4017 jump79:
4018 A2D4 37              7     pshb 
4019 A2D5 36              6     psha 
4020 A2D6 30              0     tsx 
4021 A2D7 EC 00           ..    ldd 00,x
4022 A2D9 BD E7 45        ..E   jsr e745             ;jump55
4023 A2DC F6 00 57        ..W   ldab 0057
4024 A2DF F7 0B 94        ...   stab 0b94
4025 A2E2 F6 00 5A        ..Z   ldab 005a
4026 A2E5 F7 0B 93        ...   stab 0b93
4027 A2E8 F6 00 5D        ..]   ldab 005d
4028 A2EB F7 0B 92        ...   stab 0b92
4029 A2EE F6 00 5E        ..^   ldab 005e
4030 A2F1 F7 0B 91        ...   stab 0b91
4031 A2F4 F6 00 5F        .._   ldab 005f
4032 A2F7 F7 0B 90        ...   stab 0b90
4033 A2FA 30              0     tsx 
4034 A2FB E6 05           ..    ldab 05,x
4035 A2FD 27 14           '.    beq 14
4036 A2FF F6 00 17        ...   ldab 0017
4037 A302 C4 08           ..    andb #08
4038 A304 26 05           &.    bne 05
4039 A306 C6 24           .$    ldab #24
4040 A308 F7 0B 95        ...   stab 0b95
4041 A30B CC 00 01        ...   ldd #0001
4042 A30E BD A2 5C        ..\   jsr a25c             ;jump82
4043 A311 20 05            .    bra 05
4044 A313 5F              _     clrb 
4045 A314 4F              O     clra 
4046 A315 BD A2 5C        ..\   jsr a25c             ;jump82
4047 A318 38              8     pulx 
4048 A319 39              9     rts 
4049
4050 jump93:
4051 A31A 37              7     pshb 
4052 A31B 36              6     psha 
4053 A31C 30              0     tsx 
4054 A31D E6 01           ..    ldab 01,x
4055 A31F 4F              O     clra 
4056 A320 BD E7 95        ...   jsr e795             ;jump54
4057 A323 F6 00 5D        ..]   ldab 005d
4058 A326 F7 0B 99        ...   stab 0b99
4059 A329 F6 00 5E        ..^   ldab 005e
4060 A32C F7 0B 98        ...   stab 0b98
4061 A32F F6 00 5F        .._   ldab 005f
4062 A332 F7 0B 97        ...   stab 0b97
4063 A335 CE 00 01        ...   ldx #0001
4064 A338 3C              <     pshx 
4065 A339 30              0     tsx 
4066 A33A EC 06           ..    ldd 06,x
4067 A33C 8D 96           ..    bsr dest 96
4068 A33E 38              8     pulx 
4069 A33F 38              8     pulx 
4070 A340 39              9     rts 
4071
4072 jump77:
4073 A341 38              8     pulx 
4074 A342 37              7     pshb 
4075 A343 36              6     psha 
4076 A344 3C              <     pshx 
4077 A345 30              0     tsx 
4078 A346 EC 04           ..    ldd 04,x
4079 A348 37              7     pshb 
4080 A349 36              6     psha 
4081 A34A EC 02           ..    ldd 02,x
4082 A34C BD E6 21        ..!   jsr e621             ;jump56
4083 A34F 38              8     pulx 
4084 A350 C6 20           .     ldab #20
4085 A352 F7 0B 99        ...   stab 0b99
4086 A355 F6 00 17        ...   ldab 0017
4087 A358 C4 08           ..    andb #08
4088 A35A 26 05           &.    bne 05
4089 A35C C6 24           .$    ldab #24
4090 A35E F7 0B 98        ...   stab 0b98
4091 A361 CC 00 01        ...   ldd #0001
4092 A364 BD A2 5C        ..\   jsr a25c             ;jump82
4093 A367 38              8     pulx 
4094 A368 31              1     ins 
4095 A369 31              1     ins 
4096 A36A 6E 00           n.    jmp 00,x
4097
4098 jump81:
4099 A36C BD BE 4B        ..K   jsr be4b             ;displayblank
4100 A36F CC AF DC        ...   ldd #afdc    ; "- SAVING -"
4101 A372 BD C0 BA        ...   jsr c0ba             ;display:
4102 A375 CC 01 F4        ...   ldd #01f4
4103 A378 BD E5 71        ..q   jsr e571             ;msdelay
4104 A37B 39              9     rts 
4105
4106 jump141:
4107 A37C FC 00 52        ..R   ldd 0052
4108 A37F FD 0B B5        ...   std 0bb5
4109 A382 8D E8           ..    bsr dest e8
4110 A384 39              9     rts 
4111
4112 jump40:
4113 A385 F6 00 1F        ...   ldab 001f
4114 A388 C4 40           .@    andb #40
4115 A38A 27 73           's    beq 73
4116 A38C F6 00 06        ...   ldab 0006
4117 A38F 4F              O     clra 
4118 A390 05              .     asld 
4119 A391 C3 08 00        ...   addd #0800
4120 A394 8F              .     xgdx 
4121 A395 EC 00           ..    ldd 00,x
4122 A397 5F              _     clrb 
4123 A398 84 C0           ..    anda #c0
4124 A39A FA 00 28        ..(   orb 0028
4125 A39D BA 00 27        ..'   ora 0027
4126 A3A0 FD 00 27        ..'   std 0027
4127 A3A3 FC 00 27        ..'   ldd 0027
4128 A3A6 37              7     pshb 
4129 A3A7 36              6     psha 
4130 A3A8 F6 00 06        ...   ldab 0006
4131 A3AB 4F              O     clra 
4132 A3AC 05              .     asld 
4133 A3AD C3 08 00        ...   addd #0800
4134 A3B0 38              8     pulx 
4135 A3B1 8F              .     xgdx 
4136 A3B2 ED 00           ..    std 00,x
4137 A3B4 FC 00 27        ..'   ldd 0027
4138 A3B7 43              C     coma 
4139 A3B8 53              S     comb 
4140 A3B9 37              7     pshb 
4141 A3BA 36              6     psha 
4142 A3BB F6 00 06        ...   ldab 0006
4143 A3BE 4F              O     clra 
4144 A3BF 05              .     asld 
4145 A3C0 C3 0B F1        ...   addd #0bf1
4146 A3C3 38              8     pulx 
4147 A3C4 8F              .     xgdx 
4148 A3C5 ED 00           ..    std 00,x
4149 A3C7 F6 00 06        ...   ldab 0006
4150 A3CA 4F              O     clra 
4151 A3CB 05              .     asld 
4152 A3CC C3 08 C8        ...   addd #08c8
4153 A3CF 8F              .     xgdx 
4154 A3D0 EC 00           ..    ldd 00,x
4155 A3D2 C4 80           ..    andb #80
4156 A3D4 84 F7           ..    anda #f7
4157 A3D6 FA 00 47        ..G   orb 0047
4158 A3D9 BA 00 46        ..F   ora 0046
4159 A3DC FD 00 46        ..F   std 0046
4160 A3DF F6 00 19        ...   ldab 0019
4161 A3E2 C4 10           ..    andb #10
4162 A3E4 27 06           '.    beq 06
4163 A3E6 CE 00 46        ..F   ldx #0046
4164 A3E9 1C 00 08        ...   bset 00,x, #08
4165 ; set memory location 08c8+(slotnum*2) to value of 0046
4166 A3EC FC 00 46        ..F   ldd 0046
4167 A3EF 37              7     pshb 
4168 A3F0 36              6     psha 
4169 A3F1 F6 00 06        ...   ldab 0006
4170 A3F4 4F              O     clra 
4171 A3F5 05              .     asld 
4172 A3F6 C3 08 C8        ...   addd #08c8
4173 A3F9 38              8     pulx 
4174 A3FA 8F              .     xgdx 
4175 A3FB ED 00           ..    std 00,x
4176 A3FD 20 22            "    bra 22
4177 A3FF CC 2A FF        .*.   ldd #2aff
4178 A402 37              7     pshb 
4179 A403 36              6     psha 
4180 A404 F6 00 06        ...   ldab 0006
4181 A407 4F              O     clra 
4182 A408 05              .     asld 
4183 A409 C3 08 00        ...   addd #0800
4184 A40C 38              8     pulx 
4185 A40D 8F              .     xgdx 
4186 A40E ED 00           ..    std 00,x
4187 A410 CC D5 00        ...   ldd #d500
4188 A413 37              7     pshb 
4189 A414 36              6     psha 
4190 A415 F6 00 06        ...   ldab 0006
4191 A418 4F              O     clra 
4192 A419 05              .     asld 
4193 A41A C3 0B F1        ...   addd #0bf1
4194 A41D 38              8     pulx 
4195 A41E 8F              .     xgdx 
4196 A41F ED 00           ..    std 00,x
4197 A421 F6 00 1F        ...   ldab 001f
4198 A424 C4 40           .@    andb #40
4199 A426 27 26           '&    beq 26
4200 A428 F6 00 06        ...   ldab 0006
4201 A42B 4F              O     clra 
4202 A42C 05              .     asld 
4203 A42D C3 08 00        ...   addd #0800
4204 A430 8F              .     xgdx 
4205 A431 EC 00           ..    ldd 00,x
4206 A433 C4 FF           ..    andb #ff
4207 A435 84 3F           .?    anda #3f
4208 A437 FD 00 27        ..'   std 0027
4209 A43A F6 00 06        ...   ldab 0006
4210 A43D 4F              O     clra 
4211 A43E 05              .     asld 
4212 A43F C3 08 C8        ...   addd #08c8
4213 A442 8F              .     xgdx 
4214 A443 EC 00           ..    ldd 00,x
4215 A445 C4 7F           ..    andb #7f
4216 A447 4F              O     clra 
4217 A448 FD 00 46        ..F   std 0046
4218 A44B BD A3 6C        ..l   jsr a36c             ;jump81
4219 A44E 39              9     rts 
4220
4221 jump140:
4222 A44F FC 00 0D        ...   ldd 000d
4223 A452 FD 0B B7        ...   std 0bb7
4224 A455 BD A3 6C        ..l   jsr a36c             ;jump81
4225 A458 39              9     rts 
4226
4227 jump110:
4228 A459 3C              <     pshx 
4229 A45A F6 00 67        ..g   ldab 0067
4230 A45D C4 02           ..    andb #02
4231 A45F 27 08           '.    beq 08
4232 A461 CE 00 67        ..g   ldx #0067
4233 A464 1D 00 4D        ...   bclr 00,x, #4D
4234 A467 20 0C            .    bra 0c
4235 A469 CE 00 67        ..g   ldx #0067
4236 A46C 1D 00 10        ...   bclr 00,x, #10
4237 A46F CE 00 67        ..g   ldx #0067
4238 A472 1D 00           ..    bclr add,x 00,x
4239 A474 20 F6            .    bra f6
4240 A476 00              .     test 
4241 A477 67 C4           g.    asr c4,x
4242 A479 10              .     sba 
4243 A47A 26 06           &.    bne 06
4244 A47C CE 00 67        ..g   ldx #0067
4245 A47F 1D 00           ..    bclr add,x 00,x
4246 A481 20 F6            .    bra f6
4247 A483 00              .     test 
4248 A484 67 C4           g.    asr c4,x
4249 A486 01              .     nop 
4250 A487 27 14           '.    beq 14
4251 A489 CE 00 67        ..g   ldx #0067
4252 A48C 1D 00 02        ...   bclr 00,x, #02
4253 A48F CE 00 67        ..g   ldx #0067
4254 A492 1D 00 10        ...   bclr 00,x, #10
4255 A495 CE 00 67        ..g   ldx #0067
4256 A498 1D 00           ..    bclr add,x 00,x
4257 A49A 20 20                 bra 20
4258 A49C 06              .     tap 
4259 A49D CE 00 67        ..g   ldx #0067
4260 A4A0 1D 00 08        ...   bclr 00,x, #08
4261 A4A3 F6 00 67        ..g   ldab 0067
4262 A4A6 C4 04           ..    andb #04
4263 A4A8 27 12           '.    beq 12
4264 A4AA CE 00 67        ..g   ldx #0067
4265 A4AD 1D 00 02        ...   bclr 00,x, #02
4266 A4B0 CE 00 67        ..g   ldx #0067
4267 A4B3 1D 00 10        ..    bclr 00,x, #10
4268 A4B6 CE 00 67        ..g   ldx #0067
4269 A4B9 1D 00 20        ..    bclr 00,x, #20
4270 A4BC F6 00 67        ...   ldab 0067
4271 A4BF C4 08           ..    andb #08
4272 A4C1 26 06           &.    bne 06
4273 A4C3 CE 00 67        ..g   ldx #0067
4274 A4C6 1D 00 40        ..@   bclr 00,x, #40
4275 A4C9 F6 00 67        ..g   ldab 0067
4276 A4CC F7 0B C0        ...   stab 0bc0
4277 A4CF F6 0E 70        ..p   ldab 0e70
4278 A4D2 F7 0E 6E        ..n   stab 0e6e
4279 A4D5 F6 0E 6D        ..m   ldab 0e6d
4280 A4D8 26 39           &9    bne 39
4281 A4DA F6 0E 6F        ..o   ldab 0e6f
4282 A4DD 27 34           '4    beq 34
4283 A4DF 7F 00 06        ...   clr 0006
4284 A4E2 F6 00 06        ...   ldab 0006
4285 A4E5 C1 3F           .?    cmpb #3f
4286 A4E7 24 2A           $*    bcc 2a
4287 A4E9 F6 00 06        ...   ldab 0006
4288 A4EC 4F              O     clra 
4289 A4ED CE 00 05        ...   ldx #0005
4290 A4F0 02              .     idiv 
4291 A4F1 5D              ]     tstb 
4292 A4F2 27 1A           '.    beq 1a
4293 A4F4 F6 00 06        ...   ldab 0006
4294 A4F7 4F              O     clra 
4295 A4F8 C3 08 00        ...   addd #0800
4296 A4FB 30              0     tsx 
4297 A4FC ED 00           ..    std 00,x
4298 A4FE EC 00           ..    ldd 00,x
4299 A500 37              7     pshb 
4300 A501 36              6     psha 
4301 A502 F6 00 06        ...   ldab 0006
4302 A505 4F              O     clra 
4303 A506 05              .     asld 
4304 A507 C3 08 C8        ...   addd #08c8
4305 A50A 38              8     pulx 
4306 A50B 8F              .     xgdx 
4307 A50C ED 00           ..    std 00,x
4308 A50E 7C 00 06        |..   inc 0006
4309 A511 20 CF            .    bra cf
4310 A513 F6 0E 6F        ..o   ldab 0e6f
4311 A516 F7 0E 6D        ..m   stab 0e6d
4312 A519 BD A3 6C        ..l   jsr a36c             ;jump81
4313 A51C 38              8     pulx 
4314 A51D 39              9     rts 
4315
4316 jump109:
4317 A51E F6 00 22        .."   ldab 0022
4318 A521 4F              O     clra 
4319 A522 BD FE 16        ...   jsr fe16             ;jump2
4320 A525 00              .     test 
4321 A526 01              .     nop 
4322 A527 00              .     test 
4323 A528 04              .     lsrd 
4324 A529 A5 79           .y    bita 79,x
4325 A52B A5 35           .5    bita 35,x
4326 A52D A5 43           .C    bita 43,x
4327 A52F A5 51           .Q    bita 51,x
4328 A531 A5 5F           ._    bita 5f,x
4329 A533 A5 6D           .m    bita 6d,x
4330 A535 F6 00 24        ..$   ldab 0024
4331 A538 F7 0B AF        ...   stab 0baf
4332 A53B F6 00 2A        ..*   ldab 002a
4333 A53E F7 0B B4        ...   stab 0bb4
4334 A541 20 36            6    bra 36
4335 A543 F6 00 24        ..$   ldab 0024
4336 A546 F7 0B AE        ...   stab 0bae
4337 A549 F6 00 2A        ..*   ldab 002a
4338 A54C F7 0B B3        ...   stab 0bb3
4339 A54F 20 28            (    bra 28
4340 A551 F6 00 24        ..$   ldab 0024
4341 A554 F7 0B AD        ...   stab 0bad
4342 A557 F6 00 2A        ..*   ldab 002a
4343 A55A F7 0B B2        ...   stab 0bb2
4344 A55D 20 1A            .    bra 1a
4345 A55F F6 00 24        ..$   ldab 0024
4346 A562 F7 0B AC        ...   stab 0bac
4347 A565 F6 00 2A        ..*   ldab 002a
4348 A568 F7 0B B1        ...   stab 0bb1
4349 A56B 20 0C            .    bra 0c
4350 A56D F6 00 24        ..$   ldab 0024
4351 A570 F7 0B AB        ...   stab 0bab
4352 A573 F6 00 2A        ..*   ldab 002a
4353 A576 F7 0B B0        ...   stab 0bb0
4354 A579 BD A3 6C        ..l   jsr a36c             ;jump81
4355 A57C 39              9     rts 
4356
4357 jump139:
4358 A57D 7F 00 54        ..T   clr 0054
4359 A580 F6 00 54        ..T   ldab 0054
4360 A583 C1 FF           ..    cmpb #ff
4361 A585 24 1B           $.    bcc 1b
4362 A587 F6 00 54        ..T   ldab 0054
4363 A58A 4F              O     clra 
4364 A58B C3 0A 90        ...   addd #0a90
4365 A58E 8F              .     xgdx 
4366 A58F E6 00           ..    ldab 00,x
4367 A591 37              7     pshb 
4368 A592 F6 00 54        ..T   ldab 0054
4369 A595 4F              O     clra 
4370 A596 C3 09 90        ...   addd #0990
4371 A599 8F              .     xgdx 
4372 A59A 33              3     pulb 
4373 A59B E7 00           ..    stab 00,x
4374 A59D 7C 00 54        |.T   inc 0054
4375 A5A0 20 DE            .    bra de
4376 A5A2 F6 00 61        ..a   ldab 0061
4377 A5A5 F7 0B BF        ...   stab 0bbf
4378 A5A8 BD A3 6C        ..l   jsr a36c             ;jump81
4379 A5AB 39              9     rts 
4380
4381 jump138:
4382 A5AC 7F 00 54        ..T   clr 0054
4383 A5AF F6 00 54        ..T   ldab 0054
4384 A5B2 C1 10           ..    cmpb #10
4385 A5B4 24 1B           $.    bcc 1b
4386 A5B6 F6 00 54        ..T   ldab 0054
4387 A5B9 4F              O     clra 
4388 A5BA C3 0A 90        ...   addd #0a90
4389 A5BD 8F              .     xgdx 
4390 A5BE E6 00           ..    ldab 00,x
4391 A5C0 37              7     pshb 
4392 A5C1 F6 00 54        ..T   ldab 0054
4393 A5C4 4F              O     clra 
4394 A5C5 C3 0C B9        ...   addd #0cb9
4395 A5C8 8F              .     xgdx 
4396 A5C9 33              3     pulb 
4397 A5CA E7 00           ..    stab 00,x
4398 A5CC 7C 00 54        |.T   inc 0054
4399 A5CF 20 DE            .    bra de
4400 A5D1 BD A3 6C        ..l   jsr a36c             ;jump81
4401 A5D4 39              9     rts 
4402
4403 jump137:
4404 A5D5 7F 00 54        ..T   clr 0054
4405 A5D8 F6 00 54        ..T   ldab 0054
4406 A5DB C1 10           ..    cmpb #10
4407 A5DD 24 1B           $.    bcc 1b
4408 A5DF F6 00 54        ..T   ldab 0054
4409 A5E2 4F              O     clra 
4410 A5E3 C3 0A 90        ...   addd #0a90
4411 A5E6 8F              .     xgdx 
4412 A5E7 E6 00           ..    ldab 00,x
4413 A5E9 37              7     pshb 
4414 A5EA F6 00 54        ..T   ldab 0054
4415 A5ED 4F              O     clra 
4416 A5EE C3 0C C9        ...   addd #0cc9
4417 A5F1 8F              .     xgdx 
4418 A5F2 33              3     pulb 
4419 A5F3 E7 00           ..    stab 00,x
4420 A5F5 7C 00 54        |.T   inc 0054
4421 A5F8 20 DE            .    bra de
4422 A5FA BD A3 6C        ..l   jsr a36c             ;jump81
4423 A5FD 39              9     rts 
4424
4425 jump136:
4426 A5FE 7F 00 54        ..T   clr 0054
4427 A601 F6 00 54        ..T   ldab 0054
4428 A604 C1 05           ..    cmpb #05
4429 A606 24 1B           $.    bcc 1b
4430 A608 F6 00 54        ..T   ldab 0054
4431 A60B 4F              O     clra 
4432 A60C C3 00 62        ..b   addd #0062
4433 A60F 8F              .     xgdx 
4434 A610 E6 00           ..    ldab 00,x
4435 A612 37              7     pshb 
4436 A613 F6 00 54        ..T   ldab 0054
4437 A616 4F              O     clra 
4438 A617 C3 0B A4        ...   addd #0ba4
4439 A61A 8F              .     xgdx 
4440 A61B 33              3     pulb 
4441 A61C E7 00           ..    stab 00,x
4442 A61E 7C 00 54        |.T   inc 0054
4443 A621 20 DE            .    bra de
4444 A623 7F 00 54        ..T   clr 0054
4445 A626 F6 00 54        ..T   ldab 0054
4446 A629 C1 0B           ..    cmpb #0b
4447 A62B 24 1B           $.    bcc 1b
4448 A62D F6 00 54        ..T   ldab 0054
4449 A630 4F              O     clra 
4450 A631 C3 00 68        ..h   addd #0068
4451 A634 8F              .     xgdx 
4452 A635 E6 00           ..    ldab 00,x
4453 A637 37              7     pshb 
4454 A638 F6 00 54        ..T   ldab 0054
4455 A63B 4F              O     clra 
4456 A63C C3 0B E4        ...   addd #0be4
4457 A63F 8F              .     xgdx 
4458 A640 33              3     pulb 
4459 A641 E7 00           ..    stab 00,x
4460 A643 7C 00 54        |.T   inc 0054
4461 A646 20 DE            .    bra de
4462 A648 8D 04           ..    bsr dest 04
4463 A64A BD A3 6C        ..l   jsr a36c             ;jump81
4464 A64D 39              9     rts 
4465
4466 jump135:
4467 A64E BD AB 0C        ...   jsr ab0c             ;jump126
4468 A651 C6 20           .     ldab #20
4469 A653 F7 0B A3        ...   stab 0ba3
4470 A656 C6 20           .     ldab #20
4471 A658 F7 0B 9A        ...   stab 0b9a
4472 A65B C6 01           ..    ldab #01
4473 A65D F7 00 54        ..T   stab 0054
4474 goto21:
4475 A660 F6 00 54        ..T   ldab 0054
4476 A663 C1 09           ..    cmpb #09
4477 A665 25 03           %.    bcs 03
4478 A667 7E A7 1E        ~..   jmp a71e             ;goto20
4479 A66A F6 00 54        ..T   ldab 0054
4480 A66D 4F              O     clra 
4481 A66E BD FE 16        ...   jsr fe16             ;jump2
4482 A671 00              .     test 
4483 A672 01              .     nop 
4484 A673 00              .     test 
4485 A674 07              .     tpa 
4486 A675 A6 ED           ..    ldaa ed,x
4487 A677 A6 87           ..    ldaa 87,x
4488 A679 A6 95           ..    ldaa 95,x
4489 A67B A6 A1           ..    ldaa a1,x
4490 A67D A6 AF           ..    ldaa af,x
4491 A67F A6 BB           ..    ldaa bb,x
4492 A681 A6 C9           ..    ldaa c9,x
4493 A683 A6 D5           ..    ldaa d5,x
4494 A685 A6 E3           ..    ldaa e3,x
4495 A687 F6 00 62        ..b   ldab 0062
4496 A68A 54              T     lsrb 
4497 A68B 54              T     lsrb 
4498 A68C 54              T     lsrb 
4499 A68D 54              T     lsrb 
4500 A68E C8 04           ..    eorb #04
4501 A690 F7 00 5F        .._   stab 005f
4502 A693 20 58            X    bra 58
4503 A695 F6 00 62        ..b   ldab 0062
4504 A698 C4 0F           ..    andb #0f
4505 A69A C8 0D           ..    eorb #0d
4506 A69C F7 00 5F        .._   stab 005f
4507 A69F 20 4C            L    bra 4c
4508 A6A1 F6 00 63        ..c   ldab 0063
4509 A6A4 54              T     lsrb 
4510 A6A5 54              T     lsrb 
4511 A6A6 54              T     lsrb 
4512 A6A7 54              T     lsrb 
4513 A6A8 C8 04           ..    eorb #04
4514 A6AA F7 00 5F        .._   stab 005f
4515 A6AD 20 3E            >    bra 3e
4516 A6AF F6 00 63        ..c   ldab 0063
4517 A6B2 C4 0F           ..    andb #0f
4518 A6B4 C8 05           ..    eorb #05
4519 A6B6 F7 00 5F        .._   stab 005f
4520 A6B9 20 32            2    bra 32
4521 A6BB F6 00 64        ..d   ldab 0064
4522 A6BE 54              T     lsrb 
4523 A6BF 54              T     lsrb 
4524 A6C0 54              T     lsrb 
4525 A6C1 54              T     lsrb 
4526 A6C2 C8 05           ..    eorb #05
4527 A6C4 F7 00 5F        .._   stab 005f
4528 A6C7 20 24            $    bra 24
4529 A6C9 F6 00 64        ..d   ldab 0064
4530 A6CC C4 0F           ..    andb #0f
4531 A6CE C8 04           ..    eorb #04
4532 A6D0 F7 00 5F        .._   stab 005f
4533 A6D3 20 18            .    bra 18
4534 A6D5 F6 00 65        ..e   ldab 0065
4535 A6D8 54              T     lsrb 
4536 A6D9 54              T     lsrb 
4537 A6DA 54              T     lsrb 
4538 A6DB 54              T     lsrb 
4539 A6DC C8 05           ..    eorb #05
4540 A6DE F7 00 5F        .._   stab 005f
4541 A6E1 20 0A            .    bra 0a
4542 A6E3 F6 00 65        ..e   ldab 0065
4543 A6E6 C4 0F           ..    andb #0f
4544 A6E8 C8 03           ..    eorb #03
4545 A6EA F7 00 5F        .._   stab 005f
4546 A6ED F6 00 5F        .._   ldab 005f
4547 A6F0 C1 09           ..    cmpb #09
4548 A6F2 23 13           #.    bls 13
4549 A6F4 F6 00 5F        .._   ldab 005f
4550 A6F7 CB 37           .7    addb #37
4551 A6F9 37              7     pshb 
4552 A6FA F6 00 54        ..T   ldab 0054
4553 A6FD 4F              O     clra 
4554 A6FE C3 0B 9A        ...   addd #0b9a
4555 A701 8F              .     xgdx 
4556 A702 33              3     pulb 
4557 A703 E7 00           ..    stab 00,x
4558 A705 20 11            .    bra 11
4559 A707 F6 00 5F        .._   ldab 005f
4560 A70A CB 30           .0    addb #30
4561 A70C 37              7     pshb 
4562 A70D F6 00 54        ..T   ldab 0054
4563 A710 4F              O     clra 
4564 A711 C3 0B 9A        ...   addd #0b9a
4565 A714 8F              .     xgdx 
4566 A715 33              3     pulb 
4567 A716 E7 00           ..    stab 00,x
4568 A718 7C 00 54        |.T   inc 0054
4569 A71B 7E A6 60        ~.`   jmp a660             ;goto21
4570 goto20:
4571 A71E 39              9     rts 
4572
4573 jump134:
4574 A71F F6 00 48        ..H   ldab 0048
4575 A722 26 11           &.    bne 11
4576 A724 F6 00 66        ..f   ldab 0066
4577 A727 26 07           &.    bne 07
4578 A729 C6 01           ..    ldab #01
4579 A72B F7 00 66        ..f   stab 0066
4580 A72E 20 03            .    bra 03
4581 A730 7F 00 66        ..f   clr 0066
4582 A733 20 29            )    bra 29
4583 A735 F6 00 48        ..H   ldab 0048
4584 A738 4F              O     clra 
4585 A739 C3 00 68        ..h   addd #0068
4586 A73C 8F              .     xgdx 
4587 A73D E6 00           ..    ldab 00,x
4588 A73F 26 10           &.    bne 10
4589 A741 C6 01           ..    ldab #01
4590 A743 37              7     pshb 
4591 A744 F6 00 48        ..H   ldab 0048
4592 A747 4F              O     clra 
4593 A748 C3 00 68        ..h   addd #0068
4594 A74B 8F              .     xgdx 
4595 A74C 33              3     pulb 
4596 A74D E7 00           ..    stab 00,x
4597 A74F 20 0D            .    bra 0d
4598 A751 5F              _     clrb 
4599 A752 37              7     pshb 
4600 A753 F6 00 48        ..H   ldab 0048
4601 A756 4F              O     clra 
4602 A757 C3 00 68        ..h   addd #0068
4603 A75A 8F              .     xgdx 
4604 A75B 33              3     pulb 
4605 A75C E7 00           ..    stab 00,x
4606 A75E 39              9     rts 
4607
4608 jump133:
4609 A75F F6 00 48        ..H   ldab 0048
4610 A762 4F              O     clra 
4611 A763 BD FE 16        ...   jsr fe16             ;jump2
4612 A766 00              .     test 
4613 A767 00              .     test 
4614 A768 00              .     test 
4615 A769 09              .     dex 
4616 A76A A7 DC           ..    staa dc,x
4617 A76C A7 80           ..    staa 80,x
4618 A76E A7 87           ..    staa 87,x
4619 A770 A7 8E           ..    staa 8e,x
4620 A772 A7 95           ..    staa 95,x
4621 A774 A7 9C           ..    staa 9c,x
4622 A776 A7 A3           ..    staa a3,x
4623 A778 A7 AA           ..    staa aa,x
4624 A77A A7 B1           ..    staa b1,x
4625 A77C A7 C4           ..    staa c4,x
4626 A77E A7 D7           ..    staa d7,x
4627 A780 C6 02           ..    ldab #02
4628 A782 F7 00 02        ...   stab 0002
4629 A785 20 55            U    bra 55
4630 A787 C6 10           ..    ldab #10
4631 A789 F7 00 02        ...   stab 0002
4632 A78C 20 4E            N    bra 4e
4633 A78E C6 20           .     ldab #20
4634 A790 F7 00 02        ...   stab 0002
4635 A793 20 47            G    bra 47
4636 A795 C6 01           ..    ldab #01
4637 A797 F7 00 02        ...   stab 0002
4638 A79A 20 40            @    bra 40
4639 A79C C6 04           ..    ldab #04
4640 A79E F7 00 02        ...   stab 0002
4641 A7A1 20 39            9    bra 39
4642 A7A3 C6 08           ..    ldab #08
4643 A7A5 F7 00 02        ...   stab 0002
4644 A7A8 20 32            2    bra 32
4645 A7AA C6 40           .@    ldab #40
4646 A7AC F7 00 02        ...   stab 0002
4647 A7AF 20 2B            +    bra 2b
4648 A7B1 F6 0E 70        ..p   ldab 0e70
4649 A7B4 C1 01           ..    cmpb #01
4650 A7B6 26 05           &.    bne 05
4651 A7B8 7F 0E 70        ..p   clr 0e70
4652 A7BB 20 05            .    bra 05
4653 A7BD C6 01           ..    ldab #01
4654 A7BF F7 0E 70        ..p   stab 0e70
4655 A7C2 20 18            .    bra 18
4656 A7C4 F6 0E 6F        ..o   ldab 0e6f
4657 A7C7 C1 01           ..    cmpb #01
4658 A7C9 26 05           &.    bne 05
4659 A7CB 7F 0E 6F        ..o   clr 0e6f
4660 A7CE 20 05            .    bra 05
4661 A7D0 C6 01           ..    ldab #01
4662 A7D2 F7 0E 6F        ..o   stab 0e6f
4663 A7D5 20 05            .    bra 05
4664 A7D7 C6 80           ..    ldab #80
4665 A7D9 F7 00 02        ...   stab 0002
4666 A7DC F6 00 48        ..H   ldab 0048
4667 A7DF C1 0A           ..    cmpb #0a
4668 A7E1 24 2B           $+    bcc 2b
4669 A7E3 F6 00 48        ..H   ldab 0048
4670 A7E6 C1 07           ..    cmpb #07
4671 A7E8 27 24           '$    beq 24
4672 A7EA F6 00 48        ..H   ldab 0048
4673 A7ED C1 08           ..    cmpb #08
4674 A7EF 27 1D           '.    beq 1d
4675 A7F1 F6 00 67        ..g   ldab 0067
4676 A7F4 F4 00 02        ...   andb 0002
4677 A7F7 26 0B           &.    bne 0b
4678 A7F9 F6 00 02        ...   ldab 0002
4679 A7FC FA 00 67        ..g   orb 0067
4680 A7FF F7 00 67        ..g   stab 0067
4681 A802 20 0A            .    bra 0a
4682 A804 F6 00 02        ...   ldab 0002
4683 A807 53              S     comb 
4684 A808 F4 00 67        ..g   andb 0067
4685 A80B F7 00 67        ..g   stab 0067
4686 A80E 39              9     rts 
4687
4688 A80F 7F 00 54        ..T   clr 0054
4689 A812 F6 00 54        ..T   ldab 0054
4690 A815 C1 04           ..    cmpb #04
4691 A817 24 4A           $J    bcc 4a
4692 A819 CC 01 F4        ...   ldd #01f4
4693 A81C BD E5 71        ..q   jsr e571             ;msdelay
4694 A81F F6 0B 93        ...   ldab 0b93
4695 A822 F7 00 5F        .._   stab 005f
4696 A825 F6 0B 94        ...   ldab 0b94
4697 A828 F7 00 5E        ..^   stab 005e
4698 A82B F6 0B 95        ...   ldab 0b95
4699 A82E F7 00 5D        ..]   stab 005d
4700 A831 F6 0B 96        ...   ldab 0b96
4701 A834 F7 00 5A        ..Z   stab 005a
4702 A837 BD BE 4B        ..K   jsr be4b             ;displayblank
4703 A83A BD BE 01        ...   jsr be01             ;jump70
4704 A83D CC 01 F4        ...   ldd #01f4
4705 A840 BD E5 71        ..q   jsr e571             ;msdelay
4706 A843 F6 00 5F        .._   ldab 005f
4707 A846 F7 0B 93        ...   stab 0b93
4708 A849 F6 00 5E        ..^   ldab 005e
4709 A84C F7 0B 94        ...   stab 0b94
4710 A84F F6 00 5D        ..]   ldab 005d
4711 A852 F7 0B 95        ...   stab 0b95
4712 A855 F6 00 5A        ..Z   ldab 005a
4713 A858 F7 0B 96        ...   stab 0b96
4714 A85B BD BE 01        ...   jsr be01             ;jump70
4715 A85E 7C 00 54        |.T   inc 0054
4716 A861 20 AF            .    bra af
4717 A863 39              9     rts 
4718
4719 jump99:
4720 A864 F6 00 09        ...   ldab 0009
4721 A867 C1 01           ..    cmpb #01
4722 A869 26 20           &     bne 20
4723 A86B F6 00 61        ..a   ldab 0061
4724 A86E 4F              O     clra 
4725 A86F C3 00 01        ...   addd #0001
4726 A872 37              7     pshb 
4727 A873 36              6     psha 
4728 A874 F6 00 60        ..`   ldab 0060
4729 A877 4F              O     clra 
4730 A878 30              0     tsx 
4731 A879 A3 00           ..    subd 00,x
4732 A87B 31              1     ins 
4733 A87C 31              1     ins 
4734 A87D 2C 0A           ,.    bge 0a
4735 A87F F6 00 60        ..`   ldab 0060
4736 A882 C1 F9           ..    cmpb #f9
4737 A884 24 03           $.    bcc 03
4738 A886 7C 00 60        |.`   inc 0060
4739 A889 20 0A            .    bra 0a
4740 A88B F6 00 60        ..`   ldab 0060
4741 A88E C1 09           ..    cmpb #09
4742 A890 24 03           $.    bcc 03
4743 A892 7C 00 60        |.`   inc 0060
4744 A895 39              9     rts 
4745
4746 jump98:
4747 A896 F6 00 36        ..6   ldab 0036
4748 A899 26 39           &9    bne 39
4749 A89B F6 00 54        ..T   ldab 0054
4750 A89E C1 27           .'    cmpb #27
4751 A8A0 24 20           $     bcc 20
4752 A8A2 7C 00 54        |.T   inc 0054
4753 A8A5 F6 00 09        ...   ldab 0009
4754 A8A8 C1 01           ..    cmpb #01
4755 A8AA 26 0C           &.    bne 0c
4756 A8AC F6 00 54        ..T   ldab 0054
4757 A8AF C1 27           .'    cmpb #27
4758 A8B1 26 03           &.    bne 03
4759 A8B3 7F 00 54        ..T   clr 0054
4760 A8B6 20 0A            .    bra 0a
4761 A8B8 F6 00 54        ..T   ldab 0054
4762 A8BB C1 24           .$    cmpb #24
4763 A8BD 26 03           &.    bne 03
4764 A8BF 7F 00 54        ..T   clr 0054
4765 A8C2 F6 00 54        ..T   ldab 0054
4766 A8C5 4F              O     clra 
4767 A8C6 C3 B4 8F        ...   addd #b48f
4768 A8C9 8F              .     xgdx 
4769 A8CA E6 00           ..    ldab 00,x
4770 A8CC F7 0B 90        ...   stab 0b90
4771 A8CF C6 02           ..    ldab #02
4772 A8D1 F7 00 36        ..6   stab 0036
4773 A8D4 39              9     rts 
4774
4775 jump97:
4776 A8D5 F6 00 60        ..`   ldab 0060
4777 A8D8 C1 00           ..    cmpb #00
4778 A8DA 23 05           #.    bls 05
4779 A8DC 7A 00 60        z.`   dec 0060
4780 A8DF 20 03            .    bra 03
4781 A8E1 7F 00 60        ..`   clr 0060
4782 A8E4 39              9     rts 
4783
4784 jump96:
4785 A8E5 F6 00 36        ..6   ldab 0036
4786 A8E8 26 36           &6    bne 36
4787 A8EA F6 00 54        ..T   ldab 0054
4788 A8ED C1 00           ..    cmpb #00
4789 A8EF 25 1D           %.    bcs 1d
4790 A8F1 F6 00 54        ..T   ldab 0054
4791 A8F4 26 15           &.    bne 15
4792 A8F6 F6 00 09        ...   ldab 0009
4793 A8F9 C1 01           ..    cmpb #01
4794 A8FB 26 07           &.    bne 07
4795 A8FD C6 26           .&    ldab #26
4796 A8FF F7 00 54        ..T   stab 0054
4797 A902 20 05            .    bra 05
4798 A904 C6 23           .#    ldab #23
4799 A906 F7 00 54        ..T   stab 0054
4800 A909 20 03            .    bra 03
4801 A90B 7A 00 54        z.T   dec 0054
4802 A90E F6 00 54        ..T   ldab 0054
4803 A911 4F              O     clra 
4804 A912 C3 B4 8F        ...   addd #b48f
4805 A915 8F              .     xgdx 
4806 A916 E6 00           ..    ldab 00,x
4807 A918 F7 0B 90        ...   stab 0b90
4808 A91B C6 02           ..    ldab #02
4809 A91D F7 00 36        ..6   stab 0036
4810 A920 39              9     rts 
4811
4812 jump95:
4813 A921 F6 0B 90        ...   ldab 0b90
4814 A924 F7 0B 96        ...   stab 0b96
4815 A927 F6 0B 96        ...   ldab 0b96
4816 A92A 37              7     pshb 
4817 A92B F6 00 60        ..`   ldab 0060
4818 A92E 4F              O     clra 
4819 A92F C3 0A 93        ...   addd #0a93
4820 A932 8F              .     xgdx 
4821 A933 33              3     pulb 
4822 A934 E7 00           ..    stab 00,x
4823 A936 F6 00 09        ...   ldab 0009
4824 A939 C1 01           ..    cmpb #01
4825 A93B 26 32           &2    bne 32
4826 A93D F6 00 61        ..a   ldab 0061
4827 A940 4F              O     clra 
4828 A941 C3 00 01        ...   addd #0001
4829 A944 37              7     pshb 
4830 A945 36              6     psha 
4831 A946 F6 00 60        ..`   ldab 0060
4832 A949 4F              O     clra 
4833 A94A 30              0     tsx 
4834 A94B A3 00           ..    subd 00,x
4835 A94D 31              1     ins 
4836 A94E 31              1     ins 
4837 A94F 26 0A           &.    bne 0a
4838 A951 F6 00 60        ..`   ldab 0060
4839 A954 C1 FA           ..    cmpb #fa
4840 A956 24 03           $.    bcc 03
4841 A958 7C 00 61        |.a   inc 0061
4842 A95B F6 00 60        ..`   ldab 0060
4843 A95E F1 00 61        ..a   cmpb 0061
4844 A961 22 0A           ".    bhi 0a
4845 A963 F6 00 60        ..`   ldab 0060
4846 A966 C1 F9           ..    cmpb #f9
4847 A968 24 03           $.    bcc 03
4848 A96A 7C 00 60        |.`   inc 0060
4849 A96D 20 0A            .    bra 0a
4850 A96F F6 00 60        ..`   ldab 0060
4851 A972 C1 09           ..    cmpb #09
4852 A974 24 03           $.    bcc 03
4853 A976 7C 00 60        |.`   inc 0060
4854 A979 39              9     rts 
4855
4856 jump132:
4857 A97A F6 00 60        ..`   ldab 0060
4858 A97D 26 24           &$    bne 24
4859 A97F F6 00 60        ..`   ldab 0060
4860 A982 CB 03           ..    addb #03
4861 A984 F7 00 54        ..T   stab 0054
4862 A987 F6 00 54        ..T   ldab 0054
4863 A98A C1 FF           ..    cmpb #ff
4864 A98C 24 13           $.    bcc 13
4865 A98E C6 20           .     ldab #20
4866 A990 37              7     pshb 
4867 A991 F6 00 54        ..T   ldab 0054
4868 A994 4F              O     clra 
4869 A995 C3 0A 90        ...   addd #0a90
4870 A998 8F              .     xgdx 
4871 A999 33              3     pulb 
4872 A99A E7 00           ..    stab 00,x
4873 A99C 7C 00 54        |.T   inc 0054
4874 A99F 20 E6            .    bra e6
4875 A9A1 20 22            "    bra 22
4876 A9A3 F6 00 60        ..`   ldab 0060
4877 A9A6 CB 04           ..    addb #04
4878 A9A8 F7 00 54        ..T   stab 0054
4879 A9AB F6 00 54        ..T   ldab 0054
4880 A9AE C1 FF           ..    cmpb #ff
4881 A9B0 24 13           $.    bcc 13
4882 A9B2 C6 20           .     ldab #20
4883 A9B4 37              7     pshb 
4884 A9B5 F6 00 54        ..T   ldab 0054
4885 A9B8 4F              O     clra 
4886 A9B9 C3 0A 90        ...   addd #0a90
4887 A9BC 8F              .     xgdx 
4888 A9BD 33              3     pulb 
4889 A9BE E7 00           ..    stab 00,x
4890 A9C0 7C 00 54        |.T   inc 0054
4891 A9C3 20 E6            .    bra e6
4892 A9C5 F6 00 60        ..`   ldab 0060
4893 A9C8 F7 00 61        ..a   stab 0061
4894 A9CB 7F 00 54        ..T   clr 0054
4895 A9CE 39              9     rts 
4896
4897 jump131:
4898 A9CF C6 50           .P    ldab #50
4899 A9D1 F7 09 90        ...   stab 0990
4900 A9D4 C6 29           .)    ldab #29
4901 A9D6 F7 09 91        ...   stab 0991
4902 A9D9 C6 20           .     ldab #20
4903 A9DB F7 09 92        ...   stab 0992
4904 A9DE 7F 00 54        ..T   clr 0054
4905 A9E1 F6 00 54        ..T   ldab 0054
4906 A9E4 C1 FF           ..    cmpb #ff
4907 A9E6 24 1B           $.    bcc 1b
4908 A9E8 F6 00 54        ..T   ldab 0054
4909 A9EB 4F              O     clra 
4910 A9EC C3 09 90        ...   addd #0990
4911 A9EF 8F              .     xgdx 
4912 A9F0 E6 00           ..    ldab 00,x
4913 A9F2 37              7     pshb 
4914 A9F3 F6 00 54        ..T   ldab 0054
4915 A9F6 4F              O     clra 
4916 A9F7 C3 0A 90        ...   addd #0a90
4917 A9FA 8F              .     xgdx 
4918 A9FB 33              3     pulb 
4919 A9FC E7 00           ..    stab 00,x
4920 A9FE 7C 00 54        |.T   inc 0054
4921 AA01 20 DE            .    bra de
4922 AA03 F6 0B BF        ...   ldab 0bbf
4923 AA06 F7 00 61        ..a   stab 0061
4924 AA09 39              9     rts 
4925
4926 jump130:
4927 AA0A C6 53           .S    ldab #53
4928 AA0C F7 0C B9        ...   stab 0cb9
4929 AA0F C6 29           .)    ldab #29
4930 AA11 F7 0C BA        ...   stab 0cba
4931 AA14 C6 20           .     ldab #20
4932 AA16 F7 0C BB        ...   stab 0cbb
4933 AA19 7F 00 54        ..T   clr 0054
4934 AA1C F6 00 54        ..T   ldab 0054
4935 AA1F C1 10           ..    cmpb #10
4936 AA21 24 1B           $.    bcc 1b
4937 AA23 F6 00 54        ..T   ldab 0054
4938 AA26 4F              O     clra 
4939 AA27 C3 0C B9        ...   addd #0cb9
4940 AA2A 8F              .     xgdx 
4941 AA2B E6 00           ..    ldab 00,x
4942 AA2D 37              7     pshb 
4943 AA2E F6 00 54        ..T   ldab 0054
4944 AA31 4F              O     clra 
4945 AA32 C3 0A 90        ...   addd #0a90
4946 AA35 8F              .     xgdx 
4947 AA36 33              3     pulb 
4948 AA37 E7 00           ..    stab 00,x
4949 AA39 7C 00 54        |.T   inc 0054
4950 AA3C 20 DE            .    bra de
4951 AA3E 39              9     rts 
4952
4953 jump129:
4954 AA3F C6 49           .I    ldab #49
4955 AA41 F7 0C C9        ...   stab 0cc9
4956 AA44 C6 29           .)    ldab #29
4957 AA46 F7 0C CA        ...   stab 0cca
4958 AA49 C6 20           .     ldab #20
4959 AA4B F7 0C CB        ...   stab 0ccb
4960 AA4E 7F 00 54        ..T   clr 0054
4961 AA51 F6 00 54        ..T   ldab 0054
4962 AA54 C1 10           ..    cmpb #10
4963 AA56 24 1B           $.    bcc 1b
4964 AA58 F6 00 54        ..T   ldab 0054
4965 AA5B 4F              O     clra 
4966 AA5C C3 0C C9        ...   addd #0cc9
4967 AA5F 8F              .     xgdx 
4968 AA60 E6 00           ..    ldab 00,x
4969 AA62 37              7     pshb 
4970 AA63 F6 00 54        ..T   ldab 0054
4971 AA66 4F              O     clra 
4972 AA67 C3 0A 90        ...   addd #0a90
4973 AA6A 8F              .     xgdx 
4974 AA6B 33              3     pulb 
4975 AA6C E7 00           ..    stab 00,x
4976 AA6E 7C 00 54        |.T   inc 0054
4977 AA71 20 DE            .    bra de
4978 AA73 39              9     rts 
4979
4980 jump128:
4981 AA74 7F 00 54        ..T   clr 0054
4982 AA77 F6 00 54        ..T   ldab 0054
4983 AA7A C1 0B           ..    cmpb #0b
4984 AA7C 24 1B           $.    bcc 1b
4985 AA7E F6 00 54        ..T   ldab 0054
4986 AA81 4F              O     clra 
4987 AA82 C3 0B E4        ...   addd #0be4
4988 AA85 8F              .     xgdx 
4989 AA86 E6 00           ..    ldab 00,x
4990 AA88 37              7     pshb 
4991 AA89 F6 00 54        ..T   ldab 0054
4992 AA8C 4F              O     clra 
4993 AA8D C3 00 68        ..h   addd #0068
4994 AA90 8F              .     xgdx 
4995 AA91 33              3     pulb 
4996 AA92 E7 00           ..    stab 00,x
4997 AA94 7C 00 54        |.T   inc 0054
4998 AA97 20 DE            .    bra de
4999 AA99 39              9     rts 
5000
5001 jump127:
5002 AA9A F6 00 22        .."   ldab 0022
5003 AA9D C1 06           ..    cmpb #06
5004 AA9F 24 0F           $.    bcc 0f
5005 AAA1 7C 00 22        |."   inc 0022
5006 AAA4 F6 00 22        .."   ldab 0022
5007 AAA7 C1 05           ..    cmpb #05
5008 AAA9 23 05           #.    bls 05
5009 AAAB C6 01           ..    ldab #01
5010 AAAD F7 00 22        .."   stab 0022
5011 AAB0 F6 00 22        .."   ldab 0022
5012 AAB3 4F              O     clra 
5013 AAB4 BD FE 16        ...   jsr fe16             ;jump2
5014 AAB7 00              .     test 
5015 AAB8 01              .     nop 
5016 AAB9 00              .     test 
5017 AABA 04              .     lsrd 
5018 AABB AB 0B           ..    adda 0b,x
5019 AABD AA C7           ..    ora c7,x
5020 AABF AA D5           ..    ora d5,x
5021 AAC1 AA E3           ..    ora e3,x
5022 AAC3 AA F1           ..    ora f1,x
5023 AAC5 AA FF           ..    ora ff,x
5024 AAC7 F6 0B AF        ...   ldab 0baf
5025 AACA F7 00 24        ..$   stab 0024
5026 AACD F6 0B B4        ...   ldab 0bb4
5027 AAD0 F7 00 2A        ..*   stab 002a
5028 AAD3 20 36            6    bra 36
5029 AAD5 F6 0B AE        ...   ldab 0bae
5030 AAD8 F7 00 24        ..$   stab 0024
5031 AADB F6 0B B3        ...   ldab 0bb3
5032 AADE F7 00 2A        ..*   stab 002a
5033 AAE1 20 28            (    bra 28
5034 AAE3 F6 0B AD        ...   ldab 0bad
5035 AAE6 F7 00 24        ..$   stab 0024
5036 AAE9 F6 0B B2        ...   ldab 0bb2
5037 AAEC F7 00 2A        ..*   stab 002a
5038 AAEF 20 1A            .    bra 1a
5039 AAF1 F6 0B AC        ...   ldab 0bac
5040 AAF4 F7 00 24        ..$   stab 0024
5041 AAF7 F6 0B B1        ...   ldab 0bb1
5042 AAFA F7 00 2A        ..*   stab 002a
5043 AAFD 20 0C            .    bra 0c
5044 AAFF F6 0B AB        ...   ldab 0bab
5045 AB02 F7 00 24        ..$   stab 0024
5046 AB05 F6 0B B0        ...   ldab 0bb0
5047 AB08 F7 00 2A        ..*   stab 002a
5048 AB0B 39              9     rts 
5049
5050 jump126:
5051 AB0C C6 03           ..    ldab #03
5052 AB0E F7 00 18        ...   stab 0018
5053 AB11 7F 00 1C        ...   clr 001c
5054 AB14 F6 00 1C        ...   ldab 001c
5055 AB17 C1 04           ..    cmpb #04
5056 AB19 24 6D           $m    bcc 6d
5057 AB1B C6 07           ..    ldab #07
5058 AB1D F7 00 55        ..U   stab 0055
5059 AB20 7F 00 54        ..T   clr 0054
5060 AB23 F6 00 54        ..T   ldab 0054
5061 AB26 C1 08           ..    cmpb #08
5062 AB28 24 56           $V    bcc 56
5063 AB2A F6 00 1C        ...   ldab 001c
5064 AB2D 4F              O     clra 
5065 AB2E C3 0B A4        ...   addd #0ba4
5066 AB31 8F              .     xgdx 
5067 AB32 E6 00           ..    ldab 00,x
5068 AB34 37              7     pshb 
5069 AB35 F6 00 54        ..T   ldab 0054
5070 AB38 4F              O     clra 
5071 AB39 C3 B4 B7        ...   addd #b4b7
5072 AB3C 8F              .     xgdx 
5073 AB3D E6 00           ..    ldab 00,x
5074 AB3F 30              0     tsx 
5075 AB40 E4 00           ..    andb 00,x
5076 AB42 31              1     ins 
5077 AB43 27 1A           '.    beq 1a
5078 AB45 F6 00 55        ..U   ldab 0055
5079 AB48 4F              O     clra 
5080 AB49 C3 B4 B7        ...   addd #b4b7
5081 AB4C 8F              .     xgdx 
5082 AB4D E6 00           ..    ldab 00,x
5083 AB4F 37              7     pshb 
5084 AB50 F6 00 18        ...   ldab 0018
5085 AB53 4F              O     clra 
5086 AB54 C3 00 62        ..b   addd #0062
5087 AB57 8F              .     xgdx 
5088 AB58 33              3     pulb 
5089 AB59 EA 00           ..    orb 00,x
5090 AB5B E7 00           ..    stab 00,x
5091 AB5D 20 19            .    bra 19
5092 AB5F F6 00 55        ..U   ldab 0055
5093 AB62 4F              O     clra 
5094 AB63 C3 B4 B7        ...   addd #b4b7
5095 AB66 8F              .     xgdx 
5096 AB67 E6 00           ..    ldab 00,x
5097 AB69 53              S     comb 
5098 AB6A 37              7     pshb 
5099 AB6B F6 00 18        ...   ldab 0018
5100 AB6E 4F              O     clra 
5101 AB6F C3 00 62        ..b   addd #0062
5102 AB72 8F              .     xgdx 
5103 AB73 33              3     pulb 
5104 AB74 E4 00           ..    andb 00,x
5105 AB76 E7 00           ..    stab 00,x
5106 AB78 7A 00 55        z.U   dec 0055
5107 AB7B 7C 00 54        |.T   inc 0054
5108 AB7E 20 A3            .    bra a3
5109 AB80 7A 00 18        z..   dec 0018
5110 AB83 7C 00 1C        |..   inc 001c
5111 AB86 20 8C            .    bra 8c
5112 AB88 39              9     rts 
5113
5114 jump7:
5115 AB89 CC B0 8C        ...   ldd #b08c
5116 AB8C BD C0 BA        ...   jsr c0ba             ;display:
5117 AB8F CC 01 F4        ...   ldd #01f4
5118 AB92 BD E5 71        ..q   jsr e571             ;msdelay
5119 AB95 BD D4 79        ..y   jsr d479             ;jump67
5120 AB98 BD E8 9A        ...   jsr e89a             ;jump68
5121 AB9B BD E9 EA        ...   jsr e9ea             ;jump113
5122 AB9E 7F 0B C1        ...   clr 0bc1
5123 ABA1 39              9     rts 
5124
5125 jump8:
5126 ABA2 7F 00 05        ...   clr 0005
5127 goto24:
5128 ABA5 F6 00 05        ...   ldab 0005
5129 ABA8 C1 64           .d    cmpb #64
5130 ABAA 25 03           %.    bcs 03
5131 ABAC 7E AC 81        ~..   jmp ac81             ;goto22
5132 ABAF F6 00 05        ...   ldab 0005
5133 ABB2 F7 00 06        ...   stab 0006
5134 ABB5 F6 00 05        ...   ldab 0005
5135 ABB8 4F              O     clra 
5136 ABB9 CE 00 05        ...   ldx #0005
5137 ABBC 02              .     idiv 
5138 ABBD 5D              ]     tstb 
5139 ABBE 26 03           &.    bne 03
5140 ABC0 7E AC 7B        ~.{   jmp ac7b             ;goto23
5141 ABC3 F6 00 06        ...   ldab 0006
5142 ABC6 BD D7 A0        ...   jsr d7a0             ;jump10
5143 ABC9 83 00 00        ...   subd #0000
5144 ABCC 27 03           '.    beq 03
5145 ABCE 7E AC 7B        ~.{   jmp ac7b             ;goto23
5146 ABD1 BD D3 11        ...   jsr d311             ;jump30
5147 ABD4 83 00 00        ...   subd #0000
5148 ABD7 27 2B           '+    beq 2b
5149 ABD9 F6 00 05        ...   ldab 0005
5150 ABDC 4F              O     clra 
5151 ABDD 05              .     asld 
5152 ABDE C3 08 00        ...   addd #0800
5153 ABE1 8F              .     xgdx 
5154 ABE2 EC 00           ..    ldd 00,x
5155 ABE4 C4 FF           ..    andb #ff
5156 ABE6 84 3F           .?    anda #3f
5157 ABE8 83 27 10        .'.   subd #2710   ; 10000
5158 ABEB 24 15           $.    bcc 15
5159 ABED CC 01 00        ...   ldd #0100
5160 ABF0 37              7     pshb 
5161 ABF1 36              6     psha 
5162 ABF2 F6 00 05        ...   ldab 0005
5163 ABF5 4F              O     clra 
5164 ABF6 05              .     asld 
5165 ABF7 C3 08 C8        ...   addd #08c8
5166 ABFA 38              8     pulx 
5167 ABFB 8F              .     xgdx 
5168 ABFC AA 00           ..    ora 00,x
5169 ABFE EA 01           ..    orb 01,x
5170 AC00 ED 00           ..    std 00,x
5171 AC02 20 29            )    bra 29
5172 AC04 F6 00 05        ...   ldab 0005
5173 AC07 4F              O     clra 
5174 AC08 05              .     asld 
5175 AC09 C3 08 00        ...   addd #0800
5176 AC0C 8F              .     xgdx 
5177 AC0D EC 00           ..    ldd 00,x
5178 AC0F C4 FF           ..    andb #ff
5179 AC11 84 3F           .?    anda #3f
5180 AC13 83 27 0F        .'.   subd #270f
5181 AC16 23 15           #.    bls 15
5182 AC18 CC 01 00        ...   ldd #0100
5183 AC1B 37              7     pshb 
5184 AC1C 36              6     psha 
5185 AC1D F6 00 05        ...   ldab 0005
5186 AC20 4F              O     clra 
5187 AC21 05              .     asld 
5188 AC22 C3 08 C8        ...   addd #08c8
5189 AC25 38              8     pulx 
5190 AC26 8F              .     xgdx 
5191 AC27 AA 00           ..    ora 00,x
5192 AC29 EA 01           ..    orb 01,x
5193 AC2B ED 00           ..    std 00,x
5194 AC2D F6 00 05        ...   ldab 0005
5195 AC30 4F              O     clra 
5196 AC31 05              .     asld 
5197 AC32 C3 08 C8        ...   addd #08c8
5198 AC35 8F              .     xgdx 
5199 AC36 EC 00           ..    ldd 00,x
5200 AC38 84 01           ..    anda #01
5201 AC3A 27 06           '.    beq 06
5202 AC3C CE 00 19        ...   ldx #0019
5203 AC3F 1C 00 04        ...   bset 00,x, #04
5204 AC42 F6 00 05        ...   ldab 0005
5205 AC45 4F              O     clra 
5206 AC46 05              .     asld 
5207 AC47 C3 08 00        ...   addd #0800
5208 AC4A 8F              .     xgdx 
5209 AC4B EC 00           ..    ldd 00,x
5210 AC4D 84 80           ..    anda #80
5211 AC4F 27 2A           '*    beq 2a
5212 AC51 F6 00 05        ...   ldab 0005
5213 AC54 4F              O     clra 
5214 AC55 05              .     asld 
5215 AC56 C3 08 C8        ...   addd #08c8
5216 AC59 8F              .     xgdx 
5217 AC5A EC 00           ..    ldd 00,x
5218 AC5C 84 02           ..    anda #02
5219 AC5E 27 06           '.    beq 06
5220 AC60 CE 00 19        ...   ldx #0019
5221 AC63 1C 00 01        ...   bset 00,x, #01
5222 AC66 F6 00 05        ...   ldab 0005
5223 AC69 4F              O     clra 
5224 AC6A 05              .     asld 
5225 AC6B C3 08 C8        ...   addd #08c8
5226 AC6E 8F              .     xgdx 
5227 AC6F EC 00           ..    ldd 00,x
5228 AC71 84 04           ..    anda #04
5229 AC73 27 06           '.    beq 06
5230 AC75 CE 00 19        ...   ldx #0019
5231 AC78 1C 00 02        ...   bset 00,x, #02
5232 goto23:
5233 AC7B 7C 00 05        |..   inc 0005
5234 AC7E 7E AB A5        ~..   jmp aba5             ;goto24
5235 goto22:
5236 AC81 F6 00 19        ...   ldab 0019
5237 AC84 C4 07           ..    andb #07
5238 AC86 26 0A           &.    bne 0a
5239 AC88 F6 0B C1        ...   ldab 0bc1
5240 AC8B C4 7F           ..    andb #7f
5241 AC8D 26 03           &.    bne 03
5242 AC8F 5F              _     clrb 
5243 AC90 20 02            .    bra 02
5244 AC92 C6 01           ..    ldab #01
5245 AC94 5D              ]     tstb 
5246 AC95 26 05           &.    bne 05
5247 AC97 C6 0D           ..    ldab #0d
5248 AC99 F7 00 48        ..H   stab 0048
5249 AC9C 39              9     rts 
5250
5251 ; keypad map
5252 AC9D 08              .     inx 
5253 AC9E 07              .     tpa 
5254 AC9F 06              .     tap 
5255 ACA0 05              .     asld 
5256 ACA1 04              .     lsrd 
5257 ACA2 03              .     fdiv 
5258 ACA3 02              .     idiv 
5259 ACA4 01              .     nop 
5260 ACA5 0B              .     sev 
5261 ACA6 0A              .     clv 
5262 ACA7 09              .     dex 
5263
5264 ACA8 20 20                 bra 20
5265 ACAA 50              P     negb 
5266 ACAB 52              R     illegal 
5267 ACAC 49              I     rola 
5268 ACAD 43              C     coma 
5269 ACAE 45              E     illegal 
5270 ACAF 20 20                 bra 20
5271 ACB1 20 00            .    bra 00
5272 ACB3 20 20                 bra 20
5273 ACB5 20 50            P    bra 50
5274 ACB7 52              R     illegal 
5275 ACB8 49              I     rola 
5276 ACB9 58              X     aslb 
5277 ACBA 20 20                 bra 20
5278 ACBC 20 00            .    bra 00
5279 ACBE 20 20                 bra 20
5280 ACC0 50              P     negb 
5281 ACC1 52              R     illegal 
5282 ACC2 45              E     illegal 
5283 ACC3 49              I     rola 
5284 ACC4 53              S     comb 
5285 ACC5 20 20                 bra 20
5286 ACC7 20 00            .    bra 00
5287 ACC9 20 20                 bra 20
5288 ACCB 50              P     negb 
5289 ACCC 52              R     illegal 
5290 ACCD 45              E     illegal 
5291 ACCE 43              C     coma 
5292 ACCF 49              I     rola 
5293 ACD0 4F              O     clra 
5294 ACD1 20 20                 bra 20
5295 ACD3 00              .     test 
5296 ACD4 20 20                 bra 20
5297 ACD6 43              C     coma 
5298 ACD7 48              H     asla 
5299 ACD8 41              A     illegal 
5300 ACD9 4E              N     illegal 
5301 ACDA 47              G     asra 
5302 ACDB 45              E     illegal 
5303 ACDC 20 20                 bra 20
5304 ACDE 00              .     test 
5305 ACDF 20 20                 bra 20
5306 ACE1 43              C     coma 
5307 ACE2 41              A     illegal 
5308 ACE3 4D              M     tsta 
5309 ACE4 42              B     illegal 
5310 ACE5 49              I     rola 
5311 ACE6 4F              O     clra 
5312 ACE7 20 20                 bra 20
5313 ACE9 00              .     test 
5314 ACEA 20 4D            M    bra 4d
5315 ACEC 4F              O     clra 
5316 ACED 4E              N     illegal 
5317 ACEE 4E              N     illegal 
5318 ACEF 41              A     illegal 
5319 ACF0 49              I     rola 
5320 ACF1 45              E     illegal 
5321 ACF2 20 20                 bra 20
5322 ACF4 00              .     test 
5323 ACF5 20 20                 bra 20
5324 ACF7 54              T     lsrb 
5325 ACF8 48              H     asla 
5326 ACF9 41              A     illegal 
5327 ACFA 4E              N     illegal 
5328 ACFB 4B              K     illegal 
5329 ACFC 53              S     comb 
5330 ACFD 20 20                 bra 20
5331 ACFF 00              .     test 
5332 AD00 20 20                 bra 20
5333 AD02 4D              M     tsta 
5334 AD03 45              E     illegal 
5335 AD04 52              R     illegal 
5336 AD05 43              C     coma 
5337 AD06 49              I     rola 
5338 AD07 20 20                 bra 20
5339 AD09 20 00            .    bra 00
5340 AD0B 20 20                 bra 20
5341 AD0D 44              D     lsra 
5342 AD0E 41              A     illegal 
5343 AD0F 4E              N     illegal 
5344 AD10 4B              K     illegal 
5345 AD11 45              E     illegal 
5346 AD12 20 20                 bra 20
5347 AD14 20 00            .    bra 00
5348 AD16 20 20                 bra 20
5349 AD18 47              G     asra 
5350 AD19 52              R     illegal 
5351 AD1A 41              A     illegal 
5352 AD1B 43              C     coma 
5353 AD1C 49              I     rola 
5354 AD1D 41              A     illegal 
5355 AD1E 53              S     comb 
5356 AD1F 20 00            .    bra 00
5357 AD21 20 20                 bra 20
5358 AD23 53              S     comb 
5359 AD24 45              E     illegal 
5360 AD25 4C              L     inca 
5361 AD26 45              E     illegal 
5362 AD27 43              C     coma 
5363 AD28 54              T     lsrb 
5364 AD29 20 20                 bra 20
5365 AD2B 00              .     test 
5366 AD2C 20 20                 bra 20
5367 AD2E 4F              O     clra 
5368 AD2F 54              T     lsrb 
5369 AD30 48              H     asla 
5370 AD31 45              E     illegal 
5371 AD32 52              R     illegal 
5372 AD33 20 20                 bra 20
5373 AD35 20 00            .    bra 00
5374 AD37 20 20                 bra 20
5375 AD39 20 49            I    bra 49
5376 AD3B 54              T     lsrb 
5377 AD3C 45              E     illegal 
5378 AD3D 4D              M     tsta 
5379 AD3E 20 20                 bra 20
5380 AD40 20 00            .    bra 00
5381 AD42 20 20                 bra 20
5382 AD44 46              F     rora 
5383 AD45 41              A     illegal 
5384 AD46 49              I     rola 
5385 AD47 54              T     lsrb 
5386 AD48 45              E     illegal 
5387 AD49 53              S     comb 
5388 AD4A 20 20                 bra 20
5389 AD4C 00              .     test 
5390 AD4D 20 20                 bra 20
5391 AD4F 41              A     illegal 
5392 AD50 55              U     illegal 
5393 AD51 54              T     lsrb 
5394 AD52 52              R     illegal 
5395 AD53 45              E     illegal 
5396 AD54 20 20                 bra 20
5397 AD56 20 00            .    bra 00
5398 AD58 20 20                 bra 20
5399 AD5A 43              C     coma 
5400 AD5B 48              H     asla 
5401 AD5C 4F              O     clra 
5402 AD5D 49              I     rola 
5403 AD5E 58              X     aslb 
5404 AD5F 20 20                 bra 20
5405 AD61 20 00            .    bra 00
5406 AD63 20 20                 bra 20
5407 AD65 42              B     illegal 
5408 AD66 49              I     rola 
5409 AD67 54              T     lsrb 
5410 AD68 54              T     lsrb 
5411 AD69 45              E     illegal 
5412 AD6A 20 20                 bra 20
5413 AD6C 20 00            .    bra 00
5414 AD6E 20 20                 bra 20
5415 AD70 41              A     illegal 
5416 AD71 4E              N     illegal 
5417 AD72 44              D     lsra 
5418 AD73 45              E     illegal 
5419 AD74 52              R     illegal 
5420 AD75 45              E     illegal 
5421 AD76 20 20                 bra 20
5422 AD78 00              .     test 
5423 AD79 20 20                 bra 20
5424 AD7B 20 57            W    bra 57
5425 AD7D 41              A     illegal 
5426 AD7E 48              H     asla 
5427 AD7F 4C              L     inca 
5428 AD80 20 20                 bra 20
5429 AD82 20 00            .    bra 00
5430 AD84 20 20                 bra 20
5431 AD86 50              P     negb 
5432 AD87 55              U     illegal 
5433 AD88 4C              L     inca 
5434 AD89 53              S     comb 
5435 AD8A 45              E     illegal 
5436 AD8B 20 20                 bra 20
5437 AD8D 20 00            .    bra 00
5438 AD8F 20 20                 bra 20
5439 AD91 45              E     illegal 
5440 AD92 58              X     aslb 
5441 AD93 54              T     lsrb 
5442 AD94 52              R     illegal 
5443 AD95 41              A     illegal 
5444 AD96 20 20                 bra 20
5445 AD98 20 00            .    bra 00
5446 AD9A 20 53            S    bra 53
5447 AD9C 45              E     illegal 
5448 AD9D 4C              L     inca 
5449 AD9E 45              E     illegal 
5450 AD9F 43              C     coma 
5451 ADA0 43              C     coma 
5452 ADA1 49              I     rola 
5453 ADA2 4F              O     clra 
5454 ADA3 4E              N     illegal 
5455 ADA4 00              .     test 
5456 ADA5 20 45            E    bra 45
5457 ADA7 58              X     aslb 
5458 ADA8 41              A     illegal 
5459 ADA9 43              C     coma 
5460 ADAA 54              T     lsrb 
5461 ADAB 20 43            C    bra 43
5462 ADAD 4F              O     clra 
5463 ADAE 49              I     rola 
5464 ADAF 4E              N     illegal 
5465 ADB0 53              S     comb 
5466 ADB1 20 4F            O    bra 4f
5467 ADB3 4E              N     illegal 
5468 ADB4 4C              L     inca 
5469 ADB5 59              Y     rolb 
5470 ADB6 20 00            .    bra 00
5471 ADB8 20 4D            M    bra 4d
5472 ADBA 4F              O     clra 
5473 ADBB 4E              N     illegal 
5474 ADBC 4E              N     illegal 
5475 ADBD 41              A     illegal 
5476 ADBE 49              I     rola 
5477 ADBF 45              E     illegal 
5478 ADC0 20 45            E    bra 45
5479 ADC2 58              X     aslb 
5480 ADC3 41              A     illegal 
5481 ADC4 43              C     coma 
5482 ADC5 54              T     lsrb 
5483 ADC6 45              E     illegal 
5484 ADC7 20 53            S    bra 53
5485 ADC9 45              E     illegal 
5486 ADCA 55              U     illegal 
5487 ADCB 4C              L     inca 
5488 ADCC 45              E     illegal 
5489 ADCD 4D              M     tsta 
5490 ADCE 45              E     illegal 
5491 ADCF 4E              N     illegal 
5492 ADD0 54              T     lsrb 
5493 ADD1 20 00            .    bra 00
5494 ADD3 20 4E            N    bra 4e
5495 ADD5 49              I     rola 
5496 ADD6 43              C     coma 
5497 ADD7 48              H     asla 
5498 ADD8 54              T     lsrb 
5499 ADD9 20 55            U    bra 55
5500 ADDB 45              E     illegal 
5501 ADDC 42              B     illegal 
5502 ADDD 45              E     illegal 
5503 ADDE 52              R     illegal 
5504 ADDF 5A              Z     decb 
5505 ADE0 41              A     illegal 
5506 ADE1 48              H     asla 
5507 ADE2 4C              L     inca 
5508 ADE3 45              E     illegal 
5509 ADE4 4E              N     illegal 
5510 ADE5 20 00            .    bra 00
5511 ADE7 20 49            I    bra 49
5512 ADE9 4E              N     illegal 
5513 ADEA 54              T     lsrb 
5514 ADEB 52              R     illegal 
5515 ADEC 4F              O     clra 
5516 ADED 44              D     lsra 
5517 ADEE 55              U     illegal 
5518 ADEF 5A              Z     decb 
5519 ADF0 43              C     coma 
5520 ADF1 41              A     illegal 
5521 ADF2 20 50            P    bra 50
5522 ADF4 52              R     illegal 
5523 ADF5 45              E     illegal 
5524 ADF6 43              C     coma 
5525 ADF7 49              I     rola 
5526 ADF8 4F              O     clra 
5527 ADF9 20 45            E    bra 45
5528 ADFB 58              X     aslb 
5529 ADFC 41              A     illegal 
5530 ADFD 43              C     coma 
5531 ADFE 54              T     lsrb 
5532 ADFF 4F              O     clra 
5533 AE00 20 00            .    bra 00
5534 AE02 20 43            C    bra 43
5535 AE04 4F              O     clra 
5536 AE05 49              I     rola 
5537 AE06 4E              N     illegal 
5538 AE07 53              S     comb 
5539 AE08 20 4F            O    bra 4f
5540 AE0A 4E              N     illegal 
5541 AE0B 4C              L     inca 
5542 AE0C 59              Y     rolb 
5543 AE0D 20 00            .    bra 00
5544 AE0F 20 4D            M    bra 4d
5545 AE11 4F              O     clra 
5546 AE12 4E              N     illegal 
5547 AE13 4E              N     illegal 
5548 AE14 41              A     illegal 
5549 AE15 49              I     rola 
5550 AE16 45              E     illegal 
5551 AE17 20 53            S    bra 53
5552 AE19 45              E     illegal 
5553 AE1A 55              U     illegal 
5554 AE1B 4C              L     inca 
5555 AE1C 45              E     illegal 
5556 AE1D 4D              M     tsta 
5557 AE1E 45              E     illegal 
5558 AE1F 4E              N     illegal 
5559 AE20 54              T     lsrb 
5560 AE21 20 00            .    bra 00
5561 AE23 20 4E            N    bra 4e
5562 AE25 55              U     illegal 
5563 AE26 52              R     illegal 
5564 AE27 20 4D            M    bra 4d
5565 AE29 55              U     illegal 
5566 AE2A 4E              N     illegal 
5567 AE2B 5A              Z     decb 
5568 AE2C 45              E     illegal 
5569 AE2D 4E              N     illegal 
5570 AE2E 20 00            .    bra 00
5571 AE30 20 4D            M    bra 4d
5572 AE32 4F              O     clra 
5573 AE33 4E              N     illegal 
5574 AE34 45              E     illegal 
5575 AE35 44              D     lsra 
5576 AE36 41              A     illegal 
5577 AE37 20 55            U    bra 55
5578 AE39 4E              N     illegal 
5579 AE3A 49              I     rola 
5580 AE3B 43              C     coma 
5581 AE3C 41              A     illegal 
5582 AE3D 4D              M     tsta 
5583 AE3E 45              E     illegal 
5584 AE3F 4E              N     illegal 
5585 AE40 54              T     lsrb 
5586 AE41 45              E     illegal 
5587 AE42 20 00            .    bra 00
5588 AE44 20 4D            M    bra 4d
5589 AE46 41              A     illegal 
5590 AE47 43              C     coma 
5591 AE48 48              H     asla 
5592 AE49 49              I     rola 
5593 AE4A 4E              N     illegal 
5594 AE4B 45              E     illegal 
5595 AE4C 20 4F            O    bra 4f
5596 AE4E 55              U     illegal 
5597 AE4F 54              T     lsrb 
5598 AE50 20 4F            O    bra 4f
5599 AE52 46              F     rora 
5600 AE53 20 4F            O    bra 4f
5601 AE55 52              R     illegal 
5602 AE56 44              D     lsra 
5603 AE57 45              E     illegal 
5604 AE58 52              R     illegal 
5605 AE59 20 00            .    bra 00
5606 AE5B 20 48            H    bra 48
5607 AE5D 4F              O     clra 
5608 AE5E 52              R     illegal 
5609 AE5F 53              S     comb 
5610 AE60 20 44            D    bra 44
5611 AE62 45              E     illegal 
5612 AE63 20 53            S    bra 53
5613 AE65 45              E     illegal 
5614 AE66 52              R     illegal 
5615 AE67 56              V     rorb 
5616 AE68 49              I     rola 
5617 AE69 43              C     coma 
5618 AE6A 45              E     illegal 
5619 AE6B 20 00            .    bra 00
5620 AE6D 20 41            A    bra 41
5621 AE6F 55              U     illegal 
5622 AE70 53              S     comb 
5623 AE71 53              S     comb 
5624 AE72 45              E     illegal 
5625 AE73 52              R     illegal 
5626 AE74 20 42            B    bra 42
5627 AE76 45              E     illegal 
5628 AE77 54              T     lsrb 
5629 AE78 52              R     illegal 
5630 AE79 49              I     rola 
5631 AE7A 45              E     illegal 
5632 AE7B 42              B     illegal 
5633 AE7C 20 00            .    bra 00
5634 AE7E 20 46            F    bra 46
5635 AE80 55              U     illegal 
5636 AE81 45              E     illegal 
5637 AE82 52              R     illegal 
5638 AE83 41              A     illegal 
5639 AE84 20 44            D    bra 44
5640 AE86 45              E     illegal 
5641 AE87 20 53            S    bra 53
5642 AE89 45              E     illegal 
5643 AE8A 52              R     illegal 
5644 AE8B 56              V     rorb 
5645 AE8C 49              I     rola 
5646 AE8D 43              C     coma 
5647 AE8E 49              I     rola 
5648 AE8F 4F              O     clra 
5649 AE90 20 00            .    bra 00
5650
5651 AE92 2D 20           -     blt 20
5652 AE94 20 20                 bra 20
5653 AE96 20 20                 bra 20
5654 AE98 20 20                 bra 20
5655 AE9A 20 20                 bra 20
5656 AE9C 00              .     test 
5657
5658 AE9D 53              S     comb 
5659 AE9E 45              E     illegal 
5660 AE9F 54              T     lsrb 
5661 AEA0 20 50            P    bra 50
5662 AEA2 52              R     illegal 
5663 AEA3 49              I     rola 
5664 AEA4 43              C     coma 
5665 AEA5 45              E     illegal 
5666 AEA6 3F              ?     swi 
5667 AEA7 00              .     test 
5668
5669 AEA8 20 20                 bra 20
5670 AEAA 53              S     comb 
5671 AEAB 59              Y     rolb 
5672 AEAC 53              S     comb 
5673 AEAD 54              T     lsrb 
5674 AEAE 45              E     illegal 
5675 AEAF 4D              M     tsta 
5676 AEB0 20 20                 bra 20
5677 AEB2 00              .     test 
5678
5679 AEB3 20 20                 bra 20
5680 AEB5 20 20                 bra 20
5681 AEB7 4F              O     clra 
5682 AEB8 4B              K     illegal 
5683 AEB9 20 20                 bra 20
5684 AEBB 20 20                 bra 20
5685 AEBD 00              .     test 
5686
5687 AEBE 24 35           $5    bcc 35
5688 AEC0 20 45            E    bra 45
5689 AEC2 4E              N     illegal 
5690 AEC3 41              A     illegal 
5691 AEC4 42              B     illegal 
5692 AEC5 4C              L     inca 
5693 AEC6 45              E     illegal 
5694 AEC7 20 00            .    bra 00
5695
5696 AEC9 24 35           $5    bcc 35
5697 AECB 20 44            D    bra 44
5698 AECD 49              I     rola 
5699 AECE 53              S     comb 
5700 AECF 41              A     illegal 
5701 AED0 42              B     illegal 
5702 AED1 4C              L     inca 
5703 AED2 45              E     illegal 
5704 AED3 00              .     test 
5705
5706 AED4 53              S     comb 
5707 AED5 4F              O     clra 
5708 AED6 44              D     lsra 
5709 AED7 41              A     illegal 
5710 AED8 20 56            V    bra 56
5711 AEDA 45              E     illegal 
5712 AEDB 4E              N     illegal 
5713 AEDC 44              D     lsra 
5714 AEDD 20 00            .    bra 00
5715 AEDF 53              S     comb 
5716 AEE0 4E              N     illegal 
5717 AEE1 41              A     illegal 
5718 AEE2 43              C     coma 
5719 AEE3 4B              K     illegal 
5720 AEE4 20 56            V    bra 56
5721 AEE6 45              E     illegal 
5722 AEE7 4E              N     illegal 
5723 AEE8 44              D     lsra 
5724 AEE9 00              .     test 
5725
5726 AEEA 44              D     lsra 
5727 AEEB 55              U     illegal 
5728 AEEC 4D              M     tsta 
5729 AEED 42              B     illegal 
5730 AEEE 20 4D            M    bra 4d
5731 AEF0 45              E     illegal 
5732 AEF1 43              C     coma 
5733 AEF2 20 59            Y    bra 59
5734 AEF4 00              .     test 
5735 AEF5 44              D     lsra 
5736 AEF6 55              U     illegal 
5737 AEF7 4D              M     tsta 
5738 AEF8 42              B     illegal 
5739 AEF9 20 4D            M    bra 4d
5740 AEFB 45              E     illegal 
5741 AEFC 43              C     coma 
5742 AEFD 20 4E            N    bra 4e
5743 AEFF 00              .     test 
5744 AF00 4C              L     inca 
5745 AF01 4E              N     illegal 
5746 AF02 4B              K     illegal 
5747 AF03 20 4D            M    bra 4d
5748 AF05 53              S     comb 
5749 AF06 54              T     lsrb 
5750 AF07 52              R     illegal 
5751 AF08 20 59            Y    bra 59
5752 AF0A 00              .     test 
5753 AF0B 4C              L     inca 
5754 AF0C 4E              N     illegal 
5755 AF0D 4B              K     illegal 
5756 AF0E 20 4D            M    bra 4d
5757 AF10 53              S     comb 
5758 AF11 54              T     lsrb 
5759 AF12 52              R     illegal 
5760 AF13 20 4E            N    bra 4e
5761 AF15 00              .     test 
5762 AF16 43              C     coma 
5763 AF17 41              A     illegal 
5764 AF18 52              R     illegal 
5765 AF19 44              D     lsra 
5766 AF1A 20 52            R    bra 52
5767 AF1C 44              D     lsra 
5768 AF1D 52              R     illegal 
5769 AF1E 20 59            Y    bra 59
5770 AF20 00              .     test 
5771 AF21 43              C     coma 
5772 AF22 41              A     illegal 
5773 AF23 52              R     illegal 
5774 AF24 44              D     lsra 
5775 AF25 20 52            R    bra 52
5776 AF27 44              D     lsra 
5777 AF28 52              R     illegal 
5778 AF29 20 4E            N    bra 4e
5779 AF2B 00              .     test 
5780 AF2C 42              B     illegal 
5781 AF2D 49              I     rola 
5782 AF2E 4C              L     inca 
5783 AF2F 4C              L     inca 
5784 AF30 20 56            V    bra 56
5785 AF32 41              A     illegal 
5786 AF33 4C              L     inca 
5787 AF34 20 59            Y    bra 59
5788 AF36 00              .     test 
5789 AF37 42              B     illegal 
5790 AF38 49              I     rola 
5791 AF39 4C              L     inca 
5792 AF3A 4C              L     inca 
5793 AF3B 20 56            V    bra 56
5794 AF3D 41              A     illegal 
5795 AF3E 4C              L     inca 
5796 AF3F 20 4E            N    bra 4e
5797 AF41 00              .     test 
5798 AF42 50              P     negb 
5799 AF43 52              R     illegal 
5800 AF44 43              C     coma 
5801 AF45 20 48            H    bra 48
5802 AF47 4F              O     clra 
5803 AF48 4C              L     inca 
5804 AF49 44              D     lsra 
5805 AF4A 20 59            Y    bra 59
5806 AF4C 00              .     test 
5807 AF4D 50              P     negb 
5808 AF4E 52              R     illegal 
5809 AF4F 43              C     coma 
5810 AF50 20 48            H    bra 48
5811 AF52 4F              O     clra 
5812 AF53 4C              L     inca 
5813 AF54 44              D     lsra 
5814 AF55 20 4E            N    bra 4e
5815 AF57 00              .     test 
5816 AF58 50              P     negb 
5817 AF59 52              R     illegal 
5818 AF5A 43              C     coma 
5819 AF5B 20 44            D    bra 44
5820 AF5D 49              I     rola 
5821 AF5E 53              S     comb 
5822 AF5F 50              P     negb 
5823 AF60 20 59            Y    bra 59
5824 AF62 00              .     test 
5825 AF63 50              P     negb 
5826 AF64 52              R     illegal 
5827 AF65 43              C     coma 
5828 AF66 20 44            D    bra 44
5829 AF68 49              I     rola 
5830 AF69 53              S     comb 
5831 AF6A 50              P     negb 
5832 AF6B 20 4E            N    bra 4e
5833 AF6D 00              .     test 
5834 AF6E 46              F     rora 
5835 AF6F 52              R     illegal 
5836 AF70 45              E     illegal 
5837 AF71 45              E     illegal 
5838 AF72 20 56            V    bra 56
5839 AF74 4E              N     illegal 
5840 AF75 44              D     lsra 
5841 AF76 20 59            Y    bra 59
5842 AF78 00              .     test 
5843 AF79 46              F     rora 
5844 AF7A 52              R     illegal 
5845 AF7B 45              E     illegal 
5846 AF7C 45              E     illegal 
5847 AF7D 20 56            V    bra 56
5848 AF7F 4E              N     illegal 
5849 AF80 44              D     lsra 
5850 AF81 20 4E            N    bra 4e
5851 AF83 00              .     test 
5852 AF84 24 31           $1    bcc 31
5853 AF86 20 43            C    bra 43
5854 AF88 48              H     asla 
5855 AF89 4E              N     illegal 
5856 AF8A 47              G     asra 
5857 AF8B 52              R     illegal 
5858 AF8C 20 59            Y    bra 59
5859 AF8E 00              .     test 
5860 AF8F 24 31           $1    bcc 31
5861 AF91 20 43            C    bra 43
5862 AF93 48              H     asla 
5863 AF94 4E              N     illegal 
5864 AF95 47              G     asra 
5865 AF96 52              R     illegal 
5866 AF97 20 4E            N    bra 4e
5867 AF99 00              .     test 
5868 AF9A 43              C     coma 
5869 AF9B 4C              L     inca 
5870 AF9C 52              R     illegal 
5871 AF9D 20 4D            M    bra 4d
5872 AF9F 49              I     rola 
5873 AFA0 53              S     comb 
5874 AFA1 20 20                 bra 20
5875 AFA3 59              Y     rolb 
5876 AFA4 00              .     test 
5877 AFA5 43              C     coma 
5878 AFA6 4C              L     inca 
5879 AFA7 52              R     illegal 
5880 AFA8 20 4D            M    bra 4d
5881 AFAA 49              I     rola 
5882 AFAB 53              S     comb 
5883 AFAC 20 20                 bra 20
5884 AFAE 4E              N     illegal 
5885 AFAF 00              .     test 
5886 AFB0 48              H     asla 
5887 AFB1 49              I     rola 
5888 AFB2 54              T     lsrb 
5889 AFB3 20 4B            K    bra 4b
5890 AFB5 45              E     illegal 
5891 AFB6 59              Y     rolb 
5892 AFB7 22 30           "0    bhi 30
5893 AFB9 22 00           ".    bhi 00
5894 AFBB 45              E     illegal 
5895 AFBC 4E              N     illegal 
5896 AFBD 54              T     lsrb 
5897 AFBE 45              E     illegal 
5898 AFBF 52              R     illegal 
5899 AFC0 20 43            C    bra 43
5900 AFC2 4F              O     clra 
5901 AFC3 44              D     lsra 
5902 AFC4 45              E     illegal 
5903 AFC5 00              .     test 
5904 AFC6 53              S     comb 
5905 AFC7 45              E     illegal 
5906 AFC8 43              C     coma 
5907 AFC9 55              U     illegal 
5908 AFCA 52              R     illegal 
5909 AFCB 45              E     illegal 
5910 AFCC 20 4F            O    bra 4f
5911 AFCE 4E              N     illegal 
5912 AFCF 20 00            .    bra 00
5913 AFD1 53              S     comb 
5914 AFD2 45              E     illegal 
5915 AFD3 43              C     coma 
5916 AFD4 55              U     illegal 
5917 AFD5 52              R     illegal 
5918 AFD6 45              E     illegal 
5919 AFD7 20 4F            O    bra 4f
5920 AFD9 46              F     rora 
5921 AFDA 46              F     rora 
5922 AFDB 00              .     test 
5923 AFDC 2D 20           -     blt 20
5924 AFDE 53              S     comb 
5925 AFDF 41              A     illegal 
5926 AFE0 56              V     rorb 
5927 AFE1 49              I     rola 
5928 AFE2 4E              N     illegal 
5929 AFE3 47              G     asra 
5930 AFE4 20 2D            -    bra 2d
5931 AFE6 00              .     test 
5932 AFE7 2D 50           -P    blt 50
5933 AFE9 52              R     illegal 
5934 AFEA 49              I     rola 
5935 AFEB 4E              N     illegal 
5936 AFEC 54              T     lsrb 
5937 AFED 49              I     rola 
5938 AFEE 4E              N     illegal 
5939 AFEF 47              G     asra 
5940 AFF0 2D 00           -.    blt 00
5941
5942 AFF2 4F              O     clra 
5943 AFF3 56              V     rorb 
5944 AFF4 45              E     illegal 
5945 AFF5 52              R     illegal 
5946 AFF6 20 43            C    bra 43
5947 AFF8 52              R     illegal 
5948 AFF9 4E              N     illegal 
5949 AFFA 54              T     lsrb 
5950 AFFB 3D              =     mul 
5951 AFFC 00              .     test 
5952
5953 AFFD 48              H     asla 
5954 AFFE 4F              O     clra 
5955 AFFF 4D              M     tsta 
5956 B000 45              E     illegal 
5957 B001 20 46            F    bra 46
5958 B003 41              A     illegal 
5959 B004 49              I     rola 
5960 B005 4C              L     inca 
5961 B006 3D              =     mul 
5962 B007 00              .     test 
5963 B008 43              C     coma 
5964 B009 48              H     asla 
5965 B00A 4B              K     illegal 
5966 B00B 20 50            P    bra 50
5967 B00D 52              R     illegal 
5968 B00E 49              I     rola 
5969 B00F 43              C     coma 
5970 B010 45              E     illegal 
5971 B011 53              S     comb 
5972 B012 00              .     test 
5973
5974 B013 48              H     asla 
5975 B014 49              I     rola 
5976 B015 54              T     lsrb 
5977 B016 20 52            R    bra 52
5978 B018 45              E     illegal 
5979 B019 53              S     comb 
5980 B01A 45              E     illegal 
5981 B01B 54              T     lsrb 
5982 B01C 20 00            .    bra 00
5983
5984 B01E 43              C     coma 
5985 B01F 4F              O     clra 
5986 B020 49              I     rola 
5987 B021 4E              N     illegal 
5988 B022 20 20                 bra 20
5989 B024 20 4A            J    bra 4a
5990 B026 41              A     illegal 
5991 B027 4D              M     tsta 
5992 B028 00              .     test 
5993
5994 B029 42              B     illegal 
5995 B02A 41              A     illegal 
5996 B02B 44              D     lsra 
5997 B02C 20 53            S    bra 53
5998 B02E 45              E     illegal 
5999 B02F 4E              N     illegal 
6000 B030 53              S     comb 
6001 B031 4F              O     clra 
6002 B032 52              R     illegal 
6003 B033 00              .     test 
6004
6005 B034 43              C     coma 
6006 B035 48              H     asla 
6007 B036 47              G     asra 
6008 B037 52              R     illegal 
6009 B038 20 50            P    bra 50
6010 B03A 57              W     asrb 
6011 B03B 52              R     illegal 
6012 B03C 55              U     illegal 
6013 B03D 50              P     negb 
6014 B03E 00              .     test 
6015
6016 B03F 4C              L     inca 
6017 B040 49              I     rola 
6018 B041 4E              N     illegal 
6019 B042 4B              K     illegal 
6020 B043 20 50            P    bra 50
6021 B045 57              W     asrb 
6022 B046 52              R     illegal 
6023 B047 55              U     illegal 
6024 B048 50              P     negb 
6025 B049 00              .     test 
6026
6027 B04A 43              C     coma 
6028 B04B 41              A     illegal 
6029 B04C 52              R     illegal 
6030 B04D 44              D     lsra 
6031 B04E 20 50            P    bra 50
6032 B050 57              W     asrb 
6033 B051 52              R     illegal 
6034 B052 55              U     illegal 
6035 B053 50              P     negb 
6036 B054 00              .     test 
6037
6038 B055 42              B     illegal 
6039 B056 49              I     rola 
6040 B057 4C              L     inca 
6041 B058 4C              L     inca 
6042 B059 20 45            E    bra 45
6043 B05B 52              R     illegal 
6044 B05C 52              R     illegal 
6045 B05D 4F              O     clra 
6046 B05E 52              R     illegal 
6047 B05F 00              .     test 
6048
6049 B060 54              T     lsrb 
6050 B061 55              U     illegal 
6051 B062 42              B     illegal 
6052 B063 45              E     illegal 
6053 B064 20 45            E    bra 45
6054 B066 52              R     illegal 
6055 B067 52              R     illegal 
6056 B068 4F              O     clra 
6057 B069 52              R     illegal 
6058 B06A 00              .     test 
6059 B06B 4E              N     illegal 
6060 B06C 4F              O     clra 
6061 B06D 20 20                 bra 20
6062 B06F 43              C     coma 
6063 B070 48              H     asla 
6064 B071 41              A     illegal 
6065 B072 4E              N     illegal 
6066 B073 47              G     asra 
6067 B074 45              E     illegal 
6068 B075 00              .     test 
6069 B076 20 4E            N    bra 4e
6070 B078 4F              O     clra 
6071 B079 20 46            F    bra 46
6072 B07B 49              I     rola 
6073 B07C 56              V     rorb 
6074 B07D 45              E     illegal 
6075 B07E 53              S     comb 
6076 B07F 20 00            .    bra 00
6077
6078 B081 4E              N     illegal 
6079 B082 4F              O     clra 
6080 B083 20 20                 bra 20
6081 B085 41              A     illegal 
6082 B086 43              C     coma 
6083 B087 43              C     coma 
6084 B088 45              E     illegal 
6085 B089 53              S     comb 
6086 B08A 53              S     comb 
6087 B08B 00              .     test 
6088 B08C 4E              N     illegal 
6089 B08D 4F              O     clra 
6090 B08E 20 20                 bra 20
6091 B090 45              E     illegal 
6092 B091 52              R     illegal 
6093 B092 52              R     illegal 
6094 B093 4F              O     clra 
6095 B094 52              R     illegal 
6096 B095 53              S     comb 
6097 B096 00              .     test 
6098 B097 54              T     lsrb 
6099 B098 45              E     illegal 
6100 B099 53              S     comb 
6101 B09A 54              T     lsrb 
6102 B09B 20 20                 bra 20
6103 B09D 56              V     rorb 
6104 B09E 45              E     illegal 
6105 B09F 4E              N     illegal 
6106 B0A0 44              D     lsra 
6107 B0A1 00              .     test 
6108 B0A2 4D              M     tsta 
6109 B0A3 54              T     lsrb 
6110 B0A4 52              R     illegal 
6111 B0A5 20 46            F    bra 46
6112 B0A7 55              U     illegal 
6113 B0A8 4E              N     illegal 
6114 B0A9 43              C     coma 
6115 B0AA 54              T     lsrb 
6116 B0AB 3F              ?     swi 
6117 B0AC 00              .     test 
6118 B0AD 50              P     negb 
6119 B0AE 52              R     illegal 
6120 B0AF 4F              O     clra 
6121 B0B0 47              G     asra 
6122 B0B1 52              R     illegal 
6123 B0B2 41              A     illegal 
6124 B0B3 4D              M     tsta 
6125 B0B4 20 20                 bra 20
6126 B0B6 3F              ?     swi 
6127 B0B7 00              .     test 
6128 B0B8 53              S     comb 
6129 B0B9 45              E     illegal 
6130 B0BA 4C              L     inca 
6131 B0BB 45              E     illegal 
6132 B0BC 43              C     coma 
6133 B0BD 54              T     lsrb 
6134 B0BE 49              I     rola 
6135 B0BF 4F              O     clra 
6136 B0C0 4E              N     illegal 
6137 B0C1 3F              ?     swi 
6138 B0C2 00              .     test 
6139
6140 B0C3 14 00           .     
6141 B0C5 14 C8           .     
6142 B0C7 05 00           ..    
6143 B0C9 05 00           .     
6144 B0CB 02 00           .     
6145 B0CD 02 00           .     
6146 B0CF 01 00           .     
6147 B0D1 01 00           .     
6148 B0D3 01 0C           .     
6149 B0D5 17 22           .     
6150 B0D7 2E 39           ".    
6151
6152 B0D9 44              D     lsra 
6153 B0DA 4F              O     clra 
6154 B0DB 0B              .     sev 
6155 B0DC 16              .     tab 
6156 B0DD 21 2C           !,    brn 2c
6157 B0DF 38              8     pulx 
6158 B0E0 43              C     coma 
6159 B0E1 4E              N     illegal 
6160 B0E2 59              Y     rolb 
6161 B0E3 15              .     bclr 
6162 B0E4 20 2B            +    bra 2b
6163 B0E6 36              6     psha 
6164 B0E7 42              B     illegal 
6165 B0E8 4D              M     tsta 
6166 B0E9 58              X     aslb 
6167 B0EA 63 1F           c.    com 1f,x
6168 B0EC 2A 35           *5    bpl 35
6169 B0EE 40              @     nega 
6170 B0EF 4C              L     inca 
6171 B0F0 57              W     asrb 
6172 B0F1 62              b     illegal 
6173 B0F2 09              .     dex 
6174 B0F3 29 34           )4    bvs 34
6175 B0F5 3F              ?     swi 
6176 B0F6 4A              J     deca 
6177 B0F7 56              V     rorb 
6178 B0F8 61              a     illegal 
6179 B0F9 08              .     inx 
6180 B0FA 13              .     brclr 
6181 B0FB 33              3     pulb 
6182 B0FC 3E              >     wai 
6183 B0FD 49              I     rola 
6184 B0FE 54              T     lsrb 
6185 B0FF 60 07           `.    neg 07,x
6186 B101 12              .     brset 
6187 B102 1D 3D 48        ...   bclr 3d,x, #48
6188 B105 53              S     comb 
6189 B106 5E              ^     illegal 
6190 B107 06              .     tap 
6191 B108 11              .     cba 
6192 B109 1C 27 47        ...   bset 27,x, #47    ; fixed by ./fixbset.pl - verify me
6193 B10C 52              R     illegal 
6194 B10D 5D              ]     tstb 
6195 B10E 04              .     lsrd 
6196 B10F 10              .     sba 
6197 B110 1B              .     aba 
6198 B111 26 31           &1    bne 31
6199 B113 51              Q     illegal 
6200 B114 5C              \     incb 
6201 B115 03              .     fdiv 
6202 B116 0E              .     cli 
6203 B117 1A              .     illegal 
6204 B118 25 30           %0    bcs 30
6205 B11A 3B              ;     rti 
6206 B11B 5B              [     illegal 
6207 B11C 02              .     idiv 
6208 B11D 0D              .     sec 
6209 B11E 18              .     illegal 
6210 B11F 24 2F           $/    bcc 2f
6211 B121 3A              :     abx 
6212 B122 45              E     illegal 
6213
6214 table of powers of 2
6215
6216 B123 00 01 02 04 08
6217 B128 10 20 40 80
6218
6219 B12C 00
6220 B12D 00              .     test 
6221 B12E 2A 2A           **    bpl 2a       ;"**ERROR***"
6222 B130 45              E     illegal 
6223 B131 52              R     illegal 
6224 B132 52              R     illegal 
6225 B133 4F              O     clra 
6226 B134 52              R     illegal 
6227 B135 2A 2A           **    bpl 2a
6228 B137 2A 00           *.    bpl 00
6229
6230 B139 2A 2A           **    bpl 2a
6231 B13B 2A 2A           **    bpl 2a
6232 B13D 2A 2A           **    bpl 2a
6233 B13F 2A 2A           **    bpl 2a
6234 B141 2A 2A           **    bpl 2a
6235 B143 00              .     test 
6236 B144 4F              O     clra 
6237 B145 4F              O     clra 
6238 B146 4F              O     clra 
6239 B147 4F              O     clra 
6240 B148 4F              O     clra 
6241 B149 4F              O     clra 
6242 B14A 4F              O     clra 
6243 B14B 4F              O     clra 
6244 B14C 4F              O     clra 
6245 B14D 4F              O     clra 
6246 B14E 00              .     test 
6247 B14F 52              R     illegal 
6248 B150 41              A     illegal 
6249 B151 4D              M     tsta 
6250 B152 20 20                 bra 20
6251 B154 20 46            F    bra 46
6252 B156 41              A     illegal 
6253 B157 49              I     rola 
6254 B158 4C              L     inca 
6255 B159 00              .     test 
6256 B15A 50              P     negb 
6257 B15B 32              2     pula 
6258 B15C 20 20                 bra 20
6259 B15E 20 20                 bra 20
6260 B160 46              F     rora 
6261 B161 41              A     illegal 
6262 B162 49              I     rola 
6263 B163 4C              L     inca 
6264 B164 00              .     test 
6265 B165 50              P     negb 
6266 B166 32              2     pula 
6267 B167 2D 50           -P    blt 50
6268 B169 33              3     pulb 
6269 B16A 20 46            F    bra 46
6270 B16C 41              A     illegal 
6271 B16D 49              I     rola 
6272 B16E 4C              L     inca 
6273 B16F 00              .     test 
6274 B170 50              P     negb 
6275 B171 32              2     pula 
6276 B172 2D 50           -P    blt 50
6277 B174 38              8     pulx 
6278 B175 20 46            F    bra 46
6279 B177 41              A     illegal 
6280 B178 49              I     rola 
6281 B179 4C              L     inca 
6282 B17A 00              .     test 
6283 B17B 50              P     negb 
6284 B17C 32              2     pula 
6285 B17D 2D 50           -P    blt 50
6286 B17F 39              9     rts 
6287
6288 B180 20 46            F    bra 46
6289 B182 41              A     illegal 
6290 B183 49              I     rola 
6291 B184 4C              L     inca 
6292 B185 00              .     test 
6293 B186 50              P     negb 
6294 B187 33              3     pulb 
6295 B188 2D 50           -P    blt 50
6296 B18A 34              4     des 
6297 B18B 20 46            F    bra 46
6298 B18D 41              A     illegal 
6299 B18E 49              I     rola 
6300 B18F 4C              L     inca 
6301 B190 00              .     test 
6302 B191 50              P     negb 
6303 B192 35              5     txs 
6304 B193 20 20                 bra 20
6305 B195 20 20                 bra 20
6306 B197 46              F     rora 
6307 B198 41              A     illegal 
6308 B199 49              I     rola 
6309 B19A 4C              L     inca 
6310 B19B 00              .     test 
6311 B19C 50              P     negb 
6312 B19D 35              5     txs 
6313 B19E 2D 50           -P    blt 50
6314 B1A0 37              7     pshb 
6315 B1A1 20 46            F    bra 46
6316 B1A3 41              A     illegal 
6317 B1A4 49              I     rola 
6318 B1A5 4C              L     inca 
6319 B1A6 00              .     test 
6320 B1A7 50              P     negb 
6321 B1A8 37              7     pshb 
6322 B1A9 20 20                 bra 20
6323 B1AB 20 20                 bra 20
6324 B1AD 46              F     rora 
6325 B1AE 41              A     illegal 
6326 B1AF 49              I     rola 
6327 B1B0 4C              L     inca 
6328 B1B1 00              .     test 
6329 B1B2 50              P     negb 
6330 B1B3 37              7     pshb 
6331 B1B4 2D 50           -P    blt 50
6332 B1B6 38              8     pulx 
6333 B1B7 20 46            F    bra 46
6334 B1B9 41              A     illegal 
6335 B1BA 49              I     rola 
6336 B1BB 4C              L     inca 
6337 B1BC 00              .     test 
6338 B1BD 2D 20           -     blt 20
6339 B1BF 50              P     negb 
6340 B1C0 41              A     illegal 
6341 B1C1 53              S     comb 
6342 B1C2 53              S     comb 
6343 B1C3 45              E     illegal 
6344 B1C4 44              D     lsra 
6345 B1C5 20 2D            -    bra 2d
6346 B1C7 00              .     test 
6347 B1C8 09              .     dex 
6348 B1C9 12              .     brset 
6349 B1CA 1B              .     aba 
6350 B1CB 24 2C           $,    bcc 2c
6351 B1CD 35              5     txs 
6352 B1CE 3E              >     wai 
6353 B1CF 47              G     asra 
6354 B1D0 54              T     lsrb 
6355 B1D1 48              H     asla 
6356 B1D2 41              A     illegal 
6357 B1D3 4E              N     illegal 
6358 B1D4 4B              K     illegal 
6359 B1D5 20 59            Y    bra 59
6360 B1D7 4F              O     clra 
6361 B1D8 55              U     illegal 
6362 B1D9 20 46            F    bra 46
6363 B1DB 4F              O     clra 
6364 B1DC 52              R     illegal 
6365 B1DD 20 59            Y    bra 59
6366 B1DF 4F              O     clra 
6367 B1E0 55              U     illegal 
6368 B1E1 52              R     illegal 
6369 B1E2 20 50            P    bra 50
6370 B1E4 41              A     illegal 
6371 B1E5 54              T     lsrb 
6372 B1E6 52              R     illegal 
6373 B1E7 4F              O     clra 
6374 B1E8 4E              N     illegal 
6375 B1E9 41              A     illegal 
6376 B1EA 47              G     asra 
6377 B1EB 45              E     illegal 
6378 B1EC 20 20                 bra 20
6379 B1EE 00              .     test 
6380
6381 B1EF 20 52            R    bra 52
6382 B1F1 4F              O     clra 
6383 B1F2 57              W     asrb 
6384 B1F3 45              E     illegal 
6385 B1F4 20 49            I    bra 49
6386 B1F6 4E              N     illegal 
6387 B1F7 54              T     lsrb 
6388 B1F8 20 00            .    bra 00
6389
6390 B1FA 43              C     coma 
6391 B1FB 4F              O     clra 
6392 B1FC 50              P     negb 
6393 B1FD 59              Y     rolb 
6394 B1FE 52              R     illegal 
6395 B1FF 49              I     rola 
6396 B200 47              G     asra 
6397 B201 48              H     asla 
6398 B202 54              T     lsrb 
6399 B203 20 00            .    bra 00
6400
6401 B205 20 20                 bra 20
6402 B207 20 31            1    bra 31
6403 B209 39              9     rts 
6404 B20A 39              9     rts 
6405 B20B 33              3     pulb 
6406 B20C 20 20                 bra 20
6407 B20E 20 00            .    bra 00
6408
6409 B210 35              5     txs 
6410 B211 39              9     rts 
6411 B212 30              0     tsx 
6412 B213 30              0     tsx 
6413 B214 20 56            V    bra 56
6414 B216 45              E     illegal 
6415 B217 52              R     illegal 
6416 B218 20 35            5    bra 35
6417 B21A 00              .     test 
6418
6419 B21B 20 20                 bra 20
6420 B21D 20 20                 bra 20
6421 B21F 20 20                 bra 20
6422 B221 20 20                 bra 20
6423 B223 20 52            R    bra 52
6424 B225 4F              O     clra 
6425 B226 57              W     asrb 
6426 B227 45              E     illegal 
6427 B228 20 20                 bra 20
6428 B22A 49              I     rola 
6429 B22B 4E              N     illegal 
6430 B22C 54              T     lsrb 
6431 B22D 45              E     illegal 
6432 B22E 52              R     illegal 
6433 B22F 4E              N     illegal 
6434 B230 41              A     illegal 
6435 B231 54              T     lsrb 
6436 B232 49              I     rola 
6437 B233 4F              O     clra 
6438 B234 4E              N     illegal 
6439 B235 41              A     illegal 
6440 B236 4C              L     inca 
6441 B237 00              .     test 
6442 B238 20 20                 bra 20
6443 B23A 20 20                 bra 20
6444 B23C 20 20                 bra 20
6445 B23E 20 20                 bra 20
6446 B240 2D 2D           --    blt 2d
6447 B242 2D 2D           --    blt 2d
6448 B244 2D 2D           --    blt 2d
6449 B246 2D 2D           --    blt 2d
6450 B248 2D 2D           --    blt 2d
6451 B24A 2D 2D           --    blt 2d
6452 B24C 2D 2D           --    blt 2d
6453 B24E 2D 2D           --    blt 2d
6454 B250 2D 2D           --    blt 2d
6455 B252 2D 2D           --    blt 2d
6456 B254 2D 00           -.    blt 00
6457 B256 20 20                 bra 20
6458 B258 20 20                 bra 20
6459 B25A 20 20                 bra 20
6460 B25C 20 20                 bra 20
6461 B25E 35              5     txs 
6462 B25F 39              9     rts 
6463 B260 30              0     tsx 
6464 B261 30              0     tsx 
6465 B262 20 53            S    bra 53
6466 B264 4F              O     clra 
6467 B265 46              F     rora 
6468 B266 54              T     lsrb 
6469 B267 57              W     asrb 
6470 B268 41              A     illegal 
6471 B269 52              R     illegal 
6472 B26A 45              E     illegal 
6473 B26B 20 56            V    bra 56
6474 B26D 45              E     illegal 
6475 B26E 52              R     illegal 
6476 B26F 2E 20           .     bgt 20
6477 B271 35              5     txs 
6478 B272 20 20                 bra 20
6479 B274 00              .     test 
6480 B275 20 20                 bra 20
6481 B277 20 20                 bra 20
6482 B279 20 20                 bra 20
6483 B27B 20 20                 bra 20
6484 B27D 20 20                 bra 20
6485 B27F 20 41            A    bra 41
6486 B281 43              C     coma 
6487 B282 43              C     coma 
6488 B283 4F              O     clra 
6489 B284 55              U     illegal 
6490 B285 4E              N     illegal 
6491 B286 54              T     lsrb 
6492 B287 20 20                 bra 20
6493 B289 52              R     illegal 
6494 B28A 45              E     illegal 
6495 B28B 43              C     coma 
6496 B28C 4F              O     clra 
6497 B28D 52              R     illegal 
6498 B28E 44              D     lsra 
6499 B28F 00              .     test 
6500 B290 53              S     comb 
6501 B291 45              E     illegal 
6502 B292 52              R     illegal 
6503 B293 49              I     rola 
6504 B294 41              A     illegal 
6505 B295 4C              L     inca 
6506 B296 20 20                 bra 20
6507 B298 23 20           #     bls 20
6508 B29A 20 20                 bra 20
6509 B29C 20 20                 bra 20
6510 B29E 20 2D            -    bra 2d
6511 B2A0 20 00            .    bra 00
6512 B2A2 4D              M     tsta 
6513 B2A3 41              A     illegal 
6514 B2A4 43              C     coma 
6515 B2A5 48              H     asla 
6516 B2A6 49              I     rola 
6517 B2A7 4E              N     illegal 
6518 B2A8 45              E     illegal 
6519 B2A9 20 49            I    bra 49
6520 B2AB 44              D     lsra 
6521 B2AC 20 20                 bra 20
6522 B2AE 20 20                 bra 20
6523 B2B0 20 2D            -    bra 2d
6524 B2B2 20 00            .    bra 00
6525 B2B4 41              A     illegal 
6526 B2B5 55              U     illegal 
6527 B2B6 44              D     lsra 
6528 B2B7 49              I     rola 
6529 B2B8 54              T     lsrb 
6530 B2B9 20 4E            N    bra 4e
6531 B2BB 55              U     illegal 
6532 B2BC 4D              M     tsta 
6533 B2BD 42              B     illegal 
6534 B2BE 45              E     illegal 
6535 B2BF 52              R     illegal 
6536 B2C0 20 20                 bra 20
6537 B2C2 20 20                 bra 20
6538 B2C4 20 00            .    bra 00
6539 B2C6 53              S     comb 
6540 B2C7 41              A     illegal 
6541 B2C8 4C              L     inca 
6542 B2C9 45              E     illegal 
6543 B2CA 53              S     comb 
6544 B2CB 20 20                 bra 20
6545 B2CD 28 52           (R    bvc 52
6546 B2CF 29 20           )     bvs 20
6547 B2D1 20 20                 bra 20
6548 B2D3 20 20                 bra 20
6549 B2D5 2D 20           -     blt 20
6550 B2D7 00              .     test 
6551 B2D8 53              S     comb 
6552 B2D9 41              A     illegal 
6553 B2DA 4C              L     inca 
6554 B2DB 45              E     illegal 
6555 B2DC 53              S     comb 
6556 B2DD 20 20                 bra 20
6557 B2DF 28 4E           (N    bvc 4e
6558 B2E1 29 20           )     bvs 20
6559 B2E3 20 20                 bra 20
6560 B2E5 20 20                 bra 20
6561 B2E7 2D 20           -     blt 20
6562 B2E9 00              .     test 
6563 B2EA 42              B     illegal 
6564 B2EB 41              A     illegal 
6565 B2EC 47              G     asra 
6566 B2ED 20 54            T    bra 54
6567 B2EF 4F              O     clra 
6568 B2F0 54              T     lsrb 
6569 B2F1 41              A     illegal 
6570 B2F2 4C              L     inca 
6571 B2F3 20 20                 bra 20
6572 B2F5 20 20                 bra 20
6573 B2F7 20 20                 bra 20
6574 B2F9 2D 20           -     blt 20
6575 B2FB 00              .     test 
6576 B2FC 43              C     coma 
6577 B2FD 41              A     illegal 
6578 B2FE 53              S     comb 
6579 B2FF 48              H     asla 
6580 B300 20 42            B    bra 42
6581 B302 4F              O     clra 
6582 B303 58              X     aslb 
6583 B304 20 20                 bra 20
6584 B306 20 20                 bra 20
6585 B308 20 20                 bra 20
6586 B30A 20 2D            -    bra 2d
6587 B30C 20 00            .    bra 00
6588 B30E 43              C     coma 
6589 B30F 41              A     illegal 
6590 B310 52              R     illegal 
6591 B311 44              D     lsra 
6592 B312 20 53            S    bra 53
6593 B314 41              A     illegal 
6594 B315 4C              L     inca 
6595 B316 45              E     illegal 
6596 B317 53              S     comb 
6597 B318 20 20                 bra 20
6598 B31A 20 20                 bra 20
6599 B31C 20 2D            -    bra 2d
6600 B31E 20 00            .    bra 00
6601 B320 42              B     illegal 
6602 B321 49              I     rola 
6603 B322 4C              L     inca 
6604 B323 4C              L     inca 
6605 B324 53              S     comb 
6606 B325 20 49            I    bra 49
6607 B327 4E              N     illegal 
6608 B328 20 53            S    bra 53
6609 B32A 54              T     lsrb 
6610 B32B 41              A     illegal 
6611 B32C 43              C     coma 
6612 B32D 4B              K     illegal 
6613 B32E 45              E     illegal 
6614 B32F 52              R     illegal 
6615 B330 00              .     test 
6616 B331 20 20                 bra 20
6617 B333 20 20                 bra 20
6618 B335 42              B     illegal 
6619 B336 49              I     rola 
6620 B337 4C              L     inca 
6621 B338 4C              L     inca 
6622 B339 20 54            T    bra 54
6623 B33B 4F              O     clra 
6624 B33C 54              T     lsrb 
6625 B33D 41              A     illegal 
6626 B33E 4C              L     inca 
6627 B33F 20 2D            -    bra 2d
6628 B341 20 20                 bra 20
6629 B343 20 20                 bra 20
6630 B345 20 20                 bra 20
6631 B347 20 20                 bra 20
6632 B349 00              .     test 
6633 B34A 20 20                 bra 20
6634 B34C 20 20                 bra 20
6635 B34E 4F              O     clra 
6636 B34F 4E              N     illegal 
6637 B350 45              E     illegal 
6638 B351 53              S     comb 
6639 B352 20 20                 bra 20
6640 B354 20 20                 bra 20
6641 B356 20 20                 bra 20
6642 B358 20 2D            -    bra 2d
6643 B35A 20 00            .    bra 00
6644 B35C 20 20                 bra 20
6645 B35E 20 20                 bra 20
6646 B360 54              T     lsrb 
6647 B361 57              W     asrb 
6648 B362 4F              O     clra 
6649 B363 53              S     comb 
6650 B364 20 20                 bra 20
6651 B366 20 20                 bra 20
6652 B368 20 20                 bra 20
6653 B36A 20 2D            -    bra 2d
6654 B36C 20 00            .    bra 00
6655 B36E 20 20                 bra 20
6656 B370 20 20                 bra 20
6657 B372 46              F     rora 
6658 B373 49              I     rola 
6659 B374 56              V     rorb 
6660 B375 45              E     illegal 
6661 B376 53              S     comb 
6662 B377 20 20                 bra 20
6663 B379 20 20                 bra 20
6664 B37B 20 20                 bra 20
6665 B37D 2D 20           -     blt 20
6666 B37F 00              .     test 
6667 B380 20 20                 bra 20
6668 B382 20 20                 bra 20
6669 B384 54              T     lsrb 
6670 B385 45              E     illegal 
6671 B386 4E              N     illegal 
6672 B387 53              S     comb 
6673 B388 20 20                 bra 20
6674 B38A 20 20                 bra 20
6675 B38C 20 20                 bra 20
6676 B38E 20 2D            -    bra 2d
6677 B390 20 00            .    bra 00
6678 B392 20 20                 bra 20
6679 B394 20 20                 bra 20
6680 B396 54              T     lsrb 
6681 B397 57              W     asrb 
6682 B398 45              E     illegal 
6683 B399 4E              N     illegal 
6684 B39A 54              T     lsrb 
6685 B39B 49              I     rola 
6686 B39C 45              E     illegal 
6687 B39D 53              S     comb 
6688 B39E 20 20                 bra 20
6689 B3A0 20 2D            -    bra 2d
6690 B3A2 20 00            .    bra 00
6691 B3A4 43              C     coma 
6692 B3A5 4F              O     clra 
6693 B3A6 49              I     rola 
6694 B3A7 4E              N     illegal 
6695 B3A8 53              S     comb 
6696 B3A9 20 49            I    bra 49
6697 B3AB 4E              N     illegal 
6698 B3AC 20 54            T    bra 54
6699 B3AE 55              U     illegal 
6700 B3AF 42              B     illegal 
6701 B3B0 45              E     illegal 
6702 B3B1 53              S     comb 
6703 B3B2 00              .     test 
6704 B3B3 20 20                 bra 20
6705 B3B5 20 20                 bra 20
6706 B3B7 54              T     lsrb 
6707 B3B8 55              U     illegal 
6708 B3B9 42              B     illegal 
6709 B3BA 45              E     illegal 
6710 B3BB 20 54            T    bra 54
6711 B3BD 4F              O     clra 
6712 B3BE 54              T     lsrb 
6713 B3BF 41              A     illegal 
6714 B3C0 4C              L     inca 
6715 B3C1 20 2D            -    bra 2d
6716 B3C3 20 20                 bra 20
6717 B3C5 20 20                 bra 20
6718 B3C7 20 20                 bra 20
6719 B3C9 00              .     test 
6720 B3CA 20 20                 bra 20
6721 B3CC 20 20                 bra 20
6722 B3CE 24 31           $1    bcc 31
6723 B3D0 20 43            C    bra 43
6724 B3D2 4F              O     clra 
6725 B3D3 49              I     rola 
6726 B3D4 4E              N     illegal 
6727 B3D5 20 20                 bra 20
6728 B3D7 20 20                 bra 20
6729 B3D9 2D 20           -     blt 20
6730 B3DB 00              .     test 
6731 B3DC 20 20                 bra 20
6732 B3DE 20 20                 bra 20
6733 B3E0 51              Q     illegal 
6734 B3E1 55              U     illegal 
6735 B3E2 41              A     illegal 
6736 B3E3 52              R     illegal 
6737 B3E4 54              T     lsrb 
6738 B3E5 45              E     illegal 
6739 B3E6 52              R     illegal 
6740 B3E7 53              S     comb 
6741 B3E8 20 20                 bra 20
6742 B3EA 20 2D            -    bra 2d
6743 B3EC 20 00            .    bra 00
6744 B3EE 20 20                 bra 20
6745 B3F0 20 20                 bra 20
6746 B3F2 44              D     lsra 
6747 B3F3 49              I     rola 
6748 B3F4 4D              M     tsta 
6749 B3F5 45              E     illegal 
6750 B3F6 53              S     comb 
6751 B3F7 20 20                 bra 20
6752 B3F9 20 20                 bra 20
6753 B3FB 20 20                 bra 20
6754 B3FD 2D 20           -     blt 20
6755 B3FF 00              .     test 
6756 B400 20 20                 bra 20
6757 B402 20 20                 bra 20
6758 B404 4E              N     illegal 
6759 B405 49              I     rola 
6760 B406 43              C     coma 
6761 B407 4B              K     illegal 
6762 B408 45              E     illegal 
6763 B409 4C              L     inca 
6764 B40A 53              S     comb 
6765 B40B 20 20                 bra 20
6766 B40D 20 20                 bra 20
6767 B40F 2D 20           -     blt 20
6768 B411 00              .     test 
6769 B412 57              W     asrb 
6770 B413 49              I     rola 
6771 B414 4E              N     illegal 
6772 B415 2D 53           -S    blt 53
6773 B417 4E              N     illegal 
6774 B418 4B              K     illegal 
6775 B419 20 56            V    bra 56
6776 B41B 45              E     illegal 
6777 B41C 4E              N     illegal 
6778 B41D 44              D     lsra 
6779 B41E 53              S     comb 
6780 B41F 20 20                 bra 20
6781 B421 2D 20           -     blt 20
6782 B423 00              .     test 
6783 B424 53              S     comb 
6784 B425 48              H     asla 
6785 B426 4F              O     clra 
6786 B427 50              P     negb 
6787 B428 50              P     negb 
6788 B429 45              E     illegal 
6789 B42A 52              R     illegal 
6790 B42B 20 56            V    bra 56
6791 B42D 45              E     illegal 
6792 B42E 4E              N     illegal 
6793 B42F 44              D     lsra 
6794 B430 53              S     comb 
6795 B431 20 20                 bra 20
6796 B433 2D 20           -     blt 20
6797 B435 00              .     test 
6798 B436 50              P     negb 
6799 B437 52              R     illegal 
6800 B438 4F              O     clra 
6801 B439 4D              M     tsta 
6802 B43A 4F              O     clra 
6803 B43B 20 56            V    bra 56
6804 B43D 45              E     illegal 
6805 B43E 4E              N     illegal 
6806 B43F 44              D     lsra 
6807 B440 53              S     comb 
6808 B441 20 20                 bra 20
6809 B443 20 20                 bra 20
6810 B445 2D 20           -     blt 20
6811 B447 00              .     test 
6812 B448 46              F     rora 
6813 B449 52              R     illegal 
6814 B44A 45              E     illegal 
6815 B44B 45              E     illegal 
6816 B44C 20 20                 bra 20
6817 B44E 56              V     rorb 
6818 B44F 45              E     illegal 
6819 B450 4E              N     illegal 
6820 B451 44              D     lsra 
6821 B452 53              S     comb 
6822 B453 20 20                 bra 20
6823 B455 20 20                 bra 20
6824 B457 2D 20           -     blt 20
6825 B459 00              .     test 
6826 B45A 56              V     rorb 
6827 B45B 45              E     illegal 
6828 B45C 4E              N     illegal 
6829 B45D 44              D     lsra 
6830 B45E 53              S     comb 
6831 B45F 20 50            P    bra 50
6832 B461 45              E     illegal 
6833 B462 52              R     illegal 
6834 B463 20 50            P    bra 50
6835 B465 52              R     illegal 
6836 B466 4F              O     clra 
6837 B467 44              D     lsra 
6838 B468 55              U     illegal 
6839 B469 43              C     coma 
6840 B46A 54              T     lsrb 
6841 B46B 20 43            C    bra 43
6842 B46D 4F              O     clra 
6843 B46E 44              D     lsra 
6844 B46F 45              E     illegal 
6845 B470 00              .     test 
6846
6847 B471 20 20                 bra 20
6848 B473 20 20                 bra 20
6849 B475 43              C     coma 
6850 B476 4F              O     clra 
6851 B477 44              D     lsra 
6852 B478 45              E     illegal 
6853 B479 20 00            .    bra 00
6854 B47B 56              V     rorb 
6855 B47C 45              E     illegal 
6856 B47D 4E              N     illegal 
6857 B47E 44              D     lsra 
6858 B47F 53              S     comb 
6859 B480 20 2D            -    bra 2d
6860 B482 20 00            .    bra 00
6861 B484 56              V     rorb 
6862 B485 45              E     illegal 
6863 B486 4E              N     illegal 
6864 B487 44              D     lsra 
6865 B488 53              S     comb 
6866 B489 2F 43           /C    ble 43
6867 B48B 4F              O     clra 
6868 B48C 44              D     lsra 
6869 B48D 45              E     illegal 
6870 B48E 00              .     test 
6871 B48F 41              A     illegal 
6872 B490 42              B     illegal 
6873 B491 43              C     coma 
6874 B492 44              D     lsra 
6875 B493 45              E     illegal 
6876 B494 46              F     rora 
6877 B495 47              G     asra 
6878 B496 48              H     asla 
6879 B497 49              I     rola 
6880 B498 4A              J     deca 
6881 B499 4B              K     illegal 
6882 B49A 4C              L     inca 
6883 B49B 4D              M     tsta 
6884 B49C 4E              N     illegal 
6885 B49D 4F              O     clra 
6886 B49E 50              P     negb 
6887 B49F 51              Q     illegal 
6888 B4A0 52              R     illegal 
6889 B4A1 53              S     comb 
6890 B4A2 54              T     lsrb 
6891 B4A3 55              U     illegal 
6892 B4A4 56              V     rorb 
6893 B4A5 57              W     asrb 
6894 B4A6 58              X     aslb 
6895 B4A7 59              Y     rolb 
6896 B4A8 5A              Z     decb 
6897 B4A9 30              0     tsx 
6898 B4AA 31              1     ins 
6899 B4AB 32              2     pula 
6900 B4AC 33              3     pulb 
6901 B4AD 34              4     des 
6902 B4AE 35              5     txs 
6903 B4AF 36              6     psha 
6904 B4B0 37              7     pshb 
6905 B4B1 38              8     pulx 
6906 B4B2 39              9     rts 
6907 B4B3 24 2A           $*    bcc 2a
6908 B4B5 20 00            .    bra 00
6909 B4B7 01              .     nop 
6910 B4B8 02              .     idiv 
6911 B4B9 04              .     lsrd 
6912 B4BA 08              .     inx 
6913 B4BB 10              .     sba 
6914 B4BC 20 40            @    bra 40
6915 B4BE 80 FF           ..    suba #ff
6916 B4C0 FF FF FF        ...   stx ffff
6917 B4C3 FF FF FF        ...   stx ffff
6918 B4C6 FF FF FF        ...   stx ffff
6919 B4C9 FF FF FF        ...   stx ffff
6920 B4CC FF FF FF        ...   stx ffff
6921 B4CF FF FF FF        ...   stx ffff
6922 B4D2 FF FF FF        ...   stx ffff
6923 B4D5 FF FF FF        ...   stx ffff
6924 B4D8 FF FF FF        ...   stx ffff
6925 B4DB FF FF FF        ...   stx ffff
6926 B4DE FF FF FF        ...   stx ffff
6927 B4E1 FF FF FF        ...   stx ffff
6928 B4E4 FF FF FF        ...   stx ffff
6929 B4E7 FF FF FF        ...   stx ffff
6930 B4EA FF FF FF        ...   stx ffff
6931 B4ED FF FF FF        ...   stx ffff
6932 B4F0 FF FF FF        ...   stx ffff
6933 B4F3 FF FF FF        ...   stx ffff
6934 B4F6 FF FF FF        ...   stx ffff
6935 B4F9 FF FF FF        ...   stx ffff
6936 B4FC FF FF FF        ...   stx ffff
6937 B4FF FF FF FF        ...   stx ffff
6938 B502 FF FF FF        ...   stx ffff
6939 B505 FF FF FF        ...   stx ffff
6940 B508 FF FF FF        ...   stx ffff
6941 B50B FF FF FF        ...   stx ffff
6942 B50E FF FF FF        ...   stx ffff
6943 B511 FF FF FF        ...   stx ffff
6944 B514 FF FF FF        ...   stx ffff
6945 B517 FF FF FF        ...   stx ffff
6946 B51A FF FF FF        ...   stx ffff
6947 B51D FF FF FF        ...   stx ffff
6948 B520 FF FF FF        ...   stx ffff
6949 B523 FF FF FF        ...   stx ffff
6950 B526 FF FF FF        ...   stx ffff
6951 B529 FF FF FF        ...   stx ffff
6952 B52C FF FF FF        ...   stx ffff
6953 B52F FF FF FF        ...   stx ffff
6954 B532 FF FF FF        ...   stx ffff
6955 B535 FF FF FF        ...   stx ffff
6956 B538 FF FF FF        ...   stx ffff
6957 B53B FF FF FF        ...   stx ffff
6958 B53E FF FF FF        ...   stx ffff
6959 B541 FF FF FF        ...   stx ffff
6960 B544 FF FF FF        ...   stx ffff
6961 B547 FF FF FF        ...   stx ffff
6962 B54A FF FF FF        ...   stx ffff
6963 B54D FF FF FF        ...   stx ffff
6964 B550 FF FF FF        ...   stx ffff
6965 B553 FF FF FF        ...   stx ffff
6966 B556 FF FF FF        ...   stx ffff
6967 B559 FF FF FF        ...   stx ffff
6968 B55C FF FF FF        ...   stx ffff
6969 B55F FF FF FF        ...   stx ffff
6970 B562 FF FF FF        ...   stx ffff
6971 B565 FF FF FF        ...   stx ffff
6972 B568 FF FF FF        ...   stx ffff
6973 B56B FF FF FF        ...   stx ffff
6974 B56E FF FF FF        ...   stx ffff
6975 B571 FF FF FF        ...   stx ffff
6976 B574 FF FF FF        ...   stx ffff
6977 B577 FF FF FF        ...   stx ffff
6978 B57A FF FF FF        ...   stx ffff
6979 B57D FF FF FF        ...   stx ffff
6980 B580 FF FF FF        ...   stx ffff
6981 B583 FF FF FF        ...   stx ffff
6982 B586 FF FF FF        ...   stx ffff
6983 B589 FF FF FF        ...   stx ffff
6984 B58C FF FF FF        ...   stx ffff
6985 B58F FF FF FF        ...   stx ffff
6986 B592 FF FF FF        ...   stx ffff
6987 B595 FF FF FF        ...   stx ffff
6988 B598 FF FF FF        ...   stx ffff
6989 B59B FF FF FF        ...   stx ffff
6990 B59E FF FF FF        ...   stx ffff
6991 B5A1 FF FF FF        ...   stx ffff
6992 B5A4 FF FF FF        ...   stx ffff
6993 B5A7 FF FF FF        ...   stx ffff
6994 B5AA FF FF FF        ...   stx ffff
6995 B5AD FF FF FF        ...   stx ffff
6996 B5B0 FF FF FF        ...   stx ffff
6997 B5B3 FF FF FF        ...   stx ffff
6998 B5B6 FF FF FF        ...   stx ffff
6999 B5B9 FF FF FF        ...   stx ffff
7000 B5BC FF FF FF        ...   stx ffff
7001 B5BF FF FF FF        ...   stx ffff
7002 B5C2 FF FF FF        ...   stx ffff
7003 B5C5 FF FF FF        ...   stx ffff
7004 B5C8 FF FF FF        ...   stx ffff
7005 B5CB FF FF FF        ...   stx ffff
7006 B5CE FF FF FF        ...   stx ffff
7007 B5D1 FF FF FF        ...   stx ffff
7008 B5D4 FF FF FF        ...   stx ffff
7009 B5D7 FF FF FF        ...   stx ffff
7010 B5DA FF FF FF        ...   stx ffff
7011 B5DD FF FF FF        ...   stx ffff
7012 B5E0 FF FF FF        ...   stx ffff
7013 B5E3 FF FF FF        ...   stx ffff
7014 B5E6 FF FF FF        ...   stx ffff
7015 B5E9 FF FF FF        ...   stx ffff
7016 B5EC FF FF FF        ...   stx ffff
7017 B5EF FF FF FF        ...   stx ffff
7018 B5F2 FF FF FF        ...   stx ffff
7019 B5F5 FF FF FF        ...   stx ffff
7020 B5F8 FF FF FF        ...   stx ffff
7021 B5FB FF FF FF        ...   stx ffff
7022 B5FE FF FF FF        ...   stx ffff
7023 B601 FF FF FF        ...   stx ffff
7024 B604 FF FF FF        ...   stx ffff
7025 B607 FF FF FF        ...   stx ffff
7026 B60A FF FF FF        ...   stx ffff
7027 B60D FF FF FF        ...   stx ffff
7028 B610 FF FF FF        ...   stx ffff
7029 B613 FF FF FF        ...   stx ffff
7030 B616 FF FF FF        ...   stx ffff
7031 B619 FF FF FF        ...   stx ffff
7032 B61C FF FF FF        ...   stx ffff
7033 B61F FF FF FF        ...   stx ffff
7034 B622 FF FF FF        ...   stx ffff
7035 B625 FF FF FF        ...   stx ffff
7036 B628 FF FF FF        ...   stx ffff
7037 B62B FF FF FF        ...   stx ffff
7038 B62E FF FF FF        ...   stx ffff
7039 B631 FF FF FF        ...   stx ffff
7040 B634 FF FF FF        ...   stx ffff
7041 B637 FF FF FF        ...   stx ffff
7042 B63A FF FF FF        ...   stx ffff
7043 B63D FF FF FF        ...   stx ffff
7044 B640 FF FF FF        ...   stx ffff
7045 B643 FF FF FF        ...   stx ffff
7046 B646 FF FF FF        ...   stx ffff
7047 B649 FF FF FF        ...   stx ffff
7048 B64C FF FF FF        ...   stx ffff
7049 B64F FF FF FF        ...   stx ffff
7050 B652 FF FF FF        ...   stx ffff
7051 B655 FF FF FF        ...   stx ffff
7052 B658 FF FF FF        ...   stx ffff
7053 B65B FF FF FF        ...   stx ffff
7054 B65E FF FF FF        ...   stx ffff
7055 B661 FF FF FF        ...   stx ffff
7056 B664 FF FF FF        ...   stx ffff
7057 B667 FF FF FF        ...   stx ffff
7058 B66A FF FF FF        ...   stx ffff
7059 B66D FF FF FF        ...   stx ffff
7060 B670 FF FF FF        ...   stx ffff
7061 B673 FF FF FF        ...   stx ffff
7062 B676 FF FF FF        ...   stx ffff
7063 B679 FF FF FF        ...   stx ffff
7064 B67C FF FF FF        ...   stx ffff
7065 B67F FF FF FF        ...   stx ffff
7066 B682 FF FF FF        ...   stx ffff
7067 B685 FF FF FF        ...   stx ffff
7068 B688 FF FF FF        ...   stx ffff
7069 B68B FF FF FF        ...   stx ffff
7070 B68E FF FF FF        ...   stx ffff
7071 B691 FF FF FF        ...   stx ffff
7072 B694 FF FF FF        ...   stx ffff
7073 B697 FF FF FF        ...   stx ffff
7074 B69A FF FF FF        ...   stx ffff
7075 B69D FF FF FF        ...   stx ffff
7076 B6A0 FF FF FF        ...   stx ffff
7077 B6A3 FF FF FF        ...   stx ffff
7078 B6A6 FF FF FF        ...   stx ffff
7079 B6A9 FF FF FF        ...   stx ffff
7080 B6AC FF FF FF        ...   stx ffff
7081 B6AF FF FF FF        ...   stx ffff
7082 B6B2 FF FF FF        ...   stx ffff
7083 B6B5 FF FF FF        ...   stx ffff
7084 B6B8 FF FF FF        ...   stx ffff
7085 B6BB FF FF FF        ...   stx ffff
7086 B6BE FF FF FF        ...   stx ffff
7087 B6C1 FF FF FF        ...   stx ffff
7088 B6C4 FF FF FF        ...   stx ffff
7089 B6C7 FF FF FF        ...   stx ffff
7090 B6CA FF FF FF        ...   stx ffff
7091 B6CD FF FF FF        ...   stx ffff
7092 B6D0 FF FF FF        ...   stx ffff
7093 B6D3 FF FF FF        ...   stx ffff
7094 B6D6 FF FF FF        ...   stx ffff
7095 B6D9 FF FF FF        ...   stx ffff
7096 B6DC FF FF FF        ...   stx ffff
7097 B6DF FF FF FF        ...   stx ffff
7098 B6E2 FF FF FF        ...   stx ffff
7099 B6E5 FF FF FF        ...   stx ffff
7100 B6E8 FF FF FF        ...   stx ffff
7101 B6EB FF FF FF        ...   stx ffff
7102 B6EE FF FF FF        ...   stx ffff
7103 B6F1 FF FF FF        ...   stx ffff
7104 B6F4 FF FF FF        ...   stx ffff
7105 B6F7 FF FF FF        ...   stx ffff
7106 B6FA FF FF FF        ...   stx ffff
7107 B6FD FF FF FF        ...   stx ffff
7108 B700 FF FF FF        ...   stx ffff
7109 B703 FF FF FF        ...   stx ffff
7110 B706 FF FF FF        ...   stx ffff
7111 B709 FF FF FF        ...   stx ffff
7112 B70C FF FF FF        ...   stx ffff
7113 B70F FF FF FF        ...   stx ffff
7114 B712 FF FF FF        ...   stx ffff
7115 B715 FF FF FF        ...   stx ffff
7116 B718 FF FF FF        ...   stx ffff
7117 B71B FF FF FF        ...   stx ffff
7118 B71E FF FF FF        ...   stx ffff
7119 B721 FF FF FF        ...   stx ffff
7120 B724 FF FF FF        ...   stx ffff
7121 B727 FF FF FF        ...   stx ffff
7122 B72A FF FF FF        ...   stx ffff
7123 B72D FF FF FF        ...   stx ffff
7124 B730 FF FF FF        ...   stx ffff
7125 B733 FF FF FF        ...   stx ffff
7126 B736 FF FF FF        ...   stx ffff
7127 B739 FF FF FF        ...   stx ffff
7128 B73C FF FF FF        ...   stx ffff
7129 B73F FF FF FF        ...   stx ffff
7130 B742 FF FF FF        ...   stx ffff
7131 B745 FF FF FF        ...   stx ffff
7132 B748 FF FF FF        ...   stx ffff
7133 B74B FF FF FF        ...   stx ffff
7134 B74E FF FF FF        ...   stx ffff
7135 B751 FF FF FF        ...   stx ffff
7136 B754 FF FF FF        ...   stx ffff
7137 B757 FF FF FF        ...   stx ffff
7138 B75A FF FF FF        ...   stx ffff
7139 B75D FF FF FF        ...   stx ffff
7140 B760 FF FF FF        ...   stx ffff
7141 B763 FF FF FF        ...   stx ffff
7142 B766 FF FF FF        ...   stx ffff
7143 B769 FF FF FF        ...   stx ffff
7144 B76C FF FF FF        ...   stx ffff
7145 B76F FF FF FF        ...   stx ffff
7146 B772 FF FF FF        ...   stx ffff
7147 B775 FF FF FF        ...   stx ffff
7148 B778 FF FF FF        ...   stx ffff
7149 B77B FF FF FF        ...   stx ffff
7150 B77E FF FF FF        ...   stx ffff
7151 B781 FF FF FF        ...   stx ffff
7152 B784 FF FF FF        ...   stx ffff
7153 B787 FF FF FF        ...   stx ffff
7154 B78A FF FF FF        ...   stx ffff
7155 B78D FF FF FF        ...   stx ffff
7156 B790 FF FF FF        ...   stx ffff
7157 B793 FF FF FF        ...   stx ffff
7158 B796 FF FF FF        ...   stx ffff
7159 B799 FF FF FF        ...   stx ffff
7160 B79C FF FF FF        ...   stx ffff
7161 B79F FF FF FF        ...   stx ffff
7162 B7A2 FF FF FF        ...   stx ffff
7163 B7A5 FF FF FF        ...   stx ffff
7164 B7A8 FF FF FF        ...   stx ffff
7165 B7AB FF FF FF        ...   stx ffff
7166 B7AE FF FF FF        ...   stx ffff
7167 B7B1 FF FF FF        ...   stx ffff
7168 B7B4 FF FF FF        ...   stx ffff
7169 B7B7 FF FF FF        ...   stx ffff
7170 B7BA FF FF FF        ...   stx ffff
7171 B7BD FF FF FF        ...   stx ffff
7172 B7C0 FF FF FF        ...   stx ffff
7173 B7C3 FF FF FF        ...   stx ffff
7174 B7C6 FF FF FF        ...   stx ffff
7175 B7C9 FF FF FF        ...   stx ffff
7176 B7CC FF FF FF        ...   stx ffff
7177 B7CF FF FF FF        ...   stx ffff
7178 B7D2 FF FF FF        ...   stx ffff
7179 B7D5 FF FF FF        ...   stx ffff
7180 B7D8 FF FF FF        ...   stx ffff
7181 B7DB FF FF FF        ...   stx ffff
7182 B7DE FF FF FF        ...   stx ffff
7183 B7E1 FF FF FF        ...   stx ffff
7184 B7E4 FF FF FF        ...   stx ffff
7185 B7E7 FF FF FF        ...   stx ffff
7186 B7EA FF FF FF        ...   stx ffff
7187 B7ED FF FF FF        ...   stx ffff
7188 B7F0 FF FF FF        ...   stx ffff
7189 B7F3 FF FF FF        ...   stx ffff
7190 B7F6 FF FF FF        ...   stx ffff
7191 B7F9 FF FF FF        ...   stx ffff
7192 B7FC FF FF FF        ...   stx ffff
7193 B7FF FF              . 
7194
7195 jump201:
7196 B800 34              .     des
7197 B801 F6 0E 6D        ...   ldab 0e6d
7198 B804 C1 01           ..    cmpb #01
7199 B806 27 03           '.    beq 03
7200 B808 7E B9 2A        ~.*   jmp b92a             ;goto25
7201 B80B F6 0E 02        ...   ldab 0e02
7202 B80E C1 05           ..    cmpb #05     ; was the 3rd last keypress a 5?
7203 B810 27 03           '.    beq 03
7204 B812 7E B9 2A        ~.*   jmp b92a             ;goto25
7205 B815 F6 0E 03        ...   ldab 0e03
7206 B818 C1 05           ..    cmpb #05     ; was the 2nd last keypress a 5?
7207 B81A 27 03           '.    beq 03
7208 B81C 7E B9 2A        ~.*   jmp b92a             ;goto25
7209 B81F F6 0E 04        ...   ldab 0e04
7210 B822 C1 05           ..    cmpb #05     ; was the last keypress a 5?
7211 B824 27 03           '.    beq 03
7212 B826 7E B9 2A        ~.*   jmp b92a             ;goto25
7213 B829 F6 00 12        ...   ldab 0012
7214 B82C C4 20           .     andb #20     ; test the door switch
7215 B82E 27 03           '.    beq 03
7216 B830 7E B9 2A        ~.*   jmp b92a             ;goto25
7217 B833 30              0     tsx 
7218 B834 6F 00           o.    clr 00,x
7219 B836 F6 0E 6A        ..j   ldab 0e6a
7220 B839 C1 00           ..    cmpb #00
7221 B83B 22 33           "3    bhi 33
7222 B83D C6 64           .d    ldab #64
7223 B83F F7 0E 6A        ..j   stab 0e6a
7224 B842 7C 0E 05        |..   inc 0e05
7225 B845 F6 0E 05        ...   ldab 0e05
7226 B848 C1 64           .d    cmpb #64
7227 B84A 23 03           #.    bls 03
7228 B84C 7F 0E 05        ...   clr 0e05
7229 B84F F6 0E 05        ...   ldab 0e05
7230 B852 BD D4 68        ..h   jsr d468             ;jump51
7231 B855 83 00 00        ...   subd #0000
7232 B858 27 0B           '.    beq 0b
7233 B85A F6 0E 05        ...   ldab 0e05
7234 B85D BD D7 A0        ...   jsr d7a0             ;jump10
7235 B860 83 00 00        ...   subd #0000
7236 B863 27 09           '.    beq 09
7237 B865 30              0     tsx 
7238 B866 6C 00           l.    inc 00,x
7239 B868 E6 00           ..    ldab 00,x
7240 B86A C1 6E           .n    cmpb #6e     ; 110 or 01101110
7241 B86C 2D D4           -.    blt d4
7242 B86E 20 0A            .    bra 0a
7243 B870 F6 0E 6A        ..j   ldab 0e6a
7244 B873 C1 00           ..    cmpb #00
7245 B875 23 03           #.    bls 03
7246 B877 7A 0E 6A        z.j   dec 0e6a
7247 B87A F6 0E 05        ...   ldab 0e05
7248 B87D BD D4 68        ..h   jsr d468             ;jump51
7249 B880 83 00 00        ...   subd #0000
7250 B883 26 03           &.    bne 03
7251 B885 7E B9 0A        ~..   jmp b90a             ;goto26
7252 B888 F6 0E 05        ...   ldab 0e05
7253 B88B BD D7 A0        ...   jsr d7a0             ;jump10
7254 B88E 83 00 00        ...   subd #0000
7255 B891 26 77           &w    bne 77
7256 B893 BD BE 4B        ..K   jsr be4b             ;displayblank
7257 B896 C6 20           .     ldab #20    ; " "
7258 B898 F7 0B 9A        ...   stab 0b9a
7259 B89B C6 20           .     ldab #20    ; " "
7260 B89D F7 0B 99        ...   stab 0b99
7261 B8A0 C6 20           .     ldab #20    ; " "
7262 B8A2 F7 0B 98        ...   stab 0b98
7263 B8A5 F6 0E 05        ...   ldab 0e05   ; array index/10
7264 B8A8 4F              O     clra 
7265 B8A9 CE 00 0A        ...   ldx #000a
7266 B8AC 02              .     idiv 
7267 B8AD 8F              .     xgdx 
7268 B8AE CB 30           .0    addb #30    ; make it a digit
7269 B8B0 F7 0B 97        ...   stab 0b97
7270 B8B3 F6 0E 05        ...   ldab 0e05   ; array index%10
7271 B8B6 4F              O     clra 
7272 B8B7 CE 00 0A        ...   ldx #000a
7273 B8BA 02              .     idiv 
7274 B8BB CB 30           .0    addb #30     ; make it a digit
7275 B8BD F7 0B 96        ...   stab 0b96
7276 B8C0 C6 20           .     ldab #20     ; " "
7277 B8C2 F7 0B 95        ...   stab 0b95
7278 B8C5 C6 20           .     ldab #20     ; " "
7279 B8C7 F7 0B 94        ...   stab 0b94
7280 B8CA F6 0E 05        ...   ldab 0e05    ; array[index]/10
7281 B8CD 4F              O     clra 
7282 B8CE C3 0E 06        ...   addd #0e06
7283 B8D1 8F              .     xgdx 
7284 B8D2 E6 00           ..    ldab 00,x
7285 B8D4 4F              O     clra 
7286 B8D5 CE 00 0A        ...   ldx #000a
7287 B8D8 02              .     idiv 
7288 B8D9 8F              .     xgdx 
7289 B8DA CB 30           .0    addb #30     ; make it a digit
7290 B8DC F7 0B 93        ...   stab 0b93
7291 B8DF F6 0E 05        ...   ldab 0e05    ; array[index]%10
7292 B8E2 4F              O     clra 
7293 B8E3 C3 0E 06        ...   addd #0e06
7294 B8E6 8F              .     xgdx 
7295 B8E7 E6 00           ..    ldab 00,x
7296 B8E9 4F              O     clra 
7297 B8EA CE 00 0A        ...   ldx #000a
7298 B8ED 02              .     idiv 
7299 B8EE CB 30           .0    addb #30     ; make it a digit
7300 B8F0 F7 0B 92        ...   stab 0b92
7301 B8F3 C6 20           .     ldab #20     ; " "
7302 B8F5 F7 0B 91        ...   stab 0b91
7303 B8F8 C6 20           .     ldab #20     ; " "
7304 B8FA F7 0B 90        ...   stab 0b90
7305 B8FD 7F 00 2C        ..,   clr 002c
7306 B900 BD BE 01        ...   jsr be01             ;jump70
7307 B903 C6 0A           ..    ldab #0a
7308 B905 F7 00 2C        ..,   stab 002c
7309 B908 20 1D            .    bra 1d
7310 goto26:
7311 B90A BD BE 4B        ..K   jsr be4b             ;displayblank
7312 B90D C6 57           .W    ldab #57     ; "W"
7313 B90F F7 0B 96        ...   stab 0b96
7314 B912 C6 42           .B    ldab #42     ; "B"
7315 B914 F7 0B 95        ...   stab 0b95
7316 B917 C6 42           .B    ldab #42     ; "B"
7317 B919 F7 0B 94        ...   stab 0b94
7318 B91C 7F 00 2C        ..,   clr 002c
7319 B91F BD BE 01        ...   jsr be01             ;jump70 write to display
7320 B922 C6 0A           ..    ldab #0a
7321 B924 F7 00 2C        ..,   stab 002c
7322 B927 7E BA 81        ~..   jmp ba81             ;goto27
7323 goto25:
7324 B92A F6 0E 6D        ..m   ldab 0e6d
7325 B92D C1 01           ..    cmpb #01
7326 B92F 27 03           '.    beq 03
7327 B931 7E BA 81        ~..   jmp ba81             ;goto27
7328 B934 F6 0E 00        ...   ldab 0e00
7329 B937 C1 05           ..    cmpb #05
7330 B939 27 03           '.    beq 03
7331 B93B 7E BA 81        ~..   jmp ba81             ;goto27
7332 B93E F6 0E 01        ...   ldab 0e01
7333 B941 C1 05           ..    cmpb #05
7334 B943 27 03           '.    beq 03
7335 B945 7E BA 81        ~..   jmp ba81             ;goto27
7336 B948 F6 0E 02        ...   ldab 0e02
7337 B94B C1 05           ..    cmpb #05
7338 B94D 27 03           '.    beq 03
7339 B94F 7E BA 81        ~..   jmp ba81             ;goto27
7340 B952 F6 00 12        ...   ldab 0012
7341 B955 C4 20           .     andb #20     ; test the door switch
7342 B957 26 03           &.    bne 03
7343 B959 7E BA 81        ~..   jmp ba81             ;goto27
7344 B95C F6 0E 04        ...   ldab 0e04
7345 B95F C1 05           ..    cmpb #05
7346 B961 26 79           &y    bne 79
7347 B963 F6 0E 03        ...   ldab 0e03
7348 B966 C1 05           ..    cmpb #05
7349 B968 26 72           &r    bne 72
7350 B96A 30              0     tsx 
7351 B96B 6F 00           o.    clr 00,x
7352 B96D 30              0     tsx 
7353 B96E E6 00           ..    ldab 00,x
7354 B970 C1 64           .d    cmpb #64
7355 B972 2C 16           ,.    bge 16
7356 B974 5F              _     clrb 
7357 B975 37              7     pshb 
7358 B976 30              0     tsx 
7359 B977 E6 01           ..    ldab 01,x
7360 B979 4F              O     clra 
7361 B97A 5D              ]     tstb 
7362 B97B 2C 01           ,.    bge 01
7363 B97D 4A              J     deca 
7364 B97E C3 0E 06        ...   addd #0e06
7365 B981 8F              .     xgdx 
7366 B982 33              3     pulb 
7367 B983 E7 00           ..    stab 00,x
7368 B985 30              0     tsx 
7369 B986 6C 00           l.    inc 00,x
7370 B988 20 E3            .    bra e3
7371 B98A 7F 0D FF        ...   clr 0dff
7372 B98D 7F 0E 00        ...   clr 0e00
7373 B990 7F 0E 01        ...   clr 0e01
7374 B993 7F 0E 02        ...   clr 0e02
7375 B996 7F 0E 03        ...   clr 0e03
7376 B999 7F 0E 04        ...   clr 0e04
7377 B99C C6 41           .A    ldab #41   ; "A"
7378 B99E F7 0B 99        ...   stab 0b99
7379 B9A1 C6 4C           .L    ldab #4c   ; "L"
7380 B9A3 F7 0B 98        ...   stab 0b98
7381 B9A6 C6 4C           .L    ldab #4c   ; "L"
7382 B9A8 F7 0B 97        ...   stab 0b97
7383 B9AB C6 20           .     ldab #20   ; " "
7384 B9AD F7 0B 96        ...   stab 0b96
7385 B9B0 C6 43           .C    ldab #43   ; "C"
7386 B9B2 F7 0B 95        ...   stab 0b95
7387 B9B5 C6 4C           .L    ldab #4c   ; "L"
7388 B9B7 F7 0B 94        ...   stab 0b94
7389 B9BA C6 45           .E    ldab #45   ; "E"
7390 B9BC F7 0B 93        ...   stab 0b93
7391 B9BF C6 41           .A    ldab #41   ; "A"
7392 B9C1 F7 0B 92        ...   stab 0b92
7393 B9C4 C6 52           .R    ldab #52   ; "R"
7394 B9C6 F7 0B 91        ...   stab 0b91
7395 B9C9 C6 20           .     ldab #20   ; " "
7396 B9CB F7 0B 90        ...   stab 0b90
7397 B9CE 7F 00 2C        ..,   clr 002c
7398 B9D1 BD BE 01        ...   jsr be01             ;jump70 - display
7399 B9D4 C6 1E           ..    ldab #1e
7400 B9D6 F7 00 2C        ..,   stab 002c
7401 B9D9 7E BA 81        ~..   jmp ba81             ;goto27
7402 B9DC F6 0E 04        ...   ldab 0e04
7403 B9DF C1 01           ..    cmpb #01
7404 B9E1 27 0A           '.    beq 0a
7405 B9E3 F6 0E 04        ...   ldab 0e04
7406 B9E6 C1 02           ..    cmpb #02
7407 B9E8 27 03           '.    beq 03
7408 B9EA 7E BA 81        ~..   jmp ba81             ;goto27
7409 B9ED F6 0E 03        ...   ldab 0e03
7410 B9F0 C1 00           ..    cmpb #00
7411 B9F2 22 03           ".    bhi 03
7412 B9F4 7E BA 81        ~..   jmp ba81             ;goto27
7413 B9F7 F6 0E 03        ...   ldab 0e03
7414 B9FA C1 05           ..    cmpb #05
7415 B9FC 26 03           &.    bne 03
7416 B9FE 7E BA 81        ~..   jmp ba81             ;goto27
7417 BA01 F6 0E 03        ...   ldab 0e03
7418 BA04 C1 07           ..    cmpb #07
7419 BA06 24 79           $y    bcc 79
7420 BA08 F6 0E 03        ...   ldab 0e03  ; prevkey*10+key
7421 BA0B 86 0A           ..    ldaa #0a
7422 BA0D 3D              =     mul 
7423 BA0E FB 0E 04        ...   addb 0e04
7424 BA11 30              0     tsx 
7425 BA12 E7 00           ..    stab 00,x
7426 BA14 E6 00           ..    ldab 00,x
7427 BA16 C1 64           .d    cmpb #64
7428 BA18 2C 67           ,g    bge 67
7429 BA1A E6 00           ..    ldab 00,x
7430 BA1C 2D 63           -c    blt 63
7431 BA1E 5F              _     clrb 
7432 BA1F 37              7     pshb 
7433 BA20 30              0     tsx 
7434 BA21 E6 01           ..    ldab 01,x
7435 BA23 4F              O     clra 
7436 BA24 5D              ]     tstb 
7437 BA25 2C 01           ,.    bge 01
7438 BA27 4A              J     deca 
7439 BA28 C3 0E 06        ...   addd #0e06
7440 BA2B 8F              .     xgdx 
7441 BA2C 33              3     pulb 
7442 BA2D E7 00           ..    stab 00,x
7443 BA2F F6 0E 03        ...   ldab 0e03
7444 BA32 CB 30           .0    addb #30    ; +48 (make an ascii digit)
7445 BA34 F7 0B 99        ...   stab 0b99
7446 BA37 F6 0E 04        ...   ldab 0e04
7447 BA3A CB 30           .0    addb #30    ; +48 (make an ascii digit)
7448 BA3C F7 0B 98        ...   stab 0b98
7449 BA3F C6 20           .     ldab #20    ; " "
7450 BA41 F7 0B 97        ...   stab 0b97
7451 BA44 C6 43           .C    ldab #43    ; "C"
7452 BA46 F7 0B 96        ...   stab 0b96
7453 BA49 C6 4C           .L    ldab #4c    ; "L"
7454 BA4B F7 0B 95        ...   stab 0b95
7455 BA4E C6 45           .E    ldab #45    ; "E"
7456 BA50 F7 0B 94        ...   stab 0b94
7457 BA53 C6 41           .A    ldab #41    ; "A"
7458 BA55 F7 0B 93        ...   stab 0b93
7459 BA58 C6 52           .R    ldab #52    ; "R"
7460 BA5A F7 0B 92        ...   stab 0b92
7461 BA5D C6 45           .E    ldab #45    ; "E"
7462 BA5F F7 0B 91        ...   stab 0b91
7463 BA62 C6 44           .D    ldab #44    ; "D"
7464 BA64 F7 0B 90        ...   stab 0b90
7465 BA67 7F 0E 00        ...   clr 0e00
7466 BA6A 7F 0E 01        ...   clr 0e01
7467 BA6D 7F 0E 02        ...   clr 0e02
7468 BA70 7F 0E 03        ...   clr 0e03
7469 BA73 7F 0E 04        ...   clr 0e04
7470 BA76 7F 00 2C        ..,   clr 002c
7471 BA79 BD BE 01        ...   jsr be01             ;jump70 - display
7472 BA7C C6 1E           ..    ldab #1e
7473 BA7E F7 00 2C        ..,   stab 002c
7474 goto27:
7475 BA81 31              1     ins 
7476 BA82 39              9     rts 
7477
7478 jump125:
7479 ; reads the keypad state into 005b & 0056
7480 ; it looks like it returns without doing anything if the
7481 ; no sale switch is pressed, but I haven't looked closely
7482 BA83 F6 18 00        ...   ldab 1800
7483 BA86 C4 7F           ..    andb #7f
7484 BA88 F7 00 23        ..#   stab 0023
7485 BA8B F6 00 23        ..#   ldab 0023
7486 BA8E F1 00 12        ...   cmpb 0012   ; door buffers - debouncing it?
7487 BA91 27 06           '.    beq 06
7488 BA93 F6 00 23        ..#   ldab 0023
7489 BA96 F7 00 12        ...   stab 0012
7490 BA99 F6 20 00        . .   ldab 2000
7491 BA9C F1 00 20        ..    cmpb 0020
7492 BA9F 27 08           '.    beq 08
7493 BAA1 F6 20 00        . .   ldab 2000
7494 BAA4 F7 00 20        ..    stab 0020
7495 BAA7 20 0E            .    bra 0e
7496 BAA9 F6 00 20        ..    ldab 0020
7497 BAAC F7 00 11        ...   stab 0011
7498 BAAF F6 00 11        ...   ldab 0011
7499 BAB2 C4 03           ..    andb #03
7500 BAB4 F7 00 2B        ..+   stab 002b
7501 BAB7 F6 00 1B        ...   ldab 001b
7502 BABA C4 04           ..    andb #04
7503 BABC 37              7     pshb 
7504 BABD F6 10 0A        ...   ldab 100a   ; PortE
7505 BAC0 C4 04           ..    andb #04    ; no sale switch (active low)
7506 BAC2 30              0     tsx 
7507 BAC3 E0 00           ..    subb 00,x
7508 BAC5 31              1     ins 
7509 BAC6 27 17           '.    beq 17
7510 BAC8 F6 10 0A        ...   ldab 100a   ; PortE
7511 BACB C4 04           ..    andb #04    : no sale switch (active low)
7512 BACD 27 08           '.    beq 08
7513 BACF CE 00 1B        ...   ldx #001b
7514 BAD2 1C 00 04        ..    bset 00,x, #04
7515 BAD5 20 06            .    bra 06
7516 BAD7 CE 00 1B        ...   ldx #001b
7517 BADA 1D 00 04        ..    bclr 00,x, #04
7518 BADD 20 15            .    bra 15
7519 BADF F6 10 0A        ...   ldab 100a   ; PortE
7520 BAE2 C4 04           ..    andb #04    ; no sale switch (active low)
7521 BAE4 27 08           '.    beq 08
7522 BAE6 CE 00 1D        ...   ldx #001d
7523 BAE9 1C 00 04        ..    bset 00,x, #04
7524 BAEC 20 06            .    bra 06
7525 BAEE CE 00 1D        ...   ldx #001d
7526 BAF1 1D 00 04        ..    bclr 00,x, #04
7527 BAF4 CE 10 08        ...   ldx #1008        : PortD
7528 BAF7 1D 00 20        ...   bclr 00,x, #20   ; select keypad row 0
7529 BAF9 CE 10 28        ...   ldx #1028
7530 BAFC 1C 00 40        ...   bset 00,x #40    ; enable SPI
7531
7532 BB00 CE 00 14        ...   ldx #0014        ; keypad strobe:
7533 BB03 1C 00 04        ..    bset 00,x, #04   ; resets the keypad
7534 BB06 F6 00 14        ...   ldab 0014        ; shift register
7535 BB09 F7 38 00        .8.   stab 3800        ; ready for a new
7536 BB0C CE 00 14        ...   ldx #0014        ; read
7537 BB0F 1D 00 04        ..    bclr 00,x, #04
7538 BB12 F6 00 14        ...   ldab 0014
7539 BB15 F7 38 00        .8.   stab 3800
7540
7541 BB18 CE 00 00        ...   ldx #0000
7542 BB1B 3C              <     pshx 
7543 BB1C 5F              _     clrb 
7544 BB1D 4F              O     clra 
7545 BB1E BD BD B5        ...   jsr bdb5             ;jump78 - reads the keypad inputs into X
7546 BB21 38              8     pulx 
7547 BB22 F7 00 5B        ..[   stab 005b
7548
7549 BB25 CE 10 28        ..(   ldx #1028
7550 BB28 1D 00 40        ..    bclr 00,x, #40  ; disable SPI
7551
7552 BB2B CE 10 08        ...   ldx #1008
7553 BB2E 1C 00 20        ..    bset 00,x, #20  ; select keypad row 1
7554
7555 BB30 CE 10 28        ...   ldx #1028
7556 BB33 1C 00 40        ...   bset 00,x, #40  ; enable the SPI
7557
7558 BB37 CE 00 14        ...   ldx #0014
7559 BB3A 1C 00 04        ..    bset 00,x, #04  ; keypad strobe
7560 BB3D F6 00 14        ...   ldab 0014
7561 BB40 F7 38 00        .8.   stab 3800
7562 BB43 CE 00 14        ...   ldx #0014
7563 BB46 1D 00 04        ..    bclr 00,x, #04
7564 BB49 F6 00 14        ...   ldab 0014
7565 BB4C F7 38 00        .8.   stab 3800
7566
7567 BB4F CE 00 00        ...   ldx #0000    
7568 BB52 3C              <     pshx 
7569 BB53 5F              _     clrb 
7570 BB54 4F              O     clra 
7571 BB55 BD BD B5        ...   jsr bdb5             ;jump78  - read the keypad
7572 BB58 38              8     pulx 
7573 BB59 F7 00 56        ..V   stab 0056
7574 BB5C CE 10 28        ..(   ldx #1028
7575 BB5F 1D 00 40        ..    bclr 00,x, #40
7576 BB62 39              9     rts 
7577
7578 jump200:
7579 BB63 F6 00 00        ...   ldab 0000
7580 BB66 27 03           '.    beq 03
7581 BB68 7E BD B4        ~..   jmp bdb4             ;goto28
7582 BB6B F6 00 2E        ...   ldab 002e
7583 BB6E 27 03           '.    beq 03
7584 BB70 7E BD B4        ~..   jmp bdb4             ;goto28
7585 BB73 BD BA 83        ...   jsr ba83             ;jump125 - read keypad
7586 ; has a key been pressed?
7587 BB76 F6 00 5B        ..[   ldab 005b
7588 BB79 F1 00 56        ..V   cmpb 0056
7589 BB7C 26 0B           &.    bne 0b       ; to bb89
7590 BB7E F6 00 56        ..V   ldab 0056
7591 BB81 27 06           '.    beq 06       ; to bb89
7592 BB83 7F 00 29        ..)   clr 0029     ; to key pressed
7593 BB86 7E BD AF        ~..   jmp bdaf             ;goto29 (bail)
7594 ; find keypad number
7595 BB89 F6 00 5B        ..[   ldab 005b    ; is row0 = 0
7596 BB8C 27 34           '4    beq 34       ; if so, to bbc2
7597 BB8E F6 00 5B        ..[   ldab 005b
7598 BB91 F7 00 5F        .._   stab 005f
7599 BB94 7F 00 1C        ...   clr 001c     ; i=0
7600 ;
7601 BB97 F6 00 1C        ...   ldab 001c
7602 BB9A C1 08           ..    cmpb #08     ; if i >= 8
7603 BB9C 24 15           $.    bcc 15       ; to bbb3 (break)
7604 BB9E F6 00 5F        .._   ldab 005f
7605 BBA1 C4 01           ..    andb #01
7606 BBA3 27 02           '.    beq 02
7607 BBA5 20 0C            .    bra 0c       ; to bbb3
7608 BBA7 F6 00 5F        .._   ldab 005f
7609 BBAA 54              T     lsrb         ; ready to test next bit
7610 BBAB F7 00 5F        .._   stab 005f
7611 BBAE 7C 00 1C        |..   inc 001c
7612 BBB1 20 E4            .    bra e4       ; to bb97
7613 ; look up i in the keypad map
7614 BBB3 F6 00 1C        ...   ldab 001c
7615 BBB6 4F              O     clra 
7616 BBB7 C3 AC 9D        ...   addd #ac9d   ; keypad mapping
7617 BBBA 8F              .     xgdx 
7618 BBBB E6 00           ..    ldab 00,x
7619 BBBD F7 00 16        ...   stab 0016
7620 BBC0 20 3C            <    bra 3c       ; to bbfe
7621 ; test row 1 - ditto
7622 BBC2 F6 00 56        ..V   ldab 0056
7623 BBC5 27 34           '4    beq 34
7624 BBC7 F6 00 56        ..V   ldab 0056
7625 BBCA F7 00 5F        .._   stab 005f
7626 BBCD 7F 00 1C        ...   clr 001c
7627 BBD0 F6 00 1C        ...   ldab 001c
7628 BBD3 C1 08           ..    cmpb #08
7629 BBD5 24 15           $.    bcc 15
7630 BBD7 F6 00 5F        .._   ldab 005f
7631 BBDA C4 01           ..    andb #01
7632 BBDC 27 02           '.    beq 02
7633 BBDE 20 0C            .    bra 0c       ; to bbec
7634 BBE0 F6 00 5F        .._   ldab 005f
7635 BBE3 54              T     lsrb 
7636 BBE4 F7 00 5F        .._   stab 005f
7637 BBE7 7C 00 1C        |..   inc 001c
7638 BBEA 20 E4            .    bra e4
7639 BBEC F6 00 1C        ...   ldab 001c
7640 ; look up in map
7641 BBEF 4F              O     clra 
7642 BBF0 C3 AC A0        ...   addd #aca0
7643 BBF3 8F              .     xgdx 
7644 BBF4 E6 00           ..    ldab 00,x
7645 BBF6 F7 00 16        ...   stab 0016
7646 BBF9 20 03            .    bra 03
7647 BBFB 7F 00 16        ...   clr 0016
7648 ;
7649 BBFE F6 00 5B        ..[   ldab 005b
7650 BC01 FA 00 56        ..V   orb 0056
7651 BC04 F7 00 5F        .._   stab 005f
7652 BC07 7F 00 5E        ..^   clr 005e
7653 BC0A 7F 00 1C        ...   clr 001c
7654 BC0D F6 00 1C        ...   ldab 001c
7655 BC10 C1 08           ..    cmpb #08
7656 BC12 24 16           $.    bcc 16
7657 BC14 F6 00 5F        .._   ldab 005f
7658 BC17 C4 01           ..    andb #01
7659 BC19 27 03           '.    beq 03
7660 BC1B 7C 00 5E        |.^   inc 005e
7661 BC1E F6 00 5F        .._   ldab 005f
7662 BC21 54              T     lsrb 
7663 BC22 F7 00 5F        .._   stab 005f
7664 BC25 7C 00 1C        |..   inc 001c
7665 BC28 20 E3            .    bra e3
7666 BC2A F6 00 5E        ..^   ldab 005e
7667 BC2D C1 01           ..    cmpb #01
7668 BC2F 22 05           ".    bhi 05
7669 BC31 F6 00 16        ...   ldab 0016
7670 BC34 26 0F           &.    bne 0f
7671 BC36 7F 00 29        ..)   clr 0029
7672 BC39 CE 00 1B        ...   ldx #001b
7673 BC3C 1C 00 10        ...   bset 00,x, #10
7674 BC3F 7F 00 37        ..7   clr 0037
7675 BC42 7E BD AF        ~..   jmp bdaf             ;goto29 (bail)
7676 BC45 F6 00 16        ...   ldab 0016    ; key release or debounce?
7677 BC48 F1 00 29        ..)   cmpb 0029
7678 BC4B 27 2D           '-    beq 2d
7679 BC4D F6 00 16        ...   ldab 0016
7680 BC50 F7 00 29        ..)   stab 0029
7681 BC53 F6 0E 00        ...   ldab 0e00     ; this is the key buffer?
7682 BC56 F7 0D FF        ...   stab 0dff
7683 BC59 F6 0E 01        ...   ldab 0e01
7684 BC5C F7 0E 00        ...   stab 0e00
7685 BC5F F6 0E 02        ...   ldab 0e02
7686 BC62 F7 0E 01        ...   stab 0e01
7687 BC65 F6 0E 03        ...   ldab 0e03
7688 BC68 F7 0E 02        ...   stab 0e02
7689 BC6B F6 0E 04        ...   ldab 0e04
7690 BC6E F7 0E 03        ...   stab 0e03
7691 BC71 F6 00 29        ..)   ldab 0029
7692 BC74 F7 0E 04        ...   stab 0e04
7693 BC77 7E BD AF        ~..   jmp bdaf             ;goto29 (bail)
7694 BC7A F6 00 12        ...   ldab 0012
7695 BC7D C4 20           .     andb #20     ; test door switch
7696 BC7F 27 3B           ';    beq 3b       ; to bcbc
7697 BC81 F6 00 29        ..)   ldab 0029
7698 BC84 27 33           '3    beq 33
7699 BC86 F6 00 1B        ...   ldab 001b
7700 BC89 C4 10           ..    andb #10
7701 BC8B 27 2C           ',    beq 2c
7702 BC8D F6 00 42        ..B   ldab 0042
7703 BC90 27 15           '.    beq 15
7704 BC92 F6 00 09        ...   ldab 0009
7705 BC95 27 08           '.    beq 08
7706 BC97 F6 00 29        ..)   ldab 0029
7707 BC9A F7 00 0A        ...   stab 000a
7708 BC9D 20 06            .    bra 06
7709 BC9F F6 00 29        ..)   ldab 0029
7710 BCA2 F7 00 09        ...   stab 0009
7711 BCA5 20 06            .    bra 06
7712 BCA7 F6 00 29        ..)   ldab 0029
7713 BCAA F7 00 42        ..B   stab 0042
7714 BCAD BD E5 AA        ...   jsr e5aa             ;jump12
7715 BCB0 7F 00 2C        ..,   clr 002c
7716 BCB3 CE 00 1B        ...   ldx #001b
7717 BCB6 1D 00 10        ...   bclr 00,x, #10
7718 BCB9 7E BD AF        ~..   jmp bdaf             ;goto29 (bail)
7719 ;
7720 BCBC F6 00 1B        ...   ldab 001b
7721 BCBF C4 10           ..    andb #10
7722 BCC1 26 03           &.    bne 03
7723 BCC3 7E BD 91        ~..   jmp bd91             ;goto30
7724 BCC6 F6 00 21        ..!   ldab 0021
7725 BCC9 C4 20           .     andb #20
7726 BCCB 27 03           '.    beq 03
7727 BCCD 7E BD 91        ~..   jmp bd91             ;goto30
7728 BCD0 F6 00 29        ..)   ldab 0029
7729 BCD3 C1 0B           ..    cmpb #0b
7730 BCD5 26 03           &.    bne 03
7731 BCD7 7E BD 5C        ~.\   jmp bd5c             ;goto31
7732 BCDA 7F 00 49        ..I   clr 0049
7733 BCDD F6 00 3A        ..:   ldab 003a
7734 BCE0 26 32           &2    bne 32
7735 BCE2 F6 00 29        ..)   ldab 0029
7736 BCE5 C1 0A           ..    cmpb #0a
7737 BCE7 26 05           &.    bne 05
7738 BCE9 7F 00 1E        ...   clr 001e
7739 BCEC 20 06            .    bra 06
7740 BCEE F6 00 29        ..)   ldab 0029
7741 BCF1 F7 00 1E        ...   stab 001e
7742 BCF4 C6 32           .2    ldab #32
7743 BCF6 F7 00 3A        ..:   stab 003a
7744 BCF9 BD BE 4B        ..K   jsr be4b             ;displayblank
7745 BCFC F6 00 1E        ...   ldab 001e
7746 BCFF CB 30           .0    addb #30
7747 BD01 F7 0B 95        ...   stab 0b95
7748 BD04 BD E5 AA        ...   jsr e5aa             ;jump12
7749 BD07 7F 00 2C        ..,   clr 002c
7750 BD0A BD BE 01        ...   jsr be01             ;jump70
7751 BD0D C6 32           .2    ldab #32
7752 BD0F F7 00 2C        ..,   stab 002c
7753 BD12 20 46            F    bra 46
7754 BD14 F6 00 29        ..)   ldab 0029
7755 BD17 C1 05           ..    cmpb #05
7756 BD19 27 07           '.    beq 07
7757 BD1B F6 00 29        ..)   ldab 0029
7758 BD1E C1 0A           ..    cmpb #0a
7759 BD20 26 05           &.    bne 05
7760 BD22 7F 00 2C        ..,   clr 002c
7761 BD25 20 2D            -    bra 2d
7762 BD27 F6 00 1E        ...   ldab 001e
7763 BD2A 58              X     aslb 
7764 BD2B 58              X     aslb 
7765 BD2C 58              X     aslb 
7766 BD2D F7 00 06        ...   stab 0006
7767 BD30 F6 00 1E        ...   ldab 001e
7768 BD33 58              X     aslb 
7769 BD34 FB 00 06        ...   addb 0006
7770 BD37 F7 00 06        ...   stab 0006
7771 BD3A F6 00 29        ..)   ldab 0029
7772 BD3D FB 00 06        ...   addb 0006
7773 BD40 F7 00 06        ...   stab 0006
7774 BD43 F6 00 29        ..)   ldab 0029
7775 BD46 CB 30           .0    addb #30
7776 BD48 F7 0B 94        ...   stab 0b94
7777 BD4B BD BE 01        ...   jsr be01             ;jump70
7778 BD4E CE 00 1B        ...   ldx #001b
7779 BD51 1D 00 40        ...   bclr 00,x, #40
7780 BD54 7F 00 3A        ..:   clr 003a
7781 BD57 BD E5 AA        ...   jsr e5aa             ;jump12
7782 BD5A 20 2D            -    bra 2d
7783 goto31:
7784 BD5C C6 19           ..    ldab #19
7785 BD5E F7 00 37        ..7   stab 0037
7786 BD61 F6 00 3A        ..:   ldab 003a
7787 BD64 27 08           '.    beq 08
7788 BD66 7F 00 3A        ..:   clr 003a
7789 BD69 7F 00 2C        ..,   clr 002c
7790 BD6C 20 18            .    bra 18
7791 BD6E 7C 00 49        |.I   inc 0049
7792 BD71 F6 00 49        ..I   ldab 0049
7793 BD74 C1 02           ..    cmpb #02
7794 BD76 25 0E           %.    bcs 0e
7795 BD78 7F 00 49        ..I   clr 0049
7796 BD7B CE 00 1B        ...   ldx #001b
7797 BD7E 1C 00 01        ...   bset 00,x, #01
7798 BD81 C6 3C           .<    ldab #3c
7799 BD83 F7 00 4F        ..O   stab 004f
7800 BD86 BD E5 AA        ...   jsr e5aa             ;jump12
7801 BD89 CE 00 1B        ...   ldx #001b
7802 BD8C 1D 00 10        ...   bclr 00,x, #10
7803 BD8F 20 1E            .    bra 1e
7804 goto30:
7805 BD91 F6 00 1B        ...   ldab 001b
7806 BD94 C4 10           ..    andb #10
7807 BD96 26 17           &.    bne 17
7808 BD98 F6 00 29        ..)   ldab 0029
7809 BD9B C1 0B           ..    cmpb #0b
7810 BD9D 26 10           &.    bne 10
7811 BD9F F6 00 37        ..7   ldab 0037
7812 BDA2 26 0B           &.    bne 0b
7813 BDA4 BD DD D5        ...   jsr ddd5             ;jump120
7814 BDA7 7F 00 49        ..I   clr 0049
7815 BDAA C6 14           ..    ldab #14
7816 BDAC F7 00 2C        ..,   stab 002c
7817 goto29:
7818 BDAF C6 01           ..    ldab #01
7819 BDB1 F7 00 00        ...   stab 0000
7820 goto28:
7821 BDB4 39              9     rts 
7822
7823 jump78:
7824 ; start/finish sending a byte to the display
7825 ; stack parameter - 0 to disable clock (finish), 1 to enable clock (start)
7826 ; lower 8-bits of D - byte to write to display.
7827 ; bytes with bit 7 unset are characters (0-127)
7828 ; bytes with bit 7 set are control commands.
7829 ; this probably also reads the keypad simultaneously
7830 BDB5 37              7     pshb 
7831 BDB6 36              6     psha 
7832 BDB7 3C              <     pshx 
7833 BDB8 5F              _     clrb 
7834 BDB9 4F              O     clra 
7835 BDBA 30              0     tsx 
7836 BDBB ED 00           ..    std 00,x
7837 BDBD E6 07           ..    ldab 07,x
7838 BDBF 27 0E           '.    beq 0e     ; to bdcf if 0
7839 BDC1 CE 00 14        ...   ldx #0014
7840 BDC4 1C 00 08        ...   bset 00,x, #08
7841 BDC7 F6 00 14        ...   ldab 0014
7842 BDCA F7 38 00        .8.   stab 3800  ; enable display clock line
7843 BDCD 20 0C            .    bra 0c     ; to bddb
7844 BDCF CE 00 14        ...   ldx #0014
7845 BDD2 1D 00 08        ...   bclr 00,x, #08
7846 BDD5 F6 00 14        ...   ldab 0014
7847 BDD8 F7 38 00        .8.   stab 3800  ; disable display clock line
7848 BDDB 30              0     tsx 
7849 BDDC E6 03           ..    ldab 03,x
7850 BDDE F7 10 2A        ..*   stab 102a  ; write to spdr
7851 BDE1 F6 10 29        ..)   ldab 1029  ; read spsr
7852 BDE4 2D 0F           -.    blt 0f     ; exit sub if SPI complete
7853 BDE6 38              8     pulx 
7854 BDE7 08              .     inx 
7855 BDE8 3C              <     pshx 
7856 BDE9 30              0     tsx 
7857 BDEA EC 00           ..    ldd 00,x
7858 BDEC 83 FF FF        ...   subd #ffff ; put a really long timeout on the action
7859 BDEF 26 02           &.    bne 02
7860 BDF1 20 02            .    bra 02
7861 BDF3 20 EC            .    bra ec     ; loop a while back to bde1
7862 BDF5 F6 10 2A        ..*   ldab 102a  ; reading SPSR (just done) & SPDR clears SPIF
7863 BDF8 30              0     tsx 
7864 BDF9 E7 03           ..    stab 03,x
7865 BDFB E6 03           ..    ldab 03,x  ; return contents of spdr - keypad data!
7866 BDFD 4F              O     clra 
7867 BDFE 38              8     pulx 
7868 BDFF 38              8     pulx 
7869 BE00 39              9     rts 
7870
7871 jump70:
7872 ; Write a string in the display buffer at 0x0b90 to the display
7873 BE01 F6 00 2C        ..,   ldab 002c
7874 BE04 26 09           &.    bne 09        ; to be0f - ret if mem 0x2c != 0
7875 BE06 8D 61           .a    bsr dest 61   ; to displayreset - reset display
7876 BE08 8D 06           ..    bsr dest 06   ; to jump88 - commit to display
7877 BE0A C6 03           ..    ldab #03
7878 BE0C F7 00 2C        ..,   stab 002c
7879 BE0F 39              9     rts 
7880
7881 jump88:
7882 ; writes the display buffer (at 0b90-0b99) to the display
7883 ; enable the SPI system
7884 BE10 CE 10 28        ..(   ldx #1028
7885 BE13 1C 00 40        ..@   bset 00,x, #40
7886 ; loop to 10
7887 BE16 7F 00 1C        ...   clr 001c
7888 BE19 F6 00 1C        ...   ldab 001c
7889 BE1C C1 0A           ..    cmpb #0a
7890 BE1E 24 19           $.    bcc 19        ; to be39
7891 BE20 CE 00 01        ...   ldx #0001
7892 BE23 3C              <     pshx 
7893 BE24 F6 00 1C        ...   ldab 001c
7894 BE27 4F              O     clra 
7895 BE28 C3 0B 90        ...   addd #0b90
7896 BE2B 8F              .     xgdx 
7897 BE2C E6 00           ..    ldab 00,x
7898 BE2E C4 7F           ..    andb #7f      ; make sure we don't send a control command
7899 BE30 4F              O     clra 
7900 BE31 8D 82           ..    bsr dest 82   ; to jump78
7901 BE33 38              8     pulx 
7902 BE34 7C 00 1C        |..   inc 001c
7903 BE37 20 E0            .    bra e0        ; to be19
7904 BE39 CE 00 01        ...   ldx #0001
7905 BE3C 3C              <     pshx 
7906 BE3D CC 00 FF        ...   ldd #00ff
7907 BE40 BD BD B5        ...   jsr bdb5             ;jump78 
7908 BE43 38              8     pulx 
7909 ; disable the SPI system
7910 BE44 CE 10 28        ..(   ldx #1028
7911 BE47 1D 00 40        ..@   bclr 00,x, #40
7912 BE4A 39              9     rts 
7913
7914 displayblank:
7915 ; stores 0x20 into memory locations 0b90-0b99
7916 ; "blanks out" (with spaces) the display buffer
7917 BE4B 7F 00 1C        ...   clr 001c
7918 BE4E F6 00 1C        ...   ldab 001c
7919 BE51 C1 0A           ..    cmpb #0a
7920 BE53 24 13           $.    bcc 13       ; to be68 - rts
7921 BE55 C6 20           .     ldab #20
7922 BE57 37              7     pshb 
7923 BE58 F6 00 1C        ...   ldab 001c
7924 BE5B 4F              O     clra 
7925 BE5C C3 0B 90        ...   addd #0b90
7926 BE5F 8F              .     xgdx 
7927 BE60 33              3     pulb 
7928 BE61 E7 00           ..    stab 00,x
7929 BE63 7C 00 1C        |..   inc 001c
7930 BE66 20 E6            .    bra e6       ; to be4e
7931 BE68 39              9     rts 
7932
7933 displayreset:
7934 ; Reset the display
7935 ; Clear bit 7 of PortA - display reset
7936 BE69 CE 10 00        ...   ldx #1000
7937 BE6C 1D 00 80        ..    bclr x,#80
7938 BE6F BD E5 96        ...   jsr e596             ;jump115 - 100ms delay
7939 ; Clear bit 7 of PortA - reset line back to high (not active)
7940 BE72 CE 10 00        ...   ldx #1000
7941 BE75 1C 00 80        ..    bset 00,x, #80
7942
7943 ; set clock polarity
7944 BE78 CE 10 28        ...   ldx #1028
7945 BE7B 1C 00 40        ...   bset 00,x, #40
7946
7947 BE7E BD E5 96        ...   jsr e596             ;jump115 - 100ms delay
7948
7949 ; tell the display controller there are 10 digits
7950 BE81 CE 00 01        ...   ldx #0001
7951 BE84 3C              <     pshx 
7952 BE85 CC 00 CA        ...   ldd #00ca    ;11001010
7953 BE88 BD BD B5        ...   jsr bdb5             ;jump78
7954 BE8B 38              8     pulx 
7955
7956 ; set brightness to 100%
7957 BE8C CE 00 01        ...   ldx #0001
7958 BE8F 3C              <     pshx 
7959 BE90 CC 00 E0        ...   ldd #00e0    ;11100000
7960 BE93 BD BD B5        ...   jsr bdb5             ;jump78
7961 BE96 38              8     pulx 
7962
7963 ; revert clock polarity
7964 BE97 CE 10 28        ..(   ldx #1028
7965 BE9A 1D 00 40        ...   bclr 00,x, #40
7966 BE9D 39              9     rts 
7967
7968
7969
7970 jump50:
7971 BE9E 37              7     pshb 
7972 BE9F 36              6     psha 
7973 BEA0 8D A9           ..    bsr a9 ; to be4b - displayblank
7974 BEA2 30              0     tsx 
7975 BEA3 E6 05           ..    ldab 05,x
7976 BEA5 26 1B           &.    bne 1b
7977 BEA7 F6 00 06        ...   ldab 0006
7978 BEAA 4F              O     clra 
7979 BEAB CE 00 0A        ...   ldx #000a
7980 BEAE 02              .     idiv 
7981 BEAF 8F              .     xgdx 
7982 BEB0 CB 30           .0    addb #30
7983 BEB2 F7 0B 99        ...   stab 0b99   ; write slotnumber/10
7984 BEB5 F6 00 06        ...   ldab 0006
7985 BEB8 4F              O     clra 
7986 BEB8 CE 00 0A        ...   ldx #000a
7987 BEBC 02              .     idiv 
7988 BEBD CB 30           .0    addb #30
7989 BEBF F7 0B 98        ...   stab 0b98   ; write slotnumber%10
7990 BEC2 30              0     tsx 
7991 BEC3 EC 00           ..    ldd 00,x
7992 BEC5 C4 FF           ..    andb #ff
7993 BEC7 84 3F           .?    anda #3f
7994 BEC9 ED 00           ..    std 00,x
7995 BECB EC 00           ..    ldd 00,x
7996 BECD CE 03 E8        ...   ldx #03e8   ; / 1000
7997 BED0 02              .     idiv 
7998 BED1 8F              .     xgdx 
7999 BED2 CB 30           .0    addb #30
8000 BED4 37              7     pshb 
8001 BED5 30              0     tsx 
8002 BED6 E6 06           ..    ldab 06,x
8003 BED8 4F              O     clra 
8004 BED9 C3 0B 95        ...   addd #0b95
8005 BEDC 8F              .     xgdx 
8006 BEDD 33              3     pulb 
8007 BEDE E7 00           ..    stab 00,x    ; write MSB dollars
8008 BEE0 30              0     tsx 
8009 BEE1 EC 00           ..    ldd 00,x
8010 BEE3 CE 03 E8        ...   ldx #03e8    ; %1000
8011 BEE6 02              .     idiv 
8012 BEE7 CE 00 64        ..d   ldx #0064    ; /100
8013 BEEA 02              .     idiv 
8014 BEEB 8F              .     xgdx 
8015 BEEC CB 30           .0    addb #30
8016 BEEE 37              7     pshb 
8017 BEEF 30              0     tsx 
8018 BEF0 E6 06           ..    ldab 06,x
8019 BEF2 4F              O     clra 
8020 BEF3 C3 0B 94        ...   addd #0b94   ; write LSB dollars
8021 BEF6 8F              .     xgdx 
8022 BEF7 33              3     pulb 
8023 BEF8 E7 00           ..    stab 00,x
8024 BEFA 30              0     tsx 
8025 BEFB EC 00           ..    ldd 00,x
8026 BEFD CE 00 64        ..d   ldx #0064    ; %100
8027 BF00 02              .     idiv 
8028 BF01 CE 00 0A        ...   ldx #000a    ; /10
8029 BF04 02              .     idiv 
8030 BF05 8F              .     xgdx 
8031 BF06 CB 30           .0    addb #30
8032 BF08 37              7     pshb 
8033 BF09 30              0     tsx 
8034 BF0A E6 06           ..    ldab 06,x
8035 BF0C 4F              O     clra 
8036 BF0D C3 0B 93        ...   addd #0b93   ; write MSB cents
8037 BF10 8F              .     xgdx 
8038 BF11 33              3     pulb 
8039 BF12 E7 00           ..    stab 00,x
8040 BF14 30              0     tsx 
8041 BF15 EC 00           ..    ldd 00,x
8042 BF17 CE 00 0A        ...   ldx #000a    
8043 BF1A 02              .     idiv 
8044 BF1B CB 30           .0    addb #30
8045 BF1D 37              7     pshb 
8046 BF1E 30              0     tsx 
8047 BF1F E6 06           ..    ldab 06,x
8048 BF21 4F              O     clra 
8049 BF22 C3 0B 92        ...   addd #0b92    ; write LSB cents
8050 BF25 8F              .     xgdx 
8051 BF26 33              3     pulb 
8052 BF27 E7 00           ..    stab 00,x
8053 BF29 F6 00 13        ...   ldab 0013    
8054 BF2C C1 01           ..    cmpb #01
8055 BF2E 22 03           ".    bhi 03
8056 BF30 7E BF DE        ~..   jmp bfde             ;goto32
8057 BF33 30              0     tsx 
8058 BF34 E6 05           ..    ldab 05,x
8059 BF36 4F              O     clra 
8060 BF37 C3 0B 92        ...   addd #0b92
8061 BF3A 8F              .     xgdx 
8062 BF3B E6 00           ..    ldab 00,x
8063 BF3D 37              7     pshb 
8064 BF3E 30              0     tsx 
8065 BF3F E6 06           ..    ldab 06,x
8066 BF41 4F              O     clra 
8067 BF42 C3 0B 91        ...   addd #0b91
8068 BF45 8F              .     xgdx 
8069 BF46 33              3     pulb 
8070 BF47 E7 00           ..    stab 00,x
8071 BF49 30              0     tsx 
8072 BF4A E6 05           ..    ldab 05,x
8073 BF4C 4F              O     clra 
8074 BF4D C3 0B 93        ...   addd #0b93
8075 BF50 8F              .     xgdx 
8076 BF51 E6 00           ..    ldab 00,x
8077 BF53 37              7     pshb 
8078 BF54 30              0     tsx 
8079 BF55 E6 06           ..    ldab 06,x
8080 BF57 4F              O     clra 
8081 BF58 C3 0B 92        ...   addd #0b92
8082 BF5B 8F              .     xgdx 
8083 BF5C 33              3     pulb 
8084 BF5D E7 00           ..    stab 00,x
8085 BF5F F6 00 13        ...   ldab 0013
8086 BF62 C1 02           ..    cmpb #02
8087 BF64 26 10           &.    bne 10
8088 BF66 C6 2E           ..    ldab #2e
8089 BF68 37              7     pshb 
8090 BF69 30              0     tsx 
8091 BF6A E6 06           ..    ldab 06,x
8092 BF6C 4F              O     clra 
8093 BF6D C3 0B 93        ...   addd #0b93
8094 BF70 8F              .     xgdx 
8095 BF71 33              3     pulb 
8096 BF72 E7 00           ..    stab 00,x
8097 BF74 20 68            h    bra 68
8098 BF76 C1 04           ..    cmpb #04
8099 BF78 26 26           &&    bne 26
8100 BF7A 30              0     tsx 
8101 BF7B E6 05           ..    ldab 05,x
8102 BF7D 4F              O     clra 
8103 BF7E C3 0B 94        ...   addd #0b94
8104 BF81 8F              .     xgdx 
8105 BF82 E6 00           ..    ldab 00,x
8106 BF84 37              7     pshb 
8107 BF85 30              0     tsx 
8108 BF86 E6 06           ..    ldab 06,x
8109 BF88 4F              O     clra 
8110 BF89 C3 0B 93        ...   addd #0b93
8111 BF8C 8F              .     xgdx 
8112 BF8D 33              3     pulb 
8113 BF8E E7 00           ..    stab 00,x 
8114 BF90 C6 2E           ..    ldab #2e   ; "."
8115 BF92 37              7     pshb 
8116 BF93 30              0     tsx 
8117 BF94 E6 06           ..    ldab 06,x
8118 BF96 4F              O     clra 
8119 BF97 C3 0B 94        ...   addd #0b94
8120 BF9A 8F              .     xgdx 
8121 BF9B 33              3     pulb 
8122 BF9C E7 00           ..    stab 00,x
8123 BF9E 20 3E            >    bra 3e
8124 BFA0 C1 08           ..    cmpb #08
8125 BFA2 26 3A           &:    bne 3a
8126 BFA4 30              0     tsx 
8127 BFA5 E6 05           ..    ldab 05,x
8128 BFA7 4F              O     clra 
8129 BFA8 C3 0B 94        ...   addd #0b94
8130 BFAB 8F              .     xgdx 
8131 BFAC E6 00           ..    ldab 00,x
8132 BFAE 37              7     pshb 
8133 BFAF 30              0     tsx 
8134 BFB0 E6 06           ..    ldab 06,x
8135 BFB2 4F              O     clra 
8136 BFB3 C3 0B 93        ...   addd #0b93
8137 BFB6 8F              .     xgdx 
8138 BFB7 33              3     pulb 
8139 BFB8 E7 00           ..    stab 00,x
8140 BFBA 30              0     tsx 
8141 BFBB E6 05           ..    ldab 05,x
8142 BFBD 4F              O     clra 
8143 BFBE C3 0B 95        ...   addd #0b95
8144 BFC1 8F              .     xgdx 
8145 BFC2 E6 00           ..    ldab 00,x
8146 BFC4 37              7     pshb 
8147 BFC5 30              0     tsx 
8148 BFC6 E6 06           ..    ldab 06,x
8149 BFC8 4F              O     clra 
8150 BFC9 C3 0B 94        ...   addd #0b94
8151 BFCC 8F              .     xgdx 
8152 BFCD 33              3     pulb 
8153 BFCE E7 00           ..    stab 00,x
8154 BFD0 C6 2E           ..    ldab #2e   ; "." 
8155 BFD2 37              7     pshb 
8156 BFD3 30              0     tsx 
8157 BFD4 E6 06           ..    ldab 06,x
8158 BFD6 4F              O     clra 
8159 BFD7 C3 0B 95        ...   addd #0b95
8160 BFDA 8F              .     xgdx 
8161 BFDB 33              3     pulb 
8162 BFDC E7 00           ..    stab 00,x
8163 goto32:
8164 BFDE F6 0B C0        ...   ldab 0bc0
8165 BFE1 C4 01           ..    andb #01
8166 BFE3 26 0E           &.    bne 0e
8167 BFE5 F6 0B C0        ...   ldab 0bc0
8168 BFE8 C4 04           ..    andb #04
8169 BFEA 26 07           &.    bne 07
8170 BFEC F6 0B C0        ...   ldab 0bc0
8171 BFEF C4 08           ..    andb #08
8172 BFF1 27 15           '.    beq 15
8173 BFF3 F6 00 17        ...   ldab 0017
8174 BFF6 C4 08           ..    andb #08
8175 BFF8 26 0E           &.    bne 0e
8176 BFFA C6 24           .$    ldab #24    ; "$"
8177 BFFC 37              7     pshb 
8178 BFFD 30              0     tsx 
8179 BFFE E6 06           ..    ldab 06,x
8180 C000 4F              O     clra 
8181 C001 C3 0B 96        ...   addd #0b96
8182 C004 8F              .     xgdx 
8183 C005 33              3     pulb 
8184 C006 E7 00           ..    stab 00,x
8185 C008 BD BE 69        ..i   jsr be69             ;displayreset
8186 C00B F6 00 13        ...   ldab 0013
8187 C00E C1 01           ..    cmpb #01
8188 C010 23 17           #.    bls 17
8189 C012 CE 10 28        ..(   ldx #1028
8190 C015 1C 00 40        ...   bset 00,x, #40 ; enable SCI send
8191 C018 CE 00 01        ...   ldx #0001
8192 C01B 3C              <     pshx 
8193 C01C CC 00 20        ..    ldd #0020
8194 C01F BD BD B5        ...   jsr bdb5             ;jump78 
8195 C022 38              8     pulx 
8196 C023 CE 10 28        ..(   ldx #1028      ; disable SCI send
8197 C026 1D 00 40        ...   bclr 00,x, #40
8198 C029 BD BE 10        ...   jsr be10             ;jump88
8199 C02C 38              8     pulx 
8200 C02D 39              9     rts 
8201
8202 jump71:
8203 ; part of the display: function abstraction
8204 ; D points to a string, and the stack contains the length of the message
8205 ; Also seems to handle scrolling of long strings?
8206 C02E 37              7     pshb 
8207 C02F 36              6     psha 
8208 C030 3C              <     pshx 
8209 ; need 002c to be zero to display stuff
8210 C031 F6 00 2C        ..,   ldab 002c
8211 C034 27 03           '.    beq 03
8212 C036 7E C0 B7        ~..   jmp c0b7             ;goto33 (bail out)
8213 ; if (0003 >= D)
8214 C039 FC 00 03        ...   ldd 0003
8215 C03C 30              0     tsx 
8216 C03D A3 02           ..    subd 02,x
8217 C03F 25 0A           %.    bcs 0a       ; to c04b
8218
8219 C041 E6 07           ..    ldab 07,x
8220 C043 4F              O     clra 
8221 C044 E3 02           ..    addd 02,x
8222 C046 B3 00 03        ...   subd 0003
8223 C049 24 06           $.    bcc 06       ; to c051
8224 ; else
8225 C04B 30              0     tsx 
8226 C04C EC 02           ..    ldd 02,x
8227 C04E FD 00 03        ...   std 0003
8228 C051 FE 00 03        ...   ldx 0003
8229 C054 08              .     inx 
8230 C055 FF 00 03        ...   stx 0003
8231 C058 09              .     dex 
8232 C059 8F              .     xgdx 
8233 C05A 30              0     tsx 
8234 C05B ED 00           ..    std 00,x
8235 C05D C6 09           ..    ldab #09
8236 C05F F7 00 18        ...   stab 0018
8237 C062 F6 00 18        ...   ldab 0018
8238 C065 C1 FF           ..    cmpb #ff
8239 C067 24 46           $F    bcc 46       ; to c0af (jump 70 - write string)
8240 C069 30              0     tsx 
8241 C06A E6 07           ..    ldab 07,x
8242 C06C 4F              O     clra 
8243 C06D E3 02           ..    addd 02,x
8244 C06F A3 00           ..    subd 00,x
8245 C071 24 05           $.    bcc 05
8246 C073 30              0     tsx 
8247 C074 EC 02           ..    ldd 02,x
8248 C076 ED 00           ..    std 00,x
8249 C078 30              0     tsx 
8250 C079 EE 00           ..    ldx 00,x
8251 C07B E6 00           ..    ldab 00,x
8252 C07D C1 40           .@    cmpb #40
8253 C07F 24 13           $.    bcc 13
8254 C081 30              0     tsx 
8255 C082 EE 00           ..    ldx 00,x
8256 C084 E6 00           ..    ldab 00,x
8257 C086 37              7     pshb 
8258 C087 F6 00 18        ...   ldab 0018
8259 C08A 4F              O     clra 
8260 C08B C3 0B 90        ...   addd #0b90
8261 C08E 8F              .     xgdx 
8262 C08F 33              3     pulb 
8263 C090 E7 00           ..    stab 00,x
8264 C092 20 13            .    bra 13
8265 C094 30              0     tsx 
8266 C095 EE 00           ..    ldx 00,x
8267 C097 E6 00           ..    ldab 00,x
8268 C099 CB C0           ..    addb #c0
8269 C09B 37              7     pshb 
8270 C09C F6 00 18        ...   ldab 0018
8271 C09F 4F              O     clra 
8272 C0A0 C3 0B 90        ...   addd #0b90
8273 C0A3 8F              .     xgdx 
8274 C0A4 33              3     pulb 
8275 C0A5 E7 00           ..    stab 00,x
8276 C0A7 38              8     pulx 
8277 C0A8 08              .     inx 
8278 C0A9 3C              <     pshx 
8279 C0AA 7A 00 18        z..   dec 0018
8280 C0AD 20 B3            .    bra b3
8281 C0AF BD BE 01        ...   jsr be01             ;jump70
8282 C0B2 C6 03           ..    ldab #03
8283 C0B4 F7 00 2C        ..,   stab 002c
8284 goto33:
8285 C0B7 38              8     pulx 
8286 C0B8 38              8     pulx 
8287 C0B9 39              9     rts 
8288
8289 ;Display a string.  D points to the string, which is NULL-terminated
8290
8291 display:
8292 C0BA 37              7     pshb 
8293 C0BB 36              6     psha 
8294 C0BC F6 00 1F        ...   ldab 001f
8295 C0BF C4 04           ..    andb #04
8296 C0C1 26 03           &.    bne 03
8297 C0C3 7F 00 2C        ..,   clr 002c
8298 C0C6 F6 00 2C        ..,   ldab 002c
8299 C0C9 26 13           &.    bne 13      ; to c0de 
8300 C0CB 5F              _     clrb 
8301 C0CC 4F              O     clra 
8302 C0CD FD 00 03        ...   std 0003
8303 C0D0 7F 00 2C        ..,   clr 002c
8304 C0D3 CE 00 09        ...   ldx #0009
8305 C0D6 3C              <     pshx 
8306 C0D7 30              0     tsx 
8307 C0D8 EC 02           ..    ldd 02,x
8308 C0DA BD C0 2E        ...   jsr c02e             ;jump71
8309 C0DD 38              8     pulx 
8310 C0DE 38              8     pulx 
8311 C0DF 39              9     rts 
8312
8313 jump94:
8314 C0E0 F6 00 15        ...   ldab 0015
8315 C0E3 2C 02           ,.    bge 02
8316 C0E5 20 F9            .    bra f9
8317 C0E7 CE 00 1D        ...   ldx #001d
8318 C0EA 1C 00 20        ..    bset 00,x, #20
8319 C0ED BD D7 30         .    jsr d730       ;jump202
8320 C0EE 83 00 00        .0.   subd #0000
8321 C0F3 27 09           '.    beq 09
8322 C0F5 CE 00 1D        ...   ldx #001d
8323 C0F8 1D 00 20        ..    bclr 00,x, #20
8324 C0FB 5F              .     clrb
8325 C0FC 4F              O     clra 
8326 C0FD 39              9     rts 
8327
8328 C0FE CE 00 14        ...   ldx #0014
8329 C101 1C 00 01        ...   bset 00,x, #01
8330 C104 F6 00 14        ...   ldab 0014
8331 C107 F7 38 00        .8.   stab 3800    ; note acceptor business
8332 C10A F6 00 15        ...   ldab 0015
8333 C10D C4 1F           ..    andb #1f
8334 C10F 26 03           &.    bne 03
8335 C111 7E C3 1B        ~..   jmp c31b             ;goto34
8336 C114 C6 14           ..    ldab #14
8337 C116 F7 00 31        ..1   stab 0031
8338 C119 F6 00 15        ...   ldab 0015
8339 C11C 2D 15           -.    blt 15
8340 C11E F6 00 31        ..1   ldab 0031
8341 C121 C1 0A           ..    cmpb #0a
8342 C123 22 0C           ".    bhi 0c
8343 C125 BD C5 D3        ...   jsr c5d3             ;jump6
8344 C128 CE 00 1D        ...   ldx #001d
8345 C12B 1D 00 20        ..    bclr 00,x, #20
8346 C12D 5F              _     clrb
8347 C12F 4F              O     clra 
8348 C130 39              9     rts 
8349
8350 C131 20 E6            .    bra e6
8351 C133 FC 00 3E        ..>   ldd 003e
8352 C136 F3 00 40        ..@   addd 0040
8353 C139 FD 00 40        ..@   std 0040
8354 C13C 5F              _     clrb 
8355 C13D 4F              O     clra 
8356 C13E FD 00 3E        ..>   std 003e
8357 C141 F6 00 15        ...   ldab 0015
8358 C144 C4 1F           ..    andb #1f
8359 C146 4F              O     clra 
8360 C147 BD FE 32        ..2   jsr fe32             ;jump25
8361 C14A C1 64 00 01     ....  ; array data for jump25
8362 C14E C1 BA 00 01     ....  
8363 C152 C2 10 00 02     ....  
8364 C156 C2 66 00 04     .f..  
8365 C15A C2 BB 00 08     ....  
8366 C15E C3 0E FF F0     ....  
8367 C162 00 00           ..    ; end of array data
8368 C164 FC 0C DD        ...   ldd 0cdd
8369 C167 83 FF FF        ...   subd #ffff
8370 C16A 26 05           &.    bne 05
8371 C16C 5F              _     clrb 
8372 C16D 4F              O     clra 
8373 C16E FD 0C DD        ...   std 0cdd
8374 C171 FE 0C DD        ...   ldx 0cdd
8375 C174 08              .     inx 
8376 C175 FF 0C DD        ...   stx 0cdd
8377 C178 CE 00 64        ..d   ldx #0064
8378 C17B 3C              <     pshx 
8379 C17C CC 00 00        ...   ldd #0000
8380 C17F 37              7     pshb 
8381 C180 36              6     psha 
8382 C181 CC 0C F3        ...   ldd #0cf3
8383 C184 BD FB DF        ...   jsr fbdf             ;jump46
8384 C187 31              1     ins 
8385 C188 31              1     ins 
8386 C189 FE 0C F5        ...   ldx 0cf5
8387 C18C 3C              <     pshx 
8388 C18D FC 0C F3        ...   ldd 0cf3
8389 C190 37              7     pshb 
8390 C191 36              6     psha 
8391 C192 CE FF 9C        ...   ldx #ff9c
8392 C195 3C              <     pshx 
8393 C196 CC 00 63        ..c   ldd #0063
8394 C199 30              0     tsx 
8395 C19A A3 02           ..    subd 02,x
8396 C19C 32              2     pula 
8397 C19D 33              3     pulb 
8398 C19E 26 02           &.    bne 02
8399 C1A0 A3 04           ..    subd 04,x
8400 C1A2 38              8     pulx 
8401 C1A3 38              8     pulx 
8402 C1A4 24 11           $.    bcc 11
8403 C1A6 CE 00 64        ..d   ldx #0064
8404 C1A9 3C              <     pshx 
8405 C1AA CC FF 9C        ...   ldd #ff9c
8406 C1AD 37              7     pshb 
8407 C1AE 36              6     psha 
8408 C1AF CC 0C F3        ...   ldd #0cf3
8409 C1B2 BD FB DF        ...   jsr fbdf             ;jump46
8410 C1B5 31              1     ins 
8411 C1B6 31              1     ins 
8412 C1B7 7E C3 0E        ~..   jmp c30e             ;goto35
8413 C1BA FC 0C DF        ...   ldd 0cdf
8414 C1BD 83 FF FF        ...   subd #ffff
8415 C1C0 26 05           &.    bne 05
8416 C1C2 5F              _     clrb 
8417 C1C3 4F              O     clra 
8418 C1C4 FD 0C DF        ...   std 0cdf
8419 C1C7 FE 0C DF        ...   ldx 0cdf
8420 C1CA 08              .     inx 
8421 C1CB FF 0C DF        ...   stx 0cdf
8422 C1CE CE 00 C8        ...   ldx #00c8
8423 C1D1 3C              <     pshx 
8424 C1D2 CC 00 00        ...   ldd #0000
8425 C1D5 37              7     pshb 
8426 C1D6 36              6     psha 
8427 C1D7 CC 0C F7        ...   ldd #0cf7
8428 C1DA BD FB DF        ...   jsr fbdf             ;jump46
8429 C1DD 31              1     ins 
8430 C1DE 31              1     ins 
8431 C1DF FE 0C F9        ...   ldx 0cf9
8432 C1E2 3C              <     pshx 
8433 C1E3 FC 0C F7        ...   ldd 0cf7
8434 C1E6 37              7     pshb 
8435 C1E7 36              6     psha 
8436 C1E8 CE FF 38        ..8   ldx #ff38     ; -200
8437 C1EB 3C              <     pshx 
8438 C1EC CC 00 C7        ...   ldd #00c7
8439 C1EF 30              0     tsx 
8440 C1F0 A3 02           ..    subd 02,x
8441 C1F2 32              2     pula 
8442 C1F3 33              3     pulb 
8443 C1F4 26 02           &.    bne 02
8444 C1F6 A3 04           ..    subd 04,x
8445 C1F8 38              8     pulx 
8446 C1F9 38              8     pulx 
8447 C1FA 24 11           $.    bcc 11
8448 C1FC CE 00 C8        ...   ldx #00c8
8449 C1FF 3C              <     pshx 
8450 C200 CC FF 38        ..8   ldd #ff38    ; -200
8451 C203 37              7     pshb 
8452 C204 36              6     psha 
8453 C205 CC 0C F7        ...   ldd #0cf7
8454 C208 BD FB DF        ...   jsr fbdf             ;jump46
8455 C20B 31              1     ins 
8456 C20C 31              1     ins 
8457 C20D 7E C3 0E        ~..   jmp c30e             ;goto35
8458 C210 FC 0C E1        ...   ldd 0ce1
8459 C213 83 FF FF        ...   subd #ffff
8460 C216 26 05           &.    bne 05
8461 C218 5F              _     clrb 
8462 C219 4F              O     clra 
8463 C21A FD 0C E1        ...   std 0ce1
8464 C21D FE 0C E1        ...   ldx 0ce1
8465 C220 08              .     inx 
8466 C221 FF 0C E1        ...   stx 0ce1
8467 C224 CE 01 F4        ...   ldx #01f4
8468 C227 3C              <     pshx 
8469 C228 CC 00 00        ...   ldd #0000
8470 C22B 37              7     pshb 
8471 C22C 36              6     psha 
8472 C22D CC 0C FB        ...   ldd #0cfb
8473 C230 BD FB DF        ...   jsr fbdf             ;jump46
8474 C233 31              1     ins 
8475 C234 31              1     ins 
8476 C235 FE 0C FD        ...   ldx 0cfd
8477 C238 3C              <     pshx 
8478 C239 FC 0C FB        ...   ldd 0cfb
8479 C23C 37              7     pshb 
8480 C23D 36              6     psha 
8481 C23E CE FE 0C        ...   ldx #fe0c
8482 C241 3C              <     pshx 
8483 C242 CC 01 F3        ...   ldd #01f3
8484 C245 30              0     tsx 
8485 C246 A3 02           ..    subd 02,x
8486 C248 32              2     pula 
8487 C249 33              3     pulb 
8488 C24A 26 02           &.    bne 02
8489 C24C A3 04           ..    subd 04,x
8490 C24E 38              8     pulx 
8491 C24F 38              8     pulx 
8492 C250 24 11           $.    bcc 11
8493 C252 CE 01 F4        ...   ldx #01f4
8494 C255 3C              <     pshx 
8495 C256 CC FE 0C        ...   ldd #fe0c
8496 C259 37              7     pshb 
8497 C25A 36              6     psha 
8498 C25B CC 0C FB        ...   ldd #0cfb
8499 C25E BD FB DF        ...   jsr fbdf             ;jump46
8500 C261 31              1     ins 
8501 C262 31              1     ins 
8502 C263 7E C3 0E        ~..   jmp c30e             ;goto35
8503 C266 FC 0C E3        ...   ldd 0ce3
8504 C269 83 FF FF        ...   subd #ffff
8505 C26C 26 05           &.    bne 05
8506 C26E 5F              _     clrb 
8507 C26F 4F              O     clra 
8508 C270 FD 0C E3        ...   std 0ce3
8509 C273 FE 0C E3        ...   ldx 0ce3
8510 C276 08              .     inx 
8511 C277 FF 0C E3        ...   stx 0ce3
8512 C27A CE 03 E8        ...   ldx #03e8
8513 C27D 3C              <     pshx 
8514 C27E CC 00 00        ...   ldd #0000
8515 C281 37              7     pshb 
8516 C282 36              6     psha 
8517 C283 CC 0C FF        ...   ldd #0cff
8518 C286 BD FB DF        ...   jsr fbdf             ;jump46
8519 C289 31              1     ins 
8520 C28A 31              1     ins 
8521 C28B FE 0D 01        ...   ldx 0d01
8522 C28E 3C              <     pshx 
8523 C28F FC 0C FF        ...   ldd 0cff
8524 C292 37              7     pshb 
8525 C293 36              6     psha 
8526 C294 CE FC 18        ...   ldx #fc18
8527 C297 3C              <     pshx 
8528 C298 CC 03 E7        ...   ldd #03e7
8529 C29B 30              0     tsx 
8530 C29C A3 02           ..    subd 02,x
8531 C29E 32              2     pula 
8532 C29F 33              3     pulb 
8533 C2A0 26 02           &.    bne 02
8534 C2A2 A3 04           ..    subd 04,x
8535 C2A4 38              8     pulx 
8536 C2A5 38              8     pulx 
8537 C2A6 24 11           $.    bcc 11
8538 C2A8 CE 03 E8        ...   ldx #03e8
8539 C2AB 3C              <     pshx 
8540 C2AC CC FC 18        ...   ldd #fc18
8541 C2AF 37              7     pshb 
8542 C2B0 36              6     psha 
8543 C2B1 CC 0C FF        ...   ldd #0cff
8544 C2B4 BD FB DF        ...   jsr fbdf             ;jump46
8545 C2B7 31              1     ins 
8546 C2B8 31              1     ins 
8547 C2B9 20 53            S    bra 53
8548 C2BB FC 0C E5        ...   ldd 0ce5
8549 C2BE 83 C3 4F        ..O   subd #c34f
8550 C2C1 26 05           &.    bne 05
8551 C2C3 5F              _     clrb 
8552 C2C4 4F              O     clra 
8553 C2C5 FD 0C E5        ...   std 0ce5
8554 C2C8 FE 0C E5        ...   ldx 0ce5
8555 C2CB 08              .     inx 
8556 C2CC FF 0C E5        ...   stx 0ce5
8557 C2CF CE 07 D0        ...   ldx #07d0
8558 C2D2 3C              <     pshx 
8559 C2D3 CC 00 00        ...   ldd #0000
8560 C2D6 37              7     pshb 
8561 C2D7 36              6     psha 
8562 C2D8 CC 0D 03        ...   ldd #0d03
8563 C2DB BD FB DF        ...   jsr fbdf             ;jump46
8564 C2DE 31              1     ins 
8565 C2DF 31              1     ins 
8566 C2E0 FE 0D 05        ...   ldx 0d05
8567 C2E3 3C              <     pshx 
8568 C2E4 FC 0D 03        ...   ldd 0d03
8569 C2E7 37              7     pshb 
8570 C2E8 36              6     psha 
8571 C2E9 CE D9 30        ..0   ldx #d930
8572 C2EC 3C              <     pshx 
8573 C2ED CC 05 F5        ...   ldd #05f5
8574 C2F0 30              0     tsx 
8575 C2F1 A3 02           ..    subd 02,x
8576 C2F3 32              2     pula 
8577 C2F4 33              3     pulb 
8578 C2F5 26 02           &.    bne 02
8579 C2F7 A3 04           ..    subd 04,x
8580 C2F9 38              8     pulx 
8581 C2FA 38              8     pulx 
8582 C2FB 24 11           $.    bcc 11
8583 C2FD CE 26 D0        .&.   ldx #26d0
8584 C300 3C              <     pshx 
8585 C301 CC FA 0A        ...   ldd #fa0a
8586 C304 37              7     pshb 
8587 C305 36              6     psha 
8588 C306 CC 0D 03        ...   ldd #0d03
8589 C309 BD FB DF        ...   jsr fbdf             ;jump46
8590 C30C 31              1     ins 
8591 C30D 31              1     ins 
8592 goto35:
8593 C30E F6 00 15        ...   ldab 0015
8594 C311 2C 02           ,.    bge 02
8595 C313 20 F9            .    bra f9
8596 C315 CE 00 15        ...   ldx #0015
8597 C318 1D 00           ..    bclr add,x 00,x
8598 C31A 1F CE 00 1D     ....  brclr ce,x 00 1d
8599 ;goto34
8600 ; c31b???
8601 C31E 1D 00           ..    bclr add,x 00,x
8602 C320 20 CC            .    bra cc
8603 C322 00              .     test 
8604 C323 01              .     nop 
8605 C324 39              9     rts 
8606
8607 jump64:
8608 C325 F6 10 00        ...   ldab 1000
8609 C328 C4 01           ..    andb #01
8610 C32A 26 13           &.    bne 13
8611 C32C 7C 00 7D        |.}   inc 007d
8612 C32F F6 00 7D        ..}   ldab 007d
8613 C332 C1 05           ..    cmpb #05
8614 C334 23 03           #.    bls 03
8615 C336 7F 00 7D        ..}   clr 007d
8616 C339 7F 00 7E        ..~   clr 007e
8617 C33C 7E C4 2F        ~./   jmp c42f             ;goto36
8618 C33F 7C 00 7E        |.~   inc 007e
8619 C342 F6 00 7E        ..~   ldab 007e
8620 C345 C1 07           ..    cmpb #07
8621 C347 23 17           #.    bls 17
8622 C349 7F 00 7D        ..}   clr 007d
8623 C34C 7F 00 7E        ..~   clr 007e
8624 C34F 7F 00 7C        ..|   clr 007c
8625 C352 F6 00 15        ...   ldab 0015
8626 C355 2C 03           ,.    bge 03
8627 C357 7F 00 2C        ..,   clr 002c
8628 C35A CE 00 15        ...   ldx #0015
8629 C35D 1D 00 80        ..    bclr 00,x, #80
8630 C35F F6 00 7E        ...   ldab 007e
8631 C363 26 03           ..    bne 03     ; to c368
8632 C365 7E C4 2F        ~./   jmp c42f             ;goto36
8633 C368 F6 00 7D        ..}   ldab 007d
8634 C36B C1 01           ..    cmpb #01
8635 C36D 22 03           ".    bhi 03
8636 C36F 7E C4 2F        ~./   jmp c42f             ;goto36
8637 C372 CE 00 15        ...   ldx #0015
8638 C375 1C 00 80        ..    bset 00,x, #80
8639 C378 CE 0B C1        ...   ldx #0bc1
8640 C37B 1D 00 08        ..    bclr 00,x #08
8641 C37E F6 00 1D        ...   ldab 001d
8642 C381 C4 20           .     andb #20
8643 C383 27 03           '.    beq 03
8644 C385 7E C4 29        ~.)   jmp c429             ;goto38
8645 C388 C6 02           ..    ldab #02
8646 C38A F7 00 2C        ..,   stab 002c
8647 C38D 7F 00 3A        ..:   clr 003a
8648 C390 CE 00 1B        ...   ldx #001b
8649 C393 1D 00 40        ..    bclr 00,x, #40
8650 C396 7F 00 25        ..%   clr 0025
8651 C399 CE 00 21        ..!   ldx #0021
8652 C39C 1D 00 08        ...   bclr 00,x, #08
8653 C39F CE 00 14        ...   ldx #0014
8654 C3A2 1D 00 01        ..    bclr 00,x, #01
8655 C3A5 F6 00 14        ...   ldab 0014
8656 C3A8 F7 38 00        .8.   stab 3800        ; note acceptor business
8657 C3AB 7C 00 7C        |.|   inc 007c
8658 C3AE CE 00 15        ...   ldx #0015
8659 C3B1 1D 00 1F        ..    bclr 00,x, #1f
8660 C3B4 F6 00 7C        ..|   ldab 007c
8661 C3B7 C1 01           ..    cmpb #01
8662 C3B9 26 0E           &.    bne 0e
8663 C3BB CE 00 15        ...   ldx #0015
8664 C3BE 1C 00 01        ..    bset 00,x, #01
8665 C3C1 CC 00 64        ..d   ldd #0064
8666 C3C4 FD 00 3E        ..>   std 003e
8667 C3C7 20 60            `    bra 60
8668 C3C9 F6 00 7C        ..|   ldab 007c
8669 C3CC C1 02           ..    cmpb #02
8670 C3CE 26 0E           &.    bne 0e
8671 C3D0 CE 00 15        ...   ldx #0015
8672 C3D3 1C 00 02        ..    bset 00,x, #02
8673 C3D6 CC 00 C8        ...   ldd #00c8
8674 C3D9 FD 00 3E        ..>   std 003e
8675 C3DC 20 4B            K    bra 4b
8676 C3DE F6 00 7C        ..|   ldab 007c
8677 C3E1 C1 02           ..    cmpb #02
8678 C3E3 23 15           #.    bls 15
8679 C3E5 F6 00 7C        ..|   ldab 007c
8680 C3E8 C1 06           ..    cmpb #06
8681 C3EA 24 0E           $.    bcc 0e
8682 C3EC CE 00 15        ...   ldx #0015
8683 C3EF 1C 00           ..    bset 00,x, #04
8684 C3F2 CC 01 F4        ...   ldd #01f4
8685 C3F5 FD 00 3E        ..>   std 003e
8686 C3F8 20 2F            /    bra 2f
8687 C3FA F6 00 7C        ..|   ldab 007c
8688 C3FD C1 05           ..    cmpb #05
8689 C3FF 23 15           #.    bls 15
8690 C401 F6 00 7C        ..|   ldab 007c
8691 C404 C1 0B           ..    cmpb #0b
8692 C406 24 0E           $.    bcc 0e
8693 C408 CE 00 15        ...   ldx #0015
8694 C40B 1C 00 08        ..    bset 00,x, #08
8695 C40E CC 03 E8        ...   ldd #03e8
8696 C411 FD 00 3E        ..>   std 003e
8697 C414 20 13            .    bra 13      ; to c429
8698 C416 F6 00 7C        ..|   ldab 007c
8699 C419 C1 0B           ..    cmpb #0b
8700 C41B 23 0C           #.    bls 0c
8701 C41D CE 00 15        ...   ldx #0015
8702 C420 1C 00 10        ..    bset 00,x, #10
8703 C423 CC 07 D0        ...   ldd #07d0
8704 C426 FD 00 3E        ..>   std 003e
8705 goto38:
8706 C429 7F 00 7D        ..}   clr 007d
8707 C42C 7F 00 7E        ..~   clr 007e
8708 goto36:
8709 C42F 39              9     rts 
8710
8711 jump26:
8712 ; tweaks the changer output lines (at 3000) that correspond with the bitmask of
8713 ; 0001. It pulls the lines with 1 set in the bitmask low (active) for 100ms
8714 C430 F6 00 01        ...   ldab 0001
8715 C433 53              S     comb 
8716 C434 F4 00 1A        ...   andb 001a    ; 0x3000 buffer - changer outputs
8717 C437 F7 00 1A        ...   stab 001a
8718 C43A F6 00 1A        ...   ldab 001a
8719 C43D F7 30 00        .0.   stab 3000    ; coin mask
8720 C440 CC 00 64        ..d   ldd #0064
8721 C443 BD E5 71        ..q   jsr e571             ;msdelay
8722 C446 F6 00 01        ...   ldab 0001
8723 C449 FA 00 1A        ...   orb 001a
8724 C44C F7 00 1A        ...   stab 001a
8725 C44F F6 00 1A        ...   ldab 001a
8726 C452 F7 30 00        .0.   stab 3000    ; changer outputs again
8727 C455 39              9     rts 
8728
8729 jump47:
8730 C456 FC 00 40        ..@   ldd 0040
8731 C459 26 03           &.    bne 03
8732 C45B 7E C5 C6        ~..   jmp c5c6             ;goto39
8733 C45E CE 00 1A        ...   ldx #001a
8734 C461 1C 00 01        ..    bset 00,x, #01
8735 C464 F6 00 1A        ...   ldab 001a
8736 C467 F7 30 00        .0.   stab 3000    ; changer accept off
8737 C46A CC 03 E8        ...   ldd #03e8
8738 C46D BD E5 71        ..q   jsr e571             ;msdelay
8739 goto42:
8740 C470 FC 00 40        ..@   ldd 0040
8741 C473 83 00 00        ...   subd #0000
8742 C476 22 03           ".    bhi 03
8743 C478 7E C5 B0        ~..   jmp c5b0             ;goto40
8744 C47B F6 00 1B        ...   ldab 001b
8745 C47E C4 20           .     andb #20
8746 C480 27 1B           '.    beq 1b
8747 C482 FC 00 40        ..@   ldd 0040
8748 C485 83 03 E8        ...   subd #03e8
8749 C488 25 13           %.    bcs 13
8750 C48A C6 28           .(    ldab #28
8751 C48C F7 00 01        ...   stab 0001
8752 C48F CC FC 18        ...   ldd #fc18
8753 C492 F3 00 40        ..@   addd 0040
8754 C495 FD 00 40        ..@   std 0040
8755 C498 8D 96           ..    bsr dest 96
8756 C49A 7E C5 7C        ~.|   jmp c57c             ;goto41
8757 C49D F6 00 1B        ...   ldab 001b
8758 C4A0 C4 20           .     andb #20
8759 C4A2 27 1C           '.    beq 1c
8760 C4A4 FC 00 40        ..@   ldd 0040
8761 C4A7 83 00 64        ..d   subd #0064
8762 C4AA 25 14           %.    bcs 14
8763 C4AC C6 30           .0    ldab #30
8764 C4AE F7 00 01        ...   stab 0001
8765 C4B1 CC FF 9C        ...   ldd #ff9c
8766 C4B4 F3 00 40        ..@   addd 0040
8767 C4B7 FD 00 40        ..@   std 0040
8768 C4BA BD C4 30        ..0   jsr c430             ;jump26
8769 C4BD 7E C5 7C        ~.|   jmp c57c             ;goto41
8770 C4C0 FC 0B DD        ...   ldd 0bdd
8771 C4C3 27 3C           '<    beq 3c
8772 C4C5 FC 00 40        ..@   ldd 0040
8773 C4C8 B3 0B DD        ...   subd 0bdd
8774 C4CB 25 34           %4    bcs 34
8775 C4CD F6 0C DB        ...   ldab 0cdb
8776 C4D0 26 07           &.    bne 07
8777 C4D2 F6 00 1B        ...   ldab 001b
8778 C4D5 C4 20           .     andb #20
8779 C4D7 27 28           '(    beq 28
8780 C4D9 FC 0B DD        ...   ldd 0bdd
8781 C4DC 53              S     comb 
8782 C4DD 43              C     coma 
8783 C4DE F9 00 41        ..A   adcb 0041
8784 C4E1 B9 00 40        ..@   adca 0040
8785 C4E4 FD 00 40        ..@   std 0040
8786 C4E7 F6 0B DA        ...   ldab 0bda
8787 C4EA F7 00 01        ...   stab 0001
8788 C4ED BD C4 30        ..0   jsr c430             ;jump26
8789 C4F0 F6 00 1B        ...   ldab 001b
8790 C4F3 C4 20           .     andb #20
8791 C4F5 26 08           &.    bne 08
8792 C4F7 F6 0C DB        ...   ldab 0cdb
8793 C4FA 27 03           '.    beq 03
8794 C4FC 7A 0C DB        z..   dec 0cdb
8795 C4FF 20 7B            {    bra 7b
8796 C501 FC 0B DF        ...   ldd 0bdf
8797 C504 27 3C           '<    beq 3c
8798 C506 FC 00 40        ..@   ldd 0040
8799 C509 B3 0B DF        ...   subd 0bdf
8800 C50C 25 34           %4    bcs 34
8801 C50E F6 0C DA        ...   ldab 0cda
8802 C511 26 07           &.    bne 07
8803 C513 F6 00 1B        ...   ldab 001b
8804 C516 C4 20           .     andb #20
8805 C518 27 28           '(    beq 28
8806 C51A FC 0B DF        ...   ldd 0bdf
8807 C51D 53              S     comb 
8808 C51E 43              C     coma 
8809 C51F F9 00 41        ..A   adcb 0041
8810 C522 B9 00 40        ..@   adca 0040
8811 C525 FD 00 40        ..@   std 0040
8812 C528 F6 0B DB        ...   ldab 0bdb
8813 C52B F7 00 01        ...   stab 0001
8814 C52E BD C4 30        ..0   jsr c430             ;jump26
8815 C531 F6 00 1B        ...   ldab 001b
8816 C534 C4 20           .     andb #20
8817 C536 26 08           &.    bne 08
8818 C538 F6 0C DA        ...   ldab 0cda
8819 C53B 27 03           '.    beq 03
8820 C53D 7A 0C DA        z..   dec 0cda
8821 C540 20 3A            :    bra 3a
8822 C542 FC 0B E1        ...   ldd 0be1
8823 C545 27 30           '0    beq 30
8824 C547 FC 00 40        ..@   ldd 0040
8825 C54A B3 0B E1        ...   subd 0be1
8826 C54D 25 28           %(    bcs 28
8827 C54F FC 0B E1        ...   ldd 0be1
8828 C552 53              S     comb 
8829 C553 43              C     coma 
8830 C554 F9 00 41        ..A   adcb 0041
8831 C557 B9 00 40        ..@   adca 0040
8832 C55A FD 00 40        ..@   std 0040
8833 C55D F6 0B DC        ...   ldab 0bdc
8834 C560 F7 00 01        ...   stab 0001
8835 C563 BD C4 30        ..0   jsr c430             ;jump26
8836 C566 F6 00 1B        ...   ldab 001b
8837 C569 C4 20           .     andb #20
8838 C56B 26 08           &.    bne 08
8839 C56D F6 0C D9        ...   ldab 0cd9
8840 C570 27 03           '.    beq 03
8841 C572 7A 0C D9        z..   dec 0cd9
8842 C575 20 05            .    bra 05
8843 C577 5F              _     clrb 
8844 C578 4F              O     clra 
8845 C579 FD 00 40        ..@   std 0040
8846 goto41:
8847 C57C CC 01 2C        ..,   ldd #012c
8848 C57F BD E5 71        ..q   jsr e571             ;msdelay
8849 C582 F6 00 1B        ...   ldab 001b
8850 C585 C4 20           .     andb #20
8851 C587 26 24           &$    bne 24
8852 C589 CE 00 1A        ...   ldx #001a
8853 C58C 1D 00 01        ..    bclr 00,x, #01
8854 C58F F6 00 1A        ...   ldab 001a
8855 C592 F7 30 00        .0.   stab 3000    ; changer accept' low
8856 C595 CC 00 0C        ...   ldd #000c
8857 C598 BD E5 71        ..q   jsr e571             ;msdelay
8858 C59B CE 00 1A        ...   ldx #001a
8859 C59E 1C 00 01        ..    bset 00,x, #01
8860 C5A1 F6 00 1A        ...   ldab 001a
8861 C5A4 F7 30 00        .0.   stab 3000    ; changer accept' high
8862 C5A7 CC 00 23        ..#   ldd #0023
8863 C5AA BD E5 71        ..q   jsr e571             ;msdelay
8864 C5AD 7E C4 70        ~.p   jmp c470             ;goto42
8865 goto40:
8866 C5B0 F6 0B C0        ...   ldab 0bc0
8867 C5B3 C4 04           ..    andb #04
8868 C5B5 27 0F           '.    beq 0f
8869 C5B7 F6 00 1B        ...   ldab 001b
8870 C5BA C4 20           .     andb #20
8871 C5BC 27 08           '.    beq 08
8872 C5BE C6 38           .8    ldab #38
8873 C5C0 F7 00 01        ...   stab 0001
8874 C5C3 BD C4 30        ..0   jsr c430             ;jump26
8875 goto39:
8876 C5C6 CE 00 21        ..!   ldx #0021
8877 C5C9 1D 00 10        ...   bclr 00,x, #10
8878 C5CC CE 00 1B        ...   ldx #001b
8879 C5CF 1D 00           ..    bclr add,x 00,x
8880 C5D1 20 39            9    bra 39
8881 ;
8882 jump6:
8883 C5D3 F6 00 15        ...   ldab 0015
8884 C5D6 C4 1F           ..    andb #1f
8885 C5D8 26 03           &.    bne 03
8886 C5DA 7E C6 7C        ~.|   jmp c67c             ;goto43
8887 C5DD CC 00 C8        ...   ldd #00c8
8888 C5E0 BD E5 71        ..q   jsr e571             ;msdelay
8889 C5E3 FC 00 3E        ..>   ldd 003e
8890 C5E6 27 58           'X    beq 58
8891 C5E8 F6 00 15        ...   ldab 0015
8892 C5EB C4 1F           ..    andb #1f
8893 C5ED 4F              O     clra 
8894 C5EE BD FE 32        ..2   jsr fe32             ;jump25
8895 C5F1 C6 0B 00 01     ..    ; array data for jump25
8896 C5F5 C6 16 00 01     ..    
8897 C5F9 C6 21 00 02     .!    
8898 C5FD C6 2C 00 04     .,    
8899 C601 C6 37 00 08     .7    
8900 C605 C6 40 FF F0     .@    
8901 C609 00 00           ..    ;end of array data
8902 C60B CC FF 9C        ...   ldd #ff9c
8903 C60E F3 00 3E        ..>   addd 003e
8904 C611 FD 00 3E        ..>   std 003e
8905 C614 20 2A            *    bra 2a
8906 C616 CC FF 38        ..8   ldd #ff38
8907 C619 F3 00 3E        ..>   addd 003e
8908 C61C FD 00 3E        ..>   std 003e
8909 C61F 20 1F            .    bra 1f
8910 C621 CC FE 0C        ...   ldd #fe0c
8911 C624 F3 00 3E        ..>   addd 003e
8912 C627 FD 00 3E        ..>   std 003e
8913 C62A 20 14            .    bra 14
8914 C62C CC FC 18        ...   ldd #fc18
8915 C62F F3 00 3E        ..>   addd 003e
8916 C632 FD 00 3E        ..>   std 003e
8917 C635 20 09            .    bra 09
8918 C637 CC F8 30        ..0   ldd #f830
8919 C63A F3 00 3E        ..>   addd 003e
8920 C63D FD 00 3E        ..>   std 003e
8921 C640 CE 00 14        ...   ldx #0014
8922 C643 1D 00 02        ...   bclr 00,x, #02
8923 C646 F6 00 14        ...   ldab 0014
8924 C649 F7 38 00        .8.   stab 3800    ; bill acceptor
8925 C64C CC 00 1E        ...   ldd #001e
8926 C64F BD E5 71        ..q   jsr e571             ;msdelay
8927 C652 CE 00 15        ...   ldx #0015
8928 C655 1D 00           ..    bclr add,x 00,x
8929 C657 1F CE 00 14     ....  brclr ce,x 00 14
8930 C65B 1C 00 02        ...   bset 00,x, #02
8931 C65E F6 00 14        ...   ldab 0014
8932 C661 F7 38 00        .8.   stab 3800    ; bill acceptor
8933 C664 CC 00 19        ...   ldd #0019
8934 C667 BD E5 71        ..q   jsr e571             ;msdelay
8935 C66A CE 00 14        ...   ldx #0014
8936 C66D 1C 00 01        ..    bset 00,x, #01
8937 C670 F6 00 14        ...   ldab 0014
8938 C673 F7 38 00        .8.   stab 3800    ; bill acceptor
8939 C676 CC 00 19        ...   ldd #0019
8940 C679 BD E5 71        ..q   jsr e571             ;msdelay
8941 goto43:
8942 C67C 39              9     rts 
8943
8944 jump124:
8945 C67D F6 00 30        ..0   ldab 0030
8946 C680 26 55           &U    bne 55
8947 C682 F6 0B C0        ...   ldab 0bc0
8948 C685 C4 04           ..    andb #04
8949 C687 26 4E           &N    bne 4e
8950 C689 C6 27           .'    ldab #27
8951 C68B F7 10 2D        ..-   stab 102d    ; disable SCI transmission
8952 C68E C6 07           ..    ldab #07
8953 C690 F7 10 2B        ..+   stab 102b    ; 600 baud
8954 C693 CE 00 1A        ...   ldx #001a
8955 C696 1C 00           ..    bset 00,x, #04
8956 C699 F6 00 1A        ...   ldab 001a
8957 C69C F7 30 00        .0.   stab 3000    ; keypad strobe
8958 C69F CC 00 14        ...   ldd #0014
8959 C6A2 BD E5 71        ..q   jsr e571             ;msdelay
8960 C6A5 F6 0B C0        ...   ldab 0bc0
8961 C6A8 C4 01           ..    andb #01
8962 C6AA 27 06           '.    beq 06
8963 C6AC CE 0B C1        ...   ldx #0bc1
8964 C6AF 1C 00 01        ...   bset 00,x, #01
8965 C6B2 F6 0B C0        ...   ldab 0bc0
8966 C6B5 C4 04           ..    andb #04
8967 C6B7 27 06           '.    beq 06
8968 C6B9 CE 0B C1        ...   ldx #0bc1
8969 C6BC 1C 00 02        ...   bset 00,x, #02
8970 C6BF CE 00 1A        ...   ldx #001a
8971 C6C2 1D 00 04        ...   bclr 00,x, #04  ; keypad strobe finish
8972 C6C5 F6 00 1A        ...   ldab 001a
8973 C6C8 F7 30 00        .0.   stab 3000
8974 C6CB C6 96           ..    ldab #96
8975 C6CD F7 00 30        ..0   stab 0030
8976 C6D0 C6 1E           ..    ldab #1e
8977 C6D2 F7 00 35        ..5   stab 0035
8978 C6D5 20 5D            ]    bra 5d
8979 C6D7 F6 18 00        ...   ldab 1800
8980 C6DA 2D 2A           -*    blt 2a
8981 C6DC F6 00 07        ...   ldab 0007
8982 C6DF 26 25           &%    bne 25
8983 C6E1 CE 00 1A        ...   ldx #001a
8984 C6E4 1D 00 02        ...   bclr 00,x, #02
8985 C6E7 F6 00 1A        ...   ldab 001a
8986 C6EA F7 30 00        .0.   stab 3000       ; changer send' low
8987 C6ED C6 64           .d    ldab #64
8988 C6EF F7 00 2D        ..-   stab 002d
8989 C6F2 CC 00 32        ..2   ldd #0032
8990 C6F5 BD E5 71        ..q   jsr e571             ;msdelay
8991 C6F8 CE 00 1A        ...   ldx #001a
8992 C6FB 1C 00 02        ...   bset 00,x, #02
8993 C6FE F6 00 1A        ...   ldab 001a
8994 C701 F7 30 00        .0.   stab 3000       ; changer send' high
8995 C704 20 2E            .    bra 2e
8996 C706 F6 00 2D        ..-   ldab 002d
8997 C709 26 29           &)    bne 29
8998 C70B CE 00 1A        ...   ldx #001a
8999 C70E 1D 00 01        ...   bclr 00,x, #01
9000 C711 F6 00 1A        ...   ldab 001a
9001 C714 F7 30 00        .0.   stab 3000     ; changer accept' low
9002 C717 CC 00 0C        ...   ldd #000c
9003 C71A BD E5 71        ..q   jsr e571             ;msdelay
9004 C71D CE 00 1A        ...   ldx #001a
9005 C720 1C 00 01        ...   bset 00,x, #01
9006 C723 F6 00 1A        ...   ldab 001a
9007 C726 F7 30 00        .0.   stab 3000     ; changer accept' high
9008 C729 CC 00 23        ..#   ldd #0023
9009 C72C BD E5 71        ..q   jsr e571             ;msdelay
9010 C72F C6 64           .d    ldab #64
9011 C731 F7 00 2D        ..-   stab 002d
9012 C734 F6 00 21        ..!   ldab 0021
9013 C737 C4 10           ..    andb #10
9014 C739 27 45           'E    beq 45
9015 C73B F6 00 11        ...   ldab 0011
9016 C73E C4 04           ..    andb #04
9017 C740 26 1A           &.    bne 1a
9018 C742 FC 00 40        ..@   ldd 0040
9019 C745 F3 00 3E        ..>   addd 003e
9020 C748 B3 00 50        ..P   subd 0050
9021 C74B 25 0F           %.    bcs 0f
9022 C74D F6 0B C0        ...   ldab 0bc0
9023 C750 C4 04           ..    andb #04
9024 C752 26 08           &.    bne 08
9025 C754 CE 00 21        ..!   ldx #0021
9026 C757 1D 00 10        ...   bclr 00,x, #10
9027 C75A 20 24            $    bra 24
9028 C75C F6 0B C0        ...   ldab 0bc0
9029 C75F C4 08           ..    andb #08
9030 C761 27 03           '.    beq 03
9031 C763 BD C5 D3        ...   jsr c5d3             ;jump6
9032 C766 FC 0B DD        ...   ldd 0bdd
9033 C769 26 12           &.    bne 12
9034 C76B FC 0B DF        ...   ldd 0bdf
9035 C76E 26 0D           &.    bne 0d
9036 C770 FC 0B E1        ...   ldd 0be1
9037 C773 26 08           &.    bne 08
9038 C775 CE 00 21        ..!   ldx #0021
9039 C778 1D 00 10        ...   bclr 00,x, #10
9040 C77B 20 03            .    bra 03
9041 C77D BD C4 56        ..V   jsr c456             ;jump47
9042 C780 F6 00 15        ...   ldab 0015
9043 C783 2D 08           -.    blt 08
9044 C785 CE 00 21        ..!   ldx #0021
9045 C788 1C 00 08        ...   bset 00,x, #08
9046 C78B 20 06            .    bra 06
9047 C78D CE 00 21        ..!   ldx #0021
9048 C790 1D 00 08        ...   bclr 00,x, #08
9049 C793 39              9     rts 
9050
9051 ;proc(a,b) var local
9052 ;local=0
9053 ;while b<>0
9054 ;  
9055 ;endwhile
9056 ;return local
9057
9058 ; tests parity?
9059 C794 37              7     pshb 
9060 C795 36              6     psha 
9061 C796 34              4     des          ;stack: 0=local, 1=A, 2=B
9062 C797 30              0     tsx 
9063 C798 6F 00           o.    clr 00,x
9064 loop:
9065 C79A 30              0     tsx 
9066 C79B E6 02           ..    ldab 02,x
9067 C79D 27 1A           '.    beq exit     ;c7b9
9068 C79F 30              0     tsx 
9069 C7A0 1F 02 01 0D     ....  brclr 02,x 01 skip   ;c7b1
9070 C7A4 30              0     tsx 
9071 C7A5 E6 00           ..    ldab 00,x
9072 C7A7 27 05           '.    beq else     ;c7ae
9073 C7A9 30              0     tsx 
9074 C7AA 6A 00           j.    dec 00,x
9075 C7AC 20 03            .    bra skip     ;c7b1
9076 else:
9077 C7AE 30              0     tsx 
9078 C7AF 6C 00           l.    inc 00,x
9079 skip:
9080 C7B1 30              0     tsx 
9081 C7B2 E6 02           ..    ldab 02,x
9082 C7B4 54              T     lsrb 
9083 C7B5 E7 02           ..    stab 02,x
9084 C7B7 20 E1            .    bra loop     ;c79a
9085 exit:
9086 C7B9 30              0     tsx 
9087 C7BA E6 00           ..    ldab 00,x
9088 C7BC 4F              O     clra 
9089 C7BD 38              8     pulx 
9090 C7BE 31              1     ins 
9091 C7BF 39              9     rts 
9092
9093 jump49:
9094 ; parity tester. returns 0 if good
9095 C7C0 F6 10 2F        ../   ldab 102f            ; sci data
9096 C7C3 4F              O     clra 
9097 C7C4 8D CE           ..    bsr c794         ; parity test?
9098 C7C6 83 00 00        ...   subd #0000
9099 C7C9 27 05           '.    beq 05
9100 C7CB F6 10 2C        ..,   ldab 102c        ; test the 9th bit
9101 C7CE 2D 10           -.    blt 10           ; to c7e0
9102 C7D0 F6 10 2F        ../   ldab 102f            ; sci data
9103 C7D3 4F              O     clra 
9104 C7D4 8D BE           ..    bsr c794         ; parity test?
9105 C7D6 83 00 00        ...   subd #0000
9106 C7D9 26 09           &.    bne 09           ; to c7e4
9107 C7DB F6 10 2C        ..,   ldab 102c        ; test the 9th bit
9108 C7DE 2D 04           -.    blt 04
9109 C7E0 CC 00 01        ...   ldd #0001        ; return 1
9110 C7E3 39              9     rts 
9111 ; return 0
9112 C7E4 5F              _     clrb 
9113 C7E5 4F              O     clra 
9114 C7E6 39              9     rts 
9115
9116
9117 ;this might send a byte to the serial port
9118 jump37:
9119 C7E7 37              7     pshb 
9120 C7E8 36              6     psha 
9121 C7E9 C6 32           .2    ldab #32    ; 50
9122 C7EB F7 00 31        ..1   stab 0031
9123 C7EE 30              0     tsx 
9124 C7EF E6 01           ..    ldab 01,x
9125 C7F1 F7 00 43        ..C   stab 0043
9126 ; poll the TD register empty flag until it's set
9127 C7F4 F6 10 2E        ...   ldab 102e   
9128 C7F7 2D 02           -.    blt 02      ; transmit data register empty
9129 C7F9 20 F9            .    bra f9      ; to c7f4
9130
9131 C7FB 30              0     tsx 
9132 C7FC E6 01           ..    ldab 01,x
9133 C7FE 4F              O     clra 
9134 C7FF 8D 93           ..    bsr 93 ; to c794 - generate parity bit?
9135 C801 83 00 00        ...   subd #0000
9136 C804 27 08           '.    beq 08
9137 C806 CE 10 2C        ..,   ldx #102c
9138 C809 1C 00 40        ...   bset 00,x, #40   ; set the 9th bit
9139 C80C 20 06            .    bra 06
9140 C80E CE 10 2C        ..,   ldx #102c    ;SCI control 1
9141 C811 1D 00 40        ...   bclr 00,x, #40   ; clear the 9th bit
9142 C814 30              0     tsx 
9143 C815 E6 01           ..    ldab 01,x
9144 C817 F7 10 2F        ../   stab 102f     ; send to serial port
9145 C81A 38              8     pulx 
9146 C81B 39              9     rts 
9147
9148
9149
9150
9151 sciinterrupt:
9152 C81C 34              4     des 
9153 C81D F6 0B C0        ...   ldab 0bc0
9154 C820 C4 01           ..    andb #01
9155 C822 26 0A           &.    bne 0e       ; to c82e
9156 C824 F6 0B C0        ...   ldab 0bc0
9157 C827 C4 04           ..    andb #04
9158 C829 26 03           &.    bne 03       ; to c82e
9159 C82B 7E CB FF        ~..   jmp cbff             ;goto44
9160 C82E C6 96           ..    ldab #96     ; 150
9161 C830 F7 00 30        ..0   stab 0030
9162 C833 F6 10 2E        ...   ldab 102e    ; SCI status
9163 C836 C4 02           ..    andb #02     ; test for Framing Error
9164 C838 26 0B           &.    bne 0b       ; if so, to c845
9165 C83A F6 10 2F        ../   ldab 102f    ; read SCI data
9166 C83D F1 00 26        ..&   cmpb 0026
9167 C840 26 03           &.    bne 03
9168 C842 7E C9 1B        ~..   jmp c91b             ;goto45
9169
9170 C845 F6 10 2F        ../   ldab 102f    ; read SCI data
9171 C848 C4 63           .c    andb #63     ; 01100110
9172 C84A C1 23           .#    cmpb #23     ; 00100110
9173 C84C 27 03           '.    beq 03
9174 C84E 7E C8 E7        ~..   jmp c8e7             ;goto46 - pulse send' of changer
9175 ; doesnt return
9176 C851 F6 00 1A        ...   ldab 001a    ; register 3000 buffer
9177 C854 C4 01           ..    andb #01     ; accept' line of changer
9178 C856 26 03           &.    bne 03
9179 C858 7E C8 E7        ~..   jmp c8e7             ;goto46 - pulse send' of changer
9180 ; doesnt return
9181 C85B F6 00 21        ..!   ldab 0021
9182 C85E C4 F8           ..    andb #f8     ; 11111000
9183 C860 37              7     pshb 
9184 C861 F6 10 2F        ../   ldab 102f    ; read SCI data
9185 C864 C4 1C           ..    andb #1c     ; 00011100
9186 C866 54              T     lsrb         ;    ^^^
9187 C867 54              T     lsrb         ; get these bits out
9188 C868 30              0     tsx 
9189 C869 EA 00           ..    orb 00,x     ; or it with the thing just above
9190 C86B 31              1     ins 
9191 C86C F7 00 21        ..!   stab 0021    
9192 C86F F6 00 21        ..!   ldab 0021
9193 C872 F4 0B D7        ...   andb 0bd7    ; if (0021 & 0bd7)
9194 C875 27 08           '.    beq 08       ; is false
9195 C877 CE 00 17        ...   ldx #0017
9196 C87A 1C 00 20        ..    bset 00,x, #20
9197 C87C 20 18                 bra 18
9198 C87F F6 00 17        ...   ldab 0017    ; if true
9199 C882 C4 20           .     andb #20
9200 C884 27 11           '.    beq 11       ; if unset to c897 (break out of if)
9201 C886 CE 00 17        ...   ldx #0017
9202 C889 1D 00           ..    bclr 00,x, #20
9203 C88C C6 04            .    andb #04
9204 C88E F7 0C DB        ...   stab 0cdb
9205 C891 CE 0B C1        ...   ldx #0bc1
9206 C894 1C 00 40        ...   bset 00,x, #40 ;endif
9207 C897 F6 00 21        ..!   ldab 0021    
9208 C89A F4 0B D8        ...   andb 0bd8
9209 C89D 27 08           '.    beq 08           ; to c8a7
9210 C89F CE 00 17        ...   ldx #0017
9211 C8A2 1C 00 40        ...   bset 00,x, #40
9212 C8A5 20 18            .    bra 18           ; to c8cf
9213 ;
9214 C8A7 F6 00 17        ...   ldab 0017
9215 C8AA C4 40           .@    andb #40
9216 C8AC 27 11           '.    beq 11            ; to c8bf if unset
9217 C8AE CE 00 17        ...   ldx #0017
9218 C8B1 1D 00 40        ...   bclr 00,x, #40
9219 C8B4 C6 04           ..    ldab #04
9220 C8B6 F7 0C DA        ...   stab 0cda
9221 C8B9 CE 0B C1        ...   ldx #0bc1
9222 C8BC 1C 00 40        ...   bset 00,x, #40
9223 ; if 0021 & 0bd9, then set bit 7 of 0017, else unset it.
9224 C8BF F6 00 21        ..!   ldab 0021
9225 C8C2 F4 0B D9        ...   andb 0bd9
9226 C8C5 27 08           '.    beq 08
9227 C8C7 CE 00 17        ...   ldx #0017
9228 C8CA 1C 00 80        ..    bset 00,x, #80
9229 C8CC 20 16           .     bra 16     ; to c8e5
9230 ;
9231 C8CF F6 00 17        ...   ldab 0017
9232 C8D2 2C 11           ,.    bge 11     ; to c8e5
9233 C8D4 CE 00 17        ...   ldx #0017
9234 C8D7 1D 00           ..    bclr 00,x, #80
9235 ; set counter to 4?
9236 C8D9 C6 04           ..    ldab #04
9237 C8DC F7 0C D9        ...   stab 0cd9
9238 ; set tube error bit
9239 C8DF CE 0B C1        ...   ldx #0bc1
9240 C8E2 1C 00 40        ...   bset 00,x, #40
9241 C8E5 20 31            1    bra 31          ; to c918
9242 ;
9243 goto46: ; pulse the send' line of the changer
9244 C8E7 F6 10 2F        ../   ldab 102f    ; read SCI data
9245 C8EA F7 00 26        ..&   stab 0026
9246 C8ED CE 00 1A        ...   ldx #001a
9247 C8F0 1C 00 02        ...   bset 00,x, #02
9248 C8F3 F6 00 1A        ...   ldab 001a
9249 C8F6 F7 30 00        .0.   stab 3000    ; changer send' high
9250 C8F9 F6 00 3D        ..=   ldab 003d
9251 C8FC C4 04           ..    andb #04
9252 C8FE 26 18           &.    bne 18       ; to c918
9253 C900 CC 00 03        ...   ldd #0003
9254 C903 BD E5 71        ..q   jsr e571             ;msdelay
9255 C906 CE 00 1A        ...   ldx #001a
9256 C909 1D 00 02        ...   bclr 00,x, #02
9257 C90C F6 00 1A        ...   ldab 001a
9258 C90F F7 30 00        .0.   stab 3000    ; changer send' low
9259 C912 7C 00 3D        |.=   inc 003d
9260 C915 7E CE 46        ~.F   jmp ce46             ;goto47 (exit)
9261 C918 7E CB DA        ~..   jmp cbda             ;goto48 (clean exit)
9262 ;
9263 goto45:
9264 C91B F6 00 08        ...   ldab 0008
9265 C91E 26 03           &.    bne 03
9266 C920 7E CA 5F        ~._   jmp ca5f             ;goto49
9267 C923 F6 00 17        ...   ldab 0017
9268 C926 C4 04           ..    andb #04
9269 C928 26 03           &.    bne 03
9270 C92A 7E CA 5F        ~._   jmp ca5f             ;goto49
9271 C92D F6 00 17        ...   ldab 0017
9272 C930 C4 08           ..    andb #08
9273 C932 26 03           &.    bne 03
9274 C934 7E CA 5F        ~._   jmp ca5f             ;goto49
9275 C937 F6 10 2F        ../   ldab 102f    ; read SCI data
9276 C93A C1 FF           ..    cmpb #ff
9277 C93C 27 07           '.    beq 07       ; to c945
9278 C93E F6 00 08        ...   ldab 0008
9279 C941 C1 0E           ..    cmpb #0e     ; if > 14
9280 C943 25 12           %.    bcs 12       ; to c957
9281 C945 CE 00 17        ...   ldx #0017
9282 C948 1D 00 04        ...   bclr 00,x, #04
9283 C94B 7F 00 08        ...   clr 0008
9284 C94E BD CE 48        ..H   jsr ce48             ;jump48
9285 C951 7F 00 2C        ..,   clr 002c
9286 C954 7E CA 5C        ~.\   jmp ca5c             ;goto50 - clean exit
9287 ;
9288 C957 F6 00 08        ...   ldab 0008
9289 C95A 4F              O     clra 
9290 C95B BD FE 16        ...   jsr fe16             ;jump2
9291 C95E 00 01 00 0C     .     
9292 C962 CA 59           .Y    ; inc 0008 and clean exit
9293 C964 C9 7E           .~    ; read byte into 0bc2
9294 C966 C9 87           ..    ; read byte into 0bc3 & ^10 and stuff
9295 C968 C9 DF           ..    ; read byte into 0bc4 & stuff
9296 C96A C9 F3           ..    ; read byte into 0bc5 & stuff
9297 C96C CA 07           ..    ; read byte into 0bc6 & stuff
9298 C96E CA 1B           ..    ; read byte into 0bc7 only
9299 C970 CA 23           .#    ; read byte into 0bc8 only
9300 C972 CA 2B           .+    ; read byte into 0bc9 only
9301 C974 CA 33           .3    ; read byte into 0bca only
9302 C976 CA 3B           .;    ; read byte into 0bcb only
9303 C978 CA 43           .C    ; read byte into 0bcc only
9304 C97A CA 4B           .K    ; read byte into 0bcd only
9305 C97C CA 53           .S    ; read byte into 0bce only
9306 C97E F6 10 2F        ../   ldab 102f    ; read SCI data
9307 C981 F7 0B C2        ...   stab 0bc2
9308 C984 7E CA 59        ~.Y   jmp ca59             ;goto51 - inc 0008 and exit
9309 ;
9310 C987 F6 10 2F        ../   ldab 102f    ; read SCI data
9311 C98A F7 0B E3        ...   stab 0be3
9312 C98D F6 10 2F        ../   ldab 102f    ; read SCI data
9313 C990 C4 0F           ..    andb #0f
9314 C992 C1 01           ..    cmpb #01
9315 C994 26 07           &.    bne 07         ; to c99d
9316 C996 C6 02           ..    ldab #02
9317 C998 F7 00 13        ...   stab 0013
9318 C99B 20 1B            .    bra 1b         ; to c9b8
9319 C99D C1 02           ..    cmpb #02
9320 C99F 26 07           &.    bne 07         ; to c9a8
9321 C9A1 C6 04           ..    ldab #04
9322 C9A3 F7 00 13        ...   stab 0013
9323 C9A6 20 10            .    bra 10         ; to c9b8
9324 C9A8 C1 03           ..    cmpb #03
9325 C9AA 26 07           &.    bne 07         ; to c9b3
9326 C9AC C6 08           ..    ldab #08
9327 C9AE F7 00 13        ...   stab 0013
9328 C9B1 20 05            .    bra 05         ; to c9b8
9329 C9B3 C6 01           ..    ldab #01
9330 C9B5 F7 00 13        ...   stab 0013
9331 C9B8 F6 10 2F        ../   ldab 102f    ; read SCI data
9332 C9BB C4 F0           ..    andb #f0
9333 C9BD 54              T     lsrb 
9334 C9BE 54              T     lsrb 
9335 C9BF 54              T     lsrb 
9336 C9C0 54              T     lsrb 
9337 C9C1 F7 0B C3        ...   stab 0bc3
9338 C9C4 F6 0B C2        ...   ldab 0bc2
9339 C9C7 F7 0B AA        ...   stab 0baa
9340 ;;0baa^:=pow(10,0bc3^)  0bc3 is the top 4 bits from the serial port.
9341 ;while 0bc3^<>0 
9342 ;  obaa^:=0baa^*10
9343 ;  obc3^:=0bc3-1
9344 ;endwhile
9345 C9CA F6 0B C3        ...   ldab 0bc3
9346 C9CD 27 0E           '.    beq c9dd
9347 C9CF F6 0B AA        ...   ldab 0baa
9348 C9D2 86 0A           ..    ldaa #0a
9349 C9D4 3D              =     mul 
9350 C9D5 F7 0B AA        ...   stab 0baa
9351 C9D8 7A 0B C3        z..   dec 0bc3
9352 C9DB 20 ED            .    bra c9ca
9353
9354 C9DD 20 7A            z    bra 7a       ;goto51 - inc 0008 & clean exit
9355 ;
9356 C9DF F6 10 2F        ../   ldab 102f    ; read SCI data
9357 C9E2 F7 0B C4        ...   stab 0bc4
9358 C9E5 F6 0B C4        ...   ldab 0bc4
9359 C9E8 C1 80           ..    cmpb #80
9360 C9EA 26 05           &.    bne 05
9361 C9EC C6 0F           ..    ldab #0f
9362 C9EE F7 0B C4        ...   stab 0bc4
9363 C9F1 20 66            f    bra 66       ;goto51 - inc 0008 & clean exit
9364 ;
9365 C9F3 F6 10 2F        ../   ldab 102f    ; read SCI data
9366 C9F6 F7 0B C5        ...   stab 0bc5
9367 C9F9 F6 0B C5        ...   ldab 0bc5
9368 C9FC C1 80           ..    cmpb #80
9369 C9FE 26 05           &.    bne 05
9370 CA00 C6 0F           ..    ldab #0f
9371 CA02 F7 0B C5        ...   stab 0bc5
9372 CA05 20 52            R    bra 52       ;goto51 - inc 0008 & clean exit
9373 ;
9374 CA07 F6 10 2F        ../   ldab 102f    ; read SCI data
9375 CA0A F7 0B C6        ...   stab 0bc6
9376 CA0D F6 0B C6        ...   ldab 0bc6
9377 CA10 C1 80           ..    cmpb #80
9378 CA12 26 05           &.    bne ca19
9379 CA14 C6 0F           ..    ldab #0f
9380 CA16 F7 0B C6        ...   stab 0bc6
9381 CA19 20 3E            >    bra 3e       ;goto51 - inc 0008 & clean exit
9382 ;
9383 ; read byte of data into 0bc7 - 0bce
9384 CA1B F6 10 2F        ../   ldab 102f    ; read SCI data
9385 CA1E F7 0B C7        ...   stab 0bc7
9386 CA21 20 36            6    bra 36
9387 ;
9388 CA23 F6 10 2F        ../   ldab 102f    ; read SCI data
9389 CA26 F7 0B C8        ...   stab 0bc8
9390 CA29 20 2E            .    bra 2e
9391 ;
9392 CA2B F6 10 2F        ../   ldab 102f    ; read SCI data
9393 CA2E F7 0B C9        ...   stab 0bc9
9394 CA31 20 26            &    bra 26
9395 ;
9396 CA33 F6 10 2F        ../   ldab 102f    ; read SCI data
9397 CA36 F7 0B CA        ...   stab 0bca
9398 CA39 20 1E            .    bra 1e
9399 ;
9400 CA3B F6 10 2F        ../   ldab 102f    ; read SCI data
9401 CA3E F7 0B CB        ...   stab 0bcb
9402 CA41 20 16            .    bra 16
9403 ;
9404 CA43 F6 10 2F        ../   ldab 102f    ; read SCI data
9405 CA46 F7 0B CC        ...   stab 0bcc
9406 CA49 20 0E            .    bra 0e
9407 ;
9408 CA4B F6 10 2F        ../   ldab 102f    ; read SCI data
9409 CA4E F7 0B CD        ...   stab 0bcd
9410 CA51 20 06            .    bra 06
9411 ;
9412 CA53 F6 10 2F        ../   ldab 102f    ; read SCI data
9413 CA56 F7 0B CE        ...   stab 0bce
9414 goto51:
9415 CA59 7C 00 08        |..   inc 0008
9416 goto50:
9417 CA5C 7E CB DA        ~..   jmp cbda             ;goto48 (clean exit)
9418 ;
9419 goto49:
9420 CA5F F6 10 2F        ../   ldab 102f    ; read SCI data
9421 CA62 C4 EF           ..    andb #ef     ; 11101111
9422 CA64 C1 E2           ..    cmpb #e2     ; 11100010
9423 CA66 26 1A           &.    bne 1a       ; if no match, to ca82
9424 CA68 CE 00 17        ...   ldx #0017
9425 CA6B 1C 00 08        ...   bset 00,x, #08
9426 CA6E CE 00 17        ...   ldx #0017
9427 CA71 1C 00 04        ...   bset 00,x, #04
9428 CA74 C6 01           ..    ldab #01
9429 CA76 F7 00 08        ...   stab 0008
9430 CA79 CE 0B C1        ...   ldx #0bc1
9431 CA7C 1D 00 01        ...   bclr 00,x, #01
9432 CA7F 7E CB DA        ~..   jmp cbda             ;goto48 (clean exit)
9433 ;
9434 CA82 F6 10 2F        ../   ldab 102f    ; read SCI data
9435 CA85 C4 02           ..    andb #02
9436 CA87 27 03           '.    beq 03       ; if bit is set then
9437 CA89 7E CB 6C        ~.l   jmp cb6c             ; goto52
9438 CA8C F6 10 2F        ../   ldab 102f    ; read SCI data
9439 CA8F 2C 38           ,8    bge 38       ; if bit 7 unset, to cac9
9440 CA91 F6 00 17        ...   ldab 0017
9441 CA94 C4 08           ..    andb #08
9442 CA96 26 31           &1    bne 31
9443 CA98 F6 10 2F        ../   ldab 102f    ; read SCI data
9444 CA9B C4 78           .x    andb #78     ; 01111000
9445 CA9D 54              T     lsrb 
9446 CA9E 54              T     lsrb 
9447 CA9F 54              T     lsrb 
9448 CAA0 4F              O     clra 
9449 CAA1 C3 0B C7        ...   addd #0bc7
9450 CAA4 8F              .     xgdx 
9451 CAA5 E6 00           ..    ldab 00,x
9452 CAA7 4F              O     clra 
9453 CAA8 37              7     pshb 
9454 CAA9 36              6     psha 
9455 CAAA F6 0B AA        ...   ldab 0baa
9456 CAAD 4F              O     clra 
9457 CAAE BD FB BA        ...   jsr fbba             ;jump38 - multiply?
9458 CAB1 F3 00 40        ..@   addd 0040
9459 CAB4 FD 00 40        ..@   std 0040
9460 CAB7 CE 00 1B        ...   ldx #001b
9461 CABA 1C 00           ..    bset 00,x, #20
9462 CABD CE 00 1B        ...   ldx #001b
9463 CAC0 1D 00 40        ...   bclr 00,x, #40
9464 CAC3 7F 00 25        ..%   clr 0025
9465 CAC6 7E CB 64        ~.d   jmp cb64             ;goto53
9466 ;
9467 CAC9 F6 00 17        ...   ldab 0017
9468 CACC C4 08           ..    andb #08
9469 CACE 26 4A           &J    bne 4a       ;to cb1a
9470 CAD0 F6 10 2F        ../   ldab 102f    ; read SCI data
9471 CAD3 C4 60           .`    andb #60     ; 01100000
9472 CAD5 54              T     lsrb         ;  ^^^^
9473 CAD6 54              T     lsrb 
9474 CAD7 54              T     lsrb 
9475 CAD8 4F              O     clra 
9476 CAD9 C3 0B C7        ...   addd #0bc7
9477 CADC 8F              .     xgdx 
9478 CADD E6 00           ..    ldab 00,x
9479 CADF 4F              O     clra 
9480 CAE0 37              7     pshb 
9481 CAE1 36              6     psha 
9482 CAE2 F6 0B AA        ...   ldab 0baa
9483 CAE5 4F              O     clra 
9484 CAE6 BD FB BA        ...   jsr fbba             ;jump38 - multiply?
9485 CAE9 FD 0B BD        ...   std 0bbd
9486 CAEC FC 0B BD        ...   ldd 0bbd
9487 CAEF F3 00 40        ..@   addd 0040
9488 CAF2 FD 00 40        ..@   std 0040
9489 CAF5 F6 00 21        ..!   ldab 0021
9490 CAF8 C4 F8           ..    andb #f8     ; 11111000
9491 CAFA 37              7     pshb 
9492 CAFB F6 10 2F        ../   ldab 102f    ; read SCI data
9493 CAFE C4 1C           ..    andb #1c     ; 00011100
9494 CB00 54              T     lsrb
9495 CB01 54              T     lsrb 
9496 CB02 30              0     tsx 
9497 CB03 EA 00           ..    orb 00,x     ; or lower 3 bits with 0021
9498 CB05 31              1     ins 
9499 CB06 F7 00 21        ..!   stab 0021
9500 CB09 F6 10 2F        ../   ldab 102f    ; read SCI data
9501 CB0C F7 0B BC        ...   stab 0bbc
9502 CB0F CE 00 1B        ...   ldx #001b
9503 CB12 1D 00 40        ..    bclr 00,x, #40
9504 CB15 7F 00 25        ..%   clr 0025
9505 CB18 20 4A            J    bra 4a       ;goto53 - more cleanups and exit
9506 ;
9507 CB1A F6 10 2F        ../   ldab 102f    ; read SCI data
9508 CB1D C4 E0           ..    andb #e0     ; 11100000
9509 CB1F 54              T     lsrb 
9510 CB20 54              T     lsrb 
9511 CB21 54              T     lsrb 
9512 CB22 54              T     lsrb 
9513 CB23 54              T     lsrb          ; shr5
9514 CB24 4F              O     clra 
9515 CB25 C3 0B C7        ...   addd #0bc7
9516 CB28 8F              .     xgdx 
9517 CB29 E6 00           ..    ldab 00,x
9518 CB2B 4F              O     clra 
9519 CB2C 37              7     pshb 
9520 CB2D 36              6     psha 
9521 CB2E F6 0B AA        ...   ldab 0baa
9522 CB31 4F              O     clra 
9523 CB32 BD FB BA        ...   jsr fbba             ;jump38 - multiply?
9524 CB35 FD 0B BD        ...   std 0bbd
9525 CB38 FC 0B BD        ...   ldd 0bbd
9526 CB3B F3 00 40        ..@   addd 0040
9527 CB3E FD 00 40        ..@   std 0040
9528 CB41 F6 00 21        ..!   ldab 0021
9529 CB44 C4 F8           ..    andb #f8
9530 CB46 37              7     pshb 
9531 CB47 F6 10 2F        ../   ldab 102f    ; read SCI data
9532 CB4A C4 1C           ..    andb #1c
9533 CB4C 54              T     lsrb 
9534 CB4D 54              T     lsrb 
9535 CB4E 30              0     tsx 
9536 CB4F EA 00           ..    orb 00,x
9537 CB51 31              1     ins 
9538 CB52 F7 00 21        ..!   stab 0021
9539 CB55 F6 10 2F        ../   ldab 102f    ; read SCI data
9540 CB58 F7 0B BC        ...   stab 0bbc
9541 CB5B CE 00 1B        ...   ldx #001b
9542 CB5E 1D 00 40        ...   bclr 00,x, #40
9543 CB61 7F 00 25        ..%   clr 0025
9544 goto53: ; more cleanups and exit
9545 CB64 7F 00 2C        ..,   clr 002c
9546 CB67 7F 00 3A        ..:   clr 003a
9547 CB6A 20 6E            n    bra 6e       ; to cbda - cleanup and exit
9548 goto52:
9549 CB6C F6 10 2F        ../   ldab 102f    ; read SCI data
9550 CB6F C4 03           ..    andb #03
9551 CB71 C1 02           ..    cmpb #02
9552 CB73 26 0F           &.    bne 0f       ; to bc84
9553 CB75 F6 00 21        ..!   ldab 0021
9554 CB78 C4 08           ..    andb #08
9555 CB7A 27 08           '.    beq 08
9556 CB7C CE 00 21        ..!   ldx #0021
9557 CB7F 1C 00 10        ...   bset 00,x, #10
9558 CB82 20 56            V    bra 56       ; to cbda - cleanup and exit
9559 ;
9560 CB84 F6 10 2F        ../   ldab 102f    ; read SCI data
9561 CB87 C4 EF           ..    andb #ef     ; 11101111
9562 CB89 C1 E3           ..    cmpb #e3     ; 11100111
9563 CB8B 26 08           &.    bne 08       ; to cb95
9564 CB8D CE 0B C1        ...   ldx #0bc1
9565 CB90 1D 00 02        ...   bclr 00,x, #02
9566 CB93 20 45            E    bra 45
9567 ;
9568 CB95 F6 10 2F        ../   ldab 102f    ; read SCI data
9569 CB98 C4 EF           ..    andb #ef     ; 11101111
9570 CB9A C1 63           .c    cmpb #63     ; 01101110
9571 CB9C 26 1C           &.    bne 1c       ; to cbba
9572 CB9E CE 0B C1        ...   ldx #0bc1
9573 CBA1 1D 00 01        ...   bclr 00,x, #01
9574 CBA4 F6 0B C0        ...   ldab 0bc0
9575 CBA7 C4 01           ..    andb #01
9576 CBA9 27 0D           '.    beq 0d       ; to cbb8
9577 CBAB F6 0B C0        ...   ldab 0bc0
9578 CBAE C4 04           ..    andb #04
9579 CBB0 27 06           '.    beq 06       ; to cbb8
9580 CBB2 CE 0B C1        ...   ldx #0bc1
9581 CBB5 1D 00 02        ...   bclr 00,x, #02
9582 CBB8 20 20                 bra 20       ;goto48 - cleanup & exit
9583 ;
9584 CBBA F6 10 2F        ../   ldab 102f    ; read SCI data
9585 CBBD C4 EF           ..    andb #ef     ; 11101111
9586 CBBF C1 67           .g    cmpb #67     ; 01100111
9587 CBC1 26 08           &.    bne 08       ; to cbcb
9588 CBC3 CE 0B C1        ...   ldx #0bc1
9589 CBC6 1C 00           ..    bset 00,x, #20
9590 CBC9 20 0F                 bra 0f       ;goto48 - cleanup & exit
9591 ;
9592 CBCB F6 10 2F        ../   ldab 102f    ; read SCI data
9593 CBCE C4 EF           ..    andb #ef     ; 11101111
9594 CBD0 C1 27           .'    cmpb #27     ; 00100111
9595 CBD2 26 06           &.    bne 06       ;goto48 - cleanup & exit
9596
9597 CBD4 CE 0B C1        ...   ldx #0bc1
9598 CBD7 1C 00 10        ...   bset 00,x, #10
9599 goto48: ; cleanup and exit
9600 CBDA CE 00 1A        ...   ldx #001a
9601 CBDD 1C 00 02        ...   bset 00,x, #02
9602 CBE0 F6 00 1A        ...   ldab 001a
9603 CBE3 F7 30 00        .0.   stab 3000    ; changer send' high
9604 CBE6 F6 00 17        ...   ldab 0017
9605 CBE9 C4 04           ..    andb #04
9606 CBEB 26 05           &.    bne 05       ; to cbf2
9607 CBED C6 06           ..    ldab #06
9608 CBEF F7 00 07        ...   stab 0007
9609 CBF2 F6 00 26        ..&   ldab 0026    ; 0026 ~= 0026
9610 CBF5 53              S     comb 
9611 CBF6 F7 00 26        ..&   stab 0026
9612 CBF9 7F 00 3D        ..=   clr 003d
9613 CBFC 7E CE 46        ~.F   jmp ce46             ;goto47 (exit)
9614 ;
9615 goto44:
9616 CBFF F6 0B C0        ...   ldab 0bc0
9617 CC02 C4 02           ..    andb #02
9618 CC04 26 03           &.    bne 03
9619 CC06 7E CE 3B        ~.;   jmp ce3b             ;goto54  - swallow 2 bytes & exit
9620 CC09 F6 10 2F        ../   ldab 102f    ; read SCI data
9621 CC0C C4 E0           ..    andb #e0
9622 CC0E C1 20           .     cmpb #20
9623 CC10 27 03           '.    beq 03
9624 CC12 7E CE 3B        ~.;   jmp ce3b             ;goto54  - swallow 2 bytes & exit
9625 CC15 C6 32           .2    ldab #32     ; 50
9626 CC17 F7 00 2F        ../   stab 002f
9627 CC1A CE 00 1B        ...   ldx #001b
9628 CC1D 1C 00 02        ...   bset 00,x, #02
9629 CC20 F6 10 2E        ...   ldab 102e    ; SCI status
9630 CC23 C4 02           ..    andb #02     ; test for Framing Error
9631 CC25 26 08           &.    bne 08
9632 CC27 BD C7 C0        ...   jsr c7c0             ;jump49 - parity test
9633 CC2A 83 00 00        ...   subd #0000
9634 CC2D 26 0F           &.    bne 0f       ; if failed, to cc3e
9635 CC2F F6 10 2F        ../   ldab 102f    ; read SCI data
9636 CC32 30              0     tsx 
9637 CC33 E7 00           ..    stab 00,x
9638 CC35 CC 00 FF        ...   ldd #00ff
9639 CC38 BD C7 E7        ...   jsr c7e7             ;jump37 - send #FF to coin mech
9640 CC3B 7E CE 39        ~.9   jmp ce39             ;goto55 - exit
9641 ;
9642 CC3E F6 10 2F        ../   ldab 102f    ; read SCI data
9643 CC41 C1 3F           .?    cmpb #3f     ; 00111111
9644 CC43 26 0A           &.    bne 0a       ; to cc4f
9645 CC45 F6 00 43        ..C   ldab 0043
9646 CC48 4F              O     clra 
9647 CC49 BD C7 E7        ...   jsr c7e7             ;jump37 - send 0043 to coin mech - retry?
9648 CC4C 7E CE 39        ~.9   jmp ce39             ;goto55 - exit
9649 ;
9650 CC4F F6 00 08        ...   ldab 0008
9651 CC52 26 03           &.    bne 03
9652 CC54 7E CD 94        ~..   jmp cd94             ;goto56
9653 CC57 F6 10 2F        ../   ldab 102f    ; read SCI data
9654 CC5A C4 F0           ..    andb #f0
9655 CC5C C1 20           .     cmpb #20
9656 CC5E 27 03           '.    beq 03
9657 CC60 7E CD 94        ~..   jmp cd94             ;goto56
9658 CC63 F6 10 2F        ../   ldab 102f    ; read SCI data
9659 CC66 C4 0F           ..    andb #0f
9660 CC68 30              0     tsx 
9661 CC69 E7 00           ..    stab 00,x
9662 CC6B F6 00 08        ...   ldab 0008
9663 CC6E 4F              O     clra 
9664 CC6F BD FE 16        ...   jsr fe16             ;jump2
9665 CC72 00 01 00 07     .     ; array data for jump2
9666 CC76 CD 7A           .     ; if 0008 == 9, clr 0008, 002c. else inc 0008, send #00 to coin mech
9667 CC78 CC 88           ..    ; if 0017&#1 sp=>0076, else sp=>0040, then same as above
9668 CC7A CC A2           ..    ; if 0017&#1 0076+=sp<<4, else 0040+=sp<<4, then same as above
9669 CC7C CC CA           ..    ; if 0017&#1 0076+=sp<<8, else 0040+=sp<<8, then same as above
9670 CC7E CC EE           ..    ; if 0017&#1 0076+=sp<<16, else 0040+=sp<16, then same as above
9671 CC80 CD 19           ..    ; 0baa = sp, then same as above
9672 CC82 CD 21           .     ; 0baa = sp<<4, then same as above
9673 CC83 CD 30           !.    ; 0013 = sp, then same as above
9674 CC85 CD 38           0     ; read byte & #01, 
9675 ;
9676 CC88 F6 00 17        ...   ldab 0017
9677 CC8B C4 01           ..    andb #01
9678 CC8D 27 09           '.    beq 09       ; to cc98
9679 CC8F 30              0     tsx 
9680 CC90 E6 00           ..    ldab 00,x
9681 CC92 4F              O     clra 
9682 CC93 FD 00 76        ..v   std 0076
9683 CC96 20 07            .    bra 07       ; to cc9f
9684 CC98 30              0     tsx 
9685 CC99 E6 00           ..    ldab 00,x
9686 CC9B 4F              O     clra 
9687 CC9C FD 00 40        ..@   std 0040
9688 CC9F 7E CD 7A        ~.z   jmp cd7a             ;goto57
9689 ;
9690 CCA2 F6 00 17        ...   ldab 0017
9691 CCA5 C4 01           ..    andb #01
9692 CCA7 27 10           '.    beq 10       ; to ccb9
9693 CCA9 30              0     tsx 
9694 CCAA E6 00           ..    ldab 00,x
9695 CCAC 4F              O     clra 
9696 CCAD 05              .     asld 
9697 CCAE 05              .     asld 
9698 CCAF 05              .     asld 
9699 CCB0 05              .     asld 
9700 CCB1 F3 00 76        ..v   addd 0076
9701 CCB4 FD 00 76        ..v   std 0076
9702 CCB7 20 0E            .    bra 0e       ; to ccc7
9703 CCB9 30              0     tsx 
9704 CCBA E6 00           ..    ldab 00,x
9705 CCBC 4F              O     clra 
9706 CCBD 05              .     asld 
9707 CCBE 05              .     asld 
9708 CCBF 05              .     asld 
9709 CCC0 05              .     asld 
9710 CCC1 F3 00 40        ..@   addd 0040
9711 CCC4 FD 00 40        ..@   std 0040
9712 CCC7 7E CD 7A        ~.z   jmp cd7a             ;goto57
9713 ;
9714 CCCA F6 00 17        ...   ldab 0017
9715 CCCD C4 01           ..    andb #01
9716 CCCF 27 0E           '.    beq 0e       ; to ccdf
9717 CCD1 30              0     tsx 
9718 CCD2 E6 00           ..    ldab 00,x
9719 CCD4 4F              O     clra 
9720 CCD5 17              .     tba 
9721 CCD6 5F              _     clrb 
9722 CCD7 F3 00 76        ..v   addd 0076
9723 CCDA FD 00 76        ..v   std 0076
9724 CCDD 20 0C            .    bra 0c       ; to cceb
9725 CCDF 30              0     tsx 
9726 CCE0 E6 00           ..    ldab 00,x
9727 CCE2 4F              O     clra 
9728 CCE3 17              .     tba 
9729 CCE4 5F              _     clrb 
9730 CCE5 F3 00 40        ..@   addd 0040
9731 CCE8 FD 00 40        ..@   std 0040
9732 CCEB 7E CD 7A        ~.z   jmp cd7a             ;goto57
9733 ;
9734 CCEE F6 00 17        ...   ldab 0017
9735 CCF1 C4 01           ..    andb #01
9736 CCF3 27 12           '.    beq 12     ; to cd07
9737 CCF5 30              0     tsx 
9738 CCF6 E6 00           ..    ldab 00,x
9739 CCF8 4F              O     clra 
9740 CCF9 17              .     tba 
9741 CCFA 48              H     asla 
9742 CCFB 48              H     asla 
9743 CCFC 48              H     asla 
9744 CCFD 48              H     asla 
9745 CCFE 5F              _     clrb 
9746 CCFF F3 00 76        ..v   addd 0076
9747 CD02 FD 00 76        ..v   std 0076
9748 CD05 20 10            .    bra 10     ; to cd17
9749 CD07 30              0     tsx  
9750 CD08 E6 00           ..    ldab 00,x
9751 CD0A 4F              O     clra 
9752 CD0B 17              .     tba 
9753 CD0C 48              H     asla 
9754 CD0D 48              H     asla 
9755 CD0E 48              H     asla 
9756 CD0F 48              H     asla 
9757 CD10 5F              _     clrb 
9758 CD11 F3 00 40        ..@   addd 0040
9759 CD14 FD 00 40        ..@   std 0040
9760 CD17 20 61            a    bra 61
9761 ;
9762 CD19 30              0     tsx 
9763 CD1A E6 00           ..    ldab 00,x
9764 CD1C F7 0B AA        ...   stab 0baa
9765 CD1F 20 59            Y    bra 59 ; to cd7a - goto57
9766 ;
9767 CD21 30              0     tsx 
9768 CD22 E6 00           ..    ldab 00,x
9769 CD24 58              X     aslb 
9770 CD25 58              X     aslb 
9771 CD26 58              X     aslb 
9772 CD27 58              X     aslb 
9773 CD28 FB 0B AA        ...   addb 0baa
9774 CD2B F7 0B AA        ...   stab 0baa
9775 CD2E 20 4A            J    bra 4a ; to cd7a - goto57
9776 ;
9777 CD30 30              0     tsx 
9778 CD31 E6 00           ..    ldab 00,x
9779 CD33 F7 00 13        ...   stab 0013
9780 CD36 20 42            B    bra 42 ; to cd7a - goto57
9781 ;
9782 CD38 F6 10 2F        ../   ldab 102f    ; read SCI data
9783 CD3B C4 01           ..    andb #01
9784 CD3D 27 08           '.    beq 08          ; to cd47
9785 CD3F CE 00 21        ..!   ldx #0021
9786 CD42 1C 00 40        ...   bset 00,x, #40
9787 CD45 20 06            .    bra 06          ; to cd4d
9788 CD47 CE 00 21        ..!   ldx #0021
9789 CD4A 1D 00 40        ...   bclr 00,x, #40
9790 ;
9791 CD4D F6 00 17        ...   ldab 0017
9792 CD50 C4 01           ..    andb #01
9793 CD52 27 17           '.    beq 17     ; to cd6b
9794 CD54 F6 0B AA        ...   ldab 0baa
9795 CD57 4F              O     clra 
9796 CD58 37              7     pshb 
9797 CD59 36              6     psha 
9798 CD5A FC 00 76        ..v   ldd 0076
9799 CD5D BD FB BA        ...   jsr fbba             ;jump38 - multiply?
9800 CD60 FD 00 76        ..v   std 0076     ; 0076 *= 0baa
9801 CD63 CE 00 17        ...   ldx #0017
9802 CD66 1D 00 01        ...   bclr 00,x, #01
9803 CD69 20 0F            .    bra 0f       ;goto57 - send byte & exit
9804 CD6B F6 0B AA        ...   ldab 0baa
9805 CD6E 4F              O     clra 
9806 CD6F 37              7     pshb 
9807 CD70 36              6     psha 
9808 CD71 FC 00 40        ..@   ldd 0040
9809 CD74 BD FB BA        ...   jsr fbba             ;jump38 - multiply?
9810 CD77 FD 00 40        ..@   std 0040     ; 0040 *= 0baa
9811 goto57:  ; sends the byte, clearing the counter if its the 8th byte
9812 CD7A F6 00 08        ...   ldab 0008
9813 CD7D C1 09           ..    cmpb #09
9814 CD7F 26 08           &.    bne 08
9815 CD81 7F 00 2C        ..,   clr 002c
9816 CD84 7F 00 08        ...   clr 0008
9817 CD87 20 03            .    bra 03
9818 CD89 7C 00 08        |..   inc 0008
9819 CD8C 5F              _     clrb 
9820 CD8D 4F              O     clra 
9821 CD8E BD C7 E7        ...   jsr c7e7             ;jump37 - send byte to coin mech
9822 CD91 7E CE 39        ~.9   jmp ce39             ;goto55 - exit
9823 goto56:
9824 CD94 F6 10 2F        ../   ldab 102f    ; read SCI data
9825 CD97 4F              O     clra 
9826 CD98 BD FE 32        ..2   jsr fe32             ;jump25
9827 CD9B CD B1 00 31     ...1  ; 49 "1"
9828 CD9F CD DB 00 01     ....  ; 50 "2"
9829 CDA3 CE 20 00 01     . ..  ; 51 "3"
9830 CDA7 CE 28 00 05     .(..  ; 56 "8"
9831 CDAB CE 34 FF C8     .4..  ; 0
9832 CDAF 00 00           ..    ; end of array data
9833 CDB1 F6 00 21        ..!   ldab 0021
9834 CDB4 2C 08           ,.    bge 08
9835 CDB6 CC 00 80        ...   ldd #0080
9836 CDB9 BD C7 E7        ...   jsr c7e7             ;jump37 - send byte to coin mech
9837 CDBC 20 1B            .    bra 1b
9838 CDBE 5F              _     clrb 
9839 CDBF 4F              O     clra 
9840 CDC0 BD C7 E7        ...   jsr c7e7             ;jump37 - send byte to coin mech
9841 CDC3 F6 00 1F        ...   ldab 001f
9842 CDC6 C4 08           ..    andb #08
9843 CDC8 27 0C           '.    beq 0c
9844 CDCA F6 0B C0        ...   ldab 0bc0
9845 CDCD C4 10           ..    andb #10
9846 CDCF 27 05           '.    beq 05
9847 CDD1 7C 00 75        |.u   inc 0075
9848 CDD4 20 03            .    bra 03
9849 CDD6 7F 00 75        ..u   clr 0075
9850 CDD9 20 5E            ^    bra 5e
9851 CDDB F6 00 1D        ...   ldab 001d
9852 CDDE C4 02           ..    andb #02
9853 CDE0 27 07           '.    beq 07
9854 CDE2 F6 00 19        ...   ldab 0019
9855 CDE5 C4 08           ..    andb #08
9856 CDE7 26 19           &.    bne 19
9857 CDE9 CC 00 FE        ...   ldd #00fe
9858 CDEC BD C7 E7        ...   jsr c7e7             ;jump37 - send byte to coin mech
9859 CDEF F6 00 1F        ...   ldab 001f
9860 CDF2 C4 08           ..    andb #08
9861 CDF4 27 0A           '.    beq 0a
9862 CDF6 F6 0B C0        ...   ldab 0bc0
9863 CDF9 C4 10           ..    andb #10
9864 CDFB 27 03           '.    beq 03
9865 CDFD 7C 00 75        |.u   inc 0075
9866 CE00 20 1C            .    bra 1c
9867 CE02 FC 00 44        ..D   ldd 0044
9868 CE05 37              7     pshb 
9869 CE06 36              6     psha 
9870 CE07 F6 0B AA        ...   ldab 0baa
9871 CE0A 4F              O     clra 
9872 CE0B 38              8     pulx 
9873 CE0C 8F              .     xgdx 
9874 CE0D 02              .     idiv 
9875 CE0E 8F              .     xgdx 
9876 CE0F BD C7 E7        ...   jsr c7e7             ;jump37 - send byte to coin mech
9877 CE12 CE 00 19        ...   ldx #0019
9878 CE15 1D 00 08        ...   bclr 00,x, #08
9879 CE18 CE 00 1F        ...   ldx #001f
9880 CE1B 1C 00 08        ...   bset 00,x, #08
9881 CE1E 20 19            .    bra 19
9882 CE20 CE 00 1D        ...   ldx #001d
9883 CE23 1D 00 02        ...   bclr 00,x, #02
9884 CE26 20 11            .    bra 11
9885 CE28 C6 01           ..    ldab #01
9886 CE2A F7 00 08        ...   stab 0008
9887 CE2D 5F              _     clrb 
9888 CE2E 4F              O     clra 
9889 CE2F BD C7 E7        ...   jsr c7e7             ;jump37 - send byte to coin mech
9890 CE32 20 05            .    bra 05
9891 CE34 5F              _     clrb 
9892 CE35 4F              O     clra 
9893 CE36 BD C7 E7        ...   jsr c7e7             ;jump37 - send byte to coin mech
9894 goto55:
9895 CE39 20 0B            .    bra 0b       ; to ce46 (exit)
9896 goto54: ; just swallow two bytes?
9897 CE3B F6 10 2E        ...   ldab 102e    ; SCI Status
9898 CE3E 30              0     tsx 
9899 CE3F E7 00           ..    stab 00,x
9900 CE41 F6 10 2F        ../   ldab 102f    ; read SCI data
9901 CE44 E7 00           ..    stab 00,x
9902 goto47:
9903 CE46 31              1     ins 
9904 CE47 3B              ;     rti 
9905
9906 jump48:
9907 CE48 F6 0B C4        ...   ldab 0bc4
9908 CE4B F1 0B C5        ...   cmpb 0bc5
9909 CE4E 25 53           %S    bcs 53
9910 CE50 F6 0B C5        ...   ldab 0bc5
9911 CE53 F1 0B C6        ...   cmpb 0bc6
9912 CE56 25 4B           %K    bcs 4b
9913 CE58 F6 0B C4        ...   ldab 0bc4
9914 CE5B 4F              O     clra 
9915 CE5C C3 0B C7        ...   addd #0bc7
9916 CE5F 8F              .     xgdx 
9917 CE60 E6 00           ..    ldab 00,x
9918 CE62 4F              O     clra 
9919 CE63 FD 0B DD        ...   std 0bdd
9920 CE66 F6 0B C5        ...   ldab 0bc5
9921 CE69 4F              O     clra 
9922 CE6A C3 0B C7        ...   addd #0bc7
9923 CE6D 8F              .     xgdx 
9924 CE6E E6 00           ..    ldab 00,x
9925 CE70 4F              O     clra 
9926 CE71 FD 0B DF        ...   std 0bdf
9927 CE74 F6 0B C6        ...   ldab 0bc6
9928 CE77 4F              O     clra 
9929 CE78 C3 0B C7        ...   addd #0bc7
9930 CE7B 8F              .     xgdx 
9931 CE7C E6 00           ..    ldab 00,x
9932 CE7E 4F              O     clra 
9933 CE7F FD 0B E1        ...   std 0be1
9934 CE82 C6 01           ..    ldab #01
9935 CE84 F7 0B D7        ...   stab 0bd7
9936 CE87 C6 04           ..    ldab #04
9937 CE89 F7 0B D8        ...   stab 0bd8
9938 CE8C C6 02           ..    ldab #02
9939 CE8E F7 0B D9        ...   stab 0bd9
9940 CE91 C6 20           .     ldab #20
9941 CE93 F7 0B DA        ...   stab 0bda
9942 CE96 C6 08           ..    ldab #08
9943 CE98 F7 0B DB        ...   stab 0bdb
9944 CE9B C6 10           ..    ldab #10
9945 CE9D F7 0B DC        ...   stab 0bdc
9946 CEA0 7E D0 66        ~.f   jmp d066             ;goto58
9947 CEA3 F6 0B C4        ...   ldab 0bc4
9948 CEA6 F1 0B C6        ...   cmpb 0bc6
9949 CEA9 25 53           %S    bcs 53
9950 CEAB F6 0B C6        ...   ldab 0bc6
9951 CEAE F1 0B C5        ...   cmpb 0bc5
9952 CEB1 25 4B           %K    bcs 4b
9953 CEB3 F6 0B C4        ...   ldab 0bc4
9954 CEB6 4F              O     clra 
9955 CEB7 C3 0B C7        ...   addd #0bc7
9956 CEBA 8F              .     xgdx 
9957 CEBB E6 00           ..    ldab 00,x
9958 CEBD 4F              O     clra 
9959 CEBE FD 0B DD        ...   std 0bdd
9960 CEC1 F6 0B C6        ...   ldab 0bc6
9961 CEC4 4F              O     clra 
9962 CEC5 C3 0B C7        ...   addd #0bc7
9963 CEC8 8F              .     xgdx 
9964 CEC9 E6 00           ..    ldab 00,x
9965 CECB 4F              O     clra 
9966 CECC FD 0B DF        ...   std 0bdf
9967 CECF F6 0B C5        ...   ldab 0bc5
9968 CED2 4F              O     clra 
9969 CED3 C3 0B C7        ...   addd #0bc7
9970 CED6 8F              .     xgdx 
9971 CED7 E6 00           ..    ldab 00,x
9972 CED9 4F              O     clra 
9973 CEDA FD 0B E1        ...   std 0be1
9974 CEDD C6 01           ..    ldab #01
9975 CEDF F7 0B D7        ...   stab 0bd7
9976 CEE2 C6 02           ..    ldab #02
9977 CEE4 F7 0B D8        ...   stab 0bd8
9978 CEE7 C6 04           ..    ldab #04
9979 CEE9 F7 0B D9        ...   stab 0bd9
9980 CEEC C6 20           .     ldab #20
9981 CEEE F7 0B DA        ...   stab 0bda
9982 CEF1 C6 10           ..    ldab #10
9983 CEF3 F7 0B DB        ...   stab 0bdb
9984 CEF6 C6 08           ..    ldab #08
9985 CEF8 F7 0B DC        ...   stab 0bdc
9986 CEFB 7E D0 66        ~.f   jmp d066             ;goto58
9987 CEFE F6 0B C5        ...   ldab 0bc5
9988 CF01 F1 0B C4        ...   cmpb 0bc4
9989 CF04 25 53           %S    bcs 53
9990 CF06 F6 0B C4        ...   ldab 0bc4
9991 CF09 F1 0B C6        ...   cmpb 0bc6
9992 CF0C 25 4B           %K    bcs 4b
9993 CF0E F6 0B C5        ...   ldab 0bc5
9994 CF11 4F              O     clra 
9995 CF12 C3 0B C7        ...   addd #0bc7
9996 CF15 8F              .     xgdx 
9997 CF16 E6 00           ..    ldab 00,x
9998 CF18 4F              O     clra 
9999 CF19 FD 0B DD        ...   std 0bdd
10000 CF1C F6 0B C4        ...   ldab 0bc4
10001 CF1F 4F              O     clra 
10002 CF20 C3 0B C7        ...   addd #0bc7
10003 CF23 8F              .     xgdx 
10004 CF24 E6 00           ..    ldab 00,x
10005 CF26 4F              O     clra 
10006 CF27 FD 0B DF        ...   std 0bdf
10007 CF2A F6 0B C6        ...   ldab 0bc6
10008 CF2D 4F              O     clra 
10009 CF2E C3 0B C7        ...   addd #0bc7
10010 CF31 8F              .     xgdx 
10011 CF32 E6 00           ..    ldab 00,x
10012 CF34 4F              O     clra 
10013 CF35 FD 0B E1        ...   std 0be1
10014 CF38 C6 04           ..    ldab #04
10015 CF3A F7 0B D7        ...   stab 0bd7
10016 CF3D C6 01           ..    ldab #01
10017 CF3F F7 0B D8        ...   stab 0bd8
10018 CF42 C6 02           ..    ldab #02
10019 CF44 F7 0B D9        ...   stab 0bd9
10020 CF47 C6 08           ..    ldab #08
10021 CF49 F7 0B DA        ...   stab 0bda
10022 CF4C C6 20           .     ldab #20
10023 CF4E F7 0B DB        ...   stab 0bdb
10024 CF51 C6 10           ..    ldab #10
10025 CF53 F7 0B DC        ...   stab 0bdc
10026 CF56 7E D0 66        ~.f   jmp d066             ;goto58
10027 CF59 F6 0B C5        ...   ldab 0bc5
10028 CF5C F1 0B C6        ...   cmpb 0bc6
10029 CF5F 25 53           %S    bcs 53
10030 CF61 F6 0B C6        ...   ldab 0bc6
10031 CF64 F1 0B C4        ...   cmpb 0bc4
10032 CF67 25 4B           %K    bcs 4b
10033 CF69 F6 0B C5        ...   ldab 0bc5
10034 CF6C 4F              O     clra 
10035 CF6D C3 0B C7        ...   addd #0bc7
10036 CF70 8F              .     xgdx 
10037 CF71 E6 00           ..    ldab 00,x
10038 CF73 4F              O     clra 
10039 CF74 FD 0B DD        ...   std 0bdd
10040 CF77 F6 0B C6        ...   ldab 0bc6
10041 CF7A 4F              O     clra 
10042 CF7B C3 0B C7        ...   addd #0bc7
10043 CF7E 8F              .     xgdx 
10044 CF7F E6 00           ..    ldab 00,x
10045 CF81 4F              O     clra 
10046 CF82 FD 0B DF        ...   std 0bdf
10047 CF85 F6 0B C4        ...   ldab 0bc4
10048 CF88 4F              O     clra 
10049 CF89 C3 0B C7        ...   addd #0bc7
10050 CF8C 8F              .     xgdx 
10051 CF8D E6 00           ..    ldab 00,x
10052 CF8F 4F              O     clra 
10053 CF90 FD 0B E1        ...   std 0be1
10054 CF93 C6 04           ..    ldab #04
10055 CF95 F7 0B D7        ...   stab 0bd7
10056 CF98 C6 02           ..    ldab #02
10057 CF9A F7 0B D8        ...   stab 0bd8
10058 CF9D C6 01           ..    ldab #01
10059 CF9F F7 0B D9        ...   stab 0bd9
10060 CFA2 C6 08           ..    ldab #08
10061 CFA4 F7 0B DA        ...   stab 0bda
10062 CFA7 C6 10           ..    ldab #10
10063 CFA9 F7 0B DB        ...   stab 0bdb
10064 CFAC C6 20           .     ldab #20
10065 CFAE F7 0B DC        ...   stab 0bdc
10066 CFB1 7E D0 66        ~.f   jmp d066             ;goto58
10067 CFB4 F6 0B C6        ...   ldab 0bc6
10068 CFB7 F1 0B C4        ...   cmpb 0bc4
10069 CFBA 25 52           %R    bcs 52
10070 CFBC F6 0B C4        ...   ldab 0bc4
10071 CFBF F1 0B C5        ...   cmpb 0bc5
10072 CFC2 25 4A           %J    bcs 4a
10073 CFC4 F6 0B C6        ...   ldab 0bc6
10074 CFC7 4F              O     clra 
10075 CFC8 C3 0B C7        ...   addd #0bc7
10076 CFCB 8F              .     xgdx 
10077 CFCC E6 00           ..    ldab 00,x
10078 CFCE 4F              O     clra 
10079 CFCF FD 0B DD        ...   std 0bdd
10080 CFD2 F6 0B C4        ...   ldab 0bc4
10081 CFD5 4F              O     clra 
10082 CFD6 C3 0B C7        ...   addd #0bc7
10083 CFD9 8F              .     xgdx 
10084 CFDA E6 00           ..    ldab 00,x
10085 CFDC 4F              O     clra 
10086 CFDD FD 0B DF        ...   std 0bdf
10087 CFE0 F6 0B C5        ...   ldab 0bc5
10088 CFE3 4F              O     clra 
10089 CFE4 C3 0B C7        ...   addd #0bc7
10090 CFE7 8F              .     xgdx 
10091 CFE8 E6 00           ..    ldab 00,x
10092 CFEA 4F              O     clra 
10093 CFEB FD 0B E1        ...   std 0be1
10094 CFEE C6 02           ..    ldab #02
10095 CFF0 F7 0B D7        ...   stab 0bd7
10096 CFF3 C6 01           ..    ldab #01
10097 CFF5 F7 0B D8        ...   stab 0bd8
10098 CFF8 C6 04           ..    ldab #04
10099 CFFA F7 0B D9        ...   stab 0bd9
10100 CFFD C6 10           ..    ldab #10
10101 CFFF F7 0B DA        ...   stab 0bda
10102 D002 C6 20           .     ldab #20
10103 D004 F7 0B DB        ...   stab 0bdb
10104 D007 C6 08           ..    ldab #08
10105 D009 F7 0B DC        ...   stab 0bdc
10106 D00C 20 58            X    bra 58
10107 D00E F6 0B C6        ...   ldab 0bc6
10108 D011 F1 0B C5        ...   cmpb 0bc5
10109 D014 25 50           %P    bcs 50
10110 D016 F6 0B C5        ...   ldab 0bc5
10111 D019 F1 0B C4        ...   cmpb 0bc4
10112 D01C 25 48           %H    bcs 48
10113 D01E F6 0B C6        ...   ldab 0bc6
10114 D021 4F              O     clra 
10115 D022 C3 0B C7        ...   addd #0bc7
10116 D025 8F              .     xgdx 
10117 D026 E6 00           ..    ldab 00,x
10118 D028 4F              O     clra 
10119 D029 FD 0B DD        ...   std 0bdd
10120 D02C F6 0B C5        ...   ldab 0bc5
10121 D02F 4F              O     clra 
10122 D030 C3 0B C7        ...   addd #0bc7
10123 D033 8F              .     xgdx 
10124 D034 E6 00           ..    ldab 00,x
10125 D036 4F              O     clra 
10126 D037 FD 0B DF        ...   std 0bdf
10127 D03A F6 0B C4        ...   ldab 0bc4
10128 D03D 4F              O     clra 
10129 D03E C3 0B C7        ...   addd #0bc7
10130 D041 8F              .     xgdx 
10131 D042 E6 00           ..    ldab 00,x
10132 D044 4F              O     clra 
10133 D045 FD 0B E1        ...   std 0be1
10134 D048 C6 02           ..    ldab #02
10135 D04A F7 0B D7        ...   stab 0bd7
10136 D04D C6 04           ..    ldab #04
10137 D04F F7 0B D8        ...   stab 0bd8
10138 D052 C6 01           ..    ldab #01
10139 D054 F7 0B D9        ...   stab 0bd9
10140 D057 C6 10           ..    ldab #10
10141 D059 F7 0B DA        ...   stab 0bda
10142 D05C C6 08           ..    ldab #08
10143 D05E F7 0B DB        ...   stab 0bdb
10144 D061 C6 20           .     ldab #20
10145 D063 F7 0B DC        ...   stab 0bdc
10146 goto58:
10147 D066 F6 0B AA        ...   ldab 0baa
10148 D069 4F              O     clra 
10149 D06A 37              7     pshb 
10150 D06B 36              6     psha 
10151 D06C FC 0B DD        ...   ldd 0bdd
10152 D06F BD FB BA        ...   jsr fbba             ;jump38 - multiply?
10153 D072 FD 0B DD        ...   std 0bdd
10154 D075 F6 0B AA        ...   ldab 0baa
10155 D078 4F              O     clra 
10156 D079 37              7     pshb 
10157 D07A 36              6     psha 
10158 D07B FC 0B DF        ...   ldd 0bdf
10159 D07E BD FB BA        ...   jsr fbba             ;jump38 - multiply?
10160 D081 FD 0B DF        ...   std 0bdf
10161 D084 F6 0B AA        ...   ldab 0baa
10162 D087 4F              O     clra 
10163 D088 37              7     pshb 
10164 D089 36              6     psha 
10165 D08A FC 0B E1        ...   ldd 0be1
10166 D08D BD FB BA        ...   jsr fbba             ;jump38 - multiply?
10167 D090 FD 0B E1        ...   std 0be1
10168 D093 39              9     rts 
10169
10170 jump66:
10171 ; initializes a big bunch of variables
10172 D094 34              4     des 
10173 ; for i=0
10174 D095 30              0     tsx 
10175 D096 6F 00           o.    clr 00,x
10176 ; while i <= 10
10177 D098 30              0     tsx 
10178 D099 E6 00           ..    ldab 00,x
10179 D09B C1 10           ..    cmpb #10
10180 D09D 24 1B           $.    bcc 1b        ; to d0ba
10181 ; read memloc of b0c3+i
10182 D09F 30              0     tsx 
10183 D0A0 E6 00           ..    ldab 00,x
10184 D0A2 4F              O     clra 
10185 D0A3 C3 B0 C3        ...   addd #b0c3
10186 D0A6 8F              .     xgdx 
10187 D0A7 E6 00           ..    ldab 00,x
10188 D0A9 37              7     pshb 
10189 ; put value of that location into 0bc7+i
10190 D0AA 30              0     tsx 
10191 D0AB E6 01           ..    ldab 01,x
10192 D0AD 4F              O     clra 
10193 D0AE C3 0B C7        ...   addd #0bc7
10194 D0B1 8F              .     xgdx 
10195 D0B2 33              3     pulb 
10196 D0B3 E7 00           ..    stab 00,x
10197 ; loop
10198 D0B5 30              0     tsx 
10199 D0B6 6C 00           l.    inc 00,x
10200 D0B8 20 DE            .    bra de        ; to d098
10201
10202 D0BA C6 05           ..    ldab #05
10203 D0BC F7 0B AA        ...   stab 0baa
10204 D0BF C6 04           ..    ldab #04
10205 D0C1 F7 00 13        ...   stab 0013
10206 D0C4 C6 01           ..    ldab #01
10207 D0C6 F7 0B C4        ...   stab 0bc4
10208 D0C9 C6 03           ..    ldab #03
10209 D0CB F7 0B C5        ...   stab 0bc5
10210 D0CE C6 02           ..    ldab #02
10211 D0D0 F7 0B C6        ...   stab 0bc6
10212 D0D3 CC 00 19        ...   ldd #0019
10213 D0D6 FD 0B DD        ...   std 0bdd
10214 D0D9 CC 00 0A        ...   ldd #000a
10215 D0DC FD 0B DF        ...   std 0bdf
10216 D0DF CC 00 05        ...   ldd #0005
10217 D0E2 FD 0B E1        ...   std 0be1
10218 D0E5 C6 01           ..    ldab #01
10219 D0E7 F7 0B D7        ...   stab 0bd7
10220 D0EA C6 02           ..    ldab #02
10221 D0EC F7 0B D8        ...   stab 0bd8
10222 D0EF C6 04           ..    ldab #04
10223 D0F1 F7 0B D9        ...   stab 0bd9
10224 D0F4 C6 20           .     ldab #20
10225 D0F6 F7 0B DA        ...   stab 0bda
10226 D0F9 C6 10           ..    ldab #10
10227 D0FB F7 0B DB        ...   stab 0bdb
10228 D0FE C6 08           ..    ldab #08
10229 D100 F7 0B DC        ...   stab 0bdc
10230 D103 31              1     ins 
10231 D104 39              9     rts 
10232
10233 jump32:
10234 ; turns all motors off
10235 D105 34              4     des 
10236 D106 CE 00 1A        ...   ldx #001a
10237 D109 1C 00 80        ..    bset 00,x, #80
10238 D10C F6 00 1A        ..    ldab 001a
10239 D10F F7 30 00        .0.   stab 3000       ; motor rows off
10240 D112 C6 C8           ..    ldab #c8        ; loop of 200 - short delay
10241 D114 30              0     tsx 
10242 D115 E7 00           ..    stab 00,x
10243 D117 30              0     tsx 
10244 D118 E6 00           ..    ldab 00,x
10245 D11A C1 00           ..    cmpb #00
10246 D11C 23 05           #.    bls 05          ; to d123
10247 D11E 30              0     tsx 
10248 D11F 6A 00           j.    dec 00,x
10249 D121 20 F4            .    bra f4          ; to d117
10250
10251 D123 CE 10 00        ...   ldx #1000
10252 D126 1C 00 40        ..    bset 00,x, #40  ; motor columns off
10253 D129 CE 00 14        ...   ldx #0014
10254 D12C 1D 00 20        ..    bclr 00,x, #20  ; motors col 8 off
10255 D12F CE 00 14        .     ldx #0014
10256 D132 1D 00 40        ..    bclr 00,x, #40  ; motors col 9 off
10257 D135 F6 00 14        ...   ldab 0014
10258 D138 F7 38 00        .8.   stab 3800       ; motors off
10259 D13B 31              1     ins 
10260 D13C 39              9     rts 
10261
10262 jump34:
10263 ; turn on the motor of the slot given in memory location 0006
10264 D13D F6 00 06        ...   ldab 0006
10265 D140 4F              O     clra 
10266 D141 CE 00 0A        ...   ldx #000a
10267 D144 02              .     idiv 
10268 D145 8F              .     xgdx 
10269 D146 CB 01           ..    addb #01   ; we live in an odd world?
10270 D148 F7 00 5F        .._   stab 005f  ; slot number /10
10271 D14B F6 00 06        ...   ldab 0006
10272 D14E 4F              O     clra 
10273 D14F CE 00 0A        ...   ldx #000a
10274 D152 02              .     idiv 
10275 D153 F7 00 5E        ..^   stab 005e   ; slot number%10
10276 D156 F6 00 5E        ..^   ldab 005e
10277 D159 C1 05           ..    cmpb #05    ; there is not row 5
10278 D15B 23 03           #.    bls 03
10279 D15D 7A 00 5E        z.^   dec 005e    ; make it row 4
10280 D160 F6 00 5E        ..^   ldab 005e
10281 D163 4F              O     clra 
10282 D164 C3 B1 23        ..#   addd #b123   ; powers of 2
10283 D167 8F              .     xgdx 
10284 D168 E6 00           ..    ldab 00,x
10285 D16A 4F              O     clra 
10286 D16B 37              7     pshb 
10287 D16C 36              6     psha 
10288 D16D F6 00 5F        .._   ldab 005f
10289 D170 4F              O     clra 
10290 D171 C3 B1 23        ..#   addd #b123   ; powers of 2
10291 D174 8F              .     xgdx 
10292 D175 E6 00           ..    ldab 00,x
10293 D177 4F              O     clra 
10294 D178 17              .     tba 
10295 D179 5F              _     clrb 
10296 D17A 30              0     tsx 
10297 D17B E3 00           ..    addd 00,x
10298 D17D 38              8     pulx 
10299 D17E FD 00 58        ..X   std 0058
10300
10301 ; i=0
10302 D181 7F 00 1C        ...   clr 001c
10303 ; while i < 16, do
10304 D184 F6 00 1C        ...   ldab 001c
10305 D187 C1 10           ..    cmpb #10
10306 D189 24 37           $7    bcc 37         ; to d1c2
10307 D18B F6 00 58        ..X   ldab 0058
10308 D18E 2C 0E           ,.    bge 0e         ; to d19e
10309
10310 D190 CE 00 14        ...   ldx #0014
10311 D193 1C 00 10        ...   bset 00,x, #10
10312 D196 F6 00 14        ...   ldab 0014
10313 D199 F7 38 00        .8.   stab 3800      ; set high motor serial data
10314 D19C 20 0C            .    bra 0c         ; to d1aa
10315
10316 D19E CE 00 14        ...   ldx #0014
10317 D1A1 1D 00 10        ..    bclr 00,x, #10
10318 D1A4 F6 00 14        ...   ldab 0014
10319 D1A7 F7 38 00        .8.   stab 3800      ; set low motor serial data
10320
10321 ; send a clock pulse
10322 D1AA CE 10 00        ...   ldx #1000
10323 D1AD 1C 00 20        ..    bset 00,x, #20
10324 D1B0 CE 10 00         .    ldx #1000
10325 D1B3 1D 00           ..    bclr 00,x, #20
10326
10327 ; get the next bit ready to send
10328 D1B6 FC 00 58        .     ldd 0058
10329 D1B9 05              .     asld 
10330 D1BA FD 00 58        ..X   std 0058
10331 D1BD 7C 00 1C        |..   inc 001c
10332 D1C0 20 C2            .    bra c2
10333 ; if this is column 8 (9 for pascal programmers ;)
10334 D1C2 F6 00 5F        .._   ldab 005f
10335 D1C5 C1 09           ..    cmpb #09
10336 D1C7 26 0E           &.    bne 0e         ; to d1d7
10337 D1C9 CE 00 14        ...   ldx #0014
10338 D1CC 1C 00 20        ...   bset 00,x, #20
10339 D1CF F6 00 14        .     ldab 0014
10340 D1D2 F7 38 00        .8.   stab 3800      ; say its column 8
10341 D1D5 20 13            .    bra 13         ; to d1ea
10342 ; if this is column 9 (denoted as 10)
10343 D1D7 F6 00 5F        .._   ldab 005f
10344 D1DA C1 0A           ..    cmpb #0a
10345 D1DC 26 0C           &.    bne 0c
10346 D1DE CE 00 14        ...   ldx #0014
10347 D1E1 1C 00 40        ..    bset 00,x, #40 ; say its column 9
10348 D1E4 F6 00 14        ...   ldab 0014
10349 D1E7 F7 38 00        .8.   stab 3800
10350 ; clear the motor clock
10351 D1EA CE 10 00        ...   ldx #1000
10352 D1ED 1D 00 40        ..    bclr 00,x, #40 ; motor clock line low
10353 ; clear motor row output enable
10354 D1F0 CE 00 1A        ...   ldx #001a
10355 D1F3 1D 00           ..    bclr 00,x, #80
10356 D1F6 F6 00 1A        ...   ldab 001a
10357 D1F9 F7 30 00        .0.   stab 3000      ; motor driver outputs enable
10358 D1FC 39              9     rts 
10359
10360 jump90:
10361 D1FD CC 40 00        .@.   ldd #4000
10362 D200 37              7     pshb 
10363 D201 36              6     psha 
10364 D202 F6 00 06        ...   ldab 0006
10365 D205 4F              O     clra 
10366 D206 05              .     asld 
10367 D207 C3 08 00        ...   addd #0800
10368 D20A 38              8     pulx 
10369 D20B 8F              .     xgdx 
10370 D20C AA 00           ..    ora 00,x
10371 D20E EA 01           ..    orb 01,x
10372 D210 ED 00           ..    std 00,x
10373 D212 39              9     rts 
10374
10375 jump45:
10376 D213 F6 00 1F        ...   ldab 001f
10377 D216 C4 04           ..    andb #04
10378 D218 26 12           &.    bne 12
10379 D21A F6 0B C0        ...   ldab 0bc0
10380 D21D C4 10           ..    andb #10
10381 D21F 26 0B           &.    bne 0b
10382 D221 CE 00 00        ...   ldx #0000
10383 D224 3C              <     pshx 
10384 D225 FC 00 44        ..D   ldd 0044
10385 D228 BD BE 9E        ...   jsr be9e             ;jump50
10386 D22B 38              8     pulx 
10387 D22C BD D3 11        ...   jsr d311             ;jump30
10388 D22F 83 00 00        ...   subd #0000
10389 D232 27 13           '.    beq 13
10390 D234 F6 00 06        ...   ldab 0006
10391 D237 BD D4 68        ..h   jsr d468             ;jump51
10392 D23A 83 00 00        ...   subd #0000
10393 D23D 27 05           '.    beq 05
10394 D23F 8D BC           ..    bsr bc       ;jump90
10395 D241 BD D6 3C        ..<   jsr d63c             ;jump33
10396 D244 5F              _     clrb 
10397 D245 4F              O     clra 
10398 D246 39              9     rts 
10399
10400 D247 BD D1 3D        ..=   jsr d13d             ;jump34
10401 D24A C6 3C           .<    ldab #3c
10402 D24C F7 00 2E        ...   stab 002e
10403 D24F C6 41           .A    ldab #41
10404 D251 F7 00 31        ..1   stab 0031
10405 D254 CE 00 1B        ...   ldx #001b
10406 D257 1D 00 08        ...   bclr 00,x #08
10407 goto59:
10408 D25A F6 00 1B        ...   ldab 001b
10409 D25D C4 08           ..    andb #08
10410 D25F 26 22           &"    bne 22
10411 D261 F6 00 2E        ...   ldab 002e
10412 D264 C1 35           .5    cmpb #35
10413 D266 23 10           #.    bls 10
10414 D268 BD D5 70        ..p   jsr d570             ;jump35
10415 D26B 83 00 00        ...   subd #0000
10416 D26E 27 06           '.    beq 06
10417 D270 CE 00 1B        ...   ldx #001b
10418 D273 1C 00 08        ...   bset 00,x, #08
10419 D276 20 0B            .    bra 0b
10420 D278 BD D1 05        ...   jsr d105             ;jump32
10421 D27B 8D 80           ..    bsr 80       ;jump90
10422 D27D BD D6 3C        ..<   jsr d63c             ;jump33
10423 D280 5F              _     clrb 
10424 D281 4F              O     clra 
10425 D282 39              9     rts 
10426
10427 D283 F6 00 2E        ...   ldab 002e
10428 D286 C1 36           .6    cmpb #36
10429 D288 24 56           $V    bcc 56       ; to d2e0
10430 D28A BD D5 F7        ...   jsr d5f7             ;jump108
10431 D28D 83 00 00        ...   subd #0000
10432 D290 27 4E           'N    beq 4e       ; to d2e0
10433 D292 BD D5 B0        ...   jsr d5b0             ;jump31
10434 D295 83 00 00        ...   subd #0000
10435 D298 27 46           'F    beq 46       ; to d2e0
10436 D29A BD D1 05        ...   jsr d105             ;jump32
10437 D29D F6 00 2E        ...   ldab 002e
10438 D2A0 C1 32           .2    cmpb #32
10439 D2A2 22 07           ".    bhi 07
10440 D2A4 8D 6B           .k    bsr dest 6b
10441 D2A6 83 00 00        ...   subd #0000
10442 D2A9 27 0C           '.    beq 0c
10443 D2AB BD D1 05        ...   jsr d105             ;jump32
10444 D2AE BD D1 FD        ...   jsr d1fd             ;jump90
10445 D2B1 BD D6 3C        ..<   jsr d63c             ;jump33
10446 D2B4 5F              _     clrb 
10447 D2B5 4F              O     clra 
10448 D2B6 39              9     rts 
10449
10450 D2B7 F6 00 06        ...   ldab 0006
10451 D2BA 4F              O     clra 
10452 D2BB C3 0E 06        ...   addd #0e06
10453 D2BE 8F              .     xgdx 
10454 D2BF 6C 00           l.    inc 00,x
10455 D2C1 F6 00 06        ...   ldab 0006
10456 D2C4 4F              O     clra 
10457 D2C5 C3 0E 06        ...   addd #0e06
10458 D2C8 8F              .     xgdx 
10459 D2C9 E6 00           ..    ldab 00,x
10460 D2CB C1 64           .d    cmpb #64
10461 D2CD 23 0D           #.    bls 0d
10462 D2CF 5F              _     clrb 
10463 D2D0 37              7     pshb 
10464 D2D1 F6 00 06        ...   ldab 0006
10465 D2D4 4F              O     clra 
10466 D2D5 C3 0E 06        ...   addd #0e06
10467 D2D8 8F              .     xgdx 
10468 D2D9 33              3     pulb 
10469 D2DA E7 00           ..    stab 00,x
10470 D2DC CC 00 01        ...   ldd #0001
10471 D2DF 39              9     rts 
10472
10473 D2E0 F6 00 2E        ...   ldab 002e
10474 D2E3 26 14           &.    bne 14
10475 D2E5 BD D5 F7        ...   jsr d5f7             ;jump108
10476 D2E8 83 00 00        ...   subd #0000
10477 D2EB 26 0C           &.    bne 0c
10478 D2ED BD D1 05        ...   jsr d105             ;jump32
10479 D2F0 BD D1 FD        ...   jsr d1fd             ;jump90
10480 D2F3 BD D6 26        ..&   jsr d626             ;jump91
10481 D2F6 5F              _     clrb 
10482 D2F7 4F              O     clra 
10483 D2F8 39              9     rts 
10484
10485 D2F9 F6 00 2E        ...   ldab 002e
10486 D2FC 26 0C           &.    bne 0c
10487 D2FE BD D1 05        ...   jsr d105             ;jump32
10488 D301 BD D1 FD        ...   jsr d1fd             ;jump90
10489 D304 BD D6 3C        ..<   jsr d63c             ;jump33
10490 D307 5F              _     clrb 
10491 D308 4F              O     clra 
10492 D309 39              9     rts 
10493
10494 D30A 7E D2 5A        ~.Z   jmp d25a             ;goto59
10495 D30D BD E6 1B        ...   jsr e61b             ;jump4
10496 D310 39              9     rts 
10497
10498 jump30:
10499 D311 BD D1 3D        ..=   jsr d13d             ;jump34
10500 D314 7F 00 1C        ...   clr 001c
10501 D317 7F 00 18        ...   clr 0018
10502 D31A F6 10 0A        ...   ldab 100a
10503 D31D C4 02           ..    andb #02     ; motor overvoltage sense
10504 D31F 27 13           '.    beq 13       ; to d334
10505 D321 7C 00 1C        |..   inc 001c
10506 D324 F6 00 1C        ...   ldab 001c
10507 D327 C1 FF           ..    cmpb #ff
10508 D329 26 07           &.    bne 07
10509 D32B BD D1 05        ...   jsr d105             ;jump32
10510 D32E CC 00 01        ...   ldd #0001
10511 D331 39              9     rts 
10512
10513 D332 20 10            .    bra 10
10514 D334 7C 00 18        |..   inc 0018
10515 D337 F6 00 18        ...   ldab 0018
10516 D33A C1 08           ..    cmpb #08
10517 D33C 26 06           &.    bne 06
10518 D33E BD D1 05        ...   jsr d105             ;jump32
10519 D341 5F              _     clrb 
10520 D342 4F              O     clra 
10521 D343 39              9     rts 
10522
10523 jump43:
10524 D344 20 D4            .    bra d4        ; to d31a?
10525 D346 3C              <     pshx 
10526 D347 3C              <     pshx 
10527 D348 3C              <     pshx 
10528 D349 34              4     des 
10529 D34A F6 0E 6D        ..m   ldab 0e6d
10530 D34D C1 01           ..    cmpb #01
10531 D34F 27 03           '.    beq 03
10532 D351 7E D4 07        ~..   jmp d407             ;goto60
10533 D354 F6 00 06        ...   ldab 0006
10534 D357 4F              O     clra 
10535 D358 05              .     asld 
10536 D359 C3 08 C8        ...   addd #08c8
10537 D35C 8F              .     xgdx 
10538 D35D EC 00           ..    ldd 00,x
10539 D35F C4 7F           ..    andb #7f
10540 D361 4F              O     clra 
10541 D362 FD 0E 6B        ..k   std 0e6b
10542 D365 7F 00 06        ...   clr 0006
10543 goto62:
10544 D368 F6 00 06        ...   ldab 0006
10545 D36B C1 3E           .>    cmpb #3e
10546 D36D 26 03           &.    bne 03
10547 D36F 7E D4 02        ~..   jmp d402             ;goto61
10548 D372 BD 97 6F        ..o   jsr 976f             ;jump41
10549 D375 F6 00 06        ...   ldab 0006
10550 D378 4F              O     clra 
10551 D379 05              .     asld 
10552 D37A C3 08 C8        ...   addd #08c8
10553 D37D 8F              .     xgdx 
10554 D37E EC 00           ..    ldd 00,x
10555 D380 C4 7F           ..    andb #7f
10556 D382 4F              O     clra 
10557 D383 B3 0E 6B        ..k   subd 0e6b
10558 D386 26 77           &w    bne 77
10559 D388 F6 00 06        ...   ldab 0006
10560 D38B 4F              O     clra 
10561 D38C CE 00 0A        ...   ldx #000a
10562 D38F 02              .     idiv 
10563 D390 30              0     tsx 
10564 D391 E7 01           ..    stab 01,x
10565 D393 E6 01           ..    ldab 01,x
10566 D395 C1 01           ..    cmpb #01
10567 D397 26 07           &.    bne 07
10568 D399 C6 40           .@    ldab #40
10569 D39B 30              0     tsx 
10570 D39C E7 00           ..    stab 00,x
10571 D39E 20 0C            .    bra 0c
10572 D3A0 30              0     tsx 
10573 D3A1 E6 01           ..    ldab 01,x
10574 D3A3 C1 02           ..    cmpb #02
10575 D3A5 26 05           &.    bne 05
10576 D3A7 C6 80           ..    ldab #80
10577 D3A9 30              0     tsx 
10578 D3AA E7 00           ..    stab 00,x
10579 D3AC BD D1 3D        ..=   jsr d13d             ;jump34
10580 D3AF 5F              _     clrb 
10581 D3B0 4F              O     clra 
10582 D3B1 30              0     tsx 
10583 D3B2 ED 03           ..    std 03,x
10584 ;look at the home sensors for this row.  If it is 0, increment 03/04 else
10585 ;decrement 03/05.   Do this 10 times.
10586 D3B4 CC 00 0A        ...   ldd #000a
10587 D3B7 ED 05           ..    std 05,x
10588 loop:
10589 D3B9 30              0     tsx 
10590 D3BA EC 05           ..    ldd 05,x
10591 D3BC 2F 23           /#    ble 23       ; to D3E1
10592 D3BE F6 28 00        .(.   ldab 2800    ;snack motor home sensors
10593 D3C1 30              0     tsx 
10594 D3C2 E4 00           ..    andb 00,x
10595 D3C4 26 09           &.    bne d3cf
10596 D3C6 30              0     tsx 
10597 D3C7 6C 04           l.    inc 04,x
10598 D3C9 26 0C           &.    bne 0c
10599 D3CB 6C 03           l.    inc 03,x
10600 D3CD 20 08            .    bra d3d7
10601 D3CF 30              0     tsx 
10602 D3D0 EC 03           ..    ldd 03,x
10603 D3D2 83 00 01        ...   subd #0001
10604 D3D5 ED 03           ..    std 03,x
10605 D3D7 30              0     tsx 
10606 D3D8 EC 05           ..    ldd 05,x
10607 D3DA 83 00 01        ...   subd #0001
10608 D3DD ED 05           ..    std 05,x
10609 D3DF 20 D8            .    bra loop     ;d3b9
10610 D3E1 BD D1 05        ...   jsr d105             ;jump32 - turn motors off
10611 D3E4 30              0     tsx 
10612 D3E5 EC 03           ..    ldd 03,x
10613 D3E7 2C 16           ,.    bge 16
10614 D3E9 F6 00 06        ...   ldab 0006
10615 D3EC 8D 7A           .z    bsr dest 7a
10616 D3EE 83 00 00        ...   subd #0000
10617 D3F1 27 0C           '.    beq 0c
10618 D3F3 BD D5 61        ..a   jsr d561             ;jump42
10619 D3F6 83 00 00        ...   subd #0000
10620 D3F9 26 04           &.    bne 04
10621 D3FB 5F              _     clrb 
10622 D3FC 4F              O     clra 
10623 D3FD 20 64            d    bra 64
10624 D3FF 7E D3 68        ~.h   jmp d368             ;goto62
10625 goto61:
10626 D402 CC 00 01        ...   ldd #0001
10627 D405 20 5C            \    bra 5c
10628 goto60:
10629 D407 F6 00 06        ...   ldab 0006
10630 D40A C1 13           ..    cmpb #13
10631 D40C 27 1C           '.    beq 1c
10632 D40E F6 00 06        ...   ldab 0006
10633 D411 C1 1D           ..    cmpb #1d
10634 D413 27 15           '.    beq 15
10635 D415 F6 00 06        ...   ldab 0006
10636 D418 C1 27           .'    cmpb #27
10637 D41A 27 0E           '.    beq 0e
10638 D41C F6 00 06        ...   ldab 0006
10639 D41F C1 31           .1    cmpb #31
10640 D421 27 07           '.    beq 07
10641 D423 F6 00 06        ...   ldab 0006
10642 D426 C1 3B           .;    cmpb #3b
10643 D428 26 37           &7    bne 37
10644 D42A BD D1 3D        ..=   jsr d13d             ;jump34
10645 D42D 7F 00 1C        ...   clr 001c
10646 D430 7F 00 18        ...   clr 0018
10647 D433 F6 18 00        ...   ldab 1800
10648 D436 C4 40           .@    andb #40
10649 D438 26 14           &.    bne 14
10650 D43A 7C 00 1C        |..   inc 001c
10651 D43D F6 00 1C        ...   ldab 001c
10652 D440 C1 FF           ..    cmpb #ff
10653 D442 26 08           &.    bne 08
10654 D444 BD D1 05        ...   jsr d105             ;jump32
10655 D447 CC 00 01        ...   ldd #0001
10656 D44A 20 17            .    bra 17
10657 D44C 20 11            .    bra 11
10658 D44E 7C 00 18        |..   inc 0018
10659 D451 F6 00 18        ...   ldab 0018
10660 D454 C1 08           ..    cmpb #08
10661 D456 26 07           &.    bne 07
10662 D458 BD D1 05        ...   jsr d105             ;jump32
10663 D45B 5F              _     clrb 
10664 D45C 4F              O     clra 
10665 D45D 20 04            .    bra 04
10666 D45F 20 D2            .    bra d2
10667 D461 5F              _     clrb 
10668 D462 4F              O     clra 
10669 D463 38              8     pulx 
10670 D464 38              8     pulx 
10671 D465 38              8     pulx 
10672 D466 31              1     ins 
10673 D467 39              9     rts 
10674
10675 jump51:
10676 D468 37              7     pshb 
10677 D469 30              0     tsx 
10678 D46A E6 00           ..    ldab 00,x
10679 D46C 4F              O     clra 
10680 D46D 05              .     asld 
10681 D46E C3 08 00        ...   addd #0800
10682 D471 8F              .     xgdx 
10683 D472 EC 00           ..    ldd 00,x
10684 D474 5F              _     clrb 
10685 D475 84 80           ..    anda #80
10686 D477 31              1     ins 
10687 D478 39              9     rts 
10688
10689 jump67:
10690 D479 7F 00 1C        ...   clr 001c
10691 D47C F6 00 1C        ...   ldab 001c
10692 D47F C1 64           .d    cmpb #64
10693 D481 24 1A           $.    bcc 1a
10694 D483 CC FF 7F        ...   ldd #ff7f
10695 D486 37              7     pshb 
10696 D487 36              6     psha 
10697 D488 F6 00 1C        ...   ldab 001c
10698 D48B 4F              O     clra 
10699 D48C 05              .     asld 
10700 D48D C3 08 C8        ...   addd #08c8
10701 D490 38              8     pulx 
10702 D491 8F              .     xgdx 
10703 D492 A4 00           ..    anda 00,x
10704 D494 E4 01           ..    andb 01,x
10705 D496 ED 00           ..    std 00,x
10706 D498 7C 00 1C        |..   inc 001c
10707 D49B 20 DF            .    bra df
10708 D49D 7F 00 05        ...   clr 0005
10709 goto65:
10710 D4A0 F6 00 05        ...   ldab 0005
10711 D4A3 C1 50           .P    cmpb #50
10712 D4A5 25 03           %.    bcs 03
10713 D4A7 7E D5 60        ~.`   jmp d560             ;goto63
10714 D4AA F6 00 05        ...   ldab 0005
10715 D4AD 4F              O     clra 
10716 D4AE C3 B0 D3        ...   addd #b0d3
10717 D4B1 8F              .     xgdx 
10718 D4B2 E6 00           ..    ldab 00,x
10719 D4B4 F7 00 06        ...   stab 0006
10720 D4B7 BD D3 11        ...   jsr d311             ;jump30
10721 D4BA 83 00 00        ...   subd #0000
10722 D4BD 27 03           '.    beq 03
10723 D4BF 7E D5 45        ~.E   jmp d545             ;goto64
10724 D4C2 F6 00 06        ...   ldab 0006
10725 D4C5 BD D7 A0        ...   jsr d7a0             ;jump10
10726 D4C8 83 00 00        ...   subd #0000
10727 D4CB 26 78           &x    bne 78
10728 D4CD BD D5 B0        ...   jsr d5b0             ;jump31
10729 D4D0 83 00 00        ...   subd #0000
10730 D4D3 26 06           &.    bne 06
10731 D4D5 BD D1 FD        ...   jsr d1fd             ;jump90
10732 D4D8 BD D6 3C        ..<   jsr d63c             ;jump33
10733 D4DB CC 80 00        ...   ldd #8000
10734 D4DE 37              7     pshb 
10735 D4DF 36              6     psha 
10736 D4E0 F6 00 06        ...   ldab 0006
10737 D4E3 4F              O     clra 
10738 D4E4 05              .     asld 
10739 D4E5 C3 08 00        ...   addd #0800
10740 D4E8 38              8     pulx 
10741 D4E9 8F              .     xgdx 
10742 D4EA AA 00           ..    ora 00,x
10743 D4EC EA 01           ..    orb 01,x
10744 D4EE ED 00           ..    std 00,x
10745 D4F0 F6 00 06        ...   ldab 0006
10746 D4F3 4F              O     clra 
10747 D4F4 05              .     asld 
10748 D4F5 C3 08 00        ...   addd #0800
10749 D4F8 8F              .     xgdx 
10750 D4F9 EC 00           ..    ldd 00,x
10751 D4FB C4 FF           ..    andb #ff
10752 D4FD 84 3F           .?    anda #3f
10753 D4FF 83 27 0F        .'.   subd #270f
10754 D502 23 1A           #.    bls 1a
10755 D504 BD D1 FD        ...   jsr d1fd             ;jump90
10756 D507 CC 01 00        ...   ldd #0100
10757 D50A 37              7     pshb 
10758 D50B 36              6     psha 
10759 D50C F6 00 06        ...   ldab 0006
10760 D50F 4F              O     clra 
10761 D510 05              .     asld 
10762 D511 C3 08 C8        ...   addd #08c8
10763 D514 38              8     pulx 
10764 D515 8F              .     xgdx 
10765 D516 AA 00           ..    ora 00,x
10766 D518 EA 01           ..    orb 01,x
10767 D51A ED 00           ..    std 00,x
10768 D51C 20 25            %    bra 25
10769 D51E F6 00 06        ...   ldab 0006
10770 D521 4F              O     clra 
10771 D522 05              .     asld 
10772 D523 C3 08 C8        ...   addd #08c8
10773 D526 8F              .     xgdx 
10774 D527 EC 00           ..    ldd 00,x
10775 D529 C4 7F           ..    andb #7f
10776 D52B F7 00 06        ...   stab 0006
10777 D52E CC 00 80        ...   ldd #0080
10778 D531 37              7     pshb 
10779 D532 36              6     psha 
10780 D533 F6 00 06        ...   ldab 0006
10781 D536 4F              O     clra 
10782 D537 05              .     asld 
10783 D538 C3 08 C8        ...   addd #08c8
10784 D53B 38              8     pulx 
10785 D53C 8F              .     xgdx 
10786 D53D AA 00           ..    ora 00,x
10787 D53F EA 01           ..    orb 01,x
10788 D541 ED 00           ..    std 00,x
10789 D543 20 15            .    bra 15
10790 goto64:
10791 D545 CC 7F FF        ...   ldd #7fff
10792 D548 37              7     pshb 
10793 D549 36              6     psha 
10794 D54A F6 00 06        ...   ldab 0006
10795 D54D 4F              O     clra 
10796 D54E 05              .     asld 
10797 D54F C3 08 00        ...   addd #0800
10798 D552 38              8     pulx 
10799 D553 8F              .     xgdx 
10800 D554 A4 00           ..    anda 00,x
10801 D556 E4 01           ..    andb 01,x
10802 D558 ED 00           ..    std 00,x
10803 D55A 7C 00 05        |..   inc 0005
10804 D55D 7E D4 A0        ~..   jmp d4a0             ;goto65
10805 goto63:
10806 D560 39              9     rts 
10807
10808 jump42:
10809 D561 F6 00 06        ...   ldab 0006
10810 D564 4F              O     clra 
10811 D565 05              .     asld 
10812 D566 C3 08 00        ...   addd #0800
10813 D569 8F              .     xgdx 
10814 D56A EC 00           ..    ldd 00,x
10815 D56C 5F              _     clrb 
10816 D56D 84 40           .@    anda #40
10817 D56F 39              9     rts 
10818
10819 ;Look at the home sensor for the row of this slot.  If it isn't 0 within 5
10820 ;loops, return 1 (fault?), else return 0 (OK?).
10821 ;005f is the row number in this routine.  scratch variable?
10822 ;looks like 0006 is the slot number.
10823 ;this is called twice
10824 jump35:
10825 D570 F6 00 06        ...   ldab 0006
10826 D573 4F              O     clra 
10827 D574 CE 00 0A        ...   ldx #000a
10828 D577 02              .     idiv 
10829 D578 F7 00 5F        .._   stab 005f
10830 D57B F6 00 5F        .._   ldab 005f
10831 D57E C1 05           ..    cmpb #05
10832 D580 23 03           #.    bls d585
10833 D582 7A 00 5F        z._   dec 005f
10834 D585 F6 00 5F        .._   ldab 005f    ;row number
10835 D588 4F              O     clra 
10836 D589 C3 B1 23        ..#   addd #b123
10837 D58C 8F              .     xgdx 
10838 D58D E6 00           ..    ldab 00,x    ;get bit for this row
10839 D58F F7 00 5E        ..^   stab 005e
10840 D592 7F 00 1C        ...   clr 001c
10841 loop:
10842 D595 F6 28 00        .(.   ldab 2800    ;snack motor home sensors
10843 D598 F4 00 5E        ..^   andb 005e    ;check home sensor for this row
10844 D59B 27 10           '.    beq d5ad
10845 D59D 7C 00 1C        |..   inc 001c
10846 D5A0 F6 00 1C        ...   ldab 001c
10847 D5A3 C1 05           ..    cmpb #05
10848 D5A5 26 04           &.    bne d5ab
10849 D5A7 CC 00 01        ...   ldd #0001
10850 D5AA 39              9     rts 
10851
10852 D5AB 20 E8            .    bra loop     ;d595
10853 D5AD 5F              _     clrb 
10854 D5AE 4F              O     clra 
10855 D5AF 39              9     rts 
10856
10857 ;This does almost the same - check the home sensor for this row (slot number
10858 ;is in 0006) up to 5 times.  If it is 1, return 0.  If it stays 0, return 0.
10859 ;(this is the reverse of the routine above).  But also check bit 0 of 100a.
10860 ;If it is ever 0, return 0.
10861 ;005f is the row number
10862 ;005e is the bit mask for this row
10863 jump31:
10864 D5B0 F6 00 06        ...   ldab 0006
10865 D5B3 4F              O     clra 
10866 D5B4 CE 00 0A        ...   ldx #000a
10867 D5B7 02              .     idiv 
10868 D5B8 F7 00 5F        .._   stab 005f
10869 D5BB F6 00 5F        .._   ldab 005f
10870 D5BE C1 05           ..    cmpb #05
10871 D5C0 23 03           #.    bls 03
10872 D5C2 7A 00 5F        z._   dec 005f
10873 D5C5 F6 00 5F        .._   ldab 005f
10874 D5C8 4F              O     clra 
10875 D5C9 C3 B1 23        ..#   addd #b123
10876 D5CC 8F              .     xgdx 
10877 D5CD E6 00           ..    ldab 00,x
10878 D5CF F7 00 5E        ..^   stab 005e
10879 D5D2 7F 00 1C        ...   clr 001c
10880 loop:
10881 D5D5 F6 28 00        .(.   ldab 2800    ;snack motor home sensors
10882 D5D8 F4 00 5E        ..^   andb 005e
10883 D5DB 26 17           &.    bne d5f4
10884 D5DD F6 10 0A        ...   ldab 100a
10885 D5E0 C4 01           ..    andb #01
10886 D5E2 27 10           '.    beq d5f4
10887 D5E4 7C 00 1C        |..   inc 001c
10888 D5E7 F6 00 1C        ...   ldab 001c
10889 D5EA C1 05           ..    cmpb #05
10890 D5EC 26 04           &.    bne d5f2
10891 D5EE CC 00 01        ...   ldd #0001
10892 D5F1 39              9     rts 
10893
10894 D5F2 20 E1            .    bra loop     ;d5d5
10895 D5F4 5F              _     clrb 
10896 D5F5 4F              O     clra 
10897 D5F6 39              9     rts 
10898
10899 jump108:
10900 D5F7 C6 07           ..    ldab #07
10901 D5F9 F7 00 1C        ...   stab 001c
10902 D5FC 7F 00 18        ...   clr 0018
10903 ;
10904 D5FF F6 00 1C        ...   ldab 001c
10905 D602 27 1E           '.    beq 1e        ; to d620
10906 D604 7A 00 1C        z..   dec 001c
10907 D607 F6 10 0A        ...   ldab 100a
10908 D60A C4 01           ..    andb #01
10909 D60C 26 12           &.    bne 12        ; to d620
10910 D60E C6 07           ..    ldab #07
10911 D610 F7 00 1C        ...   stab 001c
10912 D613 7C 00 18        |..   inc 0018
10913 D616 F6 00 18        ...   ldab 0018
10914 D619 C1 05           ..    cmpb #05
10915 D61B 26 03           &.    bne 03
10916 D61D 5F              _     clrb 
10917 D61E 4F              O     clra 
10918 D61F 39              9     rts 
10919 ;
10920 D620 20 DD            .    bra dd        ; to d5ff
10921 D622 CC 00 01        ...   ldd #0001
10922 D625 39              9     rts 
10923
10924 jump91:
10925 ; ORs memory location 08c8+(slotnum*2) with #0200
10926 D626 CC 02 00        ...   ldd #0200
10927 D629 37              7     pshb 
10928 D62A 36              6     psha 
10929 D62B F6 00 06        ...   ldab 0006
10930 D62E 4F              O     clra 
10931 D62F 05              .     asld 
10932 D630 C3 08 C8        ...   addd #08c8
10933 D633 38              8     pulx 
10934 D634 8F              .     xgdx 
10935 D635 AA 00           ..    ora 00,x
10936 D637 EA 01           ..    orb 01,x
10937 D639 ED 00           ..    std 00,x
10938 D63B 39              9     rts 
10939
10940 jump33:
10941 ; ORs memory location 08c8+(slotnum*2) with #0400
10942 D63C CC 04 00        ...   ldd #0400
10943 D63F 37              7     pshb 
10944 D640 36              6     psha 
10945 D641 F6 00 06        ...   ldab 0006
10946 D644 4F              O     clra 
10947 D645 05              .     asld 
10948 D646 C3 08 C8        ...   addd #08c8
10949 D649 38              8     pulx 
10950 D64A 8F              .     xgdx 
10951 D64B AA 00           ..    ora 00,x
10952 D64D EA 01           ..    orb 01,x
10953 D64F ED 00           ..    std 00,x
10954 D651 39              9     rts 
10955
10956 jump5:
10957 ; Sends a pulse to the bill acceptor
10958 D652 CE 00 1A        ...   ldx #001a
10959 D655 1C 00 01        ..    bset 00,x, #01
10960 D658 F6 00 1A        ...   ldab 001a
10961 D65B F7 30 00        .0.   stab 3000
10962 D65E CE 00 14        ...   ldx #0014
10963 D661 1D 00 01        ..    bclr 00,x, #01
10964 D664 F6 00 14        ...   ldab 0014
10965 D667 F7 38 00        .8.   stab 3800
10966 D66A 39              9     rts 
10967
10968 jump107:
10969 D66B F6 0B C0        ...   ldab 0bc0
10970 D66E C4 08           ..    andb #08
10971 D670 27 07           '.    beq 07
10972 D672 F6 00 7D        ..}   ldab 007d
10973 D675 27 02           '.    beq 02
10974 D677 20 F9            .    bra f9
10975 D679 F6 00 15        ...   ldab 0015
10976 D67C 2D 77           -w    blt 77
10977 D67E FC 00 40        ..@   ldd 0040
10978 D681 F3 00 3E        ..>   addd 003e
10979 D684 B3 00 0F        ...   subd 000f
10980 D687 24 4F           $O    bcc 4f
10981 D689 F6 0B C0        ...   ldab 0bc0
10982 D68C C4 01           ..    andb #01
10983 D68E 26 07           &.    bne 07
10984 D690 F6 0B C0        ...   ldab 0bc0
10985 D693 C4 04           ..    andb #04
10986 D695 27 0C           '.    beq 0c
10987 D697 CE 00 1A        ...   ldx #001a
10988 D69A 1D 00 01        ..    bclr 00,x, #01
10989 D69D F6 00 1A        ...   ldab 001a
10990 D6A0 F7 30 00        .0.   stab 3000    ; changer accept' line
10991 D6A3 F6 0B C0        ...   ldab 0bc0
10992 D6A6 C4 08           ..    andb #08
10993 D6A8 27 20           '     beq 20
10994 D6AA F6 0C D9        ...   ldab 0cd9
10995 D6AD C1 03           ..    cmpb #03
10996 D6AF 23 19           #.    bls 19
10997 D6B1 FC 0B EF        ...   ldd 0bef
10998 D6B4 83 00 64        ..d   subd #0064
10999 D6B7 25 11           %.    bcs 11
11000 D6B9 CE 00 14        ...   ldx #0014
11001 D6BC 1C 00 02        ..    bset 00,x, #02
11002 D6BF F6 00 14        ...   ldab 0014
11003 D6C2 F7 38 00        .8.   stab 3800    ; bill acceptor
11004 D6C5 BD C0 E0        ...   jsr c0e0             ;jump94
11005 D6C8 20 0C            .    bra 0c
11006 D6CA CE 00 14        ...   ldx #0014
11007 D6CD 1D 00 01        ..    bclr 00,x, #01
11008 D6D0 F6 00 14        ...   ldab 0014
11009 D6D3 F7 38 00        .8.   stab 3800
11010 D6D6 20 05            .    bra 05
11011 D6D8 BD D6 52        ..R   jsr d652             ;jump5
11012 D6DB 8D 53           .S    bsr dest 53
11013 D6DD F6 0B C0        ...   ldab 0bc0
11014 D6E0 C4 08           ..    andb #08
11015 D6E2 27 11           '.    beq 11
11016 D6E4 F6 0B C0        ...   ldab 0bc0
11017 D6E7 C4 40           .@    andb #40
11018 D6E9 27 0A           '.    beq 0a
11019 D6EB F6 00 15        ...   ldab 0015
11020 D6EE C4 01           ..    andb #01
11021 D6F0 27 03           '.    beq 03
11022 D6F2 BD C0 E0        ...   jsr c0e0             ;jump94
11023 D6F5 39              9     rts 
11024
11025 jump106:
11026 D6F6 F6 0C DB        ...   ldab 0cdb
11027 D6F9 4F              O     clra 
11028 D6FA 37              7     pshb 
11029 D6FB 36              6     psha 
11030 D6FC FC 0B DD        ...   ldd 0bdd
11031 D6FF BD FB BA        ...   jsr fbba             ;jump38 - multiply?
11032 D702 FD 0C EB        ...   std 0ceb
11033 D705 F6 0C DA        ...   ldab 0cda
11034 D708 4F              O     clra 
11035 D709 37              7     pshb 
11036 D70A 36              6     psha 
11037 D70B FC 0B DF        ...   ldd 0bdf
11038 D70E BD FB BA        ...   jsr fbba             ;jump38 - multiply?
11039 D711 FD 0C ED        ...   std 0ced
11040 D714 F6 0C D9        ...   ldab 0cd9
11041 D717 4F              O     clra 
11042 D718 37              7     pshb 
11043 D719 36              6     psha 
11044 D71A FC 0B E1        ...   ldd 0be1
11045 D71D BD FB BA        ...   jsr fbba             ;jump38 - multiply?
11046 D720 FD 0C EF        ...   std 0cef
11047 D723 FC 0C EB        ...   ldd 0ceb
11048 D726 F3 0C ED        ...   addd 0ced
11049 D729 F3 0C EF        ...   addd 0cef
11050 D72C FD 0B EF        ...   std 0bef
11051 D72F 39              9     rts 
11052
11053 jump202:
11054 D730 F6 00 15        ...   ldab 0015
11055 D733 C4 1F           ..    andb #1f
11056 D735 27 49           'I    beq 49
11057 D737 FC 00 40        ..@   ldd 0040
11058 D73A F3 00 3E        ..>   addd 003e
11059 D73D B3 0B EF        ...   subd 0bef
11060 D740 23 19           #.    bls 19
11061 D742 CC B0 6B        ..k   ldd #b06b
11062 D745 BD C0 BA        ...   jsr c0ba             ;display:
11063 D748 CC 01 F4        ...   ldd #01f4
11064 D74B BD E5 71        ..q   jsr e571             ;msdelay
11065 D74E BD C5 D3        ...   jsr c5d3             ;jump6
11066 D751 CC 01 F4        ...   ldd #01f4
11067 D754 BD E5 71        ..q   jsr e571             ;msdelay
11068 D757 CC 00 01        ...   ldd #0001
11069 D75A 39              9     rts 
11070
11071 D75B F6 00 15        ...   ldab 0015
11072 D75E C4 04           ..    andb #04
11073 D760 27 1E           '.    beq 1e
11074 D762 F6 0E 6E        ..n   ldab 0e6e
11075 D765 26 19           &.    bne 19
11076 D767 CC B0 76        ..v   ldd #b076
11077 D76A BD C0 BA        ...   jsr c0ba             ;display:
11078 D76D CC 01 F4        ...   ldd #01f4
11079 D770 BD E5 71        ..q   jsr e571             ;msdelay
11080 D773 BD C5 D3        ...   jsr c5d3             ;jump6
11081 D776 CC 01 F4        ...   ldd #01f4
11082 D779 BD E5 71        ..q   jsr e571             ;msdelay
11083 D77C CC 00 01        ...   ldd #0001
11084 D77F 39              9     rts 
11085
11086 D780 5F              _     clrb 
11087 D781 4F              O     clra 
11088 D782 39              9     rts 
11089
11090 jump44:
11091 D783 F6 00 06        ...   ldab 0006
11092 D786 4F              O     clra 
11093 D787 CE 00 0A        ...   ldx #000a
11094 D78A 02              .     idiv 
11095 D78B C1 04           ..    cmpb #04
11096 D78D 26 0E           &.    bne 0e
11097 D78F F6 00 1D        ...   ldab 001d
11098 D792 C4 04           ..    andb #04
11099 D794 27 03           '.    beq 03
11100 D796 5F              _     clrb 
11101 D797 4F              O     clra 
11102 D798 39              9     rts 
11103
11104 D799 CC 00 01        ...   ldd #0001
11105 D79C 39              9     rts 
11106
11107 D79D 5F              _     clrb 
11108 D79E 4F              O     clra 
11109 D79F 39              9     rts 
11110
11111 jump10:
11112 D7A0 37              7     pshb 
11113 D7A1 30              0     tsx 
11114 D7A2 E6 00           ..    ldab 00,x
11115 D7A4 C1 09           ..    cmpb #09
11116 D7A6 27 18           '.    beq 18
11117 D7A8 E6 00           ..    ldab 00,x
11118 D7AA C1 45           .E    cmpb #45
11119 D7AC 27 12           '.    beq 12
11120 D7AE E6 00           ..    ldab 00,x
11121 D7B0 C1 4F           .O    cmpb #4f
11122 D7B2 27 0C           '.    beq 0c
11123 D7B4 E6 00           ..    ldab 00,x
11124 D7B6 C1 59           .Y    cmpb #59
11125 D7B8 27 06           '.    beq 06
11126 D7BA E6 00           ..    ldab 00,x
11127 D7BC C1 63           .c    cmpb #63
11128 D7BE 26 05           &.    bne 05
11129 D7C0 CC 00 01        ...   ldd #0001
11130 D7C3 20 38            8    bra 38
11131 D7C5 F6 0E 6D        ..m   ldab 0e6d
11132 D7C8 C1 01           ..    cmpb #01
11133 D7CA 26 2F           &/    bne 2f
11134 D7CC 30              0     tsx 
11135 D7CD E6 00           ..    ldab 00,x
11136 D7CF 4F              O     clra 
11137 D7D0 CE 00 0A        ...   ldx #000a
11138 D7D3 02              .     idiv 
11139 D7D4 C1 01           ..    cmpb #01
11140 D7D6 27 11           '.    beq 11
11141 D7D8 30              0     tsx 
11142 D7D9 E6 00           ..    ldab 00,x
11143 D7DB 4F              O     clra 
11144 D7DC CE 00 0A        ...   ldx #000a
11145 D7DF 02              .     idiv 
11146 D7E0 C1 02           ..    cmpb #02
11147 D7E2 27 05           '.    beq 05
11148 D7E4 CC 00 01        ...   ldd #0001
11149 D7E7 20 14            .    bra 14
11150 D7E9 30              0     tsx 
11151 D7EA E6 00           ..    ldab 00,x
11152 D7EC C1 0B           ..    cmpb #0b
11153 D7EE 25 06           %.    bcs 06
11154 D7F0 E6 00           ..    ldab 00,x
11155 D7F2 C1 3E           .>    cmpb #3e
11156 D7F4 23 05           #.    bls 05
11157 D7F6 CC 00 01        ...   ldd #0001
11158 D7F9 20 02            .    bra 02
11159 D7FB 5F              _     clrb 
11160 D7FC 4F              O     clra 
11161 D7FD 31              1     ins 
11162 D7FE 39              9     rts 
11163
11164 jump80:
11165 D7FF 7F 00 1C        ...   clr 001c
11166 D802 F6 00 1C        ...   ldab 001c
11167 D805 4F              O     clra 
11168 D806 B3 00 4D        ..M   subd 004d
11169 D809 24 05           $.    bcc 05
11170 D80B 7C 00 1C        |..   inc 001c
11171 D80E 20 F2            .    bra f2
11172 D810 F6 00 1C        ...   ldab 001c
11173 D813 4F              O     clra 
11174 D814 05              .     asld 
11175 D815 C3 0D 1F        ...   addd #0d1f
11176 D818 8F              .     xgdx 
11177 D819 EC 00           ..    ldd 00,x
11178 D81B 83 FF FF        ...   subd #ffff
11179 D81E 26 10           &.    bne 10
11180 D820 5F              _     clrb 
11181 D821 4F              O     clra 
11182 D822 37              7     pshb 
11183 D823 36              6     psha 
11184 D824 F6 00 1C        ...   ldab 001c
11185 D827 4F              O     clra 
11186 D828 05              .     asld 
11187 D829 C3 0D 1F        ...   addd #0d1f
11188 D82C 38              8     pulx 
11189 D82D 8F              .     xgdx 
11190 D82E ED 00           ..    std 00,x
11191 D830 F6 00 1C        ...   ldab 001c
11192 D833 4F              O     clra 
11193 D834 05              .     asld 
11194 D835 C3 0D 1F        ...   addd #0d1f
11195 D838 8F              .     xgdx 
11196 D839 6C 01           l.    inc 01,x
11197 D83B 26 02           &.    bne 02
11198 D83D 6C 00           l.    inc 00,x
11199 D83F 39              9     rts 
11200
11201 jump105:
11202 D840 FC 00 44        ..D   ldd 0044
11203 D843 26 03           &.    bne 03
11204 D845 7E D8 D2        ~..   jmp d8d2             ;goto66
11205 D848 FC 00 44        ..D   ldd 0044
11206 D84B 37              7     pshb 
11207 D84C 36              6     psha 
11208 D84D 4F              O     clra 
11209 D84E 5F              _     clrb 
11210 D84F 37              7     pshb 
11211 D850 36              6     psha 
11212 D851 CC 0D EB        ...   ldd #0deb
11213 D854 BD FB DF        ...   jsr fbdf             ;jump46
11214 D857 31              1     ins 
11215 D858 31              1     ins 
11216 D859 FE 0D ED        ...   ldx 0ded
11217 D85C 3C              <     pshx 
11218 D85D FC 0D EB        ...   ldd 0deb
11219 D860 37              7     pshb 
11220 D861 36              6     psha 
11221 D862 CE E1 00        ...   ldx #e100
11222 D865 3C              <     pshx 
11223 D866 CC 05 F5        ...   ldd #05f5
11224 D869 37              7     pshb 
11225 D86A 36              6     psha 
11226 D86B 30              0     tsx 
11227 D86C EC 06           ..    ldd 06,x
11228 D86E A3 02           ..    subd 02,x
11229 D870 EC 04           ..    ldd 04,x
11230 D872 E2 01           ..    sbcb 01,x
11231 D874 A2 00           ..    sbca 00,x
11232 D876 38              8     pulx 
11233 D877 38              8     pulx 
11234 D878 38              8     pulx 
11235 D879 38              8     pulx 
11236 D87A 25 11           %.    bcs 11
11237 D87C CE 1F 00        ...   ldx #1f00
11238 D87F 3C              <     pshx 
11239 D880 CC FA 0A        ...   ldd #fa0a
11240 D883 37              7     pshb 
11241 D884 36              6     psha 
11242 D885 CC 0D EB        ...   ldd #0deb
11243 D888 BD FB DF        ...   jsr fbdf             ;jump46
11244 D88B 31              1     ins 
11245 D88C 31              1     ins 
11246 D88D FC 00 44        ..D   ldd 0044
11247 D890 37              7     pshb 
11248 D891 36              6     psha 
11249 D892 4F              O     clra 
11250 D893 5F              _     clrb 
11251 D894 37              7     pshb 
11252 D895 36              6     psha 
11253 D896 CC 0D E7        ...   ldd #0de7
11254 D899 BD FB DF        ...   jsr fbdf             ;jump46
11255 D89C 31              1     ins 
11256 D89D 31              1     ins 
11257 D89E FE 0D E9        ...   ldx 0de9
11258 D8A1 3C              <     pshx 
11259 D8A2 FC 0D E7        ...   ldd 0de7
11260 D8A5 37              7     pshb 
11261 D8A6 36              6     psha 
11262 D8A7 CE E1 00        ...   ldx #e100
11263 D8AA 3C              <     pshx 
11264 D8AB CC 05 F5        ...   ldd #05f5
11265 D8AE 37              7     pshb 
11266 D8AF 36              6     psha 
11267 D8B0 30              0     tsx 
11268 D8B1 EC 06           ..    ldd 06,x
11269 D8B3 A3 02           ..    subd 02,x
11270 D8B5 EC 04           ..    ldd 04,x
11271 D8B7 E2 01           ..    sbcb 01,x
11272 D8B9 A2 00           ..    sbca 00,x
11273 D8BB 38              8     pulx 
11274 D8BC 38              8     pulx 
11275 D8BD 38              8     pulx 
11276 D8BE 38              8     pulx 
11277 D8BF 25 11           %.    bcs 11
11278 D8C1 CE 1F 00        ...   ldx #1f00
11279 D8C4 3C              <     pshx 
11280 D8C5 CC FA 0A        ...   ldd #fa0a
11281 D8C8 37              7     pshb 
11282 D8C9 36              6     psha 
11283 D8CA CC 0D E7        ...   ldd #0de7
11284 D8CD BD FB DF        ...   jsr fbdf             ;jump46
11285 D8D0 31              1     ins 
11286 D8D1 31              1     ins 
11287 goto66:
11288 D8D2 39              9     rts 
11289
11290 jump84:
11291 ;500 ms delay
11292 D8D3 7F 00 18        ...   clr 0018
11293 D8D6 F6 00 18        ...   ldab 0018
11294 D8D9 C1 10           ..    cmpb #10
11295 D8DB 24 0B           $.    bcc 0b
11296 D8DD CC 00 32        ..2   ldd #0032
11297 D8E0 BD E5 71        ..q   jsr e571             ;msdelay
11298 D8E3 7C 00 18        |..   inc 0018
11299 D8E6 20 EE            .    bra ee
11300 D8E8 39              9     rts 
11301
11302 jump92:
11303 D8E9 F6 00 2B        ..+   ldab 002b
11304 D8EC C1 00           ..    cmpb #00
11305 D8EE 26 18           &.    bne 18
11306 D8F0 CC AD 84        ...   ldd #ad84    ; "  PULSE  "
11307 D8F3 BD C0 BA        ...   jsr c0ba             ;display:
11308 D8F6 8D DB           ..    bsr dest db
11309 D8F8 CC AD 8F        ...   ldd #ad8f    ; "  EXTRA  "
11310 D8FB BD C0 BA        ...   jsr c0ba             ;display:
11311 D8FE 8D D3           ..    bsr dest d3
11312 D900 CC AD 9A        ...   ldd #ad9a    ; "SELECTION"
11313 D903 BD C0 BA        ...   jsr c0ba             ;display:
11314 D906 20 4E            N    bra 4e
11315 D908 C1 01           ..    cmpb #01
11316 D90A 26 18           &.    bne 18
11317 D90C CC AD 63        ..c   ldd #ad63    ; "  BITTE  "
11318 D90F BD C0 BA        ...   jsr c0ba             ;display:
11319 D912 8D BF           ..    bsr dest bf
11320 D914 CC AD 6E        ..n   ldd #ad6e    ; "  ANDERE  "
11321 D917 BD C0 BA        ...   jsr c0ba             ;display:
11322 D91A 8D B7           ..    bsr dest b7
11323 D91C CC AD 79        ..y   ldd #ad79    ; "   WAHL   "
11324 D91F BD C0 BA        ...   jsr c0ba             ;display:
11325 D922 20 32            2    bra 32
11326 D924 C1 02           ..    cmpb #02
11327 D926 26 18           &.    bne 18
11328 D928 CC AD 42        ..B   ldd #ad42
11329 D92B BD C0 BA        ...   jsr c0ba             ;display:
11330 D92E 8D A3           ..    bsr dest a3
11331 D930 CC AD 4D        ..M   ldd #ad4d
11332 D933 BD C0 BA        ...   jsr c0ba             ;display:
11333 D936 8D 9B           ..    bsr dest 9b
11334 D938 CC AD 58        ..X   ldd #ad58
11335 D93B BD C0 BA        ...   jsr c0ba             ;display:
11336 D93E 20 16            .    bra 16
11337 D940 CC AD 21        ..!   ldd #ad21
11338 D943 BD C0 BA        ...   jsr c0ba             ;display:
11339 D946 8D 8B           ..    bsr dest 8b
11340 D948 CC AD 2C        ..,   ldd #ad2c
11341 D94B BD C0 BA        ...   jsr c0ba             ;display:
11342 D94E 8D 83           ..    bsr dest 83
11343 D950 CC AD 37        ..7   ldd #ad37
11344 D953 BD C0 BA        ...   jsr c0ba             ;display:
11345 D956 BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
11346 D959 39              9     rts 
11347
11348 jump123:
11349 D95A F6 00 06        ...   ldab 0006
11350 D95D F1 0B AF        ...   cmpb 0baf
11351 D960 26 0D           &.    bne 0d
11352 D962 BD D7 FF        ...   jsr d7ff             ;jump80
11353 D965 F6 0B B4        ...   ldab 0bb4
11354 D968 F7 00 06        ...   stab 0006
11355 D96B 8D 55           .U    bsr dest 55
11356 D96D 20 52            R    bra 52
11357 D96F F6 00 06        ...   ldab 0006
11358 D972 F1 0B AE        ...   cmpb 0bae
11359 D975 26 0D           &.    bne 0d
11360 D977 BD D7 FF        ...   jsr d7ff             ;jump80
11361 D97A F6 0B B3        ...   ldab 0bb3
11362 D97D F7 00 06        ...   stab 0006
11363 D980 8D 40           .@    bsr dest 40
11364 D982 20 3D            =    bra 3d
11365 D984 F6 00 06        ...   ldab 0006
11366 D987 F1 0B AD        ...   cmpb 0bad
11367 D98A 26 0D           &.    bne 0d
11368 D98C BD D7 FF        ...   jsr d7ff             ;jump80
11369 D98F F6 0B B2        ...   ldab 0bb2
11370 D992 F7 00 06        ...   stab 0006
11371 D995 8D 2B           .+    bsr dest 2b
11372 D997 20 28            (    bra 28
11373 D999 F6 00 06        ...   ldab 0006
11374 D99C F1 0B AC        ...   cmpb 0bac
11375 D99F 26 0D           &.    bne 0d
11376 D9A1 BD D7 FF        ...   jsr d7ff             ;jump80
11377 D9A4 F6 0B B1        ...   ldab 0bb1
11378 D9A7 F7 00 06        ...   stab 0006
11379 D9AA 8D 16           ..    bsr dest 16
11380 D9AC 20 13            .    bra 13
11381 D9AE F6 00 06        ...   ldab 0006
11382 D9B1 F1 0B AB        ...   cmpb 0bab
11383 D9B4 26 0B           &.    bne 0b
11384 D9B6 BD D7 FF        ...   jsr d7ff             ;jump80
11385 D9B9 F6 0B B0        ...   ldab 0bb0
11386 D9BC F7 00 06        ...   stab 0006
11387 D9BF 8D 01           ..    bsr dest 01
11388 D9C1 39              9     rts 
11389
11390 D9C2 CC 03 E8        ...   ldd #03e8
11391 D9C5 BD E5 71        ..q   jsr e571             ;msdelay
11392 D9C8 BD D7 83        ...   jsr d783             ;jump44
11393 D9CB 83 00 00        ...   subd #0000
11394 D9CE 27 0B           '.    beq 0b
11395 D9D0 7F 00 06        ...   clr 0006
11396 D9D3 5F              _     clrb 
11397 D9D4 4F              O     clra 
11398 D9D5 FD 00 4D        ..M   std 004d
11399 D9D8 7E DA 63        ~.c   jmp da63             ;goto67
11400 D9DB BD D2 13        ...   jsr d213             ;jump45
11401 D9DE 83 00 00        ...   subd #0000
11402 D9E1 26 0A           &.    bne 0a
11403 D9E3 7F 00 06        ...   clr 0006
11404 D9E6 5F              _     clrb 
11405 D9E7 4F              O     clra 
11406 D9E8 FD 00 4D        ..M   std 004d
11407 D9EB 20 76            v    bra 76
11408 D9ED FC 0D 0B        ...   ldd 0d0b
11409 D9F0 83 FF FF        ...   subd #ffff
11410 D9F3 26 05           &.    bne 05
11411 D9F5 5F              _     clrb 
11412 D9F6 4F              O     clra 
11413 D9F7 FD 0D 0B        ...   std 0d0b
11414 D9FA FE 0D 0B        ...   ldx 0d0b
11415 D9FD 08              .     inx 
11416 D9FE FF 0D 0B        ...   stx 0d0b
11417 DA01 F6 00 06        ...   ldab 0006
11418 DA04 4F              O     clra 
11419 DA05 05              .     asld 
11420 DA06 C3 08 C8        ...   addd #08c8
11421 DA09 8F              .     xgdx 
11422 DA0A EC 00           ..    ldd 00,x
11423 DA0C C4 7F           ..    andb #7f
11424 DA0E 4F              O     clra 
11425 DA0F FD 00 4D        ..M   std 004d
11426 DA12 F6 00 06        ...   ldab 0006
11427 DA15 4F              O     clra 
11428 DA16 05              .     asld 
11429 DA17 C3 08 00        ...   addd #0800
11430 DA1A 8F              .     xgdx 
11431 DA1B EC 00           ..    ldd 00,x
11432 DA1D C4 FF           ..    andb #ff
11433 DA1F 84 3F           .?    anda #3f
11434 DA21 37              7     pshb 
11435 DA22 36              6     psha 
11436 DA23 4F              O     clra 
11437 DA24 5F              _     clrb 
11438 DA25 37              7     pshb 
11439 DA26 36              6     psha 
11440 DA27 CC 0D 17        ...   ldd #0d17
11441 DA2A BD FB DF        ...   jsr fbdf             ;jump46
11442 DA2D 31              1     ins 
11443 DA2E 31              1     ins 
11444 DA2F FE 0D 19        ...   ldx 0d19
11445 DA32 3C              <     pshx 
11446 DA33 FC 0D 17        ...   ldd 0d17
11447 DA36 37              7     pshb 
11448 DA37 36              6     psha 
11449 DA38 CE E1 00        ...   ldx #e100
11450 DA3B 3C              <     pshx 
11451 DA3C CC 05 F5        ...   ldd #05f5
11452 DA3F 37              7     pshb 
11453 DA40 36              6     psha 
11454 DA41 30              0     tsx 
11455 DA42 EC 06           ..    ldd 06,x
11456 DA44 A3 02           ..    subd 02,x
11457 DA46 EC 04           ..    ldd 04,x
11458 DA48 E2 01           ..    sbcb 01,x
11459 DA4A A2 00           ..    sbca 00,x
11460 DA4C 38              8     pulx 
11461 DA4D 38              8     pulx 
11462 DA4E 38              8     pulx 
11463 DA4F 38              8     pulx 
11464 DA50 25 11           %.    bcs 11
11465 DA52 CE 1F 00        ...   ldx #1f00
11466 DA55 3C              <     pshx 
11467 DA56 CC FA 0A        ...   ldd #fa0a
11468 DA59 37              7     pshb 
11469 DA5A 36              6     psha 
11470 DA5B CC 0D 17        ...   ldd #0d17
11471 DA5E BD FB DF        ...   jsr fbdf             ;jump46
11472 DA61 31              1     ins 
11473 DA62 31              1     ins 
11474 goto67:
11475 DA63 39              9     rts 
11476
11477 jump122:
11478 DA64 FE 0B B9        ...   ldx 0bb9
11479 DA67 08              .     inx 
11480 DA68 FF 0B B9        ...   stx 0bb9
11481 DA6B FC 0B B5        ...   ldd 0bb5
11482 DA6E CE 00 32        ..2   ldx #0032
11483 DA71 02              .     idiv 
11484 DA72 8F              .     xgdx 
11485 DA73 37              7     pshb 
11486 DA74 36              6     psha 
11487 DA75 CC 00 C3        ...   ldd #00c3
11488 DA78 BD FB BA        ...   jsr fbba             ;jump38
11489 DA7B B3 0B B9        ...   subd 0bb9
11490 DA7E 24 05           $.    bcc 05
11491 DA80 5F              _     clrb 
11492 DA81 4F              O     clra 
11493 DA82 FD 0B B9        ...   std 0bb9
11494 DA85 FC 0B B9        ...   ldd 0bb9
11495 DA88 37              7     pshb 
11496 DA89 36              6     psha 
11497 DA8A CC 00 0A        ...   ldd #000a
11498 DA8D BD FB BA        ...   jsr fbba             ;jump38
11499 DA90 37              7     pshb 
11500 DA91 36              6     psha 
11501 DA92 FC 0B B5        ...   ldd 0bb5
11502 DA95 CE 00 32        ..2   ldx #0032
11503 DA98 02              .     idiv 
11504 DA99 8F              .     xgdx 
11505 DA9A 38              8     pulx 
11506 DA9B 8F              .     xgdx 
11507 DA9C 02              .     idiv 
11508 DA9D 8F              .     xgdx 
11509 DA9E 37              7     pshb 
11510 DA9F 36              6     psha 
11511 DAA0 CC 00 0A        ...   ldd #000a
11512 DAA3 BD FB BA        ...   jsr fbba             ;jump38
11513 DAA6 CE 00 0A        ...   ldx #000a
11514 DAA9 02              .     idiv 
11515 DAAA 8F              .     xgdx 
11516 DAAB FD 00 4A        ..J   std 004a
11517 DAAE FC 00 4A        ..J   ldd 004a
11518 DAB1 BD FE 32        ..2   jsr fe32             ;jump25
11519 DAB4 DA CA 00 6E     ...n  ; 110
11520 DAB8 DA CA 02 80     ....  ; 750
11521 DABC DA CA 01 C2     ....  ; 1200
11522 DAC0 DA CA 01 C2     ....  ; 1650
11523 DAC4 DB 43 F9 8E     ....  ; 0
11524 DAC8 00 00           ..    ; end of array data
11525 DACA FC 0D 07        ...   ldd 0d07
11526 DACD 83 FF FF        ...   subd #ffff
11527 DAD0 26 05           &.    bne 05
11528 DAD2 5F              _     clrb 
11529 DAD3 4F              O     clra 
11530 DAD4 FD 0D 07        ...   std 0d07
11531 DAD7 FE 0D 07        ...   ldx 0d07
11532 DADA 08              .     inx 
11533 DADB FF 0D 07        ...   stx 0d07
11534 DADE F6 00 06        ...   ldab 0006
11535 DAE1 4F              O     clra 
11536 DAE2 05              .     asld 
11537 DAE3 C3 08 00        ...   addd #0800
11538 DAE6 8F              .     xgdx 
11539 DAE7 EC 00           ..    ldd 00,x
11540 DAE9 C4 FF           ..    andb #ff
11541 DAEB 84 3F           .?    anda #3f
11542 DAED 37              7     pshb 
11543 DAEE 36              6     psha 
11544 DAEF 4F              O     clra 
11545 DAF0 5F              _     clrb 
11546 DAF1 37              7     pshb 
11547 DAF2 36              6     psha 
11548 DAF3 CC 0D 0F        ...   ldd #0d0f
11549 DAF6 BD FB DF        ...   jsr fbdf             ;jump46
11550 DAF9 31              1     ins 
11551 DAFA 31              1     ins 
11552 DAFB FE 0D 11        ...   ldx 0d11
11553 DAFE 3C              <     pshx 
11554 DAFF FC 0D 0F        ...   ldd 0d0f
11555 DB02 37              7     pshb 
11556 DB03 36              6     psha 
11557 DB04 CE E1 00        ...   ldx #e100
11558 DB07 3C              <     pshx 
11559 DB08 CC 05 F5        ...   ldd #05f5
11560 DB0B 37              7     pshb 
11561 DB0C 36              6     psha 
11562 DB0D 30              0     tsx 
11563 DB0E EC 06           ..    ldd 06,x
11564 DB10 A3 02           ..    subd 02,x
11565 DB12 EC 04           ..    ldd 04,x
11566 DB14 E2 01           ..    sbcb 01,x
11567 DB16 A2 00           ..    sbca 00,x
11568 DB18 38              8     pulx 
11569 DB19 38              8     pulx 
11570 DB1A 38              8     pulx 
11571 DB1B 38              8     pulx 
11572 DB1C 25 11           %.    bcs 11
11573 DB1E CE 1F 00        ...   ldx #1f00
11574 DB21 3C              <     pshx 
11575 DB22 CC FA 0A        ...   ldd #fa0a
11576 DB25 37              7     pshb 
11577 DB26 36              6     psha 
11578 DB27 CC 0D 0F        ...   ldd #0d0f
11579 DB2A BD FB DF        ...   jsr fbdf             ;jump46
11580 DB2D 31              1     ins 
11581 DB2E 31              1     ins 
11582 DB2F 5F              _     clrb 
11583 DB30 4F              O     clra 
11584 DB31 FD 00 44        ..D   std 0044
11585 DB34 CE 00 1B        ...   ldx #001b
11586 DB37 1D 00 01        ...   bclr 00,x, #01
11587 DB3A 7F 00 4F        ..O   clr 004f
11588 DB3D CE 00 11        ...   ldx #0011
11589 DB40 1C 00 10        ...   bset 00,x, #10
11590 DB43 39              9     rts 
11591
11592 jump104:
11593 DB44 F6 00 2B        ..+   ldab 002b
11594 DB47 C1 00           ..    cmpb #00
11595 DB49 26 08           &.    bne 08
11596 DB4B CC AC DF        ...   ldd #acdf
11597 DB4E BD C0 BA        ...   jsr c0ba             ;display:
11598 DB51 20 1E            .    bra 1e
11599 DB53 C1 01           ..    cmpb #01
11600 DB55 26 08           &.    bne 08
11601 DB57 CC AC D4        ...   ldd #acd4
11602 DB5A BD C0 BA        ...   jsr c0ba             ;display:
11603 DB5D 20 12            .    bra 12
11604 DB5F C1 02           ..    cmpb #02
11605 DB61 26 08           &.    bne 08
11606 DB63 CC AC EA        ...   ldd #acea
11607 DB66 BD C0 BA        ...   jsr c0ba             ;display:
11608 DB69 20 06            .    bra 06
11609 DB6B CC AC D4        ...   ldd #acd4
11610 DB6E BD C0 BA        ...   jsr c0ba             ;display:
11611 DB71 BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
11612 DB74 CE 00 01        ...   ldx #0001
11613 DB77 3C              <     pshx 
11614 DB78 FC 00 40        ..@   ldd 0040
11615 DB7B F3 00 3E        ..>   addd 003e
11616 DB7E BD BE 9E        ...   jsr be9e             ;jump50
11617 DB81 38              8     pulx 
11618 DB82 FC 00 40        ..@   ldd 0040
11619 DB85 27 05           '.    beq 05
11620 DB87 BD C4 56        ..V   jsr c456             ;jump47
11621 DB8A 20 06            .    bra 06
11622 DB8C CC 02 58        ..X   ldd #0258
11623 DB8F BD E5 71        ..q   jsr e571             ;msdelay
11624 DB92 FC 00 3E        ..>   ldd 003e
11625 DB95 27 03           '.    beq 03
11626 DB97 BD C5 D3        ...   jsr c5d3             ;jump6
11627 DB9A F6 00 2B        ..+   ldab 002b
11628 DB9D C1 00           ..    cmpb #00
11629 DB9F 26 08           &.    bne 08
11630 DBA1 CC AD 16        ...   ldd #ad16
11631 DBA4 BD C0 BA        ...   jsr c0ba             ;display:
11632 DBA7 20 1E            .    bra 1e
11633 DBA9 C1 01           ..    cmpb #01
11634 DBAB 26 08           &.    bne 08
11635 DBAD CC AD 0B        ...   ldd #ad0b
11636 DBB0 BD C0 BA        ...   jsr c0ba             ;display:
11637 DBB3 20 12            .    bra 12
11638 DBB5 C1 02           ..    cmpb #02
11639 DBB7 26 08           &.    bne 08
11640 DBB9 CC AD 00        ...   ldd #ad00
11641 DBBC BD C0 BA        ...   jsr c0ba             ;display:
11642 DBBF 20 06            .    bra 06
11643 DBC1 CC AC F5        ...   ldd #acf5
11644 DBC4 BD C0 BA        ...   jsr c0ba             ;display:
11645 DBC7 BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
11646 DBCA 39              9     rts 
11647
11648 jump121:
11649 DBCB F6 00 1B        ...   ldab 001b
11650 DBCE C4 01           ..    andb #01
11651 DBD0 26 03           &.    bne 03
11652 DBD2 7E DC 98        ~..   jmp dc98             ;goto68
11653 DBD5 F6 00 06        ...   ldab 0006
11654 DBD8 4F              O     clra 
11655 DBD9 05              .     asld 
11656 DBDA C3 08 C8        ...   addd #08c8
11657 DBDD 8F              .     xgdx 
11658 DBDE EC 00           ..    ldd 00,x
11659 DBE0 84 08           ..    anda #08
11660 DBE2 26 03           &.    bne 03
11661 DBE4 7E DC 98        ~..   jmp dc98             ;goto68
11662 DBE7 BD D7 FF        ...   jsr d7ff             ;jump80
11663 DBEA CC 03 E8        ...   ldd #03e8
11664 DBED BD E5 71        ..q   jsr e571             ;msdelay
11665 DBF0 BD D3 46        ..F   jsr d346             ;jump43
11666 DBF3 83 00 00        ...   subd #0000
11667 DBF6 26 08           &.    bne 08
11668 DBF8 BD D7 83        ...   jsr d783             ;jump44
11669 DBFB 83 00 00        ...   subd #0000
11670 DBFE 27 17           '.    beq 17
11671 DC00 5F              _     clrb 
11672 DC01 4F              O     clra 
11673 DC02 FD 00 4D        ..M   std 004d
11674 DC05 FC 00 44        ..D   ldd 0044
11675 DC08 F3 0B B7        ...   addd 0bb7
11676 DC0B 04              .     lsrd 
11677 DC0C F3 00 40        ..@   addd 0040
11678 DC0F B3 0B B7        ...   subd 0bb7
11679 DC12 FD 00 40        ..@   std 0040
11680 DC15 20 78            x    bra 78
11681 DC17 BD D2 13        ...   jsr d213             ;jump45
11682 DC1A 83 00 00        ...   subd #0000
11683 DC1D 26 17           &.    bne 17
11684 DC1F 5F              _     clrb 
11685 DC20 4F              O     clra 
11686 DC21 FD 00 4D        ..M   std 004d
11687 DC24 FC 00 44        ..D   ldd 0044
11688 DC27 F3 0B B7        ...   addd 0bb7
11689 DC2A 04              .     lsrd 
11690 DC2B F3 00 40        ..@   addd 0040
11691 DC2E B3 0B B7        ...   subd 0bb7
11692 DC31 FD 00 40        ..@   std 0040
11693 DC34 20 59            Y    bra 59
11694 DC36 FC 0D 09        ...   ldd 0d09
11695 DC39 83 FF FF        ...   subd #ffff
11696 DC3C 26 05           &.    bne 05
11697 DC3E 5F              _     clrb 
11698 DC3F 4F              O     clra 
11699 DC40 FD 0D 09        ...   std 0d09
11700 DC43 FE 0D 09        ...   ldx 0d09
11701 DC46 08              .     inx 
11702 DC47 FF 0D 09        ...   stx 0d09
11703 DC4A FC 0B B7        ...   ldd 0bb7
11704 DC4D 37              7     pshb 
11705 DC4E 36              6     psha 
11706 DC4F 4F              O     clra 
11707 DC50 5F              _     clrb 
11708 DC51 37              7     pshb 
11709 DC52 36              6     psha 
11710 DC53 CC 0D 13        ...   ldd #0d13
11711 DC56 BD FB DF        ...   jsr fbdf             ;jump46
11712 DC59 31              1     ins 
11713 DC5A 31              1     ins 
11714 DC5B FE 0D 15        ...   ldx 0d15
11715 DC5E 3C              <     pshx 
11716 DC5F FC 0D 13        ...   ldd 0d13
11717 DC62 37              7     pshb 
11718 DC63 36              6     psha 
11719 DC64 CE E1 00        ...   ldx #e100
11720 DC67 3C              <     pshx 
11721 DC68 CC 05 F5        ...   ldd #05f5
11722 DC6B 37              7     pshb 
11723 DC6C 36              6     psha 
11724 DC6D 30              0     tsx 
11725 DC6E EC 06           ..    ldd 06,x
11726 DC70 A3 02           ..    subd 02,x
11727 DC72 EC 04           ..    ldd 04,x
11728 DC74 E2 01           ..    sbcb 01,x
11729 DC76 A2 00           ..    sbca 00,x
11730 DC78 38              8     pulx 
11731 DC79 38              8     pulx 
11732 DC7A 38              8     pulx 
11733 DC7B 38              8     pulx 
11734 DC7C 25 11           %.    bcs 11
11735 DC7E CE 1F 00        ...   ldx #1f00
11736 DC81 3C              <     pshx 
11737 DC82 CC FA 0A        ...   ldd #fa0a
11738 DC85 37              7     pshb 
11739 DC86 36              6     psha 
11740 DC87 CC 0D 13        ...   ldd #0d13
11741 DC8A BD FB DF        ...   jsr fbdf             ;jump46
11742 DC8D 31              1     ins 
11743 DC8E 31              1     ins 
11744 DC8F CE 00 1B        ...   ldx #001b
11745 DC92 1D 00 01        ...   bclr 00,x, #01
11746 DC95 7F 00 4F        ..O   clr 004f
11747 goto68:
11748 DC98 F6 00 11        ...   ldab 0011
11749 DC9B C4 08           ..    andb #08
11750 DC9D 26 03           &.    bne 03
11751 DC9F BD D9 5A        ..Z   jsr d95a             ;jump123
11752 DCA2 39              9     rts 
11753
11754 jump29:
11755 DCA3 CE 0B BC        ...   ldx #0bbc
11756 DCA6 1D 00 1C        ..    bclr 00,x, #1c
11757 DCA9 F6 0B BC        ..    ldab 0bbc
11758 DCAB C4 03           ...   andb #03
11759 DCAE 26 48           &H    bne 48
11760 DCB0 FC 0B BD        ...   ldd 0bbd
11761 DCB3 37              7     pshb 
11762 DCB4 36              6     psha 
11763 DCB5 4F              O     clra 
11764 DCB6 5F              _     clrb 
11765 DCB7 37              7     pshb 
11766 DCB8 36              6     psha 
11767 DCB9 CC 0D F7        ...   ldd #0df7
11768 DCBC BD FB DF        ...   jsr fbdf             ;jump46
11769 DCBF 31              1     ins 
11770 DCC0 31              1     ins 
11771 DCC1 FE 0D F9        ...   ldx 0df9
11772 DCC4 3C              <     pshx 
11773 DCC5 FC 0D F7        ...   ldd 0df7
11774 DCC8 37              7     pshb 
11775 DCC9 36              6     psha 
11776 DCCA CE E1 00        ...   ldx #e100
11777 DCCD 3C              <     pshx 
11778 DCCE CC 05 F5        ...   ldd #05f5
11779 DCD1 37              7     pshb 
11780 DCD2 36              6     psha 
11781 DCD3 30              0     tsx 
11782 DCD4 EC 06           ..    ldd 06,x
11783 DCD6 A3 02           ..    subd 02,x
11784 DCD8 EC 04           ..    ldd 04,x
11785 DCDA E2 01           ..    sbcb 01,x
11786 DCDC A2 00           ..    sbca 00,x
11787 DCDE 38              8     pulx 
11788 DCDF 38              8     pulx 
11789 DCE0 38              8     pulx 
11790 DCE1 38              8     pulx 
11791 DCE2 25 11           %.    bcs 11
11792 DCE4 CE 1F 00        ...   ldx #1f00
11793 DCE7 3C              <     pshx 
11794 DCE8 CC FA 0A        ...   ldd #fa0a
11795 DCEB 37              7     pshb 
11796 DCEC 36              6     psha 
11797 DCED CC 0D F7        ...   ldd #0df7
11798 DCF0 BD FB DF        ...   jsr fbdf             ;jump46
11799 DCF3 31              1     ins 
11800 DCF4 31              1     ins 
11801 DCF5 7E DD D4        ~..   jmp ddd4             ;goto69
11802 DCF8 F6 0B BC        ...   ldab 0bbc
11803 DCFB C4 03           ..    andb #03
11804 DCFD C1 01           ..    cmpb #01
11805 DCFF 27 03           '.    beq 03
11806 DD01 7E DD D4        ~..   jmp ddd4             ;goto69
11807 DD04 F6 0B BC        ...   ldab 0bbc
11808 DD07 C4 E0           ..    andb #e0
11809 DD09 54              T     lsrb 
11810 DD0A 54              T     lsrb 
11811 DD0B 54              T     lsrb 
11812 DD0C 54              T     lsrb 
11813 DD0D 54              T     lsrb 
11814 DD0E F7 0B BC        ...   stab 0bbc
11815 DD11 F6 0B BC        ...   ldab 0bbc
11816 DD14 F1 0B C4        ...   cmpb 0bc4
11817 DD17 26 33           &3    bne 33
11818 DD19 F6 0B D7        ...   ldab 0bd7
11819 DD1C C1 01           ..    cmpb #01
11820 DD1E 26 0A           &.    bne 0a
11821 DD20 7C 0C DB        |..   inc 0cdb
11822 DD23 C6 03           ..    ldab #03
11823 DD25 F7 00 48        ..H   stab 0048
11824 DD28 20 20                 bra 20
11825 DD2A F6 0B D8        ...   ldab 0bd8
11826 DD2D C1 01           ..    cmpb #01
11827 DD2F 26 0A           &.    bne 0a
11828 DD31 7C 0C DA        |..   inc 0cda
11829 DD34 C6 02           ..    ldab #02
11830 DD36 F7 00 48        ..H   stab 0048
11831 DD39 20 0F            .    bra 0f
11832 DD3B F6 0B D9        ...   ldab 0bd9
11833 DD3E C1 01           ..    cmpb #01
11834 DD40 26 08           &.    bne 08
11835 DD42 7C 0C D9        |..   inc 0cd9
11836 DD45 C6 01           ..    ldab #01
11837 DD47 F7 00 48        ..H   stab 0048
11838 DD4A 20 74            t    bra 74
11839 DD4C F6 0B BC        ...   ldab 0bbc
11840 DD4F F1 0B C5        ...   cmpb 0bc5
11841 DD52 26 33           &3    bne 33
11842 DD54 F6 0B D7        ...   ldab 0bd7
11843 DD57 C1 04           ..    cmpb #04
11844 DD59 26 0A           &.    bne 0a
11845 DD5B 7C 0C DB        |..   inc 0cdb
11846 DD5E C6 03           ..    ldab #03
11847 DD60 F7 00 48        ..H   stab 0048
11848 DD63 20 20                 bra 20
11849 DD65 F6 0B D8        ...   ldab 0bd8
11850 DD68 C1 04           ..    cmpb #04
11851 DD6A 26 0A           &.    bne 0a
11852 DD6C 7C 0C DA        |..   inc 0cda
11853 DD6F C6 02           ..    ldab #02
11854 DD71 F7 00 48        ..H   stab 0048
11855 DD74 20 0F            .    bra 0f
11856 DD76 F6 0B D9        ...   ldab 0bd9
11857 DD79 C1 04           ..    cmpb #04
11858 DD7B 26 08           &.    bne 08
11859 DD7D 7C 0C D9        |..   inc 0cd9
11860 DD80 C6 01           ..    ldab #01
11861 DD82 F7 00 48        ..H   stab 0048
11862 DD85 20 39            9    bra 39
11863 DD87 F6 0B BC        ...   ldab 0bbc
11864 DD8A F1 0B C6        ...   cmpb 0bc6
11865 DD8D 26 31           &1    bne 31
11866 DD8F F6 0B D7        ...   ldab 0bd7
11867 DD92 C1 02           ..    cmpb #02
11868 DD94 26 0A           &.    bne 0a
11869 DD96 7C 0C DB        |..   inc 0cdb
11870 DD99 C6 03           ..    ldab #03
11871 DD9B F7 00 48        ..H   stab 0048
11872 DD9E 20 20                 bra 20
11873 DDA0 F6 0B D8        ...   ldab 0bd8
11874 DDA3 C1 02           ..    cmpb #02
11875 DDA5 26 0A           &.    bne 0a
11876 DDA7 7C 0C DA        |..   inc 0cda
11877 DDAA C6 02           ..    ldab #02
11878 DDAC F7 00 48        ..H   stab 0048
11879 DDAF 20 0F            .    bra 0f
11880 DDB1 F6 0B D9        ...   ldab 0bd9
11881 DDB4 C1 02           ..    cmpb #02
11882 DDB6 26 08           &.    bne 08
11883 DDB8 7C 0C D9        |..   inc 0cd9
11884 DDBB C6 01           ..    ldab #01
11885 DDBD F7 00 48        ..H   stab 0048
11886 DDC0 F6 00 17        ...   ldab 0017
11887 DDC3 C4 08           ..    andb #08
11888 DDC5 26 0D           &.    bne 0d
11889 DDC7 F6 0B BC        ...   ldab 0bbc
11890 DDCA 26 08           &.    bne 08
11891 DDCC 7C 0C DC        |..   inc 0cdc
11892 DDCF C6 04           ..    ldab #04
11893 DDD1 F7 00 48        ..H   stab 0048
11894 goto69:
11895 DDD4 39              9     rts 
11896
11897 jump120:
11898 DDD5 BD BE 69        ..i   jsr be69             ;displayreset
11899 DDD8 C6 03           ..    ldab #03
11900 DDDA F7 00 1C        ...   stab 001c
11901 DDDD F6 00 1C        ...   ldab 001c
11902 DDE0 C1 0D           ..    cmpb #0d
11903 DDE2 24 1C           $.    bcc 1c
11904 DDE4 F6 00 1C        ...   ldab 001c
11905 DDE7 4F              O     clra 
11906 DDE8 C3 0C B9        ...   addd #0cb9
11907 DDEB 8F              .     xgdx 
11908 DDEC E6 00           ..    ldab 00,x
11909 DDEE 37              7     pshb 
11910 DDEF CC 0B 9C        ...   ldd #0b9c
11911 DDF2 F0 00 1C        ...   subb 001c
11912 DDF5 82 00           ..    sbca #00
11913 DDF7 8F              .     xgdx 
11914 DDF8 33              3     pulb 
11915 DDF9 E7 00           ..    stab 00,x
11916 DDFB 7C 00 1C        |..   inc 001c
11917 DDFE 20 DD            .    bra dd
11918 DE00 BD BE 10        ...   jsr be10             ;jump88
11919 DE03 C6 14           ..    ldab #14
11920 DE05 F7 00 2C        ..,   stab 002c
11921 DE08 39              9     rts 
11922
11923 dump119:
11924 DE09 CC 0B 9A        ...   ldd #0b9a
11925 DE0C BD C0 BA        ...   jsr c0ba             ;display:
11926 DE0F C6 14           ..    ldab #14
11927 DE11 F7 00 2C        ..,   stab 002c
11928 DE14 39              9     rts 
11929
11930 dump118:
11931 DE15 F6 00 1B        ...   ldab 001b
11932 DE18 C4 01           ..    andb #01
11933 DE1A 26 03           &.    bne 03
11934 DE1C 7E DE A4        ~..   jmp dea4             ;goto70
11935 DE1F F6 00 06        ...   ldab 0006
11936 DE22 4F              O     clra 
11937 DE23 05              .     asld 
11938 DE24 C3 08 C8        ...   addd #08c8
11939 DE27 8F              .     xgdx 
11940 DE28 EC 00           ..    ldd 00,x
11941 DE2A 84 08           ..    anda #08
11942 DE2C 27 76           'v    beq 76
11943 DE2E F6 00 11        ...   ldab 0011
11944 DE31 C4 08           ..    andb #08
11945 DE33 26 33           &3    bne 33
11946 DE35 F6 00 06        ...   ldab 0006
11947 DE38 F1 0B AF        ...   cmpb 0baf
11948 DE3B 27 20           '     beq 20
11949 DE3D F6 00 06        ...   ldab 0006
11950 DE40 F1 0B AE        ...   cmpb 0bae
11951 DE43 27 18           '.    beq 18
11952 DE45 F6 00 06        ...   ldab 0006
11953 DE48 F1 0B AD        ...   cmpb 0bad
11954 DE4B 27 10           '.    beq 10
11955 DE4D F6 00 06        ...   ldab 0006
11956 DE50 F1 0B AC        ...   cmpb 0bac
11957 DE53 27 08           '.    beq 08
11958 DE55 F6 00 06        ...   ldab 0006
11959 DE58 F1 0B AB        ...   cmpb 0bab
11960 DE5B 26 0B           &.    bne 0b
11961 DE5D CE 00 1B        ...   ldx #001b
11962 DE60 1D 00 01        ...   bclr 00,x, #01    ; fixed by ./fixbset.pl - verify me
11963 DE63 7F 00 4F        ..O   clr 004f
11964 DE66 20 3C            <    bra 3c
11965 DE68 FC 00 44        ..D   ldd 0044
11966 DE6B B3 0B B7        ...   subd 0bb7
11967 DE6E 23 2B           #+    bls 2b
11968 DE70 FC 00 40        ..@   ldd 0040
11969 DE73 F3 00 3E        ..>   addd 003e
11970 DE76 37              7     pshb 
11971 DE77 36              6     psha 
11972 DE78 FC 00 44        ..D   ldd 0044
11973 DE7B B3 0B B7        ...   subd 0bb7
11974 DE7E F3 00 44        ..D   addd 0044
11975 DE81 30              0     tsx 
11976 DE82 A3 00           ..    subd 00,x
11977 DE84 31              1     ins 
11978 DE85 31              1     ins 
11979 DE86 22 13           ".    bhi 13
11980 DE88 FC 0B B7        ...   ldd 0bb7
11981 DE8B 27 0E           '.    beq 0e
11982 DE8D FC 00 44        ..D   ldd 0044
11983 DE90 B3 0B B7        ...   subd 0bb7
11984 DE93 F3 00 44        ..D   addd 0044
11985 DE96 FD 00 44        ..D   std 0044
11986 DE99 20 09            .    bra 09
11987 DE9B CE 00 1B        ...   ldx #001b
11988 DE9E 1D 00 01        ...   bclr 00,x, #01    ; fixed by ./fixbset.pl - verify me
11989 DEA1 7F 00 4F        ..O   clr 004f
11990 goto70:
11991 DEA4 39              9     rts 
11992
11993 dump117:
11994 DEA5 F6 00 2B        ..+   ldab 002b
11995 DEA8 C1 00           ..    cmpb #00
11996 DEAA 26 0D           &.    bne 0d
11997 DEAC CE 00 12        ...   ldx #0012
11998 DEAF 3C              <     pshx 
11999 DEB0 CC AE 7E        ..~   ldd #ae7e
12000 DEB3 BD C0 2E        ...   jsr c02e             ;jump71
12001 DEB6 38              8     pulx 
12002 DEB7 20 2D            -    bra 2d
12003 DEB9 C1 01           ..    cmpb #01
12004 DEBB 26 0D           &.    bne 0d
12005 DEBD CE 00 0F        ...   ldx #000f
12006 DEC0 3C              <     pshx 
12007 DEC1 CC AE 6D        ..m   ldd #ae6d    ; something german
12008 DEC4 BD C0 2E        ...   jsr c02e             ;jump71
12009 DEC7 38              8     pulx 
12010 DEC8 20 1C            .    bra 1c
12011 DECA C1 02           ..    cmpb #02
12012 DECC 26 0D           &.    bne 0d
12013 DECE CE 00 10        ...   ldx #0010
12014 DED1 3C              <     pshx 
12015 DED2 CC AE 5B        ..[   ldd #ae5b
12016 DED5 BD C0 2E        ...   jsr c02e             ;jump71
12017 DED8 38              8     pulx 
12018 DED9 20 0B            .    bra 0b
12019 DEDB CE 00 15        ...   ldx #0015
12020 DEDE 3C              <     pshx 
12021 DEDF CC AE 44        ..D   ldd #ae44
12022 DEE2 BD C0 2E        ...   jsr c02e             ;jump71
12023 DEE5 38              8     pulx 
12024 DEE6 39              9     rts 
12025
12026 jump116:
12027 ; revolves around coinage
12028 DEE7 F6 0B C0        ...   ldab 0bc0
12029 DEEA C4 01           ..    andb #01
12030 DEEC 26 07           &.    bne 07
12031 DEEE F6 0B C0        ...   ldab 0bc0
12032 DEF1 C4 04           ..    andb #04
12033 DEF3 27 15           '.    beq 15
12034 DEF5 C6 FF           ..    ldab #ff
12035 DEF7 F7 0B BC        ...   stab 0bbc
12036 DEFA F6 00 15        ...   ldab 0015
12037 DEFD 2D 03           -.    blt 03
12038 DEFF BD C6 7D        ..}   jsr c67d             ;jump124
12039 DF02 BD D6 6B        ..k   jsr d66b             ;jump107
12040 DF05 BD DC A3        ...   jsr dca3             ;jump29
12041 DF08 20 25            %    bra 25
12042 DF0A F6 0B C0        ...   ldab 0bc0
12043 DF0D C4 02           ..    andb #02
12044 DF0F 27 1E           '.    beq 1e
12045 DF11 F6 00 2F        ../   ldab 002f
12046 DF14 26 19           &.    bne 19
12047 DF16 F6 00 1B        ...   ldab 001b
12048 DF19 C4 02           ..    andb #02
12049 DF1B 26 12           &.    bne 12
12050 DF1D CC 00 FF        ...   ldd #00ff
12051 DF20 BD C7 E7        ...   jsr c7e7             ;jump37
12052 DF23 CE 00 1B        ...   ldx #001b
12053 DF26 1C 00 02        ..    bset 00,x, #02
12054 DF29 CE 0B C1        ...   ldx #0bc1
12055 DF2C 1C 00 04        ..    bset 00,x, #04
12056 DF2F F6 00 21        ..!   ldab 0021
12057 DF32 C4 20           .     andb #20
12058 DF34 27 07           '.    beq 07
12059 ;
12060 DF36 BD D6 52        ..R   jsr d652             ;jump5
12061 DF39 BD DE A5        ...   jsr dea5             ;jump117
12062 DF3C 39              9     rts 
12063 ;
12064 DF3D F6 00 4F        ..O   ldab 004f
12065 DF40 26 06           &.    bne 06
12066 DF42 CE 00 1B        ...   ldx #001b
12067 DF45 1D 00 01        ...   bclr 00,x, #01    ; fixed by ./fixbset.pl - verify me
12068 DF48 F6 00 25        ..%   ldab 0025
12069 DF4B 26 20           &     bne 20
12070 DF4D F6 00 1B        ...   ldab 001b
12071 DF50 C4 40           .@    andb #40
12072 DF52 27 19           '.    beq 19
12073 DF54 BD D6 52        ..R   jsr d652             ;jump5
12074 DF57 FC 00 40        ..@   ldd 0040
12075 DF5A 26 05           &.    bne 05
12076 DF5C FC 00 3E        ..>   ldd 003e
12077 DF5F 27 03           '.    beq 03
12078 DF61 BD DB 44        ..D   jsr db44             ;jump104
12079 DF64 BD D6 6B        ..k   jsr d66b             ;jump107
12080 DF67 CE 00 1B        ...   ldx #001b
12081 DF6A 1D 00 40        ...   bclr 00,x, #40    ; fixed by ./fixbset.pl - verify me
12082 DF6D F6 00 2C        ..,   ldab 002c
12083 DF70 27 03           '.    beq 03
12084 DF72 7E E0 66        ~.f   jmp e066             ;goto71
12085 DF75 F6 00 34        ..4   ldab 0034
12086 DF78 26 0B           &.    bne 0b
12087 DF7A BD BE 69        ..i   jsr be69             ;displayreset
12088 DF7D C6 32           .2    ldab #32
12089 DF7F F7 00 34        ..4   stab 0034
12090 DF82 7E E0 63        ~.c   jmp e063             ;goto72
12091 DF85 FC 00 40        ..@   ldd 0040
12092 DF88 26 05           &.    bne 05
12093 DF8A FC 00 3E        ..>   ldd 003e
12094 DF8D 27 16           '.    beq 16
12095 DF8F CE 00 01        ...   ldx #0001
12096 DF92 3C              <     pshx 
12097 DF93 FC 00 40        ..@   ldd 0040
12098 DF96 F3 00 3E        ..>   addd 003e
12099 DF99 BD BE 9E        ...   jsr be9e             ;jump50
12100 DF9C 38              8     pulx 
12101 DF9D C6 05           ..    ldab #05
12102 DF9F F7 00 2C        ..,   stab 002c
12103 DFA2 7E E0 63        ~.c   jmp e063             ;goto72
12104 DFA5 F6 0C D9        ...   ldab 0cd9
12105 DFA8 C1 04           ..    cmpb #04
12106 DFAA 24 07           $.    bcc 07
12107 DFAC F6 0B C0        ...   ldab 0bc0
12108 DFAF C4 01           ..    andb #01
12109 DFB1 26 07           &.    bne 07
12110 DFB3 F6 00 21        ..!   ldab 0021
12111 DFB6 C4 40           .@    andb #40
12112 DFB8 27 43           'C    beq 43
12113 DFBA F6 00 2B        ..+   ldab 002b
12114 DFBD C1 00           ..    cmpb #00
12115 DFBF 26 0D           &.    bne 0d
12116 DFC1 CE 00 19        ...   ldx #0019
12117 DFC4 3C              <     pshx 
12118 DFC5 CC AD E7        ...   ldd #ade7
12119 DFC8 BD C0 2E        ...   jsr c02e             ;jump71
12120 DFCB 38              8     pulx 
12121 DFCC 20 2D            -    bra 2d
12122 DFCE C1 01           ..    cmpb #01
12123 DFD0 26 0D           &.    bne 0d
12124 DFD2 CE 00 12        ...   ldx #0012 
12125 DFD5 3C              <     pshx 
12126 DFD6 CC AD D3        ...   ldd #add3    ; more german
12127 DFD9 BD C0 2E        ...   jsr c02e             ;jump71
12128 DFDC 38              8     pulx 
12129 DFDD 20 1C            .    bra 1c
12130 DFDF C1 02           ..    cmpb #02
12131 DFE1 26 0D           &.    bne 0d
12132 DFE3 CE 00 19        ...   ldx #0019
12133 DFE6 3C              <     pshx 
12134 DFE7 CC AD B8        ...   ldd #adb8
12135 DFEA BD C0 2E        ...   jsr c02e             ;jump71
12136 DFED 38              8     pulx 
12137 DFEE 20 0B            .    bra 0b
12138 DFF0 CE 00 11        ...   ldx #0011    ; length of
12139 DFF3 3C              <     pshx 
12140 DFF4 CC AD A5        ...   ldd #ada5    ; " EXACT COINS ONLY "
12141 DFF7 BD C0 2E        ...   jsr c02e             ;jump71 - display
12142 DFFA 38              8     pulx 
12143 DFFB 20 66            f    bra 66
12144 DFFD F6 0B C0        ...   ldab 0bc0
12145 E000 C4 08           ..    andb #08
12146 E002 27 52           'R    beq 52
12147 E004 F6 0B C1        ...   ldab 0bc1
12148 E007 C4 08           ..    andb #08
12149 E009 26 08           &.    bne 08
12150 E00B FC 0B EF        ...   ldd 0bef
12151 E00E 83 00 64        ..d   subd #0064
12152 E011 24 43           $C    bcc 43
12153 E013 F6 00 2B        ..+   ldab 002b
12154 E016 C1 00           ..    cmpb #00
12155 E018 26 0D           &.    bne 0d
12156 E01A CE 00 12        ...   ldx #0012
12157 E01D 3C              <     pshx 
12158 E01E CC AE 30        ..0   ldd #ae30
12159 E021 BD C0 2E        ...   jsr c02e             ;jump71
12160 E024 38              8     pulx 
12161 E025 20 2D            -    bra 2d
12162 E027 C1 01           ..    cmpb #01
12163 E029 26 0D           &.    bne 0d
12164 E02B CE 00 0B        ...   ldx #000b
12165 E02E 3C              <     pshx 
12166 E02F CC AE 23        ..#   ldd #ae23
12167 E032 BD C0 2E        ...   jsr c02e             ;jump71
12168 E035 38              8     pulx 
12169 E036 20 1C            .    bra 1c
12170 E038 C1 02           ..    cmpb #02
12171 E03A 26 0D           &.    bne 0d
12172 E03C CE 00 12        ...   ldx #0012
12173 E03F 3C              <     pshx 
12174 E040 CC AE 0F        ...   ldd #ae0f
12175 E043 BD C0 2E        ...   jsr c02e             ;jump71
12176 E046 38              8     pulx 
12177 E047 20 0B            .    bra 0b
12178 E049 CE 00 0B        ...   ldx #000b
12179 E04C 3C              <     pshx 
12180 E04D CC AE 02        ...   ldd #ae02
12181 E050 BD C0 2E        ...   jsr c02e             ;jump71
12182 E053 38              8     pulx 
12183 E054 20 0D            .    bra 0d
12184 E056 F6 0B BF        ...   ldab 0bbf
12185 E059 4F              O     clra 
12186 E05A 37              7     pshb 
12187 E05B 36              6     psha 
12188 E05C CC 09 93        ...   ldd #0993
12189 E05F BD C0 2E        ...   jsr c02e             ;jump71
12190 E062 38              8     pulx 
12191 goto72:
12192 E063 7E E5 6A        ~.j   jmp e56a             ;goto73
12193 goto71:
12194 E066 F6 00 06        ...   ldab 0006
12195 E069 26 03           &.    bne 03
12196 E06B 7E E5 6A        ~.j   jmp e56a             ;goto73
12197 E06E CE 00 1D        ...   ldx #001d
12198 E071 1C 00 40        ...   bset 00,x, #40
12199 E074 BD E7 C7        ...   jsr e7c7             ;jump114
12200 E077 F6 00 06        ...   ldab 0006
12201 E07A C1 59           .Y    cmpb #59
12202 E07C 26 06           &.    bne 06
12203 E07E BD DE 09        ...   jsr de09             ;jump119
12204 E081 7E E5 5E        ~.^   jmp e55e             ;goto74
12205 E084 F6 00 06        ...   ldab 0006
12206 E087 BD D4 68        ..h   jsr d468             ;jump51
12207 E08A 83 00 00        ...   subd #0000
12208 E08D 27 18           '.    beq 18
12209 E08F BD D5 61        ..a   jsr d561             ;jump42
12210 E092 83 00 00        ...   subd #0000
12211 E095 26 10           &.    bne 10
12212 E097 BD D3 46        ..F   jsr d346             ;jump43
12213 E09A 83 00 00        ...   subd #0000
12214 E09D 26 08           &.    bne 08
12215 E09F BD D7 83        ...   jsr d783             ;jump44
12216 E0A2 83 00 00        ...   subd #0000
12217 E0A5 27 09           '.    beq 09
12218 E0A7 BD E5 D1        ...   jsr e5d1             ;jump52
12219 E0AA BD D8 E9        ...   jsr d8e9             ;jump92
12220 E0AD 7E E5 5E        ~.^   jmp e55e             ;goto74
12221 E0B0 F6 00 06        ...   ldab 0006
12222 E0B3 4F              O     clra 
12223 E0B4 05              .     asld 
12224 E0B5 C3 08 00        ...   addd #0800
12225 E0B8 8F              .     xgdx 
12226 E0B9 EC 00           ..    ldd 00,x
12227 E0BB C4 FF           ..    andb #ff
12228 E0BD 84 3F           .?    anda #3f
12229 E0BF FD 00 44        ..D   std 0044
12230 E0C2 F6 00 06        ...   ldab 0006
12231 E0C5 4F              O     clra 
12232 E0C6 05              .     asld 
12233 E0C7 C3 08 C8        ...   addd #08c8
12234 E0CA 8F              .     xgdx 
12235 E0CB EC 00           ..    ldd 00,x
12236 E0CD C4 7F           ..    andb #7f
12237 E0CF 4F              O     clra 
12238 E0D0 FD 00 4D        ..M   std 004d
12239 E0D3 F6 0B C0        ...   ldab 0bc0
12240 E0D6 2C 05           ,.    bge 05
12241 E0D8 5F              _     clrb 
12242 E0D9 4F              O     clra 
12243 E0DA FD 00 44        ..D   std 0044
12244 E0DD F6 0B C0        ...   ldab 0bc0
12245 E0E0 C4 02           ..    andb #02
12246 E0E2 26 03           &.    bne 03
12247 E0E4 BD DE 15        ...   jsr de15             ;dump118
12248 E0E7 F6 00 11        ...   ldab 0011
12249 E0EA C4 20           .     andb #20
12250 E0EC 26 1A           &.    bne 1a
12251 E0EE F6 0B C0        ...   ldab 0bc0
12252 E0F1 C4 02           ..    andb #02
12253 E0F3 26 13           &.    bne 13
12254 E0F5 FC 00 40        ..@   ldd 0040
12255 E0F8 F3 00 3E        ..>   addd 003e
12256 E0FB B3 00 44        ..D   subd 0044
12257 E0FE 25 08           %.    bcs 08
12258 E100 F6 0B C0        ...   ldab 0bc0
12259 E103 2D 03           -.    blt 03
12260 E105 BD DA 64        ..d   jsr da64             ;jump122
12261 E108 FC 00 40        ..@   ldd 0040
12262 E10B F3 00 3E        ..>   addd 003e
12263 E10E B3 00 44        ..D   subd 0044
12264 E111 24 50           $P    bcc 50
12265 E113 F6 0B C0        ...   ldab 0bc0
12266 E116 C4 10           ..    andb #10
12267 E118 26 49           &I    bne 49
12268 E11A F6 00 2B        ..+   ldab 002b
12269 E11D C1 00           ..    cmpb #00
12270 E11F 26 08           &.    bne 08
12271 E121 CC AC C9        ...   ldd #acc9
12272 E124 BD C0 BA        ...   jsr c0ba             ;display:
12273 E127 20 1E            .    bra 1e
12274 E129 C1 01           ..    cmpb #01
12275 E12B 26 08           &.    bne 08
12276 E12D CC AC BE        ...   ldd #acbe
12277 E130 BD C0 BA        ...   jsr c0ba             ;display:
12278 E133 20 12            .    bra 12
12279 E135 C1 02           ..    cmpb #02
12280 E137 26 08           &.    bne 08
12281 E139 CC AC B3        ...   ldd #acb3
12282 E13C BD C0 BA        ...   jsr c0ba             ;display:
12283 E13F 20 06            .    bra 06
12284 E141 CC AC A8        ...   ldd #aca8
12285 E144 BD C0 BA        ...   jsr c0ba             ;display:
12286 E147 BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
12287 E14A CE 00 00        ...   ldx #0000
12288 E14D 3C              <     pshx 
12289 E14E FC 00 44        ..D   ldd 0044
12290 E151 BD BE 9E        ...   jsr be9e             ;jump50
12291 E154 38              8     pulx 
12292 E155 BD E5 D1        ...   jsr e5d1             ;jump52
12293 E158 BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
12294 E15B C6 0C           ..    ldab #0c
12295 E15D F7 00 2C        ..,   stab 002c
12296 E160 7E E5 5E        ~.^   jmp e55e             ;goto74
12297 E163 F6 0B C0        ...   ldab 0bc0
12298 E166 C4 01           ..    andb #01
12299 E168 26 11           &.    bne 11
12300 E16A F6 0B C0        ...   ldab 0bc0
12301 E16D C4 04           ..    andb #04
12302 E16F 26 0A           &.    bne 0a
12303 E171 F6 0B C0        ...   ldab 0bc0
12304 E174 C4 0F           ..    andb #0f
12305 E176 27 03           '.    beq 03
12306 E178 7E E3 35        ~.5   jmp e335             ;goto75
12307 E17B FC 00 40        ..@   ldd 0040
12308 E17E F3 00 3E        ..>   addd 003e
12309 E181 B3 00 44        ..D   subd 0044
12310 E184 FD 10 16        ...   std 1016
12311 E187 F6 00 15        ...   ldab 0015
12312 E18A C4 01           ..    andb #01
12313 E18C 27 08           '.    beq 08
12314 E18E FC 10 16        ...   ldd 1016
12315 E191 83 00 64        ..d   subd #0064
12316 E194 25 3C           %<    bcs 3c
12317 E196 F6 00 15        ...   ldab 0015
12318 E199 C4 02           ..    andb #02
12319 E19B 27 08           '.    beq 08
12320 E19D FC 10 16        ...   ldd 1016
12321 E1A0 83 00 C8        ...   subd #00c8
12322 E1A3 25 2D           %-    bcs 2d
12323 E1A5 F6 00 15        ...   ldab 0015
12324 E1A8 C4 04           ..    andb #04
12325 E1AA 27 08           '.    beq 08
12326 E1AC FC 10 16        ...   ldd 1016
12327 E1AF 83 01 F4        ...   subd #01f4
12328 E1B2 25 1E           %.    bcs 1e
12329 E1B4 F6 00 15        ...   ldab 0015
12330 E1B7 C4 08           ..    andb #08
12331 E1B9 27 08           '.    beq 08
12332 E1BB FC 10 16        ...   ldd 1016
12333 E1BE 83 03 E8        ...   subd #03e8
12334 E1C1 25 0F           %.    bcs 0f
12335 E1C3 F6 00 15        ...   ldab 0015
12336 E1C6 C4 10           ..    andb #10
12337 E1C8 27 13           '.    beq 13
12338 E1CA FC 10 16        ...   ldd 1016
12339 E1CD 83 07 D0        ...   subd #07d0
12340 E1D0 24 0B           $.    bcc 0b
12341 E1D2 BD C0 E0        ...   jsr c0e0             ;jump94
12342 E1D5 83 00 00        ...   subd #0000
12343 E1D8 26 01           &.    bne 01
12344 ;
12345 E1DA 39              9     rts 
12346 ;
12347 E1DB 20 03            .    bra 03
12348 E1DD BD C5 D3        ...   jsr c5d3             ;jump6
12349 E1E0 BD D6 52        ..R   jsr d652             ;jump5
12350 E1E3 FC 00 40        ..@   ldd 0040
12351 E1E6 B3 00 44        ..D   subd 0044
12352 E1E9 F3 00 3E        ..>   addd 003e
12353 E1EC FD 00 40        ..@   std 0040
12354 E1EF 5F              _     clrb 
12355 E1F0 4F              O     clra 
12356 E1F1 FD 00 3E        ..>   std 003e
12357 E1F4 CE 00 1B        ...   ldx #001b
12358 E1F7 1C 00 80        ..    bset 00,x, #80
12359 E1F9 BD D2 13        ..    jsr d213     ;jump45
12360 E1FC 83 00 00        ...   subd #0000
12361 E200 26 12           &.    bne 12
12362 E202 BD E5 D1        ...   jsr e5d1             ;jump52
12363 E205 BD D8 E9        ...   jsr d8e9             ;jump92
12364 E208 FC 00 40        ..@   ldd 0040
12365 E20B F3 00 44        ..D   addd 0044
12366 E20E FD 00 40        ..@   std 0040
12367 E211 7E E3 29        ~.)   jmp e329             ;goto92
12368 E214 BD DB CB        ...   jsr dbcb             ;jump121
12369 E217 F6 00 1B        ...   ldab 001b
12370 E21A C4 20           .     andb #20
12371 E21C 27 45           'E    beq 45
12372 E21E FC 00 44        ..D   ldd 0044
12373 E221 37              7     pshb 
12374 E222 36              6     psha 
12375 E223 4F              O     clra 
12376 E224 5F              _     clrb 
12377 E225 37              7     pshb 
12378 E226 36              6     psha 
12379 E227 CC 0D FB        ...   ldd #0dfb
12380 E22A BD FB DF        ...   jsr fbdf             ;jump46
12381 E22D 31              1     ins 
12382 E22E 31              1     ins 
12383 E22F FE 0D FD        ...   ldx 0dfd
12384 E232 3C              <     pshx 
12385 E233 FC 0D FB        ...   ldd 0dfb
12386 E236 37              7     pshb 
12387 E237 36              6     psha 
12388 E238 CE E1 00        ...   ldx #e100
12389 E23B 3C              <     pshx 
12390 E23C CC 05 F5        ...   ldd #05f5
12391 E23F 37              7     pshb 
12392 E240 36              6     psha 
12393 E241 30              0     tsx 
12394 E242 EC 06           ..    ldd 06,x
12395 E244 A3 02           ..    subd 02,x
12396 E246 EC 04           ..    ldd 04,x
12397 E248 E2 01           ..    sbcb 01,x
12398 E24A A2 00           ..    sbca 00,x
12399 E24C 38              8     pulx 
12400 E24D 38              8     pulx 
12401 E24E 38              8     pulx 
12402 E24F 38              8     pulx 
12403 E250 25 11           %.    bcs 11
12404 E252 CE 1F 00        ...   ldx #1f00
12405 E255 3C              <     pshx 
12406 E256 CC FA 0A        ...   ldd #fa0a
12407 E259 37              7     pshb 
12408 E25A 36              6     psha 
12409 E25B CC 0D FB        ...   ldd #0dfb
12410 E25E BD FB DF        ...   jsr fbdf             ;jump46
12411 E261 31              1     ins 
12412 E262 31              1     ins 
12413 E263 F6 0B C0        ...   ldab 0bc0
12414 E266 2C 78           ,x    bge 78
12415 E268 F6 00 06        ...   ldab 0006
12416 E26B 4F              O     clra 
12417 E26C 05              .     asld 
12418 E26D C3 08 00        ...   addd #0800
12419 E270 8F              .     xgdx 
12420 E271 EC 00           ..    ldd 00,x
12421 E273 C4 FF           ..    andb #ff
12422 E275 26 02           &.    bne 02
12423 E277 84 3F           .?    anda #3f
12424 E279 27 65           'e    beq 65
12425 E27B FC 0D 0D        ...   ldd 0d0d
12426 E27E 83 FF FF        ...   subd #ffff
12427 E281 26 05           &.    bne 05
12428 E283 5F              _     clrb 
12429 E284 4F              O     clra 
12430 E285 FD 0D 0D        ...   std 0d0d
12431 E288 FE 0D 0D        ...   ldx 0d0d
12432 E28B 08              .     inx 
12433 E28C FF 0D 0D        ...   stx 0d0d
12434 E28F F6 00 06        ...   ldab 0006
12435 E292 4F              O     clra 
12436 E293 05              .     asld 
12437 E294 C3 08 00        ...   addd #0800
12438 E297 8F              .     xgdx 
12439 E298 EC 00           ..    ldd 00,x
12440 E29A C4 FF           ..    andb #ff
12441 E29C 84 3F           .?    anda #3f
12442 E29E 37              7     pshb 
12443 E29F 36              6     psha 
12444 E2A0 4F              O     clra 
12445 E2A1 5F              _     clrb 
12446 E2A2 37              7     pshb 
12447 E2A3 36              6     psha 
12448 E2A4 CC 0D 1B        ...   ldd #0d1b
12449 E2A7 BD FB DF        ...   jsr fbdf             ;jump46
12450 E2AA 31              1     ins 
12451 E2AB 31              1     ins 
12452 E2AC FE 0D 1D        ...   ldx 0d1d
12453 E2AF 3C              <     pshx 
12454 E2B0 FC 0D 1B        ...   ldd 0d1b
12455 E2B3 37              7     pshb 
12456 E2B4 36              6     psha 
12457 E2B5 CE E1 00        ...   ldx #e100
12458 E2B8 3C              <     pshx 
12459 E2B9 CC 05 F5        ...   ldd #05f5
12460 E2BC 37              7     pshb 
12461 E2BD 36              6     psha 
12462 E2BE 30              0     tsx 
12463 E2BF EC 06           ..    ldd 06,x
12464 E2C1 A3 02           ..    subd 02,x
12465 E2C3 EC 04           ..    ldd 04,x
12466 E2C5 E2 01           ..    sbcb 01,x
12467 E2C7 A2 00           ..    sbca 00,x
12468 E2C9 38              8     pulx 
12469 E2CA 38              8     pulx 
12470 E2CB 38              8     pulx 
12471 E2CC 38              8     pulx 
12472 E2CD 25 11           %.    bcs 11
12473 E2CF CE 1F 00        ...   ldx #1f00
12474 E2D2 3C              <     pshx 
12475 E2D3 CC FA 0A        ...   ldd #fa0a
12476 E2D6 37              7     pshb 
12477 E2D7 36              6     psha 
12478 E2D8 CC 0D 1B        ...   ldd #0d1b
12479 E2DB BD FB DF        ...   jsr fbdf             ;jump46
12480 E2DE 31              1     ins 
12481 E2DF 31              1     ins 
12482 E2E0 F6 00 11        ...   ldab 0011
12483 E2E3 C4 10           ..    andb #10
12484 E2E5 26 14           &.    bne 14
12485 E2E7 FC 00 40        ..@   ldd 0040
12486 E2EA 27 0F           '.    beq 0f
12487 E2EC FC 00 40        ..@   ldd 0040
12488 E2EF B3 00 50        ..P   subd 0050
12489 E2F2 24 15           $.    bcc 15
12490 E2F4 F6 00 11        ...   ldab 0011
12491 E2F7 C4 10           ..    andb #10
12492 E2F9 26 0E           &.    bne 0e
12493 E2FB BD DB 44        ..D   jsr db44             ;jump104
12494 E2FE CE 00 1B        ...   ldx #001b
12495 E301 1D 00 40        ...   bclr 00,x, #40    ; fixed by ./fixbset.pl - verify me
12496 E304 7F 00 25        ..%   clr 0025
12497 E307 20 1A            .    bra 1a
12498 E309 7F 00 2C        ..,   clr 002c
12499 E30C CC 01 F4        ...   ldd #01f4
12500 E30F BD E5 71        ..q   jsr e571             ;msdelay
12501 E312 BD E5 AA        ...   jsr e5aa             ;jump12
12502 E315 BD D8 E9        ...   jsr d8e9             ;jump92
12503 E318 CE 00 1B        ...   ldx #001b
12504 E31B 1C 00 40        ...   bset 00,x, #40
12505 E31E C6 0A           ..    ldab #0a
12506 E320 F7 00 25        ..%   stab 0025
12507 E323 BD D7 FF        ...   jsr d7ff             ;jump80
12508 E326 BD D8 40        ..@   jsr d840             ;jump105
12509 goto92:
12510 E329 BD E8 9A        ...   jsr e89a             ;jump68
12511 E32C CE 0B C1        ...   ldx #0bc1
12512 E32F 1D 00 08        ...   bclr 00,x, #08
12513 E332 7E E5 5E        ~.^   jmp e55e             ;goto74
12514 goto75:
12515 E335 F6 0B C0        ...   ldab 0bc0
12516 E338 C4 02           ..    andb #02
12517 E33A 26 03           &.    bne 03
12518 E33C 7E E5 5E        ~.^   jmp e55e             ;goto74
12519 E33F 5F              _     clrb 
12520 E340 4F              O     clra 
12521 E341 FD 00 76        ..v   std 0076
12522 E344 CE 00 17        ...   ldx #0017
12523 E347 1D 00 01        ...   bclr 00,x, #01
12524 E34A CE 00 17        ...   ldx #0017
12525 E34D 1D 00 02        ...   bclr 00,x, #02
12526 E350 FC 00 44        ..D   ldd 0044
12527 E353 26 1C           &.    bne 1c
12528 E355 F6 0B C0        ...   ldab 0bc0
12529 E358 C4 10           ..    andb #10
12530 E35A 26 08           &.    bne 08
12531 E35C CE 00 21        ..!   ldx #0021
12532 E35F 1C 00           ..    bset add,x 00,x
12533 E361 80 20           .     suba #20
12534 E363 0B              .     sev 
12535 E364 CE 00 21        ..!   ldx #0021
12536 E367 1D 00           ..    bclr add,x 00,x
12537 E369 80 C6           ..    suba #c6
12538 E36B 05              .     asld 
12539 E36C F7 00 75        ..u   stab 0075
12540 E36F 20 57            W    bra 57
12541 E371 F6 0B C0        ...   ldab 0bc0
12542 E374 C4 10           ..    andb #10
12543 E376 27 50           'P    beq 50
12544 E378 FC 00 40        ..@   ldd 0040
12545 E37B 26 4B           &K    bne 4b
12546 E37D F6 0B C0        ...   ldab 0bc0
12547 E380 C4 20           .     andb #20
12548 E382 27 3E           '>    beq 3e
12549 E384 CE 00 17        ...   ldx #0017
12550 E387 1C 00 01        ...   bset 00,x, #01
12551 E38A F6 00 2B        ..+   ldab 002b
12552 E38D C1 00           ..    cmpb #00
12553 E38F 26 08           &.    bne 08
12554 E391 CC AC C9        ...   ldd #acc9    ; "  PRECIO  "
12555 E394 BD C0 BA        ...   jsr c0ba             ;display:
12556 E397 20 1E            .    bra 1e
12557 E399 C1 01           ..    cmpb #01
12558 E39B 26 08           &.    bne 08
12559 E39D CC AC BE        ...   ldd #acbe    ; "  PRIES  "
12560 E3A0 BD C0 BA        ...   jsr c0ba             ;display:
12561 E3A3 20 12            .    bra 12
12562 E3A5 C1 02           ..    cmpb #02
12563 E3A7 26 08           &.    bne 08
12564 E3A9 CC AC B3        ...   ldd #acb3    ; "  PRIX   "
12565 E3AC BD C0 BA        ...   jsr c0ba             ;display:
12566 E3AF 20 06            .    bra 06
12567 E3B1 CC AC A8        ...   ldd #aca8    ; "  PRICE  "
12568 E3B4 BD C0 BA        ...   jsr c0ba             ;display:
12569 E3B7 BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
12570 E3BA CE 00 17        ...   ldx #0017
12571 E3BD 1C 00 02        ...   bset 00,x, #02
12572 E3C0 20 06            .    bra 06
12573 E3C2 CE 00 1F        ...   ldx #001f
12574 E3C5 1C 00 08        ...   bset 00,x, #08
12575 E3C8 CE 00 1D        ...   ldx #001d
12576 E3CB 1C 00 02        ...   bset 00,x, #02
12577 E3CE CE 00 19        ...   ldx #0019
12578 E3D1 1C 00 08        ...   bset 00,x, #08
12579 E3D4 C6 32           .2    ldab #32
12580 E3D6 F7 00 31        ..1   stab 0031
12581 E3D9 C6 19           ..    ldab #19
12582 E3DB F7 00 36        ..6   stab 0036
12583 goto77:
12584 E3DE F6 00 1D        ...   ldab 001d
12585 E3E1 C4 02           ..    andb #02
12586 E3E3 26 03           &.    bne 03
12587 E3E5 7E E4 6E        ~.n   jmp e46e             ;goto76
12588 E3E8 F6 00 75        ..u   ldab 0075
12589 E3EB C1 04           ..    cmpb #04
12590 E3ED 22 05           ".    bhi 05
12591 E3EF F6 00 36        ..6   ldab 0036
12592 E3F2 26 3C           &<    bne 3c
12593 E3F4 7F 00 06        ...   clr 0006
12594 E3F7 5F              _     clrb 
12595 E3F8 4F              O     clra 
12596 E3F9 FD 00 76        ..v   std 0076
12597 E3FC 7F 00 2E        ...   clr 002e
12598 E3FF 7F 00 2C        ..,   clr 002c
12599 E402 7F 00 75        ..u   clr 0075
12600 E405 CE 00 17        ...   ldx #0017
12601 E408 1D 00 01        ...   bclr 00,x, #01
12602 E40B CE 00 19        ...   ldx #0019
12603 E40E 1D 00 08        ...   bclr 00,x, #08
12604 E411 CE 00 1B        ...   ldx #001b
12605 E414 1D 00           ..    bclr add,x 00,x
12606 E416 80 CE           ..    suba #ce
12607 E418 00              .     test 
12608 E419 1D 1D 00        ...   bclr 1d,x, #00
12609 E41C 40              @     nega 
12610 E41D CE 00 1D        ...   ldx #001d
12611 E420 1D 00 02        ...   bclr 00,x, #02
12612 E423 CE 00 1F        ...   ldx #001f
12613 E426 1D 00 08        ...   bclr 00,x, #08
12614 E429 CE 00 21        ..!   ldx #0021
12615 E42C 1D 00           ..    bclr add,x 00,x
12616 E42E 80 39           .9    suba #39
12617 E430 F6 0B C0        ...   ldab 0bc0
12618 E433 C4 20           .     andb #20
12619 E435 27 34           '4    beq 34
12620 E437 F6 00 17        ...   ldab 0017
12621 E43A C4 01           ..    andb #01
12622 E43C 26 2D           &-    bne 2d
12623 E43E F6 00 17        ...   ldab 0017
12624 E441 C4 02           ..    andb #02
12625 E443 27 26           '&    beq 26
12626 E445 CE 00 00        ...   ldx #0000
12627 E448 3C              <     pshx 
12628 E449 FC 00 76        ..v   ldd 0076
12629 E44C BD BE 9E        ...   jsr be9e             ;jump50
12630 E44F 38              8     pulx 
12631 E450 FC 00 76        ..v   ldd 0076
12632 E453 26 06           &.    bne 06
12633 E455 CE 00 17        ...   ldx #0017
12634 E458 1D 00 02        ...   bclr 00,x, #02    ; fixed by ./fixbset.pl - verify me
12635 E45B F6 00 17        ...   ldab 0017
12636 E45E C4 02           ..    andb #02
12637 E460 27 09           '.    beq 09
12638 E462 BD E5 D1        ...   jsr e5d1             ;jump52
12639 E465 CE 00 17        ...   ldx #0017
12640 E468 1D 00 02        ...   bclr 00,x, #02    ; fixed by ./fixbset.pl - verify me
12641 E46B 7E E3 DE        ~..   jmp e3de             ;goto77
12642 goto76:
12643 E46E CE 00 21        ..!   ldx #0021
12644 E471 1D 00           ..    bclr add,x 00,x
12645 E473 80 CE           ..    suba #ce
12646 E475 00              .     test 
12647 E476 1F 1D 00 08     ....  brclr 1d,x 00 08
12648 E47A BD D2 13        ...   jsr d213             ;jump45
12649 E47D 83 00 00        ...   subd #0000
12650 E480 26 0F           &.    bne 0f
12651 E482 CC 00 80        ...   ldd #0080
12652 E485 BD C7 E7        ...   jsr c7e7             ;jump37
12653 E488 BD E5 D1        ...   jsr e5d1             ;jump52
12654 E48B BD D8 E9        ...   jsr d8e9             ;jump92
12655 E48E 7E E5 5E        ~.^   jmp e55e             ;goto74
12656 E491 F6 00 2B        ..+   ldab 002b
12657 E494 C1 00           ..    cmpb #00
12658 E496 26 08           &.    bne 08
12659 E498 CC AD 16        ...   ldd #ad16
12660 E49B BD C0 BA        ...   jsr c0ba             ;display:
12661 E49E 20 1E            .    bra 1e
12662 E4A0 C1 01           ..    cmpb #01
12663 E4A2 26 08           &.    bne 08
12664 E4A4 CC AD 0B        ...   ldd #ad0b
12665 E4A7 BD C0 BA        ...   jsr c0ba             ;display:
12666 E4AA 20 12            .    bra 12
12667 E4AC C1 02           ..    cmpb #02
12668 E4AE 26 08           &.    bne 08
12669 E4B0 CC AD 00        ...   ldd #ad00
12670 E4B3 BD C0 BA        ...   jsr c0ba             ;display:
12671 E4B6 20 06            .    bra 06
12672 E4B8 CC AC F5        ...   ldd #acf5
12673 E4BB BD C0 BA        ...   jsr c0ba             ;display:
12674 E4BE BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
12675 E4C1 CE 00 01        ...   ldx #0001
12676 E4C4 3C              <     pshx 
12677 E4C5 FC 00 40        ..@   ldd 0040
12678 E4C8 BD BE 9E        ...   jsr be9e             ;jump50
12679 E4CB 38              8     pulx 
12680 E4CC 5F              _     clrb 
12681 E4CD 4F              O     clra 
12682 E4CE BD C7 E7        ...   jsr c7e7             ;jump37
12683 E4D1 F6 0B C0        ...   ldab 0bc0
12684 E4D4 2D 03           -.    blt 03
12685 E4D6 7E E5 58        ~.X   jmp e558             ;goto78
12686 E4D9 F6 0B C0        ...   ldab 0bc0
12687 E4DC C4 10           ..    andb #10
12688 E4DE 26 78           &x    bne 78
12689 E4E0 F6 00 06        ...   ldab 0006
12690 E4E3 4F              O     clra 
12691 E4E4 05              .     asld 
12692 E4E5 C3 08 00        ...   addd #0800
12693 E4E8 8F              .     xgdx 
12694 E4E9 EC 00           ..    ldd 00,x
12695 E4EB C4 FF           ..    andb #ff
12696 E4ED 26 02           &.    bne 02
12697 E4EF 84 3F           .?    anda #3f
12698 E4F1 27 65           'e    beq 65
12699 E4F3 FC 0D 0D        ...   ldd 0d0d
12700 E4F6 83 FF FF        ...   subd #ffff
12701 E4F9 26 05           &.    bne 05
12702 E4FB 5F              _     clrb 
12703 E4FC 4F              O     clra 
12704 E4FD FD 0D 0D        ...   std 0d0d
12705 E500 FE 0D 0D        ...   ldx 0d0d
12706 E503 08              .     inx 
12707 E504 FF 0D 0D        ...   stx 0d0d
12708 E507 F6 00 06        ...   ldab 0006
12709 E50A 4F              O     clra 
12710 E50B 05              .     asld 
12711 E50C C3 08 00        ...   addd #0800
12712 E50F 8F              .     xgdx 
12713 E510 EC 00           ..    ldd 00,x
12714 E512 C4 FF           ..    andb #ff
12715 E514 84 3F           .?    anda #3f
12716 E516 37              7     pshb 
12717 E517 36              6     psha 
12718 E518 4F              O     clra 
12719 E519 5F              _     clrb 
12720 E51A 37              7     pshb 
12721 E51B 36              6     psha 
12722 E51C CC 0D 1B        ...   ldd #0d1b
12723 E51F BD FB DF        ...   jsr fbdf             ;jump46
12724 E522 31              1     ins 
12725 E523 31              1     ins 
12726 E524 FE 0D 1D        ...   ldx 0d1d
12727 E527 3C              <     pshx 
12728 E528 FC 0D 1B        ...   ldd 0d1b
12729 E52B 37              7     pshb 
12730 E52C 36              6     psha 
12731 E52D CE E1 00        ...   ldx #e100
12732 E530 3C              <     pshx 
12733 E531 CC 05 F5        ...   ldd #05f5
12734 E534 37              7     pshb 
12735 E535 36              6     psha 
12736 E536 30              0     tsx 
12737 E537 EC 06           ..    ldd 06,x
12738 E539 A3 02           ..    subd 02,x
12739 E53B EC 04           ..    ldd 04,x
12740 E53D E2 01           ..    sbcb 01,x
12741 E53F A2 00           ..    sbca 00,x
12742 E541 38              8     pulx 
12743 E542 38              8     pulx 
12744 E543 38              8     pulx 
12745 E544 38              8     pulx 
12746 E545 25 11           %.    bcs 11
12747 E547 CE 1F 00        ...   ldx #1f00
12748 E54A 3C              <     pshx 
12749 E54B CC FA 0A        ...   ldd #fa0a
12750 E54E 37              7     pshb 
12751 E54F 36              6     psha 
12752 E550 CC 0D 1B        ...   ldd #0d1b
12753 E553 BD FB DF        ...   jsr fbdf             ;jump46
12754 E556 31              1     ins 
12755 E557 31              1     ins 
12756 goto78:
12757 E558 BD D7 FF        ...   jsr d7ff             ;jump80
12758 E55B BD D8 40        ..@   jsr d840             ;jump105
12759 goto74:
12760 E55E 7F 00 06        ...   clr 0006
12761 E561 7F 00 2E        ...   clr 002e
12762 E564 CE 00 1B        ...   ldx #001b
12763 E567 1D 00 80        ..    bclr 00,x, #80
12764 ;goto73
12765 E56A CE 00 1D        ...   ldx #001d
12766 E56C 1D 00 40        ..    bclr 00,x, #40
12767 E570 39              9     rts 
12768
12769 ;!!! Is this a delay routine?  It gets called between displaying strings 
12770 ;on startup.  Looks like a delay.  e61b just stores 0a at 0031 and returns.
12771 msdelay:
12772 ; appears to delay for roughly D milliseconds.
12773 E571 37              7     pshb 
12774 E572 36              6     psha 
12775 E573 34              4     des 
12776 E574 30              0     tsx 
12777 E575 EC 01           ..    ldd 01,x
12778 E577 83 00 01        ...   subd #0001
12779 E57A ED 01           ..    std 01,x
12780 E57C 2D 15           -.    blt 15       ; to e593
12781 E57E C6 41           .A    ldab #41
12782 E580 30              0     tsx 
12783 E581 E7 00           ..    stab 00,x
12784 E583 30              0     tsx 
12785 E584 E6 00           ..    ldab 00,x
12786 E586 6A 00           j.    dec 00,x
12787 E588 C1 00           ..    cmpb #00
12788 E58A 23 02           #.    bls 02
12789 E58C 20 F5            .    bra f5       ; to e583
12790 E58E BD E6 1B        ...   jsr e61b             ;jump4
12791 E591 20 E1            .    bra e1       ; to e574
12792 E593 38              8     pulx         ;this must just be a standard 'pull 3
12793 E594 31              1     ins          ;bytes and I don't care where they go'
12794                                         ;to clean up the stack.
12795 E595 39              9     rts 
12796
12797 jump115:
12798 ; A short delay - counts to 32 in a stack variable. (about 100ms?)
12799 E596 34              4     des 
12800 E597 C6 32           .2    ldab #32
12801 E599 30              0     tsx 
12802 E59A E7 00           ..    stab 00,x
12803 E59C 30              0     tsx 
12804 E59D E6 00           ..    ldab 00,x
12805 E59F C1 00           ..    cmpb #00
12806 E5A1 23 05           #.    bls e5a8
12807 E5A3 30              0     tsx 
12808 E5A4 6A 00           j.    dec 00,x
12809 E5A6 20 F4            .    bra e59c
12810 E5A8 31              1     ins 
12811 E5A9 39              9     rts 
12812
12813 jump12:
12814 E5AA F6 00 33        ..3   ldab 0033
12815 E5AD 27 0C           '.    beq 0c      ; to e5bb
12816 E5AF F6 00 29        ..)   ldab 0029
12817 E5B2 27 05           '.    beq 05      ; to e5b9 (out)
12818 E5B4 C6 02           ..    ldab #02
12819 E5B6 F7 00 33        ..3   stab 0033
12820 E5B9 20 15            .    bra 15      ; to e5d0 (out)
12821 E5BB C6 03           ..    ldab #03
12822 E5BD F7 00 32        ..2   stab 0032
12823 E5C0 FC 00 3B        ..;   ldd 003b
12824 E5C3 27 06           '.    beq 06      ; to e5cb
12825 E5C5 CC 02 33        ..3   ldd #0233
12826 E5C8 FD 00 3B        ..;   std 003b
12827 E5CB C6 02           ..    ldab #02
12828 E5CD F7 00 33        ..3   stab 0033
12829 E5D0 39              9     rts 
12830
12831 jump52:
12832 E5D1 C6 0B           ..    ldab #0b
12833 E5D3 F7 00 32        ..2   stab 0032
12834 E5D6 39              9     rts 
12835
12836 jump69:
12837 ; tests an internal switch or input line
12838 ; Parameters: Port Address in D, bit mask on stack
12839 ; Return value: 
12840 E5D7 37              7     pshb 
12841 E5D8 36              6     psha 
12842 ; make some stack space
12843 E5D9 3C              <     pshx 
12844 E5DA 3C              <     pshx 
12845 E5DB 5F              _     clrb 
12846 E5DC 4F              O     clra 
12847 E5DD 30              0     tsx 
12848 ; 00,x on stack - number of hits
12849 E5DE ED 00           ..    std 00,x
12850 ; we call i = 02,x. let i = 64
12851 E5E0 CC 00 64        ..d   ldd #0064
12852 E5E3 ED 02           ..    std 02,x
12853 ; break if i <= 0
12854 E5E5 30              0     tsx 
12855 E5E6 EC 02           ..    ldd 02,x
12856 E5E8 2F 21           /!    ble 21     ; to e60b
12857 ; we call j = 04,x. let j = initial value of D
12858 E5EA 30              0     tsx 
12859 E5EB EE 04           ..    ldx 04,x
12860 E5ED E6 00           ..    ldab 00,x
12861 E5EF 30              0     tsx 
12862 E5F0 E4 09           ..    andb 09,x
12863 E5F2 27 05           '.    beq 05     ; to e5f9 if bit cleared
12864 E5F4 38              8     pulx
12865 E5F5 08              .     inx        ; increment number of hits
12866 E5F6 3C              <     pshx 
12867 E5F7 20 08            .    bra 08     ; to e601
12868 E5F9 30              0     tsx 
12869 E5FA EC 00           ..    ldd 00,x
12870 E5FC 83 00 01        ...   subd #0001 ; decrement number of hits
12871 E5FF ED 00           ..    std 00,x
12872 E601 30              0     tsx 
12873 E602 EC 02           ..    ldd 02,x
12874 E604 83 00 01        ...   subd #0001  ; i--
12875 E607 ED 02           ..    std 02,x
12876 E609 20 DA            .    bra da      ; to e5e5
12877 ; end of loop
12878 ; return 1 iff the key was pressed
12879 E60B 30              0     tsx 
12880 E60C EC 00           ..    ldd 00,x
12881 E60E 2F 04           /.    ble 04      ; to e614 if -ve
12882 E610 5F              _     clrb 
12883 E611 4F              O     clra 
12884 E612 20 03            .    bra 03      ; to e617
12885 E614 CC 00 01        ...   ldd #0001
12886 E617 38              8     pulx 
12887 E618 38              8     pulx 
12888 E619 38              8     pulx 
12889 E61A 39              9     rts 
12890
12891 jump4:
12892 E61B C6 0A           ..    ldab #0a
12893 E61D F7 00 31        ..1   stab 0031
12894 E620 39              9     rts 
12895
12896 jump56:
12897 E621 38              8     pulx 
12898 E622 37              7     pshb 
12899 E623 36              6     psha 
12900 E624 3C              <     pshx 
12901 E625 BD BE 4B        ..K   jsr be4b             ;displayblank
12902 E628 30              0     tsx 
12903 E629 EC 04           ..    ldd 04,x
12904 E62B 37              7     pshb 
12905 E62C 36              6     psha 
12906 E62D EC 02           ..    ldd 02,x
12907 E62F 37              7     pshb 
12908 E630 36              6     psha 
12909 E631 CE 96 80        ...   ldx #9680
12910 E634 3C              <     pshx 
12911 E635 CC 00 98        ...   ldd #0098
12912 E638 BD FC 4C        ..L   jsr fc4c             ;jump83
12913 E63B 31              1     ins 
12914 E63C 33              3     pulb 
12915 E63D CB 30           .0    addb #30
12916 E63F F7 0B 97        ...   stab 0b97
12917 E642 30              0     tsx 
12918 E643 EC 04           ..    ldd 04,x
12919 E645 37              7     pshb 
12920 E646 36              6     psha 
12921 E647 EC 02           ..    ldd 02,x
12922 E649 37              7     pshb 
12923 E64A 36              6     psha 
12924 E64B CE 96 80        ...   ldx #9680
12925 E64E 3C              <     pshx 
12926 E64F CC 00 98        ...   ldd #0098
12927 E652 BD FC 5C        ..\   jsr fc5c             ;jump82
12928 E655 37              7     pshb 
12929 E656 36              6     psha 
12930 E657 CE 42 40        .B@   ldx #4240
12931 E65A 3C              <     pshx 
12932 E65B CC 00 0F        ...   ldd #000f
12933 E65E BD FC 4C        ..L   jsr fc4c             ;jump83
12934 E661 31              1     ins 
12935 E662 33              3     pulb 
12936 E663 CB 30           .0    addb #30
12937 E665 F7 0B 96        ...   stab 0b96
12938 E668 30              0     tsx 
12939 E669 EC 04           ..    ldd 04,x
12940 E66B 37              7     pshb 
12941 E66C 36              6     psha 
12942 E66D EC 02           ..    ldd 02,x
12943 E66F 37              7     pshb 
12944 E670 36              6     psha 
12945 E671 CE 42 40        .B@   ldx #4240
12946 E674 3C              <     pshx 
12947 E675 CC 00 0F        ...   ldd #000f
12948 E678 BD FC 5C        ..\   jsr fc5c             ;jump82
12949 E67B 37              7     pshb 
12950 E67C 36              6     psha 
12951 E67D CE 86 A0        ...   ldx #86a0
12952 E680 3C              <     pshx 
12953 E681 CC 00 01        ...   ldd #0001
12954 E684 BD FC 4C        ..L   jsr fc4c             ;jump83
12955 E687 31              1     ins 
12956 E688 33              3     pulb 
12957 E689 CB 30           .0    addb #30
12958 E68B F7 0B 95        ...   stab 0b95
12959 E68E 30              0     tsx 
12960 E68F EC 04           ..    ldd 04,x
12961 E691 37              7     pshb 
12962 E692 36              6     psha 
12963 E693 EC 02           ..    ldd 02,x
12964 E695 37              7     pshb 
12965 E696 36              6     psha 
12966 E697 CE 86 A0        ...   ldx #86a0
12967 E69A 3C              <     pshx 
12968 E69B CC 00 01        ...   ldd #0001
12969 E69E BD FC 5C        ..\   jsr fc5c             ;jump82
12970 E6A1 37              7     pshb 
12971 E6A2 36              6     psha 
12972 E6A3 CE 27 10        .'.   ldx #2710
12973 E6A6 3C              <     pshx 
12974 E6A7 CC 00 00        ...   ldd #0000
12975 E6AA BD FC 4C        ..L   jsr fc4c             ;jump83
12976 E6AD 31              1     ins 
12977 E6AE 33              3     pulb 
12978 E6AF CB 30           .0    addb #30
12979 E6B1 F7 0B 94        ...   stab 0b94
12980 E6B4 30              0     tsx 
12981 E6B5 EC 04           ..    ldd 04,x
12982 E6B7 37              7     pshb 
12983 E6B8 36              6     psha 
12984 E6B9 EC 02           ..    ldd 02,x
12985 E6BB 37              7     pshb 
12986 E6BC 36              6     psha 
12987 E6BD CE 27 10        .'.   ldx #2710
12988 E6C0 3C              <     pshx 
12989 E6C1 CC 00 00        ...   ldd #0000
12990 E6C4 BD FC 5C        ..\   jsr fc5c             ;jump82
12991 E6C7 37              7     pshb 
12992 E6C8 36              6     psha 
12993 E6C9 CE 03 E8        ...   ldx #03e8
12994 E6CC 3C              <     pshx 
12995 E6CD CC 00 00        ...   ldd #0000
12996 E6D0 BD FC 4C        ..L   jsr fc4c             ;jump83
12997 E6D3 31              1     ins 
12998 E6D4 33              3     pulb 
12999 E6D5 CB 30           .0    addb #30
13000 E6D7 F7 0B 93        ...   stab 0b93
13001 E6DA 30              0     tsx 
13002 E6DB EC 04           ..    ldd 04,x
13003 E6DD 37              7     pshb 
13004 E6DE 36              6     psha 
13005 E6DF EC 02           ..    ldd 02,x
13006 E6E1 37              7     pshb 
13007 E6E2 36              6     psha 
13008 E6E3 CE 03 E8        ...   ldx #03e8
13009 E6E6 3C              <     pshx 
13010 E6E7 CC 00 00        ...   ldd #0000
13011 E6EA BD FC 5C        ..\   jsr fc5c             ;jump82
13012 E6ED 37              7     pshb 
13013 E6EE 36              6     psha 
13014 E6EF CE 00 64        ..d   ldx #0064
13015 E6F2 3C              <     pshx 
13016 E6F3 CC 00 00        ...   ldd #0000
13017 E6F6 BD FC 4C        ..L   jsr fc4c             ;jump83
13018 E6F9 31              1     ins 
13019 E6FA 33              3     pulb 
13020 E6FB CB 30           .0    addb #30
13021 E6FD F7 0B 92        ...   stab 0b92
13022 E700 30              0     tsx 
13023 E701 EC 04           ..    ldd 04,x
13024 E703 37              7     pshb 
13025 E704 36              6     psha 
13026 E705 EC 02           ..    ldd 02,x
13027 E707 37              7     pshb 
13028 E708 36              6     psha 
13029 E709 CE 00 64        ..d   ldx #0064
13030 E70C 3C              <     pshx 
13031 E70D CC 00 00        ...   ldd #0000
13032 E710 BD FC 5C        ..\   jsr fc5c             ;jump82
13033 E713 37              7     pshb 
13034 E714 36              6     psha 
13035 E715 CE 00 0A        ...   ldx #000a
13036 E718 3C              <     pshx 
13037 E719 CC 00 00        ...   ldd #0000
13038 E71C BD FC 4C        ..L   jsr fc4c             ;jump83
13039 E71F 31              1     ins 
13040 E720 33              3     pulb 
13041 E721 CB 30           .0    addb #30
13042 E723 F7 0B 91        ...   stab 0b91
13043 E726 30              0     tsx 
13044 E727 EC 04           ..    ldd 04,x
13045 E729 37              7     pshb 
13046 E72A 36              6     psha 
13047 E72B EC 02           ..    ldd 02,x
13048 E72D 37              7     pshb 
13049 E72E 36              6     psha 
13050 E72F CE 00 0A        ...   ldx #000a
13051 E732 3C              <     pshx 
13052 E733 CC 00 00        ...   ldd #0000
13053 E736 BD FC 5C        ..\   jsr fc5c             ;jump82
13054 E739 31              1     ins 
13055 E73A 33              3     pulb 
13056 E73B CB 30           .0    addb #30
13057 E73D F7 0B 90        ...   stab 0b90
13058 E740 38              8     pulx 
13059 E741 31              1     ins 
13060 E742 31              1     ins 
13061 E743 6E 00           n.    jmp 00,x
13062
13063 jump55:
13064 E745 37              7     pshb 
13065 E746 36              6     psha 
13066 E747 30              0     tsx 
13067 E748 EC 00           ..    ldd 00,x
13068 E74A CE 27 10        .'.   ldx #2710   ; 10000
13069 E74D 02              .     idiv 
13070 E74E 8F              .     xgdx 
13071 E74F CB 30           .0    addb #30
13072 E751 F7 00 57        ..W   stab 0057
13073 E754 30              0     tsx 
13074 E755 EC 00           ..    ldd 00,x
13075 E757 CE 27 10        .'.   ldx #2710   ; 10000
13076 E75A 02              .     idiv 
13077 E75B CE 03 E8        ...   ldx #03e8
13078 E75E 02              .     idiv 
13079 E75F 8F              .     xgdx 
13080 E760 CB 30           .0    addb #30
13081 E762 F7 00 5A        ..Z   stab 005a
13082 E765 30              0     tsx 
13083 E766 EC 00           ..    ldd 00,x
13084 E768 CE 03 E8        ...   ldx #03e8
13085 E76B 02              .     idiv 
13086 E76C CE 00 64        ..d   ldx #0064
13087 E76F 02              .     idiv 
13088 E770 8F              .     xgdx 
13089 E771 CB 30           .0    addb #30
13090 E773 F7 00 5D        ..]   stab 005d
13091 E776 30              0     tsx 
13092 E777 EC 00           ..    ldd 00,x
13093 E779 CE 00 64        ..d   ldx #0064
13094 E77C 02              .     idiv 
13095 E77D CE 00 0A        ...   ldx #000a
13096 E780 02              .     idiv 
13097 E781 8F              .     xgdx 
13098 E782 CB 30           .0    addb #30
13099 E784 F7 00 5E        ..^   stab 005e
13100 E787 30              0     tsx 
13101 E788 EC 00           ..    ldd 00,x
13102 E78A CE 00 0A        ...   ldx #000a
13103 E78D 02              .     idiv 
13104 E78E CB 30           .0    addb #30
13105 E790 F7 00 5F        .._   stab 005f
13106 E793 38              8     pulx 
13107 E794 39              9     rts 
13108
13109 jump54:
13110 E795 37              7     pshb 
13111 E796 36              6     psha 
13112 E797 30              0     tsx 
13113 E798 E6 01           ..    ldab 01,x
13114 E79A 4F              O     clra 
13115 E79B CE 00 64        ..d   ldx #0064
13116 E79E 02              .     idiv 
13117 E79F 8F              .     xgdx 
13118 E7A0 CB 30           .0    addb #30
13119 E7A2 F7 00 5D        ..]   stab 005d
13120 E7A5 30              0     tsx 
13121 E7A6 E6 01           ..    ldab 01,x
13122 E7A8 4F              O     clra 
13123 E7A9 CE 00 64        ..d   ldx #0064
13124 E7AC 02              .     idiv 
13125 E7AD 4F              O     clra 
13126 E7AE CE 00 0A        ...   ldx #000a
13127 E7B1 02              .     idiv 
13128 E7B2 8F              .     xgdx 
13129 E7B3 CB 30           .0    addb #30
13130 E7B5 F7 00 5E        ..^   stab 005e
13131 E7B8 30              0     tsx 
13132 E7B9 E6 01           ..    ldab 01,x
13133 E7BB 4F              O     clra 
13134 E7BC CE 00 0A        ...   ldx #000a
13135 E7BF 02              .     idiv 
13136 E7C0 CB 30           .0    addb #30
13137 E7C2 F7 00 5F        .._   stab 005f
13138 E7C5 38              8     pulx 
13139 E7C6 39              9     rts 
13140
13141 jump114:
13142 E7C7 F6 00 06        ...   ldab 0006
13143 E7CA 4F              O     clra 
13144 E7CB CE 00 05        ...   ldx #0005
13145 E7CE 02              .     idiv 
13146 E7CF 5D              ]     tstb 
13147 E7D0 26 03           &.    bne 03
13148 E7D2 7E E8 99        ~..   jmp e899             ;goto79
13149 E7D5 F6 00 06        ...   ldab 0006
13150 E7D8 BD D7 A0        ...   jsr d7a0             ;jump10
13151 E7DB 83 00 00        ...   subd #0000
13152 E7DE 27 03           '.    beq 03
13153 E7E0 7E E8 99        ~..   jmp e899             ;goto79
13154 E7E3 F6 00 06        ...   ldab 0006
13155 E7E6 4F              O     clra 
13156 E7E7 05              .     asld 
13157 E7E8 C3 08 00        ...   addd #0800
13158 E7EB 8F              .     xgdx 
13159 E7EC EC 00           ..    ldd 00,x
13160 E7EE C4 FF           ..    andb #ff
13161 E7F0 84 3F           .?    anda #3f
13162 E7F2 FD 10 16        ...   std 1016
13163 E7F5 F6 00 06        ...   ldab 0006
13164 E7F8 4F              O     clra 
13165 E7F9 05              .     asld 
13166 E7FA C3 0B F1        ...   addd #0bf1
13167 E7FD 8F              .     xgdx 
13168 E7FE EC 00           ..    ldd 00,x
13169 E800 C4 FF           ..    andb #ff
13170 E802 84 3F           .?    anda #3f
13171 E804 FD 10 18        ...   std 1018
13172 E807 FC 10 16        ...   ldd 1016
13173 E80A 83 00 00        ...   subd #0000
13174 E80D 25 08           %.    bcs 08
13175 E80F FC 10 16        ...   ldd 1016
13176 E812 83 27 0F        .'.   subd #270f
13177 E815 23 35           #5    bls 35
13178 E817 F6 00 06        ...   ldab 0006
13179 E81A BD D4 68        ..h   jsr d468             ;jump51
13180 E81D 83 00 00        ...   subd #0000
13181 E820 27 2A           '*    beq 2a
13182 E822 CC 01 00        ...   ldd #0100
13183 E825 37              7     pshb 
13184 E826 36              6     psha 
13185 E827 F6 00 06        ...   ldab 0006
13186 E82A 4F              O     clra 
13187 E82B 05              .     asld 
13188 E82C C3 08 C8        ...   addd #08c8
13189 E82F 38              8     pulx 
13190 E830 8F              .     xgdx 
13191 E831 AA 00           ..    ora 00,x
13192 E833 EA 01           ..    orb 01,x
13193 E835 ED 00           ..    std 00,x
13194 E837 CC 40 00        .@.   ldd #4000
13195 E83A 37              7     pshb 
13196 E83B 36              6     psha 
13197 E83C F6 00 06        ...   ldab 0006
13198 E83F 4F              O     clra 
13199 E840 05              .     asld 
13200 E841 C3 08 00        ...   addd #0800
13201 E844 38              8     pulx 
13202 E845 8F              .     xgdx 
13203 E846 AA 00           ..    ora 00,x
13204 E848 EA 01           ..    orb 01,x
13205 E84A ED 00           ..    std 00,x
13206 E84C CE 10 16        ...   ldx #1016
13207 E84F 1D 00           ..    bclr add,x 00,x
13208 E851 C0 FC           ..    subb #fc
13209 E853 10              .     sba 
13210 E854 18              .     illegal 
13211 E855 43              C     coma 
13212 E856 53              S     comb 
13213 E857 FD 10 18        ...   std 1018
13214 E85A CE 10 18        ...   ldx #1018
13215 E85D 1D 00           ..    bclr add,x 00,x
13216 E85F C0 FC           ..    subb #fc
13217 E861 10              .     sba 
13218 E862 16              .     tab 
13219 E863 37              7     pshb 
13220 E864 36              6     psha 
13221 E865 FC 10 18        ...   ldd 1018
13222 E868 30              0     tsx 
13223 E869 A3 00           ..    subd 00,x
13224 E86B 31              1     ins 
13225 E86C 31              1     ins 
13226 E86D 27 2A           '*    beq 2a
13227 E86F CC 01 00        ...   ldd #0100
13228 E872 37              7     pshb 
13229 E873 36              6     psha 
13230 E874 F6 00 06        ...   ldab 0006
13231 E877 4F              O     clra 
13232 E878 05              .     asld 
13233 E879 C3 08 C8        ...   addd #08c8
13234 E87C 38              8     pulx 
13235 E87D 8F              .     xgdx 
13236 E87E AA 00           ..    ora 00,x
13237 E880 EA 01           ..    orb 01,x
13238 E882 ED 00           ..    std 00,x
13239 E884 CC 40 00        .@.   ldd #4000
13240 E887 37              7     pshb 
13241 E888 36              6     psha 
13242 E889 F6 00 06        ...   ldab 0006
13243 E88C 4F              O     clra 
13244 E88D 05              .     asld 
13245 E88E C3 08 00        ...   addd #0800
13246 E891 38              8     pulx 
13247 E892 8F              .     xgdx 
13248 E893 AA 00           ..    ora 00,x
13249 E895 EA 01           ..    orb 01,x
13250 E897 ED 00           ..    std 00,x
13251 goto79:
13252 E899 39              9     rts 
13253
13254 jump68:
13255 E89A 5F              _     clrb 
13256 E89B 4F              O     clra 
13257 E89C FD 00 0F        ...   std 000f
13258 E89F CC 3F FF        .?.   ldd #3fff
13259 E8A2 FD 00 50        ..P   std 0050
13260 E8A5 7F 00 06        ...   clr 0006
13261 E8A8 F6 00 06        ...   ldab 0006
13262 E8AB C1 64           .d    cmpb #64
13263 E8AD 24 64           $d    bcc 64
13264 E8AF F6 00 06        ...   ldab 0006
13265 E8B2 4F              O     clra 
13266 E8B3 CE 00 05        ...   ldx #0005
13267 E8B6 02              .     idiv 
13268 E8B7 5D              ]     tstb 
13269 E8B8 27 54           'T    beq 54
13270 E8BA F6 00 06        ...   ldab 0006
13271 E8BD BD D7 A0        ...   jsr d7a0             ;jump10
13272 E8C0 83 00 00        ...   subd #0000
13273 E8C3 26 49           &I    bne 49
13274 E8C5 F6 00 06        ...   ldab 0006
13275 E8C8 4F              O     clra 
13276 E8C9 05              .     asld 
13277 E8CA C3 08 00        ...   addd #0800
13278 E8CD 8F              .     xgdx 
13279 E8CE EC 00           ..    ldd 00,x
13280 E8D0 C4 FF           ..    andb #ff
13281 E8D2 84 3F           .?    anda #3f
13282 E8D4 FD 10 16        ...   std 1016
13283 E8D7 FC 10 16        ...   ldd 1016
13284 E8DA 83 27 10        .'.   subd #2710
13285 E8DD 24 2F           $/    bcc 2f
13286 E8DF F6 00 06        ...   ldab 0006
13287 E8E2 BD D4 68        ..h   jsr d468             ;jump51
13288 E8E5 83 00 00        ...   subd #0000
13289 E8E8 27 24           '$    beq 24
13290 E8EA BD D5 61        ..a   jsr d561             ;jump42
13291 E8ED 83 00 00        ...   subd #0000
13292 E8F0 26 1C           &.    bne 1c
13293 E8F2 FC 10 16        ...   ldd 1016
13294 E8F5 B3 00 0F        ...   subd 000f
13295 E8F8 23 06           #.    bls 06
13296 E8FA FC 10 16        ...   ldd 1016
13297 E8FD FD 00 0F        ...   std 000f
13298 E900 FC 10 16        ...   ldd 1016
13299 E903 B3 00 50        ..P   subd 0050
13300 E906 24 06           $.    bcc 06
13301 E908 FC 10 16        ...   ldd 1016
13302 E90B FD 00 50        ..P   std 0050
13303 E90E 7C 00 06        |..   inc 0006
13304 E911 20 95            .    bra 95
13305 E913 FC 0B B7        ...   ldd 0bb7
13306 E916 27 12           '.    beq 12
13307 E918 FC 00 0F        ...   ldd 000f
13308 E91B B3 0B B7        ...   subd 0bb7
13309 E91E 23 0A           #.    bls 0a
13310 E920 FC 00 0F        ...   ldd 000f
13311 E923 05              .     asld 
13312 E924 B3 0B B7        ...   subd 0bb7
13313 E927 FD 00 0F        ...   std 000f
13314 E92A 39              9     rts 
13315
13316 jump103:
13317 E92B 34              4     des 
13318 E92C 30              0     tsx 
13319 E92D 6F 00           o.    clr 00,x
13320 E92F 30              0     tsx 
13321 E930 E6 00           ..    ldab 00,x
13322 E932 C1 64           .d    cmpb #64
13323 E934 24 15           $.    bcc 15
13324 E936 5F              _     clrb 
13325 E937 4F              O     clra 
13326 E938 37              7     pshb 
13327 E939 36              6     psha 
13328 E93A 30              0     tsx 
13329 E93B E6 02           ..    ldab 02,x
13330 E93D 4F              O     clra 
13331 E93E 05              .     asld 
13332 E93F C3 0D 1F        ...   addd #0d1f
13333 E942 38              8     pulx 
13334 E943 8F              .     xgdx 
13335 E944 ED 00           ..    std 00,x
13336 E946 30              0     tsx 
13337 E947 6C 00           l.    inc 00,x
13338 E949 20 E4            .    bra e4
13339 E94B 4F              O     clra 
13340 E94C 5F              _     clrb 
13341 E94D FD 0D F9        ...   std 0df9
13342 E950 FD 0D F7        ...   std 0df7
13343 E953 4F              O     clra 
13344 E954 5F              _     clrb 
13345 E955 FD 0D F5        ...   std 0df5
13346 E958 FD 0D F3        ...   std 0df3
13347 E95B 4F              O     clra 
13348 E95C 5F              _     clrb 
13349 E95D FD 0D F1        ...   std 0df1
13350 E960 FD 0D EF        ...   std 0def
13351 E963 4F              O     clra 
13352 E964 5F              _     clrb 
13353 E965 FD 0D FD        ...   std 0dfd
13354 E968 FD 0D FB        ...   std 0dfb
13355 E96B 4F              O     clra 
13356 E96C 5F              _     clrb 
13357 E96D FD 0D E9        ...   std 0de9
13358 E970 FD 0D E7        ...   std 0de7
13359 E973 5F              _     clrb 
13360 E974 4F              O     clra 
13361 E975 FD 0C DD        ...   std 0cdd
13362 E978 5F              _     clrb 
13363 E979 4F              O     clra 
13364 E97A FD 0C DF        ...   std 0cdf
13365 E97D 5F              _     clrb 
13366 E97E 4F              O     clra 
13367 E97F FD 0C E1        ...   std 0ce1
13368 E982 5F              _     clrb 
13369 E983 4F              O     clra 
13370 E984 FD 0C E3        ...   std 0ce3
13371 E987 5F              _     clrb 
13372 E988 4F              O     clra 
13373 E989 FD 0C E5        ...   std 0ce5
13374 E98C 4F              O     clra 
13375 E98D 5F              _     clrb 
13376 E98E FD 0C F5        ...   std 0cf5
13377 E991 FD 0C F3        ...   std 0cf3
13378 E994 4F              O     clra 
13379 E995 5F              _     clrb 
13380 E996 FD 0C F9        ...   std 0cf9
13381 E999 FD 0C F7        ...   std 0cf7
13382 E99C 4F              O     clra 
13383 E99D 5F              _     clrb 
13384 E99E FD 0C FD        ...   std 0cfd
13385 E9A1 FD 0C FB        ...   std 0cfb
13386 E9A4 4F              O     clra 
13387 E9A5 5F              _     clrb 
13388 E9A6 FD 0D 01        ...   std 0d01
13389 E9A9 FD 0C FF        ...   std 0cff
13390 E9AC 4F              O     clra 
13391 E9AD 5F              _     clrb 
13392 E9AE FD 0D 05        ...   std 0d05
13393 E9B1 FD 0D 03        ...   std 0d03
13394 E9B4 5F              _     clrb 
13395 E9B5 4F              O     clra 
13396 E9B6 FD 0D 07        ...   std 0d07
13397 E9B9 5F              _     clrb 
13398 E9BA 4F              O     clra 
13399 E9BB FD 0D 09        ...   std 0d09
13400 E9BE 5F              _     clrb 
13401 E9BF 4F              O     clra 
13402 E9C0 FD 0D 0B        ...   std 0d0b
13403 E9C3 5F              _     clrb 
13404 E9C4 4F              O     clra 
13405 E9C5 FD 0D 0D        ...   std 0d0d
13406 E9C8 4F              O     clra 
13407 E9C9 5F              _     clrb 
13408 E9CA FD 0D 11        ...   std 0d11
13409 E9CD FD 0D 0F        ...   std 0d0f
13410 E9D0 4F              O     clra 
13411 E9D1 5F              _     clrb 
13412 E9D2 FD 0D 15        ...   std 0d15
13413 E9D5 FD 0D 13        ...   std 0d13
13414 E9D8 4F              O     clra 
13415 E9D9 5F              _     clrb 
13416 E9DA FD 0D 19        ...   std 0d19
13417 E9DD FD 0D 17        ...   std 0d17
13418 E9E0 4F              O     clra 
13419 E9E1 5F              _     clrb 
13420 E9E2 FD 0D 1D        ...   std 0d1d
13421 E9E5 FD 0D 1B        ...   std 0d1b
13422 E9E8 31              1     ins 
13423 E9E9 39              9     rts 
13424
13425 jump113:
13426 E9EA 7F 00 06        ...   clr 0006
13427 E9ED F6 00 06        ...   ldab 0006
13428 E9F0 C1 64           .d    cmpb #64
13429 E9F2 24 64           $d    bcc 64
13430 E9F4 F6 00 06        ...   ldab 0006
13431 E9F7 4F              O     clra 
13432 E9F8 CE 00 05        ...   ldx #0005
13433 E9FB 02              .     idiv 
13434 E9FC 5D              ]     tstb 
13435 E9FD 27 54           'T    beq 54
13436 E9FF CC BF FF        ...   ldd #bfff
13437 EA02 37              7     pshb 
13438 EA03 36              6     psha 
13439 EA04 F6 00 06        ...   ldab 0006
13440 EA07 4F              O     clra 
13441 EA08 05              .     asld 
13442 EA09 C3 08 00        ...   addd #0800
13443 EA0C 38              8     pulx 
13444 EA0D 8F              .     xgdx 
13445 EA0E A4 00           ..    anda 00,x
13446 EA10 E4 01           ..    andb 01,x
13447 EA12 ED 00           ..    std 00,x
13448 EA14 CC FE FF        ...   ldd #feff
13449 EA17 37              7     pshb 
13450 EA18 36              6     psha 
13451 EA19 F6 00 06        ...   ldab 0006
13452 EA1C 4F              O     clra 
13453 EA1D 05              .     asld 
13454 EA1E C3 08 C8        ...   addd #08c8
13455 EA21 38              8     pulx 
13456 EA22 8F              .     xgdx 
13457 EA23 A4 00           ..    anda 00,x
13458 EA25 E4 01           ..    andb 01,x
13459 EA27 ED 00           ..    std 00,x
13460 EA29 CC FD FF        ...   ldd #fdff
13461 EA2C 37              7     pshb 
13462 EA2D 36              6     psha 
13463 EA2E F6 00 06        ...   ldab 0006
13464 EA31 4F              O     clra 
13465 EA32 05              .     asld 
13466 EA33 C3 08 C8        ...   addd #08c8
13467 EA36 38              8     pulx 
13468 EA37 8F              .     xgdx 
13469 EA38 A4 00           ..    anda 00,x
13470 EA3A E4 01           ..    andb 01,x
13471 EA3C ED 00           ..    std 00,x
13472 EA3E CC FB FF        ...   ldd #fbff
13473 EA41 37              7     pshb 
13474 EA42 36              6     psha 
13475 EA43 F6 00 06        ...   ldab 0006
13476 EA46 4F              O     clra 
13477 EA47 05              .     asld 
13478 EA48 C3 08 C8        ...   addd #08c8
13479 EA4B 38              8     pulx 
13480 EA4C 8F              .     xgdx 
13481 EA4D A4 00           ..    anda 00,x
13482 EA4F E4 01           ..    andb 01,x
13483 EA51 ED 00           ..    std 00,x
13484 EA53 7C 00 06        |..   inc 0006
13485 EA56 20 95            .    bra 95
13486 EA58 39              9     rts 
13487
13488 jump65:
13489 EA59 34              4     des 
13490
13491 ; test PE2 - remote no-sale switch.
13492 EA5A CE 00 04        ...   ldx #0004
13493 EA5D 3C              <     pshx 
13494 EA5E CC 10 0A        ...   ldd #100a
13495 EA61 BD E5 D7        ...   jsr e5d7             ;jump69 - test input line
13496 EA64 38              8     pulx 
13497 EA65 83 00 00        ...   subd #0000
13498 EA68 27 3F           '?    beq 3f       ; to eaa9 if off
13499
13500 ; test internal mode switch (bit 1 of 1800)
13501 EA6A CE 00 01        ...   ldx #0001
13502 EA6D 3C              <     pshx 
13503 EA6E CC 18 00        ...   ldd #1800
13504 EA71 BD E5 D7        ...   jsr e5d7             ;jump69 - test input line
13505 EA74 38              8     pulx 
13506 EA75 83 00 00        ...   subd #0000
13507 EA78 27 2F           '/    beq 2f       ; to eaa9 if off
13508
13509 ; both no-sale & mode switches held.
13510
13511 ; 1000-unit delay
13512 EA7A CC 03 E8        ...   ldd #03e8
13513 EA7D BD E5 71        ..q   jsr e571             ;msdelay
13514
13515 EA80 7F 0B A8        ...   clr 0ba8
13516
13517 ; blink "SECURE OFF" until mode switch is released
13518 EA83 F6 18 00        ...   ldab 1800
13519 EA86 C4 01           ..    andb #01
13520 EA88 26 1C           &.    bne 1c       ; to eaa4 (loop until released)
13521
13522 ; blank display
13523 EA8A BD BE 4B        ..K   jsr be4b             ;displayblank (blank display buffer)
13524 EA8D 0F              .     sei 
13525 EA8E BD BE 01        ...   jsr be01             ;jump70 (commit to display)
13526 EA91 0E              .     cli 
13527
13528 ; 500-unit delay
13529 EA92 CC 01 F4        ...   ldd #01f4
13530 EA95 BD E5 71        ..q   jsr e571             ;msdelay
13531
13532 EA98 CC AF D1        ...   ldd #afd1    ; "SECURE OFF"
13533 EA9B BD C0 BA        ...   jsr c0ba             ;display:
13534
13535 ; 500-unit delay
13536 EA9E CC 01 F4        ...   ldd #01f4
13537 EAA1 BD E5 71        ..q   jsr e571             ;msdelay
13538 ; loop
13539 EAA4 20 DD            .    bra dd       ; to ea83
13540 EAA6 BD BE 69        ..i   jsr be69             ;displayreset
13541
13542 ; no sale switch or internal mode switch on
13543
13544 ; fiddle with the bill acceptor
13545 EAA9 C6 01           ..    ldab #01
13546 EAAB F7 00 14        ...   stab 0014
13547 EAAE F6 00 14        ...   ldab 0014
13548 EAB1 F7 38 00        .8.   stab 3800
13549
13550 ; 30-unit delay
13551 EAB4 CC 00 1E        ...   ldd #001e
13552 EAB7 BD E5 71        ..q   jsr e571             ;msdelay
13553
13554 ; more bill acceptor fiddling & tests
13555 EABA CE 00 01        ...   ldx #0001
13556 EABD 3C              <     pshx 
13557 EABE CC 10 00        ...   ldd #1000
13558 EAC1 BD E5 D7        ...   jsr e5d7             ;jump69 - test input line
13559 EAC4 38              8     pulx 
13560 EAC5 83 00 00        ...   subd #0000
13561 EAC8 27 10           '.    beq 10
13562 EACA CE 00 02        ...   ldx #0002
13563 EACD 3C              <     pshx 
13564 EACE CC 10 00        ...   ldd #1000
13565 EAD1 BD E5 D7        ...   jsr e5d7             ;jump69 - test input line
13566 EAD4 38              8     pulx 
13567 EAD5 83 00 00        ...   subd #0000
13568 EAD8 27 03           '.    beq 03
13569 ; we've decided if we have a bill acceptor. if not, skip this bit
13570 EADA 7E ED F8        ~..   jmp edf8             ;goto80
13571 ; we have a bill acceptor - play some more
13572 EADD C6 02           ..    ldab #02
13573 EADF F7 00 14        ...   stab 0014
13574 EAE2 F6 00 14        ...   ldab 0014
13575 EAE5 F7 38 00        .8.   stab 3800
13576 EAE8 CC 00 1E        ...   ldd #001e
13577 EAEB BD E5 71        ..q   jsr e571             ;msdelay
13578 EAEE CE 00 01        ...   ldx #0001
13579 EAF1 3C              <     pshx 
13580 EAF2 CC 10 00        ...   ldd #1000
13581 EAF5 BD E5 D7        ...   jsr e5d7             ;jump69 - test input line
13582 EAF8 38              8     pulx 
13583 EAF9 83 00 00        ...   subd #0000
13584 EAFC 26 10           &.    bne 10
13585 EAFE CE 00 02        ...   ldx #0002
13586 EB01 3C              <     pshx 
13587 EB02 CC 10 00        ...   ldd #1000
13588 EB05 BD E5 D7        ...   jsr e5d7             ;jump69 - test input line
13589 EB08 38              8     pulx 
13590 EB09 83 00 00        ...   subd #0000
13591 EB0C 26 03           &.    bne 03
13592 EB0E 7E ED F8        ~..   jmp edf8             ;goto80 - something about the bill validator failed. skip it.
13593 EB11 CC 5A 5A        .ZZ   ldd #5a5a
13594 EB14 FD 10 16        ...   std 1016
13595 EB17 CC B1 39        ..9   ldd #b139    ;"**********"
13596 EB1A BD C0 BA        ...   jsr c0ba             ;display:
13597 EB1D CC 07 D0        ...   ldd #07d0
13598 EB20 BD E5 71        ..q   jsr e571             ;msdelay
13599 EB23 CC B1 44        ..D   ldd #b144    ;"OOOOOOOOOO"
13600 EB26 BD C0 BA        ...   jsr c0ba             ;display:
13601 EB29 CC 07 D0        ...   ldd #07d0
13602 EB2C BD E5 71        ..q   jsr e571             ;msdelay
13603 EB2F CC 00 14        ...   ldd #0014
13604 EB32 FD 00 3B        ..;   std 003b
13605 EB35 FC 00 3B        ..;   ldd 003b
13606 EB38 27 47           'G    beq 47
13607 ; draws a sequence of 10 dots ..... along the display.
13608 EB3A 30              0     tsx 
13609 EB3B 6F 00           o.    clr 00,x
13610 EB3D 30              0     tsx 
13611 EB3E E6 00           ..    ldab 00,x
13612 EB40 C1 0A           ..    cmpb #0a
13613 EB42 24 3B           $;    bcc 3b
13614 EB44 BD BE 4B        ..K   jsr be4b             ;displayblank
13615 EB47 C6 2E           ..    ldab #2e
13616 EB49 37              7     pshb 
13617 EB4A 30              0     tsx 
13618 EB4B E6 01           ..    ldab 01,x
13619 EB4D 4F              O     clra 
13620 EB4E C3 0B 90        ...   addd #0b90
13621 EB51 8F              .     xgdx 
13622 EB52 33              3     pulb 
13623 EB53 E7 00           ..    stab 00,x
13624 EB55 0F              .     sei 
13625 EB56 BD BE 69        ..i   jsr be69             ;displayreset
13626 EB59 CE 10 28        ..(   ldx #1028
13627 EB5C 1C 00 40        ..    bset 00,x, #40  ; tweak the clock phase
13628 EB5F CE 00 01        ...   ldx #0001
13629 EB62 3C              <     pshx 
13630 EB63 CC 00 20        ..    ldd #0020
13631 EB66 BD BD B5        ...   jsr bdb5             ;jump78 - send display byte
13632 EB69 38              8     pulx 
13633 EB6A CE 10 28        ..(   ldx #1028
13634 EB6D 1D 00 40        ..@   bclr 00,x, #40  ; tweak the clock phase back
13635 EB70 BD BE 10        ...   jsr be10             ;jump88
13636 EB73 0E              .     cli 
13637 EB74 CC 00 07        ...   ldd #0007
13638 EB77 BD E5 71        ..q   jsr e571             ;msdelay 7-unit delay
13639 EB7A 30              0     tsx 
13640 EB7B 6C 00           l.    inc 00,x
13641 EB7D 20 BE            .    bra be
13642 EB7F 20 B4            .    bra b4
13643 EB81 BD BE 69        ..i   jsr be69             ;displayreset
13644 EB84 CC 08 00        ...   ldd #0800
13645 EB87 FD 00 73        ..s   std 0073
13646 EB8A FC 00 73        ..s   ldd 0073
13647 EB8D 83 0F FF        ...   subd #0fff
13648 EB90 22 10           ".    bhi 10       ; to eba2
13649 EB92 C6 AA           ..    ldab #aa
13650 EB94 FE 00 73        ..s   ldx 0073
13651 EB97 E7 00           ..    stab 00,x
13652 EB99 FE 00 73        ..s   ldx 0073
13653 EB9C 08              .     inx 
13654 EB9D FF 00 73        ..s   stx 0073
13655 EBA0 20 E8            .    bra e8
13656 EBA2 CC 08 00        ...   ldd #0800
13657 EBA5 FD 00 73        ..s   std 0073
13658 EBA8 FC 00 73        ..s   ldd 0073
13659 EBAB 83 0F FF        ...   subd #0fff
13660 EBAE 22 1A           ".    bhi 1a
13661 EBB0 FE 00 73        ..s   ldx 0073
13662 EBB3 E6 00           ..    ldab 00,x
13663 EBB5 C1 AA           ..    cmpb #aa
13664 EBB7 27 08           '.    beq 08
13665 EBB9 CE 10 16        ...   ldx #1016
13666 EBBC 1D 00 FF        ..    bclr 00,x, #FF
13667 EBBF 20 09           ..    bra 09
13668 EBC1 FE 00 73        ..s   ldx 0073
13669 EBC4 08              .     inx 
13670 EBC5 FF 00 73        ..s   stx 0073
13671 EBC8 20 DE            .    bra de
13672 EBCA CC 08 00        ...   ldd #0800
13673 EBCD FD 00 73        ..s   std 0073
13674 EBD0 FC 00 73        ..s   ldd 0073
13675 EBD3 83 0F FF        ...   subd #0fff
13676 EBD6 22 10           ".    bhi 10
13677 EBD8 C6 55           .U    ldab #55
13678 EBDA FE 00 73        ..s   ldx 0073
13679 EBDD E7 00           ..    stab 00,x
13680 EBDF FE 00 73        ..s   ldx 0073
13681 EBE2 08              .     inx 
13682 EBE3 FF 00 73        ..s   stx 0073
13683 EBE6 20 E8            .    bra e8
13684 EBE8 CC 08 00        ...   ldd #0800
13685 EBEB FD 00 73        ..s   std 0073
13686 EBEE FC 00 73        ..s   ldd 0073
13687 EBF1 83 0F FF        ...   subd #0fff
13688 EBF4 22 1A           ".    bhi 1a
13689 EBF6 FE 00 73        ..s   ldx 0073
13690 EBF9 E6 00           ..    ldab 00,x
13691 EBFB C1 55           .U    cmpb #55
13692 EBFD 27 08           '.    beq 08
13693 EBFF CE 10 16        ...   ldx #1016
13694 EC02 1D 00 FF        ...   bclr 00,x #ff
13695 EC05 20 09            .    bra 09
13696 EC07 FE 00 73        ..s   ldx 0073
13697 EC0A 08              .     inx 
13698 EC0B FF 00 73        ..s   stx 0073
13699 EC0E 20 DE            .    bra de
13700 EC10 CC 08 00        ...   ldd #0800
13701 EC13 FD 00 73        ..s   std 0073
13702 EC16 FC 00 73        ..s   ldd 0073
13703 EC19 83 0F FF        ...   subd #0fff
13704 EC1C 22 0F           ".    bhi 0f
13705 EC1E 5F              _     clrb 
13706 EC1F FE 00 73        ..s   ldx 0073
13707 EC22 E7 00           ..    stab 00,x
13708 EC24 FE 00 73        ..s   ldx 0073
13709 EC27 08              .     inx 
13710 EC28 FF 00 73        ..s   stx 0073
13711 EC2B 20 E9            .    bra e9
13712 EC2D 7F 00 06        ...   clr 0006
13713 EC30 F6 00 06        ...   ldab 0006
13714 EC33 C1 64           .d    cmpb #64
13715 EC35 24 4D           $M    bcc 4d
13716 EC37 F6 00 06        ...   ldab 0006
13717 EC3A 4F              O     clra 
13718 EC3B CE 00 05        ...   ldx #0005
13719 EC3E 02              .     idiv 
13720 EC3F 5D              ]     tstb 
13721 EC40 27 3D           '=    beq 3d
13722 EC42 CC 00 32        ..2   ldd #0032
13723 EC45 37              7     pshb 
13724 EC46 36              6     psha 
13725 EC47 F6 00 06        ...   ldab 0006
13726 EC4A 4F              O     clra 
13727 EC4B 05              .     asld 
13728 EC4C C3 08 00        ...   addd #0800
13729 EC4F 38              8     pulx 
13730 EC50 8F              .     xgdx 
13731 EC51 ED 00           ..    std 00,x
13732 EC53 F6 00 06        ...   ldab 0006
13733 EC56 4F              O     clra 
13734 EC57 05              .     asld 
13735 EC58 C3 08 00        ...   addd #0800
13736 EC5B 8F              .     xgdx 
13737 EC5C EC 00           ..    ldd 00,x
13738 EC5E 43              C     coma 
13739 EC5F 53              S     comb 
13740 EC60 37              7     pshb 
13741 EC61 36              6     psha 
13742 EC62 F6 00 06        ...   ldab 0006
13743 EC65 4F              O     clra 
13744 EC66 05              .     asld 
13745 EC67 C3 0B F1        ...   addd #0bf1
13746 EC6A 38              8     pulx 
13747 EC6B 8F              .     xgdx 
13748 EC6C ED 00           ..    std 00,x
13749 EC6E CC 08 01        ...   ldd #0801
13750 EC71 37              7     pshb 
13751 EC72 36              6     psha 
13752 EC73 F6 00 06        ...   ldab 0006
13753 EC76 4F              O     clra 
13754 EC77 05              .     asld 
13755 EC78 C3 08 C8        ...   addd #08c8
13756 EC7B 38              8     pulx 
13757 EC7C 8F              .     xgdx 
13758 EC7D ED 00           ..    std 00,x
13759 EC7F 7C 00 06        |..   inc 0006
13760 EC82 20 AC            .    bra ac
13761 EC84 C6 1D           ..    ldab #1d
13762 EC86 F7 0B BF        ...   stab 0bbf
13763 EC89 30              0     tsx 
13764 EC8A 6F 00           o.    clr 00,x
13765 EC8C F6 0B BF        ...   ldab 0bbf
13766 EC8F 4F              O     clra 
13767 EC90 C3 00 02        ...   addd #0002
13768 EC93 37              7     pshb 
13769 EC94 36              6     psha 
13770 EC95 30              0     tsx 
13771 EC96 E6 02           ..    ldab 02,x
13772 EC98 4F              O     clra 
13773 EC99 A3 00           ..    subd 00,x
13774 EC9B 31              1     ins 
13775 EC9C 31              1     ins 
13776 EC9D 2C 1B           ,.    bge 1b
13777 EC9F 30              0     tsx 
13778 ECA0 E6 00           ..    ldab 00,x
13779 ECA2 4F              O     clra 
13780 ECA3 C3 B1 D0        ...   addd #b1d0
13781 ECA6 8F              .     xgdx 
13782 ECA7 E6 00           ..    ldab 00,x
13783 ECA9 37              7     pshb 
13784 ECAA 30              0     tsx 
13785 ECAB E6 01           ..    ldab 01,x
13786 ECAD 4F              O     clra 
13787 ECAE C3 09 93        ...   addd #0993
13788 ECB1 8F              .     xgdx 
13789 ECB2 33              3     pulb 
13790 ECB3 E7 00           ..    stab 00,x
13791 ECB5 30              0     tsx 
13792 ECB6 6C 00           l.    inc 00,x
13793 ECB8 20 D2            .    bra d2
13794 ECBA 7F 0B A8        ...   clr 0ba8
13795 ECBD CC 00 32        ..2   ldd #0032
13796 ECC0 FD 0B B5        ...   std 0bb5
13797 ECC3 5F              _     clrb 
13798 ECC4 4F              O     clra 
13799 ECC5 FD 0B B7        ...   std 0bb7
13800 ECC8 7F 00 06        ...   clr 0006
13801 ECCB BD A6 4E        ..N   jsr a64e             ;jump135
13802 ECCE C6 09           ..    ldab #09
13803 ECD0 F7 0B C0        ...   stab 0bc0
13804 ECD3 7F 0E 6D        ..m   clr 0e6d
13805 ECD6 C6 01           ..    ldab #01
13806 ECD8 F7 0E 6E        ..n   stab 0e6e
13807 ECDB 30              0     tsx 
13808 ECDC 6F 00           o.    clr 00,x
13809 ECDE 30              0     tsx 
13810 ECDF E6 00           ..    ldab 00,x
13811 ECE1 C1 0F           ..    cmpb #0f
13812 ECE3 24 21           $!    bcc 21
13813 ECE5 C6 30           .0    ldab #30
13814 ECE7 37              7     pshb 
13815 ECE8 30              0     tsx 
13816 ECE9 E6 01           ..    ldab 01,x
13817 ECEB 4F              O     clra 
13818 ECEC C3 0C B9        ...   addd #0cb9
13819 ECEF 8F              .     xgdx 
13820 ECF0 33              3     pulb 
13821 ECF1 E7 00           ..    stab 00,x
13822 ECF3 C6 30           .0    ldab #30
13823 ECF5 37              7     pshb 
13824 ECF6 30              0     tsx 
13825 ECF7 E6 01           ..    ldab 01,x
13826 ECF9 4F              O     clra 
13827 ECFA C3 0C C9        ...   addd #0cc9
13828 ECFD 8F              .     xgdx 
13829 ECFE 33              3     pulb 
13830 ECFF E7 00           ..    stab 00,x
13831 ED01 30              0     tsx 
13832 ED02 6C 00           l.    inc 00,x
13833 ED04 20 D8            .    bra d8
13834 ED06 30              0     tsx 
13835 ED07 6F 00           o.    clr 00,x
13836 ED09 30              0     tsx 
13837 ED0A E6 00           ..    ldab 00,x
13838 ED0C C1 0B           ..    cmpb #0b
13839 ED0E 24 12           $.    bcc 12
13840 ED10 5F              _     clrb 
13841 ED11 37              7     pshb 
13842 ED12 30              0     tsx 
13843 ED13 E6 01           ..    ldab 01,x
13844 ED15 4F              O     clra 
13845 ED16 C3 0B E4        ...   addd #0be4
13846 ED19 8F              .     xgdx 
13847 ED1A 33              3     pulb 
13848 ED1B E7 00           ..    stab 00,x
13849 ED1D 30              0     tsx 
13850 ED1E 6C 00           l.    inc 00,x
13851 ED20 20 E7            .    bra e7
13852 ED22 4F              O     clra 
13853 ED23 5F              _     clrb 
13854 ED24 FD 0D F9        ...   std 0df9
13855 ED27 FD 0D F7        ...   std 0df7
13856 ED2A 4F              O     clra 
13857 ED2B 5F              _     clrb 
13858 ED2C FD 0D F5        ...   std 0df5
13859 ED2F FD 0D F3        ...   std 0df3
13860 ED32 7F 0C D9        ...   clr 0cd9
13861 ED35 7F 0C DA        ...   clr 0cda
13862 ED38 7F 0C DB        ...   clr 0cdb
13863 ED3B 7F 0C DC        ...   clr 0cdc
13864 ED3E 4F              O     clra 
13865 ED3F 5F              _     clrb 
13866 ED40 FD 0D F1        ...   std 0df1
13867 ED43 FD 0D EF        ...   std 0def
13868 ED46 4F              O     clra 
13869 ED47 5F              _     clrb 
13870 ED48 FD 0D FD        ...   std 0dfd
13871 ED4B FD 0D FB        ...   std 0dfb
13872 ED4E 4F              O     clra 
13873 ED4F 5F              _     clrb 
13874 ED50 FD 0D E9        ...   std 0de9
13875 ED53 FD 0D E7        ...   std 0de7
13876 ED56 4F              O     clra 
13877 ED57 5F              _     clrb 
13878 ED58 FD 0D ED        ...   std 0ded
13879 ED5B FD 0D EB        ...   std 0deb
13880 ED5E 5F              _     clrb 
13881 ED5F 4F              O     clra 
13882 ED60 FD 0C DD        ...   std 0cdd
13883 ED63 5F              _     clrb 
13884 ED64 4F              O     clra 
13885 ED65 FD 0C DF        ...   std 0cdf
13886 ED68 5F              _     clrb 
13887 ED69 4F              O     clra 
13888 ED6A FD 0C E1        ...   std 0ce1
13889 ED6D 5F              _     clrb 
13890 ED6E 4F              O     clra 
13891 ED6F FD 0C E3        ...   std 0ce3
13892 ED72 5F              _     clrb 
13893 ED73 4F              O     clra 
13894 ED74 FD 0C E5        ...   std 0ce5
13895 ED77 4F              O     clra 
13896 ED78 5F              _     clrb 
13897 ED79 FD 0C F5        ...   std 0cf5
13898 ED7C FD 0C F3        ...   std 0cf3
13899 ED7F 4F              O     clra 
13900 ED80 5F              _     clrb 
13901 ED81 FD 0C F9        ...   std 0cf9
13902 ED84 FD 0C F7        ...   std 0cf7
13903 ED87 4F              O     clra 
13904 ED88 5F              _     clrb 
13905 ED89 FD 0C FD        ...   std 0cfd
13906 ED8C FD 0C FB        ...   std 0cfb
13907 ED8F 4F              O     clra 
13908 ED90 5F              _     clrb 
13909 ED91 FD 0D 01        ...   std 0d01
13910 ED94 FD 0C FF        ...   std 0cff
13911 ED97 4F              O     clra 
13912 ED98 5F              _     clrb 
13913 ED99 FD 0D 05        ...   std 0d05
13914 ED9C FD 0D 03        ...   std 0d03
13915 ED9F 5F              _     clrb 
13916 EDA0 4F              O     clra 
13917 EDA1 FD 0D 07        ...   std 0d07
13918 EDA4 5F              _     clrb 
13919 EDA5 4F              O     clra 
13920 EDA6 FD 0D 09        ...   std 0d09
13921 EDA9 5F              _     clrb 
13922 EDAA 4F              O     clra 
13923 EDAB FD 0D 0B        ...   std 0d0b
13924 EDAE 5F              _     clrb 
13925 EDAF 4F              O     clra 
13926 EDB0 FD 0D 0D        ...   std 0d0d
13927 EDB3 4F              O     clra 
13928 EDB4 5F              _     clrb 
13929 EDB5 FD 0D 11        ...   std 0d11
13930 EDB8 FD 0D 0F        ...   std 0d0f
13931 EDBB 4F              O     clra 
13932 EDBC 5F              _     clrb 
13933 EDBD FD 0D 15        ...   std 0d15
13934 EDC0 FD 0D 13        ...   std 0d13
13935 EDC3 4F              O     clra 
13936 EDC4 5F              _     clrb 
13937 EDC5 FD 0D 19        ...   std 0d19
13938 EDC8 FD 0D 17        ...   std 0d17
13939 EDCB 4F              O     clra 
13940 EDCC 5F              _     clrb 
13941 EDCD FD 0D 1D        ...   std 0d1d
13942 EDD0 FD 0D 1B        ...   std 0d1b
13943 EDD3 7F 0B AF        ...   clr 0baf
13944 EDD6 7F 0B AE        ...   clr 0bae
13945 EDD9 7F 0B AD        ...   clr 0bad
13946 EDDC 7F 0B AC        ...   clr 0bac
13947 EDDF 7F 0B AB        ...   clr 0bab
13948 EDE2 7F 0B B4        ...   clr 0bb4
13949 EDE5 7F 0B B3        ...   clr 0bb3
13950 EDE8 7F 0B B2        ...   clr 0bb2
13951 EDEB 7F 0B B1        ...   clr 0bb1
13952 EDEE 7F 0B B0        ...   clr 0bb0
13953 EDF1 C6 05           ..    ldab #05
13954 EDF3 F7 08 00        ...   stab 0800
13955 EDF6 8D 21           .!    bsr dest 21
13956 goto80:
13957 ; switch things off
13958 EDF8 7F 00 14        ...   clr 0014
13959 EDFB F6 00 14        ...   ldab 0014
13960 EDFE F7 38 00        .8.   stab 3800
13961 EE01 31              1     ins 
13962 EE02 39              9     rts 
13963
13964 jump36:
13965 EE03 37              7     pshb 
13966 EE04 36              6     psha 
13967 EE05 30              0     tsx 
13968 EE06 EC 00           ..    ldd 00,x
13969 EE08 BD C0 BA        ...   jsr c0ba             ;display:
13970 EE0B CE 10 16        ...   ldx #1016
13971 EE0E 1D 01 FF        ..    bclr 01,x, #ff
13972 EE11 CC 05 DC        ...   ldd #05dc    ; 1500
13973 EE14 BD E5 71        ...   jsr e571     ;msdelay
13974 EE17 38              8     pulx 
13975 EE18 39              9     rts 
13976
13977
13978 EE19 BD E5 D1        ...   jsr e5d1             ;jump52
13979 goto81:
13980 ; this the diagnostic function activated when the "test harness"
13981 ; is connected
13982 EE1C CE 10 16        ...   ldx #1016
13983 EE1F 1D 01           ..    bclr 01,x, #ff
13984 EE21 CE 10 16        ..    ldx #1016
13985 EE25 1C 01 5A        ...   bset 01,x, #5A 
13986 EE28 F6 10 16        ...   ldab 1016
13987 EE2B 26 0C           &.    bne 0c       ; to ee39
13988 EE2D CC B1 4F        ..O   ldd #b14f    ;"RAM   FAIL"
13989 EE30 BD C0 BA        ...   jsr c0ba             ;display:
13990 EE33 CC 05 DC        ...   ldd #05dc
13991 EE36 BD E5 71        ..q   jsr e571             ;msdelay
13992 ; i=4
13993 EE39 C6 04           ..    ldab #04
13994 EE3B F7 00 1C        ...   stab 001c
13995 ; i <= 7
13996 EE3E F6 00 1C        ...   ldab 001c
13997 EE41 C1 07           ..    cmpb #07
13998 EE43 24 57           $W    bcc 57       ; to ee9c (break out)
13999 EE45 F6 00 1C        ...   ldab 001c
14000 EE48 4F              O     clra 
14001 EE49 C3 B1 23        ..#   addd #b123   ; power of 2
14002 EE4C 8F              .     xgdx 
14003 EE4D E6 00           ..    ldab 00,x
14004 EE4F 53              S     comb 
14005 EE50 F4 00 1A        ...   andb 001a
14006 EE53 F7 00 1A        ...   stab 001a
14007 EE56 F6 00 1A        ...   ldab 001a
14008 EE59 F7 30 00        .0.   stab 3000    ; set coin bit active (low)
14009 EE5C CC 00 0A        ...   ldd #000a
14010 EE5F BD E5 71        ..q   jsr e571             ;msdelay
14011 EE62 F6 18 00        ...   ldab 1800
14012 EE65 2C 07           ,.    bge 07       ; to ee6e
14013 EE67 CC B1 5A        ..Z   ldd #b15a    ; "P2    FAIL"
14014 EE6A 8D 97           ..    bsr dest 97  ; display to ee03
14015 EE6C 20 2E            .    bra 2e       ; to ee9c
14016 EE6E F6 00 1C        ...   ldab 001c
14017 EE71 4F              O     clra 
14018 EE72 C3 B1 23        ..#   addd #b123   ; powers of 2
14019 EE75 8F              .     xgdx 
14020 EE76 E6 00           ..    ldab 00,x
14021 EE78 FA 00 1A        ...   orb 001a
14022 EE7B F7 00 1A        ...   stab 001a
14023 EE7E F6 00 1A        ...   ldab 001a
14024 EE81 F7 30 00        .0.   stab 3000    ; set coin bit inactive (high)
14025 EE84 CC 00 0A        ...   ldd #000a
14026 EE87 BD E5 71        ..q   jsr e571             ;msdelay
14027 EE8A F6 18 00        ...   ldab 1800    ; if changer int'
14028 EE8D 2D 08           -.    blt 08       ; ee97
14029 EE8F CC B1 5A        ..Z   ldd #b15a    ; "P2 FAIL"
14030 EE92 BD EE 03        ...   jsr ee03             ;jump36
14031 EE95 20 05            .    bra 05       ; to ee9c
14032 EE97 7C 00 1C        |..   inc 001c
14033 EE9A 20 A2            .    bra a2       ; to ee3e
14034 ;
14035 EE9C CE 10 00        ...   ldx #1000
14036 EE9F 1C 00 08        ...   bset 00,x, #08 ; talk to coin mech
14037 EEA2 CE 10 08        ...   ldx #1008
14038 EEA5 1C 00 02        ...   bset 00,x, #02 ; set rx of sci
14039 EEA8 CE 00 1A        ...   ldx #001a
14040 EEAB 1C 00 40        ...   bset 00,x, #40
14041 EEAE F6 00 1A        ...   ldab 001a
14042 EEB1 F7 30 00        .0.   stab 3000    ; unset $1.00 line
14043 EEB4 CC 00 0A        ...   ldd #000a
14044 EEB7 BD E5 71        ..q   jsr e571             ;msdelay
14045 EEBA F6 10 08        ...   ldab 1008
14046 EEBD C4 01           ..    andb #01     ; tests tx of sci
14047 EEBF 26 06           &.    bne 06       ; to eec7
14048 EEC1 CC B1 5A        ..Z   ldd #b15a    ; "P2    FAIL"
14049 EEC4 BD EE 03        ...   jsr ee03             ;jump36
14050 EEC7 CE 00 1A        ...   ldx #001a
14051 EECA 1D 00 40        ...   bclr 00,x, #40
14052 EECD F6 00 1A        ...   ldab 001a
14053 EED0 F7 30 00        .0.   stab 3000    ; set $1.00 line
14054 EED3 CC 00 0A        ...   ldd #000a
14055 EED6 BD E5 71        ..q   jsr e571             ;msdelay
14056
14057 EED9 F6 10 08        ...   ldab 1008
14058 EEDC C4 01           ..    andb #01     ; tests txt of sci
14059 EEDE 27 06           '.    beq 06       ; to eee6
14060 EEE0 CC B1 5A        ..Z   ldd #b15a    ; "P2    FAIL"
14061 EEE3 BD EE 03        ...   jsr ee03             ;jump36
14062 EEE6 CE 00 1A        ...   ldx #001a
14063 EEE9 1C 00 02        ...   bset 00,x, #02
14064 EEEC F6 00 1A        ...   ldab 001a
14065 EEEF F7 30 00        .0.   stab 3000    ; ditto for $0.25
14066 EEF2 CC 00 0A        ...   ldd #000a
14067 EEF5 BD E5 71        ..q   jsr e571             ;msdelay
14068 EEF8 F6 10 00        ...   ldab 1000
14069 EEFB C4 04           ..    andb #04
14070 EEFD 26 06           &.    bne 06
14071 EEFF CC B1 65        ..e   ldd #b165
14072 EF02 BD EE 03        ...   jsr ee03             ;jump36
14073 EF05 CE 00 1A        ...   ldx #001a
14074 EF08 1D 00 02        ...   bclr 00,x, #02
14075 EF0B F6 00 1A        ...   ldab 001a
14076 EF0E F7 30 00        .0.   stab 3000    ; ditto for $0.25
14077 EF11 CC 00 0A        ...   ldd #000a
14078 EF14 BD E5 71        ..q   jsr e571             ;msdelay
14079
14080 EF17 F6 10 00        ...   ldab 1000
14081 EF1A C4 04           ..    andb #04     ; coin dispenser pin6
14082 EF1C 27 06           '.    beq 06
14083 EF1E CC B1 65        ..e   ldd #b165    ; "P2-P3 FAIL"
14084 EF21 BD EE 03        ...   jsr ee03             ;jump36
14085 EF24 CE 00 1A        ...   ldx #001a
14086 EF27 1C 00 01        ...   bset 00,x, #01
14087 EF2A F6 00 1A        ...   ldab 001a
14088 EF2D F7 30 00        .0.   stab 3000    ; send line of changer
14089 EF30 CC 00 0A        ...   ldd #000a
14090 EF33 BD E5 71        ..q   jsr e571             ;msdelay
14091 ;
14092 EF36 F6 18 00        ...   ldab 1800
14093 EF39 C4 20           .     andb #20     ; test door switch
14094 EF3B 26 06           &.    bne 06
14095 EF3D CC B1 70        ..p   ldd #b170    ; "P2-P8 FAIL"
14096 EF40 BD EE 03        ...   jsr ee03             ;jump36
14097 EF43 CE 00 1A        ...   ldx #001a
14098 EF46 1D 00 01        ...   bclr 00,x, #01
14099 EF49 F6 00 1A        ...   ldab 001a
14100 EF4C F7 30 00        .0.   stab 3000    ; unset send line of changer
14101 EF4F CC 00 0A        ...   ldd #000a
14102 EF52 BD E5 71        ..q   jsr e571             ;msdelay
14103 EF55 F6 18 00        ...   ldab 1800
14104 EF58 C4 20           .     andb #20     ; test door again?
14105 EF5A 27 06           '.    beq 06
14106 EF5C CC B1 70        ..p   ldd #b170    ; "P2-P8 FAIL"
14107 EF5F BD EE 03        ...   jsr ee03             ;jump36
14108 EF62 CE 00 1A        ...   ldx #001a
14109 EF65 1C 00 04        ...   bset 00,x, #04 ; reset changer
14110 EF68 F6 00 1A        ...   ldab 001a
14111 EF6B F7 30 00        .0.   stab 3000    
14112 EF6E CC 00 0A        ...   ldd #000a
14113 EF71 BD E5 71        ..q   jsr e571             ;msdelay
14114 EF74 F6 10 0A        ...   ldab 100a
14115 EF77 C4 04           ..    andb #04     ; test no-sale switch
14116 EF79 26 06           &.    bne 06
14117 EF7B CC B1 7B        ..{   ldd #b17b    ; "P2-P9 FAIL"
14118 EF7E BD EE 03        ...   jsr ee03             ;jump36
14119 EF81 CE 00 1A        ...   ldx #001a
14120 EF84 1D 00 04        ...   bclr 00,x, #04
14121 EF87 F6 00 1A        ...   ldab 001a
14122 EF8A F7 30 00        .0.   stab 3000    ;snack motor drivers serial data is bit 7
14123 EF8D CC 00 0A        ...   ldd #000a
14124 EF90 BD E5 71        ..q   jsr e571             ;msdelay
14125 EF93 F6 10 0A        ...   ldab 100a
14126 EF96 C4 04           ..    andb #04
14127 EF98 27 06           '.    beq 06
14128 EF9A CC B1 7B        ..{   ldd #b17b    ; "P2-P9 FAIL"
14129 EF9D BD EE 03        ...   jsr ee03             ;jump36
14130 EFA0 CE 10 00        ...   ldx #1000
14131 EFA3 1C 00 08        ...   bset 00,x, #08
14132 EFA6 CE 00 1A        ...   ldx #001a
14133 EFA9 1C 00 40        ...   bset 00,x, #40
14134 EFAC F6 00 1A        ...   ldab 001a
14135 EFAF F7 30 00        .0.   stab 3000
14136 EFB2 CE 10 08        ...   ldx #1008
14137 EFB5 1C 00 02        ...   bset 00,x, #02 ; keypad data
14138 EFB8 CC 00 0A        ...   ldd #000a
14139 EFBB BD E5 71        ..q   jsr e571             ;msdelay
14140 EFBE F6 10 08        ...   ldab 1008
14141 EFC1 C4 01           ..    andb #01
14142 EFC3 26 06           &.    bne 06
14143 EFC5 CC B1 86        ...   ldd #b186    ; "P3-P4 FAIL"
14144 EFC8 BD EE 03        ...   jsr ee03             ;jump36
14145 EFCB CE 10 08        ...   ldx #1008
14146 EFCE 1D 00 02        ...   bclr 00,x, #02
14147 EFD1 CC 00 0A        ...   ldd #000a
14148 EFD4 BD E5 71        ..q   jsr e571             ;msdelay
14149 EFD7 F6 10 08        ...   ldab 1008
14150 EFDA C4 01           ..    andb #01
14151 EFDC 27 06           '.    beq 06
14152 EFDE CC B1 86        ...   ldd #b186     ; "P3-P4 FAIL"
14153 EFE1 BD EE 03        ...   jsr ee03             ;jump36
14154 EFE4 CE 10 00        ...   ldx #1000
14155 EFE7 1D 00 08        ...   bclr 00,x, #08
14156 EFEA CE 10 08        ...   ldx #1008
14157 EFED 1C 00 02        ...   bset 00,x, #02
14158 EFF0 CC 00 0A        ...   ldd #000a
14159 EFF3 BD E5 71        ..q   jsr e571             ;msdelay
14160 EFF6 F6 10 08        ...   ldab 1008
14161 EFF9 C4 01           ..    andb #01
14162 EFFB 26 06           &.    bne 06
14163 EFFD CC B1 91        ...   ldd #b191    ; "P5   FAIL"
14164 F000 BD EE 03        ...   jsr ee03             ;jump36
14165 F003 CE 10 08        ...   ldx #1008
14166 F006 1D 00 02        ...   bclr 00,x, #02
14167 F009 CC 00 0A        ...   ldd #000a
14168 F00C BD E5 71        ..q   jsr e571             ;msdelay
14169 F00F F6 10 08        ...   ldab 1008
14170 F012 C4 01           ..    andb #01
14171 F014 27 06           '.    beq 06
14172 F016 CC B1 91        ...   ldd #b191
14173 F019 BD EE 03        ...   jsr ee03             ;jump36
14174 F01C CE 00 14        ...   ldx #0014
14175 F01F 1C 00           ..    bset add,x 00,x
14176 F021 20 F6            .    bra f6
14177 F023 00              .     test 
14178 F024 14              .     bset 
14179 F025 F7 38 00        .8.   stab 3800
14180 F028 CC 00 0A        ...   ldd #000a
14181 F02B BD E5 71        ..q   jsr e571             ;msdelay
14182 F02E F6 20 00        . .   ldab 2000
14183 F031 C4 40           .@    andb #40
14184 F033 26 06           &.    bne 06
14185 F035 CC B1 9C        ...   ldd #b19c
14186 F038 BD EE 03        ...   jsr ee03             ;jump36
14187 F03B CE 00 14        ...   ldx #0014
14188 F03E 1D 00           ..    bclr add,x 00,x
14189 F040 20 F6            .    bra f6
14190 F042 00              .     test 
14191 F043 14              .     bset 
14192 F044 F7 38 00        .8.   stab 3800
14193 F047 CC 00 0A        ...   ldd #000a
14194 F04A BD E5 71        ..q   jsr e571             ;msdelay
14195 F04D F6 20 00        . .   ldab 2000
14196 F050 C4 40           .@    andb #40
14197 F052 27 06           '.    beq 06
14198 F054 CC B1 9C        ...   ldd #b19c
14199 F057 BD EE 03        ...   jsr ee03             ;jump36
14200 F05A CE 00 14        ...   ldx #0014
14201 F05D 1C 00 40        ...   bset 00,x, #40
14202 F060 F6 00 14        ...   ldab 0014
14203 F063 F7 38 00        .8.   stab 3800
14204 F066 CC 00 0A        ...   ldd #000a
14205 F069 BD E5 71        ..q   jsr e571             ;msdelay
14206 F06C F6 20 00        . .   ldab 2000
14207 F06F 2C 06           ,.    bge 06
14208 F071 CC B1 9C        ...   ldd #b19c
14209 F074 BD EE 03        ...   jsr ee03             ;jump36
14210 F077 CE 00 14        ...   ldx #0014
14211 F07A 1D 00 40        ...   bclr 00,x, #40
14212 F07D F6 00 14        ...   ldab 0014
14213 F080 F7 38 00        .8.   stab 3800
14214 F083 CC 00 0A        ...   ldd #000a
14215 F086 BD E5 71        ..q   jsr e571             ;msdelay
14216 F089 F6 20 00        . .   ldab 2000
14217 F08C 2D 06           -.    blt 06
14218 F08E CC B1 9C        ...   ldd #b19c
14219 F091 BD EE 03        ...   jsr ee03             ;jump36
14220 F094 7F 00 61        ..a   clr 0061
14221 F097 F6 00 61        ..a   ldab 0061
14222 F09A C1 08           ..    cmpb #08
14223 F09C 24 22           $"    bcc 22
14224 F09E F6 00 61        ..a   ldab 0061
14225 F0A1 4F              O     clra 
14226 F0A2 C3 B1 C8        ...   addd #b1c8
14227 F0A5 8F              .     xgdx 
14228 F0A6 E6 00           ..    ldab 00,x
14229 F0A8 F7 00 06        ...   stab 0006
14230 F0AB BD D3 11        ...   jsr d311             ;jump30
14231 F0AE 83 00 00        ...   subd #0000
14232 F0B1 27 08           '.    beq 08
14233 F0B3 CC B1 A7        ...   ldd #b1a7
14234 F0B6 BD EE 03        ...   jsr ee03             ;jump36
14235 F0B9 20 05            .    bra 05
14236 F0BB 7C 00 61        |.a   inc 0061
14237 F0BE 20 D7            .    bra d7
14238 F0C0 7F 00 61        ..a   clr 0061
14239 F0C3 F6 00 61        ..a   ldab 0061
14240 F0C6 C1 08           ..    cmpb #08
14241 F0C8 24 2B           $+    bcc 2b
14242 F0CA F6 00 61        ..a   ldab 0061
14243 F0CD 4F              O     clra 
14244 F0CE C3 B1 C8        ...   addd #b1c8
14245 F0D1 8F              .     xgdx 
14246 F0D2 E6 00           ..    ldab 00,x
14247 F0D4 F7 00 06        ...   stab 0006
14248 F0D7 BD D1 3D        ..=   jsr d13d             ;jump34
14249 F0DA BD D5 70        ..p   jsr d570             ;jump35
14250 F0DD 83 00 00        ...   subd #0000
14251 F0E0 26 0B           &.    bne 0b
14252 F0E2 BD D1 05        ...   jsr d105             ;jump32
14253 F0E5 CC B1 B2        ...   ldd #b1b2
14254 F0E8 BD EE 03        ...   jsr ee03             ;jump36
14255 F0EB 20 08            .    bra 08
14256 F0ED BD D1 05        ...   jsr d105             ;jump32
14257 F0F0 7C 00 61        |.a   inc 0061
14258 F0F3 20 CE            .    bra ce
14259 F0F5 7F 00 61        ..a   clr 0061
14260 F0F8 F6 00 61        ..a   ldab 0061
14261 F0FB C1 05           ..    cmpb #05
14262 F0FD 24 45           $E    bcc 45
14263 F0FF F6 00 61        ..a   ldab 0061
14264 F102 4F              O     clra 
14265 F103 C3 B1 C8        ...   addd #b1c8
14266 F106 8F              .     xgdx 
14267 F107 E6 00           ..    ldab 00,x
14268 F109 F7 00 06        ...   stab 0006
14269 F10C BD D1 3D        ..=   jsr d13d             ;jump34
14270 F10F CC 00 0A        ...   ldd #000a
14271 F112 BD E5 71        ..q   jsr e571             ;msdelay
14272 F115 F6 18 00        ...   ldab 1800
14273 F118 C4 40           .@    andb #40
14274 F11A 26 0B           &.    bne 0b
14275 F11C BD D1 05        ...   jsr d105             ;jump32
14276 F11F CC B1 B2        ...   ldd #b1b2
14277 F122 BD EE 03        ...   jsr ee03             ;jump36
14278 F125 20 1D            .    bra 1d
14279 F127 BD D1 05        ...   jsr d105             ;jump32
14280 F12A CC 00 0A        ...   ldd #000a
14281 F12D BD E5 71        ..q   jsr e571             ;msdelay
14282 F130 F6 18 00        ...   ldab 1800
14283 F133 C4 40           .@    andb #40
14284 F135 27 08           '.    beq 08
14285 F137 CC B1 B2        ...   ldd #b1b2
14286 F13A BD EE 03        ...   jsr ee03             ;jump36
14287 F13D 20 05            .    bra 05
14288 F13F 7C 00 61        |.a   inc 0061
14289 F142 20 B4            .    bra b4
14290 F144 FC 10 16        ...   ldd 1016
14291 F147 83 5A 5A        .ZZ   subd #5a5a
14292 F14A 26 0C           &.    bne 0c
14293 F14C CC B1 BD        ...   ldd #b1bd    ; " PASSED "
14294 F14F BD C0 BA        ...   jsr c0ba             ;display:
14295 F152 CC 05 DC        ...   ldd #05dc
14296 F155 BD E5 71        ..q   jsr e571             ;msdelay
14297 F158 7E EE 1C        ~..   jmp ee1c             ;goto81
14298
14299 ;send a byte to the printer?
14300 ;it calls c7e7, which does things with the serial port
14301 jump53:
14302 F15B 37              7     pshb 
14303 F15C 36              6     psha 
14304 F15D F6 00 19        ...   ldab 0019
14305 F160 C4 40           .@    andb #40
14306 F162 26 5B           &[    bne 5b
14307 F164 C6 FF           ..    ldab #ff
14308 F166 F7 00 39        ..9   stab 0039
14309 F169 F6 20 00        . .   ldab 2000
14310 F16C 2C 11           ,.    bge 11
14311 F16E F6 20 00        . .   ldab 2000
14312 F171 C4 40           .@    andb #40
14313 F173 27 0A           '.    beq 0a
14314 F175 F6 00 39        ..9   ldab 0039
14315 F178 27 05           '.    beq 05
14316 F17A BD E6 1B        ...   jsr e61b             ;jump4
14317 F17D 20 EA            .    bra ea
14318 F17F F6 00 39        ..9   ldab 0039
14319 F182 26 08           &.    bne 08
14320 F184 CE 00 19        ...   ldx #0019
14321 F187 1C 00 40        ...   bset 00,x, #40
14322 F18A 20 33            3    bra 33
14323 F18C F6 20 00        . .   ldab 2000
14324 F18F C4 40           .@    andb #40
14325 F191 27 2C           ',    beq 2c
14326 F193 F6 00 1D        ...   ldab 001d
14327 F196 C4 01           ..    andb #01
14328 F198 27 1E           '.    beq 1e
14329 F19A 30              0     tsx 
14330 F19B E6 01           ..    ldab 01,x
14331 F19D C1 30           .0    cmpb #30
14332 F19F 26 08           &.    bne 08
14333 F1A1 CC 00 20        ..    ldd #0020
14334 F1A4 BD C7 E7        ...   jsr c7e7             ;jump37
14335 F1A7 20 0D            .    bra 0d
14336 F1A9 30              0     tsx 
14337 F1AA E6 01           ..    ldab 01,x
14338 F1AC 4F              O     clra 
14339 F1AD BD C7 E7        ...   jsr c7e7             ;jump37
14340 F1B0 CE 00 1D        ...   ldx #001d
14341 F1B3 1D 00 01        ...   bclr 00,x, #01
14342 F1B6 20 07            .    bra 07
14343 F1B8 30              0     tsx 
14344 F1B9 E6 01           ..    ldab 01,x
14345 F1BB 4F              O     clra 
14346 F1BC BD C7 E7        ...   jsr c7e7             ;jump37
14347 F1BF 38              8     pulx 
14348 F1C0 39              9     rts 
14349
14350 jump59:
14351 F1C1 37              7     pshb 
14352 F1C2 36              6     psha 
14353 F1C3 F6 20 00        . .   ldab 2000
14354 F1C6 C4 40           .@    andb #40
14355 F1C8 27 1C           '.    beq 1c
14356 F1CA 7F 00 18        ...   clr 0018
14357 F1CD F6 00 18        ...   ldab 0018
14358 F1D0 30              0     tsx 
14359 F1D1 E1 05           ..    cmpb 05,x
14360 F1D3 24 11           $.    bcc 11
14361 F1D5 30              0     tsx 
14362 F1D6 EE 00           ..    ldx 00,x
14363 F1D8 E6 00           ..    ldab 00,x
14364 F1DA 4F              O     clra 
14365 F1DB BD F1 5B        ..[   jsr f15b             ;jump53
14366 F1DE 38              8     pulx 
14367 F1DF 08              .     inx 
14368 F1E0 3C              <     pshx 
14369 F1E1 7C 00 18        |..   inc 0018
14370 F1E4 20 E7            .    bra e7
14371 F1E6 38              8     pulx 
14372 F1E7 39              9     rts 
14373
14374 ;send a string to the printer.  D is a pointer to a string
14375 jump57:
14376 F1E8 37              7     pshb 
14377 F1E9 36              6     psha 
14378 F1EA F6 20 00        . .   ldab 2000
14379 F1ED C4 40           .@    andb #40
14380 F1EF 27 1B           '.    beq 1b
14381 F1F1 CC 00 20        ..    ldd #0020
14382 F1F4 BD F1 5B        ..[   jsr f15b             ;jump53
14383 F1F7 30              0     tsx 
14384 F1F8 EE 00           ..    ldx 00,x
14385 F1FA E6 00           ..    ldab 00,x
14386 F1FC 27 0E           '.    beq 0e
14387 F1FE 30              0     tsx 
14388 F1FF EE 00           ..    ldx 00,x
14389 F201 E6 00           ..    ldab 00,x
14390 F203 4F              O     clra 
14391 F204 BD F1 5B        ..[   jsr f15b             ;jump53
14392 F207 38              8     pulx 
14393 F208 08              .     inx 
14394 F209 3C              <     pshx 
14395 F20A 20 EB            .    bra eb
14396 F20C 38              8     pulx 
14397 F20D 39              9     rts 
14398
14399 jump62:
14400 F20E 37              7     pshb 
14401 F20F 36              6     psha 
14402 F210 F6 20 00        . .   ldab 2000
14403 F213 C4 40           .@    andb #40
14404 F215 27 34           '4    beq 34
14405 F217 CE 00 1D        ...   ldx #001d
14406 F21A 1C 00 01        ...   bset 00,x, #01
14407 F21D 30              0     tsx 
14408 F21E E6 01           ..    ldab 01,x
14409 F220 4F              O     clra 
14410 F221 BD E7 95        ...   jsr e795             ;jump54
14411 F224 F6 00 5D        ..]   ldab 005d
14412 F227 4F              O     clra 
14413 F228 BD F1 5B        ..[   jsr f15b             ;jump53
14414 F22B F6 00 5E        ..^   ldab 005e
14415 F22E 4F              O     clra 
14416 F22F BD F1 5B        ..[   jsr f15b             ;jump53
14417 F232 CE 00 1D        ...   ldx #001d
14418 F235 1D 00 01        ...   bclr 00,x, #01
14419 F238 F6 00 5F        .._   ldab 005f
14420 F23B 4F              O     clra 
14421 F23C BD F1 5B        ..[   jsr f15b             ;jump53
14422 F23F CC 00 20        ..    ldd #0020
14423 F242 BD F1 5B        ..[   jsr f15b             ;jump53
14424 F245 CC 00 20        ..    ldd #0020
14425 F248 BD F1 5B        ..[   jsr f15b             ;jump53
14426 F24B 38              8     pulx 
14427 F24C 39              9     rts 
14428
14429 jump58:
14430 F24D 37              7     pshb 
14431 F24E 36              6     psha 
14432 F24F F6 20 00        . .   ldab 2000
14433 F252 C4 40           .@    andb #40
14434 F254 27 41           'A    beq 41
14435 F256 CE 00 1D        ...   ldx #001d
14436 F259 1C 00 01        ...   bset 00,x, #01
14437 F25C 30              0     tsx 
14438 F25D EC 00           ..    ldd 00,x
14439 F25F BD E7 45        ..E   jsr e745             ;jump55
14440 F262 F6 00 57        ..W   ldab 0057
14441 F265 4F              O     clra 
14442 F266 BD F1 5B        ..[   jsr f15b             ;jump53
14443 F269 F6 00 5A        ..Z   ldab 005a
14444 F26C 4F              O     clra 
14445 F26D BD F1 5B        ..[   jsr f15b             ;jump53
14446 F270 F6 00 5D        ..]   ldab 005d
14447 F273 4F              O     clra 
14448 F274 BD F1 5B        ..[   jsr f15b             ;jump53
14449 F277 F6 00 5E        ..^   ldab 005e
14450 F27A 4F              O     clra 
14451 F27B BD F1 5B        ..[   jsr f15b             ;jump53
14452 F27E CE 00 1D        ...   ldx #001d
14453 F281 1D 00 01        ...   bclr 00,x, #01
14454 F284 F6 00 5F        .._   ldab 005f
14455 F287 4F              O     clra 
14456 F288 BD F1 5B        ..[   jsr f15b             ;jump53
14457 F28B CC 00 20        ..    ldd #0020
14458 F28E BD F1 5B        ..[   jsr f15b             ;jump53
14459 F291 CC 00 20        ..    ldd #0020
14460 F294 BD F1 5B        ..[   jsr f15b             ;jump53
14461 F297 38              8     pulx 
14462 F298 39              9     rts 
14463
14464 jump61
14465 jump61::
14466 F299 37              7     pshb 
14467 F29A 36              6     psha 
14468 F29B F6 20 00        . .   ldab 2000
14469 F29E C4 40           .@    andb #40
14470 F2A0 27 7B           '{    beq 7b
14471 F2A2 F6 00 17        ...   ldab 0017
14472 F2A5 C4 08           ..    andb #08
14473 F2A7 26 06           &.    bne 06
14474 F2A9 CC 00 24        ..$   ldd #0024
14475 F2AC BD F1 5B        ..[   jsr f15b             ;jump53
14476 F2AF CE 00 1D        ...   ldx #001d
14477 F2B2 1C 00 01        ...   bset 00,x, #01
14478 F2B5 30              0     tsx 
14479 F2B6 EC 00           ..    ldd 00,x
14480 F2B8 BD E7 45        ..E   jsr e745             ;jump55
14481 F2BB F6 00 57        ..W   ldab 0057
14482 F2BE 4F              O     clra 
14483 F2BF BD F1 5B        ..[   jsr f15b             ;jump53
14484 F2C2 F6 00 5A        ..Z   ldab 005a
14485 F2C5 4F              O     clra 
14486 F2C6 BD F1 5B        ..[   jsr f15b             ;jump53
14487 F2C9 F6 00 13        ...   ldab 0013
14488 F2CC C1 08           ..    cmpb #08
14489 F2CE 26 0C           &.    bne 0c
14490 F2D0 CC 00 2E        ...   ldd #002e
14491 F2D3 BD F1 5B        ..[   jsr f15b             ;jump53
14492 F2D6 CE 00 1D        ...   ldx #001d
14493 F2D9 1D 00 01        ...   bclr 00,x, #01
14494 F2DC F6 00 5D        ..]   ldab 005d
14495 F2DF 4F              O     clra 
14496 F2E0 BD F1 5B        ..[   jsr f15b             ;jump53
14497 F2E3 F6 00 13        ...   ldab 0013
14498 F2E6 C1 04           ..    cmpb #04
14499 F2E8 26 0C           &.    bne 0c
14500 F2EA CC 00 2E        ...   ldd #002e
14501 F2ED BD F1 5B        ..[   jsr f15b             ;jump53
14502 F2F0 CE 00 1D        ...   ldx #001d
14503 F2F3 1D 00 01        ...   bclr 00,x, #01
14504 F2F6 F6 00 5E        ..^   ldab 005e
14505 F2F9 4F              O     clra 
14506 F2FA BD F1 5B        ..[   jsr f15b             ;jump53
14507 F2FD F6 00 13        ...   ldab 0013
14508 F300 C1 02           ..    cmpb #02
14509 F302 26 06           &.    bne 06
14510 F304 CC 00 2E        ...   ldd #002e
14511 F307 BD F1 5B        ..[   jsr f15b             ;jump53
14512 F30A CE 00 1D        ...   ldx #001d
14513 F30D 1D 00 01        ...   bclr 00,x, #01
14514 F310 F6 00 5F        .._   ldab 005f
14515 F313 4F              O     clra 
14516 F314 BD F1 5B        ..[   jsr f15b             ;jump53
14517 F317 CC 00 0A        ...   ldd #000a
14518 F31A BD F1 5B        ..[   jsr f15b             ;jump53
14519 F31D 38              8     pulx 
14520 F31E 39              9     rts 
14521
14522 jump60:
14523 F31F 38              8     pulx 
14524 F320 37              7     pshb 
14525 F321 36              6     psha 
14526 F322 3C              <     pshx 
14527 F323 F6 20 00        . .   ldab 2000
14528 F326 C4 40           .@    andb #40
14529 F328 26 03           &.    bne 03
14530 F32A 7E F3 BC        ~..   jmp f3bc             ;goto82
14531 F32D F6 00 17        ...   ldab 0017
14532 F330 C4 08           ..    andb #08
14533 F332 26 06           &.    bne 06
14534 F334 CC 00 24        ..$   ldd #0024
14535 F337 BD F1 5B        ..[   jsr f15b             ;jump53
14536 F33A CE 00 1D        ...   ldx #001d
14537 F33D 1C 00 01        ...   bset 00,x, #01
14538 F340 30              0     tsx 
14539 F341 EC 04           ..    ldd 04,x
14540 F343 37              7     pshb 
14541 F344 36              6     psha 
14542 F345 EC 02           ..    ldd 02,x
14543 F347 BD E6 21        ..!   jsr e621             ;jump56
14544 F34A 38              8     pulx 
14545 F34B C6 07           ..    ldab #07
14546 F34D F7 00 18        ...   stab 0018
14547 F350 F6 00 18        ...   ldab 0018
14548 F353 C1 FF           ..    cmpb #ff
14549 F355 24 5F           $_    bcc 5f
14550 F357 F6 00 18        ...   ldab 0018
14551 F35A 4F              O     clra 
14552 F35B C3 0B 90        ...   addd #0b90
14553 F35E 8F              .     xgdx 
14554 F35F E6 00           ..    ldab 00,x
14555 F361 4F              O     clra 
14556 F362 BD F1 5B        ..[   jsr f15b             ;jump53
14557 F365 F6 00 18        ...   ldab 0018
14558 F368 C1 03           ..    cmpb #03
14559 F36A 26 15           &.    bne 15
14560 F36C F6 00 13        ...   ldab 0013
14561 F36F C1 08           ..    cmpb #08
14562 F371 26 0C           &.    bne 0c
14563 F373 CC 00 2E        ...   ldd #002e
14564 F376 BD F1 5B        ..[   jsr f15b             ;jump53
14565 F379 CE 00 1D        ...   ldx #001d
14566 F37C 1D 00 01        ...   bclr 00,x, #01
14567 F37F 20 30            0    bra 30
14568 F381 C1 02           ..    cmpb #02
14569 F383 26 15           &.    bne 15
14570 F385 F6 00 13        ...   ldab 0013
14571 F388 C1 04           ..    cmpb #04
14572 F38A 26 0C           &.    bne 0c
14573 F38C CC 00 2E        ...   ldd #002e
14574 F38F BD F1 5B        ..[   jsr f15b             ;jump53
14575 F392 CE 00 1D        ...   ldx #001d
14576 F395 1D 00 01        ...   bclr 00,x, #01
14577 F398 20 17            .    bra 17
14578 F39A C1 01           ..    cmpb #01
14579 F39C 26 13           &.    bne 13
14580 F39E F6 00 13        ...   ldab 0013
14581 F3A1 C1 02           ..    cmpb #02
14582 F3A3 26 06           &.    bne 06
14583 F3A5 CC 00 2E        ...   ldd #002e
14584 F3A8 BD F1 5B        ..[   jsr f15b             ;jump53
14585 F3AB CE 00 1D        ...   ldx #001d
14586 F3AE 1D 00 01        ...   bclr 00,x, #01
14587 F3B1 7A 00 18        z..   dec 0018
14588 F3B4 20 9A            .    bra 9a
14589 F3B6 CC 00 0A        ...   ldd #000a
14590 F3B9 BD F1 5B        ..[   jsr f15b             ;jump53
14591 goto82:
14592 F3BC 38              8     pulx 
14593 F3BD 31              1     ins 
14594 F3BE 31              1     ins 
14595 F3BF 6E 00           n.    jmp 00,x
14596
14597 jump63:
14598 F3C1 37              7     pshb 
14599 F3C2 36              6     psha 
14600 F3C3 F6 20 00        . .   ldab 2000
14601 F3C6 C4 40           .@    andb #40
14602 F3C8 27 49           'I    beq 49
14603 F3CA CC B4 71        ..q   ldd #b471    "    CODE "
14604 F3CD BD F1 E8        ...   jsr f1e8             ;jump57
14605 F3D0 30              0     tsx 
14606 F3D1 E6 01           ..    ldab 01,x
14607 F3D3 4F              O     clra 
14608 F3D4 CE 00 0A        ...   ldx #000a
14609 F3D7 02              .     idiv 
14610 F3D8 8F              .     xgdx 
14611 F3D9 CB 30           .0    addb #30
14612 F3DB F7 00 5E        ..^   stab 005e
14613 F3DE 30              0     tsx 
14614 F3DF E6 01           ..    ldab 01,x
14615 F3E1 4F              O     clra 
14616 F3E2 CE 00 0A        ...   ldx #000a
14617 F3E5 02              .     idiv 
14618 F3E6 CB 30           .0    addb #30
14619 F3E8 F7 00 5F        .._   stab 005f    ;5e and 5f now param in ascii
14620 F3EB F6 00 5E        ..^   ldab 005e
14621 F3EE 4F              O     clra 
14622 F3EF BD F1 5B        ..[   jsr f15b             ;jump53
14623 F3F2 F6 00 5F        .._   ldab 005f
14624 F3F5 4F              O     clra 
14625 F3F6 BD F1 5B        ..[   jsr f15b             ;jump53
14626 F3F9 CC B4 7B        ..{   ldd #b47b    "VENDS - "
14627 F3FC BD F1 E8        ...   jsr f1e8             ;jump57
14628 F3FF 30              0     tsx 
14629 F400 E6 01           ..    ldab 01,x
14630 F402 4F              O     clra 
14631 F403 05              .     asld 
14632 F404 C3 0D 1F        ...   addd #0d1f
14633 F407 8F              .     xgdx 
14634 F408 EC 00           ..    ldd 00,x
14635 F40A BD F2 4D        ..M   jsr f24d             ;jump58
14636 F40D CC 00 0A        ...   ldd #000a
14637 F410 BD F1 5B        ..[   jsr f15b             ;jump53
14638 F413 38              8     pulx 
14639 F414 39              9     rts 
14640
14641 jump112:
14642 F415 F6 0B C0        ...   ldab 0bc0
14643 F418 C4 02           ..    andb #02
14644 F41A 27 15           '.    beq 15
14645 F41C CE 00 21        ..!   ldx #0021
14646 F41F 1C 00           ..    bset 00,x, #80
14647 F421 F6 00 1D        ..    ldab 001d
14648 F424 C4 02           ..    andb #02
14649 F427 27 02           '.    beq 02
14650 F429 20 F7            .    bra f7
14651 F42B CE 00 21        ..!   ldx #0021
14652 F42E 1D 00           ..    bclr 00,x, #80
14653 F430 C6 10           ..    ldab #10
14654 F433 F7 10 2C        ..,   stab 102c ; set 9N1
14655 F436 C6 2E           ..    ldab #2e
14656 F438 F7 10 2D        ..-   stab 102d    ; enable SCI transmission
14657 F43B C6 05           ..    ldab #05
14658 F43D F7 10 2B        ..+   stab 102b    ; 2400 baud
14659 F440 CC 03 E8        ...   ldd #03e8
14660 F443 BD E5 71        ..q   jsr e571             ;msdelay
14661 F446 CE 10 00        ...   ldx #1000
14662 F449 1D 00 08        ...   bclr 00,x, #08  ; talk to ze printer
14663 F44C CE 00 19        ...   ldx #0019
14664 F44F 1D 00 40        ...   bclr 00,x, #40  
14665 F452 CE 00 1D        ...   ldx #001d
14666 F455 1D 00 01        ...   bclr 00,x, #01
14667 F458 CC 00 18        ...   ldd #0018
14668 F45B BD F1 5B        ..[   jsr f15b             ;jump53
14669 F45E CC B2 1B        ...   ldd #b21b    "         ROWE  INTERNATIONAL"
14670 F461 BD F1 E8        ...   jsr f1e8             ;jump57
14671 F464 CC 00 0A        ...   ldd #000a
14672 F467 BD F1 5B        ..[   jsr f15b             ;jump53
14673 F46A CC B2 38        ..8   ldd #b238    "         -------------------"
14674 F46D BD F1 E8        ...   jsr f1e8             ;jump57
14675 F470 CC 00 0A        ...   ldd #000a
14676 F473 BD F1 5B        ..[   jsr f15b             ;jump53
14677 F476 CC B2 56        ..V   ldd #b256
14678 F479 BD F1 E8        ...   jsr f1e8             ;jump57
14679 F47C CC 00 0A        ...   ldd #000a
14680 F47F BD F1 5B        ..[   jsr f15b             ;jump53
14681 F482 CC 00 0A        ...   ldd #000a
14682 F485 BD F1 5B        ..[   jsr f15b             ;jump53
14683 F488 CC B2 75        ..u   ldd #b275
14684 F48B BD F1 E8        ...   jsr f1e8             ;jump57
14685 F48E CC 00 0A        ...   ldd #000a
14686 F491 BD F1 5B        ..[   jsr f15b             ;jump53
14687 F494 CC B2 38        ..8   ldd #b238
14688 F497 BD F1 E8        ...   jsr f1e8             ;jump57
14689 F49A CC 00 0A        ...   ldd #000a
14690 F49D BD F1 5B        ..[   jsr f15b             ;jump53
14691 F4A0 CC 00 0A        ...   ldd #000a
14692 F4A3 BD F1 5B        ..[   jsr f15b             ;jump53
14693 F4A6 CC B2 90        ...   ldd #b290
14694 F4A9 BD F1 E8        ...   jsr f1e8             ;jump57
14695 F4AC CE 00 0A        ...   ldx #000a
14696 F4AF 3C              <     pshx 
14697 F4B0 CC 0C BC        ...   ldd #0cbc
14698 F4B3 BD F1 C1        ...   jsr f1c1             ;jump59
14699 F4B6 38              8     pulx 
14700 F4B7 CC 00 0A        ...   ldd #000a
14701 F4BA BD F1 5B        ..[   jsr f15b             ;jump53
14702 F4BD CC B2 A2        ...   ldd #b2a2
14703 F4C0 BD F1 E8        ...   jsr f1e8             ;jump57
14704 F4C3 CE 00 0A        ...   ldx #000a
14705 F4C6 3C              <     pshx 
14706 F4C7 CC 0C CC        ...   ldd #0ccc
14707 F4CA BD F1 C1        ...   jsr f1c1             ;jump59
14708 F4CD 38              8     pulx 
14709 F4CE CC 00 0A        ...   ldd #000a
14710 F4D1 BD F1 5B        ..[   jsr f15b             ;jump53
14711 F4D4 CC B2 B4        ...   ldd #b2b4
14712 F4D7 BD F1 E8        ...   jsr f1e8             ;jump57
14713 F4DA FC 0C E7        ...   ldd 0ce7
14714 F4DD BD F2 4D        ..M   jsr f24d             ;jump58
14715 F4E0 CC 00 0A        ...   ldd #000a
14716 F4E3 BD F1 5B        ..[   jsr f15b             ;jump53
14717 F4E6 CC 00 0A        ...   ldd #000a
14718 F4E9 BD F1 5B        ..[   jsr f15b             ;jump53
14719 F4EC CC B2 C6        ...   ldd #b2c6
14720 F4EF BD F1 E8        ...   jsr f1e8             ;jump57
14721 F4F2 FE 0D E9        ...   ldx 0de9
14722 F4F5 3C              <     pshx 
14723 F4F6 FC 0D E7        ...   ldd 0de7
14724 F4F9 BD F3 1F        ...   jsr f31f             ;jump60
14725 F4FC 38              8     pulx 
14726 F4FD CC B2 D8        ...   ldd #b2d8
14727 F500 BD F1 E8        ...   jsr f1e8             ;jump57
14728 F503 FE 0D ED        ...   ldx 0ded
14729 F506 3C              <     pshx 
14730 F507 FC 0D EB        ...   ldd 0deb
14731 F50A BD F3 1F        ...   jsr f31f             ;jump60
14732 F50D 38              8     pulx 
14733 F50E CC B2 EA        ...   ldd #b2ea
14734 F511 BD F1 E8        ...   jsr f1e8             ;jump57
14735 F514 FE 0D F1        ...   ldx 0df1
14736 F517 3C              <     pshx 
14737 F518 FC 0D EF        ...   ldd 0def
14738 F51B BD F3 1F        ...   jsr f31f             ;jump60
14739 F51E 38              8     pulx 
14740 F51F CC B2 FC        ...   ldd #b2fc
14741 F522 BD F1 E8        ...   jsr f1e8             ;jump57
14742 F525 FE 0D F9        ...   ldx 0df9
14743 F528 3C              <     pshx 
14744 F529 FC 0D F7        ...   ldd 0df7
14745 F52C BD F3 1F        ...   jsr f31f             ;jump60
14746 F52F 38              8     pulx 
14747 F530 CC B3 0E        ...   ldd #b30e
14748 F533 BD F1 E8        ...   jsr f1e8             ;jump57
14749 F536 FE 0D FD        ...   ldx 0dfd
14750 F539 3C              <     pshx 
14751 F53A FC 0D FB        ...   ldd 0dfb
14752 F53D BD F3 1F        ...   jsr f31f             ;jump60
14753 F540 38              8     pulx 
14754 F541 CC 00 0A        ...   ldd #000a
14755 F544 BD F1 5B        ..[   jsr f15b             ;jump53
14756 F547 CC B3 20        ..    ldd #b320
14757 F54A BD F1 E8        ...   jsr f1e8             ;jump57
14758 F54D CC 00 0A        ...   ldd #000a
14759 F550 BD F1 5B        ..[   jsr f15b             ;jump53
14760 F553 CC B3 31        ..1   ldd #b331
14761 F556 BD F1 E8        ...   jsr f1e8             ;jump57
14762 F559 FE 0D F5        ...   ldx 0df5
14763 F55C 3C              <     pshx 
14764 F55D FC 0D F3        ...   ldd 0df3
14765 F560 BD F3 1F        ...   jsr f31f             ;jump60
14766 F563 38              8     pulx 
14767 F564 CC B3 4A        ..J   ldd #b34a
14768 F567 BD F1 E8        ...   jsr f1e8             ;jump57
14769 F56A FC 0C DD        ...   ldd 0cdd
14770 F56D BD F2 4D        ..M   jsr f24d             ;jump58
14771 F570 FE 0C F5        ...   ldx 0cf5
14772 F573 3C              <     pshx 
14773 F574 FC 0C F3        ...   ldd 0cf3
14774 F577 BD F3 1F        ...   jsr f31f             ;jump60
14775 F57A 38              8     pulx 
14776 F57B CC B3 5C        ..\   ldd #b35c
14777 F57E BD F1 E8        ...   jsr f1e8             ;jump57
14778 F581 FC 0C DF        ...   ldd 0cdf
14779 F584 BD F2 4D        ..M   jsr f24d             ;jump58
14780 F587 FE 0C F9        ...   ldx 0cf9
14781 F58A 3C              <     pshx 
14782 F58B FC 0C F7        ...   ldd 0cf7
14783 F58E BD F3 1F        ...   jsr f31f             ;jump60
14784 F591 38              8     pulx 
14785 F592 CC B3 6E        ..n   ldd #b36e
14786 F595 BD F1 E8        ...   jsr f1e8             ;jump57
14787 F598 FC 0C E1        ...   ldd 0ce1
14788 F59B BD F2 4D        ..M   jsr f24d             ;jump58
14789 F59E FE 0C FD        ...   ldx 0cfd
14790 F5A1 3C              <     pshx 
14791 F5A2 FC 0C FB        ...   ldd 0cfb
14792 F5A5 BD F3 1F        ...   jsr f31f             ;jump60
14793 F5A8 38              8     pulx 
14794 F5A9 CC B3 80        ...   ldd #b380
14795 F5AC BD F1 E8        ...   jsr f1e8             ;jump57
14796 F5AF FC 0C E3        ...   ldd 0ce3
14797 F5B2 BD F2 4D        ..M   jsr f24d             ;jump58
14798 F5B5 FE 0D 01        ...   ldx 0d01
14799 F5B8 3C              <     pshx 
14800 F5B9 FC 0C FF        ...   ldd 0cff
14801 F5BC BD F3 1F        ...   jsr f31f             ;jump60
14802 F5BF 38              8     pulx 
14803 F5C0 CC B3 92        ...   ldd #b392
14804 F5C3 BD F1 E8        ...   jsr f1e8             ;jump57
14805 F5C6 FC 0C E5        ...   ldd 0ce5
14806 F5C9 BD F2 4D        ..M   jsr f24d             ;jump58
14807 F5CC FE 0D 05        ...   ldx 0d05
14808 F5CF 3C              <     pshx 
14809 F5D0 FC 0D 03        ...   ldd 0d03
14810 F5D3 BD F3 1F        ...   jsr f31f             ;jump60
14811 F5D6 38              8     pulx 
14812 F5D7 CC 00 0A        ...   ldd #000a
14813 F5DA BD F1 5B        ..[   jsr f15b             ;jump53
14814 F5DD CC B3 A4        ...   ldd #b3a4
14815 F5E0 BD F1 E8        ...   jsr f1e8             ;jump57
14816 F5E3 CC 00 0A        ...   ldd #000a
14817 F5E6 BD F1 5B        ..[   jsr f15b             ;jump53
14818 F5E9 CC B3 B3        ...   ldd #b3b3
14819 F5EC BD F1 E8        ...   jsr f1e8             ;jump57
14820 F5EF FC 0C F1        ...   ldd 0cf1
14821 F5F2 BD F2 99        ...   jsr f299             ;jump61
14822 F5F5 CC B3 CA        ...   ldd #b3ca
14823 F5F8 BD F1 E8        ...   jsr f1e8             ;jump57
14824 F5FB F6 0C DC        ...   ldab 0cdc
14825 F5FE 4F              O     clra 
14826 F5FF BD F2 0E        ...   jsr f20e             ;jump62
14827 F602 FC 0C E9        ...   ldd 0ce9
14828 F605 BD F2 99        ...   jsr f299             ;jump61
14829 F608 CC B3 DC        ...   ldd #b3dc
14830 F60B BD F1 E8        ...   jsr f1e8             ;jump57
14831 F60E F6 0C DB        ...   ldab 0cdb
14832 F611 4F              O     clra 
14833 F612 BD F2 0E        ...   jsr f20e             ;jump62
14834 F615 FC 0C EB        ...   ldd 0ceb
14835 F618 BD F2 99        ...   jsr f299             ;jump61
14836 F61B CC B3 EE        ...   ldd #b3ee
14837 F61E BD F1 E8        ...   jsr f1e8             ;jump57
14838 F621 F6 0C DA        ...   ldab 0cda
14839 F624 4F              O     clra 
14840 F625 BD F2 0E        ...   jsr f20e             ;jump62
14841 F628 FC 0C ED        ...   ldd 0ced
14842 F62B BD F2 99        ...   jsr f299             ;jump61
14843 F62E CC B4 00        ...   ldd #b400
14844 F631 BD F1 E8        ...   jsr f1e8             ;jump57
14845 F634 F6 0C D9        ...   ldab 0cd9
14846 F637 4F              O     clra 
14847 F638 BD F2 0E        ...   jsr f20e             ;jump62
14848 F63B FC 0C EF        ...   ldd 0cef
14849 F63E BD F2 99        ...   jsr f299             ;jump61
14850 F641 CC 00 0A        ...   ldd #000a
14851 F644 BD F1 5B        ..[   jsr f15b             ;jump53
14852 F647 CC B4 12        ...   ldd #b412
14853 F64A BD F1 E8        ...   jsr f1e8             ;jump57
14854 F64D FC 0D 07        ...   ldd 0d07
14855 F650 BD F2 4D        ..M   jsr f24d             ;jump58
14856 F653 FE 0D 11        ...   ldx 0d11
14857 F656 3C              <     pshx 
14858 F657 FC 0D 0F        ...   ldd 0d0f
14859 F65A BD F3 1F        ...   jsr f31f             ;jump60
14860 F65D 38              8     pulx 
14861 F65E CC B4 24        ..$   ldd #b424
14862 F661 BD F1 E8        ...   jsr f1e8             ;jump57
14863 F664 FC 0D 09        ...   ldd 0d09
14864 F667 BD F2 4D        ..M   jsr f24d             ;jump58
14865 F66A FE 0D 15        ...   ldx 0d15
14866 F66D 3C              <     pshx 
14867 F66E FC 0D 13        ...   ldd 0d13
14868 F671 BD F3 1F        ...   jsr f31f             ;jump60
14869 F674 38              8     pulx 
14870 F675 CC B4 36        ..6   ldd #b436
14871 F678 BD F1 E8        ...   jsr f1e8             ;jump57
14872 F67B FC 0D 0B        ...   ldd 0d0b
14873 F67E BD F2 4D        ..M   jsr f24d             ;jump58
14874 F681 FE 0D 19        ...   ldx 0d19
14875 F684 3C              <     pshx 
14876 F685 FC 0D 17        ...   ldd 0d17
14877 F688 BD F3 1F        ...   jsr f31f             ;jump60
14878 F68B 38              8     pulx 
14879 F68C CC B4 48        ..H   ldd #b448
14880 F68F BD F1 E8        ...   jsr f1e8             ;jump57
14881 F692 FC 0D 0D        ...   ldd 0d0d
14882 F695 BD F2 4D        ..M   jsr f24d             ;jump58
14883 F698 FE 0D 1D        ...   ldx 0d1d
14884 F69B 3C              <     pshx 
14885 F69C FC 0D 1B        ...   ldd 0d1b
14886 F69F BD F3 1F        ...   jsr f31f             ;jump60
14887 F6A2 38              8     pulx 
14888 F6A3 CC 00 0A        ...   ldd #000a
14889 F6A6 BD F1 5B        ..[   jsr f15b             ;jump53
14890 F6A9 CC B4 5A        ..Z   ldd #b45a
14891 F6AC BD F1 E8        ...   jsr f1e8             ;jump57
14892 F6AF CC 00 0A        ...   ldd #000a
14893 F6B2 BD F1 5B        ..[   jsr f15b             ;jump53
14894 F6B5 C6 01           ..    ldab #01
14895 F6B7 F7 00 54        ..T   stab 0054
14896 F6BA F6 00 54        ..T   ldab 0054
14897 F6BD C1 63           .c    cmpb #63
14898 F6BF 22 1B           ".    bhi 1b
14899 F6C1 F6 00 54        ..T   ldab 0054
14900 F6C4 4F              O     clra 
14901 F6C5 05              .     asld 
14902 F6C6 C3 08 C8        ...   addd #08c8
14903 F6C9 8F              .     xgdx 
14904 F6CA EC 00           ..    ldd 00,x
14905 F6CC C4 80           ..    andb #80
14906 F6CE 27 07           '.    beq 07
14907 F6D0 F6 00 54        ..T   ldab 0054
14908 F6D3 4F              O     clra 
14909 F6D4 BD F3 C1        ...   jsr f3c1             ;jump63
14910 F6D7 7C 00 54        |.T   inc 0054
14911 F6DA 20 DE            .    bra de
14912 F6DC CC 00 0A        ...   ldd #000a
14913 F6DF BD F1 5B        ..[   jsr f15b             ;jump53
14914 F6E2 F6 00 19        ...   ldab 0019
14915 F6E5 C4 40           .@    andb #40
14916 F6E7 26 07           &.    bne 07
14917 F6E9 FE 0C E7        ...   ldx 0ce7
14918 F6EC 08              .     inx 
14919 F6ED FF 0C E7        ...   stx 0ce7
14920 F6F0 CE 00 1D        ...   ldx #001d
14921 F6F3 1D 00 01        ...   bclr 00,x, #01
14922 F6F6 CC 03 E8        ...   ldd #03e8
14923 F6F9 BD E5 71        ..q   jsr e571             ;msdelay
14924 F6FC C6 03           ..    ldab #03
14925 F6FE F7 10 2B        ..+   stab 102b         ; back to 9600 baud
14926 F701 CE 10 00        ...   ldx #1000
14927 F704 1C 00 08        ...   bset 00,x, #08    ; set back to coin mech
14928 F707 F6 0B C0        ...   ldab 0bc0
14929 F70A C4 02           ..    andb #02
14930 F70C 27 06           '.    beq 06
14931 F70E CC 00 80        ...   ldd #0080
14932 F711 BD C7 E7        ...   jsr c7e7             ;jump37
14933 F714 7F 00 38        ..8   clr 0038
14934 F717 39              9     rts 
14935
14936 rti:
14937 F718 3C              <     pshx 
14938 F719 F6 0B C0        ...   ldab 0bc0    
14939 F71C C4 08           ..    andb #08
14940 F71E 27 03           '.    beq 03
14941 F720 BD C3 25        ..%   jsr c325             ;jump64
14942 F723 7C 00 0C        |..   inc 000c
14943 F726 F6 00 0C        ...   ldab 000c
14944 F729 C1 02           ..    cmpb #02
14945 F72B 26 13           &.    bne 13
14946 F72D 7F 00 0C        ...   clr 000c
14947 F730 F6 00 07        ...   ldab 0007
14948 F733 27 03           '.    beq 03
14949 F735 7A 00 07        z..   dec 0007
14950 F738 F6 00 00        ...   ldab 0000
14951 F73B 27 03           '.    beq 03
14952 F73D 7A 00 00        z..   dec 0000
14953 F740 7C 00 0B        |..   inc 000b
14954 F743 F6 00 0B        ...   ldab 000b
14955 F746 C1 08           ..    cmpb #08
14956 F748 26 37           &7    bne 37      ; to f781
14957 F74A 7F 00 0B        ...   clr 000b
14958 F74D FC 00 3B        ..;   ldd 003b
14959 F750 27 07           '.    beq 07
14960 F752 FE 00 3B        ..;   ldx 003b
14961 F755 09              .     dex 
14962 F756 FF 00 3B        ..;   stx 003b
14963 F759 CC 00 2C        ..,   ldd #002c
14964 F75C 30              0     tsx 
14965 F75D ED 00           ..    std 00,x
14966 F75F 30              0     tsx 
14967 F760 EC 00           ..    ldd 00,x
14968 F762 37              7     pshb 
14969 F763 36              6     psha 
14970 F764 CC 00 3A        ..:   ldd #003a
14971 F767 30              0     tsx 
14972 F768 A3 00           ..    subd 00,x
14973 F76A 31              1     ins 
14974 F76B 31              1     ins 
14975 F76C 25 13           %.    bcs 13
14976 F76E 30              0     tsx 
14977 F76F EE 00           ..    ldx 00,x
14978 F771 E6 00           ..    ldab 00,x
14979 F773 27 07           '.    beq 07
14980 F775 30              0     tsx 
14981 F776 EE 00           ..    ldx 00,x
14982 F778 6A 00           j.    dec 00,x
14983 F77A E6 00           ..    ldab 00,x
14984 F77C 38              8     pulx 
14985 F77D 08              .     inx 
14986 F77E 3C              <     pshx 
14987 F77F 20 DE            .    bra de             ; to f75f
14988
14989 F781 F6 00 32        ..2   ldab 0032
14990 F784 27 07           '.    beq 07             ; to f78d
14991 F786 F6 00 32        ..2   ldab 0032
14992 F789 C4 02           ..    andb #02
14993 F78B 26 08           &.    bne 08             ; to f795
14994
14995 F78D CE 10 00        ...   ldx #1000          ; chime off
14996 F790 1D 00 10        ..    bclr 00,x, #10
14997 F793 20 0D            .    bra 0d             ; to f7a2
14998
14999 F795 F6 00 32        ..2   ldab 0032
15000 F798 C4 01           ..    andb #01
15001 F79A 26 06           &.    bne 06             ; to f7a2
15002 F79C CE 10 00        ...   ldx #1000          ; chime on
15003 F79F 1C 00 10        ..    bset 00,x, #10
15004
15005 F7A2 7C 00 4C        |.L   inc 004c
15006 F7A5 F6 00 4C        ..L   ldab 004c
15007 F7A8 C1 4B           .K    cmpb #4b
15008 F7AA 26 13           &.    bne 13
15009 F7AC 7F 00 4C        ..L   clr 004c
15010 F7AF F6 00 4F        ..O   ldab 004f
15011 F7B2 27 03           '.    beq 03
15012 F7B4 7A 00 4F        z.O   dec 004f
15013 F7B7 F6 00 25        ..%   ldab 0025
15014 F7BA 27 03           '.    beq 03
15015 F7BC 7A 00 25        z.%   dec 0025
15016 F7BF F6 00 31        ..1   ldab 0031
15017 F7C2 26 03           &.    bne 03
15018 F7C4 BD FE 69        ..i   jsr fe69             ;inhibit interrupts
15019 F7C7 F6 00 7F        ...   ldab 007f
15020 F7CA 27 03           '.    beq 03
15021 F7CC BD FE 69        ..i   jsr fe69             ;inhibit interrupts
15022 F7CF C6 40           .@    ldab #40
15023 F7D1 F7 10 25        ..%   stab 1025
15024 F7D4 38              8     pulx 
15025 F7D5 3B              ;     rti 
15026
15027 main:
15028
15029 F7D6 7F 00 14        ...   clr 0014     ;0 -> 0014
15030
15031 ; clears the bits of U14 flipflop
15032 F7D9 5F              _     clrb         ;0 -> B
15033 F7DA F7 38 00        .8.   stab 3800    ;B -> 3800
15034
15035 F7DD C6 7F           ..    ldab #7f     ;7F -> B
15036 F7DF F7 00 1A        ...   stab 001a    ;B -> 001a
15037
15038 ; set changer outputs all on, row motors off
15039 F7E2 C6 7F           ..    ldab #7f     ;7F -> B
15040 F7E4 F7 30 00        .0.   stab 3000    ; 
15041
15042 ; sets priority select bits 0-3 (elevates interrupt priority of all interrupts)
15043 F7E7 C6 07           ..    ldab #07     ;7 -> B
15044 F7E9 F7 10 3C        ..<   stab 103c
15045
15046 ; Set PA7 output, PA3 input, RT clock rate to 314 Hz (4.9152Mhz / 2^14)
15047 F7EC C6 81           ..    ldab #81     ;81 -> B
15048 F7EE F7 10 26        ..&   stab 1026
15049
15050 ; clear ADC register
15051 F7F1 5F              _     clrb         ;0 -> B
15052 F7F2 F7 10 30        ..0   stab 1030
15053
15054 ; talk to coin mech, beep, tie clock motors & display reset high (off)
15055 F7F5 C6 C8           ..    ldab #c8     ;c8 -> B ; 11001000
15056 F7F7 F7 10 00        ...   stab 1000 ; to port A
15057
15058 ; sets PortD directions. XXX: Why is PD2 an output?
15059 F7FA C6 3E           .>    ldab #3e     ;3e -> B 00111110
15060 F7FC F7 10 09        ...   stab 1009 ; port D DDR
15061
15062 ; make PortD pins open-drain, set clock polarity
15063 F7FF C6 12           ..    ldab #12     ;12 -> B
15064 F801 F7 10 28        ..(   stab 1028 ; SPCR 00101000
15065
15066 ; initialize the display
15067 F804 BD BE 69        ..i   jsr be69             ;displayreset
15068
15069 ; initialize the bill validator
15070 F807 BD EA 59        ..Y   jsr ea59             ;jump65
15071
15072 F80A CC 00 64        ..d   ldd #0064    ; 100-unit delay
15073 F80D BD E5 71        ..q   jsr e571             ;msdelay
15074 ; lotsa text
15075 F810 CC B1 EF        ...   ldd #b1ef    " ROWE INT "
15076 F813 BD C0 BA        ...   jsr c0ba             ;display:
15077 F816 CC 01 F4        ...   ldd #01f4    ; 500-unit delay
15078 F819 BD E5 71        ..q   jsr e571             ;msdelay
15079 F81C CC B1 FA        ...   ldd #b1fa    "COPYRIGHT "
15080 F81F BD C0 BA        ...   jsr c0ba             ;display:
15081 F822 CC 01 F4        ...   ldd #01f4
15082 F825 BD E5 71        ..q   jsr e571             ;msdelay
15083 F828 CC B2 05        ...   ldd #b205    "   1993   "
15084 F82B BD C0 BA        ...   jsr c0ba             ;display:
15085 F82E CC 01 F4        ...   ldd #01f4
15086 F831 BD E5 71        ..q   jsr e571             ;msdelay
15087 F834 CC B2 10        ...   ldd #b210    "5900 VER 5"
15088 F837 BD C0 BA        ...   jsr c0ba             ;display:
15089 F83A CC 00 0A        ...   ldd #000a
15090 F83D BD E5 71        ..q   jsr e571             ;msdelay
15091
15092
15093 F840 7F 00 7F        ...   clr 007f
15094 F843 7F 00 21        ..!   clr 0021
15095 F846 7F 00 1F        ...   clr 001f
15096 F849 7F 00 1D        ...   clr 001d
15097 F84C 7F 00 1B        ...   clr 001b
15098 F84F 7F 00 19        ...   clr 0019
15099
15100 F852 F6 0B C0        ...   ldab 0bc0
15101 F855 C4 01           ..    andb #01
15102 F857 27 08           '.    beq 08           ; to f861
15103 F859 CE 0B C1        ...   ldx #0bc1
15104 F85C 1C 00 01        ...   bset 00,x, #01
15105 F85F 20 06            .    bra 06           ; to f867
15106 F861 CE 0B C1        ...   ldx #0bc1
15107 F864 1D 00 01        ...   bclr 00,x, #01
15108
15109 F867 F6 0B C0        ...   ldab 0bc0
15110 F86A C4 04           ..    andb #04
15111 F86C 27 08           '.    beq 08           ; to f876
15112 F86E CE 0B C1        ...   ldx #0bc1
15113 F871 1C 00 02        ...   bset 00,x, #02
15114 F874 20 06            .    bra 06           ; to f87c
15115 F876 CE 0B C1        ...   ldx #0bc1
15116 F879 1D 00 02        ..    bclr 00,x, #02
15117 F87C CE 0B C1        ...   ldx #0bc1
15118 F87F 1D 00 04        ..    bclr 00,x, #04
15119 F882 F6 0B C0        ...   ldab 0bc0
15120 F885 C4 02           ..    andb #02
15121 F887 27 2D           '-    beq 2d        ; to f8b6
15122 F889 C6 3C           .<    ldab #3c
15123 F88B F7 00 31        ..1   stab 0031
15124 F88E 0E              .     cli 
15125 F88F CC 00 FF        ...   ldd #00ff
15126 F892 BD C7 E7        ...   jsr c7e7             ;jump37
15127 F895 5F              _     clrb 
15128 F896 4F              O     clra 
15129 F897 FD 00 40        ..@   std 0040
15130 F89A C6 10           ..    ldab #10
15131 F89C F7 10 2C        ..,   stab 102c    ; set 9N1
15132 F89F C6 2E           ..    ldab #2e
15133 F8A1 F7 10 2D        ..-   stab 102d    ; enable SCI transmission
15134 F8A4 C6 03           ..    ldab #03
15135 F8A6 F7 10 2B        ..+   stab 102b    ; set 9600 baud
15136 F8A9 C6 46           .F    ldab #46     ; 70
15137 F8AB F7 00 2F        ../   stab 002f
15138 F8AE CC 07 D0        ...   ldd #07d0
15139 F8B1 BD E5 71        ..q   jsr e571             ;msdelay
15140 F8B4 20 2B            +    bra 2b       ; to f8e1
15141 F8B6 BD D0 94        ...   jsr d094             ;jump66 - init variables
15142 F8B9 C6 27           .'    ldab #27
15143 F8BB F7 10 2D        ..-   stab 102d    ; disable SCI transmission
15144 F8BE C6 07           ..    ldab #07
15145 F8C0 F7 10 2B        ..+   stab 102b    ; set 600 baud
15146 ; reset the changer
15147 F8C3 CE 00 1A        ...   ldx #001a
15148 F8C6 1C 00 04        ..    bset 00,x, #04
15149 F8C9 F6 00 1A        ...   ldab 001a
15150 F8CC F7 30 00        .0.   stab 3000    ; reset the changer
15151 F8CF CC 07 D0        ...   ldd #07d0
15152 F8D2 BD E5 71        ..q   jsr e571             ;msdelay
15153 F8D5 CE 00 1A        ...   ldx #001a
15154 F8D8 1D 00 04        ..    bclr 00,x, #04 
15155 F8DB F6 00 1A        ...   ldab 001a
15156 F8DE F7 30 00        .0.   stab 3000    ; pull reset line back
15157 ;
15158 F8E1 7F 0E 6A        ..j   clr 0e6a
15159 F8E4 BD D4 79        ..y   jsr d479             ;jump67
15160 F8E7 BD E8 9A        ...   jsr e89a             ;jump68
15161 F8EA 7F 00 06        ...   clr 0006
15162 F8ED CE 00 1D        ...   ldx #001d
15163 F8F0 1C 00 10        ..    bset 00,x, #10
15164 F8F3 CC 05 DC        ...   ldd #05dc
15165 F8F6 BD E5 71        ..q   jsr e571             ;msdelay
15166 F8F9 C6 1E           ..    ldab #1e
15167 F8FB F7 00 35        ..5   stab 0035
15168 F8FE 0E              .     cli 
15169
15170 ; begin of main loop
15171 goto85:
15172 F8FF BD E6 1B        ...   jsr e61b             ;jump4 set 0031 to 10
15173 F902 BD D1 05        ...   jsr d105             ;jump32 motors off
15174 F905 F6 10 0A        ...   ldab 100a
15175 F908 C4 08           ..    andb #08     ; 24VUN line too low
15176 F90A 27 46           'F    beq 46       ; to f952
15177 F90C F6 10 0A        ...   ldab 100a
15178 F90F C4 08           ..    andb #08
15179 F911 27 11           '.    beq 11
15180 F913 CE 00 1A        ...   ldx #001a
15181 F916 1C 00 04        ..    bset 00,x, #04
15182 F919 F6 00 1A        ...   ldab 001a
15183 F91C F7 30 00        .0.   stab 3000    ; changer reset
15184 F91F BD E6 1B        ...   jsr e61b             ;jump4
15185 F922 20 E8            .    bra e8
15186 F924 BD D0 94        ...   jsr d094             ;jump66
15187 F927 F6 0B C0        ...   ldab 0bc0
15188 F92A C4 01           ..    andb #01
15189 F92C 27 06           '.    beq 06
15190 F92E CE 0B C1        ...   ldx #0bc1
15191 F931 1C 00 01        ..    bset 00,x, #01
15192 F934 F6 0B C0        ...   ldab 0bc0
15193 F937 C4 04           ..    andb #04
15194 F939 27 06           '.    beq 06
15195 F93B CE 0B C1        ...   ldx #0bc1
15196 F93E 1C 00 02        ..    bset 00,x, #02
15197 F941 CE 00 1A        ...   ldx #001a
15198 F944 1D 00 04        ..    bclr 00,x, #04
15199 F947 F6 00 1A        ...   ldab 001a
15200 F94A F7 30 00        .0.   stab 3000   ; clear send & reset lines
15201 F94D C6 1E           ..    ldab #1e
15202 F94F F7 00 35        ..5   stab 0035
15203 ;
15204 F952 F6 0B C0        ...   ldab 0bc0
15205 F955 C4 08           ..    andb #08
15206 F957 27 16           '.    beq 16       ; to f96f
15207 F959 CE 00 02        ...   ldx #0002
15208 F95C 3C              <     pshx 
15209 F95D CC 10 00        ...   ldd #1000
15210 F960 BD E5 D7        ...   jsr e5d7             ;jump69 - poll bill validator
15211 F963 38              8     pulx 
15212 F964 83 00 00        ...   subd #0000
15213 F967 27 06           '.    beq 06
15214 F969 CE 0B C1        ...   ldx #0bc1
15215 F96C 1C 00 08        ..    bset 00,x, #08 ; set bill error bit
15216 ;
15217 F96F F6 0B C1        ...   ldab 0bc1
15218 F972 C4 07           ..    andb #07
15219 F974 27 0D           '.    beq 0d       ; to f983
15220 F976 F6 00 35        ..5   ldab 0035
15221 F979 26 08           &.    bne 08
15222 F97B CE 00 21        ..!   ldx #0021
15223 F97E 1C 00 20        ..    bset 00,x, #20
15224 F981 20 06           ..    bra 06       ; to f989
15225 ;
15226 F983 CE 00 21        ..!   ldx #0021
15227 F986 1D 00 20        ..    bclr 00,x, #20
15228 F989 BD BB 63         .    jsr bb63     ;jump200 - read the keypad
15229 F98C BD B8 00        ...   jsr b800     ;jump201 - interpret the keys and write to the display
15230 F98F F6 0B C0        ...   ldab 0bc0
15231 F992 C4 01           ..    andb #01
15232 F994 27 0B           '.    beq 0b
15233 F996 FC 00 40        ..@   ldd 0040
15234 F999 F3 00 3E        ..>   addd 003e
15235 F99C 26 03           &.    bne 03
15236 F99E BD D6 F6        ...   jsr d6f6             ;jump106
15237 F9A1 F6 00 12        ...   ldab 0012
15238 F9A4 C4 20           .     andb #20     ; test door switch
15239 F9A6 27 08           '.    beq 08
15240 F9A8 F6 00 35        ..5   ldab 0035
15241 F9AB 26 03           &.    bne 03
15242 F9AD 7E FA 79        ~.y   jmp fa79             ;goto83
15243 F9B0 CE 00 1F        ...   ldx #001f
15244 F9B3 1D 00 04        ...   bclr 00,x, #04
15245 F9B6 CE 00 1D        ...   ldx #001d
15246 F9B9 1C 00 10        ...   bset 00,x, #10
15247 F9BC F6 00 1F        ...   ldab 001f
15248 F9BF C4 20           .     andb #20
15249 F9C1 26 03           &.    bne 03
15250 F9C3 7E FA 74        ~.t   jmp fa74             ;goto84
15251 F9C6 F6 0B C0        ...   ldab 0bc0
15252 F9C9 C4 01           ..    andb #01
15253 F9CB 27 08           '.    beq 08
15254 F9CD CE 0B C1        ...   ldx #0bc1
15255 F9D0 1C 00 01        ...   bset 00,x, #01   ; set changer powerup error
15256 F9D3 20 06            .    bra 06
15257 F9D5 CE 0B C1        ...   ldx #0bc1
15258 F9D8 1D 00 01        ...   bclr 00,x, #01   ; unset changer powerup error
15259 F9DB F6 0B C0        ...   ldab 0bc0
15260 F9DE C4 04           ..    andb #04
15261 F9E0 27 08           '.    beq 08
15262 F9E2 CE 0B C1        ...   ldx #0bc1
15263 F9E5 1C 00 02        ...   bset 00,x, #02   ; set card powerup error
15264 F9E8 20 06            .    bra 06
15265 F9EA CE 0B C1        ...   ldx #0bc1
15266 F9ED 1D 00 02        ...   bclr 00,x, #02   ; unset card powerup error
15267 F9F0 CE 0B C1        ...   ldx #0bc1
15268 F9F3 1D 00 04        ...   bclr 00,x, #04   ; unset link powerup error
15269 F9F6 CE 00 1B        ...   ldx #001b
15270 F9F9 1D 00 02        ...   bclr 00,x, #02
15271 F9FC F6 0B C0        ...   ldab 0bc0
15272 F9FF C4 02           ..    andb #02
15273 FA01 27 27           ''    beq 27
15274 FA03 C6 3C           .<    ldab #3c
15275 FA05 F7 00 31        ..1   stab 0031
15276 FA08 0E              .     cli 
15277 FA09 CC 00 FF        ...   ldd #00ff
15278 FA0C BD C7 E7        ...   jsr c7e7             ;jump37
15279 FA0F 5F              _     clrb 
15280 FA10 4F              O     clra 
15281 FA11 FD 00 40        ..@   std 0040
15282 FA14 C6 10           ..    ldab #10
15283 FA16 F7 10 2C        ..,   stab 102c    ; set 9N1
15284 FA19 C6 2E           ..    ldab #2e
15285 FA1B F7 10 2D        ..-   stab 102d    ; enable SCI transmission
15286 FA1E C6 03           ..    ldab #03
15287 FA20 F7 10 2B        ..+   stab 102b    ; 9600 baud
15288 FA23 C6 46           .F    ldab #46     ; 70
15289 FA25 F7 00 2F        ../   stab 002f
15290 FA28 20 31            1    bra 31
15291 FA2A CE 00 21        ..!   ldx #0021
15292 FA2D 1D 00 40        ...   bclr 00,x, #40
15293 FA30 BD D0 94        ...   jsr d094             ;jump66 - init variables
15294 FA33 C6 27           .'    ldab #27
15295 FA35 F7 10 2D        ..-   stab 102d    ; disable SCI transmission
15296 FA38 C6 07           ..    ldab #07
15297 FA3A F7 10 2B        ..+   stab 102b     ; 600 baud
15298 FA3D CE 00 1A        ...   ldx #001a
15299 FA40 1C 00 04        ...   bset 00,x, #04
15300 FA43 F6 00 1A        ...   ldab 001a
15301 FA46 F7 30 00        .0.   stab 3000    ; changer reset line high
15302 FA49 CC 00 32        ..2   ldd #0032
15303 FA4C BD E5 71        ..q   jsr e571             ;msdelay
15304 FA4F CE 00 1A        ...   ldx #001a
15305 FA52 1D 00 04        ...   bclr 00,x, #04
15306 FA55 F6 00 1A        ...   ldab 001a
15307 FA58 F7 30 00        .0.   stab 3000    ; changer reset line low
15308 FA5B BD D4 79        ..y   jsr d479             ;jump67
15309 FA5E BD E8 9A        ...   jsr e89a             ;jump68
15310 FA61 BD BE 69        ..i   jsr be69             ;displayreset
15311 FA64 7F 00 06        ...   clr 0006
15312 FA67 CE 00 1F        ...   ldx #001f
15313 FA6A 1D 00           ..    bclr add,x 00,x
15314 FA6C 20 C6            .    bra c6
15315 FA6E 1E F7 00 35     ...5  brset f7,x 00 35
15316 FA72 20 03            .    bra 03
15317 goto84:
15318 FA74 BD DE E7        ...   jsr dee7             ;jump116
15319 FA77 20 66            f    bra 66
15320 goto83:
15321 FA79 F6 00 12        ...   ldab 0012
15322 FA7C C4 20           .     andb #20
15323 FA7E 27 5F           '_    beq 5f
15324 FA80 F6 00 1F        ...   ldab 001f
15325 FA83 C4 20           .     andb #20
15326 FA85 26 03           &.    bne 03
15327 FA87 BD E5 AA        ...   jsr e5aa             ;jump12
15328 FA8A CE 00 1F        ...   ldx #001f
15329 FA8D 1C 00           ..    bset add,x 00,x
15330 FA8F 20 F6            .    bra f6
15331 FA91 00              .     test 
15332 FA92 12              .     brset 
15333 FA93 C4 01           ..    andb #01
15334 FA95 26 33           &3    bne 33
15335 FA97 F6 00 1D        ...   ldab 001d
15336 FA9A C4 08           ..    andb #08
15337 FA9C 27 2A           '*    beq 2a        ; to fac8, to fad0
15338 FA9E F6 00 1F        ...   ldab 001f
15339 FAA1 C4 04           ..    andb #04
15340 FAA3 26 14           &.    bne 14
15341 FAA5 CE 00 1F        ...   ldx #001f
15342 FAA8 1C 00 04        ...   bset 00,x, #04
15343 FAAB CE 00 1F        ...   ldx #001f
15344 FAAE 1C 00           ..    bset add,x 00,x
15345 FAB0 80 CC           ..    suba #cc
15346 FAB2 02              .     idiv 
15347 FAB3 33              3     pulb 
15348 FAB4 FD 00 3B        ..;   std 003b
15349 FAB7 20 09            .    bra 09       ; to fac2
15350 ;
15351 FAB9 BD E5 AA        ...   jsr e5aa             ;jump12
15352 FABC CE 00 1F        ...   ldx #001f
15353 FABF 1D 00 04        ...   bclr 00,x, #04
15354 FAC2 CE 00 1D        ...   ldx #001d
15355 FAC5 1D 00 08        ...   bclr 00,x, #08
15356 FAC8 20 06            .    bra 06       ; to fad0
15357 FACA CE 00 1D        ...   ldx #001d
15358 FACD 1C 00 08        ...   bset 00,x, #08
15359 FAD0 F6 00 1F        ...   ldab 001f
15360 FAD3 C4 04           ..    andb #04
15361 FAD5 26 05           &.    bne 05       ; to fadc - service menu
15362 FAD7 BD 81 00        ...   jsr 8100             ;jump72 - preservice menu?
15363 FADA 20 03            .    bra 03
15364 FADC BD 84 A0        ...   jsr 84a0             ;jump73
15365 FADF 7E F8 FF        ~..   jmp f8ff             ;goto85
15366 ; main should never return in theory.
15367
15368
15369 ; error interrupts (see vectors at end)
15370 FAE2 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15371 FAE5 BD C0 BA        ...   jsr c0ba             ;display:
15372 FAE8 CC 07 D0        ...   ldd #07d0
15373 FAEB BD E5 71        ..q   jsr e571             ;msdelay
15374 FAEE 3B              ;     rti 
15375 FAEF CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15376 FAF2 BD C0 BA        ...   jsr c0ba             ;display:
15377 FAF5 CC 07 D0        ...   ldd #07d0
15378 FAF8 BD E5 71        ..q   jsr e571             ;msdelay
15379 FAFB 3B              ;     rti 
15380 FAFC CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15381 FAFF BD C0 BA        ...   jsr c0ba             ;display:
15382 FB02 CC 07 D0        ...   ldd #07d0
15383 FB05 BD E5 71        ..q   jsr e571             ;msdelay
15384 FB08 3B              ;     rti 
15385 FB09 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15386 FB0C BD C0 BA        ...   jsr c0ba             ;display:
15387 FB0F CC 07 D0        ...   ldd #07d0
15388 FB12 BD E5 71        ..q   jsr e571             ;msdelay
15389 FB15 3B              ;     rti 
15390 FB16 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15391 FB19 BD C0 BA        ...   jsr c0ba             ;display:
15392 FB1C CC 07 D0        ...   ldd #07d0
15393 FB1F BD E5 71        ..q   jsr e571             ;msdelay
15394 FB22 3B              ;     rti 
15395 FB23 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15396 FB26 BD C0 BA        ...   jsr c0ba             ;display:
15397 FB29 CC 07 D0        ...   ldd #07d0
15398 FB2C BD E5 71        ..q   jsr e571             ;msdelay
15399 FB2F 3B              ;     rti 
15400 FB30 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15401 FB33 BD C0 BA        ...   jsr c0ba             ;display:
15402 FB36 CC 07 D0        ...   ldd #07d0
15403 FB39 BD E5 71        ..q   jsr e571             ;msdelay
15404 FB3C 3B              ;     rti 
15405 FB3D CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15406 FB40 BD C0 BA        ...   jsr c0ba             ;display:
15407 FB43 CC 07 D0        ...   ldd #07d0
15408 FB46 BD E5 71        ..q   jsr e571             ;msdelay
15409 FB49 3B              ;     rti 
15410 FB4A CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15411 FB4D BD C0 BA        ...   jsr c0ba             ;display:
15412 FB50 CC 07 D0        ...   ldd #07d0
15413 FB53 BD E5 71        ..q   jsr e571             ;msdelay
15414 FB56 3B              ;     rti 
15415 FB57 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15416 FB5A BD C0 BA        ...   jsr c0ba             ;display:
15417 FB5D CC 07 D0        ...   ldd #07d0
15418 FB60 BD E5 71        ..q   jsr e571             ;msdelay
15419 FB63 3B              ;     rti 
15420 FB64 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15421 FB67 BD C0 BA        ...   jsr c0ba             ;display:
15422 FB6A CC 07 D0        ...   ldd #07d0
15423 FB6D BD E5 71        ..q   jsr e571             ;msdelay
15424 FB70 3B              ;     rti 
15425 FB71 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15426 FB74 BD C0 BA        ...   jsr c0ba             ;display:
15427 FB77 CC 07 D0        ...   ldd #07d0
15428 FB7A BD E5 71        ..q   jsr e571             ;msdelay
15429 FB7D 3B              ;     rti 
15430 FB7E CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15431 FB81 BD C0 BA        ...   jsr c0ba             ;display:
15432 FB84 CC 07 D0        ...   ldd #07d0
15433 FB87 BD E5 71        ..q   jsr e571             ;msdelay
15434 FB8A 3B              ;     rti 
15435 FB8B CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15436 FB8E BD C0 BA        ...   jsr c0ba             ;display:
15437 FB91 CC 07 D0        ...   ldd #07d0
15438 FB94 BD E5 71        ..q   jsr e571             ;msdelay
15439 FB97 3B              ;     rti 
15440 FB98 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15441 FB9B BD C0 BA        ...   jsr c0ba             ;display:
15442 FB9E CC 07 D0        ...   ldd #07d0
15443 FBA1 BD E5 71        ..q   jsr e571             ;msdelay
15444 FBA4 3B              ;     rti 
15445 FBA5 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15446 FBA8 BD C0 BA        ...   jsr c0ba             ;display:
15447 FBAB CC 07 D0        ...   ldd #07d0
15448 FBAE BD E5 71        ..q   jsr e571             ;msdelay
15449 FBB1 3B              ;     rti 
15450 FBB2 BD FE 69        ..i   jsr fe69             ;inhibit interrupts
15451 FBB5 3B              ;     rti 
15452 FBB6 BD FE 69        ..i   jsr fe69             ;inhibit interrupts
15453 FBB9 3B              ;     rti 
15454
15455 jump38:
15456 ; passed a u16 on the stack, i, and a u16 in D, j
15457 ; multiplication funciton of some sort?
15458 FBBA 3C              <     pshx 
15459 FBBB 37              7     pshb 
15460 FBBC 30              0     tsx 
15461 FBBD E6 06           ..    ldab 06,x   ; lower 8-bits of i
15462 FBBF 3D              =     mul         ; A*B => D
15463 FBC0 A6 00           ..    ldaa 00,x
15464 FBC2 37              7     pshb 
15465 FBC3 E6 05           ..    ldab 05,x
15466 FBC5 3D              =     mul 
15467 FBC6 32              2     pula 
15468 FBC7 1B              .     aba 
15469 FBC8 33              3     pulb 
15470 FBC9 36              6     psha 
15471 FBCA A6 06           ..    ldaa 06,x
15472 FBCC 3D              =     mul 
15473 FBCD 37              7     pshb 
15474 FBCE AB 00           ..    adda 00,x
15475 FBD0 36              6     psha 
15476 FBD1 EC 03           ..    ldd 03,x
15477 FBD3 ED 05           ..    std 05,x
15478 FBD5 38              8     pulx 
15479 FBD6 8F              .     xgdx 
15480 FBD7 83 00 00        ...   subd #0000
15481 FBDA 31              1     ins 
15482 FBDB 38              8     pulx 
15483 FBDC 31              1     ins 
15484 FBDD 31              1     ins 
15485 FBDE 39              9     rts 
15486
15487 jump46:
15488 FBDF BD FB E8        ...   jsr fbe8             ;jump86
15489 FBE2 BD FC 25        ..%   jsr fc25             ;jump85
15490 FBE5 7E FC 04        ~..   jmp fc04             ;goto87
15491
15492 jump86:
15493 FBE8 3C              <     pshx 
15494 FBE9 8F              .     xgdx 
15495 FBEA EC 02           ..    ldd 02,x
15496 FBEC 37              7     pshb 
15497 FBED 36              6     psha 
15498 FBEE EC 00           ..    ldd 00,x
15499 FBF0 37              7     pshb 
15500 FBF1 36              6     psha 
15501 FBF2 34              4     des 
15502 FBF3 34              4     des 
15503 FBF4 34              4     des 
15504 FBF5 34              4     des 
15505 FBF6 3C              <     pshx 
15506 FBF7 30              0     tsx 
15507 FBF8 EC 12           ..    ldd 12,x
15508 FBFA ED 04           ..    std 04,x
15509 FBFC EC 0C           ..    ldd 0c,x
15510 FBFE ED 02           ..    std 02,x
15511 FC00 EC 10           ..    ldd 10,x
15512 FC02 38              8     pulx 
15513 FC03 39              9     rts 
15514
15515 goto87:
15516 FC04 ED 00           ..    std 00,x
15517 FC06 3C              <     pshx 
15518 FC07 30              0     tsx 
15519 FC08 EC 08           ..    ldd 08,x
15520 FC0A ED 0A           ..    std 0a,x
15521 FC0C EC 02           ..    ldd 02,x
15522 FC0E ED 0C           ..    std 0c,x
15523 FC10 38              8     pulx 
15524 FC11 ED 02           ..    std 02,x
15525 FC13 EC 00           ..    ldd 00,x
15526 FC15 26 06           &.    bne 06
15527 FC17 6D 02           m.    tst 02,x
15528 FC19 26 02           &.    bne 02
15529 FC1B 6D 03           m.    tst 03,x
15530 FC1D 31              1     ins 
15531 FC1E 31              1     ins 
15532 FC1F 38              8     pulx 
15533 FC20 31              1     ins 
15534 FC21 31              1     ins 
15535 FC22 31              1     ins 
15536 FC23 31              1     ins 
15537 FC24 39              9     rts 
15538
15539 jump85:
15540 FC25 3C              <     pshx 
15541 FC26 30              0     tsx 
15542 FC27 E3 06           ..    addd 06,x
15543 FC29 37              7     pshb 
15544 FC2A 36              6     psha 
15545 FC2B EC 02           ..    ldd 02,x
15546 FC2D ED 06           ..    std 06,x
15547 FC2F EC 04           ..    ldd 04,x
15548 FC31 E3 08           ..    addd 08,x
15549 FC33 ED 08           ..    std 08,x
15550 FC35 32              2     pula 
15551 FC36 33              3     pulb 
15552 FC37 C9 00           ..    adcb #00
15553 FC39 89 00           ..    adca #00
15554 FC3B 83 00 00        ...   subd #0000
15555 FC3E 26 06           &.    bne 06
15556 FC40 6D 08           m.    tst 08,x
15557 FC42 26 02           &.    bne 02
15558 FC44 6D 09           m.    tst 09,x
15559 FC46 38              8     pulx 
15560 FC47 31              1     ins 
15561 FC48 31              1     ins 
15562 FC49 31              1     ins 
15563 FC4A 31              1     ins 
15564 FC4B 39              9     rts 
15565
15566 jump83:
15567 FC4C 3C              <     pshx 
15568 FC4D 3C              <     pshx 
15569 FC4E 37              7     pshb 
15570 FC4F 36              6     psha 
15571 FC50 3C              <     pshx 
15572 FC51 3C              <     pshx 
15573 FC52 3C              <     pshx 
15574 FC53 18 3C           .<    pshy 
15575 FC55 30              0     tsx 
15576 FC56 4F              O     clra 
15577 FC57 A7 04           ..    staa 04,x
15578 FC59 7E FC 6D        ~.m   jmp fc6d             ;goto88
15579
15580 jump82:
15581 FC5C 3C              <     pshx 
15582 FC5D 3C              <     pshx 
15583 FC5E 37              7     pshb 
15584 FC5F 36              6     psha 
15585 FC60 3C              <     pshx 
15586 FC61 3C              <     pshx 
15587 FC62 3C              <     pshx 
15588 FC63 18 3C           .<    pshy 
15589 FC65 30              0     tsx 
15590 FC66 86 01           ..    ldaa #01
15591 FC68 A7 04           ..    staa 04,x
15592 FC6A 7E FC 6D        ~.m   jmp fc6d             ;goto88
15593 goto88:
15594 FC6D 1A EE 0E        ...   ldy 0e,x
15595 FC70 EC 08           ..    ldd 08,x
15596 FC72 ED 0E           ..    std 0e,x
15597 FC74 EC 14           ..    ldd 14,x
15598 FC76 ED 0C           ..    std 0c,x
15599 FC78 EC 12           ..    ldd 12,x
15600 FC7A ED 0A           ..    std 0a,x
15601 FC7C 1A EF 12        ...   sty 12,x
15602 FC7F 4F              O     clra 
15603 FC80 5F              _     clrb 
15604 FC81 ED 08           ..    std 08,x
15605 FC83 ED 06           ..    std 06,x
15606 FC85 EC 0A           ..    ldd 0a,x
15607 FC87 1A A3 0E        ...   cmpd 0e,x
15608 FC8A 22 23           "#    bhi 23
15609 FC8C 27 15           '.    beq 15
15610 FC8E 1E 04 01 08     ....  brset 04,x 01 08
15611 FC92 CC 00 00        ...   ldd #0000
15612 FC95 ED 14           ..    std 14,x
15613 FC97 7E FE 04        ~..   jmp fe04             ;goto89
15614 FC9A EC 0C           ..    ldd 0c,x
15615 FC9C ED 14           ..    std 14,x
15616 FC9E EC 0A           ..    ldd 0a,x
15617 FCA0 7E FD E3        ~..   jmp fde3             ;goto90
15618 FCA3 83 00 00        ...   subd #0000
15619 FCA6 27 12           '.    beq 12
15620 FCA8 EC 0C           ..    ldd 0c,x
15621 FCAA 1A A3 10        ...   cmpd 10,x
15622 FCAD 25 DF           %.    bcs df
15623 FCAF 6D 0E           m.    tst 0e,x
15624 FCB1 26 70           &p    bne 70
15625 FCB3 6D 0F           m.    tst 0f,x
15626 FCB5 27 1A           '.    beq 1a
15627 FCB7 7E FD A4        ~..   jmp fda4             ;goto91
15628 FCBA 3C              <     pshx 
15629 FCBB 3C              <     pshx 
15630 FCBC 18 38           .8    puly 
15631 FCBE EC 0C           ..    ldd 0c,x
15632 FCC0 EE 10           ..    ldx 10,x
15633 FCC2 02              .     idiv 
15634 FCC3 18 1E 04 01 01  ..... brset 04,y 01 01
15635 FCC8 8F              .     xgdx 
15636 FCC9 38              8     pulx 
15637 FCCA ED 14           ..    std 14,x
15638 FCCC 4F              O     clra 
15639 FCCD 5F              _     clrb 
15640 FCCE 7E FD E3        ~..   jmp fde3             ;goto90
15641 FCD1 3C              <     pshx 
15642 FCD2 3C              <     pshx 
15643 FCD3 18 38           .8    puly 
15644 FCD5 EC 0A           ..    ldd 0a,x
15645 FCD7 EE 10           ..    ldx 10,x
15646 FCD9 3C              <     pshx 
15647 FCDA 02              .     idiv 
15648 FCDB CD EF 0A        ...   stx 02x,y
15649 FCDE 38              8     pulx 
15650 FCDF 3C              <     pshx 
15651 FCE0 03              .     fdiv 
15652 FCE1 CD EF 0E        ...   stx 02x,y
15653 FCE4 38              8     pulx 
15654 FCE5 18 E3 0C        ...   addd 0c,y
15655 FCE8 24 1B           $.    bcc 1b
15656 FCEA 18 ED 0C        ...   std 0c,y
15657 FCED 4F              O     clra 
15658 FCEE C6 01           ..    ldab #01
15659 FCF0 3C              <     pshx 
15660 FCF1 03              .     fdiv 
15661 FCF2 8F              .     xgdx 
15662 FCF3 18 E3 0E        ...   addd 0e,y
15663 FCF6 24 03           $.    bcc 03
15664 FCF8 18 6C 0A        .l.   inc 0a,y
15665 FCFB 18 ED 0E        ...   std 0e,y
15666 FCFE 8F              .     xgdx 
15667 FCFF 38              8     pulx 
15668 FD00 18 E3 0C        ...   addd 0c,y
15669 FD03 25 E5           %.    bcs e5
15670 FD05 02              .     idiv 
15671 FD06 8F              .     xgdx 
15672 FD07 18 E3 0E        ...   addd 0e,y
15673 FD0A 24 03           $.    bcc 03
15674 FD0C 18 6C 0A        .l.   inc 0a,y
15675 FD0F 18 1F 04 01 07  ..... brclr 04,y 01 07
15676 FD14 8F              .     xgdx 
15677 FD15 18 6F 0A        .o.   clr 0a,y
15678 FD18 18 6F 0B        .o.   clr 0b,y
15679 FD1B 38              8     pulx 
15680 FD1C ED 14           ..    std 14,x
15681 FD1E EC 0A           ..    ldd 0a,x
15682 FD20 7E FD E3        ~..   jmp fde3             ;goto90
15683 FD23 86 08           ..    ldaa #08
15684 FD25 A7 05           ..    staa 05,x
15685 FD27 69              i     rol 
15686 FD28 0D              .     sec 
15687 FD29 69              i     rol 
15688 FD2A 0C              .     clc 
15689 FD2B 69              i     rol 
15690 FD2C 0B              .     sev 
15691 FD2D 69              i     rol 
15692 FD2E 0A              .     clv 
15693 FD2F 69              i     rol 
15694 FD30 09              .     dex 
15695 FD31 EC 0B           ..    ldd 0b,x
15696 FD33 A3 10           ..    subd 10,x
15697 FD35 ED 14           ..    std 14,x
15698 FD37 EC 09           ..    ldd 09,x
15699 FD39 E2 0F           ..    sbcb 0f,x
15700 FD3B A2 0E           ..    sbca 0e,x
15701 FD3D 25 06           %.    bcs 06
15702 FD3F ED 09           ..    std 09,x
15703 FD41 EC 14           ..    ldd 14,x
15704 FD43 ED 0B           ..    std 0b,x
15705 FD45 6A 05           j.    dec 05,x
15706 FD47 26 DE           &.    bne de
15707 FD49 69              i     rol 
15708 FD4A 0D              .     sec 
15709 FD4B 1F 04 01 09     ....  brclr 04,x 01 09
15710 FD4F EC 0B           ..    ldd 0b,x
15711 FD51 ED 14           ..    std 14,x
15712 FD53 EC 09           ..    ldd 09,x
15713 FD55 7E FD E3        ~..   jmp fde3             ;goto90
15714 FD58 4F              O     clra 
15715 FD59 E6 0D           ..    ldab 0d,x
15716 FD5B 53              S     comb 
15717 FD5C ED 14           ..    std 14,x
15718 FD5E 5F              _     clrb 
15719 FD5F 7E FD E3        ~..   jmp fde3             ;goto90
15720 FD62 86 10           ..    ldaa #10
15721 FD64 A7 05           ..    staa 05,x
15722 FD66 69              i     rol 
15723 FD67 0D              .     sec 
15724 FD68 69              i     rol 
15725 FD69 0C              .     clc 
15726 FD6A 69              i     rol 
15727 FD6B 0B              .     sev 
15728 FD6C 69              i     rol 
15729 FD6D 0A              .     clv 
15730 FD6E 69              i     rol 
15731 FD6F 09              .     dex 
15732 FD70 69              i     rol 
15733 FD71 08              .     inx 
15734 FD72 EC 0A           ..    ldd 0a,x
15735 FD74 A3 10           ..    subd 10,x
15736 FD76 ED 14           ..    std 14,x
15737 FD78 EC 08           ..    ldd 08,x
15738 FD7A E2 0F           ..    sbcb 0f,x
15739 FD7C 82 00           ..    sbca #00
15740 FD7E 25 06           %.    bcs 06
15741 FD80 ED 08           ..    std 08,x
15742 FD82 EC 14           ..    ldd 14,x
15743 FD84 ED 0A           ..    std 0a,x
15744 FD86 6A 05           j.    dec 05,x
15745 FD88 26 DC           &.    bne dc
15746 FD8A 69              i     rol 
15747 FD8B 0D              .     sec 
15748 FD8C 69              i     rol 
15749 FD8D 0C              .     clc 
15750 FD8E 1F 04 01 08     ....  brclr 04,x 01 08
15751 FD92 EC 0A           ..    ldd 0a,x
15752 FD94 ED 14           ..    std 14,x
15753 FD96 EC 08           ..    ldd 08,x
15754 FD98 20 49            I    bra 49
15755 FD9A EC 0C           ..    ldd 0c,x
15756 FD9C 43              C     coma 
15757 FD9D 53              S     comb 
15758 FD9E ED 14           ..    std 14,x
15759 FDA0 4F              O     clra 
15760 FDA1 5F              _     clrb 
15761 FDA2 20 3F            ?    bra 3f
15762 goto91:
15763 FDA4 2B BC           +.    bmi bc
15764 FDA6 86 10           ..    ldaa #10
15765 FDA8 A7 05           ..    staa 05,x
15766 FDAA 69              i     rol 
15767 FDAB 0D              .     sec 
15768 FDAC 69              i     rol 
15769 FDAD 0C              .     clc 
15770 FDAE 69              i     rol 
15771 FDAF 0B              .     sev 
15772 FDB0 69              i     rol 
15773 FDB1 0A              .     clv 
15774 FDB2 69              i     rol 
15775 FDB3 07              .     tpa 
15776 FDB4 EC 0A           ..    ldd 0a,x
15777 FDB6 A3 10           ..    subd 10,x
15778 FDB8 ED 14           ..    std 14,x
15779 FDBA A6 07           ..    ldaa 07,x
15780 FDBC A2 0F           ..    sbca 0f,x
15781 FDBE 25 06           %.    bcs 06
15782 FDC0 A7 07           ..    staa 07,x
15783 FDC2 EC 14           ..    ldd 14,x
15784 FDC4 ED 0A           ..    std 0a,x
15785 FDC6 6A 05           j.    dec 05,x
15786 FDC8 26 E0           &.    bne e0
15787 FDCA 69              i     rol 
15788 FDCB 0D              .     sec 
15789 FDCC 69              i     rol 
15790 FDCD 0C              .     clc 
15791 FDCE 1F 04 01 09     ....  brclr 04,x 01 09
15792 FDD2 EC 0A           ..    ldd 0a,x
15793 FDD4 ED 14           ..    std 14,x
15794 FDD6 4F              O     clra 
15795 FDD7 E6 07           ..    ldab 07,x
15796 FDD9 20 08            .    bra 08
15797 FDDB EC 0C           ..    ldd 0c,x
15798 FDDD 43              C     coma 
15799 FDDE 53              S     comb 
15800 FDDF ED 14           ..    std 14,x
15801 FDE1 4F              O     clra 
15802 FDE2 5F              _     clrb 
15803 goto90:
15804 FDE3 1F 04 80 12     ....  brclr 04,x 80 12
15805 FDE7 43              C     coma 
15806 FDE8 53              S     comb 
15807 FDE9 63 14           c.    com 14,x
15808 FDEB 63 15           c.    com 15,x
15809 FDED 6C 15           l.    inc 15,x
15810 FDEF 26 08           &.    bne 08
15811 FDF1 6C 14           l.    inc 14,x
15812 FDF3 26 04           &.    bne 04
15813 FDF5 5C              \     incb 
15814 FDF6 26 01           &.    bne 01
15815 FDF8 4C              L     inca 
15816 FDF9 83 00 00        ...   subd #0000
15817 FDFC 26 06           &.    bne 06
15818 FDFE 6D 14           m.    tst 14,x
15819 FE00 26 02           &.    bne 02
15820 FE02 6D 15           m.    tst 15,x
15821 goto89:
15822 FE04 18 38           .8    puly 
15823 FE06 38              8     pulx 
15824 FE07 31              1     ins 
15825 FE08 31              1     ins 
15826 FE09 31              1     ins 
15827 FE0A 31              1     ins 
15828 FE0B 31              1     ins 
15829 FE0C 31              1     ins 
15830 FE0D 31              1     ins 
15831 FE0E 31              1     ins 
15832 FE0F 31              1     ins 
15833 FE10 31              1     ins 
15834 FE11 31              1     ins 
15835 FE12 31              1     ins 
15836 FE13 31              1     ins 
15837 FE14 31              1     ins 
15838 FE15 39              9     rts 
15839
15840 jump2:
15841 ; passed a structure (in code following the call to jump2) and a number D
15842 ; popular D candidates come from $48, $42, $9, $a, etc...
15843 ; D must be between 0 and len, inclusive.
15844 ; structure {
15845 ;    u16 var1, len;
15846 ;    u16 jmplocs[len+2];
15847 ; }
15848 FE16 38              8     pulx 
15849 FE17 A3 00           ..    subd 00,x     ; D -= var1
15850 FE19 2D 05           -.    blt 05        ; if D<0, to fe20, where D=-1
15851 FE1B 1A A3 02        ...   cmpd 02,x     ;
15852 FE1E 2F 03           /.    ble 03        ; if D > len, D=-1, else to fe23
15853 FE20 CC FF FF        ...   ldd #ffff
15854 FE23 3C              <     pshx          ; push return ptr back onto stack
15855 FE24 05              .     asld          ; D *= 2
15856 FE25 30              0     tsx 
15857 FE26 E3 00           ..    addd 00,x     ; D += return-ptr
15858 FE28 C3 00 06        ...   addd #0006    ;        + 6
15859 FE2B 8F              .     xgdx 
15860 FE2C EC 00           ..    ldd 00,x      ; return ptr = jmplocs[orig D]
15861 FE2E 30              0     tsx
15862 FE2F ED 00           ..    std 00,x
15863 FE31 39              9     rts 
15864
15865 jump25:
15866 ; this looks like a switch statement
15867 ; we're passed an array of 4-byte items... this is passed in the code segment
15868 ; we take the return address and start counting until we hit a double zero.
15869 ; hence much of the code following this call in a standard disassembly is garbage
15870 ; we also look at D - common values passed to use are contents of $9, $12, $15, $4A or the SCI $102f
15871 FE32 38              8     pulx 
15872 FE33 6D 04           m.    tst 04,x
15873 FE35 26 04           &.    bne 04     ; to fe3b if this is not the last one
15874 FE37 6D 05           m.    tst 05,x   ; double check it really is last one.
15875 FE39 27 0A           '.    beq 0a     ; to fe45
15876 FE3B A3 02           ..    subd 02,x  ; subtract lower order bits from D
15877 FE3D 27 06           '.    beq 06     ; to fe45
15878 FE3F 08              .     inx        ; move the array index up one
15879 FE40 08              .     inx 
15880 FE41 08              .     inx 
15881 FE42 08              .     inx 
15882 FE43 20 EE            .    bra ee     ; to fe33
15883 FE45 EE 00           ..    ldx 00,x   ; return to our destination address
15884 FE47 6E 00           n.    jmp 00,x
15885
15886         reset:
15887
15888 ; Enable the Real-time Interrupt (periodic hw interrupt)
15889 FE49 86 40           .@    ldaa #40     ;40 -> A
15890 FE4B B7 10 24        ..$   staa 1024    ;A -> 1024
15891 ; Enable the ADC & configure IRQ' for edge-sensitive only operation
15892 FE4E 86 A0           ..    ldaa #a0     ;a0 -> A
15893 FE50 B7 10 39        ..9   staa 1039    ;A -> 1039
15894 ; Set a stack pointer?
15895 FE53 8E 00 EF        ...   lds #00ef
15896 ; Zero out the first 128 bytes of ram.
15897 FE56 CE 00 00        ...   ldx #0000    ;wipe 0000-007f  X=0000
15898 FE59 8C 00 80        ...   cpx #0080    ;loop: if X = 0080
15899 FE5C 24 05           $.    bcc fe63     ;        finished
15900 FE5E 6F 00           o.    clr 00,x     ;      else: load addr X with 0
15901 FE60 08              .     inx          ;        increment X
15902 FE61 20 F6            .    bra fe59     ;repeat
15903
15904 ; Jump to main procedure
15905 FE63 BD F7 D6        ...   jsr f7d6     ;goto main:
15906 FE66 7E FE 6D        ~.m   jmp fe6d     ; goto91
15907
15908 ; Reboot function for when things go astray?
15909 FE69 0F              .     sei          ;inhibit interrupts
15910 FE6A 7E FE 49        ~.I   jmp fe49     ;goto reset:
15911
15912 ; loop forever - called after main is exited.
15913 goto91:
15914 FE6D 20 FE            .    bra fe6d     ;loop forever
15915                                         ;[SAF] - wait for interrupts?
15916
15917 FE6F FF FF FF        ...   stx ffff
15918 FE72 FF FF FF        ...   stx ffff
15919 FE75 FF FF FF        ...   stx ffff
15920 FE78 FF FF FF        ...   stx ffff
15921 FE7B FF FF FF        ...   stx ffff
15922 FE7E FF FF FF        ...   stx ffff
15923 FE81 FF FF FF        ...   stx ffff
15924 FE84 FF FF FF        ...   stx ffff
15925 FE87 FF FF FF        ...   stx ffff
15926 FE8A FF FF FF        ...   stx ffff
15927 FE8D FF FF FF        ...   stx ffff
15928 FE90 FF FF FF        ...   stx ffff
15929 FE93 FF FF FF        ...   stx ffff
15930 FE96 FF FF FF        ...   stx ffff
15931 FE99 FF FF FF        ...   stx ffff
15932 FE9C FF FF FF        ...   stx ffff
15933 FE9F FF FF FF        ...   stx ffff
15934 FEA2 FF FF FF        ...   stx ffff
15935 FEA5 FF FF FF        ...   stx ffff
15936 FEA8 FF FF FF        ...   stx ffff
15937 FEAB FF FF FF        ...   stx ffff
15938 FEAE FF FF FF        ...   stx ffff
15939 FEB1 FF FF FF        ...   stx ffff
15940 FEB4 FF FF FF        ...   stx ffff
15941 FEB7 FF FF FF        ...   stx ffff
15942 FEBA FF FF FF        ...   stx ffff
15943 FEBD FF FF FF        ...   stx ffff
15944 FEC0 FF FF FF        ...   stx ffff
15945 FEC3 FF FF FF        ...   stx ffff
15946 FEC6 FF FF FF        ...   stx ffff
15947 FEC9 FF FF FF        ...   stx ffff
15948 FECC FF FF FF        ...   stx ffff
15949 FECF FF FF FF        ...   stx ffff
15950 FED2 FF FF FF        ...   stx ffff
15951 FED5 FF FF FF        ...   stx ffff
15952 FED8 FF FF FF        ...   stx ffff
15953 FEDB FF FF FF        ...   stx ffff
15954 FEDE FF FF FF        ...   stx ffff
15955 FEE1 FF FF FF        ...   stx ffff
15956 FEE4 FF FF FF        ...   stx ffff
15957 FEE7 FF FF FF        ...   stx ffff
15958 FEEA FF FF FF        ...   stx ffff
15959 FEED FF FF FF        ...   stx ffff
15960 FEF0 FF FF FF        ...   stx ffff
15961 FEF3 FF FF FF        ...   stx ffff
15962 FEF6 FF FF FF        ...   stx ffff
15963 FEF9 FF FF FF        ...   stx ffff
15964 FEFC FF FF FF        ...   stx ffff
15965 FEFF FF FF FF        ...   stx ffff
15966 FF02 FF FF FF        ...   stx ffff
15967 FF05 FF FF FF        ...   stx ffff
15968 FF08 FF FF FF        ...   stx ffff
15969 FF0B FF FF FF        ...   stx ffff
15970 FF0E FF FF FF        ...   stx ffff
15971 FF11 FF FF FF        ...   stx ffff
15972 FF14 FF FF FF        ...   stx ffff
15973 FF17 FF FF FF        ...   stx ffff
15974 FF1A FF FF FF        ...   stx ffff
15975 FF1D FF FF FF        ...   stx ffff
15976 FF20 FF FF FF        ...   stx ffff
15977 FF23 FF FF FF        ...   stx ffff
15978 FF26 FF FF FF        ...   stx ffff
15979 FF29 FF FF FF        ...   stx ffff
15980 FF2C FF FF FF        ...   stx ffff
15981 FF2F FF FF FF        ...   stx ffff
15982 FF32 FF FF FF        ...   stx ffff
15983 FF35 FF FF FF        ...   stx ffff
15984 FF38 FF FF FF        ...   stx ffff
15985 FF3B FF FF FF        ...   stx ffff
15986 FF3E FF FF FF        ...   stx ffff
15987 FF41 FF FF FF        ...   stx ffff
15988 FF44 FF FF FF        ...   stx ffff
15989 FF47 FF FF FF        ...   stx ffff
15990 FF4A FF FF FF        ...   stx ffff
15991 FF4D FF FF FF        ...   stx ffff
15992 FF50 FF FF FF        ...   stx ffff
15993 FF53 FF FF FF        ...   stx ffff
15994 FF56 FF FF FF        ...   stx ffff
15995 FF59 FF FF FF        ...   stx ffff
15996 FF5C FF FF FF        ...   stx ffff
15997 FF5F FF FF FF        ...   stx ffff
15998 FF62 FF FF FF        ...   stx ffff
15999 FF65 FF FF FF        ...   stx ffff
16000 FF68 FF FF FF        ...   stx ffff
16001 FF6B FF FF FF        ...   stx ffff
16002 FF6E FF FF FF        ...   stx ffff
16003 FF71 FF FF FF        ...   stx ffff
16004 FF74 FF FF FF        ...   stx ffff
16005 FF77 FF FF FF        ...   stx ffff
16006 FF7A FF FF FF        ...   stx ffff
16007 FF7D FF FF FF        ...   stx ffff
16008 FF80 FF FF FF        ...   stx ffff
16009 FF83 FF FF FF        ...   stx ffff
16010 FF86 FF FF FF        ...   stx ffff
16011 FF89 FF FF FF        ...   stx ffff
16012 FF8C FF FF FF        ...   stx ffff
16013 FF8F FF FF FF        ...   stx ffff
16014 FF92 FF FF FF        ...   stx ffff
16015 FF95 FF FF FF        ...   stx ffff
16016 FF98 FF FF FF        ...   stx ffff
16017 FF9B FF FF FF        ...   stx ffff
16018 FF9E FF FF FF        ...   stx ffff
16019 FFA1 FF FF FF        ...   stx ffff
16020 FFA4 FF FF FF        ...   stx ffff
16021 FFA7 FF FF FF        ...   stx ffff
16022 FFAA FF FF FF        ...   stx ffff
16023 FFAD FF FF FF        ...   stx ffff
16024 FFB0 FF FF FF        ...   stx ffff
16025 FFB3 FF FF FF        ...   stx ffff
16026 FFB6 FF FF FF        ...   stx ffff
16027 FFB9 FF FF FF        ...   stx ffff
16028 FFBC FF FF FF        ...   stx ffff
16029 FFBF FF FF FF        ...   stx ffff
16030 FFC2 FF FF FF        ...   stx ffff
16031 FFC5 FF FF FF        ...   stx ffff
16032 FFC8 FF FF FF        ...   stx ffff
16033 FFCB FF FF FF        ...   stx ffff
16034 FFCE FF FF FF        ...   stx ffff
16035 FFD1 FF FF FF        ...   stx ffff
16036 FFD4 FF FF 
16037
16038 FFD6    ;vectors
16039         .word   c81c    ; SCI serial system (generic)  - goes to sciinterrupt
16040         .word   fae2    ; SPI serial transfer complete - flashes *** ERROR *** for a second 
16041         .word   faef    ; Pulse accumulator input edge - flashes *** ERROR *** for a second
16042         .word   fafc    ; Pulse accumulator overflow   - flashes *** ERROR *** for a second
16043         .word   fb09    ; Timer overflow               - flashes *** ERROR *** for a second
16044         .word   fb16    ; Timer input capture 4        - flashes *** ERROR *** for a second
16045         .word   fb23    ; Timer output compare 4       - flashes *** ERROR *** for a second
16046         .word   fb30    ; Timer output compare 3       - flashes *** ERROR *** for a second
16047         .word   fb3d    ; Timer output compare 2       - flashes *** ERROR *** for a second
16048         .word   fb4a    ; Timer output compare 1       - flashes *** ERROR *** for a second
16049         .word   fb57    ; Timer input capture 3        - flashes *** ERROR *** for a second
16050         .word   fb64    ; Timer input capture 2        - flashes *** ERROR *** for a second
16051         .word   fb71    ; Timer input capture 1        - flashes *** ERROR *** for a second
16052         .word   f718    ; RT interrupt                 - does something useful :) (goto rti)
16053         .word   fb7e    ; IRQ pin                      - flashes *** ERROR *** for a second
16054         .word   fb8b    ; XIRQ pin                     - flashes *** ERROR *** for a second
16055         .word   fb98    ; software interrupt           - flashes *** ERROR *** for a second
16056         .word   fba5    ; illegal opcode trap          - flashes *** ERROR *** for a second
16057         .word   fbb2    ; watchdog reset               - reboot
16058         .word   fbb6    ; clock monitor reset          - reboot
16059         .word   fe49    ; reset                        - reboot
16060 \1a

UCC git Repository :: git.ucc.asn.au