ROM-2003/vend.asm

   1 ;0000
   2 ;0001   coin mask? (cf 0x001a, 0x3000, 0xc430)
   3 ;0003   global only used in jump71
   4 ;0005   number of motors we have
   5 ;0006   slot number
   6 ;0007   06 stored into it sometimes.
   7 ;0008   used exclusively in SCI interrupt
   8 ;0009
   9 ;000a
  10 ;000c
  11 ;0012   another buffer for 1800
  12 ;0013
  13 ;0014   buffer for 3800 register
  14 ;0015
  15 ;0016   new key state (cf 0029)
  16 ;0017   bits 5-7 used mostly
  17 ;0018
  18 ;0019
  19 ;001a   buffer for 3000 register - initialised to 7F
  20 ;001b   bit 3 - denote motor fault?
  21 ;001c   used for loop variables
  22 ;001d
  23 ;001f   display related? bit 2.  bit 4 denotes service mode
  24 ;0021   lower 3 bits taken from SCI data somewhere
  25 ;       bit 5 denotes machine out of order
  26 ;0023   buffer for 1800
  27 ;0026   used exclusively in SCI interrupt handler
  28 ;0029   previous key state (cf 0016)
  29 ;002c   inhibits display writes?
  30 ;0032   to do with the beeper (see jump52)
  31 ;0033
  32 ;0035   only ever contains #1e
  33 ;003b   commonly contains $0233
  34 ;003d
  35 ;003e   mask for 0040? (see f996)
  36 ;003f
  37 ;0040
  38 ;0042   current key press
  39 ;0048   error status
  40 ;004a
  41 ;0052   win-a-snack odds (in ram)
  42 ;0054   0..100
  43 ;0056   last known keypad row 1 state
  44 ;005b   last known keypad row 0 state
  45 ;005d                                     dollars
  46 ;005e   Y in location XY (row?)           cents1
  47 ;005f   X in location XY (column?)        cents2
  48 ;0073
  49 ;0076-0077 word
  50 ;007f
  51 ;00c8
  52 ;0800   motor information array - each is a 16-bit value
  53 ;
  54 ;08c8   array of prices of each slot??
  55 ;0993   custom message?
  56 ;0b90 - 0b99 display buffer (backwards)
  57 ;0b9a - some sort of id? press 89 on the machine
  58 ;0baa
  59 ;0bae
  60 ;0bb5   win-a-snack odds (is this in NVRAM?)
  61 ;0bbd
  62 ;0bd8   related to 0017 and 0021 (only lower 3 bits used)
  63 ;0bd9   also related
  64 ;0bc0   bit 0, 2, 1, 3
  65 ;0bc1   error status:  (from jump72)
  66 ;         bit0: changer powerup
  67 ;         bit1: card powerup
  68 ;         bit2: link powerup
  69 ;         bit3: bill error
  70 ;         bit4: coin jam
  71 ;         bit5: bad sensor
  72 ;         bit6: tube error
  73 ;0bc2 - 0bce SCI read into these locations
  74 ;0bd
  75 ;0bc4   array index into 0bc7
  76 ;0bc5
  77 ;0bc6   another array index into 0bc7
  78 ;0bc7 word array
  79 ;
  80 ;0be1
  81 ;0bd7   init'd to 0x01
  82 ;0bd8   init'd to 0x04
  83 ;0bd9   init'd to 0x02
  84 ;0bda   init'd to 0x20
  85 ;0bdb   init'd to 0x08
  86 ;0bdc   init'd to 0x10
  87 ;
  88 ;0cbc   serial number
  89 ;0ccc   machine ID
  90 ;0cd9   counter of something - reset to 4 on some serial input
  91 ;0cda   counter of something - reset to 4 on some serial input
  92 ;0cdb   also counts something - reset to 4 on some serial input
  93 ;0dff - 0e04 keypad buffer - most recent in 0e04
  94 ;0e05   array index of the array to follow
  95 ;0e06 - ?? array of digits*10
  96 ;1000
  97 ;1009
  98 ;1016 - timer output compare 1 register
  99 ;1026
 100 ;1028   SPCR (Serial Peripheral Control Register)
 101 ;1030
 102 ;103c
 103
 104
 105
 106 ;1800  Internal switches
 107 ;   7 changer INT'
 108 ;   6 Sold out.
 109 ;   5 Door open
 110 ;   4 $0.05
 111 ;   3 $0.10
 112 ;   2 $0.25
 113 ;   1 $1
 114 ;   0 Mode
 115 ;2000  Misc inputs
 116 ;   7 R2 of MAX232
 117 ;   6 Printer DSR
 118 ;   5 Win-a-snack
 119 ;   4 Multi
 120 ;   3 Promotional
 121 ;   2 Force?
 122 ;   1 Language selection
 123 ;   0 Language selection
 124 ;Rows are numbered 1-9, skipping 5.  There is no row 5.
 125 ;2800   home sensors
 126 ;       7  row 9
 127 ;       6  row 8
 128 ;       5  row 7
 129 ;       4  row 6
 130 ;       3  row 4
 131 ;       2  row 3
 132 ;       1  row 2
 133 ;       0  row 1
 134 ;Motor driver data is sent cols 7, 6, 5, 4, 3, 2, 1, 0 rows 9, 8, 7, 6, 4, 3, 2
 135 ;1.  Cols 8 and 9 are separate outputs (they ran out of driver chip outputs).
 136 ;Motor driver column output enable is PA6
 137 ;Motor driver serial clock is PA5
 138 ;It looks like motor overcurrent sense is on PE1 (PE1 will be low if a motor
 139 ;is drawing too much current)
 140 ; the changer speaks at 600 baud, where as the coin validator speaks
 141 ; 9600 baud. and printer at 2400.
 142 ;3000   changer outputs
 143 ;       7  motor driver row output enable
 144 ;       6  /$1.00
 145 ;       5  /$.25
 146 ;       4  /$.10
 147 ;       3  /$.05
 148 ;       2  RESET
 149 ;       1  /SEND
 150 ;       0  /ACCEPT
 151 ;3800   misc outputs
 152 ;       7  not used
 153 ;       6  col 9 motor driver
 154 ;       5  col 8 motor driver
 155 ;       4  motor driver serial data
 156 ;       3  display write (clock) enable (active high)
 157 ;       2  keypad strobe
 158 ;       1  note acceptor connector
 159 ;       0  note acceptor connector
 160
 161 ;-------
 162 ; Ports
 163 ;-------
 164
 165 ; PortA - Data: 0x1000, DDR for PA7 & PA3 in 0x1026
 166 ; PA7 display reset (active low)
 167 ; PA6 enables motor column drivers (when low)
 168 ; PA5 clocks snack motor drivers (U16 5890 = serial-input latched source drivers (latch unused))
 169 ; PA4 beepy thang (active high)
 170 ; PA3 high - talking to coin vendie, low - talking to printer. (through PD1)
 171 ; PA2 coin dispenser pin 6 (does what???)
 172 ; PA1 bill validator 2
 173 ; PA0 bill validator 1
 174
 175 ; PortB - not used directly
 176 ; PB7 Address lines 8-15
 177 ; PB6
 178 ; PB5
 179 ; PB4
 180 ; PB3
 181 ; PB2
 182 ; PB1
 183 ; PB0
 184
 185 ; PortC - Data: 0x1003, Latch: 0x1005, DDR: 0x1007
 186 ; PC7 Data Bus 0-7 / Address bus 0-7
 187 ; PC6
 188 ; PC5
 189 ; PC4
 190 ; PC3
 191 ; PC2
 192 ; PC1
 193 ; PC0
 194
 195 ; PortD - Data: 0x1008, DDR: 0x1009
 196 ; PD7 n/c
 197 ; PD6 n/c
 198 ; PD5 keypad row select (output)
 199 ; PD4 SPI - keypad & display clock signal (output)
 200 ; PD3 display data (output)
 201 ; PD2 keypad data (input)
 202 ; PD1 RX of SCI - to coin disp or printer depending on PA3
 203 ; PD0 TX of SCI - to coin disp or printer depending on PA3
 204
 205 ; PortE - Data: 0x100A
 206 ; PE7 <unused>
 207 ; PE6 <unused>
 208 ; PE5 <unused>
 209 ; PE4 <unused>
 210 ; PE3 goes high when 24VUN line is *really* low (like 20V)
 211 ; PE2 remote no-sale switch (active low)
 212 ; PE1 motor overvoltage sense (active high)
 213 ; PE0 motor overcurrent sense (active low)
 214
 215 ; Current status:
 216 ;  JSR mapped out
 217 ;  JMP mapped out
 218
 219 ; TODO:
 220
 221 8000 43              C     coma
 222 8001 20 50            P    bra 50
 223 8003 4F              O     clra
 224 8004 57              W     asrb
 225 8005 45              E     illegal
 226 8006 52              R     illegal
 227 8007 20 43            C    bra 43
 228 8009 4F              O     clra
 229 800A 4D              M     tsta
 230 800B 50              P     negb
 231 800C 41              A     illegal
 232 800D 4E              N     illegal
 233 800E 59              Y     rolb
 234 800F 00              .     test
 235 8010 43              C     coma
 236 8011 4F              O     clra
 237 8012 50              P     negb
 238 8013 59              Y     rolb
 239 8014 52              R     illegal
 240 8015 49              I     rola
 241 8016 47              G     asra
 242 8017 48              H     asla
 243 8018 54              T     lsrb
 244 8019 20 31            1    bra 31
 245 801B 39              9     rts
 246 801C 39              9     rts
 247 801D 33              3     pulb
 248 801E 20 00            .    bra 00
 249 8020 20 20                 bra 20
 250 8022 20 20                 bra 20
 251 8024 20 20                 bra 20
 252 8026 20 20                 bra 20
 253 8028 20 20                 bra 20
 254 802A 20 20                 bra 20
 255 802C 20 20                 bra 20
 256 802E 20 00            .    bra 00
 257 8030 56              V     rorb
 258 8031 45              E     illegal
 259 8032 4E              N     illegal
 260 8033 44              D     lsra
 261 8034 49              I     rola
 262 8035 4E              N     illegal
 263 8036 47              G     asra
 264 8037 20 4D            M    bra 4d
 265 8039 41              A     illegal
 266 803A 43              C     coma
 267 803B 48              H     asla
 268 803C 49              I     rola
 269 803D 4E              N     illegal
 270 803E 45              E     illegal
 271 803F 00              .     test
 272 8040 53              S     comb
 273 8041 4F              O     clra
 274 8042 46              F     rora
 275 8043 54              T     lsrb
 276 8044 57              W     asrb
 277 8045 41              A     illegal
 278 8046 52              R     illegal
 279 8047 45              E     illegal
 280 8048 20 57            W    bra 57
 281 804A 52              R     illegal
 282 804B 4F              O     clra
 283 804C 54              T     lsrb
 284 804D 45              E     illegal
 285 804E 20 00            .    bra 00
 286 8050 42              B     illegal
 287 8051 59              Y     rolb
 288 8052 20 42            B    bra 42
 289 8054 52              R     illegal
 290 8055 45              E     illegal
 291 8056 54              T     lsrb
 292 8057 20 42            B    bra 42
 293 8059 4F              O     clra
 294 805A 52              R     illegal
 295 805B 45              E     illegal
 296 805C 4E              N     illegal
 297 805D 2E 20           .     bgt 20
 298 805F 00              .     test
 299 8060 20 20                 bra 20
 300 8062 20 20                 bra 20
 301 8064 20 20                 bra 20
 302 8066 20 20                 bra 20
 303 8068 20 20                 bra 20
 304 806A 20 20                 bra 20
 305 806C 20 20                 bra 20
 306 806E 20 00            .    bra 00
 307 8070 50              P     negb
 308 8071 52              R     illegal
 309 8072 4F              O     clra
 310 8073 47              G     asra
 311 8074 52              R     illegal
 312 8075 41              A     illegal
 313 8076 4D              M     tsta
 314 8077 20 46            F    bra 46
 315 8079 4F              O     clra
 316 807A 52              R     illegal
 317 807B 20 54            T    bra 54
 318 807D 48              H     asla
 319 807E 45              E     illegal
 320 807F 00              .     test
 321 8080 35              5     txs
 322 8081 30              0     tsx
 323 8082 35              5     txs
 324 8083 20 41            A    bra 41
 325 8085 4E              N     illegal
 326 8086 44              D     lsra
 327 8087 20 35            5    bra 35
 328 8089 39              9     rts
 329 808A 30              0     tsx
 330 808B 30              0     tsx
 331 808C 2E 20           .     bgt 20
 332 808E 20 00            .    bra 00
 333 8090 20 20                 bra 20
 334 8092 20 20                 bra 20
 335 8094 20 20                 bra 20
 336 8096 20 20                 bra 20
 337 8098 20 20                 bra 20
 338 809A 20 20                 bra 20
 339 809C 20 20                 bra 20
 340 809E 20 00            .    bra 00
 341 80A0 50              P     negb
 342 80A1 41              A     illegal
 343 80A2 52              R     illegal
 344 80A3 54              T     lsrb
 345 80A4 20 4E            N    bra 4e
 346 80A6 55              U     illegal
 347 80A7 4D              M     tsta
 348 80A8 42              B     illegal
 349 80A9 45              E     illegal
 350 80AA 52              R     illegal
 351 80AB 3A              :     abx
 352 80AC 20 20                 bra 20
 353 80AE 20 00            .    bra 00
 354 80B0 39              9     rts
 355 80B1 33              3     pulb
 356 80B2 37              7     pshb
 357 80B3 2D 33           -3    blt 33
 358 80B5 30              0     tsx
 359 80B6 30              0     tsx
 360 80B7 30              0     tsx
 361 80B8 31              1     ins
 362 80B9 20 56            V    bra 56
 363 80BB 45              E     illegal
 364 80BC 52              R     illegal
 365 80BD 20 35            5    bra 35
 366 80BF 00              .     test
 367 80C0 43              C     coma
 368 80C1 48              H     asla
 369 80C2 45              E     illegal
 370 80C3 43              C     coma
 371 80C4 4B              K     illegal
 372 80C5 53              S     comb
 373 80C6 55              U     illegal
 374 80C7 4D              M     tsta
 375 80C8 20 45            E    bra 45
 376 80CA 4E              N     illegal
 377 80CB 44              D     lsra
 378 80CC 3A              :     abx
 379 80CD 30              0     tsx
 380 80CE 30              0     tsx
 381 80CF 00              .     test
 382 80D0 20 20                 bra 20
 383 80D2 20 20                 bra 20
 384 80D4 20 20                 bra 20
 385 80D6 20 20                 bra 20
 386 80D8 20 20                 bra 20
 387 80DA 20 20                 bra 20
 388 80DC 20 20                 bra 20
 389 80DE 20 00            .    bra 00
 390 80E0 20 20                 bra 20
 391 80E2 20 20                 bra 20
 392 80E4 20 20                 bra 20
 393 80E6 20 20                 bra 20
 394 80E8 20 20                 bra 20
 395 80EA 20 20                 bra 20
 396 80EC 20 20                 bra 20
 397 80EE 20 00            .    bra 00
 398 80F0 20 20                 bra 20
 399 80F2 20 20                 bra 20
 400 80F4 20 20                 bra 20
 401 80F6 20 20                 bra 20
 402 80F8 00              .     test
 403 80F9 20 0C            .    bra 0c
 404 80FB 93 73 00        .s.   subd 73
 405 80FE 01              .     nop
 406 80FF 05              .     asld
 407
 408 jump72:
 409 ; initial menu when door opens?
 410 8100 F6 00 1D        ...   ldab 001d
 411 8103 C4 10           ..    andb #10
 412 8105 27 3D           '=    beq 3d
 413 8107 BD D6 52        ..R   jsr d652             ;jump5
 414 810A CE 00 1D        ...   ldx #001d
 415 810D 1D 00 10        ...   bclr 00,x, #10
 416 8110 CE 00 1D        ...   ldx #001d
 417 8113 1C 00 80        ..    bset 00,x, #80
 418 8116 7F 00 42        ..    clr 0042
 419 8119 7F 00 60        ..`   clr 0060
 420 811C 7F 00 48        ..H   clr 0048
 421 811F 7F 00 38        ..8   clr 0038
 422 8122 F6 0B A8        ...   ldab 0ba8
 423 8125 27 08           '.    beq 08
 424 8127 CE 0B A9        ...   ldx #0ba9
 425 812A 1C 00 02        ..    bset 00,x, #02
 426 812D 20 06            .    bra 06
 427 812F CE 0B A9        ...   ldx #0ba9
 428 8132 1D 00 02        ...   bclr 00,x, #02
 429 8135 7F 0E 00        ...   clr 0e00
 430 8138 7F 0E 01        ...   clr 0e01
 431 813B 7F 0E 02        ...   clr 0e02
 432 813E 7F 0E 03        ...   clr 0e03
 433 8141 7F 0E 04        ...   clr 0e04
 434 8144 F6 00 42        ..B   ldab 0042
 435 8147 C1 0B           ..    cmpb #0b
 436 8149 26 0F           &.    bne 0f
 437 814B BD AB 89        ...   jsr ab89             ;jump7
 438 814E 7F 00 19        ...   clr 0019
 439 8151 7F 00 60        ..`   clr 0060
 440 8154 7F 00 42        ..B   clr 0042
 441 8157 BD E6 1B        ...   jsr e61b             ;jump4
 442 815A F6 0B A8        ...   ldab 0ba8
 443 815D 26 03           &.    bne 03
 444 815F 7E 81 EF        ~..   jmp 81ef             ;goto1
 445 8162 F6 00 60        ..`   ldab 0060
 446 8165 C1 04           ..    cmpb #04
 447 8167 24 28           $(    bcc 28
 448 8169 F6 00 42        ..B   ldab 0042
 449 816C 27 21           '!    beq 21
 450 816E F6 00 42        ..B   ldab 0042
 451 8171 C1 0A           ..    cmpb #0a
 452 8173 26 03           &.    bne 03
 453 8175 7F 00 42        ..B   clr 0042
 454 8178 F6 00 42        ..B   ldab 0042
 455 817B CB 30           .0    addb #30
 456 817D 37              7     pshb
 457 817E F6 00 60        ..`   ldab 0060
 458 8181 4F              O     clra
 459 8182 C3 00 62        ..b   addd #0062
 460 8185 8F              .     xgdx
 461 8186 33              3     pulb
 462 8187 E7 00           ..    stab 00,x
 463 8189 7F 00 42        ..B   clr 0042
 464 818C 7C 00 60        |.`   inc 0060
 465 818F 20 5C            \    bra 5c
 466 8191 F6 00 62        ..b   ldab 0062
 467 8194 F1 0B A4        ...   cmpb 0ba4
 468 8197 26 3D           &=    bne 3d
 469 8199 F6 00 63        ..c   ldab 0063
 470 819C F1 0B A5        ...   cmpb 0ba5
 471 819F 26 35           &5    bne 35
 472 81A1 F6 00 64        ..d   ldab 0064
 473 81A4 F1 0B A6        ...   cmpb 0ba6
 474 81A7 26 2D           &-    bne 2d
 475 81A9 F6 00 65        ..e   ldab 0065
 476 81AC F1 0B A7        ...   cmpb 0ba7
 477 81AF 26 25           &%    bne 25
 478 81B1 CE 0B A9        ...   ldx #0ba9
 479 81B4 1D 00 02        ...   bclr 00,x, #02
 480 81B7 CE 00 1F        ...   ldx #001f
 481 81BA 1C 00 04        ..    bset 00,x, #04
 482 81BD CE 00 1F        ...   ldx #001f
 483 81C0 1C 00 80        ...   bset 00,x, #80
 484 81C3 CE 00 1D        ...   ldx #001d
 485 81C5 1C 00 10        ...   bset 00,x, #10
 486 81C9 CC 02 33        ..3   ldd #0233
 487 81CC FD 00 3B        ..;   std 003b
 488 81CF C6 05           ..    ldab #05
 489 81D1 F7 00 38        ..8   stab 0038
 490 81D4 20 17            .    bra 17
 491 81D6 7F 00 42        ..B   clr 0042
 492 81D9 7F 00 60        ..`   clr 0060
 493 81DC BD BE 69        ..i   jsr be69         ;displayreset
 494 81DF BD BE 4B        ..K   jsr be4b         ;displayblank
 495 81E2 CC B0 81        ...   ldd #b081    ;"NO  ACCESS"
 496 81E5 BD C0 BA        ...   jsr c0ba         ;display:
 497 81E8 C6 0A           ..    ldab #0a
 498 81EA F7 00 38        ..8   stab 0038
 499 81ED 20 03            .    bra 03
 500 goto1:
 501 81EF 7F 00 42        ..B   clr 0042
 502 81F2 F6 00 38        ..8   ldab 0038
 503 81F5 27 03           '.    beq 03
 504 81F7 7E 84 9F        ~..   jmp 849f             ;goto2
 505 81FA BD BE 4B        ..K   jsr be4b             ;displayblank
 506 81FD F6 00 48        ..H   ldab 0048
 507 8200 26 03           &.    bne 03
 508 8202 BD AB A2        ...   jsr aba2             ;jump8
 509 8205 F6 00 48        ..H   ldab 0048
 510 8208 4F              O     clra
 511 8209 BD FE 16        ...   jsr fe16             ;jump2
 512 820C 00 00                 ; hmmm.
 513 820E 00 0D           ....  ; list len-2
 514 8210 84 9F           ..
 515 8212 82 2E           ..
 516 8214 82 50           .P
 517 8216 82 B7           ..
 518 8218 82 D9           ..
 519 821A 83 40           .@
 520 821C 83 62           ..
 521 821E 83 A5           ..
 522 8220 82 C2           ..
 523 8222 83 DF           ..
 524 8224 83 FC           ..
 525 8226 84 19           ..
 526 8228 84 35           .5
 527 822A 84 51           .Q
 528 822C 84 78           .x    ; end of jump2 data
 529 822E F6 00 19        ...   ldab 0019
 530 8231 C4 01           ..    andb #01
 531 8233 27 13           '.    beq 13
 532 8235 CC AF F2        ...   ldd #aff2    ;"OVER CRNT="
 533 8238 BD C0 BA        ...   jsr c0ba             ;display:
 534 823B C6 0A           ..    ldab #0a
 535 823D F7 00 38        ..8   stab 0038
 536 8240 7F 00 54        ..T   clr 0054
 537 8243 7C 00 48        |.H   inc 0048
 538 8246 20 05            .    bra 05
 539 8248 C6 02           ..    ldab #02
 540 824A F7 00 48        ..H   stab 0048
 541 824D 7E 84 9F        ~..   jmp 849f             ;goto2
 542 8250 F6 00 54        ..T   ldab 0054
 543 8253 4F              O     clra
 544 8254 CE 00 05        ...   ldx #0005
 545 8257 02              .     idiv
 546 8258 5D              ]     tstb
 547 8259 27 4C           'L    beq 4c
 548 825B F6 00 54        ..T   ldab 0054
 549 825E F7 00 06        ...   stab 0006
 550 8261 F6 00 06        ...   ldab 0006
 551 8264 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
 552 8267 83 00 00        ...   subd #0000
 553 826A 27 15           '.    beq 15
 554 826C CC 7F FF        ...   ldd #7fff
 555 826F 37              7     pshb
 556 8270 36              6     psha
 557 8271 F6 00 06        ...   ldab 0006
 558 8274 4F              O     clra
 559 8275 05              .     asld
 560 8276 C3 08 00        ...   addd #0800
 561 8279 38              8     pulx
 562 827A 8F              .     xgdx
 563 827B A4 00           ..    anda 00,x
 564 827D E4 01           ..    andb 01,x
 565 827F ED 00           ..    std 00,x
 566 8281 F6 00 54        ..T   ldab 0054
 567 8284 4F              O     clra
 568 8285 05              .     asld
 569 8286 C3 08 00        ...   addd #0800
 570 8289 8F              .     xgdx
 571 828A EC 00           ..    ldd 00,x
 572 828C 84 80           ..    anda #80
 573 828E 27 17           '.    beq 17
 574 8290 F6 00 54        ..T   ldab 0054
 575 8293 4F              O     clra
 576 8294 05              .     asld
 577 8295 C3 08 C8        ...   addd #08c8
 578 8298 8F              .     xgdx
 579 8299 EC 00           ..    ldd 00,x
 580 829B 84 02           ..    anda #02
 581 829D 27 08           '.    beq 08
 582 829F BD 98 A5        ...   jsr 98a5             ;jump11
 583 82A2 C6 0A           ..    ldab #0a
 584 82A4 F7 00 38        ..8   stab 0038
 585 82A7 7C 00 54        |.T   inc 0054
 586 82AA F6 00 54        ..T   ldab 0054
 587 82AD C1 64           .d    cmpb #64
 588 82AF 26 03           &.    bne 03
 589 82B1 7C 00 48        |.H   inc 0048
 590 82B4 7E 84 9F        ~..   jmp 849f             ;goto2
 591 82B7 F6 00 19        ...   ldab 0019
 592 82BA C4 02           ..    andb #02
 593 82BC 27 13           '.    beq 13
 594 82BE CC AF FD        ...   ldd #affd    "HOME FAIL="
 595 82C1 BD C0 BA        ...   jsr c0ba             ;display:
 596 82C4 C6 0A           ..    ldab #0a
 597 82C6 F7 00 38        ..8   stab 0038
 598 82C9 7F 00 54        ..T   clr 0054
 599 82CC 7C 00 48        |.H   inc 0048
 600 82CF 20 05            .    bra 05
 601 82D1 C6 04           ..    ldab #04
 602 82D3 F7 00 48        ..H   stab 0048
 603 82D6 7E 84 9F        ~..   jmp 849f             ;goto2
 604 82D9 F6 00 54        ..T   ldab 0054
 605 82DC 4F              O     clra
 606 82DD CE 00 05        ...   ldx #0005
 607 82E0 02              .     idiv
 608 82E1 5D              ]     tstb
 609 82E2 27 4C           'L    beq 4c
 610 82E4 F6 00 54        ..T   ldab 0054
 611 82E7 F7 00 06        ...   stab 0006
 612 82EA F6 00 06        ...   ldab 0006
 613 82ED BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
 614 82F0 83 00 00        ...   subd #0000
 615 82F3 27 15           '.    beq 15
 616 82F5 CC 7F FF        ...   ldd #7fff
 617 82F8 37              7     pshb
 618 82F9 36              6     psha
 619 82FA F6 00 06        ...   ldab 0006
 620 82FD 4F              O     clra
 621 82FE 05              .     asld
 622 82FF C3 08 00        ...   addd #0800
 623 8302 38              8     pulx
 624 8303 8F              .     xgdx
 625 8304 A4 00           ..    anda 00,x
 626 8306 E4 01           ..    andb 01,x
 627 8308 ED 00           ..    std 00,x
 628 830A F6 00 54        ..T   ldab 0054
 629 830D 4F              O     clra
 630 830E 05              .     asld
 631 830F C3 08 00        ...   addd #0800
 632 8312 8F              .     xgdx
 633 8313 EC 00           ..    ldd 00,x
 634 8315 84 80           ..    anda #80
 635 8317 27 17           '.    beq 17
 636 8319 F6 00 54        ..T   ldab 0054
 637 831C 4F              O     clra
 638 831D 05              .     asld
 639 831E C3 08 C8        ...   addd #08c8
 640 8321 8F              .     xgdx
 641 8322 EC 00           ..    ldd 00,x
 642 8324 84 04           ..    anda #04
 643 8326 27 08           '.    beq 08
 644 8328 BD 98 A5        ...   jsr 98a5             ;jump11
 645 832B C6 0A           ..    ldab #0a
 646 832D F7 00 38        ..8   stab 0038
 647 8330 7C 00 54        |.T   inc 0054
 648 8333 F6 00 54        ..T   ldab 0054
 649 8336 C1 64           .d    cmpb #64
 650 8338 26 03           &.    bne 03
 651 833A 7C 00 48        |.H   inc 0048
 652 833D 7E 84 9F        ~..   jmp 849f             ;goto2
 653 8340 F6 00 19        ...   ldab 0019
 654 8343 C4 04           ..    andb #04
 655 8345 27 13           '.    beq 13
 656 8347 CC B0 08        ...   ldd #b008    ; "CHK PRICES"
 657 834A BD C0 BA        ...   jsr c0ba             ;display:
 658 834D C6 0A           ..    ldab #0a
 659 834F F7 00 38        ..8   stab 0038
 660 8352 7F 00 54        ..T   clr 0054
 661 8355 7C 00 48        |.H   inc 0048
 662 8358 20 05            .    bra 05
 663 835A C6 06           ..    ldab #06
 664 835C F7 00 48        ..H   stab 0048
 665 835F 7E 84 9F        ~..   jmp 849f             ;goto2
 666 8362 F6 00 54        ..T   ldab 0054
 667 8365 4F              O     clra
 668 8366 CE 00 05        ...   ldx #0005
 669 8369 02              .     idiv
 670 836A 5D              ]     tstb
 671 836B 27 28           '(    beq 28
 672 836D F6 00 54        ..T   ldab 0054
 673 8370 F7 00 06        ...   stab 0006
 674 8373 F6 00 06        ...   ldab 0006
 675 8376 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
 676 8379 83 00 00        ...   subd #0000
 677 837C 26 17           &.    bne 17
 678 837E F6 00 54        ..T   ldab 0054
 679 8381 4F              O     clra
 680 8382 05              .     asld
 681 8383 C3 08 C8        ...   addd #08c8
 682 8386 8F              .     xgdx
 683 8387 EC 00           ..    ldd 00,x
 684 8389 84 01           ..    anda #01
 685 838B 27 08           '.    beq 08
 686 838D BD 98 A5        ...   jsr 98a5             ;jump11
 687 8390 C6 0A           ..    ldab #0a
 688 8392 F7 00 38        ..8   stab 0038
 689 8395 7C 00 54        |.T   inc 0054
 690 8398 F6 00 54        ..T   ldab 0054
 691 839B C1 64           .d    cmpb #64
 692 839D 26 03           &.    bne 03
 693 839F 7C 00 48        |.H   inc 0048
 694 83A2 7E 84 9F        ~..   jmp 849f             ;goto2
 695 ;
 696 83A5 F6 0B C1        ...   ldab 0bc1
 697 83A8 C4 01           ..    andb #01
 698 83AA 27 10           '.    beq 10
 699 83AC CC B0 34        ..4   ldd #b034    "CHGR PWRUP"
 700 83AF BD C0 BA        ...   jsr c0ba             ;display:
 701 83B2 7C 00 48        |.H   inc 0048
 702 83B5 C6 0A           ..    ldab #0a
 703 83B7 F7 00 38        ..8   stab 0038
 704 83BA 20 03            .    bra 03
 705 83BC 7C 00 48        |.H   inc 0048
 706 83BF 7E 84 9F        ~..   jmp 849f             ;goto2
 707 83C2 F6 0B C1        ...   ldab 0bc1
 708 83C5 C4 02           ..    andb #02
 709 83C7 27 10           '.    beq 10
 710 83C9 CC B0 4A        ..J   ldd #b04a    "CARD PWRUP"
 711 83CC BD C0 BA        ...   jsr c0ba             ;display:
 712 83CF 7C 00 48        |.H   inc 0048
 713 83D2 C6 0A           ..    ldab #0a
 714 83D4 F7 00 38        ..8   stab 0038
 715 83D7 20 03            .    bra 03
 716 83D9 7C 00 48        |.H   inc 0048
 717 83DC 7E 84 9F        ~..   jmp 849f             ;goto2
 718 83DF F6 0B C1        ...   ldab 0bc1
 719 83E2 C4 04           ..    andb #04
 720 83E4 27 10           '.    beq 10
 721 83E6 CC B0 3F        ..?   ldd #b03f    "LINK PWRUP"
 722 83E9 BD C0 BA        ...   jsr c0ba             ;display:
 723 83EC 7C 00 48        |.H   inc 0048
 724 83EF C6 0A           ..    ldab #0a
 725 83F1 F7 00 38        ..8   stab 0038
 726 83F4 20 03            .    bra 03
 727 83F6 7C 00 48        |.H   inc 0048
 728 83F9 7E 84 9F        ~..   jmp 849f             ;goto2
 729 83FC F6 0B C1        ...   ldab 0bc1
 730 83FF C4 10           ..    andb #10
 731 8401 27 10           '.    beq 10
 732 8403 CC B0 1E        ...   ldd #b01e    "COIN   JAM"
 733 8406 BD C0 BA        ...   jsr c0ba             ;display:
 734 8409 7C 00 48        |.H   inc 0048
 735 840C C6 0A           ..    ldab #0a
 736 840E F7 00 38        ..8   stab 0038
 737 8411 20 03            .    bra 03
 738 8413 7C 00 48        |.H   inc 0048
 739 8416 7E 84 9F        ~..   jmp 849f             ;goto2
 740 8419 F6 0B C1        ...   ldab 0bc1
 741 841C C4 20           .     andb #20
 742 841E 27 10           '.    beq 10
 743 8420 CC B0 29        ..)   ldd #b029    "BAD SENSOR"
 744 8423 BD C0 BA        ...   jsr c0ba             ;display:
 745 8426 7C 00 48        |.H   inc 0048
 746 8429 C6 0A           ..    ldab #0a
 747 842B F7 00 38        ..8   stab 0038
 748 842E 20 03            .    bra 03
 749 8430 7C 00 48        |.H   inc 0048
 750 8433 20 6A            j    bra 6a
 751 8435 F6 0B C1        ...   ldab 0bc1
 752 8438 C4 08           ..    andb #08
 753 843A 27 10           '.    beq 10
 754 843C CC B0 55        ..U   ldd #b055    "BILL ERROR"
 755 843F BD C0 BA        ...   jsr c0ba             ;display:
 756 8442 7C 00 48        |.H   inc 0048
 757 8445 C6 0A           ..    ldab #0a
 758 8447 F7 00 38        ..8   stab 0038
 759 844A 20 03            .    bra 03
 760 844C 7C 00 48        |.H   inc 0048
 761 844F 20 4E            N    bra 4e
 762 8451 F6 0B C1        ...   ldab 0bc1
 763 8454 C4 40           .@    andb #40
 764 8456 27 10           '.    beq 10
 765 8458 CC B0 60        ..`   ldd #b060    "TUBE ERROR"
 766 845B BD C0 BA        ...   jsr c0ba             ;display:
 767 845E 7F 00 48        ..H   clr 0048
 768 8461 C6 0A           ..    ldab #0a
 769 8463 F7 00 38        ..8   stab 0038
 770 8466 20 0E            .    bra 0e
 771 8468 7F 00 48        ..H   clr 0048
 772 846B CC B0 13        ...   ldd #b013    "HIT RESET "
 773 846E BD C0 BA        ...   jsr c0ba              ;display:
 774 8471 C6 0A           ..    ldab #0a
 775 8473 F7 00 38        ..8   stab 0038
 776 8476 20 27            '    bra 27       ; to 849f (exit)
 777 8478 F6 00 1D        ...   ldab 001d
 778 847B 2C 0E           ,.    bge 0e
 779 847D CC AE A8        ...   ldd #aea8    "  SYSTEM  "
 780 8480 BD C0 BA        ...   jsr c0ba             ;display:
 781 8483 CE 00 1D        ...   ldx #001d
 782 8486 1D 00 80        ..    bclr 00,x, #80
 783 8489 20 0C           .     bra 0c       ; to 8496
 784 848B CC AE B3        ...   ldd #aeb3    "    OK    "
 785 848E BD C0 BA        ...   jsr c0ba             ;display:
 786 8491 CE 00 1D        ...   ldx #001d
 787 8494 1C 00 80        ..    bset 00,x, #80
 788 8496 C6 0F           ..    ldab #0f
 789 8499 F7 00 38        ..8   stab 0038
 790 849C 7F 00 48        ..H   clr 0048
 791 goto2:
 792 849F 39              9     rts
 793
 794 jump73:
 795 ; service mode menu?
 796 84A0 FC 00 3B        ..;   ldd 003b
 797 84A3 26 03           &.    bne 03
 798 84A5 7E 85 96        ~..   jmp 8596             ;goto3
 799 84A8 F6 00 1F        ...   ldab 001f
 800 84AB 2C 40           ,@    bge 40
 801 84AD BD D6 52        ..R   jsr d652             ;jump5
 802 84B0 7F 00 42        ..B   clr 0042
 803 84B3 7F 00 09        ...   clr 0009
 804 84B6 7F 00 0A        ...   clr 000a
 805 84B9 7F 00 06        ...   clr 0006
 806 84BC 5F              _     clrb
 807 84BD 4F              O     clra
 808 84BE FD 00 40        ..@   std 0040
 809 84C1 5F              _     clrb
 810 84C2 4F              O     clra
 811 84C3 FD 00 3E        ..>   std 003e
 812 84C6 BD E5 AA        ...   jsr e5aa             ;jump12
 813 84C9 CE 00 1F        ...   ldx #001f
 814 84CC 1D 00 80        ..    bclr 00,x, #80
 815 84CF CE 00 1F        ..    ldx #001f
 816 84D2 1C 00 02        ....  bset 00,x, #02
 817 84D5 CE 00 1D        ...   ldx #001d
 818 84D8 1C 00 10        ..    bset 00,x, #10
 819 84DB CE 00 17        ...   ldx #0017
 820 84DE 1D 00 20        ..    bclr 00,x, #20
 821 84E0 CE 00 17         .    ldx #0017
 822 84E4 1D 00 40        ..    bclr 00,x, #40
 823 84E7 CE 00 17        ...   ldx #0017
 824 84EA 1D 00 80        ..    bclr 00,x, #80
 825 84EC F6 0B A9        ...   ldab 0ba9
 826 84F0 C4 02           ..    andb #02
 827 84F2 27 20           '     beq 20       ; to 8414
 828 84F4 F6 00 42        ..B   ldab 0042
 829 84F7 4F              O     clra
 830 84F8 C3 0B E4        ...   addd #0be4
 831 84FB 8F              .     xgdx
 832 84FC E6 00           ..    ldab 00,x
 833 84FE 27 14           '.    beq 14
 834 8500 BD BE 4B        ..K   jsr be4b             ;displayblank
 835 8503 CC B0 81        ...   ldd #b081    ;"NO  ACCESS"
 836 8506 BD C0 BA        ...   jsr c0ba             ;display:
 837 8509 CC 02 58        ..X   ldd #0258    ;600
 838 850C BD E5 71        ..q   jsr e571             ;msdelay
 839 850F BD 85 AF        ...   jsr 85af             ;jump14
 840 8512 20 6C            l    bra 6c       ; to 8580
 841 ;
 842 8514 F6 00 42        ..B   ldab 0042
 843 8517 4F              O     clra
 844 8518 BD FE 16        ...   jsr fe16             ;jump2
 845 851B 00 00           .
 846 851C 00 0B           .
 847 851F 85 80           ..    ; default action - leave menu?
 848 8521 85 39           .9    ; 0 - no key pressed
 849 8523 85 4A           .J    ; key 1 - changer loading & calibration
 850 8525 85 4F           .O    ; key 2 - win-a-snack odds programming
 851 8527 85 54           .T    ; key 3 - set pricing
 852 8529 85 59           .Y    ; key 4 - smart shopping discount
 853 852B 85 5E           .^    ; key 5 - manual peripheral config
 854 852D 85 63           .c    ; key 6 - promo vend-pair programming
 855 852F 85 68           .h    ; key 7 - POS message & serial id
 856 8531 85 6D           .m    ; key 8 - print info
 857 8533 85 72           .r    ; key 9 - security code programming
 858 8535 85 77           .w    ; key 0 - motor menu
 859 8537 85 7C           .|    ; reset key -
 860 ;
 861 8539 CC AE 92        ...   ldd #ae92    "-         "
 862 853C BD C0 BA        ...   jsr c0ba         ;display:
 863 853F 7F 00 42        ..B   clr 0042
 864 8542 CE 00 1F        ...   ldx #001f
 865 8545 1C 00 02        ..    bset 00,x, #02
 866 8548 20 36            6    bra 36
 867 854A BD 86 84        ...   jsr 8684             ;jump15
 868 854D 20 31            1    bra 31
 869 854F BD 88 2E        ...   jsr 882e             ;jump16
 870 8552 20 2C            ,    bra 2c
 871 8554 BD 88 B8        ...   jsr 88b8             ;jump17
 872 8557 20 27            '    bra 27
 873 8559 BD 8C B4        ...   jsr 8cb4             ;jump18
 874 855C 20 22            "    bra 22
 875 855E BD 8E 35        ..5   jsr 8e35             ;jump19
 876 8561 20 1D            .    bra 1d
 877 8563 BD 8F 0D        ...   jsr 8f0d             ;jump20
 878 8566 20 18            .    bra 18
 879 8568 BD 90 D1        ...   jsr 90d1             ;jump21
 880 856B 20 13            .    bra 13
 881 856D BD 92 EE        ...   jsr 92ee             ;jump22
 882 8570 20 0E            .    bra 0e
 883 8572 BD 93 A5        ...   jsr 93a5             ;jump23
 884 8575 20 09            .    bra 09
 885 8577 BD 94 DD        ...   jsr 94dd             ;jump24
 886 857A 20 04            .    bra 04
 887 857C 8D 31           .1    bsr 31       ;jump14
 888 857E 20 00            .    bra 00
 889 ;
 890 8580 7F 00 0A        ...   clr 000a
 891 8583 F6 00 42        ..B   ldab 0042
 892 8586 C1 0A           ..    cmpb #0a
 893 8588 27 0A           '.    beq 0a
 894 858A F6 00 42        ..B   ldab 0042
 895 858D C1 07           ..    cmpb #07
 896 858F 27 03           '.    beq 03
 897 8591 7F 00 09        ...   clr 0009
 898 8594 20 18            .    bra 18
 899 goto3:
 900 8596 CE 00 1F        ...   ldx #001f
 901 8599 1D 00 04        ...   bclr 00,x, #04
 902 859C CE 00 1F        ...   ldx #001f
 903 859F 1C 00           ..    bset 00,x, #80
 904 85A2 CE 00 1D        ...   ldx #001d
 905 85A5 1C 00 10        ...   bset 00,x, #10
 906 85A8 BD BE 69        ..i   jsr be69             ;displayreset
 907 85AB BD E5 AA        ...   jsr e5aa             ;jump12
 908 85AE 39              9     rts
 909
 910 jump14:
 911 85AF 7F 00 42        ..B   clr 0042
 912 85B2 7F 00 06        ...   clr 0006
 913 85B5 CE 00 1F        ...   ldx #001f
 914 85B8 1C 00 02        ..    bset 00,x, #02
 915 85BB BD BE 69        ..i   jsr be69             ;displayreset
 916 85BE 39              9     rts
 917
 918 jump28:
 919 85BF F6 00 12        ...   ldab 0012
 920 85C2 C4 1E           ..    andb #1e     ; 00011110
 921 85C4 4F              O     clra
 922 85C5 BD FE 32        ..2   jsr fe32             ;jump25
 923 85C8 85 DE 00 0E     ....  ; 14  000 0111 0
 924 85CC 86 08 00 08     ....  ; 22  000 1011 0
 925 85D0 86 32 00 04     ....  ; 26  000 1101 0
 926 85D4 86 5C 00 02     ....  ; 28  000 1110 0
 927 85D8 86 83 FF E4     ....  ; 0
 928 85DC 00 00           ..    ; end of array
 929 85DE F6 0B DC        ...   ldab 0bdc
 930 85E1 F7 00 01        ...   stab 0001
 931 85E4 BD C4 30        ..0   jsr c430             ;jump26
 932 85E7 C6 01           ..    ldab #01
 933 85E9 F7 00 48        ..H   stab 0048
 934 85EC 7F 00 2C        ..,   clr 002c
 935 85EF F6 0C D9        ...   ldab 0cd9
 936 85F2 27 03           '.    beq 03
 937 85F4 7A 0C D9        z..   dec 0cd9
 938 85F7 BD 97 F6        ...   jsr 97f6             ;jump27
 939 85FA CC 01 5E        ..^   ldd #015e
 940 85FD BD E5 71        ..q   jsr e571             ;msdelay
 941 8600 CC 02 33        ..3   ldd #0233
 942 8603 FD 00 3B        ..;   std 003b
 943 8606 20 7B            {    bra 7b
 944 8608 F6 0B DB        ...   ldab 0bdb
 945 860B F7 00 01        ...   stab 0001
 946 860E BD C4 30        ..0   jsr c430             ;jump26
 947 8611 C6 02           ..    ldab #02
 948 8613 F7 00 48        ..H   stab 0048
 949 8616 7F 00 2C        ..,   clr 002c
 950 8619 F6 0C DA        ...   ldab 0cda
 951 861C 27 03           '.    beq 03
 952 861E 7A 0C DA        z..   dec 0cda
 953 8621 BD 97 F6        ...   jsr 97f6             ;jump27
 954 8624 CC 01 5E        ..^   ldd #015e
 955 8627 BD E5 71        ..q   jsr e571             ;msdelay
 956 862A CC 02 33        ..3   ldd #0233
 957 862D FD 00 3B        ..;   std 003b
 958 8630 20 51            Q    bra 51
 959 8632 F6 0B DA        ...   ldab 0bda
 960 8635 F7 00 01        ...   stab 0001
 961 8638 BD C4 30        ..0   jsr c430             ;jump26
 962 863B C6 03           ..    ldab #03
 963 863D F7 00 48        ..H   stab 0048
 964 8640 7F 00 2C        ..,   clr 002c
 965 8643 F6 0C DB        ...   ldab 0cdb
 966 8646 27 03           '.    beq 03
 967 8648 7A 0C DB        z..   dec 0cdb
 968 864B BD 97 F6        ...   jsr 97f6             ;jump27
 969 864E CC 01 5E        ..^   ldd #015e
 970 8651 BD E5 71        ..q   jsr e571             ;msdelay
 971 8654 CC 02 33        ..3   ldd #0233
 972 8657 FD 00 3B        ..;   std 003b
 973 865A 20 27            '    bra 27
 974 865C C6 40           .@    ldab #40
 975 865E F7 00 01        ...   stab 0001
 976 8661 BD C4 30        ..0   jsr c430             ;jump26
 977 8664 C6 04           ..    ldab #04
 978 8666 F7 00 48        ..H   stab 0048
 979 8669 7F 00 2C        ..,   clr 002c
 980 866C F6 0C DC        ...   ldab 0cdc
 981 866F 27 03           '.    beq 03
 982 8671 7A 0C DC        z..   dec 0cdc
 983 8674 BD 97 F6        ...   jsr 97f6             ;jump27
 984 8677 CC 01 5E        ..^   ldd #015e
 985 867A BD E5 71        ..q   jsr e571             ;msdelay
 986 867D CC 02 33        ..3   ldd #0233
 987 8680 FD 00 3B        ..;   std 003b
 988 8683 39              9     rts
 989
 990 jump15:
 991 ; changer load & calibrate menu
 992 8684 F6 00 1F        ...   ldab 001f
 993 8687 C4 02           ..    andb #02
 994 8689 27 2B           '+    beq 2b
 995 868B CE 00 1F        ...   ldx #001f
 996 868E 1D 00 02        ...   bclr 00,x, #02
 997 8691 C6 01           ..    ldab #01
 998 8693 F7 00 48        ..H   stab 0048
 999 8696 F6 0B C0        ...   ldab 0bc0
1000 8699 C4 01           ..    andb #01
1001 869B 27 16           '.    beq 16
1002 869D C6 27           .'    ldab #27
1003 869F F7 10 2D        ..-   stab 102d    ; disable SCI transmission
1004 86A2 C6 07           ..    ldab #07
1005 86A4 F7 10 2B        ..+   stab 102b    ; 600 baud
1006 86A7 CE 00 1A        ...   ldx #001a
1007 86AA 1D 00 01        ..    bclr 00,x, #01
1008 86AD F6 00 1A        ...   ldab 001a
1009 86B0 F7 30 00        .0.   stab 3000    ; changer accept on
1010 86B3 7E 87 E8        ~..   jmp 87e8             ;goto4
1011 86B6 F6 00 09        ...   ldab 0009
1012 86B9 4F              O     clra
1013 86BA BD FE 32        ..2   jsr fe32             ;jump25
1014 86BD 86 D7 00 00     ....  ; no key
1015 86C1 87 39 00 01     ....  ; key 1
1016 86C5 87 75 00 01     ....  ; key 2
1017 86C9 87 C5 00 08     ....  ; key 0
1018 86CD 87 D9 00 01     ....  ; key reset
1019 86D1 87 E8 FF F5     ....  ; no key
1020 86D5 00 00           ..    ; end of array data
1021 86D7 C6 FF           ..    ldab #ff
1022 86D9 F7 0B BC        ...   stab 0bbc
1023 86DC F6 18 00        ...   ldab 1800
1024 86DF 2D 29           -)    blt 29
1025 86E1 F6 00 07        ...   ldab 0007
1026 86E4 26 24           &$    bne 24
1027 86E6 CE 00 1A        ...   ldx #001a
1028 86E9 1D 00 02        ..    bclr 00,x, #02
1029 86EC F6 00 1A        ...   ldab 001a
1030 86EF F7 30 00        .0.   stab 3000    ; send msg to changer?
1031 86F2 CC 00 32        ..2   ldd #0032
1032 86F5 BD E5 71        ..q   jsr e571             ;msdelay
1033 86F8 CE 00 1A        ...   ldx #001a
1034 86FB 1C 00 02        ..    bset 00,x, #02
1035 86FE F6 00 1A        ...   ldab 001a
1036 8701 F7 30 00        .0.   stab 3000    ; turn changer send line off
1037 8704 CC 02 33        ..3   ldd #0233
1038 8707 FD 00 3B        ..;   std 003b
1039 870A 5F              _     clrb
1040 870B 4F              O     clra
1041 870C FD 00 40        ..@   std 0040
1042 870F 5F              _     clrb
1043 8710 4F              O     clra
1044 8711 FD 00 3E        ..>   std 003e
1045 8714 F6 0B C0        ...   ldab 0bc0
1046 8717 C4 01           ..    andb #01
1047 8719 27 03           '.    beq 03
1048 871B BD 85 BF        ...   jsr 85bf             ;jump28
1049 871E BD DC A3        ...   jsr dca3             ;jump29
1050 8721 BD 97 F6        ...   jsr 97f6             ;jump27
1051 8724 CE 00 17        ...   ldx #0017
1052 8727 1D 00           ..    bclr add,x 00,x
1053 8729 20 CE            .    bra ce
1054 872B 00              .     test
1055 872C 17              .     tba
1056 872D 1D 00 40        ...   bclr 00,x, #40
1057 8730 CE 00 17        ...   ldx #0017
1058 8733 1D 00           ..    bclr add,x 00,x
1059 8735 80 7E           .~    suba #7e
1060 8737 87              .     illegal
1061 8738 E8 F6           ..    eorb f6,x
1062 873A 00              .     test
1063 873B 36              6     psha
1064 873C 26 2F           &/    bne 2f
1065 873E F6 00 48        ..H   ldab 0048
1066 8741 4F              O     clra
1067 8742 BD FE 16        ...   jsr fe16             ;jump2
1068 8745 00 01 00 03     .     ; data for jump2
1069 8749 87 65           .
1070 874B 87 53           .
1071 874D 87 58           .
1072 874F 87 5D           .
1073 8751 87 62           .     ; end of data
1074 8753 7C 0C D9        |..   inc 0cd9
1075 8756 20 0D            .    bra 0d
1076 8758 7C 0C DA        |..   inc 0cda
1077 875B 20 08            .    bra 08
1078 875D 7C 0C DB        |..   inc 0cdb
1079 8760 20 03            .    bra 03
1080 8762 7C 0C DC        |..   inc 0cdc
1081 8765 BD 97 F6        ...   jsr 97f6             ;jump27
1082 8768 C6 02           ..    ldab #02
1083 876A F7 00 36        ..6   stab 0036
1084 876D CE 00 1B        ...   ldx #001b
1085 8770 1C 00 10        ...   bset 00,x, #10
1086 8773 20 73            s    bra 73
1087 8775 F6 00 36        ..6   ldab 0036
1088 8778 26 43           &C    bne 43
1089 877A F6 00 48        ..H   ldab 0048
1090 877D 4F              O     clra
1091 877E BD FE 16        ...   jsr fe16             ;jump2
1092 8781 00              .     test
1093 8782 01              .     nop
1094 8783 00              .     test
1095 8784 03              .     fdiv
1096 8785 87              .     illegal
1097 8786 B5 87 8F        ...   bita 878f
1098 8789 87              .     illegal
1099 878A 99 87 A3        ...   adca 87
1100 878D 87              .     illegal
1101 878E AD F6           ..    jsr f6,x
1102 8790 0C              .     clc
1103 8791 D9 27 03        .'.   adcb 27
1104 8794 7A 0C D9        z..   dec 0cd9
1105 8797 20 1C            .    bra 1c
1106 8799 F6 0C DA        ...   ldab 0cda
1107 879C 27 03           '.    beq 03
1108 879E 7A 0C DA        z..   dec 0cda
1109 87A1 20 12            .    bra 12
1110 87A3 F6 0C DB        ...   ldab 0cdb
1111 87A6 27 03           '.    beq 03
1112 87A8 7A 0C DB        z..   dec 0cdb
1113 87AB 20 08            .    bra 08
1114 87AD F6 0C DC        ...   ldab 0cdc
1115 87B0 27 03           '.    beq 03
1116 87B2 7A 0C DC        z..   dec 0cdc
1117 87B5 BD 97 F6        ...   jsr 97f6             ;jump27
1118 87B8 C6 02           ..    ldab #02
1119 87BA F7 00 36        ..6   stab 0036
1120 87BD CE 00 1B        ...   ldx #001b
1121 87C0 1C 00 10        ...   bset 00,x, #10
1122 87C3 20 23            #    bra 23
1123 87C5 7C 00 48        |.H   inc 0048
1124 87C8 F6 00 48        ..H   ldab 0048
1125 87CB C1 04           ..    cmpb #04
1126 87CD 23 05           #.    bls 05
1127 87CF C6 01           ..    ldab #01
1128 87D1 F7 00 48        ..H   stab 0048
1129 87D4 BD 97 F6        ...   jsr 97f6             ;jump27
1130 87D7 20 0F            .    bra 0f
1131 87D9 CE 00 1A        ...   ldx #001a
1132 87DC 1C 00 01        ..    bset 00,x, #01
1133 87DF F6 00 1A        ...   ldab 001a
1134 87E2 F7 30 00        .0.   stab 3000    ; turn changer accept line off
1135 87E5 BD 85 AF        ...   jsr 85af             ;jump14
1136 goto4:
1137 87E8 39              9     rts
1138
1139 jump74:
1140 ;motor count procedure
1141 87E9 7F 00 05        ...   clr 0005
1142 87EC 7F 00 54        ..T   clr 0054
1143 87EF F6 00 54        ..T   ldab 0054
1144 87F2 C1 50           .P    cmpb #50     ; 80 entries in lookup table
1145 87F4 24 2E           $.    bcc 2e       ; to 8824
1146 87F6 F6 00 54        ..T   ldab 0054
1147 87F9 4F              O     clra
1148 87FA C3 B0 D3        ...   addd #b0d3   ; lookup table
1149 87FD 8F              .     xgdx
1150 87FE E6 00           ..    ldab 00,x
1151 8800 F7 00 06        ...   stab 0006
1152 8803 F6 00 06        ...   ldab 0006
1153 8806 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
1154 8809 83 00 00        ...   subd #0000
1155 880C 26 11           &.    bne 11
1156 880E BD D3 11        ...   jsr d311             ;jump30 - test it
1157 8811 83 00 00        ...   subd #0000
1158 8814 26 03           &.    bne 03
1159 8816 7C 00 05        |..   inc 0005
1160 8819 CC 00 05        ...   ldd #0005
1161 881C BD E5 71        ..q   jsr e571             ;msdelay
1162 881F 7C 00 54        |.T   inc 0054
1163 8822 20 CB            .    bra cb
1164 8824 BD 99 81        ...   jsr 9981             ;jump144 - write "MOTORS XX" (from 0005)
1165 8827 CC 07 D0        ...   ldd #07d0
1166 882A BD E5 71        ..q   jsr e571             ;msdelay
1167 882D 39              9     rts
1168
1169 jump16:
1170 882E F6 00 1F        ...   ldab 001f
1171 8831 C4 02           ..    andb #02
1172 8833 27 12           '.    beq 12
1173 8835 FC 0B B5        ...   ldd 0bb5
1174 8838 C4 FF           ..    andb #ff
1175 883A 84 01           ..    anda #01
1176 883C FD 00 52        ..R   std 0052
1177 883F CE 00 1F        ...   ldx #001f
1178 8842 1D 00 02        ...   bclr 00,x, #02
1179 8845 20 70            p    bra 70
1180 8847 F6 00 09        ...   ldab 0009
1181 884A 4F              O     clra
1182 884B BD FE 32        ..2   jsr fe32             ;jump25
1183 884E 88 68 00 00     ....  ; cancel.
1184 8852 88 6D 00 01     ....  ; key 1 - increment
1185 8856 88 83 00 01     ....  ; key 2 - decrement
1186 885A 88 A7 00 08     ....  ; key 0 - saving
1187 885E 88 B4 00 01     ....  ; reset
1188 8862 88 B7 FF F5     ....  ; no key - return
1189 8866 00 00           ....  ; end of array data
1190 ;
1191 8868 BD 9A 05        ...   jsr 9a05             ;jump102 - write ODDS 1/
1192 886B 20 4A            J    bra 4a       ; to 88b7 - return
1193 ; increment 50
1194 886D FC 00 52        ..R   ldd 0052
1195 8870 83 01 F4        ...   subd #01f4   ; 500
1196 8873 24 09           $.    bcc 09       ; dont let them go above 500
1197 8875 FC 00 52        ..R   ldd 0052
1198 8878 C3 00 32        ..2   addd #0032   ; +50
1199 887B FD 00 52        ..R   std 0052
1200 887E BD 9A 05        ...   jsr 9a05             ;jump102 - write ODDS 1/
1201 8881 20 34            4    bra 34
1202 ;
1203 8883 FC 00 52        ..R   ldd 0052
1204 8886 83 00 32        ..2   subd #0032   ; 50
1205 8889 23 17           #.    bls 17       ; dont let them go below 50
1206 888B FC 00 52        ..R   ldd 0052
1207 888E C3 FF CE        ...   addd #ffce   ; -50
1208 8891 FD 00 52        ..R   std 0052
1209 8894 FC 00 52        ..R   ldd 0052
1210 8897 83 00 32        ..2   subd #0032   ; 50
1211 889A 24 06           $.    bcc 06
1212 889C CC 00 32        ..2   ldd #0032   ; 100
1213 889F FD 00 52        ..R   std 0052
1214 88A2 BD 9A 05        ...   jsr 9a05             ;jump102 - write ODDS 1/
1215 88A5 20 10            .    bra 10
1216 ;
1217 88A7 BD A3 7C        ..|   jsr a37c             ;jump141 - save
1218 88AA 5F              _     clrb
1219 88AB 4F              O     clra
1220 88AC FD 0B B9        ...   std 0bb9
1221 88AF BD 85 AF        ...   jsr 85af             ;jump14
1222 88B2 20 03            .    bra 03
1223 88B4 BD 85 AF        ...   jsr 85af             ;jump14
1224 88B7 39              9     rts
1225
1226 jump17:
1227 ; set pricing
1228 88B8 F6 00 1F        ...   ldab 001f
1229 88BB C4 02           ..    andb #02
1230 88BD 26 0A           &.    bne 0a
1231 88BF F6 00 3A        ..:   ldab 003a
1232 88C2 26 28           &(    bne 28
1233 88C4 F6 00 1D        ...   ldab 001d
1234 88C7 2D 23           -#    blt 23
1235 88C9 7F 00 2C        ..,   clr 002c
1236 88CC CC AE 9D        ...   ldd #ae9d    "SET PRICE?"
1237 88CF BD C0 BA        ...   jsr c0ba             ;display:
1238 88D2 CE 00 1F        ...   ldx #001f
1239 88D5 1D 00 02        ..    bclr 00,x, #02
1240 88D8 CE 00 1F        ...   ldx #001f
1241 88DB 1D 00 40        ..    bclr 00,x, #40
1242 88DE CE 00 1D        ...   ldx #001d
1243 88E1 1D 00 80        ..    bclr 00,x, #80
1244 88E4 7F 00 54        ...   clr 0054
1245 88E7 C6 32           .2    ldab #32
1246 88E9 F7 00 3A        ..:   stab 003a
1247 88EC F6 00 09        ...   ldab 0009
1248 88EF 26 03           &.    bne 03
1249 88F1 7E 89 E1        ~..   jmp 89e1             ;goto5
1250 88F4 F6 00 1D        ...   ldab 001d
1251 88F7 2C 03           ,.    bge 03
1252 88F9 7E 89 E1        ~..   jmp 89e1             ;goto5
1253 88FC F6 00 09        ...   ldab 0009
1254 88FF C1 0B           ..    cmpb #0b
1255 8901 26 06           &.    bne 06
1256 8903 BD 85 AF        ...   jsr 85af             ;jump14
1257 8906 7E 89 DE        ~..   jmp 89de             ;goto6
1258 8909 F6 00 54        ..T   ldab 0054
1259 890C 26 26           &&    bne 26
1260 890E BD BE 4B        ..K   jsr be4b             ;displayblank
1261 8911 F6 00 09        ...   ldab 0009
1262 8914 C1 0A           ..    cmpb #0a
1263 8916 26 03           &.    bne 03
1264 8918 7F 00 09        ...   clr 0009
1265 891B F6 00 09        ...   ldab 0009
1266 891E CB 30           .0    addb #30
1267 8920 37              7     pshb
1268 8921 CC 0B 95        ...   ldd #0b95
1269 8924 F0 00 54        ..T   subb 0054
1270 8927 82 00           ..    sbca #00
1271 8929 8F              .     xgdx
1272 892A 33              3     pulb
1273 892B E7 00           ..    stab 00,x
1274 892D C6 32           .2    ldab #32
1275 892F F7 00 3A        ..:   stab 003a
1276 8932 20 37            7    bra 37
1277 8934 F6 00 54        ..T   ldab 0054
1278 8937 C1 01           ..    cmpb #01
1279 8939 26 27           &'    bne 27
1280 893B F6 00 09        ...   ldab 0009
1281 893E C1 05           ..    cmpb #05
1282 8940 27 20           '     beq 20
1283 8942 F6 00 09        ...   ldab 0009
1284 8945 C1 0A           ..    cmpb #0a
1285 8947 27 19           '.    beq 19
1286 8949 F6 00 09        ...   ldab 0009
1287 894C CB 30           .0    addb #30
1288 894E 37              7     pshb
1289 894F CC 0B 95        ...   ldd #0b95
1290 8952 F0 00 54        ..T   subb 0054
1291 8955 82 00           ..    sbca #00
1292 8957 8F              .     xgdx
1293 8958 33              3     pulb
1294 8959 E7 00           ..    stab 00,x
1295 895B C6 32           .2    ldab #32
1296 895D F7 00 3A        ..:   stab 003a
1297 8960 20 09            .    bra 09
1298 8962 CE 00 1F        ...   ldx #001f
1299 8965 1C 00 02        ..    bset 00,x, #02
1300 8968 7F 00 3A        ..:   clr 003a
1301 896B BD BE 01        ...   jsr be01             ;jump70
1302 896E 7C 00 54        |.T   inc 0054
1303 8971 F6 00 54        ..T   ldab 0054
1304 8974 C1 02           ..    cmpb #02
1305 8976 26 60           &`    bne 60
1306 8978 CE 00 1D        ...   ldx #001d
1307 897B 1C 00 80        ..    bset 00,x, #80
1308 897E F6 0B 94        ..    ldab 0b94
1309 8980 CB D0           ..    addb #d0     ; -48 (unmake it a digit)
1310 8983 37              7     pshb
1311 8984 F6 0B 95        ...   ldab 0b95
1312 8987 CB D0           ..    addb #d0     ; -48 (unmake it a digit)
1313 8989 86 0A           ..    ldaa #0a
1314 898B 3D              =     mul
1315 898C 30              0     tsx
1316 898D EB 00           ..    addb 00,x
1317 898F 31              1     ins
1318 8990 F7 00 06        ...   stab 0006
1319 8993 C6 32           .2    ldab #32
1320 8995 F7 00 3A        ..:   stab 003a
1321 8998 F6 00 06        ...   ldab 0006
1322 899B BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
1323 899E 83 00 00        ...   subd #0000
1324 89A1 26 27           &'    bne 27       ; to 89ca
1325 89A3 BD D3 11        ...   jsr d311             ;jump30 - test position exists
1326 89A6 83 00 00        ...   subd #0000
1327 89A9 26 0B           &.    bne 0b
1328 89AB CE 00 1F        ...   ldx #001f
1329 89AE 1C 00 40        ..    bset 00,x, #40
1330 89B1 BD 8C 73        ..s   jsr 8c73             ;jump75
1331 89B4 20 0F            .    bra 0f
1332 89B6 CE 00 1F        ...   ldx #001f
1333 89B9 1D 00 40        ..    bclr 00,x, #40
1334 89BC CC 2A FF        .*.   ldd #2aff    ; 00101010 11111111
1335 89BF FD 00 27        ..'   std 0027
1336 89C2 BD A3 85        ...   jsr a385             ;jump40
1337 89C5 BD 9A 47        ..G   jsr 9a47             ;jump39
1338 89C8 20 0C            .    bra 0c
1339 ;
1340 89CA CE 00 1D        ...   ldx #001d
1341 89CD 1D 00           ..    bclr 00,x, #80
1342 89D0 CE 00 1F        ...   ldx #001f
1343 89D3 1C 00 02        ...   bset 00,x, #02
1344 89D6 20 06            .    bra 06
1345 89D8 CE 00 1D        ...   ldx #001d
1346 89DB 1D 00 80        ...   bclr 00,x, #80
1347 ;goto6
1348 89DE 7E 8C 72        .~    jmp 8c72     ;goto7 (exit)
1349 ;goto5
1350 89E1 F6 00 1D        ...   ldab 001d
1351 89E4 2D 03           -.    blt 03
1352 89E6 7E 8C 72        ~.r   jmp 8c72             ;goto7 (exit)
1353 89E9 F6 00 09        ...   ldab 0009
1354 89EC 4F              O     clra
1355 89ED BD FE 16        ...   jsr fe16             ;jump2
1356 89F0 00 00 00 0B     ....  ; params to jump2
1357 89F4 8C 72           ..    ; default action
1358 89F6 8A 0E           ..    ; 0 - display price on screen?
1359 89F8 8A 14           ..    ; 1 -
1360 89FA 8A AA           ..
1361 89FC 8B 5E           .^
1362 89FE 8B 9E           ..
1363 8A00 8B DB           ..
1364 8A02 8C 72           ..
1365 8A04 8C 72           ..
1366 8A06 8C 72           ..
1367 8A08 8B FC           ..
1368 8A0A 8C 67           ..
1369 8A0C 8C 6F           ..
1370 8A0E BD 9A 47        ..    jsr 9a47    ;jump39
1371 8A11 7E 8C 72        ...   jmp 8c72    ;goto7 (exit)
1372 8A14 F6 00 36        ...   ldab 0036
1373 8A17 27 03           '.    beq 03
1374 8A19 7E 8A 9B        ~..   jmp 8a9b             ;goto8
1375 8A1C F6 00 1F        ...   ldab 001f
1376 8A1F C4 40           .@    andb #40
1377 8A21 27 78           'x    beq 78
1378 8A23 F6 0B C0        ...   ldab 0bc0
1379 8A26 C4 02           ..    andb #02
1380 8A28 27 52           'R    beq 52
1381 8A2A F6 0B AA        ...   ldab 0baa
1382 8A2D C1 32           .2    cmpb #32
1383 8A2F 24 22           $"    bcc 22
1384 8A31 F6 0B AA        ...   ldab 0baa
1385 8A34 4F              O     clra
1386 8A35 F3 00 27        ..'   addd 0027
1387 8A38 FD 00 27        ..'   std 0027
1388 8A3B F6 0B AA        ...   ldab 0baa
1389 8A3E 4F              O     clra
1390 8A3F 37              7     pshb
1391 8A40 36              6     psha
1392 8A41 CC 00 FA        ...   ldd #00fa    ; 250 or -6
1393 8A44 BD FB BA        ...   jsr fbba             ;jump38 - multiply?
1394 8A47 B3 00 27        ..'   subd 0027
1395 8A4A 24 05           $.    bcc 05
1396 8A4C 5F              _     clrb
1397 8A4D 4F              O     clra
1398 8A4E FD 00 27        ..'   std 0027
1399 8A51 20 27            '    bra 27
1400 8A53 F6 0B AA        ...   ldab 0baa
1401 8A56 C1 32           .2    cmpb #32
1402 8A58 26 20           &     bne 20
1403 8A5A F6 0B AA        ...   ldab 0baa
1404 8A5D 4F              O     clra
1405 8A5E F3 00 27        ..'   addd 0027
1406 8A61 FD 00 27        ..'   std 0027
1407 8A64 F6 0B AA        ...   ldab 0baa
1408 8A67 4F              O     clra
1409 8A68 37              7     pshb
1410 8A69 36              6     psha
1411 8A6A CC 00 C7        ...   ldd #00c7
1412 8A6D BD FB BA        ...   jsr fbba             ;jump38
1413 8A70 B3 00 27        ..'   subd 0027
1414 8A73 24 05           $.    bcc 05
1415 8A75 5F              _     clrb
1416 8A76 4F              O     clra
1417 8A77 FD 00 27        ..'   std 0027
1418 8A7A 20 17            .    bra 17
1419 8A7C F6 0B AA        ...   ldab 0baa
1420 8A7F 4F              O     clra
1421 8A80 F3 00 27        ..'   addd 0027
1422 8A83 FD 00 27        ..'   std 0027
1423 8A86 FC 00 27        ..'   ldd 0027
1424 8A89 83 27 0F        .'.   subd #270f
1425 8A8C 23 05           #.    bls 05
1426 8A8E 5F              _     clrb
1427 8A8F 4F              O     clra
1428 8A90 FD 00 27        ..'   std 0027
1429 8A93 BD 9A 47        ..G   jsr 9a47             ;jump39
1430 8A96 C6 02           ..    ldab #02
1431 8A98 F7 00 36        ..6   stab 0036
1432 goto8:
1433 8A9B CE 00 1B        ...   ldx #001b
1434 8A9E 1C 00 10        ...   bset 00,x, #10
1435 8AA1 CC 02 33        ..3   ldd #0233
1436 8AA4 FD 00 3B        ..;   std 003b
1437 8AA7 7E 8C 72        ~.r   jmp 8c72             ;goto7 (exit)
1438 ;
1439 8AAA F6 00 36        ..6   ldab 0036
1440 8AAD 27 03           '.    beq 03
1441 8AAF 7E 8B 4F        ~.O   jmp 8b4f             ;goto9
1442 8AB2 F6 00 1F        ...   ldab 001f
1443 8AB5 C4 40           .@    andb #40
1444 8AB7 26 03           &.    bne 03
1445 8AB9 7E 8B 4F        ~.O   jmp 8b4f             ;goto9
1446 8ABC F6 0B C0        ...   ldab 0bc0
1447 8ABF C4 02           ..    andb #02
1448 8AC1 27 57           'W    beq 57
1449 8AC3 FC 00 27        ..'   ldd 0027
1450 8AC6 26 18           &.    bne 18
1451 8AC8 F6 0B AA        ...   ldab 0baa
1452 8ACB C1 32           .2    cmpb #32
1453 8ACD 24 11           $.    bcc 11
1454 8ACF F6 0B AA        ...   ldab 0baa
1455 8AD2 4F              O     clra
1456 8AD3 37              7     pshb
1457 8AD4 36              6     psha
1458 8AD5 CC 00 FA        ...   ldd #00fa
1459 8AD8 BD FB BA        ...   jsr fbba             ;jump38
1460 8ADB FD 00 27        ..'   std 0027
1461 8ADE 20 38            8    bra 38
1462 8AE0 FC 00 27        ..'   ldd 0027
1463 8AE3 26 18           &.    bne 18
1464 8AE5 F6 0B AA        ...   ldab 0baa
1465 8AE8 C1 32           .2    cmpb #32
1466 8AEA 26 11           &.    bne 11
1467 8AEC F6 0B AA        ...   ldab 0baa
1468 8AEF 4F              O     clra
1469 8AF0 37              7     pshb
1470 8AF1 36              6     psha
1471 8AF2 CC 00 C7        ...   ldd #00c7
1472 8AF5 BD FB BA        ...   jsr fbba             ;jump38
1473 8AF8 FD 00 27        ..'   std 0027
1474 8AFB 20 1B            .    bra 1b
1475 8AFD F6 0B AA        ...   ldab 0baa
1476 8B00 4F              O     clra
1477 8B01 B3 00 27        ..'   subd 0027
1478 8B04 22 0D           ".    bhi 0d
1479 8B06 FC 00 27        ..'   ldd 0027
1480 8B09 F0 0B AA        ...   subb 0baa
1481 8B0C 82 00           ..    sbca #00
1482 8B0E FD 00 27        ..'   std 0027
1483 8B11 20 05            .    bra 05
1484 8B13 5F              _     clrb
1485 8B14 4F              O     clra
1486 8B15 FD 00 27        ..'   std 0027
1487 8B18 20 2D            -    bra 2d
1488 8B1A FC 00 27        ..'   ldd 0027
1489 8B1D 26 0D           &.    bne 0d
1490 8B1F CC 27 10        .'.   ldd #2710
1491 8B22 F0 0B AA        ...   subb 0baa
1492 8B25 82 00           ..    sbca #00
1493 8B27 FD 00 27        ..'   std 0027
1494 8B2A 20 1B            .    bra 1b
1495 8B2C F6 0B AA        ...   ldab 0baa
1496 8B2F 4F              O     clra
1497 8B30 B3 00 27        ..'   subd 0027
1498 8B33 22 0D           ".    bhi 0d
1499 8B35 FC 00 27        ..'   ldd 0027
1500 8B38 F0 0B AA        ...   subb 0baa
1501 8B3B 82 00           ..    sbca #00
1502 8B3D FD 00 27        ..'   std 0027
1503 8B40 20 05            .    bra 05
1504 8B42 5F              _     clrb
1505 8B43 4F              O     clra
1506 8B44 FD 00 27        ..'   std 0027
1507 8B47 BD 9A 47        ..G   jsr 9a47             ;jump39
1508 8B4A C6 02           ..    ldab #02
1509 8B4C F7 00 36        ..6   stab 0036
1510 goto9:
1511 8B4F CE 00 1B        ...   ldx #001b
1512 8B52 1C 00 10        ..    bset 00,x, #10
1513 8B55 CC 02 33        ..3   ldd #0233
1514 8B58 FD 00 3B        ..;   std 003b
1515 8B5B 7E 8C 72        ~.r   jmp 8c72             ;goto7 (exit)
1516 8B5E F6 00 36        ..6   ldab 0036
1517 8B61 26 2C           &,    bne 2c
1518 8B63 F6 00 1F        ...   ldab 001f
1519 8B66 C4 40           .@    andb #40
1520 8B68 27 25           '%    beq 25
1521 8B6A FC 00 46        ..F   ldd 0046
1522 8B6D 83 00 64        ..d   subd #0064
1523 8B70 24 15           $.    bcc 15
1524 8B72 FE 00 46        ..F   ldx 0046
1525 8B75 08              .     inx
1526 8B76 FF 00 46        ..F   stx 0046
1527 8B79 FC 00 46        ..F   ldd 0046
1528 8B7C 83 00 64        ..d   subd #0064
1529 8B7F 25 06           %.    bcs 06
1530 8B81 CC 00 01        ...   ldd #0001
1531 8B84 FD 00 46        ..F   std 0046
1532 8B87 BD 9A 47        ..G   jsr 9a47             ;jump39
1533 8B8A C6 02           ..    ldab #02
1534 8B8C F7 00 36        ..6   stab 0036
1535 8B8F CE 00 1B        ...   ldx #001b
1536 8B92 1C 00 10        ..    bset 00,x, #10
1537 8B95 CC 02 33        ..3   ldd #0233
1538 8B98 FD 00 3B        ..;   std 003b
1539 8B9B 7E 8C 72        ~.r   jmp 8c72             ;goto7 (exit)
1540 8B9E F6 00 36        ..6   ldab 0036
1541 8BA1 26 29           &)    bne 29
1542 8BA3 F6 00 1F        ...   ldab 001f
1543 8BA6 C4 40           .@    andb #40
1544 8BA8 27 22           '"    beq 22
1545 8BAA FC 00 46        ..F   ldd 0046
1546 8BAD 83 00 00        ...   subd #0000
1547 8BB0 23 12           #.    bls 12
1548 8BB2 FE 00 46        ..F   ldx 0046
1549 8BB5 09              .     dex
1550 8BB6 FF 00 46        ..F   stx 0046
1551 8BB9 FC 00 46        ..F   ldd 0046
1552 8BBC 26 06           &.    bne 06
1553 8BBE CC 00 63        ..c   ldd #0063
1554 8BC1 FD 00 46        ..F   std 0046
1555 8BC4 BD 9A 47        ..G   jsr 9a47             ;jump39
1556 8BC7 C6 02           ..    ldab #02
1557 8BC9 F7 00 36        ..6   stab 0036
1558 8BCC CE 00 1B        ...   ldx #001b
1559 8BCF 1C 00 10        ...   bset 00,x, #10
1560 8BD2 CC 02 33        ..3   ldd #0233
1561 8BD5 FD 00 3B        ..;   std 003b
1562 8BD8 7E 8C 72        ~.r   jmp 8c72             ;goto7 (exit)
1563 8BDB F6 00 1F        ...   ldab 001f
1564 8BDE C4 40           .@    andb #40
1565 8BE0 27 15           '.    beq 15
1566 8BE2 F6 00 19        ...   ldab 0019
1567 8BE5 C4 10           ..    andb #10
1568 8BE7 27 08           '.    beq 08
1569 8BE9 CE 00 19        ...   ldx #0019
1570 8BEC 1D 00 10        ...   bclr 00,x, #10
1571 8BEF 20 06            .    bra 06
1572 8BF1 CE 00 19        ...   ldx #0019
1573 8BF4 1C 00 10        ...   bset 00,x, #10
1574 8BF7 BD 9A 47        ..G   jsr 9a47             ;jump39
1575 8BFA 20 76            v    bra 76
1576 8BFC BD A3 85        ...   jsr a385             ;jump40
1577 8BFF F6 00 06        ...   ldab 0006
1578 8C02 C1 64           .d    cmpb #64
1579 8C04 24 24           $$    bcc 24
1580 8C06 BD 97 6F        ..o   jsr 976f             ;jump41
1581 8C09 F6 00 06        ...   ldab 0006
1582 8C0C BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
1583 8C0F 83 00 00        ...   subd #0000
1584 8C12 27 16           '.    beq 16
1585 8C14 F6 00 06        ...   ldab 0006
1586 8C17 C1 09           ..    cmpb #09
1587 8C19 26 03           &.    bne 03
1588 8C1B BD 97 6F        ..o   jsr 976f             ;jump41
1589 8C1E F6 00 06        ...   ldab 0006
1590 8C21 C1 45           .E    cmpb #45
1591 8C23 26 05           &.    bne 05
1592 8C25 C6 01           ..    ldab #01
1593 8C27 F7 00 06        ...   stab 0006
1594 8C2A F6 0E 6D        ..m   ldab 0e6d
1595 8C2D C1 01           ..    cmpb #01
1596 8C2F 26 11           &.    bne 11
1597 8C31 F6 00 06        ...   ldab 0006
1598 8C34 4F              O     clra
1599 8C35 05              .     asld
1600 8C36 C3 08 C8        ...   addd #08c8
1601 8C39 8F              .     xgdx
1602 8C3A EC 00           ..    ldd 00,x
1603 8C3C C4 7F           ..    andb #7f
1604 8C3E 4F              O     clra
1605 8C3F FD 00 46        ..F   std 0046
1606 8C42 BD D3 11        ...   jsr d311             ;jump30 - test position exists
1607 8C45 83 00 00        ...   subd #0000
1608 8C48 26 12           &.    bne 12
1609 8C4A CE 00 1F        ...   ldx #001f
1610 8C4D 1C 00 40        ...   bset 00,x, #40
1611 8C50 FC 00 27        ..'   ldd 0027
1612 8C53 83 27 0F        .'.   subd #270f
1613 8C56 23 02           #.    bls 02
1614 8C58 8D 19           ..    bsr dest 19
1615 8C5A 20 06            .    bra 06
1616 8C5C CE 00 1F        ...   ldx #001f
1617 8C5F 1D 00 40        ...   bclr 00,x, #40
1618 8C62 BD 9A 47        ..G   jsr 9a47             ;jump39
1619 8C65 20 0B            .    bra 0b
1620 8C67 BD A3 85        ...   jsr a385             ;jump40
1621 8C6A BD 85 AF        ...   jsr 85af             ;jump14
1622 8C6D 20 03            .    bra 03
1623 8C6F BD 85 AF        ...   jsr 85af             ;jump14
1624 goto7:
1625 8C72 39              9     rts
1626
1627 jump75:
1628 8C73 F6 00 06        ...   ldab 0006
1629 8C76 4F              O     clra
1630 8C77 05              .     asld
1631 8C78 C3 08 00        ...   addd #0800
1632 8C7B 8F              .     xgdx
1633 8C7C EC 00           ..    ldd 00,x
1634 8C7E C4 FF           ..    andb #ff
1635 8C80 84 3F           .?    anda #3f
1636 8C82 FD 00 27        ..'   std 0027
1637 8C85 F6 00 06        ...   ldab 0006
1638 8C88 4F              O     clra
1639 8C89 05              .     asld
1640 8C8A C3 08 C8        ...   addd #08c8
1641 8C8D 8F              .     xgdx
1642 8C8E EC 00           ..    ldd 00,x
1643 8C90 C4 7F           ..    andb #7f
1644 8C92 4F              O     clra
1645 8C93 FD 00 46        ..F   std 0046
1646 8C96 F6 00 06        ...   ldab 0006
1647 8C99 4F              O     clra
1648 8C9A 05              .     asld
1649 8C9B C3 08 C8        ...   addd #08c8
1650 8C9E 8F              .     xgdx
1651 8C9F EC 00           ..    ldd 00,x
1652 8CA1 84 08           ..    anda #08
1653 8CA3 27 08           '.    beq 08
1654 8CA5 CE 00 19        ...   ldx #0019
1655 8CA8 1C 00 10        ...   bset 00,x, #10
1656 8CAB 20 06            .    bra 06
1657 8CAD CE 00 19        ...   ldx #0019
1658 8CB0 1D 00 10        ...   bclr 00,x, #10
1659 8CB3 39              9     rts
1660
1661 jump18:
1662 ; program smart shopping discount
1663 8CB4 F6 00 1F        ...   ldab 001f
1664 8CB7 C4 02           ..    andb #02
1665 8CB9 27 12           '.    beq 12
1666 8CBB FC 0B B7        ...   ldd 0bb7
1667 8CBE FD 00 0D        ...   std 000d
1668 8CC1 CE 00 1F        ...   ldx #001f
1669 8CC4 1D 00 02        ...   bclr 00,x, #02
1670 8CC7 7F 00 36        ..6   clr 0036
1671 8CCA 7E 8E 34        ~.4   jmp 8e34             ;goto10
1672 8CCD F6 00 09        ...   ldab 0009
1673 8CD0 4F              O     clra
1674 8CD1 BD FE 32        ..2   jsr fe32             ;jump25
1675 8CD4 8C EE 00 00     ....  ; array data for jump25
1676 8CD8 8C F4 00 01     ....
1677 8CDC 8D 80 00 01     ....
1678 8CE0 8E 29 00 08     .)..
1679 8CE4 8E 31 00 01     .1..
1680 8CE8 8E 34 FF F5     .4.
1681 8CEC 00 00           ...   ; end of array data
1682 8CEE BD 9B 63        ..c   jsr 9b63             ;jump101
1683 8CF1 7E 8E 34        ~.4   jmp 8e34             ;goto10
1684 8CF4 F6 00 36        ..6   ldab 0036
1685 8CF7 26 78           &x    bne 78
1686 8CF9 F6 0B C0        ...   ldab 0bc0
1687 8CFC C4 02           ..    andb #02
1688 8CFE 27 52           'R    beq 52
1689 8D00 F6 0B AA        ...   ldab 0baa
1690 8D03 C1 32           .2    cmpb #32
1691 8D05 24 22           $"    bcc 22
1692 8D07 F6 0B AA        ...   ldab 0baa
1693 8D0A 4F              O     clra
1694 8D0B F3 00 0D        ...   addd 000d
1695 8D0E FD 00 0D        ...   std 000d
1696 8D11 F6 0B AA        ...   ldab 0baa
1697 8D14 4F              O     clra
1698 8D15 37              7     pshb
1699 8D16 36              6     psha
1700 8D17 CC 00 FA        ...   ldd #00fa
1701 8D1A BD FB BA        ...   jsr fbba             ;jump38
1702 8D1D B3 00 0D        ...   subd 000d
1703 8D20 24 05           $.    bcc 05
1704 8D22 5F              _     clrb
1705 8D23 4F              O     clra
1706 8D24 FD 00 0D        ...   std 000d
1707 8D27 20 27            '    bra 27
1708 8D29 F6 0B AA        ...   ldab 0baa
1709 8D2C C1 32           .2    cmpb #32
1710 8D2E 26 20           &     bne 20
1711 8D30 F6 0B AA        ...   ldab 0baa
1712 8D33 4F              O     clra
1713 8D34 F3 00 0D        ...   addd 000d
1714 8D37 FD 00 0D        ...   std 000d
1715 8D3A F6 0B AA        ...   ldab 0baa
1716 8D3D 4F              O     clra
1717 8D3E 37              7     pshb
1718 8D3F 36              6     psha
1719 8D40 CC 00 C7        ...   ldd #00c7
1720 8D43 BD FB BA        ...   jsr fbba             ;jump38
1721 8D46 B3 00 0D        ...   subd 000d
1722 8D49 24 05           $.    bcc 05
1723 8D4B 5F              _     clrb
1724 8D4C 4F              O     clra
1725 8D4D FD 00 0D        ...   std 000d
1726 8D50 20 17            .    bra 17
1727 8D52 F6 0B AA        ...   ldab 0baa
1728 8D55 4F              O     clra
1729 8D56 F3 00 0D        ...   addd 000d
1730 8D59 FD 00 0D        ...   std 000d
1731 8D5C FC 00 0D        ...   ldd 000d
1732 8D5F 83 27 0F        .'.   subd #270f
1733 8D62 23 05           #.    bls 05
1734 8D64 5F              _     clrb
1735 8D65 4F              O     clra
1736 8D66 FD 00 0D        ...   std 000d
1737 8D69 BD 9B 63        ..c   jsr 9b63             ;jump101
1738 8D6C C6 02           ..    ldab #02
1739 8D6E F7 00 36        ..6   stab 0036
1740 8D71 CE 00 1B        ...   ldx #001b
1741 8D74 1C 00 10        ..    bset 00,x, #10
1742 8D77 CC 02 33        ..3   ldd #0233
1743 8D7A FD 00 3B        ..;   std 003b
1744 8D7D 7E 8E 34        ~.4   jmp 8e34             ;goto10
1745 8D80 F6 00 36        ..6   ldab 0036
1746 8D83 27 03           '.    beq 03
1747 8D85 7E 8E 1B        ~..   jmp 8e1b             ;goto11
1748 8D88 F6 0B C0        ...   ldab 0bc0
1749 8D8B C4 02           ..    andb #02
1750 8D8D 27 57           'W    beq 57
1751 8D8F FC 00 0D        ...   ldd 000d
1752 8D92 26 18           &.    bne 18
1753 8D94 F6 0B AA        ...   ldab 0baa
1754 8D97 C1 32           .2    cmpb #32
1755 8D99 24 11           $.    bcc 11
1756 8D9B F6 0B AA        ...   ldab 0baa
1757 8D9E 4F              O     clra
1758 8D9F 37              7     pshb
1759 8DA0 36              6     psha
1760 8DA1 CC 00 FA        ...   ldd #00fa
1761 8DA4 BD FB BA        ...   jsr fbba             ;jump38
1762 8DA7 FD 00 0D        ...   std 000d
1763 8DAA 20 38            8    bra 38
1764 8DAC FC 00 0D        ...   ldd 000d
1765 8DAF 26 18           &.    bne 18
1766 8DB1 F6 0B AA        ...   ldab 0baa
1767 8DB4 C1 32           .2    cmpb #32
1768 8DB6 26 11           &.    bne 11
1769 8DB8 F6 0B AA        ...   ldab 0baa
1770 8DBB 4F              O     clra
1771 8DBC 37              7     pshb
1772 8DBD 36              6     psha
1773 8DBE CC 00 C7        ...   ldd #00c7
1774 8DC1 BD FB BA        ...   jsr fbba             ;jump38
1775 8DC4 FD 00 0D        ...   std 000d
1776 8DC7 20 1B            .    bra 1b
1777 8DC9 F6 0B AA        ...   ldab 0baa
1778 8DCC 4F              O     clra
1779 8DCD B3 00 0D        ...   subd 000d
1780 8DD0 22 0D           ".    bhi 0d
1781 8DD2 FC 00 0D        ...   ldd 000d
1782 8DD5 F0 0B AA        ...   subb 0baa
1783 8DD8 82 00           ..    sbca #00
1784 8DDA FD 00 0D        ...   std 000d
1785 8DDD 20 05            .    bra 05
1786 8DDF 5F              _     clrb
1787 8DE0 4F              O     clra
1788 8DE1 FD 00 0D        ...   std 000d
1789 8DE4 20 2D            -    bra 2d
1790 8DE6 FC 00 0D        ...   ldd 000d
1791 8DE9 26 0D           &.    bne 0d
1792 8DEB CC 27 10        .'.   ldd #2710
1793 8DEE F0 0B AA        ...   subb 0baa
1794 8DF1 82 00           ..    sbca #00
1795 8DF3 FD 00 0D        ...   std 000d
1796 8DF6 20 1B            .    bra 1b
1797 8DF8 F6 0B AA        ...   ldab 0baa
1798 8DFB 4F              O     clra
1799 8DFC B3 00 0D        ...   subd 000d
1800 8DFF 22 0D           ".    bhi 0d
1801 8E01 FC 00 0D        ...   ldd 000d
1802 8E04 F0 0B AA        ...   subb 0baa
1803 8E07 82 00           ..    sbca #00
1804 8E09 FD 00 0D        ...   std 000d
1805 8E0C 20 05            .    bra 05
1806 8E0E 5F              _     clrb
1807 8E0F 4F              O     clra
1808 8E10 FD 00 0D        ...   std 000d
1809 8E13 BD 9B 63        ..c   jsr 9b63             ;jump101
1810 8E16 C6 02           ..    ldab #02
1811 8E18 F7 00 36        ..6   stab 0036
1812 goto11:
1813 8E1B CE 00 1B        ...   ldx #001b
1814 8E1E 1C 00 10        ...   bset 00,x, #10
1815 8E21 CC 02 33        ..3   ldd #0233
1816 8E24 FD 00 3B        ..;   std 003b
1817 8E27 20 0B            .    bra 0b
1818 8E29 BD A4 4F        ..O   jsr a44f             ;jump140
1819 8E2C BD 85 AF        ...   jsr 85af             ;jump14
1820 8E2F 20 03            .    bra 03
1821 8E31 BD 85 AF        ...   jsr 85af             ;jump14
1822 goto10:
1823 8E34 39              9     rts
1824
1825 jump19:
1826 ; manual peripheral config menu
1827 8E35 F6 00 1F        ...   ldab 001f
1828 8E38 C4 02           ..    andb #02
1829 8E3A 27 1E           '.    beq 1e
1830 8E3C 7F 00 48        ..H   clr 0048
1831 8E3F F6 0B C0        ...   ldab 0bc0
1832 8E42 F7 00 67        ..g   stab 0067
1833 8E45 F6 0E 6D        ..m   ldab 0e6d
1834 8E48 F7 0E 6F        ..o   stab 0e6f
1835 8E4B F6 0E 6E        ..n   ldab 0e6e
1836 8E4E F7 0E 70        ..p   stab 0e70
1837 8E51 CE 00 1F        ...   ldx #001f
1838 8E54 1D 00 02        ...   bclr 00,x, #02
1839 8E57 7E 8F 0C        ~..   jmp 8f0c             ;goto12
1840 8E5A F6 00 09        ...   ldab 0009
1841 8E5D 4F              O     clra
1842 8E5E BD FE 32        ..2   jsr fe32             ;jump25
1843 8E61 8E 7B 00 00     .{..  ; array data for jump25
1844 8E65 8E 81 00 01     ....
1845 8E69 8E 87 00 04     ....
1846 8E6D 8F 01 00 05     ....
1847 8E71 8F 09 00 01     ....
1848 8E75 8F 0C FF F5     ....
1849 8E79 00 00           ..    ; end of array data
1850 8E7B BD 9C 15        ...   jsr 9c15             ;jump111
1851 8E7E 7E 8F 0C        ~..   jmp 8f0c             ;goto12
1852 8E81 BD A7 5F        .._   jsr a75f             ;jump133
1853 8E84 7E 8F 0C        ~..   jmp 8f0c             ;goto12
1854 8E87 F6 00 48        ..H   ldab 0048
1855 8E8A C1 08           ..    cmpb #08
1856 8E8C 25 05           %.    bcs 05
1857 8E8E F6 00 67        ..g   ldab 0067
1858 8E91 2D 03           -.    blt 03
1859 8E93 BD A4 59        ..Y   jsr a459             ;jump110
1860 8E96 F6 00 48        ..H   ldab 0048
1861 8E99 C1 0A           ..    cmpb #0a
1862 8E9B 24 5F           $_    bcc 5f
1863 8E9D 7C 00 48        |.H   inc 0048
1864 8EA0 F6 00 48        ..H   ldab 0048
1865 8EA3 C1 01           ..    cmpb #01
1866 8EA5 26 0F           &.    bne 0f
1867 8EA7 F6 00 67        ..g   ldab 0067
1868 8EAA C4 02           ..    andb #02
1869 8EAC 26 08           &.    bne 08
1870 8EAE F6 00 48        ..H   ldab 0048
1871 8EB1 CB 02           ..    addb #02
1872 8EB3 F7 00 48        ..H   stab 0048
1873 8EB6 F6 00 48        ..H   ldab 0048
1874 8EB9 C1 02           ..    cmpb #02
1875 8EBB 26 0A           &.    bne 0a
1876 8EBD F6 00 67        ..g   ldab 0067
1877 8EC0 C4 10           ..    andb #10
1878 8EC2 26 03           &.    bne 03
1879 8EC4 7C 00 48        |.H   inc 0048
1880 8EC7 F6 00 48        ..H   ldab 0048
1881 8ECA C1 06           ..    cmpb #06
1882 8ECC 26 0F           &.    bne 0f
1883 8ECE F6 00 67        ..g   ldab 0067
1884 8ED1 C4 08           ..    andb #08
1885 8ED3 26 08           &.    bne 08
1886 8ED5 C6 02           ..    ldab #02
1887 8ED7 FB 00 48        ..H   addb 0048
1888 8EDA F7 00 48        ..H   stab 0048
1889 8EDD F6 00 48        ..H   ldab 0048
1890 8EE0 C1 0A           ..    cmpb #0a
1891 8EE2 26 08           &.    bne 08
1892 8EE4 F6 00 67        ..g   ldab 0067
1893 8EE7 2D 03           -.    blt 03
1894 8EE9 7C 00 48        |.H   inc 0048
1895 8EEC F6 00 48        ..H   ldab 0048
1896 8EEF C1 0A           ..    cmpb #0a
1897 8EF1 23 09           #.    bls 09
1898 8EF3 7F 00 48        ..H   clr 0048
1899 8EF6 F6 0B C0        ...   ldab 0bc0
1900 8EF9 F7 00 67        ..g   stab 0067
1901 8EFC BD 9C 15        ...   jsr 9c15             ;jump111
1902 8EFF 20 0B            .    bra 0b
1903 8F01 BD A4 59        ..Y   jsr a459             ;jump110
1904 8F04 BD 85 AF        ...   jsr 85af             ;jump14
1905 8F07 20 03            .    bra 03
1906 8F09 BD 85 AF        ...   jsr 85af             ;jump14
1907 goto12:
1908 8F0C 39              9     rts
1909
1910 jump20:
1911 ; promotional vend-pair programming (buy one thing get another free?)
1912 8F0D F6 00 1F        ...   ldab 001f
1913 8F10 C4 02           ..    andb #02
1914 8F12 27 1D           '.    beq 1d
1915 8F14 C6 01           ..    ldab #01
1916 8F16 F7 00 22        .."   stab 0022
1917 8F19 F6 0B AF        ...   ldab 0baf
1918 8F1C F7 00 24        ..$   stab 0024
1919 8F1F F6 0B B4        ...   ldab 0bb4
1920 8F22 F7 00 2A        ..*   stab 002a
1921 8F25 CE 00 1F        ...   ldx #001f
1922 8F28 1D 00 02        ..    bclr 00,x, #02
1923 8F2B 7F 00 36        ..6   clr 0036
1924 8F2E 7E 90 D0        ~..   jmp 90d0             ;goto13
1925 8F31 F6 00 09        ...   ldab 0009
1926 8F34 4F              O     clra
1927 8F35 BD FE 16        ...   jsr fe16             ;jump2
1928 8F38 00 00 00 0B     ....  ; params for jump2
1929 8F3C 90 D0           ..
1930 8F3E 8F 56           ..
1931 8F40 8F 5C           ..
1932 8F42 8F B3           ..
1933 8F44 90 0C           ..
1934 8F46 90 62           ..
1935 8F48 90 BA           ..
1936 8F4A 90 DO           ..
1937 8F4C 90 D0           ..
1938 8F4E 90 D0           ..
1939 8F50 90 DO           ..
1940 8F52 90 C5           ..
1941 8F54 90 CD           ..
1942 8F56 BD 9D 2A        ..*   jsr 9d2a             ;jump89
1943 8F59 7E 90 D0        ~..   jmp 90d0             ;goto13
1944 8F5C F6 00 36        ..6   ldab 0036
1945 8F5F 26 43           &C    bne 43
1946 8F61 F6 00 24        ..$   ldab 0024
1947 8F64 C1 64           .d    cmpb #64
1948 8F66 24 34           $4    bcc 34
1949 8F68 7C 00 24        |.$   inc 0024
1950 8F6B F6 00 24        ..$   ldab 0024
1951 8F6E F7 00 06        ...   stab 0006
1952 8F71 F6 00 06        ...   ldab 0006
1953 8F74 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
1954 8F77 83 00 00        ...   subd #0000
1955 8F7A 27 03           '.    beq 03
1956 8F7C 7C 00 24        |.$   inc 0024
1957 8F7F F6 00 24        ..$   ldab 0024
1958 8F82 C1 64           .d    cmpb #64
1959 8F84 26 03           &.    bne 03
1960 8F86 7F 00 24        ..$   clr 0024
1961 8F89 F6 00 24        ..$   ldab 0024
1962 8F8C 4F              O     clra
1963 8F8D CE 00 05        ...   ldx #0005
1964 8F90 02              .     idiv
1965 8F91 5D              ]     tstb
1966 8F92 26 08           &.    bne 08
1967 8F94 F6 00 24        ..$   ldab 0024
1968 8F97 27 03           '.    beq 03
1969 8F99 7C 00 24        |.$   inc 0024
1970 8F9C BD 9D 2A        ..*   jsr 8d2a             ;jump89
1971 8F9F C6 02           ..    ldab #02
1972 8FA1 F7 00 36        ..6   stab 0036
1973 8FA4 CE 00 1B        ...   ldx #001b
1974 8FA7 1C 00 10        ...   bset 00,x, #10
1975 8FAA CC 02 33        ..3   ldd #0233
1976 8FAD FD 00 3B        ..;   std 003b
1977 8FB0 7E 90 D0        ~..   jmp 90d0             ;goto13
1978 8FB3 F6 00 36        ..6   ldab 0036
1979 8FB6 26 45           &E    bne 45
1980 8FB8 F6 00 24        ..$   ldab 0024
1981 8FBB C1 00           ..    cmpb #00
1982 8FBD 23 2C           #,    bls 2c
1983 8FBF 7A 00 24        z.$   dec 0024
1984 8FC2 F6 00 24        ..$   ldab 0024
1985 8FC5 4F              O     clra
1986 8FC6 CE 00 05        ...   ldx #0005
1987 8FC9 02              .     idiv
1988 8FCA 5D              ]     tstb
1989 8FCB 26 08           &.    bne 08
1990 8FCD F6 00 24        ..$   ldab 0024
1991 8FD0 27 03           '.    beq 03
1992 8FD2 7A 00 24        z.$   dec 0024
1993 8FD5 F6 00 24        ..$   ldab 0024
1994 8FD8 F7 00 06        ...   stab 0006
1995 8FDB F6 00 06        ...   ldab 0006
1996 8FDE BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
1997 8FE1 83 00 00        ...   subd #0000
1998 8FE4 27 03           '.    beq 03
1999 8FE6 7A 00 24        z.$   dec 0024
2000 8FE9 20 0A            .    bra 0a
2001 8FEB F6 00 24        ..$   ldab 0024
2002 8FEE 26 05           &.    bne 05
2003 8FF0 C6 62           .b    ldab #62
2004 8FF2 F7 00 24        ..$   stab 0024
2005 8FF5 BD 9D 2A        ..*   jsr 9d2a             ;jump89
2006 8FF8 C6 02           ..    ldab #02
2007 8FFA F7 00 36        ..6   stab 0036
2008 8FFD CE 00 1B        ...   ldx #001b
2009 9000 1C 00 10        ...   bset 00,x, #10
2010 9003 CC 02 33        ..3   ldd #0233
2011 9006 FD 00 3B        ..;   std 003b
2012 9009 7E 90 D0        ~..   jmp 90d0             ;goto13
2013 900C F6 00 36        ..6   ldab 0036
2014 900F 26 43           &C    bne 43
2015 9011 F6 00 2A        ..*   ldab 002a
2016 9014 C1 64           .d    cmpb #64
2017 9016 24 34           $4    bcc 34
2018 9018 7C 00 2A        |.*   inc 002a
2019 901B F6 00 2A        ..*   ldab 002a
2020 901E F7 00 06        ...   stab 0006
2021 9021 F6 00 06        ...   ldab 0006
2022 9024 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
2023 9027 83 00 00        ...   subd #0000
2024 902A 27 03           '.    beq 03
2025 902C 7C 00 2A        |.*   inc 002a
2026 902F F6 00 2A        ..*   ldab 002a
2027 9032 C1 64           .d    cmpb #64
2028 9034 26 03           &.    bne 03
2029 9036 7F 00 2A        ..*   clr 002a
2030 9039 F6 00 2A        ..*   ldab 002a
2031 903C 4F              O     clra
2032 903D CE 00 05        ...   ldx #0005
2033 9040 02              .     idiv
2034 9041 5D              ]     tstb
2035 9042 26 08           &.    bne 08
2036 9044 F6 00 2A        ..*   ldab 002a
2037 9047 27 03           '.    beq 03
2038 9049 7C 00 2A        |.*   inc 002a
2039 904C BD 9D 2A        ..*   jsr 9d2a             ;jump89
2040 904F C6 02           ..    ldab #02
2041 9051 F7 00 36        ..6   stab 0036
2042 9054 CE 00 1B        ...   ldx #001b
2043 9057 1C 00 10        ...   bset 00,x, #10
2044 905A CC 02 33        ..3   ldd #0233
2045 905D FD 00 3B        ..;   std 003b
2046 9060 20 6E            n    bra 6e
2047 9062 F6 00 36        ..6   ldab 0036
2048 9065 26 45           &E    bne 45
2049 9067 F6 00 2A        ..*   ldab 002a
2050 906A C1 00           ..    cmpb #00
2051 906C 23 2C           #,    bls 2c
2052 906E 7A 00 2A        z.*   dec 002a
2053 9071 F6 00 2A        ..*   ldab 002a
2054 9074 4F              O     clra
2055 9075 CE 00 05        ...   ldx #0005
2056 9078 02              .     idiv
2057 9079 5D              ]     tstb
2058 907A 26 08           &.    bne 08
2059 907C F6 00 2A        ..*   ldab 002a
2060 907F 27 03           '.    beq 03
2061 9081 7A 00 2A        z.*   dec 002a
2062 9084 F6 00 2A        ..*   ldab 002a
2063 9087 F7 00 06        ...   stab 0006
2064 908A F6 00 06        ...   ldab 0006
2065 908D BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
2066 9090 83 00 00        ...   subd #0000
2067 9093 27 03           '.    beq 03
2068 9095 7A 00 2A        z.*   dec 002a
2069 9098 20 0A            .    bra 0a
2070 909A F6 00 2A        ..*   ldab 002a
2071 909D 26 05           &.    bne 05
2072 909F C6 62           .b    ldab #62
2073 90A1 F7 00 2A        ..*   stab 002a
2074 90A4 BD 9D 2A        ..*   jsr 9d2a             ;jump89
2075 90A7 C6 02           ..    ldab #02
2076 90A9 F7 00 36        ..6   stab 0036
2077 90AC CE 00 1B        ...   ldx #001b
2078 90AF 1C 00 10        ...   bset 00,x, #10
2079 90B2 CC 02 33        ..3   ldd #0233
2080 90B5 FD 00 3B        ..;   std 003b
2081 90B8 20 16            .    bra 16
2082 90BA BD A5 1E        ...   jsr a51e             ;jump109
2083 90BD BD AA 9A        ...   jsr aa9a             ;jump127
2084 90C0 BD 9D 2A        ..*   jsr 9d2a             ;jump89
2085 90C3 20 0B            .    bra 0b
2086 90C5 BD A5 1E        ...   jsr a51e             ;jump109
2087 90C8 BD 85 AF        ...   jsr 85af             ;jump14
2088 90CB 20 03            .    bra 03
2089 90CD BD 85 AF        ...   jsr 85af             ;jump14
2090 goto13:
2091 90D0 39              9     rts
2092
2093 jump21:
2094 ; pos message & serial id
2095 90D1 F6 00 1F        ...   ldab 001f
2096 90D4 C4 02           ..    andb #02
2097 90D6 27 14           '.    beq 14
2098 90D8 CE 00 1F        ...   ldx #001f
2099 90DB 1D 00 02        ...   bclr 00,x, #02
2100 90DE CE 00 19        ...   ldx #0019
2101 90E1 1C 00           ..    bset add,x 00,x
2102 90E3 80 7F           ..    suba #7f
2103 90E5 00              .     test
2104 90E6 09              .     dex
2105 90E7 7F 00 0A        ...   clr 000a
2106 90EA 20 40            @    bra 40
2107 90EC F6 00 09        ...   ldab 0009
2108 90EF 4F              O     clra
2109 90F0 BD FE 32        ..2   jsr fe32             ;jump25
2110 90F3 91 0D 00 00     ....  ; array data for jump25
2111 90F7 91 15 00 01     ....
2112 90FB 91 19 00 01     ....
2113 90FF 91 1E 00 01     ....
2114 9103 91 23 00 08     .#..
2115 9107 91 26 FF F5     .&..
2116 910B 00 00           ..    ; end of array data
2117 910D CC B0 AD        ...   ldd #b0ad    ; "PROGRAM  ?"
2118 9110 BD C0 BA        ...   jsr c0ba             ;display:
2119 9113 20 17            .    bra 17
2120 9115 8D 16           ..    bsr dest 16
2121 9117 20 13            .    bra 13
2122 9119 BD 91 C6        ...   jsr 91c6             ;jump76
2123 911C 20 0E            .    bra 0e
2124 911E BD 92 5A        ..Z   jsr 925a             ;jump149
2125 9121 20 09            .    bra 09
2126 9123 BD 85 AF        ...   jsr 85af             ;jump14
2127 9126 7F 00 09        ...   clr 0009
2128 9129 7F 00 0A        ...   clr 000a
2129 912C 39              9     rts
2130
2131 912D F6 00 19        ...   ldab 0019
2132 9130 2C 28           ,(    bge 28
2133 9132 BD A9 CF        ...   jsr a9cf             ;jump131
2134 9135 C6 50           .P    ldab #50
2135 9137 F7 0A 90        ...   stab 0a90
2136 913A C6 20           .     ldab #20
2137 913C F7 0B 8D        ...   stab 0b8d
2138 913F C6 20           .     ldab #20
2139 9141 F7 0B 8E        ...   stab 0b8e
2140 9144 C6 28           .(    ldab #28
2141 9146 F7 0B 8F        ...   stab 0b8f
2142 9149 7F 00 54        ..T   clr 0054
2143 914C 7F 00 60        ..`   clr 0060
2144 914F CE 00 19        ...   ldx #0019
2145 9152 1D 00           ..    bclr add,x 00,x
2146 9154 80 7F           ..    suba #7f
2147 9156 00              .     test
2148 9157 36              6     psha
2149 9158 20 6B            k    bra 6b
2150 915A F6 00 0A        ...   ldab 000a
2151 915D 4F              O     clra
2152 915E BD FE 16        ...   jsr fe16             ;jump2
2153 9161 00              .     test
2154 9162 00              .     test
2155 9163 00              .     test
2156 9164 0B              .     sev
2157 9165 91 C5 91        ...   cmpa c5
2158 9168 7F 91 84        ...   clr 9184
2159 916B 91 89 91        ...   cmpa 89
2160 916E 8E 91 9F        ...   lds #919f
2161 9171 91 B0 91        ...   cmpa b0
2162 9174 C5 91           ..    bitb #91
2163 9176 C5 91           ..    bitb #91
2164 9178 C5 91           ..    bitb #91
2165 917A B5 91 BA        ...   bita 91ba
2166 917D 91 C2 BD        ...   cmpa c2
2167 9180 9D 7E 20        .~    jsr 7e
2168 9183 41              A     illegal
2169 9184 BD A8 64        ..d   jsr a864             ;jump99
2170 9187 20 3C            <    bra 3c
2171 9189 BD A8 D5        ...   jsr a8d5             ;jump97
2172 918C 20 37            7    bra 37
2173 918E BD A8 96        ...   jsr a896             ;jump98
2174 9191 CE 00 1B        ...   ldx #001b
2175 9194 1C 00 10        ...   bset 00,x, #10
2176 9197 CC 02 33        ..3   ldd #0233
2177 919A FD 00 3B        ..;   std 003b
2178 919D 20 26            &    bra 26
2179 919F BD A8 E5        ...   jsr a8e5             ;jump96
2180 91A2 CE 00 1B        ...   ldx #001b
2181 91A5 1C 00 10        ...   bset 00,x, #10
2182 91A8 CC 02 33        ..3   ldd #0233
2183 91AB FD 00 3B        ..;   std 003b
2184 91AE 20 15            .    bra 15
2185 91B0 BD A9 21        ..!   jsr a921             ;jump95
2186 91B3 20 10            .    bra 10
2187 91B5 BD A9 7A        ..z   jsr a97a             ;jump132
2188 91B8 20 0B            .    bra 0b
2189 91BA BD A5 7D        ..}   jsr a57d             ;jump139
2190 91BD BD 85 AF        ...   jsr 85af             ;jump14
2191 91C0 20 03            .    bra 03
2192 91C2 BD 85 AF        ...   jsr 85af             ;jump14
2193 91C5 39              9     rts
2194
2195 jump76:
2196 91C6 F6 00 19        ...   ldab 0019
2197 91C9 2C 28           ,(    bge 28
2198 91CB BD AA 0A        ...   jsr aa0a             ;jump130
2199 91CE C6 53           .S    ldab #53     ; "S"
2200 91D0 F7 0A 90        ...   stab 0a90
2201 91D3 C6 20           .     ldab #20     ; " "
2202 91D5 F7 0A 9D        ...   stab 0a9d
2203 91D8 C6 20           .     ldab #20     ; " "
2204 91DA F7 0A 9E        ...   stab 0a9e
2205 91DD C6 28           .(    ldab #28     ; "("
2206 91DF F7 0A 9F        ...   stab 0a9f
2207 91E2 7F 00 54        ..T   clr 0054
2208 91E5 7F 00 60        ..`   clr 0060
2209 91E8 CE 00 19        ...   ldx #0019
2210 91EB 1D 00           ..    bclr add,x 00,x
2211 91ED 80 7F           ..    suba #7f
2212 91EF 00              .     test
2213 91F0 36              6     psha
2214 91F1 20 66            f    bra 66
2215 91F3 F6 00 0A        ...   ldab 000a
2216 91F6 4F              O     clra
2217 91F7 BD FE 16        ...   jsr fe16             ;jump2
2218 91FA 00 00 00 08     .
2219 91FE 92 59           ..
2220 9200 92 18           ..
2221 9202 92 1D           ..
2222 9204 92 22           ..
2223 9206 92 27           ..
2224 9208 92 38           ..
2225 920A 92 49           ..
2226 920C 92 59           ..
2227 920E 92 59           ..
2228 9210 92 59           ..
2229 9212 92 59           ..
2230 9214 92 4E           ..
2231 9216 92 56           ..
2232 9218 BD 9D 7E        ..    jsr 9d7e
2233 921B 20 3C           .~    bra 3c
2234 921D BD A8 64        ..d   jsr a864             ;jump99
2235 9220 20 37            7    bra 37
2236 9222 BD A8 D5        ...   jsr a8d5             ;jump97
2237 9225 20 32            2    bra 32
2238 9227 BD A8 96        ...   jsr a896             ;jump98
2239 922A CE 00 1B        ...   ldx #001b
2240 922D 1C 00 10        ...   bset 00,x, #10
2241 9230 CC 02 33        ..3   ldd #0233
2242 9233 FD 00 3B        ..;   std 003b
2243 9236 20 21            !    bra 21
2244 9238 BD A8 E5        ...   jsr a8e5             ;jump96
2245 923B CE 00 1B        ...   ldx #001b
2246 923E 1C 00 10        ...   bset 00,x, #10
2247 9241 CC 02 33        ..3   ldd #0233
2248 9244 FD 00 3B        ..;   std 003b
2249 9247 20 10            .    bra 10
2250 9249 BD A9 21        ..!   jsr a921             ;jump95
2251 924C 20 0B            .    bra 0b
2252 924E BD A5 AC        ...   jsr a5ac             ;jump138
2253 9251 BD 85 AF        ...   jsr 85af             ;jump14
2254 9254 20 03            .    bra 03
2255 9256 BD 85 AF        ...   jsr 85af             ;jump14
2256 9259 39              9     rts
2257
2258 jump149:
2259 925A F6 00 19        ...   ldab 0019
2260 925D 2C 28           ,(    bge 28
2261 925F BD AA 3F        ..?   jsr aa3f             ;jump129
2262 9262 C6 49           .I    ldab #49
2263 9264 F7 0A 90        ...   stab 0a90
2264 9267 C6 20           .     ldab #20
2265 9269 F7 0A 9D        ...   stab 0a9d
2266 926C C6 20           .     ldab #20
2267 926E F7 0A 9E        ...   stab 0a9e
2268 9271 C6 28           .(    ldab #28
2269 9273 F7 0A 9F        ...   stab 0a9f
2270 9276 7F 00 54        ..T   clr 0054
2271 9279 7F 00 60        ..`   clr 0060
2272 927C CE 00 19        ...   ldx #0019
2273 927F 1D 00           ..    bclr add,x 00,x
2274 9281 80 7F           ..    suba #7f
2275 9283 00              .     test
2276 9284 36              6     psha
2277 9285 20 66            f    bra 66
2278 9287 F6 00 0A        ...   ldab 000a
2279 928A 4F              O     clra
2280 928B BD FE 16        ...   jsr fe16             ;jump2
2281 928E 00              .     test
2282 928F 00              .     test
2283 9290 00              .     test
2284 9291 0B              .     sev
2285 9292 92 ED 92        ...   sbca ed
2286 9295 AC 92           ..    cpx 92,x
2287 9297 B1 92 B6        ...   cmpa 92b6
2288 929A 92 BB 92        ...   sbca bb
2289 929D CC 92 DD        ...   ldd #92dd
2290 92A0 92 ED 92        ...   sbca ed
2291 92A3 ED 92           ..    std 92,x
2292 92A5 ED 92           ..    std 92,x
2293 92A7 ED 92           ..    std 92,x
2294 92A9 E2 92           ..    sbcb 92,x
2295 92AB EA BD           ..    orb bd,x
2296 92AD 9D 7E 20        .~    jsr 7e
2297 92B0 3C              <     pshx
2298 92B1 BD A8 64        ..d   jsr a864             ;jump99
2299 92B4 20 37            7    bra 37
2300 92B6 BD A8 D5        ...   jsr a8d5             ;jump97
2301 92B9 20 32            2    bra 32
2302 92BB BD A8 96        ...   jsr a896             ;jump98
2303 92BE CE 00 1B        ...   ldx #001b
2304 92C1 1C 00 10        ...   bset 00,x, #10
2305 92C4 CC 02 33        ..3   ldd #0233
2306 92C7 FD 00 3B        ..;   std 003b
2307 92CA 20 21            !    bra 21
2308 92CC BD A8 E5        ...   jsr a8e5             ;jump96
2309 92CF CE 00 1B        ...   ldx #001b
2310 92D2 1C 00 10        ...   bset 00,x, #10
2311 92D5 CC 02 33        ..3   ldd #0233
2312 92D8 FD 00 3B        ..;   std 003b
2313 92DB 20 10            .    bra 10
2314 92DD BD A9 21        ..!   jsr a921             ;jump95
2315 92E0 20 0B            .    bra 0b
2316 92E2 BD A5 D5        ...   jsr a5d5             ;jump137
2317 92E5 BD 85 AF        ...   jsr 85af             ;jump14
2318 92E8 20 03            .    bra 03
2319 92EA BD 85 AF        ...   jsr 85af             ;jump14
2320 92ED 39              9     rts
2321
2322 jump22:
2323 ; print info
2324 92EE F6 0C DC        ...   ldab 0cdc
2325 92F1 4F              O     clra
2326 92F2 37              7     pshb
2327 92F3 36              6     psha
2328 92F4 CC 00 64        ..d   ldd #0064
2329 92F7 BD FB BA        ...   jsr fbba             ;jump38
2330 92FA FD 0C E9        ...   std 0ce9
2331 92FD BD D6 F6        ...   jsr d6f6             ;jump106
2332 9300 FC 0C E9        ...   ldd 0ce9
2333 9303 F3 0B EF        ...   addd 0bef
2334 9306 FD 0C F1        ...   std 0cf1
2335 9309 FE 0C F5        ...   ldx 0cf5
2336 930C 3C              <     pshx
2337 930D FC 0C F3        ...   ldd 0cf3
2338 9310 37              7     pshb
2339 9311 36              6     psha
2340 9312 FE 0C F9        ...   ldx 0cf9
2341 9315 3C              <     pshx
2342 9316 FC 0C F7        ...   ldd 0cf7
2343 9319 BD FC 25        ..%   jsr fc25             ;jump85
2344 931C 37              7     pshb
2345 931D 36              6     psha
2346 931E FE 0C FD        ...   ldx 0cfd
2347 9321 3C              <     pshx
2348 9322 FC 0C FB        ...   ldd 0cfb
2349 9325 BD FC 25        ..%   jsr fc25             ;jump85
2350 9328 37              7     pshb
2351 9329 36              6     psha
2352 932A FE 0D 01        ...   ldx 0d01
2353 932D 3C              <     pshx
2354 932E FC 0C FF        ...   ldd 0cff
2355 9331 BD FC 25        ..%   jsr fc25             ;jump85
2356 9334 37              7     pshb
2357 9335 36              6     psha
2358 9336 FE 0D 05        ...   ldx 0d05
2359 9339 3C              <     pshx
2360 933A FC 0D 03        ...   ldd 0d03
2361 933D BD FC 25        ..%   jsr fc25             ;jump85
2362 9340 FD 0D F3        ...   std 0df3
2363 9343 32              2     pula
2364 9344 33              3     pulb
2365 9345 FD 0D F5        ...   std 0df5
2366 9348 FE 0D F9        ...   ldx 0df9
2367 934B 3C              <     pshx
2368 934C FC 0D F7        ...   ldd 0df7
2369 934F 37              7     pshb
2370 9350 36              6     psha
2371 9351 FE 0D F5        ...   ldx 0df5
2372 9354 3C              <     pshx
2373 9355 FC 0D F3        ...   ldd 0df3
2374 9358 BD FC 25        ..%   jsr fc25             ;jump85
2375 935B FD 0D EF        ...   std 0def
2376 935E 32              2     pula
2377 935F 33              3     pulb
2378 9360 FD 0D F1        ...   std 0df1
2379 9363 F6 20 00        . .   ldab 2000
2380 9366 C4 40           .@    andb #40
2381 9368 27 37           '7    beq 37
2382 936A F6 00 1F        ...   ldab 001f
2383 936D C4 02           ..    andb #02
2384 936F 27 1F           '.    beq 1f
2385 9371 BD 97 E9        ...   jsr 97e9             ;jump147
2386 9374 CE 00 1F        ...   ldx #001f
2387 9377 1D 00 02        ...   bclr 00,x, #02
2388 937A CE 00 1F        ...   ldx #001f
2389 937D 1D 00 10        ...   bclr 00,x, #10
2390 9380 CC 02 33        ..3   ldd #0233
2391 9383 FD 00 3B        ..;   std 003b
2392 9386 7F 00 09        ...   clr 0009
2393 9389 C6 92           ..    ldab #92
2394 938B F7 00 48        ..H   stab 0048
2395 938E 20 0F            .    bra 0f
2396 9390 F6 00 19        ...   ldab 0019
2397 9393 C4 40           .@    andb #40
2398 9395 26 05           &.    bne 05
2399 9397 BD 98 BF        ...   jsr 98bf             ;jump146
2400 939A 20 03            .    bra 03
2401 939C BD 85 AF        ...   jsr 85af             ;jump14
2402 939F 20 03            .    bra 03
2403 93A1 BD 98 FF        ...   jsr 98ff             ;jump145
2404 93A4 39              9     rts
2405
2406 jump23:
2407 ; program security code menu
2408 93A5 F6 00 1F        ...   ldab 001f
2409 93A8 C4 02           ..    andb #02
2410 93AA 26 0A           &.    bne 0a
2411 93AC F6 00 3A        ..:   ldab 003a
2412 93AF 26 2B           &+    bne 2b
2413 93B1 F6 00 1D        ...   ldab 001d
2414 93B4 2D 26           -&    blt 26
2415 93B6 CC AF BB        ...   ldd #afbb    ;"ENTER CODE"
2416 93B9 BD C0 BA        ...   jsr c0ba             ;display:
2417 93BC CE 00 1F        ...   ldx #001f
2418 93BF 1D 00 02        ...   bclr 00,x, #02
2419 93C2 CE 00 1D        ...   ldx #001d
2420 93C5 1D 00           ..    bclr add,x 00,x
2421 93C7 80 C6           ..    suba #c6
2422 93C9 32              2     pula
2423 93CA F7 00 3A        ..:   stab 003a
2424 93CD F6 0B A8        ...   ldab 0ba8
2425 93D0 F7 00 66        ..f   stab 0066
2426 93D3 BD AA 74        ..t   jsr aa74             ;jump128
2427 93D6 7F 00 48        ..H   clr 0048
2428 93D9 7F 00 54        ..T   clr 0054
2429 93DC F6 00 09        ...   ldab 0009
2430 93DF 26 03           &.    bne 03
2431 93E1 7E 94 92        ~..   jmp 9492             ;goto14
2432 93E4 F6 00 1D        ...   ldab 001d
2433 93E7 2C 03           ,.    bge 03
2434 93E9 7E 94 92        ~..   jmp 9492             ;goto14
2435 93EC F6 00 09        ...   ldab 0009
2436 93EF C1 0B           ..    cmpb #0b
2437 93F1 26 06           &.    bne 06
2438 93F3 BD 85 AF        ...   jsr 85af             ;jump14
2439 93F6 7E 94 90        ~..   jmp 9490             ;goto15
2440 93F9 F6 00 09        ...   ldab 0009
2441 93FC C1 0A           ..    cmpb #0a
2442 93FE 26 03           &.    bne 03
2443 9400 7F 00 09        ...   clr 0009
2444 9403 F6 00 09        ...   ldab 0009
2445 9406 CB 30           .0    addb #30
2446 9408 37              7     pshb
2447 9409 F6 00 54        ..T   ldab 0054
2448 940C 4F              O     clra
2449 940D C3 00 62        ..b   addd #0062
2450 9410 8F              .     xgdx
2451 9411 33              3     pulb
2452 9412 E7 00           ..    stab 00,x
2453 9414 BD BE 4B        ..K   jsr be4b             ;displayblank
2454 9417 F6 00 54        ..T   ldab 0054
2455 941A 26 06           &.    bne 06
2456 941C F6 00 62        ..b   ldab 0062
2457 941F F7 0B 96        ...   stab 0b96
2458 9422 F6 00 54        ..T   ldab 0054
2459 9425 C1 01           ..    cmpb #01
2460 9427 26 0C           &.    bne 0c
2461 9429 F6 00 62        ..b   ldab 0062
2462 942C F7 0B 96        ...   stab 0b96
2463 942F F6 00 63        ..c   ldab 0063
2464 9432 F7 0B 95        ...   stab 0b95
2465 9435 F6 00 54        ..T   ldab 0054
2466 9438 C1 02           ..    cmpb #02
2467 943A 26 12           &.    bne 12
2468 943C F6 00 62        ..b   ldab 0062
2469 943F F7 0B 96        ...   stab 0b96
2470 9442 F6 00 63        ..c   ldab 0063
2471 9445 F7 0B 95        ...   stab 0b95
2472 9448 F6 00 64        ..d   ldab 0064
2473 944B F7 0B 94        ...   stab 0b94
2474 944E F6 00 54        ..T   ldab 0054
2475 9451 C1 03           ..    cmpb #03
2476 9453 26 18           &.    bne 18
2477 9455 F6 00 62        ..b   ldab 0062
2478 9458 F7 0B 96        ...   stab 0b96
2479 945B F6 00 63        ..c   ldab 0063
2480 945E F7 0B 95        ...   stab 0b95
2481 9461 F6 00 64        ..d   ldab 0064
2482 9464 F7 0B 94        ...   stab 0b94
2483 9467 F6 00 65        ..e   ldab 0065
2484 946A F7 0B 93        ...   stab 0b93
2485 946D BD BE 01        ...   jsr be01             ;jump70
2486 9470 7C 00 54        |.T   inc 0054
2487 9473 F6 00 54        ..T   ldab 0054
2488 9476 C1 04           ..    cmpb #04
2489 9478 26 0B           &.    bne 0b
2490 947A CE 00 1D        ...   ldx #001d
2491 947D 1C 00           ..    bset add,x 00,x
2492 947F 80 BD           ..    suba #bd
2493 9481 A8 0F           ..    eora 0f,x
2494 9483 20 06            .    bra 06
2495 9485 CE 00 1D        ...   ldx #001d
2496 9488 1D 00           ..    bclr add,x 00,x
2497 948A 80 C6           ..    suba #c6
2498 948C 32              2     pula
2499 948D F7 00 3A        ..:   stab 003a
2500 goto15:
2501 9490 20 4A            J    bra 4a
2502 goto14:
2503 9492 F6 00 1D        ...   ldab 001d
2504 9495 2C 45           ,E    bge 45
2505 9497 F6 00 09        ...   ldab 0009
2506 949A 4F              O     clra
2507 949B BD FE 32        ..2   jsr fe32             ;jump25
2508 949E 94 B8 00 00     ....  ; array data for jump25
2509 94A2 94 BD 00 01     ....
2510 94A6 94 C2 00 04     ....
2511 94AA 94 D1 00 05     ....
2512 94AE 94 D9 00 01     ....
2513 94B2 94 DC FF F5     ....
2514 94B6 00 00           ..    ; end of array data
2515 94B8 BD 9E 0F        ...   jsr 9e0f             ;jump142
2516 94BB 20 1F            .    bra 1f
2517 94BD BD A7 1F        ...   jsr a71f             ;jump134
2518 94C0 20 1A            .    bra 1a
2519 94C2 7C 00 48        |.H   inc 0048
2520 94C5 F6 00 48        ..H   ldab 0048
2521 94C8 C1 0A           ..    cmpb #0a
2522 94CA 23 03           #.    bls 03
2523 94CC 7F 00 48        ..H   clr 0048
2524 94CF 20 0B            .    bra 0b
2525 94D1 BD A5 FE        ...   jsr a5fe             ;jump136
2526 94D4 BD 85 AF        ...   jsr 85af             ;jump14
2527 94D7 20 03            .    bra 03
2528 94D9 BD 85 AF        ...   jsr 85af             ;jump14
2529 94DC 39              9     rts
2530
2531 jump24:
2532 ; motor functions menu
2533 94DD F6 00 1F        ...   ldab 001f
2534 94E0 C4 02           ..    andb #02
2535 94E2 27 14           '.    beq 14
2536 94E4 CE 00 1F        ...   ldx #001f
2537 94E7 1D 00 02        ...   bclr 00,x, #02
2538 94EA CE 00 19        ...   ldx #0019
2539 94ED 1C 00 80        ..    bset 00,x, #80
2540 94EF 7F 00 09        ..    clr 0009
2541 94F3 7F 00 0A        ...   clr 000a
2542 94F6 20 46            F    bra 46
2543 94F8 F6 00 09        ...   ldab 0009
2544 94FB 4F              O     clra
2545 94FC BD FE 32        ..2   jsr fe32             ;jump25
2546 94FF 95 19 00 00     ....  ; no key
2547 9503 95 21 00 01     .!..  ; key 1 - motor count procedure
2548 9507 95 2C 00 01     .,..  ; key 2 - single test vend
2549 950B 95 30 00 01     .0..  ; key 3 - test vend everything
2550 950F 95 35 00 08     .5..  ; reset
2551 9513 95 38 FF F5     .8..
2552 9517 00 00           ..    ; end of array data
2553 9519 CC B0 A2        ...   ldd #b0a2    ; "MTR FUNCT?"
2554 951C BD C0 BA        ...   jsr c0ba             ;display:
2555 951F 20 1D            .    bra 1d
2556 9521 BD 87 E9        ...   jsr 87e9             ;jump74 - motor count procedure
2557 9524 CE 00 1F        ...   ldx #001f
2558 9527 1C 00 02        ...   bset 00,x, #02
2559 952A 20 12            .    bra 12
2560 952C 8D 11           ..    bsr dest 11  ;jump203 - test single vend
2561 952E 20 0E            .    bra 0e
2562 9530 BD 96 88        ...   jsr 9688             ;jump148 - test all vends
2563 9533 20 09            .    bra 09
2564 9535 BD 85 AF        ...   jsr 85af             ;jump14
2565 9538 7F 00 09        ...   clr 0009
2566 953B 7F 00 0A        ...   clr 000a
2567 953E 39              9     rts
2568
2569 jump203:
2570 ; test a single vend
2571 953F F6 00 19        ...   ldab 0019
2572 9542 2D 0A           -.    blt 0a
2573 9544 F6 00 3A        ..:   ldab 003a
2574 9547 26 22           &"    bne 22
2575 9549 F6 00 1D        ...   ldab 001d
2576 954C 2D 1D           -.    blt 1d
2577 954E 7F 00 2C        ..,   clr 002c
2578 9551 CC B0 B8        ...   ldd #b0b8    ; "SELECTION?"
2579 9554 BD C0 BA        ...   jsr c0ba             ;display:
2580 9557 CE 00 19        ...   ldx #0019
2581 955A 1D 00           ..    bclr add,x 00,x
2582 955C 80 CE           ..    suba #ce
2583 955E 00              .     test
2584 955F 1D 1D 00        ...   bclr 1d,x, #00
2585 9562 80 7F           ..    suba #7f
2586 9564 00              .     test
2587 9565 54              T     lsrb
2588 9566 C6 32           .2    ldab #32
2589 9568 F7 00 3A        ..:   stab 003a
2590 956B F6 00 0A        ...   ldab 000a
2591 956E 26 03           &.    bne 03
2592 9570 7E 96 5C        ~.\   jmp 965c             ;goto16
2593 9573 F6 00 1D        ...   ldab 001d
2594 9576 2C 03           ,.    bge 03
2595 9578 7E 96 5C        ~.\   jmp 965c             ;goto16
2596 957B F6 00 0A        ...   ldab 000a
2597 957E C1 0B           ..    cmpb #0b
2598 9580 26 09           &.    bne 09
2599 9582 CE 00 1F        ...   ldx #001f
2600 9585 1C 00 02        ...   bset 00,x, #02
2601 9588 7E 96 5A        ~.Z   jmp 965a             ;goto93
2602 958B F6 00 54        ..T   ldab 0054
2603 958E 26 26           &&    bne 26
2604 9590 BD BE 4B        ..K   jsr be4b             ;displayblank
2605 9593 F6 00 0A        ...   ldab 000a
2606 9596 C1 0A           ..    cmpb #0a
2607 9598 26 03           &.    bne 03
2608 959A 7F 00 0A        ...   clr 000a
2609 959D F6 00 0A        ...   ldab 000a
2610 95A0 CB 30           .0    addb #30
2611 95A2 37              7     pshb
2612 95A3 CC 0B 95        ...   ldd #0b95
2613 95A6 F0 00 54        ..T   subb 0054
2614 95A9 82 00           ..    sbca #00
2615 95AB 8F              .     xgdx
2616 95AC 33              3     pulb
2617 95AD E7 00           ..    stab 00,x
2618 95AF C6 32           .2    ldab #32
2619 95B1 F7 00 3A        ..:   stab 003a
2620 95B4 20 37            7    bra 37
2621 95B6 F6 00 54        ..T   ldab 0054
2622 95B9 C1 01           ..    cmpb #01
2623 95BB 26 27           &'    bne 27
2624 95BD F6 00 0A        ...   ldab 000a
2625 95C0 C1 05           ..    cmpb #05
2626 95C2 27 20           '     beq 20
2627 95C4 F6 00 0A        ...   ldab 000a
2628 95C7 C1 0A           ..    cmpb #0a
2629 95C9 27 19           '.    beq 19
2630 95CB F6 00 0A        ...   ldab 000a
2631 95CE CB 30           .0    addb #30
2632 95D0 37              7     pshb
2633 95D1 CC 0B 95        ...   ldd #0b95
2634 95D4 F0 00 54        ..T   subb 0054
2635 95D7 82 00           ..    sbca #00
2636 95D9 8F              .     xgdx
2637 95DA 33              3     pulb
2638 95DB E7 00           ..    stab 00,x
2639 95DD C6 32           .2    ldab #32
2640 95DF F7 00 3A        ..:   stab 003a
2641 95E2 20 09            .    bra 09
2642 95E4 CE 00 19        ...   ldx #0019
2643 95E7 1C 00           ..    bset add,x 00,x
2644 95E9 80 7F           ..    suba #7f
2645 95EB 00              .     test
2646 95EC 3A              :     abx
2647 95ED BD BE 01        ...   jsr be01             ;jump70
2648 95F0 7C 00 54        |.T   inc 0054
2649 95F3 F6 00 54        ..T   ldab 0054
2650 95F6 C1 02           ..    cmpb #02
2651 95F8 26 5A           &Z    bne 5a
2652 95FA CE 00 1D        ...   ldx #001d
2653 95FD 1C 00           ..    bset add,x 00,x
2654 95FF 80 F6           ..    suba #f6
2655 9601 0B              .     sev
2656 9602 94 CB D0        ...   anda cb
2657 9605 37              7     pshb
2658 9606 F6 0B 95        ...   ldab 0b95
2659 9609 CB D0           ..    addb #d0
2660 960B 86 0A           ..    ldaa #0a
2661 960D 3D              =     mul
2662 960E 30              0     tsx
2663 960F EB 00           ..    addb 00,x
2664 9611 31              1     ins
2665 9612 F7 00 06        ...   stab 0006
2666 9615 C6 32           .2    ldab #32
2667 9617 F7 00 3A        ..:   stab 003a
2668 961A F6 00 06        ...   ldab 0006
2669 961D BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
2670 9620 83 00 00        ...   subd #0000
2671 9623 26 21           &!    bne 21
2672 9625 BD D3 11        ...   jsr d311             ;jump30 - test position exists
2673 9628 83 00 00        ...   subd #0000
2674 962B 26 0B           &.    bne 0b
2675 962D CE 00 1F        ...   ldx #001f
2676 9630 1C 00 40        ...   bset 00,x, #40
2677 9633 BD 8C 73        ..s   jsr 8c73             ;jump75
2678 9636 20 06            .    bra 06
2679 9638 CE 00 1F        ...   ldx #001f
2680 963B 1D 00 40        ...   bclr 00,x, #40
2681 963E 7F 00 2C        ..,   clr 002c
2682 9641 BD 9A 47        ..G   jsr 9a47             ;jump39
2683 9644 20 0C            .    bra 0c
2684 9646 CE 00 1D        ...   ldx #001d
2685 9649 1D 00           ..    bclr add,x 00,x
2686 964B 80 CE           ..    suba #ce
2687 964D 00              .     test
2688 964E 19              .     daa
2689 964F 1C 00           ..    bset add,x 00,x
2690 9651 80 20           .     suba #20
2691 9653 06              .     tap
2692 9654 CE 00 1D        ...   ldx #001d
2693 9657 1D 00           ..    bclr add,x 00,x
2694 9659 80 20           .     suba #20
2695 ; 965a   goto93
2696 965B 2B F6           +.    bmi f6
2697 ; 965C
2698 ;goto16
2699 965D 00              .     test
2700 965E 1D 2C           .,    bclr add,x 2c,x
2701 9660 26 BD           &.    bne bd
2702 9662 D2 13 83        ...   sbcb 13
2703 9665 00              .     test
2704 9666 00              .     test
2705 9667 26 0F           &.    bne 0f
2706 9669 CC 00 64        ..d   ldd #0064
2707 966C BD E5 71        ..q   jsr e571             ;msdelay
2708 966F BD E5 D1        ...   jsr e5d1             ;jump52 - triple beep
2709 9672 CC 03 84        ...   ldd #0384
2710 9675 BD E5 71        ..q   jsr e571             ;msdelay
2711 9678 7F 00 2E        ...   clr 002e
2712 967B CE 00 1D        ...   ldx #001d
2713 967E 1D 00           ..    bclr add,x 00,x
2714 9680 80 CE           ..    suba #ce
2715 9682 00              .     test
2716 9683 1F 1C 00 02     ....  brclr 1c,x 00 02
2717 9687 39              9     rts
2718
2719 jump148:
2720 ;tests all vends
2721 9688 34              4     des
2722 9689 F6 00 19        ...   ldab 0019
2723 968C 2C 19           ,.    bge 19
2724 968E CE 00 19        ...   ldx #0019
2725 9691 1D 00 80        ..    bclr 00,x, #80
2726 9694 CC B0 97        ...   ldd #b097   ; "TEST  VEND"
2727 9697 BD C0 BA        ...   jsr c0ba    ; display
2728 969A C6 0A           ..    ldab #0a
2729 969C F7 00 38        ..8   stab 0038
2730 969F 7F 00 05        ...   clr 0005
2731 96A2 C6 01           ..    ldab #01
2732 96A4 F7 00 06        ...   stab 0006
2733 96A7 F6 00 0A        ...   ldab 000a
2734 96AA C1 0B           ..    cmpb #0b
2735 96AC 26 0C           &.    bne 0c      ; to 96ba
2736 96AE CC 02 33        ..3   ldd #0233
2737 96B1 FD 00 3B        ..;   std 003b
2738 96B4 CE 00 1F        ...   ldx #001f
2739 96B7 1C 00 02        ...   bset 00,x, #02
2740 96BA F6 00 38        ..8   ldab 0038
2741 96BD 27 03           '.    beq 03
2742 96BF 7E 97 6D        ~.m   jmp 976d             ;goto17 - return
2743 96C2 F6 00 06        ...   ldab 0006
2744 96C5 C1 63           .c    cmpb #63     ; exit if >63
2745 96C7 23 03           #.    bls 03
2746 96C9 7E 97 6D        ~.m   jmp 976d             ;goto17 - return
2747 96CC F6 00 06        ...   ldab 0006
2748 96CF C1 63           .c    cmpb #63
2749 96D1 26 0F           &.    bne 0f
2750 96D3 BD 99 C3        ...   jsr 99c3             ;jump143 - write "VENDS XXX" (from 0005)
2751 96D6 CC 07 D0        ...   ldd #07d0    ; 2000
2752 96D9 BD E5 71        ..q   jsr e571             ;msdelay
2753 96DC CE 00 1F        ...   ldx #001f
2754 96DF 1C 00 02        ...   bset 00,x, #02
2755 96E2 BD D3 11        ...   jsr d311             ;jump30 - test position exists
2756 96E5 83 00 00        ...   subd #0000
2757 96E8 26 0B           &.    bne 0b
2758 96EA CE 00 1F        ...   ldx #001f
2759 96ED 1C 00 40        ...   bset 00,x, #40
2760 96F0 BD 8C 73        ..s   jsr 8c73             ;jump75
2761 96F3 20 06            .    bra 06
2762 96F5 CE 00 1F        ...   ldx #001f
2763 96F8 1D 00 40        ...   bclr 00,x, #40
2764 96FB BD 9A 47        ..G   jsr 9a47             ;jump39
2765 96FE F6 00 06        ...   ldab 0006
2766 9701 C1 63           .c    cmpb #63
2767 9703 26 03           &.    bne 03
2768 9705 7F 00 2C        ..,   clr 002c
2769 9708 BD D2 13        ...   jsr d213             ;jump45
2770 970B 83 00 00        ...   subd #0000
2771 970E 27 03           '.    beq 03
2772 9710 7C 00 05        |..   inc 0005
2773 9713 7F 00 2E        ...   clr 002e
2774 9716 C6 05           ..    ldab #05
2775 9718 F7 00 38        ..8   stab 0038
2776 971B CC 02 33        ..3   ldd #0233
2777 971E FD 00 3B        ..;   std 003b
2778 9721 30              0     tsx
2779 9722 6F 00           o.    clr 00,x
2780 9724 F6 0E 6D        ..m   ldab 0e6d
2781 9727 27 0C           '.    beq 0c
2782 9729 F6 00 06        ...   ldab 0006
2783 972C C1 3E           .>    cmpb #3e
2784 972E 26 05           &.    bne 05
2785 9730 C6 01           ..    ldab #01
2786 9732 30              0     tsx
2787 9733 E7 00           ..    stab 00,x
2788 9735 8D 38           .8    bsr dest 38
2789 9737 F6 0E 6D        ..m   ldab 0e6d
2790 973A 27 0C           '.    beq 0c
2791 973C 30              0     tsx
2792 973D E6 00           ..    ldab 00,x
2793 973F C1 01           ..    cmpb #01
2794 9741 26 05           &.    bne 05
2795 9743 C6 45           .E    ldab #45
2796 9745 F7 00 06        ...   stab 0006
2797 9748 F6 00 06        ...   ldab 0006
2798 974B BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
2799 974E 83 00 00        ...   subd #0000
2800 9751 27 15           '.    beq 15
2801 9753 F6 00 06        ...   ldab 0006
2802 9756 C1 09           ..    cmpb #09
2803 9758 26 02           &.    bne 02
2804 975A 8D 13           ..    bsr dest 13
2805 975C F6 00 06        ...   ldab 0006
2806 975F C1 45           .E    cmpb #45
2807 9761 26 05           &.    bne 05
2808 9763 C6 63           .c    ldab #63
2809 9765 F7 00 06        ...   stab 0006
2810 9768 5F              _     clrb
2811 9769 4F              O     clra
2812 976A FD 00 40        ..@   std 0040
2813 goto17:
2814 976D 31              1     ins
2815 976E 39              9     rts
2816
2817 jump41:
2818 976F F6 0E 6D        ..m   ldab 0e6d
2819 9772 C1 01           ..    cmpb #01
2820 9774 26 41           &A    bne 41
2821 9776 F6 00 06        ...   ldab 0006
2822 9779 4F              O     clra
2823 977A CE 00 0A        ...   ldx #000a
2824 977D 02              .     idiv
2825 977E C1 01           ..    cmpb #01
2826 9780 26 05           &.    bne 05
2827 9782 7C 00 06        |..   inc 0006
2828 9785 20 1B            .    bra 1b
2829 9787 F6 00 06        ...   ldab 0006
2830 978A 4F              O     clra
2831 978B CE 00 0A        ...   ldx #000a
2832 978E 02              .     idiv
2833 978F C1 02           ..    cmpb #02
2834 9791 26 0A           &.    bne 0a
2835 9793 C6 09           ..    ldab #09
2836 9795 FB 00 06        ...   addb 0006
2837 9798 F7 00 06        ...   stab 0006
2838 979B 20 05            .    bra 05
2839 979D C6 0B           ..    ldab #0b
2840 979F F7 00 06        ...   stab 0006
2841 97A2 F6 00 06        ...   ldab 0006
2842 97A5 C1 3E           .>    cmpb #3e
2843 97A7 22 07           ".    bhi 07
2844 97A9 F6 00 06        ...   ldab 0006
2845 97AC C1 0B           ..    cmpb #0b
2846 97AE 24 05           $.    bcc 05
2847 97B0 C6 0B           ..    ldab #0b
2848 97B2 F7 00 06        ...   stab 0006
2849 97B5 20 31            1    bra 31
2850 97B7 F6 00 06        ...   ldab 0006
2851 97BA CB 0A           ..    addb #0a
2852 97BC F7 00 06        ...   stab 0006
2853 97BF F6 00 06        ...   ldab 0006
2854 97C2 C1 64           .d    cmpb #64
2855 97C4 23 22           #"    bls 22
2856 97C6 F6 00 06        ...   ldab 0006
2857 97C9 CB 9C           ..    addb #9c
2858 97CB CB 01           ..    addb #01
2859 97CD F7 00 06        ...   stab 0006
2860 97D0 F6 00 06        ...   ldab 0006
2861 97D3 C1 05           ..    cmpb #05
2862 97D5 26 05           &.    bne 05
2863 97D7 C6 06           ..    ldab #06
2864 97D9 F7 00 06        ...   stab 0006
2865 97DC F6 00 06        ...   ldab 0006
2866 97DF C1 0A           ..    cmpb #0a
2867 97E1 26 05           &.    bne 05
2868 97E3 C6 01           ..    ldab #01
2869 97E5 F7 00 06        ...   stab 0006
2870 97E8 39              9     rts
2871
2872 jump147:
2873 97E9 BD BE 4B        ..K   jsr be4b             ;displayblank
2874 97EC CC AF E7        ...   ldd #afe7    ; "-PRINTING-"
2875 97EF BD C0 BA        ...   jsr c0ba             ;display:
2876 97F2 BD F4 15        ...   jsr f415             ;jump112
2877 97F5 39              9     rts
2878
2879 jump27:
2880 97F6 BD BE 4B        ..K   jsr be4b             ;displayblank
2881 97F9 F6 00 48        ..H   ldab 0048
2882 97FC 4F              O     clra
2883 97FD BD FE 16        ...   jsr fe16             ;jump2
2884 9800 00 01 00 03     .     test
2885 9804 98 80           ..
2886 9806 98 0E           ..
2887 9808 98 2B           ..
2888 980A 98 48           ..
2889 980C 98 65           ..
2890 980E F6 0C D9        ..    ldab 0cd9
2891 9811 4F              .     clra
2892 9812 BD E7 95        ...   jsr e795      ;jump54 - number to string
2893 9815 C6 4E           .N    ldab #4e
2894 9817 F7 0B 99        ...   stab 0b99
2895 981A C6 49           .I    ldab #49
2896 981C F7 0B 98        ...   stab 0b98
2897 981F C6 4B           .K    ldab #4b
2898 9821 F7 0B 97        ...   stab 0b97
2899 9824 C6 4C           .L    ldab #4c
2900 9826 F7 0B 96        ...   stab 0b96
2901 9829 20 55            U    bra 55
2902 982B F6 0C DA        ...   ldab 0cda
2903 982E 4F              O     clra
2904 982F BD E7 95        ...   jsr e795             ;jump54 - number to string
2905 9832 C6 44           .D    ldab #44
2906 9834 F7 0B 99        ...   stab 0b99
2907 9837 C6 49           .I    ldab #49
2908 9839 F7 0B 98        ...   stab 0b98
2909 983C C6 4D           .M    ldab #4d
2910 983E F7 0B 97        ...   stab 0b97
2911 9841 C6 45           .E    ldab #45
2912 9843 F7 0B 96        ...   stab 0b96
2913 9846 20 38            8    bra 38
2914 9848 F6 0C DB        ...   ldab 0cdb
2915 984B 4F              O     clra
2916 984C BD E7 95        ...   jsr e795             ;jump54 - number to string
2917 984F C6 51           .Q    ldab #51
2918 9851 F7 0B 99        ...   stab 0b99
2919 9854 C6 55           .U    ldab #55
2920 9856 F7 0B 98        ...   stab 0b98
2921 9859 C6 54           .T    ldab #54
2922 985B F7 0B 97        ...   stab 0b97
2923 985E C6 52           .R    ldab #52
2924 9860 F7 0B 96        ...   stab 0b96
2925 9863 20 1B            .    bra 1b
2926 9865 F6 0C DC        ...   ldab 0cdc
2927 9868 4F              O     clra
2928 9869 BD E7 95        ...   jsr e795             ;jump54 - number to string
2929 986C C6 44           .D    ldab #44     ; "D"
2930 986E F7 0B 99        ...   stab 0b99
2931 9871 C6 4F           .O    ldab #4f     ; "O"
2932 9873 F7 0B 98        ...   stab 0b98
2933 9876 C6 4C           .L    ldab #4c     ; "L"
2934 9878 F7 0B 97        ...   stab 0b97
2935 987B C6 52           .R    ldab #52     ; "R"
2936 987D F7 0B 96        ...   stab 0b96
2937 9880 C6 53           .S    ldab #53     ; "S"
2938 9882 F7 0B 95        ...   stab 0b95
2939 9885 C6 20           .     ldab #20     ; " "
2940 9887 F7 0B 94        ...   stab 0b94
2941 988A C6 20           .     ldab #20     ; " "
2942 988C F7 0B 93        ...   stab 0b93
2943 988F F6 00 5D        ..]   ldab 005d
2944 9892 F7 0B 92        ...   stab 0b92
2945 9895 F6 00 5E        ..^   ldab 005e    ; row number?
2946 9898 F7 0B 91        ...   stab 0b91
2947 989B F6 00 5F        .._   ldab 005f    ; column number?
2948 989E F7 0B 90        ...   stab 0b90
2949 98A1 BD BE 01        ...   jsr be01             ;jump70 - to disp buffer
2950 98A4 39              9     rts
2951
2952 jump11:
2953 ; prints contents of 0054 to display
2954 98A5 BD BE 4B        ..K   jsr be4b             ;displayblank
2955 98A8 F6 00 54        ..T   ldab 0054
2956 98AB 4F              O     clra
2957 98AC BD E7 95        ...   jsr e795             ; slot number to digits
2958 98AF F6 00 5E        ..^   ldab 005e
2959 98B2 F7 0B 95        ...   stab 0b95
2960 98B5 F6 00 5F        .._   ldab 005f
2961 98B8 F7 0B 94        ...   stab 0b94
2962 98BB BD BE 01        ...   jsr be01             ;jump70 - write to display
2963 98BE 39              9     rts
2964
2965 jump146:
2966 98BF F6 00 09        ...   ldab 0009
2967 98C2 C1 00           ..    cmpb #00
2968 98C4 26 05           &.    bne 05
2969 98C6 BD 9E 89        ...   jsr 9e89             ;jump100
2970 98C9 20 33            3    bra 33
2971 98CB C1 01           ..    cmpb #01
2972 98CD 26 1E           &.    bne 1e
2973 98CF F6 00 48        ..H   ldab 0048
2974 98D2 C1 92           ..    cmpb #92
2975 98D4 26 15           &.    bne 15
2976 98D6 F6 00 1F        ...   ldab 001f
2977 98D9 C4 10           ..    andb #10
2978 98DB 26 08           &.    bne 08
2979 98DD CE 00 1F        ...   ldx #001f
2980 98E0 1C 00 10        ...   bset 00,x, #10
2981 98E3 20 06            .    bra 06
2982 98E5 CE 00 1F        ...   ldx #001f
2983 98E8 1D 00 10        ...   bclr 00,x, #10
2984 98EB 20 11            .    bra 11
2985 98ED C1 0B           ..    cmpb #0b
2986 98EF 26 0D           &.    bne 0d
2987 98F1 F6 00 1F        ...   ldab 001f
2988 98F4 C4 10           ..    andb #10
2989 98F6 27 03           '.    beq 03
2990 98F8 BD E9 2B        ..+   jsr e92b             ;jump103
2991 98FB BD 85 AF        ...   jsr 85af             ;jump14
2992 98FE 39              9     rts
2993
2994 jump145:
2995 98FF F6 00 1F        ...   ldab 001f
2996 9902 C4 02           ..    andb #02
2997 9904 27 13           '.    beq 13
2998 9906 C6 01           ..    ldab #01
2999 9908 F7 00 48        ..H   stab 0048
3000 990B CE 00 1F        ...   ldx #001f
3001 990E 1D 00 10        ...   bclr 00,x, #10
3002 9911 CE 00 1F        ...   ldx #001f
3003 9914 1D 00 02        ...   bclr 00,x, #02
3004 9917 20 67            g    bra 67
3005 9919 F6 00 09        ...   ldab 0009
3006 991C 4F              O     clra
3007 991D BD FE 32        ..2   jsr fe32             ;jump25
3008 9920 99 36 00 00     .6..  ; array data for jump25
3009 9924 99 3B 00 01     .;..
3010 9928 99 59 00 09     .Y..
3011 992C 99 73 00 01     .s..
3012 9930 99 80 FF F5     ....
3013 9934 00 00           ..    ; end of array data
3014 9936 BD 9E 89        ...   jsr 9e89             ;jump100
3015 9939 20 45            E    bra 45
3016 993B F6 00 48        ..H   ldab 0048
3017 993E C1 92           ..    cmpb #92
3018 9940 26 15           &.    bne 15
3019 9942 F6 00 1F        ...   ldab 001f
3020 9945 C4 10           ..    andb #10
3021 9947 26 08           &.    bne 08
3022 9949 CE 00 1F        ...   ldx #001f
3023 994C 1C 00 10        ...   bset 00,x, #10
3024 994F 20 06            .    bra 06
3025 9951 CE 00 1F        ...   ldx #001f
3026 9954 1D 00 10        ...   bclr 00,x, #10
3027 9957 20 27            '    bra 27
3028 9959 7C 00 48        |.H   inc 0048
3029 995C F6 00 48        ..H   ldab 0048
3030 995F C1 92           ..    cmpb #92
3031 9961 23 0B           #.    bls 0b
3032 9963 C6 01           ..    ldab #01
3033 9965 F7 00 48        ..H   stab 0048
3034 9968 CE 00 1F        ...   ldx #001f
3035 996B 1D 00 10        ...   bclr 00,x, #10
3036 996E BD 9E 89        ...   jsr 9e89             ;jump100
3037 9971 20 0D            .    bra 0d
3038 9973 F6 00 1F        ...   ldab 001f
3039 9976 C4 10           ..    andb #10
3040 9978 27 03           '.    beq 03
3041 997A BD E9 2B        ..+   jsr e92b             ;jump103
3042 997D BD 85 AF        ...   jsr 85af             ;jump14
3043 9980 39              9     rts
3044
3045 jump144:
3046 ; writes "MOTORS XX" where XX is the slot number in 0005
3047 9981 BD BE 4B        ..K   jsr be4b             ;displayblank
3048 9984 F6 00 05        ...   ldab 0005
3049 9987 4F              O     clra
3050 9988 BD E7 95        ...   jsr e795             ;jump54 - number to string
3051 998B C6 4D           .M    ldab #4d     ; "M"
3052 998D F7 0B 99        ...   stab 0b99
3053 9990 C6 4F           .O    ldab #4f     ; "O"
3054 9992 F7 0B 98        ...   stab 0b98
3055 9995 C6 54           .T    ldab #54     ; "T"
3056 9997 F7 0B 97        ...   stab 0b97
3057 999A C6 4F           .O    ldab #4f     ; "O"
3058 999C F7 0B 96        ...   stab 0b96
3059 999F C6 52           .R    ldab #52     ; "R"
3060 99A1 F7 0B 95        ...   stab 0b95
3061 99A4 C6 53           .S    ldab #53     ; "S"
3062 99A6 F7 0B 94        ...   stab 0b94
3063 99A9 C6 20           .     ldab #20     ; " "
3064 99AB F7 0B 93        ...   stab 0b93
3065 99AE C6 20           .     ldab #20     ; " "
3066 99B0 F7 0B 92        ...   stab 0b92
3067 99B3 F6 00 5E        ..^   ldab 005e
3068 99B6 F7 0B 91        ...   stab 0b91
3069 99B9 F6 00 5F        .._   ldab 005f
3070 99BC F7 0B 90        ...   stab 0b90
3071 99BF BD BE 01        ...   jsr be01             ;jump70 - display
3072 99C2 39              9     rts
3073
3074 jump143:
3075 ; writes VENDS XX where XX is contents of 0005
3076 99C3 BD BE 4B        ..K   jsr be4b             ;displayblank
3077 99C6 F6 00 05        ...   ldab 0005
3078 99C9 4F              O     clra
3079 99CA BD E7 95        ...   jsr e795             ;jump54 - number to string
3080 99CD C6 56           .V    ldab #56     ; "V"
3081 99CF F7 0B 99        ...   stab 0b99
3082 99D2 C6 45           .E    ldab #45     ; "E"
3083 99D4 F7 0B 98        ...   stab 0b98
3084 99D7 C6 4E           .N    ldab #4e     ; "N"
3085 99D9 F7 0B 97        ...   stab 0b97
3086 99DC C6 44           .D    ldab #44     ; "D"
3087 99DE F7 0B 96        ...   stab 0b96
3088 99E1 C6 53           .S    ldab #53     ; "S"
3089 99E3 F7 0B 95        ...   stab 0b95
3090 99E6 C6 20           .     ldab #20     ; " "
3091 99E8 F7 0B 94        ...   stab 0b94
3092 99EB C6 20           .     ldab #20     ; " "
3093 99ED F7 0B 93        ...   stab 0b93
3094 99F0 C6 20           .     ldab #20     ; " "
3095 99F2 F7 0B 92        ...   stab 0b92
3096 99F5 F6 00 5E        ..^   ldab 005e
3097 99F8 F7 0B 91        ...   stab 0b91
3098 99FB F6 00 5F        .._   ldab 005f
3099 99FE F7 0B 90        ...   stab 0b90
3100 9A01 BD BE 01        ...   jsr be01             ;jump70
3101 9A04 39              9     rts
3102
3103 jump102:
3104 9A05 BD BE 4B        ..K   jsr be4b             ;displayblank
3105 9A08 FC 00 52        ..R   ldd 0052
3106 9A0B BD E7 45        ..E   jsr e745             ;jump55 - number to string
3107 9A0E C6 4F           .O    ldab #4f     ; "O"
3108 9A10 F7 0B 99        ...   stab 0b99
3109 9A13 C6 44           .D    ldab #44     ; "D"
3110 9A15 F7 0B 98        ...   stab 0b98
3111 9A18 C6 44           .D    ldab #44     ; "D"
3112 9A1A F7 0B 97        ...   stab 0b97
3113 9A1D C6 53           .S    ldab #53     ; "S"
3114 9A1F F7 0B 96        ...   stab 0b96
3115 9A22 C6 20           .     ldab #20     ; " "
3116 9A24 F7 0B 95        ...   stab 0b95
3117 9A27 C6 31           .1    ldab #31     ; "1"
3118 9A29 F7 0B 94        ...   stab 0b94
3119 9A2C C6 2F           ./    ldab #2f     ; "/"
3120 9A2E F7 0B 93        ...   stab 0b93
3121 9A31 F6 00 5D        ..]   ldab 005d
3122 9A34 F7 0B 92        ...   stab 0b92
3123 9A37 F6 00 5E        ..^   ldab 005e
3124 9A3A F7 0B 91        ...   stab 0b91
3125 9A3D F6 00 5F        .._   ldab 005f
3126 9A40 F7 0B 90        ...   stab 0b90
3127 9A43 BD BE 01        ...   jsr be01             ;jump70
3128 9A46 39              9     rts
3129
3130 jump39:
3131 9A47 BD BE 4B        ..K   jsr be4b             ;displayblank
3132 9A4A F6 00 06        ...   ldab 0006
3133 9A4D 4F              O     clra
3134 9A4E BD E7 95        ...   jsr e795             ;jump54 - number to string
3135 9A51 F6 00 5E        ..^   ldab 005e
3136 9A54 F7 0B 99        ...   stab 0b99
3137 9A57 F6 00 5F        .._   ldab 005f
3138 9A5A F7 0B 98        ...   stab 0b98
3139 9A5D C6 20           .     ldab #20
3140 9A5F F7 0B 97        ...   stab 0b97
3141 9A62 F6 00 1F        ...   ldab 001f
3142 9A65 C4 40           .@    andb #40
3143 9A67 27 45           'E    beq 45
3144 9A69 FC 00 27        ..'   ldd 0027
3145 9A6C BD E7 45        ..E   jsr e745             ;jump55 - number to string
3146 9A6F F6 00 5A        ..Z   ldab 005a
3147 9A72 F7 0B 96        ...   stab 0b96
3148 9A75 F6 00 5D        ..]   ldab 005d
3149 9A78 F7 0B 95        ...   stab 0b95
3150 9A7B F6 00 5E        ..^   ldab 005e
3151 9A7E F7 0B 94        ...   stab 0b94
3152 9A81 F6 00 5F        .._   ldab 005f
3153 9A84 F7 0B 93        ...   stab 0b93
3154 9A87 F6 00 19        ...   ldab 0019
3155 9A8A C4 10           ..    andb #10
3156 9A8C 27 07           '.    beq 07
3157 9A8E C6 2A           .*    ldab #2a
3158 9A90 F7 0B 92        ...   stab 0b92
3159 9A93 20 05            .    bra 05
3160 9A95 C6 20           .     ldab #20
3161 9A97 F7 0B 92        ...   stab 0b92
3162 9A9A FC 00 46        ..F   ldd 0046
3163 9A9D BD E7 45        ..E   jsr e745             ;jump55 - number to string
3164 9AA0 F6 00 5E        ..^   ldab 005e
3165 9AA3 F7 0B 91        ...   stab 0b91
3166 9AA6 F6 00 5F        .._   ldab 005f
3167 9AA9 F7 0B 90        ...   stab 0b90
3168 9AAC 20 1E            .    bra 1e
3169 9AAE C6 58           .X    ldab #58   : "X"
3170 9AB0 F7 0B 96        ...   stab 0b96
3171 9AB3 C6 58           .X    ldab #58   : "X"
3172 9AB5 F7 0B 95        ...   stab 0b95
3173 9AB8 C6 58           .X    ldab #58   : "X"
3174 9ABA F7 0B 94        ...   stab 0b94
3175 9ABD C6 58           .X    ldab #58   : "X"
3176 9ABF F7 0B 93        ...   stab 0b93
3177 9AC2 C6 58           .X    ldab #58   : "X"
3178 9AC4 F7 0B 91        ...   stab 0b91
3179 9AC7 C6 58           .X    ldab #58   : "X"
3180 9AC9 F7 0B 90        ...   stab 0b90
3181 9ACC F6 00 13        ...   ldab 0013
3182 9ACF C1 01           ..    cmpb #01
3183 9AD1 23 4C           #L    bls 4c
3184 9AD3 F6 0B 91        ...   ldab 0b91
3185 9AD6 F7 0B 90        ...   stab 0b90
3186 9AD9 F6 0B 92        ...   ldab 0b92
3187 9ADC F7 0B 91        ...   stab 0b91
3188 9ADF F6 0B 93        ...   ldab 0b93
3189 9AE2 F7 0B 92        ...   stab 0b92
3190 9AE5 F6 0B 94        ...   ldab 0b94
3191 9AE8 F7 0B 93        ...   stab 0b93
3192 9AEB F6 00 13        ...   ldab 0013
3193 9AEE C1 02           ..    cmpb #02
3194 9AF0 26 07           &.    bne 07
3195 9AF2 C6 2E           ..    ldab #2e   ; "."
3196 9AF4 F7 0B 94        ...   stab 0b94
3197 9AF7 20 26            &    bra 26
3198 9AF9 C1 04           ..    cmpb #04
3199 9AFB 26 0D           &.    bne 0d
3200 9AFD F6 0B 95        ...   ldab 0b95
3201 9B00 F7 0B 94        ...   stab 0b94
3202 9B03 C6 2E           ..    ldab #2e   ; "."
3203 9B05 F7 0B 95        ...   stab 0b95
3204 9B08 20 15            .    bra 15
3205 9B0A C1 08           ..    cmpb #08
3206 9B0C 26 11           &.    bne 11
3207 9B0E F6 0B 95        ...   ldab 0b95
3208 9B11 F7 0B 94        ...   stab 0b94
3209 9B14 F6 0B 96        ...   ldab 0b96
3210 9B17 F7 0B 95        ...   stab 0b95
3211 9B1A C6 2E           ..    ldab #2e
3212 9B1C F7 0B 96        ...   stab 0b96
3213 9B1F F6 00 2C        ..,   ldab 002c
3214 9B22 26 3E           &>    bne 3e
3215 9B24 BD BE 69        ..i   jsr be69             ;displayreset
3216 9B27 F6 00 13        ...   ldab 0013
3217 9B2A C1 01           ..    cmpb #01
3218 9B2C 23 2C           #,    bls 2c
3219 9B2E CE 10 28        ..(   ldx #1028
3220 9B31 1C 00 40        ...   bset 00,x, #40 ; enable SPI
3221 9B34 F6 00 1F        ...   ldab 001f
3222 9B37 C4 40           .@    andb #40
3223 9B39 27 0E           '.    beq 0e
3224 9B3B CE 00 01        ...   ldx #0001
3225 9B3E 3C              <     pshx
3226 9B3F F6 00 5F        .._   ldab 005f
3227 9B42 4F              O     clra
3228 9B43 BD BD B5        ...   jsr bdb5             ;jump78
3229 9B46 38              8     pulx
3230 9B47 20 0B            .    bra 0b
3231 9B49 CE 00 01        ...   ldx #0001
3232 9B4C 3C              <     pshx
3233 9B4D CC 00 58        ..X   ldd #0058
3234 9B50 BD BD B5        ...   jsr bdb5             ;jump78
3235 9B53 38              8     pulx
3236 9B54 CE 10 28        ..(   ldx #1028
3237 9B57 1D 00 40        ...   bclr 00,x, #40
3238 9B5A BD BE 10        ...   jsr be10             ;jump88
3239 9B5D C6 03           ..    ldab #03
3240 9B5F F7 00 2C        ..,   stab 002c
3241 9B62 39              9     rts
3242
3243 jump101:
3244 9B63 BD BE 4B        ..K   jsr be4b             ;displayblank
3245 9B66 FC 00 0D        ...   ldd 000d
3246 9B69 BD E7 45        ..E   jsr e745             ;jump55 - number to string
3247 9B6C C6 44           .D    ldab #44
3248 9B6E F7 0B 99        ...   stab 0b99
3249 9B71 C6 53           .S    ldab #53
3250 9B73 F7 0B 98        ...   stab 0b98
3251 9B76 C6 43           .C    ldab #43
3252 9B78 F7 0B 97        ...   stab 0b97
3253 9B7B C6 4E           .N    ldab #4e
3254 9B7D F7 0B 96        ...   stab 0b96
3255 9B80 C6 54           .T    ldab #54
3256 9B82 F7 0B 95        ...   stab 0b95
3257 9B85 C6 20           .     ldab #20
3258 9B87 F7 0B 94        ...   stab 0b94
3259 9B8A F6 00 5A        ..Z   ldab 005a
3260 9B8D F7 0B 93        ...   stab 0b93
3261 9B90 F6 00 5D        ..]   ldab 005d
3262 9B93 F7 0B 92        ...   stab 0b92
3263 9B96 F6 00 5E        ..^   ldab 005e
3264 9B99 F7 0B 91        ...   stab 0b91
3265 9B9C F6 00 5F        .._   ldab 005f
3266 9B9F F7 0B 90        ...   stab 0b90
3267 9BA2 F6 00 13        ...   ldab 0013
3268 9BA5 C1 01           ..    cmpb #01
3269 9BA7 23 3C           #<    bls 3c
3270 9BA9 F6 0B 91        ...   ldab 0b91
3271 9BAC F7 0B 90        ...   stab 0b90
3272 9BAF F6 00 13        ...   ldab 0013
3273 9BB2 C1 02           ..    cmpb #02
3274 9BB4 26 07           &.    bne 07
3275 9BB6 C6 2E           ..    ldab #2e
3276 9BB8 F7 0B 91        ...   stab 0b91
3277 9BBB 20 28            (    bra 28
3278 9BBD C1 04           ..    cmpb #04
3279 9BBF 26 0D           &.    bne 0d
3280 9BC1 F6 0B 92        ...   ldab 0b92
3281 9BC4 F7 0B 91        ...   stab 0b91
3282 9BC7 C6 2E           ..    ldab #2e
3283 9BC9 F7 0B 92        ...   stab 0b92
3284 9BCC 20 17            .    bra 17
3285 9BCE C1 08           ..    cmpb #08
3286 9BD0 26 13           &.    bne 13
3287 9BD2 F6 0B 92        ...   ldab 0b92
3288 9BD5 F7 0B 91        ...   stab 0b91
3289 9BD8 F6 0B 93        ...   ldab 0b93
3290 9BDB F7 0B 92        ...   stab 0b92
3291 9BDE C6 2E           ..    ldab #2e
3292 9BE0 F7 0B 93        ...   stab 0b93
3293 9BE3 20 00            .    bra 00
3294 9BE5 F6 00 2C        ..,   ldab 002c
3295 9BE8 26 2A           &*    bne 2a
3296 9BEA BD BE 69        ..i   jsr be69             ;displayreset
3297 9BED F6 00 13        ...   ldab 0013
3298 9BF0 C1 01           ..    cmpb #01
3299 9BF2 23 18           #.    bls 18
3300 9BF4 CE 10 28        ..(   ldx #1028
3301 9BF7 1C 00 40        ...   bset 00,x, #40
3302 9BFA CE 00 01        ...   ldx #0001
3303 9BFD 3C              <     pshx
3304 9BFE F6 00 5F        .._   ldab 005f
3305 9C01 4F              O     clra
3306 9C02 BD BD B5        ...   jsr bdb5             ;jump78
3307 9C05 38              8     pulx
3308 9C06 CE 10 28        ..(   ldx #1028
3309 9C09 1D 00 40        ...   bclr 00,x, #40
3310 9C0C BD BE 10        ...   jsr be10             ;jump88
3311 9C0F C6 03           ..    ldab #03
3312 9C11 F7 00 2C        ..,   stab 002c
3313 9C14 39              9     rts
3314
3315 jump111:
3316 9C15 BD BE 4B        ..K   jsr be4b             ;displayblank
3317 9C18 F6 00 48        ..H   ldab 0048
3318 9C1B 4F              O     clra
3319 9C1C BD FE 16        ...   jsr fe16             ;jump2
3320 9C1F 00              .     test
3321 9C20 00              .     test
3322 9C21 00              .     test
3323 9C22 0A              .     clv
3324 9C23 9D 29 9C        .).   jsr 29
3325 9C26 3B              ;     rti
3326 9C27 9C 53 9C        .S.   cmpx 53
3327 9C2A 6B              k     illegal
3328 9C2B 9C 83 9C        ...   cmpx 83
3329 9C2E 9B 9C B2        ...   adda 9c
3330 9C31 9C C9 9C        ...   cmpx c9
3331 9C34 E0 9C           ..    subb 9c,x
3332 9C36 F7 9D 0E        ...   stab 9d0e
3333 9C39 9D 23 F6        .#.   jsr 23
3334 9C3C 00              .     test
3335 9C3D 67 C4           g.    asr c4,x
3336 9C3F 02              .     idiv
3337 9C40 27 08           '.    beq 08
3338 9C42 CC AF 00        ...   ldd #af00    ; "LNK MSTR Y"
3339 9C45 BD C0 BA        ...   jsr c0ba             ;display:
3340 9C48 20 06            .    bra 06
3341 9C4A CC AF 0B        ...   ldd #af0b    ; "LNK MSTR N"
3342 9C4D BD C0 BA        ...   jsr c0ba             ;display:
3343 9C50 7E 9D 29        ~.)   jmp 9d29             ;goto18
3344 9C53 F6 00 67        ..g   ldab 0067
3345 9C56 C4 10           ..    andb #10
3346 9C58 27 08           '.    beq 08
3347 9C5A CC AF 42        ..B   ldd #af42    ; "PRC HOLD Y"
3348 9C5D BD C0 BA        ...   jsr c0ba             ;display:
3349 9C60 20 06            .    bra 06
3350 9C62 CC AF 4D        ..M   ldd #af4d    ; "PRC HOLD N"
3351 9C65 BD C0 BA        ...   jsr c0ba             ;display:
3352 9C68 7E 9D 29        ~.)   jmp 9d29             ;goto18
3353 9C6B F6 00 67        ..g   ldab 0067
3354 9C6E C4 20           .     andb #20
3355 9C70 27 08           '.    beq 08
3356 9C72 CC AF 58        ..X   ldd #af58    ; "PRC DISP Y"
3357 9C75 BD C0 BA        ...   jsr c0ba             ;display:
3358 9C78 20 06            .    bra 06
3359 9C7A CC AF 63        ..c   ldd #af63    ; "PRC DISP N"
3360 9C7D BD C0 BA        ...   jsr c0ba             ;display:
3361 9C80 7E 9D 29        ~.)   jmp 9d29             ;goto18
3362 9C83 F6 00 67        ..g   ldab 0067
3363 9C86 C4 01           ..    andb #01
3364 9C88 27 08           '.    beq 08
3365 9C8A CC AE EA        ...   ldd #aeea    ; "DUMB MEC Y"
3366 9C8D BD C0 BA        ...   jsr c0ba             ;display:
3367 9C90 20 06            .    bra 06
3368 9C92 CC AE F5        ...   ldd #aef5    ; "DUMB MEC N"
3369 9C95 BD C0 BA        ...   jsr c0ba             ;display:
3370 9C98 7E 9D 29        ~.)   jmp 9d29             ;goto18
3371 9C9B F6 00 67        ..g   ldab 0067
3372 9C9E C4 04           ..    andb #04
3373 9CA0 27 08           '.    beq 08
3374 9CA2 CC AF 16        ...   ldd #af16    ; "CARD RDR Y"
3375 9CA5 BD C0 BA        ...   jsr c0ba             ;display:
3376 9CA8 20 06            .    bra 06
3377 9CAA CC AF 21        ..!   ldd #af21    ; "CARD RDR N"
3378 9CAD BD C0 BA        ...   jsr c0ba             ;display:
3379 9CB0 20 77            w    bra 77
3380 9CB2 F6 00 67        ..g   ldab 0067
3381 9CB5 C4 08           ..    andb #08
3382 9CB7 27 08           '.    beq 08
3383 9CB9 CC AF 2C        ..,   ldd #af2c    ; "BILL VAL Y"
3384 9CBC BD C0 BA        ...   jsr c0ba             ;display:
3385 9CBF 20 06            .    bra 06
3386 9CC1 CC AF 37        ..7   ldd #af37    ; "BILL VAL N"
3387 9CC4 BD C0 BA        ...   jsr c0ba             ;display:
3388 9CC7 20 60            `    bra 60
3389 9CC9 F6 00 67        ..g   ldab 0067
3390 9CCC C4 40           .@    andb #40
3391 9CCE 27 08           '.    beq 08
3392 9CD0 CC AF 84        ...   ldd #af84    ; "$1 CHNGR Y"
3393 9CD3 BD C0 BA        ...   jsr c0ba             ;display:
3394 9CD6 20 06            .    bra 06
3395 9CD8 CC AF 8F        ...   ldd #af8f    ; "$1 CHNGR N"
3396 9CDB BD C0 BA        ...   jsr c0ba             ;display:
3397 9CDE 20 49            I    bra 49
3398 9CE0 F6 0E 70        ..p   ldab 0e70
3399 9CE3 C1 01           ..    cmpb #01
3400 9CE5 26 08           &.    bne 08
3401 9CE7 CC AE BE        ...   ldd #aebe    ; "$5 ENABLE "
3402 9CEA BD C0 BA        ...   jsr c0ba             ;display:
3403 9CED 20 06            .    bra 06
3404 9CEF CC AE C9        ...   ldd #aec9    ; "$5 DISABLE"
3405 9CF2 BD C0 BA        ...   jsr c0ba             ;display:
3406 9CF5 20 32            2    bra 32
3407 9CF7 F6 0E 6F        ..o   ldab 0e6f
3408 9CFA C1 01           ..    cmpb #01
3409 9CFC 26 08           &.    bne 08
3410 9CFE CC AE D4        ...   ldd #aed4    ; "SODA VEND "
3411 9D01 BD C0 BA        ...   jsr c0ba             ;display:
3412 9D04 20 06            .    bra 06
3413 9D06 CC AE DF        ...   ldd #aedf    ; "SNACK VEND"
3414 9D09 BD C0 BA        ...   jsr c0ba             ;display:
3415 9D0C 20 1B            .    bra 1b
3416 9D0E F6 00 67        ..g   ldab 0067
3417 9D11 2C 08           ,.    bge 08
3418 9D13 CC AF 6E        ..n   ldd #af6e    ; "FREE VND Y"
3419 9D16 BD C0 BA        ...   jsr c0ba             ;display:
3420 9D19 20 06            .    bra 06
3421 9D1B CC AF 79        ..y   ldd #af79    ; "FREE VND N"
3422 9D1E BD C0 BA        ...   jsr c0ba             ;display:
3423 9D21 20 06            .    bra 06
3424 9D23 CC AF B0        ...   ldd #afb0    ; "HIT KEY "0""
3425 9D26 BD C0 BA        ...   jsr c0ba             ;display:
3426 goto18:
3427 9D29 39              9     rts
3428
3429 jump89:
3430 9D2A BD BE 4B        ..K   jsr be4b             ;displayblank
3431 9D2D F6 00 22        .."   ldab 0022
3432 9D30 4F              O     clra
3433 9D31 BD E7 95        ...   jsr e795             ;jump54 - number to string
3434 9D34 F6 00 5E        ..^   ldab 005e
3435 9D37 F7 0B 99        ...   stab 0b99
3436 9D3A F6 00 5F        .._   ldab 005f
3437 9D3D F7 0B 98        ...   stab 0b98
3438 9D40 C6 20           .     ldab #20
3439 9D42 F7 0B 97        ...   stab 0b97
3440 9D45 F6 00 24        ..$   ldab 0024
3441 9D48 4F              O     clra
3442 9D49 BD E7 95        ...   jsr e795             ;jump54 - number to string
3443 9D4C C6 50           .P    ldab #50
3444 9D4E F7 0B 96        ...   stab 0b96
3445 9D51 F6 00 5E        ..^   ldab 005e
3446 9D54 F7 0B 95        ...   stab 0b95
3447 9D57 F6 00 5F        .._   ldab 005f
3448 9D5A F7 0B 94        ...   stab 0b94
3449 9D5D C6 20           .     ldab #20
3450 9D5F F7 0B 93        ...   stab 0b93
3451 9D62 F6 00 2A        ..*   ldab 002a
3452 9D65 4F              O     clra
3453 9D66 BD E7 95        ...   jsr e795             ;jump54 - number to string
3454 9D69 C6 46           .F    ldab #46
3455 9D6B F7 0B 92        ...   stab 0b92
3456 9D6E F6 00 5E        ..^   ldab 005e
3457 9D71 F7 0B 91        ...   stab 0b91
3458 9D74 F6 00 5F        .._   ldab 005f
3459 9D77 F7 0B 90        ...   stab 0b90
3460 9D7A BD BE 01        ...   jsr be01             ;jump70
3461 9D7D 39              9     rts
3462
3463 9D7E BD BE 4B        ..K   jsr be4b             ;displayblank
3464 9D81 F6 00 60        ..`   ldab 0060
3465 9D84 4F              O     clra
3466 9D85 C3 0A 90        ...   addd #0a90
3467 9D88 8F              .     xgdx
3468 9D89 E6 00           ..    ldab 00,x
3469 9D8B F7 0B 99        ...   stab 0b99
3470 9D8E F6 00 60        ..`   ldab 0060
3471 9D91 4F              O     clra
3472 9D92 C3 0A 91        ...   addd #0a91
3473 9D95 8F              .     xgdx
3474 9D96 E6 00           ..    ldab 00,x
3475 9D98 F7 0B 98        ...   stab 0b98
3476 9D9B F6 00 60        ..`   ldab 0060
3477 9D9E 4F              O     clra
3478 9D9F C3 0A 92        ...   addd #0a92
3479 9DA2 8F              .     xgdx
3480 9DA3 E6 00           ..    ldab 00,x
3481 9DA5 F7 0B 97        ...   stab 0b97
3482 9DA8 F6 00 60        ..`   ldab 0060
3483 9DAB 4F              O     clra
3484 9DAC C3 0A 94        ...   addd #0a94
3485 9DAF 8F              .     xgdx
3486 9DB0 E6 00           ..    ldab 00,x
3487 9DB2 F7 0B 95        ...   stab 0b95
3488 9DB5 F6 00 60        ..`   ldab 0060
3489 9DB8 4F              O     clra
3490 9DB9 C3 0A 95        ...   addd #0a95
3491 9DBC 8F              .     xgdx
3492 9DBD E6 00           ..    ldab 00,x
3493 9DBF F7 0B 94        ...   stab 0b94
3494 9DC2 F6 00 60        ..`   ldab 0060
3495 9DC5 4F              O     clra
3496 9DC6 C3 0A 96        ...   addd #0a96
3497 9DC9 8F              .     xgdx
3498 9DCA E6 00           ..    ldab 00,x
3499 9DCC F7 0B 93        ...   stab 0b93
3500 9DCF C6 20           .     ldab #20
3501 9DD1 F7 0B 92        ...   stab 0b92
3502 9DD4 C6 20           .     ldab #20
3503 9DD6 F7 0B 91        ...   stab 0b91
3504 9DD9 F6 00 54        ..T   ldab 0054
3505 9DDC 4F              O     clra
3506 9DDD C3 B4 8F        ...   addd #b48f
3507 9DE0 8F              .     xgdx
3508 9DE1 E6 00           ..    ldab 00,x
3509 9DE3 F7 0B 90        ...   stab 0b90
3510 9DE6 F6 00 38        ..8   ldab 0038
3511 9DE9 C1 03           ..    cmpb #03
3512 9DEB 24 0F           $.    bcc 0f
3513 9DED F6 00 60        ..`   ldab 0060
3514 9DF0 4F              O     clra
3515 9DF1 C3 0A 93        ...   addd #0a93
3516 9DF4 8F              .     xgdx
3517 9DF5 E6 00           ..    ldab 00,x
3518 9DF7 F7 0B 96        ...   stab 0b96
3519 9DFA 20 05            .    bra 05
3520 9DFC C6 1F           ..    ldab #1f
3521 9DFE F7 0B 96        ...   stab 0b96
3522 9E01 BD BE 01        ...   jsr be01             ;jump70
3523 9E04 F6 00 38        ..8   ldab 0038
3524 9E07 26 05           &.    bne 05
3525 9E09 C6 05           ..    ldab #05
3526 9E0B F7 00 38        ..8   stab 0038
3527 9E0E 39              9     rts
3528
3529 jump142:
3530 9E0F BD BE 4B        ..K   jsr be4b             ;displayblank
3531 9E12 F6 00 48        ..H   ldab 0048
3532 9E15 26 15           &.    bne 15
3533 9E17 F6 00 66        ..f   ldab 0066
3534 9E1A 27 08           '.    beq 08
3535 9E1C CC AF C6        ...   ldd #afc6    ; "SECURE ON"
3536 9E1F BD C0 BA        ...   jsr c0ba             ;display:
3537 9E22 20 06            .    bra 06
3538 9E24 CC AF D1        ...   ldd #afd1    ; "SECURE OFF"
3539 9E27 BD C0 BA        ...   jsr c0ba             ;display:
3540 9E2A 20 5C            \    bra 5c
3541 9E2C C6 4D           .M    ldab #4d
3542 9E2E F7 0B 99        ...   stab 0b99
3543 9E31 C6 45           .E    ldab #45
3544 9E33 F7 0B 98        ...   stab 0b98
3545 9E36 C6 4E           .N    ldab #4e
3546 9E38 F7 0B 97        ...   stab 0b97
3547 9E3B C6 55           .U    ldab #55
3548 9E3D F7 0B 96        ...   stab 0b96
3549 9E40 C6 20           .     ldab #20
3550 9E42 F7 0B 95        ...   stab 0b95
3551 9E45 F6 00 48        ..H   ldab 0048
3552 9E48 CB 30           .0    addb #30
3553 9E4A F7 0B 94        ...   stab 0b94
3554 9E4D F6 00 48        ..H   ldab 0048
3555 9E50 C1 0A           ..    cmpb #0a
3556 9E52 26 05           &.    bne 05
3557 9E54 C6 30           .0    ldab #30
3558 9E56 F7 0B 94        ...   stab 0b94
3559 9E59 C6 20           .     ldab #20
3560 9E5B F7 0B 93        ...   stab 0b93
3561 9E5E C6 4F           .O    ldab #4f
3562 9E60 F7 0B 92        ...   stab 0b92
3563 9E63 F6 00 48        ..H   ldab 0048
3564 9E66 4F              O     clra
3565 9E67 C3 00 68        ..h   addd #0068
3566 9E6A 8F              .     xgdx
3567 9E6B E6 00           ..    ldab 00,x
3568 9E6D 27 0C           '.    beq 0c
3569 9E6F C6 4E           .N    ldab #4e
3570 9E71 F7 0B 91        ...   stab 0b91
3571 9E74 C6 20           .     ldab #20
3572 9E76 F7 0B 90        ...   stab 0b90
3573 9E79 20 0A            .    bra 0a
3574 9E7B C6 46           .F    ldab #46
3575 9E7D F7 0B 91        ...   stab 0b91
3576 9E80 C6 46           .F    ldab #46
3577 9E82 F7 0B 90        ...   stab 0b90
3578 9E85 BD BE 01        ...   jsr be01             ;jump70
3579 9E88 39              9     rts
3580
3581 jump100:
3582 9E89 BD BE 4B        ..K   jsr be4b             ;displayblank
3583 9E8C F6 00 48        ..H   ldab 0048
3584 9E8F 4F              O     clra
3585 9E90 BD FE 16        ...   jsr fe16             ;jump2
3586 9E93 00              .     test
3587 9E94 01              .     nop
3588 9E95 00              .     test
3589 9E96 2D A1           -.    blt a1
3590 9E98 C4 9E           ..    andb #9e
3591 9E9A F5 9E FE        ...   bitb 9efe
3592 9E9D 9F 07 9F        ...   sts 07
3593 9EA0 10              .     sba
3594 9EA1 9F 19 9F        ...   sts 19
3595 9EA4 3B              ;     rti
3596 9EA5 9F 44 9F        .D.   sts 44
3597 9EA8 52              R     illegal
3598 9EA9 9F 5B 9F        .[.   sts 5b
3599 9EAC 69              i     rol
3600 9EAD 9F 72 9F        .r.   sts 72
3601 9EB0 80 9F           ..    suba #9f
3602 9EB2 89 9F           ..    adca #9f
3603 9EB4 97 9F A0        ...   staa 9f
3604 9EB7 9F AE 9F        ...   sts ae
3605 9EBA B7 9F C5        ...   staa 9fc5
3606 9EBD 9F DD 9F        ...   sts dd
3607 9EC0 EB A0           ..    addb a0,x
3608 9EC2 03              .     fdiv
3609 9EC3 A0 11           ..    suba 11,x
3610 9EC5 A0 29           .)    suba 29,x
3611 9EC7 A0 37           .7    suba 37,x
3612 9EC9 A0 54           .T    suba 54,x
3613 9ECB A0 62           .b    suba 62,x
3614 9ECD A0 7F           ..    suba 7f,x
3615 9ECF A0 8D           ..    suba 8d,x
3616 9ED1 A0 96           ..    suba 96,x
3617 9ED3 A0 A4           ..    suba a4,x
3618 9ED5 A0 AD           ..    suba ad,x
3619 9ED7 A0 BC           ..    suba bc,x
3620 9ED9 A0 C5           ..    suba c5,x
3621 9EDB A0 D4           ..    suba d4,x
3622 9EDD A0 DD           ..    suba dd,x
3623 9EDF A0 EC           ..    suba ec,x
3624 9EE1 A0 F5           ..    suba f5,x
3625 9EE3 A1 04           ..    cmpa 04,x
3626 9EE5 A1 26           .&    cmpa 26,x
3627 9EE7 A1 34           .4    cmpa 34,x
3628 9EE9 A1 55           .U    cmpa 55,x
3629 9EEB A1 62           .b    cmpa 62,x
3630 9EED A1 83           ..    cmpa 83,x
3631 9EEF A1 90           ..    cmpa 90,x
3632 9EF1 A1 B1           ..    cmpa b1,x
3633 9EF3 A1 BE           ..    cmpa be,x
3634 9EF5 CC B2 90        ...   ldd #b290    ; "SERIAL #"
3635 9EF8 BD C0 BA        ...   jsr c0ba             ;display:
3636 9EFB 7E A1 C4        ~..   jmp a1c4             ;goto19
3637 9EFE CC 0C BC        ...   ldd #0cbc    ; serial number?
3638 9F01 BD C0 BA        ...   jsr c0ba             ;display:
3639 9F04 7E A1 C4        ~..   jmp a1c4             ;goto19
3640 9F07 CC B2 A2        ...   ldd #b2a2    ; "MACHINE ID"
3641 9F0A BD C0 BA        ...   jsr c0ba             ;display:
3642 9F0D 7E A1 C4        ~..   jmp a1c4             ;goto19
3643 9F10 CC 0C CC        ...   ldd #0ccc    ; machine id?
3644 9F13 BD C0 BA        ...   jsr c0ba             ;display:
3645 9F16 7E A1 C4        ~..   jmp a1c4             ;goto19
3646 9F19 C6 41           .A    ldab #41
3647 9F1B F7 0B 99        ...   stab 0b99
3648 9F1E C6 55           .U    ldab #55
3649 9F20 F7 0B 98        ...   stab 0b98
3650 9F23 C6 44           .D    ldab #44
3651 9F25 F7 0B 97        ...   stab 0b97
3652 9F28 C6 54           .T    ldab #54
3653 9F2A F7 0B 96        ...   stab 0b96
3654 9F2D CE 00 00        ...   ldx #0000
3655 9F30 3C              <     pshx
3656 9F31 FC 0C E7        ...   ldd 0ce7
3657 9F34 BD A2 D4        ...   jsr a2d4             ;jump79
3658 9F37 38              8     pulx
3659 9F38 7E A1 C4        ~..   jmp a1c4             ;goto19
3660 9F3B CC B2 C6        ...   ldd #b2c6    ; "SALES (R)   "
3661 9F3E BD C0 BA        ...   jsr c0ba             ;display:
3662 9F41 7E A1 C4        ~..   jmp a1c4             ;goto19
3663 9F44 FE 0D E9        ...   ldx 0de9
3664 9F47 3C              <     pshx
3665 9F48 FC 0D E7        ...   ldd 0de7
3666 9F4B BD A3 41        ..A   jsr a341             ;jump77
3667 9F4E 38              8     pulx
3668 9F4F 7E A1 C4        ~..   jmp a1c4             ;goto19
3669 9F52 CC B2 D8        ...   ldd #b2d8    ; "SALES (N)   "
3670 9F55 BD C0 BA        ...   jsr c0ba             ;display:
3671 9F58 7E A1 C4        ~..   jmp a1c4             ;goto19
3672 9F5B FE 0D ED        ...   ldx 0ded
3673 9F5E 3C              <     pshx
3674 9F5F FC 0D EB        ...   ldd 0deb
3675 9F62 BD A3 41        ..A   jsr a341             ;jump77
3676 9F65 38              8     pulx
3677 9F66 7E A1 C4        ~..   jmp a1c4             ;goto19
3678 9F69 CC B2 EA        ...   ldd #b2ea    ; "BAG TOTAL"
3679 9F6C BD C0 BA        ...   jsr c0ba             ;display:
3680 9F6F 7E A1 C4        ~..   jmp a1c4             ;goto19
3681 9F72 FE 0D F1        ...   ldx 0df1
3682 9F75 3C              <     pshx
3683 9F76 FC 0D EF        ...   ldd 0def
3684 9F79 BD A3 41        ..A   jsr a341             ;jump77
3685 9F7C 38              8     pulx
3686 9F7D 7E A1 C4        ~..   jmp a1c4             ;goto19
3687 9F80 CC B2 FC        ...   ldd #b2fc    ; "CASH BOX"
3688 9F83 BD C0 BA        ...   jsr c0ba             ;display:
3689 9F86 7E A1 C4        ~..   jmp a1c4             ;goto19
3690 9F89 FE 0D F9        ...   ldx 0df9
3691 9F8C 3C              <     pshx
3692 9F8D FC 0D F7        ...   ldd 0df7
3693 9F90 BD A3 41        ..A   jsr a341             ;jump77
3694 9F93 38              8     pulx
3695 9F94 7E A1 C4        ~..   jmp a1c4             ;goto19
3696 9F97 CC B3 0E        ...   ldd #b30e    ; "CARD SALES"
3697 9F9A BD C0 BA        ...   jsr c0ba             ;display:
3698 9F9D 7E A1 C4        ~..   jmp a1c4             ;goto19
3699 9FA0 FE 0D FD        ...   ldx 0dfd
3700 9FA3 3C              <     pshx
3701 9FA4 FC 0D FB        ...   ldd 0dfb
3702 9FA7 BD A3 41        ..A   jsr a341             ;jump77
3703 9FAA 38              8     pulx
3704 9FAB 7E A1 C4        ~..   jmp a1c4             ;goto19
3705 9FAE CC B3 35        ..5   ldd #b335    ; "BILL TOTAL"
3706 9FB1 BD C0 BA        ...   jsr c0ba             ;display:
3707 9FB4 7E A1 C4        ~..   jmp a1c4             ;goto19
3708 9FB7 FE 0D F5        ...   ldx 0df5
3709 9FBA 3C              <     pshx
3710 9FBB FC 0D F3        ...   ldd 0df3
3711 9FBE BD A3 41        ..A   jsr a341             ;jump77
3712 9FC1 38              8     pulx
3713 9FC2 7E A1 C4        ~..   jmp a1c4             ;goto19
3714 9FC5 C6 24           .$    ldab #24
3715 9FC7 F7 0B 99        ...   stab 0b99
3716 9FCA C6 31           .1    ldab #31
3717 9FCC F7 0B 98        ...   stab 0b98
3718 9FCF CE 00 00        ...   ldx #0000
3719 9FD2 3C              <     pshx
3720 9FD3 FC 0C DD        ...   ldd 0cdd
3721 9FD6 BD A2 D4        ...   jsr a2d4             ;jump79
3722 9FD9 38              8     pulx
3723 9FDA 7E A1 C4        ~..   jmp a1c4             ;goto19
3724 9FDD FE 0C F5        ...   ldx 0cf5
3725 9FE0 3C              <     pshx
3726 9FE1 FC 0C F3        ...   ldd 0cf3
3727 9FE4 BD A3 41        ..A   jsr a341             ;jump77
3728 9FE7 38              8     pulx
3729 9FE8 7E A1 C4        ~..   jmp a1c4             ;goto19
3730 9FEB C6 24           .$    ldab #24
3731 9FED F7 0B 99        ...   stab 0b99
3732 9FF0 C6 32           .2    ldab #32
3733 9FF2 F7 0B 98        ...   stab 0b98
3734 9FF5 CE 00 00        ...   ldx #0000
3735 9FF8 3C              <     pshx
3736 9FF9 FC 0C DF        ...   ldd 0cdf
3737 9FFC BD A2 D4        ...   jsr a2d4             ;jump79
3738 9FFF 38              8     pulx
3739 A000 7E A1 C4        ~..   jmp a1c4             ;goto19
3740 A003 FE 0C F9        ...   ldx 0cf9
3741 A006 3C              <     pshx
3742 A007 FC 0C F7        ...   ldd 0cf7
3743 A00A BD A3 41        ..A   jsr a341             ;jump77
3744 A00D 38              8     pulx
3745 A00E 7E A1 C4        ~..   jmp a1c4             ;goto19
3746 A011 C6 24           .$    ldab #24
3747 A013 F7 0B 99        ...   stab 0b99
3748 A016 C6 35           .5    ldab #35
3749 A018 F7 0B 98        ...   stab 0b98
3750 A01B CE 00 00        ...   ldx #0000
3751 A01E 3C              <     pshx
3752 A01F FC 0C E1        ...   ldd 0ce1
3753 A022 BD A2 D4        ...   jsr a2d4             ;jump79
3754 A025 38              8     pulx
3755 A026 7E A1 C4        ~..   jmp a1c4             ;goto19
3756 A029 FE 0C FD        ...   ldx 0cfd
3757 A02C 3C              <     pshx
3758 A02D FC 0C FB        ...   ldd 0cfb
3759 A030 BD A3 41        ..A   jsr a341             ;jump77
3760 A033 38              8     pulx
3761 A034 7E A1 C4        ~..   jmp a1c4             ;goto19
3762 A037 C6 24           .$    ldab #24
3763 A039 F7 0B 99        ...   stab 0b99
3764 A03C C6 31           .1    ldab #31
3765 A03E F7 0B 98        ...   stab 0b98
3766 A041 C6 30           .0    ldab #30
3767 A043 F7 0B 97        ...   stab 0b97
3768 A046 CE 00 00        ...   ldx #0000
3769 A049 3C              <     pshx
3770 A04A FC 0C E3        ...   ldd 0ce3
3771 A04D BD A2 D4        ...   jsr a2d4             ;jump79
3772 A050 38              8     pulx
3773 A051 7E A1 C4        ~..   jmp a1c4             ;goto19
3774 A054 FE 0D 01        ...   ldx 0d01
3775 A057 3C              <     pshx
3776 A058 FC 0C FF        ...   ldd 0cff
3777 A05B BD A3 41        ..A   jsr a341             ;jump77
3778 A05E 38              8     pulx
3779 A05F 7E A1 C4        ~..   jmp a1c4             ;goto19
3780 A062 C6 24           .$    ldab #24
3781 A064 F7 0B 99        ...   stab 0b99
3782 A067 C6 32           .2    ldab #32
3783 A069 F7 0B 98        ...   stab 0b98
3784 A06C C6 30           .0    ldab #30
3785 A06E F7 0B 97        ...   stab 0b97
3786 A071 CE 00 00        ...   ldx #0000
3787 A074 3C              <     pshx
3788 A075 FC 0C E5        ...   ldd 0ce5
3789 A078 BD A2 D4        ...   jsr a2d4             ;jump79
3790 A07B 38              8     pulx
3791 A07C 7E A1 C4        ~..   jmp a1c4             ;goto19
3792 A07F FE 0D 05        ...   ldx 0d05
3793 A082 3C              <     pshx
3794 A083 FC 0D 03        ...   ldd 0d03
3795 A086 BD A3 41        ..A   jsr a341             ;jump77
3796 A089 38              8     pulx
3797 A08A 7E A1 C4        ~..   jmp a1c4             ;goto19
3798 A08D CC B3 B7        ...   ldd #b3b7    ; "TUBE TOTAL"
3799 A090 BD C0 BA        ...   jsr c0ba             ;display:
3800 A093 7E A1 C4        ~..   jmp a1c4             ;goto19
3801 A096 CE 00 01        ...   ldx #0001
3802 A099 3C              <     pshx
3803 A09A FC 0C F1        ...   ldd 0cf1
3804 A09D BD A2 D4        ...   jsr a2d4             ;jump79
3805 A0A0 38              8     pulx
3806 A0A1 7E A1 C4        ~..   jmp a1c4             ;goto19
3807 A0A4 CC B3 CE        ...   ldd #b3ce    ; "$1 COIN"
3808 A0A7 BD C0 BA        ...   jsr c0ba             ;display:
3809 A0AA 7E A1 C4        ~..   jmp a1c4             ;goto19
3810 A0AD FE 0C E9        ...   ldx 0ce9
3811 A0B0 3C              <     pshx
3812 A0B1 F6 0C DC        ...   ldab 0cdc
3813 A0B4 4F              O     clra
3814 A0B5 BD A3 1A        ...   jsr a31a             ;jump93
3815 A0B8 38              8     pulx
3816 A0B9 7E A1 C4        ~..   jmp a1c4             ;goto19
3817 A0BC CC B3 E0        ...   ldd #b3e0    ; "QUARTERS"
3818 A0BF BD C0 BA        ...   jsr c0ba             ;display:
3819 A0C2 7E A1 C4        ~..   jmp a1c4             ;goto19
3820 A0C5 FE 0C EB        ...   ldx 0ceb
3821 A0C8 3C              <     pshx
3822 A0C9 F6 0C DB        ...   ldab 0cdb
3823 A0CC 4F              O     clra
3824 A0CD BD A3 1A        ...   jsr a31a             ;jump93
3825 A0D0 38              8     pulx
3826 A0D1 7E A1 C4        ~..   jmp a1c4             ;goto19
3827 A0D4 CC B3 F2        ...   ldd #b3f2
3828 A0D7 BD C0 BA        ...   jsr c0ba             ;display:
3829 A0DA 7E A1 C4        ~..   jmp a1c4             ;goto19
3830 A0DD FE 0C ED        ...   ldx 0ced
3831 A0E0 3C              <     pshx
3832 A0E1 F6 0C DA        ...   ldab 0cda
3833 A0E4 4F              O     clra
3834 A0E5 BD A3 1A        ...   jsr a31a             ;jump93
3835 A0E8 38              8     pulx
3836 A0E9 7E A1 C4        ~..   jmp a1c4             ;goto19
3837 A0EC CC B4 04        ...   ldd #b404
3838 A0EF BD C0 BA        ...   jsr c0ba             ;display:
3839 A0F2 7E A1 C4        ~..   jmp a1c4             ;goto19
3840 A0F5 FE 0C EF        ...   ldx 0cef
3841 A0F8 3C              <     pshx
3842 A0F9 F6 0C D9        ...   ldab 0cd9
3843 A0FC 4F              O     clra
3844 A0FD BD A3 1A        ...   jsr a31a             ;jump93
3845 A100 38              8     pulx
3846 A101 7E A1 C4        ~..   jmp a1c4             ;goto19
3847 A104 C6 57           .W    ldab #57
3848 A106 F7 0B 99        ...   stab 0b99
3849 A109 C6 53           .S    ldab #53
3850 A10B F7 0B 98        ...   stab 0b98
3851 A10E C6 4E           .N    ldab #4e
3852 A110 F7 0B 97        ...   stab 0b97
3853 A113 C6 4B           .K    ldab #4b
3854 A115 F7 0B 96        ...   stab 0b96
3855 A118 CE 00 00        ...   ldx #0000
3856 A11B 3C              <     pshx
3857 A11C FC 0D 07        ...   ldd 0d07
3858 A11F BD A2 D4        ...   jsr a2d4             ;jump79
3859 A122 38              8     pulx
3860 A123 7E A1 C4        ~..   jmp a1c4             ;goto19
3861 A126 FE 0D 11        ...   ldx 0d11
3862 A129 3C              <     pshx
3863 A12A FC 0D 0F        ...   ldd 0d0f
3864 A12D BD A3 41        ..A   jsr a341             ;jump77
3865 A130 38              8     pulx
3866 A131 7E A1 C4        ~..   jmp a1c4             ;goto19
3867 A134 C6 53           .S    ldab #53
3868 A136 F7 0B 99        ...   stab 0b99
3869 A139 C6 48           .H    ldab #48
3870 A13B F7 0B 98        ...   stab 0b98
3871 A13E C6 50           .P    ldab #50
3872 A140 F7 0B 97        ...   stab 0b97
3873 A143 C6 52           .R    ldab #52
3874 A145 F7 0B 96        ...   stab 0b96
3875 A148 CE 00 00        ...   ldx #0000
3876 A14B 3C              <     pshx
3877 A14C FC 0D 09        ...   ldd 0d09
3878 A14F BD A2 D4        ...   jsr a2d4             ;jump79
3879 A152 38              8     pulx
3880 A153 20 6F            o    bra 6f
3881 A155 FE 0D 15        ...   ldx 0d15
3882 A158 3C              <     pshx
3883 A159 FC 0D 13        ...   ldd 0d13
3884 A15C BD A3 41        ..A   jsr a341             ;jump77
3885 A15F 38              8     pulx
3886 A160 20 62            b    bra 62
3887 A162 C6 50           .P    ldab #50
3888 A164 F7 0B 99        ...   stab 0b99
3889 A167 C6 52           .R    ldab #52
3890 A169 F7 0B 98        ...   stab 0b98
3891 A16C C6 4D           .M    ldab #4d
3892 A16E F7 0B 97        ...   stab 0b97
3893 A171 C6 4F           .O    ldab #4f
3894 A173 F7 0B 96        ...   stab 0b96
3895 A176 CE 00 00        ...   ldx #0000
3896 A179 3C              <     pshx
3897 A17A FC 0D 0B        ...   ldd 0d0b
3898 A17D BD A2 D4        ...   jsr a2d4             ;jump79
3899 A180 38              8     pulx
3900 A181 20 41            A    bra 41
3901 A183 FE 0D 19        ...   ldx 0d19
3902 A186 3C              <     pshx
3903 A187 FC 0D 17        ...   ldd 0d17
3904 A18A BD A3 41        ..A   jsr a341             ;jump77
3905 A18D 38              8     pulx
3906 A18E 20 34            4    bra 34
3907 A190 C6 46           .F    ldab #46
3908 A192 F7 0B 99        ...   stab 0b99
3909 A195 C6 52           .R    ldab #52
3910 A197 F7 0B 98        ...   stab 0b98
3911 A19A C6 45           .E    ldab #45
3912 A19C F7 0B 97        ...   stab 0b97
3913 A19F C6 45           .E    ldab #45
3914 A1A1 F7 0B 96        ...   stab 0b96
3915 A1A4 CE 00 00        ...   ldx #0000
3916 A1A7 3C              <     pshx
3917 A1A8 FC 0D 0D        ...   ldd 0d0d
3918 A1AB BD A2 D4        ...   jsr a2d4             ;jump79
3919 A1AE 38              8     pulx
3920 A1AF 20 13            .    bra 13
3921 A1B1 FE 0D 1D        ...   ldx 0d1d
3922 A1B4 3C              <     pshx
3923 A1B5 FC 0D 1B        ...   ldd 0d1b
3924 A1B8 BD A3 41        ..A   jsr a341             ;jump77
3925 A1BB 38              8     pulx
3926 A1BC 20 06            .    bra 06
3927 A1BE CC B4 84        ...   ldd #b484    ; "VENDS/CODE"
3928 A1C1 BD C0 BA        ...   jsr c0ba             ;display:
3929 goto19:
3930 A1C4 F6 00 48        ..H   ldab 0048
3931 A1C7 C1 2E           ..    cmpb #2e
3932 A1C9 23 74           #t    bls 74
3933 A1CB F6 00 48        ..H   ldab 0048
3934 A1CE C1 92           ..    cmpb #92
3935 A1D0 24 6D           $m    bcc 6d
3936 A1D2 F6 00 48        ..H   ldab 0048
3937 A1D5 4F              O     clra
3938 A1D6 05              .     asld
3939 A1D7 C3 08 6C        ..l   addd #086c
3940 A1DA 8F              .     xgdx
3941 A1DB EC 00           ..    ldd 00,x
3942 A1DD C4 80           ..    andb #80
3943 A1DF 26 0E           &.    bne 0e
3944 A1E1 7C 00 48        |.H   inc 0048
3945 A1E4 F6 00 48        ..H   ldab 0048
3946 A1E7 C1 92           ..    cmpb #92
3947 A1E9 26 02           &.    bne 02
3948 A1EB 20 02            .    bra 02
3949 A1ED 20 E3            .    bra e3
3950 A1EF F6 00 48        ..H   ldab 0048
3951 A1F2 4F              O     clra
3952 A1F3 C3 FF D2        ...   addd #ffd2
3953 A1F6 BD E7 95        ...   jsr e795             ;jump54 - number to string
3954 A1F9 F6 00 5E        ..^   ldab 005e
3955 A1FC F7 0B 99        ...   stab 0b99
3956 A1FF F6 00 5F        .._   ldab 005f
3957 A202 F7 0B 98        ...   stab 0b98
3958 A205 F6 00 48        ..H   ldab 0048
3959 A208 4F              O     clra
3960 A209 05              .     asld
3961 A20A C3 0C C3        ...   addd #0cc3
3962 A20D 8F              .     xgdx
3963 A20E EC 00           ..    ldd 00,x
3964 A210 BD E7 45        ..E   jsr e745             ;jump55 - number to string
3965 A213 F6 00 57        ..W   ldab 0057
3966 A216 F7 0B 94        ...   stab 0b94
3967 A219 F6 00 5A        ..Z   ldab 005a
3968 A21C F7 0B 93        ...   stab 0b93
3969 A21F F6 00 5D        ..]   ldab 005d
3970 A222 F7 0B 92        ...   stab 0b92
3971 A225 F6 00 5E        ..^   ldab 005e
3972 A228 F7 0B 91        ...   stab 0b91
3973 A22B F6 00 5F        .._   ldab 005f
3974 A22E F7 0B 90        ...   stab 0b90
3975 A231 5F              _     clrb
3976 A232 4F              O     clra
3977 A233 8D 27           .'    bsr dest 27
3978 A235 F6 00 48        ..H   ldab 0048
3979 A238 C1 92           ..    cmpb #92
3980 A23A 26 03           &.    bne 03
3981 A23C 7F 00 2C        ..,   clr 002c
3982 A23F F6 00 48        ..H   ldab 0048
3983 A242 C1 92           ..    cmpb #92
3984 A244 26 15           &.    bne 15
3985 A246 F6 00 1F        ...   ldab 001f
3986 A249 C4 10           ..    andb #10
3987 A24B 27 08           '.    beq 08
3988 A24D CC AF 9A        ...   ldd #af9a    ; "CLR MIS Y"
3989 A250 BD C0 BA        ...   jsr c0ba             ;display:
3990 A253 20 06            .    bra 06
3991 A255 CC AF A5        ...   ldd #afa5    ; "CLR MIS N"
3992 A258 BD C0 BA        ...   jsr c0ba             ;display:
3993 A25B 39              9     rts
3994
3995 jump82:
3996 A25C 37              7     pshb
3997 A25D 36              6     psha
3998 A25E F6 00 2C        ..,   ldab 002c
3999 A261 26 6F           &o    bne 6f
4000 A263 BD BE 69        ..i   jsr be69             ;displayreset
4001 A266 30              0     tsx
4002 A267 E6 01           ..    ldab 01,x
4003 A269 27 5F           '_    beq 5f
4004 A26B F6 00 13        ...   ldab 0013
4005 A26E C1 01           ..    cmpb #01
4006 A270 23 58           #X    bls 58
4007 A272 CE 10 28        ..(   ldx #1028
4008 A275 1C 00 40        ...   bset 00,x, #40
4009 A278 CE 00 01        ...   ldx #0001
4010 A27B 3C              <     pshx
4011 A27C F6 0B 90        ...   ldab 0b90
4012 A27F 4F              O     clra
4013 A280 BD BD B5        ...   jsr bdb5             ;jump78
4014 A283 38              8     pulx
4015 A284 CE 10 28        ..(   ldx #1028
4016 A287 1D 00 40        ...   bclr 00,x, #40
4017 A28A F6 0B 91        ...   ldab 0b91
4018 A28D F7 0B 90        ...   stab 0b90
4019 A290 F6 00 13        ...   ldab 0013
4020 A293 C1 02           ..    cmpb #02
4021 A295 26 07           &.    bne 07
4022 A297 C6 2E           ..    ldab #2e
4023 A299 F7 0B 91        ...   stab 0b91
4024 A29C 20 2C            ,    bra 2c
4025 A29E F6 00 13        ...   ldab 0013
4026 A2A1 C1 04           ..    cmpb #04
4027 A2A3 26 0D           &.    bne 0d
4028 A2A5 F6 0B 92        ...   ldab 0b92
4029 A2A8 F7 0B 91        ...   stab 0b91
4030 A2AB C6 2E           ..    ldab #2e
4031 A2AD F7 0B 92        ...   stab 0b92
4032 A2B0 20 18            .    bra 18
4033 A2B2 F6 00 13        ...   ldab 0013
4034 A2B5 C1 08           ..    cmpb #08
4035 A2B7 26 11           &.    bne 11
4036 A2B9 F6 0B 92        ...   ldab 0b92
4037 A2BC F7 0B 91        ...   stab 0b91
4038 A2BF F6 0B 93        ...   ldab 0b93
4039 A2C2 F7 0B 92        ...   stab 0b92
4040 A2C5 C6 2E           ..    ldab #2e
4041 A2C7 F7 0B 93        ...   stab 0b93
4042 A2CA BD BE 10        ...   jsr be10             ;jump88
4043 A2CD C6 03           ..    ldab #03
4044 A2CF F7 00 2C        ..,   stab 002c
4045 A2D2 38              8     pulx
4046 A2D3 39              9     rts
4047
4048 jump79:
4049 A2D4 37              7     pshb
4050 A2D5 36              6     psha
4051 A2D6 30              0     tsx
4052 A2D7 EC 00           ..    ldd 00,x
4053 A2D9 BD E7 45        ..E   jsr e745             ;jump55 - number to string
4054 A2DC F6 00 57        ..W   ldab 0057
4055 A2DF F7 0B 94        ...   stab 0b94
4056 A2E2 F6 00 5A        ..Z   ldab 005a
4057 A2E5 F7 0B 93        ...   stab 0b93
4058 A2E8 F6 00 5D        ..]   ldab 005d
4059 A2EB F7 0B 92        ...   stab 0b92
4060 A2EE F6 00 5E        ..^   ldab 005e
4061 A2F1 F7 0B 91        ...   stab 0b91
4062 A2F4 F6 00 5F        .._   ldab 005f
4063 A2F7 F7 0B 90        ...   stab 0b90
4064 A2FA 30              0     tsx
4065 A2FB E6 05           ..    ldab 05,x
4066 A2FD 27 14           '.    beq 14
4067 A2FF F6 00 17        ...   ldab 0017
4068 A302 C4 08           ..    andb #08
4069 A304 26 05           &.    bne 05
4070 A306 C6 24           .$    ldab #24
4071 A308 F7 0B 95        ...   stab 0b95
4072 A30B CC 00 01        ...   ldd #0001
4073 A30E BD A2 5C        ..\   jsr a25c             ;jump82
4074 A311 20 05            .    bra 05
4075 A313 5F              _     clrb
4076 A314 4F              O     clra
4077 A315 BD A2 5C        ..\   jsr a25c             ;jump82
4078 A318 38              8     pulx
4079 A319 39              9     rts
4080
4081 jump93:
4082 A31A 37              7     pshb
4083 A31B 36              6     psha
4084 A31C 30              0     tsx
4085 A31D E6 01           ..    ldab 01,x
4086 A31F 4F              O     clra
4087 A320 BD E7 95        ...   jsr e795             ;jump54 - number to string
4088 A323 F6 00 5D        ..]   ldab 005d
4089 A326 F7 0B 99        ...   stab 0b99
4090 A329 F6 00 5E        ..^   ldab 005e
4091 A32C F7 0B 98        ...   stab 0b98
4092 A32F F6 00 5F        .._   ldab 005f
4093 A332 F7 0B 97        ...   stab 0b97
4094 A335 CE 00 01        ...   ldx #0001
4095 A338 3C              <     pshx
4096 A339 30              0     tsx
4097 A33A EC 06           ..    ldd 06,x
4098 A33C 8D 96           ..    bsr dest 96
4099 A33E 38              8     pulx
4100 A33F 38              8     pulx
4101 A340 39              9     rts
4102
4103 jump77:
4104 A341 38              8     pulx
4105 A342 37              7     pshb
4106 A343 36              6     psha
4107 A344 3C              <     pshx
4108 A345 30              0     tsx
4109 A346 EC 04           ..    ldd 04,x
4110 A348 37              7     pshb
4111 A349 36              6     psha
4112 A34A EC 02           ..    ldd 02,x
4113 A34C BD E6 21        ..!   jsr e621             ;jump56
4114 A34F 38              8     pulx
4115 A350 C6 20           .     ldab #20
4116 A352 F7 0B 99        ...   stab 0b99
4117 A355 F6 00 17        ...   ldab 0017
4118 A358 C4 08           ..    andb #08
4119 A35A 26 05           &.    bne 05
4120 A35C C6 24           .$    ldab #24
4121 A35E F7 0B 98        ...   stab 0b98
4122 A361 CC 00 01        ...   ldd #0001
4123 A364 BD A2 5C        ..\   jsr a25c             ;jump82
4124 A367 38              8     pulx
4125 A368 31              1     ins
4126 A369 31              1     ins
4127 A36A 6E 00           n.    jmp 00,x
4128
4129 jump81:
4130 A36C BD BE 4B        ..K   jsr be4b             ;displayblank
4131 A36F CC AF DC        ...   ldd #afdc    ; "- SAVING -"
4132 A372 BD C0 BA        ...   jsr c0ba             ;display:
4133 A375 CC 01 F4        ...   ldd #01f4
4134 A378 BD E5 71        ..q   jsr e571             ;msdelay
4135 A37B 39              9     rts
4136
4137 jump141:
4138 A37C FC 00 52        ..R   ldd 0052
4139 A37F FD 0B B5        ...   std 0bb5
4140 A382 8D E8           ..    bsr dest e8
4141 A384 39              9     rts
4142
4143 jump40:
4144 A385 F6 00 1F        ...   ldab 001f
4145 A388 C4 40           .@    andb #40
4146 A38A 27 73           's    beq 73
4147 A38C F6 00 06        ...   ldab 0006
4148 A38F 4F              O     clra
4149 A390 05              .     asld
4150 A391 C3 08 00        ...   addd #0800
4151 A394 8F              .     xgdx
4152 A395 EC 00           ..    ldd 00,x
4153 A397 5F              _     clrb
4154 A398 84 C0           ..    anda #c0
4155 A39A FA 00 28        ..(   orb 0028
4156 A39D BA 00 27        ..'   ora 0027
4157 A3A0 FD 00 27        ..'   std 0027
4158 A3A3 FC 00 27        ..'   ldd 0027
4159 A3A6 37              7     pshb
4160 A3A7 36              6     psha
4161 A3A8 F6 00 06        ...   ldab 0006
4162 A3AB 4F              O     clra
4163 A3AC 05              .     asld
4164 A3AD C3 08 00        ...   addd #0800
4165 A3B0 38              8     pulx
4166 A3B1 8F              .     xgdx
4167 A3B2 ED 00           ..    std 00,x
4168 A3B4 FC 00 27        ..'   ldd 0027
4169 A3B7 43              C     coma
4170 A3B8 53              S     comb
4171 A3B9 37              7     pshb
4172 A3BA 36              6     psha
4173 A3BB F6 00 06        ...   ldab 0006
4174 A3BE 4F              O     clra
4175 A3BF 05              .     asld
4176 A3C0 C3 0B F1        ...   addd #0bf1
4177 A3C3 38              8     pulx
4178 A3C4 8F              .     xgdx
4179 A3C5 ED 00           ..    std 00,x
4180 A3C7 F6 00 06        ...   ldab 0006
4181 A3CA 4F              O     clra
4182 A3CB 05              .     asld
4183 A3CC C3 08 C8        ...   addd #08c8
4184 A3CF 8F              .     xgdx
4185 A3D0 EC 00           ..    ldd 00,x
4186 A3D2 C4 80           ..    andb #80
4187 A3D4 84 F7           ..    anda #f7
4188 A3D6 FA 00 47        ..G   orb 0047
4189 A3D9 BA 00 46        ..F   ora 0046
4190 A3DC FD 00 46        ..F   std 0046
4191 A3DF F6 00 19        ...   ldab 0019
4192 A3E2 C4 10           ..    andb #10
4193 A3E4 27 06           '.    beq 06
4194 A3E6 CE 00 46        ..F   ldx #0046
4195 A3E9 1C 00 08        ...   bset 00,x, #08
4196 ; set memory location 08c8+(slotnum*2) to value of 0046
4197 A3EC FC 00 46        ..F   ldd 0046
4198 A3EF 37              7     pshb
4199 A3F0 36              6     psha
4200 A3F1 F6 00 06        ...   ldab 0006
4201 A3F4 4F              O     clra
4202 A3F5 05              .     asld
4203 A3F6 C3 08 C8        ...   addd #08c8
4204 A3F9 38              8     pulx
4205 A3FA 8F              .     xgdx
4206 A3FB ED 00           ..    std 00,x
4207 A3FD 20 22            "    bra 22
4208 A3FF CC 2A FF        .*.   ldd #2aff      ; 00101010 11111111
4209 A402 37              7     pshb
4210 A403 36              6     psha
4211 A404 F6 00 06        ...   ldab 0006
4212 A407 4F              O     clra
4213 A408 05              .     asld
4214 A409 C3 08 00        ...   addd #0800
4215 A40C 38              8     pulx
4216 A40D 8F              .     xgdx
4217 A40E ED 00           ..    std 00,x
4218 A410 CC D5 00        ...   ldd #d500
4219 A413 37              7     pshb
4220 A414 36              6     psha
4221 A415 F6 00 06        ...   ldab 0006
4222 A418 4F              O     clra
4223 A419 05              .     asld
4224 A41A C3 0B F1        ...   addd #0bf1
4225 A41D 38              8     pulx
4226 A41E 8F              .     xgdx
4227 A41F ED 00           ..    std 00,x
4228 A421 F6 00 1F        ...   ldab 001f
4229 A424 C4 40           .@    andb #40
4230 A426 27 26           '&    beq 26
4231 A428 F6 00 06        ...   ldab 0006
4232 A42B 4F              O     clra
4233 A42C 05              .     asld
4234 A42D C3 08 00        ...   addd #0800
4235 A430 8F              .     xgdx
4236 A431 EC 00           ..    ldd 00,x
4237 A433 C4 FF           ..    andb #ff
4238 A435 84 3F           .?    anda #3f
4239 A437 FD 00 27        ..'   std 0027
4240 A43A F6 00 06        ...   ldab 0006
4241 A43D 4F              O     clra
4242 A43E 05              .     asld
4243 A43F C3 08 C8        ...   addd #08c8
4244 A442 8F              .     xgdx
4245 A443 EC 00           ..    ldd 00,x
4246 A445 C4 7F           ..    andb #7f
4247 A447 4F              O     clra
4248 A448 FD 00 46        ..F   std 0046
4249 A44B BD A3 6C        ..l   jsr a36c             ;jump81
4250 A44E 39              9     rts
4251
4252 jump140:
4253 A44F FC 00 0D        ...   ldd 000d
4254 A452 FD 0B B7        ...   std 0bb7
4255 A455 BD A3 6C        ..l   jsr a36c             ;jump81
4256 A458 39              9     rts
4257
4258 jump110:
4259 A459 3C              <     pshx
4260 A45A F6 00 67        ..g   ldab 0067
4261 A45D C4 02           ..    andb #02
4262 A45F 27 08           '.    beq 08
4263 A461 CE 00 67        ..g   ldx #0067
4264 A464 1D 00 4D        ...   bclr 00,x, #4D
4265 A467 20 0C            .    bra 0c
4266 A469 CE 00 67        ..g   ldx #0067
4267 A46C 1D 00 10        ...   bclr 00,x, #10
4268 A46F CE 00 67        ..g   ldx #0067
4269 A472 1D 00           ..    bclr add,x 00,x
4270 A474 20 F6            .    bra f6
4271 A476 00              .     test
4272 A477 67 C4           g.    asr c4,x
4273 A479 10              .     sba
4274 A47A 26 06           &.    bne 06
4275 A47C CE 00 67        ..g   ldx #0067
4276 A47F 1D 00           ..    bclr add,x 00,x
4277 A481 20 F6            .    bra f6
4278 A483 00              .     test
4279 A484 67 C4           g.    asr c4,x
4280 A486 01              .     nop
4281 A487 27 14           '.    beq 14
4282 A489 CE 00 67        ..g   ldx #0067
4283 A48C 1D 00 02        ...   bclr 00,x, #02
4284 A48F CE 00 67        ..g   ldx #0067
4285 A492 1D 00 10        ...   bclr 00,x, #10
4286 A495 CE 00 67        ..g   ldx #0067
4287 A498 1D 00           ..    bclr add,x 00,x
4288 A49A 20 20                 bra 20
4289 A49C 06              .     tap
4290 A49D CE 00 67        ..g   ldx #0067
4291 A4A0 1D 00 08        ...   bclr 00,x, #08
4292 A4A3 F6 00 67        ..g   ldab 0067
4293 A4A6 C4 04           ..    andb #04
4294 A4A8 27 12           '.    beq 12
4295 A4AA CE 00 67        ..g   ldx #0067
4296 A4AD 1D 00 02        ...   bclr 00,x, #02
4297 A4B0 CE 00 67        ..g   ldx #0067
4298 A4B3 1D 00 10        ..    bclr 00,x, #10
4299 A4B6 CE 00 67        ..g   ldx #0067
4300 A4B9 1D 00 20        ..    bclr 00,x, #20
4301 A4BC F6 00 67        ...   ldab 0067
4302 A4BF C4 08           ..    andb #08
4303 A4C1 26 06           &.    bne 06
4304 A4C3 CE 00 67        ..g   ldx #0067
4305 A4C6 1D 00 40        ..@   bclr 00,x, #40
4306 A4C9 F6 00 67        ..g   ldab 0067
4307 A4CC F7 0B C0        ...   stab 0bc0
4308 A4CF F6 0E 70        ..p   ldab 0e70
4309 A4D2 F7 0E 6E        ..n   stab 0e6e
4310 A4D5 F6 0E 6D        ..m   ldab 0e6d
4311 A4D8 26 39           &9    bne 39
4312 A4DA F6 0E 6F        ..o   ldab 0e6f
4313 A4DD 27 34           '4    beq 34
4314 A4DF 7F 00 06        ...   clr 0006
4315 A4E2 F6 00 06        ...   ldab 0006
4316 A4E5 C1 3F           .?    cmpb #3f
4317 A4E7 24 2A           $*    bcc 2a
4318 A4E9 F6 00 06        ...   ldab 0006
4319 A4EC 4F              O     clra
4320 A4ED CE 00 05        ...   ldx #0005
4321 A4F0 02              .     idiv
4322 A4F1 5D              ]     tstb
4323 A4F2 27 1A           '.    beq 1a
4324 A4F4 F6 00 06        ...   ldab 0006
4325 A4F7 4F              O     clra
4326 A4F8 C3 08 00        ...   addd #0800
4327 A4FB 30              0     tsx
4328 A4FC ED 00           ..    std 00,x
4329 A4FE EC 00           ..    ldd 00,x
4330 A500 37              7     pshb
4331 A501 36              6     psha
4332 A502 F6 00 06        ...   ldab 0006
4333 A505 4F              O     clra
4334 A506 05              .     asld
4335 A507 C3 08 C8        ...   addd #08c8
4336 A50A 38              8     pulx
4337 A50B 8F              .     xgdx
4338 A50C ED 00           ..    std 00,x
4339 A50E 7C 00 06        |..   inc 0006
4340 A511 20 CF            .    bra cf
4341 A513 F6 0E 6F        ..o   ldab 0e6f
4342 A516 F7 0E 6D        ..m   stab 0e6d
4343 A519 BD A3 6C        ..l   jsr a36c             ;jump81
4344 A51C 38              8     pulx
4345 A51D 39              9     rts
4346
4347 jump109:
4348 A51E F6 00 22        .."   ldab 0022
4349 A521 4F              O     clra
4350 A522 BD FE 16        ...   jsr fe16             ;jump2
4351 A525 00              .     test
4352 A526 01              .     nop
4353 A527 00              .     test
4354 A528 04              .     lsrd
4355 A529 A5 79           .y    bita 79,x
4356 A52B A5 35           .5    bita 35,x
4357 A52D A5 43           .C    bita 43,x
4358 A52F A5 51           .Q    bita 51,x
4359 A531 A5 5F           ._    bita 5f,x
4360 A533 A5 6D           .m    bita 6d,x
4361 A535 F6 00 24        ..$   ldab 0024
4362 A538 F7 0B AF        ...   stab 0baf
4363 A53B F6 00 2A        ..*   ldab 002a
4364 A53E F7 0B B4        ...   stab 0bb4
4365 A541 20 36            6    bra 36
4366 A543 F6 00 24        ..$   ldab 0024
4367 A546 F7 0B AE        ...   stab 0bae
4368 A549 F6 00 2A        ..*   ldab 002a
4369 A54C F7 0B B3        ...   stab 0bb3
4370 A54F 20 28            (    bra 28
4371 A551 F6 00 24        ..$   ldab 0024
4372 A554 F7 0B AD        ...   stab 0bad
4373 A557 F6 00 2A        ..*   ldab 002a
4374 A55A F7 0B B2        ...   stab 0bb2
4375 A55D 20 1A            .    bra 1a
4376 A55F F6 00 24        ..$   ldab 0024
4377 A562 F7 0B AC        ...   stab 0bac
4378 A565 F6 00 2A        ..*   ldab 002a
4379 A568 F7 0B B1        ...   stab 0bb1
4380 A56B 20 0C            .    bra 0c
4381 A56D F6 00 24        ..$   ldab 0024
4382 A570 F7 0B AB        ...   stab 0bab
4383 A573 F6 00 2A        ..*   ldab 002a
4384 A576 F7 0B B0        ...   stab 0bb0
4385 A579 BD A3 6C        ..l   jsr a36c             ;jump81
4386 A57C 39              9     rts
4387
4388 jump139:
4389 A57D 7F 00 54        ..T   clr 0054
4390 A580 F6 00 54        ..T   ldab 0054
4391 A583 C1 FF           ..    cmpb #ff
4392 A585 24 1B           $.    bcc 1b
4393 A587 F6 00 54        ..T   ldab 0054
4394 A58A 4F              O     clra
4395 A58B C3 0A 90        ...   addd #0a90
4396 A58E 8F              .     xgdx
4397 A58F E6 00           ..    ldab 00,x
4398 A591 37              7     pshb
4399 A592 F6 00 54        ..T   ldab 0054
4400 A595 4F              O     clra
4401 A596 C3 09 90        ...   addd #0990
4402 A599 8F              .     xgdx
4403 A59A 33              3     pulb
4404 A59B E7 00           ..    stab 00,x
4405 A59D 7C 00 54        |.T   inc 0054
4406 A5A0 20 DE            .    bra de
4407 A5A2 F6 00 61        ..a   ldab 0061
4408 A5A5 F7 0B BF        ...   stab 0bbf
4409 A5A8 BD A3 6C        ..l   jsr a36c             ;jump81
4410 A5AB 39              9     rts
4411
4412 jump138:
4413 A5AC 7F 00 54        ..T   clr 0054
4414 A5AF F6 00 54        ..T   ldab 0054
4415 A5B2 C1 10           ..    cmpb #10
4416 A5B4 24 1B           $.    bcc 1b
4417 A5B6 F6 00 54        ..T   ldab 0054
4418 A5B9 4F              O     clra
4419 A5BA C3 0A 90        ...   addd #0a90
4420 A5BD 8F              .     xgdx
4421 A5BE E6 00           ..    ldab 00,x
4422 A5C0 37              7     pshb
4423 A5C1 F6 00 54        ..T   ldab 0054
4424 A5C4 4F              O     clra
4425 A5C5 C3 0C B9        ...   addd #0cb9
4426 A5C8 8F              .     xgdx
4427 A5C9 33              3     pulb
4428 A5CA E7 00           ..    stab 00,x
4429 A5CC 7C 00 54        |.T   inc 0054
4430 A5CF 20 DE            .    bra de
4431 A5D1 BD A3 6C        ..l   jsr a36c             ;jump81
4432 A5D4 39              9     rts
4433
4434 jump137:
4435 A5D5 7F 00 54        ..T   clr 0054
4436 A5D8 F6 00 54        ..T   ldab 0054
4437 A5DB C1 10           ..    cmpb #10
4438 A5DD 24 1B           $.    bcc 1b
4439 A5DF F6 00 54        ..T   ldab 0054
4440 A5E2 4F              O     clra
4441 A5E3 C3 0A 90        ...   addd #0a90
4442 A5E6 8F              .     xgdx
4443 A5E7 E6 00           ..    ldab 00,x
4444 A5E9 37              7     pshb
4445 A5EA F6 00 54        ..T   ldab 0054
4446 A5ED 4F              O     clra
4447 A5EE C3 0C C9        ...   addd #0cc9
4448 A5F1 8F              .     xgdx
4449 A5F2 33              3     pulb
4450 A5F3 E7 00           ..    stab 00,x
4451 A5F5 7C 00 54        |.T   inc 0054
4452 A5F8 20 DE            .    bra de
4453 A5FA BD A3 6C        ..l   jsr a36c             ;jump81
4454 A5FD 39              9     rts
4455
4456 jump136:
4457 A5FE 7F 00 54        ..T   clr 0054
4458 A601 F6 00 54        ..T   ldab 0054
4459 A604 C1 05           ..    cmpb #05
4460 A606 24 1B           $.    bcc 1b
4461 A608 F6 00 54        ..T   ldab 0054
4462 A60B 4F              O     clra
4463 A60C C3 00 62        ..b   addd #0062
4464 A60F 8F              .     xgdx
4465 A610 E6 00           ..    ldab 00,x
4466 A612 37              7     pshb
4467 A613 F6 00 54        ..T   ldab 0054
4468 A616 4F              O     clra
4469 A617 C3 0B A4        ...   addd #0ba4
4470 A61A 8F              .     xgdx
4471 A61B 33              3     pulb
4472 A61C E7 00           ..    stab 00,x
4473 A61E 7C 00 54        |.T   inc 0054
4474 A621 20 DE            .    bra de
4475 A623 7F 00 54        ..T   clr 0054
4476 A626 F6 00 54        ..T   ldab 0054
4477 A629 C1 0B           ..    cmpb #0b
4478 A62B 24 1B           $.    bcc 1b
4479 A62D F6 00 54        ..T   ldab 0054
4480 A630 4F              O     clra
4481 A631 C3 00 68        ..h   addd #0068
4482 A634 8F              .     xgdx
4483 A635 E6 00           ..    ldab 00,x
4484 A637 37              7     pshb
4485 A638 F6 00 54        ..T   ldab 0054
4486 A63B 4F              O     clra
4487 A63C C3 0B E4        ...   addd #0be4
4488 A63F 8F              .     xgdx
4489 A640 33              3     pulb
4490 A641 E7 00           ..    stab 00,x
4491 A643 7C 00 54        |.T   inc 0054
4492 A646 20 DE            .    bra de
4493 A648 8D 04           ..    bsr dest 04
4494 A64A BD A3 6C        ..l   jsr a36c             ;jump81
4495 A64D 39              9     rts
4496
4497 jump135:
4498 A64E BD AB 0C        ...   jsr ab0c             ;jump126
4499 A651 C6 20           .     ldab #20
4500 A653 F7 0B A3        ...   stab 0ba3
4501 A656 C6 20           .     ldab #20
4502 A658 F7 0B 9A        ...   stab 0b9a
4503 A65B C6 01           ..    ldab #01
4504 A65D F7 00 54        ..T   stab 0054
4505 goto21:
4506 A660 F6 00 54        ..T   ldab 0054
4507 A663 C1 09           ..    cmpb #09
4508 A665 25 03           %.    bcs 03
4509 A667 7E A7 1E        ~..   jmp a71e             ;goto20
4510 A66A F6 00 54        ..T   ldab 0054
4511 A66D 4F              O     clra
4512 A66E BD FE 16        ...   jsr fe16             ;jump2
4513 A671 00 01 00 07     .     test
4514 A675 A6 ED           ..
4515 A677 A6 87           ..
4516 A679 A6 95           ..
4517 A67B A6 A1           ..
4518 A67D A6 AF           ..
4519 A67F A6 BB           ..
4520 A681 A6 C9           ..
4521 A683 A6 D5           ..
4522 A685 A6 E3           ..
4523 A687 F6 00 62        ..b   ldab 0062
4524 A68A 54              T     lsrb
4525 A68B 54              T     lsrb
4526 A68C 54              T     lsrb
4527 A68D 54              T     lsrb
4528 A68E C8 04           ..    eorb #04
4529 A690 F7 00 5F        .._   stab 005f
4530 A693 20 58            X    bra 58
4531 A695 F6 00 62        ..b   ldab 0062
4532 A698 C4 0F           ..    andb #0f
4533 A69A C8 0D           ..    eorb #0d
4534 A69C F7 00 5F        .._   stab 005f
4535 A69F 20 4C            L    bra 4c
4536 A6A1 F6 00 63        ..c   ldab 0063
4537 A6A4 54              T     lsrb
4538 A6A5 54              T     lsrb
4539 A6A6 54              T     lsrb
4540 A6A7 54              T     lsrb
4541 A6A8 C8 04           ..    eorb #04
4542 A6AA F7 00 5F        .._   stab 005f
4543 A6AD 20 3E            >    bra 3e
4544 A6AF F6 00 63        ..c   ldab 0063
4545 A6B2 C4 0F           ..    andb #0f
4546 A6B4 C8 05           ..    eorb #05
4547 A6B6 F7 00 5F        .._   stab 005f
4548 A6B9 20 32            2    bra 32
4549 A6BB F6 00 64        ..d   ldab 0064
4550 A6BE 54              T     lsrb
4551 A6BF 54              T     lsrb
4552 A6C0 54              T     lsrb
4553 A6C1 54              T     lsrb
4554 A6C2 C8 05           ..    eorb #05
4555 A6C4 F7 00 5F        .._   stab 005f
4556 A6C7 20 24            $    bra 24
4557 A6C9 F6 00 64        ..d   ldab 0064
4558 A6CC C4 0F           ..    andb #0f
4559 A6CE C8 04           ..    eorb #04
4560 A6D0 F7 00 5F        .._   stab 005f
4561 A6D3 20 18            .    bra 18
4562 A6D5 F6 00 65        ..e   ldab 0065
4563 A6D8 54              T     lsrb
4564 A6D9 54              T     lsrb
4565 A6DA 54              T     lsrb
4566 A6DB 54              T     lsrb
4567 A6DC C8 05           ..    eorb #05
4568 A6DE F7 00 5F        .._   stab 005f
4569 A6E1 20 0A            .    bra 0a
4570 A6E3 F6 00 65        ..e   ldab 0065
4571 A6E6 C4 0F           ..    andb #0f
4572 A6E8 C8 03           ..    eorb #03
4573 A6EA F7 00 5F        .._   stab 005f
4574 A6ED F6 00 5F        .._   ldab 005f
4575 A6F0 C1 09           ..    cmpb #09
4576 A6F2 23 13           #.    bls 13
4577 A6F4 F6 00 5F        .._   ldab 005f
4578 A6F7 CB 37           .7    addb #37
4579 A6F9 37              7     pshb
4580 A6FA F6 00 54        ..T   ldab 0054
4581 A6FD 4F              O     clra
4582 A6FE C3 0B 9A        ...   addd #0b9a
4583 A701 8F              .     xgdx
4584 A702 33              3     pulb
4585 A703 E7 00           ..    stab 00,x
4586 A705 20 11            .    bra 11
4587 A707 F6 00 5F        .._   ldab 005f
4588 A70A CB 30           .0    addb #30
4589 A70C 37              7     pshb
4590 A70D F6 00 54        ..T   ldab 0054
4591 A710 4F              O     clra
4592 A711 C3 0B 9A        ...   addd #0b9a
4593 A714 8F              .     xgdx
4594 A715 33              3     pulb
4595 A716 E7 00           ..    stab 00,x
4596 A718 7C 00 54        |.T   inc 0054
4597 A71B 7E A6 60        ~.`   jmp a660             ;goto21
4598 goto20:
4599 A71E 39              9     rts
4600
4601 jump134:
4602 A71F F6 00 48        ..H   ldab 0048
4603 A722 26 11           &.    bne 11
4604 A724 F6 00 66        ..f   ldab 0066
4605 A727 26 07           &.    bne 07
4606 A729 C6 01           ..    ldab #01
4607 A72B F7 00 66        ..f   stab 0066
4608 A72E 20 03            .    bra 03
4609 A730 7F 00 66        ..f   clr 0066
4610 A733 20 29            )    bra 29
4611 A735 F6 00 48        ..H   ldab 0048
4612 A738 4F              O     clra
4613 A739 C3 00 68        ..h   addd #0068
4614 A73C 8F              .     xgdx
4615 A73D E6 00           ..    ldab 00,x
4616 A73F 26 10           &.    bne 10
4617 A741 C6 01           ..    ldab #01
4618 A743 37              7     pshb
4619 A744 F6 00 48        ..H   ldab 0048
4620 A747 4F              O     clra
4621 A748 C3 00 68        ..h   addd #0068
4622 A74B 8F              .     xgdx
4623 A74C 33              3     pulb
4624 A74D E7 00           ..    stab 00,x
4625 A74F 20 0D            .    bra 0d
4626 A751 5F              _     clrb
4627 A752 37              7     pshb
4628 A753 F6 00 48        ..H   ldab 0048
4629 A756 4F              O     clra
4630 A757 C3 00 68        ..h   addd #0068
4631 A75A 8F              .     xgdx
4632 A75B 33              3     pulb
4633 A75C E7 00           ..    stab 00,x
4634 A75E 39              9     rts
4635
4636 jump133:
4637 A75F F6 00 48        ..H   ldab 0048
4638 A762 4F              O     clra
4639 A763 BD FE 16        ...   jsr fe16             ;jump2
4640 A766 00              .     test
4641 A767 00              .     test
4642 A768 00              .     test
4643 A769 09              .     dex
4644 A76A A7 DC           ..    staa dc,x
4645 A76C A7 80           ..    staa 80,x
4646 A76E A7 87           ..    staa 87,x
4647 A770 A7 8E           ..    staa 8e,x
4648 A772 A7 95           ..    staa 95,x
4649 A774 A7 9C           ..    staa 9c,x
4650 A776 A7 A3           ..    staa a3,x
4651 A778 A7 AA           ..    staa aa,x
4652 A77A A7 B1           ..    staa b1,x
4653 A77C A7 C4           ..    staa c4,x
4654 A77E A7 D7           ..    staa d7,x
4655 A780 C6 02           ..    ldab #02
4656 A782 F7 00 02        ...   stab 0002
4657 A785 20 55            U    bra 55
4658 A787 C6 10           ..    ldab #10
4659 A789 F7 00 02        ...   stab 0002
4660 A78C 20 4E            N    bra 4e
4661 A78E C6 20           .     ldab #20
4662 A790 F7 00 02        ...   stab 0002
4663 A793 20 47            G    bra 47
4664 A795 C6 01           ..    ldab #01
4665 A797 F7 00 02        ...   stab 0002
4666 A79A 20 40            @    bra 40
4667 A79C C6 04           ..    ldab #04
4668 A79E F7 00 02        ...   stab 0002
4669 A7A1 20 39            9    bra 39
4670 A7A3 C6 08           ..    ldab #08
4671 A7A5 F7 00 02        ...   stab 0002
4672 A7A8 20 32            2    bra 32
4673 A7AA C6 40           .@    ldab #40
4674 A7AC F7 00 02        ...   stab 0002
4675 A7AF 20 2B            +    bra 2b
4676 A7B1 F6 0E 70        ..p   ldab 0e70
4677 A7B4 C1 01           ..    cmpb #01
4678 A7B6 26 05           &.    bne 05
4679 A7B8 7F 0E 70        ..p   clr 0e70
4680 A7BB 20 05            .    bra 05
4681 A7BD C6 01           ..    ldab #01
4682 A7BF F7 0E 70        ..p   stab 0e70
4683 A7C2 20 18            .    bra 18
4684 A7C4 F6 0E 6F        ..o   ldab 0e6f
4685 A7C7 C1 01           ..    cmpb #01
4686 A7C9 26 05           &.    bne 05
4687 A7CB 7F 0E 6F        ..o   clr 0e6f
4688 A7CE 20 05            .    bra 05
4689 A7D0 C6 01           ..    ldab #01
4690 A7D2 F7 0E 6F        ..o   stab 0e6f
4691 A7D5 20 05            .    bra 05
4692 A7D7 C6 80           ..    ldab #80
4693 A7D9 F7 00 02        ...   stab 0002
4694 A7DC F6 00 48        ..H   ldab 0048
4695 A7DF C1 0A           ..    cmpb #0a
4696 A7E1 24 2B           $+    bcc 2b
4697 A7E3 F6 00 48        ..H   ldab 0048
4698 A7E6 C1 07           ..    cmpb #07
4699 A7E8 27 24           '$    beq 24
4700 A7EA F6 00 48        ..H   ldab 0048
4701 A7ED C1 08           ..    cmpb #08
4702 A7EF 27 1D           '.    beq 1d
4703 A7F1 F6 00 67        ..g   ldab 0067
4704 A7F4 F4 00 02        ...   andb 0002
4705 A7F7 26 0B           &.    bne 0b
4706 A7F9 F6 00 02        ...   ldab 0002
4707 A7FC FA 00 67        ..g   orb 0067
4708 A7FF F7 00 67        ..g   stab 0067
4709 A802 20 0A            .    bra 0a
4710 A804 F6 00 02        ...   ldab 0002
4711 A807 53              S     comb
4712 A808 F4 00 67        ..g   andb 0067
4713 A80B F7 00 67        ..g   stab 0067
4714 A80E 39              9     rts
4715
4716 A80F 7F 00 54        ..T   clr 0054
4717 A812 F6 00 54        ..T   ldab 0054
4718 A815 C1 04           ..    cmpb #04
4719 A817 24 4A           $J    bcc 4a
4720 A819 CC 01 F4        ...   ldd #01f4
4721 A81C BD E5 71        ..q   jsr e571             ;msdelay
4722 A81F F6 0B 93        ...   ldab 0b93
4723 A822 F7 00 5F        .._   stab 005f
4724 A825 F6 0B 94        ...   ldab 0b94
4725 A828 F7 00 5E        ..^   stab 005e
4726 A82B F6 0B 95        ...   ldab 0b95
4727 A82E F7 00 5D        ..]   stab 005d
4728 A831 F6 0B 96        ...   ldab 0b96
4729 A834 F7 00 5A        ..Z   stab 005a
4730 A837 BD BE 4B        ..K   jsr be4b             ;displayblank
4731 A83A BD BE 01        ...   jsr be01             ;jump70
4732 A83D CC 01 F4        ...   ldd #01f4
4733 A840 BD E5 71        ..q   jsr e571             ;msdelay
4734 A843 F6 00 5F        .._   ldab 005f
4735 A846 F7 0B 93        ...   stab 0b93
4736 A849 F6 00 5E        ..^   ldab 005e
4737 A84C F7 0B 94        ...   stab 0b94
4738 A84F F6 00 5D        ..]   ldab 005d
4739 A852 F7 0B 95        ...   stab 0b95
4740 A855 F6 00 5A        ..Z   ldab 005a
4741 A858 F7 0B 96        ...   stab 0b96
4742 A85B BD BE 01        ...   jsr be01             ;jump70
4743 A85E 7C 00 54        |.T   inc 0054
4744 A861 20 AF            .    bra af
4745 A863 39              9     rts
4746
4747 jump99:
4748 A864 F6 00 09        ...   ldab 0009
4749 A867 C1 01           ..    cmpb #01
4750 A869 26 20           &     bne 20
4751 A86B F6 00 61        ..a   ldab 0061
4752 A86E 4F              O     clra
4753 A86F C3 00 01        ...   addd #0001
4754 A872 37              7     pshb
4755 A873 36              6     psha
4756 A874 F6 00 60        ..`   ldab 0060
4757 A877 4F              O     clra
4758 A878 30              0     tsx
4759 A879 A3 00           ..    subd 00,x
4760 A87B 31              1     ins
4761 A87C 31              1     ins
4762 A87D 2C 0A           ,.    bge 0a
4763 A87F F6 00 60        ..`   ldab 0060
4764 A882 C1 F9           ..    cmpb #f9
4765 A884 24 03           $.    bcc 03
4766 A886 7C 00 60        |.`   inc 0060
4767 A889 20 0A            .    bra 0a
4768 A88B F6 00 60        ..`   ldab 0060
4769 A88E C1 09           ..    cmpb #09
4770 A890 24 03           $.    bcc 03
4771 A892 7C 00 60        |.`   inc 0060
4772 A895 39              9     rts
4773
4774 jump98:
4775 A896 F6 00 36        ..6   ldab 0036
4776 A899 26 39           &9    bne 39
4777 A89B F6 00 54        ..T   ldab 0054
4778 A89E C1 27           .'    cmpb #27
4779 A8A0 24 20           $     bcc 20
4780 A8A2 7C 00 54        |.T   inc 0054
4781 A8A5 F6 00 09        ...   ldab 0009
4782 A8A8 C1 01           ..    cmpb #01
4783 A8AA 26 0C           &.    bne 0c
4784 A8AC F6 00 54        ..T   ldab 0054
4785 A8AF C1 27           .'    cmpb #27
4786 A8B1 26 03           &.    bne 03
4787 A8B3 7F 00 54        ..T   clr 0054
4788 A8B6 20 0A            .    bra 0a
4789 A8B8 F6 00 54        ..T   ldab 0054
4790 A8BB C1 24           .$    cmpb #24
4791 A8BD 26 03           &.    bne 03
4792 A8BF 7F 00 54        ..T   clr 0054
4793 A8C2 F6 00 54        ..T   ldab 0054
4794 A8C5 4F              O     clra
4795 A8C6 C3 B4 8F        ...   addd #b48f
4796 A8C9 8F              .     xgdx
4797 A8CA E6 00           ..    ldab 00,x
4798 A8CC F7 0B 90        ...   stab 0b90
4799 A8CF C6 02           ..    ldab #02
4800 A8D1 F7 00 36        ..6   stab 0036
4801 A8D4 39              9     rts
4802
4803 jump97:
4804 A8D5 F6 00 60        ..`   ldab 0060
4805 A8D8 C1 00           ..    cmpb #00
4806 A8DA 23 05           #.    bls 05
4807 A8DC 7A 00 60        z.`   dec 0060
4808 A8DF 20 03            .    bra 03
4809 A8E1 7F 00 60        ..`   clr 0060
4810 A8E4 39              9     rts
4811
4812 jump96:
4813 A8E5 F6 00 36        ..6   ldab 0036
4814 A8E8 26 36           &6    bne 36
4815 A8EA F6 00 54        ..T   ldab 0054
4816 A8ED C1 00           ..    cmpb #00
4817 A8EF 25 1D           %.    bcs 1d
4818 A8F1 F6 00 54        ..T   ldab 0054
4819 A8F4 26 15           &.    bne 15
4820 A8F6 F6 00 09        ...   ldab 0009
4821 A8F9 C1 01           ..    cmpb #01
4822 A8FB 26 07           &.    bne 07
4823 A8FD C6 26           .&    ldab #26
4824 A8FF F7 00 54        ..T   stab 0054
4825 A902 20 05            .    bra 05
4826 A904 C6 23           .#    ldab #23
4827 A906 F7 00 54        ..T   stab 0054
4828 A909 20 03            .    bra 03
4829 A90B 7A 00 54        z.T   dec 0054
4830 A90E F6 00 54        ..T   ldab 0054
4831 A911 4F              O     clra
4832 A912 C3 B4 8F        ...   addd #b48f
4833 A915 8F              .     xgdx
4834 A916 E6 00           ..    ldab 00,x
4835 A918 F7 0B 90        ...   stab 0b90
4836 A91B C6 02           ..    ldab #02
4837 A91D F7 00 36        ..6   stab 0036
4838 A920 39              9     rts
4839
4840 jump95:
4841 A921 F6 0B 90        ...   ldab 0b90
4842 A924 F7 0B 96        ...   stab 0b96
4843 A927 F6 0B 96        ...   ldab 0b96
4844 A92A 37              7     pshb
4845 A92B F6 00 60        ..`   ldab 0060
4846 A92E 4F              O     clra
4847 A92F C3 0A 93        ...   addd #0a93
4848 A932 8F              .     xgdx
4849 A933 33              3     pulb
4850 A934 E7 00           ..    stab 00,x
4851 A936 F6 00 09        ...   ldab 0009
4852 A939 C1 01           ..    cmpb #01
4853 A93B 26 32           &2    bne 32
4854 A93D F6 00 61        ..a   ldab 0061
4855 A940 4F              O     clra
4856 A941 C3 00 01        ...   addd #0001
4857 A944 37              7     pshb
4858 A945 36              6     psha
4859 A946 F6 00 60        ..`   ldab 0060
4860 A949 4F              O     clra
4861 A94A 30              0     tsx
4862 A94B A3 00           ..    subd 00,x
4863 A94D 31              1     ins
4864 A94E 31              1     ins
4865 A94F 26 0A           &.    bne 0a
4866 A951 F6 00 60        ..`   ldab 0060
4867 A954 C1 FA           ..    cmpb #fa
4868 A956 24 03           $.    bcc 03
4869 A958 7C 00 61        |.a   inc 0061
4870 A95B F6 00 60        ..`   ldab 0060
4871 A95E F1 00 61        ..a   cmpb 0061
4872 A961 22 0A           ".    bhi 0a
4873 A963 F6 00 60        ..`   ldab 0060
4874 A966 C1 F9           ..    cmpb #f9
4875 A968 24 03           $.    bcc 03
4876 A96A 7C 00 60        |.`   inc 0060
4877 A96D 20 0A            .    bra 0a
4878 A96F F6 00 60        ..`   ldab 0060
4879 A972 C1 09           ..    cmpb #09
4880 A974 24 03           $.    bcc 03
4881 A976 7C 00 60        |.`   inc 0060
4882 A979 39              9     rts
4883
4884 jump132:
4885 A97A F6 00 60        ..`   ldab 0060
4886 A97D 26 24           &$    bne 24
4887 A97F F6 00 60        ..`   ldab 0060
4888 A982 CB 03           ..    addb #03
4889 A984 F7 00 54        ..T   stab 0054
4890 A987 F6 00 54        ..T   ldab 0054
4891 A98A C1 FF           ..    cmpb #ff
4892 A98C 24 13           $.    bcc 13
4893 A98E C6 20           .     ldab #20
4894 A990 37              7     pshb
4895 A991 F6 00 54        ..T   ldab 0054
4896 A994 4F              O     clra
4897 A995 C3 0A 90        ...   addd #0a90
4898 A998 8F              .     xgdx
4899 A999 33              3     pulb
4900 A99A E7 00           ..    stab 00,x
4901 A99C 7C 00 54        |.T   inc 0054
4902 A99F 20 E6            .    bra e6
4903 A9A1 20 22            "    bra 22
4904 A9A3 F6 00 60        ..`   ldab 0060
4905 A9A6 CB 04           ..    addb #04
4906 A9A8 F7 00 54        ..T   stab 0054
4907 A9AB F6 00 54        ..T   ldab 0054
4908 A9AE C1 FF           ..    cmpb #ff
4909 A9B0 24 13           $.    bcc 13
4910 A9B2 C6 20           .     ldab #20
4911 A9B4 37              7     pshb
4912 A9B5 F6 00 54        ..T   ldab 0054
4913 A9B8 4F              O     clra
4914 A9B9 C3 0A 90        ...   addd #0a90
4915 A9BC 8F              .     xgdx
4916 A9BD 33              3     pulb
4917 A9BE E7 00           ..    stab 00,x
4918 A9C0 7C 00 54        |.T   inc 0054
4919 A9C3 20 E6            .    bra e6
4920 A9C5 F6 00 60        ..`   ldab 0060
4921 A9C8 F7 00 61        ..a   stab 0061
4922 A9CB 7F 00 54        ..T   clr 0054
4923 A9CE 39              9     rts
4924
4925 jump131:
4926 A9CF C6 50           .P    ldab #50
4927 A9D1 F7 09 90        ...   stab 0990
4928 A9D4 C6 29           .)    ldab #29
4929 A9D6 F7 09 91        ...   stab 0991
4930 A9D9 C6 20           .     ldab #20
4931 A9DB F7 09 92        ...   stab 0992
4932 A9DE 7F 00 54        ..T   clr 0054
4933 A9E1 F6 00 54        ..T   ldab 0054
4934 A9E4 C1 FF           ..    cmpb #ff
4935 A9E6 24 1B           $.    bcc 1b
4936 A9E8 F6 00 54        ..T   ldab 0054
4937 A9EB 4F              O     clra
4938 A9EC C3 09 90        ...   addd #0990
4939 A9EF 8F              .     xgdx
4940 A9F0 E6 00           ..    ldab 00,x
4941 A9F2 37              7     pshb
4942 A9F3 F6 00 54        ..T   ldab 0054
4943 A9F6 4F              O     clra
4944 A9F7 C3 0A 90        ...   addd #0a90
4945 A9FA 8F              .     xgdx
4946 A9FB 33              3     pulb
4947 A9FC E7 00           ..    stab 00,x
4948 A9FE 7C 00 54        |.T   inc 0054
4949 AA01 20 DE            .    bra de
4950 AA03 F6 0B BF        ...   ldab 0bbf
4951 AA06 F7 00 61        ..a   stab 0061
4952 AA09 39              9     rts
4953
4954 jump130:
4955 AA0A C6 53           .S    ldab #53
4956 AA0C F7 0C B9        ...   stab 0cb9
4957 AA0F C6 29           .)    ldab #29
4958 AA11 F7 0C BA        ...   stab 0cba
4959 AA14 C6 20           .     ldab #20
4960 AA16 F7 0C BB        ...   stab 0cbb
4961 AA19 7F 00 54        ..T   clr 0054
4962 AA1C F6 00 54        ..T   ldab 0054
4963 AA1F C1 10           ..    cmpb #10
4964 AA21 24 1B           $.    bcc 1b
4965 AA23 F6 00 54        ..T   ldab 0054
4966 AA26 4F              O     clra
4967 AA27 C3 0C B9        ...   addd #0cb9
4968 AA2A 8F              .     xgdx
4969 AA2B E6 00           ..    ldab 00,x
4970 AA2D 37              7     pshb
4971 AA2E F6 00 54        ..T   ldab 0054
4972 AA31 4F              O     clra
4973 AA32 C3 0A 90        ...   addd #0a90
4974 AA35 8F              .     xgdx
4975 AA36 33              3     pulb
4976 AA37 E7 00           ..    stab 00,x
4977 AA39 7C 00 54        |.T   inc 0054
4978 AA3C 20 DE            .    bra de
4979 AA3E 39              9     rts
4980
4981 jump129:
4982 AA3F C6 49           .I    ldab #49
4983 AA41 F7 0C C9        ...   stab 0cc9
4984 AA44 C6 29           .)    ldab #29
4985 AA46 F7 0C CA        ...   stab 0cca
4986 AA49 C6 20           .     ldab #20
4987 AA4B F7 0C CB        ...   stab 0ccb
4988 AA4E 7F 00 54        ..T   clr 0054
4989 AA51 F6 00 54        ..T   ldab 0054
4990 AA54 C1 10           ..    cmpb #10
4991 AA56 24 1B           $.    bcc 1b
4992 AA58 F6 00 54        ..T   ldab 0054
4993 AA5B 4F              O     clra
4994 AA5C C3 0C C9        ...   addd #0cc9
4995 AA5F 8F              .     xgdx
4996 AA60 E6 00           ..    ldab 00,x
4997 AA62 37              7     pshb
4998 AA63 F6 00 54        ..T   ldab 0054
4999 AA66 4F              O     clra
5000 AA67 C3 0A 90        ...   addd #0a90
5001 AA6A 8F              .     xgdx
5002 AA6B 33              3     pulb
5003 AA6C E7 00           ..    stab 00,x
5004 AA6E 7C 00 54        |.T   inc 0054
5005 AA71 20 DE            .    bra de
5006 AA73 39              9     rts
5007
5008 jump128:
5009 AA74 7F 00 54        ..T   clr 0054
5010 AA77 F6 00 54        ..T   ldab 0054
5011 AA7A C1 0B           ..    cmpb #0b
5012 AA7C 24 1B           $.    bcc 1b
5013 AA7E F6 00 54        ..T   ldab 0054
5014 AA81 4F              O     clra
5015 AA82 C3 0B E4        ...   addd #0be4
5016 AA85 8F              .     xgdx
5017 AA86 E6 00           ..    ldab 00,x
5018 AA88 37              7     pshb
5019 AA89 F6 00 54        ..T   ldab 0054
5020 AA8C 4F              O     clra
5021 AA8D C3 00 68        ..h   addd #0068
5022 AA90 8F              .     xgdx
5023 AA91 33              3     pulb
5024 AA92 E7 00           ..    stab 00,x
5025 AA94 7C 00 54        |.T   inc 0054
5026 AA97 20 DE            .    bra de
5027 AA99 39              9     rts
5028
5029 jump127:
5030 AA9A F6 00 22        .."   ldab 0022
5031 AA9D C1 06           ..    cmpb #06
5032 AA9F 24 0F           $.    bcc 0f
5033 AAA1 7C 00 22        |."   inc 0022
5034 AAA4 F6 00 22        .."   ldab 0022
5035 AAA7 C1 05           ..    cmpb #05
5036 AAA9 23 05           #.    bls 05
5037 AAAB C6 01           ..    ldab #01
5038 AAAD F7 00 22        .."   stab 0022
5039 AAB0 F6 00 22        .."   ldab 0022
5040 AAB3 4F              O     clra
5041 AAB4 BD FE 16        ...   jsr fe16             ;jump2
5042 AAB7 00              .     test
5043 AAB8 01              .     nop
5044 AAB9 00              .     test
5045 AABA 04              .     lsrd
5046 AABB AB 0B           ..    adda 0b,x
5047 AABD AA C7           ..    ora c7,x
5048 AABF AA D5           ..    ora d5,x
5049 AAC1 AA E3           ..    ora e3,x
5050 AAC3 AA F1           ..    ora f1,x
5051 AAC5 AA FF           ..    ora ff,x
5052 AAC7 F6 0B AF        ...   ldab 0baf
5053 AACA F7 00 24        ..$   stab 0024
5054 AACD F6 0B B4        ...   ldab 0bb4
5055 AAD0 F7 00 2A        ..*   stab 002a
5056 AAD3 20 36            6    bra 36
5057 AAD5 F6 0B AE        ...   ldab 0bae
5058 AAD8 F7 00 24        ..$   stab 0024
5059 AADB F6 0B B3        ...   ldab 0bb3
5060 AADE F7 00 2A        ..*   stab 002a
5061 AAE1 20 28            (    bra 28
5062 AAE3 F6 0B AD        ...   ldab 0bad
5063 AAE6 F7 00 24        ..$   stab 0024
5064 AAE9 F6 0B B2        ...   ldab 0bb2
5065 AAEC F7 00 2A        ..*   stab 002a
5066 AAEF 20 1A            .    bra 1a
5067 AAF1 F6 0B AC        ...   ldab 0bac
5068 AAF4 F7 00 24        ..$   stab 0024
5069 AAF7 F6 0B B1        ...   ldab 0bb1
5070 AAFA F7 00 2A        ..*   stab 002a
5071 AAFD 20 0C            .    bra 0c
5072 AAFF F6 0B AB        ...   ldab 0bab
5073 AB02 F7 00 24        ..$   stab 0024
5074 AB05 F6 0B B0        ...   ldab 0bb0
5075 AB08 F7 00 2A        ..*   stab 002a
5076 AB0B 39              9     rts
5077
5078 jump126:
5079 AB0C C6 03           ..    ldab #03
5080 AB0E F7 00 18        ...   stab 0018
5081 AB11 7F 00 1C        ...   clr 001c
5082 AB14 F6 00 1C        ...   ldab 001c
5083 AB17 C1 04           ..    cmpb #04
5084 AB19 24 6D           $m    bcc 6d
5085 AB1B C6 07           ..    ldab #07
5086 AB1D F7 00 55        ..U   stab 0055
5087 AB20 7F 00 54        ..T   clr 0054
5088 AB23 F6 00 54        ..T   ldab 0054
5089 AB26 C1 08           ..    cmpb #08
5090 AB28 24 56           $V    bcc 56
5091 AB2A F6 00 1C        ...   ldab 001c
5092 AB2D 4F              O     clra
5093 AB2E C3 0B A4        ...   addd #0ba4
5094 AB31 8F              .     xgdx
5095 AB32 E6 00           ..    ldab 00,x
5096 AB34 37              7     pshb
5097 AB35 F6 00 54        ..T   ldab 0054
5098 AB38 4F              O     clra
5099 AB39 C3 B4 B7        ...   addd #b4b7
5100 AB3C 8F              .     xgdx
5101 AB3D E6 00           ..    ldab 00,x
5102 AB3F 30              0     tsx
5103 AB40 E4 00           ..    andb 00,x
5104 AB42 31              1     ins
5105 AB43 27 1A           '.    beq 1a
5106 AB45 F6 00 55        ..U   ldab 0055
5107 AB48 4F              O     clra
5108 AB49 C3 B4 B7        ...   addd #b4b7
5109 AB4C 8F              .     xgdx
5110 AB4D E6 00           ..    ldab 00,x
5111 AB4F 37              7     pshb
5112 AB50 F6 00 18        ...   ldab 0018
5113 AB53 4F              O     clra
5114 AB54 C3 00 62        ..b   addd #0062
5115 AB57 8F              .     xgdx
5116 AB58 33              3     pulb
5117 AB59 EA 00           ..    orb 00,x
5118 AB5B E7 00           ..    stab 00,x
5119 AB5D 20 19            .    bra 19
5120 AB5F F6 00 55        ..U   ldab 0055
5121 AB62 4F              O     clra
5122 AB63 C3 B4 B7        ...   addd #b4b7
5123 AB66 8F              .     xgdx
5124 AB67 E6 00           ..    ldab 00,x
5125 AB69 53              S     comb
5126 AB6A 37              7     pshb
5127 AB6B F6 00 18        ...   ldab 0018
5128 AB6E 4F              O     clra
5129 AB6F C3 00 62        ..b   addd #0062
5130 AB72 8F              .     xgdx
5131 AB73 33              3     pulb
5132 AB74 E4 00           ..    andb 00,x
5133 AB76 E7 00           ..    stab 00,x
5134 AB78 7A 00 55        z.U   dec 0055
5135 AB7B 7C 00 54        |.T   inc 0054
5136 AB7E 20 A3            .    bra a3
5137 AB80 7A 00 18        z..   dec 0018
5138 AB83 7C 00 1C        |..   inc 001c
5139 AB86 20 8C            .    bra 8c
5140 AB88 39              9     rts
5141
5142 jump7:
5143 AB89 CC B0 8C        ...   ldd #b08c    ; "NO ERRORS"
5144 AB8C BD C0 BA        ...   jsr c0ba             ;display:
5145 AB8F CC 01 F4        ...   ldd #01f4
5146 AB92 BD E5 71        ..q   jsr e571             ;msdelay
5147 AB95 BD D4 79        ..y   jsr d479             ;jump67
5148 AB98 BD E8 9A        ...   jsr e89a             ;jump68
5149 AB9B BD E9 EA        ...   jsr e9ea             ;jump113
5150 AB9E 7F 0B C1        ...   clr 0bc1
5151 ABA1 39              9     rts
5152
5153 jump8:
5154 ABA2 7F 00 05        ...   clr 0005
5155 goto24:
5156 ABA5 F6 00 05        ...   ldab 0005
5157 ABA8 C1 64           .d    cmpb #64
5158 ABAA 25 03           %.    bcs 03
5159 ABAC 7E AC 81        ~..   jmp ac81             ;goto22
5160 ABAF F6 00 05        ...   ldab 0005
5161 ABB2 F7 00 06        ...   stab 0006
5162 ABB5 F6 00 05        ...   ldab 0005
5163 ABB8 4F              O     clra
5164 ABB9 CE 00 05        ...   ldx #0005
5165 ABBC 02              .     idiv
5166 ABBD 5D              ]     tstb
5167 ABBE 26 03           &.    bne 03
5168 ABC0 7E AC 7B        ~.{   jmp ac7b             ;goto23
5169 ABC3 F6 00 06        ...   ldab 0006
5170 ABC6 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
5171 ABC9 83 00 00        ...   subd #0000
5172 ABCC 27 03           '.    beq 03
5173 ABCE 7E AC 7B        ~.{   jmp ac7b             ;goto23
5174 ABD1 BD D3 11        ...   jsr d311             ;jump30 - test position exists
5175 ABD4 83 00 00        ...   subd #0000
5176 ABD7 27 2B           '+    beq 2b
5177 ABD9 F6 00 05        ...   ldab 0005
5178 ABDC 4F              O     clra
5179 ABDD 05              .     asld
5180 ABDE C3 08 00        ...   addd #0800
5181 ABE1 8F              .     xgdx
5182 ABE2 EC 00           ..    ldd 00,x
5183 ABE4 C4 FF           ..    andb #ff
5184 ABE6 84 3F           .?    anda #3f
5185 ABE8 83 27 10        .'.   subd #2710   ; 10000
5186 ABEB 24 15           $.    bcc 15
5187 ABED CC 01 00        ...   ldd #0100
5188 ABF0 37              7     pshb
5189 ABF1 36              6     psha
5190 ABF2 F6 00 05        ...   ldab 0005
5191 ABF5 4F              O     clra
5192 ABF6 05              .     asld
5193 ABF7 C3 08 C8        ...   addd #08c8
5194 ABFA 38              8     pulx
5195 ABFB 8F              .     xgdx
5196 ABFC AA 00           ..    ora 00,x
5197 ABFE EA 01           ..    orb 01,x
5198 AC00 ED 00           ..    std 00,x
5199 AC02 20 29            )    bra 29
5200 AC04 F6 00 05        ...   ldab 0005
5201 AC07 4F              O     clra
5202 AC08 05              .     asld
5203 AC09 C3 08 00        ...   addd #0800
5204 AC0C 8F              .     xgdx
5205 AC0D EC 00           ..    ldd 00,x
5206 AC0F C4 FF           ..    andb #ff
5207 AC11 84 3F           .?    anda #3f
5208 AC13 83 27 0F        .'.   subd #270f
5209 AC16 23 15           #.    bls 15
5210 AC18 CC 01 00        ...   ldd #0100
5211 AC1B 37              7     pshb
5212 AC1C 36              6     psha
5213 AC1D F6 00 05        ...   ldab 0005
5214 AC20 4F              O     clra
5215 AC21 05              .     asld
5216 AC22 C3 08 C8        ...   addd #08c8
5217 AC25 38              8     pulx
5218 AC26 8F              .     xgdx
5219 AC27 AA 00           ..    ora 00,x
5220 AC29 EA 01           ..    orb 01,x
5221 AC2B ED 00           ..    std 00,x
5222 AC2D F6 00 05        ...   ldab 0005
5223 AC30 4F              O     clra
5224 AC31 05              .     asld
5225 AC32 C3 08 C8        ...   addd #08c8
5226 AC35 8F              .     xgdx
5227 AC36 EC 00           ..    ldd 00,x
5228 AC38 84 01           ..    anda #01
5229 AC3A 27 06           '.    beq 06
5230 AC3C CE 00 19        ...   ldx #0019
5231 AC3F 1C 00 04        ...   bset 00,x, #04
5232 AC42 F6 00 05        ...   ldab 0005
5233 AC45 4F              O     clra
5234 AC46 05              .     asld
5235 AC47 C3 08 00        ...   addd #0800
5236 AC4A 8F              .     xgdx
5237 AC4B EC 00           ..    ldd 00,x
5238 AC4D 84 80           ..    anda #80
5239 AC4F 27 2A           '*    beq 2a
5240 AC51 F6 00 05        ...   ldab 0005
5241 AC54 4F              O     clra
5242 AC55 05              .     asld
5243 AC56 C3 08 C8        ...   addd #08c8
5244 AC59 8F              .     xgdx
5245 AC5A EC 00           ..    ldd 00,x
5246 AC5C 84 02           ..    anda #02
5247 AC5E 27 06           '.    beq 06
5248 AC60 CE 00 19        ...   ldx #0019
5249 AC63 1C 00 01        ...   bset 00,x, #01
5250 AC66 F6 00 05        ...   ldab 0005
5251 AC69 4F              O     clra
5252 AC6A 05              .     asld
5253 AC6B C3 08 C8        ...   addd #08c8
5254 AC6E 8F              .     xgdx
5255 AC6F EC 00           ..    ldd 00,x
5256 AC71 84 04           ..    anda #04
5257 AC73 27 06           '.    beq 06
5258 AC75 CE 00 19        ...   ldx #0019
5259 AC78 1C 00 02        ...   bset 00,x, #02
5260 goto23:
5261 AC7B 7C 00 05        |..   inc 0005
5262 AC7E 7E AB A5        ~..   jmp aba5             ;goto24
5263 goto22:
5264 AC81 F6 00 19        ...   ldab 0019
5265 AC84 C4 07           ..    andb #07
5266 AC86 26 0A           &.    bne 0a
5267 AC88 F6 0B C1        ...   ldab 0bc1
5268 AC8B C4 7F           ..    andb #7f
5269 AC8D 26 03           &.    bne 03
5270 AC8F 5F              _     clrb
5271 AC90 20 02            .    bra 02
5272 AC92 C6 01           ..    ldab #01
5273 AC94 5D              ]     tstb
5274 AC95 26 05           &.    bne 05
5275 AC97 C6 0D           ..    ldab #0d
5276 AC99 F7 00 48        ..H   stab 0048
5277 AC9C 39              9     rts
5278
5279 ; keypad map
5280 AC9D 08              .     inx
5281 AC9E 07              .     tpa
5282 AC9F 06              .     tap
5283 ACA0 05              .     asld
5284 ACA1 04              .     lsrd
5285 ACA2 03              .     fdiv
5286 ACA3 02              .     idiv
5287 ACA4 01              .     nop
5288 ACA5 0B              .     sev
5289 ACA6 0A              .     clv
5290 ACA7 09              .     dex
5291
5292 ACA8 20 20                 bra 20
5293 ACAA 50              P     negb
5294 ACAB 52              R     illegal
5295 ACAC 49              I     rola
5296 ACAD 43              C     coma
5297 ACAE 45              E     illegal
5298 ACAF 20 20                 bra 20
5299 ACB1 20 00            .    bra 00
5300 ACB3 20 20                 bra 20
5301 ACB5 20 50            P    bra 50
5302 ACB7 52              R     illegal
5303 ACB8 49              I     rola
5304 ACB9 58              X     aslb
5305 ACBA 20 20                 bra 20
5306 ACBC 20 00            .    bra 00
5307 ACBE 20 20                 bra 20
5308 ACC0 50              P     negb
5309 ACC1 52              R     illegal
5310 ACC2 45              E     illegal
5311 ACC3 49              I     rola
5312 ACC4 53              S     comb
5313 ACC5 20 20                 bra 20
5314 ACC7 20 00            .    bra 00
5315 ACC9 20 20                 bra 20
5316 ACCB 50              P     negb
5317 ACCC 52              R     illegal
5318 ACCD 45              E     illegal
5319 ACCE 43              C     coma
5320 ACCF 49              I     rola
5321 ACD0 4F              O     clra
5322 ACD1 20 20                 bra 20
5323 ACD3 00              .     test
5324 ACD4 20 20                 bra 20
5325 ACD6 43              C     coma
5326 ACD7 48              H     asla
5327 ACD8 41              A     illegal
5328 ACD9 4E              N     illegal
5329 ACDA 47              G     asra
5330 ACDB 45              E     illegal
5331 ACDC 20 20                 bra 20
5332 ACDE 00              .     test
5333 ACDF 20 20                 bra 20
5334 ACE1 43              C     coma
5335 ACE2 41              A     illegal
5336 ACE3 4D              M     tsta
5337 ACE4 42              B     illegal
5338 ACE5 49              I     rola
5339 ACE6 4F              O     clra
5340 ACE7 20 20                 bra 20
5341 ACE9 00              .     test
5342 ACEA 20 4D            M    bra 4d
5343 ACEC 4F              O     clra
5344 ACED 4E              N     illegal
5345 ACEE 4E              N     illegal
5346 ACEF 41              A     illegal
5347 ACF0 49              I     rola
5348 ACF1 45              E     illegal
5349 ACF2 20 20                 bra 20
5350 ACF4 00              .     test
5351 ACF5 20 20                 bra 20
5352 ACF7 54              T     lsrb
5353 ACF8 48              H     asla
5354 ACF9 41              A     illegal
5355 ACFA 4E              N     illegal
5356 ACFB 4B              K     illegal
5357 ACFC 53              S     comb
5358 ACFD 20 20                 bra 20
5359 ACFF 00              .     test
5360 AD00 20 20                 bra 20
5361 AD02 4D              M     tsta
5362 AD03 45              E     illegal
5363 AD04 52              R     illegal
5364 AD05 43              C     coma
5365 AD06 49              I     rola
5366 AD07 20 20                 bra 20
5367 AD09 20 00            .    bra 00
5368 AD0B 20 20                 bra 20
5369 AD0D 44              D     lsra
5370 AD0E 41              A     illegal
5371 AD0F 4E              N     illegal
5372 AD10 4B              K     illegal
5373 AD11 45              E     illegal
5374 AD12 20 20                 bra 20
5375 AD14 20 00            .    bra 00
5376 AD16 20 20                 bra 20
5377 AD18 47              G     asra
5378 AD19 52              R     illegal
5379 AD1A 41              A     illegal
5380 AD1B 43              C     coma
5381 AD1C 49              I     rola
5382 AD1D 41              A     illegal
5383 AD1E 53              S     comb
5384 AD1F 20 00            .    bra 00
5385 AD21 20 20                 bra 20
5386 AD23 53              S     comb
5387 AD24 45              E     illegal
5388 AD25 4C              L     inca
5389 AD26 45              E     illegal
5390 AD27 43              C     coma
5391 AD28 54              T     lsrb
5392 AD29 20 20                 bra 20
5393 AD2B 00              .     test
5394 AD2C 20 20                 bra 20
5395 AD2E 4F              O     clra
5396 AD2F 54              T     lsrb
5397 AD30 48              H     asla
5398 AD31 45              E     illegal
5399 AD32 52              R     illegal
5400 AD33 20 20                 bra 20
5401 AD35 20 00            .    bra 00
5402 AD37 20 20                 bra 20
5403 AD39 20 49            I    bra 49
5404 AD3B 54              T     lsrb
5405 AD3C 45              E     illegal
5406 AD3D 4D              M     tsta
5407 AD3E 20 20                 bra 20
5408 AD40 20 00            .    bra 00
5409 AD42 20 20                 bra 20
5410 AD44 46              F     rora
5411 AD45 41              A     illegal
5412 AD46 49              I     rola
5413 AD47 54              T     lsrb
5414 AD48 45              E     illegal
5415 AD49 53              S     comb
5416 AD4A 20 20                 bra 20
5417 AD4C 00              .     test
5418 AD4D 20 20                 bra 20
5419 AD4F 41              A     illegal
5420 AD50 55              U     illegal
5421 AD51 54              T     lsrb
5422 AD52 52              R     illegal
5423 AD53 45              E     illegal
5424 AD54 20 20                 bra 20
5425 AD56 20 00            .    bra 00
5426 AD58 20 20                 bra 20
5427 AD5A 43              C     coma
5428 AD5B 48              H     asla
5429 AD5C 4F              O     clra
5430 AD5D 49              I     rola
5431 AD5E 58              X     aslb
5432 AD5F 20 20                 bra 20
5433 AD61 20 00            .    bra 00
5434 AD63 20 20                 bra 20
5435 AD65 42              B     illegal
5436 AD66 49              I     rola
5437 AD67 54              T     lsrb
5438 AD68 54              T     lsrb
5439 AD69 45              E     illegal
5440 AD6A 20 20                 bra 20
5441 AD6C 20 00            .    bra 00
5442 AD6E 20 20                 bra 20
5443 AD70 41              A     illegal
5444 AD71 4E              N     illegal
5445 AD72 44              D     lsra
5446 AD73 45              E     illegal
5447 AD74 52              R     illegal
5448 AD75 45              E     illegal
5449 AD76 20 20                 bra 20
5450 AD78 00              .     test
5451 AD79 20 20                 bra 20
5452 AD7B 20 57            W    bra 57
5453 AD7D 41              A     illegal
5454 AD7E 48              H     asla
5455 AD7F 4C              L     inca
5456 AD80 20 20                 bra 20
5457 AD82 20 00            .    bra 00
5458 AD84 20 20                 bra 20
5459 AD86 50              P     negb
5460 AD87 55              U     illegal
5461 AD88 4C              L     inca
5462 AD89 53              S     comb
5463 AD8A 45              E     illegal
5464 AD8B 20 20                 bra 20
5465 AD8D 20 00            .    bra 00
5466 AD8F 20 20                 bra 20
5467 AD91 45              E     illegal
5468 AD92 58              X     aslb
5469 AD93 54              T     lsrb
5470 AD94 52              R     illegal
5471 AD95 41              A     illegal
5472 AD96 20 20                 bra 20
5473 AD98 20 00            .    bra 00
5474 AD9A 20 53            S    bra 53
5475 AD9C 45              E     illegal
5476 AD9D 4C              L     inca
5477 AD9E 45              E     illegal
5478 AD9F 43              C     coma
5479 ADA0 43              C     coma
5480 ADA1 49              I     rola
5481 ADA2 4F              O     clra
5482 ADA3 4E              N     illegal
5483 ADA4 00              .     test
5484 ADA5 20 45            E    bra 45
5485 ADA7 58              X     aslb
5486 ADA8 41              A     illegal
5487 ADA9 43              C     coma
5488 ADAA 54              T     lsrb
5489 ADAB 20 43            C    bra 43
5490 ADAD 4F              O     clra
5491 ADAE 49              I     rola
5492 ADAF 4E              N     illegal
5493 ADB0 53              S     comb
5494 ADB1 20 4F            O    bra 4f
5495 ADB3 4E              N     illegal
5496 ADB4 4C              L     inca
5497 ADB5 59              Y     rolb
5498 ADB6 20 00            .    bra 00
5499 ADB8 20 4D            M    bra 4d
5500 ADBA 4F              O     clra
5501 ADBB 4E              N     illegal
5502 ADBC 4E              N     illegal
5503 ADBD 41              A     illegal
5504 ADBE 49              I     rola
5505 ADBF 45              E     illegal
5506 ADC0 20 45            E    bra 45
5507 ADC2 58              X     aslb
5508 ADC3 41              A     illegal
5509 ADC4 43              C     coma
5510 ADC5 54              T     lsrb
5511 ADC6 45              E     illegal
5512 ADC7 20 53            S    bra 53
5513 ADC9 45              E     illegal
5514 ADCA 55              U     illegal
5515 ADCB 4C              L     inca
5516 ADCC 45              E     illegal
5517 ADCD 4D              M     tsta
5518 ADCE 45              E     illegal
5519 ADCF 4E              N     illegal
5520 ADD0 54              T     lsrb
5521 ADD1 20 00            .    bra 00
5522 ADD3 20 4E            N    bra 4e
5523 ADD5 49              I     rola
5524 ADD6 43              C     coma
5525 ADD7 48              H     asla
5526 ADD8 54              T     lsrb
5527 ADD9 20 55            U    bra 55
5528 ADDB 45              E     illegal
5529 ADDC 42              B     illegal
5530 ADDD 45              E     illegal
5531 ADDE 52              R     illegal
5532 ADDF 5A              Z     decb
5533 ADE0 41              A     illegal
5534 ADE1 48              H     asla
5535 ADE2 4C              L     inca
5536 ADE3 45              E     illegal
5537 ADE4 4E              N     illegal
5538 ADE5 20 00            .    bra 00
5539 ADE7 20 49            I    bra 49
5540 ADE9 4E              N     illegal
5541 ADEA 54              T     lsrb
5542 ADEB 52              R     illegal
5543 ADEC 4F              O     clra
5544 ADED 44              D     lsra
5545 ADEE 55              U     illegal
5546 ADEF 5A              Z     decb
5547 ADF0 43              C     coma
5548 ADF1 41              A     illegal
5549 ADF2 20 50            P    bra 50
5550 ADF4 52              R     illegal
5551 ADF5 45              E     illegal
5552 ADF6 43              C     coma
5553 ADF7 49              I     rola
5554 ADF8 4F              O     clra
5555 ADF9 20 45            E    bra 45
5556 ADFB 58              X     aslb
5557 ADFC 41              A     illegal
5558 ADFD 43              C     coma
5559 ADFE 54              T     lsrb
5560 ADFF 4F              O     clra
5561 AE00 20 00            .    bra 00
5562 AE02 20 43            C    bra 43
5563 AE04 4F              O     clra
5564 AE05 49              I     rola
5565 AE06 4E              N     illegal
5566 AE07 53              S     comb
5567 AE08 20 4F            O    bra 4f
5568 AE0A 4E              N     illegal
5569 AE0B 4C              L     inca
5570 AE0C 59              Y     rolb
5571 AE0D 20 00            .    bra 00
5572 AE0F 20 4D            M    bra 4d
5573 AE11 4F              O     clra
5574 AE12 4E              N     illegal
5575 AE13 4E              N     illegal
5576 AE14 41              A     illegal
5577 AE15 49              I     rola
5578 AE16 45              E     illegal
5579 AE17 20 53            S    bra 53
5580 AE19 45              E     illegal
5581 AE1A 55              U     illegal
5582 AE1B 4C              L     inca
5583 AE1C 45              E     illegal
5584 AE1D 4D              M     tsta
5585 AE1E 45              E     illegal
5586 AE1F 4E              N     illegal
5587 AE20 54              T     lsrb
5588 AE21 20 00            .    bra 00
5589 AE23 20 4E            N    bra 4e
5590 AE25 55              U     illegal
5591 AE26 52              R     illegal
5592 AE27 20 4D            M    bra 4d
5593 AE29 55              U     illegal
5594 AE2A 4E              N     illegal
5595 AE2B 5A              Z     decb
5596 AE2C 45              E     illegal
5597 AE2D 4E              N     illegal
5598 AE2E 20 00            .    bra 00
5599 AE30 20 4D            M    bra 4d
5600 AE32 4F              O     clra
5601 AE33 4E              N     illegal
5602 AE34 45              E     illegal
5603 AE35 44              D     lsra
5604 AE36 41              A     illegal
5605 AE37 20 55            U    bra 55
5606 AE39 4E              N     illegal
5607 AE3A 49              I     rola
5608 AE3B 43              C     coma
5609 AE3C 41              A     illegal
5610 AE3D 4D              M     tsta
5611 AE3E 45              E     illegal
5612 AE3F 4E              N     illegal
5613 AE40 54              T     lsrb
5614 AE41 45              E     illegal
5615 AE42 20 00            .    bra 00
5616 AE44 20 4D            M    bra 4d
5617 AE46 41              A     illegal
5618 AE47 43              C     coma
5619 AE48 48              H     asla
5620 AE49 49              I     rola
5621 AE4A 4E              N     illegal
5622 AE4B 45              E     illegal
5623 AE4C 20 4F            O    bra 4f
5624 AE4E 55              U     illegal
5625 AE4F 54              T     lsrb
5626 AE50 20 4F            O    bra 4f
5627 AE52 46              F     rora
5628 AE53 20 4F            O    bra 4f
5629 AE55 52              R     illegal
5630 AE56 44              D     lsra
5631 AE57 45              E     illegal
5632 AE58 52              R     illegal
5633 AE59 20 00            .    bra 00
5634 AE5B 20 48            H    bra 48
5635 AE5D 4F              O     clra
5636 AE5E 52              R     illegal
5637 AE5F 53              S     comb
5638 AE60 20 44            D    bra 44
5639 AE62 45              E     illegal
5640 AE63 20 53            S    bra 53
5641 AE65 45              E     illegal
5642 AE66 52              R     illegal
5643 AE67 56              V     rorb
5644 AE68 49              I     rola
5645 AE69 43              C     coma
5646 AE6A 45              E     illegal
5647 AE6B 20 00            .    bra 00
5648 AE6D 20 41            A    bra 41
5649 AE6F 55              U     illegal
5650 AE70 53              S     comb
5651 AE71 53              S     comb
5652 AE72 45              E     illegal
5653 AE73 52              R     illegal
5654 AE74 20 42            B    bra 42
5655 AE76 45              E     illegal
5656 AE77 54              T     lsrb
5657 AE78 52              R     illegal
5658 AE79 49              I     rola
5659 AE7A 45              E     illegal
5660 AE7B 42              B     illegal
5661 AE7C 20 00            .    bra 00
5662 AE7E 20 46            F    bra 46
5663 AE80 55              U     illegal
5664 AE81 45              E     illegal
5665 AE82 52              R     illegal
5666 AE83 41              A     illegal
5667 AE84 20 44            D    bra 44
5668 AE86 45              E     illegal
5669 AE87 20 53            S    bra 53
5670 AE89 45              E     illegal
5671 AE8A 52              R     illegal
5672 AE8B 56              V     rorb
5673 AE8C 49              I     rola
5674 AE8D 43              C     coma
5675 AE8E 49              I     rola
5676 AE8F 4F              O     clra
5677 AE90 20 00            .    bra 00
5678
5679 AE92 2D 20           -     blt 20
5680 AE94 20 20                 bra 20
5681 AE96 20 20                 bra 20
5682 AE98 20 20                 bra 20
5683 AE9A 20 20                 bra 20
5684 AE9C 00              .     test
5685
5686 AE9D 53              S     comb
5687 AE9E 45              E     illegal
5688 AE9F 54              T     lsrb
5689 AEA0 20 50            P    bra 50
5690 AEA2 52              R     illegal
5691 AEA3 49              I     rola
5692 AEA4 43              C     coma
5693 AEA5 45              E     illegal
5694 AEA6 3F              ?     swi
5695 AEA7 00              .     test
5696
5697 AEA8 20 20                 bra 20
5698 AEAA 53              S     comb
5699 AEAB 59              Y     rolb
5700 AEAC 53              S     comb
5701 AEAD 54              T     lsrb
5702 AEAE 45              E     illegal
5703 AEAF 4D              M     tsta
5704 AEB0 20 20                 bra 20
5705 AEB2 00              .     test
5706
5707 AEB3 20 20                 bra 20
5708 AEB5 20 20                 bra 20
5709 AEB7 4F              O     clra
5710 AEB8 4B              K     illegal
5711 AEB9 20 20                 bra 20
5712 AEBB 20 20                 bra 20
5713 AEBD 00              .     test
5714
5715 AEBE 24 35           $5    bcc 35
5716 AEC0 20 45            E    bra 45
5717 AEC2 4E              N     illegal
5718 AEC3 41              A     illegal
5719 AEC4 42              B     illegal
5720 AEC5 4C              L     inca
5721 AEC6 45              E     illegal
5722 AEC7 20 00            .    bra 00
5723
5724 AEC9 24 35           $5    bcc 35
5725 AECB 20 44            D    bra 44
5726 AECD 49              I     rola
5727 AECE 53              S     comb
5728 AECF 41              A     illegal
5729 AED0 42              B     illegal
5730 AED1 4C              L     inca
5731 AED2 45              E     illegal
5732 AED3 00              .     test
5733
5734 AED4 53              S     comb
5735 AED5 4F              O     clra
5736 AED6 44              D     lsra
5737 AED7 41              A     illegal
5738 AED8 20 56            V    bra 56
5739 AEDA 45              E     illegal
5740 AEDB 4E              N     illegal
5741 AEDC 44              D     lsra
5742 AEDD 20 00            .    bra 00
5743 AEDF 53              S     comb
5744 AEE0 4E              N     illegal
5745 AEE1 41              A     illegal
5746 AEE2 43              C     coma
5747 AEE3 4B              K     illegal
5748 AEE4 20 56            V    bra 56
5749 AEE6 45              E     illegal
5750 AEE7 4E              N     illegal
5751 AEE8 44              D     lsra
5752 AEE9 00              .     test
5753
5754 AEEA 44              D     lsra
5755 AEEB 55              U     illegal
5756 AEEC 4D              M     tsta
5757 AEED 42              B     illegal
5758 AEEE 20 4D            M    bra 4d
5759 AEF0 45              E     illegal
5760 AEF1 43              C     coma
5761 AEF2 20 59            Y    bra 59
5762 AEF4 00              .     test
5763 AEF5 44              D     lsra
5764 AEF6 55              U     illegal
5765 AEF7 4D              M     tsta
5766 AEF8 42              B     illegal
5767 AEF9 20 4D            M    bra 4d
5768 AEFB 45              E     illegal
5769 AEFC 43              C     coma
5770 AEFD 20 4E            N    bra 4e
5771 AEFF 00              .     test
5772 AF00 4C              L     inca
5773 AF01 4E              N     illegal
5774 AF02 4B              K     illegal
5775 AF03 20 4D            M    bra 4d
5776 AF05 53              S     comb
5777 AF06 54              T     lsrb
5778 AF07 52              R     illegal
5779 AF08 20 59            Y    bra 59
5780 AF0A 00              .     test
5781 AF0B 4C              L     inca
5782 AF0C 4E              N     illegal
5783 AF0D 4B              K     illegal
5784 AF0E 20 4D            M    bra 4d
5785 AF10 53              S     comb
5786 AF11 54              T     lsrb
5787 AF12 52              R     illegal
5788 AF13 20 4E            N    bra 4e
5789 AF15 00              .     test
5790 AF16 43              C     coma
5791 AF17 41              A     illegal
5792 AF18 52              R     illegal
5793 AF19 44              D     lsra
5794 AF1A 20 52            R    bra 52
5795 AF1C 44              D     lsra
5796 AF1D 52              R     illegal
5797 AF1E 20 59            Y    bra 59
5798 AF20 00              .     test
5799 AF21 43              C     coma
5800 AF22 41              A     illegal
5801 AF23 52              R     illegal
5802 AF24 44              D     lsra
5803 AF25 20 52            R    bra 52
5804 AF27 44              D     lsra
5805 AF28 52              R     illegal
5806 AF29 20 4E            N    bra 4e
5807 AF2B 00              .     test
5808 AF2C 42              B     illegal
5809 AF2D 49              I     rola
5810 AF2E 4C              L     inca
5811 AF2F 4C              L     inca
5812 AF30 20 56            V    bra 56
5813 AF32 41              A     illegal
5814 AF33 4C              L     inca
5815 AF34 20 59            Y    bra 59
5816 AF36 00              .     test
5817 AF37 42              B     illegal
5818 AF38 49              I     rola
5819 AF39 4C              L     inca
5820 AF3A 4C              L     inca
5821 AF3B 20 56            V    bra 56
5822 AF3D 41              A     illegal
5823 AF3E 4C              L     inca
5824 AF3F 20 4E            N    bra 4e
5825 AF41 00              .     test
5826 AF42 50              P     negb
5827 AF43 52              R     illegal
5828 AF44 43              C     coma
5829 AF45 20 48            H    bra 48
5830 AF47 4F              O     clra
5831 AF48 4C              L     inca
5832 AF49 44              D     lsra
5833 AF4A 20 59            Y    bra 59
5834 AF4C 00              .     test
5835 AF4D 50              P     negb
5836 AF4E 52              R     illegal
5837 AF4F 43              C     coma
5838 AF50 20 48            H    bra 48
5839 AF52 4F              O     clra
5840 AF53 4C              L     inca
5841 AF54 44              D     lsra
5842 AF55 20 4E            N    bra 4e
5843 AF57 00              .     test
5844 AF58 50              P     negb
5845 AF59 52              R     illegal
5846 AF5A 43              C     coma
5847 AF5B 20 44            D    bra 44
5848 AF5D 49              I     rola
5849 AF5E 53              S     comb
5850 AF5F 50              P     negb
5851 AF60 20 59            Y    bra 59
5852 AF62 00              .     test
5853 AF63 50              P     negb
5854 AF64 52              R     illegal
5855 AF65 43              C     coma
5856 AF66 20 44            D    bra 44
5857 AF68 49              I     rola
5858 AF69 53              S     comb
5859 AF6A 50              P     negb
5860 AF6B 20 4E            N    bra 4e
5861 AF6D 00              .     test
5862 AF6E 46              F     rora
5863 AF6F 52              R     illegal
5864 AF70 45              E     illegal
5865 AF71 45              E     illegal
5866 AF72 20 56            V    bra 56
5867 AF74 4E              N     illegal
5868 AF75 44              D     lsra
5869 AF76 20 59            Y    bra 59
5870 AF78 00              .     test
5871 AF79 46              F     rora
5872 AF7A 52              R     illegal
5873 AF7B 45              E     illegal
5874 AF7C 45              E     illegal
5875 AF7D 20 56            V    bra 56
5876 AF7F 4E              N     illegal
5877 AF80 44              D     lsra
5878 AF81 20 4E            N    bra 4e
5879 AF83 00              .     test
5880 AF84 24 31           $1    bcc 31
5881 AF86 20 43            C    bra 43
5882 AF88 48              H     asla
5883 AF89 4E              N     illegal
5884 AF8A 47              G     asra
5885 AF8B 52              R     illegal
5886 AF8C 20 59            Y    bra 59
5887 AF8E 00              .     test
5888 AF8F 24 31           $1    bcc 31
5889 AF91 20 43            C    bra 43
5890 AF93 48              H     asla
5891 AF94 4E              N     illegal
5892 AF95 47              G     asra
5893 AF96 52              R     illegal
5894 AF97 20 4E            N    bra 4e
5895 AF99 00              .     test
5896 AF9A 43              C     coma
5897 AF9B 4C              L     inca
5898 AF9C 52              R     illegal
5899 AF9D 20 4D            M    bra 4d
5900 AF9F 49              I     rola
5901 AFA0 53              S     comb
5902 AFA1 20 20                 bra 20
5903 AFA3 59              Y     rolb
5904 AFA4 00              .     test
5905 AFA5 43              C     coma
5906 AFA6 4C              L     inca
5907 AFA7 52              R     illegal
5908 AFA8 20 4D            M    bra 4d
5909 AFAA 49              I     rola
5910 AFAB 53              S     comb
5911 AFAC 20 20                 bra 20
5912 AFAE 4E              N     illegal
5913 AFAF 00              .     test
5914 AFB0 48              H     asla
5915 AFB1 49              I     rola
5916 AFB2 54              T     lsrb
5917 AFB3 20 4B            K    bra 4b
5918 AFB5 45              E     illegal
5919 AFB6 59              Y     rolb
5920 AFB7 22 30           "0    bhi 30
5921 AFB9 22 00           ".    bhi 00
5922 AFBB 45              E     illegal
5923 AFBC 4E              N     illegal
5924 AFBD 54              T     lsrb
5925 AFBE 45              E     illegal
5926 AFBF 52              R     illegal
5927 AFC0 20 43            C    bra 43
5928 AFC2 4F              O     clra
5929 AFC3 44              D     lsra
5930 AFC4 45              E     illegal
5931 AFC5 00              .     test
5932 AFC6 53              S     comb
5933 AFC7 45              E     illegal
5934 AFC8 43              C     coma
5935 AFC9 55              U     illegal
5936 AFCA 52              R     illegal
5937 AFCB 45              E     illegal
5938 AFCC 20 4F            O    bra 4f
5939 AFCE 4E              N     illegal
5940 AFCF 20 00            .    bra 00
5941 AFD1 53              S     comb
5942 AFD2 45              E     illegal
5943 AFD3 43              C     coma
5944 AFD4 55              U     illegal
5945 AFD5 52              R     illegal
5946 AFD6 45              E     illegal
5947 AFD7 20 4F            O    bra 4f
5948 AFD9 46              F     rora
5949 AFDA 46              F     rora
5950 AFDB 00              .     test
5951 AFDC 2D 20           -     blt 20
5952 AFDE 53              S     comb
5953 AFDF 41              A     illegal
5954 AFE0 56              V     rorb
5955 AFE1 49              I     rola
5956 AFE2 4E              N     illegal
5957 AFE3 47              G     asra
5958 AFE4 20 2D            -    bra 2d
5959 AFE6 00              .     test
5960 AFE7 2D 50           -P    blt 50
5961 AFE9 52              R     illegal
5962 AFEA 49              I     rola
5963 AFEB 4E              N     illegal
5964 AFEC 54              T     lsrb
5965 AFED 49              I     rola
5966 AFEE 4E              N     illegal
5967 AFEF 47              G     asra
5968 AFF0 2D 00           -.    blt 00
5969
5970 AFF2 4F              O     clra
5971 AFF3 56              V     rorb
5972 AFF4 45              E     illegal
5973 AFF5 52              R     illegal
5974 AFF6 20 43            C    bra 43
5975 AFF8 52              R     illegal
5976 AFF9 4E              N     illegal
5977 AFFA 54              T     lsrb
5978 AFFB 3D              =     mul
5979 AFFC 00              .     test
5980
5981 AFFD 48              H     asla
5982 AFFE 4F              O     clra
5983 AFFF 4D              M     tsta
5984 B000 45              E     illegal
5985 B001 20 46            F    bra 46
5986 B003 41              A     illegal
5987 B004 49              I     rola
5988 B005 4C              L     inca
5989 B006 3D              =     mul
5990 B007 00              .     test
5991 B008 43              C     coma
5992 B009 48              H     asla
5993 B00A 4B              K     illegal
5994 B00B 20 50            P    bra 50
5995 B00D 52              R     illegal
5996 B00E 49              I     rola
5997 B00F 43              C     coma
5998 B010 45              E     illegal
5999 B011 53              S     comb
6000 B012 00              .     test
6001
6002 B013 48              H     asla
6003 B014 49              I     rola
6004 B015 54              T     lsrb
6005 B016 20 52            R    bra 52
6006 B018 45              E     illegal
6007 B019 53              S     comb
6008 B01A 45              E     illegal
6009 B01B 54              T     lsrb
6010 B01C 20 00            .    bra 00
6011
6012 B01E 43              C     coma
6013 B01F 4F              O     clra
6014 B020 49              I     rola
6015 B021 4E              N     illegal
6016 B022 20 20                 bra 20
6017 B024 20 4A            J    bra 4a
6018 B026 41              A     illegal
6019 B027 4D              M     tsta
6020 B028 00              .     test
6021
6022 B029 42              B     illegal
6023 B02A 41              A     illegal
6024 B02B 44              D     lsra
6025 B02C 20 53            S    bra 53
6026 B02E 45              E     illegal
6027 B02F 4E              N     illegal
6028 B030 53              S     comb
6029 B031 4F              O     clra
6030 B032 52              R     illegal
6031 B033 00              .     test
6032
6033 B034 43              C     coma
6034 B035 48              H     asla
6035 B036 47              G     asra
6036 B037 52              R     illegal
6037 B038 20 50            P    bra 50
6038 B03A 57              W     asrb
6039 B03B 52              R     illegal
6040 B03C 55              U     illegal
6041 B03D 50              P     negb
6042 B03E 00              .     test
6043
6044 B03F 4C              L     inca
6045 B040 49              I     rola
6046 B041 4E              N     illegal
6047 B042 4B              K     illegal
6048 B043 20 50            P    bra 50
6049 B045 57              W     asrb
6050 B046 52              R     illegal
6051 B047 55              U     illegal
6052 B048 50              P     negb
6053 B049 00              .     test
6054
6055 B04A 43              C     coma
6056 B04B 41              A     illegal
6057 B04C 52              R     illegal
6058 B04D 44              D     lsra
6059 B04E 20 50            P    bra 50
6060 B050 57              W     asrb
6061 B051 52              R     illegal
6062 B052 55              U     illegal
6063 B053 50              P     negb
6064 B054 00              .     test
6065
6066 B055 42              B     illegal
6067 B056 49              I     rola
6068 B057 4C              L     inca
6069 B058 4C              L     inca
6070 B059 20 45            E    bra 45
6071 B05B 52              R     illegal
6072 B05C 52              R     illegal
6073 B05D 4F              O     clra
6074 B05E 52              R     illegal
6075 B05F 00              .     test
6076
6077 B060 54              T     lsrb
6078 B061 55              U     illegal
6079 B062 42              B     illegal
6080 B063 45              E     illegal
6081 B064 20 45            E    bra 45
6082 B066 52              R     illegal
6083 B067 52              R     illegal
6084 B068 4F              O     clra
6085 B069 52              R     illegal
6086 B06A 00              .     test
6087 B06B 4E              N     illegal
6088 B06C 4F              O     clra
6089 B06D 20 20                 bra 20
6090 B06F 43              C     coma
6091 B070 48              H     asla
6092 B071 41              A     illegal
6093 B072 4E              N     illegal
6094 B073 47              G     asra
6095 B074 45              E     illegal
6096 B075 00              .     test
6097 B076 20 4E            N    bra 4e
6098 B078 4F              O     clra
6099 B079 20 46            F    bra 46
6100 B07B 49              I     rola
6101 B07C 56              V     rorb
6102 B07D 45              E     illegal
6103 B07E 53              S     comb
6104 B07F 20 00            .    bra 00
6105
6106 B081 4E              N     illegal
6107 B082 4F              O     clra
6108 B083 20 20                 bra 20
6109 B085 41              A     illegal
6110 B086 43              C     coma
6111 B087 43              C     coma
6112 B088 45              E     illegal
6113 B089 53              S     comb
6114 B08A 53              S     comb
6115 B08B 00              .     test
6116 B08C 4E              N     illegal
6117 B08D 4F              O     clra
6118 B08E 20 20                 bra 20
6119 B090 45              E     illegal
6120 B091 52              R     illegal
6121 B092 52              R     illegal
6122 B093 4F              O     clra
6123 B094 52              R     illegal
6124 B095 53              S     comb
6125 B096 00              .     test
6126 B097 54              T     lsrb
6127 B098 45              E     illegal
6128 B099 53              S     comb
6129 B09A 54              T     lsrb
6130 B09B 20 20                 bra 20
6131 B09D 56              V     rorb
6132 B09E 45              E     illegal
6133 B09F 4E              N     illegal
6134 B0A0 44              D     lsra
6135 B0A1 00              .     test
6136 B0A2 4D              M     tsta
6137 B0A3 54              T     lsrb
6138 B0A4 52              R     illegal
6139 B0A5 20 46            F    bra 46
6140 B0A7 55              U     illegal
6141 B0A8 4E              N     illegal
6142 B0A9 43              C     coma
6143 B0AA 54              T     lsrb
6144 B0AB 3F              ?     swi
6145 B0AC 00              .     test
6146 B0AD 50              P     negb
6147 B0AE 52              R     illegal
6148 B0AF 4F              O     clra
6149 B0B0 47              G     asra
6150 B0B1 52              R     illegal
6151 B0B2 41              A     illegal
6152 B0B3 4D              M     tsta
6153 B0B4 20 20                 bra 20
6154 B0B6 3F              ?     swi
6155 B0B7 00              .     test
6156 B0B8 53              S     comb
6157 B0B9 45              E     illegal
6158 B0BA 4C              L     inca
6159 B0BB 45              E     illegal
6160 B0BC 43              C     coma
6161 B0BD 54              T     lsrb
6162 B0BE 49              I     rola
6163 B0BF 4F              O     clra
6164 B0C0 4E              N     illegal
6165 B0C1 3F              ?     swi
6166 B0C2 00              .     test
6167
6168 B0C3 14 00           .     ;20
6169 B0C5 14 C8           .     ;20 200
6170 B0C7 05 00           ..    ;05
6171 B0C9 05 00           .     ;05
6172 B0CB 02 00           .     ;02
6173 B0CD 02 00           .     ;02
6174 B0CF 01 00           .     ;01
6175 B0D1 01 00           .     ;01
6176
6177
6178
6179
6180
6181 ;
6182 ; here's a lookup table of some sort, for finding the slot
6183 ; numbers of each motor in turn
6184 ;
6185 ; 80 entries for 80 motors?
6186 ;
6187 B0D3 01              .     ;01
6188 B0D4 0C              .     ;12
6189 B0D5 17              .     ;23
6190 B0D6 22              .     ;34
6191 B0D7 2E              .     ;46
6192 B0D8 39              .     ;57
6193 B0D9 44              D     ;68
6194 B0DA 4F              O     ;79
6195 ;
6196 B0DB 0B              .     ;11
6197 B0DC 16              .     ;22
6198 B0DD 21              !     ;33
6199 B0DE 2C              .     ;44
6200 B0DF 38              8     ;56
6201 B0E0 43              C     ;67
6202 B0E1 4E              N     ;78
6203 B0E2 59              Y     ;89
6204 ;
6205 B0E3 15              .     ;21
6206 B0E4 20              .     ;32
6207 B0E5 2B              +     ;43
6208 B0E6 36              6     ;54
6209 B0E7 42              B     ;66
6210 B0E8 4D              M     ;77
6211 B0E9 58              X     ;88
6212 B0EA 63              c     ;99
6213 ;
6214 B0EB 1F              .     ;31
6215 B0EC 2A              *.    ;42
6216 B0ED 35              .     ;53
6217 B0EE 40              @     ;64
6218 B0EF 4C              L     ;76
6219 B0F0 57              W     ;87
6220 B0F1 62              b     ;98
6221 ;
6222 B0F2 09              .     ;09
6223 B0F3 29              )     ;41
6224 B0F4 34              .     ;52
6225 B0F5 3F              ?     ;63
6226 B0F6 4A              J     ;74
6227 B0F7 56              V     ;86
6228 B0F8 61              a     ;97
6229 ;
6230 B0F9 08              .     ;08
6231 B0FA 13              .     ;19
6232 B0FB 33              3     ;51
6233 B0FC 3E              >     ;62
6234 B0FD 49              I     ;73
6235 B0FE 54              T     ;84
6236 B0FF 60              `     ;96
6237 ;
6238 B000 07              .     ;07
6239 B101 12              .     ;18
6240 B102 1D              .     ;29
6241 B103 3D              .     ;61
6242 B104 48              .     ;72
6243 B105 53              S     ;83
6244 B106 5E              ^     ;94
6245 ;
6246 B107 06              .     ;06
6247 B108 11              .     ;17
6248 B109 1C              .     ;28
6249 B10A 27              .     ;39
6250 B10B 47              .     ;71
6251 B10C 52              R     ;82
6252 B10D 5D              ]     ;93
6253 ;
6254 B10E 04              .     ;04
6255 B10F 10              .     ;16
6256 B110 1B              .     ;27
6257 B111 26              &     ;38
6258 B111 31              &     ;49
6259 B113 51              Q     ;81
6260 B114 5C              \     ;92
6261 ;
6262 B115 03              .     ;03
6263 B116 0E              .     ;14
6264 B117 1A              .     ;26
6265 B118 25              %     ;37
6266 B119 30              %     ;48
6267 B11A 3B              ;     ;59
6268 B11B 5B              [     ;91
6269 ;
6270 B11C 02              .     ;02
6271 B11D 0D              .     ;13
6272 B11E 18              .     ;24
6273 B11F 24              $     ;36
6274 B120 2F              $     ;47
6275 B121 3A              :     ;58
6276 B122 45              E     ;69
6277
6278 table of powers of 2
6279
6280 B123 00 01 02 04 08
6281 B128 10 20 40 80
6282
6283 B12C 00
6284 B12D 00              .     test
6285 B12E 2A 2A           **    bpl 2a       ;"**ERROR***"
6286 B130 45              E     illegal
6287 B131 52              R     illegal
6288 B132 52              R     illegal
6289 B133 4F              O     clra
6290 B134 52              R     illegal
6291 B135 2A 2A           **    bpl 2a
6292 B137 2A 00           *.    bpl 00
6293
6294 B139 2A 2A           **    bpl 2a
6295 B13B 2A 2A           **    bpl 2a
6296 B13D 2A 2A           **    bpl 2a
6297 B13F 2A 2A           **    bpl 2a
6298 B141 2A 2A           **    bpl 2a
6299 B143 00              .     test
6300 B144 4F              O     clra
6301 B145 4F              O     clra
6302 B146 4F              O     clra
6303 B147 4F              O     clra
6304 B148 4F              O     clra
6305 B149 4F              O     clra
6306 B14A 4F              O     clra
6307 B14B 4F              O     clra
6308 B14C 4F              O     clra
6309 B14D 4F              O     clra
6310 B14E 00              .     test
6311 B14F 52              R     illegal
6312 B150 41              A     illegal
6313 B151 4D              M     tsta
6314 B152 20 20                 bra 20
6315 B154 20 46            F    bra 46
6316 B156 41              A     illegal
6317 B157 49              I     rola
6318 B158 4C              L     inca
6319 B159 00              .     test
6320 B15A 50              P     negb
6321 B15B 32              2     pula
6322 B15C 20 20                 bra 20
6323 B15E 20 20                 bra 20
6324 B160 46              F     rora
6325 B161 41              A     illegal
6326 B162 49              I     rola
6327 B163 4C              L     inca
6328 B164 00              .     test
6329 B165 50              P     negb
6330 B166 32              2     pula
6331 B167 2D 50           -P    blt 50
6332 B169 33              3     pulb
6333 B16A 20 46            F    bra 46
6334 B16C 41              A     illegal
6335 B16D 49              I     rola
6336 B16E 4C              L     inca
6337 B16F 00              .     test
6338 B170 50              P     negb
6339 B171 32              2     pula
6340 B172 2D 50           -P    blt 50
6341 B174 38              8     pulx
6342 B175 20 46            F    bra 46
6343 B177 41              A     illegal
6344 B178 49              I     rola
6345 B179 4C              L     inca
6346 B17A 00              .     test
6347 B17B 50              P     negb
6348 B17C 32              2     pula
6349 B17D 2D 50           -P    blt 50
6350 B17F 39              9     rts
6351
6352 B180 20 46            F    bra 46
6353 B182 41              A     illegal
6354 B183 49              I     rola
6355 B184 4C              L     inca
6356 B185 00              .     test
6357 B186 50              P     negb
6358 B187 33              3     pulb
6359 B188 2D 50           -P    blt 50
6360 B18A 34              4     des
6361 B18B 20 46            F    bra 46
6362 B18D 41              A     illegal
6363 B18E 49              I     rola
6364 B18F 4C              L     inca
6365 B190 00              .     test
6366 B191 50              P     negb
6367 B192 35              5     txs
6368 B193 20 20                 bra 20
6369 B195 20 20                 bra 20
6370 B197 46              F     rora
6371 B198 41              A     illegal
6372 B199 49              I     rola
6373 B19A 4C              L     inca
6374 B19B 00              .     test
6375 B19C 50              P     negb
6376 B19D 35              5     txs
6377 B19E 2D 50           -P    blt 50
6378 B1A0 37              7     pshb
6379 B1A1 20 46            F    bra 46
6380 B1A3 41              A     illegal
6381 B1A4 49              I     rola
6382 B1A5 4C              L     inca
6383 B1A6 00              .     test
6384 B1A7 50              P     negb
6385 B1A8 37              7     pshb
6386 B1A9 20 20                 bra 20
6387 B1AB 20 20                 bra 20
6388 B1AD 46              F     rora
6389 B1AE 41              A     illegal
6390 B1AF 49              I     rola
6391 B1B0 4C              L     inca
6392 B1B1 00              .     test
6393 B1B2 50              P     negb
6394 B1B3 37              7     pshb
6395 B1B4 2D 50           -P    blt 50
6396 B1B6 38              8     pulx
6397 B1B7 20 46            F    bra 46
6398 B1B9 41              A     illegal
6399 B1BA 49              I     rola
6400 B1BB 4C              L     inca
6401 B1BC 00              .     test
6402 B1BD 2D 20           -     blt 20
6403 B1BF 50              P     negb
6404 B1C0 41              A     illegal
6405 B1C1 53              S     comb
6406 B1C2 53              S     comb
6407 B1C3 45              E     illegal
6408 B1C4 44              D     lsra
6409 B1C5 20 2D            -    bra 2d
6410 B1C7 00              .     test
6411 B1C8 09              .     dex
6412 B1C9 12              .     brset
6413 B1CA 1B              .     aba
6414 B1CB 24 2C           $,    bcc 2c
6415 B1CD 35              5     txs
6416 B1CE 3E              >     wai
6417 B1CF 47              G     asra
6418 B1D0 54              T     lsrb
6419 B1D1 48              H     asla
6420 B1D2 41              A     illegal
6421 B1D3 4E              N     illegal
6422 B1D4 4B              K     illegal
6423 B1D5 20 59            Y    bra 59
6424 B1D7 4F              O     clra
6425 B1D8 55              U     illegal
6426 B1D9 20 46            F    bra 46
6427 B1DB 4F              O     clra
6428 B1DC 52              R     illegal
6429 B1DD 20 59            Y    bra 59
6430 B1DF 4F              O     clra
6431 B1E0 55              U     illegal
6432 B1E1 52              R     illegal
6433 B1E2 20 50            P    bra 50
6434 B1E4 41              A     illegal
6435 B1E5 54              T     lsrb
6436 B1E6 52              R     illegal
6437 B1E7 4F              O     clra
6438 B1E8 4E              N     illegal
6439 B1E9 41              A     illegal
6440 B1EA 47              G     asra
6441 B1EB 45              E     illegal
6442 B1EC 20 20                 bra 20
6443 B1EE 00              .     test
6444
6445 B1EF 20 52            R    bra 52
6446 B1F1 4F              O     clra
6447 B1F2 57              W     asrb
6448 B1F3 45              E     illegal
6449 B1F4 20 49            I    bra 49
6450 B1F6 4E              N     illegal
6451 B1F7 54              T     lsrb
6452 B1F8 20 00            .    bra 00
6453
6454 B1FA 43              C     coma
6455 B1FB 4F              O     clra
6456 B1FC 50              P     negb
6457 B1FD 59              Y     rolb
6458 B1FE 52              R     illegal
6459 B1FF 49              I     rola
6460 B200 47              G     asra
6461 B201 48              H     asla
6462 B202 54              T     lsrb
6463 B203 20 00            .    bra 00
6464
6465 B205 20 20                 bra 20
6466 B207 20 31            1    bra 31
6467 B209 39              9     rts
6468 B20A 39              9     rts
6469 B20B 33              3     pulb
6470 B20C 20 20                 bra 20
6471 B20E 20 00            .    bra 00
6472
6473 B210 35              5     txs
6474 B211 39              9     rts
6475 B212 30              0     tsx
6476 B213 30              0     tsx
6477 B214 20 56            V    bra 56
6478 B216 45              E     illegal
6479 B217 52              R     illegal
6480 B218 20 35            5    bra 35
6481 B21A 00              .     test
6482
6483 B21B 20 20                 bra 20
6484 B21D 20 20                 bra 20
6485 B21F 20 20                 bra 20
6486 B221 20 20                 bra 20
6487 B223 20 52            R    bra 52
6488 B225 4F              O     clra
6489 B226 57              W     asrb
6490 B227 45              E     illegal
6491 B228 20 20                 bra 20
6492 B22A 49              I     rola
6493 B22B 4E              N     illegal
6494 B22C 54              T     lsrb
6495 B22D 45              E     illegal
6496 B22E 52              R     illegal
6497 B22F 4E              N     illegal
6498 B230 41              A     illegal
6499 B231 54              T     lsrb
6500 B232 49              I     rola
6501 B233 4F              O     clra
6502 B234 4E              N     illegal
6503 B235 41              A     illegal
6504 B236 4C              L     inca
6505 B237 00              .     test
6506 B238 20 20                 bra 20
6507 B23A 20 20                 bra 20
6508 B23C 20 20                 bra 20
6509 B23E 20 20                 bra 20
6510 B240 2D 2D           --    blt 2d
6511 B242 2D 2D           --    blt 2d
6512 B244 2D 2D           --    blt 2d
6513 B246 2D 2D           --    blt 2d
6514 B248 2D 2D           --    blt 2d
6515 B24A 2D 2D           --    blt 2d
6516 B24C 2D 2D           --    blt 2d
6517 B24E 2D 2D           --    blt 2d
6518 B250 2D 2D           --    blt 2d
6519 B252 2D 2D           --    blt 2d
6520 B254 2D 00           -.    blt 00
6521 B256 20 20                 bra 20
6522 B258 20 20                 bra 20
6523 B25A 20 20                 bra 20
6524 B25C 20 20                 bra 20
6525 B25E 35              5     txs
6526 B25F 39              9     rts
6527 B260 30              0     tsx
6528 B261 30              0     tsx
6529 B262 20 53            S    bra 53
6530 B264 4F              O     clra
6531 B265 46              F     rora
6532 B266 54              T     lsrb
6533 B267 57              W     asrb
6534 B268 41              A     illegal
6535 B269 52              R     illegal
6536 B26A 45              E     illegal
6537 B26B 20 56            V    bra 56
6538 B26D 45              E     illegal
6539 B26E 52              R     illegal
6540 B26F 2E 20           .     bgt 20
6541 B271 35              5     txs
6542 B272 20 20                 bra 20
6543 B274 00              .     test
6544 B275 20 20                 bra 20
6545 B277 20 20                 bra 20
6546 B279 20 20                 bra 20
6547 B27B 20 20                 bra 20
6548 B27D 20 20                 bra 20
6549 B27F 20 41            A    bra 41
6550 B281 43              C     coma
6551 B282 43              C     coma
6552 B283 4F              O     clra
6553 B284 55              U     illegal
6554 B285 4E              N     illegal
6555 B286 54              T     lsrb
6556 B287 20 20                 bra 20
6557 B289 52              R     illegal
6558 B28A 45              E     illegal
6559 B28B 43              C     coma
6560 B28C 4F              O     clra
6561 B28D 52              R     illegal
6562 B28E 44              D     lsra
6563 B28F 00              .     test
6564 B290 53              S     comb
6565 B291 45              E     illegal
6566 B292 52              R     illegal
6567 B293 49              I     rola
6568 B294 41              A     illegal
6569 B295 4C              L     inca
6570 B296 20 20                 bra 20
6571 B298 23 20           #     bls 20
6572 B29A 20 20                 bra 20
6573 B29C 20 20                 bra 20
6574 B29E 20 2D            -    bra 2d
6575 B2A0 20 00            .    bra 00
6576 B2A2 4D              M     tsta
6577 B2A3 41              A     illegal
6578 B2A4 43              C     coma
6579 B2A5 48              H     asla
6580 B2A6 49              I     rola
6581 B2A7 4E              N     illegal
6582 B2A8 45              E     illegal
6583 B2A9 20 49            I    bra 49
6584 B2AB 44              D     lsra
6585 B2AC 20 20                 bra 20
6586 B2AE 20 20                 bra 20
6587 B2B0 20 2D            -    bra 2d
6588 B2B2 20 00            .    bra 00
6589 B2B4 41              A     illegal
6590 B2B5 55              U     illegal
6591 B2B6 44              D     lsra
6592 B2B7 49              I     rola
6593 B2B8 54              T     lsrb
6594 B2B9 20 4E            N    bra 4e
6595 B2BB 55              U     illegal
6596 B2BC 4D              M     tsta
6597 B2BD 42              B     illegal
6598 B2BE 45              E     illegal
6599 B2BF 52              R     illegal
6600 B2C0 20 20                 bra 20
6601 B2C2 20 20                 bra 20
6602 B2C4 20 00            .    bra 00
6603 B2C6 53              S     comb
6604 B2C7 41              A     illegal
6605 B2C8 4C              L     inca
6606 B2C9 45              E     illegal
6607 B2CA 53              S     comb
6608 B2CB 20 20                 bra 20
6609 B2CD 28 52           (R    bvc 52
6610 B2CF 29 20           )     bvs 20
6611 B2D1 20 20                 bra 20
6612 B2D3 20 20                 bra 20
6613 B2D5 2D 20           -     blt 20
6614 B2D7 00              .     test
6615 B2D8 53              S     comb
6616 B2D9 41              A     illegal
6617 B2DA 4C              L     inca
6618 B2DB 45              E     illegal
6619 B2DC 53              S     comb
6620 B2DD 20 20                 bra 20
6621 B2DF 28 4E           (N    bvc 4e
6622 B2E1 29 20           )     bvs 20
6623 B2E3 20 20                 bra 20
6624 B2E5 20 20                 bra 20
6625 B2E7 2D 20           -     blt 20
6626 B2E9 00              .     test
6627 B2EA 42              B     illegal
6628 B2EB 41              A     illegal
6629 B2EC 47              G     asra
6630 B2ED 20 54            T    bra 54
6631 B2EF 4F              O     clra
6632 B2F0 54              T     lsrb
6633 B2F1 41              A     illegal
6634 B2F2 4C              L     inca
6635 B2F3 20 20                 bra 20
6636 B2F5 20 20                 bra 20
6637 B2F7 20 20                 bra 20
6638 B2F9 2D 20           -     blt 20
6639 B2FB 00              .     test
6640 B2FC 43              C     coma
6641 B2FD 41              A     illegal
6642 B2FE 53              S     comb
6643 B2FF 48              H     asla
6644 B300 20 42            B    bra 42
6645 B302 4F              O     clra
6646 B303 58              X     aslb
6647 B304 20 20                 bra 20
6648 B306 20 20                 bra 20
6649 B308 20 20                 bra 20
6650 B30A 20 2D            -    bra 2d
6651 B30C 20 00            .    bra 00
6652 B30E 43              C     coma
6653 B30F 41              A     illegal
6654 B310 52              R     illegal
6655 B311 44              D     lsra
6656 B312 20 53            S    bra 53
6657 B314 41              A     illegal
6658 B315 4C              L     inca
6659 B316 45              E     illegal
6660 B317 53              S     comb
6661 B318 20 20                 bra 20
6662 B31A 20 20                 bra 20
6663 B31C 20 2D            -    bra 2d
6664 B31E 20 00            .    bra 00
6665 B320 42              B     illegal
6666 B321 49              I     rola
6667 B322 4C              L     inca
6668 B323 4C              L     inca
6669 B324 53              S     comb
6670 B325 20 49            I    bra 49
6671 B327 4E              N     illegal
6672 B328 20 53            S    bra 53
6673 B32A 54              T     lsrb
6674 B32B 41              A     illegal
6675 B32C 43              C     coma
6676 B32D 4B              K     illegal
6677 B32E 45              E     illegal
6678 B32F 52              R     illegal
6679 B330 00              .     test
6680 B331 20 20                 bra 20
6681 B333 20 20                 bra 20
6682 B335 42              B     illegal
6683 B336 49              I     rola
6684 B337 4C              L     inca
6685 B338 4C              L     inca
6686 B339 20 54            T    bra 54
6687 B33B 4F              O     clra
6688 B33C 54              T     lsrb
6689 B33D 41              A     illegal
6690 B33E 4C              L     inca
6691 B33F 20 2D            -    bra 2d
6692 B341 20 20                 bra 20
6693 B343 20 20                 bra 20
6694 B345 20 20                 bra 20
6695 B347 20 20                 bra 20
6696 B349 00              .     test
6697 B34A 20 20                 bra 20
6698 B34C 20 20                 bra 20
6699 B34E 4F              O     clra
6700 B34F 4E              N     illegal
6701 B350 45              E     illegal
6702 B351 53              S     comb
6703 B352 20 20                 bra 20
6704 B354 20 20                 bra 20
6705 B356 20 20                 bra 20
6706 B358 20 2D            -    bra 2d
6707 B35A 20 00            .    bra 00
6708 B35C 20 20                 bra 20
6709 B35E 20 20                 bra 20
6710 B360 54              T     lsrb
6711 B361 57              W     asrb
6712 B362 4F              O     clra
6713 B363 53              S     comb
6714 B364 20 20                 bra 20
6715 B366 20 20                 bra 20
6716 B368 20 20                 bra 20
6717 B36A 20 2D            -    bra 2d
6718 B36C 20 00            .    bra 00
6719 B36E 20 20                 bra 20
6720 B370 20 20                 bra 20
6721 B372 46              F     rora
6722 B373 49              I     rola
6723 B374 56              V     rorb
6724 B375 45              E     illegal
6725 B376 53              S     comb
6726 B377 20 20                 bra 20
6727 B379 20 20                 bra 20
6728 B37B 20 20                 bra 20
6729 B37D 2D 20           -     blt 20
6730 B37F 00              .     test
6731 B380 20 20                 bra 20
6732 B382 20 20                 bra 20
6733 B384 54              T     lsrb
6734 B385 45              E     illegal
6735 B386 4E              N     illegal
6736 B387 53              S     comb
6737 B388 20 20                 bra 20
6738 B38A 20 20                 bra 20
6739 B38C 20 20                 bra 20
6740 B38E 20 2D            -    bra 2d
6741 B390 20 00            .    bra 00
6742 B392 20 20                 bra 20
6743 B394 20 20                 bra 20
6744 B396 54              T     lsrb
6745 B397 57              W     asrb
6746 B398 45              E     illegal
6747 B399 4E              N     illegal
6748 B39A 54              T     lsrb
6749 B39B 49              I     rola
6750 B39C 45              E     illegal
6751 B39D 53              S     comb
6752 B39E 20 20                 bra 20
6753 B3A0 20 2D            -    bra 2d
6754 B3A2 20 00            .    bra 00
6755 B3A4 43              C     coma
6756 B3A5 4F              O     clra
6757 B3A6 49              I     rola
6758 B3A7 4E              N     illegal
6759 B3A8 53              S     comb
6760 B3A9 20 49            I    bra 49
6761 B3AB 4E              N     illegal
6762 B3AC 20 54            T    bra 54
6763 B3AE 55              U     illegal
6764 B3AF 42              B     illegal
6765 B3B0 45              E     illegal
6766 B3B1 53              S     comb
6767 B3B2 00              .     test
6768 B3B3 20 20                 bra 20
6769 B3B5 20 20                 bra 20
6770 B3B7 54              T     lsrb
6771 B3B8 55              U     illegal
6772 B3B9 42              B     illegal
6773 B3BA 45              E     illegal
6774 B3BB 20 54            T    bra 54
6775 B3BD 4F              O     clra
6776 B3BE 54              T     lsrb
6777 B3BF 41              A     illegal
6778 B3C0 4C              L     inca
6779 B3C1 20 2D            -    bra 2d
6780 B3C3 20 20                 bra 20
6781 B3C5 20 20                 bra 20
6782 B3C7 20 20                 bra 20
6783 B3C9 00              .     test
6784 B3CA 20 20                 bra 20
6785 B3CC 20 20                 bra 20
6786 B3CE 24 31           $1    bcc 31
6787 B3D0 20 43            C    bra 43
6788 B3D2 4F              O     clra
6789 B3D3 49              I     rola
6790 B3D4 4E              N     illegal
6791 B3D5 20 20                 bra 20
6792 B3D7 20 20                 bra 20
6793 B3D9 2D 20           -     blt 20
6794 B3DB 00              .     test
6795 B3DC 20 20                 bra 20
6796 B3DE 20 20                 bra 20
6797 B3E0 51              Q     illegal
6798 B3E1 55              U     illegal
6799 B3E2 41              A     illegal
6800 B3E3 52              R     illegal
6801 B3E4 54              T     lsrb
6802 B3E5 45              E     illegal
6803 B3E6 52              R     illegal
6804 B3E7 53              S     comb
6805 B3E8 20 20                 bra 20
6806 B3EA 20 2D            -    bra 2d
6807 B3EC 20 00            .    bra 00
6808 B3EE 20 20                 bra 20
6809 B3F0 20 20                 bra 20
6810 B3F2 44              D     lsra
6811 B3F3 49              I     rola
6812 B3F4 4D              M     tsta
6813 B3F5 45              E     illegal
6814 B3F6 53              S     comb
6815 B3F7 20 20                 bra 20
6816 B3F9 20 20                 bra 20
6817 B3FB 20 20                 bra 20
6818 B3FD 2D 20           -     blt 20
6819 B3FF 00              .     test
6820 B400 20 20                 bra 20
6821 B402 20 20                 bra 20
6822 B404 4E              N     illegal
6823 B405 49              I     rola
6824 B406 43              C     coma
6825 B407 4B              K     illegal
6826 B408 45              E     illegal
6827 B409 4C              L     inca
6828 B40A 53              S     comb
6829 B40B 20 20                 bra 20
6830 B40D 20 20                 bra 20
6831 B40F 2D 20           -     blt 20
6832 B411 00              .     test
6833 B412 57              W     asrb
6834 B413 49              I     rola
6835 B414 4E              N     illegal
6836 B415 2D 53           -S    blt 53
6837 B417 4E              N     illegal
6838 B418 4B              K     illegal
6839 B419 20 56            V    bra 56
6840 B41B 45              E     illegal
6841 B41C 4E              N     illegal
6842 B41D 44              D     lsra
6843 B41E 53              S     comb
6844 B41F 20 20                 bra 20
6845 B421 2D 20           -     blt 20
6846 B423 00              .     test
6847 B424 53              S     comb
6848 B425 48              H     asla
6849 B426 4F              O     clra
6850 B427 50              P     negb
6851 B428 50              P     negb
6852 B429 45              E     illegal
6853 B42A 52              R     illegal
6854 B42B 20 56            V    bra 56
6855 B42D 45              E     illegal
6856 B42E 4E              N     illegal
6857 B42F 44              D     lsra
6858 B430 53              S     comb
6859 B431 20 20                 bra 20
6860 B433 2D 20           -     blt 20
6861 B435 00              .     test
6862 B436 50              P     negb
6863 B437 52              R     illegal
6864 B438 4F              O     clra
6865 B439 4D              M     tsta
6866 B43A 4F              O     clra
6867 B43B 20 56            V    bra 56
6868 B43D 45              E     illegal
6869 B43E 4E              N     illegal
6870 B43F 44              D     lsra
6871 B440 53              S     comb
6872 B441 20 20                 bra 20
6873 B443 20 20                 bra 20
6874 B445 2D 20           -     blt 20
6875 B447 00              .     test
6876 B448 46              F     rora
6877 B449 52              R     illegal
6878 B44A 45              E     illegal
6879 B44B 45              E     illegal
6880 B44C 20 20                 bra 20
6881 B44E 56              V     rorb
6882 B44F 45              E     illegal
6883 B450 4E              N     illegal
6884 B451 44              D     lsra
6885 B452 53              S     comb
6886 B453 20 20                 bra 20
6887 B455 20 20                 bra 20
6888 B457 2D 20           -     blt 20
6889 B459 00              .     test
6890 B45A 56              V     rorb
6891 B45B 45              E     illegal
6892 B45C 4E              N     illegal
6893 B45D 44              D     lsra
6894 B45E 53              S     comb
6895 B45F 20 50            P    bra 50
6896 B461 45              E     illegal
6897 B462 52              R     illegal
6898 B463 20 50            P    bra 50
6899 B465 52              R     illegal
6900 B466 4F              O     clra
6901 B467 44              D     lsra
6902 B468 55              U     illegal
6903 B469 43              C     coma
6904 B46A 54              T     lsrb
6905 B46B 20 43            C    bra 43
6906 B46D 4F              O     clra
6907 B46E 44              D     lsra
6908 B46F 45              E     illegal
6909 B470 00              .     test
6910
6911 B471 20 20                 bra 20
6912 B473 20 20                 bra 20
6913 B475 43              C     coma
6914 B476 4F              O     clra
6915 B477 44              D     lsra
6916 B478 45              E     illegal
6917 B479 20 00            .    bra 00
6918 B47B 56              V     rorb
6919 B47C 45              E     illegal
6920 B47D 4E              N     illegal
6921 B47E 44              D     lsra
6922 B47F 53              S     comb
6923 B480 20 2D            -    bra 2d
6924 B482 20 00            .    bra 00
6925 B484 56              V     rorb
6926 B485 45              E     illegal
6927 B486 4E              N     illegal
6928 B487 44              D     lsra
6929 B488 53              S     comb
6930 B489 2F 43           /C    ble 43
6931 B48B 4F              O     clra
6932 B48C 44              D     lsra
6933 B48D 45              E     illegal
6934 B48E 00              .     test
6935 B48F 41              A     illegal
6936 B490 42              B     illegal
6937 B491 43              C     coma
6938 B492 44              D     lsra
6939 B493 45              E     illegal
6940 B494 46              F     rora
6941 B495 47              G     asra
6942 B496 48              H     asla
6943 B497 49              I     rola
6944 B498 4A              J     deca
6945 B499 4B              K     illegal
6946 B49A 4C              L     inca
6947 B49B 4D              M     tsta
6948 B49C 4E              N     illegal
6949 B49D 4F              O     clra
6950 B49E 50              P     negb
6951 B49F 51              Q     illegal
6952 B4A0 52              R     illegal
6953 B4A1 53              S     comb
6954 B4A2 54              T     lsrb
6955 B4A3 55              U     illegal
6956 B4A4 56              V     rorb
6957 B4A5 57              W     asrb
6958 B4A6 58              X     aslb
6959 B4A7 59              Y     rolb
6960 B4A8 5A              Z     decb
6961 B4A9 30              0     tsx
6962 B4AA 31              1     ins
6963 B4AB 32              2     pula
6964 B4AC 33              3     pulb
6965 B4AD 34              4     des
6966 B4AE 35              5     txs
6967 B4AF 36              6     psha
6968 B4B0 37              7     pshb
6969 B4B1 38              8     pulx
6970 B4B2 39              9     rts
6971 B4B3 24 2A           $*    bcc 2a
6972 B4B5 20 00            .    bra 00
6973 B4B7 01              .     nop
6974 B4B8 02              .     idiv
6975 B4B9 04              .     lsrd
6976 B4BA 08              .     inx
6977 B4BB 10              .     sba
6978 B4BC 20 40            @    bra 40
6979 B4BE 80 FF           ..    suba #ff
6980 B4C0 FF FF FF        ...   stx ffff
6981 B4C3 FF FF FF        ...   stx ffff
6982 B4C6 FF FF FF        ...   stx ffff
6983 B4C9 FF FF FF        ...   stx ffff
6984 B4CC FF FF FF        ...   stx ffff
6985 B4CF FF FF FF        ...   stx ffff
6986 B4D2 FF FF FF        ...   stx ffff
6987 B4D5 FF FF FF        ...   stx ffff
6988 B4D8 FF FF FF        ...   stx ffff
6989 B4DB FF FF FF        ...   stx ffff
6990 B4DE FF FF FF        ...   stx ffff
6991 B4E1 FF FF FF        ...   stx ffff
6992 B4E4 FF FF FF        ...   stx ffff
6993 B4E7 FF FF FF        ...   stx ffff
6994 B4EA FF FF FF        ...   stx ffff
6995 B4ED FF FF FF        ...   stx ffff
6996 B4F0 FF FF FF        ...   stx ffff
6997 B4F3 FF FF FF        ...   stx ffff
6998 B4F6 FF FF FF        ...   stx ffff
6999 B4F9 FF FF FF        ...   stx ffff
7000 B4FC FF FF FF        ...   stx ffff
7001 B4FF FF FF FF        ...   stx ffff
7002 B502 FF FF FF        ...   stx ffff
7003 B505 FF FF FF        ...   stx ffff
7004 B508 FF FF FF        ...   stx ffff
7005 B50B FF FF FF        ...   stx ffff
7006 B50E FF FF FF        ...   stx ffff
7007 B511 FF FF FF        ...   stx ffff
7008 B514 FF FF FF        ...   stx ffff
7009 B517 FF FF FF        ...   stx ffff
7010 B51A FF FF FF        ...   stx ffff
7011 B51D FF FF FF        ...   stx ffff
7012 B520 FF FF FF        ...   stx ffff
7013 B523 FF FF FF        ...   stx ffff
7014 B526 FF FF FF        ...   stx ffff
7015 B529 FF FF FF        ...   stx ffff
7016 B52C FF FF FF        ...   stx ffff
7017 B52F FF FF FF        ...   stx ffff
7018 B532 FF FF FF        ...   stx ffff
7019 B535 FF FF FF        ...   stx ffff
7020 B538 FF FF FF        ...   stx ffff
7021 B53B FF FF FF        ...   stx ffff
7022 B53E FF FF FF        ...   stx ffff
7023 B541 FF FF FF        ...   stx ffff
7024 B544 FF FF FF        ...   stx ffff
7025 B547 FF FF FF        ...   stx ffff
7026 B54A FF FF FF        ...   stx ffff
7027 B54D FF FF FF        ...   stx ffff
7028 B550 FF FF FF        ...   stx ffff
7029 B553 FF FF FF        ...   stx ffff
7030 B556 FF FF FF        ...   stx ffff
7031 B559 FF FF FF        ...   stx ffff
7032 B55C FF FF FF        ...   stx ffff
7033 B55F FF FF FF        ...   stx ffff
7034 B562 FF FF FF        ...   stx ffff
7035 B565 FF FF FF        ...   stx ffff
7036 B568 FF FF FF        ...   stx ffff
7037 B56B FF FF FF        ...   stx ffff
7038 B56E FF FF FF        ...   stx ffff
7039 B571 FF FF FF        ...   stx ffff
7040 B574 FF FF FF        ...   stx ffff
7041 B577 FF FF FF        ...   stx ffff
7042 B57A FF FF FF        ...   stx ffff
7043 B57D FF FF FF        ...   stx ffff
7044 B580 FF FF FF        ...   stx ffff
7045 B583 FF FF FF        ...   stx ffff
7046 B586 FF FF FF        ...   stx ffff
7047 B589 FF FF FF        ...   stx ffff
7048 B58C FF FF FF        ...   stx ffff
7049 B58F FF FF FF        ...   stx ffff
7050 B592 FF FF FF        ...   stx ffff
7051 B595 FF FF FF        ...   stx ffff
7052 B598 FF FF FF        ...   stx ffff
7053 B59B FF FF FF        ...   stx ffff
7054 B59E FF FF FF        ...   stx ffff
7055 B5A1 FF FF FF        ...   stx ffff
7056 B5A4 FF FF FF        ...   stx ffff
7057 B5A7 FF FF FF        ...   stx ffff
7058 B5AA FF FF FF        ...   stx ffff
7059 B5AD FF FF FF        ...   stx ffff
7060 B5B0 FF FF FF        ...   stx ffff
7061 B5B3 FF FF FF        ...   stx ffff
7062 B5B6 FF FF FF        ...   stx ffff
7063 B5B9 FF FF FF        ...   stx ffff
7064 B5BC FF FF FF        ...   stx ffff
7065 B5BF FF FF FF        ...   stx ffff
7066 B5C2 FF FF FF        ...   stx ffff
7067 B5C5 FF FF FF        ...   stx ffff
7068 B5C8 FF FF FF        ...   stx ffff
7069 B5CB FF FF FF        ...   stx ffff
7070 B5CE FF FF FF        ...   stx ffff
7071 B5D1 FF FF FF        ...   stx ffff
7072 B5D4 FF FF FF        ...   stx ffff
7073 B5D7 FF FF FF        ...   stx ffff
7074 B5DA FF FF FF        ...   stx ffff
7075 B5DD FF FF FF        ...   stx ffff
7076 B5E0 FF FF FF        ...   stx ffff
7077 B5E3 FF FF FF        ...   stx ffff
7078 B5E6 FF FF FF        ...   stx ffff
7079 B5E9 FF FF FF        ...   stx ffff
7080 B5EC FF FF FF        ...   stx ffff
7081 B5EF FF FF FF        ...   stx ffff
7082 B5F2 FF FF FF        ...   stx ffff
7083 B5F5 FF FF FF        ...   stx ffff
7084 B5F8 FF FF FF        ...   stx ffff
7085 B5FB FF FF FF        ...   stx ffff
7086 B5FE FF FF FF        ...   stx ffff
7087 B601 FF FF FF        ...   stx ffff
7088 B604 FF FF FF        ...   stx ffff
7089 B607 FF FF FF        ...   stx ffff
7090 B60A FF FF FF        ...   stx ffff
7091 B60D FF FF FF        ...   stx ffff
7092 B610 FF FF FF        ...   stx ffff
7093 B613 FF FF FF        ...   stx ffff
7094 B616 FF FF FF        ...   stx ffff
7095 B619 FF FF FF        ...   stx ffff
7096 B61C FF FF FF        ...   stx ffff
7097 B61F FF FF FF        ...   stx ffff
7098 B622 FF FF FF        ...   stx ffff
7099 B625 FF FF FF        ...   stx ffff
7100 B628 FF FF FF        ...   stx ffff
7101 B62B FF FF FF        ...   stx ffff
7102 B62E FF FF FF        ...   stx ffff
7103 B631 FF FF FF        ...   stx ffff
7104 B634 FF FF FF        ...   stx ffff
7105 B637 FF FF FF        ...   stx ffff
7106 B63A FF FF FF        ...   stx ffff
7107 B63D FF FF FF        ...   stx ffff
7108 B640 FF FF FF        ...   stx ffff
7109 B643 FF FF FF        ...   stx ffff
7110 B646 FF FF FF        ...   stx ffff
7111 B649 FF FF FF        ...   stx ffff
7112 B64C FF FF FF        ...   stx ffff
7113 B64F FF FF FF        ...   stx ffff
7114 B652 FF FF FF        ...   stx ffff
7115 B655 FF FF FF        ...   stx ffff
7116 B658 FF FF FF        ...   stx ffff
7117 B65B FF FF FF        ...   stx ffff
7118 B65E FF FF FF        ...   stx ffff
7119 B661 FF FF FF        ...   stx ffff
7120 B664 FF FF FF        ...   stx ffff
7121 B667 FF FF FF        ...   stx ffff
7122 B66A FF FF FF        ...   stx ffff
7123 B66D FF FF FF        ...   stx ffff
7124 B670 FF FF FF        ...   stx ffff
7125 B673 FF FF FF        ...   stx ffff
7126 B676 FF FF FF        ...   stx ffff
7127 B679 FF FF FF        ...   stx ffff
7128 B67C FF FF FF        ...   stx ffff
7129 B67F FF FF FF        ...   stx ffff
7130 B682 FF FF FF        ...   stx ffff
7131 B685 FF FF FF        ...   stx ffff
7132 B688 FF FF FF        ...   stx ffff
7133 B68B FF FF FF        ...   stx ffff
7134 B68E FF FF FF        ...   stx ffff
7135 B691 FF FF FF        ...   stx ffff
7136 B694 FF FF FF        ...   stx ffff
7137 B697 FF FF FF        ...   stx ffff
7138 B69A FF FF FF        ...   stx ffff
7139 B69D FF FF FF        ...   stx ffff
7140 B6A0 FF FF FF        ...   stx ffff
7141 B6A3 FF FF FF        ...   stx ffff
7142 B6A6 FF FF FF        ...   stx ffff
7143 B6A9 FF FF FF        ...   stx ffff
7144 B6AC FF FF FF        ...   stx ffff
7145 B6AF FF FF FF        ...   stx ffff
7146 B6B2 FF FF FF        ...   stx ffff
7147 B6B5 FF FF FF        ...   stx ffff
7148 B6B8 FF FF FF        ...   stx ffff
7149 B6BB FF FF FF        ...   stx ffff
7150 B6BE FF FF FF        ...   stx ffff
7151 B6C1 FF FF FF        ...   stx ffff
7152 B6C4 FF FF FF        ...   stx ffff
7153 B6C7 FF FF FF        ...   stx ffff
7154 B6CA FF FF FF        ...   stx ffff
7155 B6CD FF FF FF        ...   stx ffff
7156 B6D0 FF FF FF        ...   stx ffff
7157 B6D3 FF FF FF        ...   stx ffff
7158 B6D6 FF FF FF        ...   stx ffff
7159 B6D9 FF FF FF        ...   stx ffff
7160 B6DC FF FF FF        ...   stx ffff
7161 B6DF FF FF FF        ...   stx ffff
7162 B6E2 FF FF FF        ...   stx ffff
7163 B6E5 FF FF FF        ...   stx ffff
7164 B6E8 FF FF FF        ...   stx ffff
7165 B6EB FF FF FF        ...   stx ffff
7166 B6EE FF FF FF        ...   stx ffff
7167 B6F1 FF FF FF        ...   stx ffff
7168 B6F4 FF FF FF        ...   stx ffff
7169 B6F7 FF FF FF        ...   stx ffff
7170 B6FA FF FF FF        ...   stx ffff
7171 B6FD FF FF FF        ...   stx ffff
7172 B700 FF FF FF        ...   stx ffff
7173 B703 FF FF FF        ...   stx ffff
7174 B706 FF FF FF        ...   stx ffff
7175 B709 FF FF FF        ...   stx ffff
7176 B70C FF FF FF        ...   stx ffff
7177 B70F FF FF FF        ...   stx ffff
7178 B712 FF FF FF        ...   stx ffff
7179 B715 FF FF FF        ...   stx ffff
7180 B718 FF FF FF        ...   stx ffff
7181 B71B FF FF FF        ...   stx ffff
7182 B71E FF FF FF        ...   stx ffff
7183 B721 FF FF FF        ...   stx ffff
7184 B724 FF FF FF        ...   stx ffff
7185 B727 FF FF FF        ...   stx ffff
7186 B72A FF FF FF        ...   stx ffff
7187 B72D FF FF FF        ...   stx ffff
7188 B730 FF FF FF        ...   stx ffff
7189 B733 FF FF FF        ...   stx ffff
7190 B736 FF FF FF        ...   stx ffff
7191 B739 FF FF FF        ...   stx ffff
7192 B73C FF FF FF        ...   stx ffff
7193 B73F FF FF FF        ...   stx ffff
7194 B742 FF FF FF        ...   stx ffff
7195 B745 FF FF FF        ...   stx ffff
7196 B748 FF FF FF        ...   stx ffff
7197 B74B FF FF FF        ...   stx ffff
7198 B74E FF FF FF        ...   stx ffff
7199 B751 FF FF FF        ...   stx ffff
7200 B754 FF FF FF        ...   stx ffff
7201 B757 FF FF FF        ...   stx ffff
7202 B75A FF FF FF        ...   stx ffff
7203 B75D FF FF FF        ...   stx ffff
7204 B760 FF FF FF        ...   stx ffff
7205 B763 FF FF FF        ...   stx ffff
7206 B766 FF FF FF        ...   stx ffff
7207 B769 FF FF FF        ...   stx ffff
7208 B76C FF FF FF        ...   stx ffff
7209 B76F FF FF FF        ...   stx ffff
7210 B772 FF FF FF        ...   stx ffff
7211 B775 FF FF FF        ...   stx ffff
7212 B778 FF FF FF        ...   stx ffff
7213 B77B FF FF FF        ...   stx ffff
7214 B77E FF FF FF        ...   stx ffff
7215 B781 FF FF FF        ...   stx ffff
7216 B784 FF FF FF        ...   stx ffff
7217 B787 FF FF FF        ...   stx ffff
7218 B78A FF FF FF        ...   stx ffff
7219 B78D FF FF FF        ...   stx ffff
7220 B790 FF FF FF        ...   stx ffff
7221 B793 FF FF FF        ...   stx ffff
7222 B796 FF FF FF        ...   stx ffff
7223 B799 FF FF FF        ...   stx ffff
7224 B79C FF FF FF        ...   stx ffff
7225 B79F FF FF FF        ...   stx ffff
7226 B7A2 FF FF FF        ...   stx ffff
7227 B7A5 FF FF FF        ...   stx ffff
7228 B7A8 FF FF FF        ...   stx ffff
7229 B7AB FF FF FF        ...   stx ffff
7230 B7AE FF FF FF        ...   stx ffff
7231 B7B1 FF FF FF        ...   stx ffff
7232 B7B4 FF FF FF        ...   stx ffff
7233 B7B7 FF FF FF        ...   stx ffff
7234 B7BA FF FF FF        ...   stx ffff
7235 B7BD FF FF FF        ...   stx ffff
7236 B7C0 FF FF FF        ...   stx ffff
7237 B7C3 FF FF FF        ...   stx ffff
7238 B7C6 FF FF FF        ...   stx ffff
7239 B7C9 FF FF FF        ...   stx ffff
7240 B7CC FF FF FF        ...   stx ffff
7241 B7CF FF FF FF        ...   stx ffff
7242 B7D2 FF FF FF        ...   stx ffff
7243 B7D5 FF FF FF        ...   stx ffff
7244 B7D8 FF FF FF        ...   stx ffff
7245 B7DB FF FF FF        ...   stx ffff
7246 B7DE FF FF FF        ...   stx ffff
7247 B7E1 FF FF FF        ...   stx ffff
7248 B7E4 FF FF FF        ...   stx ffff
7249 B7E7 FF FF FF        ...   stx ffff
7250 B7EA FF FF FF        ...   stx ffff
7251 B7ED FF FF FF        ...   stx ffff
7252 B7F0 FF FF FF        ...   stx ffff
7253 B7F3 FF FF FF        ...   stx ffff
7254 B7F6 FF FF FF        ...   stx ffff
7255 B7F9 FF FF FF        ...   stx ffff
7256 B7FC FF FF FF        ...   stx ffff
7257 B7FF FF              .
7258
7259 jump201:
7260 B800 34              .     des
7261 B801 F6 0E 6D        ...   ldab 0e6d
7262 B804 C1 01           ..    cmpb #01
7263 B806 27 03           '.    beq 03
7264 B808 7E B9 2A        ~.*   jmp b92a             ;goto25
7265 B80B F6 0E 02        ...   ldab 0e02
7266 B80E C1 05           ..    cmpb #05     ; was the 3rd last keypress a 5?
7267 B810 27 03           '.    beq 03
7268 B812 7E B9 2A        ~.*   jmp b92a             ;goto25
7269 B815 F6 0E 03        ...   ldab 0e03
7270 B818 C1 05           ..    cmpb #05     ; was the 2nd last keypress a 5?
7271 B81A 27 03           '.    beq 03
7272 B81C 7E B9 2A        ~.*   jmp b92a             ;goto25
7273 B81F F6 0E 04        ...   ldab 0e04
7274 B822 C1 05           ..    cmpb #05     ; was the last keypress a 5?
7275 B824 27 03           '.    beq 03
7276 B826 7E B9 2A        ~.*   jmp b92a             ;goto25
7277 B829 F6 00 12        ...   ldab 0012
7278 B82C C4 20           .     andb #20     ; test the door switch
7279 B82E 27 03           '.    beq 03
7280 B830 7E B9 2A        ~.*   jmp b92a             ;goto25
7281 B833 30              0     tsx
7282 B834 6F 00           o.    clr 00,x
7283 B836 F6 0E 6A        ..j   ldab 0e6a
7284 B839 C1 00           ..    cmpb #00
7285 B83B 22 33           "3    bhi 33
7286 B83D C6 64           .d    ldab #64
7287 B83F F7 0E 6A        ..j   stab 0e6a
7288 B842 7C 0E 05        |..   inc 0e05
7289 B845 F6 0E 05        ...   ldab 0e05
7290 B848 C1 64           .d    cmpb #64
7291 B84A 23 03           #.    bls 03
7292 B84C 7F 0E 05        ...   clr 0e05
7293 B84F F6 0E 05        ...   ldab 0e05
7294 B852 BD D4 68        ..h   jsr d468             ;jump51
7295 B855 83 00 00        ...   subd #0000
7296 B858 27 0B           '.    beq 0b
7297 B85A F6 0E 05        ...   ldab 0e05
7298 B85D BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
7299 B860 83 00 00        ...   subd #0000
7300 B863 27 09           '.    beq 09
7301 B865 30              0     tsx
7302 B866 6C 00           l.    inc 00,x
7303 B868 E6 00           ..    ldab 00,x
7304 B86A C1 6E           .n    cmpb #6e     ; 110 or 01101110
7305 B86C 2D D4           -.    blt d4
7306 B86E 20 0A            .    bra 0a
7307 B870 F6 0E 6A        ..j   ldab 0e6a
7308 B873 C1 00           ..    cmpb #00
7309 B875 23 03           #.    bls 03
7310 B877 7A 0E 6A        z.j   dec 0e6a
7311 B87A F6 0E 05        ...   ldab 0e05
7312 B87D BD D4 68        ..h   jsr d468             ;jump51
7313 B880 83 00 00        ...   subd #0000
7314 B883 26 03           &.    bne 03
7315 B885 7E B9 0A        ~..   jmp b90a             ;goto26
7316 B888 F6 0E 05        ...   ldab 0e05
7317 B88B BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
7318 B88E 83 00 00        ...   subd #0000
7319 B891 26 77           &w    bne 77
7320 B893 BD BE 4B        ..K   jsr be4b             ;displayblank
7321 B896 C6 20           .     ldab #20    ; " "
7322 B898 F7 0B 9A        ...   stab 0b9a
7323 B89B C6 20           .     ldab #20    ; " "
7324 B89D F7 0B 99        ...   stab 0b99
7325 B8A0 C6 20           .     ldab #20    ; " "
7326 B8A2 F7 0B 98        ...   stab 0b98
7327 B8A5 F6 0E 05        ...   ldab 0e05   ; array index/10
7328 B8A8 4F              O     clra
7329 B8A9 CE 00 0A        ...   ldx #000a
7330 B8AC 02              .     idiv
7331 B8AD 8F              .     xgdx
7332 B8AE CB 30           .0    addb #30    ; make it a digit
7333 B8B0 F7 0B 97        ...   stab 0b97
7334 B8B3 F6 0E 05        ...   ldab 0e05   ; array index%10
7335 B8B6 4F              O     clra
7336 B8B7 CE 00 0A        ...   ldx #000a
7337 B8BA 02              .     idiv
7338 B8BB CB 30           .0    addb #30     ; make it a digit
7339 B8BD F7 0B 96        ...   stab 0b96
7340 B8C0 C6 20           .     ldab #20     ; " "
7341 B8C2 F7 0B 95        ...   stab 0b95
7342 B8C5 C6 20           .     ldab #20     ; " "
7343 B8C7 F7 0B 94        ...   stab 0b94
7344 B8CA F6 0E 05        ...   ldab 0e05    ; array[index]/10
7345 B8CD 4F              O     clra
7346 B8CE C3 0E 06        ...   addd #0e06
7347 B8D1 8F              .     xgdx
7348 B8D2 E6 00           ..    ldab 00,x
7349 B8D4 4F              O     clra
7350 B8D5 CE 00 0A        ...   ldx #000a
7351 B8D8 02              .     idiv
7352 B8D9 8F              .     xgdx
7353 B8DA CB 30           .0    addb #30     ; make it a digit
7354 B8DC F7 0B 93        ...   stab 0b93
7355 B8DF F6 0E 05        ...   ldab 0e05    ; array[index]%10
7356 B8E2 4F              O     clra
7357 B8E3 C3 0E 06        ...   addd #0e06
7358 B8E6 8F              .     xgdx
7359 B8E7 E6 00           ..    ldab 00,x
7360 B8E9 4F              O     clra
7361 B8EA CE 00 0A        ...   ldx #000a
7362 B8ED 02              .     idiv
7363 B8EE CB 30           .0    addb #30     ; make it a digit
7364 B8F0 F7 0B 92        ...   stab 0b92
7365 B8F3 C6 20           .     ldab #20     ; " "
7366 B8F5 F7 0B 91        ...   stab 0b91
7367 B8F8 C6 20           .     ldab #20     ; " "
7368 B8FA F7 0B 90        ...   stab 0b90
7369 B8FD 7F 00 2C        ..,   clr 002c
7370 B900 BD BE 01        ...   jsr be01             ;jump70
7371 B903 C6 0A           ..    ldab #0a
7372 B905 F7 00 2C        ..,   stab 002c
7373 B908 20 1D            .    bra 1d
7374 goto26:
7375 B90A BD BE 4B        ..K   jsr be4b             ;displayblank
7376 B90D C6 57           .W    ldab #57     ; "W"
7377 B90F F7 0B 96        ...   stab 0b96
7378 B912 C6 42           .B    ldab #42     ; "B"
7379 B914 F7 0B 95        ...   stab 0b95
7380 B917 C6 42           .B    ldab #42     ; "B"
7381 B919 F7 0B 94        ...   stab 0b94
7382 B91C 7F 00 2C        ..,   clr 002c
7383 B91F BD BE 01        ...   jsr be01             ;jump70 write to display
7384 B922 C6 0A           ..    ldab #0a
7385 B924 F7 00 2C        ..,   stab 002c
7386 B927 7E BA 81        ~..   jmp ba81             ;goto27
7387 goto25:
7388 B92A F6 0E 6D        ..m   ldab 0e6d
7389 B92D C1 01           ..    cmpb #01
7390 B92F 27 03           '.    beq 03
7391 B931 7E BA 81        ~..   jmp ba81             ;goto27
7392 B934 F6 0E 00        ...   ldab 0e00
7393 B937 C1 05           ..    cmpb #05
7394 B939 27 03           '.    beq 03
7395 B93B 7E BA 81        ~..   jmp ba81             ;goto27
7396 B93E F6 0E 01        ...   ldab 0e01
7397 B941 C1 05           ..    cmpb #05
7398 B943 27 03           '.    beq 03
7399 B945 7E BA 81        ~..   jmp ba81             ;goto27
7400 B948 F6 0E 02        ...   ldab 0e02
7401 B94B C1 05           ..    cmpb #05
7402 B94D 27 03           '.    beq 03
7403 B94F 7E BA 81        ~..   jmp ba81             ;goto27
7404 B952 F6 00 12        ...   ldab 0012
7405 B955 C4 20           .     andb #20     ; test the door switch
7406 B957 26 03           &.    bne 03
7407 B959 7E BA 81        ~..   jmp ba81             ;goto27
7408 B95C F6 0E 04        ...   ldab 0e04
7409 B95F C1 05           ..    cmpb #05
7410 B961 26 79           &y    bne 79
7411 B963 F6 0E 03        ...   ldab 0e03
7412 B966 C1 05           ..    cmpb #05
7413 B968 26 72           &r    bne 72
7414 B96A 30              0     tsx
7415 B96B 6F 00           o.    clr 00,x
7416 B96D 30              0     tsx
7417 B96E E6 00           ..    ldab 00,x
7418 B970 C1 64           .d    cmpb #64
7419 B972 2C 16           ,.    bge 16
7420 B974 5F              _     clrb
7421 B975 37              7     pshb
7422 B976 30              0     tsx
7423 B977 E6 01           ..    ldab 01,x
7424 B979 4F              O     clra
7425 B97A 5D              ]     tstb
7426 B97B 2C 01           ,.    bge 01
7427 B97D 4A              J     deca
7428 B97E C3 0E 06        ...   addd #0e06
7429 B981 8F              .     xgdx
7430 B982 33              3     pulb
7431 B983 E7 00           ..    stab 00,x
7432 B985 30              0     tsx
7433 B986 6C 00           l.    inc 00,x
7434 B988 20 E3            .    bra e3
7435 B98A 7F 0D FF        ...   clr 0dff
7436 B98D 7F 0E 00        ...   clr 0e00
7437 B990 7F 0E 01        ...   clr 0e01
7438 B993 7F 0E 02        ...   clr 0e02
7439 B996 7F 0E 03        ...   clr 0e03
7440 B999 7F 0E 04        ...   clr 0e04
7441 B99C C6 41           .A    ldab #41   ; "A"
7442 B99E F7 0B 99        ...   stab 0b99
7443 B9A1 C6 4C           .L    ldab #4c   ; "L"
7444 B9A3 F7 0B 98        ...   stab 0b98
7445 B9A6 C6 4C           .L    ldab #4c   ; "L"
7446 B9A8 F7 0B 97        ...   stab 0b97
7447 B9AB C6 20           .     ldab #20   ; " "
7448 B9AD F7 0B 96        ...   stab 0b96
7449 B9B0 C6 43           .C    ldab #43   ; "C"
7450 B9B2 F7 0B 95        ...   stab 0b95
7451 B9B5 C6 4C           .L    ldab #4c   ; "L"
7452 B9B7 F7 0B 94        ...   stab 0b94
7453 B9BA C6 45           .E    ldab #45   ; "E"
7454 B9BC F7 0B 93        ...   stab 0b93
7455 B9BF C6 41           .A    ldab #41   ; "A"
7456 B9C1 F7 0B 92        ...   stab 0b92
7457 B9C4 C6 52           .R    ldab #52   ; "R"
7458 B9C6 F7 0B 91        ...   stab 0b91
7459 B9C9 C6 20           .     ldab #20   ; " "
7460 B9CB F7 0B 90        ...   stab 0b90
7461 B9CE 7F 00 2C        ..,   clr 002c
7462 B9D1 BD BE 01        ...   jsr be01             ;jump70 - display
7463 B9D4 C6 1E           ..    ldab #1e
7464 B9D6 F7 00 2C        ..,   stab 002c
7465 B9D9 7E BA 81        ~..   jmp ba81             ;goto27
7466 B9DC F6 0E 04        ...   ldab 0e04
7467 B9DF C1 01           ..    cmpb #01
7468 B9E1 27 0A           '.    beq 0a
7469 B9E3 F6 0E 04        ...   ldab 0e04
7470 B9E6 C1 02           ..    cmpb #02
7471 B9E8 27 03           '.    beq 03
7472 B9EA 7E BA 81        ~..   jmp ba81             ;goto27
7473 B9ED F6 0E 03        ...   ldab 0e03
7474 B9F0 C1 00           ..    cmpb #00
7475 B9F2 22 03           ".    bhi 03
7476 B9F4 7E BA 81        ~..   jmp ba81             ;goto27
7477 B9F7 F6 0E 03        ...   ldab 0e03
7478 B9FA C1 05           ..    cmpb #05
7479 B9FC 26 03           &.    bne 03
7480 B9FE 7E BA 81        ~..   jmp ba81             ;goto27
7481 BA01 F6 0E 03        ...   ldab 0e03
7482 BA04 C1 07           ..    cmpb #07
7483 BA06 24 79           $y    bcc 79
7484 BA08 F6 0E 03        ...   ldab 0e03  ; prevkey*10+key
7485 BA0B 86 0A           ..    ldaa #0a
7486 BA0D 3D              =     mul
7487 BA0E FB 0E 04        ...   addb 0e04
7488 BA11 30              0     tsx
7489 BA12 E7 00           ..    stab 00,x
7490 BA14 E6 00           ..    ldab 00,x
7491 BA16 C1 64           .d    cmpb #64
7492 BA18 2C 67           ,g    bge 67
7493 BA1A E6 00           ..    ldab 00,x
7494 BA1C 2D 63           -c    blt 63
7495 BA1E 5F              _     clrb
7496 BA1F 37              7     pshb
7497 BA20 30              0     tsx
7498 BA21 E6 01           ..    ldab 01,x
7499 BA23 4F              O     clra
7500 BA24 5D              ]     tstb
7501 BA25 2C 01           ,.    bge 01
7502 BA27 4A              J     deca
7503 BA28 C3 0E 06        ...   addd #0e06
7504 BA2B 8F              .     xgdx
7505 BA2C 33              3     pulb
7506 BA2D E7 00           ..    stab 00,x
7507 BA2F F6 0E 03        ...   ldab 0e03
7508 BA32 CB 30           .0    addb #30    ; +48 (make an ascii digit)
7509 BA34 F7 0B 99        ...   stab 0b99
7510 BA37 F6 0E 04        ...   ldab 0e04
7511 BA3A CB 30           .0    addb #30    ; +48 (make an ascii digit)
7512 BA3C F7 0B 98        ...   stab 0b98
7513 BA3F C6 20           .     ldab #20    ; " "
7514 BA41 F7 0B 97        ...   stab 0b97
7515 BA44 C6 43           .C    ldab #43    ; "C"
7516 BA46 F7 0B 96        ...   stab 0b96
7517 BA49 C6 4C           .L    ldab #4c    ; "L"
7518 BA4B F7 0B 95        ...   stab 0b95
7519 BA4E C6 45           .E    ldab #45    ; "E"
7520 BA50 F7 0B 94        ...   stab 0b94
7521 BA53 C6 41           .A    ldab #41    ; "A"
7522 BA55 F7 0B 93        ...   stab 0b93
7523 BA58 C6 52           .R    ldab #52    ; "R"
7524 BA5A F7 0B 92        ...   stab 0b92
7525 BA5D C6 45           .E    ldab #45    ; "E"
7526 BA5F F7 0B 91        ...   stab 0b91
7527 BA62 C6 44           .D    ldab #44    ; "D"
7528 BA64 F7 0B 90        ...   stab 0b90
7529 BA67 7F 0E 00        ...   clr 0e00
7530 BA6A 7F 0E 01        ...   clr 0e01
7531 BA6D 7F 0E 02        ...   clr 0e02
7532 BA70 7F 0E 03        ...   clr 0e03
7533 BA73 7F 0E 04        ...   clr 0e04
7534 BA76 7F 00 2C        ..,   clr 002c
7535 BA79 BD BE 01        ...   jsr be01             ;jump70 - display
7536 BA7C C6 1E           ..    ldab #1e
7537 BA7E F7 00 2C        ..,   stab 002c
7538 goto27:
7539 BA81 31              1     ins
7540 BA82 39              9     rts
7541
7542 jump125:
7543 ; reads the keypad state into 005b & 0056
7544 ; it looks like it returns without doing anything if the
7545 ; no sale switch is pressed, but I haven't looked closely
7546 BA83 F6 18 00        ...   ldab 1800
7547 BA86 C4 7F           ..    andb #7f
7548 BA88 F7 00 23        ..#   stab 0023
7549 BA8B F6 00 23        ..#   ldab 0023
7550 BA8E F1 00 12        ...   cmpb 0012   ; door buffers - debouncing it?
7551 BA91 27 06           '.    beq 06
7552 BA93 F6 00 23        ..#   ldab 0023
7553 BA96 F7 00 12        ...   stab 0012
7554 BA99 F6 20 00        . .   ldab 2000
7555 BA9C F1 00 20        ..    cmpb 0020
7556 BA9F 27 08           '.    beq 08
7557 BAA1 F6 20 00        . .   ldab 2000
7558 BAA4 F7 00 20        ..    stab 0020
7559 BAA7 20 0E            .    bra 0e
7560 BAA9 F6 00 20        ..    ldab 0020
7561 BAAC F7 00 11        ...   stab 0011
7562 BAAF F6 00 11        ...   ldab 0011
7563 BAB2 C4 03           ..    andb #03
7564 BAB4 F7 00 2B        ..+   stab 002b
7565 BAB7 F6 00 1B        ...   ldab 001b
7566 BABA C4 04           ..    andb #04
7567 BABC 37              7     pshb
7568 BABD F6 10 0A        ...   ldab 100a   ; PortE
7569 BAC0 C4 04           ..    andb #04    ; no sale switch (active low)
7570 BAC2 30              0     tsx
7571 BAC3 E0 00           ..    subb 00,x
7572 BAC5 31              1     ins
7573 BAC6 27 17           '.    beq 17
7574 BAC8 F6 10 0A        ...   ldab 100a   ; PortE
7575 BACB C4 04           ..    andb #04    : no sale switch (active low)
7576 BACD 27 08           '.    beq 08
7577 BACF CE 00 1B        ...   ldx #001b
7578 BAD2 1C 00 04        ..    bset 00,x, #04
7579 BAD5 20 06            .    bra 06
7580 BAD7 CE 00 1B        ...   ldx #001b
7581 BADA 1D 00 04        ..    bclr 00,x, #04
7582 BADD 20 15            .    bra 15
7583 BADF F6 10 0A        ...   ldab 100a   ; PortE
7584 BAE2 C4 04           ..    andb #04    ; no sale switch (active low)
7585 BAE4 27 08           '.    beq 08
7586 BAE6 CE 00 1D        ...   ldx #001d
7587 BAE9 1C 00 04        ..    bset 00,x, #04
7588 BAEC 20 06            .    bra 06
7589 BAEE CE 00 1D        ...   ldx #001d
7590 BAF1 1D 00 04        ..    bclr 00,x, #04
7591 BAF4 CE 10 08        ...   ldx #1008        : PortD
7592 BAF7 1D 00 20        ...   bclr 00,x, #20   ; select keypad row 0
7593 BAF9 CE 10 28        ...   ldx #1028
7594 BAFC 1C 00 40        ...   bset 00,x #40    ; enable SPI
7595
7596 BB00 CE 00 14        ...   ldx #0014        ; keypad strobe:
7597 BB03 1C 00 04        ..    bset 00,x, #04   ; resets the keypad
7598 BB06 F6 00 14        ...   ldab 0014        ; shift register
7599 BB09 F7 38 00        .8.   stab 3800        ; ready for a new
7600 BB0C CE 00 14        ...   ldx #0014        ; read
7601 BB0F 1D 00 04        ..    bclr 00,x, #04
7602 BB12 F6 00 14        ...   ldab 0014
7603 BB15 F7 38 00        .8.   stab 3800
7604
7605 BB18 CE 00 00        ...   ldx #0000
7606 BB1B 3C              <     pshx
7607 BB1C 5F              _     clrb
7608 BB1D 4F              O     clra
7609 BB1E BD BD B5        ...   jsr bdb5             ;jump78 - reads the keypad inputs into X
7610 BB21 38              8     pulx
7611 BB22 F7 00 5B        ..[   stab 005b
7612
7613 BB25 CE 10 28        ..(   ldx #1028
7614 BB28 1D 00 40        ..    bclr 00,x, #40  ; disable SPI
7615
7616 BB2B CE 10 08        ...   ldx #1008
7617 BB2E 1C 00 20        ..    bset 00,x, #20  ; select keypad row 1
7618
7619 BB30 CE 10 28        ...   ldx #1028
7620 BB33 1C 00 40        ...   bset 00,x, #40  ; enable the SPI
7621
7622 BB37 CE 00 14        ...   ldx #0014
7623 BB3A 1C 00 04        ..    bset 00,x, #04  ; keypad strobe
7624 BB3D F6 00 14        ...   ldab 0014
7625 BB40 F7 38 00        .8.   stab 3800
7626 BB43 CE 00 14        ...   ldx #0014
7627 BB46 1D 00 04        ..    bclr 00,x, #04
7628 BB49 F6 00 14        ...   ldab 0014
7629 BB4C F7 38 00        .8.   stab 3800
7630
7631 BB4F CE 00 00        ...   ldx #0000
7632 BB52 3C              <     pshx
7633 BB53 5F              _     clrb
7634 BB54 4F              O     clra
7635 BB55 BD BD B5        ...   jsr bdb5             ;jump78  - read the keypad
7636 BB58 38              8     pulx
7637 BB59 F7 00 56        ..V   stab 0056
7638 BB5C CE 10 28        ..(   ldx #1028
7639 BB5F 1D 00 40        ..    bclr 00,x, #40
7640 BB62 39              9     rts
7641
7642 jump200:
7643 BB63 F6 00 00        ...   ldab 0000
7644 BB66 27 03           '.    beq 03
7645 BB68 7E BD B4        ~..   jmp bdb4             ;goto28
7646 BB6B F6 00 2E        ...   ldab 002e
7647 BB6E 27 03           '.    beq 03
7648 BB70 7E BD B4        ~..   jmp bdb4             ;goto28
7649 BB73 BD BA 83        ...   jsr ba83             ;jump125 - read keypad
7650 ; has a key been pressed?
7651 BB76 F6 00 5B        ..[   ldab 005b
7652 BB79 F1 00 56        ..V   cmpb 0056
7653 BB7C 26 0B           &.    bne 0b       ; to bb89
7654 BB7E F6 00 56        ..V   ldab 0056
7655 BB81 27 06           '.    beq 06       ; to bb89
7656 BB83 7F 00 29        ..)   clr 0029     ; to key pressed
7657 BB86 7E BD AF        ~..   jmp bdaf             ;goto29 (bail)
7658 ; find keypad number
7659 BB89 F6 00 5B        ..[   ldab 005b    ; is row0 = 0
7660 BB8C 27 34           '4    beq 34       ; if so, to bbc2
7661 BB8E F6 00 5B        ..[   ldab 005b
7662 BB91 F7 00 5F        .._   stab 005f
7663 BB94 7F 00 1C        ...   clr 001c     ; i=0
7664 ;
7665 BB97 F6 00 1C        ...   ldab 001c
7666 BB9A C1 08           ..    cmpb #08     ; if i >= 8
7667 BB9C 24 15           $.    bcc 15       ; to bbb3 (break)
7668 BB9E F6 00 5F        .._   ldab 005f
7669 BBA1 C4 01           ..    andb #01
7670 BBA3 27 02           '.    beq 02
7671 BBA5 20 0C            .    bra 0c       ; to bbb3
7672 BBA7 F6 00 5F        .._   ldab 005f
7673 BBAA 54              T     lsrb         ; ready to test next bit
7674 BBAB F7 00 5F        .._   stab 005f
7675 BBAE 7C 00 1C        |..   inc 001c
7676 BBB1 20 E4            .    bra e4       ; to bb97
7677 ; look up i in the keypad map
7678 BBB3 F6 00 1C        ...   ldab 001c
7679 BBB6 4F              O     clra
7680 BBB7 C3 AC 9D        ...   addd #ac9d   ; keypad mapping
7681 BBBA 8F              .     xgdx
7682 BBBB E6 00           ..    ldab 00,x
7683 BBBD F7 00 16        ...   stab 0016
7684 BBC0 20 3C            <    bra 3c       ; to bbfe
7685 ; test row 1 - ditto
7686 BBC2 F6 00 56        ..V   ldab 0056
7687 BBC5 27 34           '4    beq 34
7688 BBC7 F6 00 56        ..V   ldab 0056
7689 BBCA F7 00 5F        .._   stab 005f
7690 BBCD 7F 00 1C        ...   clr 001c
7691 BBD0 F6 00 1C        ...   ldab 001c
7692 BBD3 C1 08           ..    cmpb #08
7693 BBD5 24 15           $.    bcc 15
7694 BBD7 F6 00 5F        .._   ldab 005f
7695 BBDA C4 01           ..    andb #01
7696 BBDC 27 02           '.    beq 02
7697 BBDE 20 0C            .    bra 0c       ; to bbec
7698 BBE0 F6 00 5F        .._   ldab 005f
7699 BBE3 54              T     lsrb
7700 BBE4 F7 00 5F        .._   stab 005f
7701 BBE7 7C 00 1C        |..   inc 001c
7702 BBEA 20 E4            .    bra e4
7703 BBEC F6 00 1C        ...   ldab 001c
7704 ; look up in map
7705 BBEF 4F              O     clra
7706 BBF0 C3 AC A0        ...   addd #aca0
7707 BBF3 8F              .     xgdx
7708 BBF4 E6 00           ..    ldab 00,x
7709 BBF6 F7 00 16        ...   stab 0016
7710 BBF9 20 03            .    bra 03
7711 BBFB 7F 00 16        ...   clr 0016
7712 ;
7713 BBFE F6 00 5B        ..[   ldab 005b
7714 BC01 FA 00 56        ..V   orb 0056
7715 BC04 F7 00 5F        .._   stab 005f
7716 BC07 7F 00 5E        ..^   clr 005e
7717 BC0A 7F 00 1C        ...   clr 001c
7718 BC0D F6 00 1C        ...   ldab 001c
7719 BC10 C1 08           ..    cmpb #08
7720 BC12 24 16           $.    bcc 16
7721 BC14 F6 00 5F        .._   ldab 005f
7722 BC17 C4 01           ..    andb #01
7723 BC19 27 03           '.    beq 03
7724 BC1B 7C 00 5E        |.^   inc 005e
7725 BC1E F6 00 5F        .._   ldab 005f
7726 BC21 54              T     lsrb
7727 BC22 F7 00 5F        .._   stab 005f
7728 BC25 7C 00 1C        |..   inc 001c
7729 BC28 20 E3            .    bra e3
7730 BC2A F6 00 5E        ..^   ldab 005e
7731 BC2D C1 01           ..    cmpb #01
7732 BC2F 22 05           ".    bhi 05
7733 BC31 F6 00 16        ...   ldab 0016
7734 BC34 26 0F           &.    bne 0f
7735 BC36 7F 00 29        ..)   clr 0029
7736 BC39 CE 00 1B        ...   ldx #001b
7737 BC3C 1C 00 10        ...   bset 00,x, #10
7738 BC3F 7F 00 37        ..7   clr 0037
7739 BC42 7E BD AF        ~..   jmp bdaf             ;goto29 (bail)
7740 BC45 F6 00 16        ...   ldab 0016    ; key release or debounce?
7741 BC48 F1 00 29        ..)   cmpb 0029
7742 BC4B 27 2D           '-    beq 2d
7743 BC4D F6 00 16        ...   ldab 0016
7744 BC50 F7 00 29        ..)   stab 0029
7745 BC53 F6 0E 00        ...   ldab 0e00     ; this is the key buffer?
7746 BC56 F7 0D FF        ...   stab 0dff
7747 BC59 F6 0E 01        ...   ldab 0e01
7748 BC5C F7 0E 00        ...   stab 0e00
7749 BC5F F6 0E 02        ...   ldab 0e02
7750 BC62 F7 0E 01        ...   stab 0e01
7751 BC65 F6 0E 03        ...   ldab 0e03
7752 BC68 F7 0E 02        ...   stab 0e02
7753 BC6B F6 0E 04        ...   ldab 0e04
7754 BC6E F7 0E 03        ...   stab 0e03
7755 BC71 F6 00 29        ..)   ldab 0029
7756 BC74 F7 0E 04        ...   stab 0e04
7757 BC77 7E BD AF        ~..   jmp bdaf             ;goto29 (bail)
7758 BC7A F6 00 12        ...   ldab 0012
7759 BC7D C4 20           .     andb #20     ; test door switch
7760 BC7F 27 3B           ';    beq 3b       ; to bcbc
7761 BC81 F6 00 29        ..)   ldab 0029
7762 BC84 27 33           '3    beq 33
7763 BC86 F6 00 1B        ...   ldab 001b
7764 BC89 C4 10           ..    andb #10
7765 BC8B 27 2C           ',    beq 2c
7766 BC8D F6 00 42        ..B   ldab 0042
7767 BC90 27 15           '.    beq 15
7768 BC92 F6 00 09        ...   ldab 0009
7769 BC95 27 08           '.    beq 08
7770 BC97 F6 00 29        ..)   ldab 0029
7771 BC9A F7 00 0A        ...   stab 000a
7772 BC9D 20 06            .    bra 06
7773 BC9F F6 00 29        ..)   ldab 0029
7774 BCA2 F7 00 09        ...   stab 0009
7775 BCA5 20 06            .    bra 06
7776 BCA7 F6 00 29        ..)   ldab 0029
7777 BCAA F7 00 42        ..B   stab 0042
7778 BCAD BD E5 AA        ...   jsr e5aa             ;jump12
7779 BCB0 7F 00 2C        ..,   clr 002c
7780 BCB3 CE 00 1B        ...   ldx #001b
7781 BCB6 1D 00 10        ...   bclr 00,x, #10
7782 BCB9 7E BD AF        ~..   jmp bdaf             ;goto29 (bail)
7783 ;
7784 BCBC F6 00 1B        ...   ldab 001b
7785 BCBF C4 10           ..    andb #10
7786 BCC1 26 03           &.    bne 03
7787 BCC3 7E BD 91        ~..   jmp bd91             ;goto30
7788 BCC6 F6 00 21        ..!   ldab 0021
7789 BCC9 C4 20           .     andb #20
7790 BCCB 27 03           '.    beq 03
7791 BCCD 7E BD 91        ~..   jmp bd91             ;goto30
7792 BCD0 F6 00 29        ..)   ldab 0029
7793 BCD3 C1 0B           ..    cmpb #0b
7794 BCD5 26 03           &.    bne 03
7795 BCD7 7E BD 5C        ~.\   jmp bd5c             ;goto31
7796 BCDA 7F 00 49        ..I   clr 0049
7797 BCDD F6 00 3A        ..:   ldab 003a
7798 BCE0 26 32           &2    bne 32
7799 BCE2 F6 00 29        ..)   ldab 0029
7800 BCE5 C1 0A           ..    cmpb #0a
7801 BCE7 26 05           &.    bne 05
7802 BCE9 7F 00 1E        ...   clr 001e
7803 BCEC 20 06            .    bra 06
7804 BCEE F6 00 29        ..)   ldab 0029
7805 BCF1 F7 00 1E        ...   stab 001e
7806 BCF4 C6 32           .2    ldab #32
7807 BCF6 F7 00 3A        ..:   stab 003a
7808 BCF9 BD BE 4B        ..K   jsr be4b             ;displayblank
7809 BCFC F6 00 1E        ...   ldab 001e
7810 BCFF CB 30           .0    addb #30
7811 BD01 F7 0B 95        ...   stab 0b95
7812 BD04 BD E5 AA        ...   jsr e5aa             ;jump12
7813 BD07 7F 00 2C        ..,   clr 002c
7814 BD0A BD BE 01        ...   jsr be01             ;jump70
7815 BD0D C6 32           .2    ldab #32
7816 BD0F F7 00 2C        ..,   stab 002c
7817 BD12 20 46            F    bra 46
7818 BD14 F6 00 29        ..)   ldab 0029
7819 BD17 C1 05           ..    cmpb #05
7820 BD19 27 07           '.    beq 07
7821 BD1B F6 00 29        ..)   ldab 0029
7822 BD1E C1 0A           ..    cmpb #0a
7823 BD20 26 05           &.    bne 05
7824 BD22 7F 00 2C        ..,   clr 002c
7825 BD25 20 2D            -    bra 2d
7826 BD27 F6 00 1E        ...   ldab 001e
7827 BD2A 58              X     aslb
7828 BD2B 58              X     aslb
7829 BD2C 58              X     aslb
7830 BD2D F7 00 06        ...   stab 0006
7831 BD30 F6 00 1E        ...   ldab 001e
7832 BD33 58              X     aslb
7833 BD34 FB 00 06        ...   addb 0006
7834 BD37 F7 00 06        ...   stab 0006
7835 BD3A F6 00 29        ..)   ldab 0029
7836 BD3D FB 00 06        ...   addb 0006
7837 BD40 F7 00 06        ...   stab 0006
7838 BD43 F6 00 29        ..)   ldab 0029
7839 BD46 CB 30           .0    addb #30
7840 BD48 F7 0B 94        ...   stab 0b94
7841 BD4B BD BE 01        ...   jsr be01             ;jump70
7842 BD4E CE 00 1B        ...   ldx #001b
7843 BD51 1D 00 40        ...   bclr 00,x, #40
7844 BD54 7F 00 3A        ..:   clr 003a
7845 BD57 BD E5 AA        ...   jsr e5aa             ;jump12
7846 BD5A 20 2D            -    bra 2d
7847 goto31:
7848 BD5C C6 19           ..    ldab #19
7849 BD5E F7 00 37        ..7   stab 0037
7850 BD61 F6 00 3A        ..:   ldab 003a
7851 BD64 27 08           '.    beq 08
7852 BD66 7F 00 3A        ..:   clr 003a
7853 BD69 7F 00 2C        ..,   clr 002c
7854 BD6C 20 18            .    bra 18
7855 BD6E 7C 00 49        |.I   inc 0049
7856 BD71 F6 00 49        ..I   ldab 0049
7857 BD74 C1 02           ..    cmpb #02
7858 BD76 25 0E           %.    bcs 0e
7859 BD78 7F 00 49        ..I   clr 0049
7860 BD7B CE 00 1B        ...   ldx #001b
7861 BD7E 1C 00 01        ...   bset 00,x, #01
7862 BD81 C6 3C           .<    ldab #3c
7863 BD83 F7 00 4F        ..O   stab 004f
7864 BD86 BD E5 AA        ...   jsr e5aa             ;jump12
7865 BD89 CE 00 1B        ...   ldx #001b
7866 BD8C 1D 00 10        ...   bclr 00,x, #10
7867 BD8F 20 1E            .    bra 1e
7868 goto30:
7869 BD91 F6 00 1B        ...   ldab 001b
7870 BD94 C4 10           ..    andb #10
7871 BD96 26 17           &.    bne 17
7872 BD98 F6 00 29        ..)   ldab 0029
7873 BD9B C1 0B           ..    cmpb #0b
7874 BD9D 26 10           &.    bne 10
7875 BD9F F6 00 37        ..7   ldab 0037
7876 BDA2 26 0B           &.    bne 0b
7877 BDA4 BD DD D5        ...   jsr ddd5             ;jump120
7878 BDA7 7F 00 49        ..I   clr 0049
7879 BDAA C6 14           ..    ldab #14
7880 BDAC F7 00 2C        ..,   stab 002c
7881 goto29:
7882 BDAF C6 01           ..    ldab #01
7883 BDB1 F7 00 00        ...   stab 0000
7884 goto28:
7885 BDB4 39              9     rts
7886
7887 jump78:
7888 ; start/finish sending a byte to the display
7889 ; stack parameter - 0 to disable clock (finish), 1 to enable clock (start)
7890 ; lower 8-bits of D - byte to write to display.
7891 ; bytes with bit 7 unset are characters (0-127)
7892 ; bytes with bit 7 set are control commands.
7893 ; this probably also reads the keypad simultaneously
7894 BDB5 37              7     pshb
7895 BDB6 36              6     psha
7896 BDB7 3C              <     pshx
7897 BDB8 5F              _     clrb
7898 BDB9 4F              O     clra
7899 BDBA 30              0     tsx
7900 BDBB ED 00           ..    std 00,x
7901 BDBD E6 07           ..    ldab 07,x
7902 BDBF 27 0E           '.    beq 0e     ; to bdcf if 0
7903 BDC1 CE 00 14        ...   ldx #0014
7904 BDC4 1C 00 08        ...   bset 00,x, #08
7905 BDC7 F6 00 14        ...   ldab 0014
7906 BDCA F7 38 00        .8.   stab 3800  ; enable display clock line
7907 BDCD 20 0C            .    bra 0c     ; to bddb
7908 BDCF CE 00 14        ...   ldx #0014
7909 BDD2 1D 00 08        ...   bclr 00,x, #08
7910 BDD5 F6 00 14        ...   ldab 0014
7911 BDD8 F7 38 00        .8.   stab 3800  ; disable display clock line
7912 BDDB 30              0     tsx
7913 BDDC E6 03           ..    ldab 03,x
7914 BDDE F7 10 2A        ..*   stab 102a  ; write to spdr
7915 BDE1 F6 10 29        ..)   ldab 1029  ; read spsr
7916 BDE4 2D 0F           -.    blt 0f     ; exit sub if SPI complete
7917 BDE6 38              8     pulx
7918 BDE7 08              .     inx
7919 BDE8 3C              <     pshx
7920 BDE9 30              0     tsx
7921 BDEA EC 00           ..    ldd 00,x
7922 BDEC 83 FF FF        ...   subd #ffff ; put a really long timeout on the action
7923 BDEF 26 02           &.    bne 02
7924 BDF1 20 02            .    bra 02
7925 BDF3 20 EC            .    bra ec     ; loop a while back to bde1
7926 BDF5 F6 10 2A        ..*   ldab 102a  ; reading SPSR (just done) & SPDR clears SPIF
7927 BDF8 30              0     tsx
7928 BDF9 E7 03           ..    stab 03,x
7929 BDFB E6 03           ..    ldab 03,x  ; return contents of spdr - keypad data!
7930 BDFD 4F              O     clra
7931 BDFE 38              8     pulx
7932 BDFF 38              8     pulx
7933 BE00 39              9     rts
7934
7935 jump70:
7936 ; Write a string in the display buffer at 0x0b90 to the display
7937 BE01 F6 00 2C        ..,   ldab 002c
7938 BE04 26 09           &.    bne 09        ; to be0f - ret if mem 0x2c != 0
7939 BE06 8D 61           .a    bsr dest 61   ; to displayreset - reset display
7940 BE08 8D 06           ..    bsr dest 06   ; to jump88 - commit to display
7941 BE0A C6 03           ..    ldab #03
7942 BE0C F7 00 2C        ..,   stab 002c
7943 BE0F 39              9     rts
7944
7945 jump88:
7946 ; writes the display buffer (at 0b90-0b99) to the display
7947 ; enable the SPI system
7948 BE10 CE 10 28        ..(   ldx #1028
7949 BE13 1C 00 40        ..@   bset 00,x, #40
7950 ; loop to 10
7951 BE16 7F 00 1C        ...   clr 001c
7952 BE19 F6 00 1C        ...   ldab 001c
7953 BE1C C1 0A           ..    cmpb #0a
7954 BE1E 24 19           $.    bcc 19        ; to be39
7955 BE20 CE 00 01        ...   ldx #0001
7956 BE23 3C              <     pshx
7957 BE24 F6 00 1C        ...   ldab 001c
7958 BE27 4F              O     clra
7959 BE28 C3 0B 90        ...   addd #0b90
7960 BE2B 8F              .     xgdx
7961 BE2C E6 00           ..    ldab 00,x
7962 BE2E C4 7F           ..    andb #7f      ; make sure we don't send a control command
7963 BE30 4F              O     clra
7964 BE31 8D 82           ..    bsr dest 82   ; to jump78
7965 BE33 38              8     pulx
7966 BE34 7C 00 1C        |..   inc 001c
7967 BE37 20 E0            .    bra e0        ; to be19
7968 BE39 CE 00 01        ...   ldx #0001
7969 BE3C 3C              <     pshx
7970 BE3D CC 00 FF        ...   ldd #00ff
7971 BE40 BD BD B5        ...   jsr bdb5             ;jump78
7972 BE43 38              8     pulx
7973 ; disable the SPI system
7974 BE44 CE 10 28        ..(   ldx #1028
7975 BE47 1D 00 40        ..@   bclr 00,x, #40
7976 BE4A 39              9     rts
7977
7978 displayblank:
7979 ; stores 0x20 into memory locations 0b90-0b99
7980 ; "blanks out" (with spaces) the display buffer
7981 BE4B 7F 00 1C        ...   clr 001c
7982 BE4E F6 00 1C        ...   ldab 001c
7983 BE51 C1 0A           ..    cmpb #0a
7984 BE53 24 13           $.    bcc 13       ; to be68 - rts
7985 BE55 C6 20           .     ldab #20
7986 BE57 37              7     pshb
7987 BE58 F6 00 1C        ...   ldab 001c
7988 BE5B 4F              O     clra
7989 BE5C C3 0B 90        ...   addd #0b90
7990 BE5F 8F              .     xgdx
7991 BE60 33              3     pulb
7992 BE61 E7 00           ..    stab 00,x
7993 BE63 7C 00 1C        |..   inc 001c
7994 BE66 20 E6            .    bra e6       ; to be4e
7995 BE68 39              9     rts
7996
7997 displayreset:
7998 ; Reset the display
7999 ; Clear bit 7 of PortA - display reset
8000 BE69 CE 10 00        ...   ldx #1000
8001 BE6C 1D 00 80        ..    bclr x,#80
8002 BE6F BD E5 96        ...   jsr e596             ;jump115 - 100ms delay
8003 ; Clear bit 7 of PortA - reset line back to high (not active)
8004 BE72 CE 10 00        ...   ldx #1000
8005 BE75 1C 00 80        ..    bset 00,x, #80
8006
8007 ; set clock polarity
8008 BE78 CE 10 28        ...   ldx #1028
8009 BE7B 1C 00 40        ...   bset 00,x, #40
8010
8011 BE7E BD E5 96        ...   jsr e596             ;jump115 - 100ms delay
8012
8013 ; tell the display controller there are 10 digits
8014 BE81 CE 00 01        ...   ldx #0001
8015 BE84 3C              <     pshx
8016 BE85 CC 00 CA        ...   ldd #00ca    ;11001010
8017 BE88 BD BD B5        ...   jsr bdb5             ;jump78
8018 BE8B 38              8     pulx
8019
8020 ; set brightness to 100%
8021 BE8C CE 00 01        ...   ldx #0001
8022 BE8F 3C              <     pshx
8023 BE90 CC 00 E0        ...   ldd #00e0    ;11100000
8024 BE93 BD BD B5        ...   jsr bdb5             ;jump78
8025 BE96 38              8     pulx
8026
8027 ; revert clock polarity
8028 BE97 CE 10 28        ..(   ldx #1028
8029 BE9A 1D 00 40        ...   bclr 00,x, #40
8030 BE9D 39              9     rts
8031
8032
8033
8034 jump50:
8035 ; writes a slot and price to the screen?
8036 BE9E 37              7     pshb
8037 BE9F 36              6     psha
8038 BEA0 8D A9           ..    bsr a9 ; to be4b - displayblank
8039 BEA2 30              0     tsx
8040 BEA3 E6 05           ..    ldab 05,x
8041 BEA5 26 1B           &.    bne 1b
8042 BEA7 F6 00 06        ...   ldab 0006
8043 BEAA 4F              O     clra
8044 BEAB CE 00 0A        ...   ldx #000a
8045 BEAE 02              .     idiv
8046 BEAF 8F              .     xgdx
8047 BEB0 CB 30           .0    addb #30
8048 BEB2 F7 0B 99        ...   stab 0b99   ; write slotnumber/10
8049 BEB5 F6 00 06        ...   ldab 0006
8050 BEB8 4F              O     clra
8051 BEB8 CE 00 0A        ...   ldx #000a
8052 BEBC 02              .     idiv
8053 BEBD CB 30           .0    addb #30
8054 BEBF F7 0B 98        ...   stab 0b98   ; write slotnumber%10
8055 BEC2 30              0     tsx
8056 BEC3 EC 00           ..    ldd 00,x
8057 BEC5 C4 FF           ..    andb #ff
8058 BEC7 84 3F           .?    anda #3f
8059 BEC9 ED 00           ..    std 00,x
8060 BECB EC 00           ..    ldd 00,x
8061 BECD CE 03 E8        ...   ldx #03e8   ; / 1000
8062 BED0 02              .     idiv
8063 BED1 8F              .     xgdx
8064 BED2 CB 30           .0    addb #30
8065 BED4 37              7     pshb
8066 BED5 30              0     tsx
8067 BED6 E6 06           ..    ldab 06,x
8068 BED8 4F              O     clra
8069 BED9 C3 0B 95        ...   addd #0b95
8070 BEDC 8F              .     xgdx
8071 BEDD 33              3     pulb
8072 BEDE E7 00           ..    stab 00,x    ; write MSB dollars
8073 BEE0 30              0     tsx
8074 BEE1 EC 00           ..    ldd 00,x
8075 BEE3 CE 03 E8        ...   ldx #03e8    ; %1000
8076 BEE6 02              .     idiv
8077 BEE7 CE 00 64        ..d   ldx #0064    ; /100
8078 BEEA 02              .     idiv
8079 BEEB 8F              .     xgdx
8080 BEEC CB 30           .0    addb #30
8081 BEEE 37              7     pshb
8082 BEEF 30              0     tsx
8083 BEF0 E6 06           ..    ldab 06,x
8084 BEF2 4F              O     clra
8085 BEF3 C3 0B 94        ...   addd #0b94   ; write LSB dollars
8086 BEF6 8F              .     xgdx
8087 BEF7 33              3     pulb
8088 BEF8 E7 00           ..    stab 00,x
8089 BEFA 30              0     tsx
8090 BEFB EC 00           ..    ldd 00,x
8091 BEFD CE 00 64        ..d   ldx #0064    ; %100
8092 BF00 02              .     idiv
8093 BF01 CE 00 0A        ...   ldx #000a    ; /10
8094 BF04 02              .     idiv
8095 BF05 8F              .     xgdx
8096 BF06 CB 30           .0    addb #30
8097 BF08 37              7     pshb
8098 BF09 30              0     tsx
8099 BF0A E6 06           ..    ldab 06,x
8100 BF0C 4F              O     clra
8101 BF0D C3 0B 93        ...   addd #0b93   ; write MSB cents
8102 BF10 8F              .     xgdx
8103 BF11 33              3     pulb
8104 BF12 E7 00           ..    stab 00,x
8105 BF14 30              0     tsx
8106 BF15 EC 00           ..    ldd 00,x
8107 BF17 CE 00 0A        ...   ldx #000a
8108 BF1A 02              .     idiv
8109 BF1B CB 30           .0    addb #30
8110 BF1D 37              7     pshb
8111 BF1E 30              0     tsx
8112 BF1F E6 06           ..    ldab 06,x
8113 BF21 4F              O     clra
8114 BF22 C3 0B 92        ...   addd #0b92    ; write LSB cents
8115 BF25 8F              .     xgdx
8116 BF26 33              3     pulb
8117 BF27 E7 00           ..    stab 00,x
8118 BF29 F6 00 13        ...   ldab 0013
8119 BF2C C1 01           ..    cmpb #01
8120 BF2E 22 03           ".    bhi 03
8121 BF30 7E BF DE        ~..   jmp bfde             ;goto32
8122 BF33 30              0     tsx
8123 BF34 E6 05           ..    ldab 05,x
8124 BF36 4F              O     clra
8125 BF37 C3 0B 92        ...   addd #0b92
8126 BF3A 8F              .     xgdx
8127 BF3B E6 00           ..    ldab 00,x
8128 BF3D 37              7     pshb
8129 BF3E 30              0     tsx
8130 BF3F E6 06           ..    ldab 06,x
8131 BF41 4F              O     clra
8132 BF42 C3 0B 91        ...   addd #0b91
8133 BF45 8F              .     xgdx
8134 BF46 33              3     pulb
8135 BF47 E7 00           ..    stab 00,x
8136 BF49 30              0     tsx
8137 BF4A E6 05           ..    ldab 05,x
8138 BF4C 4F              O     clra
8139 BF4D C3 0B 93        ...   addd #0b93
8140 BF50 8F              .     xgdx
8141 BF51 E6 00           ..    ldab 00,x
8142 BF53 37              7     pshb
8143 BF54 30              0     tsx
8144 BF55 E6 06           ..    ldab 06,x
8145 BF57 4F              O     clra
8146 BF58 C3 0B 92        ...   addd #0b92
8147 BF5B 8F              .     xgdx
8148 BF5C 33              3     pulb
8149 BF5D E7 00           ..    stab 00,x
8150 BF5F F6 00 13        ...   ldab 0013
8151 BF62 C1 02           ..    cmpb #02
8152 BF64 26 10           &.    bne 10
8153 BF66 C6 2E           ..    ldab #2e
8154 BF68 37              7     pshb
8155 BF69 30              0     tsx
8156 BF6A E6 06           ..    ldab 06,x
8157 BF6C 4F              O     clra
8158 BF6D C3 0B 93        ...   addd #0b93
8159 BF70 8F              .     xgdx
8160 BF71 33              3     pulb
8161 BF72 E7 00           ..    stab 00,x
8162 BF74 20 68            h    bra 68     ;goto32
8163 ;
8164 BF76 C1 04           ..    cmpb #04
8165 BF78 26 26           &&    bne 26
8166 BF7A 30              0     tsx
8167 BF7B E6 05           ..    ldab 05,x
8168 BF7D 4F              O     clra
8169 BF7E C3 0B 94        ...   addd #0b94
8170 BF81 8F              .     xgdx
8171 BF82 E6 00           ..    ldab 00,x
8172 BF84 37              7     pshb
8173 BF85 30              0     tsx
8174 BF86 E6 06           ..    ldab 06,x
8175 BF88 4F              O     clra
8176 BF89 C3 0B 93        ...   addd #0b93
8177 BF8C 8F              .     xgdx
8178 BF8D 33              3     pulb
8179 BF8E E7 00           ..    stab 00,x
8180 BF90 C6 2E           ..    ldab #2e   ; "."
8181 BF92 37              7     pshb
8182 BF93 30              0     tsx
8183 BF94 E6 06           ..    ldab 06,x
8184 BF96 4F              O     clra
8185 BF97 C3 0B 94        ...   addd #0b94
8186 BF9A 8F              .     xgdx
8187 BF9B 33              3     pulb
8188 BF9C E7 00           ..    stab 00,x
8189 BF9E 20 3E            >    bra 3e
8190 BFA0 C1 08           ..    cmpb #08
8191 BFA2 26 3A           &:    bne 3a
8192 BFA4 30              0     tsx
8193 BFA5 E6 05           ..    ldab 05,x
8194 BFA7 4F              O     clra
8195 BFA8 C3 0B 94        ...   addd #0b94
8196 BFAB 8F              .     xgdx
8197 BFAC E6 00           ..    ldab 00,x
8198 BFAE 37              7     pshb
8199 BFAF 30              0     tsx
8200 BFB0 E6 06           ..    ldab 06,x
8201 BFB2 4F              O     clra
8202 BFB3 C3 0B 93        ...   addd #0b93
8203 BFB6 8F              .     xgdx
8204 BFB7 33              3     pulb
8205 BFB8 E7 00           ..    stab 00,x
8206 BFBA 30              0     tsx
8207 BFBB E6 05           ..    ldab 05,x
8208 BFBD 4F              O     clra
8209 BFBE C3 0B 95        ...   addd #0b95
8210 BFC1 8F              .     xgdx
8211 BFC2 E6 00           ..    ldab 00,x
8212 BFC4 37              7     pshb
8213 BFC5 30              0     tsx
8214 BFC6 E6 06           ..    ldab 06,x
8215 BFC8 4F              O     clra
8216 BFC9 C3 0B 94        ...   addd #0b94
8217 BFCC 8F              .     xgdx
8218 BFCD 33              3     pulb
8219 BFCE E7 00           ..    stab 00,x
8220 BFD0 C6 2E           ..    ldab #2e   ; "."
8221 BFD2 37              7     pshb
8222 BFD3 30              0     tsx
8223 BFD4 E6 06           ..    ldab 06,x
8224 BFD6 4F              O     clra
8225 BFD7 C3 0B 95        ...   addd #0b95
8226 BFDA 8F              .     xgdx
8227 BFDB 33              3     pulb
8228 BFDC E7 00           ..    stab 00,x
8229 goto32:
8230 BFDE F6 0B C0        ...   ldab 0bc0
8231 BFE1 C4 01           ..    andb #01
8232 BFE3 26 0E           &.    bne 0e      ; to bff3
8233 BFE5 F6 0B C0        ...   ldab 0bc0
8234 BFE8 C4 04           ..    andb #04
8235 BFEA 26 07           &.    bne 07      ; to bff3
8236 BFEC F6 0B C0        ...   ldab 0bc0
8237 BFEF C4 08           ..    andb #08
8238 BFF1 27 15           '.    beq 15      ; to c008
8239 BFF3 F6 00 17        ...   ldab 0017
8240 BFF6 C4 08           ..    andb #08
8241 BFF8 26 0E           &.    bne 0e      ; to c008
8242 ; plonk a dollar sign somewhere
8243 BFFA C6 24           .$    ldab #24    ; "$"
8244 BFFC 37              7     pshb
8245 BFFD 30              0     tsx
8246 BFFE E6 06           ..    ldab 06,x
8247 C000 4F              O     clra
8248 C001 C3 0B 96        ...   addd #0b96
8249 C004 8F              .     xgdx
8250 C005 33              3     pulb
8251 C006 E7 00           ..    stab 00,x
8252 C008 BD BE 69        ..i   jsr be69             ;displayreset
8253 C00B F6 00 13        ...   ldab 0013
8254 C00E C1 01           ..    cmpb #01
8255 C010 23 17           #.    bls 17
8256 C012 CE 10 28        ..(   ldx #1028
8257 C015 1C 00 40        ...   bset 00,x, #40 ; enable SPI send
8258 C018 CE 00 01        ...   ldx #0001
8259 C01B 3C              <     pshx
8260 C01C CC 00 20        ..    ldd #0020
8261 C01F BD BD B5        ...   jsr bdb5             ;jump78 - send space to display
8262 C022 38              8     pulx
8263 C023 CE 10 28        ..(   ldx #1028      ; disable SPI send
8264 C026 1D 00 40        ...   bclr 00,x, #40
8265 C029 BD BE 10        ...   jsr be10             ;jump88 - write buffer to display
8266 C02C 38              8     pulx
8267 C02D 39              9     rts
8268
8269 jump71:
8270 ; part of the display: function abstraction
8271 ; D points to a string, and the stack contains the length of the message
8272 ; Also seems to handle scrolling of long strings?
8273 C02E 37              7     pshb
8274 C02F 36              6     psha
8275 C030 3C              <     pshx
8276 ; need 002c to be zero to display stuff
8277 C031 F6 00 2C        ..,   ldab 002c
8278 C034 27 03           '.    beq 03
8279 C036 7E C0 B7        ~..   jmp c0b7             ;goto33 (bail out)
8280 ; if (0003 >= D)
8281 C039 FC 00 03        ...   ldd 0003
8282 C03C 30              0     tsx
8283 C03D A3 02           ..    subd 02,x
8284 C03F 25 0A           %.    bcs 0a       ; to c04b
8285 ;
8286 C041 E6 07           ..    ldab 07,x
8287 C043 4F              O     clra
8288 C044 E3 02           ..    addd 02,x
8289 C046 B3 00 03        ...   subd 0003
8290 C049 24 06           $.    bcc 06       ; to c051
8291 ; else
8292 C04B 30              0     tsx
8293 C04C EC 02           ..    ldd 02,x
8294 C04E FD 00 03        ...   std 0003
8295 C051 FE 00 03        ...   ldx 0003
8296 C054 08              .     inx
8297 C055 FF 00 03        ...   stx 0003
8298 C058 09              .     dex
8299 C059 8F              .     xgdx
8300 C05A 30              0     tsx
8301 C05B ED 00           ..    std 00,x
8302 C05D C6 09           ..    ldab #09
8303 C05F F7 00 18        ...   stab 0018
8304 C062 F6 00 18        ...   ldab 0018
8305 C065 C1 FF           ..    cmpb #ff
8306 C067 24 46           $F    bcc 46       ; to c0af (jump 70 - write string)
8307 C069 30              0     tsx
8308 C06A E6 07           ..    ldab 07,x
8309 C06C 4F              O     clra
8310 C06D E3 02           ..    addd 02,x
8311 C06F A3 00           ..    subd 00,x
8312 C071 24 05           $.    bcc 05
8313 C073 30              0     tsx
8314 C074 EC 02           ..    ldd 02,x
8315 C076 ED 00           ..    std 00,x
8316 C078 30              0     tsx
8317 C079 EE 00           ..    ldx 00,x
8318 C07B E6 00           ..    ldab 00,x
8319 C07D C1 40           .@    cmpb #40
8320 C07F 24 13           $.    bcc 13
8321 C081 30              0     tsx
8322 C082 EE 00           ..    ldx 00,x
8323 C084 E6 00           ..    ldab 00,x
8324 C086 37              7     pshb
8325 C087 F6 00 18        ...   ldab 0018
8326 C08A 4F              O     clra
8327 C08B C3 0B 90        ...   addd #0b90
8328 C08E 8F              .     xgdx
8329 C08F 33              3     pulb
8330 C090 E7 00           ..    stab 00,x
8331 C092 20 13            .    bra 13
8332 C094 30              0     tsx
8333 C095 EE 00           ..    ldx 00,x
8334 C097 E6 00           ..    ldab 00,x
8335 C099 CB C0           ..    addb #c0
8336 C09B 37              7     pshb
8337 C09C F6 00 18        ...   ldab 0018
8338 C09F 4F              O     clra
8339 C0A0 C3 0B 90        ...   addd #0b90
8340 C0A3 8F              .     xgdx
8341 C0A4 33              3     pulb
8342 C0A5 E7 00           ..    stab 00,x
8343 C0A7 38              8     pulx
8344 C0A8 08              .     inx
8345 C0A9 3C              <     pshx
8346 C0AA 7A 00 18        z..   dec 0018
8347 C0AD 20 B3            .    bra b3
8348 C0AF BD BE 01        ...   jsr be01             ;jump70
8349 C0B2 C6 03           ..    ldab #03
8350 C0B4 F7 00 2C        ..,   stab 002c
8351 goto33:
8352 C0B7 38              8     pulx
8353 C0B8 38              8     pulx
8354 C0B9 39              9     rts
8355
8356 ;Display a string.  D points to the string, which is NULL-terminated
8357
8358 display:
8359 C0BA 37              7     pshb
8360 C0BB 36              6     psha
8361 C0BC F6 00 1F        ...   ldab 001f
8362 C0BF C4 04           ..    andb #04
8363 C0C1 26 03           &.    bne 03
8364 C0C3 7F 00 2C        ..,   clr 002c
8365 C0C6 F6 00 2C        ..,   ldab 002c
8366 C0C9 26 13           &.    bne 13      ; to c0de
8367 C0CB 5F              _     clrb
8368 C0CC 4F              O     clra
8369 C0CD FD 00 03        ...   std 0003
8370 C0D0 7F 00 2C        ..,   clr 002c
8371 C0D3 CE 00 09        ...   ldx #0009
8372 C0D6 3C              <     pshx
8373 C0D7 30              0     tsx
8374 C0D8 EC 02           ..    ldd 02,x
8375 C0DA BD C0 2E        ...   jsr c02e             ;jump71
8376 C0DD 38              8     pulx
8377 C0DE 38              8     pulx
8378 C0DF 39              9     rts
8379
8380 jump94:
8381 C0E0 F6 00 15        ...   ldab 0015
8382 C0E3 2C 02           ,.    bge 02
8383 C0E5 20 F9            .    bra f9
8384 C0E7 CE 00 1D        ...   ldx #001d
8385 C0EA 1C 00 20        ..    bset 00,x, #20
8386 C0ED BD D7 30         .    jsr d730       ;jump202
8387 C0EE 83 00 00        .0.   subd #0000
8388 C0F3 27 09           '.    beq 09
8389 C0F5 CE 00 1D        ...   ldx #001d
8390 C0F8 1D 00 20        ..    bclr 00,x, #20
8391 C0FB 5F              .     clrb
8392 C0FC 4F              O     clra
8393 C0FD 39              9     rts
8394
8395 C0FE CE 00 14        ...   ldx #0014
8396 C101 1C 00 01        ...   bset 00,x, #01
8397 C104 F6 00 14        ...   ldab 0014
8398 C107 F7 38 00        .8.   stab 3800    ; note acceptor business
8399 C10A F6 00 15        ...   ldab 0015
8400 C10D C4 1F           ..    andb #1f
8401 C10F 26 03           &.    bne 03
8402 C111 7E C3 1B        ~..   jmp c31b             ;goto34
8403 C114 C6 14           ..    ldab #14
8404 C116 F7 00 31        ..1   stab 0031
8405 C119 F6 00 15        ...   ldab 0015
8406 C11C 2D 15           -.    blt 15
8407 C11E F6 00 31        ..1   ldab 0031
8408 C121 C1 0A           ..    cmpb #0a
8409 C123 22 0C           ".    bhi 0c
8410 C125 BD C5 D3        ...   jsr c5d3             ;jump6
8411 C128 CE 00 1D        ...   ldx #001d
8412 C12B 1D 00 20        ..    bclr 00,x, #20
8413 C12D 5F              _     clrb
8414 C12F 4F              O     clra
8415 C130 39              9     rts
8416
8417 C131 20 E6            .    bra e6
8418 C133 FC 00 3E        ..>   ldd 003e
8419 C136 F3 00 40        ..@   addd 0040
8420 C139 FD 00 40        ..@   std 0040
8421 C13C 5F              _     clrb
8422 C13D 4F              O     clra
8423 C13E FD 00 3E        ..>   std 003e
8424 C141 F6 00 15        ...   ldab 0015
8425 C144 C4 1F           ..    andb #1f
8426 C146 4F              O     clra
8427 C147 BD FE 32        ..2   jsr fe32             ;jump25
8428 C14A C1 64 00 01     ....  ; array data for jump25
8429 C14E C1 BA 00 01     ....
8430 C152 C2 10 00 02     ....
8431 C156 C2 66 00 04     .f..
8432 C15A C2 BB 00 08     ....
8433 C15E C3 0E FF F0     ....
8434 C162 00 00           ..    ; end of array data
8435 C164 FC 0C DD        ...   ldd 0cdd
8436 C167 83 FF FF        ...   subd #ffff
8437 C16A 26 05           &.    bne 05
8438 C16C 5F              _     clrb
8439 C16D 4F              O     clra
8440 C16E FD 0C DD        ...   std 0cdd
8441 C171 FE 0C DD        ...   ldx 0cdd
8442 C174 08              .     inx
8443 C175 FF 0C DD        ...   stx 0cdd
8444 C178 CE 00 64        ..d   ldx #0064
8445 C17B 3C              <     pshx
8446 C17C CC 00 00        ...   ldd #0000
8447 C17F 37              7     pshb
8448 C180 36              6     psha
8449 C181 CC 0C F3        ...   ldd #0cf3
8450 C184 BD FB DF        ...   jsr fbdf             ;jump46
8451 C187 31              1     ins
8452 C188 31              1     ins
8453 C189 FE 0C F5        ...   ldx 0cf5
8454 C18C 3C              <     pshx
8455 C18D FC 0C F3        ...   ldd 0cf3
8456 C190 37              7     pshb
8457 C191 36              6     psha
8458 C192 CE FF 9C        ...   ldx #ff9c
8459 C195 3C              <     pshx
8460 C196 CC 00 63        ..c   ldd #0063
8461 C199 30              0     tsx
8462 C19A A3 02           ..    subd 02,x
8463 C19C 32              2     pula
8464 C19D 33              3     pulb
8465 C19E 26 02           &.    bne 02
8466 C1A0 A3 04           ..    subd 04,x
8467 C1A2 38              8     pulx
8468 C1A3 38              8     pulx
8469 C1A4 24 11           $.    bcc 11
8470 C1A6 CE 00 64        ..d   ldx #0064
8471 C1A9 3C              <     pshx
8472 C1AA CC FF 9C        ...   ldd #ff9c
8473 C1AD 37              7     pshb
8474 C1AE 36              6     psha
8475 C1AF CC 0C F3        ...   ldd #0cf3
8476 C1B2 BD FB DF        ...   jsr fbdf             ;jump46
8477 C1B5 31              1     ins
8478 C1B6 31              1     ins
8479 C1B7 7E C3 0E        ~..   jmp c30e             ;goto35
8480 C1BA FC 0C DF        ...   ldd 0cdf
8481 C1BD 83 FF FF        ...   subd #ffff
8482 C1C0 26 05           &.    bne 05
8483 C1C2 5F              _     clrb
8484 C1C3 4F              O     clra
8485 C1C4 FD 0C DF        ...   std 0cdf
8486 C1C7 FE 0C DF        ...   ldx 0cdf
8487 C1CA 08              .     inx
8488 C1CB FF 0C DF        ...   stx 0cdf
8489 C1CE CE 00 C8        ...   ldx #00c8
8490 C1D1 3C              <     pshx
8491 C1D2 CC 00 00        ...   ldd #0000
8492 C1D5 37              7     pshb
8493 C1D6 36              6     psha
8494 C1D7 CC 0C F7        ...   ldd #0cf7
8495 C1DA BD FB DF        ...   jsr fbdf             ;jump46
8496 C1DD 31              1     ins
8497 C1DE 31              1     ins
8498 C1DF FE 0C F9        ...   ldx 0cf9
8499 C1E2 3C              <     pshx
8500 C1E3 FC 0C F7        ...   ldd 0cf7
8501 C1E6 37              7     pshb
8502 C1E7 36              6     psha
8503 C1E8 CE FF 38        ..8   ldx #ff38     ; -200
8504 C1EB 3C              <     pshx
8505 C1EC CC 00 C7        ...   ldd #00c7
8506 C1EF 30              0     tsx
8507 C1F0 A3 02           ..    subd 02,x
8508 C1F2 32              2     pula
8509 C1F3 33              3     pulb
8510 C1F4 26 02           &.    bne 02
8511 C1F6 A3 04           ..    subd 04,x
8512 C1F8 38              8     pulx
8513 C1F9 38              8     pulx
8514 C1FA 24 11           $.    bcc 11
8515 C1FC CE 00 C8        ...   ldx #00c8
8516 C1FF 3C              <     pshx
8517 C200 CC FF 38        ..8   ldd #ff38    ; -200
8518 C203 37              7     pshb
8519 C204 36              6     psha
8520 C205 CC 0C F7        ...   ldd #0cf7
8521 C208 BD FB DF        ...   jsr fbdf             ;jump46
8522 C20B 31              1     ins
8523 C20C 31              1     ins
8524 C20D 7E C3 0E        ~..   jmp c30e             ;goto35
8525 C210 FC 0C E1        ...   ldd 0ce1
8526 C213 83 FF FF        ...   subd #ffff
8527 C216 26 05           &.    bne 05
8528 C218 5F              _     clrb
8529 C219 4F              O     clra
8530 C21A FD 0C E1        ...   std 0ce1
8531 C21D FE 0C E1        ...   ldx 0ce1
8532 C220 08              .     inx
8533 C221 FF 0C E1        ...   stx 0ce1
8534 C224 CE 01 F4        ...   ldx #01f4
8535 C227 3C              <     pshx
8536 C228 CC 00 00        ...   ldd #0000
8537 C22B 37              7     pshb
8538 C22C 36              6     psha
8539 C22D CC 0C FB        ...   ldd #0cfb
8540 C230 BD FB DF        ...   jsr fbdf             ;jump46
8541 C233 31              1     ins
8542 C234 31              1     ins
8543 C235 FE 0C FD        ...   ldx 0cfd
8544 C238 3C              <     pshx
8545 C239 FC 0C FB        ...   ldd 0cfb
8546 C23C 37              7     pshb
8547 C23D 36              6     psha
8548 C23E CE FE 0C        ...   ldx #fe0c
8549 C241 3C              <     pshx
8550 C242 CC 01 F3        ...   ldd #01f3
8551 C245 30              0     tsx
8552 C246 A3 02           ..    subd 02,x
8553 C248 32              2     pula
8554 C249 33              3     pulb
8555 C24A 26 02           &.    bne 02
8556 C24C A3 04           ..    subd 04,x
8557 C24E 38              8     pulx
8558 C24F 38              8     pulx
8559 C250 24 11           $.    bcc 11
8560 C252 CE 01 F4        ...   ldx #01f4
8561 C255 3C              <     pshx
8562 C256 CC FE 0C        ...   ldd #fe0c
8563 C259 37              7     pshb
8564 C25A 36              6     psha
8565 C25B CC 0C FB        ...   ldd #0cfb
8566 C25E BD FB DF        ...   jsr fbdf             ;jump46
8567 C261 31              1     ins
8568 C262 31              1     ins
8569 C263 7E C3 0E        ~..   jmp c30e             ;goto35
8570 C266 FC 0C E3        ...   ldd 0ce3
8571 C269 83 FF FF        ...   subd #ffff
8572 C26C 26 05           &.    bne 05
8573 C26E 5F              _     clrb
8574 C26F 4F              O     clra
8575 C270 FD 0C E3        ...   std 0ce3
8576 C273 FE 0C E3        ...   ldx 0ce3
8577 C276 08              .     inx
8578 C277 FF 0C E3        ...   stx 0ce3
8579 C27A CE 03 E8        ...   ldx #03e8
8580 C27D 3C              <     pshx
8581 C27E CC 00 00        ...   ldd #0000
8582 C281 37              7     pshb
8583 C282 36              6     psha
8584 C283 CC 0C FF        ...   ldd #0cff
8585 C286 BD FB DF        ...   jsr fbdf             ;jump46
8586 C289 31              1     ins
8587 C28A 31              1     ins
8588 C28B FE 0D 01        ...   ldx 0d01
8589 C28E 3C              <     pshx
8590 C28F FC 0C FF        ...   ldd 0cff
8591 C292 37              7     pshb
8592 C293 36              6     psha
8593 C294 CE FC 18        ...   ldx #fc18
8594 C297 3C              <     pshx
8595 C298 CC 03 E7        ...   ldd #03e7
8596 C29B 30              0     tsx
8597 C29C A3 02           ..    subd 02,x
8598 C29E 32              2     pula
8599 C29F 33              3     pulb
8600 C2A0 26 02           &.    bne 02
8601 C2A2 A3 04           ..    subd 04,x
8602 C2A4 38              8     pulx
8603 C2A5 38              8     pulx
8604 C2A6 24 11           $.    bcc 11
8605 C2A8 CE 03 E8        ...   ldx #03e8
8606 C2AB 3C              <     pshx
8607 C2AC CC FC 18        ...   ldd #fc18
8608 C2AF 37              7     pshb
8609 C2B0 36              6     psha
8610 C2B1 CC 0C FF        ...   ldd #0cff
8611 C2B4 BD FB DF        ...   jsr fbdf             ;jump46
8612 C2B7 31              1     ins
8613 C2B8 31              1     ins
8614 C2B9 20 53            S    bra 53
8615 C2BB FC 0C E5        ...   ldd 0ce5
8616 C2BE 83 C3 4F        ..O   subd #c34f
8617 C2C1 26 05           &.    bne 05
8618 C2C3 5F              _     clrb
8619 C2C4 4F              O     clra
8620 C2C5 FD 0C E5        ...   std 0ce5
8621 C2C8 FE 0C E5        ...   ldx 0ce5
8622 C2CB 08              .     inx
8623 C2CC FF 0C E5        ...   stx 0ce5
8624 C2CF CE 07 D0        ...   ldx #07d0
8625 C2D2 3C              <     pshx
8626 C2D3 CC 00 00        ...   ldd #0000
8627 C2D6 37              7     pshb
8628 C2D7 36              6     psha
8629 C2D8 CC 0D 03        ...   ldd #0d03
8630 C2DB BD FB DF        ...   jsr fbdf             ;jump46
8631 C2DE 31              1     ins
8632 C2DF 31              1     ins
8633 C2E0 FE 0D 05        ...   ldx 0d05
8634 C2E3 3C              <     pshx
8635 C2E4 FC 0D 03        ...   ldd 0d03
8636 C2E7 37              7     pshb
8637 C2E8 36              6     psha
8638 C2E9 CE D9 30        ..0   ldx #d930
8639 C2EC 3C              <     pshx
8640 C2ED CC 05 F5        ...   ldd #05f5
8641 C2F0 30              0     tsx
8642 C2F1 A3 02           ..    subd 02,x
8643 C2F3 32              2     pula
8644 C2F4 33              3     pulb
8645 C2F5 26 02           &.    bne 02
8646 C2F7 A3 04           ..    subd 04,x
8647 C2F9 38              8     pulx
8648 C2FA 38              8     pulx
8649 C2FB 24 11           $.    bcc 11
8650 C2FD CE 26 D0        .&.   ldx #26d0
8651 C300 3C              <     pshx
8652 C301 CC FA 0A        ...   ldd #fa0a
8653 C304 37              7     pshb
8654 C305 36              6     psha
8655 C306 CC 0D 03        ...   ldd #0d03
8656 C309 BD FB DF        ...   jsr fbdf             ;jump46
8657 C30C 31              1     ins
8658 C30D 31              1     ins
8659 goto35:
8660 C30E F6 00 15        ...   ldab 0015
8661 C311 2C 02           ,.    bge 02
8662 C313 20 F9            .    bra f9
8663 C315 CE 00 15        ...   ldx #0015
8664 C318 1D 00           ..    bclr add,x 00,x
8665 C31A 1F CE 00 1D     ....  brclr ce,x 00 1d
8666 ;goto34
8667 ; c31b???
8668 C31E 1D 00           ..    bclr add,x 00,x
8669 C320 20 CC            .    bra cc
8670 C322 00              .     test
8671 C323 01              .     nop
8672 C324 39              9     rts
8673
8674 jump64:
8675 C325 F6 10 00        ...   ldab 1000
8676 C328 C4 01           ..    andb #01
8677 C32A 26 13           &.    bne 13
8678 C32C 7C 00 7D        |.}   inc 007d
8679 C32F F6 00 7D        ..}   ldab 007d
8680 C332 C1 05           ..    cmpb #05
8681 C334 23 03           #.    bls 03
8682 C336 7F 00 7D        ..}   clr 007d
8683 C339 7F 00 7E        ..~   clr 007e
8684 C33C 7E C4 2F        ~./   jmp c42f             ;goto36
8685 C33F 7C 00 7E        |.~   inc 007e
8686 C342 F6 00 7E        ..~   ldab 007e
8687 C345 C1 07           ..    cmpb #07
8688 C347 23 17           #.    bls 17
8689 C349 7F 00 7D        ..}   clr 007d
8690 C34C 7F 00 7E        ..~   clr 007e
8691 C34F 7F 00 7C        ..|   clr 007c
8692 C352 F6 00 15        ...   ldab 0015
8693 C355 2C 03           ,.    bge 03
8694 C357 7F 00 2C        ..,   clr 002c
8695 C35A CE 00 15        ...   ldx #0015
8696 C35D 1D 00 80        ..    bclr 00,x, #80
8697 C35F F6 00 7E        ...   ldab 007e
8698 C363 26 03           ..    bne 03     ; to c368
8699 C365 7E C4 2F        ~./   jmp c42f             ;goto36
8700 C368 F6 00 7D        ..}   ldab 007d
8701 C36B C1 01           ..    cmpb #01
8702 C36D 22 03           ".    bhi 03
8703 C36F 7E C4 2F        ~./   jmp c42f             ;goto36
8704 C372 CE 00 15        ...   ldx #0015
8705 C375 1C 00 80        ..    bset 00,x, #80
8706 C378 CE 0B C1        ...   ldx #0bc1
8707 C37B 1D 00 08        ..    bclr 00,x #08
8708 C37E F6 00 1D        ...   ldab 001d
8709 C381 C4 20           .     andb #20
8710 C383 27 03           '.    beq 03
8711 C385 7E C4 29        ~.)   jmp c429             ;goto38
8712 C388 C6 02           ..    ldab #02
8713 C38A F7 00 2C        ..,   stab 002c
8714 C38D 7F 00 3A        ..:   clr 003a
8715 C390 CE 00 1B        ...   ldx #001b
8716 C393 1D 00 40        ..    bclr 00,x, #40
8717 C396 7F 00 25        ..%   clr 0025
8718 C399 CE 00 21        ..!   ldx #0021
8719 C39C 1D 00 08        ...   bclr 00,x, #08
8720 C39F CE 00 14        ...   ldx #0014
8721 C3A2 1D 00 01        ..    bclr 00,x, #01
8722 C3A5 F6 00 14        ...   ldab 0014
8723 C3A8 F7 38 00        .8.   stab 3800        ; note acceptor business
8724 C3AB 7C 00 7C        |.|   inc 007c
8725 C3AE CE 00 15        ...   ldx #0015
8726 C3B1 1D 00 1F        ..    bclr 00,x, #1f
8727 C3B4 F6 00 7C        ..|   ldab 007c
8728 C3B7 C1 01           ..    cmpb #01
8729 C3B9 26 0E           &.    bne 0e
8730 C3BB CE 00 15        ...   ldx #0015
8731 C3BE 1C 00 01        ..    bset 00,x, #01
8732 C3C1 CC 00 64        ..d   ldd #0064
8733 C3C4 FD 00 3E        ..>   std 003e
8734 C3C7 20 60            `    bra 60
8735 C3C9 F6 00 7C        ..|   ldab 007c
8736 C3CC C1 02           ..    cmpb #02
8737 C3CE 26 0E           &.    bne 0e
8738 C3D0 CE 00 15        ...   ldx #0015
8739 C3D3 1C 00 02        ..    bset 00,x, #02
8740 C3D6 CC 00 C8        ...   ldd #00c8
8741 C3D9 FD 00 3E        ..>   std 003e
8742 C3DC 20 4B            K    bra 4b
8743 C3DE F6 00 7C        ..|   ldab 007c
8744 C3E1 C1 02           ..    cmpb #02
8745 C3E3 23 15           #.    bls 15
8746 C3E5 F6 00 7C        ..|   ldab 007c
8747 C3E8 C1 06           ..    cmpb #06
8748 C3EA 24 0E           $.    bcc 0e
8749 C3EC CE 00 15        ...   ldx #0015
8750 C3EF 1C 00           ..    bset 00,x, #04
8751 C3F2 CC 01 F4        ...   ldd #01f4
8752 C3F5 FD 00 3E        ..>   std 003e
8753 C3F8 20 2F            /    bra 2f
8754 C3FA F6 00 7C        ..|   ldab 007c
8755 C3FD C1 05           ..    cmpb #05
8756 C3FF 23 15           #.    bls 15
8757 C401 F6 00 7C        ..|   ldab 007c
8758 C404 C1 0B           ..    cmpb #0b
8759 C406 24 0E           $.    bcc 0e
8760 C408 CE 00 15        ...   ldx #0015
8761 C40B 1C 00 08        ..    bset 00,x, #08
8762 C40E CC 03 E8        ...   ldd #03e8
8763 C411 FD 00 3E        ..>   std 003e
8764 C414 20 13            .    bra 13      ; to c429
8765 C416 F6 00 7C        ..|   ldab 007c
8766 C419 C1 0B           ..    cmpb #0b
8767 C41B 23 0C           #.    bls 0c
8768 C41D CE 00 15        ...   ldx #0015
8769 C420 1C 00 10        ..    bset 00,x, #10
8770 C423 CC 07 D0        ...   ldd #07d0
8771 C426 FD 00 3E        ..>   std 003e
8772 goto38:
8773 C429 7F 00 7D        ..}   clr 007d
8774 C42C 7F 00 7E        ..~   clr 007e
8775 goto36:
8776 C42F 39              9     rts
8777
8778 jump26:
8779 ; tweaks the changer output lines (at 3000) that correspond with the bitmask of
8780 ; 0001. It pulls the lines with 1 set in the bitmask low (active) for 100ms
8781 C430 F6 00 01        ...   ldab 0001
8782 C433 53              S     comb
8783 C434 F4 00 1A        ...   andb 001a    ; 0x3000 buffer - changer outputs
8784 C437 F7 00 1A        ...   stab 001a
8785 C43A F6 00 1A        ...   ldab 001a
8786 C43D F7 30 00        .0.   stab 3000    ; coin mask
8787 C440 CC 00 64        ..d   ldd #0064
8788 C443 BD E5 71        ..q   jsr e571             ;msdelay
8789 C446 F6 00 01        ...   ldab 0001
8790 C449 FA 00 1A        ...   orb 001a
8791 C44C F7 00 1A        ...   stab 001a
8792 C44F F6 00 1A        ...   ldab 001a
8793 C452 F7 30 00        .0.   stab 3000    ; changer outputs again
8794 C455 39              9     rts
8795
8796 jump47:
8797 C456 FC 00 40        ..@   ldd 0040
8798 C459 26 03           &.    bne 03
8799 C45B 7E C5 C6        ~..   jmp c5c6             ;goto39
8800 C45E CE 00 1A        ...   ldx #001a
8801 C461 1C 00 01        ..    bset 00,x, #01
8802 C464 F6 00 1A        ...   ldab 001a
8803 C467 F7 30 00        .0.   stab 3000    ; changer accept off
8804 C46A CC 03 E8        ...   ldd #03e8
8805 C46D BD E5 71        ..q   jsr e571             ;msdelay
8806 goto42:
8807 C470 FC 00 40        ..@   ldd 0040
8808 C473 83 00 00        ...   subd #0000
8809 C476 22 03           ".    bhi 03
8810 C478 7E C5 B0        ~..   jmp c5b0             ;goto40
8811 C47B F6 00 1B        ...   ldab 001b
8812 C47E C4 20           .     andb #20
8813 C480 27 1B           '.    beq 1b
8814 C482 FC 00 40        ..@   ldd 0040
8815 C485 83 03 E8        ...   subd #03e8
8816 C488 25 13           %.    bcs 13
8817 C48A C6 28           .(    ldab #28
8818 C48C F7 00 01        ...   stab 0001
8819 C48F CC FC 18        ...   ldd #fc18
8820 C492 F3 00 40        ..@   addd 0040
8821 C495 FD 00 40        ..@   std 0040
8822 C498 8D 96           ..    bsr dest 96
8823 C49A 7E C5 7C        ~.|   jmp c57c             ;goto41
8824 C49D F6 00 1B        ...   ldab 001b
8825 C4A0 C4 20           .     andb #20
8826 C4A2 27 1C           '.    beq 1c
8827 C4A4 FC 00 40        ..@   ldd 0040
8828 C4A7 83 00 64        ..d   subd #0064
8829 C4AA 25 14           %.    bcs 14
8830 C4AC C6 30           .0    ldab #30
8831 C4AE F7 00 01        ...   stab 0001
8832 C4B1 CC FF 9C        ...   ldd #ff9c
8833 C4B4 F3 00 40        ..@   addd 0040
8834 C4B7 FD 00 40        ..@   std 0040
8835 C4BA BD C4 30        ..0   jsr c430             ;jump26
8836 C4BD 7E C5 7C        ~.|   jmp c57c             ;goto41
8837 C4C0 FC 0B DD        ...   ldd 0bdd
8838 C4C3 27 3C           '<    beq 3c
8839 C4C5 FC 00 40        ..@   ldd 0040
8840 C4C8 B3 0B DD        ...   subd 0bdd
8841 C4CB 25 34           %4    bcs 34
8842 C4CD F6 0C DB        ...   ldab 0cdb
8843 C4D0 26 07           &.    bne 07
8844 C4D2 F6 00 1B        ...   ldab 001b
8845 C4D5 C4 20           .     andb #20
8846 C4D7 27 28           '(    beq 28
8847 C4D9 FC 0B DD        ...   ldd 0bdd
8848 C4DC 53              S     comb
8849 C4DD 43              C     coma
8850 C4DE F9 00 41        ..A   adcb 0041
8851 C4E1 B9 00 40        ..@   adca 0040
8852 C4E4 FD 00 40        ..@   std 0040
8853 C4E7 F6 0B DA        ...   ldab 0bda
8854 C4EA F7 00 01        ...   stab 0001
8855 C4ED BD C4 30        ..0   jsr c430             ;jump26
8856 C4F0 F6 00 1B        ...   ldab 001b
8857 C4F3 C4 20           .     andb #20
8858 C4F5 26 08           &.    bne 08
8859 C4F7 F6 0C DB        ...   ldab 0cdb
8860 C4FA 27 03           '.    beq 03
8861 C4FC 7A 0C DB        z..   dec 0cdb
8862 C4FF 20 7B            {    bra 7b
8863 C501 FC 0B DF        ...   ldd 0bdf
8864 C504 27 3C           '<    beq 3c
8865 C506 FC 00 40        ..@   ldd 0040
8866 C509 B3 0B DF        ...   subd 0bdf
8867 C50C 25 34           %4    bcs 34
8868 C50E F6 0C DA        ...   ldab 0cda
8869 C511 26 07           &.    bne 07
8870 C513 F6 00 1B        ...   ldab 001b
8871 C516 C4 20           .     andb #20
8872 C518 27 28           '(    beq 28
8873 C51A FC 0B DF        ...   ldd 0bdf
8874 C51D 53              S     comb
8875 C51E 43              C     coma
8876 C51F F9 00 41        ..A   adcb 0041
8877 C522 B9 00 40        ..@   adca 0040
8878 C525 FD 00 40        ..@   std 0040
8879 C528 F6 0B DB        ...   ldab 0bdb
8880 C52B F7 00 01        ...   stab 0001
8881 C52E BD C4 30        ..0   jsr c430             ;jump26
8882 C531 F6 00 1B        ...   ldab 001b
8883 C534 C4 20           .     andb #20
8884 C536 26 08           &.    bne 08
8885 C538 F6 0C DA        ...   ldab 0cda
8886 C53B 27 03           '.    beq 03
8887 C53D 7A 0C DA        z..   dec 0cda
8888 C540 20 3A            :    bra 3a
8889 C542 FC 0B E1        ...   ldd 0be1
8890 C545 27 30           '0    beq 30
8891 C547 FC 00 40        ..@   ldd 0040
8892 C54A B3 0B E1        ...   subd 0be1
8893 C54D 25 28           %(    bcs 28
8894 C54F FC 0B E1        ...   ldd 0be1
8895 C552 53              S     comb
8896 C553 43              C     coma
8897 C554 F9 00 41        ..A   adcb 0041
8898 C557 B9 00 40        ..@   adca 0040
8899 C55A FD 00 40        ..@   std 0040
8900 C55D F6 0B DC        ...   ldab 0bdc
8901 C560 F7 00 01        ...   stab 0001
8902 C563 BD C4 30        ..0   jsr c430             ;jump26
8903 C566 F6 00 1B        ...   ldab 001b
8904 C569 C4 20           .     andb #20
8905 C56B 26 08           &.    bne 08
8906 C56D F6 0C D9        ...   ldab 0cd9
8907 C570 27 03           '.    beq 03
8908 C572 7A 0C D9        z..   dec 0cd9
8909 C575 20 05            .    bra 05
8910 C577 5F              _     clrb
8911 C578 4F              O     clra
8912 C579 FD 00 40        ..@   std 0040
8913 goto41:
8914 C57C CC 01 2C        ..,   ldd #012c
8915 C57F BD E5 71        ..q   jsr e571             ;msdelay
8916 C582 F6 00 1B        ...   ldab 001b
8917 C585 C4 20           .     andb #20
8918 C587 26 24           &$    bne 24
8919 C589 CE 00 1A        ...   ldx #001a
8920 C58C 1D 00 01        ..    bclr 00,x, #01
8921 C58F F6 00 1A        ...   ldab 001a
8922 C592 F7 30 00        .0.   stab 3000    ; changer accept' low
8923 C595 CC 00 0C        ...   ldd #000c
8924 C598 BD E5 71        ..q   jsr e571             ;msdelay
8925 C59B CE 00 1A        ...   ldx #001a
8926 C59E 1C 00 01        ..    bset 00,x, #01
8927 C5A1 F6 00 1A        ...   ldab 001a
8928 C5A4 F7 30 00        .0.   stab 3000    ; changer accept' high
8929 C5A7 CC 00 23        ..#   ldd #0023
8930 C5AA BD E5 71        ..q   jsr e571             ;msdelay
8931 C5AD 7E C4 70        ~.p   jmp c470             ;goto42
8932 goto40:
8933 C5B0 F6 0B C0        ...   ldab 0bc0
8934 C5B3 C4 04           ..    andb #04
8935 C5B5 27 0F           '.    beq 0f
8936 C5B7 F6 00 1B        ...   ldab 001b
8937 C5BA C4 20           .     andb #20
8938 C5BC 27 08           '.    beq 08
8939 C5BE C6 38           .8    ldab #38
8940 C5C0 F7 00 01        ...   stab 0001
8941 C5C3 BD C4 30        ..0   jsr c430             ;jump26
8942 goto39:
8943 C5C6 CE 00 21        ..!   ldx #0021
8944 C5C9 1D 00 10        ...   bclr 00,x, #10
8945 C5CC CE 00 1B        ...   ldx #001b
8946 C5CF 1D 00           ..    bclr add,x 00,x
8947 C5D1 20 39            9    bra 39
8948
8949 jump6:
8950 C5D3 F6 00 15        ...   ldab 0015
8951 C5D6 C4 1F           ..    andb #1f
8952 C5D8 26 03           &.    bne 03
8953 C5DA 7E C6 7C        ~.|   jmp c67c             ;goto43
8954 C5DD CC 00 C8        ...   ldd #00c8
8955 C5E0 BD E5 71        ..q   jsr e571             ;msdelay
8956 C5E3 FC 00 3E        ..>   ldd 003e
8957 C5E6 27 58           'X    beq 58
8958 C5E8 F6 00 15        ...   ldab 0015
8959 C5EB C4 1F           ..    andb #1f
8960 C5ED 4F              O     clra
8961 C5EE BD FE 32        ..2   jsr fe32             ;jump25
8962 C5F1 C6 0B 00 01     ..    ; array data for jump25
8963 C5F5 C6 16 00 01     ..
8964 C5F9 C6 21 00 02     .!
8965 C5FD C6 2C 00 04     .,
8966 C601 C6 37 00 08     .7
8967 C605 C6 40 FF F0     .@
8968 C609 00 00           ..    ;end of array data
8969 C60B CC FF 9C        ...   ldd #ff9c
8970 C60E F3 00 3E        ..>   addd 003e
8971 C611 FD 00 3E        ..>   std 003e
8972 C614 20 2A            *    bra 2a
8973 C616 CC FF 38        ..8   ldd #ff38
8974 C619 F3 00 3E        ..>   addd 003e
8975 C61C FD 00 3E        ..>   std 003e
8976 C61F 20 1F            .    bra 1f
8977 C621 CC FE 0C        ...   ldd #fe0c
8978 C624 F3 00 3E        ..>   addd 003e
8979 C627 FD 00 3E        ..>   std 003e
8980 C62A 20 14            .    bra 14
8981 C62C CC FC 18        ...   ldd #fc18
8982 C62F F3 00 3E        ..>   addd 003e
8983 C632 FD 00 3E        ..>   std 003e
8984 C635 20 09            .    bra 09
8985 C637 CC F8 30        ..0   ldd #f830
8986 C63A F3 00 3E        ..>   addd 003e
8987 C63D FD 00 3E        ..>   std 003e
8988 C640 CE 00 14        ...   ldx #0014
8989 C643 1D 00 02        ...   bclr 00,x, #02
8990 C646 F6 00 14        ...   ldab 0014
8991 C649 F7 38 00        .8.   stab 3800    ; bill acceptor
8992 C64C CC 00 1E        ...   ldd #001e
8993 C64F BD E5 71        ..q   jsr e571             ;msdelay
8994 C652 CE 00 15        ...   ldx #0015
8995 C655 1D 00           ..    bclr add,x 00,x
8996 C657 1F CE 00 14     ....  brclr ce,x 00 14
8997 C65B 1C 00 02        ...   bset 00,x, #02
8998 C65E F6 00 14        ...   ldab 0014
8999 C661 F7 38 00        .8.   stab 3800    ; bill acceptor
9000 C664 CC 00 19        ...   ldd #0019
9001 C667 BD E5 71        ..q   jsr e571             ;msdelay
9002 C66A CE 00 14        ...   ldx #0014
9003 C66D 1C 00 01        ..    bset 00,x, #01
9004 C670 F6 00 14        ...   ldab 0014
9005 C673 F7 38 00        .8.   stab 3800    ; bill acceptor
9006 C676 CC 00 19        ...   ldd #0019
9007 C679 BD E5 71        ..q   jsr e571             ;msdelay
9008 goto43:
9009 C67C 39              9     rts
9010
9011 jump124:
9012 ; chat to changer
9013 C67D F6 00 30        ..0   ldab 0030
9014 C680 26 55           &U    bne 55
9015 C682 F6 0B C0        ...   ldab 0bc0
9016 C685 C4 04           ..    andb #04
9017 C687 26 4E           &N    bne 4e
9018 C689 C6 27           .'    ldab #27
9019 C68B F7 10 2D        ..-   stab 102d    ; disable SCI transmission
9020 C68E C6 07           ..    ldab #07
9021 C690 F7 10 2B        ..+   stab 102b    ; 600 baud
9022 C693 CE 00 1A        ...   ldx #001a
9023 C696 1C 00           ..    bset 00,x, #04
9024 C699 F6 00 1A        ...   ldab 001a
9025 C69C F7 30 00        .0.   stab 3000    ; keypad strobe
9026 C69F CC 00 14        ...   ldd #0014
9027 C6A2 BD E5 71        ..q   jsr e571             ;msdelay
9028 C6A5 F6 0B C0        ...   ldab 0bc0
9029 C6A8 C4 01           ..    andb #01
9030 C6AA 27 06           '.    beq 06
9031 C6AC CE 0B C1        ...   ldx #0bc1
9032 C6AF 1C 00 01        ...   bset 00,x, #01
9033 C6B2 F6 0B C0        ...   ldab 0bc0
9034 C6B5 C4 04           ..    andb #04
9035 C6B7 27 06           '.    beq 06
9036 C6B9 CE 0B C1        ...   ldx #0bc1
9037 C6BC 1C 00 02        ...   bset 00,x, #02
9038 C6BF CE 00 1A        ...   ldx #001a
9039 C6C2 1D 00 04        ...   bclr 00,x, #04  ; keypad strobe finish
9040 C6C5 F6 00 1A        ...   ldab 001a
9041 C6C8 F7 30 00        .0.   stab 3000
9042 C6CB C6 96           ..    ldab #96
9043 C6CD F7 00 30        ..0   stab 0030
9044 C6D0 C6 1E           ..    ldab #1e
9045 C6D2 F7 00 35        ..5   stab 0035
9046 C6D5 20 5D            ]    bra 5d
9047 C6D7 F6 18 00        ...   ldab 1800
9048 C6DA 2D 2A           -*    blt 2a
9049 C6DC F6 00 07        ...   ldab 0007
9050 C6DF 26 25           &%    bne 25
9051 C6E1 CE 00 1A        ...   ldx #001a
9052 C6E4 1D 00 02        ...   bclr 00,x, #02
9053 C6E7 F6 00 1A        ...   ldab 001a
9054 C6EA F7 30 00        .0.   stab 3000       ; changer send' low
9055 C6ED C6 64           .d    ldab #64
9056 C6EF F7 00 2D        ..-   stab 002d
9057 C6F2 CC 00 32        ..2   ldd #0032
9058 C6F5 BD E5 71        ..q   jsr e571             ;msdelay
9059 C6F8 CE 00 1A        ...   ldx #001a
9060 C6FB 1C 00 02        ...   bset 00,x, #02
9061 C6FE F6 00 1A        ...   ldab 001a
9062 C701 F7 30 00        .0.   stab 3000       ; changer send' high
9063 C704 20 2E            .    bra 2e
9064 C706 F6 00 2D        ..-   ldab 002d
9065 C709 26 29           &)    bne 29
9066 C70B CE 00 1A        ...   ldx #001a
9067 C70E 1D 00 01        ...   bclr 00,x, #01
9068 C711 F6 00 1A        ...   ldab 001a
9069 C714 F7 30 00        .0.   stab 3000     ; changer accept' low
9070 C717 CC 00 0C        ...   ldd #000c
9071 C71A BD E5 71        ..q   jsr e571             ;msdelay
9072 C71D CE 00 1A        ...   ldx #001a
9073 C720 1C 00 01        ...   bset 00,x, #01
9074 C723 F6 00 1A        ...   ldab 001a
9075 C726 F7 30 00        .0.   stab 3000     ; changer accept' high
9076 C729 CC 00 23        ..#   ldd #0023
9077 C72C BD E5 71        ..q   jsr e571             ;msdelay
9078 C72F C6 64           .d    ldab #64
9079 C731 F7 00 2D        ..-   stab 002d
9080 C734 F6 00 21        ..!   ldab 0021
9081 C737 C4 10           ..    andb #10
9082 C739 27 45           'E    beq 45
9083 C73B F6 00 11        ...   ldab 0011
9084 C73E C4 04           ..    andb #04
9085 C740 26 1A           &.    bne 1a
9086 C742 FC 00 40        ..@   ldd 0040
9087 C745 F3 00 3E        ..>   addd 003e
9088 C748 B3 00 50        ..P   subd 0050
9089 C74B 25 0F           %.    bcs 0f
9090 C74D F6 0B C0        ...   ldab 0bc0
9091 C750 C4 04           ..    andb #04
9092 C752 26 08           &.    bne 08
9093 C754 CE 00 21        ..!   ldx #0021
9094 C757 1D 00 10        ...   bclr 00,x, #10
9095 C75A 20 24            $    bra 24
9096 C75C F6 0B C0        ...   ldab 0bc0
9097 C75F C4 08           ..    andb #08
9098 C761 27 03           '.    beq 03
9099 C763 BD C5 D3        ...   jsr c5d3             ;jump6
9100 C766 FC 0B DD        ...   ldd 0bdd
9101 C769 26 12           &.    bne 12
9102 C76B FC 0B DF        ...   ldd 0bdf
9103 C76E 26 0D           &.    bne 0d
9104 C770 FC 0B E1        ...   ldd 0be1
9105 C773 26 08           &.    bne 08
9106 C775 CE 00 21        ..!   ldx #0021
9107 C778 1D 00 10        ...   bclr 00,x, #10
9108 C77B 20 03            .    bra 03
9109 C77D BD C4 56        ..V   jsr c456             ;jump47
9110 C780 F6 00 15        ...   ldab 0015
9111 C783 2D 08           -.    blt 08
9112 C785 CE 00 21        ..!   ldx #0021
9113 C788 1C 00 08        ...   bset 00,x, #08
9114 C78B 20 06            .    bra 06
9115 C78D CE 00 21        ..!   ldx #0021
9116 C790 1D 00 08        ...   bclr 00,x, #08
9117 C793 39              9     rts
9118
9119 ;proc(a,b) var local
9120 ;local=0
9121 ;while b<>0
9122 ;
9123 ;endwhile
9124 ;return local
9125
9126 ; tests parity?
9127 C794 37              7     pshb
9128 C795 36              6     psha
9129 C796 34              4     des          ;stack: 0=local, 1=A, 2=B
9130 C797 30              0     tsx
9131 C798 6F 00           o.    clr 00,x
9132 loop:
9133 C79A 30              0     tsx
9134 C79B E6 02           ..    ldab 02,x
9135 C79D 27 1A           '.    beq exit     ;c7b9
9136 C79F 30              0     tsx
9137 C7A0 1F 02 01 0D     ....  brclr 02,x 01 skip   ;c7b1
9138 C7A4 30              0     tsx
9139 C7A5 E6 00           ..    ldab 00,x
9140 C7A7 27 05           '.    beq else     ;c7ae
9141 C7A9 30              0     tsx
9142 C7AA 6A 00           j.    dec 00,x
9143 C7AC 20 03            .    bra skip     ;c7b1
9144 else:
9145 C7AE 30              0     tsx
9146 C7AF 6C 00           l.    inc 00,x
9147 skip:
9148 C7B1 30              0     tsx
9149 C7B2 E6 02           ..    ldab 02,x
9150 C7B4 54              T     lsrb
9151 C7B5 E7 02           ..    stab 02,x
9152 C7B7 20 E1            .    bra loop     ;c79a
9153 exit:
9154 C7B9 30              0     tsx
9155 C7BA E6 00           ..    ldab 00,x
9156 C7BC 4F              O     clra
9157 C7BD 38              8     pulx
9158 C7BE 31              1     ins
9159 C7BF 39              9     rts
9160
9161 jump49:
9162 ; parity tester. returns 0 if good
9163 C7C0 F6 10 2F        ../   ldab 102f            ; sci data
9164 C7C3 4F              O     clra
9165 C7C4 8D CE           ..    bsr c794         ; parity test?
9166 C7C6 83 00 00        ...   subd #0000
9167 C7C9 27 05           '.    beq 05
9168 C7CB F6 10 2C        ..,   ldab 102c        ; test the 9th bit
9169 C7CE 2D 10           -.    blt 10           ; to c7e0
9170 C7D0 F6 10 2F        ../   ldab 102f            ; sci data
9171 C7D3 4F              O     clra
9172 C7D4 8D BE           ..    bsr c794         ; parity test?
9173 C7D6 83 00 00        ...   subd #0000
9174 C7D9 26 09           &.    bne 09           ; to c7e4
9175 C7DB F6 10 2C        ..,   ldab 102c        ; test the 9th bit
9176 C7DE 2D 04           -.    blt 04
9177 C7E0 CC 00 01        ...   ldd #0001        ; return 1
9178 C7E3 39              9     rts
9179 ; return 0
9180 C7E4 5F              _     clrb
9181 C7E5 4F              O     clra
9182 C7E6 39              9     rts
9183
9184
9185 ;this might send a byte to the serial port
9186 jump37:
9187 C7E7 37              7     pshb
9188 C7E8 36              6     psha
9189 C7E9 C6 32           .2    ldab #32    ; 50
9190 C7EB F7 00 31        ..1   stab 0031
9191 C7EE 30              0     tsx
9192 C7EF E6 01           ..    ldab 01,x
9193 C7F1 F7 00 43        ..C   stab 0043
9194 ; poll the TD register empty flag until it's set
9195 C7F4 F6 10 2E        ...   ldab 102e
9196 C7F7 2D 02           -.    blt 02      ; transmit data register empty
9197 C7F9 20 F9            .    bra f9      ; to c7f4
9198 ;
9199 C7FB 30              0     tsx
9200 C7FC E6 01           ..    ldab 01,x
9201 C7FE 4F              O     clra
9202 C7FF 8D 93           ..    bsr 93 ; to c794 - generate parity bit?
9203 C801 83 00 00        ...   subd #0000
9204 C804 27 08           '.    beq 08
9205 C806 CE 10 2C        ..,   ldx #102c
9206 C809 1C 00 40        ...   bset 00,x, #40   ; set the 9th bit
9207 C80C 20 06            .    bra 06
9208 C80E CE 10 2C        ..,   ldx #102c    ;SCI control 1
9209 C811 1D 00 40        ...   bclr 00,x, #40   ; clear the 9th bit
9210 C814 30              0     tsx
9211 C815 E6 01           ..    ldab 01,x
9212 C817 F7 10 2F        ../   stab 102f     ; send to serial port
9213 C81A 38              8     pulx
9214 C81B 39              9     rts
9215
9216
9217
9218
9219 sciinterrupt:
9220 C81C 34              4     des
9221 C81D F6 0B C0        ...   ldab 0bc0
9222 C820 C4 01           ..    andb #01
9223 C822 26 0A           &.    bne 0e       ; to c82e
9224 C824 F6 0B C0        ...   ldab 0bc0
9225 C827 C4 04           ..    andb #04
9226 C829 26 03           &.    bne 03       ; to c82e
9227 C82B 7E CB FF        ~..   jmp cbff             ;goto44
9228 C82E C6 96           ..    ldab #96     ; 150
9229 C830 F7 00 30        ..0   stab 0030
9230 C833 F6 10 2E        ...   ldab 102e    ; SCI status
9231 C836 C4 02           ..    andb #02     ; test for Framing Error
9232 C838 26 0B           &.    bne 0b       ; if so, to c845
9233 C83A F6 10 2F        ../   ldab 102f    ; read SCI data
9234 C83D F1 00 26        ..&   cmpb 0026
9235 C840 26 03           &.    bne 03
9236 C842 7E C9 1B        ~..   jmp c91b             ;goto45
9237 ;
9238 C845 F6 10 2F        ../   ldab 102f    ; read SCI data
9239 C848 C4 63           .c    andb #63     ; 01100110
9240 C84A C1 23           .#    cmpb #23     ; 00100110
9241 C84C 27 03           '.    beq 03
9242 C84E 7E C8 E7        ~..   jmp c8e7             ;goto46 - pulse send' of changer
9243 ; doesnt return
9244 C851 F6 00 1A        ...   ldab 001a    ; register 3000 buffer
9245 C854 C4 01           ..    andb #01     ; accept' line of changer
9246 C856 26 03           &.    bne 03
9247 C858 7E C8 E7        ~..   jmp c8e7             ;goto46 - pulse send' of changer
9248 ; doesnt return
9249 C85B F6 00 21        ..!   ldab 0021
9250 C85E C4 F8           ..    andb #f8     ; 11111000
9251 C860 37              7     pshb
9252 C861 F6 10 2F        ../   ldab 102f    ; read SCI data
9253 C864 C4 1C           ..    andb #1c     ; 00011100
9254 C866 54              T     lsrb         ;    ^^^
9255 C867 54              T     lsrb         ; get these bits out
9256 C868 30              0     tsx
9257 C869 EA 00           ..    orb 00,x     ; or it with the thing just above
9258 C86B 31              1     ins
9259 C86C F7 00 21        ..!   stab 0021
9260 C86F F6 00 21        ..!   ldab 0021
9261 C872 F4 0B D7        ...   andb 0bd7    ; if (0021 & 0bd7)
9262 C875 27 08           '.    beq 08       ; is false
9263 C877 CE 00 17        ...   ldx #0017
9264 C87A 1C 00 20        ..    bset 00,x, #20
9265 C87C 20 18                 bra 18
9266 C87F F6 00 17        ...   ldab 0017    ; if true
9267 C882 C4 20           .     andb #20
9268 C884 27 11           '.    beq 11       ; if unset to c897 (break out of if)
9269 C886 CE 00 17        ...   ldx #0017
9270 C889 1D 00           ..    bclr 00,x, #20
9271 C88C C6 04            .    andb #04
9272 C88E F7 0C DB        ...   stab 0cdb
9273 C891 CE 0B C1        ...   ldx #0bc1
9274 C894 1C 00 40        ...   bset 00,x, #40 ;endif
9275 C897 F6 00 21        ..!   ldab 0021
9276 C89A F4 0B D8        ...   andb 0bd8
9277 C89D 27 08           '.    beq 08           ; to c8a7
9278 C89F CE 00 17        ...   ldx #0017
9279 C8A2 1C 00 40        ...   bset 00,x, #40
9280 C8A5 20 18            .    bra 18           ; to c8cf
9281 ;
9282 C8A7 F6 00 17        ...   ldab 0017
9283 C8AA C4 40           .@    andb #40
9284 C8AC 27 11           '.    beq 11            ; to c8bf if unset
9285 C8AE CE 00 17        ...   ldx #0017
9286 C8B1 1D 00 40        ...   bclr 00,x, #40
9287 C8B4 C6 04           ..    ldab #04
9288 C8B6 F7 0C DA        ...   stab 0cda
9289 C8B9 CE 0B C1        ...   ldx #0bc1
9290 C8BC 1C 00 40        ...   bset 00,x, #40
9291 ; if 0021 & 0bd9, then set bit 7 of 0017, else unset it.
9292 C8BF F6 00 21        ..!   ldab 0021
9293 C8C2 F4 0B D9        ...   andb 0bd9
9294 C8C5 27 08           '.    beq 08
9295 C8C7 CE 00 17        ...   ldx #0017
9296 C8CA 1C 00 80        ..    bset 00,x, #80
9297 C8CC 20 16           .     bra 16     ; to c8e5
9298 ;
9299 C8CF F6 00 17        ...   ldab 0017
9300 C8D2 2C 11           ,.    bge 11     ; to c8e5
9301 C8D4 CE 00 17        ...   ldx #0017
9302 C8D7 1D 00           ..    bclr 00,x, #80
9303 ; set counter to 4?
9304 C8D9 C6 04           ..    ldab #04
9305 C8DC F7 0C D9        ...   stab 0cd9
9306 ; set tube error bit
9307 C8DF CE 0B C1        ...   ldx #0bc1
9308 C8E2 1C 00 40        ...   bset 00,x, #40
9309 C8E5 20 31            1    bra 31          ; to c918
9310 ;
9311 goto46: ; pulse the send' line of the changer
9312 C8E7 F6 10 2F        ../   ldab 102f    ; read SCI data
9313 C8EA F7 00 26        ..&   stab 0026
9314 C8ED CE 00 1A        ...   ldx #001a
9315 C8F0 1C 00 02        ...   bset 00,x, #02
9316 C8F3 F6 00 1A        ...   ldab 001a
9317 C8F6 F7 30 00        .0.   stab 3000    ; changer send' high
9318 C8F9 F6 00 3D        ..=   ldab 003d
9319 C8FC C4 04           ..    andb #04
9320 C8FE 26 18           &.    bne 18       ; to c918
9321 C900 CC 00 03        ...   ldd #0003
9322 C903 BD E5 71        ..q   jsr e571             ;msdelay
9323 C906 CE 00 1A        ...   ldx #001a
9324 C909 1D 00 02        ...   bclr 00,x, #02
9325 C90C F6 00 1A        ...   ldab 001a
9326 C90F F7 30 00        .0.   stab 3000    ; changer send' low
9327 C912 7C 00 3D        |.=   inc 003d
9328 C915 7E CE 46        ~.F   jmp ce46             ;goto47 (exit)
9329 C918 7E CB DA        ~..   jmp cbda             ;goto48 (clean exit)
9330 ;
9331 goto45:
9332 C91B F6 00 08        ...   ldab 0008
9333 C91E 26 03           &.    bne 03
9334 C920 7E CA 5F        ~._   jmp ca5f             ;goto49
9335 C923 F6 00 17        ...   ldab 0017
9336 C926 C4 04           ..    andb #04
9337 C928 26 03           &.    bne 03
9338 C92A 7E CA 5F        ~._   jmp ca5f             ;goto49
9339 C92D F6 00 17        ...   ldab 0017
9340 C930 C4 08           ..    andb #08
9341 C932 26 03           &.    bne 03
9342 C934 7E CA 5F        ~._   jmp ca5f             ;goto49
9343 C937 F6 10 2F        ../   ldab 102f    ; read SCI data
9344 C93A C1 FF           ..    cmpb #ff
9345 C93C 27 07           '.    beq 07       ; to c945
9346 C93E F6 00 08        ...   ldab 0008
9347 C941 C1 0E           ..    cmpb #0e     ; if > 14
9348 C943 25 12           %.    bcs 12       ; to c957
9349 C945 CE 00 17        ...   ldx #0017
9350 C948 1D 00 04        ...   bclr 00,x, #04
9351 C94B 7F 00 08        ...   clr 0008
9352 C94E BD CE 48        ..H   jsr ce48             ;jump48
9353 C951 7F 00 2C        ..,   clr 002c
9354 C954 7E CA 5C        ~.\   jmp ca5c             ;goto50 - clean exit
9355 ;
9356 C957 F6 00 08        ...   ldab 0008
9357 C95A 4F              O     clra
9358 C95B BD FE 16        ...   jsr fe16             ;jump2
9359 C95E 00 01 00 0C     .
9360 C962 CA 59           .Y    ; inc 0008 and clean exit
9361 C964 C9 7E           .~    ; read byte into 0bc2
9362 C966 C9 87           ..    ; read byte into 0bc3 & ^10 and stuff
9363 C968 C9 DF           ..    ; read byte into 0bc4 & stuff
9364 C96A C9 F3           ..    ; read byte into 0bc5 & stuff
9365 C96C CA 07           ..    ; read byte into 0bc6 & stuff
9366 C96E CA 1B           ..    ; read byte into 0bc7 only
9367 C970 CA 23           .#    ; read byte into 0bc8 only
9368 C972 CA 2B           .+    ; read byte into 0bc9 only
9369 C974 CA 33           .3    ; read byte into 0bca only
9370 C976 CA 3B           .;    ; read byte into 0bcb only
9371 C978 CA 43           .C    ; read byte into 0bcc only
9372 C97A CA 4B           .K    ; read byte into 0bcd only
9373 C97C CA 53           .S    ; read byte into 0bce only
9374 C97E F6 10 2F        ../   ldab 102f    ; read SCI data
9375 C981 F7 0B C2        ...   stab 0bc2
9376 C984 7E CA 59        ~.Y   jmp ca59             ;goto51 - inc 0008 and exit
9377 ;
9378 C987 F6 10 2F        ../   ldab 102f    ; read SCI data
9379 C98A F7 0B E3        ...   stab 0be3
9380 C98D F6 10 2F        ../   ldab 102f    ; read SCI data
9381 C990 C4 0F           ..    andb #0f
9382 C992 C1 01           ..    cmpb #01
9383 C994 26 07           &.    bne 07         ; to c99d
9384 C996 C6 02           ..    ldab #02
9385 C998 F7 00 13        ...   stab 0013
9386 C99B 20 1B            .    bra 1b         ; to c9b8
9387 C99D C1 02           ..    cmpb #02
9388 C99F 26 07           &.    bne 07         ; to c9a8
9389 C9A1 C6 04           ..    ldab #04
9390 C9A3 F7 00 13        ...   stab 0013
9391 C9A6 20 10            .    bra 10         ; to c9b8
9392 C9A8 C1 03           ..    cmpb #03
9393 C9AA 26 07           &.    bne 07         ; to c9b3
9394 C9AC C6 08           ..    ldab #08
9395 C9AE F7 00 13        ...   stab 0013
9396 C9B1 20 05            .    bra 05         ; to c9b8
9397 C9B3 C6 01           ..    ldab #01
9398 C9B5 F7 00 13        ...   stab 0013
9399 C9B8 F6 10 2F        ../   ldab 102f    ; read SCI data
9400 C9BB C4 F0           ..    andb #f0
9401 C9BD 54              T     lsrb
9402 C9BE 54              T     lsrb
9403 C9BF 54              T     lsrb
9404 C9C0 54              T     lsrb
9405 C9C1 F7 0B C3        ...   stab 0bc3
9406 C9C4 F6 0B C2        ...   ldab 0bc2
9407 C9C7 F7 0B AA        ...   stab 0baa
9408 ;;0baa^:=pow(10,0bc3^)  0bc3 is the top 4 bits from the serial port.
9409 ;while 0bc3^<>0
9410 ;  obaa^:=0baa^*10
9411 ;  obc3^:=0bc3-1
9412 ;endwhile
9413 C9CA F6 0B C3        ...   ldab 0bc3
9414 C9CD 27 0E           '.    beq c9dd
9415 C9CF F6 0B AA        ...   ldab 0baa
9416 C9D2 86 0A           ..    ldaa #0a
9417 C9D4 3D              =     mul
9418 C9D5 F7 0B AA        ...   stab 0baa
9419 C9D8 7A 0B C3        z..   dec 0bc3
9420 C9DB 20 ED            .    bra c9ca
9421 ;
9422 C9DD 20 7A            z    bra 7a       ;goto51 - inc 0008 & clean exit
9423 ;
9424 C9DF F6 10 2F        ../   ldab 102f    ; read SCI data
9425 C9E2 F7 0B C4        ...   stab 0bc4
9426 C9E5 F6 0B C4        ...   ldab 0bc4
9427 C9E8 C1 80           ..    cmpb #80
9428 C9EA 26 05           &.    bne 05
9429 C9EC C6 0F           ..    ldab #0f
9430 C9EE F7 0B C4        ...   stab 0bc4
9431 C9F1 20 66            f    bra 66       ;goto51 - inc 0008 & clean exit
9432 ;
9433 C9F3 F6 10 2F        ../   ldab 102f    ; read SCI data
9434 C9F6 F7 0B C5        ...   stab 0bc5
9435 C9F9 F6 0B C5        ...   ldab 0bc5
9436 C9FC C1 80           ..    cmpb #80
9437 C9FE 26 05           &.    bne 05
9438 CA00 C6 0F           ..    ldab #0f
9439 CA02 F7 0B C5        ...   stab 0bc5
9440 CA05 20 52            R    bra 52       ;goto51 - inc 0008 & clean exit
9441 ;
9442 CA07 F6 10 2F        ../   ldab 102f    ; read SCI data
9443 CA0A F7 0B C6        ...   stab 0bc6
9444 CA0D F6 0B C6        ...   ldab 0bc6
9445 CA10 C1 80           ..    cmpb #80
9446 CA12 26 05           &.    bne ca19
9447 CA14 C6 0F           ..    ldab #0f
9448 CA16 F7 0B C6        ...   stab 0bc6
9449 CA19 20 3E            >    bra 3e       ;goto51 - inc 0008 & clean exit
9450 ;
9451 ; read byte of data into 0bc7 - 0bce
9452 CA1B F6 10 2F        ../   ldab 102f    ; read SCI data
9453 CA1E F7 0B C7        ...   stab 0bc7
9454 CA21 20 36            6    bra 36
9455 ;
9456 CA23 F6 10 2F        ../   ldab 102f    ; read SCI data
9457 CA26 F7 0B C8        ...   stab 0bc8
9458 CA29 20 2E            .    bra 2e
9459 ;
9460 CA2B F6 10 2F        ../   ldab 102f    ; read SCI data
9461 CA2E F7 0B C9        ...   stab 0bc9
9462 CA31 20 26            &    bra 26
9463 ;
9464 CA33 F6 10 2F        ../   ldab 102f    ; read SCI data
9465 CA36 F7 0B CA        ...   stab 0bca
9466 CA39 20 1E            .    bra 1e
9467 ;
9468 CA3B F6 10 2F        ../   ldab 102f    ; read SCI data
9469 CA3E F7 0B CB        ...   stab 0bcb
9470 CA41 20 16            .    bra 16
9471 ;
9472 CA43 F6 10 2F        ../   ldab 102f    ; read SCI data
9473 CA46 F7 0B CC        ...   stab 0bcc
9474 CA49 20 0E            .    bra 0e
9475 ;
9476 CA4B F6 10 2F        ../   ldab 102f    ; read SCI data
9477 CA4E F7 0B CD        ...   stab 0bcd
9478 CA51 20 06            .    bra 06
9479 ;
9480 CA53 F6 10 2F        ../   ldab 102f    ; read SCI data
9481 CA56 F7 0B CE        ...   stab 0bce
9482 goto51:
9483 CA59 7C 00 08        |..   inc 0008
9484 goto50:
9485 CA5C 7E CB DA        ~..   jmp cbda             ;goto48 (clean exit)
9486 ;
9487 goto49:
9488 CA5F F6 10 2F        ../   ldab 102f    ; read SCI data
9489 CA62 C4 EF           ..    andb #ef     ; 11101111
9490 CA64 C1 E2           ..    cmpb #e2     ; 11100010
9491 CA66 26 1A           &.    bne 1a       ; if no match, to ca82
9492 CA68 CE 00 17        ...   ldx #0017
9493 CA6B 1C 00 08        ...   bset 00,x, #08
9494 CA6E CE 00 17        ...   ldx #0017
9495 CA71 1C 00 04        ...   bset 00,x, #04
9496 CA74 C6 01           ..    ldab #01
9497 CA76 F7 00 08        ...   stab 0008
9498 CA79 CE 0B C1        ...   ldx #0bc1
9499 CA7C 1D 00 01        ...   bclr 00,x, #01
9500 CA7F 7E CB DA        ~..   jmp cbda             ;goto48 (clean exit)
9501 ;
9502 CA82 F6 10 2F        ../   ldab 102f    ; read SCI data
9503 CA85 C4 02           ..    andb #02
9504 CA87 27 03           '.    beq 03       ; if bit is set then
9505 CA89 7E CB 6C        ~.l   jmp cb6c             ; goto52
9506 CA8C F6 10 2F        ../   ldab 102f    ; read SCI data
9507 CA8F 2C 38           ,8    bge 38       ; if bit 7 unset, to cac9
9508 CA91 F6 00 17        ...   ldab 0017
9509 CA94 C4 08           ..    andb #08
9510 CA96 26 31           &1    bne 31
9511 CA98 F6 10 2F        ../   ldab 102f    ; read SCI data
9512 CA9B C4 78           .x    andb #78     ; 01111000
9513 CA9D 54              T     lsrb
9514 CA9E 54              T     lsrb
9515 CA9F 54              T     lsrb
9516 CAA0 4F              O     clra
9517 CAA1 C3 0B C7        ...   addd #0bc7
9518 CAA4 8F              .     xgdx
9519 CAA5 E6 00           ..    ldab 00,x
9520 CAA7 4F              O     clra
9521 CAA8 37              7     pshb
9522 CAA9 36              6     psha
9523 CAAA F6 0B AA        ...   ldab 0baa
9524 CAAD 4F              O     clra
9525 CAAE BD FB BA        ...   jsr fbba             ;jump38 - multiply?
9526 CAB1 F3 00 40        ..@   addd 0040
9527 CAB4 FD 00 40        ..@   std 0040
9528 CAB7 CE 00 1B        ...   ldx #001b
9529 CABA 1C 00           ..    bset 00,x, #20
9530 CABD CE 00 1B        ...   ldx #001b
9531 CAC0 1D 00 40        ...   bclr 00,x, #40
9532 CAC3 7F 00 25        ..%   clr 0025
9533 CAC6 7E CB 64        ~.d   jmp cb64             ;goto53
9534 ;
9535 CAC9 F6 00 17        ...   ldab 0017
9536 CACC C4 08           ..    andb #08
9537 CACE 26 4A           &J    bne 4a       ;to cb1a
9538 CAD0 F6 10 2F        ../   ldab 102f    ; read SCI data
9539 CAD3 C4 60           .`    andb #60     ; 01100000
9540 CAD5 54              T     lsrb         ;  ^^^^
9541 CAD6 54              T     lsrb
9542 CAD7 54              T     lsrb
9543 CAD8 4F              O     clra
9544 CAD9 C3 0B C7        ...   addd #0bc7
9545 CADC 8F              .     xgdx
9546 CADD E6 00           ..    ldab 00,x
9547 CADF 4F              O     clra
9548 CAE0 37              7     pshb
9549 CAE1 36              6     psha
9550 CAE2 F6 0B AA        ...   ldab 0baa
9551 CAE5 4F              O     clra
9552 CAE6 BD FB BA        ...   jsr fbba             ;jump38 - multiply?
9553 CAE9 FD 0B BD        ...   std 0bbd
9554 CAEC FC 0B BD        ...   ldd 0bbd
9555 CAEF F3 00 40        ..@   addd 0040
9556 CAF2 FD 00 40        ..@   std 0040
9557 CAF5 F6 00 21        ..!   ldab 0021
9558 CAF8 C4 F8           ..    andb #f8     ; 11111000
9559 CAFA 37              7     pshb
9560 CAFB F6 10 2F        ../   ldab 102f    ; read SCI data
9561 CAFE C4 1C           ..    andb #1c     ; 00011100
9562 CB00 54              T     lsrb
9563 CB01 54              T     lsrb
9564 CB02 30              0     tsx
9565 CB03 EA 00           ..    orb 00,x     ; or lower 3 bits with 0021
9566 CB05 31              1     ins
9567 CB06 F7 00 21        ..!   stab 0021
9568 CB09 F6 10 2F        ../   ldab 102f    ; read SCI data
9569 CB0C F7 0B BC        ...   stab 0bbc
9570 CB0F CE 00 1B        ...   ldx #001b
9571 CB12 1D 00 40        ..    bclr 00,x, #40
9572 CB15 7F 00 25        ..%   clr 0025
9573 CB18 20 4A            J    bra 4a       ;goto53 - more cleanups and exit
9574 ;
9575 CB1A F6 10 2F        ../   ldab 102f    ; read SCI data
9576 CB1D C4 E0           ..    andb #e0     ; 11100000
9577 CB1F 54              T     lsrb
9578 CB20 54              T     lsrb
9579 CB21 54              T     lsrb
9580 CB22 54              T     lsrb
9581 CB23 54              T     lsrb          ; shr5
9582 CB24 4F              O     clra
9583 CB25 C3 0B C7        ...   addd #0bc7
9584 CB28 8F              .     xgdx
9585 CB29 E6 00           ..    ldab 00,x
9586 CB2B 4F              O     clra
9587 CB2C 37              7     pshb
9588 CB2D 36              6     psha
9589 CB2E F6 0B AA        ...   ldab 0baa
9590 CB31 4F              O     clra
9591 CB32 BD FB BA        ...   jsr fbba             ;jump38 - multiply?
9592 CB35 FD 0B BD        ...   std 0bbd
9593 CB38 FC 0B BD        ...   ldd 0bbd
9594 CB3B F3 00 40        ..@   addd 0040
9595 CB3E FD 00 40        ..@   std 0040
9596 CB41 F6 00 21        ..!   ldab 0021
9597 CB44 C4 F8           ..    andb #f8
9598 CB46 37              7     pshb
9599 CB47 F6 10 2F        ../   ldab 102f    ; read SCI data
9600 CB4A C4 1C           ..    andb #1c
9601 CB4C 54              T     lsrb
9602 CB4D 54              T     lsrb
9603 CB4E 30              0     tsx
9604 CB4F EA 00           ..    orb 00,x
9605 CB51 31              1     ins
9606 CB52 F7 00 21        ..!   stab 0021
9607 CB55 F6 10 2F        ../   ldab 102f    ; read SCI data
9608 CB58 F7 0B BC        ...   stab 0bbc
9609 CB5B CE 00 1B        ...   ldx #001b
9610 CB5E 1D 00 40        ...   bclr 00,x, #40
9611 CB61 7F 00 25        ..%   clr 0025
9612 goto53: ; more cleanups and exit
9613 CB64 7F 00 2C        ..,   clr 002c
9614 CB67 7F 00 3A        ..:   clr 003a
9615 CB6A 20 6E            n    bra 6e       ; to cbda - cleanup and exit
9616 goto52:
9617 CB6C F6 10 2F        ../   ldab 102f    ; read SCI data
9618 CB6F C4 03           ..    andb #03
9619 CB71 C1 02           ..    cmpb #02
9620 CB73 26 0F           &.    bne 0f       ; to bc84
9621 CB75 F6 00 21        ..!   ldab 0021
9622 CB78 C4 08           ..    andb #08
9623 CB7A 27 08           '.    beq 08
9624 CB7C CE 00 21        ..!   ldx #0021
9625 CB7F 1C 00 10        ...   bset 00,x, #10
9626 CB82 20 56            V    bra 56       ; to cbda - cleanup and exit
9627 ;
9628 CB84 F6 10 2F        ../   ldab 102f    ; read SCI data
9629 CB87 C4 EF           ..    andb #ef     ; 11101111
9630 CB89 C1 E3           ..    cmpb #e3     ; 11100111
9631 CB8B 26 08           &.    bne 08       ; to cb95
9632 CB8D CE 0B C1        ...   ldx #0bc1
9633 CB90 1D 00 02        ...   bclr 00,x, #02
9634 CB93 20 45            E    bra 45
9635 ;
9636 CB95 F6 10 2F        ../   ldab 102f    ; read SCI data
9637 CB98 C4 EF           ..    andb #ef     ; 11101111
9638 CB9A C1 63           .c    cmpb #63     ; 01101110
9639 CB9C 26 1C           &.    bne 1c       ; to cbba
9640 CB9E CE 0B C1        ...   ldx #0bc1
9641 CBA1 1D 00 01        ...   bclr 00,x, #01
9642 CBA4 F6 0B C0        ...   ldab 0bc0
9643 CBA7 C4 01           ..    andb #01
9644 CBA9 27 0D           '.    beq 0d       ; to cbb8
9645 CBAB F6 0B C0        ...   ldab 0bc0
9646 CBAE C4 04           ..    andb #04
9647 CBB0 27 06           '.    beq 06       ; to cbb8
9648 CBB2 CE 0B C1        ...   ldx #0bc1
9649 CBB5 1D 00 02        ...   bclr 00,x, #02
9650 CBB8 20 20                 bra 20       ;goto48 - cleanup & exit
9651 ;
9652 CBBA F6 10 2F        ../   ldab 102f    ; read SCI data
9653 CBBD C4 EF           ..    andb #ef     ; 11101111
9654 CBBF C1 67           .g    cmpb #67     ; 01100111
9655 CBC1 26 08           &.    bne 08       ; to cbcb
9656 CBC3 CE 0B C1        ...   ldx #0bc1
9657 CBC6 1C 00           ..    bset 00,x, #20
9658 CBC9 20 0F                 bra 0f       ;goto48 - cleanup & exit
9659 ;
9660 CBCB F6 10 2F        ../   ldab 102f    ; read SCI data
9661 CBCE C4 EF           ..    andb #ef     ; 11101111
9662 CBD0 C1 27           .'    cmpb #27     ; 00100111
9663 CBD2 26 06           &.    bne 06       ;goto48 - cleanup & exit
9664 ;
9665 CBD4 CE 0B C1        ...   ldx #0bc1
9666 CBD7 1C 00 10        ...   bset 00,x, #10
9667 goto48: ; cleanup and exit
9668 CBDA CE 00 1A        ...   ldx #001a
9669 CBDD 1C 00 02        ...   bset 00,x, #02
9670 CBE0 F6 00 1A        ...   ldab 001a
9671 CBE3 F7 30 00        .0.   stab 3000    ; changer send' high
9672 CBE6 F6 00 17        ...   ldab 0017
9673 CBE9 C4 04           ..    andb #04
9674 CBEB 26 05           &.    bne 05       ; to cbf2
9675 CBED C6 06           ..    ldab #06
9676 CBEF F7 00 07        ...   stab 0007
9677 CBF2 F6 00 26        ..&   ldab 0026    ; 0026 ~= 0026
9678 CBF5 53              S     comb
9679 CBF6 F7 00 26        ..&   stab 0026
9680 CBF9 7F 00 3D        ..=   clr 003d
9681 CBFC 7E CE 46        ~.F   jmp ce46             ;goto47 (exit)
9682 ;
9683 goto44:
9684 CBFF F6 0B C0        ...   ldab 0bc0
9685 CC02 C4 02           ..    andb #02
9686 CC04 26 03           &.    bne 03
9687 CC06 7E CE 3B        ~.;   jmp ce3b             ;goto54  - swallow 2 bytes & exit
9688 CC09 F6 10 2F        ../   ldab 102f    ; read SCI data
9689 CC0C C4 E0           ..    andb #e0
9690 CC0E C1 20           .     cmpb #20
9691 CC10 27 03           '.    beq 03
9692 CC12 7E CE 3B        ~.;   jmp ce3b             ;goto54  - swallow 2 bytes & exit
9693 CC15 C6 32           .2    ldab #32     ; 50
9694 CC17 F7 00 2F        ../   stab 002f
9695 CC1A CE 00 1B        ...   ldx #001b
9696 CC1D 1C 00 02        ...   bset 00,x, #02
9697 CC20 F6 10 2E        ...   ldab 102e    ; SCI status
9698 CC23 C4 02           ..    andb #02     ; test for Framing Error
9699 CC25 26 08           &.    bne 08
9700 CC27 BD C7 C0        ...   jsr c7c0             ;jump49 - parity test
9701 CC2A 83 00 00        ...   subd #0000
9702 CC2D 26 0F           &.    bne 0f       ; if failed, to cc3e
9703 CC2F F6 10 2F        ../   ldab 102f    ; read SCI data
9704 CC32 30              0     tsx
9705 CC33 E7 00           ..    stab 00,x
9706 CC35 CC 00 FF        ...   ldd #00ff
9707 CC38 BD C7 E7        ...   jsr c7e7             ;jump37 - send #FF to coin mech
9708 CC3B 7E CE 39        ~.9   jmp ce39             ;goto55 - exit
9709 ;
9710 CC3E F6 10 2F        ../   ldab 102f    ; read SCI data
9711 CC41 C1 3F           .?    cmpb #3f     ; 00111111
9712 CC43 26 0A           &.    bne 0a       ; to cc4f
9713 CC45 F6 00 43        ..C   ldab 0043
9714 CC48 4F              O     clra
9715 CC49 BD C7 E7        ...   jsr c7e7             ;jump37 - send 0043 to coin mech - retry?
9716 CC4C 7E CE 39        ~.9   jmp ce39             ;goto55 - exit
9717 ;
9718 CC4F F6 00 08        ...   ldab 0008
9719 CC52 26 03           &.    bne 03
9720 CC54 7E CD 94        ~..   jmp cd94             ;goto56
9721 CC57 F6 10 2F        ../   ldab 102f    ; read SCI data
9722 CC5A C4 F0           ..    andb #f0
9723 CC5C C1 20           .     cmpb #20
9724 CC5E 27 03           '.    beq 03
9725 CC60 7E CD 94        ~..   jmp cd94             ;goto56
9726 CC63 F6 10 2F        ../   ldab 102f    ; read SCI data
9727 CC66 C4 0F           ..    andb #0f
9728 CC68 30              0     tsx
9729 CC69 E7 00           ..    stab 00,x
9730 CC6B F6 00 08        ...   ldab 0008
9731 CC6E 4F              O     clra
9732 CC6F BD FE 16        ...   jsr fe16             ;jump2
9733 CC72 00 01 00 07     .     ; array data for jump2
9734 CC76 CD 7A           .     ; if 0008 == 9, clr 0008, 002c. else inc 0008, send #00 to coin mech
9735 CC78 CC 88           ..    ; if 0017&#1 sp=>0076, else sp=>0040, then same as above
9736 CC7A CC A2           ..    ; if 0017&#1 0076+=sp<<4, else 0040+=sp<<4, then same as above
9737 CC7C CC CA           ..    ; if 0017&#1 0076+=sp<<8, else 0040+=sp<<8, then same as above
9738 CC7E CC EE           ..    ; if 0017&#1 0076+=sp<<16, else 0040+=sp<16, then same as above
9739 CC80 CD 19           ..    ; 0baa = sp, then same as above
9740 CC82 CD 21           .     ; 0baa = sp<<4, then same as above
9741 CC83 CD 30           !.    ; 0013 = sp, then same as above
9742 CC85 CD 38           0     ; read byte & #01,
9743 ;
9744 CC88 F6 00 17        ...   ldab 0017
9745 CC8B C4 01           ..    andb #01
9746 CC8D 27 09           '.    beq 09       ; to cc98
9747 CC8F 30              0     tsx
9748 CC90 E6 00           ..    ldab 00,x
9749 CC92 4F              O     clra
9750 CC93 FD 00 76        ..v   std 0076
9751 CC96 20 07            .    bra 07       ; to cc9f
9752 CC98 30              0     tsx
9753 CC99 E6 00           ..    ldab 00,x
9754 CC9B 4F              O     clra
9755 CC9C FD 00 40        ..@   std 0040
9756 CC9F 7E CD 7A        ~.z   jmp cd7a             ;goto57
9757 ;
9758 CCA2 F6 00 17        ...   ldab 0017
9759 CCA5 C4 01           ..    andb #01
9760 CCA7 27 10           '.    beq 10       ; to ccb9
9761 CCA9 30              0     tsx
9762 CCAA E6 00           ..    ldab 00,x
9763 CCAC 4F              O     clra
9764 CCAD 05              .     asld
9765 CCAE 05              .     asld
9766 CCAF 05              .     asld
9767 CCB0 05              .     asld
9768 CCB1 F3 00 76        ..v   addd 0076
9769 CCB4 FD 00 76        ..v   std 0076
9770 CCB7 20 0E            .    bra 0e       ; to ccc7
9771 CCB9 30              0     tsx
9772 CCBA E6 00           ..    ldab 00,x
9773 CCBC 4F              O     clra
9774 CCBD 05              .     asld
9775 CCBE 05              .     asld
9776 CCBF 05              .     asld
9777 CCC0 05              .     asld
9778 CCC1 F3 00 40        ..@   addd 0040
9779 CCC4 FD 00 40        ..@   std 0040
9780 CCC7 7E CD 7A        ~.z   jmp cd7a             ;goto57
9781 ;
9782 CCCA F6 00 17        ...   ldab 0017
9783 CCCD C4 01           ..    andb #01
9784 CCCF 27 0E           '.    beq 0e       ; to ccdf
9785 CCD1 30              0     tsx
9786 CCD2 E6 00           ..    ldab 00,x
9787 CCD4 4F              O     clra
9788 CCD5 17              .     tba
9789 CCD6 5F              _     clrb
9790 CCD7 F3 00 76        ..v   addd 0076
9791 CCDA FD 00 76        ..v   std 0076
9792 CCDD 20 0C            .    bra 0c       ; to cceb
9793 CCDF 30              0     tsx
9794 CCE0 E6 00           ..    ldab 00,x
9795 CCE2 4F              O     clra
9796 CCE3 17              .     tba
9797 CCE4 5F              _     clrb
9798 CCE5 F3 00 40        ..@   addd 0040
9799 CCE8 FD 00 40        ..@   std 0040
9800 CCEB 7E CD 7A        ~.z   jmp cd7a             ;goto57
9801 ;
9802 CCEE F6 00 17        ...   ldab 0017
9803 CCF1 C4 01           ..    andb #01
9804 CCF3 27 12           '.    beq 12     ; to cd07
9805 CCF5 30              0     tsx
9806 CCF6 E6 00           ..    ldab 00,x
9807 CCF8 4F              O     clra
9808 CCF9 17              .     tba
9809 CCFA 48              H     asla
9810 CCFB 48              H     asla
9811 CCFC 48              H     asla
9812 CCFD 48              H     asla
9813 CCFE 5F              _     clrb
9814 CCFF F3 00 76        ..v   addd 0076
9815 CD02 FD 00 76        ..v   std 0076
9816 CD05 20 10            .    bra 10     ; to cd17
9817 CD07 30              0     tsx
9818 CD08 E6 00           ..    ldab 00,x
9819 CD0A 4F              O     clra
9820 CD0B 17              .     tba
9821 CD0C 48              H     asla
9822 CD0D 48              H     asla
9823 CD0E 48              H     asla
9824 CD0F 48              H     asla
9825 CD10 5F              _     clrb
9826 CD11 F3 00 40        ..@   addd 0040
9827 CD14 FD 00 40        ..@   std 0040
9828 CD17 20 61            a    bra 61
9829 ;
9830 CD19 30              0     tsx
9831 CD1A E6 00           ..    ldab 00,x
9832 CD1C F7 0B AA        ...   stab 0baa
9833 CD1F 20 59            Y    bra 59 ; to cd7a - goto57
9834 ;
9835 CD21 30              0     tsx
9836 CD22 E6 00           ..    ldab 00,x
9837 CD24 58              X     aslb
9838 CD25 58              X     aslb
9839 CD26 58              X     aslb
9840 CD27 58              X     aslb
9841 CD28 FB 0B AA        ...   addb 0baa
9842 CD2B F7 0B AA        ...   stab 0baa
9843 CD2E 20 4A            J    bra 4a ; to cd7a - goto57
9844 ;
9845 CD30 30              0     tsx
9846 CD31 E6 00           ..    ldab 00,x
9847 CD33 F7 00 13        ...   stab 0013
9848 CD36 20 42            B    bra 42 ; to cd7a - goto57
9849 ;
9850 CD38 F6 10 2F        ../   ldab 102f    ; read SCI data
9851 CD3B C4 01           ..    andb #01
9852 CD3D 27 08           '.    beq 08          ; to cd47
9853 CD3F CE 00 21        ..!   ldx #0021
9854 CD42 1C 00 40        ...   bset 00,x, #40
9855 CD45 20 06            .    bra 06          ; to cd4d
9856 CD47 CE 00 21        ..!   ldx #0021
9857 CD4A 1D 00 40        ...   bclr 00,x, #40
9858 ;
9859 CD4D F6 00 17        ...   ldab 0017
9860 CD50 C4 01           ..    andb #01
9861 CD52 27 17           '.    beq 17     ; to cd6b
9862 CD54 F6 0B AA        ...   ldab 0baa
9863 CD57 4F              O     clra
9864 CD58 37              7     pshb
9865 CD59 36              6     psha
9866 CD5A FC 00 76        ..v   ldd 0076
9867 CD5D BD FB BA        ...   jsr fbba             ;jump38 - multiply?
9868 CD60 FD 00 76        ..v   std 0076     ; 0076 *= 0baa
9869 CD63 CE 00 17        ...   ldx #0017
9870 CD66 1D 00 01        ...   bclr 00,x, #01
9871 CD69 20 0F            .    bra 0f       ;goto57 - send byte & exit
9872 CD6B F6 0B AA        ...   ldab 0baa
9873 CD6E 4F              O     clra
9874 CD6F 37              7     pshb
9875 CD70 36              6     psha
9876 CD71 FC 00 40        ..@   ldd 0040
9877 CD74 BD FB BA        ...   jsr fbba             ;jump38 - multiply?
9878 CD77 FD 00 40        ..@   std 0040     ; 0040 *= 0baa
9879 goto57:  ; sends the byte, clearing the counter if its the 8th byte
9880 CD7A F6 00 08        ...   ldab 0008
9881 CD7D C1 09           ..    cmpb #09
9882 CD7F 26 08           &.    bne 08
9883 CD81 7F 00 2C        ..,   clr 002c
9884 CD84 7F 00 08        ...   clr 0008
9885 CD87 20 03            .    bra 03
9886 CD89 7C 00 08        |..   inc 0008
9887 CD8C 5F              _     clrb
9888 CD8D 4F              O     clra
9889 CD8E BD C7 E7        ...   jsr c7e7             ;jump37 - send byte to coin mech
9890 CD91 7E CE 39        ~.9   jmp ce39             ;goto55 - exit
9891 goto56:
9892 CD94 F6 10 2F        ../   ldab 102f    ; read SCI data
9893 CD97 4F              O     clra
9894 CD98 BD FE 32        ..2   jsr fe32             ;jump25
9895 CD9B CD B1 00 31     ...1  ; 49 "1"
9896 CD9F CD DB 00 01     ....  ; 50 "2"
9897 CDA3 CE 20 00 01     . ..  ; 51 "3"
9898 CDA7 CE 28 00 05     .(..  ; 56 "8"
9899 CDAB CE 34 FF C8     .4..  ; 0
9900 CDAF 00 00           ..    ; end of array data
9901 CDB1 F6 00 21        ..!   ldab 0021
9902 CDB4 2C 08           ,.    bge 08
9903 CDB6 CC 00 80        ...   ldd #0080
9904 CDB9 BD C7 E7        ...   jsr c7e7             ;jump37 - send byte to coin mech
9905 CDBC 20 1B            .    bra 1b
9906 CDBE 5F              _     clrb
9907 CDBF 4F              O     clra
9908 CDC0 BD C7 E7        ...   jsr c7e7             ;jump37 - send byte to coin mech
9909 CDC3 F6 00 1F        ...   ldab 001f
9910 CDC6 C4 08           ..    andb #08
9911 CDC8 27 0C           '.    beq 0c
9912 CDCA F6 0B C0        ...   ldab 0bc0
9913 CDCD C4 10           ..    andb #10
9914 CDCF 27 05           '.    beq 05
9915 CDD1 7C 00 75        |.u   inc 0075
9916 CDD4 20 03            .    bra 03
9917 CDD6 7F 00 75        ..u   clr 0075
9918 CDD9 20 5E            ^    bra 5e
9919 CDDB F6 00 1D        ...   ldab 001d
9920 CDDE C4 02           ..    andb #02
9921 CDE0 27 07           '.    beq 07
9922 CDE2 F6 00 19        ...   ldab 0019
9923 CDE5 C4 08           ..    andb #08
9924 CDE7 26 19           &.    bne 19
9925 CDE9 CC 00 FE        ...   ldd #00fe
9926 CDEC BD C7 E7        ...   jsr c7e7             ;jump37 - send #fe to coin mech
9927 CDEF F6 00 1F        ...   ldab 001f
9928 CDF2 C4 08           ..    andb #08
9929 CDF4 27 0A           '.    beq 0a
9930 CDF6 F6 0B C0        ...   ldab 0bc0
9931 CDF9 C4 10           ..    andb #10
9932 CDFB 27 03           '.    beq 03
9933 CDFD 7C 00 75        |.u   inc 0075
9934 CE00 20 1C            .    bra 1c
9935 CE02 FC 00 44        ..D   ldd 0044
9936 CE05 37              7     pshb
9937 CE06 36              6     psha
9938 CE07 F6 0B AA        ...   ldab 0baa
9939 CE0A 4F              O     clra
9940 CE0B 38              8     pulx
9941 CE0C 8F              .     xgdx
9942 CE0D 02              .     idiv
9943 CE0E 8F              .     xgdx
9944 CE0F BD C7 E7        ...   jsr c7e7             ;jump37 - send byte to coin mech
9945 CE12 CE 00 19        ...   ldx #0019
9946 CE15 1D 00 08        ...   bclr 00,x, #08
9947 CE18 CE 00 1F        ...   ldx #001f
9948 CE1B 1C 00 08        ...   bset 00,x, #08
9949 CE1E 20 19            .    bra 19
9950 CE20 CE 00 1D        ...   ldx #001d
9951 CE23 1D 00 02        ...   bclr 00,x, #02
9952 CE26 20 11            .    bra 11
9953 CE28 C6 01           ..    ldab #01
9954 CE2A F7 00 08        ...   stab 0008
9955 CE2D 5F              _     clrb
9956 CE2E 4F              O     clra
9957 CE2F BD C7 E7        ...   jsr c7e7             ;jump37 - send byte to coin mech
9958 CE32 20 05            .    bra 05
9959 CE34 5F              _     clrb
9960 CE35 4F              O     clra
9961 CE36 BD C7 E7        ...   jsr c7e7             ;jump37 - send byte to coin mech
9962 goto55:
9963 CE39 20 0B            .    bra 0b       ; to ce46 (exit)
9964 goto54: ; just swallow two bytes?
9965 CE3B F6 10 2E        ...   ldab 102e    ; SCI Status
9966 CE3E 30              0     tsx
9967 CE3F E7 00           ..    stab 00,x
9968 CE41 F6 10 2F        ../   ldab 102f    ; read SCI data
9969 CE44 E7 00           ..    stab 00,x
9970 goto47:
9971 CE46 31              1     ins
9972 CE47 3B              ;     rti
9973
9974 jump48:
9975 ;
9976 CE48 F6 0B C4        ...   ldab 0bc4
9977 CE4B F1 0B C5        ...   cmpb 0bc5
9978 CE4E 25 53           %S    bcs 53
9979 CE50 F6 0B C5        ...   ldab 0bc5
9980 CE53 F1 0B C6        ...   cmpb 0bc6
9981 CE56 25 4B           %K    bcs 4b
9982 CE58 F6 0B C4        ...   ldab 0bc4
9983 CE5B 4F              O     clra
9984 CE5C C3 0B C7        ...   addd #0bc7
9985 CE5F 8F              .     xgdx
9986 CE60 E6 00           ..    ldab 00,x
9987 CE62 4F              O     clra
9988 CE63 FD 0B DD        ...   std 0bdd
9989 CE66 F6 0B C5        ...   ldab 0bc5
9990 CE69 4F              O     clra
9991 CE6A C3 0B C7        ...   addd #0bc7
9992 CE6D 8F              .     xgdx
9993 CE6E E6 00           ..    ldab 00,x
9994 CE70 4F              O     clra
9995 CE71 FD 0B DF        ...   std 0bdf
9996 CE74 F6 0B C6        ...   ldab 0bc6
9997 CE77 4F              O     clra
9998 CE78 C3 0B C7        ...   addd #0bc7
9999 CE7B 8F              .     xgdx
10000 CE7C E6 00           ..    ldab 00,x
10001 CE7E 4F              O     clra
10002 CE7F FD 0B E1        ...   std 0be1
10003 CE82 C6 01           ..    ldab #01
10004 CE84 F7 0B D7        ...   stab 0bd7
10005 CE87 C6 04           ..    ldab #04
10006 CE89 F7 0B D8        ...   stab 0bd8
10007 CE8C C6 02           ..    ldab #02
10008 CE8E F7 0B D9        ...   stab 0bd9
10009 CE91 C6 20           .     ldab #20
10010 CE93 F7 0B DA        ...   stab 0bda
10011 CE96 C6 08           ..    ldab #08
10012 CE98 F7 0B DB        ...   stab 0bdb
10013 CE9B C6 10           ..    ldab #10
10014 CE9D F7 0B DC        ...   stab 0bdc
10015 CEA0 7E D0 66        ~.f   jmp d066             ;goto58 - multiply
10016 CEA3 F6 0B C4        ...   ldab 0bc4
10017 CEA6 F1 0B C6        ...   cmpb 0bc6
10018 CEA9 25 53           %S    bcs 53
10019 CEAB F6 0B C6        ...   ldab 0bc6
10020 CEAE F1 0B C5        ...   cmpb 0bc5
10021 CEB1 25 4B           %K    bcs 4b
10022 CEB3 F6 0B C4        ...   ldab 0bc4
10023 CEB6 4F              O     clra
10024 CEB7 C3 0B C7        ...   addd #0bc7
10025 CEBA 8F              .     xgdx
10026 CEBB E6 00           ..    ldab 00,x
10027 CEBD 4F              O     clra
10028 CEBE FD 0B DD        ...   std 0bdd
10029 CEC1 F6 0B C6        ...   ldab 0bc6
10030 CEC4 4F              O     clra
10031 CEC5 C3 0B C7        ...   addd #0bc7
10032 CEC8 8F              .     xgdx
10033 CEC9 E6 00           ..    ldab 00,x
10034 CECB 4F              O     clra
10035 CECC FD 0B DF        ...   std 0bdf
10036 CECF F6 0B C5        ...   ldab 0bc5
10037 CED2 4F              O     clra
10038 CED3 C3 0B C7        ...   addd #0bc7
10039 CED6 8F              .     xgdx
10040 CED7 E6 00           ..    ldab 00,x
10041 CED9 4F              O     clra
10042 CEDA FD 0B E1        ...   std 0be1
10043 CEDD C6 01           ..    ldab #01
10044 CEDF F7 0B D7        ...   stab 0bd7
10045 CEE2 C6 02           ..    ldab #02
10046 CEE4 F7 0B D8        ...   stab 0bd8
10047 CEE7 C6 04           ..    ldab #04
10048 CEE9 F7 0B D9        ...   stab 0bd9
10049 CEEC C6 20           .     ldab #20
10050 CEEE F7 0B DA        ...   stab 0bda
10051 CEF1 C6 10           ..    ldab #10
10052 CEF3 F7 0B DB        ...   stab 0bdb
10053 CEF6 C6 08           ..    ldab #08
10054 CEF8 F7 0B DC        ...   stab 0bdc
10055 CEFB 7E D0 66        ~.f   jmp d066             ;goto58
10056 CEFE F6 0B C5        ...   ldab 0bc5
10057 CF01 F1 0B C4        ...   cmpb 0bc4
10058 CF04 25 53           %S    bcs 53
10059 CF06 F6 0B C4        ...   ldab 0bc4
10060 CF09 F1 0B C6        ...   cmpb 0bc6
10061 CF0C 25 4B           %K    bcs 4b
10062 CF0E F6 0B C5        ...   ldab 0bc5
10063 CF11 4F              O     clra
10064 CF12 C3 0B C7        ...   addd #0bc7
10065 CF15 8F              .     xgdx
10066 CF16 E6 00           ..    ldab 00,x
10067 CF18 4F              O     clra
10068 CF19 FD 0B DD        ...   std 0bdd
10069 CF1C F6 0B C4        ...   ldab 0bc4
10070 CF1F 4F              O     clra
10071 CF20 C3 0B C7        ...   addd #0bc7
10072 CF23 8F              .     xgdx
10073 CF24 E6 00           ..    ldab 00,x
10074 CF26 4F              O     clra
10075 CF27 FD 0B DF        ...   std 0bdf
10076 CF2A F6 0B C6        ...   ldab 0bc6
10077 CF2D 4F              O     clra
10078 CF2E C3 0B C7        ...   addd #0bc7
10079 CF31 8F              .     xgdx
10080 CF32 E6 00           ..    ldab 00,x
10081 CF34 4F              O     clra
10082 CF35 FD 0B E1        ...   std 0be1
10083 CF38 C6 04           ..    ldab #04
10084 CF3A F7 0B D7        ...   stab 0bd7
10085 CF3D C6 01           ..    ldab #01
10086 CF3F F7 0B D8        ...   stab 0bd8
10087 CF42 C6 02           ..    ldab #02
10088 CF44 F7 0B D9        ...   stab 0bd9
10089 CF47 C6 08           ..    ldab #08
10090 CF49 F7 0B DA        ...   stab 0bda
10091 CF4C C6 20           .     ldab #20
10092 CF4E F7 0B DB        ...   stab 0bdb
10093 CF51 C6 10           ..    ldab #10
10094 CF53 F7 0B DC        ...   stab 0bdc
10095 CF56 7E D0 66        ~.f   jmp d066             ;goto58
10096 CF59 F6 0B C5        ...   ldab 0bc5
10097 CF5C F1 0B C6        ...   cmpb 0bc6
10098 CF5F 25 53           %S    bcs 53
10099 CF61 F6 0B C6        ...   ldab 0bc6
10100 CF64 F1 0B C4        ...   cmpb 0bc4
10101 CF67 25 4B           %K    bcs 4b
10102 CF69 F6 0B C5        ...   ldab 0bc5
10103 CF6C 4F              O     clra
10104 CF6D C3 0B C7        ...   addd #0bc7
10105 CF70 8F              .     xgdx
10106 CF71 E6 00           ..    ldab 00,x
10107 CF73 4F              O     clra
10108 CF74 FD 0B DD        ...   std 0bdd
10109 CF77 F6 0B C6        ...   ldab 0bc6
10110 CF7A 4F              O     clra
10111 CF7B C3 0B C7        ...   addd #0bc7
10112 CF7E 8F              .     xgdx
10113 CF7F E6 00           ..    ldab 00,x
10114 CF81 4F              O     clra
10115 CF82 FD 0B DF        ...   std 0bdf
10116 CF85 F6 0B C4        ...   ldab 0bc4
10117 CF88 4F              O     clra
10118 CF89 C3 0B C7        ...   addd #0bc7
10119 CF8C 8F              .     xgdx
10120 CF8D E6 00           ..    ldab 00,x
10121 CF8F 4F              O     clra
10122 CF90 FD 0B E1        ...   std 0be1
10123 CF93 C6 04           ..    ldab #04
10124 CF95 F7 0B D7        ...   stab 0bd7
10125 CF98 C6 02           ..    ldab #02
10126 CF9A F7 0B D8        ...   stab 0bd8
10127 CF9D C6 01           ..    ldab #01
10128 CF9F F7 0B D9        ...   stab 0bd9
10129 CFA2 C6 08           ..    ldab #08
10130 CFA4 F7 0B DA        ...   stab 0bda
10131 CFA7 C6 10           ..    ldab #10
10132 CFA9 F7 0B DB        ...   stab 0bdb
10133 CFAC C6 20           .     ldab #20
10134 CFAE F7 0B DC        ...   stab 0bdc
10135 CFB1 7E D0 66        ~.f   jmp d066             ;goto58
10136 CFB4 F6 0B C6        ...   ldab 0bc6
10137 CFB7 F1 0B C4        ...   cmpb 0bc4
10138 CFBA 25 52           %R    bcs 52
10139 CFBC F6 0B C4        ...   ldab 0bc4
10140 CFBF F1 0B C5        ...   cmpb 0bc5
10141 CFC2 25 4A           %J    bcs 4a
10142 CFC4 F6 0B C6        ...   ldab 0bc6
10143 CFC7 4F              O     clra
10144 CFC8 C3 0B C7        ...   addd #0bc7
10145 CFCB 8F              .     xgdx
10146 CFCC E6 00           ..    ldab 00,x
10147 CFCE 4F              O     clra
10148 CFCF FD 0B DD        ...   std 0bdd
10149 CFD2 F6 0B C4        ...   ldab 0bc4
10150 CFD5 4F              O     clra
10151 CFD6 C3 0B C7        ...   addd #0bc7
10152 CFD9 8F              .     xgdx
10153 CFDA E6 00           ..    ldab 00,x
10154 CFDC 4F              O     clra
10155 CFDD FD 0B DF        ...   std 0bdf
10156 CFE0 F6 0B C5        ...   ldab 0bc5
10157 CFE3 4F              O     clra
10158 CFE4 C3 0B C7        ...   addd #0bc7
10159 CFE7 8F              .     xgdx
10160 CFE8 E6 00           ..    ldab 00,x
10161 CFEA 4F              O     clra
10162 CFEB FD 0B E1        ...   std 0be1
10163 CFEE C6 02           ..    ldab #02
10164 CFF0 F7 0B D7        ...   stab 0bd7
10165 CFF3 C6 01           ..    ldab #01
10166 CFF5 F7 0B D8        ...   stab 0bd8
10167 CFF8 C6 04           ..    ldab #04
10168 CFFA F7 0B D9        ...   stab 0bd9
10169 CFFD C6 10           ..    ldab #10
10170 CFFF F7 0B DA        ...   stab 0bda
10171 D002 C6 20           .     ldab #20
10172 D004 F7 0B DB        ...   stab 0bdb
10173 D007 C6 08           ..    ldab #08
10174 D009 F7 0B DC        ...   stab 0bdc
10175 D00C 20 58            X    bra 58      ;goto58
10176 D00E F6 0B C6        ...   ldab 0bc6
10177 D011 F1 0B C5        ...   cmpb 0bc5
10178 D014 25 50           %P    bcs 50
10179 D016 F6 0B C5        ...   ldab 0bc5
10180 D019 F1 0B C4        ...   cmpb 0bc4
10181 D01C 25 48           %H    bcs 48
10182 D01E F6 0B C6        ...   ldab 0bc6
10183 D021 4F              O     clra
10184 D022 C3 0B C7        ...   addd #0bc7
10185 D025 8F              .     xgdx
10186 D026 E6 00           ..    ldab 00,x
10187 D028 4F              O     clra
10188 D029 FD 0B DD        ...   std 0bdd
10189 D02C F6 0B C5        ...   ldab 0bc5
10190 D02F 4F              O     clra
10191 D030 C3 0B C7        ...   addd #0bc7
10192 D033 8F              .     xgdx
10193 D034 E6 00           ..    ldab 00,x
10194 D036 4F              O     clra
10195 D037 FD 0B DF        ...   std 0bdf
10196 D03A F6 0B C4        ...   ldab 0bc4
10197 D03D 4F              O     clra
10198 D03E C3 0B C7        ...   addd #0bc7
10199 D041 8F              .     xgdx
10200 D042 E6 00           ..    ldab 00,x
10201 D044 4F              O     clra
10202 D045 FD 0B E1        ...   std 0be1
10203 D048 C6 02           ..    ldab #02
10204 D04A F7 0B D7        ...   stab 0bd7
10205 D04D C6 04           ..    ldab #04
10206 D04F F7 0B D8        ...   stab 0bd8
10207 D052 C6 01           ..    ldab #01
10208 D054 F7 0B D9        ...   stab 0bd9
10209 D057 C6 10           ..    ldab #10
10210 D059 F7 0B DA        ...   stab 0bda
10211 D05C C6 08           ..    ldab #08
10212 D05E F7 0B DB        ...   stab 0bdb
10213 D061 C6 20           .     ldab #20
10214 D063 F7 0B DC        ...   stab 0bdc   ;goto58
10215 goto58:
10216 D066 F6 0B AA        ...   ldab 0baa
10217 D069 4F              O     clra
10218 D06A 37              7     pshb
10219 D06B 36              6     psha
10220 D06C FC 0B DD        ...   ldd 0bdd
10221 D06F BD FB BA        ...   jsr fbba             ;jump38 - multiply?
10222 D072 FD 0B DD        ...   std 0bdd
10223 D075 F6 0B AA        ...   ldab 0baa
10224 D078 4F              O     clra
10225 D079 37              7     pshb
10226 D07A 36              6     psha
10227 D07B FC 0B DF        ...   ldd 0bdf
10228 D07E BD FB BA        ...   jsr fbba             ;jump38 - multiply?
10229 D081 FD 0B DF        ...   std 0bdf
10230 D084 F6 0B AA        ...   ldab 0baa
10231 D087 4F              O     clra
10232 D088 37              7     pshb
10233 D089 36              6     psha
10234 D08A FC 0B E1        ...   ldd 0be1
10235 D08D BD FB BA        ...   jsr fbba             ;jump38 - multiply?
10236 D090 FD 0B E1        ...   std 0be1
10237 D093 39              9     rts
10238
10239 jump66:
10240 ; initializes a big bunch of variables
10241 D094 34              4     des
10242 ; for i=0
10243 D095 30              0     tsx
10244 D096 6F 00           o.    clr 00,x
10245 ; while i <= 10
10246 D098 30              0     tsx
10247 D099 E6 00           ..    ldab 00,x
10248 D09B C1 10           ..    cmpb #10
10249 D09D 24 1B           $.    bcc 1b        ; to d0ba
10250 ; read memloc of b0c3+i
10251 D09F 30              0     tsx
10252 D0A0 E6 00           ..    ldab 00,x
10253 D0A2 4F              O     clra
10254 D0A3 C3 B0 C3        ...   addd #b0c3
10255 D0A6 8F              .     xgdx
10256 D0A7 E6 00           ..    ldab 00,x
10257 D0A9 37              7     pshb
10258 ; put value of that location into 0bc7+i
10259 D0AA 30              0     tsx
10260 D0AB E6 01           ..    ldab 01,x
10261 D0AD 4F              O     clra
10262 D0AE C3 0B C7        ...   addd #0bc7
10263 D0B1 8F              .     xgdx
10264 D0B2 33              3     pulb
10265 D0B3 E7 00           ..    stab 00,x
10266 ; loop
10267 D0B5 30              0     tsx
10268 D0B6 6C 00           l.    inc 00,x
10269 D0B8 20 DE            .    bra de        ; to d098
10270 ;
10271 D0BA C6 05           ..    ldab #05
10272 D0BC F7 0B AA        ...   stab 0baa
10273 D0BF C6 04           ..    ldab #04
10274 D0C1 F7 00 13        ...   stab 0013
10275 D0C4 C6 01           ..    ldab #01
10276 D0C6 F7 0B C4        ...   stab 0bc4
10277 D0C9 C6 03           ..    ldab #03
10278 D0CB F7 0B C5        ...   stab 0bc5
10279 D0CE C6 02           ..    ldab #02
10280 D0D0 F7 0B C6        ...   stab 0bc6
10281 D0D3 CC 00 19        ...   ldd #0019
10282 D0D6 FD 0B DD        ...   std 0bdd
10283 D0D9 CC 00 0A        ...   ldd #000a
10284 D0DC FD 0B DF        ...   std 0bdf
10285 D0DF CC 00 05        ...   ldd #0005
10286 D0E2 FD 0B E1        ...   std 0be1
10287 D0E5 C6 01           ..    ldab #01
10288 D0E7 F7 0B D7        ...   stab 0bd7
10289 D0EA C6 02           ..    ldab #02
10290 D0EC F7 0B D8        ...   stab 0bd8
10291 D0EF C6 04           ..    ldab #04
10292 D0F1 F7 0B D9        ...   stab 0bd9
10293 D0F4 C6 20           .     ldab #20
10294 D0F6 F7 0B DA        ...   stab 0bda
10295 D0F9 C6 10           ..    ldab #10
10296 D0FB F7 0B DB        ...   stab 0bdb
10297 D0FE C6 08           ..    ldab #08
10298 D100 F7 0B DC        ...   stab 0bdc
10299 D103 31              1     ins
10300 D104 39              9     rts
10301
10302 motors_off:
10303 ; turns all motors off
10304 D105 34              4     des
10305 D106 CE 00 1A        ...   ldx #001a
10306 D109 1C 00 80        ..    bset 00,x, #80
10307 D10C F6 00 1A        ..    ldab 001a
10308 D10F F7 30 00        .0.   stab 3000       ; motor rows off
10309 D112 C6 C8           ..    ldab #c8        ; loop of 200 - short delay
10310 D114 30              0     tsx
10311 D115 E7 00           ..    stab 00,x
10312 D117 30              0     tsx
10313 D118 E6 00           ..    ldab 00,x
10314 D11A C1 00           ..    cmpb #00
10315 D11C 23 05           #.    bls 05          ; to d123
10316 D11E 30              0     tsx
10317 D11F 6A 00           j.    dec 00,x
10318 D121 20 F4            .    bra f4          ; to d117
10319
10320 D123 CE 10 00        ...   ldx #1000
10321 D126 1C 00 40        ..    bset 00,x, #40  ; motor columns off
10322 D129 CE 00 14        ...   ldx #0014
10323 D12C 1D 00 20        ..    bclr 00,x, #20  ; motors col 8 off
10324 D12F CE 00 14        .     ldx #0014
10325 D132 1D 00 40        ..    bclr 00,x, #40  ; motors col 9 off
10326 D135 F6 00 14        ...   ldab 0014
10327 D138 F7 38 00        .8.   stab 3800       ; motors off
10328 D13B 31              1     ins
10329 D13C 39              9     rts
10330
10331 jump34:
10332 ; turn on the motor of the slot given in memory location 0006
10333 D13D F6 00 06        ...   ldab 0006
10334 D140 4F              O     clra
10335 D141 CE 00 0A        ...   ldx #000a
10336 D144 02              .     idiv
10337 D145 8F              .     xgdx
10338 D146 CB 01           ..    addb #01   ; we live in an odd world?
10339 D148 F7 00 5F        .._   stab 005f  ; slot number /10
10340 D14B F6 00 06        ...   ldab 0006
10341 D14E 4F              O     clra
10342 D14F CE 00 0A        ...   ldx #000a
10343 D152 02              .     idiv
10344 D153 F7 00 5E        ..^   stab 005e   ; slot number%10
10345 D156 F6 00 5E        ..^   ldab 005e
10346 D159 C1 05           ..    cmpb #05    ; there is not row 5
10347 D15B 23 03           #.    bls 03
10348 D15D 7A 00 5E        z.^   dec 005e    ; make it row 4
10349 D160 F6 00 5E        ..^   ldab 005e
10350 D163 4F              O     clra
10351 D164 C3 B1 23        ..#   addd #b123   ; powers of 2
10352 D167 8F              .     xgdx
10353 D168 E6 00           ..    ldab 00,x
10354 D16A 4F              O     clra
10355 D16B 37              7     pshb
10356 D16C 36              6     psha
10357 D16D F6 00 5F        .._   ldab 005f
10358 D170 4F              O     clra
10359 D171 C3 B1 23        ..#   addd #b123   ; powers of 2
10360 D174 8F              .     xgdx
10361 D175 E6 00           ..    ldab 00,x
10362 D177 4F              O     clra
10363 D178 17              .     tba
10364 D179 5F              _     clrb
10365 D17A 30              0     tsx
10366 D17B E3 00           ..    addd 00,x
10367 D17D 38              8     pulx
10368 D17E FD 00 58        ..X   std 0058
10369 ;
10370 ; i=0
10371 D181 7F 00 1C        ...   clr 001c
10372 ; while i < 16, do
10373 D184 F6 00 1C        ...   ldab 001c
10374 D187 C1 10           ..    cmpb #10
10375 D189 24 37           $7    bcc 37         ; to d1c2
10376 D18B F6 00 58        ..X   ldab 0058
10377 D18E 2C 0E           ,.    bge 0e         ; to d19e
10378 ;
10379 D190 CE 00 14        ...   ldx #0014
10380 D193 1C 00 10        ...   bset 00,x, #10
10381 D196 F6 00 14        ...   ldab 0014
10382 D199 F7 38 00        .8.   stab 3800      ; set high motor serial data
10383 D19C 20 0C            .    bra 0c         ; to d1aa
10384 ;
10385 D19E CE 00 14        ...   ldx #0014
10386 D1A1 1D 00 10        ..    bclr 00,x, #10
10387 D1A4 F6 00 14        ...   ldab 0014
10388 D1A7 F7 38 00        .8.   stab 3800      ; set low motor serial data
10389 ;
10390 ; send a clock pulse
10391 D1AA CE 10 00        ...   ldx #1000
10392 D1AD 1C 00 20        ..    bset 00,x, #20
10393 D1B0 CE 10 00         .    ldx #1000
10394 D1B3 1D 00           ..    bclr 00,x, #20
10395 ;
10396 ; get the next bit ready to send
10397 D1B6 FC 00 58        .     ldd 0058
10398 D1B9 05              .     asld
10399 D1BA FD 00 58        ..X   std 0058
10400 D1BD 7C 00 1C        |..   inc 001c
10401 D1C0 20 C2            .    bra c2
10402 ; if this is column 8 (9 for pascal programmers ;)
10403 D1C2 F6 00 5F        .._   ldab 005f
10404 D1C5 C1 09           ..    cmpb #09
10405 D1C7 26 0E           &.    bne 0e         ; to d1d7
10406 D1C9 CE 00 14        ...   ldx #0014
10407 D1CC 1C 00 20        ...   bset 00,x, #20
10408 D1CF F6 00 14        .     ldab 0014
10409 D1D2 F7 38 00        .8.   stab 3800      ; say its column 8
10410 D1D5 20 13            .    bra 13         ; to d1ea
10411 ; if this is column 9 (denoted as 10)
10412 D1D7 F6 00 5F        .._   ldab 005f
10413 D1DA C1 0A           ..    cmpb #0a
10414 D1DC 26 0C           &.    bne 0c
10415 D1DE CE 00 14        ...   ldx #0014
10416 D1E1 1C 00 40        ..    bset 00,x, #40 ; say its column 9
10417 D1E4 F6 00 14        ...   ldab 0014
10418 D1E7 F7 38 00        .8.   stab 3800
10419 ; clear the motor clock
10420 D1EA CE 10 00        ...   ldx #1000
10421 D1ED 1D 00 40        ..    bclr 00,x, #40 ; motor clock line low
10422 ; clear motor row output enable
10423 D1F0 CE 00 1A        ...   ldx #001a
10424 D1F3 1D 00           ..    bclr 00,x, #80
10425 D1F6 F6 00 1A        ...   ldab 001a
10426 D1F9 F7 30 00        .0.   stab 3000      ; motor driver outputs enable
10427 D1FC 39              9     rts
10428
10429 jump90:
10430 D1FD CC 40 00        .@.   ldd #4000
10431 D200 37              7     pshb
10432 D201 36              6     psha
10433 D202 F6 00 06        ...   ldab 0006
10434 D205 4F              O     clra
10435 D206 05              .     asld
10436 D207 C3 08 00        ...   addd #0800
10437 D20A 38              8     pulx
10438 D20B 8F              .     xgdx
10439 D20C AA 00           ..    ora 00,x
10440 D20E EA 01           ..    orb 01,x
10441 D210 ED 00           ..    std 00,x
10442 D212 39              9     rts
10443
10444 jump45:
10445 D213 F6 00 1F        ...   ldab 001f
10446 D216 C4 04           ..    andb #04
10447 D218 26 12           &.    bne 12
10448 D21A F6 0B C0        ...   ldab 0bc0
10449 D21D C4 10           ..    andb #10
10450 D21F 26 0B           &.    bne 0b
10451 D221 CE 00 00        ...   ldx #0000
10452 D224 3C              <     pshx
10453 D225 FC 00 44        ..D   ldd 0044
10454 D228 BD BE 9E        ...   jsr be9e             ;jump50
10455 D22B 38              8     pulx
10456 D22C BD D3 11        ...   jsr d311             ;jump30 - test position exists
10457 D22F 83 00 00        ...   subd #0000
10458 D232 27 13           '.    beq 13
10459 D234 F6 00 06        ...   ldab 0006
10460 D237 BD D4 68        ..h   jsr d468             ;jump51
10461 D23A 83 00 00        ...   subd #0000
10462 D23D 27 05           '.    beq 05
10463 D23F 8D BC           ..    bsr bc       ;jump90
10464 D241 BD D6 3C        ..<   jsr d63c             ;jump33
10465 D244 5F              _     clrb
10466 D245 4F              O     clra
10467 D246 39              9     rts
10468
10469 D247 BD D1 3D        ..=   jsr d13d             ;jump34 - motor on
10470 D24A C6 3C           .<    ldab #3c
10471 D24C F7 00 2E        ...   stab 002e
10472 D24F C6 41           .A    ldab #41
10473 D251 F7 00 31        ..1   stab 0031
10474 D254 CE 00 1B        ...   ldx #001b
10475 D257 1D 00 08        ...   bclr 00,x #08
10476 goto59:
10477 D25A F6 00 1B        ...   ldab 001b
10478 D25D C4 08           ..    andb #08
10479 D25F 26 22           &"    bne 22
10480 D261 F6 00 2E        ...   ldab 002e
10481 D264 C1 35           .5    cmpb #35
10482 D266 23 10           #.    bls 10
10483 D268 BD D5 70        ..p   jsr d570             ;jump35
10484 D26B 83 00 00        ...   subd #0000
10485 D26E 27 06           '.    beq 06
10486 D270 CE 00 1B        ...   ldx #001b
10487 D273 1C 00 08        ...   bset 00,x, #08
10488 D276 20 0B            .    bra 0b
10489 D278 BD D1 05        ...   jsr d105             ;motors_off
10490 D27B 8D 80           ..    bsr 80       ;jump90
10491 D27D BD D6 3C        ..<   jsr d63c             ;jump33
10492 D280 5F              _     clrb
10493 D281 4F              O     clra
10494 D282 39              9     rts
10495
10496 D283 F6 00 2E        ...   ldab 002e
10497 D286 C1 36           .6    cmpb #36
10498 D288 24 56           $V    bcc 56       ; to d2e0
10499 D28A BD D5 F7        ...   jsr d5f7             ;jump108
10500 D28D 83 00 00        ...   subd #0000
10501 D290 27 4E           'N    beq 4e       ; to d2e0
10502 D292 BD D5 B0        ...   jsr d5b0             ;jump31
10503 D295 83 00 00        ...   subd #0000
10504 D298 27 46           'F    beq 46       ; to d2e0
10505 D29A BD D1 05        ...   jsr d105             ;motors_off
10506 D29D F6 00 2E        ...   ldab 002e
10507 D2A0 C1 32           .2    cmpb #32
10508 D2A2 22 07           ".    bhi 07
10509 D2A4 8D 6B           .k    bsr dest 6b
10510 D2A6 83 00 00        ...   subd #0000
10511 D2A9 27 0C           '.    beq 0c
10512 D2AB BD D1 05        ...   jsr d105             ;motors_off
10513 D2AE BD D1 FD        ...   jsr d1fd             ;jump90
10514 D2B1 BD D6 3C        ..<   jsr d63c             ;jump33
10515 D2B4 5F              _     clrb
10516 D2B5 4F              O     clra
10517 D2B6 39              9     rts
10518
10519 D2B7 F6 00 06        ...   ldab 0006
10520 D2BA 4F              O     clra
10521 D2BB C3 0E 06        ...   addd #0e06
10522 D2BE 8F              .     xgdx
10523 D2BF 6C 00           l.    inc 00,x
10524 D2C1 F6 00 06        ...   ldab 0006
10525 D2C4 4F              O     clra
10526 D2C5 C3 0E 06        ...   addd #0e06
10527 D2C8 8F              .     xgdx
10528 D2C9 E6 00           ..    ldab 00,x
10529 D2CB C1 64           .d    cmpb #64
10530 D2CD 23 0D           #.    bls 0d
10531 D2CF 5F              _     clrb
10532 D2D0 37              7     pshb
10533 D2D1 F6 00 06        ...   ldab 0006
10534 D2D4 4F              O     clra
10535 D2D5 C3 0E 06        ...   addd #0e06
10536 D2D8 8F              .     xgdx
10537 D2D9 33              3     pulb
10538 D2DA E7 00           ..    stab 00,x
10539 D2DC CC 00 01        ...   ldd #0001
10540 D2DF 39              9     rts
10541
10542 D2E0 F6 00 2E        ...   ldab 002e
10543 D2E3 26 14           &.    bne 14
10544 D2E5 BD D5 F7        ...   jsr d5f7             ;jump108
10545 D2E8 83 00 00        ...   subd #0000
10546 D2EB 26 0C           &.    bne 0c
10547 D2ED BD D1 05        ...   jsr d105             ;motors_off
10548 D2F0 BD D1 FD        ...   jsr d1fd             ;jump90
10549 D2F3 BD D6 26        ..&   jsr d626             ;jump91
10550 D2F6 5F              _     clrb
10551 D2F7 4F              O     clra
10552 D2F8 39              9     rts
10553
10554 D2F9 F6 00 2E        ...   ldab 002e
10555 D2FC 26 0C           &.    bne 0c
10556 D2FE BD D1 05        ...   jsr d105             ;motors_off
10557 D301 BD D1 FD        ...   jsr d1fd             ;jump90
10558 D304 BD D6 3C        ..<   jsr d63c             ;jump33
10559 D307 5F              _     clrb
10560 D308 4F              O     clra
10561 D309 39              9     rts
10562
10563 D30A 7E D2 5A        ~.Z   jmp d25a             ;goto59
10564 D30D BD E6 1B        ...   jsr e61b             ;jump4
10565 D310 39              9     rts
10566
10567 jump30:
10568 ; tests to see if a motor exists here
10569 D311 BD D1 3D        ..=   jsr d13d             ;jump34 - motor on
10570 D314 7F 00 1C        ...   clr 001c
10571 D317 7F 00 18        ...   clr 0018
10572 D31A F6 10 0A        ...   ldab 100a
10573 D31D C4 02           ..    andb #02     ; motor overvoltage sense
10574 D31F 27 13           '.    beq 13       ; to d334
10575 D321 7C 00 1C        |..   inc 001c
10576 D324 F6 00 1C        ...   ldab 001c
10577 D327 C1 FF           ..    cmpb #ff
10578 D329 26 07           &.    bne 07
10579 D32B BD D1 05        ...   jsr d105             ;motors_off
10580 D32E CC 00 01        ...   ldd #0001
10581 D331 39              9     rts
10582 ;
10583 D332 20 10            .    bra 10      ; to d344
10584 D334 7C 00 18        |..   inc 0018
10585 D337 F6 00 18        ...   ldab 0018
10586 D33A C1 08           ..    cmpb #08
10587 D33C 26 06           &.    bne 06       ; continue
10588 D33E BD D1 05        ...   jsr d105             ;motors_off
10589 D341 5F              _     clrb
10590 D342 4F              O     clra
10591 D343 39              9     rts
10592 D344 20 D4            .    bra d4        ; continue
10593
10594 jump43:
10595 D346 3C              <     pshx
10596 D347 3C              <     pshx
10597 D348 3C              <     pshx
10598 D349 34              4     des
10599 D34A F6 0E 6D        ..m   ldab 0e6d
10600 D34D C1 01           ..    cmpb #01
10601 D34F 27 03           '.    beq 03
10602 D351 7E D4 07        ~..   jmp d407             ;goto60
10603 D354 F6 00 06        ...   ldab 0006
10604 D357 4F              O     clra
10605 D358 05              .     asld
10606 D359 C3 08 C8        ...   addd #08c8
10607 D35C 8F              .     xgdx
10608 D35D EC 00           ..    ldd 00,x
10609 D35F C4 7F           ..    andb #7f
10610 D361 4F              O     clra
10611 D362 FD 0E 6B        ..k   std 0e6b
10612 D365 7F 00 06        ...   clr 0006
10613 goto62:
10614 D368 F6 00 06        ...   ldab 0006
10615 D36B C1 3E           .>    cmpb #3e
10616 D36D 26 03           &.    bne 03
10617 D36F 7E D4 02        ~..   jmp d402             ;goto61
10618 D372 BD 97 6F        ..o   jsr 976f             ;jump41
10619 D375 F6 00 06        ...   ldab 0006
10620 D378 4F              O     clra
10621 D379 05              .     asld
10622 D37A C3 08 C8        ...   addd #08c8
10623 D37D 8F              .     xgdx
10624 D37E EC 00           ..    ldd 00,x
10625 D380 C4 7F           ..    andb #7f
10626 D382 4F              O     clra
10627 D383 B3 0E 6B        ..k   subd 0e6b
10628 D386 26 77           &w    bne 77
10629 D388 F6 00 06        ...   ldab 0006
10630 D38B 4F              O     clra
10631 D38C CE 00 0A        ...   ldx #000a
10632 D38F 02              .     idiv
10633 D390 30              0     tsx
10634 D391 E7 01           ..    stab 01,x
10635 D393 E6 01           ..    ldab 01,x
10636 D395 C1 01           ..    cmpb #01
10637 D397 26 07           &.    bne 07
10638 D399 C6 40           .@    ldab #40
10639 D39B 30              0     tsx
10640 D39C E7 00           ..    stab 00,x
10641 D39E 20 0C            .    bra 0c
10642 D3A0 30              0     tsx
10643 D3A1 E6 01           ..    ldab 01,x
10644 D3A3 C1 02           ..    cmpb #02
10645 D3A5 26 05           &.    bne 05
10646 D3A7 C6 80           ..    ldab #80
10647 D3A9 30              0     tsx
10648 D3AA E7 00           ..    stab 00,x
10649 D3AC BD D1 3D        ..=   jsr d13d             ;jump34 - motor on
10650 D3AF 5F              _     clrb
10651 D3B0 4F              O     clra
10652 D3B1 30              0     tsx
10653 D3B2 ED 03           ..    std 03,x
10654 ;look at the home sensors for this row.  If it is 0, increment 03/04 else
10655 ;decrement 03/05.   Do this 10 times.
10656 D3B4 CC 00 0A        ...   ldd #000a
10657 D3B7 ED 05           ..    std 05,x
10658 loop:
10659 D3B9 30              0     tsx
10660 D3BA EC 05           ..    ldd 05,x
10661 D3BC 2F 23           /#    ble 23       ; to D3E1
10662 D3BE F6 28 00        .(.   ldab 2800    ;snack motor home sensors
10663 D3C1 30              0     tsx
10664 D3C2 E4 00           ..    andb 00,x
10665 D3C4 26 09           &.    bne d3cf
10666 D3C6 30              0     tsx
10667 D3C7 6C 04           l.    inc 04,x
10668 D3C9 26 0C           &.    bne 0c
10669 D3CB 6C 03           l.    inc 03,x
10670 D3CD 20 08            .    bra d3d7
10671 D3CF 30              0     tsx
10672 D3D0 EC 03           ..    ldd 03,x
10673 D3D2 83 00 01        ...   subd #0001
10674 D3D5 ED 03           ..    std 03,x
10675 D3D7 30              0     tsx
10676 D3D8 EC 05           ..    ldd 05,x
10677 D3DA 83 00 01        ...   subd #0001
10678 D3DD ED 05           ..    std 05,x
10679 D3DF 20 D8            .    bra loop     ;d3b9
10680 D3E1 BD D1 05        ...   jsr d105             ;motors_off - turn motors off
10681 D3E4 30              0     tsx
10682 D3E5 EC 03           ..    ldd 03,x
10683 D3E7 2C 16           ,.    bge 16
10684 D3E9 F6 00 06        ...   ldab 0006
10685 D3EC 8D 7A           .z    bsr dest 7a
10686 D3EE 83 00 00        ...   subd #0000
10687 D3F1 27 0C           '.    beq 0c
10688 D3F3 BD D5 61        ..a   jsr d561             ;jump42
10689 D3F6 83 00 00        ...   subd #0000
10690 D3F9 26 04           &.    bne 04
10691 D3FB 5F              _     clrb
10692 D3FC 4F              O     clra
10693 D3FD 20 64            d    bra 64
10694 D3FF 7E D3 68        ~.h   jmp d368             ;goto62
10695 goto61:
10696 D402 CC 00 01        ...   ldd #0001
10697 D405 20 5C            \    bra 5c
10698 goto60:
10699 D407 F6 00 06        ...   ldab 0006
10700 D40A C1 13           ..    cmpb #13
10701 D40C 27 1C           '.    beq 1c
10702 D40E F6 00 06        ...   ldab 0006
10703 D411 C1 1D           ..    cmpb #1d
10704 D413 27 15           '.    beq 15
10705 D415 F6 00 06        ...   ldab 0006
10706 D418 C1 27           .'    cmpb #27
10707 D41A 27 0E           '.    beq 0e
10708 D41C F6 00 06        ...   ldab 0006
10709 D41F C1 31           .1    cmpb #31
10710 D421 27 07           '.    beq 07
10711 D423 F6 00 06        ...   ldab 0006
10712 D426 C1 3B           .;    cmpb #3b
10713 D428 26 37           &7    bne 37
10714 D42A BD D1 3D        ..=   jsr d13d             ;jump34 - motor on
10715 D42D 7F 00 1C        ...   clr 001c
10716 D430 7F 00 18        ...   clr 0018
10717 D433 F6 18 00        ...   ldab 1800
10718 D436 C4 40           .@    andb #40
10719 D438 26 14           &.    bne 14
10720 D43A 7C 00 1C        |..   inc 001c
10721 D43D F6 00 1C        ...   ldab 001c
10722 D440 C1 FF           ..    cmpb #ff
10723 D442 26 08           &.    bne 08
10724 D444 BD D1 05        ...   jsr d105             ;motors_off
10725 D447 CC 00 01        ...   ldd #0001
10726 D44A 20 17            .    bra 17
10727 D44C 20 11            .    bra 11
10728 D44E 7C 00 18        |..   inc 0018
10729 D451 F6 00 18        ...   ldab 0018
10730 D454 C1 08           ..    cmpb #08
10731 D456 26 07           &.    bne 07
10732 D458 BD D1 05        ...   jsr d105             ;motors_off
10733 D45B 5F              _     clrb
10734 D45C 4F              O     clra
10735 D45D 20 04            .    bra 04
10736 D45F 20 D2            .    bra d2
10737 D461 5F              _     clrb
10738 D462 4F              O     clra
10739 D463 38              8     pulx
10740 D464 38              8     pulx
10741 D465 38              8     pulx
10742 D466 31              1     ins
10743 D467 39              9     rts
10744
10745 jump51:
10746 D468 37              7     pshb
10747 D469 30              0     tsx
10748 D46A E6 00           ..    ldab 00,x
10749 D46C 4F              O     clra
10750 D46D 05              .     asld
10751 D46E C3 08 00        ...   addd #0800
10752 D471 8F              .     xgdx
10753 D472 EC 00           ..    ldd 00,x
10754 D474 5F              _     clrb
10755 D475 84 80           ..    anda #80
10756 D477 31              1     ins
10757 D478 39              9     rts
10758
10759 jump67:
10760 D479 7F 00 1C        ...   clr 001c
10761 ; begin loop
10762 D47C F6 00 1C        ...   ldab 001c
10763 D47F C1 64           .d    cmpb #64   ; to 100
10764 D481 24 1A           $.    bcc 1a     ; to d49d
10765 D483 CC FF 7F        ...   ldd #ff7f
10766 D486 37              7     pshb
10767 D487 36              6     psha
10768 D488 F6 00 1C        ...   ldab 001c
10769 D48B 4F              O     clra
10770 D48C 05              .     asld
10771 D48D C3 08 C8        ...   addd #08c8
10772 D490 38              8     pulx
10773 D491 8F              .     xgdx
10774 D492 A4 00           ..    anda 00,x
10775 D494 E4 01           ..    andb 01,x
10776 D496 ED 00           ..    std 00,x
10777 D498 7C 00 1C        |..   inc 001c
10778 D49B 20 DF            .    bra df  ; to d47c
10779 D49D 7F 00 05        ...   clr 0005
10780 goto65: ; begin motor count loop
10781 D4A0 F6 00 05        ...   ldab 0005
10782 D4A3 C1 50           .P    cmpb #50     ; 80
10783 D4A5 25 03           %.    bcs 03
10784 D4A7 7E D5 60        ~.`   jmp d560             ;goto63 - exit
10785 D4AA F6 00 05        ...   ldab 0005
10786 D4AD 4F              O     clra
10787 D4AE C3 B0 D3        ...   addd #b0d3   ;motor lookup table
10788 D4B1 8F              .     xgdx
10789 D4B2 E6 00           ..    ldab 00,x
10790 D4B4 F7 00 06        ...   stab 0006
10791 D4B7 BD D3 11        ...   jsr d311             ;jump30 - test position exists
10792 D4BA 83 00 00        ...   subd #0000
10793 D4BD 27 03           '.    beq 03
10794 D4BF 7E D5 45        ~.E   jmp d545             ;goto64
10795 D4C2 F6 00 06        ...   ldab 0006
10796 D4C5 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
10797 D4C8 83 00 00        ...   subd #0000
10798 D4CB 26 78           &x    bne 78
10799 D4CD BD D5 B0        ...   jsr d5b0             ;jump31
10800 D4D0 83 00 00        ...   subd #0000
10801 D4D3 26 06           &.    bne 06
10802 D4D5 BD D1 FD        ...   jsr d1fd             ;jump90
10803 D4D8 BD D6 3C        ..<   jsr d63c             ;jump33
10804 D4DB CC 80 00        ...   ldd #8000
10805 D4DE 37              7     pshb
10806 D4DF 36              6     psha
10807 D4E0 F6 00 06        ...   ldab 0006
10808 D4E3 4F              O     clra
10809 D4E4 05              .     asld
10810 D4E5 C3 08 00        ...   addd #0800
10811 D4E8 38              8     pulx
10812 D4E9 8F              .     xgdx
10813 D4EA AA 00           ..    ora 00,x
10814 D4EC EA 01           ..    orb 01,x
10815 D4EE ED 00           ..    std 00,x
10816 D4F0 F6 00 06        ...   ldab 0006
10817 D4F3 4F              O     clra
10818 D4F4 05              .     asld
10819 D4F5 C3 08 00        ...   addd #0800
10820 D4F8 8F              .     xgdx
10821 D4F9 EC 00           ..    ldd 00,x
10822 D4FB C4 FF           ..    andb #ff
10823 D4FD 84 3F           .?    anda #3f
10824 D4FF 83 27 0F        .'.   subd #270f
10825 D502 23 1A           #.    bls 1a
10826 D504 BD D1 FD        ...   jsr d1fd             ;jump90
10827 D507 CC 01 00        ...   ldd #0100
10828 D50A 37              7     pshb
10829 D50B 36              6     psha
10830 D50C F6 00 06        ...   ldab 0006
10831 D50F 4F              O     clra
10832 D510 05              .     asld
10833 D511 C3 08 C8        ...   addd #08c8
10834 D514 38              8     pulx
10835 D515 8F              .     xgdx
10836 D516 AA 00           ..    ora 00,x
10837 D518 EA 01           ..    orb 01,x
10838 D51A ED 00           ..    std 00,x
10839 D51C 20 25            %    bra 25
10840 D51E F6 00 06        ...   ldab 0006
10841 D521 4F              O     clra
10842 D522 05              .     asld
10843 D523 C3 08 C8        ...   addd #08c8
10844 D526 8F              .     xgdx
10845 D527 EC 00           ..    ldd 00,x
10846 D529 C4 7F           ..    andb #7f
10847 D52B F7 00 06        ...   stab 0006
10848 D52E CC 00 80        ...   ldd #0080
10849 D531 37              7     pshb
10850 D532 36              6     psha
10851 D533 F6 00 06        ...   ldab 0006
10852 D536 4F              O     clra
10853 D537 05              .     asld
10854 D538 C3 08 C8        ...   addd #08c8
10855 D53B 38              8     pulx
10856 D53C 8F              .     xgdx
10857 D53D AA 00           ..    ora 00,x
10858 D53F EA 01           ..    orb 01,x
10859 D541 ED 00           ..    std 00,x
10860 D543 20 15            .    bra 15
10861 goto64: ; mark a motor position as valid?
10862 D545 CC 7F FF        ...   ldd #7fff
10863 D548 37              7     pshb
10864 D549 36              6     psha
10865 D54A F6 00 06        ...   ldab 0006
10866 D54D 4F              O     clra
10867 D54E 05              .     asld
10868 D54F C3 08 00        ...   addd #0800
10869 D552 38              8     pulx
10870 D553 8F              .     xgdx
10871 D554 A4 00           ..    anda 00,x
10872 D556 E4 01           ..    andb 01,x
10873 D558 ED 00           ..    std 00,x
10874 D55A 7C 00 05        |..   inc 0005
10875 D55D 7E D4 A0        ~..   jmp d4a0             ;goto65 - loop again
10876 goto63:
10877 D560 39              9     rts
10878
10879 jump42:
10880 D561 F6 00 06        ...   ldab 0006
10881 D564 4F              O     clra
10882 D565 05              .     asld
10883 D566 C3 08 00        ...   addd #0800
10884 D569 8F              .     xgdx
10885 D56A EC 00           ..    ldd 00,x
10886 D56C 5F              _     clrb
10887 D56D 84 40           .@    anda #40
10888 D56F 39              9     rts
10889
10890 ;Look at the home sensor for the row of this slot.  If it isn't 0 within 5
10891 ;loops, return 1 (fault?), else return 0 (OK?).
10892 ;005f is the row number in this routine.  scratch variable?
10893 ;looks like 0006 is the slot number.
10894 ;this is called twice
10895 jump35:
10896 D570 F6 00 06        ...   ldab 0006
10897 D573 4F              O     clra
10898 D574 CE 00 0A        ...   ldx #000a
10899 D577 02              .     idiv
10900 D578 F7 00 5F        .._   stab 005f
10901 D57B F6 00 5F        .._   ldab 005f
10902 D57E C1 05           ..    cmpb #05
10903 D580 23 03           #.    bls d585
10904 D582 7A 00 5F        z._   dec 005f
10905 D585 F6 00 5F        .._   ldab 005f    ;row number
10906 D588 4F              O     clra
10907 D589 C3 B1 23        ..#   addd #b123
10908 D58C 8F              .     xgdx
10909 D58D E6 00           ..    ldab 00,x    ;get bit for this row
10910 D58F F7 00 5E        ..^   stab 005e
10911 D592 7F 00 1C        ...   clr 001c
10912 loop:
10913 D595 F6 28 00        .(.   ldab 2800    ;snack motor home sensors
10914 D598 F4 00 5E        ..^   andb 005e    ;check home sensor for this row
10915 D59B 27 10           '.    beq d5ad
10916 D59D 7C 00 1C        |..   inc 001c
10917 D5A0 F6 00 1C        ...   ldab 001c
10918 D5A3 C1 05           ..    cmpb #05
10919 D5A5 26 04           &.    bne d5ab
10920 D5A7 CC 00 01        ...   ldd #0001
10921 D5AA 39              9     rts
10922
10923 D5AB 20 E8            .    bra loop     ;d595
10924 D5AD 5F              _     clrb
10925 D5AE 4F              O     clra
10926 D5AF 39              9     rts
10927
10928 ;This does almost the same - check the home sensor for this row (slot number
10929 ;is in 0006) up to 5 times.  If it is 1, return 0.  If it stays 0, return 0.
10930 ;(this is the reverse of the routine above).  But also check bit 0 of 100a.
10931 ;If it is ever 0, return 0.
10932 ;005f is the row number
10933 ;005e is the bit mask for this row
10934 jump31:
10935 D5B0 F6 00 06        ...   ldab 0006
10936 D5B3 4F              O     clra
10937 D5B4 CE 00 0A        ...   ldx #000a
10938 D5B7 02              .     idiv
10939 D5B8 F7 00 5F        .._   stab 005f
10940 D5BB F6 00 5F        .._   ldab 005f
10941 D5BE C1 05           ..    cmpb #05
10942 D5C0 23 03           #.    bls 03
10943 D5C2 7A 00 5F        z._   dec 005f
10944 D5C5 F6 00 5F        .._   ldab 005f
10945 D5C8 4F              O     clra
10946 D5C9 C3 B1 23        ..#   addd #b123
10947 D5CC 8F              .     xgdx
10948 D5CD E6 00           ..    ldab 00,x
10949 D5CF F7 00 5E        ..^   stab 005e
10950 D5D2 7F 00 1C        ...   clr 001c
10951 loop:
10952 D5D5 F6 28 00        .(.   ldab 2800    ;snack motor home sensors
10953 D5D8 F4 00 5E        ..^   andb 005e
10954 D5DB 26 17           &.    bne d5f4
10955 D5DD F6 10 0A        ...   ldab 100a
10956 D5E0 C4 01           ..    andb #01
10957 D5E2 27 10           '.    beq d5f4
10958 D5E4 7C 00 1C        |..   inc 001c
10959 D5E7 F6 00 1C        ...   ldab 001c
10960 D5EA C1 05           ..    cmpb #05
10961 D5EC 26 04           &.    bne d5f2
10962 D5EE CC 00 01        ...   ldd #0001
10963 D5F1 39              9     rts
10964
10965 D5F2 20 E1            .    bra loop     ;d5d5
10966 D5F4 5F              _     clrb
10967 D5F5 4F              O     clra
10968 D5F6 39              9     rts
10969
10970 jump108:
10971 D5F7 C6 07           ..    ldab #07
10972 D5F9 F7 00 1C        ...   stab 001c
10973 D5FC 7F 00 18        ...   clr 0018
10974 ;
10975 D5FF F6 00 1C        ...   ldab 001c
10976 D602 27 1E           '.    beq 1e        ; to d620
10977 D604 7A 00 1C        z..   dec 001c
10978 D607 F6 10 0A        ...   ldab 100a
10979 D60A C4 01           ..    andb #01
10980 D60C 26 12           &.    bne 12        ; to d620
10981 D60E C6 07           ..    ldab #07
10982 D610 F7 00 1C        ...   stab 001c
10983 D613 7C 00 18        |..   inc 0018
10984 D616 F6 00 18        ...   ldab 0018
10985 D619 C1 05           ..    cmpb #05
10986 D61B 26 03           &.    bne 03
10987 D61D 5F              _     clrb
10988 D61E 4F              O     clra
10989 D61F 39              9     rts
10990 ;
10991 D620 20 DD            .    bra dd        ; to d5ff
10992 D622 CC 00 01        ...   ldd #0001
10993 D625 39              9     rts
10994
10995 jump91:
10996 ; ORs memory location 08c8+(slotnum*2) with #0200
10997 D626 CC 02 00        ...   ldd #0200
10998 D629 37              7     pshb
10999 D62A 36              6     psha
11000 D62B F6 00 06        ...   ldab 0006
11001 D62E 4F              O     clra
11002 D62F 05              .     asld
11003 D630 C3 08 C8        ...   addd #08c8
11004 D633 38              8     pulx
11005 D634 8F              .     xgdx
11006 D635 AA 00           ..    ora 00,x
11007 D637 EA 01           ..    orb 01,x
11008 D639 ED 00           ..    std 00,x
11009 D63B 39              9     rts
11010
11011 jump33:
11012 ; ORs memory location 08c8+(slotnum*2) with #0400
11013 D63C CC 04 00        ...   ldd #0400
11014 D63F 37              7     pshb
11015 D640 36              6     psha
11016 D641 F6 00 06        ...   ldab 0006
11017 D644 4F              O     clra
11018 D645 05              .     asld
11019 D646 C3 08 C8        ...   addd #08c8
11020 D649 38              8     pulx
11021 D64A 8F              .     xgdx
11022 D64B AA 00           ..    ora 00,x
11023 D64D EA 01           ..    orb 01,x
11024 D64F ED 00           ..    std 00,x
11025 D651 39              9     rts
11026
11027 jump5:
11028 ; Sends a pulse to the bill acceptor
11029 D652 CE 00 1A        ...   ldx #001a
11030 D655 1C 00 01        ..    bset 00,x, #01
11031 D658 F6 00 1A        ...   ldab 001a
11032 D65B F7 30 00        .0.   stab 3000
11033 D65E CE 00 14        ...   ldx #0014
11034 D661 1D 00 01        ..    bclr 00,x, #01
11035 D664 F6 00 14        ...   ldab 0014
11036 D667 F7 38 00        .8.   stab 3800
11037 D66A 39              9     rts
11038
11039 jump107:
11040 D66B F6 0B C0        ...   ldab 0bc0
11041 D66E C4 08           ..    andb #08
11042 D670 27 07           '.    beq 07
11043 D672 F6 00 7D        ..}   ldab 007d
11044 D675 27 02           '.    beq 02
11045 D677 20 F9            .    bra f9
11046 D679 F6 00 15        ...   ldab 0015
11047 D67C 2D 77           -w    blt 77
11048 D67E FC 00 40        ..@   ldd 0040
11049 D681 F3 00 3E        ..>   addd 003e
11050 D684 B3 00 0F        ...   subd 000f
11051 D687 24 4F           $O    bcc 4f
11052 D689 F6 0B C0        ...   ldab 0bc0
11053 D68C C4 01           ..    andb #01
11054 D68E 26 07           &.    bne 07
11055 D690 F6 0B C0        ...   ldab 0bc0
11056 D693 C4 04           ..    andb #04
11057 D695 27 0C           '.    beq 0c
11058 D697 CE 00 1A        ...   ldx #001a
11059 D69A 1D 00 01        ..    bclr 00,x, #01
11060 D69D F6 00 1A        ...   ldab 001a
11061 D6A0 F7 30 00        .0.   stab 3000    ; changer accept' line
11062 D6A3 F6 0B C0        ...   ldab 0bc0
11063 D6A6 C4 08           ..    andb #08
11064 D6A8 27 20           '     beq 20
11065 D6AA F6 0C D9        ...   ldab 0cd9
11066 D6AD C1 03           ..    cmpb #03
11067 D6AF 23 19           #.    bls 19
11068 D6B1 FC 0B EF        ...   ldd 0bef
11069 D6B4 83 00 64        ..d   subd #0064
11070 D6B7 25 11           %.    bcs 11
11071 D6B9 CE 00 14        ...   ldx #0014
11072 D6BC 1C 00 02        ..    bset 00,x, #02
11073 D6BF F6 00 14        ...   ldab 0014
11074 D6C2 F7 38 00        .8.   stab 3800    ; bill acceptor
11075 D6C5 BD C0 E0        ...   jsr c0e0             ;jump94
11076 D6C8 20 0C            .    bra 0c
11077 D6CA CE 00 14        ...   ldx #0014
11078 D6CD 1D 00 01        ..    bclr 00,x, #01
11079 D6D0 F6 00 14        ...   ldab 0014
11080 D6D3 F7 38 00        .8.   stab 3800
11081 D6D6 20 05            .    bra 05
11082 D6D8 BD D6 52        ..R   jsr d652             ;jump5
11083 D6DB 8D 53           .S    bsr dest 53
11084 D6DD F6 0B C0        ...   ldab 0bc0
11085 D6E0 C4 08           ..    andb #08
11086 D6E2 27 11           '.    beq 11
11087 D6E4 F6 0B C0        ...   ldab 0bc0
11088 D6E7 C4 40           .@    andb #40
11089 D6E9 27 0A           '.    beq 0a
11090 D6EB F6 00 15        ...   ldab 0015
11091 D6EE C4 01           ..    andb #01
11092 D6F0 27 03           '.    beq 03
11093 D6F2 BD C0 E0        ...   jsr c0e0             ;jump94
11094 D6F5 39              9     rts
11095
11096 jump106:
11097 D6F6 F6 0C DB        ...   ldab 0cdb
11098 D6F9 4F              O     clra
11099 D6FA 37              7     pshb
11100 D6FB 36              6     psha
11101 D6FC FC 0B DD        ...   ldd 0bdd
11102 D6FF BD FB BA        ...   jsr fbba             ;jump38 - multiply?
11103 D702 FD 0C EB        ...   std 0ceb
11104 D705 F6 0C DA        ...   ldab 0cda
11105 D708 4F              O     clra
11106 D709 37              7     pshb
11107 D70A 36              6     psha
11108 D70B FC 0B DF        ...   ldd 0bdf
11109 D70E BD FB BA        ...   jsr fbba             ;jump38 - multiply?
11110 D711 FD 0C ED        ...   std 0ced
11111 D714 F6 0C D9        ...   ldab 0cd9
11112 D717 4F              O     clra
11113 D718 37              7     pshb
11114 D719 36              6     psha
11115 D71A FC 0B E1        ...   ldd 0be1
11116 D71D BD FB BA        ...   jsr fbba             ;jump38 - multiply?
11117 D720 FD 0C EF        ...   std 0cef
11118 D723 FC 0C EB        ...   ldd 0ceb
11119 D726 F3 0C ED        ...   addd 0ced
11120 D729 F3 0C EF        ...   addd 0cef
11121 D72C FD 0B EF        ...   std 0bef
11122 D72F 39              9     rts
11123
11124 jump202:
11125 D730 F6 00 15        ...   ldab 0015
11126 D733 C4 1F           ..    andb #1f
11127 D735 27 49           'I    beq 49
11128 D737 FC 00 40        ..@   ldd 0040
11129 D73A F3 00 3E        ..>   addd 003e
11130 D73D B3 0B EF        ...   subd 0bef
11131 D740 23 19           #.    bls 19
11132 D742 CC B0 6B        ..k   ldd #b06b    ; "NO CHANGE"
11133 D745 BD C0 BA        ...   jsr c0ba             ;display:
11134 D748 CC 01 F4        ...   ldd #01f4
11135 D74B BD E5 71        ..q   jsr e571             ;msdelay
11136 D74E BD C5 D3        ...   jsr c5d3             ;jump6
11137 D751 CC 01 F4        ...   ldd #01f4
11138 D754 BD E5 71        ..q   jsr e571             ;msdelay
11139 D757 CC 00 01        ...   ldd #0001
11140 D75A 39              9     rts
11141 ;
11142 D75B F6 00 15        ...   ldab 0015
11143 D75E C4 04           ..    andb #04
11144 D760 27 1E           '.    beq 1e
11145 D762 F6 0E 6E        ..n   ldab 0e6e
11146 D765 26 19           &.    bne 19
11147 D767 CC B0 76        ..v   ldd #b076    ; "NO FIVES"
11148 D76A BD C0 BA        ...   jsr c0ba             ;display:
11149 D76D CC 01 F4        ...   ldd #01f4
11150 D770 BD E5 71        ..q   jsr e571             ;msdelay
11151 D773 BD C5 D3        ...   jsr c5d3             ;jump6
11152 D776 CC 01 F4        ...   ldd #01f4
11153 D779 BD E5 71        ..q   jsr e571             ;msdelay
11154 D77C CC 00 01        ...   ldd #0001
11155 D77F 39              9     rts
11156 ;
11157 D780 5F              _     clrb
11158 D781 4F              O     clra
11159 D782 39              9     rts
11160
11161 jump44:
11162 D783 F6 00 06        ...   ldab 0006
11163 D786 4F              O     clra
11164 D787 CE 00 0A        ...   ldx #000a
11165 D78A 02              .     idiv
11166 D78B C1 04           ..    cmpb #04
11167 D78D 26 0E           &.    bne 0e
11168 D78F F6 00 1D        ...   ldab 001d
11169 D792 C4 04           ..    andb #04
11170 D794 27 03           '.    beq 03
11171 D796 5F              _     clrb
11172 D797 4F              O     clra
11173 D798 39              9     rts
11174
11175 D799 CC 00 01        ...   ldd #0001
11176 D79C 39              9     rts
11177
11178 D79D 5F              _     clrb
11179 D79E 4F              O     clra
11180 D79F 39              9     rts
11181
11182 is_invalid_slot:
11183 ; validates a slot number? (return 1 if invalid)
11184 ; let i = number on stack
11185 ; if i in [9, 69, 79, 89, 99], return 1
11186 ; if 0e6d!=1 return 0
11187 ; if i%10 not in [1,2] return 1
11188 ; if i < 11 return 1
11189 ; if i <= 62 return 0
11190 ; return 1
11191 D7A0 37              7     pshb
11192 D7A1 30              0     tsx
11193 D7A2 E6 00           ..    ldab 00,x
11194 D7A4 C1 09           ..    cmpb #09     ; 9
11195 D7A6 27 18           '.    beq 18       ; to d7c0 (returns 1)
11196 D7A8 E6 00           ..    ldab 00,x
11197 D7AA C1 45           .E    cmpb #45     ; 69
11198 D7AC 27 12           '.    beq 12       ; to d7c0 (returns 1)
11199 D7AE E6 00           ..    ldab 00,x
11200 D7B0 C1 4F           .O    cmpb #4f     ; 79
11201 D7B2 27 0C           '.    beq 0c       ; to d7c0 (returns 1)
11202 D7B4 E6 00           ..    ldab 00,x
11203 D7B6 C1 59           .Y    cmpb #59     ; 89
11204 D7B8 27 06           '.    beq 06       ; to d7c0 (returns 1)
11205 D7BA E6 00           ..    ldab 00,x
11206 D7BC C1 63           .c    cmpb #63     ; 99 (also returns 1)
11207 D7BE 26 05           &.    bne 05       ; to d7c5 if not equal
11208 D7C0 CC 00 01        ...   ldd #0001
11209 D7C3 20 38            8    bra 38       ; to d7fd (return 1)
11210 D7C5 F6 0E 6D        ..m   ldab 0e6d
11211 D7C8 C1 01           ..    cmpb #01
11212 D7CA 26 2F           &/    bne 2f       ;to d7fb (return 0)
11213 D7CC 30              0     tsx
11214 D7CD E6 00           ..    ldab 00,x
11215 D7CF 4F              O     clra
11216 D7D0 CE 00 0A        ...   ldx #000a
11217 D7D3 02              .     idiv
11218 D7D4 C1 01           ..    cmpb #01
11219 D7D6 27 11           '.    beq 11      ;to d7e9 if num%10==1
11220 D7D8 30              0     tsx
11221 D7D9 E6 00           ..    ldab 00,x
11222 D7DB 4F              O     clra
11223 D7DC CE 00 0A        ...   ldx #000a
11224 D7DF 02              .     idiv
11225 D7E0 C1 02           ..    cmpb #02
11226 D7E2 27 05           '.    beq 05      ;to d7e9 if num%10==2
11227 D7E4 CC 00 01        ...   ldd #0001
11228 D7E7 20 14            .    bra 14      ; to d7fd (return 1)
11229 D7E9 30              0     tsx
11230 D7EA E6 00           ..    ldab 00,x
11231 D7EC C1 0B           ..    cmpb #0b    ; < 11
11232 D7EE 25 06           %.    bcs 06      ; return 1
11233 D7F0 E6 00           ..    ldab 00,x
11234 D7F2 C1 3E           .>    cmpb #3e    ; <= 62
11235 D7F4 23 05           #.    bls 05      ; return 0
11236 D7F6 CC 00 01        ...   ldd #0001
11237 D7F9 20 02            .    bra 02
11238 D7FB 5F              _     clrb
11239 D7FC 4F              O     clra
11240 D7FD 31              1     ins
11241 D7FE 39              9     rts
11242
11243 jump80:
11244 D7FF 7F 00 1C        ...   clr 001c
11245 D802 F6 00 1C        ...   ldab 001c
11246 D805 4F              O     clra
11247 D806 B3 00 4D        ..M   subd 004d
11248 D809 24 05           $.    bcc 05
11249 D80B 7C 00 1C        |..   inc 001c
11250 D80E 20 F2            .    bra f2
11251 D810 F6 00 1C        ...   ldab 001c
11252 D813 4F              O     clra
11253 D814 05              .     asld
11254 D815 C3 0D 1F        ...   addd #0d1f
11255 D818 8F              .     xgdx
11256 D819 EC 00           ..    ldd 00,x
11257 D81B 83 FF FF        ...   subd #ffff
11258 D81E 26 10           &.    bne 10
11259 D820 5F              _     clrb
11260 D821 4F              O     clra
11261 D822 37              7     pshb
11262 D823 36              6     psha
11263 D824 F6 00 1C        ...   ldab 001c
11264 D827 4F              O     clra
11265 D828 05              .     asld
11266 D829 C3 0D 1F        ...   addd #0d1f
11267 D82C 38              8     pulx
11268 D82D 8F              .     xgdx
11269 D82E ED 00           ..    std 00,x
11270 D830 F6 00 1C        ...   ldab 001c
11271 D833 4F              O     clra
11272 D834 05              .     asld
11273 D835 C3 0D 1F        ...   addd #0d1f
11274 D838 8F              .     xgdx
11275 D839 6C 01           l.    inc 01,x
11276 D83B 26 02           &.    bne 02
11277 D83D 6C 00           l.    inc 00,x
11278 D83F 39              9     rts
11279
11280 jump105:
11281 D840 FC 00 44        ..D   ldd 0044
11282 D843 26 03           &.    bne 03
11283 D845 7E D8 D2        ~..   jmp d8d2             ;goto66
11284 D848 FC 00 44        ..D   ldd 0044
11285 D84B 37              7     pshb
11286 D84C 36              6     psha
11287 D84D 4F              O     clra
11288 D84E 5F              _     clrb
11289 D84F 37              7     pshb
11290 D850 36              6     psha
11291 D851 CC 0D EB        ...   ldd #0deb
11292 D854 BD FB DF        ...   jsr fbdf             ;jump46
11293 D857 31              1     ins
11294 D858 31              1     ins
11295 D859 FE 0D ED        ...   ldx 0ded
11296 D85C 3C              <     pshx
11297 D85D FC 0D EB        ...   ldd 0deb
11298 D860 37              7     pshb
11299 D861 36              6     psha
11300 D862 CE E1 00        ...   ldx #e100
11301 D865 3C              <     pshx
11302 D866 CC 05 F5        ...   ldd #05f5
11303 D869 37              7     pshb
11304 D86A 36              6     psha
11305 D86B 30              0     tsx
11306 D86C EC 06           ..    ldd 06,x
11307 D86E A3 02           ..    subd 02,x
11308 D870 EC 04           ..    ldd 04,x
11309 D872 E2 01           ..    sbcb 01,x
11310 D874 A2 00           ..    sbca 00,x
11311 D876 38              8     pulx
11312 D877 38              8     pulx
11313 D878 38              8     pulx
11314 D879 38              8     pulx
11315 D87A 25 11           %.    bcs 11
11316 D87C CE 1F 00        ...   ldx #1f00
11317 D87F 3C              <     pshx
11318 D880 CC FA 0A        ...   ldd #fa0a
11319 D883 37              7     pshb
11320 D884 36              6     psha
11321 D885 CC 0D EB        ...   ldd #0deb
11322 D888 BD FB DF        ...   jsr fbdf             ;jump46
11323 D88B 31              1     ins
11324 D88C 31              1     ins
11325 D88D FC 00 44        ..D   ldd 0044
11326 D890 37              7     pshb
11327 D891 36              6     psha
11328 D892 4F              O     clra
11329 D893 5F              _     clrb
11330 D894 37              7     pshb
11331 D895 36              6     psha
11332 D896 CC 0D E7        ...   ldd #0de7
11333 D899 BD FB DF        ...   jsr fbdf             ;jump46
11334 D89C 31              1     ins
11335 D89D 31              1     ins
11336 D89E FE 0D E9        ...   ldx 0de9
11337 D8A1 3C              <     pshx
11338 D8A2 FC 0D E7        ...   ldd 0de7
11339 D8A5 37              7     pshb
11340 D8A6 36              6     psha
11341 D8A7 CE E1 00        ...   ldx #e100    ; 57600
11342 D8AA 3C              <     pshx
11343 D8AB CC 05 F5        ...   ldd #05f5
11344 D8AE 37              7     pshb
11345 D8AF 36              6     psha
11346 D8B0 30              0     tsx
11347 D8B1 EC 06           ..    ldd 06,x
11348 D8B3 A3 02           ..    subd 02,x
11349 D8B5 EC 04           ..    ldd 04,x
11350 D8B7 E2 01           ..    sbcb 01,x
11351 D8B9 A2 00           ..    sbca 00,x
11352 D8BB 38              8     pulx
11353 D8BC 38              8     pulx
11354 D8BD 38              8     pulx
11355 D8BE 38              8     pulx
11356 D8BF 25 11           %.    bcs 11
11357 D8C1 CE 1F 00        ...   ldx #1f00
11358 D8C4 3C              <     pshx
11359 D8C5 CC FA 0A        ...   ldd #fa0a
11360 D8C8 37              7     pshb
11361 D8C9 36              6     psha
11362 D8CA CC 0D E7        ...   ldd #0de7
11363 D8CD BD FB DF        ...   jsr fbdf             ;jump46
11364 D8D0 31              1     ins
11365 D8D1 31              1     ins
11366 goto66:
11367 D8D2 39              9     rts
11368
11369 jump84:
11370 ;500 ms delay
11371 D8D3 7F 00 18        ...   clr 0018
11372 D8D6 F6 00 18        ...   ldab 0018
11373 D8D9 C1 10           ..    cmpb #10
11374 D8DB 24 0B           $.    bcc 0b
11375 D8DD CC 00 32        ..2   ldd #0032
11376 D8E0 BD E5 71        ..q   jsr e571             ;msdelay
11377 D8E3 7C 00 18        |..   inc 0018
11378 D8E6 20 EE            .    bra ee
11379 D8E8 39              9     rts
11380
11381 jump92:
11382 ; displays select other item
11383 D8E9 F6 00 2B        ..+   ldab 002b
11384 D8EC C1 00           ..    cmpb #00
11385 D8EE 26 18           &.    bne 18
11386 D8F0 CC AD 84        ...   ldd #ad84    ; "  PULSE  "
11387 D8F3 BD C0 BA        ...   jsr c0ba             ;display:
11388 D8F6 8D DB           ..    bsr dest db
11389 D8F8 CC AD 8F        ...   ldd #ad8f    ; "  EXTRA  "
11390 D8FB BD C0 BA        ...   jsr c0ba             ;display:
11391 D8FE 8D D3           ..    bsr dest d3
11392 D900 CC AD 9A        ...   ldd #ad9a    ; "SELECTION"
11393 D903 BD C0 BA        ...   jsr c0ba             ;display:
11394 D906 20 4E            N    bra 4e
11395 D908 C1 01           ..    cmpb #01
11396 D90A 26 18           &.    bne 18
11397 D90C CC AD 63        ..c   ldd #ad63    ; "  BITTE  "
11398 D90F BD C0 BA        ...   jsr c0ba             ;display:
11399 D912 8D BF           ..    bsr dest bf
11400 D914 CC AD 6E        ..n   ldd #ad6e    ; "  ANDERE  "
11401 D917 BD C0 BA        ...   jsr c0ba             ;display:
11402 D91A 8D B7           ..    bsr dest b7
11403 D91C CC AD 79        ..y   ldd #ad79    ; "   WAHL   "
11404 D91F BD C0 BA        ...   jsr c0ba             ;display:
11405 D922 20 32            2    bra 32
11406 D924 C1 02           ..    cmpb #02
11407 D926 26 18           &.    bne 18
11408 D928 CC AD 42        ..B   ldd #ad42    ; "FAITES"
11409 D92B BD C0 BA        ...   jsr c0ba             ;display:
11410 D92E 8D A3           ..    bsr dest a3
11411 D930 CC AD 4D        ..M   ldd #ad4d    ; "AURTE"
11412 D933 BD C0 BA        ...   jsr c0ba             ;display:
11413 D936 8D 9B           ..    bsr dest 9b
11414 D938 CC AD 58        ..X   ldd #ad58    ; "CHOIX"
11415 D92B BD C0 BA        ...   jsr c0ba             ;display:
11416 D93E 20 16            .    bra 16
11417 D940 CC AD 21        ..!   ldd #ad21    ; "SELECT "
11418 D943 BD C0 BA        ...   jsr c0ba             ;display:
11419 D946 8D 8B           ..    bsr dest 8b
11420 D948 CC AD 2C        ..,   ldd #ad2c    ; "OTHER"
11421 D94B BD C0 BA        ...   jsr c0ba             ;display:
11422 D94E 8D 83           ..    bsr dest 83
11423 D950 CC AD 37        ..7   ldd #ad37    ; "ITEM"
11424 D953 BD C0 BA        ...   jsr c0ba             ;display:
11425 D956 BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
11426 D959 39              9     rts
11427
11428 jump123:
11429 D95A F6 00 06        ...   ldab 0006
11430 D95D F1 0B AF        ...   cmpb 0baf
11431 D960 26 0D           &.    bne 0d       ; to d984
11432 D962 BD D7 FF        ...   jsr d7ff             ;jump80
11433 D965 F6 0B B4        ...   ldab 0bb4
11434 D968 F7 00 06        ...   stab 0006
11435 D96B 8D 55           .U    bsr 55       ;jump205
11436 D96D 20 52            R    bra 52       ; exit
11437 D96F F6 00 06        ...   ldab 0006
11438 D972 F1 0B AE        ...   cmpb 0bae
11439 D975 26 0D           &.    bne 0d       ; to d984
11440 D977 BD D7 FF        ...   jsr d7ff             ;jump80
11441 D97A F6 0B B3        ...   ldab 0bb3
11442 D97D F7 00 06        ...   stab 0006
11443 D980 8D 40           .@    bsr 40       ;jump205
11444 D982 20 3D            =    bra 3d
11445 D984 F6 00 06        ...   ldab 0006
11446 D987 F1 0B AD        ...   cmpb 0bad
11447 D98A 26 0D           &.    bne 0d
11448 D98C BD D7 FF        ...   jsr d7ff             ;jump80
11449 D98F F6 0B B2        ...   ldab 0bb2
11450 D992 F7 00 06        ...   stab 0006
11451 D995 8D 2B           .+    bsr 2b       ;jump205
11452 D997 20 28            (    bra 28
11453 D999 F6 00 06        ...   ldab 0006
11454 D99C F1 0B AC        ...   cmpb 0bac
11455 D99F 26 0D           &.    bne 0d
11456 D9A1 BD D7 FF        ...   jsr d7ff             ;jump80
11457 D9A4 F6 0B B1        ...   ldab 0bb1
11458 D9A7 F7 00 06        ...   stab 0006
11459 D9AA 8D 16           ..    bsr 16       ;jump205
11460 D9AC 20 13            .    bra 13
11461 D9AE F6 00 06        ...   ldab 0006
11462 D9B1 F1 0B AB        ...   cmpb 0bab
11463 D9B4 26 0B           &.    bne 0b
11464 D9B6 BD D7 FF        ...   jsr d7ff             ;jump80
11465 D9B9 F6 0B B0        ...   ldab 0bb0
11466 D9BC F7 00 06        ...   stab 0006
11467 D9BF 8D 01           ..    bsr 01       ;jump205
11468 D9C1 39              9     rts
11469
11470 jump205:
11471 D9C2 CC 03 E8        ...   ldd #03e8
11472 D9C5 BD E5 71        ..q   jsr e571             ;msdelay
11473 D9C8 BD D7 83        ...   jsr d783             ;jump44
11474 D9CB 83 00 00        ...   subd #0000
11475 D9CE 27 0B           '.    beq 0b
11476 D9D0 7F 00 06        ...   clr 0006
11477 D9D3 5F              _     clrb
11478 D9D4 4F              O     clra
11479 D9D5 FD 00 4D        ..M   std 004d
11480 D9D8 7E DA 63        ~.c   jmp da63             ;goto67
11481 D9DB BD D2 13        ...   jsr d213             ;jump45
11482 D9DE 83 00 00        ...   subd #0000
11483 D9E1 26 0A           &.    bne 0a
11484 D9E3 7F 00 06        ...   clr 0006
11485 D9E6 5F              _     clrb
11486 D9E7 4F              O     clra
11487 D9E8 FD 00 4D        ..M   std 004d
11488 D9EB 20 76            v    bra 76
11489 D9ED FC 0D 0B        ...   ldd 0d0b
11490 D9F0 83 FF FF        ...   subd #ffff
11491 D9F3 26 05           &.    bne 05
11492 D9F5 5F              _     clrb
11493 D9F6 4F              O     clra
11494 D9F7 FD 0D 0B        ...   std 0d0b
11495 D9FA FE 0D 0B        ...   ldx 0d0b
11496 D9FD 08              .     inx
11497 D9FE FF 0D 0B        ...   stx 0d0b
11498 DA01 F6 00 06        ...   ldab 0006
11499 DA04 4F              O     clra
11500 DA05 05              .     asld
11501 DA06 C3 08 C8        ...   addd #08c8
11502 DA09 8F              .     xgdx
11503 DA0A EC 00           ..    ldd 00,x
11504 DA0C C4 7F           ..    andb #7f
11505 DA0E 4F              O     clra
11506 DA0F FD 00 4D        ..M   std 004d
11507 DA12 F6 00 06        ...   ldab 0006
11508 DA15 4F              O     clra
11509 DA16 05              .     asld
11510 DA17 C3 08 00        ...   addd #0800
11511 DA1A 8F              .     xgdx
11512 DA1B EC 00           ..    ldd 00,x
11513 DA1D C4 FF           ..    andb #ff
11514 DA1F 84 3F           .?    anda #3f
11515 DA21 37              7     pshb
11516 DA22 36              6     psha
11517 DA23 4F              O     clra
11518 DA24 5F              _     clrb
11519 DA25 37              7     pshb
11520 DA26 36              6     psha
11521 DA27 CC 0D 17        ...   ldd #0d17
11522 DA2A BD FB DF        ...   jsr fbdf             ;jump46
11523 DA2D 31              1     ins
11524 DA2E 31              1     ins
11525 DA2F FE 0D 19        ...   ldx 0d19
11526 DA32 3C              <     pshx
11527 DA33 FC 0D 17        ...   ldd 0d17
11528 DA36 37              7     pshb
11529 DA37 36              6     psha
11530 DA38 CE E1 00        ...   ldx #e100
11531 DA3B 3C              <     pshx
11532 DA3C CC 05 F5        ...   ldd #05f5
11533 DA3F 37              7     pshb
11534 DA40 36              6     psha
11535 DA41 30              0     tsx
11536 DA42 EC 06           ..    ldd 06,x
11537 DA44 A3 02           ..    subd 02,x
11538 DA46 EC 04           ..    ldd 04,x
11539 DA48 E2 01           ..    sbcb 01,x
11540 DA4A A2 00           ..    sbca 00,x
11541 DA4C 38              8     pulx
11542 DA4D 38              8     pulx
11543 DA4E 38              8     pulx
11544 DA4F 38              8     pulx
11545 DA50 25 11           %.    bcs 11
11546 DA52 CE 1F 00        ...   ldx #1f00
11547 DA55 3C              <     pshx
11548 DA56 CC FA 0A        ...   ldd #fa0a
11549 DA59 37              7     pshb
11550 DA5A 36              6     psha
11551 DA5B CC 0D 17        ...   ldd #0d17
11552 DA5E BD FB DF        ...   jsr fbdf             ;jump46
11553 DA61 31              1     ins
11554 DA62 31              1     ins
11555 goto67:
11556 DA63 39              9     rts
11557
11558 jump122:
11559 DA64 FE 0B B9        ...   ldx 0bb9
11560 DA67 08              .     inx
11561 DA68 FF 0B B9        ...   stx 0bb9
11562 DA6B FC 0B B5        ...   ldd 0bb5
11563 DA6E CE 00 32        ..2   ldx #0032
11564 DA71 02              .     idiv
11565 DA72 8F              .     xgdx
11566 DA73 37              7     pshb
11567 DA74 36              6     psha
11568 DA75 CC 00 C3        ...   ldd #00c3
11569 DA78 BD FB BA        ...   jsr fbba             ;jump38 - multiply?
11570 DA7B B3 0B B9        ...   subd 0bb9
11571 DA7E 24 05           $.    bcc 05
11572 DA80 5F              _     clrb
11573 DA81 4F              O     clra
11574 DA82 FD 0B B9        ...   std 0bb9
11575 DA85 FC 0B B9        ...   ldd 0bb9
11576 DA88 37              7     pshb
11577 DA89 36              6     psha
11578 DA8A CC 00 0A        ...   ldd #000a
11579 DA8D BD FB BA        ...   jsr fbba             ;jump38 - multiply?
11580 DA90 37              7     pshb
11581 DA91 36              6     psha
11582 DA92 FC 0B B5        ...   ldd 0bb5
11583 DA95 CE 00 32        ..2   ldx #0032
11584 DA98 02              .     idiv
11585 DA99 8F              .     xgdx
11586 DA9A 38              8     pulx
11587 DA9B 8F              .     xgdx
11588 DA9C 02              .     idiv
11589 DA9D 8F              .     xgdx
11590 DA9E 37              7     pshb
11591 DA9F 36              6     psha
11592 DAA0 CC 00 0A        ...   ldd #000a
11593 DAA3 BD FB BA        ...   jsr fbba             ;jump38 - multiply?
11594 DAA6 CE 00 0A        ...   ldx #000a
11595 DAA9 02              .     idiv
11596 DAAA 8F              .     xgdx
11597 DAAB FD 00 4A        ..J   std 004a
11598 DAAE FC 00 4A        ..J   ldd 004a
11599 DAB1 BD FE 32        ..2   jsr fe32             ;jump25
11600 DAB4 DA CA 00 6E     ...n  ; 110
11601 DAB8 DA CA 02 80     ....  ; 750
11602 DABC DA CA 01 C2     ....  ; 1200
11603 DAC0 DA CA 01 C2     ....  ; 1650
11604 DAC4 DB 43 F9 8E     ....  ; 0
11605 DAC8 00 00           ..    ; end of array data
11606 DACA FC 0D 07        ...   ldd 0d07
11607 DACD 83 FF FF        ...   subd #ffff
11608 DAD0 26 05           &.    bne 05
11609 DAD2 5F              _     clrb
11610 DAD3 4F              O     clra
11611 DAD4 FD 0D 07        ...   std 0d07
11612 DAD7 FE 0D 07        ...   ldx 0d07
11613 DADA 08              .     inx
11614 DADB FF 0D 07        ...   stx 0d07
11615 DADE F6 00 06        ...   ldab 0006
11616 DAE1 4F              O     clra
11617 DAE2 05              .     asld
11618 DAE3 C3 08 00        ...   addd #0800
11619 DAE6 8F              .     xgdx
11620 DAE7 EC 00           ..    ldd 00,x
11621 DAE9 C4 FF           ..    andb #ff
11622 DAEB 84 3F           .?    anda #3f
11623 DAED 37              7     pshb
11624 DAEE 36              6     psha
11625 DAEF 4F              O     clra
11626 DAF0 5F              _     clrb
11627 DAF1 37              7     pshb
11628 DAF2 36              6     psha
11629 DAF3 CC 0D 0F        ...   ldd #0d0f
11630 DAF6 BD FB DF        ...   jsr fbdf             ;jump46
11631 DAF9 31              1     ins
11632 DAFA 31              1     ins
11633 DAFB FE 0D 11        ...   ldx 0d11
11634 DAFE 3C              <     pshx
11635 DAFF FC 0D 0F        ...   ldd 0d0f
11636 DB02 37              7     pshb
11637 DB03 36              6     psha
11638 DB04 CE E1 00        ...   ldx #e100
11639 DB07 3C              <     pshx
11640 DB08 CC 05 F5        ...   ldd #05f5
11641 DB0B 37              7     pshb
11642 DB0C 36              6     psha
11643 DB0D 30              0     tsx
11644 DB0E EC 06           ..    ldd 06,x
11645 DB10 A3 02           ..    subd 02,x
11646 DB12 EC 04           ..    ldd 04,x
11647 DB14 E2 01           ..    sbcb 01,x
11648 DB16 A2 00           ..    sbca 00,x
11649 DB18 38              8     pulx
11650 DB19 38              8     pulx
11651 DB1A 38              8     pulx
11652 DB1B 38              8     pulx
11653 DB1C 25 11           %.    bcs 11
11654 DB1E CE 1F 00        ...   ldx #1f00
11655 DB21 3C              <     pshx
11656 DB22 CC FA 0A        ...   ldd #fa0a
11657 DB25 37              7     pshb
11658 DB26 36              6     psha
11659 DB27 CC 0D 0F        ...   ldd #0d0f
11660 DB2A BD FB DF        ...   jsr fbdf             ;jump46
11661 DB2D 31              1     ins
11662 DB2E 31              1     ins
11663 DB2F 5F              _     clrb
11664 DB30 4F              O     clra
11665 DB31 FD 00 44        ..D   std 0044
11666 DB34 CE 00 1B        ...   ldx #001b
11667 DB37 1D 00 01        ...   bclr 00,x, #01
11668 DB3A 7F 00 4F        ..O   clr 004f
11669 DB3D CE 00 11        ...   ldx #0011
11670 DB40 1C 00 10        ...   bset 00,x, #10
11671 DB43 39              9     rts
11672
11673 jump104:
11674 ; say thankyou?
11675 DB44 F6 00 2B        ..+   ldab 002b
11676 DB47 C1 00           ..    cmpb #00
11677 DB49 26 08           &.    bne 08
11678 DB4B CC AC DF        ...   ldd #acdf
11679 DB4E BD C0 BA        ...   jsr c0ba             ;display:
11680 DB51 20 1E            .    bra 1e
11681 DB53 C1 01           ..    cmpb #01
11682 DB55 26 08           &.    bne 08
11683 DB57 CC AC D4        ...   ldd #acd4    ; "CHANGE"
11684 DB5A BD C0 BA        ...   jsr c0ba             ;display:
11685 DB5D 20 12            .    bra 12
11686 DB5F C1 02           ..    cmpb #02
11687 DB61 26 08           &.    bne 08
11688 DB63 CC AC EA        ...   ldd #acea
11689 DB66 BD C0 BA        ...   jsr c0ba             ;display:
11690 DB69 20 06            .    bra 06
11691 DB6B CC AC D4        ...   ldd #acd4
11692 DB6E BD C0 BA        ...   jsr c0ba             ;display:
11693 DB71 BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
11694 DB74 CE 00 01        ...   ldx #0001
11695 DB77 3C              <     pshx
11696 DB78 FC 00 40        ..@   ldd 0040
11697 DB7B F3 00 3E        ..>   addd 003e
11698 DB7E BD BE 9E        ...   jsr be9e             ;jump50
11699 DB81 38              8     pulx
11700 DB82 FC 00 40        ..@   ldd 0040
11701 DB85 27 05           '.    beq 05
11702 DB87 BD C4 56        ..V   jsr c456             ;jump47
11703 DB8A 20 06            .    bra 06
11704 DB8C CC 02 58        ..X   ldd #0258
11705 DB8F BD E5 71        ..q   jsr e571             ;msdelay
11706 DB92 FC 00 3E        ..>   ldd 003e
11707 DB95 27 03           '.    beq 03
11708 DB97 BD C5 D3        ...   jsr c5d3             ;jump6
11709 DB9A F6 00 2B        ..+   ldab 002b
11710 DB9D C1 00           ..    cmpb #00
11711 DB9F 26 08           &.    bne 08
11712 DBA1 CC AD 16        ...   ldd #ad16    ; "GRACIAS"
11713 DBA4 BD C0 BA        ...   jsr c0ba             ;display:
11714 DBA7 20 1E            .    bra 1e
11715 DBA9 C1 01           ..    cmpb #01
11716 DBAB 26 08           &.    bne 08
11717 DBAD CC AD 0B        ...   ldd #ad0b    ; "DANKE"
11718 DBB0 BD C0 BA        ...   jsr c0ba             ;display:
11719 DBB3 20 12            .    bra 12
11720 DBB5 C1 02           ..    cmpb #02
11721 DBB7 26 08           &.    bne 08
11722 DBB9 CC AD 00        ...   ldd #ad00    ; "MERCI"
11723 DBBC BD C0 BA        ...   jsr c0ba             ;display:
11724 DBBF 20 06            .    bra 06
11725 DBC1 CC AC F5        ...   ldd #acf5    ; "THANKS"
11726 DBC4 BD C0 BA        ...   jsr c0ba             ;display:
11727 DBC7 BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
11728 DBCA 39              9     rts
11729
11730 jump121:
11731 DBCB F6 00 1B        ...   ldab 001b
11732 DBCE C4 01           ..    andb #01
11733 DBD0 26 03           &.    bne 03
11734 DBD2 7E DC 98        ~..   jmp dc98             ;goto68
11735 DBD5 F6 00 06        ...   ldab 0006
11736 DBD8 4F              O     clra
11737 DBD9 05              .     asld
11738 DBDA C3 08 C8        ...   addd #08c8
11739 DBDD 8F              .     xgdx
11740 DBDE EC 00           ..    ldd 00,x
11741 DBE0 84 08           ..    anda #08
11742 DBE2 26 03           &.    bne 03
11743 DBE4 7E DC 98        ~..   jmp dc98             ;goto68
11744 DBE7 BD D7 FF        ...   jsr d7ff             ;jump80
11745 DBEA CC 03 E8        ...   ldd #03e8
11746 DBED BD E5 71        ..q   jsr e571             ;msdelay
11747 DBF0 BD D3 46        ..F   jsr d346             ;jump43
11748 DBF3 83 00 00        ...   subd #0000
11749 DBF6 26 08           &.    bne 08
11750 DBF8 BD D7 83        ...   jsr d783             ;jump44
11751 DBFB 83 00 00        ...   subd #0000
11752 DBFE 27 17           '.    beq 17
11753 DC00 5F              _     clrb
11754 DC01 4F              O     clra
11755 DC02 FD 00 4D        ..M   std 004d
11756 DC05 FC 00 44        ..D   ldd 0044
11757 DC08 F3 0B B7        ...   addd 0bb7
11758 DC0B 04              .     lsrd
11759 DC0C F3 00 40        ..@   addd 0040
11760 DC0F B3 0B B7        ...   subd 0bb7
11761 DC12 FD 00 40        ..@   std 0040
11762 DC15 20 78            x    bra 78
11763 DC17 BD D2 13        ...   jsr d213             ;jump45
11764 DC1A 83 00 00        ...   subd #0000
11765 DC1D 26 17           &.    bne 17
11766 DC1F 5F              _     clrb
11767 DC20 4F              O     clra
11768 DC21 FD 00 4D        ..M   std 004d
11769 DC24 FC 00 44        ..D   ldd 0044
11770 DC27 F3 0B B7        ...   addd 0bb7
11771 DC2A 04              .     lsrd
11772 DC2B F3 00 40        ..@   addd 0040
11773 DC2E B3 0B B7        ...   subd 0bb7
11774 DC31 FD 00 40        ..@   std 0040
11775 DC34 20 59            Y    bra 59
11776 DC36 FC 0D 09        ...   ldd 0d09
11777 DC39 83 FF FF        ...   subd #ffff
11778 DC3C 26 05           &.    bne 05
11779 DC3E 5F              _     clrb
11780 DC3F 4F              O     clra
11781 DC40 FD 0D 09        ...   std 0d09
11782 DC43 FE 0D 09        ...   ldx 0d09
11783 DC46 08              .     inx
11784 DC47 FF 0D 09        ...   stx 0d09
11785 DC4A FC 0B B7        ...   ldd 0bb7
11786 DC4D 37              7     pshb
11787 DC4E 36              6     psha
11788 DC4F 4F              O     clra
11789 DC50 5F              _     clrb
11790 DC51 37              7     pshb
11791 DC52 36              6     psha
11792 DC53 CC 0D 13        ...   ldd #0d13
11793 DC56 BD FB DF        ...   jsr fbdf             ;jump46
11794 DC59 31              1     ins
11795 DC5A 31              1     ins
11796 DC5B FE 0D 15        ...   ldx 0d15
11797 DC5E 3C              <     pshx
11798 DC5F FC 0D 13        ...   ldd 0d13
11799 DC62 37              7     pshb
11800 DC63 36              6     psha
11801 DC64 CE E1 00        ...   ldx #e100
11802 DC67 3C              <     pshx
11803 DC68 CC 05 F5        ...   ldd #05f5
11804 DC6B 37              7     pshb
11805 DC6C 36              6     psha
11806 DC6D 30              0     tsx
11807 DC6E EC 06           ..    ldd 06,x
11808 DC70 A3 02           ..    subd 02,x
11809 DC72 EC 04           ..    ldd 04,x
11810 DC74 E2 01           ..    sbcb 01,x
11811 DC76 A2 00           ..    sbca 00,x
11812 DC78 38              8     pulx
11813 DC79 38              8     pulx
11814 DC7A 38              8     pulx
11815 DC7B 38              8     pulx
11816 DC7C 25 11           %.    bcs 11
11817 DC7E CE 1F 00        ...   ldx #1f00
11818 DC81 3C              <     pshx
11819 DC82 CC FA 0A        ...   ldd #fa0a
11820 DC85 37              7     pshb
11821 DC86 36              6     psha
11822 DC87 CC 0D 13        ...   ldd #0d13
11823 DC8A BD FB DF        ...   jsr fbdf             ;jump46
11824 DC8D 31              1     ins
11825 DC8E 31              1     ins
11826 DC8F CE 00 1B        ...   ldx #001b
11827 DC92 1D 00 01        ...   bclr 00,x, #01
11828 DC95 7F 00 4F        ..O   clr 004f
11829 goto68:
11830 DC98 F6 00 11        ...   ldab 0011
11831 DC9B C4 08           ..    andb #08
11832 DC9D 26 03           &.    bne 03
11833 DC9F BD D9 5A        ..Z   jsr d95a             ;jump123
11834 DCA2 39              9     rts
11835
11836 jump29:
11837 DCA3 CE 0B BC        ...   ldx #0bbc
11838 DCA6 1D 00 1C        ..    bclr 00,x, #1c
11839 DCA9 F6 0B BC        ..    ldab 0bbc
11840 DCAB C4 03           ...   andb #03
11841 DCAE 26 48           &H    bne 48
11842 DCB0 FC 0B BD        ...   ldd 0bbd
11843 DCB3 37              7     pshb
11844 DCB4 36              6     psha
11845 DCB5 4F              O     clra
11846 DCB6 5F              _     clrb
11847 DCB7 37              7     pshb
11848 DCB8 36              6     psha
11849 DCB9 CC 0D F7        ...   ldd #0df7
11850 DCBC BD FB DF        ...   jsr fbdf             ;jump46
11851 DCBF 31              1     ins
11852 DCC0 31              1     ins
11853 DCC1 FE 0D F9        ...   ldx 0df9
11854 DCC4 3C              <     pshx
11855 DCC5 FC 0D F7        ...   ldd 0df7
11856 DCC8 37              7     pshb
11857 DCC9 36              6     psha
11858 DCCA CE E1 00        ...   ldx #e100
11859 DCCD 3C              <     pshx
11860 DCCE CC 05 F5        ...   ldd #05f5
11861 DCD1 37              7     pshb
11862 DCD2 36              6     psha
11863 DCD3 30              0     tsx
11864 DCD4 EC 06           ..    ldd 06,x
11865 DCD6 A3 02           ..    subd 02,x
11866 DCD8 EC 04           ..    ldd 04,x
11867 DCDA E2 01           ..    sbcb 01,x
11868 DCDC A2 00           ..    sbca 00,x
11869 DCDE 38              8     pulx
11870 DCDF 38              8     pulx
11871 DCE0 38              8     pulx
11872 DCE1 38              8     pulx
11873 DCE2 25 11           %.    bcs 11
11874 DCE4 CE 1F 00        ...   ldx #1f00
11875 DCE7 3C              <     pshx
11876 DCE8 CC FA 0A        ...   ldd #fa0a
11877 DCEB 37              7     pshb
11878 DCEC 36              6     psha
11879 DCED CC 0D F7        ...   ldd #0df7
11880 DCF0 BD FB DF        ...   jsr fbdf             ;jump46
11881 DCF3 31              1     ins
11882 DCF4 31              1     ins
11883 DCF5 7E DD D4        ~..   jmp ddd4             ;goto69
11884 DCF8 F6 0B BC        ...   ldab 0bbc
11885 DCFB C4 03           ..    andb #03
11886 DCFD C1 01           ..    cmpb #01
11887 DCFF 27 03           '.    beq 03
11888 DD01 7E DD D4        ~..   jmp ddd4             ;goto69
11889 DD04 F6 0B BC        ...   ldab 0bbc
11890 DD07 C4 E0           ..    andb #e0
11891 DD09 54              T     lsrb
11892 DD0A 54              T     lsrb
11893 DD0B 54              T     lsrb
11894 DD0C 54              T     lsrb
11895 DD0D 54              T     lsrb
11896 DD0E F7 0B BC        ...   stab 0bbc
11897 DD11 F6 0B BC        ...   ldab 0bbc
11898 DD14 F1 0B C4        ...   cmpb 0bc4
11899 DD17 26 33           &3    bne 33
11900 DD19 F6 0B D7        ...   ldab 0bd7
11901 DD1C C1 01           ..    cmpb #01
11902 DD1E 26 0A           &.    bne 0a
11903 DD20 7C 0C DB        |..   inc 0cdb
11904 DD23 C6 03           ..    ldab #03
11905 DD25 F7 00 48        ..H   stab 0048
11906 DD28 20 20                 bra 20
11907 DD2A F6 0B D8        ...   ldab 0bd8
11908 DD2D C1 01           ..    cmpb #01
11909 DD2F 26 0A           &.    bne 0a
11910 DD31 7C 0C DA        |..   inc 0cda
11911 DD34 C6 02           ..    ldab #02
11912 DD36 F7 00 48        ..H   stab 0048
11913 DD39 20 0F            .    bra 0f
11914 DD3B F6 0B D9        ...   ldab 0bd9
11915 DD3E C1 01           ..    cmpb #01
11916 DD40 26 08           &.    bne 08
11917 DD42 7C 0C D9        |..   inc 0cd9
11918 DD45 C6 01           ..    ldab #01
11919 DD47 F7 00 48        ..H   stab 0048
11920 DD4A 20 74            t    bra 74
11921 DD4C F6 0B BC        ...   ldab 0bbc
11922 DD4F F1 0B C5        ...   cmpb 0bc5
11923 DD52 26 33           &3    bne 33
11924 DD54 F6 0B D7        ...   ldab 0bd7
11925 DD57 C1 04           ..    cmpb #04
11926 DD59 26 0A           &.    bne 0a
11927 DD5B 7C 0C DB        |..   inc 0cdb
11928 DD5E C6 03           ..    ldab #03
11929 DD60 F7 00 48        ..H   stab 0048
11930 DD63 20 20                 bra 20
11931 DD65 F6 0B D8        ...   ldab 0bd8
11932 DD68 C1 04           ..    cmpb #04
11933 DD6A 26 0A           &.    bne 0a
11934 DD6C 7C 0C DA        |..   inc 0cda
11935 DD6F C6 02           ..    ldab #02
11936 DD71 F7 00 48        ..H   stab 0048
11937 DD74 20 0F            .    bra 0f
11938 DD76 F6 0B D9        ...   ldab 0bd9
11939 DD79 C1 04           ..    cmpb #04
11940 DD7B 26 08           &.    bne 08
11941 DD7D 7C 0C D9        |..   inc 0cd9
11942 DD80 C6 01           ..    ldab #01
11943 DD82 F7 00 48        ..H   stab 0048
11944 DD85 20 39            9    bra 39
11945 DD87 F6 0B BC        ...   ldab 0bbc
11946 DD8A F1 0B C6        ...   cmpb 0bc6
11947 DD8D 26 31           &1    bne 31
11948 DD8F F6 0B D7        ...   ldab 0bd7
11949 DD92 C1 02           ..    cmpb #02
11950 DD94 26 0A           &.    bne 0a
11951 DD96 7C 0C DB        |..   inc 0cdb
11952 DD99 C6 03           ..    ldab #03
11953 DD9B F7 00 48        ..H   stab 0048
11954 DD9E 20 20                 bra 20
11955 DDA0 F6 0B D8        ...   ldab 0bd8
11956 DDA3 C1 02           ..    cmpb #02
11957 DDA5 26 0A           &.    bne 0a
11958 DDA7 7C 0C DA        |..   inc 0cda
11959 DDAA C6 02           ..    ldab #02
11960 DDAC F7 00 48        ..H   stab 0048
11961 DDAF 20 0F            .    bra 0f
11962 DDB1 F6 0B D9        ...   ldab 0bd9
11963 DDB4 C1 02           ..    cmpb #02
11964 DDB6 26 08           &.    bne 08
11965 DDB8 7C 0C D9        |..   inc 0cd9
11966 DDBB C6 01           ..    ldab #01
11967 DDBD F7 00 48        ..H   stab 0048
11968 DDC0 F6 00 17        ...   ldab 0017
11969 DDC3 C4 08           ..    andb #08
11970 DDC5 26 0D           &.    bne 0d
11971 DDC7 F6 0B BC        ...   ldab 0bbc
11972 DDCA 26 08           &.    bne 08
11973 DDCC 7C 0C DC        |..   inc 0cdc
11974 DDCF C6 04           ..    ldab #04
11975 DDD1 F7 00 48        ..H   stab 0048
11976 goto69:
11977 DDD4 39              9     rts
11978
11979 jump120:
11980 DDD5 BD BE 69        ..i   jsr be69             ;displayreset
11981 DDD8 C6 03           ..    ldab #03
11982 DDDA F7 00 1C        ...   stab 001c
11983 DDDD F6 00 1C        ...   ldab 001c
11984 DDE0 C1 0D           ..    cmpb #0d
11985 DDE2 24 1C           $.    bcc 1c
11986 DDE4 F6 00 1C        ...   ldab 001c
11987 DDE7 4F              O     clra
11988 DDE8 C3 0C B9        ...   addd #0cb9
11989 DDEB 8F              .     xgdx
11990 DDEC E6 00           ..    ldab 00,x
11991 DDEE 37              7     pshb
11992 DDEF CC 0B 9C        ...   ldd #0b9c
11993 DDF2 F0 00 1C        ...   subb 001c
11994 DDF5 82 00           ..    sbca #00
11995 DDF7 8F              .     xgdx
11996 DDF8 33              3     pulb
11997 DDF9 E7 00           ..    stab 00,x
11998 DDFB 7C 00 1C        |..   inc 001c
11999 DDFE 20 DD            .    bra dd
12000 DE00 BD BE 10        ...   jsr be10             ;jump88
12001 DE03 C6 14           ..    ldab #14
12002 DE05 F7 00 2C        ..,   stab 002c
12003 DE08 39              9     rts
12004
12005 jump119:
12006 DE09 CC 0B 9A        ...   ldd #0b9a    ; machine id?
12007 DE0C BD C0 BA        ...   jsr c0ba             ;display:
12008 DE0F C6 14           ..    ldab #14
12009 DE11 F7 00 2C        ..,   stab 002c
12010 DE14 39              9     rts
12011
12012 dump118:
12013 DE15 F6 00 1B        ...   ldab 001b
12014 DE18 C4 01           ..    andb #01
12015 DE1A 26 03           &.    bne 03
12016 DE1C 7E DE A4        ~..   jmp dea4             ;goto70
12017 DE1F F6 00 06        ...   ldab 0006
12018 DE22 4F              O     clra
12019 DE23 05              .     asld
12020 DE24 C3 08 C8        ...   addd #08c8
12021 DE27 8F              .     xgdx
12022 DE28 EC 00           ..    ldd 00,x
12023 DE2A 84 08           ..    anda #08
12024 DE2C 27 76           'v    beq 76
12025 DE2E F6 00 11        ...   ldab 0011
12026 DE31 C4 08           ..    andb #08
12027 DE33 26 33           &3    bne 33
12028 DE35 F6 00 06        ...   ldab 0006
12029 DE38 F1 0B AF        ...   cmpb 0baf
12030 DE3B 27 20           '     beq 20
12031 DE3D F6 00 06        ...   ldab 0006
12032 DE40 F1 0B AE        ...   cmpb 0bae
12033 DE43 27 18           '.    beq 18
12034 DE45 F6 00 06        ...   ldab 0006
12035 DE48 F1 0B AD        ...   cmpb 0bad
12036 DE4B 27 10           '.    beq 10
12037 DE4D F6 00 06        ...   ldab 0006
12038 DE50 F1 0B AC        ...   cmpb 0bac
12039 DE53 27 08           '.    beq 08
12040 DE55 F6 00 06        ...   ldab 0006
12041 DE58 F1 0B AB        ...   cmpb 0bab
12042 DE5B 26 0B           &.    bne 0b
12043 DE5D CE 00 1B        ...   ldx #001b
12044 DE60 1D 00 01        ...   bclr 00,x, #01
12045 DE63 7F 00 4F        ..O   clr 004f
12046 DE66 20 3C            <    bra 3c
12047 DE68 FC 00 44        ..D   ldd 0044
12048 DE6B B3 0B B7        ...   subd 0bb7
12049 DE6E 23 2B           #+    bls 2b
12050 DE70 FC 00 40        ..@   ldd 0040
12051 DE73 F3 00 3E        ..>   addd 003e
12052 DE76 37              7     pshb
12053 DE77 36              6     psha
12054 DE78 FC 00 44        ..D   ldd 0044
12055 DE7B B3 0B B7        ...   subd 0bb7
12056 DE7E F3 00 44        ..D   addd 0044
12057 DE81 30              0     tsx
12058 DE82 A3 00           ..    subd 00,x
12059 DE84 31              1     ins
12060 DE85 31              1     ins
12061 DE86 22 13           ".    bhi 13
12062 DE88 FC 0B B7        ...   ldd 0bb7
12063 DE8B 27 0E           '.    beq 0e
12064 DE8D FC 00 44        ..D   ldd 0044
12065 DE90 B3 0B B7        ...   subd 0bb7
12066 DE93 F3 00 44        ..D   addd 0044
12067 DE96 FD 00 44        ..D   std 0044
12068 DE99 20 09            .    bra 09
12069 DE9B CE 00 1B        ...   ldx #001b
12070 DE9E 1D 00 01        ...   bclr 00,x, #01
12071 DEA1 7F 00 4F        ..O   clr 004f
12072 goto70:
12073 DEA4 39              9     rts
12074
12075 jump117:
12076 ; machine out of order display?
12077 DEA5 F6 00 2B        ..+   ldab 002b
12078 DEA8 C1 00           ..    cmpb #00
12079 DEAA 26 0D           &.    bne 0d
12080 DEAC CE 00 12        ...   ldx #0012
12081 DEAF 3C              <     pshx
12082 DEB0 CC AE 7E        ..~   ldd #ae7e
12083 DEB3 BD C0 2E        ...   jsr c02e             ;jump71
12084 DEB6 38              8     pulx
12085 DEB7 20 2D            -    bra 2d
12086 DEB9 C1 01           ..    cmpb #01
12087 DEBB 26 0D           &.    bne 0d
12088 DEBD CE 00 0F        ...   ldx #000f
12089 DEC0 3C              <     pshx
12090 DEC1 CC AE 6D        ..m   ldd #ae6d    ; something german
12091 DEC4 BD C0 2E        ...   jsr c02e             ;jump71
12092 DEC7 38              8     pulx
12093 DEC8 20 1C            .    bra 1c
12094 DECA C1 02           ..    cmpb #02
12095 DECC 26 0D           &.    bne 0d
12096 DECE CE 00 10        ...   ldx #0010
12097 DED1 3C              <     pshx
12098 DED2 CC AE 5B        ..[   ldd #ae5b    ; more german
12099 DED5 BD C0 2E        ...   jsr c02e             ;jump71
12100 DED8 38              8     pulx
12101 DED9 20 0B            .    bra 0b
12102 DEDB CE 00 15        ...   ldx #0015
12103 DEDE 3C              <     pshx
12104 DEDF CC AE 44        ..D   ldd #ae44    ; "MACHINE OUT OF ORDER"
12105 DEE2 BD C0 2E        ...   jsr c02e             ;jump71
12106 DEE5 38              8     pulx
12107 DEE6 39              9     rts
12108
12109 jump116:
12110 ; revolves around coinage
12111 DEE7 F6 0B C0        ...   ldab 0bc0
12112 DEEA C4 01           ..    andb #01
12113 DEEC 26 07           &.    bne 07
12114 DEEE F6 0B C0        ...   ldab 0bc0
12115 DEF1 C4 04           ..    andb #04
12116 DEF3 27 15           '.    beq 15
12117 DEF5 C6 FF           ..    ldab #ff
12118 DEF7 F7 0B BC        ...   stab 0bbc
12119 DEFA F6 00 15        ...   ldab 0015
12120 DEFD 2D 03           -.    blt 03
12121 DEFF BD C6 7D        ..}   jsr c67d             ;jump124 - chat to changer
12122 DF02 BD D6 6B        ..k   jsr d66b             ;jump107 - chat to bill acceptor
12123 DF05 BD DC A3        ...   jsr dca3             ;jump29
12124 DF08 20 25            %    bra 25
12125 DF0A F6 0B C0        ...   ldab 0bc0
12126 DF0D C4 02           ..    andb #02
12127 DF0F 27 1E           '.    beq 1e
12128 DF11 F6 00 2F        ../   ldab 002f
12129 DF14 26 19           &.    bne 19
12130 DF16 F6 00 1B        ...   ldab 001b
12131 DF19 C4 02           ..    andb #02
12132 DF1B 26 12           &.    bne 12
12133 DF1D CC 00 FF        ...   ldd #00ff
12134 DF20 BD C7 E7        ...   jsr c7e7             ;jump37 - send to serial port
12135 DF23 CE 00 1B        ...   ldx #001b
12136 DF26 1C 00 02        ..    bset 00,x, #02
12137 DF29 CE 0B C1        ...   ldx #0bc1
12138 DF2C 1C 00 04        ..    bset 00,x, #04
12139 DF2F F6 00 21        ..!   ldab 0021
12140 DF32 C4 20           .     andb #20
12141 DF34 27 07           '.    beq 07
12142 ;
12143 DF36 BD D6 52        ..R   jsr d652             ;jump5 - pulse bill acceptor
12144 DF39 BD DE A5        ...   jsr dea5             ;jump117 - machine out of order?
12145 DF3C 39              9     rts
12146 ;
12147 DF3D F6 00 4F        ..O   ldab 004f
12148 DF40 26 06           &.    bne 06
12149 DF42 CE 00 1B        ...   ldx #001b
12150 DF45 1D 00 01        ...   bclr 00,x, #01
12151 DF48 F6 00 25        ..%   ldab 0025
12152 DF4B 26 20           &     bne 20
12153 DF4D F6 00 1B        ...   ldab 001b
12154 DF50 C4 40           .@    andb #40
12155 DF52 27 19           '.    beq 19
12156 DF54 BD D6 52        ..R   jsr d652             ;jump5
12157 DF57 FC 00 40        ..@   ldd 0040
12158 DF5A 26 05           &.    bne 05
12159 DF5C FC 00 3E        ..>   ldd 003e
12160 DF5F 27 03           '.    beq 03
12161 DF61 BD DB 44        ..D   jsr db44             ;jump104
12162 DF64 BD D6 6B        ..k   jsr d66b             ;jump107
12163 DF67 CE 00 1B        ...   ldx #001b
12164 DF6A 1D 00 40        ...   bclr 00,x, #40
12165 DF6D F6 00 2C        ..,   ldab 002c
12166 DF70 27 03           '.    beq 03
12167 DF72 7E E0 66        ~.f   jmp e066             ;goto71
12168 DF75 F6 00 34        ..4   ldab 0034
12169 DF78 26 0B           &.    bne 0b
12170 DF7A BD BE 69        ..i   jsr be69             ;displayreset
12171 DF7D C6 32           .2    ldab #32
12172 DF7F F7 00 34        ..4   stab 0034
12173 DF82 7E E0 63        ~.c   jmp e063             ;goto72
12174 DF85 FC 00 40        ..@   ldd 0040
12175 DF88 26 05           &.    bne 05
12176 DF8A FC 00 3E        ..>   ldd 003e
12177 DF8D 27 16           '.    beq 16
12178 DF8F CE 00 01        ...   ldx #0001
12179 DF92 3C              <     pshx
12180 DF93 FC 00 40        ..@   ldd 0040
12181 DF96 F3 00 3E        ..>   addd 003e
12182 DF99 BD BE 9E        ...   jsr be9e             ;jump50
12183 DF9C 38              8     pulx
12184 DF9D C6 05           ..    ldab #05
12185 DF9F F7 00 2C        ..,   stab 002c
12186 DFA2 7E E0 63        ~.c   jmp e063             ;goto72
12187 DFA5 F6 0C D9        ...   ldab 0cd9
12188 DFA8 C1 04           ..    cmpb #04
12189 DFAA 24 07           $.    bcc 07
12190 DFAC F6 0B C0        ...   ldab 0bc0
12191 DFAF C4 01           ..    andb #01
12192 DFB1 26 07           &.    bne 07
12193 DFB3 F6 00 21        ..!   ldab 0021
12194 DFB6 C4 40           .@    andb #40
12195 DFB8 27 43           'C    beq 43
12196 DFBA F6 00 2B        ..+   ldab 002b
12197 DFBD C1 00           ..    cmpb #00
12198 DFBF 26 0D           &.    bne 0d
12199 DFC1 CE 00 19        ...   ldx #0019
12200 DFC4 3C              <     pshx
12201 DFC5 CC AD E7        ...   ldd #ade7    ; "INTRODUZCA"
12202 DFC8 BD C0 2E        ...   jsr c02e             ;jump71
12203 DFCB 38              8     pulx
12204 DFCC 20 2D            -    bra 2d
12205 DFCE C1 01           ..    cmpb #01
12206 DFD0 26 0D           &.    bne 0d
12207 DFD2 CE 00 12        ...   ldx #0012
12208 DFD5 3C              <     pshx
12209 DFD6 CC AD D3        ...   ldd #add3    ; "NICT UEBERZAHLEN"
12210 DFD9 BD C0 2E        ...   jsr c02e             ;jump71
12211 DFDC 38              8     pulx
12212 DFDD 20 1C            .    bra 1c
12213 DFDF C1 02           ..    cmpb #02
12214 DFE1 26 0D           &.    bne 0d
12215 DFE3 CE 00 19        ...   ldx #0019
12216 DFE6 3C              <     pshx
12217 DFE7 CC AD B8        ...   ldd #adb8    ; "MONNAIE EXACT"
12218 DFEA BD C0 2E        ...   jsr c02e             ;jump71
12219 DFED 38              8     pulx
12220 DFEE 20 0B            .    bra 0b
12221 DFF0 CE 00 11        ...   ldx #0011    ; length of
12222 DFF3 3C              <     pshx
12223 DFF4 CC AD A5        ...   ldd #ada5    ; " EXACT COINS ONLY "
12224 DFF7 BD C0 2E        ...   jsr c02e             ;jump71 - display
12225 DFFA 38              8     pulx
12226 DFFB 20 66            f    bra 66
12227 DFFD F6 0B C0        ...   ldab 0bc0
12228 E000 C4 08           ..    andb #08
12229 E002 27 52           'R    beq 52
12230 E004 F6 0B C1        ...   ldab 0bc1
12231 E007 C4 08           ..    andb #08
12232 E009 26 08           &.    bne 08
12233 E00B FC 0B EF        ...   ldd 0bef
12234 E00E 83 00 64        ..d   subd #0064
12235 E011 24 43           $C    bcc 43
12236 E013 F6 00 2B        ..+   ldab 002b
12237 E016 C1 00           ..    cmpb #00
12238 E018 26 0D           &.    bne 0d
12239 E01A CE 00 12        ...   ldx #0012
12240 E01D 3C              <     pshx
12241 E01E CC AE 30        ..0   ldd #ae30    ; "MONEDA UNICAMENTE"
12242 E021 BD C0 2E        ...   jsr c02e             ;jump71
12243 E024 38              8     pulx
12244 E025 20 2D            -    bra 2d
12245 E027 C1 01           ..    cmpb #01
12246 E029 26 0D           &.    bne 0d
12247 E02B CE 00 0B        ...   ldx #000b
12248 E02E 3C              <     pshx
12249 E02F CC AE 23        ..#   ldd #ae23    ; "NUR MUNZEN"
12250 E032 BD C0 2E        ...   jsr c02e             ;jump71
12251 E035 38              8     pulx
12252 E036 20 1C            .    bra 1c
12253 E038 C1 02           ..    cmpb #02
12254 E03A 26 0D           &.    bne 0d
12255 E03C CE 00 12        ...   ldx #0012
12256 E03F 3C              <     pshx
12257 E040 CC AE 0F        ...   ldd #ae0f    ; "MONNAIES SEULEMENT"
12258 E043 BD C0 2E        ...   jsr c02e             ;jump71
12259 E046 38              8     pulx
12260 E047 20 0B            .    bra 0b
12261 E049 CE 00 0B        ...   ldx #000b
12262 E04C 3C              <     pshx
12263 E04D CC AE 02        ...   ldd #ae02    ; "COINS ONLY"
12264 E050 BD C0 2E        ...   jsr c02e             ;jump71
12265 E053 38              8     pulx
12266 E054 20 0D            .    bra 0d
12267 E056 F6 0B BF        ...   ldab 0bbf
12268 E059 4F              O     clra
12269 E05A 37              7     pshb
12270 E05B 36              6     psha
12271 E05C CC 09 93        ...   ldd #0993    ; some custom message?
12272 E05F BD C0 2E        ...   jsr c02e             ;jump71
12273 E062 38              8     pulx
12274 goto72:
12275 E063 7E E5 6A        ~.j   jmp e56a             ;goto73
12276 goto71:
12277 E066 F6 00 06        ...   ldab 0006
12278 E069 26 03           &.    bne 03
12279 E06B 7E E5 6A        ~.j   jmp e56a             ;goto73
12280 E06E CE 00 1D        ...   ldx #001d
12281 E071 1C 00 40        ...   bset 00,x, #40
12282 E074 BD E7 C7        ...   jsr e7c7             ;jump114
12283 E077 F6 00 06        ...   ldab 0006
12284 E07A C1 59           .Y    cmpb #59     ; 89
12285 E07C 26 06           &.    bne 06
12286 E07E BD DE 09        ...   jsr de09             ;jump119
12287 E081 7E E5 5E        ~.^   jmp e55e             ;goto74
12288 E084 F6 00 06        ...   ldab 0006
12289 E087 BD D4 68        ..h   jsr d468             ;jump51
12290 E08A 83 00 00        ...   subd #0000
12291 E08D 27 18           '.    beq 18
12292 E08F BD D5 61        ..a   jsr d561             ;jump42
12293 E092 83 00 00        ...   subd #0000
12294 E095 26 10           &.    bne 10
12295 E097 BD D3 46        ..F   jsr d346             ;jump43
12296 E09A 83 00 00        ...   subd #0000
12297 E09D 26 08           &.    bne 08
12298 E09F BD D7 83        ...   jsr d783             ;jump44
12299 E0A2 83 00 00        ...   subd #0000
12300 E0A5 27 09           '.    beq 09
12301 E0A7 BD E5 D1        ...   jsr e5d1             ;jump52 - triple beep
12302 E0AA BD D8 E9        ...   jsr d8e9             ;jump92
12303 E0AD 7E E5 5E        ~.^   jmp e55e             ;goto74
12304 E0B0 F6 00 06        ...   ldab 0006
12305 E0B3 4F              O     clra
12306 E0B4 05              .     asld
12307 E0B5 C3 08 00        ...   addd #0800
12308 E0B8 8F              .     xgdx
12309 E0B9 EC 00           ..    ldd 00,x
12310 E0BB C4 FF           ..    andb #ff
12311 E0BD 84 3F           .?    anda #3f
12312 E0BF FD 00 44        ..D   std 0044
12313 E0C2 F6 00 06        ...   ldab 0006
12314 E0C5 4F              O     clra
12315 E0C6 05              .     asld
12316 E0C7 C3 08 C8        ...   addd #08c8
12317 E0CA 8F              .     xgdx
12318 E0CB EC 00           ..    ldd 00,x
12319 E0CD C4 7F           ..    andb #7f
12320 E0CF 4F              O     clra
12321 E0D0 FD 00 4D        ..M   std 004d
12322 E0D3 F6 0B C0        ...   ldab 0bc0
12323 E0D6 2C 05           ,.    bge 05
12324 E0D8 5F              _     clrb
12325 E0D9 4F              O     clra
12326 E0DA FD 00 44        ..D   std 0044
12327 E0DD F6 0B C0        ...   ldab 0bc0
12328 E0E0 C4 02           ..    andb #02
12329 E0E2 26 03           &.    bne 03
12330 E0E4 BD DE 15        ...   jsr de15             ;dump118
12331 E0E7 F6 00 11        ...   ldab 0011
12332 E0EA C4 20           .     andb #20
12333 E0EC 26 1A           &.    bne 1a
12334 E0EE F6 0B C0        ...   ldab 0bc0
12335 E0F1 C4 02           ..    andb #02
12336 E0F3 26 13           &.    bne 13
12337 E0F5 FC 00 40        ..@   ldd 0040
12338 E0F8 F3 00 3E        ..>   addd 003e
12339 E0FB B3 00 44        ..D   subd 0044
12340 E0FE 25 08           %.    bcs 08
12341 E100 F6 0B C0        ...   ldab 0bc0
12342 E103 2D 03           -.    blt 03
12343 E105 BD DA 64        ..d   jsr da64             ;jump122
12344 E108 FC 00 40        ..@   ldd 0040
12345 E10B F3 00 3E        ..>   addd 003e
12346 E10E B3 00 44        ..D   subd 0044
12347 E111 24 50           $P    bcc 50
12348 E113 F6 0B C0        ...   ldab 0bc0
12349 E116 C4 10           ..    andb #10
12350 E118 26 49           &I    bne 49
12351 E11A F6 00 2B        ..+   ldab 002b
12352 E11D C1 00           ..    cmpb #00
12353 E11F 26 08           &.    bne 08
12354 E121 CC AC C9        ...   ldd #acc9    ; "PRECIO"
12355 E124 BD C0 BA        ...   jsr c0ba             ;display:
12356 E127 20 1E            .    bra 1e
12357 E129 C1 01           ..    cmpb #01
12358 E12B 26 08           &.    bne 08
12359 E12D CC AC BE        ...   ldd #acbe    ; "PREIS"
12360 E130 BD C0 BA        ...   jsr c0ba             ;display:
12361 E133 20 12            .    bra 12
12362 E135 C1 02           ..    cmpb #02
12363 E137 26 08           &.    bne 08
12364 E139 CC AC B3        ...   ldd #acb3    ; "PRIX"
12365 E13C BD C0 BA        ...   jsr c0ba             ;display:
12366 E13F 20 06            .    bra 06
12367 E141 CC AC A8        ...   ldd #aca8    ; "PRICE"
12368 E144 BD C0 BA        ...   jsr c0ba             ;display:
12369 E147 BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
12370 E14A CE 00 00        ...   ldx #0000
12371 E14D 3C              <     pshx
12372 E14E FC 00 44        ..D   ldd 0044
12373 E151 BD BE 9E        ...   jsr be9e             ;jump50
12374 E154 38              8     pulx
12375 E155 BD E5 D1        ...   jsr e5d1             ;jump52 - triple beep
12376 E158 BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
12377 E15B C6 0C           ..    ldab #0c
12378 E15D F7 00 2C        ..,   stab 002c
12379 E160 7E E5 5E        ~.^   jmp e55e             ;goto74
12380 E163 F6 0B C0        ...   ldab 0bc0
12381 E166 C4 01           ..    andb #01
12382 E168 26 11           &.    bne 11
12383 E16A F6 0B C0        ...   ldab 0bc0
12384 E16D C4 04           ..    andb #04
12385 E16F 26 0A           &.    bne 0a
12386 E171 F6 0B C0        ...   ldab 0bc0
12387 E174 C4 0F           ..    andb #0f
12388 E176 27 03           '.    beq 03
12389 E178 7E E3 35        ~.5   jmp e335             ;goto75
12390 E17B FC 00 40        ..@   ldd 0040
12391 E17E F3 00 3E        ..>   addd 003e
12392 E181 B3 00 44        ..D   subd 0044
12393 E184 FD 10 16        ...   std 1016
12394 E187 F6 00 15        ...   ldab 0015
12395 E18A C4 01           ..    andb #01
12396 E18C 27 08           '.    beq 08
12397 E18E FC 10 16        ...   ldd 1016
12398 E191 83 00 64        ..d   subd #0064
12399 E194 25 3C           %<    bcs 3c
12400 E196 F6 00 15        ...   ldab 0015
12401 E199 C4 02           ..    andb #02
12402 E19B 27 08           '.    beq 08
12403 E19D FC 10 16        ...   ldd 1016
12404 E1A0 83 00 C8        ...   subd #00c8
12405 E1A3 25 2D           %-    bcs 2d
12406 E1A5 F6 00 15        ...   ldab 0015
12407 E1A8 C4 04           ..    andb #04
12408 E1AA 27 08           '.    beq 08
12409 E1AC FC 10 16        ...   ldd 1016
12410 E1AF 83 01 F4        ...   subd #01f4
12411 E1B2 25 1E           %.    bcs 1e
12412 E1B4 F6 00 15        ...   ldab 0015
12413 E1B7 C4 08           ..    andb #08
12414 E1B9 27 08           '.    beq 08
12415 E1BB FC 10 16        ...   ldd 1016
12416 E1BE 83 03 E8        ...   subd #03e8
12417 E1C1 25 0F           %.    bcs 0f
12418 E1C3 F6 00 15        ...   ldab 0015
12419 E1C6 C4 10           ..    andb #10
12420 E1C8 27 13           '.    beq 13
12421 E1CA FC 10 16        ...   ldd 1016
12422 E1CD 83 07 D0        ...   subd #07d0
12423 E1D0 24 0B           $.    bcc 0b
12424 E1D2 BD C0 E0        ...   jsr c0e0             ;jump94
12425 E1D5 83 00 00        ...   subd #0000
12426 E1D8 26 01           &.    bne 01
12427 ;
12428 E1DA 39              9     rts
12429 ;
12430 E1DB 20 03            .    bra 03
12431 E1DD BD C5 D3        ...   jsr c5d3             ;jump6
12432 E1E0 BD D6 52        ..R   jsr d652             ;jump5
12433 E1E3 FC 00 40        ..@   ldd 0040
12434 E1E6 B3 00 44        ..D   subd 0044
12435 E1E9 F3 00 3E        ..>   addd 003e
12436 E1EC FD 00 40        ..@   std 0040
12437 E1EF 5F              _     clrb
12438 E1F0 4F              O     clra
12439 E1F1 FD 00 3E        ..>   std 003e
12440 E1F4 CE 00 1B        ...   ldx #001b
12441 E1F7 1C 00 80        ..    bset 00,x, #80
12442 E1F9 BD D2 13        ..    jsr d213     ;jump45
12443 E1FC 83 00 00        ...   subd #0000
12444 E200 26 12           &.    bne 12
12445 E202 BD E5 D1        ...   jsr e5d1             ;jump52 - triple beep
12446 E205 BD D8 E9        ...   jsr d8e9             ;jump92 - "SELECT OTHER ITEM"
12447 E208 FC 00 40        ..@   ldd 0040
12448 E20B F3 00 44        ..D   addd 0044
12449 E20E FD 00 40        ..@   std 0040
12450 E211 7E E3 29        ~.)   jmp e329             ;goto92
12451 E214 BD DB CB        ...   jsr dbcb             ;jump121
12452 E217 F6 00 1B        ...   ldab 001b
12453 E21A C4 20           .     andb #20
12454 E21C 27 45           'E    beq 45
12455 E21E FC 00 44        ..D   ldd 0044
12456 E221 37              7     pshb
12457 E222 36              6     psha
12458 E223 4F              O     clra
12459 E224 5F              _     clrb
12460 E225 37              7     pshb
12461 E226 36              6     psha
12462 E227 CC 0D FB        ...   ldd #0dfb
12463 E22A BD FB DF        ...   jsr fbdf             ;jump46
12464 E22D 31              1     ins
12465 E22E 31              1     ins
12466 E22F FE 0D FD        ...   ldx 0dfd
12467 E232 3C              <     pshx
12468 E233 FC 0D FB        ...   ldd 0dfb
12469 E236 37              7     pshb
12470 E237 36              6     psha
12471 E238 CE E1 00        ...   ldx #e100
12472 E23B 3C              <     pshx
12473 E23C CC 05 F5        ...   ldd #05f5
12474 E23F 37              7     pshb
12475 E240 36              6     psha
12476 E241 30              0     tsx
12477 E242 EC 06           ..    ldd 06,x
12478 E244 A3 02           ..    subd 02,x
12479 E246 EC 04           ..    ldd 04,x
12480 E248 E2 01           ..    sbcb 01,x
12481 E24A A2 00           ..    sbca 00,x
12482 E24C 38              8     pulx
12483 E24D 38              8     pulx
12484 E24E 38              8     pulx
12485 E24F 38              8     pulx
12486 E250 25 11           %.    bcs 11
12487 E252 CE 1F 00        ...   ldx #1f00
12488 E255 3C              <     pshx
12489 E256 CC FA 0A        ...   ldd #fa0a
12490 E259 37              7     pshb
12491 E25A 36              6     psha
12492 E25B CC 0D FB        ...   ldd #0dfb
12493 E25E BD FB DF        ...   jsr fbdf             ;jump46
12494 E261 31              1     ins
12495 E262 31              1     ins
12496 E263 F6 0B C0        ...   ldab 0bc0
12497 E266 2C 78           ,x    bge 78
12498 E268 F6 00 06        ...   ldab 0006
12499 E26B 4F              O     clra
12500 E26C 05              .     asld
12501 E26D C3 08 00        ...   addd #0800
12502 E270 8F              .     xgdx
12503 E271 EC 00           ..    ldd 00,x
12504 E273 C4 FF           ..    andb #ff
12505 E275 26 02           &.    bne 02
12506 E277 84 3F           .?    anda #3f
12507 E279 27 65           'e    beq 65
12508 E27B FC 0D 0D        ...   ldd 0d0d
12509 E27E 83 FF FF        ...   subd #ffff
12510 E281 26 05           &.    bne 05
12511 E283 5F              _     clrb
12512 E284 4F              O     clra
12513 E285 FD 0D 0D        ...   std 0d0d
12514 E288 FE 0D 0D        ...   ldx 0d0d
12515 E28B 08              .     inx
12516 E28C FF 0D 0D        ...   stx 0d0d
12517 E28F F6 00 06        ...   ldab 0006
12518 E292 4F              O     clra
12519 E293 05              .     asld
12520 E294 C3 08 00        ...   addd #0800
12521 E297 8F              .     xgdx
12522 E298 EC 00           ..    ldd 00,x
12523 E29A C4 FF           ..    andb #ff
12524 E29C 84 3F           .?    anda #3f
12525 E29E 37              7     pshb
12526 E29F 36              6     psha
12527 E2A0 4F              O     clra
12528 E2A1 5F              _     clrb
12529 E2A2 37              7     pshb
12530 E2A3 36              6     psha
12531 E2A4 CC 0D 1B        ...   ldd #0d1b
12532 E2A7 BD FB DF        ...   jsr fbdf             ;jump46
12533 E2AA 31              1     ins
12534 E2AB 31              1     ins
12535 E2AC FE 0D 1D        ...   ldx 0d1d
12536 E2AF 3C              <     pshx
12537 E2B0 FC 0D 1B        ...   ldd 0d1b
12538 E2B3 37              7     pshb
12539 E2B4 36              6     psha
12540 E2B5 CE E1 00        ...   ldx #e100
12541 E2B8 3C              <     pshx
12542 E2B9 CC 05 F5        ...   ldd #05f5
12543 E2BC 37              7     pshb
12544 E2BD 36              6     psha
12545 E2BE 30              0     tsx
12546 E2BF EC 06           ..    ldd 06,x
12547 E2C1 A3 02           ..    subd 02,x
12548 E2C3 EC 04           ..    ldd 04,x
12549 E2C5 E2 01           ..    sbcb 01,x
12550 E2C7 A2 00           ..    sbca 00,x
12551 E2C9 38              8     pulx
12552 E2CA 38              8     pulx
12553 E2CB 38              8     pulx
12554 E2CC 38              8     pulx
12555 E2CD 25 11           %.    bcs 11
12556 E2CF CE 1F 00        ...   ldx #1f00
12557 E2D2 3C              <     pshx
12558 E2D3 CC FA 0A        ...   ldd #fa0a
12559 E2D6 37              7     pshb
12560 E2D7 36              6     psha
12561 E2D8 CC 0D 1B        ...   ldd #0d1b
12562 E2DB BD FB DF        ...   jsr fbdf             ;jump46
12563 E2DE 31              1     ins
12564 E2DF 31              1     ins
12565 E2E0 F6 00 11        ...   ldab 0011
12566 E2E3 C4 10           ..    andb #10
12567 E2E5 26 14           &.    bne 14
12568 E2E7 FC 00 40        ..@   ldd 0040
12569 E2EA 27 0F           '.    beq 0f
12570 E2EC FC 00 40        ..@   ldd 0040
12571 E2EF B3 00 50        ..P   subd 0050
12572 E2F2 24 15           $.    bcc 15
12573 E2F4 F6 00 11        ...   ldab 0011
12574 E2F7 C4 10           ..    andb #10
12575 E2F9 26 0E           &.    bne 0e
12576 E2FB BD DB 44        ..D   jsr db44             ;jump104
12577 E2FE CE 00 1B        ...   ldx #001b
12578 E301 1D 00 40        ...   bclr 00,x, #40
12579 E304 7F 00 25        ..%   clr 0025
12580 E307 20 1A            .    bra 1a
12581 E309 7F 00 2C        ..,   clr 002c
12582 E30C CC 01 F4        ...   ldd #01f4
12583 E30F BD E5 71        ..q   jsr e571             ;msdelay
12584 E312 BD E5 AA        ...   jsr e5aa             ;jump12
12585 E315 BD D8 E9        ...   jsr d8e9             ;jump92
12586 E318 CE 00 1B        ...   ldx #001b
12587 E31B 1C 00 40        ...   bset 00,x, #40
12588 E31E C6 0A           ..    ldab #0a
12589 E320 F7 00 25        ..%   stab 0025
12590 E323 BD D7 FF        ...   jsr d7ff             ;jump80
12591 E326 BD D8 40        ..@   jsr d840             ;jump105
12592 goto92:
12593 E329 BD E8 9A        ...   jsr e89a             ;jump68
12594 E32C CE 0B C1        ...   ldx #0bc1
12595 E32F 1D 00 08        ...   bclr 00,x, #08
12596 E332 7E E5 5E        ~.^   jmp e55e             ;goto74
12597 goto75:
12598 E335 F6 0B C0        ...   ldab 0bc0
12599 E338 C4 02           ..    andb #02
12600 E33A 26 03           &.    bne 03
12601 E33C 7E E5 5E        ~.^   jmp e55e             ;goto74
12602 E33F 5F              _     clrb
12603 E340 4F              O     clra
12604 E341 FD 00 76        ..v   std 0076
12605 E344 CE 00 17        ...   ldx #0017
12606 E347 1D 00 01        ...   bclr 00,x, #01
12607 E34A CE 00 17        ...   ldx #0017
12608 E34D 1D 00 02        ...   bclr 00,x, #02
12609 E350 FC 00 44        ..D   ldd 0044
12610 E353 26 1C           &.    bne 1c
12611 E355 F6 0B C0        ...   ldab 0bc0
12612 E358 C4 10           ..    andb #10
12613 E35A 26 08           &.    bne 08
12614 E35C CE 00 21        ..!   ldx #0021
12615 E35F 1C 00           ..    bset add,x 00,x
12616 E361 80 20           .     suba #20
12617 E363 0B              .     sev
12618 E364 CE 00 21        ..!   ldx #0021
12619 E367 1D 00           ..    bclr add,x 00,x
12620 E369 80 C6           ..    suba #c6
12621 E36B 05              .     asld
12622 E36C F7 00 75        ..u   stab 0075
12623 E36F 20 57            W    bra 57
12624 E371 F6 0B C0        ...   ldab 0bc0
12625 E374 C4 10           ..    andb #10
12626 E376 27 50           'P    beq 50
12627 E378 FC 00 40        ..@   ldd 0040
12628 E37B 26 4B           &K    bne 4b
12629 E37D F6 0B C0        ...   ldab 0bc0
12630 E380 C4 20           .     andb #20
12631 E382 27 3E           '>    beq 3e
12632 E384 CE 00 17        ...   ldx #0017
12633 E387 1C 00 01        ...   bset 00,x, #01
12634 E38A F6 00 2B        ..+   ldab 002b
12635 E38D C1 00           ..    cmpb #00
12636 E38F 26 08           &.    bne 08
12637 E391 CC AC C9        ...   ldd #acc9    ; "  PRECIO  "
12638 E394 BD C0 BA        ...   jsr c0ba             ;display:
12639 E397 20 1E            .    bra 1e
12640 E399 C1 01           ..    cmpb #01
12641 E39B 26 08           &.    bne 08
12642 E39D CC AC BE        ...   ldd #acbe    ; "  PRIES  "
12643 E3A0 BD C0 BA        ...   jsr c0ba             ;display:
12644 E3A3 20 12            .    bra 12
12645 E3A5 C1 02           ..    cmpb #02
12646 E3A7 26 08           &.    bne 08
12647 E3A9 CC AC B3        ...   ldd #acb3    ; "  PRIX   "
12648 E3AC BD C0 BA        ...   jsr c0ba             ;display:
12649 E3AF 20 06            .    bra 06
12650 E3B1 CC AC A8        ...   ldd #aca8    ; "  PRICE  "
12651 E3B4 BD C0 BA        ...   jsr c0ba             ;display:
12652 E3B7 BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
12653 E3BA CE 00 17        ...   ldx #0017
12654 E3BD 1C 00 02        ...   bset 00,x, #02
12655 E3C0 20 06            .    bra 06
12656 E3C2 CE 00 1F        ...   ldx #001f
12657 E3C5 1C 00 08        ...   bset 00,x, #08
12658 E3C8 CE 00 1D        ...   ldx #001d
12659 E3CB 1C 00 02        ...   bset 00,x, #02
12660 E3CE CE 00 19        ...   ldx #0019
12661 E3D1 1C 00 08        ...   bset 00,x, #08
12662 E3D4 C6 32           .2    ldab #32
12663 E3D6 F7 00 31        ..1   stab 0031
12664 E3D9 C6 19           ..    ldab #19
12665 E3DB F7 00 36        ..6   stab 0036
12666 goto77:
12667 E3DE F6 00 1D        ...   ldab 001d
12668 E3E1 C4 02           ..    andb #02
12669 E3E3 26 03           &.    bne 03
12670 E3E5 7E E4 6E        ~.n   jmp e46e             ;goto76
12671 E3E8 F6 00 75        ..u   ldab 0075
12672 E3EB C1 04           ..    cmpb #04
12673 E3ED 22 05           ".    bhi 05
12674 E3EF F6 00 36        ..6   ldab 0036
12675 E3F2 26 3C           &<    bne 3c
12676 E3F4 7F 00 06        ...   clr 0006
12677 E3F7 5F              _     clrb
12678 E3F8 4F              O     clra
12679 E3F9 FD 00 76        ..v   std 0076
12680 E3FC 7F 00 2E        ...   clr 002e
12681 E3FF 7F 00 2C        ..,   clr 002c
12682 E402 7F 00 75        ..u   clr 0075
12683 E405 CE 00 17        ...   ldx #0017
12684 E408 1D 00 01        ...   bclr 00,x, #01
12685 E40B CE 00 19        ...   ldx #0019
12686 E40E 1D 00 08        ...   bclr 00,x, #08
12687 E411 CE 00 1B        ...   ldx #001b
12688 E414 1D 00           ..    bclr add,x 00,x
12689 E416 80 CE           ..    suba #ce
12690 E418 00              .     test
12691 E419 1D 1D 00        ...   bclr 1d,x, #00
12692 E41C 40              @     nega
12693 E41D CE 00 1D        ...   ldx #001d
12694 E420 1D 00 02        ...   bclr 00,x, #02
12695 E423 CE 00 1F        ...   ldx #001f
12696 E426 1D 00 08        ...   bclr 00,x, #08
12697 E429 CE 00 21        ..!   ldx #0021
12698 E42C 1D 00           ..    bclr add,x 00,x
12699 E42E 80 39           .9    suba #39
12700 E430 F6 0B C0        ...   ldab 0bc0
12701 E433 C4 20           .     andb #20
12702 E435 27 34           '4    beq 34
12703 E437 F6 00 17        ...   ldab 0017
12704 E43A C4 01           ..    andb #01
12705 E43C 26 2D           &-    bne 2d
12706 E43E F6 00 17        ...   ldab 0017
12707 E441 C4 02           ..    andb #02
12708 E443 27 26           '&    beq 26
12709 E445 CE 00 00        ...   ldx #0000
12710 E448 3C              <     pshx
12711 E449 FC 00 76        ..v   ldd 0076
12712 E44C BD BE 9E        ...   jsr be9e             ;jump50
12713 E44F 38              8     pulx
12714 E450 FC 00 76        ..v   ldd 0076
12715 E453 26 06           &.    bne 06
12716 E455 CE 00 17        ...   ldx #0017
12717 E458 1D 00 02        ...   bclr 00,x, #02
12718 E45B F6 00 17        ...   ldab 0017
12719 E45E C4 02           ..    andb #02
12720 E460 27 09           '.    beq 09
12721 E462 BD E5 D1        ...   jsr e5d1             ;jump52 - triple beep
12722 E465 CE 00 17        ...   ldx #0017
12723 E468 1D 00 02        ...   bclr 00,x, #02
12724 E46B 7E E3 DE        ~..   jmp e3de             ;goto77
12725 goto76:
12726 E46E CE 00 21        ..!   ldx #0021
12727 E471 1D 00           ..    bclr add,x 00,x
12728 E473 80 CE           ..    suba #ce
12729 E475 00              .     test
12730 E476 1F 1D 00 08     ....  brclr 1d,x 00 08
12731 E47A BD D2 13        ...   jsr d213             ;jump45
12732 E47D 83 00 00        ...   subd #0000
12733 E480 26 0F           &.    bne 0f
12734 E482 CC 00 80        ...   ldd #0080
12735 E485 BD C7 E7        ...   jsr c7e7             ;jump37 - send to serial port
12736 E488 BD E5 D1        ...   jsr e5d1             ;jump52 - triple beep
12737 E48B BD D8 E9        ...   jsr d8e9             ;jump92
12738 E48E 7E E5 5E        ~.^   jmp e55e             ;goto74
12739 E491 F6 00 2B        ..+   ldab 002b
12740 E494 C1 00           ..    cmpb #00
12741 E496 26 08           &.    bne 08
12742 E498 CC AD 16        ...   ldd #ad16    ; "GRACIAS"
12743 E49B BD C0 BA        ...   jsr c0ba             ;display:
12744 E49E 20 1E            .    bra 1e
12745 E4A0 C1 01           ..    cmpb #01
12746 E4A2 26 08           &.    bne 08
12747 E4A4 CC AD 0B        ...   ldd #ad0b    ; "DANKE"
12748 E4A7 BD C0 BA        ...   jsr c0ba             ;display:
12749 E4AA 20 12            .    bra 12
12750 E4AC C1 02           ..    cmpb #02
12751 E4AE 26 08           &.    bne 08
12752 E4B0 CC AD 00        ...   ldd #ad00    ; "MERCI"
12753 E4B3 BD C0 BA        ...   jsr c0ba             ;display:
12754 E4B6 20 06            .    bra 06
12755 E4B8 CC AC F5        ...   ldd #acf5    ; "THANKS"
12756 E4BB BD C0 BA        ...   jsr c0ba             ;display:
12757 E4BE BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
12758 E4C1 CE 00 01        ...   ldx #0001
12759 E4C4 3C              <     pshx
12760 E4C5 FC 00 40        ..@   ldd 0040
12761 E4C8 BD BE 9E        ...   jsr be9e             ;jump50
12762 E4CB 38              8     pulx
12763 E4CC 5F              _     clrb
12764 E4CD 4F              O     clra
12765 E4CE BD C7 E7        ...   jsr c7e7             ;jump37 - send to serial port
12766 E4D1 F6 0B C0        ...   ldab 0bc0
12767 E4D4 2D 03           -.    blt 03
12768 E4D6 7E E5 58        ~.X   jmp e558             ;goto78
12769 E4D9 F6 0B C0        ...   ldab 0bc0
12770 E4DC C4 10           ..    andb #10
12771 E4DE 26 78           &x    bne 78
12772 E4E0 F6 00 06        ...   ldab 0006
12773 E4E3 4F              O     clra
12774 E4E4 05              .     asld
12775 E4E5 C3 08 00        ...   addd #0800
12776 E4E8 8F              .     xgdx
12777 E4E9 EC 00           ..    ldd 00,x
12778 E4EB C4 FF           ..    andb #ff
12779 E4ED 26 02           &.    bne 02
12780 E4EF 84 3F           .?    anda #3f
12781 E4F1 27 65           'e    beq 65
12782 E4F3 FC 0D 0D        ...   ldd 0d0d
12783 E4F6 83 FF FF        ...   subd #ffff
12784 E4F9 26 05           &.    bne 05
12785 E4FB 5F              _     clrb
12786 E4FC 4F              O     clra
12787 E4FD FD 0D 0D        ...   std 0d0d
12788 E500 FE 0D 0D        ...   ldx 0d0d
12789 E503 08              .     inx
12790 E504 FF 0D 0D        ...   stx 0d0d
12791 E507 F6 00 06        ...   ldab 0006
12792 E50A 4F              O     clra
12793 E50B 05              .     asld
12794 E50C C3 08 00        ...   addd #0800
12795 E50F 8F              .     xgdx
12796 E510 EC 00           ..    ldd 00,x
12797 E512 C4 FF           ..    andb #ff
12798 E514 84 3F           .?    anda #3f
12799 E516 37              7     pshb
12800 E517 36              6     psha
12801 E518 4F              O     clra
12802 E519 5F              _     clrb
12803 E51A 37              7     pshb
12804 E51B 36              6     psha
12805 E51C CC 0D 1B        ...   ldd #0d1b
12806 E51F BD FB DF        ...   jsr fbdf             ;jump46
12807 E522 31              1     ins
12808 E523 31              1     ins
12809 E524 FE 0D 1D        ...   ldx 0d1d
12810 E527 3C              <     pshx
12811 E528 FC 0D 1B        ...   ldd 0d1b
12812 E52B 37              7     pshb
12813 E52C 36              6     psha
12814 E52D CE E1 00        ...   ldx #e100
12815 E530 3C              <     pshx
12816 E531 CC 05 F5        ...   ldd #05f5
12817 E534 37              7     pshb
12818 E535 36              6     psha
12819 E536 30              0     tsx
12820 E537 EC 06           ..    ldd 06,x
12821 E539 A3 02           ..    subd 02,x
12822 E53B EC 04           ..    ldd 04,x
12823 E53D E2 01           ..    sbcb 01,x
12824 E53F A2 00           ..    sbca 00,x
12825 E541 38              8     pulx
12826 E542 38              8     pulx
12827 E543 38              8     pulx
12828 E544 38              8     pulx
12829 E545 25 11           %.    bcs 11
12830 E547 CE 1F 00        ...   ldx #1f00
12831 E54A 3C              <     pshx
12832 E54B CC FA 0A        ...   ldd #fa0a
12833 E54E 37              7     pshb
12834 E54F 36              6     psha
12835 E550 CC 0D 1B        ...   ldd #0d1b
12836 E553 BD FB DF        ...   jsr fbdf             ;jump46
12837 E556 31              1     ins
12838 E557 31              1     ins
12839 goto78:
12840 E558 BD D7 FF        ...   jsr d7ff             ;jump80
12841 E55B BD D8 40        ..@   jsr d840             ;jump105
12842 goto74:
12843 E55E 7F 00 06        ...   clr 0006
12844 E561 7F 00 2E        ...   clr 002e
12845 E564 CE 00 1B        ...   ldx #001b
12846 E567 1D 00 80        ..    bclr 00,x, #80
12847 ;goto73
12848 E56A CE 00 1D        ...   ldx #001d
12849 E56C 1D 00 40        ..    bclr 00,x, #40
12850 E570 39              9     rts
12851
12852 ;!!! Is this a delay routine?  It gets called between displaying strings
12853 ;on startup.  Looks like a delay.  e61b just stores 0a at 0031 and returns.
12854 msdelay:
12855 ; appears to delay for roughly D milliseconds.
12856 E571 37              7     pshb
12857 E572 36              6     psha
12858 E573 34              4     des
12859 E574 30              0     tsx
12860 E575 EC 01           ..    ldd 01,x
12861 E577 83 00 01        ...   subd #0001
12862 E57A ED 01           ..    std 01,x
12863 E57C 2D 15           -.    blt 15       ; to e593
12864 E57E C6 41           .A    ldab #41
12865 E580 30              0     tsx
12866 E581 E7 00           ..    stab 00,x
12867 E583 30              0     tsx
12868 E584 E6 00           ..    ldab 00,x
12869 E586 6A 00           j.    dec 00,x
12870 E588 C1 00           ..    cmpb #00
12871 E58A 23 02           #.    bls 02
12872 E58C 20 F5            .    bra f5       ; to e583
12873 E58E BD E6 1B        ...   jsr e61b             ;jump4
12874 E591 20 E1            .    bra e1       ; to e574
12875 E593 38              8     pulx         ;this must just be a standard 'pull 3
12876 E594 31              1     ins          ;bytes and I don't care where they go'
12877                                         ;to clean up the stack.
12878 E595 39              9     rts
12879
12880 jump115:
12881 ; A short delay - counts to 32 in a stack variable. (about 100ms?)
12882 E596 34              4     des
12883 E597 C6 32           .2    ldab #32
12884 E599 30              0     tsx
12885 E59A E7 00           ..    stab 00,x
12886 E59C 30              0     tsx
12887 E59D E6 00           ..    ldab 00,x
12888 E59F C1 00           ..    cmpb #00
12889 E5A1 23 05           #.    bls e5a8
12890 E5A3 30              0     tsx
12891 E5A4 6A 00           j.    dec 00,x
12892 E5A6 20 F4            .    bra e59c
12893 E5A8 31              1     ins
12894 E5A9 39              9     rts
12895
12896 jump12:
12897 ; beep if keypressed?
12898 E5AA F6 00 33        ..3   ldab 0033
12899 E5AD 27 0C           '.    beq 0c      ; to e5bb
12900 E5AF F6 00 29        ..)   ldab 0029   ; key state
12901 E5B2 27 05           '.    beq 05      ; to e5b9 (out)
12902 E5B4 C6 02           ..    ldab #02
12903 E5B6 F7 00 33        ..3   stab 0033
12904 E5B9 20 15            .    bra 15      ; to e5d0 (out)
12905 E5BB C6 03           ..    ldab #03    ; beep
12906 E5BD F7 00 32        ..2   stab 0032
12907 E5C0 FC 00 3B        ..;   ldd 003b
12908 E5C3 27 06           '.    beq 06      ; to e5cb
12909 E5C5 CC 02 33        ..3   ldd #0233
12910 E5C8 FD 00 3B        ..;   std 003b
12911 E5CB C6 02           ..    ldab #02
12912 E5CD F7 00 33        ..3   stab 0033
12913 E5D0 39              9     rts
12914
12915 jump52:
12916 ; signifies a triple beep?
12917 E5D1 C6 0B           ..    ldab #0b    ; 1011
12918 E5D3 F7 00 32        ..2   stab 0032
12919 E5D6 39              9     rts
12920
12921 jump69:
12922 ; tests an internal switch or input line
12923 ; Parameters: Port Address in D, bit mask on stack
12924 ; Return value:
12925 E5D7 37              7     pshb
12926 E5D8 36              6     psha
12927 ; make some stack space
12928 E5D9 3C              <     pshx
12929 E5DA 3C              <     pshx
12930 E5DB 5F              _     clrb
12931 E5DC 4F              O     clra
12932 E5DD 30              0     tsx
12933 ; 00,x on stack - number of hits
12934 E5DE ED 00           ..    std 00,x
12935 ; we call i = 02,x. let i = 64
12936 E5E0 CC 00 64        ..d   ldd #0064
12937 E5E3 ED 02           ..    std 02,x
12938 ; break if i <= 0
12939 E5E5 30              0     tsx
12940 E5E6 EC 02           ..    ldd 02,x
12941 E5E8 2F 21           /!    ble 21     ; to e60b
12942 ; we call j = 04,x. let j = initial value of D
12943 E5EA 30              0     tsx
12944 E5EB EE 04           ..    ldx 04,x
12945 E5ED E6 00           ..    ldab 00,x
12946 E5EF 30              0     tsx
12947 E5F0 E4 09           ..    andb 09,x
12948 E5F2 27 05           '.    beq 05     ; to e5f9 if bit cleared
12949 E5F4 38              8     pulx
12950 E5F5 08              .     inx        ; increment number of hits
12951 E5F6 3C              <     pshx
12952 E5F7 20 08            .    bra 08     ; to e601
12953 E5F9 30              0     tsx
12954 E5FA EC 00           ..    ldd 00,x
12955 E5FC 83 00 01        ...   subd #0001 ; decrement number of hits
12956 E5FF ED 00           ..    std 00,x
12957 E601 30              0     tsx
12958 E602 EC 02           ..    ldd 02,x
12959 E604 83 00 01        ...   subd #0001  ; i--
12960 E607 ED 02           ..    std 02,x
12961 E609 20 DA            .    bra da      ; to e5e5
12962 ; end of loop
12963 ; return 1 iff the key was pressed
12964 E60B 30              0     tsx
12965 E60C EC 00           ..    ldd 00,x
12966 E60E 2F 04           /.    ble 04      ; to e614 if -ve
12967 E610 5F              _     clrb
12968 E611 4F              O     clra
12969 E612 20 03            .    bra 03      ; to e617
12970 E614 CC 00 01        ...   ldd #0001
12971 E617 38              8     pulx
12972 E618 38              8     pulx
12973 E619 38              8     pulx
12974 E61A 39              9     rts
12975
12976 jump4:
12977 E61B C6 0A           ..    ldab #0a
12978 E61D F7 00 31        ..1   stab 0031
12979 E620 39              9     rts
12980
12981 jump56:
12982 E621 38              8     pulx
12983 E622 37              7     pshb
12984 E623 36              6     psha
12985 E624 3C              <     pshx
12986 E625 BD BE 4B        ..K   jsr be4b             ;displayblank
12987 E628 30              0     tsx
12988 E629 EC 04           ..    ldd 04,x
12989 E62B 37              7     pshb
12990 E62C 36              6     psha
12991 E62D EC 02           ..    ldd 02,x
12992 E62F 37              7     pshb
12993 E630 36              6     psha
12994 E631 CE 96 80        ...   ldx #9680
12995 E634 3C              <     pshx
12996 E635 CC 00 98        ...   ldd #0098
12997 E638 BD FC 4C        ..L   jsr fc4c             ;jump83
12998 E63B 31              1     ins
12999 E63C 33              3     pulb
13000 E63D CB 30           .0    addb #30
13001 E63F F7 0B 97        ...   stab 0b97
13002 E642 30              0     tsx
13003 E643 EC 04           ..    ldd 04,x
13004 E645 37              7     pshb
13005 E646 36              6     psha
13006 E647 EC 02           ..    ldd 02,x
13007 E649 37              7     pshb
13008 E64A 36              6     psha
13009 E64B CE 96 80        ...   ldx #9680
13010 E64E 3C              <     pshx
13011 E64F CC 00 98        ...   ldd #0098
13012 E652 BD FC 5C        ..\   jsr fc5c             ;jump82
13013 E655 37              7     pshb
13014 E656 36              6     psha
13015 E657 CE 42 40        .B@   ldx #4240
13016 E65A 3C              <     pshx
13017 E65B CC 00 0F        ...   ldd #000f
13018 E65E BD FC 4C        ..L   jsr fc4c             ;jump83
13019 E661 31              1     ins
13020 E662 33              3     pulb
13021 E663 CB 30           .0    addb #30
13022 E665 F7 0B 96        ...   stab 0b96
13023 E668 30              0     tsx
13024 E669 EC 04           ..    ldd 04,x
13025 E66B 37              7     pshb
13026 E66C 36              6     psha
13027 E66D EC 02           ..    ldd 02,x
13028 E66F 37              7     pshb
13029 E670 36              6     psha
13030 E671 CE 42 40        .B@   ldx #4240
13031 E674 3C              <     pshx
13032 E675 CC 00 0F        ...   ldd #000f
13033 E678 BD FC 5C        ..\   jsr fc5c             ;jump82
13034 E67B 37              7     pshb
13035 E67C 36              6     psha
13036 E67D CE 86 A0        ...   ldx #86a0
13037 E680 3C              <     pshx
13038 E681 CC 00 01        ...   ldd #0001
13039 E684 BD FC 4C        ..L   jsr fc4c             ;jump83
13040 E687 31              1     ins
13041 E688 33              3     pulb
13042 E689 CB 30           .0    addb #30
13043 E68B F7 0B 95        ...   stab 0b95
13044 E68E 30              0     tsx
13045 E68F EC 04           ..    ldd 04,x
13046 E691 37              7     pshb
13047 E692 36              6     psha
13048 E693 EC 02           ..    ldd 02,x
13049 E695 37              7     pshb
13050 E696 36              6     psha
13051 E697 CE 86 A0        ...   ldx #86a0
13052 E69A 3C              <     pshx
13053 E69B CC 00 01        ...   ldd #0001
13054 E69E BD FC 5C        ..\   jsr fc5c             ;jump82
13055 E6A1 37              7     pshb
13056 E6A2 36              6     psha
13057 E6A3 CE 27 10        .'.   ldx #2710
13058 E6A6 3C              <     pshx
13059 E6A7 CC 00 00        ...   ldd #0000
13060 E6AA BD FC 4C        ..L   jsr fc4c             ;jump83
13061 E6AD 31              1     ins
13062 E6AE 33              3     pulb
13063 E6AF CB 30           .0    addb #30
13064 E6B1 F7 0B 94        ...   stab 0b94
13065 E6B4 30              0     tsx
13066 E6B5 EC 04           ..    ldd 04,x
13067 E6B7 37              7     pshb
13068 E6B8 36              6     psha
13069 E6B9 EC 02           ..    ldd 02,x
13070 E6BB 37              7     pshb
13071 E6BC 36              6     psha
13072 E6BD CE 27 10        .'.   ldx #2710
13073 E6C0 3C              <     pshx
13074 E6C1 CC 00 00        ...   ldd #0000
13075 E6C4 BD FC 5C        ..\   jsr fc5c             ;jump82
13076 E6C7 37              7     pshb
13077 E6C8 36              6     psha
13078 E6C9 CE 03 E8        ...   ldx #03e8
13079 E6CC 3C              <     pshx
13080 E6CD CC 00 00        ...   ldd #0000
13081 E6D0 BD FC 4C        ..L   jsr fc4c             ;jump83
13082 E6D3 31              1     ins
13083 E6D4 33              3     pulb
13084 E6D5 CB 30           .0    addb #30
13085 E6D7 F7 0B 93        ...   stab 0b93
13086 E6DA 30              0     tsx
13087 E6DB EC 04           ..    ldd 04,x
13088 E6DD 37              7     pshb
13089 E6DE 36              6     psha
13090 E6DF EC 02           ..    ldd 02,x
13091 E6E1 37              7     pshb
13092 E6E2 36              6     psha
13093 E6E3 CE 03 E8        ...   ldx #03e8
13094 E6E6 3C              <     pshx
13095 E6E7 CC 00 00        ...   ldd #0000
13096 E6EA BD FC 5C        ..\   jsr fc5c             ;jump82
13097 E6ED 37              7     pshb
13098 E6EE 36              6     psha
13099 E6EF CE 00 64        ..d   ldx #0064
13100 E6F2 3C              <     pshx
13101 E6F3 CC 00 00        ...   ldd #0000
13102 E6F6 BD FC 4C        ..L   jsr fc4c             ;jump83
13103 E6F9 31              1     ins
13104 E6FA 33              3     pulb
13105 E6FB CB 30           .0    addb #30
13106 E6FD F7 0B 92        ...   stab 0b92
13107 E700 30              0     tsx
13108 E701 EC 04           ..    ldd 04,x
13109 E703 37              7     pshb
13110 E704 36              6     psha
13111 E705 EC 02           ..    ldd 02,x
13112 E707 37              7     pshb
13113 E708 36              6     psha
13114 E709 CE 00 64        ..d   ldx #0064
13115 E70C 3C              <     pshx
13116 E70D CC 00 00        ...   ldd #0000
13117 E710 BD FC 5C        ..\   jsr fc5c             ;jump82
13118 E713 37              7     pshb
13119 E714 36              6     psha
13120 E715 CE 00 0A        ...   ldx #000a
13121 E718 3C              <     pshx
13122 E719 CC 00 00        ...   ldd #0000
13123 E71C BD FC 4C        ..L   jsr fc4c             ;jump83
13124 E71F 31              1     ins
13125 E720 33              3     pulb
13126 E721 CB 30           .0    addb #30
13127 E723 F7 0B 91        ...   stab 0b91
13128 E726 30              0     tsx
13129 E727 EC 04           ..    ldd 04,x
13130 E729 37              7     pshb
13131 E72A 36              6     psha
13132 E72B EC 02           ..    ldd 02,x
13133 E72D 37              7     pshb
13134 E72E 36              6     psha
13135 E72F CE 00 0A        ...   ldx #000a
13136 E732 3C              <     pshx
13137 E733 CC 00 00        ...   ldd #0000
13138 E736 BD FC 5C        ..\   jsr fc5c             ;jump82
13139 E739 31              1     ins
13140 E73A 33              3     pulb
13141 E73B CB 30           .0    addb #30
13142 E73D F7 0B 90        ...   stab 0b90
13143 E740 38              8     pulx
13144 E741 31              1     ins
13145 E742 31              1     ins
13146 E743 6E 00           n.    jmp 00,x
13147
13148 jump55:
13149 ; number to string. number is <= 99999. puts it into 0057, 005a, 005d-005f
13150 E745 37              7     pshb
13151 E746 36              6     psha
13152 E747 30              0     tsx
13153 E748 EC 00           ..    ldd 00,x
13154 E74A CE 27 10        .'.   ldx #2710   ; 10000
13155 E74D 02              .     idiv
13156 E74E 8F              .     xgdx
13157 E74F CB 30           .0    addb #30
13158 E751 F7 00 57        ..W   stab 0057   ; num/10000 => 0057
13159 E754 30              0     tsx
13160 E755 EC 00           ..    ldd 00,x
13161 E757 CE 27 10        .'.   ldx #2710   ; 10000
13162 E75A 02              .     idiv
13163 E75B CE 03 E8        ...   ldx #03e8
13164 E75E 02              .     idiv
13165 E75F 8F              .     xgdx
13166 E760 CB 30           .0    addb #30
13167 E762 F7 00 5A        ..Z   stab 005a   ; num%10000/1000 => 005a
13168 E765 30              0     tsx
13169 E766 EC 00           ..    ldd 00,x
13170 E768 CE 03 E8        ...   ldx #03e8
13171 E76B 02              .     idiv
13172 E76C CE 00 64        ..d   ldx #0064
13173 E76F 02              .     idiv
13174 E770 8F              .     xgdx
13175 E771 CB 30           .0    addb #30
13176 E773 F7 00 5D        ..]   stab 005d  ; num%1000/100 => 005d
13177 E776 30              0     tsx
13178 E777 EC 00           ..    ldd 00,x
13179 E779 CE 00 64        ..d   ldx #0064
13180 E77C 02              .     idiv
13181 E77D CE 00 0A        ...   ldx #000a
13182 E780 02              .     idiv
13183 E781 8F              .     xgdx
13184 E782 CB 30           .0    addb #30
13185 E784 F7 00 5E        ..^   stab 005e  ; num%100/10 => 005e
13186 E787 30              0     tsx
13187 E788 EC 00           ..    ldd 00,x
13188 E78A CE 00 0A        ...   ldx #000a
13189 E78D 02              .     idiv
13190 E78E CB 30           .0    addb #30
13191 E790 F7 00 5F        .._   stab 005f ; num%10 => 005f
13192 E793 38              8     pulx
13193 E794 39              9     rts
13194
13195 jump54:
13196 ; number to string. number is <= 999. puts it into 005d-005f
13197 E795 37              7     pshb
13198 E796 36              6     psha
13199 E797 30              0     tsx
13200 E798 E6 01           ..    ldab 01,x
13201 E79A 4F              O     clra
13202 E79B CE 00 64        ..d   ldx #0064   ; /100
13203 E79E 02              .     idiv
13204 E79F 8F              .     xgdx
13205 E7A0 CB 30           .0    addb #30    ; make it a digit
13206 E7A2 F7 00 5D        ..]   stab 005d
13207 E7A5 30              0     tsx
13208 E7A6 E6 01           ..    ldab 01,x
13209 E7A8 4F              O     clra
13210 E7A9 CE 00 64        ..d   ldx #0064
13211 E7AC 02              .     idiv
13212 E7AD 4F              O     clra
13213 E7AE CE 00 0A        ...   ldx #000a
13214 E7B1 02              .     idiv
13215 E7B2 8F              .     xgdx
13216 E7B3 CB 30           .0    addb #30    ; %100 / 10 -> digit
13217 E7B5 F7 00 5E        ..^   stab 005e
13218 E7B8 30              0     tsx
13219 E7B9 E6 01           ..    ldab 01,x
13220 E7BB 4F              O     clra
13221 E7BC CE 00 0A        ...   ldx #000a
13222 E7BF 02              .     idiv
13223 E7C0 CB 30           .0    addb #30
13224 E7C2 F7 00 5F        .._   stab 005f    ; %10
13225 E7C5 38              8     pulx
13226 E7C6 39              9     rts
13227
13228 jump114:
13229 E7C7 F6 00 06        ...   ldab 0006
13230 E7CA 4F              O     clra
13231 E7CB CE 00 05        ...   ldx #0005
13232 E7CE 02              .     idiv
13233 E7CF 5D              ]     tstb
13234 E7D0 26 03           &.    bne 03
13235 E7D2 7E E8 99        ~..   jmp e899             ;goto79
13236 E7D5 F6 00 06        ...   ldab 0006
13237 E7D8 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
13238 E7DB 83 00 00        ...   subd #0000
13239 E7DE 27 03           '.    beq 03
13240 E7E0 7E E8 99        ~..   jmp e899             ;goto79
13241 E7E3 F6 00 06        ...   ldab 0006
13242 E7E6 4F              O     clra
13243 E7E7 05              .     asld
13244 E7E8 C3 08 00        ...   addd #0800
13245 E7EB 8F              .     xgdx
13246 E7EC EC 00           ..    ldd 00,x
13247 E7EE C4 FF           ..    andb #ff
13248 E7F0 84 3F           .?    anda #3f
13249 E7F2 FD 10 16        ...   std 1016
13250 E7F5 F6 00 06        ...   ldab 0006
13251 E7F8 4F              O     clra
13252 E7F9 05              .     asld
13253 E7FA C3 0B F1        ...   addd #0bf1
13254 E7FD 8F              .     xgdx
13255 E7FE EC 00           ..    ldd 00,x
13256 E800 C4 FF           ..    andb #ff
13257 E802 84 3F           .?    anda #3f
13258 E804 FD 10 18        ...   std 1018
13259 E807 FC 10 16        ...   ldd 1016
13260 E80A 83 00 00        ...   subd #0000
13261 E80D 25 08           %.    bcs 08
13262 E80F FC 10 16        ...   ldd 1016
13263 E812 83 27 0F        .'.   subd #270f
13264 E815 23 35           #5    bls 35
13265 E817 F6 00 06        ...   ldab 0006
13266 E81A BD D4 68        ..h   jsr d468             ;jump51
13267 E81D 83 00 00        ...   subd #0000
13268 E820 27 2A           '*    beq 2a
13269 E822 CC 01 00        ...   ldd #0100
13270 E825 37              7     pshb
13271 E826 36              6     psha
13272 E827 F6 00 06        ...   ldab 0006
13273 E82A 4F              O     clra
13274 E82B 05              .     asld
13275 E82C C3 08 C8        ...   addd #08c8
13276 E82F 38              8     pulx
13277 E830 8F              .     xgdx
13278 E831 AA 00           ..    ora 00,x
13279 E833 EA 01           ..    orb 01,x
13280 E835 ED 00           ..    std 00,x
13281 E837 CC 40 00        .@.   ldd #4000
13282 E83A 37              7     pshb
13283 E83B 36              6     psha
13284 E83C F6 00 06        ...   ldab 0006
13285 E83F 4F              O     clra
13286 E840 05              .     asld
13287 E841 C3 08 00        ...   addd #0800
13288 E844 38              8     pulx
13289 E845 8F              .     xgdx
13290 E846 AA 00           ..    ora 00,x
13291 E848 EA 01           ..    orb 01,x
13292 E84A ED 00           ..    std 00,x
13293 E84C CE 10 16        ...   ldx #1016
13294 E84F 1D 00 C0        ..    bclr 00,x, #c0
13295 E852 FC 10 18        ..    ldd 1018
13296 E855 43              C     coma
13297 E856 53              S     comb
13298 E857 FD 10 18        ...   std 1018
13299 E85A CE 10 18        ...   ldx #1018
13300 E85D 1D 00 C0        ..    bclr 00,x, #c0
13301 E85F FC 10 16        ..    ldd 1016
13302 E863 37              7     pshb
13303 E864 36              6     psha
13304 E865 FC 10 18        ...   ldd 1018
13305 E868 30              0     tsx
13306 E869 A3 00           ..    subd 00,x
13307 E86B 31              1     ins
13308 E86C 31              1     ins
13309 E86D 27 2A           '*    beq 2a
13310 E86F CC 01 00        ...   ldd #0100
13311 E872 37              7     pshb
13312 E873 36              6     psha
13313 E874 F6 00 06        ...   ldab 0006
13314 E877 4F              O     clra
13315 E878 05              .     asld
13316 E879 C3 08 C8        ...   addd #08c8
13317 E87C 38              8     pulx
13318 E87D 8F              .     xgdx
13319 E87E AA 00           ..    ora 00,x
13320 E880 EA 01           ..    orb 01,x
13321 E882 ED 00           ..    std 00,x
13322 E884 CC 40 00        .@.   ldd #4000
13323 E887 37              7     pshb
13324 E888 36              6     psha
13325 E889 F6 00 06        ...   ldab 0006
13326 E88C 4F              O     clra
13327 E88D 05              .     asld
13328 E88E C3 08 00        ...   addd #0800
13329 E891 38              8     pulx
13330 E892 8F              .     xgdx
13331 E893 AA 00           ..    ora 00,x
13332 E895 EA 01           ..    orb 01,x
13333 E897 ED 00           ..    std 00,x
13334 goto79:
13335 E899 39              9     rts
13336
13337 jump68:
13338 E89A 5F              _     clrb
13339 E89B 4F              O     clra
13340 E89C FD 00 0F        ...   std 000f
13341 E89F CC 3F FF        .?.   ldd #3fff
13342 E8A2 FD 00 50        ..P   std 0050
13343 E8A5 7F 00 06        ...   clr 0006
13344 E8A8 F6 00 06        ...   ldab 0006
13345 E8AB C1 64           .d    cmpb #64
13346 E8AD 24 64           $d    bcc 64
13347 E8AF F6 00 06        ...   ldab 0006
13348 E8B2 4F              O     clra
13349 E8B3 CE 00 05        ...   ldx #0005
13350 E8B6 02              .     idiv
13351 E8B7 5D              ]     tstb
13352 E8B8 27 54           'T    beq 54
13353 E8BA F6 00 06        ...   ldab 0006
13354 E8BD BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
13355 E8C0 83 00 00        ...   subd #0000
13356 E8C3 26 49           &I    bne 49
13357 E8C5 F6 00 06        ...   ldab 0006
13358 E8C8 4F              O     clra
13359 E8C9 05              .     asld
13360 E8CA C3 08 00        ...   addd #0800
13361 E8CD 8F              .     xgdx
13362 E8CE EC 00           ..    ldd 00,x
13363 E8D0 C4 FF           ..    andb #ff
13364 E8D2 84 3F           .?    anda #3f
13365 E8D4 FD 10 16        ...   std 1016
13366 E8D7 FC 10 16        ...   ldd 1016
13367 E8DA 83 27 10        .'.   subd #2710   ; 10000
13368 E8DD 24 2F           $/    bcc 2f
13369 E8DF F6 00 06        ...   ldab 0006
13370 E8E2 BD D4 68        ..h   jsr d468             ;jump51
13371 E8E5 83 00 00        ...   subd #0000
13372 E8E8 27 24           '$    beq 24
13373 E8EA BD D5 61        ..a   jsr d561             ;jump42
13374 E8ED 83 00 00        ...   subd #0000
13375 E8F0 26 1C           &.    bne 1c
13376 E8F2 FC 10 16        ...   ldd 1016
13377 E8F5 B3 00 0F        ...   subd 000f
13378 E8F8 23 06           #.    bls 06
13379 E8FA FC 10 16        ...   ldd 1016
13380 E8FD FD 00 0F        ...   std 000f
13381 E900 FC 10 16        ...   ldd 1016
13382 E903 B3 00 50        ..P   subd 0050
13383 E906 24 06           $.    bcc 06
13384 E908 FC 10 16        ...   ldd 1016
13385 E90B FD 00 50        ..P   std 0050
13386 E90E 7C 00 06        |..   inc 0006
13387 E911 20 95            .    bra 95
13388 E913 FC 0B B7        ...   ldd 0bb7
13389 E916 27 12           '.    beq 12
13390 E918 FC 00 0F        ...   ldd 000f
13391 E91B B3 0B B7        ...   subd 0bb7
13392 E91E 23 0A           #.    bls 0a
13393 E920 FC 00 0F        ...   ldd 000f
13394 E923 05              .     asld
13395 E924 B3 0B B7        ...   subd 0bb7
13396 E927 FD 00 0F        ...   std 000f
13397 E92A 39              9     rts
13398
13399 jump103:
13400 E92B 34              4     des
13401 E92C 30              0     tsx
13402 E92D 6F 00           o.    clr 00,x
13403 E92F 30              0     tsx
13404 E930 E6 00           ..    ldab 00,x
13405 E932 C1 64           .d    cmpb #64
13406 E934 24 15           $.    bcc 15
13407 E936 5F              _     clrb
13408 E937 4F              O     clra
13409 E938 37              7     pshb
13410 E939 36              6     psha
13411 E93A 30              0     tsx
13412 E93B E6 02           ..    ldab 02,x
13413 E93D 4F              O     clra
13414 E93E 05              .     asld
13415 E93F C3 0D 1F        ...   addd #0d1f
13416 E942 38              8     pulx
13417 E943 8F              .     xgdx
13418 E944 ED 00           ..    std 00,x
13419 E946 30              0     tsx
13420 E947 6C 00           l.    inc 00,x
13421 E949 20 E4            .    bra e4
13422 E94B 4F              O     clra
13423 E94C 5F              _     clrb
13424 E94D FD 0D F9        ...   std 0df9
13425 E950 FD 0D F7        ...   std 0df7
13426 E953 4F              O     clra
13427 E954 5F              _     clrb
13428 E955 FD 0D F5        ...   std 0df5
13429 E958 FD 0D F3        ...   std 0df3
13430 E95B 4F              O     clra
13431 E95C 5F              _     clrb
13432 E95D FD 0D F1        ...   std 0df1
13433 E960 FD 0D EF        ...   std 0def
13434 E963 4F              O     clra
13435 E964 5F              _     clrb
13436 E965 FD 0D FD        ...   std 0dfd
13437 E968 FD 0D FB        ...   std 0dfb
13438 E96B 4F              O     clra
13439 E96C 5F              _     clrb
13440 E96D FD 0D E9        ...   std 0de9
13441 E970 FD 0D E7        ...   std 0de7
13442 E973 5F              _     clrb
13443 E974 4F              O     clra
13444 E975 FD 0C DD        ...   std 0cdd
13445 E978 5F              _     clrb
13446 E979 4F              O     clra
13447 E97A FD 0C DF        ...   std 0cdf
13448 E97D 5F              _     clrb
13449 E97E 4F              O     clra
13450 E97F FD 0C E1        ...   std 0ce1
13451 E982 5F              _     clrb
13452 E983 4F              O     clra
13453 E984 FD 0C E3        ...   std 0ce3
13454 E987 5F              _     clrb
13455 E988 4F              O     clra
13456 E989 FD 0C E5        ...   std 0ce5
13457 E98C 4F              O     clra
13458 E98D 5F              _     clrb
13459 E98E FD 0C F5        ...   std 0cf5
13460 E991 FD 0C F3        ...   std 0cf3
13461 E994 4F              O     clra
13462 E995 5F              _     clrb
13463 E996 FD 0C F9        ...   std 0cf9
13464 E999 FD 0C F7        ...   std 0cf7
13465 E99C 4F              O     clra
13466 E99D 5F              _     clrb
13467 E99E FD 0C FD        ...   std 0cfd
13468 E9A1 FD 0C FB        ...   std 0cfb
13469 E9A4 4F              O     clra
13470 E9A5 5F              _     clrb
13471 E9A6 FD 0D 01        ...   std 0d01
13472 E9A9 FD 0C FF        ...   std 0cff
13473 E9AC 4F              O     clra
13474 E9AD 5F              _     clrb
13475 E9AE FD 0D 05        ...   std 0d05
13476 E9B1 FD 0D 03        ...   std 0d03
13477 E9B4 5F              _     clrb
13478 E9B5 4F              O     clra
13479 E9B6 FD 0D 07        ...   std 0d07
13480 E9B9 5F              _     clrb
13481 E9BA 4F              O     clra
13482 E9BB FD 0D 09        ...   std 0d09
13483 E9BE 5F              _     clrb
13484 E9BF 4F              O     clra
13485 E9C0 FD 0D 0B        ...   std 0d0b
13486 E9C3 5F              _     clrb
13487 E9C4 4F              O     clra
13488 E9C5 FD 0D 0D        ...   std 0d0d
13489 E9C8 4F              O     clra
13490 E9C9 5F              _     clrb
13491 E9CA FD 0D 11        ...   std 0d11
13492 E9CD FD 0D 0F        ...   std 0d0f
13493 E9D0 4F              O     clra
13494 E9D1 5F              _     clrb
13495 E9D2 FD 0D 15        ...   std 0d15
13496 E9D5 FD 0D 13        ...   std 0d13
13497 E9D8 4F              O     clra
13498 E9D9 5F              _     clrb
13499 E9DA FD 0D 19        ...   std 0d19
13500 E9DD FD 0D 17        ...   std 0d17
13501 E9E0 4F              O     clra
13502 E9E1 5F              _     clrb
13503 E9E2 FD 0D 1D        ...   std 0d1d
13504 E9E5 FD 0D 1B        ...   std 0d1b
13505 E9E8 31              1     ins
13506 E9E9 39              9     rts
13507
13508 jump113:
13509 E9EA 7F 00 06        ...   clr 0006
13510 E9ED F6 00 06        ...   ldab 0006
13511 E9F0 C1 64           .d    cmpb #64
13512 E9F2 24 64           $d    bcc 64
13513 E9F4 F6 00 06        ...   ldab 0006
13514 E9F7 4F              O     clra
13515 E9F8 CE 00 05        ...   ldx #0005
13516 E9FB 02              .     idiv
13517 E9FC 5D              ]     tstb
13518 E9FD 27 54           'T    beq 54
13519 E9FF CC BF FF        ...   ldd #bfff
13520 EA02 37              7     pshb
13521 EA03 36              6     psha
13522 EA04 F6 00 06        ...   ldab 0006
13523 EA07 4F              O     clra
13524 EA08 05              .     asld
13525 EA09 C3 08 00        ...   addd #0800
13526 EA0C 38              8     pulx
13527 EA0D 8F              .     xgdx
13528 EA0E A4 00           ..    anda 00,x
13529 EA10 E4 01           ..    andb 01,x
13530 EA12 ED 00           ..    std 00,x
13531 EA14 CC FE FF        ...   ldd #feff
13532 EA17 37              7     pshb
13533 EA18 36              6     psha
13534 EA19 F6 00 06        ...   ldab 0006
13535 EA1C 4F              O     clra
13536 EA1D 05              .     asld
13537 EA1E C3 08 C8        ...   addd #08c8
13538 EA21 38              8     pulx
13539 EA22 8F              .     xgdx
13540 EA23 A4 00           ..    anda 00,x
13541 EA25 E4 01           ..    andb 01,x
13542 EA27 ED 00           ..    std 00,x
13543 EA29 CC FD FF        ...   ldd #fdff
13544 EA2C 37              7     pshb
13545 EA2D 36              6     psha
13546 EA2E F6 00 06        ...   ldab 0006
13547 EA31 4F              O     clra
13548 EA32 05              .     asld
13549 EA33 C3 08 C8        ...   addd #08c8
13550 EA36 38              8     pulx
13551 EA37 8F              .     xgdx
13552 EA38 A4 00           ..    anda 00,x
13553 EA3A E4 01           ..    andb 01,x
13554 EA3C ED 00           ..    std 00,x
13555 EA3E CC FB FF        ...   ldd #fbff
13556 EA41 37              7     pshb
13557 EA42 36              6     psha
13558 EA43 F6 00 06        ...   ldab 0006
13559 EA46 4F              O     clra
13560 EA47 05              .     asld
13561 EA48 C3 08 C8        ...   addd #08c8
13562 EA4B 38              8     pulx
13563 EA4C 8F              .     xgdx
13564 EA4D A4 00           ..    anda 00,x
13565 EA4F E4 01           ..    andb 01,x
13566 EA51 ED 00           ..    std 00,x
13567 EA53 7C 00 06        |..   inc 0006
13568 EA56 20 95            .    bra 95
13569 EA58 39              9     rts
13570
13571 jump65:
13572 EA59 34              4     des
13573 ; test PE2 - remote no-sale switch.
13574 EA5A CE 00 04        ...   ldx #0004
13575 EA5D 3C              <     pshx
13576 EA5E CC 10 0A        ...   ldd #100a
13577 EA61 BD E5 D7        ...   jsr e5d7             ;jump69 - test input line
13578 EA64 38              8     pulx
13579 EA65 83 00 00        ...   subd #0000
13580 EA68 27 3F           '?    beq 3f       ; to eaa9 if off
13581 ;
13582 ; test internal mode switch (bit 1 of 1800)
13583 EA6A CE 00 01        ...   ldx #0001
13584 EA6D 3C              <     pshx
13585 EA6E CC 18 00        ...   ldd #1800
13586 EA71 BD E5 D7        ...   jsr e5d7             ;jump69 - test input line
13587 EA74 38              8     pulx
13588 EA75 83 00 00        ...   subd #0000
13589 EA78 27 2F           '/    beq 2f       ; to eaa9 if off
13590 ;
13591 ; both no-sale & mode switches held.
13592 ;
13593 ; 1000-unit delay
13594 EA7A CC 03 E8        ...   ldd #03e8
13595 EA7D BD E5 71        ..q   jsr e571             ;msdelay
13596 ;
13597 EA80 7F 0B A8        ...   clr 0ba8
13598 ;
13599 ; blink "SECURE OFF" until mode switch is released
13600 EA83 F6 18 00        ...   ldab 1800
13601 EA86 C4 01           ..    andb #01
13602 EA88 26 1C           &.    bne 1c       ; to eaa4 (loop until released)
13603 ;
13604 ; blank display
13605 EA8A BD BE 4B        ..K   jsr be4b             ;displayblank (blank display buffer)
13606 EA8D 0F              .     sei
13607 EA8E BD BE 01        ...   jsr be01             ;jump70 (commit to display)
13608 EA91 0E              .     cli
13609 ;
13610 ; 500-unit delay
13611 EA92 CC 01 F4        ...   ldd #01f4
13612 EA95 BD E5 71        ..q   jsr e571             ;msdelay
13613 ;
13614 EA98 CC AF D1        ...   ldd #afd1    ; "SECURE OFF"
13615 EA9B BD C0 BA        ...   jsr c0ba             ;display:
13616 ;
13617 ; 500-unit delay
13618 EA9E CC 01 F4        ...   ldd #01f4
13619 EAA1 BD E5 71        ..q   jsr e571             ;msdelay
13620 ; loop
13621 EAA4 20 DD            .    bra dd       ; to ea83
13622 EAA6 BD BE 69        ..i   jsr be69             ;displayreset
13623 ;
13624 ; no sale switch or internal mode switch on
13625 ;
13626 ; fiddle with the bill acceptor
13627 EAA9 C6 01           ..    ldab #01
13628 EAAB F7 00 14        ...   stab 0014
13629 EAAE F6 00 14        ...   ldab 0014
13630 EAB1 F7 38 00        .8.   stab 3800
13631 ;
13632 ; 30-unit delay
13633 EAB4 CC 00 1E        ...   ldd #001e
13634 EAB7 BD E5 71        ..q   jsr e571             ;msdelay
13635 ;
13636 ; more bill acceptor fiddling & tests
13637 EABA CE 00 01        ...   ldx #0001
13638 EABD 3C              <     pshx
13639 EABE CC 10 00        ...   ldd #1000
13640 EAC1 BD E5 D7        ...   jsr e5d7             ;jump69 - test input line
13641 EAC4 38              8     pulx
13642 EAC5 83 00 00        ...   subd #0000
13643 EAC8 27 10           '.    beq 10
13644 EACA CE 00 02        ...   ldx #0002
13645 EACD 3C              <     pshx
13646 EACE CC 10 00        ...   ldd #1000
13647 EAD1 BD E5 D7        ...   jsr e5d7             ;jump69 - test input line
13648 EAD4 38              8     pulx
13649 EAD5 83 00 00        ...   subd #0000
13650 EAD8 27 03           '.    beq 03
13651 ; we've decided if we have a bill acceptor. if not, skip this bit
13652 EADA 7E ED F8        ~..   jmp edf8             ;goto80
13653 ; we have a bill acceptor - play some more
13654 EADD C6 02           ..    ldab #02
13655 EADF F7 00 14        ...   stab 0014
13656 EAE2 F6 00 14        ...   ldab 0014
13657 EAE5 F7 38 00        .8.   stab 3800
13658 EAE8 CC 00 1E        ...   ldd #001e
13659 EAEB BD E5 71        ..q   jsr e571             ;msdelay
13660 EAEE CE 00 01        ...   ldx #0001
13661 EAF1 3C              <     pshx
13662 EAF2 CC 10 00        ...   ldd #1000
13663 EAF5 BD E5 D7        ...   jsr e5d7             ;jump69 - test input line
13664 EAF8 38              8     pulx
13665 EAF9 83 00 00        ...   subd #0000
13666 EAFC 26 10           &.    bne 10
13667 EAFE CE 00 02        ...   ldx #0002
13668 EB01 3C              <     pshx
13669 EB02 CC 10 00        ...   ldd #1000
13670 EB05 BD E5 D7        ...   jsr e5d7             ;jump69 - test input line
13671 EB08 38              8     pulx
13672 EB09 83 00 00        ...   subd #0000
13673 EB0C 26 03           &.    bne 03
13674 EB0E 7E ED F8        ~..   jmp edf8             ;goto80 - something about the bill validator failed. skip it.
13675 EB11 CC 5A 5A        .ZZ   ldd #5a5a    ; 23130
13676 EB14 FD 10 16        ...   std 1016
13677 EB17 CC B1 39        ..9   ldd #b139    ;"**********"
13678 EB1A BD C0 BA        ...   jsr c0ba             ;display:
13679 EB1D CC 07 D0        ...   ldd #07d0
13680 EB20 BD E5 71        ..q   jsr e571             ;msdelay
13681 EB23 CC B1 44        ..D   ldd #b144    ;"OOOOOOOOOO"
13682 EB26 BD C0 BA        ...   jsr c0ba             ;display:
13683 EB29 CC 07 D0        ...   ldd #07d0
13684 EB2C BD E5 71        ..q   jsr e571             ;msdelay
13685 EB2F CC 00 14        ...   ldd #0014
13686 EB32 FD 00 3B        ..;   std 003b
13687 EB35 FC 00 3B        ..;   ldd 003b
13688 EB38 27 47           'G    beq 47
13689 ; draws a sequence of 10 dots ..... along the display.
13690 EB3A 30              0     tsx
13691 EB3B 6F 00           o.    clr 00,x
13692 EB3D 30              0     tsx
13693 EB3E E6 00           ..    ldab 00,x
13694 EB40 C1 0A           ..    cmpb #0a
13695 EB42 24 3B           $;    bcc 3b
13696 EB44 BD BE 4B        ..K   jsr be4b             ;displayblank
13697 EB47 C6 2E           ..    ldab #2e
13698 EB49 37              7     pshb
13699 EB4A 30              0     tsx
13700 EB4B E6 01           ..    ldab 01,x
13701 EB4D 4F              O     clra
13702 EB4E C3 0B 90        ...   addd #0b90
13703 EB51 8F              .     xgdx
13704 EB52 33              3     pulb
13705 EB53 E7 00           ..    stab 00,x
13706 EB55 0F              .     sei
13707 EB56 BD BE 69        ..i   jsr be69             ;displayreset
13708 EB59 CE 10 28        ..(   ldx #1028
13709 EB5C 1C 00 40        ..    bset 00,x, #40  ; tweak the clock phase
13710 EB5F CE 00 01        ...   ldx #0001
13711 EB62 3C              <     pshx
13712 EB63 CC 00 20        ..    ldd #0020
13713 EB66 BD BD B5        ...   jsr bdb5             ;jump78 - send display byte
13714 EB69 38              8     pulx
13715 EB6A CE 10 28        ..(   ldx #1028
13716 EB6D 1D 00 40        ..@   bclr 00,x, #40  ; tweak the clock phase back
13717 EB70 BD BE 10        ...   jsr be10             ;jump88
13718 EB73 0E              .     cli
13719 EB74 CC 00 07        ...   ldd #0007
13720 EB77 BD E5 71        ..q   jsr e571             ;msdelay 7-unit delay
13721 EB7A 30              0     tsx
13722 EB7B 6C 00           l.    inc 00,x
13723 EB7D 20 BE            .    bra be
13724 EB7F 20 B4            .    bra b4
13725 EB81 BD BE 69        ..i   jsr be69             ;displayreset
13726 EB84 CC 08 00        ...   ldd #0800
13727 EB87 FD 00 73        ..s   std 0073
13728 EB8A FC 00 73        ..s   ldd 0073
13729 EB8D 83 0F FF        ...   subd #0fff
13730 EB90 22 10           ".    bhi 10       ; to eba2
13731 EB92 C6 AA           ..    ldab #aa
13732 EB94 FE 00 73        ..s   ldx 0073
13733 EB97 E7 00           ..    stab 00,x
13734 EB99 FE 00 73        ..s   ldx 0073
13735 EB9C 08              .     inx
13736 EB9D FF 00 73        ..s   stx 0073
13737 EBA0 20 E8            .    bra e8
13738 EBA2 CC 08 00        ...   ldd #0800
13739 EBA5 FD 00 73        ..s   std 0073
13740 EBA8 FC 00 73        ..s   ldd 0073
13741 EBAB 83 0F FF        ...   subd #0fff
13742 EBAE 22 1A           ".    bhi 1a
13743 EBB0 FE 00 73        ..s   ldx 0073
13744 EBB3 E6 00           ..    ldab 00,x
13745 EBB5 C1 AA           ..    cmpb #aa
13746 EBB7 27 08           '.    beq 08
13747 EBB9 CE 10 16        ...   ldx #1016     ; timer output compare register
13748 EBBC 1D 00 FF        ..    bclr 00,x, #FF
13749 EBBF 20 09           ..    bra 09
13750 EBC1 FE 00 73        ..s   ldx 0073
13751 EBC4 08              .     inx
13752 EBC5 FF 00 73        ..s   stx 0073
13753 EBC8 20 DE            .    bra de
13754 EBCA CC 08 00        ...   ldd #0800
13755 EBCD FD 00 73        ..s   std 0073
13756 EBD0 FC 00 73        ..s   ldd 0073
13757 EBD3 83 0F FF        ...   subd #0fff
13758 EBD6 22 10           ".    bhi 10
13759 EBD8 C6 55           .U    ldab #55
13760 EBDA FE 00 73        ..s   ldx 0073
13761 EBDD E7 00           ..    stab 00,x
13762 EBDF FE 00 73        ..s   ldx 0073
13763 EBE2 08              .     inx
13764 EBE3 FF 00 73        ..s   stx 0073
13765 EBE6 20 E8            .    bra e8
13766 EBE8 CC 08 00        ...   ldd #0800
13767 EBEB FD 00 73        ..s   std 0073
13768 EBEE FC 00 73        ..s   ldd 0073
13769 EBF1 83 0F FF        ...   subd #0fff
13770 EBF4 22 1A           ".    bhi 1a
13771 EBF6 FE 00 73        ..s   ldx 0073
13772 EBF9 E6 00           ..    ldab 00,x
13773 EBFB C1 55           .U    cmpb #55
13774 EBFD 27 08           '.    beq 08
13775 EBFF CE 10 16        ...   ldx #1016
13776 EC02 1D 00 FF        ...   bclr 00,x #ff
13777 EC05 20 09            .    bra 09
13778 EC07 FE 00 73        ..s   ldx 0073
13779 EC0A 08              .     inx
13780 EC0B FF 00 73        ..s   stx 0073
13781 EC0E 20 DE            .    bra de
13782 EC10 CC 08 00        ...   ldd #0800
13783 EC13 FD 00 73        ..s   std 0073
13784 EC16 FC 00 73        ..s   ldd 0073
13785 EC19 83 0F FF        ...   subd #0fff
13786 EC1C 22 0F           ".    bhi 0f
13787 EC1E 5F              _     clrb
13788 EC1F FE 00 73        ..s   ldx 0073
13789 EC22 E7 00           ..    stab 00,x
13790 EC24 FE 00 73        ..s   ldx 0073
13791 EC27 08              .     inx
13792 EC28 FF 00 73        ..s   stx 0073
13793 EC2B 20 E9            .    bra e9
13794 EC2D 7F 00 06        ...   clr 0006
13795 EC30 F6 00 06        ...   ldab 0006
13796 EC33 C1 64           .d    cmpb #64
13797 EC35 24 4D           $M    bcc 4d
13798 EC37 F6 00 06        ...   ldab 0006
13799 EC3A 4F              O     clra
13800 EC3B CE 00 05        ...   ldx #0005
13801 EC3E 02              .     idiv
13802 EC3F 5D              ]     tstb
13803 EC40 27 3D           '=    beq 3d
13804 EC42 CC 00 32        ..2   ldd #0032
13805 EC45 37              7     pshb
13806 EC46 36              6     psha
13807 EC47 F6 00 06        ...   ldab 0006
13808 EC4A 4F              O     clra
13809 EC4B 05              .     asld
13810 EC4C C3 08 00        ...   addd #0800
13811 EC4F 38              8     pulx
13812 EC50 8F              .     xgdx
13813 EC51 ED 00           ..    std 00,x
13814 EC53 F6 00 06        ...   ldab 0006
13815 EC56 4F              O     clra
13816 EC57 05              .     asld
13817 EC58 C3 08 00        ...   addd #0800
13818 EC5B 8F              .     xgdx
13819 EC5C EC 00           ..    ldd 00,x
13820 EC5E 43              C     coma
13821 EC5F 53              S     comb
13822 EC60 37              7     pshb
13823 EC61 36              6     psha
13824 EC62 F6 00 06        ...   ldab 0006
13825 EC65 4F              O     clra
13826 EC66 05              .     asld
13827 EC67 C3 0B F1        ...   addd #0bf1
13828 EC6A 38              8     pulx
13829 EC6B 8F              .     xgdx
13830 EC6C ED 00           ..    std 00,x
13831 EC6E CC 08 01        ...   ldd #0801
13832 EC71 37              7     pshb
13833 EC72 36              6     psha
13834 EC73 F6 00 06        ...   ldab 0006
13835 EC76 4F              O     clra
13836 EC77 05              .     asld
13837 EC78 C3 08 C8        ...   addd #08c8
13838 EC7B 38              8     pulx
13839 EC7C 8F              .     xgdx
13840 EC7D ED 00           ..    std 00,x
13841 EC7F 7C 00 06        |..   inc 0006
13842 EC82 20 AC            .    bra ac
13843 EC84 C6 1D           ..    ldab #1d
13844 EC86 F7 0B BF        ...   stab 0bbf
13845 EC89 30              0     tsx
13846 EC8A 6F 00           o.    clr 00,x
13847 EC8C F6 0B BF        ...   ldab 0bbf
13848 EC8F 4F              O     clra
13849 EC90 C3 00 02        ...   addd #0002
13850 EC93 37              7     pshb
13851 EC94 36              6     psha
13852 EC95 30              0     tsx
13853 EC96 E6 02           ..    ldab 02,x
13854 EC98 4F              O     clra
13855 EC99 A3 00           ..    subd 00,x
13856 EC9B 31              1     ins
13857 EC9C 31              1     ins
13858 EC9D 2C 1B           ,.    bge 1b
13859 EC9F 30              0     tsx
13860 ECA0 E6 00           ..    ldab 00,x
13861 ECA2 4F              O     clra
13862 ECA3 C3 B1 D0        ...   addd #b1d0   ; "THANK YOU FOR YOUR PATRONAGE"
13863 ECA6 8F              .     xgdx
13864 ECA7 E6 00           ..    ldab 00,x
13865 ECA9 37              7     pshb
13866 ECAA 30              0     tsx
13867 ECAB E6 01           ..    ldab 01,x
13868 ECAD 4F              O     clra
13869 ECAE C3 09 93        ...   addd #0993
13870 ECB1 8F              .     xgdx
13871 ECB2 33              3     pulb
13872 ECB3 E7 00           ..    stab 00,x
13873 ECB5 30              0     tsx
13874 ECB6 6C 00           l.    inc 00,x
13875 ECB8 20 D2            .    bra d2
13876 ECBA 7F 0B A8        ...   clr 0ba8
13877 ECBD CC 00 32        ..2   ldd #0032
13878 ECC0 FD 0B B5        ...   std 0bb5
13879 ECC3 5F              _     clrb
13880 ECC4 4F              O     clra
13881 ECC5 FD 0B B7        ...   std 0bb7
13882 ECC8 7F 00 06        ...   clr 0006
13883 ECCB BD A6 4E        ..N   jsr a64e             ;jump135
13884 ECCE C6 09           ..    ldab #09
13885 ECD0 F7 0B C0        ...   stab 0bc0
13886 ECD3 7F 0E 6D        ..m   clr 0e6d
13887 ECD6 C6 01           ..    ldab #01
13888 ECD8 F7 0E 6E        ..n   stab 0e6e
13889 ECDB 30              0     tsx
13890 ECDC 6F 00           o.    clr 00,x
13891 ECDE 30              0     tsx
13892 ECDF E6 00           ..    ldab 00,x
13893 ECE1 C1 0F           ..    cmpb #0f
13894 ECE3 24 21           $!    bcc 21
13895 ECE5 C6 30           .0    ldab #30
13896 ECE7 37              7     pshb
13897 ECE8 30              0     tsx
13898 ECE9 E6 01           ..    ldab 01,x
13899 ECEB 4F              O     clra
13900 ECEC C3 0C B9        ...   addd #0cb9
13901 ECEF 8F              .     xgdx
13902 ECF0 33              3     pulb
13903 ECF1 E7 00           ..    stab 00,x
13904 ECF3 C6 30           .0    ldab #30
13905 ECF5 37              7     pshb
13906 ECF6 30              0     tsx
13907 ECF7 E6 01           ..    ldab 01,x
13908 ECF9 4F              O     clra
13909 ECFA C3 0C C9        ...   addd #0cc9
13910 ECFD 8F              .     xgdx
13911 ECFE 33              3     pulb
13912 ECFF E7 00           ..    stab 00,x
13913 ED01 30              0     tsx
13914 ED02 6C 00           l.    inc 00,x
13915 ED04 20 D8            .    bra d8
13916 ED06 30              0     tsx
13917 ED07 6F 00           o.    clr 00,x
13918 ;
13919 ED09 30              0     tsx
13920 ED0A E6 00           ..    ldab 00,x
13921 ED0C C1 0B           ..    cmpb #0b
13922 ED0E 24 12           $.    bcc 12 ; to ed22
13923 ED10 5F              _     clrb
13924 ED11 37              7     pshb
13925 ED12 30              0     tsx
13926 ED13 E6 01           ..    ldab 01,x
13927 ED15 4F              O     clra
13928 ED16 C3 0B E4        ...   addd #0be4
13929 ED19 8F              .     xgdx
13930 ED1A 33              3     pulb
13931 ED1B E7 00           ..    stab 00,x
13932 ED1D 30              0     tsx
13933 ED1E 6C 00           l.    inc 00,x
13934 ED20 20 E7            .    bra e7
13935 ; clear stuff ready for test harness?
13936 ED22 4F              O     clra
13937 ED23 5F              _     clrb
13938 ED24 FD 0D F9        ...   std 0df9
13939 ED27 FD 0D F7        ...   std 0df7
13940 ED2A 4F              O     clra
13941 ED2B 5F              _     clrb
13942 ED2C FD 0D F5        ...   std 0df5
13943 ED2F FD 0D F3        ...   std 0df3
13944 ED32 7F 0C D9        ...   clr 0cd9
13945 ED35 7F 0C DA        ...   clr 0cda
13946 ED38 7F 0C DB        ...   clr 0cdb
13947 ED3B 7F 0C DC        ...   clr 0cdc
13948 ED3E 4F              O     clra
13949 ED3F 5F              _     clrb
13950 ED40 FD 0D F1        ...   std 0df1
13951 ED43 FD 0D EF        ...   std 0def
13952 ED46 4F              O     clra
13953 ED47 5F              _     clrb
13954 ED48 FD 0D FD        ...   std 0dfd
13955 ED4B FD 0D FB        ...   std 0dfb
13956 ED4E 4F              O     clra
13957 ED4F 5F              _     clrb
13958 ED50 FD 0D E9        ...   std 0de9
13959 ED53 FD 0D E7        ...   std 0de7
13960 ED56 4F              O     clra
13961 ED57 5F              _     clrb
13962 ED58 FD 0D ED        ...   std 0ded
13963 ED5B FD 0D EB        ...   std 0deb
13964 ED5E 5F              _     clrb
13965 ED5F 4F              O     clra
13966 ED60 FD 0C DD        ...   std 0cdd
13967 ED63 5F              _     clrb
13968 ED64 4F              O     clra
13969 ED65 FD 0C DF        ...   std 0cdf
13970 ED68 5F              _     clrb
13971 ED69 4F              O     clra
13972 ED6A FD 0C E1        ...   std 0ce1
13973 ED6D 5F              _     clrb
13974 ED6E 4F              O     clra
13975 ED6F FD 0C E3        ...   std 0ce3
13976 ED72 5F              _     clrb
13977 ED73 4F              O     clra
13978 ED74 FD 0C E5        ...   std 0ce5
13979 ED77 4F              O     clra
13980 ED78 5F              _     clrb
13981 ED79 FD 0C F5        ...   std 0cf5
13982 ED7C FD 0C F3        ...   std 0cf3
13983 ED7F 4F              O     clra
13984 ED80 5F              _     clrb
13985 ED81 FD 0C F9        ...   std 0cf9
13986 ED84 FD 0C F7        ...   std 0cf7
13987 ED87 4F              O     clra
13988 ED88 5F              _     clrb
13989 ED89 FD 0C FD        ...   std 0cfd
13990 ED8C FD 0C FB        ...   std 0cfb
13991 ED8F 4F              O     clra
13992 ED90 5F              _     clrb
13993 ED91 FD 0D 01        ...   std 0d01
13994 ED94 FD 0C FF        ...   std 0cff
13995 ED97 4F              O     clra
13996 ED98 5F              _     clrb
13997 ED99 FD 0D 05        ...   std 0d05
13998 ED9C FD 0D 03        ...   std 0d03
13999 ED9F 5F              _     clrb
14000 EDA0 4F              O     clra
14001 EDA1 FD 0D 07        ...   std 0d07
14002 EDA4 5F              _     clrb
14003 EDA5 4F              O     clra
14004 EDA6 FD 0D 09        ...   std 0d09
14005 EDA9 5F              _     clrb
14006 EDAA 4F              O     clra
14007 EDAB FD 0D 0B        ...   std 0d0b
14008 EDAE 5F              _     clrb
14009 EDAF 4F              O     clra
14010 EDB0 FD 0D 0D        ...   std 0d0d
14011 EDB3 4F              O     clra
14012 EDB4 5F              _     clrb
14013 EDB5 FD 0D 11        ...   std 0d11
14014 EDB8 FD 0D 0F        ...   std 0d0f
14015 EDBB 4F              O     clra
14016 EDBC 5F              _     clrb
14017 EDBD FD 0D 15        ...   std 0d15
14018 EDC0 FD 0D 13        ...   std 0d13
14019 EDC3 4F              O     clra
14020 EDC4 5F              _     clrb
14021 EDC5 FD 0D 19        ...   std 0d19
14022 EDC8 FD 0D 17        ...   std 0d17
14023 EDCB 4F              O     clra
14024 EDCC 5F              _     clrb
14025 EDCD FD 0D 1D        ...   std 0d1d
14026 EDD0 FD 0D 1B        ...   std 0d1b
14027 EDD3 7F 0B AF        ...   clr 0baf
14028 EDD6 7F 0B AE        ...   clr 0bae
14029 EDD9 7F 0B AD        ...   clr 0bad
14030 EDDC 7F 0B AC        ...   clr 0bac
14031 EDDF 7F 0B AB        ...   clr 0bab
14032 EDE2 7F 0B B4        ...   clr 0bb4
14033 EDE5 7F 0B B3        ...   clr 0bb3
14034 EDE8 7F 0B B2        ...   clr 0bb2
14035 EDEB 7F 0B B1        ...   clr 0bb1
14036 EDEE 7F 0B B0        ...   clr 0bb0
14037 EDF1 C6 05           ..    ldab #05
14038 EDF3 F7 08 00        ...   stab 0800
14039 EDF6 8D 21           .!    bsr 21 ;jump204 - test harness function
14040 goto80:
14041 ; switch things off (motors, display clock, keypad strobe)
14042 EDF8 7F 00 14        ...   clr 0014
14043 EDFB F6 00 14        ...   ldab 0014
14044 EDFE F7 38 00        .8.   stab 3800
14045 EE01 31              1     ins
14046 EE02 39              9     rts
14047
14048 jump36:
14049 ; writes msg to screen for 1.5s
14050 EE03 37              7     pshb
14051 EE04 36              6     psha
14052 EE05 30              0     tsx
14053 EE06 EC 00           ..    ldd 00,x
14054 EE08 BD C0 BA        ...   jsr c0ba             ;display:
14055 EE0B CE 10 16        ...   ldx #1016
14056 EE0E 1D 01 FF        ..    bclr 01,x, #ff
14057 EE11 CC 05 DC        ...   ldd #05dc    ; 1500
14058 EE14 BD E5 71        ...   jsr e571     ;msdelay
14059 EE17 38              8     pulx
14060 EE18 39              9     rts
14061
14062 jump204:
14063 EE19 BD E5 D1        ...   jsr e5d1             ;jump52 - triple beep
14064 goto81:
14065 ; this the diagnostic function activated when the "test harness"
14066 ; is connected
14067 EE1C CE 10 16        ...   ldx #1016
14068 EE1F 1D 01           ..    bclr 01,x, #ff
14069 EE21 CE 10 16        ..    ldx #1016
14070 EE25 1C 01 5A        ...   bset 01,x, #5A
14071 EE28 F6 10 16        ...   ldab 1016
14072 EE2B 26 0C           &.    bne 0c       ; to ee39
14073 EE2D CC B1 4F        ..O   ldd #b14f    ;"RAM   FAIL"
14074 EE30 BD C0 BA        ...   jsr c0ba             ;display:
14075 EE33 CC 05 DC        ...   ldd #05dc
14076 EE36 BD E5 71        ..q   jsr e571             ;msdelay
14077 ; i=4
14078 EE39 C6 04           ..    ldab #04
14079 EE3B F7 00 1C        ...   stab 001c
14080 ; i <= 7
14081 EE3E F6 00 1C        ...   ldab 001c
14082 EE41 C1 07           ..    cmpb #07
14083 EE43 24 57           $W    bcc 57       ; to ee9c (break out)
14084 EE45 F6 00 1C        ...   ldab 001c
14085 EE48 4F              O     clra
14086 EE49 C3 B1 23        ..#   addd #b123   ; power of 2
14087 EE4C 8F              .     xgdx
14088 EE4D E6 00           ..    ldab 00,x
14089 EE4F 53              S     comb
14090 EE50 F4 00 1A        ...   andb 001a
14091 EE53 F7 00 1A        ...   stab 001a
14092 EE56 F6 00 1A        ...   ldab 001a
14093 EE59 F7 30 00        .0.   stab 3000    ; set coin bit active (low)
14094 EE5C CC 00 0A        ...   ldd #000a
14095 EE5F BD E5 71        ..q   jsr e571             ;msdelay
14096 EE62 F6 18 00        ...   ldab 1800
14097 EE65 2C 07           ,.    bge 07       ; to ee6e
14098 EE67 CC B1 5A        ..Z   ldd #b15a    ; "P2    FAIL"
14099 EE6A 8D 97           ..    bsr dest 97  ; display to ee03
14100 EE6C 20 2E            .    bra 2e       ; to ee9c
14101 EE6E F6 00 1C        ...   ldab 001c
14102 EE71 4F              O     clra
14103 EE72 C3 B1 23        ..#   addd #b123   ; powers of 2
14104 EE75 8F              .     xgdx
14105 EE76 E6 00           ..    ldab 00,x
14106 EE78 FA 00 1A        ...   orb 001a
14107 EE7B F7 00 1A        ...   stab 001a
14108 EE7E F6 00 1A        ...   ldab 001a
14109 EE81 F7 30 00        .0.   stab 3000    ; set coin bit inactive (high)
14110 EE84 CC 00 0A        ...   ldd #000a
14111 EE87 BD E5 71        ..q   jsr e571             ;msdelay
14112 EE8A F6 18 00        ...   ldab 1800    ; if changer int'
14113 EE8D 2D 08           -.    blt 08       ; ee97
14114 EE8F CC B1 5A        ..Z   ldd #b15a    ; "P2 FAIL"
14115 EE92 BD EE 03        ...   jsr ee03             ;jump36
14116 EE95 20 05            .    bra 05       ; to ee9c
14117 EE97 7C 00 1C        |..   inc 001c
14118 EE9A 20 A2            .    bra a2       ; to ee3e
14119 ;
14120 EE9C CE 10 00        ...   ldx #1000
14121 EE9F 1C 00 08        ...   bset 00,x, #08 ; talk to coin mech
14122 EEA2 CE 10 08        ...   ldx #1008
14123 EEA5 1C 00 02        ...   bset 00,x, #02 ; set rx of sci
14124 EEA8 CE 00 1A        ...   ldx #001a
14125 EEAB 1C 00 40        ...   bset 00,x, #40
14126 EEAE F6 00 1A        ...   ldab 001a
14127 EEB1 F7 30 00        .0.   stab 3000    ; unset $1.00 line
14128 EEB4 CC 00 0A        ...   ldd #000a
14129 EEB7 BD E5 71        ..q   jsr e571             ;msdelay
14130 EEBA F6 10 08        ...   ldab 1008
14131 EEBD C4 01           ..    andb #01     ; tests tx of sci
14132 EEBF 26 06           &.    bne 06       ; to eec7
14133 EEC1 CC B1 5A        ..Z   ldd #b15a    ; "P2    FAIL"
14134 EEC4 BD EE 03        ...   jsr ee03             ;jump36
14135 EEC7 CE 00 1A        ...   ldx #001a
14136 EECA 1D 00 40        ...   bclr 00,x, #40
14137 EECD F6 00 1A        ...   ldab 001a
14138 EED0 F7 30 00        .0.   stab 3000    ; set $1.00 line
14139 EED3 CC 00 0A        ...   ldd #000a
14140 EED6 BD E5 71        ..q   jsr e571             ;msdelay
14141 ;
14142 EED9 F6 10 08        ...   ldab 1008
14143 EEDC C4 01           ..    andb #01     ; tests txt of sci
14144 EEDE 27 06           '.    beq 06       ; to eee6
14145 EEE0 CC B1 5A        ..Z   ldd #b15a    ; "P2    FAIL"
14146 EEE3 BD EE 03        ...   jsr ee03             ;jump36
14147 EEE6 CE 00 1A        ...   ldx #001a
14148 EEE9 1C 00 02        ...   bset 00,x, #02
14149 EEEC F6 00 1A        ...   ldab 001a
14150 EEEF F7 30 00        .0.   stab 3000    ; ditto for $0.25
14151 EEF2 CC 00 0A        ...   ldd #000a
14152 EEF5 BD E5 71        ..q   jsr e571             ;msdelay
14153 EEF8 F6 10 00        ...   ldab 1000
14154 EEFB C4 04           ..    andb #04
14155 EEFD 26 06           &.    bne 06
14156 EEFF CC B1 65        ..e   ldd #b165
14157 EF02 BD EE 03        ...   jsr ee03             ;jump36
14158 EF05 CE 00 1A        ...   ldx #001a
14159 EF08 1D 00 02        ...   bclr 00,x, #02
14160 EF0B F6 00 1A        ...   ldab 001a
14161 EF0E F7 30 00        .0.   stab 3000    ; ditto for $0.25
14162 EF11 CC 00 0A        ...   ldd #000a
14163 EF14 BD E5 71        ..q   jsr e571             ;msdelay
14164 ;
14165 EF17 F6 10 00        ...   ldab 1000
14166 EF1A C4 04           ..    andb #04     ; coin dispenser pin6
14167 EF1C 27 06           '.    beq 06
14168 EF1E CC B1 65        ..e   ldd #b165    ; "P2-P3 FAIL"
14169 EF21 BD EE 03        ...   jsr ee03             ;jump36
14170 EF24 CE 00 1A        ...   ldx #001a
14171 EF27 1C 00 01        ...   bset 00,x, #01
14172 EF2A F6 00 1A        ...   ldab 001a
14173 EF2D F7 30 00        .0.   stab 3000    ; send line of changer
14174 EF30 CC 00 0A        ...   ldd #000a
14175 EF33 BD E5 71        ..q   jsr e571             ;msdelay
14176 ;
14177 EF36 F6 18 00        ...   ldab 1800
14178 EF39 C4 20           .     andb #20     ; test door switch
14179 EF3B 26 06           &.    bne 06
14180 EF3D CC B1 70        ..p   ldd #b170    ; "P2-P8 FAIL"
14181 EF40 BD EE 03        ...   jsr ee03             ;jump36
14182 EF43 CE 00 1A        ...   ldx #001a
14183 EF46 1D 00 01        ...   bclr 00,x, #01
14184 EF49 F6 00 1A        ...   ldab 001a
14185 EF4C F7 30 00        .0.   stab 3000    ; unset send line of changer
14186 EF4F CC 00 0A        ...   ldd #000a
14187 EF52 BD E5 71        ..q   jsr e571             ;msdelay
14188 EF55 F6 18 00        ...   ldab 1800
14189 EF58 C4 20           .     andb #20     ; test door again?
14190 EF5A 27 06           '.    beq 06
14191 EF5C CC B1 70        ..p   ldd #b170    ; "P2-P8 FAIL"
14192 EF5F BD EE 03        ...   jsr ee03             ;jump36
14193 EF62 CE 00 1A        ...   ldx #001a
14194 EF65 1C 00 04        ...   bset 00,x, #04 ; reset changer
14195 EF68 F6 00 1A        ...   ldab 001a
14196 EF6B F7 30 00        .0.   stab 3000
14197 EF6E CC 00 0A        ...   ldd #000a
14198 EF71 BD E5 71        ..q   jsr e571             ;msdelay
14199 EF74 F6 10 0A        ...   ldab 100a
14200 EF77 C4 04           ..    andb #04     ; test no-sale switch
14201 EF79 26 06           &.    bne 06
14202 EF7B CC B1 7B        ..{   ldd #b17b    ; "P2-P9 FAIL"
14203 EF7E BD EE 03        ...   jsr ee03             ;jump36
14204 EF81 CE 00 1A        ...   ldx #001a
14205 EF84 1D 00 04        ...   bclr 00,x, #04
14206 EF87 F6 00 1A        ...   ldab 001a
14207 EF8A F7 30 00        .0.   stab 3000    ;snack motor drivers serial data is bit 7
14208 EF8D CC 00 0A        ...   ldd #000a
14209 EF90 BD E5 71        ..q   jsr e571             ;msdelay
14210 EF93 F6 10 0A        ...   ldab 100a
14211 EF96 C4 04           ..    andb #04
14212 EF98 27 06           '.    beq 06
14213 EF9A CC B1 7B        ..{   ldd #b17b    ; "P2-P9 FAIL"
14214 EF9D BD EE 03        ...   jsr ee03             ;jump36
14215 EFA0 CE 10 00        ...   ldx #1000
14216 EFA3 1C 00 08        ...   bset 00,x, #08
14217 EFA6 CE 00 1A        ...   ldx #001a
14218 EFA9 1C 00 40        ...   bset 00,x, #40
14219 EFAC F6 00 1A        ...   ldab 001a
14220 EFAF F7 30 00        .0.   stab 3000
14221 EFB2 CE 10 08        ...   ldx #1008
14222 EFB5 1C 00 02        ...   bset 00,x, #02 ; keypad data
14223 EFB8 CC 00 0A        ...   ldd #000a
14224 EFBB BD E5 71        ..q   jsr e571             ;msdelay
14225 EFBE F6 10 08        ...   ldab 1008
14226 EFC1 C4 01           ..    andb #01
14227 EFC3 26 06           &.    bne 06
14228 EFC5 CC B1 86        ...   ldd #b186    ; "P3-P4 FAIL"
14229 EFC8 BD EE 03        ...   jsr ee03             ;jump36
14230 EFCB CE 10 08        ...   ldx #1008
14231 EFCE 1D 00 02        ...   bclr 00,x, #02
14232 EFD1 CC 00 0A        ...   ldd #000a
14233 EFD4 BD E5 71        ..q   jsr e571             ;msdelay
14234 EFD7 F6 10 08        ...   ldab 1008
14235 EFDA C4 01           ..    andb #01
14236 EFDC 27 06           '.    beq 06
14237 EFDE CC B1 86        ...   ldd #b186     ; "P3-P4 FAIL"
14238 EFE1 BD EE 03        ...   jsr ee03             ;jump36
14239 EFE4 CE 10 00        ...   ldx #1000
14240 EFE7 1D 00 08        ...   bclr 00,x, #08
14241 EFEA CE 10 08        ...   ldx #1008
14242 EFED 1C 00 02        ...   bset 00,x, #02
14243 EFF0 CC 00 0A        ...   ldd #000a
14244 EFF3 BD E5 71        ..q   jsr e571             ;msdelay
14245 EFF6 F6 10 08        ...   ldab 1008
14246 EFF9 C4 01           ..    andb #01
14247 EFFB 26 06           &.    bne 06
14248 EFFD CC B1 91        ...   ldd #b191    ; "P5   FAIL"
14249 F000 BD EE 03        ...   jsr ee03             ;jump36
14250 F003 CE 10 08        ...   ldx #1008
14251 F006 1D 00 02        ...   bclr 00,x, #02
14252 F009 CC 00 0A        ...   ldd #000a
14253 F00C BD E5 71        ..q   jsr e571             ;msdelay
14254 F00F F6 10 08        ...   ldab 1008
14255 F012 C4 01           ..    andb #01
14256 F014 27 06           '.    beq 06
14257 F016 CC B1 91        ...   ldd #b191
14258 F019 BD EE 03        ...   jsr ee03             ;jump36
14259 F01C CE 00 14        ...   ldx #0014
14260 F01F 1C 00           ..    bset add,x 00,x
14261 F021 20 F6            .    bra f6
14262 F023 00              .     test
14263 F024 14              .     bset
14264 F025 F7 38 00        .8.   stab 3800
14265 F028 CC 00 0A        ...   ldd #000a
14266 F02B BD E5 71        ..q   jsr e571             ;msdelay
14267 F02E F6 20 00        . .   ldab 2000
14268 F031 C4 40           .@    andb #40
14269 F033 26 06           &.    bne 06
14270 F035 CC B1 9C        ...   ldd #b19c
14271 F038 BD EE 03        ...   jsr ee03             ;jump36
14272 F03B CE 00 14        ...   ldx #0014
14273 F03E 1D 00           ..    bclr add,x 00,x
14274 F040 20 F6            .    bra f6
14275 F042 00              .     test
14276 F043 14              .     bset
14277 F044 F7 38 00        .8.   stab 3800
14278 F047 CC 00 0A        ...   ldd #000a
14279 F04A BD E5 71        ..q   jsr e571             ;msdelay
14280 F04D F6 20 00        . .   ldab 2000
14281 F050 C4 40           .@    andb #40
14282 F052 27 06           '.    beq 06
14283 F054 CC B1 9C        ...   ldd #b19c
14284 F057 BD EE 03        ...   jsr ee03             ;jump36
14285 F05A CE 00 14        ...   ldx #0014
14286 F05D 1C 00 40        ...   bset 00,x, #40
14287 F060 F6 00 14        ...   ldab 0014
14288 F063 F7 38 00        .8.   stab 3800
14289 F066 CC 00 0A        ...   ldd #000a
14290 F069 BD E5 71        ..q   jsr e571             ;msdelay
14291 F06C F6 20 00        . .   ldab 2000
14292 F06F 2C 06           ,.    bge 06
14293 F071 CC B1 9C        ...   ldd #b19c
14294 F074 BD EE 03        ...   jsr ee03             ;jump36
14295 F077 CE 00 14        ...   ldx #0014
14296 F07A 1D 00 40        ...   bclr 00,x, #40
14297 F07D F6 00 14        ...   ldab 0014
14298 F080 F7 38 00        .8.   stab 3800
14299 F083 CC 00 0A        ...   ldd #000a
14300 F086 BD E5 71        ..q   jsr e571             ;msdelay
14301 F089 F6 20 00        . .   ldab 2000
14302 F08C 2D 06           -.    blt 06
14303 F08E CC B1 9C        ...   ldd #b19c
14304 F091 BD EE 03        ...   jsr ee03             ;jump36
14305 F094 7F 00 61        ..a   clr 0061
14306 F097 F6 00 61        ..a   ldab 0061
14307 F09A C1 08           ..    cmpb #08
14308 F09C 24 22           $"    bcc 22
14309 F09E F6 00 61        ..a   ldab 0061
14310 F0A1 4F              O     clra
14311 F0A2 C3 B1 C8        ...   addd #b1c8
14312 F0A5 8F              .     xgdx
14313 F0A6 E6 00           ..    ldab 00,x
14314 F0A8 F7 00 06        ...   stab 0006
14315 F0AB BD D3 11        ...   jsr d311             ;jump30 - test position exists
14316 F0AE 83 00 00        ...   subd #0000
14317 F0B1 27 08           '.    beq 08
14318 F0B3 CC B1 A7        ...   ldd #b1a7
14319 F0B6 BD EE 03        ...   jsr ee03             ;jump36
14320 F0B9 20 05            .    bra 05
14321 F0BB 7C 00 61        |.a   inc 0061
14322 F0BE 20 D7            .    bra d7
14323 F0C0 7F 00 61        ..a   clr 0061
14324 F0C3 F6 00 61        ..a   ldab 0061
14325 F0C6 C1 08           ..    cmpb #08
14326 F0C8 24 2B           $+    bcc 2b
14327 F0CA F6 00 61        ..a   ldab 0061
14328 F0CD 4F              O     clra
14329 F0CE C3 B1 C8        ...   addd #b1c8
14330 F0D1 8F              .     xgdx
14331 F0D2 E6 00           ..    ldab 00,x
14332 F0D4 F7 00 06        ...   stab 0006
14333 F0D7 BD D1 3D        ..=   jsr d13d             ;jump34 - motor on
14334 F0DA BD D5 70        ..p   jsr d570             ;jump35
14335 F0DD 83 00 00        ...   subd #0000
14336 F0E0 26 0B           &.    bne 0b
14337 F0E2 BD D1 05        ...   jsr d105             ;motors_off
14338 F0E5 CC B1 B2        ...   ldd #b1b2
14339 F0E8 BD EE 03        ...   jsr ee03             ;jump36
14340 F0EB 20 08            .    bra 08
14341 F0ED BD D1 05        ...   jsr d105             ;motors_off
14342 F0F0 7C 00 61        |.a   inc 0061
14343 F0F3 20 CE            .    bra ce
14344 F0F5 7F 00 61        ..a   clr 0061
14345 F0F8 F6 00 61        ..a   ldab 0061
14346 F0FB C1 05           ..    cmpb #05
14347 F0FD 24 45           $E    bcc 45
14348 F0FF F6 00 61        ..a   ldab 0061
14349 F102 4F              O     clra
14350 F103 C3 B1 C8        ...   addd #b1c8
14351 F106 8F              .     xgdx
14352 F107 E6 00           ..    ldab 00,x
14353 F109 F7 00 06        ...   stab 0006
14354 F10C BD D1 3D        ..=   jsr d13d             ;jump34 - motor on
14355 F10F CC 00 0A        ...   ldd #000a
14356 F112 BD E5 71        ..q   jsr e571             ;msdelay
14357 F115 F6 18 00        ...   ldab 1800
14358 F118 C4 40           .@    andb #40
14359 F11A 26 0B           &.    bne 0b
14360 F11C BD D1 05        ...   jsr d105             ;motors_off
14361 F11F CC B1 B2        ...   ldd #b1b2
14362 F122 BD EE 03        ...   jsr ee03             ;jump36
14363 F125 20 1D            .    bra 1d
14364 F127 BD D1 05        ...   jsr d105             ;motors_off
14365 F12A CC 00 0A        ...   ldd #000a
14366 F12D BD E5 71        ..q   jsr e571             ;msdelay
14367 F130 F6 18 00        ...   ldab 1800
14368 F133 C4 40           .@    andb #40
14369 F135 27 08           '.    beq 08
14370 F137 CC B1 B2        ...   ldd #b1b2
14371 F13A BD EE 03        ...   jsr ee03             ;jump36
14372 F13D 20 05            .    bra 05
14373 F13F 7C 00 61        |.a   inc 0061
14374 F142 20 B4            .    bra b4
14375 F144 FC 10 16        ...   ldd 1016
14376 F147 83 5A 5A        .ZZ   subd #5a5a
14377 F14A 26 0C           &.    bne 0c
14378 F14C CC B1 BD        ...   ldd #b1bd    ; " PASSED "
14379 F14F BD C0 BA        ...   jsr c0ba             ;display:
14380 F152 CC 05 DC        ...   ldd #05dc
14381 F155 BD E5 71        ..q   jsr e571             ;msdelay
14382 F158 7E EE 1C        ~..   jmp ee1c             ;goto81
14383
14384 ;send a byte to the printer?
14385 ;it calls c7e7, which does things with the serial port
14386 jump53:
14387 F15B 37              7     pshb
14388 F15C 36              6     psha
14389 F15D F6 00 19        ...   ldab 0019
14390 F160 C4 40           .@    andb #40
14391 F162 26 5B           &[    bne 5b
14392 F164 C6 FF           ..    ldab #ff
14393 F166 F7 00 39        ..9   stab 0039
14394 F169 F6 20 00        . .   ldab 2000
14395 F16C 2C 11           ,.    bge 11
14396 F16E F6 20 00        . .   ldab 2000
14397 F171 C4 40           .@    andb #40
14398 F173 27 0A           '.    beq 0a
14399 F175 F6 00 39        ..9   ldab 0039
14400 F178 27 05           '.    beq 05
14401 F17A BD E6 1B        ...   jsr e61b             ;jump4
14402 F17D 20 EA            .    bra ea
14403 F17F F6 00 39        ..9   ldab 0039
14404 F182 26 08           &.    bne 08
14405 F184 CE 00 19        ...   ldx #0019
14406 F187 1C 00 40        ...   bset 00,x, #40
14407 F18A 20 33            3    bra 33
14408 F18C F6 20 00        . .   ldab 2000
14409 F18F C4 40           .@    andb #40
14410 F191 27 2C           ',    beq 2c
14411 F193 F6 00 1D        ...   ldab 001d
14412 F196 C4 01           ..    andb #01
14413 F198 27 1E           '.    beq 1e
14414 F19A 30              0     tsx
14415 F19B E6 01           ..    ldab 01,x
14416 F19D C1 30           .0    cmpb #30
14417 F19F 26 08           &.    bne 08
14418 F1A1 CC 00 20        ..    ldd #0020
14419 F1A4 BD C7 E7        ...   jsr c7e7             ;jump37 - send to serial port
14420 F1A7 20 0D            .    bra 0d
14421 F1A9 30              0     tsx
14422 F1AA E6 01           ..    ldab 01,x
14423 F1AC 4F              O     clra
14424 F1AD BD C7 E7        ...   jsr c7e7             ;jump37 - send to serial port
14425 F1B0 CE 00 1D        ...   ldx #001d
14426 F1B3 1D 00 01        ...   bclr 00,x, #01
14427 F1B6 20 07            .    bra 07
14428 F1B8 30              0     tsx
14429 F1B9 E6 01           ..    ldab 01,x
14430 F1BB 4F              O     clra
14431 F1BC BD C7 E7        ...   jsr c7e7             ;jump37 - send to serial port
14432 F1BF 38              8     pulx
14433 F1C0 39              9     rts
14434
14435 jump59:
14436 F1C1 37              7     pshb
14437 F1C2 36              6     psha
14438 F1C3 F6 20 00        . .   ldab 2000
14439 F1C6 C4 40           .@    andb #40
14440 F1C8 27 1C           '.    beq 1c
14441 F1CA 7F 00 18        ...   clr 0018
14442 F1CD F6 00 18        ...   ldab 0018
14443 F1D0 30              0     tsx
14444 F1D1 E1 05           ..    cmpb 05,x
14445 F1D3 24 11           $.    bcc 11
14446 F1D5 30              0     tsx
14447 F1D6 EE 00           ..    ldx 00,x
14448 F1D8 E6 00           ..    ldab 00,x
14449 F1DA 4F              O     clra
14450 F1DB BD F1 5B        ..[   jsr f15b             ;jump53
14451 F1DE 38              8     pulx
14452 F1DF 08              .     inx
14453 F1E0 3C              <     pshx
14454 F1E1 7C 00 18        |..   inc 0018
14455 F1E4 20 E7            .    bra e7
14456 F1E6 38              8     pulx
14457 F1E7 39              9     rts
14458
14459 ;send a string to the printer.  D is a pointer to a string
14460 jump57:
14461 F1E8 37              7     pshb
14462 F1E9 36              6     psha
14463 F1EA F6 20 00        . .   ldab 2000
14464 F1ED C4 40           .@    andb #40
14465 F1EF 27 1B           '.    beq 1b
14466 F1F1 CC 00 20        ..    ldd #0020
14467 F1F4 BD F1 5B        ..[   jsr f15b             ;jump53
14468 F1F7 30              0     tsx
14469 F1F8 EE 00           ..    ldx 00,x
14470 F1FA E6 00           ..    ldab 00,x
14471 F1FC 27 0E           '.    beq 0e
14472 F1FE 30              0     tsx
14473 F1FF EE 00           ..    ldx 00,x
14474 F201 E6 00           ..    ldab 00,x
14475 F203 4F              O     clra
14476 F204 BD F1 5B        ..[   jsr f15b             ;jump53
14477 F207 38              8     pulx
14478 F208 08              .     inx
14479 F209 3C              <     pshx
14480 F20A 20 EB            .    bra eb
14481 F20C 38              8     pulx
14482 F20D 39              9     rts
14483
14484 jump62:
14485 F20E 37              7     pshb
14486 F20F 36              6     psha
14487 F210 F6 20 00        . .   ldab 2000
14488 F213 C4 40           .@    andb #40
14489 F215 27 34           '4    beq 34
14490 F217 CE 00 1D        ...   ldx #001d
14491 F21A 1C 00 01        ...   bset 00,x, #01
14492 F21D 30              0     tsx
14493 F21E E6 01           ..    ldab 01,x
14494 F220 4F              O     clra
14495 F221 BD E7 95        ...   jsr e795             ;jump54 - number to string
14496 F224 F6 00 5D        ..]   ldab 005d
14497 F227 4F              O     clra
14498 F228 BD F1 5B        ..[   jsr f15b             ;jump53
14499 F22B F6 00 5E        ..^   ldab 005e
14500 F22E 4F              O     clra
14501 F22F BD F1 5B        ..[   jsr f15b             ;jump53
14502 F232 CE 00 1D        ...   ldx #001d
14503 F235 1D 00 01        ...   bclr 00,x, #01
14504 F238 F6 00 5F        .._   ldab 005f
14505 F23B 4F              O     clra
14506 F23C BD F1 5B        ..[   jsr f15b             ;jump53
14507 F23F CC 00 20        ..    ldd #0020
14508 F242 BD F1 5B        ..[   jsr f15b             ;jump53
14509 F245 CC 00 20        ..    ldd #0020
14510 F248 BD F1 5B        ..[   jsr f15b             ;jump53
14511 F24B 38              8     pulx
14512 F24C 39              9     rts
14513
14514 jump58:
14515 F24D 37              7     pshb
14516 F24E 36              6     psha
14517 F24F F6 20 00        . .   ldab 2000
14518 F252 C4 40           .@    andb #40
14519 F254 27 41           'A    beq 41
14520 F256 CE 00 1D        ...   ldx #001d
14521 F259 1C 00 01        ...   bset 00,x, #01
14522 F25C 30              0     tsx
14523 F25D EC 00           ..    ldd 00,x
14524 F25F BD E7 45        ..E   jsr e745             ;jump55 - number to string
14525 F262 F6 00 57        ..W   ldab 0057
14526 F265 4F              O     clra
14527 F266 BD F1 5B        ..[   jsr f15b             ;jump53
14528 F269 F6 00 5A        ..Z   ldab 005a
14529 F26C 4F              O     clra
14530 F26D BD F1 5B        ..[   jsr f15b             ;jump53
14531 F270 F6 00 5D        ..]   ldab 005d
14532 F273 4F              O     clra
14533 F274 BD F1 5B        ..[   jsr f15b             ;jump53
14534 F277 F6 00 5E        ..^   ldab 005e
14535 F27A 4F              O     clra
14536 F27B BD F1 5B        ..[   jsr f15b             ;jump53
14537 F27E CE 00 1D        ...   ldx #001d
14538 F281 1D 00 01        ...   bclr 00,x, #01
14539 F284 F6 00 5F        .._   ldab 005f
14540 F287 4F              O     clra
14541 F288 BD F1 5B        ..[   jsr f15b             ;jump53
14542 F28B CC 00 20        ..    ldd #0020
14543 F28E BD F1 5B        ..[   jsr f15b             ;jump53
14544 F291 CC 00 20        ..    ldd #0020
14545 F294 BD F1 5B        ..[   jsr f15b             ;jump53
14546 F297 38              8     pulx
14547 F298 39              9     rts
14548
14549 jump61
14550 jump61::
14551 F299 37              7     pshb
14552 F29A 36              6     psha
14553 F29B F6 20 00        . .   ldab 2000
14554 F29E C4 40           .@    andb #40
14555 F2A0 27 7B           '{    beq 7b
14556 F2A2 F6 00 17        ...   ldab 0017
14557 F2A5 C4 08           ..    andb #08
14558 F2A7 26 06           &.    bne 06
14559 F2A9 CC 00 24        ..$   ldd #0024
14560 F2AC BD F1 5B        ..[   jsr f15b             ;jump53
14561 F2AF CE 00 1D        ...   ldx #001d
14562 F2B2 1C 00 01        ...   bset 00,x, #01
14563 F2B5 30              0     tsx
14564 F2B6 EC 00           ..    ldd 00,x
14565 F2B8 BD E7 45        ..E   jsr e745             ;jump55 - number to string
14566 F2BB F6 00 57        ..W   ldab 0057
14567 F2BE 4F              O     clra
14568 F2BF BD F1 5B        ..[   jsr f15b             ;jump53
14569 F2C2 F6 00 5A        ..Z   ldab 005a
14570 F2C5 4F              O     clra
14571 F2C6 BD F1 5B        ..[   jsr f15b             ;jump53
14572 F2C9 F6 00 13        ...   ldab 0013
14573 F2CC C1 08           ..    cmpb #08
14574 F2CE 26 0C           &.    bne 0c
14575 F2D0 CC 00 2E        ...   ldd #002e
14576 F2D3 BD F1 5B        ..[   jsr f15b             ;jump53
14577 F2D6 CE 00 1D        ...   ldx #001d
14578 F2D9 1D 00 01        ...   bclr 00,x, #01
14579 F2DC F6 00 5D        ..]   ldab 005d
14580 F2DF 4F              O     clra
14581 F2E0 BD F1 5B        ..[   jsr f15b             ;jump53
14582 F2E3 F6 00 13        ...   ldab 0013
14583 F2E6 C1 04           ..    cmpb #04
14584 F2E8 26 0C           &.    bne 0c
14585 F2EA CC 00 2E        ...   ldd #002e
14586 F2ED BD F1 5B        ..[   jsr f15b             ;jump53
14587 F2F0 CE 00 1D        ...   ldx #001d
14588 F2F3 1D 00 01        ...   bclr 00,x, #01
14589 F2F6 F6 00 5E        ..^   ldab 005e
14590 F2F9 4F              O     clra
14591 F2FA BD F1 5B        ..[   jsr f15b             ;jump53
14592 F2FD F6 00 13        ...   ldab 0013
14593 F300 C1 02           ..    cmpb #02
14594 F302 26 06           &.    bne 06
14595 F304 CC 00 2E        ...   ldd #002e
14596 F307 BD F1 5B        ..[   jsr f15b             ;jump53
14597 F30A CE 00 1D        ...   ldx #001d
14598 F30D 1D 00 01        ...   bclr 00,x, #01
14599 F310 F6 00 5F        .._   ldab 005f
14600 F313 4F              O     clra
14601 F314 BD F1 5B        ..[   jsr f15b             ;jump53
14602 F317 CC 00 0A        ...   ldd #000a
14603 F31A BD F1 5B        ..[   jsr f15b             ;jump53
14604 F31D 38              8     pulx
14605 F31E 39              9     rts
14606
14607 jump60:
14608 F31F 38              8     pulx
14609 F320 37              7     pshb
14610 F321 36              6     psha
14611 F322 3C              <     pshx
14612 F323 F6 20 00        . .   ldab 2000
14613 F326 C4 40           .@    andb #40
14614 F328 26 03           &.    bne 03
14615 F32A 7E F3 BC        ~..   jmp f3bc             ;goto82
14616 F32D F6 00 17        ...   ldab 0017
14617 F330 C4 08           ..    andb #08
14618 F332 26 06           &.    bne 06
14619 F334 CC 00 24        ..$   ldd #0024
14620 F337 BD F1 5B        ..[   jsr f15b             ;jump53
14621 F33A CE 00 1D        ...   ldx #001d
14622 F33D 1C 00 01        ...   bset 00,x, #01
14623 F340 30              0     tsx
14624 F341 EC 04           ..    ldd 04,x
14625 F343 37              7     pshb
14626 F344 36              6     psha
14627 F345 EC 02           ..    ldd 02,x
14628 F347 BD E6 21        ..!   jsr e621             ;jump56
14629 F34A 38              8     pulx
14630 F34B C6 07           ..    ldab #07
14631 F34D F7 00 18        ...   stab 0018
14632 F350 F6 00 18        ...   ldab 0018
14633 F353 C1 FF           ..    cmpb #ff
14634 F355 24 5F           $_    bcc 5f
14635 F357 F6 00 18        ...   ldab 0018
14636 F35A 4F              O     clra
14637 F35B C3 0B 90        ...   addd #0b90
14638 F35E 8F              .     xgdx
14639 F35F E6 00           ..    ldab 00,x
14640 F361 4F              O     clra
14641 F362 BD F1 5B        ..[   jsr f15b             ;jump53
14642 F365 F6 00 18        ...   ldab 0018
14643 F368 C1 03           ..    cmpb #03
14644 F36A 26 15           &.    bne 15
14645 F36C F6 00 13        ...   ldab 0013
14646 F36F C1 08           ..    cmpb #08
14647 F371 26 0C           &.    bne 0c
14648 F373 CC 00 2E        ...   ldd #002e
14649 F376 BD F1 5B        ..[   jsr f15b             ;jump53
14650 F379 CE 00 1D        ...   ldx #001d
14651 F37C 1D 00 01        ...   bclr 00,x, #01
14652 F37F 20 30            0    bra 30
14653 F381 C1 02           ..    cmpb #02
14654 F383 26 15           &.    bne 15
14655 F385 F6 00 13        ...   ldab 0013
14656 F388 C1 04           ..    cmpb #04
14657 F38A 26 0C           &.    bne 0c
14658 F38C CC 00 2E        ...   ldd #002e
14659 F38F BD F1 5B        ..[   jsr f15b             ;jump53
14660 F392 CE 00 1D        ...   ldx #001d
14661 F395 1D 00 01        ...   bclr 00,x, #01
14662 F398 20 17            .    bra 17
14663 F39A C1 01           ..    cmpb #01
14664 F39C 26 13           &.    bne 13
14665 F39E F6 00 13        ...   ldab 0013
14666 F3A1 C1 02           ..    cmpb #02
14667 F3A3 26 06           &.    bne 06
14668 F3A5 CC 00 2E        ...   ldd #002e
14669 F3A8 BD F1 5B        ..[   jsr f15b             ;jump53
14670 F3AB CE 00 1D        ...   ldx #001d
14671 F3AE 1D 00 01        ...   bclr 00,x, #01
14672 F3B1 7A 00 18        z..   dec 0018
14673 F3B4 20 9A            .    bra 9a
14674 F3B6 CC 00 0A        ...   ldd #000a
14675 F3B9 BD F1 5B        ..[   jsr f15b             ;jump53
14676 goto82:
14677 F3BC 38              8     pulx
14678 F3BD 31              1     ins
14679 F3BE 31              1     ins
14680 F3BF 6E 00           n.    jmp 00,x
14681
14682 jump63:
14683 F3C1 37              7     pshb
14684 F3C2 36              6     psha
14685 F3C3 F6 20 00        . .   ldab 2000
14686 F3C6 C4 40           .@    andb #40
14687 F3C8 27 49           'I    beq 49
14688 F3CA CC B4 71        ..q   ldd #b471    "    CODE "
14689 F3CD BD F1 E8        ...   jsr f1e8             ;jump57
14690 F3D0 30              0     tsx
14691 F3D1 E6 01           ..    ldab 01,x
14692 F3D3 4F              O     clra
14693 F3D4 CE 00 0A        ...   ldx #000a
14694 F3D7 02              .     idiv
14695 F3D8 8F              .     xgdx
14696 F3D9 CB 30           .0    addb #30
14697 F3DB F7 00 5E        ..^   stab 005e
14698 F3DE 30              0     tsx
14699 F3DF E6 01           ..    ldab 01,x
14700 F3E1 4F              O     clra
14701 F3E2 CE 00 0A        ...   ldx #000a
14702 F3E5 02              .     idiv
14703 F3E6 CB 30           .0    addb #30
14704 F3E8 F7 00 5F        .._   stab 005f    ;5e and 5f now param in ascii
14705 F3EB F6 00 5E        ..^   ldab 005e
14706 F3EE 4F              O     clra
14707 F3EF BD F1 5B        ..[   jsr f15b             ;jump53
14708 F3F2 F6 00 5F        .._   ldab 005f
14709 F3F5 4F              O     clra
14710 F3F6 BD F1 5B        ..[   jsr f15b             ;jump53
14711 F3F9 CC B4 7B        ..{   ldd #b47b    "VENDS - "
14712 F3FC BD F1 E8        ...   jsr f1e8             ;jump57
14713 F3FF 30              0     tsx
14714 F400 E6 01           ..    ldab 01,x
14715 F402 4F              O     clra
14716 F403 05              .     asld
14717 F404 C3 0D 1F        ...   addd #0d1f
14718 F407 8F              .     xgdx
14719 F408 EC 00           ..    ldd 00,x
14720 F40A BD F2 4D        ..M   jsr f24d             ;jump58
14721 F40D CC 00 0A        ...   ldd #000a
14722 F410 BD F1 5B        ..[   jsr f15b             ;jump53
14723 F413 38              8     pulx
14724 F414 39              9     rts
14725
14726 jump112:
14727 F415 F6 0B C0        ...   ldab 0bc0
14728 F418 C4 02           ..    andb #02
14729 F41A 27 15           '.    beq 15
14730 F41C CE 00 21        ..!   ldx #0021
14731 F41F 1C 00           ..    bset 00,x, #80
14732 F421 F6 00 1D        ..    ldab 001d
14733 F424 C4 02           ..    andb #02
14734 F427 27 02           '.    beq 02
14735 F429 20 F7            .    bra f7
14736 F42B CE 00 21        ..!   ldx #0021
14737 F42E 1D 00           ..    bclr 00,x, #80
14738 F430 C6 10           ..    ldab #10
14739 F433 F7 10 2C        ..,   stab 102c ; set 9N1
14740 F436 C6 2E           ..    ldab #2e
14741 F438 F7 10 2D        ..-   stab 102d    ; enable SCI transmission
14742 F43B C6 05           ..    ldab #05
14743 F43D F7 10 2B        ..+   stab 102b    ; 2400 baud
14744 F440 CC 03 E8        ...   ldd #03e8
14745 F443 BD E5 71        ..q   jsr e571             ;msdelay
14746 F446 CE 10 00        ...   ldx #1000
14747 F449 1D 00 08        ...   bclr 00,x, #08  ; talk to ze printer
14748 F44C CE 00 19        ...   ldx #0019
14749 F44F 1D 00 40        ...   bclr 00,x, #40
14750 F452 CE 00 1D        ...   ldx #001d
14751 F455 1D 00 01        ...   bclr 00,x, #01
14752 F458 CC 00 18        ...   ldd #0018
14753 F45B BD F1 5B        ..[   jsr f15b             ;jump53
14754 F45E CC B2 1B        ...   ldd #b21b    "         ROWE  INTERNATIONAL"
14755 F461 BD F1 E8        ...   jsr f1e8             ;jump57
14756 F464 CC 00 0A        ...   ldd #000a
14757 F467 BD F1 5B        ..[   jsr f15b             ;jump53
14758 F46A CC B2 38        ..8   ldd #b238    "         -------------------"
14759 F46D BD F1 E8        ...   jsr f1e8             ;jump57
14760 F470 CC 00 0A        ...   ldd #000a
14761 F473 BD F1 5B        ..[   jsr f15b             ;jump53
14762 F476 CC B2 56        ..V   ldd #b256
14763 F479 BD F1 E8        ...   jsr f1e8             ;jump57
14764 F47C CC 00 0A        ...   ldd #000a
14765 F47F BD F1 5B        ..[   jsr f15b             ;jump53
14766 F482 CC 00 0A        ...   ldd #000a
14767 F485 BD F1 5B        ..[   jsr f15b             ;jump53
14768 F488 CC B2 75        ..u   ldd #b275
14769 F48B BD F1 E8        ...   jsr f1e8             ;jump57
14770 F48E CC 00 0A        ...   ldd #000a
14771 F491 BD F1 5B        ..[   jsr f15b             ;jump53
14772 F494 CC B2 38        ..8   ldd #b238
14773 F497 BD F1 E8        ...   jsr f1e8             ;jump57
14774 F49A CC 00 0A        ...   ldd #000a
14775 F49D BD F1 5B        ..[   jsr f15b             ;jump53
14776 F4A0 CC 00 0A        ...   ldd #000a
14777 F4A3 BD F1 5B        ..[   jsr f15b             ;jump53
14778 F4A6 CC B2 90        ...   ldd #b290
14779 F4A9 BD F1 E8        ...   jsr f1e8             ;jump57
14780 F4AC CE 00 0A        ...   ldx #000a
14781 F4AF 3C              <     pshx
14782 F4B0 CC 0C BC        ...   ldd #0cbc
14783 F4B3 BD F1 C1        ...   jsr f1c1             ;jump59
14784 F4B6 38              8     pulx
14785 F4B7 CC 00 0A        ...   ldd #000a
14786 F4BA BD F1 5B        ..[   jsr f15b             ;jump53
14787 F4BD CC B2 A2        ...   ldd #b2a2    ; "MACHINE ID"
14788 F4C0 BD F1 E8        ...   jsr f1e8             ;jump57
14789 F4C3 CE 00 0A        ...   ldx #000a
14790 F4C6 3C              <     pshx
14791 F4C7 CC 0C CC        ...   ldd #0ccc
14792 F4CA BD F1 C1        ...   jsr f1c1             ;jump59
14793 F4CD 38              8     pulx
14794 F4CE CC 00 0A        ...   ldd #000a
14795 F4D1 BD F1 5B        ..[   jsr f15b             ;jump53
14796 F4D4 CC B2 B4        ...   ldd #b2b4
14797 F4D7 BD F1 E8        ...   jsr f1e8             ;jump57
14798 F4DA FC 0C E7        ...   ldd 0ce7
14799 F4DD BD F2 4D        ..M   jsr f24d             ;jump58
14800 F4E0 CC 00 0A        ...   ldd #000a
14801 F4E3 BD F1 5B        ..[   jsr f15b             ;jump53
14802 F4E6 CC 00 0A        ...   ldd #000a
14803 F4E9 BD F1 5B        ..[   jsr f15b             ;jump53
14804 F4EC CC B2 C6        ...   ldd #b2c6
14805 F4EF BD F1 E8        ...   jsr f1e8             ;jump57
14806 F4F2 FE 0D E9        ...   ldx 0de9
14807 F4F5 3C              <     pshx
14808 F4F6 FC 0D E7        ...   ldd 0de7
14809 F4F9 BD F3 1F        ...   jsr f31f             ;jump60
14810 F4FC 38              8     pulx
14811 F4FD CC B2 D8        ...   ldd #b2d8
14812 F500 BD F1 E8        ...   jsr f1e8             ;jump57
14813 F503 FE 0D ED        ...   ldx 0ded
14814 F506 3C              <     pshx
14815 F507 FC 0D EB        ...   ldd 0deb
14816 F50A BD F3 1F        ...   jsr f31f             ;jump60
14817 F50D 38              8     pulx
14818 F50E CC B2 EA        ...   ldd #b2ea
14819 F511 BD F1 E8        ...   jsr f1e8             ;jump57
14820 F514 FE 0D F1        ...   ldx 0df1
14821 F517 3C              <     pshx
14822 F518 FC 0D EF        ...   ldd 0def
14823 F51B BD F3 1F        ...   jsr f31f             ;jump60
14824 F51E 38              8     pulx
14825 F51F CC B2 FC        ...   ldd #b2fc
14826 F522 BD F1 E8        ...   jsr f1e8             ;jump57
14827 F525 FE 0D F9        ...   ldx 0df9
14828 F528 3C              <     pshx
14829 F529 FC 0D F7        ...   ldd 0df7
14830 F52C BD F3 1F        ...   jsr f31f             ;jump60
14831 F52F 38              8     pulx
14832 F530 CC B3 0E        ...   ldd #b30e
14833 F533 BD F1 E8        ...   jsr f1e8             ;jump57
14834 F536 FE 0D FD        ...   ldx 0dfd
14835 F539 3C              <     pshx
14836 F53A FC 0D FB        ...   ldd 0dfb
14837 F53D BD F3 1F        ...   jsr f31f             ;jump60
14838 F540 38              8     pulx
14839 F541 CC 00 0A        ...   ldd #000a
14840 F544 BD F1 5B        ..[   jsr f15b             ;jump53
14841 F547 CC B3 20        ..    ldd #b320
14842 F54A BD F1 E8        ...   jsr f1e8             ;jump57
14843 F54D CC 00 0A        ...   ldd #000a
14844 F550 BD F1 5B        ..[   jsr f15b             ;jump53
14845 F553 CC B3 31        ..1   ldd #b331
14846 F556 BD F1 E8        ...   jsr f1e8             ;jump57
14847 F559 FE 0D F5        ...   ldx 0df5
14848 F55C 3C              <     pshx
14849 F55D FC 0D F3        ...   ldd 0df3
14850 F560 BD F3 1F        ...   jsr f31f             ;jump60
14851 F563 38              8     pulx
14852 F564 CC B3 4A        ..J   ldd #b34a
14853 F567 BD F1 E8        ...   jsr f1e8             ;jump57
14854 F56A FC 0C DD        ...   ldd 0cdd
14855 F56D BD F2 4D        ..M   jsr f24d             ;jump58
14856 F570 FE 0C F5        ...   ldx 0cf5
14857 F573 3C              <     pshx
14858 F574 FC 0C F3        ...   ldd 0cf3
14859 F577 BD F3 1F        ...   jsr f31f             ;jump60
14860 F57A 38              8     pulx
14861 F57B CC B3 5C        ..\   ldd #b35c
14862 F57E BD F1 E8        ...   jsr f1e8             ;jump57
14863 F581 FC 0C DF        ...   ldd 0cdf
14864 F584 BD F2 4D        ..M   jsr f24d             ;jump58
14865 F587 FE 0C F9        ...   ldx 0cf9
14866 F58A 3C              <     pshx
14867 F58B FC 0C F7        ...   ldd 0cf7
14868 F58E BD F3 1F        ...   jsr f31f             ;jump60
14869 F591 38              8     pulx
14870 F592 CC B3 6E        ..n   ldd #b36e
14871 F595 BD F1 E8        ...   jsr f1e8             ;jump57
14872 F598 FC 0C E1        ...   ldd 0ce1
14873 F59B BD F2 4D        ..M   jsr f24d             ;jump58
14874 F59E FE 0C FD        ...   ldx 0cfd
14875 F5A1 3C              <     pshx
14876 F5A2 FC 0C FB        ...   ldd 0cfb
14877 F5A5 BD F3 1F        ...   jsr f31f             ;jump60
14878 F5A8 38              8     pulx
14879 F5A9 CC B3 80        ...   ldd #b380
14880 F5AC BD F1 E8        ...   jsr f1e8             ;jump57
14881 F5AF FC 0C E3        ...   ldd 0ce3
14882 F5B2 BD F2 4D        ..M   jsr f24d             ;jump58
14883 F5B5 FE 0D 01        ...   ldx 0d01
14884 F5B8 3C              <     pshx
14885 F5B9 FC 0C FF        ...   ldd 0cff
14886 F5BC BD F3 1F        ...   jsr f31f             ;jump60
14887 F5BF 38              8     pulx
14888 F5C0 CC B3 92        ...   ldd #b392
14889 F5C3 BD F1 E8        ...   jsr f1e8             ;jump57
14890 F5C6 FC 0C E5        ...   ldd 0ce5
14891 F5C9 BD F2 4D        ..M   jsr f24d             ;jump58
14892 F5CC FE 0D 05        ...   ldx 0d05
14893 F5CF 3C              <     pshx
14894 F5D0 FC 0D 03        ...   ldd 0d03
14895 F5D3 BD F3 1F        ...   jsr f31f             ;jump60
14896 F5D6 38              8     pulx
14897 F5D7 CC 00 0A        ...   ldd #000a
14898 F5DA BD F1 5B        ..[   jsr f15b             ;jump53
14899 F5DD CC B3 A4        ...   ldd #b3a4
14900 F5E0 BD F1 E8        ...   jsr f1e8             ;jump57
14901 F5E3 CC 00 0A        ...   ldd #000a
14902 F5E6 BD F1 5B        ..[   jsr f15b             ;jump53
14903 F5E9 CC B3 B3        ...   ldd #b3b3
14904 F5EC BD F1 E8        ...   jsr f1e8             ;jump57
14905 F5EF FC 0C F1        ...   ldd 0cf1
14906 F5F2 BD F2 99        ...   jsr f299             ;jump61
14907 F5F5 CC B3 CA        ...   ldd #b3ca
14908 F5F8 BD F1 E8        ...   jsr f1e8             ;jump57
14909 F5FB F6 0C DC        ...   ldab 0cdc
14910 F5FE 4F              O     clra
14911 F5FF BD F2 0E        ...   jsr f20e             ;jump62
14912 F602 FC 0C E9        ...   ldd 0ce9
14913 F605 BD F2 99        ...   jsr f299             ;jump61
14914 F608 CC B3 DC        ...   ldd #b3dc
14915 F60B BD F1 E8        ...   jsr f1e8             ;jump57
14916 F60E F6 0C DB        ...   ldab 0cdb
14917 F611 4F              O     clra
14918 F612 BD F2 0E        ...   jsr f20e             ;jump62
14919 F615 FC 0C EB        ...   ldd 0ceb
14920 F618 BD F2 99        ...   jsr f299             ;jump61
14921 F61B CC B3 EE        ...   ldd #b3ee
14922 F61E BD F1 E8        ...   jsr f1e8             ;jump57
14923 F621 F6 0C DA        ...   ldab 0cda
14924 F624 4F              O     clra
14925 F625 BD F2 0E        ...   jsr f20e             ;jump62
14926 F628 FC 0C ED        ...   ldd 0ced
14927 F62B BD F2 99        ...   jsr f299             ;jump61
14928 F62E CC B4 00        ...   ldd #b400
14929 F631 BD F1 E8        ...   jsr f1e8             ;jump57
14930 F634 F6 0C D9        ...   ldab 0cd9
14931 F637 4F              O     clra
14932 F638 BD F2 0E        ...   jsr f20e             ;jump62
14933 F63B FC 0C EF        ...   ldd 0cef
14934 F63E BD F2 99        ...   jsr f299             ;jump61
14935 F641 CC 00 0A        ...   ldd #000a
14936 F644 BD F1 5B        ..[   jsr f15b             ;jump53
14937 F647 CC B4 12        ...   ldd #b412
14938 F64A BD F1 E8        ...   jsr f1e8             ;jump57
14939 F64D FC 0D 07        ...   ldd 0d07
14940 F650 BD F2 4D        ..M   jsr f24d             ;jump58
14941 F653 FE 0D 11        ...   ldx 0d11
14942 F656 3C              <     pshx
14943 F657 FC 0D 0F        ...   ldd 0d0f
14944 F65A BD F3 1F        ...   jsr f31f             ;jump60
14945 F65D 38              8     pulx
14946 F65E CC B4 24        ..$   ldd #b424
14947 F661 BD F1 E8        ...   jsr f1e8             ;jump57
14948 F664 FC 0D 09        ...   ldd 0d09
14949 F667 BD F2 4D        ..M   jsr f24d             ;jump58
14950 F66A FE 0D 15        ...   ldx 0d15
14951 F66D 3C              <     pshx
14952 F66E FC 0D 13        ...   ldd 0d13
14953 F671 BD F3 1F        ...   jsr f31f             ;jump60
14954 F674 38              8     pulx
14955 F675 CC B4 36        ..6   ldd #b436
14956 F678 BD F1 E8        ...   jsr f1e8             ;jump57
14957 F67B FC 0D 0B        ...   ldd 0d0b
14958 F67E BD F2 4D        ..M   jsr f24d             ;jump58
14959 F681 FE 0D 19        ...   ldx 0d19
14960 F684 3C              <     pshx
14961 F685 FC 0D 17        ...   ldd 0d17
14962 F688 BD F3 1F        ...   jsr f31f             ;jump60
14963 F68B 38              8     pulx
14964 F68C CC B4 48        ..H   ldd #b448
14965 F68F BD F1 E8        ...   jsr f1e8             ;jump57
14966 F692 FC 0D 0D        ...   ldd 0d0d
14967 F695 BD F2 4D        ..M   jsr f24d             ;jump58
14968 F698 FE 0D 1D        ...   ldx 0d1d
14969 F69B 3C              <     pshx
14970 F69C FC 0D 1B        ...   ldd 0d1b
14971 F69F BD F3 1F        ...   jsr f31f             ;jump60
14972 F6A2 38              8     pulx
14973 F6A3 CC 00 0A        ...   ldd #000a
14974 F6A6 BD F1 5B        ..[   jsr f15b             ;jump53
14975 F6A9 CC B4 5A        ..Z   ldd #b45a
14976 F6AC BD F1 E8        ...   jsr f1e8             ;jump57
14977 F6AF CC 00 0A        ...   ldd #000a
14978 F6B2 BD F1 5B        ..[   jsr f15b             ;jump53
14979 F6B5 C6 01           ..    ldab #01
14980 F6B7 F7 00 54        ..T   stab 0054
14981 F6BA F6 00 54        ..T   ldab 0054
14982 F6BD C1 63           .c    cmpb #63
14983 F6BF 22 1B           ".    bhi 1b
14984 F6C1 F6 00 54        ..T   ldab 0054
14985 F6C4 4F              O     clra
14986 F6C5 05              .     asld
14987 F6C6 C3 08 C8        ...   addd #08c8
14988 F6C9 8F              .     xgdx
14989 F6CA EC 00           ..    ldd 00,x
14990 F6CC C4 80           ..    andb #80
14991 F6CE 27 07           '.    beq 07
14992 F6D0 F6 00 54        ..T   ldab 0054
14993 F6D3 4F              O     clra
14994 F6D4 BD F3 C1        ...   jsr f3c1             ;jump63
14995 F6D7 7C 00 54        |.T   inc 0054
14996 F6DA 20 DE            .    bra de
14997 F6DC CC 00 0A        ...   ldd #000a
14998 F6DF BD F1 5B        ..[   jsr f15b             ;jump53
14999 F6E2 F6 00 19        ...   ldab 0019
15000 F6E5 C4 40           .@    andb #40
15001 F6E7 26 07           &.    bne 07
15002 F6E9 FE 0C E7        ...   ldx 0ce7
15003 F6EC 08              .     inx
15004 F6ED FF 0C E7        ...   stx 0ce7
15005 F6F0 CE 00 1D        ...   ldx #001d
15006 F6F3 1D 00 01        ...   bclr 00,x, #01
15007 F6F6 CC 03 E8        ...   ldd #03e8
15008 F6F9 BD E5 71        ..q   jsr e571             ;msdelay
15009 F6FC C6 03           ..    ldab #03
15010 F6FE F7 10 2B        ..+   stab 102b         ; back to 9600 baud
15011 F701 CE 10 00        ...   ldx #1000
15012 F704 1C 00 08        ...   bset 00,x, #08    ; set back to coin mech
15013 F707 F6 0B C0        ...   ldab 0bc0
15014 F70A C4 02           ..    andb #02
15015 F70C 27 06           '.    beq 06
15016 F70E CC 00 80        ...   ldd #0080
15017 F711 BD C7 E7        ...   jsr c7e7             ;jump37 - send to serial port
15018 F714 7F 00 38        ..8   clr 0038
15019 F717 39              9     rts
15020
15021 rti:
15022 F718 3C              <     pshx
15023 F719 F6 0B C0        ...   ldab 0bc0
15024 F71C C4 08           ..    andb #08
15025 F71E 27 03           '.    beq 03
15026 F720 BD C3 25        ..%   jsr c325             ;jump64
15027 F723 7C 00 0C        |..   inc 000c
15028 F726 F6 00 0C        ...   ldab 000c
15029 F729 C1 02           ..    cmpb #02
15030 F72B 26 13           &.    bne 13
15031 F72D 7F 00 0C        ...   clr 000c
15032 F730 F6 00 07        ...   ldab 0007
15033 F733 27 03           '.    beq 03
15034 F735 7A 00 07        z..   dec 0007
15035 F738 F6 00 00        ...   ldab 0000
15036 F73B 27 03           '.    beq 03
15037 F73D 7A 00 00        z..   dec 0000
15038 F740 7C 00 0B        |..   inc 000b
15039 F743 F6 00 0B        ...   ldab 000b
15040 F746 C1 08           ..    cmpb #08
15041 F748 26 37           &7    bne 37      ; to f781
15042 F74A 7F 00 0B        ...   clr 000b
15043 F74D FC 00 3B        ..;   ldd 003b
15044 F750 27 07           '.    beq 07
15045 F752 FE 00 3B        ..;   ldx 003b
15046 F755 09              .     dex
15047 F756 FF 00 3B        ..;   stx 003b
15048 F759 CC 00 2C        ..,   ldd #002c
15049 F75C 30              0     tsx
15050 F75D ED 00           ..    std 00,x
15051 F75F 30              0     tsx
15052 F760 EC 00           ..    ldd 00,x
15053 F762 37              7     pshb
15054 F763 36              6     psha
15055 F764 CC 00 3A        ..:   ldd #003a
15056 F767 30              0     tsx
15057 F768 A3 00           ..    subd 00,x
15058 F76A 31              1     ins
15059 F76B 31              1     ins
15060 F76C 25 13           %.    bcs 13
15061 F76E 30              0     tsx
15062 F76F EE 00           ..    ldx 00,x
15063 F771 E6 00           ..    ldab 00,x
15064 F773 27 07           '.    beq 07
15065 F775 30              0     tsx
15066 F776 EE 00           ..    ldx 00,x
15067 F778 6A 00           j.    dec 00,x
15068 F77A E6 00           ..    ldab 00,x
15069 F77C 38              8     pulx
15070 F77D 08              .     inx
15071 F77E 3C              <     pshx
15072 F77F 20 DE            .    bra de             ; to f75f
15073 ;
15074 F781 F6 00 32        ..2   ldab 0032
15075 F784 27 07           '.    beq 07             ; to f78d
15076 F786 F6 00 32        ..2   ldab 0032
15077 F789 C4 02           ..    andb #02
15078 F78B 26 08           &.    bne 08             ; to f795
15079 ;
15080 F78D CE 10 00        ...   ldx #1000          ; chime off
15081 F790 1D 00 10        ..    bclr 00,x, #10
15082 F793 20 0D            .    bra 0d             ; to f7a2
15083 ;
15084 F795 F6 00 32        ..2   ldab 0032
15085 F798 C4 01           ..    andb #01
15086 F79A 26 06           &.    bne 06             ; to f7a2
15087 F79C CE 10 00        ...   ldx #1000          ; chime on
15088 F79F 1C 00 10        ..    bset 00,x, #10
15089 ;
15090 F7A2 7C 00 4C        |.L   inc 004c
15091 F7A5 F6 00 4C        ..L   ldab 004c
15092 F7A8 C1 4B           .K    cmpb #4b
15093 F7AA 26 13           &.    bne 13    ; to f7bf
15094 F7AC 7F 00 4C        ..L   clr 004c
15095 F7AF F6 00 4F        ..O   ldab 004f
15096 F7B2 27 03           '.    beq 03
15097 F7B4 7A 00 4F        z.O   dec 004f
15098 ;
15099 F7B7 F6 00 25        ..%   ldab 0025
15100 F7BA 27 03           '.    beq 03
15101 F7BC 7A 00 25        z.%   dec 0025
15102 ;
15103 F7BF F6 00 31        ..1   ldab 0031
15104 F7C2 26 03           &.    bne 03
15105 F7C4 BD FE 69        ..i   jsr fe69             ;reset
15106 ;
15107 F7C7 F6 00 7F        ...   ldab 007f
15108 F7CA 27 03           '.    beq 03
15109 F7CC BD FE 69        ..i   jsr fe69             ;reset
15110 ;
15111 F7CF C6 40           .@    ldab #40
15112 F7D1 F7 10 25        ..%   stab 1025    ; notify end of RTI period
15113 F7D4 38              8     pulx
15114 F7D5 3B              ;     rti
15115
15116 main:
15117 ;
15118 F7D6 7F 00 14        ...   clr 0014     ;0 -> 0014
15119 ;
15120 ; clears the bits of U14 flipflop
15121 F7D9 5F              _     clrb         ;0 -> B
15122 F7DA F7 38 00        .8.   stab 3800    ;B -> 3800
15123 ;
15124 F7DD C6 7F           ..    ldab #7f     ;7F -> B
15125 F7DF F7 00 1A        ...   stab 001a    ;B -> 001a
15126 ;
15127 ; set changer outputs all on, row motors off
15128 F7E2 C6 7F           ..    ldab #7f     ;7F -> B
15129 F7E4 F7 30 00        .0.   stab 3000    ;
15130 ;
15131 ; sets priority select bits 0-3 (elevates interrupt priority of all interrupts)
15132 F7E7 C6 07           ..    ldab #07     ;7 -> B
15133 F7E9 F7 10 3C        ..<   stab 103c
15134 ;
15135 ; Set PA7 output, PA3 input, RT clock rate to 314 Hz (4.9152Mhz / 2^14)
15136 F7EC C6 81           ..    ldab #81     ;81 -> B
15137 F7EE F7 10 26        ..&   stab 1026
15138 ;
15139 ; clear ADC register
15140 F7F1 5F              _     clrb         ;0 -> B
15141 F7F2 F7 10 30        ..0   stab 1030
15142 ;
15143 ; talk to coin mech, beep, tie clock motors & display reset high (off)
15144 F7F5 C6 C8           ..    ldab #c8     ;c8 -> B ; 11001000
15145 F7F7 F7 10 00        ...   stab 1000 ; to port A
15146 ;
15147 ; sets PortD directions. XXX: Why is PD2 an output?
15148 F7FA C6 3E           .>    ldab #3e     ;3e -> B 00111110
15149 F7FC F7 10 09        ...   stab 1009 ; port D DDR
15150 ;
15151 ; make PortD pins open-drain, set clock polarity
15152 F7FF C6 12           ..    ldab #12     ;12 -> B
15153 F801 F7 10 28        ..(   stab 1028 ; SPCR 00101000
15154 ;
15155 ; initialize the display
15156 F804 BD BE 69        ..i   jsr be69             ;displayreset
15157 ;
15158 ; initialize the bill validator & more stuff
15159 F807 BD EA 59        ..Y   jsr ea59             ;jump65
15160 ;
15161 F80A CC 00 64        ..d   ldd #0064    ; 100-unit delay
15162 F80D BD E5 71        ..q   jsr e571             ;msdelay
15163 ; lotsa text
15164 F810 CC B1 EF        ...   ldd #b1ef    " ROWE INT "
15165 F813 BD C0 BA        ...   jsr c0ba             ;display:
15166 F816 CC 01 F4        ...   ldd #01f4    ; 500-unit delay
15167 F819 BD E5 71        ..q   jsr e571             ;msdelay
15168 F81C CC B1 FA        ...   ldd #b1fa    "COPYRIGHT "
15169 F81F BD C0 BA        ...   jsr c0ba             ;display:
15170 F822 CC 01 F4        ...   ldd #01f4
15171 F825 BD E5 71        ..q   jsr e571             ;msdelay
15172 F828 CC B2 05        ...   ldd #b205    "   1993   "
15173 F82B BD C0 BA        ...   jsr c0ba             ;display:
15174 F82E CC 01 F4        ...   ldd #01f4
15175 F831 BD E5 71        ..q   jsr e571             ;msdelay
15176 F834 CC B2 10        ...   ldd #b210    "5900 VER 5"
15177 F837 BD C0 BA        ...   jsr c0ba             ;display:
15178 F83A CC 00 0A        ...   ldd #000a
15179 F83D BD E5 71        ..q   jsr e571             ;msdelay
15180 ;
15181 ;
15182 F840 7F 00 7F        ...   clr 007f
15183 F843 7F 00 21        ..!   clr 0021
15184 F846 7F 00 1F        ...   clr 001f
15185 F849 7F 00 1D        ...   clr 001d
15186 F84C 7F 00 1B        ...   clr 001b
15187 F84F 7F 00 19        ...   clr 0019
15188 ;
15189 F852 F6 0B C0        ...   ldab 0bc0
15190 F855 C4 01           ..    andb #01
15191 F857 27 08           '.    beq 08           ; to f861
15192 F859 CE 0B C1        ...   ldx #0bc1
15193 F85C 1C 00 01        ...   bset 00,x, #01   ; set changer powerup fail
15194 F85F 20 06            .    bra 06           ; to f867
15195 F861 CE 0B C1        ...   ldx #0bc1
15196 F864 1D 00 01        ...   bclr 00,x, #01   ; clear changer powerup fail
15197 ;
15198 F867 F6 0B C0        ...   ldab 0bc0
15199 F86A C4 04           ..    andb #04
15200 F86C 27 08           '.    beq 08           ; to f876
15201 F86E CE 0B C1        ...   ldx #0bc1
15202 F871 1C 00 02        ...   bset 00,x, #02   ; set card powerup fail
15203 F874 20 06            .    bra 06           ; to f87c
15204 F876 CE 0B C1        ...   ldx #0bc1
15205 F879 1D 00 02        ..    bclr 00,x, #02   ; clear card powerup fail
15206 F87C CE 0B C1        ...   ldx #0bc1
15207 F87F 1D 00 04        ..    bclr 00,x, #04    ; clear link powerup fail
15208 F882 F6 0B C0        ...   ldab 0bc0
15209 F885 C4 02           ..    andb #02
15210 F887 27 2D           '-    beq 2d        ; to f8b6
15211 F889 C6 3C           .<    ldab #3c
15212 F88B F7 00 31        ..1   stab 0031
15213 F88E 0E              .     cli
15214 F88F CC 00 FF        ...   ldd #00ff
15215 F892 BD C7 E7        ...   jsr c7e7             ;jump37 - send to serial port
15216 F895 5F              _     clrb
15217 F896 4F              O     clra
15218 F897 FD 00 40        ..@   std 0040
15219 F89A C6 10           ..    ldab #10
15220 F89C F7 10 2C        ..,   stab 102c    ; set 9N1
15221 F89F C6 2E           ..    ldab #2e
15222 F8A1 F7 10 2D        ..-   stab 102d    ; enable SCI transmission
15223 F8A4 C6 03           ..    ldab #03
15224 F8A6 F7 10 2B        ..+   stab 102b    ; set 9600 baud
15225 F8A9 C6 46           .F    ldab #46     ; 70
15226 F8AB F7 00 2F        ../   stab 002f
15227 F8AE CC 07 D0        ...   ldd #07d0
15228 F8B1 BD E5 71        ..q   jsr e571             ;msdelay
15229 F8B4 20 2B            +    bra 2b       ; to f8e1
15230 F8B6 BD D0 94        ...   jsr d094             ;jump66 - init variables
15231 F8B9 C6 27           .'    ldab #27
15232 F8BB F7 10 2D        ..-   stab 102d    ; disable SCI transmission
15233 F8BE C6 07           ..    ldab #07
15234 F8C0 F7 10 2B        ..+   stab 102b    ; set 600 baud
15235 ; reset the changer
15236 F8C3 CE 00 1A        ...   ldx #001a
15237 F8C6 1C 00 04        ..    bset 00,x, #04
15238 F8C9 F6 00 1A        ...   ldab 001a
15239 F8CC F7 30 00        .0.   stab 3000    ; reset the changer
15240 F8CF CC 07 D0        ...   ldd #07d0
15241 F8D2 BD E5 71        ..q   jsr e571             ;msdelay
15242 F8D5 CE 00 1A        ...   ldx #001a
15243 F8D8 1D 00 04        ..    bclr 00,x, #04
15244 F8DB F6 00 1A        ...   ldab 001a
15245 F8DE F7 30 00        .0.   stab 3000    ; pull reset line back
15246 ;
15247 F8E1 7F 0E 6A        ..j   clr 0e6a
15248 F8E4 BD D4 79        ..y   jsr d479             ;jump67
15249 F8E7 BD E8 9A        ...   jsr e89a             ;jump68
15250 F8EA 7F 00 06        ...   clr 0006
15251 F8ED CE 00 1D        ...   ldx #001d
15252 F8F0 1C 00 10        ..    bset 00,x, #10
15253 F8F3 CC 05 DC        ...   ldd #05dc
15254 F8F6 BD E5 71        ..q   jsr e571             ;msdelay
15255 F8F9 C6 1E           ..    ldab #1e
15256 F8FB F7 00 35        ..5   stab 0035
15257 F8FE 0E              .     cli
15258 ;
15259 ; begin of main loop
15260 goto85:
15261 ; test power lines
15262 F8FF BD E6 1B        ...   jsr e61b             ;jump4 set 0031 to 10
15263 F902 BD D1 05        ...   jsr d105             ;motors_off
15264 F905 F6 10 0A        ...   ldab 100a
15265 F908 C4 08           ..    andb #08     ; 24VUN line too low
15266 F90A 27 46           'F    beq 46       ; to f952
15267 F90C F6 10 0A        ...   ldab 100a
15268 F90F C4 08           ..    andb #08
15269 F911 27 11           '.    beq 11       ; to f924
15270 F913 CE 00 1A        ...   ldx #001a
15271 F916 1C 00 04        ..    bset 00,x, #04
15272 F919 F6 00 1A        ...   ldab 001a
15273 F91C F7 30 00        .0.   stab 3000    ; changer reset
15274 F91F BD E6 1B        ...   jsr e61b             ;jump4 put #0a => 0031
15275 F922 20 E8            .    bra e8       ; to f90c
15276 ;
15277 F924 BD D0 94        ...   jsr d094             ;jump66 - reset some variables to defaults?
15278 F927 F6 0B C0        ...   ldab 0bc0
15279 F92A C4 01           ..    andb #01
15280 F92C 27 06           '.    beq 06
15281 F92E CE 0B C1        ...   ldx #0bc1
15282 F931 1C 00 01        ..    bset 00,x, #01 ; set changer powerup fail
15283 F934 F6 0B C0        ...   ldab 0bc0
15284 F937 C4 04           ..    andb #04
15285 F939 27 06           '.    beq 06
15286 F93B CE 0B C1        ...   ldx #0bc1
15287 F93E 1C 00 02        ..    bset 00,x, #02 ; set card powerup fail
15288 F941 CE 00 1A        ...   ldx #001a
15289 F944 1D 00 04        ..    bclr 00,x, #04
15290 F947 F6 00 1A        ...   ldab 001a
15291 F94A F7 30 00        .0.   stab 3000   ; clear send & reset lines
15292 F94D C6 1E           ..    ldab #1e
15293 F94F F7 00 35        ..5   stab 0035
15294 ;
15295 ; end of power line test
15296 ;
15297 F952 F6 0B C0        ...   ldab 0bc0
15298 F955 C4 08           ..    andb #08
15299 F957 27 16           '.    beq 16       ; to f96f
15300 F959 CE 00 02        ...   ldx #0002
15301 F95C 3C              <     pshx
15302 F95D CC 10 00        ...   ldd #1000
15303 F960 BD E5 D7        ...   jsr e5d7             ;jump69 - poll bill validator
15304 F963 38              8     pulx
15305 F964 83 00 00        ...   subd #0000
15306 F967 27 06           '.    beq 06
15307 F969 CE 0B C1        ...   ldx #0bc1
15308 F96C 1C 00 08        ..    bset 00,x, #08 ; set bill error bit
15309 ;
15310 F96F F6 0B C1        ...   ldab 0bc1
15311 F972 C4 07           ..    andb #07     ; was there a power failure?
15312 F974 27 0D           '.    beq 0d       ; to f983
15313 F976 F6 00 35        ..5   ldab 0035
15314 F979 26 08           &.    bne 08
15315 F97B CE 00 21        ..!   ldx #0021
15316 F97E 1C 00 20        ..    bset 00,x, #20
15317 F981 20 06           ..    bra 06       ; to f989
15318 ;
15319 ;
15320 F983 CE 00 21        ..!   ldx #0021
15321 F986 1D 00 20        ..    bclr 00,x, #20
15322 F989 BD BB 63         .    jsr bb63     ;jump200 - read the keypad
15323 F98C BD B8 00        ...   jsr b800     ;jump201 - interpret the keys and write to the display
15324 F98F F6 0B C0        ...   ldab 0bc0
15325 F992 C4 01           ..    andb #01
15326 F994 27 0B           '.    beq 0b
15327 F996 FC 00 40        ..@   ldd 0040
15328 F999 F3 00 3E        ..>   addd 003e
15329 F99C 26 03           &.    bne 03
15330 F99E BD D6 F6        ...   jsr d6f6             ;jump106
15331 F9A1 F6 00 12        ...   ldab 0012
15332 F9A4 C4 20           .     andb #20     ; test door switch
15333 F9A6 27 08           '.    beq 08
15334 F9A8 F6 00 35        ..5   ldab 0035
15335 F9AB 26 03           &.    bne 03
15336 F9AD 7E FA 79        ~.y   jmp fa79             ;goto83
15337 F9B0 CE 00 1F        ...   ldx #001f
15338 F9B3 1D 00 04        ...   bclr 00,x, #04
15339 F9B6 CE 00 1D        ...   ldx #001d
15340 F9B9 1C 00 10        ...   bset 00,x, #10
15341 F9BC F6 00 1F        ...   ldab 001f
15342 F9BF C4 20           .     andb #20
15343 F9C1 26 03           &.    bne 03
15344 F9C3 7E FA 74        ~.t   jmp fa74             ;goto84
15345 F9C6 F6 0B C0        ...   ldab 0bc0
15346 F9C9 C4 01           ..    andb #01
15347 F9CB 27 08           '.    beq 08
15348 F9CD CE 0B C1        ...   ldx #0bc1
15349 F9D0 1C 00 01        ...   bset 00,x, #01   ; set changer powerup error
15350 F9D3 20 06            .    bra 06
15351 F9D5 CE 0B C1        ...   ldx #0bc1
15352 F9D8 1D 00 01        ...   bclr 00,x, #01   ; unset changer powerup error
15353 F9DB F6 0B C0        ...   ldab 0bc0
15354 F9DE C4 04           ..    andb #04
15355 F9E0 27 08           '.    beq 08
15356 F9E2 CE 0B C1        ...   ldx #0bc1
15357 F9E5 1C 00 02        ...   bset 00,x, #02   ; set card powerup error
15358 F9E8 20 06            .    bra 06
15359 F9EA CE 0B C1        ...   ldx #0bc1
15360 F9ED 1D 00 02        ...   bclr 00,x, #02   ; unset card powerup error
15361 F9F0 CE 0B C1        ...   ldx #0bc1
15362 F9F3 1D 00 04        ...   bclr 00,x, #04   ; unset link powerup error
15363 F9F6 CE 00 1B        ...   ldx #001b
15364 F9F9 1D 00 02        ...   bclr 00,x, #02
15365 F9FC F6 0B C0        ...   ldab 0bc0
15366 F9FF C4 02           ..    andb #02
15367 FA01 27 27           ''    beq 27
15368 FA03 C6 3C           .<    ldab #3c
15369 FA05 F7 00 31        ..1   stab 0031
15370 FA08 0E              .     cli
15371 FA09 CC 00 FF        ...   ldd #00ff
15372 FA0C BD C7 E7        ...   jsr c7e7             ;jump37 - send #ff to coin mech
15373 FA0F 5F              _     clrb
15374 FA10 4F              O     clra
15375 FA11 FD 00 40        ..@   std 0040
15376 FA14 C6 10           ..    ldab #10
15377 FA16 F7 10 2C        ..,   stab 102c    ; set 9N1
15378 FA19 C6 2E           ..    ldab #2e
15379 FA1B F7 10 2D        ..-   stab 102d    ; enable SCI transmission
15380 FA1E C6 03           ..    ldab #03
15381 FA20 F7 10 2B        ..+   stab 102b    ; 9600 baud
15382 FA23 C6 46           .F    ldab #46     ; 70
15383 FA25 F7 00 2F        ../   stab 002f
15384 FA28 20 31            1    bra 31
15385 FA2A CE 00 21        ..!   ldx #0021
15386 FA2D 1D 00 40        ...   bclr 00,x, #40
15387 FA30 BD D0 94        ...   jsr d094             ;jump66 - init variables
15388 FA33 C6 27           .'    ldab #27
15389 FA35 F7 10 2D        ..-   stab 102d    ; disable SCI transmission
15390 FA38 C6 07           ..    ldab #07
15391 FA3A F7 10 2B        ..+   stab 102b     ; 600 baud
15392 FA3D CE 00 1A        ...   ldx #001a
15393 FA40 1C 00 04        ...   bset 00,x, #04
15394 FA43 F6 00 1A        ...   ldab 001a
15395 FA46 F7 30 00        .0.   stab 3000    ; changer reset line high
15396 FA49 CC 00 32        ..2   ldd #0032
15397 FA4C BD E5 71        ..q   jsr e571             ;msdelay
15398 FA4F CE 00 1A        ...   ldx #001a
15399 FA52 1D 00 04        ...   bclr 00,x, #04
15400 FA55 F6 00 1A        ...   ldab 001a
15401 FA58 F7 30 00        .0.   stab 3000    ; changer reset line low
15402 FA5B BD D4 79        ..y   jsr d479             ;jump67
15403 FA5E BD E8 9A        ...   jsr e89a             ;jump68
15404 FA61 BD BE 69        ..i   jsr be69             ;displayreset
15405 FA64 7F 00 06        ...   clr 0006
15406 FA67 CE 00 1F        ...   ldx #001f
15407 FA6A 1D 00 20        ..    bclr 00,x, #20
15408 FA6D C6 1E            .    ldab #1e
15409 FA6F F7 00 35        ...5  stab 0035
15410 FA72 20 03            .    bra 03
15411 goto84:
15412 FA74 BD DE E7        ...   jsr dee7             ;jump116
15413 FA77 20 66            f    bra 66
15414 goto83:
15415 FA79 F6 00 12        ...   ldab 0012
15416 FA7C C4 20           .     andb #20
15417 FA7E 27 5F           '_    beq 5f       ; to fadf - restart loop
15418 FA80 F6 00 1F        ...   ldab 001f
15419 FA83 C4 20           .     andb #20
15420 FA85 26 03           &.    bne 03
15421 FA87 BD E5 AA        ...   jsr e5aa             ;jump12
15422 FA8A CE 00 1F        ...   ldx #001f
15423 FA8D 1C 00           ..    bset 00,x, #20
15424 FA8F F6 00 12        ...   ldab 0012
15425 FA93 C4 01           ..    andb #01
15426 FA95 26 33           &3    bne 33
15427 FA97 F6 00 1D        ...   ldab 001d
15428 FA9A C4 08           ..    andb #08
15429 FA9C 27 2A           '*    beq 2a        ; to fac8, to fad0
15430 FA9E F6 00 1F        ...   ldab 001f
15431 FAA1 C4 04           ..    andb #04
15432 FAA3 26 14           &.    bne 14
15433 FAA5 CE 00 1F        ...   ldx #001f
15434 FAA8 1C 00 04        ...   bset 00,x, #04
15435 FAAB CE 00 1F        ...   ldx #001f
15436 FAAE 1C 00           ..    bset 00,x, #80
15437 FAB0 CC 02 33        ..    ldd #0233
15438 FAB4 FD 00 3B        ..;   std 003b
15439 FAB7 20 09            .    bra 09       ; to fac2
15440 ;
15441 FAB9 BD E5 AA        ...   jsr e5aa             ;jump12 - beep if key pressed?
15442 FABC CE 00 1F        ...   ldx #001f
15443 FABF 1D 00 04        ...   bclr 00,x, #04
15444 FAC2 CE 00 1D        ...   ldx #001d
15445 FAC5 1D 00 08        ...   bclr 00,x, #08
15446 FAC8 20 06            .    bra 06       ; to fad0
15447 FACA CE 00 1D        ...   ldx #001d
15448 FACD 1C 00 08        ...   bset 00,x, #08
15449 FAD0 F6 00 1F        ...   ldab 001f
15450 FAD3 C4 04           ..    andb #04
15451 FAD5 26 05           &.    bne 05       ; to fadc - service menu
15452 FAD7 BD 81 00        ...   jsr 8100             ;jump72 - preservice menu?
15453 FADA 20 03            .    bra 03
15454 FADC BD 84 A0        ...   jsr 84a0             ;jump73
15455 FADF 7E F8 FF        ~..   jmp f8ff             ;goto85
15456 ; main should never return in theory.
15457
15458
15459 ; error interrupts (see vectors at end)
15460 FAE2 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15461 FAE5 BD C0 BA        ...   jsr c0ba             ;display:
15462 FAE8 CC 07 D0        ...   ldd #07d0
15463 FAEB BD E5 71        ..q   jsr e571             ;msdelay
15464 FAEE 3B              ;     rti
15465 FAEF CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15466 FAF2 BD C0 BA        ...   jsr c0ba             ;display:
15467 FAF5 CC 07 D0        ...   ldd #07d0
15468 FAF8 BD E5 71        ..q   jsr e571             ;msdelay
15469 FAFB 3B              ;     rti
15470 FAFC CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15471 FAFF BD C0 BA        ...   jsr c0ba             ;display:
15472 FB02 CC 07 D0        ...   ldd #07d0
15473 FB05 BD E5 71        ..q   jsr e571             ;msdelay
15474 FB08 3B              ;     rti
15475 FB09 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15476 FB0C BD C0 BA        ...   jsr c0ba             ;display:
15477 FB0F CC 07 D0        ...   ldd #07d0
15478 FB12 BD E5 71        ..q   jsr e571             ;msdelay
15479 FB15 3B              ;     rti
15480 FB16 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15481 FB19 BD C0 BA        ...   jsr c0ba             ;display:
15482 FB1C CC 07 D0        ...   ldd #07d0
15483 FB1F BD E5 71        ..q   jsr e571             ;msdelay
15484 FB22 3B              ;     rti
15485 FB23 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15486 FB26 BD C0 BA        ...   jsr c0ba             ;display:
15487 FB29 CC 07 D0        ...   ldd #07d0
15488 FB2C BD E5 71        ..q   jsr e571             ;msdelay
15489 FB2F 3B              ;     rti
15490 FB30 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15491 FB33 BD C0 BA        ...   jsr c0ba             ;display:
15492 FB36 CC 07 D0        ...   ldd #07d0
15493 FB39 BD E5 71        ..q   jsr e571             ;msdelay
15494 FB3C 3B              ;     rti
15495 FB3D CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15496 FB40 BD C0 BA        ...   jsr c0ba             ;display:
15497 FB43 CC 07 D0        ...   ldd #07d0
15498 FB46 BD E5 71        ..q   jsr e571             ;msdelay
15499 FB49 3B              ;     rti
15500 FB4A CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15501 FB4D BD C0 BA        ...   jsr c0ba             ;display:
15502 FB50 CC 07 D0        ...   ldd #07d0
15503 FB53 BD E5 71        ..q   jsr e571             ;msdelay
15504 FB56 3B              ;     rti
15505 FB57 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15506 FB5A BD C0 BA        ...   jsr c0ba             ;display:
15507 FB5D CC 07 D0        ...   ldd #07d0
15508 FB60 BD E5 71        ..q   jsr e571             ;msdelay
15509 FB63 3B              ;     rti
15510 FB64 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15511 FB67 BD C0 BA        ...   jsr c0ba             ;display:
15512 FB6A CC 07 D0        ...   ldd #07d0
15513 FB6D BD E5 71        ..q   jsr e571             ;msdelay
15514 FB70 3B              ;     rti
15515 FB71 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15516 FB74 BD C0 BA        ...   jsr c0ba             ;display:
15517 FB77 CC 07 D0        ...   ldd #07d0
15518 FB7A BD E5 71        ..q   jsr e571             ;msdelay
15519 FB7D 3B              ;     rti
15520 FB7E CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15521 FB81 BD C0 BA        ...   jsr c0ba             ;display:
15522 FB84 CC 07 D0        ...   ldd #07d0
15523 FB87 BD E5 71        ..q   jsr e571             ;msdelay
15524 FB8A 3B              ;     rti
15525 FB8B CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15526 FB8E BD C0 BA        ...   jsr c0ba             ;display:
15527 FB91 CC 07 D0        ...   ldd #07d0
15528 FB94 BD E5 71        ..q   jsr e571             ;msdelay
15529 FB97 3B              ;     rti
15530 FB98 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15531 FB9B BD C0 BA        ...   jsr c0ba             ;display:
15532 FB9E CC 07 D0        ...   ldd #07d0
15533 FBA1 BD E5 71        ..q   jsr e571             ;msdelay
15534 FBA4 3B              ;     rti
15535 FBA5 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15536 FBA8 BD C0 BA        ...   jsr c0ba             ;display:
15537 FBAB CC 07 D0        ...   ldd #07d0
15538 FBAE BD E5 71        ..q   jsr e571             ;msdelay
15539 FBB1 3B              ;     rti
15540 FBB2 BD FE 69        ..i   jsr fe69             ;reset
15541 FBB5 3B              ;     rti
15542 FBB6 BD FE 69        ..i   jsr fe69             ;reset
15543 FBB9 3B              ;     rti
15544
15545 jump38:
15546 ; passed a u16 on the stack, i, and a u16 in D, j
15547 ; multiplication funciton of some sort?
15548 FBBA 3C              <     pshx
15549 FBBB 37              7     pshb
15550 FBBC 30              0     tsx
15551 FBBD E6 06           ..    ldab 06,x   ; lower 8-bits of i
15552 FBBF 3D              =     mul         ; A*B => D
15553 FBC0 A6 00           ..    ldaa 00,x
15554 FBC2 37              7     pshb
15555 FBC3 E6 05           ..    ldab 05,x
15556 FBC5 3D              =     mul
15557 FBC6 32              2     pula
15558 FBC7 1B              .     aba
15559 FBC8 33              3     pulb
15560 FBC9 36              6     psha
15561 FBCA A6 06           ..    ldaa 06,x
15562 FBCC 3D              =     mul
15563 FBCD 37              7     pshb
15564 FBCE AB 00           ..    adda 00,x
15565 FBD0 36              6     psha
15566 FBD1 EC 03           ..    ldd 03,x
15567 FBD3 ED 05           ..    std 05,x
15568 FBD5 38              8     pulx
15569 FBD6 8F              .     xgdx
15570 FBD7 83 00 00        ...   subd #0000
15571 FBDA 31              1     ins
15572 FBDB 38              8     pulx
15573 FBDC 31              1     ins
15574 FBDD 31              1     ins
15575 FBDE 39              9     rts
15576
15577 jump46:
15578 FBDF BD FB E8        ...   jsr fbe8             ;jump86
15579 FBE2 BD FC 25        ..%   jsr fc25             ;jump85
15580 FBE5 7E FC 04        ~..   jmp fc04             ;goto87
15581
15582 jump86:
15583 FBE8 3C              <     pshx
15584 FBE9 8F              .     xgdx
15585 FBEA EC 02           ..    ldd 02,x
15586 FBEC 37              7     pshb
15587 FBED 36              6     psha
15588 FBEE EC 00           ..    ldd 00,x
15589 FBF0 37              7     pshb
15590 FBF1 36              6     psha
15591 FBF2 34              4     des
15592 FBF3 34              4     des
15593 FBF4 34              4     des
15594 FBF5 34              4     des
15595 FBF6 3C              <     pshx
15596 FBF7 30              0     tsx
15597 FBF8 EC 12           ..    ldd 12,x
15598 FBFA ED 04           ..    std 04,x
15599 FBFC EC 0C           ..    ldd 0c,x
15600 FBFE ED 02           ..    std 02,x
15601 FC00 EC 10           ..    ldd 10,x
15602 FC02 38              8     pulx
15603 FC03 39              9     rts
15604
15605 goto87:
15606 FC04 ED 00           ..    std 00,x
15607 FC06 3C              <     pshx
15608 FC07 30              0     tsx
15609 FC08 EC 08           ..    ldd 08,x
15610 FC0A ED 0A           ..    std 0a,x
15611 FC0C EC 02           ..    ldd 02,x
15612 FC0E ED 0C           ..    std 0c,x
15613 FC10 38              8     pulx
15614 FC11 ED 02           ..    std 02,x
15615 FC13 EC 00           ..    ldd 00,x
15616 FC15 26 06           &.    bne 06
15617 FC17 6D 02           m.    tst 02,x
15618 FC19 26 02           &.    bne 02
15619 FC1B 6D 03           m.    tst 03,x
15620 FC1D 31              1     ins
15621 FC1E 31              1     ins
15622 FC1F 38              8     pulx
15623 FC20 31              1     ins
15624 FC21 31              1     ins
15625 FC22 31              1     ins
15626 FC23 31              1     ins
15627 FC24 39              9     rts
15628
15629 jump85:
15630 FC25 3C              <     pshx
15631 FC26 30              0     tsx
15632 FC27 E3 06           ..    addd 06,x
15633 FC29 37              7     pshb
15634 FC2A 36              6     psha
15635 FC2B EC 02           ..    ldd 02,x
15636 FC2D ED 06           ..    std 06,x
15637 FC2F EC 04           ..    ldd 04,x
15638 FC31 E3 08           ..    addd 08,x
15639 FC33 ED 08           ..    std 08,x
15640 FC35 32              2     pula
15641 FC36 33              3     pulb
15642 FC37 C9 00           ..    adcb #00
15643 FC39 89 00           ..    adca #00
15644 FC3B 83 00 00        ...   subd #0000
15645 FC3E 26 06           &.    bne 06
15646 FC40 6D 08           m.    tst 08,x
15647 FC42 26 02           &.    bne 02
15648 FC44 6D 09           m.    tst 09,x
15649 FC46 38              8     pulx
15650 FC47 31              1     ins
15651 FC48 31              1     ins
15652 FC49 31              1     ins
15653 FC4A 31              1     ins
15654 FC4B 39              9     rts
15655
15656 jump83:
15657 FC4C 3C              <     pshx
15658 FC4D 3C              <     pshx
15659 FC4E 37              7     pshb
15660 FC4F 36              6     psha
15661 FC50 3C              <     pshx
15662 FC51 3C              <     pshx
15663 FC52 3C              <     pshx
15664 FC53 18 3C           .<    pshy
15665 FC55 30              0     tsx
15666 FC56 4F              O     clra
15667 FC57 A7 04           ..    staa 04,x
15668 FC59 7E FC 6D        ~.m   jmp fc6d             ;goto88
15669
15670 jump82:
15671 FC5C 3C              <     pshx
15672 FC5D 3C              <     pshx
15673 FC5E 37              7     pshb
15674 FC5F 36              6     psha
15675 FC60 3C              <     pshx
15676 FC61 3C              <     pshx
15677 FC62 3C              <     pshx
15678 FC63 18 3C           .<    pshy
15679 FC65 30              0     tsx
15680 FC66 86 01           ..    ldaa #01
15681 FC68 A7 04           ..    staa 04,x
15682 FC6A 7E FC 6D        ~.m   jmp fc6d             ;goto88
15683 goto88:
15684 FC6D 1A EE 0E        ...   ldy 0e,x
15685 FC70 EC 08           ..    ldd 08,x
15686 FC72 ED 0E           ..    std 0e,x
15687 FC74 EC 14           ..    ldd 14,x
15688 FC76 ED 0C           ..    std 0c,x
15689 FC78 EC 12           ..    ldd 12,x
15690 FC7A ED 0A           ..    std 0a,x
15691 FC7C 1A EF 12        ...   sty 12,x
15692 FC7F 4F              O     clra
15693 FC80 5F              _     clrb
15694 FC81 ED 08           ..    std 08,x
15695 FC83 ED 06           ..    std 06,x
15696 FC85 EC 0A           ..    ldd 0a,x
15697 FC87 1A A3 0E        ...   cmpd 0e,x
15698 FC8A 22 23           "#    bhi 23
15699 FC8C 27 15           '.    beq 15
15700 FC8E 1E 04 01 08     ....  brset 04,x 01 08
15701 FC92 CC 00 00        ...   ldd #0000
15702 FC95 ED 14           ..    std 14,x
15703 FC97 7E FE 04        ~..   jmp fe04             ;goto89
15704 FC9A EC 0C           ..    ldd 0c,x
15705 FC9C ED 14           ..    std 14,x
15706 FC9E EC 0A           ..    ldd 0a,x
15707 FCA0 7E FD E3        ~..   jmp fde3             ;goto90
15708 FCA3 83 00 00        ...   subd #0000
15709 FCA6 27 12           '.    beq 12
15710 FCA8 EC 0C           ..    ldd 0c,x
15711 FCAA 1A A3 10        ...   cmpd 10,x
15712 FCAD 25 DF           %.    bcs df
15713 FCAF 6D 0E           m.    tst 0e,x
15714 FCB1 26 70           &p    bne 70
15715 FCB3 6D 0F           m.    tst 0f,x
15716 FCB5 27 1A           '.    beq 1a
15717 FCB7 7E FD A4        ~..   jmp fda4             ;goto91
15718 FCBA 3C              <     pshx
15719 FCBB 3C              <     pshx
15720 FCBC 18 38           .8    puly
15721 FCBE EC 0C           ..    ldd 0c,x
15722 FCC0 EE 10           ..    ldx 10,x
15723 FCC2 02              .     idiv
15724 FCC3 18 1E 04 01 01  ..... brset 04,y 01 01
15725 FCC8 8F              .     xgdx
15726 FCC9 38              8     pulx
15727 FCCA ED 14           ..    std 14,x
15728 FCCC 4F              O     clra
15729 FCCD 5F              _     clrb
15730 FCCE 7E FD E3        ~..   jmp fde3             ;goto90
15731 FCD1 3C              <     pshx
15732 FCD2 3C              <     pshx
15733 FCD3 18 38           .8    puly
15734 FCD5 EC 0A           ..    ldd 0a,x
15735 FCD7 EE 10           ..    ldx 10,x
15736 FCD9 3C              <     pshx
15737 FCDA 02              .     idiv
15738 FCDB CD EF 0A        ...   stx 02x,y
15739 FCDE 38              8     pulx
15740 FCDF 3C              <     pshx
15741 FCE0 03              .     fdiv
15742 FCE1 CD EF 0E        ...   stx 02x,y
15743 FCE4 38              8     pulx
15744 FCE5 18 E3 0C        ...   addd 0c,y
15745 FCE8 24 1B           $.    bcc 1b
15746 FCEA 18 ED 0C        ...   std 0c,y
15747 FCED 4F              O     clra
15748 FCEE C6 01           ..    ldab #01
15749 FCF0 3C              <     pshx
15750 FCF1 03              .     fdiv
15751 FCF2 8F              .     xgdx
15752 FCF3 18 E3 0E        ...   addd 0e,y
15753 FCF6 24 03           $.    bcc 03
15754 FCF8 18 6C 0A        .l.   inc 0a,y
15755 FCFB 18 ED 0E        ...   std 0e,y
15756 FCFE 8F              .     xgdx
15757 FCFF 38              8     pulx
15758 FD00 18 E3 0C        ...   addd 0c,y
15759 FD03 25 E5           %.    bcs e5
15760 FD05 02              .     idiv
15761 FD06 8F              .     xgdx
15762 FD07 18 E3 0E        ...   addd 0e,y
15763 FD0A 24 03           $.    bcc 03
15764 FD0C 18 6C 0A        .l.   inc 0a,y
15765 FD0F 18 1F 04 01 07  ..... brclr 04,y 01 07
15766 FD14 8F              .     xgdx
15767 FD15 18 6F 0A        .o.   clr 0a,y
15768 FD18 18 6F 0B        .o.   clr 0b,y
15769 FD1B 38              8     pulx
15770 FD1C ED 14           ..    std 14,x
15771 FD1E EC 0A           ..    ldd 0a,x
15772 FD20 7E FD E3        ~..   jmp fde3             ;goto90
15773 FD23 86 08           ..    ldaa #08
15774 FD25 A7 05           ..    staa 05,x
15775 FD27 69              i     rol
15776 FD28 0D              .     sec
15777 FD29 69              i     rol
15778 FD2A 0C              .     clc
15779 FD2B 69              i     rol
15780 FD2C 0B              .     sev
15781 FD2D 69              i     rol
15782 FD2E 0A              .     clv
15783 FD2F 69              i     rol
15784 FD30 09              .     dex
15785 FD31 EC 0B           ..    ldd 0b,x
15786 FD33 A3 10           ..    subd 10,x
15787 FD35 ED 14           ..    std 14,x
15788 FD37 EC 09           ..    ldd 09,x
15789 FD39 E2 0F           ..    sbcb 0f,x
15790 FD3B A2 0E           ..    sbca 0e,x
15791 FD3D 25 06           %.    bcs 06
15792 FD3F ED 09           ..    std 09,x
15793 FD41 EC 14           ..    ldd 14,x
15794 FD43 ED 0B           ..    std 0b,x
15795 FD45 6A 05           j.    dec 05,x
15796 FD47 26 DE           &.    bne de
15797 FD49 69              i     rol
15798 FD4A 0D              .     sec
15799 FD4B 1F 04 01 09     ....  brclr 04,x 01 09
15800 FD4F EC 0B           ..    ldd 0b,x
15801 FD51 ED 14           ..    std 14,x
15802 FD53 EC 09           ..    ldd 09,x
15803 FD55 7E FD E3        ~..   jmp fde3             ;goto90
15804 FD58 4F              O     clra
15805 FD59 E6 0D           ..    ldab 0d,x
15806 FD5B 53              S     comb
15807 FD5C ED 14           ..    std 14,x
15808 FD5E 5F              _     clrb
15809 FD5F 7E FD E3        ~..   jmp fde3             ;goto90
15810 FD62 86 10           ..    ldaa #10
15811 FD64 A7 05           ..    staa 05,x
15812 FD66 69              i     rol
15813 FD67 0D              .     sec
15814 FD68 69              i     rol
15815 FD69 0C              .     clc
15816 FD6A 69              i     rol
15817 FD6B 0B              .     sev
15818 FD6C 69              i     rol
15819 FD6D 0A              .     clv
15820 FD6E 69              i     rol
15821 FD6F 09              .     dex
15822 FD70 69              i     rol
15823 FD71 08              .     inx
15824 FD72 EC 0A           ..    ldd 0a,x
15825 FD74 A3 10           ..    subd 10,x
15826 FD76 ED 14           ..    std 14,x
15827 FD78 EC 08           ..    ldd 08,x
15828 FD7A E2 0F           ..    sbcb 0f,x
15829 FD7C 82 00           ..    sbca #00
15830 FD7E 25 06           %.    bcs 06
15831 FD80 ED 08           ..    std 08,x
15832 FD82 EC 14           ..    ldd 14,x
15833 FD84 ED 0A           ..    std 0a,x
15834 FD86 6A 05           j.    dec 05,x
15835 FD88 26 DC           &.    bne dc
15836 FD8A 69              i     rol
15837 FD8B 0D              .     sec
15838 FD8C 69              i     rol
15839 FD8D 0C              .     clc
15840 FD8E 1F 04 01 08     ....  brclr 04,x 01 08
15841 FD92 EC 0A           ..    ldd 0a,x
15842 FD94 ED 14           ..    std 14,x
15843 FD96 EC 08           ..    ldd 08,x
15844 FD98 20 49            I    bra 49
15845 FD9A EC 0C           ..    ldd 0c,x
15846 FD9C 43              C     coma
15847 FD9D 53              S     comb
15848 FD9E ED 14           ..    std 14,x
15849 FDA0 4F              O     clra
15850 FDA1 5F              _     clrb
15851 FDA2 20 3F            ?    bra 3f
15852 goto91:
15853 FDA4 2B BC           +.    bmi bc
15854 FDA6 86 10           ..    ldaa #10
15855 FDA8 A7 05           ..    staa 05,x
15856 FDAA 69              i     rol
15857 FDAB 0D              .     sec
15858 FDAC 69              i     rol
15859 FDAD 0C              .     clc
15860 FDAE 69              i     rol
15861 FDAF 0B              .     sev
15862 FDB0 69              i     rol
15863 FDB1 0A              .     clv
15864 FDB2 69              i     rol
15865 FDB3 07              .     tpa
15866 FDB4 EC 0A           ..    ldd 0a,x
15867 FDB6 A3 10           ..    subd 10,x
15868 FDB8 ED 14           ..    std 14,x
15869 FDBA A6 07           ..    ldaa 07,x
15870 FDBC A2 0F           ..    sbca 0f,x
15871 FDBE 25 06           %.    bcs 06
15872 FDC0 A7 07           ..    staa 07,x
15873 FDC2 EC 14           ..    ldd 14,x
15874 FDC4 ED 0A           ..    std 0a,x
15875 FDC6 6A 05           j.    dec 05,x
15876 FDC8 26 E0           &.    bne e0
15877 FDCA 69              i     rol
15878 FDCB 0D              .     sec
15879 FDCC 69              i     rol
15880 FDCD 0C              .     clc
15881 FDCE 1F 04 01 09     ....  brclr 04,x 01 09
15882 FDD2 EC 0A           ..    ldd 0a,x
15883 FDD4 ED 14           ..    std 14,x
15884 FDD6 4F              O     clra
15885 FDD7 E6 07           ..    ldab 07,x
15886 FDD9 20 08            .    bra 08
15887 FDDB EC 0C           ..    ldd 0c,x
15888 FDDD 43              C     coma
15889 FDDE 53              S     comb
15890 FDDF ED 14           ..    std 14,x
15891 FDE1 4F              O     clra
15892 FDE2 5F              _     clrb
15893 goto90:
15894 FDE3 1F 04 80 12     ....  brclr 04,x 80 12
15895 FDE7 43              C     coma
15896 FDE8 53              S     comb
15897 FDE9 63 14           c.    com 14,x
15898 FDEB 63 15           c.    com 15,x
15899 FDED 6C 15           l.    inc 15,x
15900 FDEF 26 08           &.    bne 08
15901 FDF1 6C 14           l.    inc 14,x
15902 FDF3 26 04           &.    bne 04
15903 FDF5 5C              \     incb
15904 FDF6 26 01           &.    bne 01
15905 FDF8 4C              L     inca
15906 FDF9 83 00 00        ...   subd #0000
15907 FDFC 26 06           &.    bne 06
15908 FDFE 6D 14           m.    tst 14,x
15909 FE00 26 02           &.    bne 02
15910 FE02 6D 15           m.    tst 15,x
15911 goto89:
15912 FE04 18 38           .8    puly
15913 FE06 38              8     pulx
15914 FE07 31              1     ins
15915 FE08 31              1     ins
15916 FE09 31              1     ins
15917 FE0A 31              1     ins
15918 FE0B 31              1     ins
15919 FE0C 31              1     ins
15920 FE0D 31              1     ins
15921 FE0E 31              1     ins
15922 FE0F 31              1     ins
15923 FE10 31              1     ins
15924 FE11 31              1     ins
15925 FE12 31              1     ins
15926 FE13 31              1     ins
15927 FE14 31              1     ins
15928 FE15 39              9     rts
15929
15930 jump2:
15931 ; passed a structure (in code following the call to jump2) and a number D
15932 ; popular D candidates come from $48, $42, $9, $a, etc...
15933 ; D must be between 0 and len, inclusive.
15934 ; structure {
15935 ;    u16 var1, len;
15936 ;    u16 jmplocs[len+2];
15937 ; }
15938 FE16 38              8     pulx
15939 FE17 A3 00           ..    subd 00,x     ; D -= var1
15940 FE19 2D 05           -.    blt 05        ; if D<0, to fe20, where D=-1
15941 FE1B 1A A3 02        ...   cmpd 02,x     ;
15942 FE1E 2F 03           /.    ble 03        ; if D > len, D=-1, else to fe23
15943 FE20 CC FF FF        ...   ldd #ffff
15944 FE23 3C              <     pshx          ; push return ptr back onto stack
15945 FE24 05              .     asld          ; D *= 2
15946 FE25 30              0     tsx
15947 FE26 E3 00           ..    addd 00,x     ; D += return-ptr
15948 FE28 C3 00 06        ...   addd #0006    ;        + 6
15949 FE2B 8F              .     xgdx
15950 FE2C EC 00           ..    ldd 00,x      ; return ptr = jmplocs[orig D]
15951 FE2E 30              0     tsx
15952 FE2F ED 00           ..    std 00,x
15953 FE31 39              9     rts
15954
15955 jump25:
15956 ; this looks like a switch statement
15957 ; we're passed an array of 4-byte items... this is passed in the code segment
15958 ; we take the return address and start counting until we hit a double zero.
15959 ; hence much of the code following this call in a standard disassembly is garbage
15960 ; we also look at D - common values passed to use are contents of $9, $12, $15, $4A or the SCI $102f
15961 FE32 38              8     pulx
15962 FE33 6D 04           m.    tst 04,x
15963 FE35 26 04           &.    bne 04     ; to fe3b if this is not the last one
15964 FE37 6D 05           m.    tst 05,x   ; double check it really is last one.
15965 FE39 27 0A           '.    beq 0a     ; to fe45
15966 FE3B A3 02           ..    subd 02,x  ; subtract lower order bits from D
15967 FE3D 27 06           '.    beq 06     ; to fe45
15968 FE3F 08              .     inx        ; move the array index up one
15969 FE40 08              .     inx
15970 FE41 08              .     inx
15971 FE42 08              .     inx
15972 FE43 20 EE            .    bra ee     ; to fe33
15973 FE45 EE 00           ..    ldx 00,x   ; return to our destination address
15974 FE47 6E 00           n.    jmp 00,x
15975
15976         reset:
15977
15978 ; Enable the Real-time Interrupt (periodic hw interrupt)
15979 FE49 86 40           .@    ldaa #40     ;40 -> A
15980 FE4B B7 10 24        ..$   staa 1024    ;A -> 1024
15981 ; Enable the ADC & configure IRQ' for edge-sensitive only operation
15982 FE4E 86 A0           ..    ldaa #a0     ;a0 -> A
15983 FE50 B7 10 39        ..9   staa 1039    ;A -> 1039
15984 ; Set a stack pointer?
15985 FE53 8E 00 EF        ...   lds #00ef
15986 ; Zero out the first 128 bytes of ram.
15987 FE56 CE 00 00        ...   ldx #0000    ;wipe 0000-007f  X=0000
15988 FE59 8C 00 80        ...   cpx #0080    ;loop: if X = 0080
15989 FE5C 24 05           $.    bcc fe63     ;        finished
15990 FE5E 6F 00           o.    clr 00,x     ;      else: load addr X with 0
15991 FE60 08              .     inx          ;        increment X
15992 FE61 20 F6            .    bra fe59     ;repeat
15993
15994 ; Jump to main procedure
15995 FE63 BD F7 D6        ...   jsr f7d6     ;goto main:
15996 FE66 7E FE 6D        ~.m   jmp fe6d     ; goto91
15997
15998 ; Reboot function for when things go astray?
15999 FE69 0F              .     sei          ;inhibit interrupts
16000 FE6A 7E FE 49        ~.I   jmp fe49     ;goto reset:
16001
16002 ; loop forever - called after main is exited.
16003 goto91:
16004 FE6D 20 FE            .    bra fe6d     ;loop forever
16005                                         ;[SAF] - wait for interrupts?
16006
16007 FE6F FF FF FF        ...   stx ffff
16008 FE72 FF FF FF        ...   stx ffff
16009 FE75 FF FF FF        ...   stx ffff
16010 FE78 FF FF FF        ...   stx ffff
16011 FE7B FF FF FF        ...   stx ffff
16012 FE7E FF FF FF        ...   stx ffff
16013 FE81 FF FF FF        ...   stx ffff
16014 FE84 FF FF FF        ...   stx ffff
16015 FE87 FF FF FF        ...   stx ffff
16016 FE8A FF FF FF        ...   stx ffff
16017 FE8D FF FF FF        ...   stx ffff
16018 FE90 FF FF FF        ...   stx ffff
16019 FE93 FF FF FF        ...   stx ffff
16020 FE96 FF FF FF        ...   stx ffff
16021 FE99 FF FF FF        ...   stx ffff
16022 FE9C FF FF FF        ...   stx ffff
16023 FE9F FF FF FF        ...   stx ffff
16024 FEA2 FF FF FF        ...   stx ffff
16025 FEA5 FF FF FF        ...   stx ffff
16026 FEA8 FF FF FF        ...   stx ffff
16027 FEAB FF FF FF        ...   stx ffff
16028 FEAE FF FF FF        ...   stx ffff
16029 FEB1 FF FF FF        ...   stx ffff
16030 FEB4 FF FF FF        ...   stx ffff
16031 FEB7 FF FF FF        ...   stx ffff
16032 FEBA FF FF FF        ...   stx ffff
16033 FEBD FF FF FF        ...   stx ffff
16034 FEC0 FF FF FF        ...   stx ffff
16035 FEC3 FF FF FF        ...   stx ffff
16036 FEC6 FF FF FF        ...   stx ffff
16037 FEC9 FF FF FF        ...   stx ffff
16038 FECC FF FF FF        ...   stx ffff
16039 FECF FF FF FF        ...   stx ffff
16040 FED2 FF FF FF        ...   stx ffff
16041 FED5 FF FF FF        ...   stx ffff
16042 FED8 FF FF FF        ...   stx ffff
16043 FEDB FF FF FF        ...   stx ffff
16044 FEDE FF FF FF        ...   stx ffff
16045 FEE1 FF FF FF        ...   stx ffff
16046 FEE4 FF FF FF        ...   stx ffff
16047 FEE7 FF FF FF        ...   stx ffff
16048 FEEA FF FF FF        ...   stx ffff
16049 FEED FF FF FF        ...   stx ffff
16050 FEF0 FF FF FF        ...   stx ffff
16051 FEF3 FF FF FF        ...   stx ffff
16052 FEF6 FF FF FF        ...   stx ffff
16053 FEF9 FF FF FF        ...   stx ffff
16054 FEFC FF FF FF        ...   stx ffff
16055 FEFF FF FF FF        ...   stx ffff
16056 FF02 FF FF FF        ...   stx ffff
16057 FF05 FF FF FF        ...   stx ffff
16058 FF08 FF FF FF        ...   stx ffff
16059 FF0B FF FF FF        ...   stx ffff
16060 FF0E FF FF FF        ...   stx ffff
16061 FF11 FF FF FF        ...   stx ffff
16062 FF14 FF FF FF        ...   stx ffff
16063 FF17 FF FF FF        ...   stx ffff
16064 FF1A FF FF FF        ...   stx ffff
16065 FF1D FF FF FF        ...   stx ffff
16066 FF20 FF FF FF        ...   stx ffff
16067 FF23 FF FF FF        ...   stx ffff
16068 FF26 FF FF FF        ...   stx ffff
16069 FF29 FF FF FF        ...   stx ffff
16070 FF2C FF FF FF        ...   stx ffff
16071 FF2F FF FF FF        ...   stx ffff
16072 FF32 FF FF FF        ...   stx ffff
16073 FF35 FF FF FF        ...   stx ffff
16074 FF38 FF FF FF        ...   stx ffff
16075 FF3B FF FF FF        ...   stx ffff
16076 FF3E FF FF FF        ...   stx ffff
16077 FF41 FF FF FF        ...   stx ffff
16078 FF44 FF FF FF        ...   stx ffff
16079 FF47 FF FF FF        ...   stx ffff
16080 FF4A FF FF FF        ...   stx ffff
16081 FF4D FF FF FF        ...   stx ffff
16082 FF50 FF FF FF        ...   stx ffff
16083 FF53 FF FF FF        ...   stx ffff
16084 FF56 FF FF FF        ...   stx ffff
16085 FF59 FF FF FF        ...   stx ffff
16086 FF5C FF FF FF        ...   stx ffff
16087 FF5F FF FF FF        ...   stx ffff
16088 FF62 FF FF FF        ...   stx ffff
16089 FF65 FF FF FF        ...   stx ffff
16090 FF68 FF FF FF        ...   stx ffff
16091 FF6B FF FF FF        ...   stx ffff
16092 FF6E FF FF FF        ...   stx ffff
16093 FF71 FF FF FF        ...   stx ffff
16094 FF74 FF FF FF        ...   stx ffff
16095 FF77 FF FF FF        ...   stx ffff
16096 FF7A FF FF FF        ...   stx ffff
16097 FF7D FF FF FF        ...   stx ffff
16098 FF80 FF FF FF        ...   stx ffff
16099 FF83 FF FF FF        ...   stx ffff
16100 FF86 FF FF FF        ...   stx ffff
16101 FF89 FF FF FF        ...   stx ffff
16102 FF8C FF FF FF        ...   stx ffff
16103 FF8F FF FF FF        ...   stx ffff
16104 FF92 FF FF FF        ...   stx ffff
16105 FF95 FF FF FF        ...   stx ffff
16106 FF98 FF FF FF        ...   stx ffff
16107 FF9B FF FF FF        ...   stx ffff
16108 FF9E FF FF FF        ...   stx ffff
16109 FFA1 FF FF FF        ...   stx ffff
16110 FFA4 FF FF FF        ...   stx ffff
16111 FFA7 FF FF FF        ...   stx ffff
16112 FFAA FF FF FF        ...   stx ffff
16113 FFAD FF FF FF        ...   stx ffff
16114 FFB0 FF FF FF        ...   stx ffff
16115 FFB3 FF FF FF        ...   stx ffff
16116 FFB6 FF FF FF        ...   stx ffff
16117 FFB9 FF FF FF        ...   stx ffff
16118 FFBC FF FF FF        ...   stx ffff
16119 FFBF FF FF FF        ...   stx ffff
16120 FFC2 FF FF FF        ...   stx ffff
16121 FFC5 FF FF FF        ...   stx ffff
16122 FFC8 FF FF FF        ...   stx ffff
16123 FFCB FF FF FF        ...   stx ffff
16124 FFCE FF FF FF        ...   stx ffff
16125 FFD1 FF FF FF        ...   stx ffff
16126 FFD4 FF FF
16127
16128 FFD6    ;vectors
16129         .word   c81c    ; SCI serial system (generic)  - goes to sciinterrupt
16130         .word   fae2    ; SPI serial transfer complete - flashes *** ERROR *** for a second
16131         .word   faef    ; Pulse accumulator input edge - flashes *** ERROR *** for a second
16132         .word   fafc    ; Pulse accumulator overflow   - flashes *** ERROR *** for a second
16133         .word   fb09    ; Timer overflow               - flashes *** ERROR *** for a second
16134         .word   fb16    ; Timer input capture 4        - flashes *** ERROR *** for a second
16135         .word   fb23    ; Timer output compare 4       - flashes *** ERROR *** for a second
16136         .word   fb30    ; Timer output compare 3       - flashes *** ERROR *** for a second
16137         .word   fb3d    ; Timer output compare 2       - flashes *** ERROR *** for a second
16138         .word   fb4a    ; Timer output compare 1       - flashes *** ERROR *** for a second
16139         .word   fb57    ; Timer input capture 3        - flashes *** ERROR *** for a second
16140         .word   fb64    ; Timer input capture 2        - flashes *** ERROR *** for a second
16141         .word   fb71    ; Timer input capture 1        - flashes *** ERROR *** for a second
16142         .word   f718    ; RT interrupt                 - does something useful :) (goto rti)
16143         .word   fb7e    ; IRQ pin                      - flashes *** ERROR *** for a second
16144         .word   fb8b    ; XIRQ pin                     - flashes *** ERROR *** for a second
16145         .word   fb98    ; software interrupt           - flashes *** ERROR *** for a second
16146         .word   fba5    ; illegal opcode trap          - flashes *** ERROR *** for a second
16147         .word   fbb2    ; watchdog reset               - reboot
16148         .word   fbb6    ; clock monitor reset          - reboot
16149         .word   fe49    ; reset                        - reboot
16150 \1a