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 ;0023   buffer for 1800
  26 ;0026   used exclusively in SCI interrupt handler
  27 ;0029   previous key state (cf 0016)
  28 ;002c   inhibits display writes?
  29 ;0032   to do with the beeper
  30 ;0033
  31 ;0035   only ever contains #1e
  32 ;003b   commonly contains $0233
  33 ;003d
  34 ;0040
  35 ;0042   current key press
  36 ;0048   error status
  37 ;004a
  38 ;0052   win-a-snack odds (in ram)
  39 ;0054   0..100
  40 ;0056   last known keypad row 1 state
  41 ;005b   last known keypad row 0 state
  42 ;005d                                     dollars
  43 ;005e   Y in location XY (row?)           cents1
  44 ;005f   X in location XY (column?)        cents2
  45 ;0073
  46 ;0076-0077 word
  47 ;007f
  48 ;00c8
  49 ;08c8   array of prices of each slot??
  50 ;0993   custom message?
  51 ;0b90 - 0b99 display buffer (backwards)
  52 ;0baa
  53 ;0bb5   win-a-snack odds (is this in NVRAM?)
  54 ;0bbd
  55 ;0bd8   related to 0017 and 0021 (only lower 3 bits used)
  56 ;0bd9   also related
  57 ;0bc0   bit 0, 2, 1, 3
  58 ;0bc1   error status:  (from jump72)
  59 ;         bit0: changer powerup
  60 ;         bit1: card powerup
  61 ;         bit2: link powerup
  62 ;         bit3: bill error
  63 ;         bit4: coin jam
  64 ;         bit5: bad sensor
  65 ;         bit6: tube error
  66 ;0bc2 - 0bce SCI read into these locations
  67 ;0cbc   serial number
  68 ;0ccc   machine ID
  69 ;0cd9   counter of something - reset to 4 on some serial input
  70 ;0cda   counter of something - reset to 4 on some serial input
  71 ;0cdb   also counts something - reset to 4 on some serial input
  72 ;0dff - 0e04 keypad buffer - most recent in 0e04
  73 ;0e05   array index of the array to follow
  74 ;0e06 - ?? array of digits*10
  75 ;1000
  76 ;1009
  77 ;1026
  78 ;1028   SPCR (Serial Peripheral Control Register)
  79 ;1030
  80 ;103c
  81
  82
  83 ;1016 - timer output compare 1 register
  84
  85 ;1800  Internal switches
  86 ;   7 changer INT'
  87 ;   6 Sold out.
  88 ;   5 Door open
  89 ;   4 $0.05
  90 ;   3 $0.10
  91 ;   2 $0.25
  92 ;   1 $1
  93 ;   0 Mode
  94 ;2000  Misc inputs
  95 ;   7 R2 of MAX232
  96 ;   6 Printer DSR
  97 ;   5 Win-a-snack
  98 ;   4 Multi
  99 ;   3 Promotional
 100 ;   2 Force?
 101 ;   1 Language selection
 102 ;   0 Language selection
 103 ;Rows are numbered 1-9, skipping 5.  There is no row 5.
 104 ;2800   home sensors
 105 ;       7  row 9
 106 ;       6  row 8
 107 ;       5  row 7
 108 ;       4  row 6
 109 ;       3  row 4
 110 ;       2  row 3
 111 ;       1  row 2
 112 ;       0  row 1
 113 ;Motor driver data is sent cols 7, 6, 5, 4, 3, 2, 1, 0 rows 9, 8, 7, 6, 4, 3, 2
 114 ;1.  Cols 8 and 9 are separate outputs (they ran out of driver chip outputs).
 115 ;Motor driver column output enable is PA6
 116 ;Motor driver serial clock is PA5
 117 ;It looks like motor overcurrent sense is on PE1 (PE1 will be low if a motor
 118 ;is drawing too much current)
 119 ; the changer speaks at 600 baud, where as the coin validator speaks
 120 ; 9600 baud. and printer at 2400.
 121 ;3000   changer outputs
 122 ;       7  motor driver row output enable
 123 ;       6  /$1.00
 124 ;       5  /$.25
 125 ;       4  /$.10
 126 ;       3  /$.05
 127 ;       2  RESET
 128 ;       1  /SEND
 129 ;       0  /ACCEPT
 130 ;3800   misc outputs
 131 ;       7  not used
 132 ;       6  col 9 motor driver
 133 ;       5  col 8 motor driver
 134 ;       4  motor driver serial data
 135 ;       3  display write (clock) enable (active high)
 136 ;       2  keypad strobe
 137 ;       1  note acceptor connector
 138 ;       0  note acceptor connector
 139
 140 ;-------
 141 ; Ports
 142 ;-------
 143
 144 ; PortA - Data: 0x1000, DDR for PA7 & PA3 in 0x1026
 145 ; PA7 display reset (active low)
 146 ; PA6 enables motor column drivers (when low)
 147 ; PA5 clocks snack motor drivers (U16 5890 = serial-input latched source drivers (latch unused))
 148 ; PA4 beepy thang (active high)
 149 ; PA3 high - talking to coin vendie, low - talking to printer. (through PD1)
 150 ; PA2 coin dispenser pin 6 (does what???)
 151 ; PA1 bill validator 2
 152 ; PA0 bill validator 1
 153
 154 ; PortB - not used directly
 155 ; PB7 Address lines 8-15
 156 ; PB6
 157 ; PB5
 158 ; PB4
 159 ; PB3
 160 ; PB2
 161 ; PB1
 162 ; PB0
 163
 164 ; PortC - Data: 0x1003, Latch: 0x1005, DDR: 0x1007
 165 ; PC7 Data Bus 0-7 / Address bus 0-7
 166 ; PC6
 167 ; PC5
 168 ; PC4
 169 ; PC3
 170 ; PC2
 171 ; PC1
 172 ; PC0
 173
 174 ; PortD - Data: 0x1008, DDR: 0x1009
 175 ; PD7 n/c
 176 ; PD6 n/c
 177 ; PD5 keypad row select (output)
 178 ; PD4 SPI - keypad & display clock signal (output)
 179 ; PD3 display data (output)
 180 ; PD2 keypad data (input)
 181 ; PD1 RX of SCI - to coin disp or printer depending on PA3
 182 ; PD0 TX of SCI - to coin disp or printer depending on PA3
 183
 184 ; PortE - Data: 0x100A
 185 ; PE7 <unused>
 186 ; PE6 <unused>
 187 ; PE5 <unused>
 188 ; PE4 <unused>
 189 ; PE3 goes high when 24VUN line is too low
 190 ; PE2 remote no-sale switch (active low)
 191 ; PE1 motor overvoltage sense (active high)
 192 ; PE0 motor overcurrent sense (active low)
 193
 194 ; Current status:
 195 ;  JSR mapped out
 196 ;  JMP mapped out
 197
 198 ; TODO:
 199
 200 8000 43              C     coma
 201 8001 20 50            P    bra 50
 202 8003 4F              O     clra
 203 8004 57              W     asrb
 204 8005 45              E     illegal
 205 8006 52              R     illegal
 206 8007 20 43            C    bra 43
 207 8009 4F              O     clra
 208 800A 4D              M     tsta
 209 800B 50              P     negb
 210 800C 41              A     illegal
 211 800D 4E              N     illegal
 212 800E 59              Y     rolb
 213 800F 00              .     test
 214 8010 43              C     coma
 215 8011 4F              O     clra
 216 8012 50              P     negb
 217 8013 59              Y     rolb
 218 8014 52              R     illegal
 219 8015 49              I     rola
 220 8016 47              G     asra
 221 8017 48              H     asla
 222 8018 54              T     lsrb
 223 8019 20 31            1    bra 31
 224 801B 39              9     rts
 225 801C 39              9     rts
 226 801D 33              3     pulb
 227 801E 20 00            .    bra 00
 228 8020 20 20                 bra 20
 229 8022 20 20                 bra 20
 230 8024 20 20                 bra 20
 231 8026 20 20                 bra 20
 232 8028 20 20                 bra 20
 233 802A 20 20                 bra 20
 234 802C 20 20                 bra 20
 235 802E 20 00            .    bra 00
 236 8030 56              V     rorb
 237 8031 45              E     illegal
 238 8032 4E              N     illegal
 239 8033 44              D     lsra
 240 8034 49              I     rola
 241 8035 4E              N     illegal
 242 8036 47              G     asra
 243 8037 20 4D            M    bra 4d
 244 8039 41              A     illegal
 245 803A 43              C     coma
 246 803B 48              H     asla
 247 803C 49              I     rola
 248 803D 4E              N     illegal
 249 803E 45              E     illegal
 250 803F 00              .     test
 251 8040 53              S     comb
 252 8041 4F              O     clra
 253 8042 46              F     rora
 254 8043 54              T     lsrb
 255 8044 57              W     asrb
 256 8045 41              A     illegal
 257 8046 52              R     illegal
 258 8047 45              E     illegal
 259 8048 20 57            W    bra 57
 260 804A 52              R     illegal
 261 804B 4F              O     clra
 262 804C 54              T     lsrb
 263 804D 45              E     illegal
 264 804E 20 00            .    bra 00
 265 8050 42              B     illegal
 266 8051 59              Y     rolb
 267 8052 20 42            B    bra 42
 268 8054 52              R     illegal
 269 8055 45              E     illegal
 270 8056 54              T     lsrb
 271 8057 20 42            B    bra 42
 272 8059 4F              O     clra
 273 805A 52              R     illegal
 274 805B 45              E     illegal
 275 805C 4E              N     illegal
 276 805D 2E 20           .     bgt 20
 277 805F 00              .     test
 278 8060 20 20                 bra 20
 279 8062 20 20                 bra 20
 280 8064 20 20                 bra 20
 281 8066 20 20                 bra 20
 282 8068 20 20                 bra 20
 283 806A 20 20                 bra 20
 284 806C 20 20                 bra 20
 285 806E 20 00            .    bra 00
 286 8070 50              P     negb
 287 8071 52              R     illegal
 288 8072 4F              O     clra
 289 8073 47              G     asra
 290 8074 52              R     illegal
 291 8075 41              A     illegal
 292 8076 4D              M     tsta
 293 8077 20 46            F    bra 46
 294 8079 4F              O     clra
 295 807A 52              R     illegal
 296 807B 20 54            T    bra 54
 297 807D 48              H     asla
 298 807E 45              E     illegal
 299 807F 00              .     test
 300 8080 35              5     txs
 301 8081 30              0     tsx
 302 8082 35              5     txs
 303 8083 20 41            A    bra 41
 304 8085 4E              N     illegal
 305 8086 44              D     lsra
 306 8087 20 35            5    bra 35
 307 8089 39              9     rts
 308 808A 30              0     tsx
 309 808B 30              0     tsx
 310 808C 2E 20           .     bgt 20
 311 808E 20 00            .    bra 00
 312 8090 20 20                 bra 20
 313 8092 20 20                 bra 20
 314 8094 20 20                 bra 20
 315 8096 20 20                 bra 20
 316 8098 20 20                 bra 20
 317 809A 20 20                 bra 20
 318 809C 20 20                 bra 20
 319 809E 20 00            .    bra 00
 320 80A0 50              P     negb
 321 80A1 41              A     illegal
 322 80A2 52              R     illegal
 323 80A3 54              T     lsrb
 324 80A4 20 4E            N    bra 4e
 325 80A6 55              U     illegal
 326 80A7 4D              M     tsta
 327 80A8 42              B     illegal
 328 80A9 45              E     illegal
 329 80AA 52              R     illegal
 330 80AB 3A              :     abx
 331 80AC 20 20                 bra 20
 332 80AE 20 00            .    bra 00
 333 80B0 39              9     rts
 334 80B1 33              3     pulb
 335 80B2 37              7     pshb
 336 80B3 2D 33           -3    blt 33
 337 80B5 30              0     tsx
 338 80B6 30              0     tsx
 339 80B7 30              0     tsx
 340 80B8 31              1     ins
 341 80B9 20 56            V    bra 56
 342 80BB 45              E     illegal
 343 80BC 52              R     illegal
 344 80BD 20 35            5    bra 35
 345 80BF 00              .     test
 346 80C0 43              C     coma
 347 80C1 48              H     asla
 348 80C2 45              E     illegal
 349 80C3 43              C     coma
 350 80C4 4B              K     illegal
 351 80C5 53              S     comb
 352 80C6 55              U     illegal
 353 80C7 4D              M     tsta
 354 80C8 20 45            E    bra 45
 355 80CA 4E              N     illegal
 356 80CB 44              D     lsra
 357 80CC 3A              :     abx
 358 80CD 30              0     tsx
 359 80CE 30              0     tsx
 360 80CF 00              .     test
 361 80D0 20 20                 bra 20
 362 80D2 20 20                 bra 20
 363 80D4 20 20                 bra 20
 364 80D6 20 20                 bra 20
 365 80D8 20 20                 bra 20
 366 80DA 20 20                 bra 20
 367 80DC 20 20                 bra 20
 368 80DE 20 00            .    bra 00
 369 80E0 20 20                 bra 20
 370 80E2 20 20                 bra 20
 371 80E4 20 20                 bra 20
 372 80E6 20 20                 bra 20
 373 80E8 20 20                 bra 20
 374 80EA 20 20                 bra 20
 375 80EC 20 20                 bra 20
 376 80EE 20 00            .    bra 00
 377 80F0 20 20                 bra 20
 378 80F2 20 20                 bra 20
 379 80F4 20 20                 bra 20
 380 80F6 20 20                 bra 20
 381 80F8 00              .     test
 382 80F9 20 0C            .    bra 0c
 383 80FB 93 73 00        .s.   subd 73
 384 80FE 01              .     nop
 385 80FF 05              .     asld
 386
 387 jump72:
 388 ; initial menu when door opens?
 389 8100 F6 00 1D        ...   ldab 001d
 390 8103 C4 10           ..    andb #10
 391 8105 27 3D           '=    beq 3d
 392 8107 BD D6 52        ..R   jsr d652             ;jump5
 393 810A CE 00 1D        ...   ldx #001d
 394 810D 1D 00 10        ...   bclr 00,x, #10
 395 8110 CE 00 1D        ...   ldx #001d
 396 8113 1C 00 80        ..    bset 00,x, #80
 397 8116 7F 00 42        ..    clr 0042
 398 8119 7F 00 60        ..`   clr 0060
 399 811C 7F 00 48        ..H   clr 0048
 400 811F 7F 00 38        ..8   clr 0038
 401 8122 F6 0B A8        ...   ldab 0ba8
 402 8125 27 08           '.    beq 08
 403 8127 CE 0B A9        ...   ldx #0ba9
 404 812A 1C 00 02        ..    bset 00,x, #02
 405 812D 20 06            .    bra 06
 406 812F CE 0B A9        ...   ldx #0ba9
 407 8132 1D 00 02        ...   bclr 00,x, #02
 408 8135 7F 0E 00        ...   clr 0e00
 409 8138 7F 0E 01        ...   clr 0e01
 410 813B 7F 0E 02        ...   clr 0e02
 411 813E 7F 0E 03        ...   clr 0e03
 412 8141 7F 0E 04        ...   clr 0e04
 413 8144 F6 00 42        ..B   ldab 0042
 414 8147 C1 0B           ..    cmpb #0b
 415 8149 26 0F           &.    bne 0f
 416 814B BD AB 89        ...   jsr ab89             ;jump7
 417 814E 7F 00 19        ...   clr 0019
 418 8151 7F 00 60        ..`   clr 0060
 419 8154 7F 00 42        ..B   clr 0042
 420 8157 BD E6 1B        ...   jsr e61b             ;jump4
 421 815A F6 0B A8        ...   ldab 0ba8
 422 815D 26 03           &.    bne 03
 423 815F 7E 81 EF        ~..   jmp 81ef             ;goto1
 424 8162 F6 00 60        ..`   ldab 0060
 425 8165 C1 04           ..    cmpb #04
 426 8167 24 28           $(    bcc 28
 427 8169 F6 00 42        ..B   ldab 0042
 428 816C 27 21           '!    beq 21
 429 816E F6 00 42        ..B   ldab 0042
 430 8171 C1 0A           ..    cmpb #0a
 431 8173 26 03           &.    bne 03
 432 8175 7F 00 42        ..B   clr 0042
 433 8178 F6 00 42        ..B   ldab 0042
 434 817B CB 30           .0    addb #30
 435 817D 37              7     pshb
 436 817E F6 00 60        ..`   ldab 0060
 437 8181 4F              O     clra
 438 8182 C3 00 62        ..b   addd #0062
 439 8185 8F              .     xgdx
 440 8186 33              3     pulb
 441 8187 E7 00           ..    stab 00,x
 442 8189 7F 00 42        ..B   clr 0042
 443 818C 7C 00 60        |.`   inc 0060
 444 818F 20 5C            \    bra 5c
 445 8191 F6 00 62        ..b   ldab 0062
 446 8194 F1 0B A4        ...   cmpb 0ba4
 447 8197 26 3D           &=    bne 3d
 448 8199 F6 00 63        ..c   ldab 0063
 449 819C F1 0B A5        ...   cmpb 0ba5
 450 819F 26 35           &5    bne 35
 451 81A1 F6 00 64        ..d   ldab 0064
 452 81A4 F1 0B A6        ...   cmpb 0ba6
 453 81A7 26 2D           &-    bne 2d
 454 81A9 F6 00 65        ..e   ldab 0065
 455 81AC F1 0B A7        ...   cmpb 0ba7
 456 81AF 26 25           &%    bne 25
 457 81B1 CE 0B A9        ...   ldx #0ba9
 458 81B4 1D 00 02        ...   bclr 00,x, #02
 459 81B7 CE 00 1F        ...   ldx #001f
 460 81BA 1C 00 04        ..    bset 00,x, #04
 461 81BD CE 00 1F        ...   ldx #001f
 462 81C0 1C 00 80        ...   bset 00,x, #80
 463 81C3 CE 00 1D        ...   ldx #001d
 464 81C5 1C 00 10        ...   bset 00,x, #10
 465 81C9 CC 02 33        ..3   ldd #0233
 466 81CC FD 00 3B        ..;   std 003b
 467 81CF C6 05           ..    ldab #05
 468 81D1 F7 00 38        ..8   stab 0038
 469 81D4 20 17            .    bra 17
 470 81D6 7F 00 42        ..B   clr 0042
 471 81D9 7F 00 60        ..`   clr 0060
 472 81DC BD BE 69        ..i   jsr be69         ;displayreset
 473 81DF BD BE 4B        ..K   jsr be4b         ;displayblank
 474 81E2 CC B0 81        ...   ldd #b081    ;"NO  ACCESS"
 475 81E5 BD C0 BA        ...   jsr c0ba         ;display:
 476 81E8 C6 0A           ..    ldab #0a
 477 81EA F7 00 38        ..8   stab 0038
 478 81ED 20 03            .    bra 03
 479 goto1:
 480 81EF 7F 00 42        ..B   clr 0042
 481 81F2 F6 00 38        ..8   ldab 0038
 482 81F5 27 03           '.    beq 03
 483 81F7 7E 84 9F        ~..   jmp 849f             ;goto2
 484 81FA BD BE 4B        ..K   jsr be4b             ;displayblank
 485 81FD F6 00 48        ..H   ldab 0048
 486 8200 26 03           &.    bne 03
 487 8202 BD AB A2        ...   jsr aba2             ;jump8
 488 8205 F6 00 48        ..H   ldab 0048
 489 8208 4F              O     clra
 490 8209 BD FE 16        ...   jsr fe16             ;jump2
 491 820C 00 00                 ; hmmm.
 492 820E 00 0D           ....  ; list len-2
 493 8210 84 9F           ..
 494 8212 82 2E           ..
 495 8214 82 50           .P
 496 8216 82 B7           ..
 497 8218 82 D9           ..
 498 821A 83 40           .@
 499 821C 83 62           ..
 500 821E 83 A5           ..
 501 8220 82 C2           ..
 502 8222 83 DF           ..
 503 8224 83 FC           ..
 504 8226 84 19           ..
 505 8228 84 35           .5
 506 822A 84 51           .Q
 507 822C 84 78           .x    ; end of jump2 data
 508 822E F6 00 19        ...   ldab 0019
 509 8231 C4 01           ..    andb #01
 510 8233 27 13           '.    beq 13
 511 8235 CC AF F2        ...   ldd #aff2    ;"OVER CRNT="
 512 8238 BD C0 BA        ...   jsr c0ba             ;display:
 513 823B C6 0A           ..    ldab #0a
 514 823D F7 00 38        ..8   stab 0038
 515 8240 7F 00 54        ..T   clr 0054
 516 8243 7C 00 48        |.H   inc 0048
 517 8246 20 05            .    bra 05
 518 8248 C6 02           ..    ldab #02
 519 824A F7 00 48        ..H   stab 0048
 520 824D 7E 84 9F        ~..   jmp 849f             ;goto2
 521 8250 F6 00 54        ..T   ldab 0054
 522 8253 4F              O     clra
 523 8254 CE 00 05        ...   ldx #0005
 524 8257 02              .     idiv
 525 8258 5D              ]     tstb
 526 8259 27 4C           'L    beq 4c
 527 825B F6 00 54        ..T   ldab 0054
 528 825E F7 00 06        ...   stab 0006
 529 8261 F6 00 06        ...   ldab 0006
 530 8264 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
 531 8267 83 00 00        ...   subd #0000
 532 826A 27 15           '.    beq 15
 533 826C CC 7F FF        ...   ldd #7fff
 534 826F 37              7     pshb
 535 8270 36              6     psha
 536 8271 F6 00 06        ...   ldab 0006
 537 8274 4F              O     clra
 538 8275 05              .     asld
 539 8276 C3 08 00        ...   addd #0800
 540 8279 38              8     pulx
 541 827A 8F              .     xgdx
 542 827B A4 00           ..    anda 00,x
 543 827D E4 01           ..    andb 01,x
 544 827F ED 00           ..    std 00,x
 545 8281 F6 00 54        ..T   ldab 0054
 546 8284 4F              O     clra
 547 8285 05              .     asld
 548 8286 C3 08 00        ...   addd #0800
 549 8289 8F              .     xgdx
 550 828A EC 00           ..    ldd 00,x
 551 828C 84 80           ..    anda #80
 552 828E 27 17           '.    beq 17
 553 8290 F6 00 54        ..T   ldab 0054
 554 8293 4F              O     clra
 555 8294 05              .     asld
 556 8295 C3 08 C8        ...   addd #08c8
 557 8298 8F              .     xgdx
 558 8299 EC 00           ..    ldd 00,x
 559 829B 84 02           ..    anda #02
 560 829D 27 08           '.    beq 08
 561 829F BD 98 A5        ...   jsr 98a5             ;jump11
 562 82A2 C6 0A           ..    ldab #0a
 563 82A4 F7 00 38        ..8   stab 0038
 564 82A7 7C 00 54        |.T   inc 0054
 565 82AA F6 00 54        ..T   ldab 0054
 566 82AD C1 64           .d    cmpb #64
 567 82AF 26 03           &.    bne 03
 568 82B1 7C 00 48        |.H   inc 0048
 569 82B4 7E 84 9F        ~..   jmp 849f             ;goto2
 570 82B7 F6 00 19        ...   ldab 0019
 571 82BA C4 02           ..    andb #02
 572 82BC 27 13           '.    beq 13
 573 82BE CC AF FD        ...   ldd #affd    "HOME FAIL="
 574 82C1 BD C0 BA        ...   jsr c0ba             ;display:
 575 82C4 C6 0A           ..    ldab #0a
 576 82C6 F7 00 38        ..8   stab 0038
 577 82C9 7F 00 54        ..T   clr 0054
 578 82CC 7C 00 48        |.H   inc 0048
 579 82CF 20 05            .    bra 05
 580 82D1 C6 04           ..    ldab #04
 581 82D3 F7 00 48        ..H   stab 0048
 582 82D6 7E 84 9F        ~..   jmp 849f             ;goto2
 583 82D9 F6 00 54        ..T   ldab 0054
 584 82DC 4F              O     clra
 585 82DD CE 00 05        ...   ldx #0005
 586 82E0 02              .     idiv
 587 82E1 5D              ]     tstb
 588 82E2 27 4C           'L    beq 4c
 589 82E4 F6 00 54        ..T   ldab 0054
 590 82E7 F7 00 06        ...   stab 0006
 591 82EA F6 00 06        ...   ldab 0006
 592 82ED BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
 593 82F0 83 00 00        ...   subd #0000
 594 82F3 27 15           '.    beq 15
 595 82F5 CC 7F FF        ...   ldd #7fff
 596 82F8 37              7     pshb
 597 82F9 36              6     psha
 598 82FA F6 00 06        ...   ldab 0006
 599 82FD 4F              O     clra
 600 82FE 05              .     asld
 601 82FF C3 08 00        ...   addd #0800
 602 8302 38              8     pulx
 603 8303 8F              .     xgdx
 604 8304 A4 00           ..    anda 00,x
 605 8306 E4 01           ..    andb 01,x
 606 8308 ED 00           ..    std 00,x
 607 830A F6 00 54        ..T   ldab 0054
 608 830D 4F              O     clra
 609 830E 05              .     asld
 610 830F C3 08 00        ...   addd #0800
 611 8312 8F              .     xgdx
 612 8313 EC 00           ..    ldd 00,x
 613 8315 84 80           ..    anda #80
 614 8317 27 17           '.    beq 17
 615 8319 F6 00 54        ..T   ldab 0054
 616 831C 4F              O     clra
 617 831D 05              .     asld
 618 831E C3 08 C8        ...   addd #08c8
 619 8321 8F              .     xgdx
 620 8322 EC 00           ..    ldd 00,x
 621 8324 84 04           ..    anda #04
 622 8326 27 08           '.    beq 08
 623 8328 BD 98 A5        ...   jsr 98a5             ;jump11
 624 832B C6 0A           ..    ldab #0a
 625 832D F7 00 38        ..8   stab 0038
 626 8330 7C 00 54        |.T   inc 0054
 627 8333 F6 00 54        ..T   ldab 0054
 628 8336 C1 64           .d    cmpb #64
 629 8338 26 03           &.    bne 03
 630 833A 7C 00 48        |.H   inc 0048
 631 833D 7E 84 9F        ~..   jmp 849f             ;goto2
 632 8340 F6 00 19        ...   ldab 0019
 633 8343 C4 04           ..    andb #04
 634 8345 27 13           '.    beq 13
 635 8347 CC B0 08        ...   ldd #b008    ; "CHK PRICES"
 636 834A BD C0 BA        ...   jsr c0ba             ;display:
 637 834D C6 0A           ..    ldab #0a
 638 834F F7 00 38        ..8   stab 0038
 639 8352 7F 00 54        ..T   clr 0054
 640 8355 7C 00 48        |.H   inc 0048
 641 8358 20 05            .    bra 05
 642 835A C6 06           ..    ldab #06
 643 835C F7 00 48        ..H   stab 0048
 644 835F 7E 84 9F        ~..   jmp 849f             ;goto2
 645 8362 F6 00 54        ..T   ldab 0054
 646 8365 4F              O     clra
 647 8366 CE 00 05        ...   ldx #0005
 648 8369 02              .     idiv
 649 836A 5D              ]     tstb
 650 836B 27 28           '(    beq 28
 651 836D F6 00 54        ..T   ldab 0054
 652 8370 F7 00 06        ...   stab 0006
 653 8373 F6 00 06        ...   ldab 0006
 654 8376 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
 655 8379 83 00 00        ...   subd #0000
 656 837C 26 17           &.    bne 17
 657 837E F6 00 54        ..T   ldab 0054
 658 8381 4F              O     clra
 659 8382 05              .     asld
 660 8383 C3 08 C8        ...   addd #08c8
 661 8386 8F              .     xgdx
 662 8387 EC 00           ..    ldd 00,x
 663 8389 84 01           ..    anda #01
 664 838B 27 08           '.    beq 08
 665 838D BD 98 A5        ...   jsr 98a5             ;jump11
 666 8390 C6 0A           ..    ldab #0a
 667 8392 F7 00 38        ..8   stab 0038
 668 8395 7C 00 54        |.T   inc 0054
 669 8398 F6 00 54        ..T   ldab 0054
 670 839B C1 64           .d    cmpb #64
 671 839D 26 03           &.    bne 03
 672 839F 7C 00 48        |.H   inc 0048
 673 83A2 7E 84 9F        ~..   jmp 849f             ;goto2
 674 ;
 675 83A5 F6 0B C1        ...   ldab 0bc1
 676 83A8 C4 01           ..    andb #01
 677 83AA 27 10           '.    beq 10
 678 83AC CC B0 34        ..4   ldd #b034    "CHGR PWRUP"
 679 83AF BD C0 BA        ...   jsr c0ba             ;display:
 680 83B2 7C 00 48        |.H   inc 0048
 681 83B5 C6 0A           ..    ldab #0a
 682 83B7 F7 00 38        ..8   stab 0038
 683 83BA 20 03            .    bra 03
 684 83BC 7C 00 48        |.H   inc 0048
 685 83BF 7E 84 9F        ~..   jmp 849f             ;goto2
 686 83C2 F6 0B C1        ...   ldab 0bc1
 687 83C5 C4 02           ..    andb #02
 688 83C7 27 10           '.    beq 10
 689 83C9 CC B0 4A        ..J   ldd #b04a    "CARD PWRUP"
 690 83CC BD C0 BA        ...   jsr c0ba             ;display:
 691 83CF 7C 00 48        |.H   inc 0048
 692 83D2 C6 0A           ..    ldab #0a
 693 83D4 F7 00 38        ..8   stab 0038
 694 83D7 20 03            .    bra 03
 695 83D9 7C 00 48        |.H   inc 0048
 696 83DC 7E 84 9F        ~..   jmp 849f             ;goto2
 697 83DF F6 0B C1        ...   ldab 0bc1
 698 83E2 C4 04           ..    andb #04
 699 83E4 27 10           '.    beq 10
 700 83E6 CC B0 3F        ..?   ldd #b03f    "LINK PWRUP"
 701 83E9 BD C0 BA        ...   jsr c0ba             ;display:
 702 83EC 7C 00 48        |.H   inc 0048
 703 83EF C6 0A           ..    ldab #0a
 704 83F1 F7 00 38        ..8   stab 0038
 705 83F4 20 03            .    bra 03
 706 83F6 7C 00 48        |.H   inc 0048
 707 83F9 7E 84 9F        ~..   jmp 849f             ;goto2
 708 83FC F6 0B C1        ...   ldab 0bc1
 709 83FF C4 10           ..    andb #10
 710 8401 27 10           '.    beq 10
 711 8403 CC B0 1E        ...   ldd #b01e    "COIN   JAM"
 712 8406 BD C0 BA        ...   jsr c0ba             ;display:
 713 8409 7C 00 48        |.H   inc 0048
 714 840C C6 0A           ..    ldab #0a
 715 840E F7 00 38        ..8   stab 0038
 716 8411 20 03            .    bra 03
 717 8413 7C 00 48        |.H   inc 0048
 718 8416 7E 84 9F        ~..   jmp 849f             ;goto2
 719 8419 F6 0B C1        ...   ldab 0bc1
 720 841C C4 20           .     andb #20
 721 841E 27 10           '.    beq 10
 722 8420 CC B0 29        ..)   ldd #b029    "BAD SENSOR"
 723 8423 BD C0 BA        ...   jsr c0ba             ;display:
 724 8426 7C 00 48        |.H   inc 0048
 725 8429 C6 0A           ..    ldab #0a
 726 842B F7 00 38        ..8   stab 0038
 727 842E 20 03            .    bra 03
 728 8430 7C 00 48        |.H   inc 0048
 729 8433 20 6A            j    bra 6a
 730 8435 F6 0B C1        ...   ldab 0bc1
 731 8438 C4 08           ..    andb #08
 732 843A 27 10           '.    beq 10
 733 843C CC B0 55        ..U   ldd #b055    "BILL ERROR"
 734 843F BD C0 BA        ...   jsr c0ba             ;display:
 735 8442 7C 00 48        |.H   inc 0048
 736 8445 C6 0A           ..    ldab #0a
 737 8447 F7 00 38        ..8   stab 0038
 738 844A 20 03            .    bra 03
 739 844C 7C 00 48        |.H   inc 0048
 740 844F 20 4E            N    bra 4e
 741 8451 F6 0B C1        ...   ldab 0bc1
 742 8454 C4 40           .@    andb #40
 743 8456 27 10           '.    beq 10
 744 8458 CC B0 60        ..`   ldd #b060    "TUBE ERROR"
 745 845B BD C0 BA        ...   jsr c0ba             ;display:
 746 845E 7F 00 48        ..H   clr 0048
 747 8461 C6 0A           ..    ldab #0a
 748 8463 F7 00 38        ..8   stab 0038
 749 8466 20 0E            .    bra 0e
 750 8468 7F 00 48        ..H   clr 0048
 751 846B CC B0 13        ...   ldd #b013    "HIT RESET "
 752 846E BD C0 BA        ...   jsr c0ba              ;display:
 753 8471 C6 0A           ..    ldab #0a
 754 8473 F7 00 38        ..8   stab 0038
 755 8476 20 27            '    bra 27       ; to 849f (exit)
 756 8478 F6 00 1D        ...   ldab 001d
 757 847B 2C 0E           ,.    bge 0e
 758 847D CC AE A8        ...   ldd #aea8    "  SYSTEM  "
 759 8480 BD C0 BA        ...   jsr c0ba             ;display:
 760 8483 CE 00 1D        ...   ldx #001d
 761 8486 1D 00 80        ..    bclr 00,x, #80
 762 8489 20 0C           .     bra 0c       ; to 8496
 763 848B CC AE B3        ...   ldd #aeb3    "    OK    "
 764 848E BD C0 BA        ...   jsr c0ba             ;display:
 765 8491 CE 00 1D        ...   ldx #001d
 766 8494 1C 00 80        ..    bset 00,x, #80
 767 8496 C6 0F           ..    ldab #0f
 768 8499 F7 00 38        ..8   stab 0038
 769 849C 7F 00 48        ..H   clr 0048
 770 goto2:
 771 849F 39              9     rts
 772
 773 jump73:
 774 ; service mode menu?
 775 84A0 FC 00 3B        ..;   ldd 003b
 776 84A3 26 03           &.    bne 03
 777 84A5 7E 85 96        ~..   jmp 8596             ;goto3
 778 84A8 F6 00 1F        ...   ldab 001f
 779 84AB 2C 40           ,@    bge 40
 780 84AD BD D6 52        ..R   jsr d652             ;jump5
 781 84B0 7F 00 42        ..B   clr 0042
 782 84B3 7F 00 09        ...   clr 0009
 783 84B6 7F 00 0A        ...   clr 000a
 784 84B9 7F 00 06        ...   clr 0006
 785 84BC 5F              _     clrb
 786 84BD 4F              O     clra
 787 84BE FD 00 40        ..@   std 0040
 788 84C1 5F              _     clrb
 789 84C2 4F              O     clra
 790 84C3 FD 00 3E        ..>   std 003e
 791 84C6 BD E5 AA        ...   jsr e5aa             ;jump12
 792 84C9 CE 00 1F        ...   ldx #001f
 793 84CC 1D 00 80        ..    bclr 00,x, #80
 794 84CF CE 00 1F        ..    ldx #001f
 795 84D2 1C 00 02        ....  bset 00,x, #02
 796 84D5 CE 00 1D        ...   ldx #001d
 797 84D8 1C 00 10        ..    bset 00,x, #10
 798 84DB CE 00 17        ...   ldx #0017
 799 84DE 1D 00 20        ..    bclr 00,x, #20
 800 84E0 CE 00 17         .    ldx #0017
 801 84E4 1D 00 40        ..    bclr 00,x, #40
 802 84E7 CE 00 17        ...   ldx #0017
 803 84EA 1D 00 80        ..    bclr 00,x, #80
 804 84EC F6 0B A9        ...   ldab 0ba9
 805 84F0 C4 02           ..    andb #02
 806 84F2 27 20           '     beq 20       ; to 8414
 807 84F4 F6 00 42        ..B   ldab 0042
 808 84F7 4F              O     clra
 809 84F8 C3 0B E4        ...   addd #0be4
 810 84FB 8F              .     xgdx
 811 84FC E6 00           ..    ldab 00,x
 812 84FE 27 14           '.    beq 14
 813 8500 BD BE 4B        ..K   jsr be4b             ;displayblank
 814 8503 CC B0 81        ...   ldd #b081    ;"NO  ACCESS"
 815 8506 BD C0 BA        ...   jsr c0ba             ;display:
 816 8509 CC 02 58        ..X   ldd #0258    ;600
 817 850C BD E5 71        ..q   jsr e571             ;msdelay
 818 850F BD 85 AF        ...   jsr 85af             ;jump14
 819 8512 20 6C            l    bra 6c       ; to 8580
 820 ;
 821 8514 F6 00 42        ..B   ldab 0042
 822 8517 4F              O     clra
 823 8518 BD FE 16        ...   jsr fe16             ;jump2
 824 851B 00 00           .
 825 851C 00 0B           .
 826 851F 85 80           ..    ; default action - leave menu?
 827 8521 85 39           .9    ; 0 - no key pressed
 828 8523 85 4A           .J    ; key 1 - changer loading & calibration
 829 8525 85 4F           .O    ; key 2 - win-a-snack odds programming
 830 8527 85 54           .T    ; key 3 - set pricing
 831 8529 85 59           .Y    ; key 4 - smart shopping discount
 832 852B 85 5E           .^    ; key 5 - manual peripheral config
 833 852D 85 63           .c    ; key 6 - promo vend-pair programming
 834 852F 85 68           .h    ; key 7 - POS message & serial id
 835 8531 85 6D           .m    ; key 8 - print info
 836 8533 85 72           .r    ; key 9 - security code programming
 837 8535 85 77           .w    ; key 0 - motor menu
 838 8537 85 7C           .|    ; reset key -
 839 ;
 840 8539 CC AE 92        ...   ldd #ae92    "-         "
 841 853C BD C0 BA        ...   jsr c0ba         ;display:
 842 853F 7F 00 42        ..B   clr 0042
 843 8542 CE 00 1F        ...   ldx #001f
 844 8545 1C 00 02        ..    bset 00,x, #02
 845 8548 20 36            6    bra 36
 846 854A BD 86 84        ...   jsr 8684             ;jump15
 847 854D 20 31            1    bra 31
 848 854F BD 88 2E        ...   jsr 882e             ;jump16
 849 8552 20 2C            ,    bra 2c
 850 8554 BD 88 B8        ...   jsr 88b8             ;jump17
 851 8557 20 27            '    bra 27
 852 8559 BD 8C B4        ...   jsr 8cb4             ;jump18
 853 855C 20 22            "    bra 22
 854 855E BD 8E 35        ..5   jsr 8e35             ;jump19
 855 8561 20 1D            .    bra 1d
 856 8563 BD 8F 0D        ...   jsr 8f0d             ;jump20
 857 8566 20 18            .    bra 18
 858 8568 BD 90 D1        ...   jsr 90d1             ;jump21
 859 856B 20 13            .    bra 13
 860 856D BD 92 EE        ...   jsr 92ee             ;jump22
 861 8570 20 0E            .    bra 0e
 862 8572 BD 93 A5        ...   jsr 93a5             ;jump23
 863 8575 20 09            .    bra 09
 864 8577 BD 94 DD        ...   jsr 94dd             ;jump24
 865 857A 20 04            .    bra 04
 866 857C 8D 31           .1    bsr 31       ;jump14
 867 857E 20 00            .    bra 00
 868 ;
 869 8580 7F 00 0A        ...   clr 000a
 870 8583 F6 00 42        ..B   ldab 0042
 871 8586 C1 0A           ..    cmpb #0a
 872 8588 27 0A           '.    beq 0a
 873 858A F6 00 42        ..B   ldab 0042
 874 858D C1 07           ..    cmpb #07
 875 858F 27 03           '.    beq 03
 876 8591 7F 00 09        ...   clr 0009
 877 8594 20 18            .    bra 18
 878 goto3:
 879 8596 CE 00 1F        ...   ldx #001f
 880 8599 1D 00 04        ...   bclr 00,x, #04
 881 859C CE 00 1F        ...   ldx #001f
 882 859F 1C 00           ..    bset 00,x, #80
 883 85A2 CE 00 1D        ...   ldx #001d
 884 85A5 1C 00 10        ...   bset 00,x, #10
 885 85A8 BD BE 69        ..i   jsr be69             ;displayreset
 886 85AB BD E5 AA        ...   jsr e5aa             ;jump12
 887 85AE 39              9     rts
 888
 889 jump14:
 890 85AF 7F 00 42        ..B   clr 0042
 891 85B2 7F 00 06        ...   clr 0006
 892 85B5 CE 00 1F        ...   ldx #001f
 893 85B8 1C 00 02        ..    bset 00,x, #02
 894 85BB BD BE 69        ..i   jsr be69             ;displayreset
 895 85BE 39              9     rts
 896
 897 jump28:
 898 85BF F6 00 12        ...   ldab 0012
 899 85C2 C4 1E           ..    andb #1e     ; 00011110
 900 85C4 4F              O     clra
 901 85C5 BD FE 32        ..2   jsr fe32             ;jump25
 902 85C8 85 DE 00 0E     ....  ; 14  000 0111 0
 903 85CC 86 08 00 08     ....  ; 22  000 1011 0
 904 85D0 86 32 00 04     ....  ; 26  000 1101 0
 905 85D4 86 5C 00 02     ....  ; 28  000 1110 0
 906 85D8 86 83 FF E4     ....  ; 0
 907 85DC 00 00           ..    ; end of array
 908 85DE F6 0B DC        ...   ldab 0bdc
 909 85E1 F7 00 01        ...   stab 0001
 910 85E4 BD C4 30        ..0   jsr c430             ;jump26
 911 85E7 C6 01           ..    ldab #01
 912 85E9 F7 00 48        ..H   stab 0048
 913 85EC 7F 00 2C        ..,   clr 002c
 914 85EF F6 0C D9        ...   ldab 0cd9
 915 85F2 27 03           '.    beq 03
 916 85F4 7A 0C D9        z..   dec 0cd9
 917 85F7 BD 97 F6        ...   jsr 97f6             ;jump27
 918 85FA CC 01 5E        ..^   ldd #015e
 919 85FD BD E5 71        ..q   jsr e571             ;msdelay
 920 8600 CC 02 33        ..3   ldd #0233
 921 8603 FD 00 3B        ..;   std 003b
 922 8606 20 7B            {    bra 7b
 923 8608 F6 0B DB        ...   ldab 0bdb
 924 860B F7 00 01        ...   stab 0001
 925 860E BD C4 30        ..0   jsr c430             ;jump26
 926 8611 C6 02           ..    ldab #02
 927 8613 F7 00 48        ..H   stab 0048
 928 8616 7F 00 2C        ..,   clr 002c
 929 8619 F6 0C DA        ...   ldab 0cda
 930 861C 27 03           '.    beq 03
 931 861E 7A 0C DA        z..   dec 0cda
 932 8621 BD 97 F6        ...   jsr 97f6             ;jump27
 933 8624 CC 01 5E        ..^   ldd #015e
 934 8627 BD E5 71        ..q   jsr e571             ;msdelay
 935 862A CC 02 33        ..3   ldd #0233
 936 862D FD 00 3B        ..;   std 003b
 937 8630 20 51            Q    bra 51
 938 8632 F6 0B DA        ...   ldab 0bda
 939 8635 F7 00 01        ...   stab 0001
 940 8638 BD C4 30        ..0   jsr c430             ;jump26
 941 863B C6 03           ..    ldab #03
 942 863D F7 00 48        ..H   stab 0048
 943 8640 7F 00 2C        ..,   clr 002c
 944 8643 F6 0C DB        ...   ldab 0cdb
 945 8646 27 03           '.    beq 03
 946 8648 7A 0C DB        z..   dec 0cdb
 947 864B BD 97 F6        ...   jsr 97f6             ;jump27
 948 864E CC 01 5E        ..^   ldd #015e
 949 8651 BD E5 71        ..q   jsr e571             ;msdelay
 950 8654 CC 02 33        ..3   ldd #0233
 951 8657 FD 00 3B        ..;   std 003b
 952 865A 20 27            '    bra 27
 953 865C C6 40           .@    ldab #40
 954 865E F7 00 01        ...   stab 0001
 955 8661 BD C4 30        ..0   jsr c430             ;jump26
 956 8664 C6 04           ..    ldab #04
 957 8666 F7 00 48        ..H   stab 0048
 958 8669 7F 00 2C        ..,   clr 002c
 959 866C F6 0C DC        ...   ldab 0cdc
 960 866F 27 03           '.    beq 03
 961 8671 7A 0C DC        z..   dec 0cdc
 962 8674 BD 97 F6        ...   jsr 97f6             ;jump27
 963 8677 CC 01 5E        ..^   ldd #015e
 964 867A BD E5 71        ..q   jsr e571             ;msdelay
 965 867D CC 02 33        ..3   ldd #0233
 966 8680 FD 00 3B        ..;   std 003b
 967 8683 39              9     rts
 968
 969 jump15:
 970 ; changer load & calibrate menu
 971 8684 F6 00 1F        ...   ldab 001f
 972 8687 C4 02           ..    andb #02
 973 8689 27 2B           '+    beq 2b
 974 868B CE 00 1F        ...   ldx #001f
 975 868E 1D 00 02        ...   bclr 00,x, #02
 976 8691 C6 01           ..    ldab #01
 977 8693 F7 00 48        ..H   stab 0048
 978 8696 F6 0B C0        ...   ldab 0bc0
 979 8699 C4 01           ..    andb #01
 980 869B 27 16           '.    beq 16
 981 869D C6 27           .'    ldab #27
 982 869F F7 10 2D        ..-   stab 102d    ; disable SCI transmission
 983 86A2 C6 07           ..    ldab #07
 984 86A4 F7 10 2B        ..+   stab 102b    ; 600 baud
 985 86A7 CE 00 1A        ...   ldx #001a
 986 86AA 1D 00 01        ..    bclr 00,x, #01
 987 86AD F6 00 1A        ...   ldab 001a
 988 86B0 F7 30 00        .0.   stab 3000    ; changer accept on
 989 86B3 7E 87 E8        ~..   jmp 87e8             ;goto4
 990 86B6 F6 00 09        ...   ldab 0009
 991 86B9 4F              O     clra
 992 86BA BD FE 32        ..2   jsr fe32             ;jump25
 993 86BD 86 D7 00 00     ....  ; no key
 994 86C1 87 39 00 01     ....  ; key 1
 995 86C5 87 75 00 01     ....  ; key 2
 996 86C9 87 C5 00 08     ....  ; key 0
 997 86CD 87 D9 00 01     ....  ; key reset
 998 86D1 87 E8 FF F5     ....  ; no key
 999 86D5 00 00           ..    ; end of array data
1000 86D7 C6 FF           ..    ldab #ff
1001 86D9 F7 0B BC        ...   stab 0bbc
1002 86DC F6 18 00        ...   ldab 1800
1003 86DF 2D 29           -)    blt 29
1004 86E1 F6 00 07        ...   ldab 0007
1005 86E4 26 24           &$    bne 24
1006 86E6 CE 00 1A        ...   ldx #001a
1007 86E9 1D 00 02        ..    bclr 00,x, #02
1008 86EC F6 00 1A        ...   ldab 001a
1009 86EF F7 30 00        .0.   stab 3000    ; send msg to changer?
1010 86F2 CC 00 32        ..2   ldd #0032
1011 86F5 BD E5 71        ..q   jsr e571             ;msdelay
1012 86F8 CE 00 1A        ...   ldx #001a
1013 86FB 1C 00 02        ..    bset 00,x, #02
1014 86FE F6 00 1A        ...   ldab 001a
1015 8701 F7 30 00        .0.   stab 3000    ; turn changer send line off
1016 8704 CC 02 33        ..3   ldd #0233
1017 8707 FD 00 3B        ..;   std 003b
1018 870A 5F              _     clrb
1019 870B 4F              O     clra
1020 870C FD 00 40        ..@   std 0040
1021 870F 5F              _     clrb
1022 8710 4F              O     clra
1023 8711 FD 00 3E        ..>   std 003e
1024 8714 F6 0B C0        ...   ldab 0bc0
1025 8717 C4 01           ..    andb #01
1026 8719 27 03           '.    beq 03
1027 871B BD 85 BF        ...   jsr 85bf             ;jump28
1028 871E BD DC A3        ...   jsr dca3             ;jump29
1029 8721 BD 97 F6        ...   jsr 97f6             ;jump27
1030 8724 CE 00 17        ...   ldx #0017
1031 8727 1D 00           ..    bclr add,x 00,x
1032 8729 20 CE            .    bra ce
1033 872B 00              .     test
1034 872C 17              .     tba
1035 872D 1D 00 40        ...   bclr 00,x, #40
1036 8730 CE 00 17        ...   ldx #0017
1037 8733 1D 00           ..    bclr add,x 00,x
1038 8735 80 7E           .~    suba #7e
1039 8737 87              .     illegal
1040 8738 E8 F6           ..    eorb f6,x
1041 873A 00              .     test
1042 873B 36              6     psha
1043 873C 26 2F           &/    bne 2f
1044 873E F6 00 48        ..H   ldab 0048
1045 8741 4F              O     clra
1046 8742 BD FE 16        ...   jsr fe16             ;jump2
1047 8745 00 01 00 03     .     ; data for jump2
1048 8749 87 65           .
1049 874B 87 53           .
1050 874D 87 58           .
1051 874F 87 5D           .
1052 8751 87 62           .     ; end of data
1053 8753 7C 0C D9        |..   inc 0cd9
1054 8756 20 0D            .    bra 0d
1055 8758 7C 0C DA        |..   inc 0cda
1056 875B 20 08            .    bra 08
1057 875D 7C 0C DB        |..   inc 0cdb
1058 8760 20 03            .    bra 03
1059 8762 7C 0C DC        |..   inc 0cdc
1060 8765 BD 97 F6        ...   jsr 97f6             ;jump27
1061 8768 C6 02           ..    ldab #02
1062 876A F7 00 36        ..6   stab 0036
1063 876D CE 00 1B        ...   ldx #001b
1064 8770 1C 00 10        ...   bset 00,x, #10
1065 8773 20 73            s    bra 73
1066 8775 F6 00 36        ..6   ldab 0036
1067 8778 26 43           &C    bne 43
1068 877A F6 00 48        ..H   ldab 0048
1069 877D 4F              O     clra
1070 877E BD FE 16        ...   jsr fe16             ;jump2
1071 8781 00              .     test
1072 8782 01              .     nop
1073 8783 00              .     test
1074 8784 03              .     fdiv
1075 8785 87              .     illegal
1076 8786 B5 87 8F        ...   bita 878f
1077 8789 87              .     illegal
1078 878A 99 87 A3        ...   adca 87
1079 878D 87              .     illegal
1080 878E AD F6           ..    jsr f6,x
1081 8790 0C              .     clc
1082 8791 D9 27 03        .'.   adcb 27
1083 8794 7A 0C D9        z..   dec 0cd9
1084 8797 20 1C            .    bra 1c
1085 8799 F6 0C DA        ...   ldab 0cda
1086 879C 27 03           '.    beq 03
1087 879E 7A 0C DA        z..   dec 0cda
1088 87A1 20 12            .    bra 12
1089 87A3 F6 0C DB        ...   ldab 0cdb
1090 87A6 27 03           '.    beq 03
1091 87A8 7A 0C DB        z..   dec 0cdb
1092 87AB 20 08            .    bra 08
1093 87AD F6 0C DC        ...   ldab 0cdc
1094 87B0 27 03           '.    beq 03
1095 87B2 7A 0C DC        z..   dec 0cdc
1096 87B5 BD 97 F6        ...   jsr 97f6             ;jump27
1097 87B8 C6 02           ..    ldab #02
1098 87BA F7 00 36        ..6   stab 0036
1099 87BD CE 00 1B        ...   ldx #001b
1100 87C0 1C 00 10        ...   bset 00,x, #10
1101 87C3 20 23            #    bra 23
1102 87C5 7C 00 48        |.H   inc 0048
1103 87C8 F6 00 48        ..H   ldab 0048
1104 87CB C1 04           ..    cmpb #04
1105 87CD 23 05           #.    bls 05
1106 87CF C6 01           ..    ldab #01
1107 87D1 F7 00 48        ..H   stab 0048
1108 87D4 BD 97 F6        ...   jsr 97f6             ;jump27
1109 87D7 20 0F            .    bra 0f
1110 87D9 CE 00 1A        ...   ldx #001a
1111 87DC 1C 00 01        ..    bset 00,x, #01
1112 87DF F6 00 1A        ...   ldab 001a
1113 87E2 F7 30 00        .0.   stab 3000    ; turn changer accept line off
1114 87E5 BD 85 AF        ...   jsr 85af             ;jump14
1115 goto4:
1116 87E8 39              9     rts
1117
1118 jump74:
1119 ;motor count procedure
1120 87E9 7F 00 05        ...   clr 0005
1121 87EC 7F 00 54        ..T   clr 0054
1122 87EF F6 00 54        ..T   ldab 0054
1123 87F2 C1 50           .P    cmpb #50     ; 80
1124 87F4 24 2E           $.    bcc 2e       ; to 8824
1125 87F6 F6 00 54        ..T   ldab 0054
1126 87F9 4F              O     clra
1127 87FA C3 B0 D3        ...   addd #b0d3
1128 87FD 8F              .     xgdx
1129 87FE E6 00           ..    ldab 00,x
1130 8800 F7 00 06        ...   stab 0006
1131 8803 F6 00 06        ...   ldab 0006
1132 8806 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
1133 8809 83 00 00        ...   subd #0000
1134 880C 26 11           &.    bne 11
1135 880E BD D3 11        ...   jsr d311             ;jump30 - test it
1136 8811 83 00 00        ...   subd #0000
1137 8814 26 03           &.    bne 03
1138 8816 7C 00 05        |..   inc 0005
1139 8819 CC 00 05        ...   ldd #0005
1140 881C BD E5 71        ..q   jsr e571             ;msdelay
1141 881F 7C 00 54        |.T   inc 0054
1142 8822 20 CB            .    bra cb
1143 8824 BD 99 81        ...   jsr 9981             ;jump144 - write "MOTORS XX" (from 0005)
1144 8827 CC 07 D0        ...   ldd #07d0
1145 882A BD E5 71        ..q   jsr e571             ;msdelay
1146 882D 39              9     rts
1147
1148 jump16:
1149 882E F6 00 1F        ...   ldab 001f
1150 8831 C4 02           ..    andb #02
1151 8833 27 12           '.    beq 12
1152 8835 FC 0B B5        ...   ldd 0bb5
1153 8838 C4 FF           ..    andb #ff
1154 883A 84 01           ..    anda #01
1155 883C FD 00 52        ..R   std 0052
1156 883F CE 00 1F        ...   ldx #001f
1157 8842 1D 00 02        ...   bclr 00,x, #02
1158 8845 20 70            p    bra 70
1159 8847 F6 00 09        ...   ldab 0009
1160 884A 4F              O     clra
1161 884B BD FE 32        ..2   jsr fe32             ;jump25
1162 884E 88 68 00 00     ....  ; cancel.
1163 8852 88 6D 00 01     ....  ; key 1 - increment
1164 8856 88 83 00 01     ....  ; key 2 - decrement
1165 885A 88 A7 00 08     ....  ; key 0 - saving
1166 885E 88 B4 00 01     ....  ; reset
1167 8862 88 B7 FF F5     ....  ; no key - return
1168 8866 00 00           ....  ; end of array data
1169 ;
1170 8868 BD 9A 05        ...   jsr 9a05             ;jump102 - write ODDS 1/
1171 886B 20 4A            J    bra 4a       ; to 88b7 - return
1172 ; increment 50
1173 886D FC 00 52        ..R   ldd 0052
1174 8870 83 01 F4        ...   subd #01f4   ; 500
1175 8873 24 09           $.    bcc 09       ; dont let them go above 500
1176 8875 FC 00 52        ..R   ldd 0052
1177 8878 C3 00 32        ..2   addd #0032   ; +50
1178 887B FD 00 52        ..R   std 0052
1179 887E BD 9A 05        ...   jsr 9a05             ;jump102 - write ODDS 1/
1180 8881 20 34            4    bra 34
1181 ;
1182 8883 FC 00 52        ..R   ldd 0052
1183 8886 83 00 32        ..2   subd #0032   ; 50
1184 8889 23 17           #.    bls 17       ; dont let them go below 50
1185 888B FC 00 52        ..R   ldd 0052
1186 888E C3 FF CE        ...   addd #ffce   ; -50
1187 8891 FD 00 52        ..R   std 0052
1188 8894 FC 00 52        ..R   ldd 0052
1189 8897 83 00 32        ..2   subd #0032   ; 50
1190 889A 24 06           $.    bcc 06
1191 889C CC 00 32        ..2   ldd #0032   ; 100
1192 889F FD 00 52        ..R   std 0052
1193 88A2 BD 9A 05        ...   jsr 9a05             ;jump102 - write ODDS 1/
1194 88A5 20 10            .    bra 10
1195 ;
1196 88A7 BD A3 7C        ..|   jsr a37c             ;jump141 - save
1197 88AA 5F              _     clrb
1198 88AB 4F              O     clra
1199 88AC FD 0B B9        ...   std 0bb9
1200 88AF BD 85 AF        ...   jsr 85af             ;jump14
1201 88B2 20 03            .    bra 03
1202 88B4 BD 85 AF        ...   jsr 85af             ;jump14
1203 88B7 39              9     rts
1204
1205 jump17:
1206 ; set pricing
1207 88B8 F6 00 1F        ...   ldab 001f
1208 88BB C4 02           ..    andb #02
1209 88BD 26 0A           &.    bne 0a
1210 88BF F6 00 3A        ..:   ldab 003a
1211 88C2 26 28           &(    bne 28
1212 88C4 F6 00 1D        ...   ldab 001d
1213 88C7 2D 23           -#    blt 23
1214 88C9 7F 00 2C        ..,   clr 002c
1215 88CC CC AE 9D        ...   ldd #ae9d    "SET PRICE?"
1216 88CF BD C0 BA        ...   jsr c0ba             ;display:
1217 88D2 CE 00 1F        ...   ldx #001f
1218 88D5 1D 00 02        ..    bclr 00,x, #02
1219 88D8 CE 00 1F        ...   ldx #001f
1220 88DB 1D 00 40        ..    bclr 00,x, #40
1221 88DE CE 00 1D        ...   ldx #001d
1222 88E1 1D 00 80        ..    bclr 00,x, #80
1223 88E4 7F 00 54        ...   clr 0054
1224 88E7 C6 32           .2    ldab #32
1225 88E9 F7 00 3A        ..:   stab 003a
1226 88EC F6 00 09        ...   ldab 0009
1227 88EF 26 03           &.    bne 03
1228 88F1 7E 89 E1        ~..   jmp 89e1             ;goto5
1229 88F4 F6 00 1D        ...   ldab 001d
1230 88F7 2C 03           ,.    bge 03
1231 88F9 7E 89 E1        ~..   jmp 89e1             ;goto5
1232 88FC F6 00 09        ...   ldab 0009
1233 88FF C1 0B           ..    cmpb #0b
1234 8901 26 06           &.    bne 06
1235 8903 BD 85 AF        ...   jsr 85af             ;jump14
1236 8906 7E 89 DE        ~..   jmp 89de             ;goto6
1237 8909 F6 00 54        ..T   ldab 0054
1238 890C 26 26           &&    bne 26
1239 890E BD BE 4B        ..K   jsr be4b             ;displayblank
1240 8911 F6 00 09        ...   ldab 0009
1241 8914 C1 0A           ..    cmpb #0a
1242 8916 26 03           &.    bne 03
1243 8918 7F 00 09        ...   clr 0009
1244 891B F6 00 09        ...   ldab 0009
1245 891E CB 30           .0    addb #30
1246 8920 37              7     pshb
1247 8921 CC 0B 95        ...   ldd #0b95
1248 8924 F0 00 54        ..T   subb 0054
1249 8927 82 00           ..    sbca #00
1250 8929 8F              .     xgdx
1251 892A 33              3     pulb
1252 892B E7 00           ..    stab 00,x
1253 892D C6 32           .2    ldab #32
1254 892F F7 00 3A        ..:   stab 003a
1255 8932 20 37            7    bra 37
1256 8934 F6 00 54        ..T   ldab 0054
1257 8937 C1 01           ..    cmpb #01
1258 8939 26 27           &'    bne 27
1259 893B F6 00 09        ...   ldab 0009
1260 893E C1 05           ..    cmpb #05
1261 8940 27 20           '     beq 20
1262 8942 F6 00 09        ...   ldab 0009
1263 8945 C1 0A           ..    cmpb #0a
1264 8947 27 19           '.    beq 19
1265 8949 F6 00 09        ...   ldab 0009
1266 894C CB 30           .0    addb #30
1267 894E 37              7     pshb
1268 894F CC 0B 95        ...   ldd #0b95
1269 8952 F0 00 54        ..T   subb 0054
1270 8955 82 00           ..    sbca #00
1271 8957 8F              .     xgdx
1272 8958 33              3     pulb
1273 8959 E7 00           ..    stab 00,x
1274 895B C6 32           .2    ldab #32
1275 895D F7 00 3A        ..:   stab 003a
1276 8960 20 09            .    bra 09
1277 8962 CE 00 1F        ...   ldx #001f
1278 8965 1C 00 02        ..    bset 00,x, #02
1279 8968 7F 00 3A        ..:   clr 003a
1280 896B BD BE 01        ...   jsr be01             ;jump70
1281 896E 7C 00 54        |.T   inc 0054
1282 8971 F6 00 54        ..T   ldab 0054
1283 8974 C1 02           ..    cmpb #02
1284 8976 26 60           &`    bne 60
1285 8978 CE 00 1D        ...   ldx #001d
1286 897B 1C 00 80        ..    bset 00,x, #80
1287 897E F6 0B 94        ..    ldab 0b94
1288 8980 CB D0           ..    addb #d0     ; -48 (unmake it a digit)
1289 8983 37              7     pshb
1290 8984 F6 0B 95        ...   ldab 0b95
1291 8987 CB D0           ..    addb #d0     ; -48 (unmake it a digit)
1292 8989 86 0A           ..    ldaa #0a
1293 898B 3D              =     mul
1294 898C 30              0     tsx
1295 898D EB 00           ..    addb 00,x
1296 898F 31              1     ins
1297 8990 F7 00 06        ...   stab 0006
1298 8993 C6 32           .2    ldab #32
1299 8995 F7 00 3A        ..:   stab 003a
1300 8998 F6 00 06        ...   ldab 0006
1301 899B BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
1302 899E 83 00 00        ...   subd #0000
1303 89A1 26 27           &'    bne 27       ; to 89ca
1304 89A3 BD D3 11        ...   jsr d311             ;jump30 - test position exists
1305 89A6 83 00 00        ...   subd #0000
1306 89A9 26 0B           &.    bne 0b
1307 89AB CE 00 1F        ...   ldx #001f
1308 89AE 1C 00 40        ..    bset 00,x, #40
1309 89B1 BD 8C 73        ..s   jsr 8c73             ;jump75
1310 89B4 20 0F            .    bra 0f
1311 89B6 CE 00 1F        ...   ldx #001f
1312 89B9 1D 00 40        ..    bclr 00,x, #40
1313 89BC CC 2A FF        .*.   ldd #2aff    ; 00101010 11111111
1314 89BF FD 00 27        ..'   std 0027
1315 89C2 BD A3 85        ...   jsr a385             ;jump40
1316 89C5 BD 9A 47        ..G   jsr 9a47             ;jump39
1317 89C8 20 0C            .    bra 0c
1318 ;
1319 89CA CE 00 1D        ...   ldx #001d
1320 89CD 1D 00           ..    bclr 00,x, #80
1321 89D0 CE 00 1F        ...   ldx #001f
1322 89D3 1C 00 02        ...   bset 00,x, #02
1323 89D6 20 06            .    bra 06
1324 89D8 CE 00 1D        ...   ldx #001d
1325 89DB 1D 00 80        ...   bclr 00,x, #80
1326 ;goto6
1327 89DE 7E 8C 72        .~    jmp 8c72     ;goto7 (exit)
1328 ;goto5
1329 89E1 F6 00 1D        ...   ldab 001d
1330 89E4 2D 03           -.    blt 03
1331 89E6 7E 8C 72        ~.r   jmp 8c72             ;goto7 (exit)
1332 89E9 F6 00 09        ...   ldab 0009
1333 89EC 4F              O     clra
1334 89ED BD FE 16        ...   jsr fe16             ;jump2
1335 89F0 00 00 00 0B     ....  ; params to jump2
1336 89F4 8C 72           ..    ; default action
1337 89F6 8A 0E           ..    ; 0 - display price on screen?
1338 89F8 8A 14           ..    ; 1 -
1339 89FA 8A AA           ..
1340 89FC 8B 5E           .^
1341 89FE 8B 9E           ..
1342 8A00 8B DB           ..
1343 8A02 8C 72           ..
1344 8A04 8C 72           ..
1345 8A06 8C 72           ..
1346 8A08 8B FC           ..
1347 8A0A 8C 67           ..
1348 8A0C 8C 6F           ..
1349 8A0E BD 9A 47        ..    jsr 9a47    ;jump39
1350 8A11 7E 8C 72        ...   jmp 8c72    ;goto7 (exit)
1351 8A14 F6 00 36        ...   ldab 0036
1352 8A17 27 03           '.    beq 03
1353 8A19 7E 8A 9B        ~..   jmp 8a9b             ;goto8
1354 8A1C F6 00 1F        ...   ldab 001f
1355 8A1F C4 40           .@    andb #40
1356 8A21 27 78           'x    beq 78
1357 8A23 F6 0B C0        ...   ldab 0bc0
1358 8A26 C4 02           ..    andb #02
1359 8A28 27 52           'R    beq 52
1360 8A2A F6 0B AA        ...   ldab 0baa
1361 8A2D C1 32           .2    cmpb #32
1362 8A2F 24 22           $"    bcc 22
1363 8A31 F6 0B AA        ...   ldab 0baa
1364 8A34 4F              O     clra
1365 8A35 F3 00 27        ..'   addd 0027
1366 8A38 FD 00 27        ..'   std 0027
1367 8A3B F6 0B AA        ...   ldab 0baa
1368 8A3E 4F              O     clra
1369 8A3F 37              7     pshb
1370 8A40 36              6     psha
1371 8A41 CC 00 FA        ...   ldd #00fa    ; 250 or -6
1372 8A44 BD FB BA        ...   jsr fbba             ;jump38 - multiply?
1373 8A47 B3 00 27        ..'   subd 0027
1374 8A4A 24 05           $.    bcc 05
1375 8A4C 5F              _     clrb
1376 8A4D 4F              O     clra
1377 8A4E FD 00 27        ..'   std 0027
1378 8A51 20 27            '    bra 27
1379 8A53 F6 0B AA        ...   ldab 0baa
1380 8A56 C1 32           .2    cmpb #32
1381 8A58 26 20           &     bne 20
1382 8A5A F6 0B AA        ...   ldab 0baa
1383 8A5D 4F              O     clra
1384 8A5E F3 00 27        ..'   addd 0027
1385 8A61 FD 00 27        ..'   std 0027
1386 8A64 F6 0B AA        ...   ldab 0baa
1387 8A67 4F              O     clra
1388 8A68 37              7     pshb
1389 8A69 36              6     psha
1390 8A6A CC 00 C7        ...   ldd #00c7
1391 8A6D BD FB BA        ...   jsr fbba             ;jump38
1392 8A70 B3 00 27        ..'   subd 0027
1393 8A73 24 05           $.    bcc 05
1394 8A75 5F              _     clrb
1395 8A76 4F              O     clra
1396 8A77 FD 00 27        ..'   std 0027
1397 8A7A 20 17            .    bra 17
1398 8A7C F6 0B AA        ...   ldab 0baa
1399 8A7F 4F              O     clra
1400 8A80 F3 00 27        ..'   addd 0027
1401 8A83 FD 00 27        ..'   std 0027
1402 8A86 FC 00 27        ..'   ldd 0027
1403 8A89 83 27 0F        .'.   subd #270f
1404 8A8C 23 05           #.    bls 05
1405 8A8E 5F              _     clrb
1406 8A8F 4F              O     clra
1407 8A90 FD 00 27        ..'   std 0027
1408 8A93 BD 9A 47        ..G   jsr 9a47             ;jump39
1409 8A96 C6 02           ..    ldab #02
1410 8A98 F7 00 36        ..6   stab 0036
1411 goto8:
1412 8A9B CE 00 1B        ...   ldx #001b
1413 8A9E 1C 00 10        ...   bset 00,x, #10
1414 8AA1 CC 02 33        ..3   ldd #0233
1415 8AA4 FD 00 3B        ..;   std 003b
1416 8AA7 7E 8C 72        ~.r   jmp 8c72             ;goto7 (exit)
1417 ;
1418 8AAA F6 00 36        ..6   ldab 0036
1419 8AAD 27 03           '.    beq 03
1420 8AAF 7E 8B 4F        ~.O   jmp 8b4f             ;goto9
1421 8AB2 F6 00 1F        ...   ldab 001f
1422 8AB5 C4 40           .@    andb #40
1423 8AB7 26 03           &.    bne 03
1424 8AB9 7E 8B 4F        ~.O   jmp 8b4f             ;goto9
1425 8ABC F6 0B C0        ...   ldab 0bc0
1426 8ABF C4 02           ..    andb #02
1427 8AC1 27 57           'W    beq 57
1428 8AC3 FC 00 27        ..'   ldd 0027
1429 8AC6 26 18           &.    bne 18
1430 8AC8 F6 0B AA        ...   ldab 0baa
1431 8ACB C1 32           .2    cmpb #32
1432 8ACD 24 11           $.    bcc 11
1433 8ACF F6 0B AA        ...   ldab 0baa
1434 8AD2 4F              O     clra
1435 8AD3 37              7     pshb
1436 8AD4 36              6     psha
1437 8AD5 CC 00 FA        ...   ldd #00fa
1438 8AD8 BD FB BA        ...   jsr fbba             ;jump38
1439 8ADB FD 00 27        ..'   std 0027
1440 8ADE 20 38            8    bra 38
1441 8AE0 FC 00 27        ..'   ldd 0027
1442 8AE3 26 18           &.    bne 18
1443 8AE5 F6 0B AA        ...   ldab 0baa
1444 8AE8 C1 32           .2    cmpb #32
1445 8AEA 26 11           &.    bne 11
1446 8AEC F6 0B AA        ...   ldab 0baa
1447 8AEF 4F              O     clra
1448 8AF0 37              7     pshb
1449 8AF1 36              6     psha
1450 8AF2 CC 00 C7        ...   ldd #00c7
1451 8AF5 BD FB BA        ...   jsr fbba             ;jump38
1452 8AF8 FD 00 27        ..'   std 0027
1453 8AFB 20 1B            .    bra 1b
1454 8AFD F6 0B AA        ...   ldab 0baa
1455 8B00 4F              O     clra
1456 8B01 B3 00 27        ..'   subd 0027
1457 8B04 22 0D           ".    bhi 0d
1458 8B06 FC 00 27        ..'   ldd 0027
1459 8B09 F0 0B AA        ...   subb 0baa
1460 8B0C 82 00           ..    sbca #00
1461 8B0E FD 00 27        ..'   std 0027
1462 8B11 20 05            .    bra 05
1463 8B13 5F              _     clrb
1464 8B14 4F              O     clra
1465 8B15 FD 00 27        ..'   std 0027
1466 8B18 20 2D            -    bra 2d
1467 8B1A FC 00 27        ..'   ldd 0027
1468 8B1D 26 0D           &.    bne 0d
1469 8B1F CC 27 10        .'.   ldd #2710
1470 8B22 F0 0B AA        ...   subb 0baa
1471 8B25 82 00           ..    sbca #00
1472 8B27 FD 00 27        ..'   std 0027
1473 8B2A 20 1B            .    bra 1b
1474 8B2C F6 0B AA        ...   ldab 0baa
1475 8B2F 4F              O     clra
1476 8B30 B3 00 27        ..'   subd 0027
1477 8B33 22 0D           ".    bhi 0d
1478 8B35 FC 00 27        ..'   ldd 0027
1479 8B38 F0 0B AA        ...   subb 0baa
1480 8B3B 82 00           ..    sbca #00
1481 8B3D FD 00 27        ..'   std 0027
1482 8B40 20 05            .    bra 05
1483 8B42 5F              _     clrb
1484 8B43 4F              O     clra
1485 8B44 FD 00 27        ..'   std 0027
1486 8B47 BD 9A 47        ..G   jsr 9a47             ;jump39
1487 8B4A C6 02           ..    ldab #02
1488 8B4C F7 00 36        ..6   stab 0036
1489 goto9:
1490 8B4F CE 00 1B        ...   ldx #001b
1491 8B52 1C 00 10        ..    bset 00,x, #10
1492 8B55 CC 02 33        ..3   ldd #0233
1493 8B58 FD 00 3B        ..;   std 003b
1494 8B5B 7E 8C 72        ~.r   jmp 8c72             ;goto7 (exit)
1495 8B5E F6 00 36        ..6   ldab 0036
1496 8B61 26 2C           &,    bne 2c
1497 8B63 F6 00 1F        ...   ldab 001f
1498 8B66 C4 40           .@    andb #40
1499 8B68 27 25           '%    beq 25
1500 8B6A FC 00 46        ..F   ldd 0046
1501 8B6D 83 00 64        ..d   subd #0064
1502 8B70 24 15           $.    bcc 15
1503 8B72 FE 00 46        ..F   ldx 0046
1504 8B75 08              .     inx
1505 8B76 FF 00 46        ..F   stx 0046
1506 8B79 FC 00 46        ..F   ldd 0046
1507 8B7C 83 00 64        ..d   subd #0064
1508 8B7F 25 06           %.    bcs 06
1509 8B81 CC 00 01        ...   ldd #0001
1510 8B84 FD 00 46        ..F   std 0046
1511 8B87 BD 9A 47        ..G   jsr 9a47             ;jump39
1512 8B8A C6 02           ..    ldab #02
1513 8B8C F7 00 36        ..6   stab 0036
1514 8B8F CE 00 1B        ...   ldx #001b
1515 8B92 1C 00 10        ..    bset 00,x, #10
1516 8B95 CC 02 33        ..3   ldd #0233
1517 8B98 FD 00 3B        ..;   std 003b
1518 8B9B 7E 8C 72        ~.r   jmp 8c72             ;goto7 (exit)
1519 8B9E F6 00 36        ..6   ldab 0036
1520 8BA1 26 29           &)    bne 29
1521 8BA3 F6 00 1F        ...   ldab 001f
1522 8BA6 C4 40           .@    andb #40
1523 8BA8 27 22           '"    beq 22
1524 8BAA FC 00 46        ..F   ldd 0046
1525 8BAD 83 00 00        ...   subd #0000
1526 8BB0 23 12           #.    bls 12
1527 8BB2 FE 00 46        ..F   ldx 0046
1528 8BB5 09              .     dex
1529 8BB6 FF 00 46        ..F   stx 0046
1530 8BB9 FC 00 46        ..F   ldd 0046
1531 8BBC 26 06           &.    bne 06
1532 8BBE CC 00 63        ..c   ldd #0063
1533 8BC1 FD 00 46        ..F   std 0046
1534 8BC4 BD 9A 47        ..G   jsr 9a47             ;jump39
1535 8BC7 C6 02           ..    ldab #02
1536 8BC9 F7 00 36        ..6   stab 0036
1537 8BCC CE 00 1B        ...   ldx #001b
1538 8BCF 1C 00 10        ...   bset 00,x, #10
1539 8BD2 CC 02 33        ..3   ldd #0233
1540 8BD5 FD 00 3B        ..;   std 003b
1541 8BD8 7E 8C 72        ~.r   jmp 8c72             ;goto7 (exit)
1542 8BDB F6 00 1F        ...   ldab 001f
1543 8BDE C4 40           .@    andb #40
1544 8BE0 27 15           '.    beq 15
1545 8BE2 F6 00 19        ...   ldab 0019
1546 8BE5 C4 10           ..    andb #10
1547 8BE7 27 08           '.    beq 08
1548 8BE9 CE 00 19        ...   ldx #0019
1549 8BEC 1D 00 10        ...   bclr 00,x, #10
1550 8BEF 20 06            .    bra 06
1551 8BF1 CE 00 19        ...   ldx #0019
1552 8BF4 1C 00 10        ...   bset 00,x, #10
1553 8BF7 BD 9A 47        ..G   jsr 9a47             ;jump39
1554 8BFA 20 76            v    bra 76
1555 8BFC BD A3 85        ...   jsr a385             ;jump40
1556 8BFF F6 00 06        ...   ldab 0006
1557 8C02 C1 64           .d    cmpb #64
1558 8C04 24 24           $$    bcc 24
1559 8C06 BD 97 6F        ..o   jsr 976f             ;jump41
1560 8C09 F6 00 06        ...   ldab 0006
1561 8C0C BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
1562 8C0F 83 00 00        ...   subd #0000
1563 8C12 27 16           '.    beq 16
1564 8C14 F6 00 06        ...   ldab 0006
1565 8C17 C1 09           ..    cmpb #09
1566 8C19 26 03           &.    bne 03
1567 8C1B BD 97 6F        ..o   jsr 976f             ;jump41
1568 8C1E F6 00 06        ...   ldab 0006
1569 8C21 C1 45           .E    cmpb #45
1570 8C23 26 05           &.    bne 05
1571 8C25 C6 01           ..    ldab #01
1572 8C27 F7 00 06        ...   stab 0006
1573 8C2A F6 0E 6D        ..m   ldab 0e6d
1574 8C2D C1 01           ..    cmpb #01
1575 8C2F 26 11           &.    bne 11
1576 8C31 F6 00 06        ...   ldab 0006
1577 8C34 4F              O     clra
1578 8C35 05              .     asld
1579 8C36 C3 08 C8        ...   addd #08c8
1580 8C39 8F              .     xgdx
1581 8C3A EC 00           ..    ldd 00,x
1582 8C3C C4 7F           ..    andb #7f
1583 8C3E 4F              O     clra
1584 8C3F FD 00 46        ..F   std 0046
1585 8C42 BD D3 11        ...   jsr d311             ;jump30 - test position exists
1586 8C45 83 00 00        ...   subd #0000
1587 8C48 26 12           &.    bne 12
1588 8C4A CE 00 1F        ...   ldx #001f
1589 8C4D 1C 00 40        ...   bset 00,x, #40
1590 8C50 FC 00 27        ..'   ldd 0027
1591 8C53 83 27 0F        .'.   subd #270f
1592 8C56 23 02           #.    bls 02
1593 8C58 8D 19           ..    bsr dest 19
1594 8C5A 20 06            .    bra 06
1595 8C5C CE 00 1F        ...   ldx #001f
1596 8C5F 1D 00 40        ...   bclr 00,x, #40
1597 8C62 BD 9A 47        ..G   jsr 9a47             ;jump39
1598 8C65 20 0B            .    bra 0b
1599 8C67 BD A3 85        ...   jsr a385             ;jump40
1600 8C6A BD 85 AF        ...   jsr 85af             ;jump14
1601 8C6D 20 03            .    bra 03
1602 8C6F BD 85 AF        ...   jsr 85af             ;jump14
1603 goto7:
1604 8C72 39              9     rts
1605
1606 jump75:
1607 8C73 F6 00 06        ...   ldab 0006
1608 8C76 4F              O     clra
1609 8C77 05              .     asld
1610 8C78 C3 08 00        ...   addd #0800
1611 8C7B 8F              .     xgdx
1612 8C7C EC 00           ..    ldd 00,x
1613 8C7E C4 FF           ..    andb #ff
1614 8C80 84 3F           .?    anda #3f
1615 8C82 FD 00 27        ..'   std 0027
1616 8C85 F6 00 06        ...   ldab 0006
1617 8C88 4F              O     clra
1618 8C89 05              .     asld
1619 8C8A C3 08 C8        ...   addd #08c8
1620 8C8D 8F              .     xgdx
1621 8C8E EC 00           ..    ldd 00,x
1622 8C90 C4 7F           ..    andb #7f
1623 8C92 4F              O     clra
1624 8C93 FD 00 46        ..F   std 0046
1625 8C96 F6 00 06        ...   ldab 0006
1626 8C99 4F              O     clra
1627 8C9A 05              .     asld
1628 8C9B C3 08 C8        ...   addd #08c8
1629 8C9E 8F              .     xgdx
1630 8C9F EC 00           ..    ldd 00,x
1631 8CA1 84 08           ..    anda #08
1632 8CA3 27 08           '.    beq 08
1633 8CA5 CE 00 19        ...   ldx #0019
1634 8CA8 1C 00 10        ...   bset 00,x, #10
1635 8CAB 20 06            .    bra 06
1636 8CAD CE 00 19        ...   ldx #0019
1637 8CB0 1D 00 10        ...   bclr 00,x, #10
1638 8CB3 39              9     rts
1639
1640 jump18:
1641 ; program smart shopping discount
1642 8CB4 F6 00 1F        ...   ldab 001f
1643 8CB7 C4 02           ..    andb #02
1644 8CB9 27 12           '.    beq 12
1645 8CBB FC 0B B7        ...   ldd 0bb7
1646 8CBE FD 00 0D        ...   std 000d
1647 8CC1 CE 00 1F        ...   ldx #001f
1648 8CC4 1D 00 02        ...   bclr 00,x, #02
1649 8CC7 7F 00 36        ..6   clr 0036
1650 8CCA 7E 8E 34        ~.4   jmp 8e34             ;goto10
1651 8CCD F6 00 09        ...   ldab 0009
1652 8CD0 4F              O     clra
1653 8CD1 BD FE 32        ..2   jsr fe32             ;jump25
1654 8CD4 8C EE 00 00     ....  ; array data for jump25
1655 8CD8 8C F4 00 01     ....
1656 8CDC 8D 80 00 01     ....
1657 8CE0 8E 29 00 08     .)..
1658 8CE4 8E 31 00 01     .1..
1659 8CE8 8E 34 FF F5     .4.
1660 8CEC 00 00           ...   ; end of array data
1661 8CEE BD 9B 63        ..c   jsr 9b63             ;jump101
1662 8CF1 7E 8E 34        ~.4   jmp 8e34             ;goto10
1663 8CF4 F6 00 36        ..6   ldab 0036
1664 8CF7 26 78           &x    bne 78
1665 8CF9 F6 0B C0        ...   ldab 0bc0
1666 8CFC C4 02           ..    andb #02
1667 8CFE 27 52           'R    beq 52
1668 8D00 F6 0B AA        ...   ldab 0baa
1669 8D03 C1 32           .2    cmpb #32
1670 8D05 24 22           $"    bcc 22
1671 8D07 F6 0B AA        ...   ldab 0baa
1672 8D0A 4F              O     clra
1673 8D0B F3 00 0D        ...   addd 000d
1674 8D0E FD 00 0D        ...   std 000d
1675 8D11 F6 0B AA        ...   ldab 0baa
1676 8D14 4F              O     clra
1677 8D15 37              7     pshb
1678 8D16 36              6     psha
1679 8D17 CC 00 FA        ...   ldd #00fa
1680 8D1A BD FB BA        ...   jsr fbba             ;jump38
1681 8D1D B3 00 0D        ...   subd 000d
1682 8D20 24 05           $.    bcc 05
1683 8D22 5F              _     clrb
1684 8D23 4F              O     clra
1685 8D24 FD 00 0D        ...   std 000d
1686 8D27 20 27            '    bra 27
1687 8D29 F6 0B AA        ...   ldab 0baa
1688 8D2C C1 32           .2    cmpb #32
1689 8D2E 26 20           &     bne 20
1690 8D30 F6 0B AA        ...   ldab 0baa
1691 8D33 4F              O     clra
1692 8D34 F3 00 0D        ...   addd 000d
1693 8D37 FD 00 0D        ...   std 000d
1694 8D3A F6 0B AA        ...   ldab 0baa
1695 8D3D 4F              O     clra
1696 8D3E 37              7     pshb
1697 8D3F 36              6     psha
1698 8D40 CC 00 C7        ...   ldd #00c7
1699 8D43 BD FB BA        ...   jsr fbba             ;jump38
1700 8D46 B3 00 0D        ...   subd 000d
1701 8D49 24 05           $.    bcc 05
1702 8D4B 5F              _     clrb
1703 8D4C 4F              O     clra
1704 8D4D FD 00 0D        ...   std 000d
1705 8D50 20 17            .    bra 17
1706 8D52 F6 0B AA        ...   ldab 0baa
1707 8D55 4F              O     clra
1708 8D56 F3 00 0D        ...   addd 000d
1709 8D59 FD 00 0D        ...   std 000d
1710 8D5C FC 00 0D        ...   ldd 000d
1711 8D5F 83 27 0F        .'.   subd #270f
1712 8D62 23 05           #.    bls 05
1713 8D64 5F              _     clrb
1714 8D65 4F              O     clra
1715 8D66 FD 00 0D        ...   std 000d
1716 8D69 BD 9B 63        ..c   jsr 9b63             ;jump101
1717 8D6C C6 02           ..    ldab #02
1718 8D6E F7 00 36        ..6   stab 0036
1719 8D71 CE 00 1B        ...   ldx #001b
1720 8D74 1C 00 10        ..    bset 00,x, #10
1721 8D77 CC 02 33        ..3   ldd #0233
1722 8D7A FD 00 3B        ..;   std 003b
1723 8D7D 7E 8E 34        ~.4   jmp 8e34             ;goto10
1724 8D80 F6 00 36        ..6   ldab 0036
1725 8D83 27 03           '.    beq 03
1726 8D85 7E 8E 1B        ~..   jmp 8e1b             ;goto11
1727 8D88 F6 0B C0        ...   ldab 0bc0
1728 8D8B C4 02           ..    andb #02
1729 8D8D 27 57           'W    beq 57
1730 8D8F FC 00 0D        ...   ldd 000d
1731 8D92 26 18           &.    bne 18
1732 8D94 F6 0B AA        ...   ldab 0baa
1733 8D97 C1 32           .2    cmpb #32
1734 8D99 24 11           $.    bcc 11
1735 8D9B F6 0B AA        ...   ldab 0baa
1736 8D9E 4F              O     clra
1737 8D9F 37              7     pshb
1738 8DA0 36              6     psha
1739 8DA1 CC 00 FA        ...   ldd #00fa
1740 8DA4 BD FB BA        ...   jsr fbba             ;jump38
1741 8DA7 FD 00 0D        ...   std 000d
1742 8DAA 20 38            8    bra 38
1743 8DAC FC 00 0D        ...   ldd 000d
1744 8DAF 26 18           &.    bne 18
1745 8DB1 F6 0B AA        ...   ldab 0baa
1746 8DB4 C1 32           .2    cmpb #32
1747 8DB6 26 11           &.    bne 11
1748 8DB8 F6 0B AA        ...   ldab 0baa
1749 8DBB 4F              O     clra
1750 8DBC 37              7     pshb
1751 8DBD 36              6     psha
1752 8DBE CC 00 C7        ...   ldd #00c7
1753 8DC1 BD FB BA        ...   jsr fbba             ;jump38
1754 8DC4 FD 00 0D        ...   std 000d
1755 8DC7 20 1B            .    bra 1b
1756 8DC9 F6 0B AA        ...   ldab 0baa
1757 8DCC 4F              O     clra
1758 8DCD B3 00 0D        ...   subd 000d
1759 8DD0 22 0D           ".    bhi 0d
1760 8DD2 FC 00 0D        ...   ldd 000d
1761 8DD5 F0 0B AA        ...   subb 0baa
1762 8DD8 82 00           ..    sbca #00
1763 8DDA FD 00 0D        ...   std 000d
1764 8DDD 20 05            .    bra 05
1765 8DDF 5F              _     clrb
1766 8DE0 4F              O     clra
1767 8DE1 FD 00 0D        ...   std 000d
1768 8DE4 20 2D            -    bra 2d
1769 8DE6 FC 00 0D        ...   ldd 000d
1770 8DE9 26 0D           &.    bne 0d
1771 8DEB CC 27 10        .'.   ldd #2710
1772 8DEE F0 0B AA        ...   subb 0baa
1773 8DF1 82 00           ..    sbca #00
1774 8DF3 FD 00 0D        ...   std 000d
1775 8DF6 20 1B            .    bra 1b
1776 8DF8 F6 0B AA        ...   ldab 0baa
1777 8DFB 4F              O     clra
1778 8DFC B3 00 0D        ...   subd 000d
1779 8DFF 22 0D           ".    bhi 0d
1780 8E01 FC 00 0D        ...   ldd 000d
1781 8E04 F0 0B AA        ...   subb 0baa
1782 8E07 82 00           ..    sbca #00
1783 8E09 FD 00 0D        ...   std 000d
1784 8E0C 20 05            .    bra 05
1785 8E0E 5F              _     clrb
1786 8E0F 4F              O     clra
1787 8E10 FD 00 0D        ...   std 000d
1788 8E13 BD 9B 63        ..c   jsr 9b63             ;jump101
1789 8E16 C6 02           ..    ldab #02
1790 8E18 F7 00 36        ..6   stab 0036
1791 goto11:
1792 8E1B CE 00 1B        ...   ldx #001b
1793 8E1E 1C 00 10        ...   bset 00,x, #10
1794 8E21 CC 02 33        ..3   ldd #0233
1795 8E24 FD 00 3B        ..;   std 003b
1796 8E27 20 0B            .    bra 0b
1797 8E29 BD A4 4F        ..O   jsr a44f             ;jump140
1798 8E2C BD 85 AF        ...   jsr 85af             ;jump14
1799 8E2F 20 03            .    bra 03
1800 8E31 BD 85 AF        ...   jsr 85af             ;jump14
1801 goto10:
1802 8E34 39              9     rts
1803
1804 jump19:
1805 ; manual peripheral config menu
1806 8E35 F6 00 1F        ...   ldab 001f
1807 8E38 C4 02           ..    andb #02
1808 8E3A 27 1E           '.    beq 1e
1809 8E3C 7F 00 48        ..H   clr 0048
1810 8E3F F6 0B C0        ...   ldab 0bc0
1811 8E42 F7 00 67        ..g   stab 0067
1812 8E45 F6 0E 6D        ..m   ldab 0e6d
1813 8E48 F7 0E 6F        ..o   stab 0e6f
1814 8E4B F6 0E 6E        ..n   ldab 0e6e
1815 8E4E F7 0E 70        ..p   stab 0e70
1816 8E51 CE 00 1F        ...   ldx #001f
1817 8E54 1D 00 02        ...   bclr 00,x, #02
1818 8E57 7E 8F 0C        ~..   jmp 8f0c             ;goto12
1819 8E5A F6 00 09        ...   ldab 0009
1820 8E5D 4F              O     clra
1821 8E5E BD FE 32        ..2   jsr fe32             ;jump25
1822 8E61 8E 7B 00 00     .{..  ; array data for jump25
1823 8E65 8E 81 00 01     ....
1824 8E69 8E 87 00 04     ....
1825 8E6D 8F 01 00 05     ....
1826 8E71 8F 09 00 01     ....
1827 8E75 8F 0C FF F5     ....
1828 8E79 00 00           ..    ; end of array data
1829 8E7B BD 9C 15        ...   jsr 9c15             ;jump111
1830 8E7E 7E 8F 0C        ~..   jmp 8f0c             ;goto12
1831 8E81 BD A7 5F        .._   jsr a75f             ;jump133
1832 8E84 7E 8F 0C        ~..   jmp 8f0c             ;goto12
1833 8E87 F6 00 48        ..H   ldab 0048
1834 8E8A C1 08           ..    cmpb #08
1835 8E8C 25 05           %.    bcs 05
1836 8E8E F6 00 67        ..g   ldab 0067
1837 8E91 2D 03           -.    blt 03
1838 8E93 BD A4 59        ..Y   jsr a459             ;jump110
1839 8E96 F6 00 48        ..H   ldab 0048
1840 8E99 C1 0A           ..    cmpb #0a
1841 8E9B 24 5F           $_    bcc 5f
1842 8E9D 7C 00 48        |.H   inc 0048
1843 8EA0 F6 00 48        ..H   ldab 0048
1844 8EA3 C1 01           ..    cmpb #01
1845 8EA5 26 0F           &.    bne 0f
1846 8EA7 F6 00 67        ..g   ldab 0067
1847 8EAA C4 02           ..    andb #02
1848 8EAC 26 08           &.    bne 08
1849 8EAE F6 00 48        ..H   ldab 0048
1850 8EB1 CB 02           ..    addb #02
1851 8EB3 F7 00 48        ..H   stab 0048
1852 8EB6 F6 00 48        ..H   ldab 0048
1853 8EB9 C1 02           ..    cmpb #02
1854 8EBB 26 0A           &.    bne 0a
1855 8EBD F6 00 67        ..g   ldab 0067
1856 8EC0 C4 10           ..    andb #10
1857 8EC2 26 03           &.    bne 03
1858 8EC4 7C 00 48        |.H   inc 0048
1859 8EC7 F6 00 48        ..H   ldab 0048
1860 8ECA C1 06           ..    cmpb #06
1861 8ECC 26 0F           &.    bne 0f
1862 8ECE F6 00 67        ..g   ldab 0067
1863 8ED1 C4 08           ..    andb #08
1864 8ED3 26 08           &.    bne 08
1865 8ED5 C6 02           ..    ldab #02
1866 8ED7 FB 00 48        ..H   addb 0048
1867 8EDA F7 00 48        ..H   stab 0048
1868 8EDD F6 00 48        ..H   ldab 0048
1869 8EE0 C1 0A           ..    cmpb #0a
1870 8EE2 26 08           &.    bne 08
1871 8EE4 F6 00 67        ..g   ldab 0067
1872 8EE7 2D 03           -.    blt 03
1873 8EE9 7C 00 48        |.H   inc 0048
1874 8EEC F6 00 48        ..H   ldab 0048
1875 8EEF C1 0A           ..    cmpb #0a
1876 8EF1 23 09           #.    bls 09
1877 8EF3 7F 00 48        ..H   clr 0048
1878 8EF6 F6 0B C0        ...   ldab 0bc0
1879 8EF9 F7 00 67        ..g   stab 0067
1880 8EFC BD 9C 15        ...   jsr 9c15             ;jump111
1881 8EFF 20 0B            .    bra 0b
1882 8F01 BD A4 59        ..Y   jsr a459             ;jump110
1883 8F04 BD 85 AF        ...   jsr 85af             ;jump14
1884 8F07 20 03            .    bra 03
1885 8F09 BD 85 AF        ...   jsr 85af             ;jump14
1886 goto12:
1887 8F0C 39              9     rts
1888
1889 jump20:
1890 ; promotional vend-pair programming (buy one thing get another free?)
1891 8F0D F6 00 1F        ...   ldab 001f
1892 8F10 C4 02           ..    andb #02
1893 8F12 27 1D           '.    beq 1d
1894 8F14 C6 01           ..    ldab #01
1895 8F16 F7 00 22        .."   stab 0022
1896 8F19 F6 0B AF        ...   ldab 0baf
1897 8F1C F7 00 24        ..$   stab 0024
1898 8F1F F6 0B B4        ...   ldab 0bb4
1899 8F22 F7 00 2A        ..*   stab 002a
1900 8F25 CE 00 1F        ...   ldx #001f
1901 8F28 1D 00 02        ..    bclr 00,x, #02
1902 8F2B 7F 00 36        ..6   clr 0036
1903 8F2E 7E 90 D0        ~..   jmp 90d0             ;goto13
1904 8F31 F6 00 09        ...   ldab 0009
1905 8F34 4F              O     clra
1906 8F35 BD FE 16        ...   jsr fe16             ;jump2
1907 8F38 00 00 00 0B     ....  ; params for jump2
1908 8F3C 90 D0           ..
1909 8F3E 8F 56           ..
1910 8F40 8F 5C           ..
1911 8F42 8F B3           ..
1912 8F44 90 0C           ..
1913 8F46 90 62           ..
1914 8F48 90 BA           ..
1915 8F4A 90 DO           ..
1916 8F4C 90 D0           ..
1917 8F4E 90 D0           ..
1918 8F50 90 DO           ..
1919 8F52 90 C5           ..
1920 8F54 90 CD           ..
1921 8F56 BD 9D 2A        ..*   jsr 9d2a             ;jump89
1922 8F59 7E 90 D0        ~..   jmp 90d0             ;goto13
1923 8F5C F6 00 36        ..6   ldab 0036
1924 8F5F 26 43           &C    bne 43
1925 8F61 F6 00 24        ..$   ldab 0024
1926 8F64 C1 64           .d    cmpb #64
1927 8F66 24 34           $4    bcc 34
1928 8F68 7C 00 24        |.$   inc 0024
1929 8F6B F6 00 24        ..$   ldab 0024
1930 8F6E F7 00 06        ...   stab 0006
1931 8F71 F6 00 06        ...   ldab 0006
1932 8F74 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
1933 8F77 83 00 00        ...   subd #0000
1934 8F7A 27 03           '.    beq 03
1935 8F7C 7C 00 24        |.$   inc 0024
1936 8F7F F6 00 24        ..$   ldab 0024
1937 8F82 C1 64           .d    cmpb #64
1938 8F84 26 03           &.    bne 03
1939 8F86 7F 00 24        ..$   clr 0024
1940 8F89 F6 00 24        ..$   ldab 0024
1941 8F8C 4F              O     clra
1942 8F8D CE 00 05        ...   ldx #0005
1943 8F90 02              .     idiv
1944 8F91 5D              ]     tstb
1945 8F92 26 08           &.    bne 08
1946 8F94 F6 00 24        ..$   ldab 0024
1947 8F97 27 03           '.    beq 03
1948 8F99 7C 00 24        |.$   inc 0024
1949 8F9C BD 9D 2A        ..*   jsr 8d2a             ;jump89
1950 8F9F C6 02           ..    ldab #02
1951 8FA1 F7 00 36        ..6   stab 0036
1952 8FA4 CE 00 1B        ...   ldx #001b
1953 8FA7 1C 00 10        ...   bset 00,x, #10
1954 8FAA CC 02 33        ..3   ldd #0233
1955 8FAD FD 00 3B        ..;   std 003b
1956 8FB0 7E 90 D0        ~..   jmp 90d0             ;goto13
1957 8FB3 F6 00 36        ..6   ldab 0036
1958 8FB6 26 45           &E    bne 45
1959 8FB8 F6 00 24        ..$   ldab 0024
1960 8FBB C1 00           ..    cmpb #00
1961 8FBD 23 2C           #,    bls 2c
1962 8FBF 7A 00 24        z.$   dec 0024
1963 8FC2 F6 00 24        ..$   ldab 0024
1964 8FC5 4F              O     clra
1965 8FC6 CE 00 05        ...   ldx #0005
1966 8FC9 02              .     idiv
1967 8FCA 5D              ]     tstb
1968 8FCB 26 08           &.    bne 08
1969 8FCD F6 00 24        ..$   ldab 0024
1970 8FD0 27 03           '.    beq 03
1971 8FD2 7A 00 24        z.$   dec 0024
1972 8FD5 F6 00 24        ..$   ldab 0024
1973 8FD8 F7 00 06        ...   stab 0006
1974 8FDB F6 00 06        ...   ldab 0006
1975 8FDE BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
1976 8FE1 83 00 00        ...   subd #0000
1977 8FE4 27 03           '.    beq 03
1978 8FE6 7A 00 24        z.$   dec 0024
1979 8FE9 20 0A            .    bra 0a
1980 8FEB F6 00 24        ..$   ldab 0024
1981 8FEE 26 05           &.    bne 05
1982 8FF0 C6 62           .b    ldab #62
1983 8FF2 F7 00 24        ..$   stab 0024
1984 8FF5 BD 9D 2A        ..*   jsr 9d2a             ;jump89
1985 8FF8 C6 02           ..    ldab #02
1986 8FFA F7 00 36        ..6   stab 0036
1987 8FFD CE 00 1B        ...   ldx #001b
1988 9000 1C 00 10        ...   bset 00,x, #10
1989 9003 CC 02 33        ..3   ldd #0233
1990 9006 FD 00 3B        ..;   std 003b
1991 9009 7E 90 D0        ~..   jmp 90d0             ;goto13
1992 900C F6 00 36        ..6   ldab 0036
1993 900F 26 43           &C    bne 43
1994 9011 F6 00 2A        ..*   ldab 002a
1995 9014 C1 64           .d    cmpb #64
1996 9016 24 34           $4    bcc 34
1997 9018 7C 00 2A        |.*   inc 002a
1998 901B F6 00 2A        ..*   ldab 002a
1999 901E F7 00 06        ...   stab 0006
2000 9021 F6 00 06        ...   ldab 0006
2001 9024 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
2002 9027 83 00 00        ...   subd #0000
2003 902A 27 03           '.    beq 03
2004 902C 7C 00 2A        |.*   inc 002a
2005 902F F6 00 2A        ..*   ldab 002a
2006 9032 C1 64           .d    cmpb #64
2007 9034 26 03           &.    bne 03
2008 9036 7F 00 2A        ..*   clr 002a
2009 9039 F6 00 2A        ..*   ldab 002a
2010 903C 4F              O     clra
2011 903D CE 00 05        ...   ldx #0005
2012 9040 02              .     idiv
2013 9041 5D              ]     tstb
2014 9042 26 08           &.    bne 08
2015 9044 F6 00 2A        ..*   ldab 002a
2016 9047 27 03           '.    beq 03
2017 9049 7C 00 2A        |.*   inc 002a
2018 904C BD 9D 2A        ..*   jsr 9d2a             ;jump89
2019 904F C6 02           ..    ldab #02
2020 9051 F7 00 36        ..6   stab 0036
2021 9054 CE 00 1B        ...   ldx #001b
2022 9057 1C 00 10        ...   bset 00,x, #10
2023 905A CC 02 33        ..3   ldd #0233
2024 905D FD 00 3B        ..;   std 003b
2025 9060 20 6E            n    bra 6e
2026 9062 F6 00 36        ..6   ldab 0036
2027 9065 26 45           &E    bne 45
2028 9067 F6 00 2A        ..*   ldab 002a
2029 906A C1 00           ..    cmpb #00
2030 906C 23 2C           #,    bls 2c
2031 906E 7A 00 2A        z.*   dec 002a
2032 9071 F6 00 2A        ..*   ldab 002a
2033 9074 4F              O     clra
2034 9075 CE 00 05        ...   ldx #0005
2035 9078 02              .     idiv
2036 9079 5D              ]     tstb
2037 907A 26 08           &.    bne 08
2038 907C F6 00 2A        ..*   ldab 002a
2039 907F 27 03           '.    beq 03
2040 9081 7A 00 2A        z.*   dec 002a
2041 9084 F6 00 2A        ..*   ldab 002a
2042 9087 F7 00 06        ...   stab 0006
2043 908A F6 00 06        ...   ldab 0006
2044 908D BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
2045 9090 83 00 00        ...   subd #0000
2046 9093 27 03           '.    beq 03
2047 9095 7A 00 2A        z.*   dec 002a
2048 9098 20 0A            .    bra 0a
2049 909A F6 00 2A        ..*   ldab 002a
2050 909D 26 05           &.    bne 05
2051 909F C6 62           .b    ldab #62
2052 90A1 F7 00 2A        ..*   stab 002a
2053 90A4 BD 9D 2A        ..*   jsr 9d2a             ;jump89
2054 90A7 C6 02           ..    ldab #02
2055 90A9 F7 00 36        ..6   stab 0036
2056 90AC CE 00 1B        ...   ldx #001b
2057 90AF 1C 00 10        ...   bset 00,x, #10
2058 90B2 CC 02 33        ..3   ldd #0233
2059 90B5 FD 00 3B        ..;   std 003b
2060 90B8 20 16            .    bra 16
2061 90BA BD A5 1E        ...   jsr a51e             ;jump109
2062 90BD BD AA 9A        ...   jsr aa9a             ;jump127
2063 90C0 BD 9D 2A        ..*   jsr 9d2a             ;jump89
2064 90C3 20 0B            .    bra 0b
2065 90C5 BD A5 1E        ...   jsr a51e             ;jump109
2066 90C8 BD 85 AF        ...   jsr 85af             ;jump14
2067 90CB 20 03            .    bra 03
2068 90CD BD 85 AF        ...   jsr 85af             ;jump14
2069 goto13:
2070 90D0 39              9     rts
2071
2072 jump21:
2073 ; pos message & serial id
2074 90D1 F6 00 1F        ...   ldab 001f
2075 90D4 C4 02           ..    andb #02
2076 90D6 27 14           '.    beq 14
2077 90D8 CE 00 1F        ...   ldx #001f
2078 90DB 1D 00 02        ...   bclr 00,x, #02
2079 90DE CE 00 19        ...   ldx #0019
2080 90E1 1C 00           ..    bset add,x 00,x
2081 90E3 80 7F           ..    suba #7f
2082 90E5 00              .     test
2083 90E6 09              .     dex
2084 90E7 7F 00 0A        ...   clr 000a
2085 90EA 20 40            @    bra 40
2086 90EC F6 00 09        ...   ldab 0009
2087 90EF 4F              O     clra
2088 90F0 BD FE 32        ..2   jsr fe32             ;jump25
2089 90F3 91 0D 00 00     ....  ; array data for jump25
2090 90F7 91 15 00 01     ....
2091 90FB 91 19 00 01     ....
2092 90FF 91 1E 00 01     ....
2093 9103 91 23 00 08     .#..
2094 9107 91 26 FF F5     .&..
2095 910B 00 00           ..    ; end of array data
2096 910D CC B0 AD        ...   ldd #b0ad    ; "PROGRAM  ?"
2097 9110 BD C0 BA        ...   jsr c0ba             ;display:
2098 9113 20 17            .    bra 17
2099 9115 8D 16           ..    bsr dest 16
2100 9117 20 13            .    bra 13
2101 9119 BD 91 C6        ...   jsr 91c6             ;jump76
2102 911C 20 0E            .    bra 0e
2103 911E BD 92 5A        ..Z   jsr 925a             ;jump149
2104 9121 20 09            .    bra 09
2105 9123 BD 85 AF        ...   jsr 85af             ;jump14
2106 9126 7F 00 09        ...   clr 0009
2107 9129 7F 00 0A        ...   clr 000a
2108 912C 39              9     rts
2109
2110 912D F6 00 19        ...   ldab 0019
2111 9130 2C 28           ,(    bge 28
2112 9132 BD A9 CF        ...   jsr a9cf             ;jump131
2113 9135 C6 50           .P    ldab #50
2114 9137 F7 0A 90        ...   stab 0a90
2115 913A C6 20           .     ldab #20
2116 913C F7 0B 8D        ...   stab 0b8d
2117 913F C6 20           .     ldab #20
2118 9141 F7 0B 8E        ...   stab 0b8e
2119 9144 C6 28           .(    ldab #28
2120 9146 F7 0B 8F        ...   stab 0b8f
2121 9149 7F 00 54        ..T   clr 0054
2122 914C 7F 00 60        ..`   clr 0060
2123 914F CE 00 19        ...   ldx #0019
2124 9152 1D 00           ..    bclr add,x 00,x
2125 9154 80 7F           ..    suba #7f
2126 9156 00              .     test
2127 9157 36              6     psha
2128 9158 20 6B            k    bra 6b
2129 915A F6 00 0A        ...   ldab 000a
2130 915D 4F              O     clra
2131 915E BD FE 16        ...   jsr fe16             ;jump2
2132 9161 00              .     test
2133 9162 00              .     test
2134 9163 00              .     test
2135 9164 0B              .     sev
2136 9165 91 C5 91        ...   cmpa c5
2137 9168 7F 91 84        ...   clr 9184
2138 916B 91 89 91        ...   cmpa 89
2139 916E 8E 91 9F        ...   lds #919f
2140 9171 91 B0 91        ...   cmpa b0
2141 9174 C5 91           ..    bitb #91
2142 9176 C5 91           ..    bitb #91
2143 9178 C5 91           ..    bitb #91
2144 917A B5 91 BA        ...   bita 91ba
2145 917D 91 C2 BD        ...   cmpa c2
2146 9180 9D 7E 20        .~    jsr 7e
2147 9183 41              A     illegal
2148 9184 BD A8 64        ..d   jsr a864             ;jump99
2149 9187 20 3C            <    bra 3c
2150 9189 BD A8 D5        ...   jsr a8d5             ;jump97
2151 918C 20 37            7    bra 37
2152 918E BD A8 96        ...   jsr a896             ;jump98
2153 9191 CE 00 1B        ...   ldx #001b
2154 9194 1C 00 10        ...   bset 00,x, #10
2155 9197 CC 02 33        ..3   ldd #0233
2156 919A FD 00 3B        ..;   std 003b
2157 919D 20 26            &    bra 26
2158 919F BD A8 E5        ...   jsr a8e5             ;jump96
2159 91A2 CE 00 1B        ...   ldx #001b
2160 91A5 1C 00 10        ...   bset 00,x, #10
2161 91A8 CC 02 33        ..3   ldd #0233
2162 91AB FD 00 3B        ..;   std 003b
2163 91AE 20 15            .    bra 15
2164 91B0 BD A9 21        ..!   jsr a921             ;jump95
2165 91B3 20 10            .    bra 10
2166 91B5 BD A9 7A        ..z   jsr a97a             ;jump132
2167 91B8 20 0B            .    bra 0b
2168 91BA BD A5 7D        ..}   jsr a57d             ;jump139
2169 91BD BD 85 AF        ...   jsr 85af             ;jump14
2170 91C0 20 03            .    bra 03
2171 91C2 BD 85 AF        ...   jsr 85af             ;jump14
2172 91C5 39              9     rts
2173
2174 jump76:
2175 91C6 F6 00 19        ...   ldab 0019
2176 91C9 2C 28           ,(    bge 28
2177 91CB BD AA 0A        ...   jsr aa0a             ;jump130
2178 91CE C6 53           .S    ldab #53     ; "S"
2179 91D0 F7 0A 90        ...   stab 0a90
2180 91D3 C6 20           .     ldab #20     ; " "
2181 91D5 F7 0A 9D        ...   stab 0a9d
2182 91D8 C6 20           .     ldab #20     ; " "
2183 91DA F7 0A 9E        ...   stab 0a9e
2184 91DD C6 28           .(    ldab #28     ; "("
2185 91DF F7 0A 9F        ...   stab 0a9f
2186 91E2 7F 00 54        ..T   clr 0054
2187 91E5 7F 00 60        ..`   clr 0060
2188 91E8 CE 00 19        ...   ldx #0019
2189 91EB 1D 00           ..    bclr add,x 00,x
2190 91ED 80 7F           ..    suba #7f
2191 91EF 00              .     test
2192 91F0 36              6     psha
2193 91F1 20 66            f    bra 66
2194 91F3 F6 00 0A        ...   ldab 000a
2195 91F6 4F              O     clra
2196 91F7 BD FE 16        ...   jsr fe16             ;jump2
2197 91FA 00 00 00 08     .
2198 91FE 92 59           ..
2199 9200 92 18           ..
2200 9202 92 1D           ..
2201 9204 92 22           ..
2202 9206 92 27           ..
2203 9208 92 38           ..
2204 920A 92 49           ..
2205 920C 92 59           ..
2206 920E 92 59           ..
2207 9210 92 59           ..
2208 9212 92 59           ..
2209 9214 92 4E           ..
2210 9216 92 56           ..
2211 9218 BD 9D 7E        ..    jsr 9d7e
2212 921B 20 3C           .~    bra 3c
2213 921D BD A8 64        ..d   jsr a864             ;jump99
2214 9220 20 37            7    bra 37
2215 9222 BD A8 D5        ...   jsr a8d5             ;jump97
2216 9225 20 32            2    bra 32
2217 9227 BD A8 96        ...   jsr a896             ;jump98
2218 922A CE 00 1B        ...   ldx #001b
2219 922D 1C 00 10        ...   bset 00,x, #10
2220 9230 CC 02 33        ..3   ldd #0233
2221 9233 FD 00 3B        ..;   std 003b
2222 9236 20 21            !    bra 21
2223 9238 BD A8 E5        ...   jsr a8e5             ;jump96
2224 923B CE 00 1B        ...   ldx #001b
2225 923E 1C 00 10        ...   bset 00,x, #10
2226 9241 CC 02 33        ..3   ldd #0233
2227 9244 FD 00 3B        ..;   std 003b
2228 9247 20 10            .    bra 10
2229 9249 BD A9 21        ..!   jsr a921             ;jump95
2230 924C 20 0B            .    bra 0b
2231 924E BD A5 AC        ...   jsr a5ac             ;jump138
2232 9251 BD 85 AF        ...   jsr 85af             ;jump14
2233 9254 20 03            .    bra 03
2234 9256 BD 85 AF        ...   jsr 85af             ;jump14
2235 9259 39              9     rts
2236
2237 jump149:
2238 925A F6 00 19        ...   ldab 0019
2239 925D 2C 28           ,(    bge 28
2240 925F BD AA 3F        ..?   jsr aa3f             ;jump129
2241 9262 C6 49           .I    ldab #49
2242 9264 F7 0A 90        ...   stab 0a90
2243 9267 C6 20           .     ldab #20
2244 9269 F7 0A 9D        ...   stab 0a9d
2245 926C C6 20           .     ldab #20
2246 926E F7 0A 9E        ...   stab 0a9e
2247 9271 C6 28           .(    ldab #28
2248 9273 F7 0A 9F        ...   stab 0a9f
2249 9276 7F 00 54        ..T   clr 0054
2250 9279 7F 00 60        ..`   clr 0060
2251 927C CE 00 19        ...   ldx #0019
2252 927F 1D 00           ..    bclr add,x 00,x
2253 9281 80 7F           ..    suba #7f
2254 9283 00              .     test
2255 9284 36              6     psha
2256 9285 20 66            f    bra 66
2257 9287 F6 00 0A        ...   ldab 000a
2258 928A 4F              O     clra
2259 928B BD FE 16        ...   jsr fe16             ;jump2
2260 928E 00              .     test
2261 928F 00              .     test
2262 9290 00              .     test
2263 9291 0B              .     sev
2264 9292 92 ED 92        ...   sbca ed
2265 9295 AC 92           ..    cpx 92,x
2266 9297 B1 92 B6        ...   cmpa 92b6
2267 929A 92 BB 92        ...   sbca bb
2268 929D CC 92 DD        ...   ldd #92dd
2269 92A0 92 ED 92        ...   sbca ed
2270 92A3 ED 92           ..    std 92,x
2271 92A5 ED 92           ..    std 92,x
2272 92A7 ED 92           ..    std 92,x
2273 92A9 E2 92           ..    sbcb 92,x
2274 92AB EA BD           ..    orb bd,x
2275 92AD 9D 7E 20        .~    jsr 7e
2276 92B0 3C              <     pshx
2277 92B1 BD A8 64        ..d   jsr a864             ;jump99
2278 92B4 20 37            7    bra 37
2279 92B6 BD A8 D5        ...   jsr a8d5             ;jump97
2280 92B9 20 32            2    bra 32
2281 92BB BD A8 96        ...   jsr a896             ;jump98
2282 92BE CE 00 1B        ...   ldx #001b
2283 92C1 1C 00 10        ...   bset 00,x, #10
2284 92C4 CC 02 33        ..3   ldd #0233
2285 92C7 FD 00 3B        ..;   std 003b
2286 92CA 20 21            !    bra 21
2287 92CC BD A8 E5        ...   jsr a8e5             ;jump96
2288 92CF CE 00 1B        ...   ldx #001b
2289 92D2 1C 00 10        ...   bset 00,x, #10
2290 92D5 CC 02 33        ..3   ldd #0233
2291 92D8 FD 00 3B        ..;   std 003b
2292 92DB 20 10            .    bra 10
2293 92DD BD A9 21        ..!   jsr a921             ;jump95
2294 92E0 20 0B            .    bra 0b
2295 92E2 BD A5 D5        ...   jsr a5d5             ;jump137
2296 92E5 BD 85 AF        ...   jsr 85af             ;jump14
2297 92E8 20 03            .    bra 03
2298 92EA BD 85 AF        ...   jsr 85af             ;jump14
2299 92ED 39              9     rts
2300
2301 jump22:
2302 ; print info
2303 92EE F6 0C DC        ...   ldab 0cdc
2304 92F1 4F              O     clra
2305 92F2 37              7     pshb
2306 92F3 36              6     psha
2307 92F4 CC 00 64        ..d   ldd #0064
2308 92F7 BD FB BA        ...   jsr fbba             ;jump38
2309 92FA FD 0C E9        ...   std 0ce9
2310 92FD BD D6 F6        ...   jsr d6f6             ;jump106
2311 9300 FC 0C E9        ...   ldd 0ce9
2312 9303 F3 0B EF        ...   addd 0bef
2313 9306 FD 0C F1        ...   std 0cf1
2314 9309 FE 0C F5        ...   ldx 0cf5
2315 930C 3C              <     pshx
2316 930D FC 0C F3        ...   ldd 0cf3
2317 9310 37              7     pshb
2318 9311 36              6     psha
2319 9312 FE 0C F9        ...   ldx 0cf9
2320 9315 3C              <     pshx
2321 9316 FC 0C F7        ...   ldd 0cf7
2322 9319 BD FC 25        ..%   jsr fc25             ;jump85
2323 931C 37              7     pshb
2324 931D 36              6     psha
2325 931E FE 0C FD        ...   ldx 0cfd
2326 9321 3C              <     pshx
2327 9322 FC 0C FB        ...   ldd 0cfb
2328 9325 BD FC 25        ..%   jsr fc25             ;jump85
2329 9328 37              7     pshb
2330 9329 36              6     psha
2331 932A FE 0D 01        ...   ldx 0d01
2332 932D 3C              <     pshx
2333 932E FC 0C FF        ...   ldd 0cff
2334 9331 BD FC 25        ..%   jsr fc25             ;jump85
2335 9334 37              7     pshb
2336 9335 36              6     psha
2337 9336 FE 0D 05        ...   ldx 0d05
2338 9339 3C              <     pshx
2339 933A FC 0D 03        ...   ldd 0d03
2340 933D BD FC 25        ..%   jsr fc25             ;jump85
2341 9340 FD 0D F3        ...   std 0df3
2342 9343 32              2     pula
2343 9344 33              3     pulb
2344 9345 FD 0D F5        ...   std 0df5
2345 9348 FE 0D F9        ...   ldx 0df9
2346 934B 3C              <     pshx
2347 934C FC 0D F7        ...   ldd 0df7
2348 934F 37              7     pshb
2349 9350 36              6     psha
2350 9351 FE 0D F5        ...   ldx 0df5
2351 9354 3C              <     pshx
2352 9355 FC 0D F3        ...   ldd 0df3
2353 9358 BD FC 25        ..%   jsr fc25             ;jump85
2354 935B FD 0D EF        ...   std 0def
2355 935E 32              2     pula
2356 935F 33              3     pulb
2357 9360 FD 0D F1        ...   std 0df1
2358 9363 F6 20 00        . .   ldab 2000
2359 9366 C4 40           .@    andb #40
2360 9368 27 37           '7    beq 37
2361 936A F6 00 1F        ...   ldab 001f
2362 936D C4 02           ..    andb #02
2363 936F 27 1F           '.    beq 1f
2364 9371 BD 97 E9        ...   jsr 97e9             ;jump147
2365 9374 CE 00 1F        ...   ldx #001f
2366 9377 1D 00 02        ...   bclr 00,x, #02
2367 937A CE 00 1F        ...   ldx #001f
2368 937D 1D 00 10        ...   bclr 00,x, #10
2369 9380 CC 02 33        ..3   ldd #0233
2370 9383 FD 00 3B        ..;   std 003b
2371 9386 7F 00 09        ...   clr 0009
2372 9389 C6 92           ..    ldab #92
2373 938B F7 00 48        ..H   stab 0048
2374 938E 20 0F            .    bra 0f
2375 9390 F6 00 19        ...   ldab 0019
2376 9393 C4 40           .@    andb #40
2377 9395 26 05           &.    bne 05
2378 9397 BD 98 BF        ...   jsr 98bf             ;jump146
2379 939A 20 03            .    bra 03
2380 939C BD 85 AF        ...   jsr 85af             ;jump14
2381 939F 20 03            .    bra 03
2382 93A1 BD 98 FF        ...   jsr 98ff             ;jump145
2383 93A4 39              9     rts
2384
2385 jump23:
2386 ; program security code menu
2387 93A5 F6 00 1F        ...   ldab 001f
2388 93A8 C4 02           ..    andb #02
2389 93AA 26 0A           &.    bne 0a
2390 93AC F6 00 3A        ..:   ldab 003a
2391 93AF 26 2B           &+    bne 2b
2392 93B1 F6 00 1D        ...   ldab 001d
2393 93B4 2D 26           -&    blt 26
2394 93B6 CC AF BB        ...   ldd #afbb    ;"ENTER CODE"
2395 93B9 BD C0 BA        ...   jsr c0ba             ;display:
2396 93BC CE 00 1F        ...   ldx #001f
2397 93BF 1D 00 02        ...   bclr 00,x, #02
2398 93C2 CE 00 1D        ...   ldx #001d
2399 93C5 1D 00           ..    bclr add,x 00,x
2400 93C7 80 C6           ..    suba #c6
2401 93C9 32              2     pula
2402 93CA F7 00 3A        ..:   stab 003a
2403 93CD F6 0B A8        ...   ldab 0ba8
2404 93D0 F7 00 66        ..f   stab 0066
2405 93D3 BD AA 74        ..t   jsr aa74             ;jump128
2406 93D6 7F 00 48        ..H   clr 0048
2407 93D9 7F 00 54        ..T   clr 0054
2408 93DC F6 00 09        ...   ldab 0009
2409 93DF 26 03           &.    bne 03
2410 93E1 7E 94 92        ~..   jmp 9492             ;goto14
2411 93E4 F6 00 1D        ...   ldab 001d
2412 93E7 2C 03           ,.    bge 03
2413 93E9 7E 94 92        ~..   jmp 9492             ;goto14
2414 93EC F6 00 09        ...   ldab 0009
2415 93EF C1 0B           ..    cmpb #0b
2416 93F1 26 06           &.    bne 06
2417 93F3 BD 85 AF        ...   jsr 85af             ;jump14
2418 93F6 7E 94 90        ~..   jmp 9490             ;goto15
2419 93F9 F6 00 09        ...   ldab 0009
2420 93FC C1 0A           ..    cmpb #0a
2421 93FE 26 03           &.    bne 03
2422 9400 7F 00 09        ...   clr 0009
2423 9403 F6 00 09        ...   ldab 0009
2424 9406 CB 30           .0    addb #30
2425 9408 37              7     pshb
2426 9409 F6 00 54        ..T   ldab 0054
2427 940C 4F              O     clra
2428 940D C3 00 62        ..b   addd #0062
2429 9410 8F              .     xgdx
2430 9411 33              3     pulb
2431 9412 E7 00           ..    stab 00,x
2432 9414 BD BE 4B        ..K   jsr be4b             ;displayblank
2433 9417 F6 00 54        ..T   ldab 0054
2434 941A 26 06           &.    bne 06
2435 941C F6 00 62        ..b   ldab 0062
2436 941F F7 0B 96        ...   stab 0b96
2437 9422 F6 00 54        ..T   ldab 0054
2438 9425 C1 01           ..    cmpb #01
2439 9427 26 0C           &.    bne 0c
2440 9429 F6 00 62        ..b   ldab 0062
2441 942C F7 0B 96        ...   stab 0b96
2442 942F F6 00 63        ..c   ldab 0063
2443 9432 F7 0B 95        ...   stab 0b95
2444 9435 F6 00 54        ..T   ldab 0054
2445 9438 C1 02           ..    cmpb #02
2446 943A 26 12           &.    bne 12
2447 943C F6 00 62        ..b   ldab 0062
2448 943F F7 0B 96        ...   stab 0b96
2449 9442 F6 00 63        ..c   ldab 0063
2450 9445 F7 0B 95        ...   stab 0b95
2451 9448 F6 00 64        ..d   ldab 0064
2452 944B F7 0B 94        ...   stab 0b94
2453 944E F6 00 54        ..T   ldab 0054
2454 9451 C1 03           ..    cmpb #03
2455 9453 26 18           &.    bne 18
2456 9455 F6 00 62        ..b   ldab 0062
2457 9458 F7 0B 96        ...   stab 0b96
2458 945B F6 00 63        ..c   ldab 0063
2459 945E F7 0B 95        ...   stab 0b95
2460 9461 F6 00 64        ..d   ldab 0064
2461 9464 F7 0B 94        ...   stab 0b94
2462 9467 F6 00 65        ..e   ldab 0065
2463 946A F7 0B 93        ...   stab 0b93
2464 946D BD BE 01        ...   jsr be01             ;jump70
2465 9470 7C 00 54        |.T   inc 0054
2466 9473 F6 00 54        ..T   ldab 0054
2467 9476 C1 04           ..    cmpb #04
2468 9478 26 0B           &.    bne 0b
2469 947A CE 00 1D        ...   ldx #001d
2470 947D 1C 00           ..    bset add,x 00,x
2471 947F 80 BD           ..    suba #bd
2472 9481 A8 0F           ..    eora 0f,x
2473 9483 20 06            .    bra 06
2474 9485 CE 00 1D        ...   ldx #001d
2475 9488 1D 00           ..    bclr add,x 00,x
2476 948A 80 C6           ..    suba #c6
2477 948C 32              2     pula
2478 948D F7 00 3A        ..:   stab 003a
2479 goto15:
2480 9490 20 4A            J    bra 4a
2481 goto14:
2482 9492 F6 00 1D        ...   ldab 001d
2483 9495 2C 45           ,E    bge 45
2484 9497 F6 00 09        ...   ldab 0009
2485 949A 4F              O     clra
2486 949B BD FE 32        ..2   jsr fe32             ;jump25
2487 949E 94 B8 00 00     ....  ; array data for jump25
2488 94A2 94 BD 00 01     ....
2489 94A6 94 C2 00 04     ....
2490 94AA 94 D1 00 05     ....
2491 94AE 94 D9 00 01     ....
2492 94B2 94 DC FF F5     ....
2493 94B6 00 00           ..    ; end of array data
2494 94B8 BD 9E 0F        ...   jsr 9e0f             ;jump142
2495 94BB 20 1F            .    bra 1f
2496 94BD BD A7 1F        ...   jsr a71f             ;jump134
2497 94C0 20 1A            .    bra 1a
2498 94C2 7C 00 48        |.H   inc 0048
2499 94C5 F6 00 48        ..H   ldab 0048
2500 94C8 C1 0A           ..    cmpb #0a
2501 94CA 23 03           #.    bls 03
2502 94CC 7F 00 48        ..H   clr 0048
2503 94CF 20 0B            .    bra 0b
2504 94D1 BD A5 FE        ...   jsr a5fe             ;jump136
2505 94D4 BD 85 AF        ...   jsr 85af             ;jump14
2506 94D7 20 03            .    bra 03
2507 94D9 BD 85 AF        ...   jsr 85af             ;jump14
2508 94DC 39              9     rts
2509
2510 jump24:
2511 ; motor functions menu
2512 94DD F6 00 1F        ...   ldab 001f
2513 94E0 C4 02           ..    andb #02
2514 94E2 27 14           '.    beq 14
2515 94E4 CE 00 1F        ...   ldx #001f
2516 94E7 1D 00 02        ...   bclr 00,x, #02
2517 94EA CE 00 19        ...   ldx #0019
2518 94ED 1C 00 80        ..    bset 00,x, #80
2519 94EF 7F 00 09        ..    clr 0009
2520 94F3 7F 00 0A        ...   clr 000a
2521 94F6 20 46            F    bra 46
2522 94F8 F6 00 09        ...   ldab 0009
2523 94FB 4F              O     clra
2524 94FC BD FE 32        ..2   jsr fe32             ;jump25
2525 94FF 95 19 00 00     ....  ; no key
2526 9503 95 21 00 01     .!..  ; key 1 - motor count procedure
2527 9507 95 2C 00 01     .,..  ; key 2 - single test vend
2528 950B 95 30 00 01     .0..  ; key 3 - test vend everything
2529 950F 95 35 00 08     .5..  ; reset
2530 9513 95 38 FF F5     .8..
2531 9517 00 00           ..    ; end of array data
2532 9519 CC B0 A2        ...   ldd #b0a2    ; "MTR FUNCT?"
2533 951C BD C0 BA        ...   jsr c0ba             ;display:
2534 951F 20 1D            .    bra 1d
2535 9521 BD 87 E9        ...   jsr 87e9             ;jump74 - motor count procedure
2536 9524 CE 00 1F        ...   ldx #001f
2537 9527 1C 00 02        ...   bset 00,x, #02
2538 952A 20 12            .    bra 12
2539 952C 8D 11           ..    bsr dest 11  ;jump203 - test single vend
2540 952E 20 0E            .    bra 0e
2541 9530 BD 96 88        ...   jsr 9688             ;jump148 - test all vends
2542 9533 20 09            .    bra 09
2543 9535 BD 85 AF        ...   jsr 85af             ;jump14
2544 9538 7F 00 09        ...   clr 0009
2545 953B 7F 00 0A        ...   clr 000a
2546 953E 39              9     rts
2547
2548 jump203:
2549 ; test a single vend
2550 953F F6 00 19        ...   ldab 0019
2551 9542 2D 0A           -.    blt 0a
2552 9544 F6 00 3A        ..:   ldab 003a
2553 9547 26 22           &"    bne 22
2554 9549 F6 00 1D        ...   ldab 001d
2555 954C 2D 1D           -.    blt 1d
2556 954E 7F 00 2C        ..,   clr 002c
2557 9551 CC B0 B8        ...   ldd #b0b8    ; "SELECTION?"
2558 9554 BD C0 BA        ...   jsr c0ba             ;display:
2559 9557 CE 00 19        ...   ldx #0019
2560 955A 1D 00           ..    bclr add,x 00,x
2561 955C 80 CE           ..    suba #ce
2562 955E 00              .     test
2563 955F 1D 1D 00        ...   bclr 1d,x, #00
2564 9562 80 7F           ..    suba #7f
2565 9564 00              .     test
2566 9565 54              T     lsrb
2567 9566 C6 32           .2    ldab #32
2568 9568 F7 00 3A        ..:   stab 003a
2569 956B F6 00 0A        ...   ldab 000a
2570 956E 26 03           &.    bne 03
2571 9570 7E 96 5C        ~.\   jmp 965c             ;goto16
2572 9573 F6 00 1D        ...   ldab 001d
2573 9576 2C 03           ,.    bge 03
2574 9578 7E 96 5C        ~.\   jmp 965c             ;goto16
2575 957B F6 00 0A        ...   ldab 000a
2576 957E C1 0B           ..    cmpb #0b
2577 9580 26 09           &.    bne 09
2578 9582 CE 00 1F        ...   ldx #001f
2579 9585 1C 00 02        ...   bset 00,x, #02
2580 9588 7E 96 5A        ~.Z   jmp 965a             ;goto93
2581 958B F6 00 54        ..T   ldab 0054
2582 958E 26 26           &&    bne 26
2583 9590 BD BE 4B        ..K   jsr be4b             ;displayblank
2584 9593 F6 00 0A        ...   ldab 000a
2585 9596 C1 0A           ..    cmpb #0a
2586 9598 26 03           &.    bne 03
2587 959A 7F 00 0A        ...   clr 000a
2588 959D F6 00 0A        ...   ldab 000a
2589 95A0 CB 30           .0    addb #30
2590 95A2 37              7     pshb
2591 95A3 CC 0B 95        ...   ldd #0b95
2592 95A6 F0 00 54        ..T   subb 0054
2593 95A9 82 00           ..    sbca #00
2594 95AB 8F              .     xgdx
2595 95AC 33              3     pulb
2596 95AD E7 00           ..    stab 00,x
2597 95AF C6 32           .2    ldab #32
2598 95B1 F7 00 3A        ..:   stab 003a
2599 95B4 20 37            7    bra 37
2600 95B6 F6 00 54        ..T   ldab 0054
2601 95B9 C1 01           ..    cmpb #01
2602 95BB 26 27           &'    bne 27
2603 95BD F6 00 0A        ...   ldab 000a
2604 95C0 C1 05           ..    cmpb #05
2605 95C2 27 20           '     beq 20
2606 95C4 F6 00 0A        ...   ldab 000a
2607 95C7 C1 0A           ..    cmpb #0a
2608 95C9 27 19           '.    beq 19
2609 95CB F6 00 0A        ...   ldab 000a
2610 95CE CB 30           .0    addb #30
2611 95D0 37              7     pshb
2612 95D1 CC 0B 95        ...   ldd #0b95
2613 95D4 F0 00 54        ..T   subb 0054
2614 95D7 82 00           ..    sbca #00
2615 95D9 8F              .     xgdx
2616 95DA 33              3     pulb
2617 95DB E7 00           ..    stab 00,x
2618 95DD C6 32           .2    ldab #32
2619 95DF F7 00 3A        ..:   stab 003a
2620 95E2 20 09            .    bra 09
2621 95E4 CE 00 19        ...   ldx #0019
2622 95E7 1C 00           ..    bset add,x 00,x
2623 95E9 80 7F           ..    suba #7f
2624 95EB 00              .     test
2625 95EC 3A              :     abx
2626 95ED BD BE 01        ...   jsr be01             ;jump70
2627 95F0 7C 00 54        |.T   inc 0054
2628 95F3 F6 00 54        ..T   ldab 0054
2629 95F6 C1 02           ..    cmpb #02
2630 95F8 26 5A           &Z    bne 5a
2631 95FA CE 00 1D        ...   ldx #001d
2632 95FD 1C 00           ..    bset add,x 00,x
2633 95FF 80 F6           ..    suba #f6
2634 9601 0B              .     sev
2635 9602 94 CB D0        ...   anda cb
2636 9605 37              7     pshb
2637 9606 F6 0B 95        ...   ldab 0b95
2638 9609 CB D0           ..    addb #d0
2639 960B 86 0A           ..    ldaa #0a
2640 960D 3D              =     mul
2641 960E 30              0     tsx
2642 960F EB 00           ..    addb 00,x
2643 9611 31              1     ins
2644 9612 F7 00 06        ...   stab 0006
2645 9615 C6 32           .2    ldab #32
2646 9617 F7 00 3A        ..:   stab 003a
2647 961A F6 00 06        ...   ldab 0006
2648 961D BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
2649 9620 83 00 00        ...   subd #0000
2650 9623 26 21           &!    bne 21
2651 9625 BD D3 11        ...   jsr d311             ;jump30 - test position exists
2652 9628 83 00 00        ...   subd #0000
2653 962B 26 0B           &.    bne 0b
2654 962D CE 00 1F        ...   ldx #001f
2655 9630 1C 00 40        ...   bset 00,x, #40
2656 9633 BD 8C 73        ..s   jsr 8c73             ;jump75
2657 9636 20 06            .    bra 06
2658 9638 CE 00 1F        ...   ldx #001f
2659 963B 1D 00 40        ...   bclr 00,x, #40
2660 963E 7F 00 2C        ..,   clr 002c
2661 9641 BD 9A 47        ..G   jsr 9a47             ;jump39
2662 9644 20 0C            .    bra 0c
2663 9646 CE 00 1D        ...   ldx #001d
2664 9649 1D 00           ..    bclr add,x 00,x
2665 964B 80 CE           ..    suba #ce
2666 964D 00              .     test
2667 964E 19              .     daa
2668 964F 1C 00           ..    bset add,x 00,x
2669 9651 80 20           .     suba #20
2670 9653 06              .     tap
2671 9654 CE 00 1D        ...   ldx #001d
2672 9657 1D 00           ..    bclr add,x 00,x
2673 9659 80 20           .     suba #20
2674 ; 965a   goto93
2675 965B 2B F6           +.    bmi f6
2676 ; 965C
2677 ;goto16
2678 965D 00              .     test
2679 965E 1D 2C           .,    bclr add,x 2c,x
2680 9660 26 BD           &.    bne bd
2681 9662 D2 13 83        ...   sbcb 13
2682 9665 00              .     test
2683 9666 00              .     test
2684 9667 26 0F           &.    bne 0f
2685 9669 CC 00 64        ..d   ldd #0064
2686 966C BD E5 71        ..q   jsr e571             ;msdelay
2687 966F BD E5 D1        ...   jsr e5d1             ;jump52
2688 9672 CC 03 84        ...   ldd #0384
2689 9675 BD E5 71        ..q   jsr e571             ;msdelay
2690 9678 7F 00 2E        ...   clr 002e
2691 967B CE 00 1D        ...   ldx #001d
2692 967E 1D 00           ..    bclr add,x 00,x
2693 9680 80 CE           ..    suba #ce
2694 9682 00              .     test
2695 9683 1F 1C 00 02     ....  brclr 1c,x 00 02
2696 9687 39              9     rts
2697
2698 jump148:
2699 ;tests all vends
2700 9688 34              4     des
2701 9689 F6 00 19        ...   ldab 0019
2702 968C 2C 19           ,.    bge 19
2703 968E CE 00 19        ...   ldx #0019
2704 9691 1D 00 80        ..    bclr 00,x, #80
2705 9694 CC B0 97        ...   ldd #b097   ; "TEST  VEND"
2706 9697 BD C0 BA        ...   jsr c0ba    ; display
2707 969A C6 0A           ..    ldab #0a
2708 969C F7 00 38        ..8   stab 0038
2709 969F 7F 00 05        ...   clr 0005
2710 96A2 C6 01           ..    ldab #01
2711 96A4 F7 00 06        ...   stab 0006
2712 96A7 F6 00 0A        ...   ldab 000a
2713 96AA C1 0B           ..    cmpb #0b
2714 96AC 26 0C           &.    bne 0c      ; to 96ba
2715 96AE CC 02 33        ..3   ldd #0233
2716 96B1 FD 00 3B        ..;   std 003b
2717 96B4 CE 00 1F        ...   ldx #001f
2718 96B7 1C 00 02        ...   bset 00,x, #02
2719 96BA F6 00 38        ..8   ldab 0038
2720 96BD 27 03           '.    beq 03
2721 96BF 7E 97 6D        ~.m   jmp 976d             ;goto17 - return
2722 96C2 F6 00 06        ...   ldab 0006
2723 96C5 C1 63           .c    cmpb #63     ; exit if >63
2724 96C7 23 03           #.    bls 03
2725 96C9 7E 97 6D        ~.m   jmp 976d             ;goto17 - return
2726 96CC F6 00 06        ...   ldab 0006
2727 96CF C1 63           .c    cmpb #63
2728 96D1 26 0F           &.    bne 0f
2729 96D3 BD 99 C3        ...   jsr 99c3             ;jump143 - write "VENDS XXX" (from 0005)
2730 96D6 CC 07 D0        ...   ldd #07d0    ; 2000
2731 96D9 BD E5 71        ..q   jsr e571             ;msdelay
2732 96DC CE 00 1F        ...   ldx #001f
2733 96DF 1C 00 02        ...   bset 00,x, #02
2734 96E2 BD D3 11        ...   jsr d311             ;jump30 - test position exists
2735 96E5 83 00 00        ...   subd #0000
2736 96E8 26 0B           &.    bne 0b
2737 96EA CE 00 1F        ...   ldx #001f
2738 96ED 1C 00 40        ...   bset 00,x, #40
2739 96F0 BD 8C 73        ..s   jsr 8c73             ;jump75
2740 96F3 20 06            .    bra 06
2741 96F5 CE 00 1F        ...   ldx #001f
2742 96F8 1D 00 40        ...   bclr 00,x, #40
2743 96FB BD 9A 47        ..G   jsr 9a47             ;jump39
2744 96FE F6 00 06        ...   ldab 0006
2745 9701 C1 63           .c    cmpb #63
2746 9703 26 03           &.    bne 03
2747 9705 7F 00 2C        ..,   clr 002c
2748 9708 BD D2 13        ...   jsr d213             ;jump45
2749 970B 83 00 00        ...   subd #0000
2750 970E 27 03           '.    beq 03
2751 9710 7C 00 05        |..   inc 0005
2752 9713 7F 00 2E        ...   clr 002e
2753 9716 C6 05           ..    ldab #05
2754 9718 F7 00 38        ..8   stab 0038
2755 971B CC 02 33        ..3   ldd #0233
2756 971E FD 00 3B        ..;   std 003b
2757 9721 30              0     tsx
2758 9722 6F 00           o.    clr 00,x
2759 9724 F6 0E 6D        ..m   ldab 0e6d
2760 9727 27 0C           '.    beq 0c
2761 9729 F6 00 06        ...   ldab 0006
2762 972C C1 3E           .>    cmpb #3e
2763 972E 26 05           &.    bne 05
2764 9730 C6 01           ..    ldab #01
2765 9732 30              0     tsx
2766 9733 E7 00           ..    stab 00,x
2767 9735 8D 38           .8    bsr dest 38
2768 9737 F6 0E 6D        ..m   ldab 0e6d
2769 973A 27 0C           '.    beq 0c
2770 973C 30              0     tsx
2771 973D E6 00           ..    ldab 00,x
2772 973F C1 01           ..    cmpb #01
2773 9741 26 05           &.    bne 05
2774 9743 C6 45           .E    ldab #45
2775 9745 F7 00 06        ...   stab 0006
2776 9748 F6 00 06        ...   ldab 0006
2777 974B BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
2778 974E 83 00 00        ...   subd #0000
2779 9751 27 15           '.    beq 15
2780 9753 F6 00 06        ...   ldab 0006
2781 9756 C1 09           ..    cmpb #09
2782 9758 26 02           &.    bne 02
2783 975A 8D 13           ..    bsr dest 13
2784 975C F6 00 06        ...   ldab 0006
2785 975F C1 45           .E    cmpb #45
2786 9761 26 05           &.    bne 05
2787 9763 C6 63           .c    ldab #63
2788 9765 F7 00 06        ...   stab 0006
2789 9768 5F              _     clrb
2790 9769 4F              O     clra
2791 976A FD 00 40        ..@   std 0040
2792 goto17:
2793 976D 31              1     ins
2794 976E 39              9     rts
2795
2796 jump41:
2797 976F F6 0E 6D        ..m   ldab 0e6d
2798 9772 C1 01           ..    cmpb #01
2799 9774 26 41           &A    bne 41
2800 9776 F6 00 06        ...   ldab 0006
2801 9779 4F              O     clra
2802 977A CE 00 0A        ...   ldx #000a
2803 977D 02              .     idiv
2804 977E C1 01           ..    cmpb #01
2805 9780 26 05           &.    bne 05
2806 9782 7C 00 06        |..   inc 0006
2807 9785 20 1B            .    bra 1b
2808 9787 F6 00 06        ...   ldab 0006
2809 978A 4F              O     clra
2810 978B CE 00 0A        ...   ldx #000a
2811 978E 02              .     idiv
2812 978F C1 02           ..    cmpb #02
2813 9791 26 0A           &.    bne 0a
2814 9793 C6 09           ..    ldab #09
2815 9795 FB 00 06        ...   addb 0006
2816 9798 F7 00 06        ...   stab 0006
2817 979B 20 05            .    bra 05
2818 979D C6 0B           ..    ldab #0b
2819 979F F7 00 06        ...   stab 0006
2820 97A2 F6 00 06        ...   ldab 0006
2821 97A5 C1 3E           .>    cmpb #3e
2822 97A7 22 07           ".    bhi 07
2823 97A9 F6 00 06        ...   ldab 0006
2824 97AC C1 0B           ..    cmpb #0b
2825 97AE 24 05           $.    bcc 05
2826 97B0 C6 0B           ..    ldab #0b
2827 97B2 F7 00 06        ...   stab 0006
2828 97B5 20 31            1    bra 31
2829 97B7 F6 00 06        ...   ldab 0006
2830 97BA CB 0A           ..    addb #0a
2831 97BC F7 00 06        ...   stab 0006
2832 97BF F6 00 06        ...   ldab 0006
2833 97C2 C1 64           .d    cmpb #64
2834 97C4 23 22           #"    bls 22
2835 97C6 F6 00 06        ...   ldab 0006
2836 97C9 CB 9C           ..    addb #9c
2837 97CB CB 01           ..    addb #01
2838 97CD F7 00 06        ...   stab 0006
2839 97D0 F6 00 06        ...   ldab 0006
2840 97D3 C1 05           ..    cmpb #05
2841 97D5 26 05           &.    bne 05
2842 97D7 C6 06           ..    ldab #06
2843 97D9 F7 00 06        ...   stab 0006
2844 97DC F6 00 06        ...   ldab 0006
2845 97DF C1 0A           ..    cmpb #0a
2846 97E1 26 05           &.    bne 05
2847 97E3 C6 01           ..    ldab #01
2848 97E5 F7 00 06        ...   stab 0006
2849 97E8 39              9     rts
2850
2851 jump147:
2852 97E9 BD BE 4B        ..K   jsr be4b             ;displayblank
2853 97EC CC AF E7        ...   ldd #afe7    ; "-PRINTING-"
2854 97EF BD C0 BA        ...   jsr c0ba             ;display:
2855 97F2 BD F4 15        ...   jsr f415             ;jump112
2856 97F5 39              9     rts
2857
2858 jump27:
2859 97F6 BD BE 4B        ..K   jsr be4b             ;displayblank
2860 97F9 F6 00 48        ..H   ldab 0048
2861 97FC 4F              O     clra
2862 97FD BD FE 16        ...   jsr fe16             ;jump2
2863 9800 00 01 00 03     .     test
2864 9804 98 80           ..
2865 9806 98 0E           ..
2866 9808 98 2B           ..
2867 980A 98 48           ..
2868 980C 98 65           ..
2869 980E F6 0C D9        ..    ldab 0cd9
2870 9811 4F              .     clra
2871 9812 BD E7 95        ...   jsr e795      ;jump54 - number to string
2872 9815 C6 4E           .N    ldab #4e
2873 9817 F7 0B 99        ...   stab 0b99
2874 981A C6 49           .I    ldab #49
2875 981C F7 0B 98        ...   stab 0b98
2876 981F C6 4B           .K    ldab #4b
2877 9821 F7 0B 97        ...   stab 0b97
2878 9824 C6 4C           .L    ldab #4c
2879 9826 F7 0B 96        ...   stab 0b96
2880 9829 20 55            U    bra 55
2881 982B F6 0C DA        ...   ldab 0cda
2882 982E 4F              O     clra
2883 982F BD E7 95        ...   jsr e795             ;jump54 - number to string
2884 9832 C6 44           .D    ldab #44
2885 9834 F7 0B 99        ...   stab 0b99
2886 9837 C6 49           .I    ldab #49
2887 9839 F7 0B 98        ...   stab 0b98
2888 983C C6 4D           .M    ldab #4d
2889 983E F7 0B 97        ...   stab 0b97
2890 9841 C6 45           .E    ldab #45
2891 9843 F7 0B 96        ...   stab 0b96
2892 9846 20 38            8    bra 38
2893 9848 F6 0C DB        ...   ldab 0cdb
2894 984B 4F              O     clra
2895 984C BD E7 95        ...   jsr e795             ;jump54 - number to string
2896 984F C6 51           .Q    ldab #51
2897 9851 F7 0B 99        ...   stab 0b99
2898 9854 C6 55           .U    ldab #55
2899 9856 F7 0B 98        ...   stab 0b98
2900 9859 C6 54           .T    ldab #54
2901 985B F7 0B 97        ...   stab 0b97
2902 985E C6 52           .R    ldab #52
2903 9860 F7 0B 96        ...   stab 0b96
2904 9863 20 1B            .    bra 1b
2905 9865 F6 0C DC        ...   ldab 0cdc
2906 9868 4F              O     clra
2907 9869 BD E7 95        ...   jsr e795             ;jump54 - number to string
2908 986C C6 44           .D    ldab #44     ; "D"
2909 986E F7 0B 99        ...   stab 0b99
2910 9871 C6 4F           .O    ldab #4f     ; "O"
2911 9873 F7 0B 98        ...   stab 0b98
2912 9876 C6 4C           .L    ldab #4c     ; "L"
2913 9878 F7 0B 97        ...   stab 0b97
2914 987B C6 52           .R    ldab #52     ; "R"
2915 987D F7 0B 96        ...   stab 0b96
2916 9880 C6 53           .S    ldab #53     ; "S"
2917 9882 F7 0B 95        ...   stab 0b95
2918 9885 C6 20           .     ldab #20     ; " "
2919 9887 F7 0B 94        ...   stab 0b94
2920 988A C6 20           .     ldab #20     ; " "
2921 988C F7 0B 93        ...   stab 0b93
2922 988F F6 00 5D        ..]   ldab 005d
2923 9892 F7 0B 92        ...   stab 0b92
2924 9895 F6 00 5E        ..^   ldab 005e    ; row number?
2925 9898 F7 0B 91        ...   stab 0b91
2926 989B F6 00 5F        .._   ldab 005f    ; column number?
2927 989E F7 0B 90        ...   stab 0b90
2928 98A1 BD BE 01        ...   jsr be01             ;jump70 - to disp buffer
2929 98A4 39              9     rts
2930
2931 jump11:
2932 ; prints contents of 0054 to display
2933 98A5 BD BE 4B        ..K   jsr be4b             ;displayblank
2934 98A8 F6 00 54        ..T   ldab 0054
2935 98AB 4F              O     clra
2936 98AC BD E7 95        ...   jsr e795             ; slot number to digits
2937 98AF F6 00 5E        ..^   ldab 005e
2938 98B2 F7 0B 95        ...   stab 0b95
2939 98B5 F6 00 5F        .._   ldab 005f
2940 98B8 F7 0B 94        ...   stab 0b94
2941 98BB BD BE 01        ...   jsr be01             ;jump70 - write to display
2942 98BE 39              9     rts
2943
2944 jump146:
2945 98BF F6 00 09        ...   ldab 0009
2946 98C2 C1 00           ..    cmpb #00
2947 98C4 26 05           &.    bne 05
2948 98C6 BD 9E 89        ...   jsr 9e89             ;jump100
2949 98C9 20 33            3    bra 33
2950 98CB C1 01           ..    cmpb #01
2951 98CD 26 1E           &.    bne 1e
2952 98CF F6 00 48        ..H   ldab 0048
2953 98D2 C1 92           ..    cmpb #92
2954 98D4 26 15           &.    bne 15
2955 98D6 F6 00 1F        ...   ldab 001f
2956 98D9 C4 10           ..    andb #10
2957 98DB 26 08           &.    bne 08
2958 98DD CE 00 1F        ...   ldx #001f
2959 98E0 1C 00 10        ...   bset 00,x, #10
2960 98E3 20 06            .    bra 06
2961 98E5 CE 00 1F        ...   ldx #001f
2962 98E8 1D 00 10        ...   bclr 00,x, #10
2963 98EB 20 11            .    bra 11
2964 98ED C1 0B           ..    cmpb #0b
2965 98EF 26 0D           &.    bne 0d
2966 98F1 F6 00 1F        ...   ldab 001f
2967 98F4 C4 10           ..    andb #10
2968 98F6 27 03           '.    beq 03
2969 98F8 BD E9 2B        ..+   jsr e92b             ;jump103
2970 98FB BD 85 AF        ...   jsr 85af             ;jump14
2971 98FE 39              9     rts
2972
2973 jump145:
2974 98FF F6 00 1F        ...   ldab 001f
2975 9902 C4 02           ..    andb #02
2976 9904 27 13           '.    beq 13
2977 9906 C6 01           ..    ldab #01
2978 9908 F7 00 48        ..H   stab 0048
2979 990B CE 00 1F        ...   ldx #001f
2980 990E 1D 00 10        ...   bclr 00,x, #10
2981 9911 CE 00 1F        ...   ldx #001f
2982 9914 1D 00 02        ...   bclr 00,x, #02
2983 9917 20 67            g    bra 67
2984 9919 F6 00 09        ...   ldab 0009
2985 991C 4F              O     clra
2986 991D BD FE 32        ..2   jsr fe32             ;jump25
2987 9920 99 36 00 00     .6..  ; array data for jump25
2988 9924 99 3B 00 01     .;..
2989 9928 99 59 00 09     .Y..
2990 992C 99 73 00 01     .s..
2991 9930 99 80 FF F5     ....
2992 9934 00 00           ..    ; end of array data
2993 9936 BD 9E 89        ...   jsr 9e89             ;jump100
2994 9939 20 45            E    bra 45
2995 993B F6 00 48        ..H   ldab 0048
2996 993E C1 92           ..    cmpb #92
2997 9940 26 15           &.    bne 15
2998 9942 F6 00 1F        ...   ldab 001f
2999 9945 C4 10           ..    andb #10
3000 9947 26 08           &.    bne 08
3001 9949 CE 00 1F        ...   ldx #001f
3002 994C 1C 00 10        ...   bset 00,x, #10
3003 994F 20 06            .    bra 06
3004 9951 CE 00 1F        ...   ldx #001f
3005 9954 1D 00 10        ...   bclr 00,x, #10
3006 9957 20 27            '    bra 27
3007 9959 7C 00 48        |.H   inc 0048
3008 995C F6 00 48        ..H   ldab 0048
3009 995F C1 92           ..    cmpb #92
3010 9961 23 0B           #.    bls 0b
3011 9963 C6 01           ..    ldab #01
3012 9965 F7 00 48        ..H   stab 0048
3013 9968 CE 00 1F        ...   ldx #001f
3014 996B 1D 00 10        ...   bclr 00,x, #10
3015 996E BD 9E 89        ...   jsr 9e89             ;jump100
3016 9971 20 0D            .    bra 0d
3017 9973 F6 00 1F        ...   ldab 001f
3018 9976 C4 10           ..    andb #10
3019 9978 27 03           '.    beq 03
3020 997A BD E9 2B        ..+   jsr e92b             ;jump103
3021 997D BD 85 AF        ...   jsr 85af             ;jump14
3022 9980 39              9     rts
3023
3024 jump144:
3025 ; writes "MOTORS XX" where XX is the slot number in 0005
3026 9981 BD BE 4B        ..K   jsr be4b             ;displayblank
3027 9984 F6 00 05        ...   ldab 0005
3028 9987 4F              O     clra
3029 9988 BD E7 95        ...   jsr e795             ;jump54 - number to string
3030 998B C6 4D           .M    ldab #4d     ; "M"
3031 998D F7 0B 99        ...   stab 0b99
3032 9990 C6 4F           .O    ldab #4f     ; "O"
3033 9992 F7 0B 98        ...   stab 0b98
3034 9995 C6 54           .T    ldab #54     ; "T"
3035 9997 F7 0B 97        ...   stab 0b97
3036 999A C6 4F           .O    ldab #4f     ; "O"
3037 999C F7 0B 96        ...   stab 0b96
3038 999F C6 52           .R    ldab #52     ; "R"
3039 99A1 F7 0B 95        ...   stab 0b95
3040 99A4 C6 53           .S    ldab #53     ; "S"
3041 99A6 F7 0B 94        ...   stab 0b94
3042 99A9 C6 20           .     ldab #20     ; " "
3043 99AB F7 0B 93        ...   stab 0b93
3044 99AE C6 20           .     ldab #20     ; " "
3045 99B0 F7 0B 92        ...   stab 0b92
3046 99B3 F6 00 5E        ..^   ldab 005e
3047 99B6 F7 0B 91        ...   stab 0b91
3048 99B9 F6 00 5F        .._   ldab 005f
3049 99BC F7 0B 90        ...   stab 0b90
3050 99BF BD BE 01        ...   jsr be01             ;jump70 - display
3051 99C2 39              9     rts
3052
3053 jump143:
3054 ; writes VENDS XX where XX is contents of 0005
3055 99C3 BD BE 4B        ..K   jsr be4b             ;displayblank
3056 99C6 F6 00 05        ...   ldab 0005
3057 99C9 4F              O     clra
3058 99CA BD E7 95        ...   jsr e795             ;jump54 - number to string
3059 99CD C6 56           .V    ldab #56     ; "V"
3060 99CF F7 0B 99        ...   stab 0b99
3061 99D2 C6 45           .E    ldab #45     ; "E"
3062 99D4 F7 0B 98        ...   stab 0b98
3063 99D7 C6 4E           .N    ldab #4e     ; "N"
3064 99D9 F7 0B 97        ...   stab 0b97
3065 99DC C6 44           .D    ldab #44     ; "D"
3066 99DE F7 0B 96        ...   stab 0b96
3067 99E1 C6 53           .S    ldab #53     ; "S"
3068 99E3 F7 0B 95        ...   stab 0b95
3069 99E6 C6 20           .     ldab #20     ; " "
3070 99E8 F7 0B 94        ...   stab 0b94
3071 99EB C6 20           .     ldab #20     ; " "
3072 99ED F7 0B 93        ...   stab 0b93
3073 99F0 C6 20           .     ldab #20     ; " "
3074 99F2 F7 0B 92        ...   stab 0b92
3075 99F5 F6 00 5E        ..^   ldab 005e
3076 99F8 F7 0B 91        ...   stab 0b91
3077 99FB F6 00 5F        .._   ldab 005f
3078 99FE F7 0B 90        ...   stab 0b90
3079 9A01 BD BE 01        ...   jsr be01             ;jump70
3080 9A04 39              9     rts
3081
3082 jump102:
3083 9A05 BD BE 4B        ..K   jsr be4b             ;displayblank
3084 9A08 FC 00 52        ..R   ldd 0052
3085 9A0B BD E7 45        ..E   jsr e745             ;jump55 - number to string
3086 9A0E C6 4F           .O    ldab #4f     ; "O"
3087 9A10 F7 0B 99        ...   stab 0b99
3088 9A13 C6 44           .D    ldab #44     ; "D"
3089 9A15 F7 0B 98        ...   stab 0b98
3090 9A18 C6 44           .D    ldab #44     ; "D"
3091 9A1A F7 0B 97        ...   stab 0b97
3092 9A1D C6 53           .S    ldab #53     ; "S"
3093 9A1F F7 0B 96        ...   stab 0b96
3094 9A22 C6 20           .     ldab #20     ; " "
3095 9A24 F7 0B 95        ...   stab 0b95
3096 9A27 C6 31           .1    ldab #31     ; "1"
3097 9A29 F7 0B 94        ...   stab 0b94
3098 9A2C C6 2F           ./    ldab #2f     ; "/"
3099 9A2E F7 0B 93        ...   stab 0b93
3100 9A31 F6 00 5D        ..]   ldab 005d
3101 9A34 F7 0B 92        ...   stab 0b92
3102 9A37 F6 00 5E        ..^   ldab 005e
3103 9A3A F7 0B 91        ...   stab 0b91
3104 9A3D F6 00 5F        .._   ldab 005f
3105 9A40 F7 0B 90        ...   stab 0b90
3106 9A43 BD BE 01        ...   jsr be01             ;jump70
3107 9A46 39              9     rts
3108
3109 jump39:
3110 9A47 BD BE 4B        ..K   jsr be4b             ;displayblank
3111 9A4A F6 00 06        ...   ldab 0006
3112 9A4D 4F              O     clra
3113 9A4E BD E7 95        ...   jsr e795             ;jump54 - number to string
3114 9A51 F6 00 5E        ..^   ldab 005e
3115 9A54 F7 0B 99        ...   stab 0b99
3116 9A57 F6 00 5F        .._   ldab 005f
3117 9A5A F7 0B 98        ...   stab 0b98
3118 9A5D C6 20           .     ldab #20
3119 9A5F F7 0B 97        ...   stab 0b97
3120 9A62 F6 00 1F        ...   ldab 001f
3121 9A65 C4 40           .@    andb #40
3122 9A67 27 45           'E    beq 45
3123 9A69 FC 00 27        ..'   ldd 0027
3124 9A6C BD E7 45        ..E   jsr e745             ;jump55 - number to string
3125 9A6F F6 00 5A        ..Z   ldab 005a
3126 9A72 F7 0B 96        ...   stab 0b96
3127 9A75 F6 00 5D        ..]   ldab 005d
3128 9A78 F7 0B 95        ...   stab 0b95
3129 9A7B F6 00 5E        ..^   ldab 005e
3130 9A7E F7 0B 94        ...   stab 0b94
3131 9A81 F6 00 5F        .._   ldab 005f
3132 9A84 F7 0B 93        ...   stab 0b93
3133 9A87 F6 00 19        ...   ldab 0019
3134 9A8A C4 10           ..    andb #10
3135 9A8C 27 07           '.    beq 07
3136 9A8E C6 2A           .*    ldab #2a
3137 9A90 F7 0B 92        ...   stab 0b92
3138 9A93 20 05            .    bra 05
3139 9A95 C6 20           .     ldab #20
3140 9A97 F7 0B 92        ...   stab 0b92
3141 9A9A FC 00 46        ..F   ldd 0046
3142 9A9D BD E7 45        ..E   jsr e745             ;jump55 - number to string
3143 9AA0 F6 00 5E        ..^   ldab 005e
3144 9AA3 F7 0B 91        ...   stab 0b91
3145 9AA6 F6 00 5F        .._   ldab 005f
3146 9AA9 F7 0B 90        ...   stab 0b90
3147 9AAC 20 1E            .    bra 1e
3148 9AAE C6 58           .X    ldab #58   : "X"
3149 9AB0 F7 0B 96        ...   stab 0b96
3150 9AB3 C6 58           .X    ldab #58   : "X"
3151 9AB5 F7 0B 95        ...   stab 0b95
3152 9AB8 C6 58           .X    ldab #58   : "X"
3153 9ABA F7 0B 94        ...   stab 0b94
3154 9ABD C6 58           .X    ldab #58   : "X"
3155 9ABF F7 0B 93        ...   stab 0b93
3156 9AC2 C6 58           .X    ldab #58   : "X"
3157 9AC4 F7 0B 91        ...   stab 0b91
3158 9AC7 C6 58           .X    ldab #58   : "X"
3159 9AC9 F7 0B 90        ...   stab 0b90
3160 9ACC F6 00 13        ...   ldab 0013
3161 9ACF C1 01           ..    cmpb #01
3162 9AD1 23 4C           #L    bls 4c
3163 9AD3 F6 0B 91        ...   ldab 0b91
3164 9AD6 F7 0B 90        ...   stab 0b90
3165 9AD9 F6 0B 92        ...   ldab 0b92
3166 9ADC F7 0B 91        ...   stab 0b91
3167 9ADF F6 0B 93        ...   ldab 0b93
3168 9AE2 F7 0B 92        ...   stab 0b92
3169 9AE5 F6 0B 94        ...   ldab 0b94
3170 9AE8 F7 0B 93        ...   stab 0b93
3171 9AEB F6 00 13        ...   ldab 0013
3172 9AEE C1 02           ..    cmpb #02
3173 9AF0 26 07           &.    bne 07
3174 9AF2 C6 2E           ..    ldab #2e   ; "."
3175 9AF4 F7 0B 94        ...   stab 0b94
3176 9AF7 20 26            &    bra 26
3177 9AF9 C1 04           ..    cmpb #04
3178 9AFB 26 0D           &.    bne 0d
3179 9AFD F6 0B 95        ...   ldab 0b95
3180 9B00 F7 0B 94        ...   stab 0b94
3181 9B03 C6 2E           ..    ldab #2e   ; "."
3182 9B05 F7 0B 95        ...   stab 0b95
3183 9B08 20 15            .    bra 15
3184 9B0A C1 08           ..    cmpb #08
3185 9B0C 26 11           &.    bne 11
3186 9B0E F6 0B 95        ...   ldab 0b95
3187 9B11 F7 0B 94        ...   stab 0b94
3188 9B14 F6 0B 96        ...   ldab 0b96
3189 9B17 F7 0B 95        ...   stab 0b95
3190 9B1A C6 2E           ..    ldab #2e
3191 9B1C F7 0B 96        ...   stab 0b96
3192 9B1F F6 00 2C        ..,   ldab 002c
3193 9B22 26 3E           &>    bne 3e
3194 9B24 BD BE 69        ..i   jsr be69             ;displayreset
3195 9B27 F6 00 13        ...   ldab 0013
3196 9B2A C1 01           ..    cmpb #01
3197 9B2C 23 2C           #,    bls 2c
3198 9B2E CE 10 28        ..(   ldx #1028
3199 9B31 1C 00 40        ...   bset 00,x, #40 ; enable SPI
3200 9B34 F6 00 1F        ...   ldab 001f
3201 9B37 C4 40           .@    andb #40
3202 9B39 27 0E           '.    beq 0e
3203 9B3B CE 00 01        ...   ldx #0001
3204 9B3E 3C              <     pshx
3205 9B3F F6 00 5F        .._   ldab 005f
3206 9B42 4F              O     clra
3207 9B43 BD BD B5        ...   jsr bdb5             ;jump78
3208 9B46 38              8     pulx
3209 9B47 20 0B            .    bra 0b
3210 9B49 CE 00 01        ...   ldx #0001
3211 9B4C 3C              <     pshx
3212 9B4D CC 00 58        ..X   ldd #0058
3213 9B50 BD BD B5        ...   jsr bdb5             ;jump78
3214 9B53 38              8     pulx
3215 9B54 CE 10 28        ..(   ldx #1028
3216 9B57 1D 00 40        ...   bclr 00,x, #40
3217 9B5A BD BE 10        ...   jsr be10             ;jump88
3218 9B5D C6 03           ..    ldab #03
3219 9B5F F7 00 2C        ..,   stab 002c
3220 9B62 39              9     rts
3221
3222 jump101:
3223 9B63 BD BE 4B        ..K   jsr be4b             ;displayblank
3224 9B66 FC 00 0D        ...   ldd 000d
3225 9B69 BD E7 45        ..E   jsr e745             ;jump55 - number to string
3226 9B6C C6 44           .D    ldab #44
3227 9B6E F7 0B 99        ...   stab 0b99
3228 9B71 C6 53           .S    ldab #53
3229 9B73 F7 0B 98        ...   stab 0b98
3230 9B76 C6 43           .C    ldab #43
3231 9B78 F7 0B 97        ...   stab 0b97
3232 9B7B C6 4E           .N    ldab #4e
3233 9B7D F7 0B 96        ...   stab 0b96
3234 9B80 C6 54           .T    ldab #54
3235 9B82 F7 0B 95        ...   stab 0b95
3236 9B85 C6 20           .     ldab #20
3237 9B87 F7 0B 94        ...   stab 0b94
3238 9B8A F6 00 5A        ..Z   ldab 005a
3239 9B8D F7 0B 93        ...   stab 0b93
3240 9B90 F6 00 5D        ..]   ldab 005d
3241 9B93 F7 0B 92        ...   stab 0b92
3242 9B96 F6 00 5E        ..^   ldab 005e
3243 9B99 F7 0B 91        ...   stab 0b91
3244 9B9C F6 00 5F        .._   ldab 005f
3245 9B9F F7 0B 90        ...   stab 0b90
3246 9BA2 F6 00 13        ...   ldab 0013
3247 9BA5 C1 01           ..    cmpb #01
3248 9BA7 23 3C           #<    bls 3c
3249 9BA9 F6 0B 91        ...   ldab 0b91
3250 9BAC F7 0B 90        ...   stab 0b90
3251 9BAF F6 00 13        ...   ldab 0013
3252 9BB2 C1 02           ..    cmpb #02
3253 9BB4 26 07           &.    bne 07
3254 9BB6 C6 2E           ..    ldab #2e
3255 9BB8 F7 0B 91        ...   stab 0b91
3256 9BBB 20 28            (    bra 28
3257 9BBD C1 04           ..    cmpb #04
3258 9BBF 26 0D           &.    bne 0d
3259 9BC1 F6 0B 92        ...   ldab 0b92
3260 9BC4 F7 0B 91        ...   stab 0b91
3261 9BC7 C6 2E           ..    ldab #2e
3262 9BC9 F7 0B 92        ...   stab 0b92
3263 9BCC 20 17            .    bra 17
3264 9BCE C1 08           ..    cmpb #08
3265 9BD0 26 13           &.    bne 13
3266 9BD2 F6 0B 92        ...   ldab 0b92
3267 9BD5 F7 0B 91        ...   stab 0b91
3268 9BD8 F6 0B 93        ...   ldab 0b93
3269 9BDB F7 0B 92        ...   stab 0b92
3270 9BDE C6 2E           ..    ldab #2e
3271 9BE0 F7 0B 93        ...   stab 0b93
3272 9BE3 20 00            .    bra 00
3273 9BE5 F6 00 2C        ..,   ldab 002c
3274 9BE8 26 2A           &*    bne 2a
3275 9BEA BD BE 69        ..i   jsr be69             ;displayreset
3276 9BED F6 00 13        ...   ldab 0013
3277 9BF0 C1 01           ..    cmpb #01
3278 9BF2 23 18           #.    bls 18
3279 9BF4 CE 10 28        ..(   ldx #1028
3280 9BF7 1C 00 40        ...   bset 00,x, #40
3281 9BFA CE 00 01        ...   ldx #0001
3282 9BFD 3C              <     pshx
3283 9BFE F6 00 5F        .._   ldab 005f
3284 9C01 4F              O     clra
3285 9C02 BD BD B5        ...   jsr bdb5             ;jump78
3286 9C05 38              8     pulx
3287 9C06 CE 10 28        ..(   ldx #1028
3288 9C09 1D 00 40        ...   bclr 00,x, #40
3289 9C0C BD BE 10        ...   jsr be10             ;jump88
3290 9C0F C6 03           ..    ldab #03
3291 9C11 F7 00 2C        ..,   stab 002c
3292 9C14 39              9     rts
3293
3294 jump111:
3295 9C15 BD BE 4B        ..K   jsr be4b             ;displayblank
3296 9C18 F6 00 48        ..H   ldab 0048
3297 9C1B 4F              O     clra
3298 9C1C BD FE 16        ...   jsr fe16             ;jump2
3299 9C1F 00              .     test
3300 9C20 00              .     test
3301 9C21 00              .     test
3302 9C22 0A              .     clv
3303 9C23 9D 29 9C        .).   jsr 29
3304 9C26 3B              ;     rti
3305 9C27 9C 53 9C        .S.   cmpx 53
3306 9C2A 6B              k     illegal
3307 9C2B 9C 83 9C        ...   cmpx 83
3308 9C2E 9B 9C B2        ...   adda 9c
3309 9C31 9C C9 9C        ...   cmpx c9
3310 9C34 E0 9C           ..    subb 9c,x
3311 9C36 F7 9D 0E        ...   stab 9d0e
3312 9C39 9D 23 F6        .#.   jsr 23
3313 9C3C 00              .     test
3314 9C3D 67 C4           g.    asr c4,x
3315 9C3F 02              .     idiv
3316 9C40 27 08           '.    beq 08
3317 9C42 CC AF 00        ...   ldd #af00    ; "LNK MSTR Y"
3318 9C45 BD C0 BA        ...   jsr c0ba             ;display:
3319 9C48 20 06            .    bra 06
3320 9C4A CC AF 0B        ...   ldd #af0b    ; "LNK MSTR N"
3321 9C4D BD C0 BA        ...   jsr c0ba             ;display:
3322 9C50 7E 9D 29        ~.)   jmp 9d29             ;goto18
3323 9C53 F6 00 67        ..g   ldab 0067
3324 9C56 C4 10           ..    andb #10
3325 9C58 27 08           '.    beq 08
3326 9C5A CC AF 42        ..B   ldd #af42    ; "PRC HOLD Y"
3327 9C5D BD C0 BA        ...   jsr c0ba             ;display:
3328 9C60 20 06            .    bra 06
3329 9C62 CC AF 4D        ..M   ldd #af4d    ; "PRC HOLD N"
3330 9C65 BD C0 BA        ...   jsr c0ba             ;display:
3331 9C68 7E 9D 29        ~.)   jmp 9d29             ;goto18
3332 9C6B F6 00 67        ..g   ldab 0067
3333 9C6E C4 20           .     andb #20
3334 9C70 27 08           '.    beq 08
3335 9C72 CC AF 58        ..X   ldd #af58    ; "PRC DISP Y"
3336 9C75 BD C0 BA        ...   jsr c0ba             ;display:
3337 9C78 20 06            .    bra 06
3338 9C7A CC AF 63        ..c   ldd #af63    ; "PRC DISP N"
3339 9C7D BD C0 BA        ...   jsr c0ba             ;display:
3340 9C80 7E 9D 29        ~.)   jmp 9d29             ;goto18
3341 9C83 F6 00 67        ..g   ldab 0067
3342 9C86 C4 01           ..    andb #01
3343 9C88 27 08           '.    beq 08
3344 9C8A CC AE EA        ...   ldd #aeea    ; "DUMB MEC Y"
3345 9C8D BD C0 BA        ...   jsr c0ba             ;display:
3346 9C90 20 06            .    bra 06
3347 9C92 CC AE F5        ...   ldd #aef5    ; "DUMB MEC N"
3348 9C95 BD C0 BA        ...   jsr c0ba             ;display:
3349 9C98 7E 9D 29        ~.)   jmp 9d29             ;goto18
3350 9C9B F6 00 67        ..g   ldab 0067
3351 9C9E C4 04           ..    andb #04
3352 9CA0 27 08           '.    beq 08
3353 9CA2 CC AF 16        ...   ldd #af16    ; "CARD RDR Y"
3354 9CA5 BD C0 BA        ...   jsr c0ba             ;display:
3355 9CA8 20 06            .    bra 06
3356 9CAA CC AF 21        ..!   ldd #af21    ; "CARD RDR N"
3357 9CAD BD C0 BA        ...   jsr c0ba             ;display:
3358 9CB0 20 77            w    bra 77
3359 9CB2 F6 00 67        ..g   ldab 0067
3360 9CB5 C4 08           ..    andb #08
3361 9CB7 27 08           '.    beq 08
3362 9CB9 CC AF 2C        ..,   ldd #af2c    ; "BILL VAL Y"
3363 9CBC BD C0 BA        ...   jsr c0ba             ;display:
3364 9CBF 20 06            .    bra 06
3365 9CC1 CC AF 37        ..7   ldd #af37    ; "BILL VAL N"
3366 9CC4 BD C0 BA        ...   jsr c0ba             ;display:
3367 9CC7 20 60            `    bra 60
3368 9CC9 F6 00 67        ..g   ldab 0067
3369 9CCC C4 40           .@    andb #40
3370 9CCE 27 08           '.    beq 08
3371 9CD0 CC AF 84        ...   ldd #af84    ; "$1 CHNGR Y"
3372 9CD3 BD C0 BA        ...   jsr c0ba             ;display:
3373 9CD6 20 06            .    bra 06
3374 9CD8 CC AF 8F        ...   ldd #af8f    ; "$1 CHNGR N"
3375 9CDB BD C0 BA        ...   jsr c0ba             ;display:
3376 9CDE 20 49            I    bra 49
3377 9CE0 F6 0E 70        ..p   ldab 0e70
3378 9CE3 C1 01           ..    cmpb #01
3379 9CE5 26 08           &.    bne 08
3380 9CE7 CC AE BE        ...   ldd #aebe    ; "$5 ENABLE "
3381 9CEA BD C0 BA        ...   jsr c0ba             ;display:
3382 9CED 20 06            .    bra 06
3383 9CEF CC AE C9        ...   ldd #aec9    ; "$5 DISABLE"
3384 9CF2 BD C0 BA        ...   jsr c0ba             ;display:
3385 9CF5 20 32            2    bra 32
3386 9CF7 F6 0E 6F        ..o   ldab 0e6f
3387 9CFA C1 01           ..    cmpb #01
3388 9CFC 26 08           &.    bne 08
3389 9CFE CC AE D4        ...   ldd #aed4    ; "SODA VEND "
3390 9D01 BD C0 BA        ...   jsr c0ba             ;display:
3391 9D04 20 06            .    bra 06
3392 9D06 CC AE DF        ...   ldd #aedf    ; "SNACK VEND"
3393 9D09 BD C0 BA        ...   jsr c0ba             ;display:
3394 9D0C 20 1B            .    bra 1b
3395 9D0E F6 00 67        ..g   ldab 0067
3396 9D11 2C 08           ,.    bge 08
3397 9D13 CC AF 6E        ..n   ldd #af6e    ; "FREE VND Y"
3398 9D16 BD C0 BA        ...   jsr c0ba             ;display:
3399 9D19 20 06            .    bra 06
3400 9D1B CC AF 79        ..y   ldd #af79    ; "FREE VND N"
3401 9D1E BD C0 BA        ...   jsr c0ba             ;display:
3402 9D21 20 06            .    bra 06
3403 9D23 CC AF B0        ...   ldd #afb0    ; "HIT KEY "0""
3404 9D26 BD C0 BA        ...   jsr c0ba             ;display:
3405 goto18:
3406 9D29 39              9     rts
3407
3408 jump89:
3409 9D2A BD BE 4B        ..K   jsr be4b             ;displayblank
3410 9D2D F6 00 22        .."   ldab 0022
3411 9D30 4F              O     clra
3412 9D31 BD E7 95        ...   jsr e795             ;jump54 - number to string
3413 9D34 F6 00 5E        ..^   ldab 005e
3414 9D37 F7 0B 99        ...   stab 0b99
3415 9D3A F6 00 5F        .._   ldab 005f
3416 9D3D F7 0B 98        ...   stab 0b98
3417 9D40 C6 20           .     ldab #20
3418 9D42 F7 0B 97        ...   stab 0b97
3419 9D45 F6 00 24        ..$   ldab 0024
3420 9D48 4F              O     clra
3421 9D49 BD E7 95        ...   jsr e795             ;jump54 - number to string
3422 9D4C C6 50           .P    ldab #50
3423 9D4E F7 0B 96        ...   stab 0b96
3424 9D51 F6 00 5E        ..^   ldab 005e
3425 9D54 F7 0B 95        ...   stab 0b95
3426 9D57 F6 00 5F        .._   ldab 005f
3427 9D5A F7 0B 94        ...   stab 0b94
3428 9D5D C6 20           .     ldab #20
3429 9D5F F7 0B 93        ...   stab 0b93
3430 9D62 F6 00 2A        ..*   ldab 002a
3431 9D65 4F              O     clra
3432 9D66 BD E7 95        ...   jsr e795             ;jump54 - number to string
3433 9D69 C6 46           .F    ldab #46
3434 9D6B F7 0B 92        ...   stab 0b92
3435 9D6E F6 00 5E        ..^   ldab 005e
3436 9D71 F7 0B 91        ...   stab 0b91
3437 9D74 F6 00 5F        .._   ldab 005f
3438 9D77 F7 0B 90        ...   stab 0b90
3439 9D7A BD BE 01        ...   jsr be01             ;jump70
3440 9D7D 39              9     rts
3441
3442 9D7E BD BE 4B        ..K   jsr be4b             ;displayblank
3443 9D81 F6 00 60        ..`   ldab 0060
3444 9D84 4F              O     clra
3445 9D85 C3 0A 90        ...   addd #0a90
3446 9D88 8F              .     xgdx
3447 9D89 E6 00           ..    ldab 00,x
3448 9D8B F7 0B 99        ...   stab 0b99
3449 9D8E F6 00 60        ..`   ldab 0060
3450 9D91 4F              O     clra
3451 9D92 C3 0A 91        ...   addd #0a91
3452 9D95 8F              .     xgdx
3453 9D96 E6 00           ..    ldab 00,x
3454 9D98 F7 0B 98        ...   stab 0b98
3455 9D9B F6 00 60        ..`   ldab 0060
3456 9D9E 4F              O     clra
3457 9D9F C3 0A 92        ...   addd #0a92
3458 9DA2 8F              .     xgdx
3459 9DA3 E6 00           ..    ldab 00,x
3460 9DA5 F7 0B 97        ...   stab 0b97
3461 9DA8 F6 00 60        ..`   ldab 0060
3462 9DAB 4F              O     clra
3463 9DAC C3 0A 94        ...   addd #0a94
3464 9DAF 8F              .     xgdx
3465 9DB0 E6 00           ..    ldab 00,x
3466 9DB2 F7 0B 95        ...   stab 0b95
3467 9DB5 F6 00 60        ..`   ldab 0060
3468 9DB8 4F              O     clra
3469 9DB9 C3 0A 95        ...   addd #0a95
3470 9DBC 8F              .     xgdx
3471 9DBD E6 00           ..    ldab 00,x
3472 9DBF F7 0B 94        ...   stab 0b94
3473 9DC2 F6 00 60        ..`   ldab 0060
3474 9DC5 4F              O     clra
3475 9DC6 C3 0A 96        ...   addd #0a96
3476 9DC9 8F              .     xgdx
3477 9DCA E6 00           ..    ldab 00,x
3478 9DCC F7 0B 93        ...   stab 0b93
3479 9DCF C6 20           .     ldab #20
3480 9DD1 F7 0B 92        ...   stab 0b92
3481 9DD4 C6 20           .     ldab #20
3482 9DD6 F7 0B 91        ...   stab 0b91
3483 9DD9 F6 00 54        ..T   ldab 0054
3484 9DDC 4F              O     clra
3485 9DDD C3 B4 8F        ...   addd #b48f
3486 9DE0 8F              .     xgdx
3487 9DE1 E6 00           ..    ldab 00,x
3488 9DE3 F7 0B 90        ...   stab 0b90
3489 9DE6 F6 00 38        ..8   ldab 0038
3490 9DE9 C1 03           ..    cmpb #03
3491 9DEB 24 0F           $.    bcc 0f
3492 9DED F6 00 60        ..`   ldab 0060
3493 9DF0 4F              O     clra
3494 9DF1 C3 0A 93        ...   addd #0a93
3495 9DF4 8F              .     xgdx
3496 9DF5 E6 00           ..    ldab 00,x
3497 9DF7 F7 0B 96        ...   stab 0b96
3498 9DFA 20 05            .    bra 05
3499 9DFC C6 1F           ..    ldab #1f
3500 9DFE F7 0B 96        ...   stab 0b96
3501 9E01 BD BE 01        ...   jsr be01             ;jump70
3502 9E04 F6 00 38        ..8   ldab 0038
3503 9E07 26 05           &.    bne 05
3504 9E09 C6 05           ..    ldab #05
3505 9E0B F7 00 38        ..8   stab 0038
3506 9E0E 39              9     rts
3507
3508 jump142:
3509 9E0F BD BE 4B        ..K   jsr be4b             ;displayblank
3510 9E12 F6 00 48        ..H   ldab 0048
3511 9E15 26 15           &.    bne 15
3512 9E17 F6 00 66        ..f   ldab 0066
3513 9E1A 27 08           '.    beq 08
3514 9E1C CC AF C6        ...   ldd #afc6    ; "SECURE ON"
3515 9E1F BD C0 BA        ...   jsr c0ba             ;display:
3516 9E22 20 06            .    bra 06
3517 9E24 CC AF D1        ...   ldd #afd1    ; "SECURE OFF"
3518 9E27 BD C0 BA        ...   jsr c0ba             ;display:
3519 9E2A 20 5C            \    bra 5c
3520 9E2C C6 4D           .M    ldab #4d
3521 9E2E F7 0B 99        ...   stab 0b99
3522 9E31 C6 45           .E    ldab #45
3523 9E33 F7 0B 98        ...   stab 0b98
3524 9E36 C6 4E           .N    ldab #4e
3525 9E38 F7 0B 97        ...   stab 0b97
3526 9E3B C6 55           .U    ldab #55
3527 9E3D F7 0B 96        ...   stab 0b96
3528 9E40 C6 20           .     ldab #20
3529 9E42 F7 0B 95        ...   stab 0b95
3530 9E45 F6 00 48        ..H   ldab 0048
3531 9E48 CB 30           .0    addb #30
3532 9E4A F7 0B 94        ...   stab 0b94
3533 9E4D F6 00 48        ..H   ldab 0048
3534 9E50 C1 0A           ..    cmpb #0a
3535 9E52 26 05           &.    bne 05
3536 9E54 C6 30           .0    ldab #30
3537 9E56 F7 0B 94        ...   stab 0b94
3538 9E59 C6 20           .     ldab #20
3539 9E5B F7 0B 93        ...   stab 0b93
3540 9E5E C6 4F           .O    ldab #4f
3541 9E60 F7 0B 92        ...   stab 0b92
3542 9E63 F6 00 48        ..H   ldab 0048
3543 9E66 4F              O     clra
3544 9E67 C3 00 68        ..h   addd #0068
3545 9E6A 8F              .     xgdx
3546 9E6B E6 00           ..    ldab 00,x
3547 9E6D 27 0C           '.    beq 0c
3548 9E6F C6 4E           .N    ldab #4e
3549 9E71 F7 0B 91        ...   stab 0b91
3550 9E74 C6 20           .     ldab #20
3551 9E76 F7 0B 90        ...   stab 0b90
3552 9E79 20 0A            .    bra 0a
3553 9E7B C6 46           .F    ldab #46
3554 9E7D F7 0B 91        ...   stab 0b91
3555 9E80 C6 46           .F    ldab #46
3556 9E82 F7 0B 90        ...   stab 0b90
3557 9E85 BD BE 01        ...   jsr be01             ;jump70
3558 9E88 39              9     rts
3559
3560 jump100:
3561 9E89 BD BE 4B        ..K   jsr be4b             ;displayblank
3562 9E8C F6 00 48        ..H   ldab 0048
3563 9E8F 4F              O     clra
3564 9E90 BD FE 16        ...   jsr fe16             ;jump2
3565 9E93 00              .     test
3566 9E94 01              .     nop
3567 9E95 00              .     test
3568 9E96 2D A1           -.    blt a1
3569 9E98 C4 9E           ..    andb #9e
3570 9E9A F5 9E FE        ...   bitb 9efe
3571 9E9D 9F 07 9F        ...   sts 07
3572 9EA0 10              .     sba
3573 9EA1 9F 19 9F        ...   sts 19
3574 9EA4 3B              ;     rti
3575 9EA5 9F 44 9F        .D.   sts 44
3576 9EA8 52              R     illegal
3577 9EA9 9F 5B 9F        .[.   sts 5b
3578 9EAC 69              i     rol
3579 9EAD 9F 72 9F        .r.   sts 72
3580 9EB0 80 9F           ..    suba #9f
3581 9EB2 89 9F           ..    adca #9f
3582 9EB4 97 9F A0        ...   staa 9f
3583 9EB7 9F AE 9F        ...   sts ae
3584 9EBA B7 9F C5        ...   staa 9fc5
3585 9EBD 9F DD 9F        ...   sts dd
3586 9EC0 EB A0           ..    addb a0,x
3587 9EC2 03              .     fdiv
3588 9EC3 A0 11           ..    suba 11,x
3589 9EC5 A0 29           .)    suba 29,x
3590 9EC7 A0 37           .7    suba 37,x
3591 9EC9 A0 54           .T    suba 54,x
3592 9ECB A0 62           .b    suba 62,x
3593 9ECD A0 7F           ..    suba 7f,x
3594 9ECF A0 8D           ..    suba 8d,x
3595 9ED1 A0 96           ..    suba 96,x
3596 9ED3 A0 A4           ..    suba a4,x
3597 9ED5 A0 AD           ..    suba ad,x
3598 9ED7 A0 BC           ..    suba bc,x
3599 9ED9 A0 C5           ..    suba c5,x
3600 9EDB A0 D4           ..    suba d4,x
3601 9EDD A0 DD           ..    suba dd,x
3602 9EDF A0 EC           ..    suba ec,x
3603 9EE1 A0 F5           ..    suba f5,x
3604 9EE3 A1 04           ..    cmpa 04,x
3605 9EE5 A1 26           .&    cmpa 26,x
3606 9EE7 A1 34           .4    cmpa 34,x
3607 9EE9 A1 55           .U    cmpa 55,x
3608 9EEB A1 62           .b    cmpa 62,x
3609 9EED A1 83           ..    cmpa 83,x
3610 9EEF A1 90           ..    cmpa 90,x
3611 9EF1 A1 B1           ..    cmpa b1,x
3612 9EF3 A1 BE           ..    cmpa be,x
3613 9EF5 CC B2 90        ...   ldd #b290    ; "SERIAL #"
3614 9EF8 BD C0 BA        ...   jsr c0ba             ;display:
3615 9EFB 7E A1 C4        ~..   jmp a1c4             ;goto19
3616 9EFE CC 0C BC        ...   ldd #0cbc    ; serial number?
3617 9F01 BD C0 BA        ...   jsr c0ba             ;display:
3618 9F04 7E A1 C4        ~..   jmp a1c4             ;goto19
3619 9F07 CC B2 A2        ...   ldd #b2a2    ; "MACHINE ID"
3620 9F0A BD C0 BA        ...   jsr c0ba             ;display:
3621 9F0D 7E A1 C4        ~..   jmp a1c4             ;goto19
3622 9F10 CC 0C CC        ...   ldd #0ccc    ; machine id?
3623 9F13 BD C0 BA        ...   jsr c0ba             ;display:
3624 9F16 7E A1 C4        ~..   jmp a1c4             ;goto19
3625 9F19 C6 41           .A    ldab #41
3626 9F1B F7 0B 99        ...   stab 0b99
3627 9F1E C6 55           .U    ldab #55
3628 9F20 F7 0B 98        ...   stab 0b98
3629 9F23 C6 44           .D    ldab #44
3630 9F25 F7 0B 97        ...   stab 0b97
3631 9F28 C6 54           .T    ldab #54
3632 9F2A F7 0B 96        ...   stab 0b96
3633 9F2D CE 00 00        ...   ldx #0000
3634 9F30 3C              <     pshx
3635 9F31 FC 0C E7        ...   ldd 0ce7
3636 9F34 BD A2 D4        ...   jsr a2d4             ;jump79
3637 9F37 38              8     pulx
3638 9F38 7E A1 C4        ~..   jmp a1c4             ;goto19
3639 9F3B CC B2 C6        ...   ldd #b2c6    ; "SALES (R)   "
3640 9F3E BD C0 BA        ...   jsr c0ba             ;display:
3641 9F41 7E A1 C4        ~..   jmp a1c4             ;goto19
3642 9F44 FE 0D E9        ...   ldx 0de9
3643 9F47 3C              <     pshx
3644 9F48 FC 0D E7        ...   ldd 0de7
3645 9F4B BD A3 41        ..A   jsr a341             ;jump77
3646 9F4E 38              8     pulx
3647 9F4F 7E A1 C4        ~..   jmp a1c4             ;goto19
3648 9F52 CC B2 D8        ...   ldd #b2d8    ; "SALES (N)   "
3649 9F55 BD C0 BA        ...   jsr c0ba             ;display:
3650 9F58 7E A1 C4        ~..   jmp a1c4             ;goto19
3651 9F5B FE 0D ED        ...   ldx 0ded
3652 9F5E 3C              <     pshx
3653 9F5F FC 0D EB        ...   ldd 0deb
3654 9F62 BD A3 41        ..A   jsr a341             ;jump77
3655 9F65 38              8     pulx
3656 9F66 7E A1 C4        ~..   jmp a1c4             ;goto19
3657 9F69 CC B2 EA        ...   ldd #b2ea    ; "BAG TOTAL"
3658 9F6C BD C0 BA        ...   jsr c0ba             ;display:
3659 9F6F 7E A1 C4        ~..   jmp a1c4             ;goto19
3660 9F72 FE 0D F1        ...   ldx 0df1
3661 9F75 3C              <     pshx
3662 9F76 FC 0D EF        ...   ldd 0def
3663 9F79 BD A3 41        ..A   jsr a341             ;jump77
3664 9F7C 38              8     pulx
3665 9F7D 7E A1 C4        ~..   jmp a1c4             ;goto19
3666 9F80 CC B2 FC        ...   ldd #b2fc    ; "CASH BOX"
3667 9F83 BD C0 BA        ...   jsr c0ba             ;display:
3668 9F86 7E A1 C4        ~..   jmp a1c4             ;goto19
3669 9F89 FE 0D F9        ...   ldx 0df9
3670 9F8C 3C              <     pshx
3671 9F8D FC 0D F7        ...   ldd 0df7
3672 9F90 BD A3 41        ..A   jsr a341             ;jump77
3673 9F93 38              8     pulx
3674 9F94 7E A1 C4        ~..   jmp a1c4             ;goto19
3675 9F97 CC B3 0E        ...   ldd #b30e    ; "CARD SALES"
3676 9F9A BD C0 BA        ...   jsr c0ba             ;display:
3677 9F9D 7E A1 C4        ~..   jmp a1c4             ;goto19
3678 9FA0 FE 0D FD        ...   ldx 0dfd
3679 9FA3 3C              <     pshx
3680 9FA4 FC 0D FB        ...   ldd 0dfb
3681 9FA7 BD A3 41        ..A   jsr a341             ;jump77
3682 9FAA 38              8     pulx
3683 9FAB 7E A1 C4        ~..   jmp a1c4             ;goto19
3684 9FAE CC B3 35        ..5   ldd #b335    ; "BILL TOTAL"
3685 9FB1 BD C0 BA        ...   jsr c0ba             ;display:
3686 9FB4 7E A1 C4        ~..   jmp a1c4             ;goto19
3687 9FB7 FE 0D F5        ...   ldx 0df5
3688 9FBA 3C              <     pshx
3689 9FBB FC 0D F3        ...   ldd 0df3
3690 9FBE BD A3 41        ..A   jsr a341             ;jump77
3691 9FC1 38              8     pulx
3692 9FC2 7E A1 C4        ~..   jmp a1c4             ;goto19
3693 9FC5 C6 24           .$    ldab #24
3694 9FC7 F7 0B 99        ...   stab 0b99
3695 9FCA C6 31           .1    ldab #31
3696 9FCC F7 0B 98        ...   stab 0b98
3697 9FCF CE 00 00        ...   ldx #0000
3698 9FD2 3C              <     pshx
3699 9FD3 FC 0C DD        ...   ldd 0cdd
3700 9FD6 BD A2 D4        ...   jsr a2d4             ;jump79
3701 9FD9 38              8     pulx
3702 9FDA 7E A1 C4        ~..   jmp a1c4             ;goto19
3703 9FDD FE 0C F5        ...   ldx 0cf5
3704 9FE0 3C              <     pshx
3705 9FE1 FC 0C F3        ...   ldd 0cf3
3706 9FE4 BD A3 41        ..A   jsr a341             ;jump77
3707 9FE7 38              8     pulx
3708 9FE8 7E A1 C4        ~..   jmp a1c4             ;goto19
3709 9FEB C6 24           .$    ldab #24
3710 9FED F7 0B 99        ...   stab 0b99
3711 9FF0 C6 32           .2    ldab #32
3712 9FF2 F7 0B 98        ...   stab 0b98
3713 9FF5 CE 00 00        ...   ldx #0000
3714 9FF8 3C              <     pshx
3715 9FF9 FC 0C DF        ...   ldd 0cdf
3716 9FFC BD A2 D4        ...   jsr a2d4             ;jump79
3717 9FFF 38              8     pulx
3718 A000 7E A1 C4        ~..   jmp a1c4             ;goto19
3719 A003 FE 0C F9        ...   ldx 0cf9
3720 A006 3C              <     pshx
3721 A007 FC 0C F7        ...   ldd 0cf7
3722 A00A BD A3 41        ..A   jsr a341             ;jump77
3723 A00D 38              8     pulx
3724 A00E 7E A1 C4        ~..   jmp a1c4             ;goto19
3725 A011 C6 24           .$    ldab #24
3726 A013 F7 0B 99        ...   stab 0b99
3727 A016 C6 35           .5    ldab #35
3728 A018 F7 0B 98        ...   stab 0b98
3729 A01B CE 00 00        ...   ldx #0000
3730 A01E 3C              <     pshx
3731 A01F FC 0C E1        ...   ldd 0ce1
3732 A022 BD A2 D4        ...   jsr a2d4             ;jump79
3733 A025 38              8     pulx
3734 A026 7E A1 C4        ~..   jmp a1c4             ;goto19
3735 A029 FE 0C FD        ...   ldx 0cfd
3736 A02C 3C              <     pshx
3737 A02D FC 0C FB        ...   ldd 0cfb
3738 A030 BD A3 41        ..A   jsr a341             ;jump77
3739 A033 38              8     pulx
3740 A034 7E A1 C4        ~..   jmp a1c4             ;goto19
3741 A037 C6 24           .$    ldab #24
3742 A039 F7 0B 99        ...   stab 0b99
3743 A03C C6 31           .1    ldab #31
3744 A03E F7 0B 98        ...   stab 0b98
3745 A041 C6 30           .0    ldab #30
3746 A043 F7 0B 97        ...   stab 0b97
3747 A046 CE 00 00        ...   ldx #0000
3748 A049 3C              <     pshx
3749 A04A FC 0C E3        ...   ldd 0ce3
3750 A04D BD A2 D4        ...   jsr a2d4             ;jump79
3751 A050 38              8     pulx
3752 A051 7E A1 C4        ~..   jmp a1c4             ;goto19
3753 A054 FE 0D 01        ...   ldx 0d01
3754 A057 3C              <     pshx
3755 A058 FC 0C FF        ...   ldd 0cff
3756 A05B BD A3 41        ..A   jsr a341             ;jump77
3757 A05E 38              8     pulx
3758 A05F 7E A1 C4        ~..   jmp a1c4             ;goto19
3759 A062 C6 24           .$    ldab #24
3760 A064 F7 0B 99        ...   stab 0b99
3761 A067 C6 32           .2    ldab #32
3762 A069 F7 0B 98        ...   stab 0b98
3763 A06C C6 30           .0    ldab #30
3764 A06E F7 0B 97        ...   stab 0b97
3765 A071 CE 00 00        ...   ldx #0000
3766 A074 3C              <     pshx
3767 A075 FC 0C E5        ...   ldd 0ce5
3768 A078 BD A2 D4        ...   jsr a2d4             ;jump79
3769 A07B 38              8     pulx
3770 A07C 7E A1 C4        ~..   jmp a1c4             ;goto19
3771 A07F FE 0D 05        ...   ldx 0d05
3772 A082 3C              <     pshx
3773 A083 FC 0D 03        ...   ldd 0d03
3774 A086 BD A3 41        ..A   jsr a341             ;jump77
3775 A089 38              8     pulx
3776 A08A 7E A1 C4        ~..   jmp a1c4             ;goto19
3777 A08D CC B3 B7        ...   ldd #b3b7    ; "TUBE TOTAL"
3778 A090 BD C0 BA        ...   jsr c0ba             ;display:
3779 A093 7E A1 C4        ~..   jmp a1c4             ;goto19
3780 A096 CE 00 01        ...   ldx #0001
3781 A099 3C              <     pshx
3782 A09A FC 0C F1        ...   ldd 0cf1
3783 A09D BD A2 D4        ...   jsr a2d4             ;jump79
3784 A0A0 38              8     pulx
3785 A0A1 7E A1 C4        ~..   jmp a1c4             ;goto19
3786 A0A4 CC B3 CE        ...   ldd #b3ce    ; "$1 COIN"
3787 A0A7 BD C0 BA        ...   jsr c0ba             ;display:
3788 A0AA 7E A1 C4        ~..   jmp a1c4             ;goto19
3789 A0AD FE 0C E9        ...   ldx 0ce9
3790 A0B0 3C              <     pshx
3791 A0B1 F6 0C DC        ...   ldab 0cdc
3792 A0B4 4F              O     clra
3793 A0B5 BD A3 1A        ...   jsr a31a             ;jump93
3794 A0B8 38              8     pulx
3795 A0B9 7E A1 C4        ~..   jmp a1c4             ;goto19
3796 A0BC CC B3 E0        ...   ldd #b3e0    ; "QUARTERS"
3797 A0BF BD C0 BA        ...   jsr c0ba             ;display:
3798 A0C2 7E A1 C4        ~..   jmp a1c4             ;goto19
3799 A0C5 FE 0C EB        ...   ldx 0ceb
3800 A0C8 3C              <     pshx
3801 A0C9 F6 0C DB        ...   ldab 0cdb
3802 A0CC 4F              O     clra
3803 A0CD BD A3 1A        ...   jsr a31a             ;jump93
3804 A0D0 38              8     pulx
3805 A0D1 7E A1 C4        ~..   jmp a1c4             ;goto19
3806 A0D4 CC B3 F2        ...   ldd #b3f2
3807 A0D7 BD C0 BA        ...   jsr c0ba             ;display:
3808 A0DA 7E A1 C4        ~..   jmp a1c4             ;goto19
3809 A0DD FE 0C ED        ...   ldx 0ced
3810 A0E0 3C              <     pshx
3811 A0E1 F6 0C DA        ...   ldab 0cda
3812 A0E4 4F              O     clra
3813 A0E5 BD A3 1A        ...   jsr a31a             ;jump93
3814 A0E8 38              8     pulx
3815 A0E9 7E A1 C4        ~..   jmp a1c4             ;goto19
3816 A0EC CC B4 04        ...   ldd #b404
3817 A0EF BD C0 BA        ...   jsr c0ba             ;display:
3818 A0F2 7E A1 C4        ~..   jmp a1c4             ;goto19
3819 A0F5 FE 0C EF        ...   ldx 0cef
3820 A0F8 3C              <     pshx
3821 A0F9 F6 0C D9        ...   ldab 0cd9
3822 A0FC 4F              O     clra
3823 A0FD BD A3 1A        ...   jsr a31a             ;jump93
3824 A100 38              8     pulx
3825 A101 7E A1 C4        ~..   jmp a1c4             ;goto19
3826 A104 C6 57           .W    ldab #57
3827 A106 F7 0B 99        ...   stab 0b99
3828 A109 C6 53           .S    ldab #53
3829 A10B F7 0B 98        ...   stab 0b98
3830 A10E C6 4E           .N    ldab #4e
3831 A110 F7 0B 97        ...   stab 0b97
3832 A113 C6 4B           .K    ldab #4b
3833 A115 F7 0B 96        ...   stab 0b96
3834 A118 CE 00 00        ...   ldx #0000
3835 A11B 3C              <     pshx
3836 A11C FC 0D 07        ...   ldd 0d07
3837 A11F BD A2 D4        ...   jsr a2d4             ;jump79
3838 A122 38              8     pulx
3839 A123 7E A1 C4        ~..   jmp a1c4             ;goto19
3840 A126 FE 0D 11        ...   ldx 0d11
3841 A129 3C              <     pshx
3842 A12A FC 0D 0F        ...   ldd 0d0f
3843 A12D BD A3 41        ..A   jsr a341             ;jump77
3844 A130 38              8     pulx
3845 A131 7E A1 C4        ~..   jmp a1c4             ;goto19
3846 A134 C6 53           .S    ldab #53
3847 A136 F7 0B 99        ...   stab 0b99
3848 A139 C6 48           .H    ldab #48
3849 A13B F7 0B 98        ...   stab 0b98
3850 A13E C6 50           .P    ldab #50
3851 A140 F7 0B 97        ...   stab 0b97
3852 A143 C6 52           .R    ldab #52
3853 A145 F7 0B 96        ...   stab 0b96
3854 A148 CE 00 00        ...   ldx #0000
3855 A14B 3C              <     pshx
3856 A14C FC 0D 09        ...   ldd 0d09
3857 A14F BD A2 D4        ...   jsr a2d4             ;jump79
3858 A152 38              8     pulx
3859 A153 20 6F            o    bra 6f
3860 A155 FE 0D 15        ...   ldx 0d15
3861 A158 3C              <     pshx
3862 A159 FC 0D 13        ...   ldd 0d13
3863 A15C BD A3 41        ..A   jsr a341             ;jump77
3864 A15F 38              8     pulx
3865 A160 20 62            b    bra 62
3866 A162 C6 50           .P    ldab #50
3867 A164 F7 0B 99        ...   stab 0b99
3868 A167 C6 52           .R    ldab #52
3869 A169 F7 0B 98        ...   stab 0b98
3870 A16C C6 4D           .M    ldab #4d
3871 A16E F7 0B 97        ...   stab 0b97
3872 A171 C6 4F           .O    ldab #4f
3873 A173 F7 0B 96        ...   stab 0b96
3874 A176 CE 00 00        ...   ldx #0000
3875 A179 3C              <     pshx
3876 A17A FC 0D 0B        ...   ldd 0d0b
3877 A17D BD A2 D4        ...   jsr a2d4             ;jump79
3878 A180 38              8     pulx
3879 A181 20 41            A    bra 41
3880 A183 FE 0D 19        ...   ldx 0d19
3881 A186 3C              <     pshx
3882 A187 FC 0D 17        ...   ldd 0d17
3883 A18A BD A3 41        ..A   jsr a341             ;jump77
3884 A18D 38              8     pulx
3885 A18E 20 34            4    bra 34
3886 A190 C6 46           .F    ldab #46
3887 A192 F7 0B 99        ...   stab 0b99
3888 A195 C6 52           .R    ldab #52
3889 A197 F7 0B 98        ...   stab 0b98
3890 A19A C6 45           .E    ldab #45
3891 A19C F7 0B 97        ...   stab 0b97
3892 A19F C6 45           .E    ldab #45
3893 A1A1 F7 0B 96        ...   stab 0b96
3894 A1A4 CE 00 00        ...   ldx #0000
3895 A1A7 3C              <     pshx
3896 A1A8 FC 0D 0D        ...   ldd 0d0d
3897 A1AB BD A2 D4        ...   jsr a2d4             ;jump79
3898 A1AE 38              8     pulx
3899 A1AF 20 13            .    bra 13
3900 A1B1 FE 0D 1D        ...   ldx 0d1d
3901 A1B4 3C              <     pshx
3902 A1B5 FC 0D 1B        ...   ldd 0d1b
3903 A1B8 BD A3 41        ..A   jsr a341             ;jump77
3904 A1BB 38              8     pulx
3905 A1BC 20 06            .    bra 06
3906 A1BE CC B4 84        ...   ldd #b484    ; "VENDS/CODE"
3907 A1C1 BD C0 BA        ...   jsr c0ba             ;display:
3908 goto19:
3909 A1C4 F6 00 48        ..H   ldab 0048
3910 A1C7 C1 2E           ..    cmpb #2e
3911 A1C9 23 74           #t    bls 74
3912 A1CB F6 00 48        ..H   ldab 0048
3913 A1CE C1 92           ..    cmpb #92
3914 A1D0 24 6D           $m    bcc 6d
3915 A1D2 F6 00 48        ..H   ldab 0048
3916 A1D5 4F              O     clra
3917 A1D6 05              .     asld
3918 A1D7 C3 08 6C        ..l   addd #086c
3919 A1DA 8F              .     xgdx
3920 A1DB EC 00           ..    ldd 00,x
3921 A1DD C4 80           ..    andb #80
3922 A1DF 26 0E           &.    bne 0e
3923 A1E1 7C 00 48        |.H   inc 0048
3924 A1E4 F6 00 48        ..H   ldab 0048
3925 A1E7 C1 92           ..    cmpb #92
3926 A1E9 26 02           &.    bne 02
3927 A1EB 20 02            .    bra 02
3928 A1ED 20 E3            .    bra e3
3929 A1EF F6 00 48        ..H   ldab 0048
3930 A1F2 4F              O     clra
3931 A1F3 C3 FF D2        ...   addd #ffd2
3932 A1F6 BD E7 95        ...   jsr e795             ;jump54 - number to string
3933 A1F9 F6 00 5E        ..^   ldab 005e
3934 A1FC F7 0B 99        ...   stab 0b99
3935 A1FF F6 00 5F        .._   ldab 005f
3936 A202 F7 0B 98        ...   stab 0b98
3937 A205 F6 00 48        ..H   ldab 0048
3938 A208 4F              O     clra
3939 A209 05              .     asld
3940 A20A C3 0C C3        ...   addd #0cc3
3941 A20D 8F              .     xgdx
3942 A20E EC 00           ..    ldd 00,x
3943 A210 BD E7 45        ..E   jsr e745             ;jump55 - number to string
3944 A213 F6 00 57        ..W   ldab 0057
3945 A216 F7 0B 94        ...   stab 0b94
3946 A219 F6 00 5A        ..Z   ldab 005a
3947 A21C F7 0B 93        ...   stab 0b93
3948 A21F F6 00 5D        ..]   ldab 005d
3949 A222 F7 0B 92        ...   stab 0b92
3950 A225 F6 00 5E        ..^   ldab 005e
3951 A228 F7 0B 91        ...   stab 0b91
3952 A22B F6 00 5F        .._   ldab 005f
3953 A22E F7 0B 90        ...   stab 0b90
3954 A231 5F              _     clrb
3955 A232 4F              O     clra
3956 A233 8D 27           .'    bsr dest 27
3957 A235 F6 00 48        ..H   ldab 0048
3958 A238 C1 92           ..    cmpb #92
3959 A23A 26 03           &.    bne 03
3960 A23C 7F 00 2C        ..,   clr 002c
3961 A23F F6 00 48        ..H   ldab 0048
3962 A242 C1 92           ..    cmpb #92
3963 A244 26 15           &.    bne 15
3964 A246 F6 00 1F        ...   ldab 001f
3965 A249 C4 10           ..    andb #10
3966 A24B 27 08           '.    beq 08
3967 A24D CC AF 9A        ...   ldd #af9a    ; "CLR MIS Y"
3968 A250 BD C0 BA        ...   jsr c0ba             ;display:
3969 A253 20 06            .    bra 06
3970 A255 CC AF A5        ...   ldd #afa5    ; "CLR MIS N"
3971 A258 BD C0 BA        ...   jsr c0ba             ;display:
3972 A25B 39              9     rts
3973
3974 jump82:
3975 A25C 37              7     pshb
3976 A25D 36              6     psha
3977 A25E F6 00 2C        ..,   ldab 002c
3978 A261 26 6F           &o    bne 6f
3979 A263 BD BE 69        ..i   jsr be69             ;displayreset
3980 A266 30              0     tsx
3981 A267 E6 01           ..    ldab 01,x
3982 A269 27 5F           '_    beq 5f
3983 A26B F6 00 13        ...   ldab 0013
3984 A26E C1 01           ..    cmpb #01
3985 A270 23 58           #X    bls 58
3986 A272 CE 10 28        ..(   ldx #1028
3987 A275 1C 00 40        ...   bset 00,x, #40
3988 A278 CE 00 01        ...   ldx #0001
3989 A27B 3C              <     pshx
3990 A27C F6 0B 90        ...   ldab 0b90
3991 A27F 4F              O     clra
3992 A280 BD BD B5        ...   jsr bdb5             ;jump78
3993 A283 38              8     pulx
3994 A284 CE 10 28        ..(   ldx #1028
3995 A287 1D 00 40        ...   bclr 00,x, #40
3996 A28A F6 0B 91        ...   ldab 0b91
3997 A28D F7 0B 90        ...   stab 0b90
3998 A290 F6 00 13        ...   ldab 0013
3999 A293 C1 02           ..    cmpb #02
4000 A295 26 07           &.    bne 07
4001 A297 C6 2E           ..    ldab #2e
4002 A299 F7 0B 91        ...   stab 0b91
4003 A29C 20 2C            ,    bra 2c
4004 A29E F6 00 13        ...   ldab 0013
4005 A2A1 C1 04           ..    cmpb #04
4006 A2A3 26 0D           &.    bne 0d
4007 A2A5 F6 0B 92        ...   ldab 0b92
4008 A2A8 F7 0B 91        ...   stab 0b91
4009 A2AB C6 2E           ..    ldab #2e
4010 A2AD F7 0B 92        ...   stab 0b92
4011 A2B0 20 18            .    bra 18
4012 A2B2 F6 00 13        ...   ldab 0013
4013 A2B5 C1 08           ..    cmpb #08
4014 A2B7 26 11           &.    bne 11
4015 A2B9 F6 0B 92        ...   ldab 0b92
4016 A2BC F7 0B 91        ...   stab 0b91
4017 A2BF F6 0B 93        ...   ldab 0b93
4018 A2C2 F7 0B 92        ...   stab 0b92
4019 A2C5 C6 2E           ..    ldab #2e
4020 A2C7 F7 0B 93        ...   stab 0b93
4021 A2CA BD BE 10        ...   jsr be10             ;jump88
4022 A2CD C6 03           ..    ldab #03
4023 A2CF F7 00 2C        ..,   stab 002c
4024 A2D2 38              8     pulx
4025 A2D3 39              9     rts
4026
4027 jump79:
4028 A2D4 37              7     pshb
4029 A2D5 36              6     psha
4030 A2D6 30              0     tsx
4031 A2D7 EC 00           ..    ldd 00,x
4032 A2D9 BD E7 45        ..E   jsr e745             ;jump55 - number to string
4033 A2DC F6 00 57        ..W   ldab 0057
4034 A2DF F7 0B 94        ...   stab 0b94
4035 A2E2 F6 00 5A        ..Z   ldab 005a
4036 A2E5 F7 0B 93        ...   stab 0b93
4037 A2E8 F6 00 5D        ..]   ldab 005d
4038 A2EB F7 0B 92        ...   stab 0b92
4039 A2EE F6 00 5E        ..^   ldab 005e
4040 A2F1 F7 0B 91        ...   stab 0b91
4041 A2F4 F6 00 5F        .._   ldab 005f
4042 A2F7 F7 0B 90        ...   stab 0b90
4043 A2FA 30              0     tsx
4044 A2FB E6 05           ..    ldab 05,x
4045 A2FD 27 14           '.    beq 14
4046 A2FF F6 00 17        ...   ldab 0017
4047 A302 C4 08           ..    andb #08
4048 A304 26 05           &.    bne 05
4049 A306 C6 24           .$    ldab #24
4050 A308 F7 0B 95        ...   stab 0b95
4051 A30B CC 00 01        ...   ldd #0001
4052 A30E BD A2 5C        ..\   jsr a25c             ;jump82
4053 A311 20 05            .    bra 05
4054 A313 5F              _     clrb
4055 A314 4F              O     clra
4056 A315 BD A2 5C        ..\   jsr a25c             ;jump82
4057 A318 38              8     pulx
4058 A319 39              9     rts
4059
4060 jump93:
4061 A31A 37              7     pshb
4062 A31B 36              6     psha
4063 A31C 30              0     tsx
4064 A31D E6 01           ..    ldab 01,x
4065 A31F 4F              O     clra
4066 A320 BD E7 95        ...   jsr e795             ;jump54 - number to string
4067 A323 F6 00 5D        ..]   ldab 005d
4068 A326 F7 0B 99        ...   stab 0b99
4069 A329 F6 00 5E        ..^   ldab 005e
4070 A32C F7 0B 98        ...   stab 0b98
4071 A32F F6 00 5F        .._   ldab 005f
4072 A332 F7 0B 97        ...   stab 0b97
4073 A335 CE 00 01        ...   ldx #0001
4074 A338 3C              <     pshx
4075 A339 30              0     tsx
4076 A33A EC 06           ..    ldd 06,x
4077 A33C 8D 96           ..    bsr dest 96
4078 A33E 38              8     pulx
4079 A33F 38              8     pulx
4080 A340 39              9     rts
4081
4082 jump77:
4083 A341 38              8     pulx
4084 A342 37              7     pshb
4085 A343 36              6     psha
4086 A344 3C              <     pshx
4087 A345 30              0     tsx
4088 A346 EC 04           ..    ldd 04,x
4089 A348 37              7     pshb
4090 A349 36              6     psha
4091 A34A EC 02           ..    ldd 02,x
4092 A34C BD E6 21        ..!   jsr e621             ;jump56
4093 A34F 38              8     pulx
4094 A350 C6 20           .     ldab #20
4095 A352 F7 0B 99        ...   stab 0b99
4096 A355 F6 00 17        ...   ldab 0017
4097 A358 C4 08           ..    andb #08
4098 A35A 26 05           &.    bne 05
4099 A35C C6 24           .$    ldab #24
4100 A35E F7 0B 98        ...   stab 0b98
4101 A361 CC 00 01        ...   ldd #0001
4102 A364 BD A2 5C        ..\   jsr a25c             ;jump82
4103 A367 38              8     pulx
4104 A368 31              1     ins
4105 A369 31              1     ins
4106 A36A 6E 00           n.    jmp 00,x
4107
4108 jump81:
4109 A36C BD BE 4B        ..K   jsr be4b             ;displayblank
4110 A36F CC AF DC        ...   ldd #afdc    ; "- SAVING -"
4111 A372 BD C0 BA        ...   jsr c0ba             ;display:
4112 A375 CC 01 F4        ...   ldd #01f4
4113 A378 BD E5 71        ..q   jsr e571             ;msdelay
4114 A37B 39              9     rts
4115
4116 jump141:
4117 A37C FC 00 52        ..R   ldd 0052
4118 A37F FD 0B B5        ...   std 0bb5
4119 A382 8D E8           ..    bsr dest e8
4120 A384 39              9     rts
4121
4122 jump40:
4123 A385 F6 00 1F        ...   ldab 001f
4124 A388 C4 40           .@    andb #40
4125 A38A 27 73           's    beq 73
4126 A38C F6 00 06        ...   ldab 0006
4127 A38F 4F              O     clra
4128 A390 05              .     asld
4129 A391 C3 08 00        ...   addd #0800
4130 A394 8F              .     xgdx
4131 A395 EC 00           ..    ldd 00,x
4132 A397 5F              _     clrb
4133 A398 84 C0           ..    anda #c0
4134 A39A FA 00 28        ..(   orb 0028
4135 A39D BA 00 27        ..'   ora 0027
4136 A3A0 FD 00 27        ..'   std 0027
4137 A3A3 FC 00 27        ..'   ldd 0027
4138 A3A6 37              7     pshb
4139 A3A7 36              6     psha
4140 A3A8 F6 00 06        ...   ldab 0006
4141 A3AB 4F              O     clra
4142 A3AC 05              .     asld
4143 A3AD C3 08 00        ...   addd #0800
4144 A3B0 38              8     pulx
4145 A3B1 8F              .     xgdx
4146 A3B2 ED 00           ..    std 00,x
4147 A3B4 FC 00 27        ..'   ldd 0027
4148 A3B7 43              C     coma
4149 A3B8 53              S     comb
4150 A3B9 37              7     pshb
4151 A3BA 36              6     psha
4152 A3BB F6 00 06        ...   ldab 0006
4153 A3BE 4F              O     clra
4154 A3BF 05              .     asld
4155 A3C0 C3 0B F1        ...   addd #0bf1
4156 A3C3 38              8     pulx
4157 A3C4 8F              .     xgdx
4158 A3C5 ED 00           ..    std 00,x
4159 A3C7 F6 00 06        ...   ldab 0006
4160 A3CA 4F              O     clra
4161 A3CB 05              .     asld
4162 A3CC C3 08 C8        ...   addd #08c8
4163 A3CF 8F              .     xgdx
4164 A3D0 EC 00           ..    ldd 00,x
4165 A3D2 C4 80           ..    andb #80
4166 A3D4 84 F7           ..    anda #f7
4167 A3D6 FA 00 47        ..G   orb 0047
4168 A3D9 BA 00 46        ..F   ora 0046
4169 A3DC FD 00 46        ..F   std 0046
4170 A3DF F6 00 19        ...   ldab 0019
4171 A3E2 C4 10           ..    andb #10
4172 A3E4 27 06           '.    beq 06
4173 A3E6 CE 00 46        ..F   ldx #0046
4174 A3E9 1C 00 08        ...   bset 00,x, #08
4175 ; set memory location 08c8+(slotnum*2) to value of 0046
4176 A3EC FC 00 46        ..F   ldd 0046
4177 A3EF 37              7     pshb
4178 A3F0 36              6     psha
4179 A3F1 F6 00 06        ...   ldab 0006
4180 A3F4 4F              O     clra
4181 A3F5 05              .     asld
4182 A3F6 C3 08 C8        ...   addd #08c8
4183 A3F9 38              8     pulx
4184 A3FA 8F              .     xgdx
4185 A3FB ED 00           ..    std 00,x
4186 A3FD 20 22            "    bra 22
4187 A3FF CC 2A FF        .*.   ldd #2aff      ; 00101010 11111111
4188 A402 37              7     pshb
4189 A403 36              6     psha
4190 A404 F6 00 06        ...   ldab 0006
4191 A407 4F              O     clra
4192 A408 05              .     asld
4193 A409 C3 08 00        ...   addd #0800
4194 A40C 38              8     pulx
4195 A40D 8F              .     xgdx
4196 A40E ED 00           ..    std 00,x
4197 A410 CC D5 00        ...   ldd #d500
4198 A413 37              7     pshb
4199 A414 36              6     psha
4200 A415 F6 00 06        ...   ldab 0006
4201 A418 4F              O     clra
4202 A419 05              .     asld
4203 A41A C3 0B F1        ...   addd #0bf1
4204 A41D 38              8     pulx
4205 A41E 8F              .     xgdx
4206 A41F ED 00           ..    std 00,x
4207 A421 F6 00 1F        ...   ldab 001f
4208 A424 C4 40           .@    andb #40
4209 A426 27 26           '&    beq 26
4210 A428 F6 00 06        ...   ldab 0006
4211 A42B 4F              O     clra
4212 A42C 05              .     asld
4213 A42D C3 08 00        ...   addd #0800
4214 A430 8F              .     xgdx
4215 A431 EC 00           ..    ldd 00,x
4216 A433 C4 FF           ..    andb #ff
4217 A435 84 3F           .?    anda #3f
4218 A437 FD 00 27        ..'   std 0027
4219 A43A F6 00 06        ...   ldab 0006
4220 A43D 4F              O     clra
4221 A43E 05              .     asld
4222 A43F C3 08 C8        ...   addd #08c8
4223 A442 8F              .     xgdx
4224 A443 EC 00           ..    ldd 00,x
4225 A445 C4 7F           ..    andb #7f
4226 A447 4F              O     clra
4227 A448 FD 00 46        ..F   std 0046
4228 A44B BD A3 6C        ..l   jsr a36c             ;jump81
4229 A44E 39              9     rts
4230
4231 jump140:
4232 A44F FC 00 0D        ...   ldd 000d
4233 A452 FD 0B B7        ...   std 0bb7
4234 A455 BD A3 6C        ..l   jsr a36c             ;jump81
4235 A458 39              9     rts
4236
4237 jump110:
4238 A459 3C              <     pshx
4239 A45A F6 00 67        ..g   ldab 0067
4240 A45D C4 02           ..    andb #02
4241 A45F 27 08           '.    beq 08
4242 A461 CE 00 67        ..g   ldx #0067
4243 A464 1D 00 4D        ...   bclr 00,x, #4D
4244 A467 20 0C            .    bra 0c
4245 A469 CE 00 67        ..g   ldx #0067
4246 A46C 1D 00 10        ...   bclr 00,x, #10
4247 A46F CE 00 67        ..g   ldx #0067
4248 A472 1D 00           ..    bclr add,x 00,x
4249 A474 20 F6            .    bra f6
4250 A476 00              .     test
4251 A477 67 C4           g.    asr c4,x
4252 A479 10              .     sba
4253 A47A 26 06           &.    bne 06
4254 A47C CE 00 67        ..g   ldx #0067
4255 A47F 1D 00           ..    bclr add,x 00,x
4256 A481 20 F6            .    bra f6
4257 A483 00              .     test
4258 A484 67 C4           g.    asr c4,x
4259 A486 01              .     nop
4260 A487 27 14           '.    beq 14
4261 A489 CE 00 67        ..g   ldx #0067
4262 A48C 1D 00 02        ...   bclr 00,x, #02
4263 A48F CE 00 67        ..g   ldx #0067
4264 A492 1D 00 10        ...   bclr 00,x, #10
4265 A495 CE 00 67        ..g   ldx #0067
4266 A498 1D 00           ..    bclr add,x 00,x
4267 A49A 20 20                 bra 20
4268 A49C 06              .     tap
4269 A49D CE 00 67        ..g   ldx #0067
4270 A4A0 1D 00 08        ...   bclr 00,x, #08
4271 A4A3 F6 00 67        ..g   ldab 0067
4272 A4A6 C4 04           ..    andb #04
4273 A4A8 27 12           '.    beq 12
4274 A4AA CE 00 67        ..g   ldx #0067
4275 A4AD 1D 00 02        ...   bclr 00,x, #02
4276 A4B0 CE 00 67        ..g   ldx #0067
4277 A4B3 1D 00 10        ..    bclr 00,x, #10
4278 A4B6 CE 00 67        ..g   ldx #0067
4279 A4B9 1D 00 20        ..    bclr 00,x, #20
4280 A4BC F6 00 67        ...   ldab 0067
4281 A4BF C4 08           ..    andb #08
4282 A4C1 26 06           &.    bne 06
4283 A4C3 CE 00 67        ..g   ldx #0067
4284 A4C6 1D 00 40        ..@   bclr 00,x, #40
4285 A4C9 F6 00 67        ..g   ldab 0067
4286 A4CC F7 0B C0        ...   stab 0bc0
4287 A4CF F6 0E 70        ..p   ldab 0e70
4288 A4D2 F7 0E 6E        ..n   stab 0e6e
4289 A4D5 F6 0E 6D        ..m   ldab 0e6d
4290 A4D8 26 39           &9    bne 39
4291 A4DA F6 0E 6F        ..o   ldab 0e6f
4292 A4DD 27 34           '4    beq 34
4293 A4DF 7F 00 06        ...   clr 0006
4294 A4E2 F6 00 06        ...   ldab 0006
4295 A4E5 C1 3F           .?    cmpb #3f
4296 A4E7 24 2A           $*    bcc 2a
4297 A4E9 F6 00 06        ...   ldab 0006
4298 A4EC 4F              O     clra
4299 A4ED CE 00 05        ...   ldx #0005
4300 A4F0 02              .     idiv
4301 A4F1 5D              ]     tstb
4302 A4F2 27 1A           '.    beq 1a
4303 A4F4 F6 00 06        ...   ldab 0006
4304 A4F7 4F              O     clra
4305 A4F8 C3 08 00        ...   addd #0800
4306 A4FB 30              0     tsx
4307 A4FC ED 00           ..    std 00,x
4308 A4FE EC 00           ..    ldd 00,x
4309 A500 37              7     pshb
4310 A501 36              6     psha
4311 A502 F6 00 06        ...   ldab 0006
4312 A505 4F              O     clra
4313 A506 05              .     asld
4314 A507 C3 08 C8        ...   addd #08c8
4315 A50A 38              8     pulx
4316 A50B 8F              .     xgdx
4317 A50C ED 00           ..    std 00,x
4318 A50E 7C 00 06        |..   inc 0006
4319 A511 20 CF            .    bra cf
4320 A513 F6 0E 6F        ..o   ldab 0e6f
4321 A516 F7 0E 6D        ..m   stab 0e6d
4322 A519 BD A3 6C        ..l   jsr a36c             ;jump81
4323 A51C 38              8     pulx
4324 A51D 39              9     rts
4325
4326 jump109:
4327 A51E F6 00 22        .."   ldab 0022
4328 A521 4F              O     clra
4329 A522 BD FE 16        ...   jsr fe16             ;jump2
4330 A525 00              .     test
4331 A526 01              .     nop
4332 A527 00              .     test
4333 A528 04              .     lsrd
4334 A529 A5 79           .y    bita 79,x
4335 A52B A5 35           .5    bita 35,x
4336 A52D A5 43           .C    bita 43,x
4337 A52F A5 51           .Q    bita 51,x
4338 A531 A5 5F           ._    bita 5f,x
4339 A533 A5 6D           .m    bita 6d,x
4340 A535 F6 00 24        ..$   ldab 0024
4341 A538 F7 0B AF        ...   stab 0baf
4342 A53B F6 00 2A        ..*   ldab 002a
4343 A53E F7 0B B4        ...   stab 0bb4
4344 A541 20 36            6    bra 36
4345 A543 F6 00 24        ..$   ldab 0024
4346 A546 F7 0B AE        ...   stab 0bae
4347 A549 F6 00 2A        ..*   ldab 002a
4348 A54C F7 0B B3        ...   stab 0bb3
4349 A54F 20 28            (    bra 28
4350 A551 F6 00 24        ..$   ldab 0024
4351 A554 F7 0B AD        ...   stab 0bad
4352 A557 F6 00 2A        ..*   ldab 002a
4353 A55A F7 0B B2        ...   stab 0bb2
4354 A55D 20 1A            .    bra 1a
4355 A55F F6 00 24        ..$   ldab 0024
4356 A562 F7 0B AC        ...   stab 0bac
4357 A565 F6 00 2A        ..*   ldab 002a
4358 A568 F7 0B B1        ...   stab 0bb1
4359 A56B 20 0C            .    bra 0c
4360 A56D F6 00 24        ..$   ldab 0024
4361 A570 F7 0B AB        ...   stab 0bab
4362 A573 F6 00 2A        ..*   ldab 002a
4363 A576 F7 0B B0        ...   stab 0bb0
4364 A579 BD A3 6C        ..l   jsr a36c             ;jump81
4365 A57C 39              9     rts
4366
4367 jump139:
4368 A57D 7F 00 54        ..T   clr 0054
4369 A580 F6 00 54        ..T   ldab 0054
4370 A583 C1 FF           ..    cmpb #ff
4371 A585 24 1B           $.    bcc 1b
4372 A587 F6 00 54        ..T   ldab 0054
4373 A58A 4F              O     clra
4374 A58B C3 0A 90        ...   addd #0a90
4375 A58E 8F              .     xgdx
4376 A58F E6 00           ..    ldab 00,x
4377 A591 37              7     pshb
4378 A592 F6 00 54        ..T   ldab 0054
4379 A595 4F              O     clra
4380 A596 C3 09 90        ...   addd #0990
4381 A599 8F              .     xgdx
4382 A59A 33              3     pulb
4383 A59B E7 00           ..    stab 00,x
4384 A59D 7C 00 54        |.T   inc 0054
4385 A5A0 20 DE            .    bra de
4386 A5A2 F6 00 61        ..a   ldab 0061
4387 A5A5 F7 0B BF        ...   stab 0bbf
4388 A5A8 BD A3 6C        ..l   jsr a36c             ;jump81
4389 A5AB 39              9     rts
4390
4391 jump138:
4392 A5AC 7F 00 54        ..T   clr 0054
4393 A5AF F6 00 54        ..T   ldab 0054
4394 A5B2 C1 10           ..    cmpb #10
4395 A5B4 24 1B           $.    bcc 1b
4396 A5B6 F6 00 54        ..T   ldab 0054
4397 A5B9 4F              O     clra
4398 A5BA C3 0A 90        ...   addd #0a90
4399 A5BD 8F              .     xgdx
4400 A5BE E6 00           ..    ldab 00,x
4401 A5C0 37              7     pshb
4402 A5C1 F6 00 54        ..T   ldab 0054
4403 A5C4 4F              O     clra
4404 A5C5 C3 0C B9        ...   addd #0cb9
4405 A5C8 8F              .     xgdx
4406 A5C9 33              3     pulb
4407 A5CA E7 00           ..    stab 00,x
4408 A5CC 7C 00 54        |.T   inc 0054
4409 A5CF 20 DE            .    bra de
4410 A5D1 BD A3 6C        ..l   jsr a36c             ;jump81
4411 A5D4 39              9     rts
4412
4413 jump137:
4414 A5D5 7F 00 54        ..T   clr 0054
4415 A5D8 F6 00 54        ..T   ldab 0054
4416 A5DB C1 10           ..    cmpb #10
4417 A5DD 24 1B           $.    bcc 1b
4418 A5DF F6 00 54        ..T   ldab 0054
4419 A5E2 4F              O     clra
4420 A5E3 C3 0A 90        ...   addd #0a90
4421 A5E6 8F              .     xgdx
4422 A5E7 E6 00           ..    ldab 00,x
4423 A5E9 37              7     pshb
4424 A5EA F6 00 54        ..T   ldab 0054
4425 A5ED 4F              O     clra
4426 A5EE C3 0C C9        ...   addd #0cc9
4427 A5F1 8F              .     xgdx
4428 A5F2 33              3     pulb
4429 A5F3 E7 00           ..    stab 00,x
4430 A5F5 7C 00 54        |.T   inc 0054
4431 A5F8 20 DE            .    bra de
4432 A5FA BD A3 6C        ..l   jsr a36c             ;jump81
4433 A5FD 39              9     rts
4434
4435 jump136:
4436 A5FE 7F 00 54        ..T   clr 0054
4437 A601 F6 00 54        ..T   ldab 0054
4438 A604 C1 05           ..    cmpb #05
4439 A606 24 1B           $.    bcc 1b
4440 A608 F6 00 54        ..T   ldab 0054
4441 A60B 4F              O     clra
4442 A60C C3 00 62        ..b   addd #0062
4443 A60F 8F              .     xgdx
4444 A610 E6 00           ..    ldab 00,x
4445 A612 37              7     pshb
4446 A613 F6 00 54        ..T   ldab 0054
4447 A616 4F              O     clra
4448 A617 C3 0B A4        ...   addd #0ba4
4449 A61A 8F              .     xgdx
4450 A61B 33              3     pulb
4451 A61C E7 00           ..    stab 00,x
4452 A61E 7C 00 54        |.T   inc 0054
4453 A621 20 DE            .    bra de
4454 A623 7F 00 54        ..T   clr 0054
4455 A626 F6 00 54        ..T   ldab 0054
4456 A629 C1 0B           ..    cmpb #0b
4457 A62B 24 1B           $.    bcc 1b
4458 A62D F6 00 54        ..T   ldab 0054
4459 A630 4F              O     clra
4460 A631 C3 00 68        ..h   addd #0068
4461 A634 8F              .     xgdx
4462 A635 E6 00           ..    ldab 00,x
4463 A637 37              7     pshb
4464 A638 F6 00 54        ..T   ldab 0054
4465 A63B 4F              O     clra
4466 A63C C3 0B E4        ...   addd #0be4
4467 A63F 8F              .     xgdx
4468 A640 33              3     pulb
4469 A641 E7 00           ..    stab 00,x
4470 A643 7C 00 54        |.T   inc 0054
4471 A646 20 DE            .    bra de
4472 A648 8D 04           ..    bsr dest 04
4473 A64A BD A3 6C        ..l   jsr a36c             ;jump81
4474 A64D 39              9     rts
4475
4476 jump135:
4477 A64E BD AB 0C        ...   jsr ab0c             ;jump126
4478 A651 C6 20           .     ldab #20
4479 A653 F7 0B A3        ...   stab 0ba3
4480 A656 C6 20           .     ldab #20
4481 A658 F7 0B 9A        ...   stab 0b9a
4482 A65B C6 01           ..    ldab #01
4483 A65D F7 00 54        ..T   stab 0054
4484 goto21:
4485 A660 F6 00 54        ..T   ldab 0054
4486 A663 C1 09           ..    cmpb #09
4487 A665 25 03           %.    bcs 03
4488 A667 7E A7 1E        ~..   jmp a71e             ;goto20
4489 A66A F6 00 54        ..T   ldab 0054
4490 A66D 4F              O     clra
4491 A66E BD FE 16        ...   jsr fe16             ;jump2
4492 A671 00              .     test
4493 A672 01              .     nop
4494 A673 00              .     test
4495 A674 07              .     tpa
4496 A675 A6 ED           ..    ldaa ed,x
4497 A677 A6 87           ..    ldaa 87,x
4498 A679 A6 95           ..    ldaa 95,x
4499 A67B A6 A1           ..    ldaa a1,x
4500 A67D A6 AF           ..    ldaa af,x
4501 A67F A6 BB           ..    ldaa bb,x
4502 A681 A6 C9           ..    ldaa c9,x
4503 A683 A6 D5           ..    ldaa d5,x
4504 A685 A6 E3           ..    ldaa e3,x
4505 A687 F6 00 62        ..b   ldab 0062
4506 A68A 54              T     lsrb
4507 A68B 54              T     lsrb
4508 A68C 54              T     lsrb
4509 A68D 54              T     lsrb
4510 A68E C8 04           ..    eorb #04
4511 A690 F7 00 5F        .._   stab 005f
4512 A693 20 58            X    bra 58
4513 A695 F6 00 62        ..b   ldab 0062
4514 A698 C4 0F           ..    andb #0f
4515 A69A C8 0D           ..    eorb #0d
4516 A69C F7 00 5F        .._   stab 005f
4517 A69F 20 4C            L    bra 4c
4518 A6A1 F6 00 63        ..c   ldab 0063
4519 A6A4 54              T     lsrb
4520 A6A5 54              T     lsrb
4521 A6A6 54              T     lsrb
4522 A6A7 54              T     lsrb
4523 A6A8 C8 04           ..    eorb #04
4524 A6AA F7 00 5F        .._   stab 005f
4525 A6AD 20 3E            >    bra 3e
4526 A6AF F6 00 63        ..c   ldab 0063
4527 A6B2 C4 0F           ..    andb #0f
4528 A6B4 C8 05           ..    eorb #05
4529 A6B6 F7 00 5F        .._   stab 005f
4530 A6B9 20 32            2    bra 32
4531 A6BB F6 00 64        ..d   ldab 0064
4532 A6BE 54              T     lsrb
4533 A6BF 54              T     lsrb
4534 A6C0 54              T     lsrb
4535 A6C1 54              T     lsrb
4536 A6C2 C8 05           ..    eorb #05
4537 A6C4 F7 00 5F        .._   stab 005f
4538 A6C7 20 24            $    bra 24
4539 A6C9 F6 00 64        ..d   ldab 0064
4540 A6CC C4 0F           ..    andb #0f
4541 A6CE C8 04           ..    eorb #04
4542 A6D0 F7 00 5F        .._   stab 005f
4543 A6D3 20 18            .    bra 18
4544 A6D5 F6 00 65        ..e   ldab 0065
4545 A6D8 54              T     lsrb
4546 A6D9 54              T     lsrb
4547 A6DA 54              T     lsrb
4548 A6DB 54              T     lsrb
4549 A6DC C8 05           ..    eorb #05
4550 A6DE F7 00 5F        .._   stab 005f
4551 A6E1 20 0A            .    bra 0a
4552 A6E3 F6 00 65        ..e   ldab 0065
4553 A6E6 C4 0F           ..    andb #0f
4554 A6E8 C8 03           ..    eorb #03
4555 A6EA F7 00 5F        .._   stab 005f
4556 A6ED F6 00 5F        .._   ldab 005f
4557 A6F0 C1 09           ..    cmpb #09
4558 A6F2 23 13           #.    bls 13
4559 A6F4 F6 00 5F        .._   ldab 005f
4560 A6F7 CB 37           .7    addb #37
4561 A6F9 37              7     pshb
4562 A6FA F6 00 54        ..T   ldab 0054
4563 A6FD 4F              O     clra
4564 A6FE C3 0B 9A        ...   addd #0b9a
4565 A701 8F              .     xgdx
4566 A702 33              3     pulb
4567 A703 E7 00           ..    stab 00,x
4568 A705 20 11            .    bra 11
4569 A707 F6 00 5F        .._   ldab 005f
4570 A70A CB 30           .0    addb #30
4571 A70C 37              7     pshb
4572 A70D F6 00 54        ..T   ldab 0054
4573 A710 4F              O     clra
4574 A711 C3 0B 9A        ...   addd #0b9a
4575 A714 8F              .     xgdx
4576 A715 33              3     pulb
4577 A716 E7 00           ..    stab 00,x
4578 A718 7C 00 54        |.T   inc 0054
4579 A71B 7E A6 60        ~.`   jmp a660             ;goto21
4580 goto20:
4581 A71E 39              9     rts
4582
4583 jump134:
4584 A71F F6 00 48        ..H   ldab 0048
4585 A722 26 11           &.    bne 11
4586 A724 F6 00 66        ..f   ldab 0066
4587 A727 26 07           &.    bne 07
4588 A729 C6 01           ..    ldab #01
4589 A72B F7 00 66        ..f   stab 0066
4590 A72E 20 03            .    bra 03
4591 A730 7F 00 66        ..f   clr 0066
4592 A733 20 29            )    bra 29
4593 A735 F6 00 48        ..H   ldab 0048
4594 A738 4F              O     clra
4595 A739 C3 00 68        ..h   addd #0068
4596 A73C 8F              .     xgdx
4597 A73D E6 00           ..    ldab 00,x
4598 A73F 26 10           &.    bne 10
4599 A741 C6 01           ..    ldab #01
4600 A743 37              7     pshb
4601 A744 F6 00 48        ..H   ldab 0048
4602 A747 4F              O     clra
4603 A748 C3 00 68        ..h   addd #0068
4604 A74B 8F              .     xgdx
4605 A74C 33              3     pulb
4606 A74D E7 00           ..    stab 00,x
4607 A74F 20 0D            .    bra 0d
4608 A751 5F              _     clrb
4609 A752 37              7     pshb
4610 A753 F6 00 48        ..H   ldab 0048
4611 A756 4F              O     clra
4612 A757 C3 00 68        ..h   addd #0068
4613 A75A 8F              .     xgdx
4614 A75B 33              3     pulb
4615 A75C E7 00           ..    stab 00,x
4616 A75E 39              9     rts
4617
4618 jump133:
4619 A75F F6 00 48        ..H   ldab 0048
4620 A762 4F              O     clra
4621 A763 BD FE 16        ...   jsr fe16             ;jump2
4622 A766 00              .     test
4623 A767 00              .     test
4624 A768 00              .     test
4625 A769 09              .     dex
4626 A76A A7 DC           ..    staa dc,x
4627 A76C A7 80           ..    staa 80,x
4628 A76E A7 87           ..    staa 87,x
4629 A770 A7 8E           ..    staa 8e,x
4630 A772 A7 95           ..    staa 95,x
4631 A774 A7 9C           ..    staa 9c,x
4632 A776 A7 A3           ..    staa a3,x
4633 A778 A7 AA           ..    staa aa,x
4634 A77A A7 B1           ..    staa b1,x
4635 A77C A7 C4           ..    staa c4,x
4636 A77E A7 D7           ..    staa d7,x
4637 A780 C6 02           ..    ldab #02
4638 A782 F7 00 02        ...   stab 0002
4639 A785 20 55            U    bra 55
4640 A787 C6 10           ..    ldab #10
4641 A789 F7 00 02        ...   stab 0002
4642 A78C 20 4E            N    bra 4e
4643 A78E C6 20           .     ldab #20
4644 A790 F7 00 02        ...   stab 0002
4645 A793 20 47            G    bra 47
4646 A795 C6 01           ..    ldab #01
4647 A797 F7 00 02        ...   stab 0002
4648 A79A 20 40            @    bra 40
4649 A79C C6 04           ..    ldab #04
4650 A79E F7 00 02        ...   stab 0002
4651 A7A1 20 39            9    bra 39
4652 A7A3 C6 08           ..    ldab #08
4653 A7A5 F7 00 02        ...   stab 0002
4654 A7A8 20 32            2    bra 32
4655 A7AA C6 40           .@    ldab #40
4656 A7AC F7 00 02        ...   stab 0002
4657 A7AF 20 2B            +    bra 2b
4658 A7B1 F6 0E 70        ..p   ldab 0e70
4659 A7B4 C1 01           ..    cmpb #01
4660 A7B6 26 05           &.    bne 05
4661 A7B8 7F 0E 70        ..p   clr 0e70
4662 A7BB 20 05            .    bra 05
4663 A7BD C6 01           ..    ldab #01
4664 A7BF F7 0E 70        ..p   stab 0e70
4665 A7C2 20 18            .    bra 18
4666 A7C4 F6 0E 6F        ..o   ldab 0e6f
4667 A7C7 C1 01           ..    cmpb #01
4668 A7C9 26 05           &.    bne 05
4669 A7CB 7F 0E 6F        ..o   clr 0e6f
4670 A7CE 20 05            .    bra 05
4671 A7D0 C6 01           ..    ldab #01
4672 A7D2 F7 0E 6F        ..o   stab 0e6f
4673 A7D5 20 05            .    bra 05
4674 A7D7 C6 80           ..    ldab #80
4675 A7D9 F7 00 02        ...   stab 0002
4676 A7DC F6 00 48        ..H   ldab 0048
4677 A7DF C1 0A           ..    cmpb #0a
4678 A7E1 24 2B           $+    bcc 2b
4679 A7E3 F6 00 48        ..H   ldab 0048
4680 A7E6 C1 07           ..    cmpb #07
4681 A7E8 27 24           '$    beq 24
4682 A7EA F6 00 48        ..H   ldab 0048
4683 A7ED C1 08           ..    cmpb #08
4684 A7EF 27 1D           '.    beq 1d
4685 A7F1 F6 00 67        ..g   ldab 0067
4686 A7F4 F4 00 02        ...   andb 0002
4687 A7F7 26 0B           &.    bne 0b
4688 A7F9 F6 00 02        ...   ldab 0002
4689 A7FC FA 00 67        ..g   orb 0067
4690 A7FF F7 00 67        ..g   stab 0067
4691 A802 20 0A            .    bra 0a
4692 A804 F6 00 02        ...   ldab 0002
4693 A807 53              S     comb
4694 A808 F4 00 67        ..g   andb 0067
4695 A80B F7 00 67        ..g   stab 0067
4696 A80E 39              9     rts
4697
4698 A80F 7F 00 54        ..T   clr 0054
4699 A812 F6 00 54        ..T   ldab 0054
4700 A815 C1 04           ..    cmpb #04
4701 A817 24 4A           $J    bcc 4a
4702 A819 CC 01 F4        ...   ldd #01f4
4703 A81C BD E5 71        ..q   jsr e571             ;msdelay
4704 A81F F6 0B 93        ...   ldab 0b93
4705 A822 F7 00 5F        .._   stab 005f
4706 A825 F6 0B 94        ...   ldab 0b94
4707 A828 F7 00 5E        ..^   stab 005e
4708 A82B F6 0B 95        ...   ldab 0b95
4709 A82E F7 00 5D        ..]   stab 005d
4710 A831 F6 0B 96        ...   ldab 0b96
4711 A834 F7 00 5A        ..Z   stab 005a
4712 A837 BD BE 4B        ..K   jsr be4b             ;displayblank
4713 A83A BD BE 01        ...   jsr be01             ;jump70
4714 A83D CC 01 F4        ...   ldd #01f4
4715 A840 BD E5 71        ..q   jsr e571             ;msdelay
4716 A843 F6 00 5F        .._   ldab 005f
4717 A846 F7 0B 93        ...   stab 0b93
4718 A849 F6 00 5E        ..^   ldab 005e
4719 A84C F7 0B 94        ...   stab 0b94
4720 A84F F6 00 5D        ..]   ldab 005d
4721 A852 F7 0B 95        ...   stab 0b95
4722 A855 F6 00 5A        ..Z   ldab 005a
4723 A858 F7 0B 96        ...   stab 0b96
4724 A85B BD BE 01        ...   jsr be01             ;jump70
4725 A85E 7C 00 54        |.T   inc 0054
4726 A861 20 AF            .    bra af
4727 A863 39              9     rts
4728
4729 jump99:
4730 A864 F6 00 09        ...   ldab 0009
4731 A867 C1 01           ..    cmpb #01
4732 A869 26 20           &     bne 20
4733 A86B F6 00 61        ..a   ldab 0061
4734 A86E 4F              O     clra
4735 A86F C3 00 01        ...   addd #0001
4736 A872 37              7     pshb
4737 A873 36              6     psha
4738 A874 F6 00 60        ..`   ldab 0060
4739 A877 4F              O     clra
4740 A878 30              0     tsx
4741 A879 A3 00           ..    subd 00,x
4742 A87B 31              1     ins
4743 A87C 31              1     ins
4744 A87D 2C 0A           ,.    bge 0a
4745 A87F F6 00 60        ..`   ldab 0060
4746 A882 C1 F9           ..    cmpb #f9
4747 A884 24 03           $.    bcc 03
4748 A886 7C 00 60        |.`   inc 0060
4749 A889 20 0A            .    bra 0a
4750 A88B F6 00 60        ..`   ldab 0060
4751 A88E C1 09           ..    cmpb #09
4752 A890 24 03           $.    bcc 03
4753 A892 7C 00 60        |.`   inc 0060
4754 A895 39              9     rts
4755
4756 jump98:
4757 A896 F6 00 36        ..6   ldab 0036
4758 A899 26 39           &9    bne 39
4759 A89B F6 00 54        ..T   ldab 0054
4760 A89E C1 27           .'    cmpb #27
4761 A8A0 24 20           $     bcc 20
4762 A8A2 7C 00 54        |.T   inc 0054
4763 A8A5 F6 00 09        ...   ldab 0009
4764 A8A8 C1 01           ..    cmpb #01
4765 A8AA 26 0C           &.    bne 0c
4766 A8AC F6 00 54        ..T   ldab 0054
4767 A8AF C1 27           .'    cmpb #27
4768 A8B1 26 03           &.    bne 03
4769 A8B3 7F 00 54        ..T   clr 0054
4770 A8B6 20 0A            .    bra 0a
4771 A8B8 F6 00 54        ..T   ldab 0054
4772 A8BB C1 24           .$    cmpb #24
4773 A8BD 26 03           &.    bne 03
4774 A8BF 7F 00 54        ..T   clr 0054
4775 A8C2 F6 00 54        ..T   ldab 0054
4776 A8C5 4F              O     clra
4777 A8C6 C3 B4 8F        ...   addd #b48f
4778 A8C9 8F              .     xgdx
4779 A8CA E6 00           ..    ldab 00,x
4780 A8CC F7 0B 90        ...   stab 0b90
4781 A8CF C6 02           ..    ldab #02
4782 A8D1 F7 00 36        ..6   stab 0036
4783 A8D4 39              9     rts
4784
4785 jump97:
4786 A8D5 F6 00 60        ..`   ldab 0060
4787 A8D8 C1 00           ..    cmpb #00
4788 A8DA 23 05           #.    bls 05
4789 A8DC 7A 00 60        z.`   dec 0060
4790 A8DF 20 03            .    bra 03
4791 A8E1 7F 00 60        ..`   clr 0060
4792 A8E4 39              9     rts
4793
4794 jump96:
4795 A8E5 F6 00 36        ..6   ldab 0036
4796 A8E8 26 36           &6    bne 36
4797 A8EA F6 00 54        ..T   ldab 0054
4798 A8ED C1 00           ..    cmpb #00
4799 A8EF 25 1D           %.    bcs 1d
4800 A8F1 F6 00 54        ..T   ldab 0054
4801 A8F4 26 15           &.    bne 15
4802 A8F6 F6 00 09        ...   ldab 0009
4803 A8F9 C1 01           ..    cmpb #01
4804 A8FB 26 07           &.    bne 07
4805 A8FD C6 26           .&    ldab #26
4806 A8FF F7 00 54        ..T   stab 0054
4807 A902 20 05            .    bra 05
4808 A904 C6 23           .#    ldab #23
4809 A906 F7 00 54        ..T   stab 0054
4810 A909 20 03            .    bra 03
4811 A90B 7A 00 54        z.T   dec 0054
4812 A90E F6 00 54        ..T   ldab 0054
4813 A911 4F              O     clra
4814 A912 C3 B4 8F        ...   addd #b48f
4815 A915 8F              .     xgdx
4816 A916 E6 00           ..    ldab 00,x
4817 A918 F7 0B 90        ...   stab 0b90
4818 A91B C6 02           ..    ldab #02
4819 A91D F7 00 36        ..6   stab 0036
4820 A920 39              9     rts
4821
4822 jump95:
4823 A921 F6 0B 90        ...   ldab 0b90
4824 A924 F7 0B 96        ...   stab 0b96
4825 A927 F6 0B 96        ...   ldab 0b96
4826 A92A 37              7     pshb
4827 A92B F6 00 60        ..`   ldab 0060
4828 A92E 4F              O     clra
4829 A92F C3 0A 93        ...   addd #0a93
4830 A932 8F              .     xgdx
4831 A933 33              3     pulb
4832 A934 E7 00           ..    stab 00,x
4833 A936 F6 00 09        ...   ldab 0009
4834 A939 C1 01           ..    cmpb #01
4835 A93B 26 32           &2    bne 32
4836 A93D F6 00 61        ..a   ldab 0061
4837 A940 4F              O     clra
4838 A941 C3 00 01        ...   addd #0001
4839 A944 37              7     pshb
4840 A945 36              6     psha
4841 A946 F6 00 60        ..`   ldab 0060
4842 A949 4F              O     clra
4843 A94A 30              0     tsx
4844 A94B A3 00           ..    subd 00,x
4845 A94D 31              1     ins
4846 A94E 31              1     ins
4847 A94F 26 0A           &.    bne 0a
4848 A951 F6 00 60        ..`   ldab 0060
4849 A954 C1 FA           ..    cmpb #fa
4850 A956 24 03           $.    bcc 03
4851 A958 7C 00 61        |.a   inc 0061
4852 A95B F6 00 60        ..`   ldab 0060
4853 A95E F1 00 61        ..a   cmpb 0061
4854 A961 22 0A           ".    bhi 0a
4855 A963 F6 00 60        ..`   ldab 0060
4856 A966 C1 F9           ..    cmpb #f9
4857 A968 24 03           $.    bcc 03
4858 A96A 7C 00 60        |.`   inc 0060
4859 A96D 20 0A            .    bra 0a
4860 A96F F6 00 60        ..`   ldab 0060
4861 A972 C1 09           ..    cmpb #09
4862 A974 24 03           $.    bcc 03
4863 A976 7C 00 60        |.`   inc 0060
4864 A979 39              9     rts
4865
4866 jump132:
4867 A97A F6 00 60        ..`   ldab 0060
4868 A97D 26 24           &$    bne 24
4869 A97F F6 00 60        ..`   ldab 0060
4870 A982 CB 03           ..    addb #03
4871 A984 F7 00 54        ..T   stab 0054
4872 A987 F6 00 54        ..T   ldab 0054
4873 A98A C1 FF           ..    cmpb #ff
4874 A98C 24 13           $.    bcc 13
4875 A98E C6 20           .     ldab #20
4876 A990 37              7     pshb
4877 A991 F6 00 54        ..T   ldab 0054
4878 A994 4F              O     clra
4879 A995 C3 0A 90        ...   addd #0a90
4880 A998 8F              .     xgdx
4881 A999 33              3     pulb
4882 A99A E7 00           ..    stab 00,x
4883 A99C 7C 00 54        |.T   inc 0054
4884 A99F 20 E6            .    bra e6
4885 A9A1 20 22            "    bra 22
4886 A9A3 F6 00 60        ..`   ldab 0060
4887 A9A6 CB 04           ..    addb #04
4888 A9A8 F7 00 54        ..T   stab 0054
4889 A9AB F6 00 54        ..T   ldab 0054
4890 A9AE C1 FF           ..    cmpb #ff
4891 A9B0 24 13           $.    bcc 13
4892 A9B2 C6 20           .     ldab #20
4893 A9B4 37              7     pshb
4894 A9B5 F6 00 54        ..T   ldab 0054
4895 A9B8 4F              O     clra
4896 A9B9 C3 0A 90        ...   addd #0a90
4897 A9BC 8F              .     xgdx
4898 A9BD 33              3     pulb
4899 A9BE E7 00           ..    stab 00,x
4900 A9C0 7C 00 54        |.T   inc 0054
4901 A9C3 20 E6            .    bra e6
4902 A9C5 F6 00 60        ..`   ldab 0060
4903 A9C8 F7 00 61        ..a   stab 0061
4904 A9CB 7F 00 54        ..T   clr 0054
4905 A9CE 39              9     rts
4906
4907 jump131:
4908 A9CF C6 50           .P    ldab #50
4909 A9D1 F7 09 90        ...   stab 0990
4910 A9D4 C6 29           .)    ldab #29
4911 A9D6 F7 09 91        ...   stab 0991
4912 A9D9 C6 20           .     ldab #20
4913 A9DB F7 09 92        ...   stab 0992
4914 A9DE 7F 00 54        ..T   clr 0054
4915 A9E1 F6 00 54        ..T   ldab 0054
4916 A9E4 C1 FF           ..    cmpb #ff
4917 A9E6 24 1B           $.    bcc 1b
4918 A9E8 F6 00 54        ..T   ldab 0054
4919 A9EB 4F              O     clra
4920 A9EC C3 09 90        ...   addd #0990
4921 A9EF 8F              .     xgdx
4922 A9F0 E6 00           ..    ldab 00,x
4923 A9F2 37              7     pshb
4924 A9F3 F6 00 54        ..T   ldab 0054
4925 A9F6 4F              O     clra
4926 A9F7 C3 0A 90        ...   addd #0a90
4927 A9FA 8F              .     xgdx
4928 A9FB 33              3     pulb
4929 A9FC E7 00           ..    stab 00,x
4930 A9FE 7C 00 54        |.T   inc 0054
4931 AA01 20 DE            .    bra de
4932 AA03 F6 0B BF        ...   ldab 0bbf
4933 AA06 F7 00 61        ..a   stab 0061
4934 AA09 39              9     rts
4935
4936 jump130:
4937 AA0A C6 53           .S    ldab #53
4938 AA0C F7 0C B9        ...   stab 0cb9
4939 AA0F C6 29           .)    ldab #29
4940 AA11 F7 0C BA        ...   stab 0cba
4941 AA14 C6 20           .     ldab #20
4942 AA16 F7 0C BB        ...   stab 0cbb
4943 AA19 7F 00 54        ..T   clr 0054
4944 AA1C F6 00 54        ..T   ldab 0054
4945 AA1F C1 10           ..    cmpb #10
4946 AA21 24 1B           $.    bcc 1b
4947 AA23 F6 00 54        ..T   ldab 0054
4948 AA26 4F              O     clra
4949 AA27 C3 0C B9        ...   addd #0cb9
4950 AA2A 8F              .     xgdx
4951 AA2B E6 00           ..    ldab 00,x
4952 AA2D 37              7     pshb
4953 AA2E F6 00 54        ..T   ldab 0054
4954 AA31 4F              O     clra
4955 AA32 C3 0A 90        ...   addd #0a90
4956 AA35 8F              .     xgdx
4957 AA36 33              3     pulb
4958 AA37 E7 00           ..    stab 00,x
4959 AA39 7C 00 54        |.T   inc 0054
4960 AA3C 20 DE            .    bra de
4961 AA3E 39              9     rts
4962
4963 jump129:
4964 AA3F C6 49           .I    ldab #49
4965 AA41 F7 0C C9        ...   stab 0cc9
4966 AA44 C6 29           .)    ldab #29
4967 AA46 F7 0C CA        ...   stab 0cca
4968 AA49 C6 20           .     ldab #20
4969 AA4B F7 0C CB        ...   stab 0ccb
4970 AA4E 7F 00 54        ..T   clr 0054
4971 AA51 F6 00 54        ..T   ldab 0054
4972 AA54 C1 10           ..    cmpb #10
4973 AA56 24 1B           $.    bcc 1b
4974 AA58 F6 00 54        ..T   ldab 0054
4975 AA5B 4F              O     clra
4976 AA5C C3 0C C9        ...   addd #0cc9
4977 AA5F 8F              .     xgdx
4978 AA60 E6 00           ..    ldab 00,x
4979 AA62 37              7     pshb
4980 AA63 F6 00 54        ..T   ldab 0054
4981 AA66 4F              O     clra
4982 AA67 C3 0A 90        ...   addd #0a90
4983 AA6A 8F              .     xgdx
4984 AA6B 33              3     pulb
4985 AA6C E7 00           ..    stab 00,x
4986 AA6E 7C 00 54        |.T   inc 0054
4987 AA71 20 DE            .    bra de
4988 AA73 39              9     rts
4989
4990 jump128:
4991 AA74 7F 00 54        ..T   clr 0054
4992 AA77 F6 00 54        ..T   ldab 0054
4993 AA7A C1 0B           ..    cmpb #0b
4994 AA7C 24 1B           $.    bcc 1b
4995 AA7E F6 00 54        ..T   ldab 0054
4996 AA81 4F              O     clra
4997 AA82 C3 0B E4        ...   addd #0be4
4998 AA85 8F              .     xgdx
4999 AA86 E6 00           ..    ldab 00,x
5000 AA88 37              7     pshb
5001 AA89 F6 00 54        ..T   ldab 0054
5002 AA8C 4F              O     clra
5003 AA8D C3 00 68        ..h   addd #0068
5004 AA90 8F              .     xgdx
5005 AA91 33              3     pulb
5006 AA92 E7 00           ..    stab 00,x
5007 AA94 7C 00 54        |.T   inc 0054
5008 AA97 20 DE            .    bra de
5009 AA99 39              9     rts
5010
5011 jump127:
5012 AA9A F6 00 22        .."   ldab 0022
5013 AA9D C1 06           ..    cmpb #06
5014 AA9F 24 0F           $.    bcc 0f
5015 AAA1 7C 00 22        |."   inc 0022
5016 AAA4 F6 00 22        .."   ldab 0022
5017 AAA7 C1 05           ..    cmpb #05
5018 AAA9 23 05           #.    bls 05
5019 AAAB C6 01           ..    ldab #01
5020 AAAD F7 00 22        .."   stab 0022
5021 AAB0 F6 00 22        .."   ldab 0022
5022 AAB3 4F              O     clra
5023 AAB4 BD FE 16        ...   jsr fe16             ;jump2
5024 AAB7 00              .     test
5025 AAB8 01              .     nop
5026 AAB9 00              .     test
5027 AABA 04              .     lsrd
5028 AABB AB 0B           ..    adda 0b,x
5029 AABD AA C7           ..    ora c7,x
5030 AABF AA D5           ..    ora d5,x
5031 AAC1 AA E3           ..    ora e3,x
5032 AAC3 AA F1           ..    ora f1,x
5033 AAC5 AA FF           ..    ora ff,x
5034 AAC7 F6 0B AF        ...   ldab 0baf
5035 AACA F7 00 24        ..$   stab 0024
5036 AACD F6 0B B4        ...   ldab 0bb4
5037 AAD0 F7 00 2A        ..*   stab 002a
5038 AAD3 20 36            6    bra 36
5039 AAD5 F6 0B AE        ...   ldab 0bae
5040 AAD8 F7 00 24        ..$   stab 0024
5041 AADB F6 0B B3        ...   ldab 0bb3
5042 AADE F7 00 2A        ..*   stab 002a
5043 AAE1 20 28            (    bra 28
5044 AAE3 F6 0B AD        ...   ldab 0bad
5045 AAE6 F7 00 24        ..$   stab 0024
5046 AAE9 F6 0B B2        ...   ldab 0bb2
5047 AAEC F7 00 2A        ..*   stab 002a
5048 AAEF 20 1A            .    bra 1a
5049 AAF1 F6 0B AC        ...   ldab 0bac
5050 AAF4 F7 00 24        ..$   stab 0024
5051 AAF7 F6 0B B1        ...   ldab 0bb1
5052 AAFA F7 00 2A        ..*   stab 002a
5053 AAFD 20 0C            .    bra 0c
5054 AAFF F6 0B AB        ...   ldab 0bab
5055 AB02 F7 00 24        ..$   stab 0024
5056 AB05 F6 0B B0        ...   ldab 0bb0
5057 AB08 F7 00 2A        ..*   stab 002a
5058 AB0B 39              9     rts
5059
5060 jump126:
5061 AB0C C6 03           ..    ldab #03
5062 AB0E F7 00 18        ...   stab 0018
5063 AB11 7F 00 1C        ...   clr 001c
5064 AB14 F6 00 1C        ...   ldab 001c
5065 AB17 C1 04           ..    cmpb #04
5066 AB19 24 6D           $m    bcc 6d
5067 AB1B C6 07           ..    ldab #07
5068 AB1D F7 00 55        ..U   stab 0055
5069 AB20 7F 00 54        ..T   clr 0054
5070 AB23 F6 00 54        ..T   ldab 0054
5071 AB26 C1 08           ..    cmpb #08
5072 AB28 24 56           $V    bcc 56
5073 AB2A F6 00 1C        ...   ldab 001c
5074 AB2D 4F              O     clra
5075 AB2E C3 0B A4        ...   addd #0ba4
5076 AB31 8F              .     xgdx
5077 AB32 E6 00           ..    ldab 00,x
5078 AB34 37              7     pshb
5079 AB35 F6 00 54        ..T   ldab 0054
5080 AB38 4F              O     clra
5081 AB39 C3 B4 B7        ...   addd #b4b7
5082 AB3C 8F              .     xgdx
5083 AB3D E6 00           ..    ldab 00,x
5084 AB3F 30              0     tsx
5085 AB40 E4 00           ..    andb 00,x
5086 AB42 31              1     ins
5087 AB43 27 1A           '.    beq 1a
5088 AB45 F6 00 55        ..U   ldab 0055
5089 AB48 4F              O     clra
5090 AB49 C3 B4 B7        ...   addd #b4b7
5091 AB4C 8F              .     xgdx
5092 AB4D E6 00           ..    ldab 00,x
5093 AB4F 37              7     pshb
5094 AB50 F6 00 18        ...   ldab 0018
5095 AB53 4F              O     clra
5096 AB54 C3 00 62        ..b   addd #0062
5097 AB57 8F              .     xgdx
5098 AB58 33              3     pulb
5099 AB59 EA 00           ..    orb 00,x
5100 AB5B E7 00           ..    stab 00,x
5101 AB5D 20 19            .    bra 19
5102 AB5F F6 00 55        ..U   ldab 0055
5103 AB62 4F              O     clra
5104 AB63 C3 B4 B7        ...   addd #b4b7
5105 AB66 8F              .     xgdx
5106 AB67 E6 00           ..    ldab 00,x
5107 AB69 53              S     comb
5108 AB6A 37              7     pshb
5109 AB6B F6 00 18        ...   ldab 0018
5110 AB6E 4F              O     clra
5111 AB6F C3 00 62        ..b   addd #0062
5112 AB72 8F              .     xgdx
5113 AB73 33              3     pulb
5114 AB74 E4 00           ..    andb 00,x
5115 AB76 E7 00           ..    stab 00,x
5116 AB78 7A 00 55        z.U   dec 0055
5117 AB7B 7C 00 54        |.T   inc 0054
5118 AB7E 20 A3            .    bra a3
5119 AB80 7A 00 18        z..   dec 0018
5120 AB83 7C 00 1C        |..   inc 001c
5121 AB86 20 8C            .    bra 8c
5122 AB88 39              9     rts
5123
5124 jump7:
5125 AB89 CC B0 8C        ...   ldd #b08c    ; "NO ERRORS"
5126 AB8C BD C0 BA        ...   jsr c0ba             ;display:
5127 AB8F CC 01 F4        ...   ldd #01f4
5128 AB92 BD E5 71        ..q   jsr e571             ;msdelay
5129 AB95 BD D4 79        ..y   jsr d479             ;jump67
5130 AB98 BD E8 9A        ...   jsr e89a             ;jump68
5131 AB9B BD E9 EA        ...   jsr e9ea             ;jump113
5132 AB9E 7F 0B C1        ...   clr 0bc1
5133 ABA1 39              9     rts
5134
5135 jump8:
5136 ABA2 7F 00 05        ...   clr 0005
5137 goto24:
5138 ABA5 F6 00 05        ...   ldab 0005
5139 ABA8 C1 64           .d    cmpb #64
5140 ABAA 25 03           %.    bcs 03
5141 ABAC 7E AC 81        ~..   jmp ac81             ;goto22
5142 ABAF F6 00 05        ...   ldab 0005
5143 ABB2 F7 00 06        ...   stab 0006
5144 ABB5 F6 00 05        ...   ldab 0005
5145 ABB8 4F              O     clra
5146 ABB9 CE 00 05        ...   ldx #0005
5147 ABBC 02              .     idiv
5148 ABBD 5D              ]     tstb
5149 ABBE 26 03           &.    bne 03
5150 ABC0 7E AC 7B        ~.{   jmp ac7b             ;goto23
5151 ABC3 F6 00 06        ...   ldab 0006
5152 ABC6 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
5153 ABC9 83 00 00        ...   subd #0000
5154 ABCC 27 03           '.    beq 03
5155 ABCE 7E AC 7B        ~.{   jmp ac7b             ;goto23
5156 ABD1 BD D3 11        ...   jsr d311             ;jump30 - test position exists
5157 ABD4 83 00 00        ...   subd #0000
5158 ABD7 27 2B           '+    beq 2b
5159 ABD9 F6 00 05        ...   ldab 0005
5160 ABDC 4F              O     clra
5161 ABDD 05              .     asld
5162 ABDE C3 08 00        ...   addd #0800
5163 ABE1 8F              .     xgdx
5164 ABE2 EC 00           ..    ldd 00,x
5165 ABE4 C4 FF           ..    andb #ff
5166 ABE6 84 3F           .?    anda #3f
5167 ABE8 83 27 10        .'.   subd #2710   ; 10000
5168 ABEB 24 15           $.    bcc 15
5169 ABED CC 01 00        ...   ldd #0100
5170 ABF0 37              7     pshb
5171 ABF1 36              6     psha
5172 ABF2 F6 00 05        ...   ldab 0005
5173 ABF5 4F              O     clra
5174 ABF6 05              .     asld
5175 ABF7 C3 08 C8        ...   addd #08c8
5176 ABFA 38              8     pulx
5177 ABFB 8F              .     xgdx
5178 ABFC AA 00           ..    ora 00,x
5179 ABFE EA 01           ..    orb 01,x
5180 AC00 ED 00           ..    std 00,x
5181 AC02 20 29            )    bra 29
5182 AC04 F6 00 05        ...   ldab 0005
5183 AC07 4F              O     clra
5184 AC08 05              .     asld
5185 AC09 C3 08 00        ...   addd #0800
5186 AC0C 8F              .     xgdx
5187 AC0D EC 00           ..    ldd 00,x
5188 AC0F C4 FF           ..    andb #ff
5189 AC11 84 3F           .?    anda #3f
5190 AC13 83 27 0F        .'.   subd #270f
5191 AC16 23 15           #.    bls 15
5192 AC18 CC 01 00        ...   ldd #0100
5193 AC1B 37              7     pshb
5194 AC1C 36              6     psha
5195 AC1D F6 00 05        ...   ldab 0005
5196 AC20 4F              O     clra
5197 AC21 05              .     asld
5198 AC22 C3 08 C8        ...   addd #08c8
5199 AC25 38              8     pulx
5200 AC26 8F              .     xgdx
5201 AC27 AA 00           ..    ora 00,x
5202 AC29 EA 01           ..    orb 01,x
5203 AC2B ED 00           ..    std 00,x
5204 AC2D F6 00 05        ...   ldab 0005
5205 AC30 4F              O     clra
5206 AC31 05              .     asld
5207 AC32 C3 08 C8        ...   addd #08c8
5208 AC35 8F              .     xgdx
5209 AC36 EC 00           ..    ldd 00,x
5210 AC38 84 01           ..    anda #01
5211 AC3A 27 06           '.    beq 06
5212 AC3C CE 00 19        ...   ldx #0019
5213 AC3F 1C 00 04        ...   bset 00,x, #04
5214 AC42 F6 00 05        ...   ldab 0005
5215 AC45 4F              O     clra
5216 AC46 05              .     asld
5217 AC47 C3 08 00        ...   addd #0800
5218 AC4A 8F              .     xgdx
5219 AC4B EC 00           ..    ldd 00,x
5220 AC4D 84 80           ..    anda #80
5221 AC4F 27 2A           '*    beq 2a
5222 AC51 F6 00 05        ...   ldab 0005
5223 AC54 4F              O     clra
5224 AC55 05              .     asld
5225 AC56 C3 08 C8        ...   addd #08c8
5226 AC59 8F              .     xgdx
5227 AC5A EC 00           ..    ldd 00,x
5228 AC5C 84 02           ..    anda #02
5229 AC5E 27 06           '.    beq 06
5230 AC60 CE 00 19        ...   ldx #0019
5231 AC63 1C 00 01        ...   bset 00,x, #01
5232 AC66 F6 00 05        ...   ldab 0005
5233 AC69 4F              O     clra
5234 AC6A 05              .     asld
5235 AC6B C3 08 C8        ...   addd #08c8
5236 AC6E 8F              .     xgdx
5237 AC6F EC 00           ..    ldd 00,x
5238 AC71 84 04           ..    anda #04
5239 AC73 27 06           '.    beq 06
5240 AC75 CE 00 19        ...   ldx #0019
5241 AC78 1C 00 02        ...   bset 00,x, #02
5242 goto23:
5243 AC7B 7C 00 05        |..   inc 0005
5244 AC7E 7E AB A5        ~..   jmp aba5             ;goto24
5245 goto22:
5246 AC81 F6 00 19        ...   ldab 0019
5247 AC84 C4 07           ..    andb #07
5248 AC86 26 0A           &.    bne 0a
5249 AC88 F6 0B C1        ...   ldab 0bc1
5250 AC8B C4 7F           ..    andb #7f
5251 AC8D 26 03           &.    bne 03
5252 AC8F 5F              _     clrb
5253 AC90 20 02            .    bra 02
5254 AC92 C6 01           ..    ldab #01
5255 AC94 5D              ]     tstb
5256 AC95 26 05           &.    bne 05
5257 AC97 C6 0D           ..    ldab #0d
5258 AC99 F7 00 48        ..H   stab 0048
5259 AC9C 39              9     rts
5260
5261 ; keypad map
5262 AC9D 08              .     inx
5263 AC9E 07              .     tpa
5264 AC9F 06              .     tap
5265 ACA0 05              .     asld
5266 ACA1 04              .     lsrd
5267 ACA2 03              .     fdiv
5268 ACA3 02              .     idiv
5269 ACA4 01              .     nop
5270 ACA5 0B              .     sev
5271 ACA6 0A              .     clv
5272 ACA7 09              .     dex
5273
5274 ACA8 20 20                 bra 20
5275 ACAA 50              P     negb
5276 ACAB 52              R     illegal
5277 ACAC 49              I     rola
5278 ACAD 43              C     coma
5279 ACAE 45              E     illegal
5280 ACAF 20 20                 bra 20
5281 ACB1 20 00            .    bra 00
5282 ACB3 20 20                 bra 20
5283 ACB5 20 50            P    bra 50
5284 ACB7 52              R     illegal
5285 ACB8 49              I     rola
5286 ACB9 58              X     aslb
5287 ACBA 20 20                 bra 20
5288 ACBC 20 00            .    bra 00
5289 ACBE 20 20                 bra 20
5290 ACC0 50              P     negb
5291 ACC1 52              R     illegal
5292 ACC2 45              E     illegal
5293 ACC3 49              I     rola
5294 ACC4 53              S     comb
5295 ACC5 20 20                 bra 20
5296 ACC7 20 00            .    bra 00
5297 ACC9 20 20                 bra 20
5298 ACCB 50              P     negb
5299 ACCC 52              R     illegal
5300 ACCD 45              E     illegal
5301 ACCE 43              C     coma
5302 ACCF 49              I     rola
5303 ACD0 4F              O     clra
5304 ACD1 20 20                 bra 20
5305 ACD3 00              .     test
5306 ACD4 20 20                 bra 20
5307 ACD6 43              C     coma
5308 ACD7 48              H     asla
5309 ACD8 41              A     illegal
5310 ACD9 4E              N     illegal
5311 ACDA 47              G     asra
5312 ACDB 45              E     illegal
5313 ACDC 20 20                 bra 20
5314 ACDE 00              .     test
5315 ACDF 20 20                 bra 20
5316 ACE1 43              C     coma
5317 ACE2 41              A     illegal
5318 ACE3 4D              M     tsta
5319 ACE4 42              B     illegal
5320 ACE5 49              I     rola
5321 ACE6 4F              O     clra
5322 ACE7 20 20                 bra 20
5323 ACE9 00              .     test
5324 ACEA 20 4D            M    bra 4d
5325 ACEC 4F              O     clra
5326 ACED 4E              N     illegal
5327 ACEE 4E              N     illegal
5328 ACEF 41              A     illegal
5329 ACF0 49              I     rola
5330 ACF1 45              E     illegal
5331 ACF2 20 20                 bra 20
5332 ACF4 00              .     test
5333 ACF5 20 20                 bra 20
5334 ACF7 54              T     lsrb
5335 ACF8 48              H     asla
5336 ACF9 41              A     illegal
5337 ACFA 4E              N     illegal
5338 ACFB 4B              K     illegal
5339 ACFC 53              S     comb
5340 ACFD 20 20                 bra 20
5341 ACFF 00              .     test
5342 AD00 20 20                 bra 20
5343 AD02 4D              M     tsta
5344 AD03 45              E     illegal
5345 AD04 52              R     illegal
5346 AD05 43              C     coma
5347 AD06 49              I     rola
5348 AD07 20 20                 bra 20
5349 AD09 20 00            .    bra 00
5350 AD0B 20 20                 bra 20
5351 AD0D 44              D     lsra
5352 AD0E 41              A     illegal
5353 AD0F 4E              N     illegal
5354 AD10 4B              K     illegal
5355 AD11 45              E     illegal
5356 AD12 20 20                 bra 20
5357 AD14 20 00            .    bra 00
5358 AD16 20 20                 bra 20
5359 AD18 47              G     asra
5360 AD19 52              R     illegal
5361 AD1A 41              A     illegal
5362 AD1B 43              C     coma
5363 AD1C 49              I     rola
5364 AD1D 41              A     illegal
5365 AD1E 53              S     comb
5366 AD1F 20 00            .    bra 00
5367 AD21 20 20                 bra 20
5368 AD23 53              S     comb
5369 AD24 45              E     illegal
5370 AD25 4C              L     inca
5371 AD26 45              E     illegal
5372 AD27 43              C     coma
5373 AD28 54              T     lsrb
5374 AD29 20 20                 bra 20
5375 AD2B 00              .     test
5376 AD2C 20 20                 bra 20
5377 AD2E 4F              O     clra
5378 AD2F 54              T     lsrb
5379 AD30 48              H     asla
5380 AD31 45              E     illegal
5381 AD32 52              R     illegal
5382 AD33 20 20                 bra 20
5383 AD35 20 00            .    bra 00
5384 AD37 20 20                 bra 20
5385 AD39 20 49            I    bra 49
5386 AD3B 54              T     lsrb
5387 AD3C 45              E     illegal
5388 AD3D 4D              M     tsta
5389 AD3E 20 20                 bra 20
5390 AD40 20 00            .    bra 00
5391 AD42 20 20                 bra 20
5392 AD44 46              F     rora
5393 AD45 41              A     illegal
5394 AD46 49              I     rola
5395 AD47 54              T     lsrb
5396 AD48 45              E     illegal
5397 AD49 53              S     comb
5398 AD4A 20 20                 bra 20
5399 AD4C 00              .     test
5400 AD4D 20 20                 bra 20
5401 AD4F 41              A     illegal
5402 AD50 55              U     illegal
5403 AD51 54              T     lsrb
5404 AD52 52              R     illegal
5405 AD53 45              E     illegal
5406 AD54 20 20                 bra 20
5407 AD56 20 00            .    bra 00
5408 AD58 20 20                 bra 20
5409 AD5A 43              C     coma
5410 AD5B 48              H     asla
5411 AD5C 4F              O     clra
5412 AD5D 49              I     rola
5413 AD5E 58              X     aslb
5414 AD5F 20 20                 bra 20
5415 AD61 20 00            .    bra 00
5416 AD63 20 20                 bra 20
5417 AD65 42              B     illegal
5418 AD66 49              I     rola
5419 AD67 54              T     lsrb
5420 AD68 54              T     lsrb
5421 AD69 45              E     illegal
5422 AD6A 20 20                 bra 20
5423 AD6C 20 00            .    bra 00
5424 AD6E 20 20                 bra 20
5425 AD70 41              A     illegal
5426 AD71 4E              N     illegal
5427 AD72 44              D     lsra
5428 AD73 45              E     illegal
5429 AD74 52              R     illegal
5430 AD75 45              E     illegal
5431 AD76 20 20                 bra 20
5432 AD78 00              .     test
5433 AD79 20 20                 bra 20
5434 AD7B 20 57            W    bra 57
5435 AD7D 41              A     illegal
5436 AD7E 48              H     asla
5437 AD7F 4C              L     inca
5438 AD80 20 20                 bra 20
5439 AD82 20 00            .    bra 00
5440 AD84 20 20                 bra 20
5441 AD86 50              P     negb
5442 AD87 55              U     illegal
5443 AD88 4C              L     inca
5444 AD89 53              S     comb
5445 AD8A 45              E     illegal
5446 AD8B 20 20                 bra 20
5447 AD8D 20 00            .    bra 00
5448 AD8F 20 20                 bra 20
5449 AD91 45              E     illegal
5450 AD92 58              X     aslb
5451 AD93 54              T     lsrb
5452 AD94 52              R     illegal
5453 AD95 41              A     illegal
5454 AD96 20 20                 bra 20
5455 AD98 20 00            .    bra 00
5456 AD9A 20 53            S    bra 53
5457 AD9C 45              E     illegal
5458 AD9D 4C              L     inca
5459 AD9E 45              E     illegal
5460 AD9F 43              C     coma
5461 ADA0 43              C     coma
5462 ADA1 49              I     rola
5463 ADA2 4F              O     clra
5464 ADA3 4E              N     illegal
5465 ADA4 00              .     test
5466 ADA5 20 45            E    bra 45
5467 ADA7 58              X     aslb
5468 ADA8 41              A     illegal
5469 ADA9 43              C     coma
5470 ADAA 54              T     lsrb
5471 ADAB 20 43            C    bra 43
5472 ADAD 4F              O     clra
5473 ADAE 49              I     rola
5474 ADAF 4E              N     illegal
5475 ADB0 53              S     comb
5476 ADB1 20 4F            O    bra 4f
5477 ADB3 4E              N     illegal
5478 ADB4 4C              L     inca
5479 ADB5 59              Y     rolb
5480 ADB6 20 00            .    bra 00
5481 ADB8 20 4D            M    bra 4d
5482 ADBA 4F              O     clra
5483 ADBB 4E              N     illegal
5484 ADBC 4E              N     illegal
5485 ADBD 41              A     illegal
5486 ADBE 49              I     rola
5487 ADBF 45              E     illegal
5488 ADC0 20 45            E    bra 45
5489 ADC2 58              X     aslb
5490 ADC3 41              A     illegal
5491 ADC4 43              C     coma
5492 ADC5 54              T     lsrb
5493 ADC6 45              E     illegal
5494 ADC7 20 53            S    bra 53
5495 ADC9 45              E     illegal
5496 ADCA 55              U     illegal
5497 ADCB 4C              L     inca
5498 ADCC 45              E     illegal
5499 ADCD 4D              M     tsta
5500 ADCE 45              E     illegal
5501 ADCF 4E              N     illegal
5502 ADD0 54              T     lsrb
5503 ADD1 20 00            .    bra 00
5504 ADD3 20 4E            N    bra 4e
5505 ADD5 49              I     rola
5506 ADD6 43              C     coma
5507 ADD7 48              H     asla
5508 ADD8 54              T     lsrb
5509 ADD9 20 55            U    bra 55
5510 ADDB 45              E     illegal
5511 ADDC 42              B     illegal
5512 ADDD 45              E     illegal
5513 ADDE 52              R     illegal
5514 ADDF 5A              Z     decb
5515 ADE0 41              A     illegal
5516 ADE1 48              H     asla
5517 ADE2 4C              L     inca
5518 ADE3 45              E     illegal
5519 ADE4 4E              N     illegal
5520 ADE5 20 00            .    bra 00
5521 ADE7 20 49            I    bra 49
5522 ADE9 4E              N     illegal
5523 ADEA 54              T     lsrb
5524 ADEB 52              R     illegal
5525 ADEC 4F              O     clra
5526 ADED 44              D     lsra
5527 ADEE 55              U     illegal
5528 ADEF 5A              Z     decb
5529 ADF0 43              C     coma
5530 ADF1 41              A     illegal
5531 ADF2 20 50            P    bra 50
5532 ADF4 52              R     illegal
5533 ADF5 45              E     illegal
5534 ADF6 43              C     coma
5535 ADF7 49              I     rola
5536 ADF8 4F              O     clra
5537 ADF9 20 45            E    bra 45
5538 ADFB 58              X     aslb
5539 ADFC 41              A     illegal
5540 ADFD 43              C     coma
5541 ADFE 54              T     lsrb
5542 ADFF 4F              O     clra
5543 AE00 20 00            .    bra 00
5544 AE02 20 43            C    bra 43
5545 AE04 4F              O     clra
5546 AE05 49              I     rola
5547 AE06 4E              N     illegal
5548 AE07 53              S     comb
5549 AE08 20 4F            O    bra 4f
5550 AE0A 4E              N     illegal
5551 AE0B 4C              L     inca
5552 AE0C 59              Y     rolb
5553 AE0D 20 00            .    bra 00
5554 AE0F 20 4D            M    bra 4d
5555 AE11 4F              O     clra
5556 AE12 4E              N     illegal
5557 AE13 4E              N     illegal
5558 AE14 41              A     illegal
5559 AE15 49              I     rola
5560 AE16 45              E     illegal
5561 AE17 20 53            S    bra 53
5562 AE19 45              E     illegal
5563 AE1A 55              U     illegal
5564 AE1B 4C              L     inca
5565 AE1C 45              E     illegal
5566 AE1D 4D              M     tsta
5567 AE1E 45              E     illegal
5568 AE1F 4E              N     illegal
5569 AE20 54              T     lsrb
5570 AE21 20 00            .    bra 00
5571 AE23 20 4E            N    bra 4e
5572 AE25 55              U     illegal
5573 AE26 52              R     illegal
5574 AE27 20 4D            M    bra 4d
5575 AE29 55              U     illegal
5576 AE2A 4E              N     illegal
5577 AE2B 5A              Z     decb
5578 AE2C 45              E     illegal
5579 AE2D 4E              N     illegal
5580 AE2E 20 00            .    bra 00
5581 AE30 20 4D            M    bra 4d
5582 AE32 4F              O     clra
5583 AE33 4E              N     illegal
5584 AE34 45              E     illegal
5585 AE35 44              D     lsra
5586 AE36 41              A     illegal
5587 AE37 20 55            U    bra 55
5588 AE39 4E              N     illegal
5589 AE3A 49              I     rola
5590 AE3B 43              C     coma
5591 AE3C 41              A     illegal
5592 AE3D 4D              M     tsta
5593 AE3E 45              E     illegal
5594 AE3F 4E              N     illegal
5595 AE40 54              T     lsrb
5596 AE41 45              E     illegal
5597 AE42 20 00            .    bra 00
5598 AE44 20 4D            M    bra 4d
5599 AE46 41              A     illegal
5600 AE47 43              C     coma
5601 AE48 48              H     asla
5602 AE49 49              I     rola
5603 AE4A 4E              N     illegal
5604 AE4B 45              E     illegal
5605 AE4C 20 4F            O    bra 4f
5606 AE4E 55              U     illegal
5607 AE4F 54              T     lsrb
5608 AE50 20 4F            O    bra 4f
5609 AE52 46              F     rora
5610 AE53 20 4F            O    bra 4f
5611 AE55 52              R     illegal
5612 AE56 44              D     lsra
5613 AE57 45              E     illegal
5614 AE58 52              R     illegal
5615 AE59 20 00            .    bra 00
5616 AE5B 20 48            H    bra 48
5617 AE5D 4F              O     clra
5618 AE5E 52              R     illegal
5619 AE5F 53              S     comb
5620 AE60 20 44            D    bra 44
5621 AE62 45              E     illegal
5622 AE63 20 53            S    bra 53
5623 AE65 45              E     illegal
5624 AE66 52              R     illegal
5625 AE67 56              V     rorb
5626 AE68 49              I     rola
5627 AE69 43              C     coma
5628 AE6A 45              E     illegal
5629 AE6B 20 00            .    bra 00
5630 AE6D 20 41            A    bra 41
5631 AE6F 55              U     illegal
5632 AE70 53              S     comb
5633 AE71 53              S     comb
5634 AE72 45              E     illegal
5635 AE73 52              R     illegal
5636 AE74 20 42            B    bra 42
5637 AE76 45              E     illegal
5638 AE77 54              T     lsrb
5639 AE78 52              R     illegal
5640 AE79 49              I     rola
5641 AE7A 45              E     illegal
5642 AE7B 42              B     illegal
5643 AE7C 20 00            .    bra 00
5644 AE7E 20 46            F    bra 46
5645 AE80 55              U     illegal
5646 AE81 45              E     illegal
5647 AE82 52              R     illegal
5648 AE83 41              A     illegal
5649 AE84 20 44            D    bra 44
5650 AE86 45              E     illegal
5651 AE87 20 53            S    bra 53
5652 AE89 45              E     illegal
5653 AE8A 52              R     illegal
5654 AE8B 56              V     rorb
5655 AE8C 49              I     rola
5656 AE8D 43              C     coma
5657 AE8E 49              I     rola
5658 AE8F 4F              O     clra
5659 AE90 20 00            .    bra 00
5660
5661 AE92 2D 20           -     blt 20
5662 AE94 20 20                 bra 20
5663 AE96 20 20                 bra 20
5664 AE98 20 20                 bra 20
5665 AE9A 20 20                 bra 20
5666 AE9C 00              .     test
5667
5668 AE9D 53              S     comb
5669 AE9E 45              E     illegal
5670 AE9F 54              T     lsrb
5671 AEA0 20 50            P    bra 50
5672 AEA2 52              R     illegal
5673 AEA3 49              I     rola
5674 AEA4 43              C     coma
5675 AEA5 45              E     illegal
5676 AEA6 3F              ?     swi
5677 AEA7 00              .     test
5678
5679 AEA8 20 20                 bra 20
5680 AEAA 53              S     comb
5681 AEAB 59              Y     rolb
5682 AEAC 53              S     comb
5683 AEAD 54              T     lsrb
5684 AEAE 45              E     illegal
5685 AEAF 4D              M     tsta
5686 AEB0 20 20                 bra 20
5687 AEB2 00              .     test
5688
5689 AEB3 20 20                 bra 20
5690 AEB5 20 20                 bra 20
5691 AEB7 4F              O     clra
5692 AEB8 4B              K     illegal
5693 AEB9 20 20                 bra 20
5694 AEBB 20 20                 bra 20
5695 AEBD 00              .     test
5696
5697 AEBE 24 35           $5    bcc 35
5698 AEC0 20 45            E    bra 45
5699 AEC2 4E              N     illegal
5700 AEC3 41              A     illegal
5701 AEC4 42              B     illegal
5702 AEC5 4C              L     inca
5703 AEC6 45              E     illegal
5704 AEC7 20 00            .    bra 00
5705
5706 AEC9 24 35           $5    bcc 35
5707 AECB 20 44            D    bra 44
5708 AECD 49              I     rola
5709 AECE 53              S     comb
5710 AECF 41              A     illegal
5711 AED0 42              B     illegal
5712 AED1 4C              L     inca
5713 AED2 45              E     illegal
5714 AED3 00              .     test
5715
5716 AED4 53              S     comb
5717 AED5 4F              O     clra
5718 AED6 44              D     lsra
5719 AED7 41              A     illegal
5720 AED8 20 56            V    bra 56
5721 AEDA 45              E     illegal
5722 AEDB 4E              N     illegal
5723 AEDC 44              D     lsra
5724 AEDD 20 00            .    bra 00
5725 AEDF 53              S     comb
5726 AEE0 4E              N     illegal
5727 AEE1 41              A     illegal
5728 AEE2 43              C     coma
5729 AEE3 4B              K     illegal
5730 AEE4 20 56            V    bra 56
5731 AEE6 45              E     illegal
5732 AEE7 4E              N     illegal
5733 AEE8 44              D     lsra
5734 AEE9 00              .     test
5735
5736 AEEA 44              D     lsra
5737 AEEB 55              U     illegal
5738 AEEC 4D              M     tsta
5739 AEED 42              B     illegal
5740 AEEE 20 4D            M    bra 4d
5741 AEF0 45              E     illegal
5742 AEF1 43              C     coma
5743 AEF2 20 59            Y    bra 59
5744 AEF4 00              .     test
5745 AEF5 44              D     lsra
5746 AEF6 55              U     illegal
5747 AEF7 4D              M     tsta
5748 AEF8 42              B     illegal
5749 AEF9 20 4D            M    bra 4d
5750 AEFB 45              E     illegal
5751 AEFC 43              C     coma
5752 AEFD 20 4E            N    bra 4e
5753 AEFF 00              .     test
5754 AF00 4C              L     inca
5755 AF01 4E              N     illegal
5756 AF02 4B              K     illegal
5757 AF03 20 4D            M    bra 4d
5758 AF05 53              S     comb
5759 AF06 54              T     lsrb
5760 AF07 52              R     illegal
5761 AF08 20 59            Y    bra 59
5762 AF0A 00              .     test
5763 AF0B 4C              L     inca
5764 AF0C 4E              N     illegal
5765 AF0D 4B              K     illegal
5766 AF0E 20 4D            M    bra 4d
5767 AF10 53              S     comb
5768 AF11 54              T     lsrb
5769 AF12 52              R     illegal
5770 AF13 20 4E            N    bra 4e
5771 AF15 00              .     test
5772 AF16 43              C     coma
5773 AF17 41              A     illegal
5774 AF18 52              R     illegal
5775 AF19 44              D     lsra
5776 AF1A 20 52            R    bra 52
5777 AF1C 44              D     lsra
5778 AF1D 52              R     illegal
5779 AF1E 20 59            Y    bra 59
5780 AF20 00              .     test
5781 AF21 43              C     coma
5782 AF22 41              A     illegal
5783 AF23 52              R     illegal
5784 AF24 44              D     lsra
5785 AF25 20 52            R    bra 52
5786 AF27 44              D     lsra
5787 AF28 52              R     illegal
5788 AF29 20 4E            N    bra 4e
5789 AF2B 00              .     test
5790 AF2C 42              B     illegal
5791 AF2D 49              I     rola
5792 AF2E 4C              L     inca
5793 AF2F 4C              L     inca
5794 AF30 20 56            V    bra 56
5795 AF32 41              A     illegal
5796 AF33 4C              L     inca
5797 AF34 20 59            Y    bra 59
5798 AF36 00              .     test
5799 AF37 42              B     illegal
5800 AF38 49              I     rola
5801 AF39 4C              L     inca
5802 AF3A 4C              L     inca
5803 AF3B 20 56            V    bra 56
5804 AF3D 41              A     illegal
5805 AF3E 4C              L     inca
5806 AF3F 20 4E            N    bra 4e
5807 AF41 00              .     test
5808 AF42 50              P     negb
5809 AF43 52              R     illegal
5810 AF44 43              C     coma
5811 AF45 20 48            H    bra 48
5812 AF47 4F              O     clra
5813 AF48 4C              L     inca
5814 AF49 44              D     lsra
5815 AF4A 20 59            Y    bra 59
5816 AF4C 00              .     test
5817 AF4D 50              P     negb
5818 AF4E 52              R     illegal
5819 AF4F 43              C     coma
5820 AF50 20 48            H    bra 48
5821 AF52 4F              O     clra
5822 AF53 4C              L     inca
5823 AF54 44              D     lsra
5824 AF55 20 4E            N    bra 4e
5825 AF57 00              .     test
5826 AF58 50              P     negb
5827 AF59 52              R     illegal
5828 AF5A 43              C     coma
5829 AF5B 20 44            D    bra 44
5830 AF5D 49              I     rola
5831 AF5E 53              S     comb
5832 AF5F 50              P     negb
5833 AF60 20 59            Y    bra 59
5834 AF62 00              .     test
5835 AF63 50              P     negb
5836 AF64 52              R     illegal
5837 AF65 43              C     coma
5838 AF66 20 44            D    bra 44
5839 AF68 49              I     rola
5840 AF69 53              S     comb
5841 AF6A 50              P     negb
5842 AF6B 20 4E            N    bra 4e
5843 AF6D 00              .     test
5844 AF6E 46              F     rora
5845 AF6F 52              R     illegal
5846 AF70 45              E     illegal
5847 AF71 45              E     illegal
5848 AF72 20 56            V    bra 56
5849 AF74 4E              N     illegal
5850 AF75 44              D     lsra
5851 AF76 20 59            Y    bra 59
5852 AF78 00              .     test
5853 AF79 46              F     rora
5854 AF7A 52              R     illegal
5855 AF7B 45              E     illegal
5856 AF7C 45              E     illegal
5857 AF7D 20 56            V    bra 56
5858 AF7F 4E              N     illegal
5859 AF80 44              D     lsra
5860 AF81 20 4E            N    bra 4e
5861 AF83 00              .     test
5862 AF84 24 31           $1    bcc 31
5863 AF86 20 43            C    bra 43
5864 AF88 48              H     asla
5865 AF89 4E              N     illegal
5866 AF8A 47              G     asra
5867 AF8B 52              R     illegal
5868 AF8C 20 59            Y    bra 59
5869 AF8E 00              .     test
5870 AF8F 24 31           $1    bcc 31
5871 AF91 20 43            C    bra 43
5872 AF93 48              H     asla
5873 AF94 4E              N     illegal
5874 AF95 47              G     asra
5875 AF96 52              R     illegal
5876 AF97 20 4E            N    bra 4e
5877 AF99 00              .     test
5878 AF9A 43              C     coma
5879 AF9B 4C              L     inca
5880 AF9C 52              R     illegal
5881 AF9D 20 4D            M    bra 4d
5882 AF9F 49              I     rola
5883 AFA0 53              S     comb
5884 AFA1 20 20                 bra 20
5885 AFA3 59              Y     rolb
5886 AFA4 00              .     test
5887 AFA5 43              C     coma
5888 AFA6 4C              L     inca
5889 AFA7 52              R     illegal
5890 AFA8 20 4D            M    bra 4d
5891 AFAA 49              I     rola
5892 AFAB 53              S     comb
5893 AFAC 20 20                 bra 20
5894 AFAE 4E              N     illegal
5895 AFAF 00              .     test
5896 AFB0 48              H     asla
5897 AFB1 49              I     rola
5898 AFB2 54              T     lsrb
5899 AFB3 20 4B            K    bra 4b
5900 AFB5 45              E     illegal
5901 AFB6 59              Y     rolb
5902 AFB7 22 30           "0    bhi 30
5903 AFB9 22 00           ".    bhi 00
5904 AFBB 45              E     illegal
5905 AFBC 4E              N     illegal
5906 AFBD 54              T     lsrb
5907 AFBE 45              E     illegal
5908 AFBF 52              R     illegal
5909 AFC0 20 43            C    bra 43
5910 AFC2 4F              O     clra
5911 AFC3 44              D     lsra
5912 AFC4 45              E     illegal
5913 AFC5 00              .     test
5914 AFC6 53              S     comb
5915 AFC7 45              E     illegal
5916 AFC8 43              C     coma
5917 AFC9 55              U     illegal
5918 AFCA 52              R     illegal
5919 AFCB 45              E     illegal
5920 AFCC 20 4F            O    bra 4f
5921 AFCE 4E              N     illegal
5922 AFCF 20 00            .    bra 00
5923 AFD1 53              S     comb
5924 AFD2 45              E     illegal
5925 AFD3 43              C     coma
5926 AFD4 55              U     illegal
5927 AFD5 52              R     illegal
5928 AFD6 45              E     illegal
5929 AFD7 20 4F            O    bra 4f
5930 AFD9 46              F     rora
5931 AFDA 46              F     rora
5932 AFDB 00              .     test
5933 AFDC 2D 20           -     blt 20
5934 AFDE 53              S     comb
5935 AFDF 41              A     illegal
5936 AFE0 56              V     rorb
5937 AFE1 49              I     rola
5938 AFE2 4E              N     illegal
5939 AFE3 47              G     asra
5940 AFE4 20 2D            -    bra 2d
5941 AFE6 00              .     test
5942 AFE7 2D 50           -P    blt 50
5943 AFE9 52              R     illegal
5944 AFEA 49              I     rola
5945 AFEB 4E              N     illegal
5946 AFEC 54              T     lsrb
5947 AFED 49              I     rola
5948 AFEE 4E              N     illegal
5949 AFEF 47              G     asra
5950 AFF0 2D 00           -.    blt 00
5951
5952 AFF2 4F              O     clra
5953 AFF3 56              V     rorb
5954 AFF4 45              E     illegal
5955 AFF5 52              R     illegal
5956 AFF6 20 43            C    bra 43
5957 AFF8 52              R     illegal
5958 AFF9 4E              N     illegal
5959 AFFA 54              T     lsrb
5960 AFFB 3D              =     mul
5961 AFFC 00              .     test
5962
5963 AFFD 48              H     asla
5964 AFFE 4F              O     clra
5965 AFFF 4D              M     tsta
5966 B000 45              E     illegal
5967 B001 20 46            F    bra 46
5968 B003 41              A     illegal
5969 B004 49              I     rola
5970 B005 4C              L     inca
5971 B006 3D              =     mul
5972 B007 00              .     test
5973 B008 43              C     coma
5974 B009 48              H     asla
5975 B00A 4B              K     illegal
5976 B00B 20 50            P    bra 50
5977 B00D 52              R     illegal
5978 B00E 49              I     rola
5979 B00F 43              C     coma
5980 B010 45              E     illegal
5981 B011 53              S     comb
5982 B012 00              .     test
5983
5984 B013 48              H     asla
5985 B014 49              I     rola
5986 B015 54              T     lsrb
5987 B016 20 52            R    bra 52
5988 B018 45              E     illegal
5989 B019 53              S     comb
5990 B01A 45              E     illegal
5991 B01B 54              T     lsrb
5992 B01C 20 00            .    bra 00
5993
5994 B01E 43              C     coma
5995 B01F 4F              O     clra
5996 B020 49              I     rola
5997 B021 4E              N     illegal
5998 B022 20 20                 bra 20
5999 B024 20 4A            J    bra 4a
6000 B026 41              A     illegal
6001 B027 4D              M     tsta
6002 B028 00              .     test
6003
6004 B029 42              B     illegal
6005 B02A 41              A     illegal
6006 B02B 44              D     lsra
6007 B02C 20 53            S    bra 53
6008 B02E 45              E     illegal
6009 B02F 4E              N     illegal
6010 B030 53              S     comb
6011 B031 4F              O     clra
6012 B032 52              R     illegal
6013 B033 00              .     test
6014
6015 B034 43              C     coma
6016 B035 48              H     asla
6017 B036 47              G     asra
6018 B037 52              R     illegal
6019 B038 20 50            P    bra 50
6020 B03A 57              W     asrb
6021 B03B 52              R     illegal
6022 B03C 55              U     illegal
6023 B03D 50              P     negb
6024 B03E 00              .     test
6025
6026 B03F 4C              L     inca
6027 B040 49              I     rola
6028 B041 4E              N     illegal
6029 B042 4B              K     illegal
6030 B043 20 50            P    bra 50
6031 B045 57              W     asrb
6032 B046 52              R     illegal
6033 B047 55              U     illegal
6034 B048 50              P     negb
6035 B049 00              .     test
6036
6037 B04A 43              C     coma
6038 B04B 41              A     illegal
6039 B04C 52              R     illegal
6040 B04D 44              D     lsra
6041 B04E 20 50            P    bra 50
6042 B050 57              W     asrb
6043 B051 52              R     illegal
6044 B052 55              U     illegal
6045 B053 50              P     negb
6046 B054 00              .     test
6047
6048 B055 42              B     illegal
6049 B056 49              I     rola
6050 B057 4C              L     inca
6051 B058 4C              L     inca
6052 B059 20 45            E    bra 45
6053 B05B 52              R     illegal
6054 B05C 52              R     illegal
6055 B05D 4F              O     clra
6056 B05E 52              R     illegal
6057 B05F 00              .     test
6058
6059 B060 54              T     lsrb
6060 B061 55              U     illegal
6061 B062 42              B     illegal
6062 B063 45              E     illegal
6063 B064 20 45            E    bra 45
6064 B066 52              R     illegal
6065 B067 52              R     illegal
6066 B068 4F              O     clra
6067 B069 52              R     illegal
6068 B06A 00              .     test
6069 B06B 4E              N     illegal
6070 B06C 4F              O     clra
6071 B06D 20 20                 bra 20
6072 B06F 43              C     coma
6073 B070 48              H     asla
6074 B071 41              A     illegal
6075 B072 4E              N     illegal
6076 B073 47              G     asra
6077 B074 45              E     illegal
6078 B075 00              .     test
6079 B076 20 4E            N    bra 4e
6080 B078 4F              O     clra
6081 B079 20 46            F    bra 46
6082 B07B 49              I     rola
6083 B07C 56              V     rorb
6084 B07D 45              E     illegal
6085 B07E 53              S     comb
6086 B07F 20 00            .    bra 00
6087
6088 B081 4E              N     illegal
6089 B082 4F              O     clra
6090 B083 20 20                 bra 20
6091 B085 41              A     illegal
6092 B086 43              C     coma
6093 B087 43              C     coma
6094 B088 45              E     illegal
6095 B089 53              S     comb
6096 B08A 53              S     comb
6097 B08B 00              .     test
6098 B08C 4E              N     illegal
6099 B08D 4F              O     clra
6100 B08E 20 20                 bra 20
6101 B090 45              E     illegal
6102 B091 52              R     illegal
6103 B092 52              R     illegal
6104 B093 4F              O     clra
6105 B094 52              R     illegal
6106 B095 53              S     comb
6107 B096 00              .     test
6108 B097 54              T     lsrb
6109 B098 45              E     illegal
6110 B099 53              S     comb
6111 B09A 54              T     lsrb
6112 B09B 20 20                 bra 20
6113 B09D 56              V     rorb
6114 B09E 45              E     illegal
6115 B09F 4E              N     illegal
6116 B0A0 44              D     lsra
6117 B0A1 00              .     test
6118 B0A2 4D              M     tsta
6119 B0A3 54              T     lsrb
6120 B0A4 52              R     illegal
6121 B0A5 20 46            F    bra 46
6122 B0A7 55              U     illegal
6123 B0A8 4E              N     illegal
6124 B0A9 43              C     coma
6125 B0AA 54              T     lsrb
6126 B0AB 3F              ?     swi
6127 B0AC 00              .     test
6128 B0AD 50              P     negb
6129 B0AE 52              R     illegal
6130 B0AF 4F              O     clra
6131 B0B0 47              G     asra
6132 B0B1 52              R     illegal
6133 B0B2 41              A     illegal
6134 B0B3 4D              M     tsta
6135 B0B4 20 20                 bra 20
6136 B0B6 3F              ?     swi
6137 B0B7 00              .     test
6138 B0B8 53              S     comb
6139 B0B9 45              E     illegal
6140 B0BA 4C              L     inca
6141 B0BB 45              E     illegal
6142 B0BC 43              C     coma
6143 B0BD 54              T     lsrb
6144 B0BE 49              I     rola
6145 B0BF 4F              O     clra
6146 B0C0 4E              N     illegal
6147 B0C1 3F              ?     swi
6148 B0C2 00              .     test
6149
6150 B0C3 14 00           .     ;20
6151 B0C5 14 C8           .     ;20
6152 B0C7 05 00           ..    ;05
6153 B0C9 05 00           .     ;05
6154 B0CB 02 00           .     ;02
6155 B0CD 02 00           .     ;02
6156 B0CF 01 00           .     ;01
6157 B0D1 01 00           .     ;01
6158 B0D3 01 0C           .     ;01
6159 B0D5 17 22           .
6160 B0D7 2E 39           ".
6161
6162 B0D9 44              D     lsra
6163 B0DA 4F              O     clra
6164 B0DB 0B              .     sev
6165 B0DC 16              .     tab
6166 B0DD 21 2C           !,    brn 2c
6167 B0DF 38              8     pulx
6168 B0E0 43              C     coma
6169 B0E1 4E              N     illegal
6170 B0E2 59              Y     rolb
6171 B0E3 15              .     bclr
6172 B0E4 20 2B            +    bra 2b
6173 B0E6 36              6     psha
6174 B0E7 42              B     illegal
6175 B0E8 4D              M     tsta
6176 B0E9 58              X     aslb
6177 B0EA 63 1F           c.    com 1f,x
6178 B0EC 2A 35           *5    bpl 35
6179 B0EE 40              @     nega
6180 B0EF 4C              L     inca
6181 B0F0 57              W     asrb
6182 B0F1 62              b     illegal
6183 B0F2 09              .     dex
6184 B0F3 29 34           )4    bvs 34
6185 B0F5 3F              ?     swi
6186 B0F6 4A              J     deca
6187 B0F7 56              V     rorb
6188 B0F8 61              a     illegal
6189 B0F9 08              .     inx
6190 B0FA 13              .     brclr
6191 B0FB 33              3     pulb
6192 B0FC 3E              >     wai
6193 B0FD 49              I     rola
6194 B0FE 54              T     lsrb
6195 B0FF 60 07           `.    neg 07,x
6196 B101 12              .     brset
6197 B102 1D 3D 48        ...   bclr 3d,x, #48
6198 B105 53              S     comb
6199 B106 5E              ^     illegal
6200 B107 06              .     tap
6201 B108 11              .     cba
6202 B109 1C 27 47        ...   bset 27,x, #47    ; fixed by ./fixbset.pl - verify me
6203 B10C 52              R     illegal
6204 B10D 5D              ]     tstb
6205 B10E 04              .     lsrd
6206 B10F 10              .     sba
6207 B110 1B              .     aba
6208 B111 26 31           &1    bne 31
6209 B113 51              Q     illegal
6210 B114 5C              \     incb
6211 B115 03              .     fdiv
6212 B116 0E              .     cli
6213 B117 1A              .     illegal
6214 B118 25 30           %0    bcs 30
6215 B11A 3B              ;     rti
6216 B11B 5B              [     illegal
6217 B11C 02              .     idiv
6218 B11D 0D              .     sec
6219 B11E 18              .     illegal
6220 B11F 24 2F           $/    bcc 2f
6221 B121 3A              :     abx
6222 B122 45              E     illegal
6223
6224 table of powers of 2
6225
6226 B123 00 01 02 04 08
6227 B128 10 20 40 80
6228
6229 B12C 00
6230 B12D 00              .     test
6231 B12E 2A 2A           **    bpl 2a       ;"**ERROR***"
6232 B130 45              E     illegal
6233 B131 52              R     illegal
6234 B132 52              R     illegal
6235 B133 4F              O     clra
6236 B134 52              R     illegal
6237 B135 2A 2A           **    bpl 2a
6238 B137 2A 00           *.    bpl 00
6239
6240 B139 2A 2A           **    bpl 2a
6241 B13B 2A 2A           **    bpl 2a
6242 B13D 2A 2A           **    bpl 2a
6243 B13F 2A 2A           **    bpl 2a
6244 B141 2A 2A           **    bpl 2a
6245 B143 00              .     test
6246 B144 4F              O     clra
6247 B145 4F              O     clra
6248 B146 4F              O     clra
6249 B147 4F              O     clra
6250 B148 4F              O     clra
6251 B149 4F              O     clra
6252 B14A 4F              O     clra
6253 B14B 4F              O     clra
6254 B14C 4F              O     clra
6255 B14D 4F              O     clra
6256 B14E 00              .     test
6257 B14F 52              R     illegal
6258 B150 41              A     illegal
6259 B151 4D              M     tsta
6260 B152 20 20                 bra 20
6261 B154 20 46            F    bra 46
6262 B156 41              A     illegal
6263 B157 49              I     rola
6264 B158 4C              L     inca
6265 B159 00              .     test
6266 B15A 50              P     negb
6267 B15B 32              2     pula
6268 B15C 20 20                 bra 20
6269 B15E 20 20                 bra 20
6270 B160 46              F     rora
6271 B161 41              A     illegal
6272 B162 49              I     rola
6273 B163 4C              L     inca
6274 B164 00              .     test
6275 B165 50              P     negb
6276 B166 32              2     pula
6277 B167 2D 50           -P    blt 50
6278 B169 33              3     pulb
6279 B16A 20 46            F    bra 46
6280 B16C 41              A     illegal
6281 B16D 49              I     rola
6282 B16E 4C              L     inca
6283 B16F 00              .     test
6284 B170 50              P     negb
6285 B171 32              2     pula
6286 B172 2D 50           -P    blt 50
6287 B174 38              8     pulx
6288 B175 20 46            F    bra 46
6289 B177 41              A     illegal
6290 B178 49              I     rola
6291 B179 4C              L     inca
6292 B17A 00              .     test
6293 B17B 50              P     negb
6294 B17C 32              2     pula
6295 B17D 2D 50           -P    blt 50
6296 B17F 39              9     rts
6297
6298 B180 20 46            F    bra 46
6299 B182 41              A     illegal
6300 B183 49              I     rola
6301 B184 4C              L     inca
6302 B185 00              .     test
6303 B186 50              P     negb
6304 B187 33              3     pulb
6305 B188 2D 50           -P    blt 50
6306 B18A 34              4     des
6307 B18B 20 46            F    bra 46
6308 B18D 41              A     illegal
6309 B18E 49              I     rola
6310 B18F 4C              L     inca
6311 B190 00              .     test
6312 B191 50              P     negb
6313 B192 35              5     txs
6314 B193 20 20                 bra 20
6315 B195 20 20                 bra 20
6316 B197 46              F     rora
6317 B198 41              A     illegal
6318 B199 49              I     rola
6319 B19A 4C              L     inca
6320 B19B 00              .     test
6321 B19C 50              P     negb
6322 B19D 35              5     txs
6323 B19E 2D 50           -P    blt 50
6324 B1A0 37              7     pshb
6325 B1A1 20 46            F    bra 46
6326 B1A3 41              A     illegal
6327 B1A4 49              I     rola
6328 B1A5 4C              L     inca
6329 B1A6 00              .     test
6330 B1A7 50              P     negb
6331 B1A8 37              7     pshb
6332 B1A9 20 20                 bra 20
6333 B1AB 20 20                 bra 20
6334 B1AD 46              F     rora
6335 B1AE 41              A     illegal
6336 B1AF 49              I     rola
6337 B1B0 4C              L     inca
6338 B1B1 00              .     test
6339 B1B2 50              P     negb
6340 B1B3 37              7     pshb
6341 B1B4 2D 50           -P    blt 50
6342 B1B6 38              8     pulx
6343 B1B7 20 46            F    bra 46
6344 B1B9 41              A     illegal
6345 B1BA 49              I     rola
6346 B1BB 4C              L     inca
6347 B1BC 00              .     test
6348 B1BD 2D 20           -     blt 20
6349 B1BF 50              P     negb
6350 B1C0 41              A     illegal
6351 B1C1 53              S     comb
6352 B1C2 53              S     comb
6353 B1C3 45              E     illegal
6354 B1C4 44              D     lsra
6355 B1C5 20 2D            -    bra 2d
6356 B1C7 00              .     test
6357 B1C8 09              .     dex
6358 B1C9 12              .     brset
6359 B1CA 1B              .     aba
6360 B1CB 24 2C           $,    bcc 2c
6361 B1CD 35              5     txs
6362 B1CE 3E              >     wai
6363 B1CF 47              G     asra
6364 B1D0 54              T     lsrb
6365 B1D1 48              H     asla
6366 B1D2 41              A     illegal
6367 B1D3 4E              N     illegal
6368 B1D4 4B              K     illegal
6369 B1D5 20 59            Y    bra 59
6370 B1D7 4F              O     clra
6371 B1D8 55              U     illegal
6372 B1D9 20 46            F    bra 46
6373 B1DB 4F              O     clra
6374 B1DC 52              R     illegal
6375 B1DD 20 59            Y    bra 59
6376 B1DF 4F              O     clra
6377 B1E0 55              U     illegal
6378 B1E1 52              R     illegal
6379 B1E2 20 50            P    bra 50
6380 B1E4 41              A     illegal
6381 B1E5 54              T     lsrb
6382 B1E6 52              R     illegal
6383 B1E7 4F              O     clra
6384 B1E8 4E              N     illegal
6385 B1E9 41              A     illegal
6386 B1EA 47              G     asra
6387 B1EB 45              E     illegal
6388 B1EC 20 20                 bra 20
6389 B1EE 00              .     test
6390
6391 B1EF 20 52            R    bra 52
6392 B1F1 4F              O     clra
6393 B1F2 57              W     asrb
6394 B1F3 45              E     illegal
6395 B1F4 20 49            I    bra 49
6396 B1F6 4E              N     illegal
6397 B1F7 54              T     lsrb
6398 B1F8 20 00            .    bra 00
6399
6400 B1FA 43              C     coma
6401 B1FB 4F              O     clra
6402 B1FC 50              P     negb
6403 B1FD 59              Y     rolb
6404 B1FE 52              R     illegal
6405 B1FF 49              I     rola
6406 B200 47              G     asra
6407 B201 48              H     asla
6408 B202 54              T     lsrb
6409 B203 20 00            .    bra 00
6410
6411 B205 20 20                 bra 20
6412 B207 20 31            1    bra 31
6413 B209 39              9     rts
6414 B20A 39              9     rts
6415 B20B 33              3     pulb
6416 B20C 20 20                 bra 20
6417 B20E 20 00            .    bra 00
6418
6419 B210 35              5     txs
6420 B211 39              9     rts
6421 B212 30              0     tsx
6422 B213 30              0     tsx
6423 B214 20 56            V    bra 56
6424 B216 45              E     illegal
6425 B217 52              R     illegal
6426 B218 20 35            5    bra 35
6427 B21A 00              .     test
6428
6429 B21B 20 20                 bra 20
6430 B21D 20 20                 bra 20
6431 B21F 20 20                 bra 20
6432 B221 20 20                 bra 20
6433 B223 20 52            R    bra 52
6434 B225 4F              O     clra
6435 B226 57              W     asrb
6436 B227 45              E     illegal
6437 B228 20 20                 bra 20
6438 B22A 49              I     rola
6439 B22B 4E              N     illegal
6440 B22C 54              T     lsrb
6441 B22D 45              E     illegal
6442 B22E 52              R     illegal
6443 B22F 4E              N     illegal
6444 B230 41              A     illegal
6445 B231 54              T     lsrb
6446 B232 49              I     rola
6447 B233 4F              O     clra
6448 B234 4E              N     illegal
6449 B235 41              A     illegal
6450 B236 4C              L     inca
6451 B237 00              .     test
6452 B238 20 20                 bra 20
6453 B23A 20 20                 bra 20
6454 B23C 20 20                 bra 20
6455 B23E 20 20                 bra 20
6456 B240 2D 2D           --    blt 2d
6457 B242 2D 2D           --    blt 2d
6458 B244 2D 2D           --    blt 2d
6459 B246 2D 2D           --    blt 2d
6460 B248 2D 2D           --    blt 2d
6461 B24A 2D 2D           --    blt 2d
6462 B24C 2D 2D           --    blt 2d
6463 B24E 2D 2D           --    blt 2d
6464 B250 2D 2D           --    blt 2d
6465 B252 2D 2D           --    blt 2d
6466 B254 2D 00           -.    blt 00
6467 B256 20 20                 bra 20
6468 B258 20 20                 bra 20
6469 B25A 20 20                 bra 20
6470 B25C 20 20                 bra 20
6471 B25E 35              5     txs
6472 B25F 39              9     rts
6473 B260 30              0     tsx
6474 B261 30              0     tsx
6475 B262 20 53            S    bra 53
6476 B264 4F              O     clra
6477 B265 46              F     rora
6478 B266 54              T     lsrb
6479 B267 57              W     asrb
6480 B268 41              A     illegal
6481 B269 52              R     illegal
6482 B26A 45              E     illegal
6483 B26B 20 56            V    bra 56
6484 B26D 45              E     illegal
6485 B26E 52              R     illegal
6486 B26F 2E 20           .     bgt 20
6487 B271 35              5     txs
6488 B272 20 20                 bra 20
6489 B274 00              .     test
6490 B275 20 20                 bra 20
6491 B277 20 20                 bra 20
6492 B279 20 20                 bra 20
6493 B27B 20 20                 bra 20
6494 B27D 20 20                 bra 20
6495 B27F 20 41            A    bra 41
6496 B281 43              C     coma
6497 B282 43              C     coma
6498 B283 4F              O     clra
6499 B284 55              U     illegal
6500 B285 4E              N     illegal
6501 B286 54              T     lsrb
6502 B287 20 20                 bra 20
6503 B289 52              R     illegal
6504 B28A 45              E     illegal
6505 B28B 43              C     coma
6506 B28C 4F              O     clra
6507 B28D 52              R     illegal
6508 B28E 44              D     lsra
6509 B28F 00              .     test
6510 B290 53              S     comb
6511 B291 45              E     illegal
6512 B292 52              R     illegal
6513 B293 49              I     rola
6514 B294 41              A     illegal
6515 B295 4C              L     inca
6516 B296 20 20                 bra 20
6517 B298 23 20           #     bls 20
6518 B29A 20 20                 bra 20
6519 B29C 20 20                 bra 20
6520 B29E 20 2D            -    bra 2d
6521 B2A0 20 00            .    bra 00
6522 B2A2 4D              M     tsta
6523 B2A3 41              A     illegal
6524 B2A4 43              C     coma
6525 B2A5 48              H     asla
6526 B2A6 49              I     rola
6527 B2A7 4E              N     illegal
6528 B2A8 45              E     illegal
6529 B2A9 20 49            I    bra 49
6530 B2AB 44              D     lsra
6531 B2AC 20 20                 bra 20
6532 B2AE 20 20                 bra 20
6533 B2B0 20 2D            -    bra 2d
6534 B2B2 20 00            .    bra 00
6535 B2B4 41              A     illegal
6536 B2B5 55              U     illegal
6537 B2B6 44              D     lsra
6538 B2B7 49              I     rola
6539 B2B8 54              T     lsrb
6540 B2B9 20 4E            N    bra 4e
6541 B2BB 55              U     illegal
6542 B2BC 4D              M     tsta
6543 B2BD 42              B     illegal
6544 B2BE 45              E     illegal
6545 B2BF 52              R     illegal
6546 B2C0 20 20                 bra 20
6547 B2C2 20 20                 bra 20
6548 B2C4 20 00            .    bra 00
6549 B2C6 53              S     comb
6550 B2C7 41              A     illegal
6551 B2C8 4C              L     inca
6552 B2C9 45              E     illegal
6553 B2CA 53              S     comb
6554 B2CB 20 20                 bra 20
6555 B2CD 28 52           (R    bvc 52
6556 B2CF 29 20           )     bvs 20
6557 B2D1 20 20                 bra 20
6558 B2D3 20 20                 bra 20
6559 B2D5 2D 20           -     blt 20
6560 B2D7 00              .     test
6561 B2D8 53              S     comb
6562 B2D9 41              A     illegal
6563 B2DA 4C              L     inca
6564 B2DB 45              E     illegal
6565 B2DC 53              S     comb
6566 B2DD 20 20                 bra 20
6567 B2DF 28 4E           (N    bvc 4e
6568 B2E1 29 20           )     bvs 20
6569 B2E3 20 20                 bra 20
6570 B2E5 20 20                 bra 20
6571 B2E7 2D 20           -     blt 20
6572 B2E9 00              .     test
6573 B2EA 42              B     illegal
6574 B2EB 41              A     illegal
6575 B2EC 47              G     asra
6576 B2ED 20 54            T    bra 54
6577 B2EF 4F              O     clra
6578 B2F0 54              T     lsrb
6579 B2F1 41              A     illegal
6580 B2F2 4C              L     inca
6581 B2F3 20 20                 bra 20
6582 B2F5 20 20                 bra 20
6583 B2F7 20 20                 bra 20
6584 B2F9 2D 20           -     blt 20
6585 B2FB 00              .     test
6586 B2FC 43              C     coma
6587 B2FD 41              A     illegal
6588 B2FE 53              S     comb
6589 B2FF 48              H     asla
6590 B300 20 42            B    bra 42
6591 B302 4F              O     clra
6592 B303 58              X     aslb
6593 B304 20 20                 bra 20
6594 B306 20 20                 bra 20
6595 B308 20 20                 bra 20
6596 B30A 20 2D            -    bra 2d
6597 B30C 20 00            .    bra 00
6598 B30E 43              C     coma
6599 B30F 41              A     illegal
6600 B310 52              R     illegal
6601 B311 44              D     lsra
6602 B312 20 53            S    bra 53
6603 B314 41              A     illegal
6604 B315 4C              L     inca
6605 B316 45              E     illegal
6606 B317 53              S     comb
6607 B318 20 20                 bra 20
6608 B31A 20 20                 bra 20
6609 B31C 20 2D            -    bra 2d
6610 B31E 20 00            .    bra 00
6611 B320 42              B     illegal
6612 B321 49              I     rola
6613 B322 4C              L     inca
6614 B323 4C              L     inca
6615 B324 53              S     comb
6616 B325 20 49            I    bra 49
6617 B327 4E              N     illegal
6618 B328 20 53            S    bra 53
6619 B32A 54              T     lsrb
6620 B32B 41              A     illegal
6621 B32C 43              C     coma
6622 B32D 4B              K     illegal
6623 B32E 45              E     illegal
6624 B32F 52              R     illegal
6625 B330 00              .     test
6626 B331 20 20                 bra 20
6627 B333 20 20                 bra 20
6628 B335 42              B     illegal
6629 B336 49              I     rola
6630 B337 4C              L     inca
6631 B338 4C              L     inca
6632 B339 20 54            T    bra 54
6633 B33B 4F              O     clra
6634 B33C 54              T     lsrb
6635 B33D 41              A     illegal
6636 B33E 4C              L     inca
6637 B33F 20 2D            -    bra 2d
6638 B341 20 20                 bra 20
6639 B343 20 20                 bra 20
6640 B345 20 20                 bra 20
6641 B347 20 20                 bra 20
6642 B349 00              .     test
6643 B34A 20 20                 bra 20
6644 B34C 20 20                 bra 20
6645 B34E 4F              O     clra
6646 B34F 4E              N     illegal
6647 B350 45              E     illegal
6648 B351 53              S     comb
6649 B352 20 20                 bra 20
6650 B354 20 20                 bra 20
6651 B356 20 20                 bra 20
6652 B358 20 2D            -    bra 2d
6653 B35A 20 00            .    bra 00
6654 B35C 20 20                 bra 20
6655 B35E 20 20                 bra 20
6656 B360 54              T     lsrb
6657 B361 57              W     asrb
6658 B362 4F              O     clra
6659 B363 53              S     comb
6660 B364 20 20                 bra 20
6661 B366 20 20                 bra 20
6662 B368 20 20                 bra 20
6663 B36A 20 2D            -    bra 2d
6664 B36C 20 00            .    bra 00
6665 B36E 20 20                 bra 20
6666 B370 20 20                 bra 20
6667 B372 46              F     rora
6668 B373 49              I     rola
6669 B374 56              V     rorb
6670 B375 45              E     illegal
6671 B376 53              S     comb
6672 B377 20 20                 bra 20
6673 B379 20 20                 bra 20
6674 B37B 20 20                 bra 20
6675 B37D 2D 20           -     blt 20
6676 B37F 00              .     test
6677 B380 20 20                 bra 20
6678 B382 20 20                 bra 20
6679 B384 54              T     lsrb
6680 B385 45              E     illegal
6681 B386 4E              N     illegal
6682 B387 53              S     comb
6683 B388 20 20                 bra 20
6684 B38A 20 20                 bra 20
6685 B38C 20 20                 bra 20
6686 B38E 20 2D            -    bra 2d
6687 B390 20 00            .    bra 00
6688 B392 20 20                 bra 20
6689 B394 20 20                 bra 20
6690 B396 54              T     lsrb
6691 B397 57              W     asrb
6692 B398 45              E     illegal
6693 B399 4E              N     illegal
6694 B39A 54              T     lsrb
6695 B39B 49              I     rola
6696 B39C 45              E     illegal
6697 B39D 53              S     comb
6698 B39E 20 20                 bra 20
6699 B3A0 20 2D            -    bra 2d
6700 B3A2 20 00            .    bra 00
6701 B3A4 43              C     coma
6702 B3A5 4F              O     clra
6703 B3A6 49              I     rola
6704 B3A7 4E              N     illegal
6705 B3A8 53              S     comb
6706 B3A9 20 49            I    bra 49
6707 B3AB 4E              N     illegal
6708 B3AC 20 54            T    bra 54
6709 B3AE 55              U     illegal
6710 B3AF 42              B     illegal
6711 B3B0 45              E     illegal
6712 B3B1 53              S     comb
6713 B3B2 00              .     test
6714 B3B3 20 20                 bra 20
6715 B3B5 20 20                 bra 20
6716 B3B7 54              T     lsrb
6717 B3B8 55              U     illegal
6718 B3B9 42              B     illegal
6719 B3BA 45              E     illegal
6720 B3BB 20 54            T    bra 54
6721 B3BD 4F              O     clra
6722 B3BE 54              T     lsrb
6723 B3BF 41              A     illegal
6724 B3C0 4C              L     inca
6725 B3C1 20 2D            -    bra 2d
6726 B3C3 20 20                 bra 20
6727 B3C5 20 20                 bra 20
6728 B3C7 20 20                 bra 20
6729 B3C9 00              .     test
6730 B3CA 20 20                 bra 20
6731 B3CC 20 20                 bra 20
6732 B3CE 24 31           $1    bcc 31
6733 B3D0 20 43            C    bra 43
6734 B3D2 4F              O     clra
6735 B3D3 49              I     rola
6736 B3D4 4E              N     illegal
6737 B3D5 20 20                 bra 20
6738 B3D7 20 20                 bra 20
6739 B3D9 2D 20           -     blt 20
6740 B3DB 00              .     test
6741 B3DC 20 20                 bra 20
6742 B3DE 20 20                 bra 20
6743 B3E0 51              Q     illegal
6744 B3E1 55              U     illegal
6745 B3E2 41              A     illegal
6746 B3E3 52              R     illegal
6747 B3E4 54              T     lsrb
6748 B3E5 45              E     illegal
6749 B3E6 52              R     illegal
6750 B3E7 53              S     comb
6751 B3E8 20 20                 bra 20
6752 B3EA 20 2D            -    bra 2d
6753 B3EC 20 00            .    bra 00
6754 B3EE 20 20                 bra 20
6755 B3F0 20 20                 bra 20
6756 B3F2 44              D     lsra
6757 B3F3 49              I     rola
6758 B3F4 4D              M     tsta
6759 B3F5 45              E     illegal
6760 B3F6 53              S     comb
6761 B3F7 20 20                 bra 20
6762 B3F9 20 20                 bra 20
6763 B3FB 20 20                 bra 20
6764 B3FD 2D 20           -     blt 20
6765 B3FF 00              .     test
6766 B400 20 20                 bra 20
6767 B402 20 20                 bra 20
6768 B404 4E              N     illegal
6769 B405 49              I     rola
6770 B406 43              C     coma
6771 B407 4B              K     illegal
6772 B408 45              E     illegal
6773 B409 4C              L     inca
6774 B40A 53              S     comb
6775 B40B 20 20                 bra 20
6776 B40D 20 20                 bra 20
6777 B40F 2D 20           -     blt 20
6778 B411 00              .     test
6779 B412 57              W     asrb
6780 B413 49              I     rola
6781 B414 4E              N     illegal
6782 B415 2D 53           -S    blt 53
6783 B417 4E              N     illegal
6784 B418 4B              K     illegal
6785 B419 20 56            V    bra 56
6786 B41B 45              E     illegal
6787 B41C 4E              N     illegal
6788 B41D 44              D     lsra
6789 B41E 53              S     comb
6790 B41F 20 20                 bra 20
6791 B421 2D 20           -     blt 20
6792 B423 00              .     test
6793 B424 53              S     comb
6794 B425 48              H     asla
6795 B426 4F              O     clra
6796 B427 50              P     negb
6797 B428 50              P     negb
6798 B429 45              E     illegal
6799 B42A 52              R     illegal
6800 B42B 20 56            V    bra 56
6801 B42D 45              E     illegal
6802 B42E 4E              N     illegal
6803 B42F 44              D     lsra
6804 B430 53              S     comb
6805 B431 20 20                 bra 20
6806 B433 2D 20           -     blt 20
6807 B435 00              .     test
6808 B436 50              P     negb
6809 B437 52              R     illegal
6810 B438 4F              O     clra
6811 B439 4D              M     tsta
6812 B43A 4F              O     clra
6813 B43B 20 56            V    bra 56
6814 B43D 45              E     illegal
6815 B43E 4E              N     illegal
6816 B43F 44              D     lsra
6817 B440 53              S     comb
6818 B441 20 20                 bra 20
6819 B443 20 20                 bra 20
6820 B445 2D 20           -     blt 20
6821 B447 00              .     test
6822 B448 46              F     rora
6823 B449 52              R     illegal
6824 B44A 45              E     illegal
6825 B44B 45              E     illegal
6826 B44C 20 20                 bra 20
6827 B44E 56              V     rorb
6828 B44F 45              E     illegal
6829 B450 4E              N     illegal
6830 B451 44              D     lsra
6831 B452 53              S     comb
6832 B453 20 20                 bra 20
6833 B455 20 20                 bra 20
6834 B457 2D 20           -     blt 20
6835 B459 00              .     test
6836 B45A 56              V     rorb
6837 B45B 45              E     illegal
6838 B45C 4E              N     illegal
6839 B45D 44              D     lsra
6840 B45E 53              S     comb
6841 B45F 20 50            P    bra 50
6842 B461 45              E     illegal
6843 B462 52              R     illegal
6844 B463 20 50            P    bra 50
6845 B465 52              R     illegal
6846 B466 4F              O     clra
6847 B467 44              D     lsra
6848 B468 55              U     illegal
6849 B469 43              C     coma
6850 B46A 54              T     lsrb
6851 B46B 20 43            C    bra 43
6852 B46D 4F              O     clra
6853 B46E 44              D     lsra
6854 B46F 45              E     illegal
6855 B470 00              .     test
6856
6857 B471 20 20                 bra 20
6858 B473 20 20                 bra 20
6859 B475 43              C     coma
6860 B476 4F              O     clra
6861 B477 44              D     lsra
6862 B478 45              E     illegal
6863 B479 20 00            .    bra 00
6864 B47B 56              V     rorb
6865 B47C 45              E     illegal
6866 B47D 4E              N     illegal
6867 B47E 44              D     lsra
6868 B47F 53              S     comb
6869 B480 20 2D            -    bra 2d
6870 B482 20 00            .    bra 00
6871 B484 56              V     rorb
6872 B485 45              E     illegal
6873 B486 4E              N     illegal
6874 B487 44              D     lsra
6875 B488 53              S     comb
6876 B489 2F 43           /C    ble 43
6877 B48B 4F              O     clra
6878 B48C 44              D     lsra
6879 B48D 45              E     illegal
6880 B48E 00              .     test
6881 B48F 41              A     illegal
6882 B490 42              B     illegal
6883 B491 43              C     coma
6884 B492 44              D     lsra
6885 B493 45              E     illegal
6886 B494 46              F     rora
6887 B495 47              G     asra
6888 B496 48              H     asla
6889 B497 49              I     rola
6890 B498 4A              J     deca
6891 B499 4B              K     illegal
6892 B49A 4C              L     inca
6893 B49B 4D              M     tsta
6894 B49C 4E              N     illegal
6895 B49D 4F              O     clra
6896 B49E 50              P     negb
6897 B49F 51              Q     illegal
6898 B4A0 52              R     illegal
6899 B4A1 53              S     comb
6900 B4A2 54              T     lsrb
6901 B4A3 55              U     illegal
6902 B4A4 56              V     rorb
6903 B4A5 57              W     asrb
6904 B4A6 58              X     aslb
6905 B4A7 59              Y     rolb
6906 B4A8 5A              Z     decb
6907 B4A9 30              0     tsx
6908 B4AA 31              1     ins
6909 B4AB 32              2     pula
6910 B4AC 33              3     pulb
6911 B4AD 34              4     des
6912 B4AE 35              5     txs
6913 B4AF 36              6     psha
6914 B4B0 37              7     pshb
6915 B4B1 38              8     pulx
6916 B4B2 39              9     rts
6917 B4B3 24 2A           $*    bcc 2a
6918 B4B5 20 00            .    bra 00
6919 B4B7 01              .     nop
6920 B4B8 02              .     idiv
6921 B4B9 04              .     lsrd
6922 B4BA 08              .     inx
6923 B4BB 10              .     sba
6924 B4BC 20 40            @    bra 40
6925 B4BE 80 FF           ..    suba #ff
6926 B4C0 FF FF FF        ...   stx ffff
6927 B4C3 FF FF FF        ...   stx ffff
6928 B4C6 FF FF FF        ...   stx ffff
6929 B4C9 FF FF FF        ...   stx ffff
6930 B4CC FF FF FF        ...   stx ffff
6931 B4CF FF FF FF        ...   stx ffff
6932 B4D2 FF FF FF        ...   stx ffff
6933 B4D5 FF FF FF        ...   stx ffff
6934 B4D8 FF FF FF        ...   stx ffff
6935 B4DB FF FF FF        ...   stx ffff
6936 B4DE FF FF FF        ...   stx ffff
6937 B4E1 FF FF FF        ...   stx ffff
6938 B4E4 FF FF FF        ...   stx ffff
6939 B4E7 FF FF FF        ...   stx ffff
6940 B4EA FF FF FF        ...   stx ffff
6941 B4ED FF FF FF        ...   stx ffff
6942 B4F0 FF FF FF        ...   stx ffff
6943 B4F3 FF FF FF        ...   stx ffff
6944 B4F6 FF FF FF        ...   stx ffff
6945 B4F9 FF FF FF        ...   stx ffff
6946 B4FC FF FF FF        ...   stx ffff
6947 B4FF FF FF FF        ...   stx ffff
6948 B502 FF FF FF        ...   stx ffff
6949 B505 FF FF FF        ...   stx ffff
6950 B508 FF FF FF        ...   stx ffff
6951 B50B FF FF FF        ...   stx ffff
6952 B50E FF FF FF        ...   stx ffff
6953 B511 FF FF FF        ...   stx ffff
6954 B514 FF FF FF        ...   stx ffff
6955 B517 FF FF FF        ...   stx ffff
6956 B51A FF FF FF        ...   stx ffff
6957 B51D FF FF FF        ...   stx ffff
6958 B520 FF FF FF        ...   stx ffff
6959 B523 FF FF FF        ...   stx ffff
6960 B526 FF FF FF        ...   stx ffff
6961 B529 FF FF FF        ...   stx ffff
6962 B52C FF FF FF        ...   stx ffff
6963 B52F FF FF FF        ...   stx ffff
6964 B532 FF FF FF        ...   stx ffff
6965 B535 FF FF FF        ...   stx ffff
6966 B538 FF FF FF        ...   stx ffff
6967 B53B FF FF FF        ...   stx ffff
6968 B53E FF FF FF        ...   stx ffff
6969 B541 FF FF FF        ...   stx ffff
6970 B544 FF FF FF        ...   stx ffff
6971 B547 FF FF FF        ...   stx ffff
6972 B54A FF FF FF        ...   stx ffff
6973 B54D FF FF FF        ...   stx ffff
6974 B550 FF FF FF        ...   stx ffff
6975 B553 FF FF FF        ...   stx ffff
6976 B556 FF FF FF        ...   stx ffff
6977 B559 FF FF FF        ...   stx ffff
6978 B55C FF FF FF        ...   stx ffff
6979 B55F FF FF FF        ...   stx ffff
6980 B562 FF FF FF        ...   stx ffff
6981 B565 FF FF FF        ...   stx ffff
6982 B568 FF FF FF        ...   stx ffff
6983 B56B FF FF FF        ...   stx ffff
6984 B56E FF FF FF        ...   stx ffff
6985 B571 FF FF FF        ...   stx ffff
6986 B574 FF FF FF        ...   stx ffff
6987 B577 FF FF FF        ...   stx ffff
6988 B57A FF FF FF        ...   stx ffff
6989 B57D FF FF FF        ...   stx ffff
6990 B580 FF FF FF        ...   stx ffff
6991 B583 FF FF FF        ...   stx ffff
6992 B586 FF FF FF        ...   stx ffff
6993 B589 FF FF FF        ...   stx ffff
6994 B58C FF FF FF        ...   stx ffff
6995 B58F FF FF FF        ...   stx ffff
6996 B592 FF FF FF        ...   stx ffff
6997 B595 FF FF FF        ...   stx ffff
6998 B598 FF FF FF        ...   stx ffff
6999 B59B FF FF FF        ...   stx ffff
7000 B59E FF FF FF        ...   stx ffff
7001 B5A1 FF FF FF        ...   stx ffff
7002 B5A4 FF FF FF        ...   stx ffff
7003 B5A7 FF FF FF        ...   stx ffff
7004 B5AA FF FF FF        ...   stx ffff
7005 B5AD FF FF FF        ...   stx ffff
7006 B5B0 FF FF FF        ...   stx ffff
7007 B5B3 FF FF FF        ...   stx ffff
7008 B5B6 FF FF FF        ...   stx ffff
7009 B5B9 FF FF FF        ...   stx ffff
7010 B5BC FF FF FF        ...   stx ffff
7011 B5BF FF FF FF        ...   stx ffff
7012 B5C2 FF FF FF        ...   stx ffff
7013 B5C5 FF FF FF        ...   stx ffff
7014 B5C8 FF FF FF        ...   stx ffff
7015 B5CB FF FF FF        ...   stx ffff
7016 B5CE FF FF FF        ...   stx ffff
7017 B5D1 FF FF FF        ...   stx ffff
7018 B5D4 FF FF FF        ...   stx ffff
7019 B5D7 FF FF FF        ...   stx ffff
7020 B5DA FF FF FF        ...   stx ffff
7021 B5DD FF FF FF        ...   stx ffff
7022 B5E0 FF FF FF        ...   stx ffff
7023 B5E3 FF FF FF        ...   stx ffff
7024 B5E6 FF FF FF        ...   stx ffff
7025 B5E9 FF FF FF        ...   stx ffff
7026 B5EC FF FF FF        ...   stx ffff
7027 B5EF FF FF FF        ...   stx ffff
7028 B5F2 FF FF FF        ...   stx ffff
7029 B5F5 FF FF FF        ...   stx ffff
7030 B5F8 FF FF FF        ...   stx ffff
7031 B5FB FF FF FF        ...   stx ffff
7032 B5FE FF FF FF        ...   stx ffff
7033 B601 FF FF FF        ...   stx ffff
7034 B604 FF FF FF        ...   stx ffff
7035 B607 FF FF FF        ...   stx ffff
7036 B60A FF FF FF        ...   stx ffff
7037 B60D FF FF FF        ...   stx ffff
7038 B610 FF FF FF        ...   stx ffff
7039 B613 FF FF FF        ...   stx ffff
7040 B616 FF FF FF        ...   stx ffff
7041 B619 FF FF FF        ...   stx ffff
7042 B61C FF FF FF        ...   stx ffff
7043 B61F FF FF FF        ...   stx ffff
7044 B622 FF FF FF        ...   stx ffff
7045 B625 FF FF FF        ...   stx ffff
7046 B628 FF FF FF        ...   stx ffff
7047 B62B FF FF FF        ...   stx ffff
7048 B62E FF FF FF        ...   stx ffff
7049 B631 FF FF FF        ...   stx ffff
7050 B634 FF FF FF        ...   stx ffff
7051 B637 FF FF FF        ...   stx ffff
7052 B63A FF FF FF        ...   stx ffff
7053 B63D FF FF FF        ...   stx ffff
7054 B640 FF FF FF        ...   stx ffff
7055 B643 FF FF FF        ...   stx ffff
7056 B646 FF FF FF        ...   stx ffff
7057 B649 FF FF FF        ...   stx ffff
7058 B64C FF FF FF        ...   stx ffff
7059 B64F FF FF FF        ...   stx ffff
7060 B652 FF FF FF        ...   stx ffff
7061 B655 FF FF FF        ...   stx ffff
7062 B658 FF FF FF        ...   stx ffff
7063 B65B FF FF FF        ...   stx ffff
7064 B65E FF FF FF        ...   stx ffff
7065 B661 FF FF FF        ...   stx ffff
7066 B664 FF FF FF        ...   stx ffff
7067 B667 FF FF FF        ...   stx ffff
7068 B66A FF FF FF        ...   stx ffff
7069 B66D FF FF FF        ...   stx ffff
7070 B670 FF FF FF        ...   stx ffff
7071 B673 FF FF FF        ...   stx ffff
7072 B676 FF FF FF        ...   stx ffff
7073 B679 FF FF FF        ...   stx ffff
7074 B67C FF FF FF        ...   stx ffff
7075 B67F FF FF FF        ...   stx ffff
7076 B682 FF FF FF        ...   stx ffff
7077 B685 FF FF FF        ...   stx ffff
7078 B688 FF FF FF        ...   stx ffff
7079 B68B FF FF FF        ...   stx ffff
7080 B68E FF FF FF        ...   stx ffff
7081 B691 FF FF FF        ...   stx ffff
7082 B694 FF FF FF        ...   stx ffff
7083 B697 FF FF FF        ...   stx ffff
7084 B69A FF FF FF        ...   stx ffff
7085 B69D FF FF FF        ...   stx ffff
7086 B6A0 FF FF FF        ...   stx ffff
7087 B6A3 FF FF FF        ...   stx ffff
7088 B6A6 FF FF FF        ...   stx ffff
7089 B6A9 FF FF FF        ...   stx ffff
7090 B6AC FF FF FF        ...   stx ffff
7091 B6AF FF FF FF        ...   stx ffff
7092 B6B2 FF FF FF        ...   stx ffff
7093 B6B5 FF FF FF        ...   stx ffff
7094 B6B8 FF FF FF        ...   stx ffff
7095 B6BB FF FF FF        ...   stx ffff
7096 B6BE FF FF FF        ...   stx ffff
7097 B6C1 FF FF FF        ...   stx ffff
7098 B6C4 FF FF FF        ...   stx ffff
7099 B6C7 FF FF FF        ...   stx ffff
7100 B6CA FF FF FF        ...   stx ffff
7101 B6CD FF FF FF        ...   stx ffff
7102 B6D0 FF FF FF        ...   stx ffff
7103 B6D3 FF FF FF        ...   stx ffff
7104 B6D6 FF FF FF        ...   stx ffff
7105 B6D9 FF FF FF        ...   stx ffff
7106 B6DC FF FF FF        ...   stx ffff
7107 B6DF FF FF FF        ...   stx ffff
7108 B6E2 FF FF FF        ...   stx ffff
7109 B6E5 FF FF FF        ...   stx ffff
7110 B6E8 FF FF FF        ...   stx ffff
7111 B6EB FF FF FF        ...   stx ffff
7112 B6EE FF FF FF        ...   stx ffff
7113 B6F1 FF FF FF        ...   stx ffff
7114 B6F4 FF FF FF        ...   stx ffff
7115 B6F7 FF FF FF        ...   stx ffff
7116 B6FA FF FF FF        ...   stx ffff
7117 B6FD FF FF FF        ...   stx ffff
7118 B700 FF FF FF        ...   stx ffff
7119 B703 FF FF FF        ...   stx ffff
7120 B706 FF FF FF        ...   stx ffff
7121 B709 FF FF FF        ...   stx ffff
7122 B70C FF FF FF        ...   stx ffff
7123 B70F FF FF FF        ...   stx ffff
7124 B712 FF FF FF        ...   stx ffff
7125 B715 FF FF FF        ...   stx ffff
7126 B718 FF FF FF        ...   stx ffff
7127 B71B FF FF FF        ...   stx ffff
7128 B71E FF FF FF        ...   stx ffff
7129 B721 FF FF FF        ...   stx ffff
7130 B724 FF FF FF        ...   stx ffff
7131 B727 FF FF FF        ...   stx ffff
7132 B72A FF FF FF        ...   stx ffff
7133 B72D FF FF FF        ...   stx ffff
7134 B730 FF FF FF        ...   stx ffff
7135 B733 FF FF FF        ...   stx ffff
7136 B736 FF FF FF        ...   stx ffff
7137 B739 FF FF FF        ...   stx ffff
7138 B73C FF FF FF        ...   stx ffff
7139 B73F FF FF FF        ...   stx ffff
7140 B742 FF FF FF        ...   stx ffff
7141 B745 FF FF FF        ...   stx ffff
7142 B748 FF FF FF        ...   stx ffff
7143 B74B FF FF FF        ...   stx ffff
7144 B74E FF FF FF        ...   stx ffff
7145 B751 FF FF FF        ...   stx ffff
7146 B754 FF FF FF        ...   stx ffff
7147 B757 FF FF FF        ...   stx ffff
7148 B75A FF FF FF        ...   stx ffff
7149 B75D FF FF FF        ...   stx ffff
7150 B760 FF FF FF        ...   stx ffff
7151 B763 FF FF FF        ...   stx ffff
7152 B766 FF FF FF        ...   stx ffff
7153 B769 FF FF FF        ...   stx ffff
7154 B76C FF FF FF        ...   stx ffff
7155 B76F FF FF FF        ...   stx ffff
7156 B772 FF FF FF        ...   stx ffff
7157 B775 FF FF FF        ...   stx ffff
7158 B778 FF FF FF        ...   stx ffff
7159 B77B FF FF FF        ...   stx ffff
7160 B77E FF FF FF        ...   stx ffff
7161 B781 FF FF FF        ...   stx ffff
7162 B784 FF FF FF        ...   stx ffff
7163 B787 FF FF FF        ...   stx ffff
7164 B78A FF FF FF        ...   stx ffff
7165 B78D FF FF FF        ...   stx ffff
7166 B790 FF FF FF        ...   stx ffff
7167 B793 FF FF FF        ...   stx ffff
7168 B796 FF FF FF        ...   stx ffff
7169 B799 FF FF FF        ...   stx ffff
7170 B79C FF FF FF        ...   stx ffff
7171 B79F FF FF FF        ...   stx ffff
7172 B7A2 FF FF FF        ...   stx ffff
7173 B7A5 FF FF FF        ...   stx ffff
7174 B7A8 FF FF FF        ...   stx ffff
7175 B7AB FF FF FF        ...   stx ffff
7176 B7AE FF FF FF        ...   stx ffff
7177 B7B1 FF FF FF        ...   stx ffff
7178 B7B4 FF FF FF        ...   stx ffff
7179 B7B7 FF FF FF        ...   stx ffff
7180 B7BA FF FF FF        ...   stx ffff
7181 B7BD FF FF FF        ...   stx ffff
7182 B7C0 FF FF FF        ...   stx ffff
7183 B7C3 FF FF FF        ...   stx ffff
7184 B7C6 FF FF FF        ...   stx ffff
7185 B7C9 FF FF FF        ...   stx ffff
7186 B7CC FF FF FF        ...   stx ffff
7187 B7CF FF FF FF        ...   stx ffff
7188 B7D2 FF FF FF        ...   stx ffff
7189 B7D5 FF FF FF        ...   stx ffff
7190 B7D8 FF FF FF        ...   stx ffff
7191 B7DB FF FF FF        ...   stx ffff
7192 B7DE FF FF FF        ...   stx ffff
7193 B7E1 FF FF FF        ...   stx ffff
7194 B7E4 FF FF FF        ...   stx ffff
7195 B7E7 FF FF FF        ...   stx ffff
7196 B7EA FF FF FF        ...   stx ffff
7197 B7ED FF FF FF        ...   stx ffff
7198 B7F0 FF FF FF        ...   stx ffff
7199 B7F3 FF FF FF        ...   stx ffff
7200 B7F6 FF FF FF        ...   stx ffff
7201 B7F9 FF FF FF        ...   stx ffff
7202 B7FC FF FF FF        ...   stx ffff
7203 B7FF FF              .
7204
7205 jump201:
7206 B800 34              .     des
7207 B801 F6 0E 6D        ...   ldab 0e6d
7208 B804 C1 01           ..    cmpb #01
7209 B806 27 03           '.    beq 03
7210 B808 7E B9 2A        ~.*   jmp b92a             ;goto25
7211 B80B F6 0E 02        ...   ldab 0e02
7212 B80E C1 05           ..    cmpb #05     ; was the 3rd last keypress a 5?
7213 B810 27 03           '.    beq 03
7214 B812 7E B9 2A        ~.*   jmp b92a             ;goto25
7215 B815 F6 0E 03        ...   ldab 0e03
7216 B818 C1 05           ..    cmpb #05     ; was the 2nd last keypress a 5?
7217 B81A 27 03           '.    beq 03
7218 B81C 7E B9 2A        ~.*   jmp b92a             ;goto25
7219 B81F F6 0E 04        ...   ldab 0e04
7220 B822 C1 05           ..    cmpb #05     ; was the last keypress a 5?
7221 B824 27 03           '.    beq 03
7222 B826 7E B9 2A        ~.*   jmp b92a             ;goto25
7223 B829 F6 00 12        ...   ldab 0012
7224 B82C C4 20           .     andb #20     ; test the door switch
7225 B82E 27 03           '.    beq 03
7226 B830 7E B9 2A        ~.*   jmp b92a             ;goto25
7227 B833 30              0     tsx
7228 B834 6F 00           o.    clr 00,x
7229 B836 F6 0E 6A        ..j   ldab 0e6a
7230 B839 C1 00           ..    cmpb #00
7231 B83B 22 33           "3    bhi 33
7232 B83D C6 64           .d    ldab #64
7233 B83F F7 0E 6A        ..j   stab 0e6a
7234 B842 7C 0E 05        |..   inc 0e05
7235 B845 F6 0E 05        ...   ldab 0e05
7236 B848 C1 64           .d    cmpb #64
7237 B84A 23 03           #.    bls 03
7238 B84C 7F 0E 05        ...   clr 0e05
7239 B84F F6 0E 05        ...   ldab 0e05
7240 B852 BD D4 68        ..h   jsr d468             ;jump51
7241 B855 83 00 00        ...   subd #0000
7242 B858 27 0B           '.    beq 0b
7243 B85A F6 0E 05        ...   ldab 0e05
7244 B85D BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
7245 B860 83 00 00        ...   subd #0000
7246 B863 27 09           '.    beq 09
7247 B865 30              0     tsx
7248 B866 6C 00           l.    inc 00,x
7249 B868 E6 00           ..    ldab 00,x
7250 B86A C1 6E           .n    cmpb #6e     ; 110 or 01101110
7251 B86C 2D D4           -.    blt d4
7252 B86E 20 0A            .    bra 0a
7253 B870 F6 0E 6A        ..j   ldab 0e6a
7254 B873 C1 00           ..    cmpb #00
7255 B875 23 03           #.    bls 03
7256 B877 7A 0E 6A        z.j   dec 0e6a
7257 B87A F6 0E 05        ...   ldab 0e05
7258 B87D BD D4 68        ..h   jsr d468             ;jump51
7259 B880 83 00 00        ...   subd #0000
7260 B883 26 03           &.    bne 03
7261 B885 7E B9 0A        ~..   jmp b90a             ;goto26
7262 B888 F6 0E 05        ...   ldab 0e05
7263 B88B BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
7264 B88E 83 00 00        ...   subd #0000
7265 B891 26 77           &w    bne 77
7266 B893 BD BE 4B        ..K   jsr be4b             ;displayblank
7267 B896 C6 20           .     ldab #20    ; " "
7268 B898 F7 0B 9A        ...   stab 0b9a
7269 B89B C6 20           .     ldab #20    ; " "
7270 B89D F7 0B 99        ...   stab 0b99
7271 B8A0 C6 20           .     ldab #20    ; " "
7272 B8A2 F7 0B 98        ...   stab 0b98
7273 B8A5 F6 0E 05        ...   ldab 0e05   ; array index/10
7274 B8A8 4F              O     clra
7275 B8A9 CE 00 0A        ...   ldx #000a
7276 B8AC 02              .     idiv
7277 B8AD 8F              .     xgdx
7278 B8AE CB 30           .0    addb #30    ; make it a digit
7279 B8B0 F7 0B 97        ...   stab 0b97
7280 B8B3 F6 0E 05        ...   ldab 0e05   ; array index%10
7281 B8B6 4F              O     clra
7282 B8B7 CE 00 0A        ...   ldx #000a
7283 B8BA 02              .     idiv
7284 B8BB CB 30           .0    addb #30     ; make it a digit
7285 B8BD F7 0B 96        ...   stab 0b96
7286 B8C0 C6 20           .     ldab #20     ; " "
7287 B8C2 F7 0B 95        ...   stab 0b95
7288 B8C5 C6 20           .     ldab #20     ; " "
7289 B8C7 F7 0B 94        ...   stab 0b94
7290 B8CA F6 0E 05        ...   ldab 0e05    ; array[index]/10
7291 B8CD 4F              O     clra
7292 B8CE C3 0E 06        ...   addd #0e06
7293 B8D1 8F              .     xgdx
7294 B8D2 E6 00           ..    ldab 00,x
7295 B8D4 4F              O     clra
7296 B8D5 CE 00 0A        ...   ldx #000a
7297 B8D8 02              .     idiv
7298 B8D9 8F              .     xgdx
7299 B8DA CB 30           .0    addb #30     ; make it a digit
7300 B8DC F7 0B 93        ...   stab 0b93
7301 B8DF F6 0E 05        ...   ldab 0e05    ; array[index]%10
7302 B8E2 4F              O     clra
7303 B8E3 C3 0E 06        ...   addd #0e06
7304 B8E6 8F              .     xgdx
7305 B8E7 E6 00           ..    ldab 00,x
7306 B8E9 4F              O     clra
7307 B8EA CE 00 0A        ...   ldx #000a
7308 B8ED 02              .     idiv
7309 B8EE CB 30           .0    addb #30     ; make it a digit
7310 B8F0 F7 0B 92        ...   stab 0b92
7311 B8F3 C6 20           .     ldab #20     ; " "
7312 B8F5 F7 0B 91        ...   stab 0b91
7313 B8F8 C6 20           .     ldab #20     ; " "
7314 B8FA F7 0B 90        ...   stab 0b90
7315 B8FD 7F 00 2C        ..,   clr 002c
7316 B900 BD BE 01        ...   jsr be01             ;jump70
7317 B903 C6 0A           ..    ldab #0a
7318 B905 F7 00 2C        ..,   stab 002c
7319 B908 20 1D            .    bra 1d
7320 goto26:
7321 B90A BD BE 4B        ..K   jsr be4b             ;displayblank
7322 B90D C6 57           .W    ldab #57     ; "W"
7323 B90F F7 0B 96        ...   stab 0b96
7324 B912 C6 42           .B    ldab #42     ; "B"
7325 B914 F7 0B 95        ...   stab 0b95
7326 B917 C6 42           .B    ldab #42     ; "B"
7327 B919 F7 0B 94        ...   stab 0b94
7328 B91C 7F 00 2C        ..,   clr 002c
7329 B91F BD BE 01        ...   jsr be01             ;jump70 write to display
7330 B922 C6 0A           ..    ldab #0a
7331 B924 F7 00 2C        ..,   stab 002c
7332 B927 7E BA 81        ~..   jmp ba81             ;goto27
7333 goto25:
7334 B92A F6 0E 6D        ..m   ldab 0e6d
7335 B92D C1 01           ..    cmpb #01
7336 B92F 27 03           '.    beq 03
7337 B931 7E BA 81        ~..   jmp ba81             ;goto27
7338 B934 F6 0E 00        ...   ldab 0e00
7339 B937 C1 05           ..    cmpb #05
7340 B939 27 03           '.    beq 03
7341 B93B 7E BA 81        ~..   jmp ba81             ;goto27
7342 B93E F6 0E 01        ...   ldab 0e01
7343 B941 C1 05           ..    cmpb #05
7344 B943 27 03           '.    beq 03
7345 B945 7E BA 81        ~..   jmp ba81             ;goto27
7346 B948 F6 0E 02        ...   ldab 0e02
7347 B94B C1 05           ..    cmpb #05
7348 B94D 27 03           '.    beq 03
7349 B94F 7E BA 81        ~..   jmp ba81             ;goto27
7350 B952 F6 00 12        ...   ldab 0012
7351 B955 C4 20           .     andb #20     ; test the door switch
7352 B957 26 03           &.    bne 03
7353 B959 7E BA 81        ~..   jmp ba81             ;goto27
7354 B95C F6 0E 04        ...   ldab 0e04
7355 B95F C1 05           ..    cmpb #05
7356 B961 26 79           &y    bne 79
7357 B963 F6 0E 03        ...   ldab 0e03
7358 B966 C1 05           ..    cmpb #05
7359 B968 26 72           &r    bne 72
7360 B96A 30              0     tsx
7361 B96B 6F 00           o.    clr 00,x
7362 B96D 30              0     tsx
7363 B96E E6 00           ..    ldab 00,x
7364 B970 C1 64           .d    cmpb #64
7365 B972 2C 16           ,.    bge 16
7366 B974 5F              _     clrb
7367 B975 37              7     pshb
7368 B976 30              0     tsx
7369 B977 E6 01           ..    ldab 01,x
7370 B979 4F              O     clra
7371 B97A 5D              ]     tstb
7372 B97B 2C 01           ,.    bge 01
7373 B97D 4A              J     deca
7374 B97E C3 0E 06        ...   addd #0e06
7375 B981 8F              .     xgdx
7376 B982 33              3     pulb
7377 B983 E7 00           ..    stab 00,x
7378 B985 30              0     tsx
7379 B986 6C 00           l.    inc 00,x
7380 B988 20 E3            .    bra e3
7381 B98A 7F 0D FF        ...   clr 0dff
7382 B98D 7F 0E 00        ...   clr 0e00
7383 B990 7F 0E 01        ...   clr 0e01
7384 B993 7F 0E 02        ...   clr 0e02
7385 B996 7F 0E 03        ...   clr 0e03
7386 B999 7F 0E 04        ...   clr 0e04
7387 B99C C6 41           .A    ldab #41   ; "A"
7388 B99E F7 0B 99        ...   stab 0b99
7389 B9A1 C6 4C           .L    ldab #4c   ; "L"
7390 B9A3 F7 0B 98        ...   stab 0b98
7391 B9A6 C6 4C           .L    ldab #4c   ; "L"
7392 B9A8 F7 0B 97        ...   stab 0b97
7393 B9AB C6 20           .     ldab #20   ; " "
7394 B9AD F7 0B 96        ...   stab 0b96
7395 B9B0 C6 43           .C    ldab #43   ; "C"
7396 B9B2 F7 0B 95        ...   stab 0b95
7397 B9B5 C6 4C           .L    ldab #4c   ; "L"
7398 B9B7 F7 0B 94        ...   stab 0b94
7399 B9BA C6 45           .E    ldab #45   ; "E"
7400 B9BC F7 0B 93        ...   stab 0b93
7401 B9BF C6 41           .A    ldab #41   ; "A"
7402 B9C1 F7 0B 92        ...   stab 0b92
7403 B9C4 C6 52           .R    ldab #52   ; "R"
7404 B9C6 F7 0B 91        ...   stab 0b91
7405 B9C9 C6 20           .     ldab #20   ; " "
7406 B9CB F7 0B 90        ...   stab 0b90
7407 B9CE 7F 00 2C        ..,   clr 002c
7408 B9D1 BD BE 01        ...   jsr be01             ;jump70 - display
7409 B9D4 C6 1E           ..    ldab #1e
7410 B9D6 F7 00 2C        ..,   stab 002c
7411 B9D9 7E BA 81        ~..   jmp ba81             ;goto27
7412 B9DC F6 0E 04        ...   ldab 0e04
7413 B9DF C1 01           ..    cmpb #01
7414 B9E1 27 0A           '.    beq 0a
7415 B9E3 F6 0E 04        ...   ldab 0e04
7416 B9E6 C1 02           ..    cmpb #02
7417 B9E8 27 03           '.    beq 03
7418 B9EA 7E BA 81        ~..   jmp ba81             ;goto27
7419 B9ED F6 0E 03        ...   ldab 0e03
7420 B9F0 C1 00           ..    cmpb #00
7421 B9F2 22 03           ".    bhi 03
7422 B9F4 7E BA 81        ~..   jmp ba81             ;goto27
7423 B9F7 F6 0E 03        ...   ldab 0e03
7424 B9FA C1 05           ..    cmpb #05
7425 B9FC 26 03           &.    bne 03
7426 B9FE 7E BA 81        ~..   jmp ba81             ;goto27
7427 BA01 F6 0E 03        ...   ldab 0e03
7428 BA04 C1 07           ..    cmpb #07
7429 BA06 24 79           $y    bcc 79
7430 BA08 F6 0E 03        ...   ldab 0e03  ; prevkey*10+key
7431 BA0B 86 0A           ..    ldaa #0a
7432 BA0D 3D              =     mul
7433 BA0E FB 0E 04        ...   addb 0e04
7434 BA11 30              0     tsx
7435 BA12 E7 00           ..    stab 00,x
7436 BA14 E6 00           ..    ldab 00,x
7437 BA16 C1 64           .d    cmpb #64
7438 BA18 2C 67           ,g    bge 67
7439 BA1A E6 00           ..    ldab 00,x
7440 BA1C 2D 63           -c    blt 63
7441 BA1E 5F              _     clrb
7442 BA1F 37              7     pshb
7443 BA20 30              0     tsx
7444 BA21 E6 01           ..    ldab 01,x
7445 BA23 4F              O     clra
7446 BA24 5D              ]     tstb
7447 BA25 2C 01           ,.    bge 01
7448 BA27 4A              J     deca
7449 BA28 C3 0E 06        ...   addd #0e06
7450 BA2B 8F              .     xgdx
7451 BA2C 33              3     pulb
7452 BA2D E7 00           ..    stab 00,x
7453 BA2F F6 0E 03        ...   ldab 0e03
7454 BA32 CB 30           .0    addb #30    ; +48 (make an ascii digit)
7455 BA34 F7 0B 99        ...   stab 0b99
7456 BA37 F6 0E 04        ...   ldab 0e04
7457 BA3A CB 30           .0    addb #30    ; +48 (make an ascii digit)
7458 BA3C F7 0B 98        ...   stab 0b98
7459 BA3F C6 20           .     ldab #20    ; " "
7460 BA41 F7 0B 97        ...   stab 0b97
7461 BA44 C6 43           .C    ldab #43    ; "C"
7462 BA46 F7 0B 96        ...   stab 0b96
7463 BA49 C6 4C           .L    ldab #4c    ; "L"
7464 BA4B F7 0B 95        ...   stab 0b95
7465 BA4E C6 45           .E    ldab #45    ; "E"
7466 BA50 F7 0B 94        ...   stab 0b94
7467 BA53 C6 41           .A    ldab #41    ; "A"
7468 BA55 F7 0B 93        ...   stab 0b93
7469 BA58 C6 52           .R    ldab #52    ; "R"
7470 BA5A F7 0B 92        ...   stab 0b92
7471 BA5D C6 45           .E    ldab #45    ; "E"
7472 BA5F F7 0B 91        ...   stab 0b91
7473 BA62 C6 44           .D    ldab #44    ; "D"
7474 BA64 F7 0B 90        ...   stab 0b90
7475 BA67 7F 0E 00        ...   clr 0e00
7476 BA6A 7F 0E 01        ...   clr 0e01
7477 BA6D 7F 0E 02        ...   clr 0e02
7478 BA70 7F 0E 03        ...   clr 0e03
7479 BA73 7F 0E 04        ...   clr 0e04
7480 BA76 7F 00 2C        ..,   clr 002c
7481 BA79 BD BE 01        ...   jsr be01             ;jump70 - display
7482 BA7C C6 1E           ..    ldab #1e
7483 BA7E F7 00 2C        ..,   stab 002c
7484 goto27:
7485 BA81 31              1     ins
7486 BA82 39              9     rts
7487
7488 jump125:
7489 ; reads the keypad state into 005b & 0056
7490 ; it looks like it returns without doing anything if the
7491 ; no sale switch is pressed, but I haven't looked closely
7492 BA83 F6 18 00        ...   ldab 1800
7493 BA86 C4 7F           ..    andb #7f
7494 BA88 F7 00 23        ..#   stab 0023
7495 BA8B F6 00 23        ..#   ldab 0023
7496 BA8E F1 00 12        ...   cmpb 0012   ; door buffers - debouncing it?
7497 BA91 27 06           '.    beq 06
7498 BA93 F6 00 23        ..#   ldab 0023
7499 BA96 F7 00 12        ...   stab 0012
7500 BA99 F6 20 00        . .   ldab 2000
7501 BA9C F1 00 20        ..    cmpb 0020
7502 BA9F 27 08           '.    beq 08
7503 BAA1 F6 20 00        . .   ldab 2000
7504 BAA4 F7 00 20        ..    stab 0020
7505 BAA7 20 0E            .    bra 0e
7506 BAA9 F6 00 20        ..    ldab 0020
7507 BAAC F7 00 11        ...   stab 0011
7508 BAAF F6 00 11        ...   ldab 0011
7509 BAB2 C4 03           ..    andb #03
7510 BAB4 F7 00 2B        ..+   stab 002b
7511 BAB7 F6 00 1B        ...   ldab 001b
7512 BABA C4 04           ..    andb #04
7513 BABC 37              7     pshb
7514 BABD F6 10 0A        ...   ldab 100a   ; PortE
7515 BAC0 C4 04           ..    andb #04    ; no sale switch (active low)
7516 BAC2 30              0     tsx
7517 BAC3 E0 00           ..    subb 00,x
7518 BAC5 31              1     ins
7519 BAC6 27 17           '.    beq 17
7520 BAC8 F6 10 0A        ...   ldab 100a   ; PortE
7521 BACB C4 04           ..    andb #04    : no sale switch (active low)
7522 BACD 27 08           '.    beq 08
7523 BACF CE 00 1B        ...   ldx #001b
7524 BAD2 1C 00 04        ..    bset 00,x, #04
7525 BAD5 20 06            .    bra 06
7526 BAD7 CE 00 1B        ...   ldx #001b
7527 BADA 1D 00 04        ..    bclr 00,x, #04
7528 BADD 20 15            .    bra 15
7529 BADF F6 10 0A        ...   ldab 100a   ; PortE
7530 BAE2 C4 04           ..    andb #04    ; no sale switch (active low)
7531 BAE4 27 08           '.    beq 08
7532 BAE6 CE 00 1D        ...   ldx #001d
7533 BAE9 1C 00 04        ..    bset 00,x, #04
7534 BAEC 20 06            .    bra 06
7535 BAEE CE 00 1D        ...   ldx #001d
7536 BAF1 1D 00 04        ..    bclr 00,x, #04
7537 BAF4 CE 10 08        ...   ldx #1008        : PortD
7538 BAF7 1D 00 20        ...   bclr 00,x, #20   ; select keypad row 0
7539 BAF9 CE 10 28        ...   ldx #1028
7540 BAFC 1C 00 40        ...   bset 00,x #40    ; enable SPI
7541
7542 BB00 CE 00 14        ...   ldx #0014        ; keypad strobe:
7543 BB03 1C 00 04        ..    bset 00,x, #04   ; resets the keypad
7544 BB06 F6 00 14        ...   ldab 0014        ; shift register
7545 BB09 F7 38 00        .8.   stab 3800        ; ready for a new
7546 BB0C CE 00 14        ...   ldx #0014        ; read
7547 BB0F 1D 00 04        ..    bclr 00,x, #04
7548 BB12 F6 00 14        ...   ldab 0014
7549 BB15 F7 38 00        .8.   stab 3800
7550
7551 BB18 CE 00 00        ...   ldx #0000
7552 BB1B 3C              <     pshx
7553 BB1C 5F              _     clrb
7554 BB1D 4F              O     clra
7555 BB1E BD BD B5        ...   jsr bdb5             ;jump78 - reads the keypad inputs into X
7556 BB21 38              8     pulx
7557 BB22 F7 00 5B        ..[   stab 005b
7558
7559 BB25 CE 10 28        ..(   ldx #1028
7560 BB28 1D 00 40        ..    bclr 00,x, #40  ; disable SPI
7561
7562 BB2B CE 10 08        ...   ldx #1008
7563 BB2E 1C 00 20        ..    bset 00,x, #20  ; select keypad row 1
7564
7565 BB30 CE 10 28        ...   ldx #1028
7566 BB33 1C 00 40        ...   bset 00,x, #40  ; enable the SPI
7567
7568 BB37 CE 00 14        ...   ldx #0014
7569 BB3A 1C 00 04        ..    bset 00,x, #04  ; keypad strobe
7570 BB3D F6 00 14        ...   ldab 0014
7571 BB40 F7 38 00        .8.   stab 3800
7572 BB43 CE 00 14        ...   ldx #0014
7573 BB46 1D 00 04        ..    bclr 00,x, #04
7574 BB49 F6 00 14        ...   ldab 0014
7575 BB4C F7 38 00        .8.   stab 3800
7576
7577 BB4F CE 00 00        ...   ldx #0000
7578 BB52 3C              <     pshx
7579 BB53 5F              _     clrb
7580 BB54 4F              O     clra
7581 BB55 BD BD B5        ...   jsr bdb5             ;jump78  - read the keypad
7582 BB58 38              8     pulx
7583 BB59 F7 00 56        ..V   stab 0056
7584 BB5C CE 10 28        ..(   ldx #1028
7585 BB5F 1D 00 40        ..    bclr 00,x, #40
7586 BB62 39              9     rts
7587
7588 jump200:
7589 BB63 F6 00 00        ...   ldab 0000
7590 BB66 27 03           '.    beq 03
7591 BB68 7E BD B4        ~..   jmp bdb4             ;goto28
7592 BB6B F6 00 2E        ...   ldab 002e
7593 BB6E 27 03           '.    beq 03
7594 BB70 7E BD B4        ~..   jmp bdb4             ;goto28
7595 BB73 BD BA 83        ...   jsr ba83             ;jump125 - read keypad
7596 ; has a key been pressed?
7597 BB76 F6 00 5B        ..[   ldab 005b
7598 BB79 F1 00 56        ..V   cmpb 0056
7599 BB7C 26 0B           &.    bne 0b       ; to bb89
7600 BB7E F6 00 56        ..V   ldab 0056
7601 BB81 27 06           '.    beq 06       ; to bb89
7602 BB83 7F 00 29        ..)   clr 0029     ; to key pressed
7603 BB86 7E BD AF        ~..   jmp bdaf             ;goto29 (bail)
7604 ; find keypad number
7605 BB89 F6 00 5B        ..[   ldab 005b    ; is row0 = 0
7606 BB8C 27 34           '4    beq 34       ; if so, to bbc2
7607 BB8E F6 00 5B        ..[   ldab 005b
7608 BB91 F7 00 5F        .._   stab 005f
7609 BB94 7F 00 1C        ...   clr 001c     ; i=0
7610 ;
7611 BB97 F6 00 1C        ...   ldab 001c
7612 BB9A C1 08           ..    cmpb #08     ; if i >= 8
7613 BB9C 24 15           $.    bcc 15       ; to bbb3 (break)
7614 BB9E F6 00 5F        .._   ldab 005f
7615 BBA1 C4 01           ..    andb #01
7616 BBA3 27 02           '.    beq 02
7617 BBA5 20 0C            .    bra 0c       ; to bbb3
7618 BBA7 F6 00 5F        .._   ldab 005f
7619 BBAA 54              T     lsrb         ; ready to test next bit
7620 BBAB F7 00 5F        .._   stab 005f
7621 BBAE 7C 00 1C        |..   inc 001c
7622 BBB1 20 E4            .    bra e4       ; to bb97
7623 ; look up i in the keypad map
7624 BBB3 F6 00 1C        ...   ldab 001c
7625 BBB6 4F              O     clra
7626 BBB7 C3 AC 9D        ...   addd #ac9d   ; keypad mapping
7627 BBBA 8F              .     xgdx
7628 BBBB E6 00           ..    ldab 00,x
7629 BBBD F7 00 16        ...   stab 0016
7630 BBC0 20 3C            <    bra 3c       ; to bbfe
7631 ; test row 1 - ditto
7632 BBC2 F6 00 56        ..V   ldab 0056
7633 BBC5 27 34           '4    beq 34
7634 BBC7 F6 00 56        ..V   ldab 0056
7635 BBCA F7 00 5F        .._   stab 005f
7636 BBCD 7F 00 1C        ...   clr 001c
7637 BBD0 F6 00 1C        ...   ldab 001c
7638 BBD3 C1 08           ..    cmpb #08
7639 BBD5 24 15           $.    bcc 15
7640 BBD7 F6 00 5F        .._   ldab 005f
7641 BBDA C4 01           ..    andb #01
7642 BBDC 27 02           '.    beq 02
7643 BBDE 20 0C            .    bra 0c       ; to bbec
7644 BBE0 F6 00 5F        .._   ldab 005f
7645 BBE3 54              T     lsrb
7646 BBE4 F7 00 5F        .._   stab 005f
7647 BBE7 7C 00 1C        |..   inc 001c
7648 BBEA 20 E4            .    bra e4
7649 BBEC F6 00 1C        ...   ldab 001c
7650 ; look up in map
7651 BBEF 4F              O     clra
7652 BBF0 C3 AC A0        ...   addd #aca0
7653 BBF3 8F              .     xgdx
7654 BBF4 E6 00           ..    ldab 00,x
7655 BBF6 F7 00 16        ...   stab 0016
7656 BBF9 20 03            .    bra 03
7657 BBFB 7F 00 16        ...   clr 0016
7658 ;
7659 BBFE F6 00 5B        ..[   ldab 005b
7660 BC01 FA 00 56        ..V   orb 0056
7661 BC04 F7 00 5F        .._   stab 005f
7662 BC07 7F 00 5E        ..^   clr 005e
7663 BC0A 7F 00 1C        ...   clr 001c
7664 BC0D F6 00 1C        ...   ldab 001c
7665 BC10 C1 08           ..    cmpb #08
7666 BC12 24 16           $.    bcc 16
7667 BC14 F6 00 5F        .._   ldab 005f
7668 BC17 C4 01           ..    andb #01
7669 BC19 27 03           '.    beq 03
7670 BC1B 7C 00 5E        |.^   inc 005e
7671 BC1E F6 00 5F        .._   ldab 005f
7672 BC21 54              T     lsrb
7673 BC22 F7 00 5F        .._   stab 005f
7674 BC25 7C 00 1C        |..   inc 001c
7675 BC28 20 E3            .    bra e3
7676 BC2A F6 00 5E        ..^   ldab 005e
7677 BC2D C1 01           ..    cmpb #01
7678 BC2F 22 05           ".    bhi 05
7679 BC31 F6 00 16        ...   ldab 0016
7680 BC34 26 0F           &.    bne 0f
7681 BC36 7F 00 29        ..)   clr 0029
7682 BC39 CE 00 1B        ...   ldx #001b
7683 BC3C 1C 00 10        ...   bset 00,x, #10
7684 BC3F 7F 00 37        ..7   clr 0037
7685 BC42 7E BD AF        ~..   jmp bdaf             ;goto29 (bail)
7686 BC45 F6 00 16        ...   ldab 0016    ; key release or debounce?
7687 BC48 F1 00 29        ..)   cmpb 0029
7688 BC4B 27 2D           '-    beq 2d
7689 BC4D F6 00 16        ...   ldab 0016
7690 BC50 F7 00 29        ..)   stab 0029
7691 BC53 F6 0E 00        ...   ldab 0e00     ; this is the key buffer?
7692 BC56 F7 0D FF        ...   stab 0dff
7693 BC59 F6 0E 01        ...   ldab 0e01
7694 BC5C F7 0E 00        ...   stab 0e00
7695 BC5F F6 0E 02        ...   ldab 0e02
7696 BC62 F7 0E 01        ...   stab 0e01
7697 BC65 F6 0E 03        ...   ldab 0e03
7698 BC68 F7 0E 02        ...   stab 0e02
7699 BC6B F6 0E 04        ...   ldab 0e04
7700 BC6E F7 0E 03        ...   stab 0e03
7701 BC71 F6 00 29        ..)   ldab 0029
7702 BC74 F7 0E 04        ...   stab 0e04
7703 BC77 7E BD AF        ~..   jmp bdaf             ;goto29 (bail)
7704 BC7A F6 00 12        ...   ldab 0012
7705 BC7D C4 20           .     andb #20     ; test door switch
7706 BC7F 27 3B           ';    beq 3b       ; to bcbc
7707 BC81 F6 00 29        ..)   ldab 0029
7708 BC84 27 33           '3    beq 33
7709 BC86 F6 00 1B        ...   ldab 001b
7710 BC89 C4 10           ..    andb #10
7711 BC8B 27 2C           ',    beq 2c
7712 BC8D F6 00 42        ..B   ldab 0042
7713 BC90 27 15           '.    beq 15
7714 BC92 F6 00 09        ...   ldab 0009
7715 BC95 27 08           '.    beq 08
7716 BC97 F6 00 29        ..)   ldab 0029
7717 BC9A F7 00 0A        ...   stab 000a
7718 BC9D 20 06            .    bra 06
7719 BC9F F6 00 29        ..)   ldab 0029
7720 BCA2 F7 00 09        ...   stab 0009
7721 BCA5 20 06            .    bra 06
7722 BCA7 F6 00 29        ..)   ldab 0029
7723 BCAA F7 00 42        ..B   stab 0042
7724 BCAD BD E5 AA        ...   jsr e5aa             ;jump12
7725 BCB0 7F 00 2C        ..,   clr 002c
7726 BCB3 CE 00 1B        ...   ldx #001b
7727 BCB6 1D 00 10        ...   bclr 00,x, #10
7728 BCB9 7E BD AF        ~..   jmp bdaf             ;goto29 (bail)
7729 ;
7730 BCBC F6 00 1B        ...   ldab 001b
7731 BCBF C4 10           ..    andb #10
7732 BCC1 26 03           &.    bne 03
7733 BCC3 7E BD 91        ~..   jmp bd91             ;goto30
7734 BCC6 F6 00 21        ..!   ldab 0021
7735 BCC9 C4 20           .     andb #20
7736 BCCB 27 03           '.    beq 03
7737 BCCD 7E BD 91        ~..   jmp bd91             ;goto30
7738 BCD0 F6 00 29        ..)   ldab 0029
7739 BCD3 C1 0B           ..    cmpb #0b
7740 BCD5 26 03           &.    bne 03
7741 BCD7 7E BD 5C        ~.\   jmp bd5c             ;goto31
7742 BCDA 7F 00 49        ..I   clr 0049
7743 BCDD F6 00 3A        ..:   ldab 003a
7744 BCE0 26 32           &2    bne 32
7745 BCE2 F6 00 29        ..)   ldab 0029
7746 BCE5 C1 0A           ..    cmpb #0a
7747 BCE7 26 05           &.    bne 05
7748 BCE9 7F 00 1E        ...   clr 001e
7749 BCEC 20 06            .    bra 06
7750 BCEE F6 00 29        ..)   ldab 0029
7751 BCF1 F7 00 1E        ...   stab 001e
7752 BCF4 C6 32           .2    ldab #32
7753 BCF6 F7 00 3A        ..:   stab 003a
7754 BCF9 BD BE 4B        ..K   jsr be4b             ;displayblank
7755 BCFC F6 00 1E        ...   ldab 001e
7756 BCFF CB 30           .0    addb #30
7757 BD01 F7 0B 95        ...   stab 0b95
7758 BD04 BD E5 AA        ...   jsr e5aa             ;jump12
7759 BD07 7F 00 2C        ..,   clr 002c
7760 BD0A BD BE 01        ...   jsr be01             ;jump70
7761 BD0D C6 32           .2    ldab #32
7762 BD0F F7 00 2C        ..,   stab 002c
7763 BD12 20 46            F    bra 46
7764 BD14 F6 00 29        ..)   ldab 0029
7765 BD17 C1 05           ..    cmpb #05
7766 BD19 27 07           '.    beq 07
7767 BD1B F6 00 29        ..)   ldab 0029
7768 BD1E C1 0A           ..    cmpb #0a
7769 BD20 26 05           &.    bne 05
7770 BD22 7F 00 2C        ..,   clr 002c
7771 BD25 20 2D            -    bra 2d
7772 BD27 F6 00 1E        ...   ldab 001e
7773 BD2A 58              X     aslb
7774 BD2B 58              X     aslb
7775 BD2C 58              X     aslb
7776 BD2D F7 00 06        ...   stab 0006
7777 BD30 F6 00 1E        ...   ldab 001e
7778 BD33 58              X     aslb
7779 BD34 FB 00 06        ...   addb 0006
7780 BD37 F7 00 06        ...   stab 0006
7781 BD3A F6 00 29        ..)   ldab 0029
7782 BD3D FB 00 06        ...   addb 0006
7783 BD40 F7 00 06        ...   stab 0006
7784 BD43 F6 00 29        ..)   ldab 0029
7785 BD46 CB 30           .0    addb #30
7786 BD48 F7 0B 94        ...   stab 0b94
7787 BD4B BD BE 01        ...   jsr be01             ;jump70
7788 BD4E CE 00 1B        ...   ldx #001b
7789 BD51 1D 00 40        ...   bclr 00,x, #40
7790 BD54 7F 00 3A        ..:   clr 003a
7791 BD57 BD E5 AA        ...   jsr e5aa             ;jump12
7792 BD5A 20 2D            -    bra 2d
7793 goto31:
7794 BD5C C6 19           ..    ldab #19
7795 BD5E F7 00 37        ..7   stab 0037
7796 BD61 F6 00 3A        ..:   ldab 003a
7797 BD64 27 08           '.    beq 08
7798 BD66 7F 00 3A        ..:   clr 003a
7799 BD69 7F 00 2C        ..,   clr 002c
7800 BD6C 20 18            .    bra 18
7801 BD6E 7C 00 49        |.I   inc 0049
7802 BD71 F6 00 49        ..I   ldab 0049
7803 BD74 C1 02           ..    cmpb #02
7804 BD76 25 0E           %.    bcs 0e
7805 BD78 7F 00 49        ..I   clr 0049
7806 BD7B CE 00 1B        ...   ldx #001b
7807 BD7E 1C 00 01        ...   bset 00,x, #01
7808 BD81 C6 3C           .<    ldab #3c
7809 BD83 F7 00 4F        ..O   stab 004f
7810 BD86 BD E5 AA        ...   jsr e5aa             ;jump12
7811 BD89 CE 00 1B        ...   ldx #001b
7812 BD8C 1D 00 10        ...   bclr 00,x, #10
7813 BD8F 20 1E            .    bra 1e
7814 goto30:
7815 BD91 F6 00 1B        ...   ldab 001b
7816 BD94 C4 10           ..    andb #10
7817 BD96 26 17           &.    bne 17
7818 BD98 F6 00 29        ..)   ldab 0029
7819 BD9B C1 0B           ..    cmpb #0b
7820 BD9D 26 10           &.    bne 10
7821 BD9F F6 00 37        ..7   ldab 0037
7822 BDA2 26 0B           &.    bne 0b
7823 BDA4 BD DD D5        ...   jsr ddd5             ;jump120
7824 BDA7 7F 00 49        ..I   clr 0049
7825 BDAA C6 14           ..    ldab #14
7826 BDAC F7 00 2C        ..,   stab 002c
7827 goto29:
7828 BDAF C6 01           ..    ldab #01
7829 BDB1 F7 00 00        ...   stab 0000
7830 goto28:
7831 BDB4 39              9     rts
7832
7833 jump78:
7834 ; start/finish sending a byte to the display
7835 ; stack parameter - 0 to disable clock (finish), 1 to enable clock (start)
7836 ; lower 8-bits of D - byte to write to display.
7837 ; bytes with bit 7 unset are characters (0-127)
7838 ; bytes with bit 7 set are control commands.
7839 ; this probably also reads the keypad simultaneously
7840 BDB5 37              7     pshb
7841 BDB6 36              6     psha
7842 BDB7 3C              <     pshx
7843 BDB8 5F              _     clrb
7844 BDB9 4F              O     clra
7845 BDBA 30              0     tsx
7846 BDBB ED 00           ..    std 00,x
7847 BDBD E6 07           ..    ldab 07,x
7848 BDBF 27 0E           '.    beq 0e     ; to bdcf if 0
7849 BDC1 CE 00 14        ...   ldx #0014
7850 BDC4 1C 00 08        ...   bset 00,x, #08
7851 BDC7 F6 00 14        ...   ldab 0014
7852 BDCA F7 38 00        .8.   stab 3800  ; enable display clock line
7853 BDCD 20 0C            .    bra 0c     ; to bddb
7854 BDCF CE 00 14        ...   ldx #0014
7855 BDD2 1D 00 08        ...   bclr 00,x, #08
7856 BDD5 F6 00 14        ...   ldab 0014
7857 BDD8 F7 38 00        .8.   stab 3800  ; disable display clock line
7858 BDDB 30              0     tsx
7859 BDDC E6 03           ..    ldab 03,x
7860 BDDE F7 10 2A        ..*   stab 102a  ; write to spdr
7861 BDE1 F6 10 29        ..)   ldab 1029  ; read spsr
7862 BDE4 2D 0F           -.    blt 0f     ; exit sub if SPI complete
7863 BDE6 38              8     pulx
7864 BDE7 08              .     inx
7865 BDE8 3C              <     pshx
7866 BDE9 30              0     tsx
7867 BDEA EC 00           ..    ldd 00,x
7868 BDEC 83 FF FF        ...   subd #ffff ; put a really long timeout on the action
7869 BDEF 26 02           &.    bne 02
7870 BDF1 20 02            .    bra 02
7871 BDF3 20 EC            .    bra ec     ; loop a while back to bde1
7872 BDF5 F6 10 2A        ..*   ldab 102a  ; reading SPSR (just done) & SPDR clears SPIF
7873 BDF8 30              0     tsx
7874 BDF9 E7 03           ..    stab 03,x
7875 BDFB E6 03           ..    ldab 03,x  ; return contents of spdr - keypad data!
7876 BDFD 4F              O     clra
7877 BDFE 38              8     pulx
7878 BDFF 38              8     pulx
7879 BE00 39              9     rts
7880
7881 jump70:
7882 ; Write a string in the display buffer at 0x0b90 to the display
7883 BE01 F6 00 2C        ..,   ldab 002c
7884 BE04 26 09           &.    bne 09        ; to be0f - ret if mem 0x2c != 0
7885 BE06 8D 61           .a    bsr dest 61   ; to displayreset - reset display
7886 BE08 8D 06           ..    bsr dest 06   ; to jump88 - commit to display
7887 BE0A C6 03           ..    ldab #03
7888 BE0C F7 00 2C        ..,   stab 002c
7889 BE0F 39              9     rts
7890
7891 jump88:
7892 ; writes the display buffer (at 0b90-0b99) to the display
7893 ; enable the SPI system
7894 BE10 CE 10 28        ..(   ldx #1028
7895 BE13 1C 00 40        ..@   bset 00,x, #40
7896 ; loop to 10
7897 BE16 7F 00 1C        ...   clr 001c
7898 BE19 F6 00 1C        ...   ldab 001c
7899 BE1C C1 0A           ..    cmpb #0a
7900 BE1E 24 19           $.    bcc 19        ; to be39
7901 BE20 CE 00 01        ...   ldx #0001
7902 BE23 3C              <     pshx
7903 BE24 F6 00 1C        ...   ldab 001c
7904 BE27 4F              O     clra
7905 BE28 C3 0B 90        ...   addd #0b90
7906 BE2B 8F              .     xgdx
7907 BE2C E6 00           ..    ldab 00,x
7908 BE2E C4 7F           ..    andb #7f      ; make sure we don't send a control command
7909 BE30 4F              O     clra
7910 BE31 8D 82           ..    bsr dest 82   ; to jump78
7911 BE33 38              8     pulx
7912 BE34 7C 00 1C        |..   inc 001c
7913 BE37 20 E0            .    bra e0        ; to be19
7914 BE39 CE 00 01        ...   ldx #0001
7915 BE3C 3C              <     pshx
7916 BE3D CC 00 FF        ...   ldd #00ff
7917 BE40 BD BD B5        ...   jsr bdb5             ;jump78
7918 BE43 38              8     pulx
7919 ; disable the SPI system
7920 BE44 CE 10 28        ..(   ldx #1028
7921 BE47 1D 00 40        ..@   bclr 00,x, #40
7922 BE4A 39              9     rts
7923
7924 displayblank:
7925 ; stores 0x20 into memory locations 0b90-0b99
7926 ; "blanks out" (with spaces) the display buffer
7927 BE4B 7F 00 1C        ...   clr 001c
7928 BE4E F6 00 1C        ...   ldab 001c
7929 BE51 C1 0A           ..    cmpb #0a
7930 BE53 24 13           $.    bcc 13       ; to be68 - rts
7931 BE55 C6 20           .     ldab #20
7932 BE57 37              7     pshb
7933 BE58 F6 00 1C        ...   ldab 001c
7934 BE5B 4F              O     clra
7935 BE5C C3 0B 90        ...   addd #0b90
7936 BE5F 8F              .     xgdx
7937 BE60 33              3     pulb
7938 BE61 E7 00           ..    stab 00,x
7939 BE63 7C 00 1C        |..   inc 001c
7940 BE66 20 E6            .    bra e6       ; to be4e
7941 BE68 39              9     rts
7942
7943 displayreset:
7944 ; Reset the display
7945 ; Clear bit 7 of PortA - display reset
7946 BE69 CE 10 00        ...   ldx #1000
7947 BE6C 1D 00 80        ..    bclr x,#80
7948 BE6F BD E5 96        ...   jsr e596             ;jump115 - 100ms delay
7949 ; Clear bit 7 of PortA - reset line back to high (not active)
7950 BE72 CE 10 00        ...   ldx #1000
7951 BE75 1C 00 80        ..    bset 00,x, #80
7952
7953 ; set clock polarity
7954 BE78 CE 10 28        ...   ldx #1028
7955 BE7B 1C 00 40        ...   bset 00,x, #40
7956
7957 BE7E BD E5 96        ...   jsr e596             ;jump115 - 100ms delay
7958
7959 ; tell the display controller there are 10 digits
7960 BE81 CE 00 01        ...   ldx #0001
7961 BE84 3C              <     pshx
7962 BE85 CC 00 CA        ...   ldd #00ca    ;11001010
7963 BE88 BD BD B5        ...   jsr bdb5             ;jump78
7964 BE8B 38              8     pulx
7965
7966 ; set brightness to 100%
7967 BE8C CE 00 01        ...   ldx #0001
7968 BE8F 3C              <     pshx
7969 BE90 CC 00 E0        ...   ldd #00e0    ;11100000
7970 BE93 BD BD B5        ...   jsr bdb5             ;jump78
7971 BE96 38              8     pulx
7972
7973 ; revert clock polarity
7974 BE97 CE 10 28        ..(   ldx #1028
7975 BE9A 1D 00 40        ...   bclr 00,x, #40
7976 BE9D 39              9     rts
7977
7978
7979
7980 jump50:
7981 ; writes a slot and price to the screen?
7982 BE9E 37              7     pshb
7983 BE9F 36              6     psha
7984 BEA0 8D A9           ..    bsr a9 ; to be4b - displayblank
7985 BEA2 30              0     tsx
7986 BEA3 E6 05           ..    ldab 05,x
7987 BEA5 26 1B           &.    bne 1b
7988 BEA7 F6 00 06        ...   ldab 0006
7989 BEAA 4F              O     clra
7990 BEAB CE 00 0A        ...   ldx #000a
7991 BEAE 02              .     idiv
7992 BEAF 8F              .     xgdx
7993 BEB0 CB 30           .0    addb #30
7994 BEB2 F7 0B 99        ...   stab 0b99   ; write slotnumber/10
7995 BEB5 F6 00 06        ...   ldab 0006
7996 BEB8 4F              O     clra
7997 BEB8 CE 00 0A        ...   ldx #000a
7998 BEBC 02              .     idiv
7999 BEBD CB 30           .0    addb #30
8000 BEBF F7 0B 98        ...   stab 0b98   ; write slotnumber%10
8001 BEC2 30              0     tsx
8002 BEC3 EC 00           ..    ldd 00,x
8003 BEC5 C4 FF           ..    andb #ff
8004 BEC7 84 3F           .?    anda #3f
8005 BEC9 ED 00           ..    std 00,x
8006 BECB EC 00           ..    ldd 00,x
8007 BECD CE 03 E8        ...   ldx #03e8   ; / 1000
8008 BED0 02              .     idiv
8009 BED1 8F              .     xgdx
8010 BED2 CB 30           .0    addb #30
8011 BED4 37              7     pshb
8012 BED5 30              0     tsx
8013 BED6 E6 06           ..    ldab 06,x
8014 BED8 4F              O     clra
8015 BED9 C3 0B 95        ...   addd #0b95
8016 BEDC 8F              .     xgdx
8017 BEDD 33              3     pulb
8018 BEDE E7 00           ..    stab 00,x    ; write MSB dollars
8019 BEE0 30              0     tsx
8020 BEE1 EC 00           ..    ldd 00,x
8021 BEE3 CE 03 E8        ...   ldx #03e8    ; %1000
8022 BEE6 02              .     idiv
8023 BEE7 CE 00 64        ..d   ldx #0064    ; /100
8024 BEEA 02              .     idiv
8025 BEEB 8F              .     xgdx
8026 BEEC CB 30           .0    addb #30
8027 BEEE 37              7     pshb
8028 BEEF 30              0     tsx
8029 BEF0 E6 06           ..    ldab 06,x
8030 BEF2 4F              O     clra
8031 BEF3 C3 0B 94        ...   addd #0b94   ; write LSB dollars
8032 BEF6 8F              .     xgdx
8033 BEF7 33              3     pulb
8034 BEF8 E7 00           ..    stab 00,x
8035 BEFA 30              0     tsx
8036 BEFB EC 00           ..    ldd 00,x
8037 BEFD CE 00 64        ..d   ldx #0064    ; %100
8038 BF00 02              .     idiv
8039 BF01 CE 00 0A        ...   ldx #000a    ; /10
8040 BF04 02              .     idiv
8041 BF05 8F              .     xgdx
8042 BF06 CB 30           .0    addb #30
8043 BF08 37              7     pshb
8044 BF09 30              0     tsx
8045 BF0A E6 06           ..    ldab 06,x
8046 BF0C 4F              O     clra
8047 BF0D C3 0B 93        ...   addd #0b93   ; write MSB cents
8048 BF10 8F              .     xgdx
8049 BF11 33              3     pulb
8050 BF12 E7 00           ..    stab 00,x
8051 BF14 30              0     tsx
8052 BF15 EC 00           ..    ldd 00,x
8053 BF17 CE 00 0A        ...   ldx #000a
8054 BF1A 02              .     idiv
8055 BF1B CB 30           .0    addb #30
8056 BF1D 37              7     pshb
8057 BF1E 30              0     tsx
8058 BF1F E6 06           ..    ldab 06,x
8059 BF21 4F              O     clra
8060 BF22 C3 0B 92        ...   addd #0b92    ; write LSB cents
8061 BF25 8F              .     xgdx
8062 BF26 33              3     pulb
8063 BF27 E7 00           ..    stab 00,x
8064 BF29 F6 00 13        ...   ldab 0013
8065 BF2C C1 01           ..    cmpb #01
8066 BF2E 22 03           ".    bhi 03
8067 BF30 7E BF DE        ~..   jmp bfde             ;goto32
8068 BF33 30              0     tsx
8069 BF34 E6 05           ..    ldab 05,x
8070 BF36 4F              O     clra
8071 BF37 C3 0B 92        ...   addd #0b92
8072 BF3A 8F              .     xgdx
8073 BF3B E6 00           ..    ldab 00,x
8074 BF3D 37              7     pshb
8075 BF3E 30              0     tsx
8076 BF3F E6 06           ..    ldab 06,x
8077 BF41 4F              O     clra
8078 BF42 C3 0B 91        ...   addd #0b91
8079 BF45 8F              .     xgdx
8080 BF46 33              3     pulb
8081 BF47 E7 00           ..    stab 00,x
8082 BF49 30              0     tsx
8083 BF4A E6 05           ..    ldab 05,x
8084 BF4C 4F              O     clra
8085 BF4D C3 0B 93        ...   addd #0b93
8086 BF50 8F              .     xgdx
8087 BF51 E6 00           ..    ldab 00,x
8088 BF53 37              7     pshb
8089 BF54 30              0     tsx
8090 BF55 E6 06           ..    ldab 06,x
8091 BF57 4F              O     clra
8092 BF58 C3 0B 92        ...   addd #0b92
8093 BF5B 8F              .     xgdx
8094 BF5C 33              3     pulb
8095 BF5D E7 00           ..    stab 00,x
8096 BF5F F6 00 13        ...   ldab 0013
8097 BF62 C1 02           ..    cmpb #02
8098 BF64 26 10           &.    bne 10
8099 BF66 C6 2E           ..    ldab #2e
8100 BF68 37              7     pshb
8101 BF69 30              0     tsx
8102 BF6A E6 06           ..    ldab 06,x
8103 BF6C 4F              O     clra
8104 BF6D C3 0B 93        ...   addd #0b93
8105 BF70 8F              .     xgdx
8106 BF71 33              3     pulb
8107 BF72 E7 00           ..    stab 00,x
8108 BF74 20 68            h    bra 68     ;goto32
8109 ;
8110 BF76 C1 04           ..    cmpb #04
8111 BF78 26 26           &&    bne 26
8112 BF7A 30              0     tsx
8113 BF7B E6 05           ..    ldab 05,x
8114 BF7D 4F              O     clra
8115 BF7E C3 0B 94        ...   addd #0b94
8116 BF81 8F              .     xgdx
8117 BF82 E6 00           ..    ldab 00,x
8118 BF84 37              7     pshb
8119 BF85 30              0     tsx
8120 BF86 E6 06           ..    ldab 06,x
8121 BF88 4F              O     clra
8122 BF89 C3 0B 93        ...   addd #0b93
8123 BF8C 8F              .     xgdx
8124 BF8D 33              3     pulb
8125 BF8E E7 00           ..    stab 00,x
8126 BF90 C6 2E           ..    ldab #2e   ; "."
8127 BF92 37              7     pshb
8128 BF93 30              0     tsx
8129 BF94 E6 06           ..    ldab 06,x
8130 BF96 4F              O     clra
8131 BF97 C3 0B 94        ...   addd #0b94
8132 BF9A 8F              .     xgdx
8133 BF9B 33              3     pulb
8134 BF9C E7 00           ..    stab 00,x
8135 BF9E 20 3E            >    bra 3e
8136 BFA0 C1 08           ..    cmpb #08
8137 BFA2 26 3A           &:    bne 3a
8138 BFA4 30              0     tsx
8139 BFA5 E6 05           ..    ldab 05,x
8140 BFA7 4F              O     clra
8141 BFA8 C3 0B 94        ...   addd #0b94
8142 BFAB 8F              .     xgdx
8143 BFAC E6 00           ..    ldab 00,x
8144 BFAE 37              7     pshb
8145 BFAF 30              0     tsx
8146 BFB0 E6 06           ..    ldab 06,x
8147 BFB2 4F              O     clra
8148 BFB3 C3 0B 93        ...   addd #0b93
8149 BFB6 8F              .     xgdx
8150 BFB7 33              3     pulb
8151 BFB8 E7 00           ..    stab 00,x
8152 BFBA 30              0     tsx
8153 BFBB E6 05           ..    ldab 05,x
8154 BFBD 4F              O     clra
8155 BFBE C3 0B 95        ...   addd #0b95
8156 BFC1 8F              .     xgdx
8157 BFC2 E6 00           ..    ldab 00,x
8158 BFC4 37              7     pshb
8159 BFC5 30              0     tsx
8160 BFC6 E6 06           ..    ldab 06,x
8161 BFC8 4F              O     clra
8162 BFC9 C3 0B 94        ...   addd #0b94
8163 BFCC 8F              .     xgdx
8164 BFCD 33              3     pulb
8165 BFCE E7 00           ..    stab 00,x
8166 BFD0 C6 2E           ..    ldab #2e   ; "."
8167 BFD2 37              7     pshb
8168 BFD3 30              0     tsx
8169 BFD4 E6 06           ..    ldab 06,x
8170 BFD6 4F              O     clra
8171 BFD7 C3 0B 95        ...   addd #0b95
8172 BFDA 8F              .     xgdx
8173 BFDB 33              3     pulb
8174 BFDC E7 00           ..    stab 00,x
8175 goto32:
8176 BFDE F6 0B C0        ...   ldab 0bc0
8177 BFE1 C4 01           ..    andb #01
8178 BFE3 26 0E           &.    bne 0e      ; to bff3
8179 BFE5 F6 0B C0        ...   ldab 0bc0
8180 BFE8 C4 04           ..    andb #04
8181 BFEA 26 07           &.    bne 07      ; to bff3
8182 BFEC F6 0B C0        ...   ldab 0bc0
8183 BFEF C4 08           ..    andb #08
8184 BFF1 27 15           '.    beq 15      ; to c008
8185 BFF3 F6 00 17        ...   ldab 0017
8186 BFF6 C4 08           ..    andb #08
8187 BFF8 26 0E           &.    bne 0e      ; to c008
8188 ; plonk a dollar sign somewhere
8189 BFFA C6 24           .$    ldab #24    ; "$"
8190 BFFC 37              7     pshb
8191 BFFD 30              0     tsx
8192 BFFE E6 06           ..    ldab 06,x
8193 C000 4F              O     clra
8194 C001 C3 0B 96        ...   addd #0b96
8195 C004 8F              .     xgdx
8196 C005 33              3     pulb
8197 C006 E7 00           ..    stab 00,x
8198 C008 BD BE 69        ..i   jsr be69             ;displayreset
8199 C00B F6 00 13        ...   ldab 0013
8200 C00E C1 01           ..    cmpb #01
8201 C010 23 17           #.    bls 17
8202 C012 CE 10 28        ..(   ldx #1028
8203 C015 1C 00 40        ...   bset 00,x, #40 ; enable SPI send
8204 C018 CE 00 01        ...   ldx #0001
8205 C01B 3C              <     pshx
8206 C01C CC 00 20        ..    ldd #0020
8207 C01F BD BD B5        ...   jsr bdb5             ;jump78 - send space to display
8208 C022 38              8     pulx
8209 C023 CE 10 28        ..(   ldx #1028      ; disable SPI send
8210 C026 1D 00 40        ...   bclr 00,x, #40
8211 C029 BD BE 10        ...   jsr be10             ;jump88 - write buffer to display
8212 C02C 38              8     pulx
8213 C02D 39              9     rts
8214
8215 jump71:
8216 ; part of the display: function abstraction
8217 ; D points to a string, and the stack contains the length of the message
8218 ; Also seems to handle scrolling of long strings?
8219 C02E 37              7     pshb
8220 C02F 36              6     psha
8221 C030 3C              <     pshx
8222 ; need 002c to be zero to display stuff
8223 C031 F6 00 2C        ..,   ldab 002c
8224 C034 27 03           '.    beq 03
8225 C036 7E C0 B7        ~..   jmp c0b7             ;goto33 (bail out)
8226 ; if (0003 >= D)
8227 C039 FC 00 03        ...   ldd 0003
8228 C03C 30              0     tsx
8229 C03D A3 02           ..    subd 02,x
8230 C03F 25 0A           %.    bcs 0a       ; to c04b
8231 ;
8232 C041 E6 07           ..    ldab 07,x
8233 C043 4F              O     clra
8234 C044 E3 02           ..    addd 02,x
8235 C046 B3 00 03        ...   subd 0003
8236 C049 24 06           $.    bcc 06       ; to c051
8237 ; else
8238 C04B 30              0     tsx
8239 C04C EC 02           ..    ldd 02,x
8240 C04E FD 00 03        ...   std 0003
8241 C051 FE 00 03        ...   ldx 0003
8242 C054 08              .     inx
8243 C055 FF 00 03        ...   stx 0003
8244 C058 09              .     dex
8245 C059 8F              .     xgdx
8246 C05A 30              0     tsx
8247 C05B ED 00           ..    std 00,x
8248 C05D C6 09           ..    ldab #09
8249 C05F F7 00 18        ...   stab 0018
8250 C062 F6 00 18        ...   ldab 0018
8251 C065 C1 FF           ..    cmpb #ff
8252 C067 24 46           $F    bcc 46       ; to c0af (jump 70 - write string)
8253 C069 30              0     tsx
8254 C06A E6 07           ..    ldab 07,x
8255 C06C 4F              O     clra
8256 C06D E3 02           ..    addd 02,x
8257 C06F A3 00           ..    subd 00,x
8258 C071 24 05           $.    bcc 05
8259 C073 30              0     tsx
8260 C074 EC 02           ..    ldd 02,x
8261 C076 ED 00           ..    std 00,x
8262 C078 30              0     tsx
8263 C079 EE 00           ..    ldx 00,x
8264 C07B E6 00           ..    ldab 00,x
8265 C07D C1 40           .@    cmpb #40
8266 C07F 24 13           $.    bcc 13
8267 C081 30              0     tsx
8268 C082 EE 00           ..    ldx 00,x
8269 C084 E6 00           ..    ldab 00,x
8270 C086 37              7     pshb
8271 C087 F6 00 18        ...   ldab 0018
8272 C08A 4F              O     clra
8273 C08B C3 0B 90        ...   addd #0b90
8274 C08E 8F              .     xgdx
8275 C08F 33              3     pulb
8276 C090 E7 00           ..    stab 00,x
8277 C092 20 13            .    bra 13
8278 C094 30              0     tsx
8279 C095 EE 00           ..    ldx 00,x
8280 C097 E6 00           ..    ldab 00,x
8281 C099 CB C0           ..    addb #c0
8282 C09B 37              7     pshb
8283 C09C F6 00 18        ...   ldab 0018
8284 C09F 4F              O     clra
8285 C0A0 C3 0B 90        ...   addd #0b90
8286 C0A3 8F              .     xgdx
8287 C0A4 33              3     pulb
8288 C0A5 E7 00           ..    stab 00,x
8289 C0A7 38              8     pulx
8290 C0A8 08              .     inx
8291 C0A9 3C              <     pshx
8292 C0AA 7A 00 18        z..   dec 0018
8293 C0AD 20 B3            .    bra b3
8294 C0AF BD BE 01        ...   jsr be01             ;jump70
8295 C0B2 C6 03           ..    ldab #03
8296 C0B4 F7 00 2C        ..,   stab 002c
8297 goto33:
8298 C0B7 38              8     pulx
8299 C0B8 38              8     pulx
8300 C0B9 39              9     rts
8301
8302 ;Display a string.  D points to the string, which is NULL-terminated
8303
8304 display:
8305 C0BA 37              7     pshb
8306 C0BB 36              6     psha
8307 C0BC F6 00 1F        ...   ldab 001f
8308 C0BF C4 04           ..    andb #04
8309 C0C1 26 03           &.    bne 03
8310 C0C3 7F 00 2C        ..,   clr 002c
8311 C0C6 F6 00 2C        ..,   ldab 002c
8312 C0C9 26 13           &.    bne 13      ; to c0de
8313 C0CB 5F              _     clrb
8314 C0CC 4F              O     clra
8315 C0CD FD 00 03        ...   std 0003
8316 C0D0 7F 00 2C        ..,   clr 002c
8317 C0D3 CE 00 09        ...   ldx #0009
8318 C0D6 3C              <     pshx
8319 C0D7 30              0     tsx
8320 C0D8 EC 02           ..    ldd 02,x
8321 C0DA BD C0 2E        ...   jsr c02e             ;jump71
8322 C0DD 38              8     pulx
8323 C0DE 38              8     pulx
8324 C0DF 39              9     rts
8325
8326 jump94:
8327 C0E0 F6 00 15        ...   ldab 0015
8328 C0E3 2C 02           ,.    bge 02
8329 C0E5 20 F9            .    bra f9
8330 C0E7 CE 00 1D        ...   ldx #001d
8331 C0EA 1C 00 20        ..    bset 00,x, #20
8332 C0ED BD D7 30         .    jsr d730       ;jump202
8333 C0EE 83 00 00        .0.   subd #0000
8334 C0F3 27 09           '.    beq 09
8335 C0F5 CE 00 1D        ...   ldx #001d
8336 C0F8 1D 00 20        ..    bclr 00,x, #20
8337 C0FB 5F              .     clrb
8338 C0FC 4F              O     clra
8339 C0FD 39              9     rts
8340
8341 C0FE CE 00 14        ...   ldx #0014
8342 C101 1C 00 01        ...   bset 00,x, #01
8343 C104 F6 00 14        ...   ldab 0014
8344 C107 F7 38 00        .8.   stab 3800    ; note acceptor business
8345 C10A F6 00 15        ...   ldab 0015
8346 C10D C4 1F           ..    andb #1f
8347 C10F 26 03           &.    bne 03
8348 C111 7E C3 1B        ~..   jmp c31b             ;goto34
8349 C114 C6 14           ..    ldab #14
8350 C116 F7 00 31        ..1   stab 0031
8351 C119 F6 00 15        ...   ldab 0015
8352 C11C 2D 15           -.    blt 15
8353 C11E F6 00 31        ..1   ldab 0031
8354 C121 C1 0A           ..    cmpb #0a
8355 C123 22 0C           ".    bhi 0c
8356 C125 BD C5 D3        ...   jsr c5d3             ;jump6
8357 C128 CE 00 1D        ...   ldx #001d
8358 C12B 1D 00 20        ..    bclr 00,x, #20
8359 C12D 5F              _     clrb
8360 C12F 4F              O     clra
8361 C130 39              9     rts
8362
8363 C131 20 E6            .    bra e6
8364 C133 FC 00 3E        ..>   ldd 003e
8365 C136 F3 00 40        ..@   addd 0040
8366 C139 FD 00 40        ..@   std 0040
8367 C13C 5F              _     clrb
8368 C13D 4F              O     clra
8369 C13E FD 00 3E        ..>   std 003e
8370 C141 F6 00 15        ...   ldab 0015
8371 C144 C4 1F           ..    andb #1f
8372 C146 4F              O     clra
8373 C147 BD FE 32        ..2   jsr fe32             ;jump25
8374 C14A C1 64 00 01     ....  ; array data for jump25
8375 C14E C1 BA 00 01     ....
8376 C152 C2 10 00 02     ....
8377 C156 C2 66 00 04     .f..
8378 C15A C2 BB 00 08     ....
8379 C15E C3 0E FF F0     ....
8380 C162 00 00           ..    ; end of array data
8381 C164 FC 0C DD        ...   ldd 0cdd
8382 C167 83 FF FF        ...   subd #ffff
8383 C16A 26 05           &.    bne 05
8384 C16C 5F              _     clrb
8385 C16D 4F              O     clra
8386 C16E FD 0C DD        ...   std 0cdd
8387 C171 FE 0C DD        ...   ldx 0cdd
8388 C174 08              .     inx
8389 C175 FF 0C DD        ...   stx 0cdd
8390 C178 CE 00 64        ..d   ldx #0064
8391 C17B 3C              <     pshx
8392 C17C CC 00 00        ...   ldd #0000
8393 C17F 37              7     pshb
8394 C180 36              6     psha
8395 C181 CC 0C F3        ...   ldd #0cf3
8396 C184 BD FB DF        ...   jsr fbdf             ;jump46
8397 C187 31              1     ins
8398 C188 31              1     ins
8399 C189 FE 0C F5        ...   ldx 0cf5
8400 C18C 3C              <     pshx
8401 C18D FC 0C F3        ...   ldd 0cf3
8402 C190 37              7     pshb
8403 C191 36              6     psha
8404 C192 CE FF 9C        ...   ldx #ff9c
8405 C195 3C              <     pshx
8406 C196 CC 00 63        ..c   ldd #0063
8407 C199 30              0     tsx
8408 C19A A3 02           ..    subd 02,x
8409 C19C 32              2     pula
8410 C19D 33              3     pulb
8411 C19E 26 02           &.    bne 02
8412 C1A0 A3 04           ..    subd 04,x
8413 C1A2 38              8     pulx
8414 C1A3 38              8     pulx
8415 C1A4 24 11           $.    bcc 11
8416 C1A6 CE 00 64        ..d   ldx #0064
8417 C1A9 3C              <     pshx
8418 C1AA CC FF 9C        ...   ldd #ff9c
8419 C1AD 37              7     pshb
8420 C1AE 36              6     psha
8421 C1AF CC 0C F3        ...   ldd #0cf3
8422 C1B2 BD FB DF        ...   jsr fbdf             ;jump46
8423 C1B5 31              1     ins
8424 C1B6 31              1     ins
8425 C1B7 7E C3 0E        ~..   jmp c30e             ;goto35
8426 C1BA FC 0C DF        ...   ldd 0cdf
8427 C1BD 83 FF FF        ...   subd #ffff
8428 C1C0 26 05           &.    bne 05
8429 C1C2 5F              _     clrb
8430 C1C3 4F              O     clra
8431 C1C4 FD 0C DF        ...   std 0cdf
8432 C1C7 FE 0C DF        ...   ldx 0cdf
8433 C1CA 08              .     inx
8434 C1CB FF 0C DF        ...   stx 0cdf
8435 C1CE CE 00 C8        ...   ldx #00c8
8436 C1D1 3C              <     pshx
8437 C1D2 CC 00 00        ...   ldd #0000
8438 C1D5 37              7     pshb
8439 C1D6 36              6     psha
8440 C1D7 CC 0C F7        ...   ldd #0cf7
8441 C1DA BD FB DF        ...   jsr fbdf             ;jump46
8442 C1DD 31              1     ins
8443 C1DE 31              1     ins
8444 C1DF FE 0C F9        ...   ldx 0cf9
8445 C1E2 3C              <     pshx
8446 C1E3 FC 0C F7        ...   ldd 0cf7
8447 C1E6 37              7     pshb
8448 C1E7 36              6     psha
8449 C1E8 CE FF 38        ..8   ldx #ff38     ; -200
8450 C1EB 3C              <     pshx
8451 C1EC CC 00 C7        ...   ldd #00c7
8452 C1EF 30              0     tsx
8453 C1F0 A3 02           ..    subd 02,x
8454 C1F2 32              2     pula
8455 C1F3 33              3     pulb
8456 C1F4 26 02           &.    bne 02
8457 C1F6 A3 04           ..    subd 04,x
8458 C1F8 38              8     pulx
8459 C1F9 38              8     pulx
8460 C1FA 24 11           $.    bcc 11
8461 C1FC CE 00 C8        ...   ldx #00c8
8462 C1FF 3C              <     pshx
8463 C200 CC FF 38        ..8   ldd #ff38    ; -200
8464 C203 37              7     pshb
8465 C204 36              6     psha
8466 C205 CC 0C F7        ...   ldd #0cf7
8467 C208 BD FB DF        ...   jsr fbdf             ;jump46
8468 C20B 31              1     ins
8469 C20C 31              1     ins
8470 C20D 7E C3 0E        ~..   jmp c30e             ;goto35
8471 C210 FC 0C E1        ...   ldd 0ce1
8472 C213 83 FF FF        ...   subd #ffff
8473 C216 26 05           &.    bne 05
8474 C218 5F              _     clrb
8475 C219 4F              O     clra
8476 C21A FD 0C E1        ...   std 0ce1
8477 C21D FE 0C E1        ...   ldx 0ce1
8478 C220 08              .     inx
8479 C221 FF 0C E1        ...   stx 0ce1
8480 C224 CE 01 F4        ...   ldx #01f4
8481 C227 3C              <     pshx
8482 C228 CC 00 00        ...   ldd #0000
8483 C22B 37              7     pshb
8484 C22C 36              6     psha
8485 C22D CC 0C FB        ...   ldd #0cfb
8486 C230 BD FB DF        ...   jsr fbdf             ;jump46
8487 C233 31              1     ins
8488 C234 31              1     ins
8489 C235 FE 0C FD        ...   ldx 0cfd
8490 C238 3C              <     pshx
8491 C239 FC 0C FB        ...   ldd 0cfb
8492 C23C 37              7     pshb
8493 C23D 36              6     psha
8494 C23E CE FE 0C        ...   ldx #fe0c
8495 C241 3C              <     pshx
8496 C242 CC 01 F3        ...   ldd #01f3
8497 C245 30              0     tsx
8498 C246 A3 02           ..    subd 02,x
8499 C248 32              2     pula
8500 C249 33              3     pulb
8501 C24A 26 02           &.    bne 02
8502 C24C A3 04           ..    subd 04,x
8503 C24E 38              8     pulx
8504 C24F 38              8     pulx
8505 C250 24 11           $.    bcc 11
8506 C252 CE 01 F4        ...   ldx #01f4
8507 C255 3C              <     pshx
8508 C256 CC FE 0C        ...   ldd #fe0c
8509 C259 37              7     pshb
8510 C25A 36              6     psha
8511 C25B CC 0C FB        ...   ldd #0cfb
8512 C25E BD FB DF        ...   jsr fbdf             ;jump46
8513 C261 31              1     ins
8514 C262 31              1     ins
8515 C263 7E C3 0E        ~..   jmp c30e             ;goto35
8516 C266 FC 0C E3        ...   ldd 0ce3
8517 C269 83 FF FF        ...   subd #ffff
8518 C26C 26 05           &.    bne 05
8519 C26E 5F              _     clrb
8520 C26F 4F              O     clra
8521 C270 FD 0C E3        ...   std 0ce3
8522 C273 FE 0C E3        ...   ldx 0ce3
8523 C276 08              .     inx
8524 C277 FF 0C E3        ...   stx 0ce3
8525 C27A CE 03 E8        ...   ldx #03e8
8526 C27D 3C              <     pshx
8527 C27E CC 00 00        ...   ldd #0000
8528 C281 37              7     pshb
8529 C282 36              6     psha
8530 C283 CC 0C FF        ...   ldd #0cff
8531 C286 BD FB DF        ...   jsr fbdf             ;jump46
8532 C289 31              1     ins
8533 C28A 31              1     ins
8534 C28B FE 0D 01        ...   ldx 0d01
8535 C28E 3C              <     pshx
8536 C28F FC 0C FF        ...   ldd 0cff
8537 C292 37              7     pshb
8538 C293 36              6     psha
8539 C294 CE FC 18        ...   ldx #fc18
8540 C297 3C              <     pshx
8541 C298 CC 03 E7        ...   ldd #03e7
8542 C29B 30              0     tsx
8543 C29C A3 02           ..    subd 02,x
8544 C29E 32              2     pula
8545 C29F 33              3     pulb
8546 C2A0 26 02           &.    bne 02
8547 C2A2 A3 04           ..    subd 04,x
8548 C2A4 38              8     pulx
8549 C2A5 38              8     pulx
8550 C2A6 24 11           $.    bcc 11
8551 C2A8 CE 03 E8        ...   ldx #03e8
8552 C2AB 3C              <     pshx
8553 C2AC CC FC 18        ...   ldd #fc18
8554 C2AF 37              7     pshb
8555 C2B0 36              6     psha
8556 C2B1 CC 0C FF        ...   ldd #0cff
8557 C2B4 BD FB DF        ...   jsr fbdf             ;jump46
8558 C2B7 31              1     ins
8559 C2B8 31              1     ins
8560 C2B9 20 53            S    bra 53
8561 C2BB FC 0C E5        ...   ldd 0ce5
8562 C2BE 83 C3 4F        ..O   subd #c34f
8563 C2C1 26 05           &.    bne 05
8564 C2C3 5F              _     clrb
8565 C2C4 4F              O     clra
8566 C2C5 FD 0C E5        ...   std 0ce5
8567 C2C8 FE 0C E5        ...   ldx 0ce5
8568 C2CB 08              .     inx
8569 C2CC FF 0C E5        ...   stx 0ce5
8570 C2CF CE 07 D0        ...   ldx #07d0
8571 C2D2 3C              <     pshx
8572 C2D3 CC 00 00        ...   ldd #0000
8573 C2D6 37              7     pshb
8574 C2D7 36              6     psha
8575 C2D8 CC 0D 03        ...   ldd #0d03
8576 C2DB BD FB DF        ...   jsr fbdf             ;jump46
8577 C2DE 31              1     ins
8578 C2DF 31              1     ins
8579 C2E0 FE 0D 05        ...   ldx 0d05
8580 C2E3 3C              <     pshx
8581 C2E4 FC 0D 03        ...   ldd 0d03
8582 C2E7 37              7     pshb
8583 C2E8 36              6     psha
8584 C2E9 CE D9 30        ..0   ldx #d930
8585 C2EC 3C              <     pshx
8586 C2ED CC 05 F5        ...   ldd #05f5
8587 C2F0 30              0     tsx
8588 C2F1 A3 02           ..    subd 02,x
8589 C2F3 32              2     pula
8590 C2F4 33              3     pulb
8591 C2F5 26 02           &.    bne 02
8592 C2F7 A3 04           ..    subd 04,x
8593 C2F9 38              8     pulx
8594 C2FA 38              8     pulx
8595 C2FB 24 11           $.    bcc 11
8596 C2FD CE 26 D0        .&.   ldx #26d0
8597 C300 3C              <     pshx
8598 C301 CC FA 0A        ...   ldd #fa0a
8599 C304 37              7     pshb
8600 C305 36              6     psha
8601 C306 CC 0D 03        ...   ldd #0d03
8602 C309 BD FB DF        ...   jsr fbdf             ;jump46
8603 C30C 31              1     ins
8604 C30D 31              1     ins
8605 goto35:
8606 C30E F6 00 15        ...   ldab 0015
8607 C311 2C 02           ,.    bge 02
8608 C313 20 F9            .    bra f9
8609 C315 CE 00 15        ...   ldx #0015
8610 C318 1D 00           ..    bclr add,x 00,x
8611 C31A 1F CE 00 1D     ....  brclr ce,x 00 1d
8612 ;goto34
8613 ; c31b???
8614 C31E 1D 00           ..    bclr add,x 00,x
8615 C320 20 CC            .    bra cc
8616 C322 00              .     test
8617 C323 01              .     nop
8618 C324 39              9     rts
8619
8620 jump64:
8621 C325 F6 10 00        ...   ldab 1000
8622 C328 C4 01           ..    andb #01
8623 C32A 26 13           &.    bne 13
8624 C32C 7C 00 7D        |.}   inc 007d
8625 C32F F6 00 7D        ..}   ldab 007d
8626 C332 C1 05           ..    cmpb #05
8627 C334 23 03           #.    bls 03
8628 C336 7F 00 7D        ..}   clr 007d
8629 C339 7F 00 7E        ..~   clr 007e
8630 C33C 7E C4 2F        ~./   jmp c42f             ;goto36
8631 C33F 7C 00 7E        |.~   inc 007e
8632 C342 F6 00 7E        ..~   ldab 007e
8633 C345 C1 07           ..    cmpb #07
8634 C347 23 17           #.    bls 17
8635 C349 7F 00 7D        ..}   clr 007d
8636 C34C 7F 00 7E        ..~   clr 007e
8637 C34F 7F 00 7C        ..|   clr 007c
8638 C352 F6 00 15        ...   ldab 0015
8639 C355 2C 03           ,.    bge 03
8640 C357 7F 00 2C        ..,   clr 002c
8641 C35A CE 00 15        ...   ldx #0015
8642 C35D 1D 00 80        ..    bclr 00,x, #80
8643 C35F F6 00 7E        ...   ldab 007e
8644 C363 26 03           ..    bne 03     ; to c368
8645 C365 7E C4 2F        ~./   jmp c42f             ;goto36
8646 C368 F6 00 7D        ..}   ldab 007d
8647 C36B C1 01           ..    cmpb #01
8648 C36D 22 03           ".    bhi 03
8649 C36F 7E C4 2F        ~./   jmp c42f             ;goto36
8650 C372 CE 00 15        ...   ldx #0015
8651 C375 1C 00 80        ..    bset 00,x, #80
8652 C378 CE 0B C1        ...   ldx #0bc1
8653 C37B 1D 00 08        ..    bclr 00,x #08
8654 C37E F6 00 1D        ...   ldab 001d
8655 C381 C4 20           .     andb #20
8656 C383 27 03           '.    beq 03
8657 C385 7E C4 29        ~.)   jmp c429             ;goto38
8658 C388 C6 02           ..    ldab #02
8659 C38A F7 00 2C        ..,   stab 002c
8660 C38D 7F 00 3A        ..:   clr 003a
8661 C390 CE 00 1B        ...   ldx #001b
8662 C393 1D 00 40        ..    bclr 00,x, #40
8663 C396 7F 00 25        ..%   clr 0025
8664 C399 CE 00 21        ..!   ldx #0021
8665 C39C 1D 00 08        ...   bclr 00,x, #08
8666 C39F CE 00 14        ...   ldx #0014
8667 C3A2 1D 00 01        ..    bclr 00,x, #01
8668 C3A5 F6 00 14        ...   ldab 0014
8669 C3A8 F7 38 00        .8.   stab 3800        ; note acceptor business
8670 C3AB 7C 00 7C        |.|   inc 007c
8671 C3AE CE 00 15        ...   ldx #0015
8672 C3B1 1D 00 1F        ..    bclr 00,x, #1f
8673 C3B4 F6 00 7C        ..|   ldab 007c
8674 C3B7 C1 01           ..    cmpb #01
8675 C3B9 26 0E           &.    bne 0e
8676 C3BB CE 00 15        ...   ldx #0015
8677 C3BE 1C 00 01        ..    bset 00,x, #01
8678 C3C1 CC 00 64        ..d   ldd #0064
8679 C3C4 FD 00 3E        ..>   std 003e
8680 C3C7 20 60            `    bra 60
8681 C3C9 F6 00 7C        ..|   ldab 007c
8682 C3CC C1 02           ..    cmpb #02
8683 C3CE 26 0E           &.    bne 0e
8684 C3D0 CE 00 15        ...   ldx #0015
8685 C3D3 1C 00 02        ..    bset 00,x, #02
8686 C3D6 CC 00 C8        ...   ldd #00c8
8687 C3D9 FD 00 3E        ..>   std 003e
8688 C3DC 20 4B            K    bra 4b
8689 C3DE F6 00 7C        ..|   ldab 007c
8690 C3E1 C1 02           ..    cmpb #02
8691 C3E3 23 15           #.    bls 15
8692 C3E5 F6 00 7C        ..|   ldab 007c
8693 C3E8 C1 06           ..    cmpb #06
8694 C3EA 24 0E           $.    bcc 0e
8695 C3EC CE 00 15        ...   ldx #0015
8696 C3EF 1C 00           ..    bset 00,x, #04
8697 C3F2 CC 01 F4        ...   ldd #01f4
8698 C3F5 FD 00 3E        ..>   std 003e
8699 C3F8 20 2F            /    bra 2f
8700 C3FA F6 00 7C        ..|   ldab 007c
8701 C3FD C1 05           ..    cmpb #05
8702 C3FF 23 15           #.    bls 15
8703 C401 F6 00 7C        ..|   ldab 007c
8704 C404 C1 0B           ..    cmpb #0b
8705 C406 24 0E           $.    bcc 0e
8706 C408 CE 00 15        ...   ldx #0015
8707 C40B 1C 00 08        ..    bset 00,x, #08
8708 C40E CC 03 E8        ...   ldd #03e8
8709 C411 FD 00 3E        ..>   std 003e
8710 C414 20 13            .    bra 13      ; to c429
8711 C416 F6 00 7C        ..|   ldab 007c
8712 C419 C1 0B           ..    cmpb #0b
8713 C41B 23 0C           #.    bls 0c
8714 C41D CE 00 15        ...   ldx #0015
8715 C420 1C 00 10        ..    bset 00,x, #10
8716 C423 CC 07 D0        ...   ldd #07d0
8717 C426 FD 00 3E        ..>   std 003e
8718 goto38:
8719 C429 7F 00 7D        ..}   clr 007d
8720 C42C 7F 00 7E        ..~   clr 007e
8721 goto36:
8722 C42F 39              9     rts
8723
8724 jump26:
8725 ; tweaks the changer output lines (at 3000) that correspond with the bitmask of
8726 ; 0001. It pulls the lines with 1 set in the bitmask low (active) for 100ms
8727 C430 F6 00 01        ...   ldab 0001
8728 C433 53              S     comb
8729 C434 F4 00 1A        ...   andb 001a    ; 0x3000 buffer - changer outputs
8730 C437 F7 00 1A        ...   stab 001a
8731 C43A F6 00 1A        ...   ldab 001a
8732 C43D F7 30 00        .0.   stab 3000    ; coin mask
8733 C440 CC 00 64        ..d   ldd #0064
8734 C443 BD E5 71        ..q   jsr e571             ;msdelay
8735 C446 F6 00 01        ...   ldab 0001
8736 C449 FA 00 1A        ...   orb 001a
8737 C44C F7 00 1A        ...   stab 001a
8738 C44F F6 00 1A        ...   ldab 001a
8739 C452 F7 30 00        .0.   stab 3000    ; changer outputs again
8740 C455 39              9     rts
8741
8742 jump47:
8743 C456 FC 00 40        ..@   ldd 0040
8744 C459 26 03           &.    bne 03
8745 C45B 7E C5 C6        ~..   jmp c5c6             ;goto39
8746 C45E CE 00 1A        ...   ldx #001a
8747 C461 1C 00 01        ..    bset 00,x, #01
8748 C464 F6 00 1A        ...   ldab 001a
8749 C467 F7 30 00        .0.   stab 3000    ; changer accept off
8750 C46A CC 03 E8        ...   ldd #03e8
8751 C46D BD E5 71        ..q   jsr e571             ;msdelay
8752 goto42:
8753 C470 FC 00 40        ..@   ldd 0040
8754 C473 83 00 00        ...   subd #0000
8755 C476 22 03           ".    bhi 03
8756 C478 7E C5 B0        ~..   jmp c5b0             ;goto40
8757 C47B F6 00 1B        ...   ldab 001b
8758 C47E C4 20           .     andb #20
8759 C480 27 1B           '.    beq 1b
8760 C482 FC 00 40        ..@   ldd 0040
8761 C485 83 03 E8        ...   subd #03e8
8762 C488 25 13           %.    bcs 13
8763 C48A C6 28           .(    ldab #28
8764 C48C F7 00 01        ...   stab 0001
8765 C48F CC FC 18        ...   ldd #fc18
8766 C492 F3 00 40        ..@   addd 0040
8767 C495 FD 00 40        ..@   std 0040
8768 C498 8D 96           ..    bsr dest 96
8769 C49A 7E C5 7C        ~.|   jmp c57c             ;goto41
8770 C49D F6 00 1B        ...   ldab 001b
8771 C4A0 C4 20           .     andb #20
8772 C4A2 27 1C           '.    beq 1c
8773 C4A4 FC 00 40        ..@   ldd 0040
8774 C4A7 83 00 64        ..d   subd #0064
8775 C4AA 25 14           %.    bcs 14
8776 C4AC C6 30           .0    ldab #30
8777 C4AE F7 00 01        ...   stab 0001
8778 C4B1 CC FF 9C        ...   ldd #ff9c
8779 C4B4 F3 00 40        ..@   addd 0040
8780 C4B7 FD 00 40        ..@   std 0040
8781 C4BA BD C4 30        ..0   jsr c430             ;jump26
8782 C4BD 7E C5 7C        ~.|   jmp c57c             ;goto41
8783 C4C0 FC 0B DD        ...   ldd 0bdd
8784 C4C3 27 3C           '<    beq 3c
8785 C4C5 FC 00 40        ..@   ldd 0040
8786 C4C8 B3 0B DD        ...   subd 0bdd
8787 C4CB 25 34           %4    bcs 34
8788 C4CD F6 0C DB        ...   ldab 0cdb
8789 C4D0 26 07           &.    bne 07
8790 C4D2 F6 00 1B        ...   ldab 001b
8791 C4D5 C4 20           .     andb #20
8792 C4D7 27 28           '(    beq 28
8793 C4D9 FC 0B DD        ...   ldd 0bdd
8794 C4DC 53              S     comb
8795 C4DD 43              C     coma
8796 C4DE F9 00 41        ..A   adcb 0041
8797 C4E1 B9 00 40        ..@   adca 0040
8798 C4E4 FD 00 40        ..@   std 0040
8799 C4E7 F6 0B DA        ...   ldab 0bda
8800 C4EA F7 00 01        ...   stab 0001
8801 C4ED BD C4 30        ..0   jsr c430             ;jump26
8802 C4F0 F6 00 1B        ...   ldab 001b
8803 C4F3 C4 20           .     andb #20
8804 C4F5 26 08           &.    bne 08
8805 C4F7 F6 0C DB        ...   ldab 0cdb
8806 C4FA 27 03           '.    beq 03
8807 C4FC 7A 0C DB        z..   dec 0cdb
8808 C4FF 20 7B            {    bra 7b
8809 C501 FC 0B DF        ...   ldd 0bdf
8810 C504 27 3C           '<    beq 3c
8811 C506 FC 00 40        ..@   ldd 0040
8812 C509 B3 0B DF        ...   subd 0bdf
8813 C50C 25 34           %4    bcs 34
8814 C50E F6 0C DA        ...   ldab 0cda
8815 C511 26 07           &.    bne 07
8816 C513 F6 00 1B        ...   ldab 001b
8817 C516 C4 20           .     andb #20
8818 C518 27 28           '(    beq 28
8819 C51A FC 0B DF        ...   ldd 0bdf
8820 C51D 53              S     comb
8821 C51E 43              C     coma
8822 C51F F9 00 41        ..A   adcb 0041
8823 C522 B9 00 40        ..@   adca 0040
8824 C525 FD 00 40        ..@   std 0040
8825 C528 F6 0B DB        ...   ldab 0bdb
8826 C52B F7 00 01        ...   stab 0001
8827 C52E BD C4 30        ..0   jsr c430             ;jump26
8828 C531 F6 00 1B        ...   ldab 001b
8829 C534 C4 20           .     andb #20
8830 C536 26 08           &.    bne 08
8831 C538 F6 0C DA        ...   ldab 0cda
8832 C53B 27 03           '.    beq 03
8833 C53D 7A 0C DA        z..   dec 0cda
8834 C540 20 3A            :    bra 3a
8835 C542 FC 0B E1        ...   ldd 0be1
8836 C545 27 30           '0    beq 30
8837 C547 FC 00 40        ..@   ldd 0040
8838 C54A B3 0B E1        ...   subd 0be1
8839 C54D 25 28           %(    bcs 28
8840 C54F FC 0B E1        ...   ldd 0be1
8841 C552 53              S     comb
8842 C553 43              C     coma
8843 C554 F9 00 41        ..A   adcb 0041
8844 C557 B9 00 40        ..@   adca 0040
8845 C55A FD 00 40        ..@   std 0040
8846 C55D F6 0B DC        ...   ldab 0bdc
8847 C560 F7 00 01        ...   stab 0001
8848 C563 BD C4 30        ..0   jsr c430             ;jump26
8849 C566 F6 00 1B        ...   ldab 001b
8850 C569 C4 20           .     andb #20
8851 C56B 26 08           &.    bne 08
8852 C56D F6 0C D9        ...   ldab 0cd9
8853 C570 27 03           '.    beq 03
8854 C572 7A 0C D9        z..   dec 0cd9
8855 C575 20 05            .    bra 05
8856 C577 5F              _     clrb
8857 C578 4F              O     clra
8858 C579 FD 00 40        ..@   std 0040
8859 goto41:
8860 C57C CC 01 2C        ..,   ldd #012c
8861 C57F BD E5 71        ..q   jsr e571             ;msdelay
8862 C582 F6 00 1B        ...   ldab 001b
8863 C585 C4 20           .     andb #20
8864 C587 26 24           &$    bne 24
8865 C589 CE 00 1A        ...   ldx #001a
8866 C58C 1D 00 01        ..    bclr 00,x, #01
8867 C58F F6 00 1A        ...   ldab 001a
8868 C592 F7 30 00        .0.   stab 3000    ; changer accept' low
8869 C595 CC 00 0C        ...   ldd #000c
8870 C598 BD E5 71        ..q   jsr e571             ;msdelay
8871 C59B CE 00 1A        ...   ldx #001a
8872 C59E 1C 00 01        ..    bset 00,x, #01
8873 C5A1 F6 00 1A        ...   ldab 001a
8874 C5A4 F7 30 00        .0.   stab 3000    ; changer accept' high
8875 C5A7 CC 00 23        ..#   ldd #0023
8876 C5AA BD E5 71        ..q   jsr e571             ;msdelay
8877 C5AD 7E C4 70        ~.p   jmp c470             ;goto42
8878 goto40:
8879 C5B0 F6 0B C0        ...   ldab 0bc0
8880 C5B3 C4 04           ..    andb #04
8881 C5B5 27 0F           '.    beq 0f
8882 C5B7 F6 00 1B        ...   ldab 001b
8883 C5BA C4 20           .     andb #20
8884 C5BC 27 08           '.    beq 08
8885 C5BE C6 38           .8    ldab #38
8886 C5C0 F7 00 01        ...   stab 0001
8887 C5C3 BD C4 30        ..0   jsr c430             ;jump26
8888 goto39:
8889 C5C6 CE 00 21        ..!   ldx #0021
8890 C5C9 1D 00 10        ...   bclr 00,x, #10
8891 C5CC CE 00 1B        ...   ldx #001b
8892 C5CF 1D 00           ..    bclr add,x 00,x
8893 C5D1 20 39            9    bra 39
8894
8895 jump6:
8896 C5D3 F6 00 15        ...   ldab 0015
8897 C5D6 C4 1F           ..    andb #1f
8898 C5D8 26 03           &.    bne 03
8899 C5DA 7E C6 7C        ~.|   jmp c67c             ;goto43
8900 C5DD CC 00 C8        ...   ldd #00c8
8901 C5E0 BD E5 71        ..q   jsr e571             ;msdelay
8902 C5E3 FC 00 3E        ..>   ldd 003e
8903 C5E6 27 58           'X    beq 58
8904 C5E8 F6 00 15        ...   ldab 0015
8905 C5EB C4 1F           ..    andb #1f
8906 C5ED 4F              O     clra
8907 C5EE BD FE 32        ..2   jsr fe32             ;jump25
8908 C5F1 C6 0B 00 01     ..    ; array data for jump25
8909 C5F5 C6 16 00 01     ..
8910 C5F9 C6 21 00 02     .!
8911 C5FD C6 2C 00 04     .,
8912 C601 C6 37 00 08     .7
8913 C605 C6 40 FF F0     .@
8914 C609 00 00           ..    ;end of array data
8915 C60B CC FF 9C        ...   ldd #ff9c
8916 C60E F3 00 3E        ..>   addd 003e
8917 C611 FD 00 3E        ..>   std 003e
8918 C614 20 2A            *    bra 2a
8919 C616 CC FF 38        ..8   ldd #ff38
8920 C619 F3 00 3E        ..>   addd 003e
8921 C61C FD 00 3E        ..>   std 003e
8922 C61F 20 1F            .    bra 1f
8923 C621 CC FE 0C        ...   ldd #fe0c
8924 C624 F3 00 3E        ..>   addd 003e
8925 C627 FD 00 3E        ..>   std 003e
8926 C62A 20 14            .    bra 14
8927 C62C CC FC 18        ...   ldd #fc18
8928 C62F F3 00 3E        ..>   addd 003e
8929 C632 FD 00 3E        ..>   std 003e
8930 C635 20 09            .    bra 09
8931 C637 CC F8 30        ..0   ldd #f830
8932 C63A F3 00 3E        ..>   addd 003e
8933 C63D FD 00 3E        ..>   std 003e
8934 C640 CE 00 14        ...   ldx #0014
8935 C643 1D 00 02        ...   bclr 00,x, #02
8936 C646 F6 00 14        ...   ldab 0014
8937 C649 F7 38 00        .8.   stab 3800    ; bill acceptor
8938 C64C CC 00 1E        ...   ldd #001e
8939 C64F BD E5 71        ..q   jsr e571             ;msdelay
8940 C652 CE 00 15        ...   ldx #0015
8941 C655 1D 00           ..    bclr add,x 00,x
8942 C657 1F CE 00 14     ....  brclr ce,x 00 14
8943 C65B 1C 00 02        ...   bset 00,x, #02
8944 C65E F6 00 14        ...   ldab 0014
8945 C661 F7 38 00        .8.   stab 3800    ; bill acceptor
8946 C664 CC 00 19        ...   ldd #0019
8947 C667 BD E5 71        ..q   jsr e571             ;msdelay
8948 C66A CE 00 14        ...   ldx #0014
8949 C66D 1C 00 01        ..    bset 00,x, #01
8950 C670 F6 00 14        ...   ldab 0014
8951 C673 F7 38 00        .8.   stab 3800    ; bill acceptor
8952 C676 CC 00 19        ...   ldd #0019
8953 C679 BD E5 71        ..q   jsr e571             ;msdelay
8954 goto43:
8955 C67C 39              9     rts
8956
8957 jump124:
8958 ; chat to changer
8959 C67D F6 00 30        ..0   ldab 0030
8960 C680 26 55           &U    bne 55
8961 C682 F6 0B C0        ...   ldab 0bc0
8962 C685 C4 04           ..    andb #04
8963 C687 26 4E           &N    bne 4e
8964 C689 C6 27           .'    ldab #27
8965 C68B F7 10 2D        ..-   stab 102d    ; disable SCI transmission
8966 C68E C6 07           ..    ldab #07
8967 C690 F7 10 2B        ..+   stab 102b    ; 600 baud
8968 C693 CE 00 1A        ...   ldx #001a
8969 C696 1C 00           ..    bset 00,x, #04
8970 C699 F6 00 1A        ...   ldab 001a
8971 C69C F7 30 00        .0.   stab 3000    ; keypad strobe
8972 C69F CC 00 14        ...   ldd #0014
8973 C6A2 BD E5 71        ..q   jsr e571             ;msdelay
8974 C6A5 F6 0B C0        ...   ldab 0bc0
8975 C6A8 C4 01           ..    andb #01
8976 C6AA 27 06           '.    beq 06
8977 C6AC CE 0B C1        ...   ldx #0bc1
8978 C6AF 1C 00 01        ...   bset 00,x, #01
8979 C6B2 F6 0B C0        ...   ldab 0bc0
8980 C6B5 C4 04           ..    andb #04
8981 C6B7 27 06           '.    beq 06
8982 C6B9 CE 0B C1        ...   ldx #0bc1
8983 C6BC 1C 00 02        ...   bset 00,x, #02
8984 C6BF CE 00 1A        ...   ldx #001a
8985 C6C2 1D 00 04        ...   bclr 00,x, #04  ; keypad strobe finish
8986 C6C5 F6 00 1A        ...   ldab 001a
8987 C6C8 F7 30 00        .0.   stab 3000
8988 C6CB C6 96           ..    ldab #96
8989 C6CD F7 00 30        ..0   stab 0030
8990 C6D0 C6 1E           ..    ldab #1e
8991 C6D2 F7 00 35        ..5   stab 0035
8992 C6D5 20 5D            ]    bra 5d
8993 C6D7 F6 18 00        ...   ldab 1800
8994 C6DA 2D 2A           -*    blt 2a
8995 C6DC F6 00 07        ...   ldab 0007
8996 C6DF 26 25           &%    bne 25
8997 C6E1 CE 00 1A        ...   ldx #001a
8998 C6E4 1D 00 02        ...   bclr 00,x, #02
8999 C6E7 F6 00 1A        ...   ldab 001a
9000 C6EA F7 30 00        .0.   stab 3000       ; changer send' low
9001 C6ED C6 64           .d    ldab #64
9002 C6EF F7 00 2D        ..-   stab 002d
9003 C6F2 CC 00 32        ..2   ldd #0032
9004 C6F5 BD E5 71        ..q   jsr e571             ;msdelay
9005 C6F8 CE 00 1A        ...   ldx #001a
9006 C6FB 1C 00 02        ...   bset 00,x, #02
9007 C6FE F6 00 1A        ...   ldab 001a
9008 C701 F7 30 00        .0.   stab 3000       ; changer send' high
9009 C704 20 2E            .    bra 2e
9010 C706 F6 00 2D        ..-   ldab 002d
9011 C709 26 29           &)    bne 29
9012 C70B CE 00 1A        ...   ldx #001a
9013 C70E 1D 00 01        ...   bclr 00,x, #01
9014 C711 F6 00 1A        ...   ldab 001a
9015 C714 F7 30 00        .0.   stab 3000     ; changer accept' low
9016 C717 CC 00 0C        ...   ldd #000c
9017 C71A BD E5 71        ..q   jsr e571             ;msdelay
9018 C71D CE 00 1A        ...   ldx #001a
9019 C720 1C 00 01        ...   bset 00,x, #01
9020 C723 F6 00 1A        ...   ldab 001a
9021 C726 F7 30 00        .0.   stab 3000     ; changer accept' high
9022 C729 CC 00 23        ..#   ldd #0023
9023 C72C BD E5 71        ..q   jsr e571             ;msdelay
9024 C72F C6 64           .d    ldab #64
9025 C731 F7 00 2D        ..-   stab 002d
9026 C734 F6 00 21        ..!   ldab 0021
9027 C737 C4 10           ..    andb #10
9028 C739 27 45           'E    beq 45
9029 C73B F6 00 11        ...   ldab 0011
9030 C73E C4 04           ..    andb #04
9031 C740 26 1A           &.    bne 1a
9032 C742 FC 00 40        ..@   ldd 0040
9033 C745 F3 00 3E        ..>   addd 003e
9034 C748 B3 00 50        ..P   subd 0050
9035 C74B 25 0F           %.    bcs 0f
9036 C74D F6 0B C0        ...   ldab 0bc0
9037 C750 C4 04           ..    andb #04
9038 C752 26 08           &.    bne 08
9039 C754 CE 00 21        ..!   ldx #0021
9040 C757 1D 00 10        ...   bclr 00,x, #10
9041 C75A 20 24            $    bra 24
9042 C75C F6 0B C0        ...   ldab 0bc0
9043 C75F C4 08           ..    andb #08
9044 C761 27 03           '.    beq 03
9045 C763 BD C5 D3        ...   jsr c5d3             ;jump6
9046 C766 FC 0B DD        ...   ldd 0bdd
9047 C769 26 12           &.    bne 12
9048 C76B FC 0B DF        ...   ldd 0bdf
9049 C76E 26 0D           &.    bne 0d
9050 C770 FC 0B E1        ...   ldd 0be1
9051 C773 26 08           &.    bne 08
9052 C775 CE 00 21        ..!   ldx #0021
9053 C778 1D 00 10        ...   bclr 00,x, #10
9054 C77B 20 03            .    bra 03
9055 C77D BD C4 56        ..V   jsr c456             ;jump47
9056 C780 F6 00 15        ...   ldab 0015
9057 C783 2D 08           -.    blt 08
9058 C785 CE 00 21        ..!   ldx #0021
9059 C788 1C 00 08        ...   bset 00,x, #08
9060 C78B 20 06            .    bra 06
9061 C78D CE 00 21        ..!   ldx #0021
9062 C790 1D 00 08        ...   bclr 00,x, #08
9063 C793 39              9     rts
9064
9065 ;proc(a,b) var local
9066 ;local=0
9067 ;while b<>0
9068 ;
9069 ;endwhile
9070 ;return local
9071
9072 ; tests parity?
9073 C794 37              7     pshb
9074 C795 36              6     psha
9075 C796 34              4     des          ;stack: 0=local, 1=A, 2=B
9076 C797 30              0     tsx
9077 C798 6F 00           o.    clr 00,x
9078 loop:
9079 C79A 30              0     tsx
9080 C79B E6 02           ..    ldab 02,x
9081 C79D 27 1A           '.    beq exit     ;c7b9
9082 C79F 30              0     tsx
9083 C7A0 1F 02 01 0D     ....  brclr 02,x 01 skip   ;c7b1
9084 C7A4 30              0     tsx
9085 C7A5 E6 00           ..    ldab 00,x
9086 C7A7 27 05           '.    beq else     ;c7ae
9087 C7A9 30              0     tsx
9088 C7AA 6A 00           j.    dec 00,x
9089 C7AC 20 03            .    bra skip     ;c7b1
9090 else:
9091 C7AE 30              0     tsx
9092 C7AF 6C 00           l.    inc 00,x
9093 skip:
9094 C7B1 30              0     tsx
9095 C7B2 E6 02           ..    ldab 02,x
9096 C7B4 54              T     lsrb
9097 C7B5 E7 02           ..    stab 02,x
9098 C7B7 20 E1            .    bra loop     ;c79a
9099 exit:
9100 C7B9 30              0     tsx
9101 C7BA E6 00           ..    ldab 00,x
9102 C7BC 4F              O     clra
9103 C7BD 38              8     pulx
9104 C7BE 31              1     ins
9105 C7BF 39              9     rts
9106
9107 jump49:
9108 ; parity tester. returns 0 if good
9109 C7C0 F6 10 2F        ../   ldab 102f            ; sci data
9110 C7C3 4F              O     clra
9111 C7C4 8D CE           ..    bsr c794         ; parity test?
9112 C7C6 83 00 00        ...   subd #0000
9113 C7C9 27 05           '.    beq 05
9114 C7CB F6 10 2C        ..,   ldab 102c        ; test the 9th bit
9115 C7CE 2D 10           -.    blt 10           ; to c7e0
9116 C7D0 F6 10 2F        ../   ldab 102f            ; sci data
9117 C7D3 4F              O     clra
9118 C7D4 8D BE           ..    bsr c794         ; parity test?
9119 C7D6 83 00 00        ...   subd #0000
9120 C7D9 26 09           &.    bne 09           ; to c7e4
9121 C7DB F6 10 2C        ..,   ldab 102c        ; test the 9th bit
9122 C7DE 2D 04           -.    blt 04
9123 C7E0 CC 00 01        ...   ldd #0001        ; return 1
9124 C7E3 39              9     rts
9125 ; return 0
9126 C7E4 5F              _     clrb
9127 C7E5 4F              O     clra
9128 C7E6 39              9     rts
9129
9130
9131 ;this might send a byte to the serial port
9132 jump37:
9133 C7E7 37              7     pshb
9134 C7E8 36              6     psha
9135 C7E9 C6 32           .2    ldab #32    ; 50
9136 C7EB F7 00 31        ..1   stab 0031
9137 C7EE 30              0     tsx
9138 C7EF E6 01           ..    ldab 01,x
9139 C7F1 F7 00 43        ..C   stab 0043
9140 ; poll the TD register empty flag until it's set
9141 C7F4 F6 10 2E        ...   ldab 102e
9142 C7F7 2D 02           -.    blt 02      ; transmit data register empty
9143 C7F9 20 F9            .    bra f9      ; to c7f4
9144 ;
9145 C7FB 30              0     tsx
9146 C7FC E6 01           ..    ldab 01,x
9147 C7FE 4F              O     clra
9148 C7FF 8D 93           ..    bsr 93 ; to c794 - generate parity bit?
9149 C801 83 00 00        ...   subd #0000
9150 C804 27 08           '.    beq 08
9151 C806 CE 10 2C        ..,   ldx #102c
9152 C809 1C 00 40        ...   bset 00,x, #40   ; set the 9th bit
9153 C80C 20 06            .    bra 06
9154 C80E CE 10 2C        ..,   ldx #102c    ;SCI control 1
9155 C811 1D 00 40        ...   bclr 00,x, #40   ; clear the 9th bit
9156 C814 30              0     tsx
9157 C815 E6 01           ..    ldab 01,x
9158 C817 F7 10 2F        ../   stab 102f     ; send to serial port
9159 C81A 38              8     pulx
9160 C81B 39              9     rts
9161
9162
9163
9164
9165 sciinterrupt:
9166 C81C 34              4     des
9167 C81D F6 0B C0        ...   ldab 0bc0
9168 C820 C4 01           ..    andb #01
9169 C822 26 0A           &.    bne 0e       ; to c82e
9170 C824 F6 0B C0        ...   ldab 0bc0
9171 C827 C4 04           ..    andb #04
9172 C829 26 03           &.    bne 03       ; to c82e
9173 C82B 7E CB FF        ~..   jmp cbff             ;goto44
9174 C82E C6 96           ..    ldab #96     ; 150
9175 C830 F7 00 30        ..0   stab 0030
9176 C833 F6 10 2E        ...   ldab 102e    ; SCI status
9177 C836 C4 02           ..    andb #02     ; test for Framing Error
9178 C838 26 0B           &.    bne 0b       ; if so, to c845
9179 C83A F6 10 2F        ../   ldab 102f    ; read SCI data
9180 C83D F1 00 26        ..&   cmpb 0026
9181 C840 26 03           &.    bne 03
9182 C842 7E C9 1B        ~..   jmp c91b             ;goto45
9183 ;
9184 C845 F6 10 2F        ../   ldab 102f    ; read SCI data
9185 C848 C4 63           .c    andb #63     ; 01100110
9186 C84A C1 23           .#    cmpb #23     ; 00100110
9187 C84C 27 03           '.    beq 03
9188 C84E 7E C8 E7        ~..   jmp c8e7             ;goto46 - pulse send' of changer
9189 ; doesnt return
9190 C851 F6 00 1A        ...   ldab 001a    ; register 3000 buffer
9191 C854 C4 01           ..    andb #01     ; accept' line of changer
9192 C856 26 03           &.    bne 03
9193 C858 7E C8 E7        ~..   jmp c8e7             ;goto46 - pulse send' of changer
9194 ; doesnt return
9195 C85B F6 00 21        ..!   ldab 0021
9196 C85E C4 F8           ..    andb #f8     ; 11111000
9197 C860 37              7     pshb
9198 C861 F6 10 2F        ../   ldab 102f    ; read SCI data
9199 C864 C4 1C           ..    andb #1c     ; 00011100
9200 C866 54              T     lsrb         ;    ^^^
9201 C867 54              T     lsrb         ; get these bits out
9202 C868 30              0     tsx
9203 C869 EA 00           ..    orb 00,x     ; or it with the thing just above
9204 C86B 31              1     ins
9205 C86C F7 00 21        ..!   stab 0021
9206 C86F F6 00 21        ..!   ldab 0021
9207 C872 F4 0B D7        ...   andb 0bd7    ; if (0021 & 0bd7)
9208 C875 27 08           '.    beq 08       ; is false
9209 C877 CE 00 17        ...   ldx #0017
9210 C87A 1C 00 20        ..    bset 00,x, #20
9211 C87C 20 18                 bra 18
9212 C87F F6 00 17        ...   ldab 0017    ; if true
9213 C882 C4 20           .     andb #20
9214 C884 27 11           '.    beq 11       ; if unset to c897 (break out of if)
9215 C886 CE 00 17        ...   ldx #0017
9216 C889 1D 00           ..    bclr 00,x, #20
9217 C88C C6 04            .    andb #04
9218 C88E F7 0C DB        ...   stab 0cdb
9219 C891 CE 0B C1        ...   ldx #0bc1
9220 C894 1C 00 40        ...   bset 00,x, #40 ;endif
9221 C897 F6 00 21        ..!   ldab 0021
9222 C89A F4 0B D8        ...   andb 0bd8
9223 C89D 27 08           '.    beq 08           ; to c8a7
9224 C89F CE 00 17        ...   ldx #0017
9225 C8A2 1C 00 40        ...   bset 00,x, #40
9226 C8A5 20 18            .    bra 18           ; to c8cf
9227 ;
9228 C8A7 F6 00 17        ...   ldab 0017
9229 C8AA C4 40           .@    andb #40
9230 C8AC 27 11           '.    beq 11            ; to c8bf if unset
9231 C8AE CE 00 17        ...   ldx #0017
9232 C8B1 1D 00 40        ...   bclr 00,x, #40
9233 C8B4 C6 04           ..    ldab #04
9234 C8B6 F7 0C DA        ...   stab 0cda
9235 C8B9 CE 0B C1        ...   ldx #0bc1
9236 C8BC 1C 00 40        ...   bset 00,x, #40
9237 ; if 0021 & 0bd9, then set bit 7 of 0017, else unset it.
9238 C8BF F6 00 21        ..!   ldab 0021
9239 C8C2 F4 0B D9        ...   andb 0bd9
9240 C8C5 27 08           '.    beq 08
9241 C8C7 CE 00 17        ...   ldx #0017
9242 C8CA 1C 00 80        ..    bset 00,x, #80
9243 C8CC 20 16           .     bra 16     ; to c8e5
9244 ;
9245 C8CF F6 00 17        ...   ldab 0017
9246 C8D2 2C 11           ,.    bge 11     ; to c8e5
9247 C8D4 CE 00 17        ...   ldx #0017
9248 C8D7 1D 00           ..    bclr 00,x, #80
9249 ; set counter to 4?
9250 C8D9 C6 04           ..    ldab #04
9251 C8DC F7 0C D9        ...   stab 0cd9
9252 ; set tube error bit
9253 C8DF CE 0B C1        ...   ldx #0bc1
9254 C8E2 1C 00 40        ...   bset 00,x, #40
9255 C8E5 20 31            1    bra 31          ; to c918
9256 ;
9257 goto46: ; pulse the send' line of the changer
9258 C8E7 F6 10 2F        ../   ldab 102f    ; read SCI data
9259 C8EA F7 00 26        ..&   stab 0026
9260 C8ED CE 00 1A        ...   ldx #001a
9261 C8F0 1C 00 02        ...   bset 00,x, #02
9262 C8F3 F6 00 1A        ...   ldab 001a
9263 C8F6 F7 30 00        .0.   stab 3000    ; changer send' high
9264 C8F9 F6 00 3D        ..=   ldab 003d
9265 C8FC C4 04           ..    andb #04
9266 C8FE 26 18           &.    bne 18       ; to c918
9267 C900 CC 00 03        ...   ldd #0003
9268 C903 BD E5 71        ..q   jsr e571             ;msdelay
9269 C906 CE 00 1A        ...   ldx #001a
9270 C909 1D 00 02        ...   bclr 00,x, #02
9271 C90C F6 00 1A        ...   ldab 001a
9272 C90F F7 30 00        .0.   stab 3000    ; changer send' low
9273 C912 7C 00 3D        |.=   inc 003d
9274 C915 7E CE 46        ~.F   jmp ce46             ;goto47 (exit)
9275 C918 7E CB DA        ~..   jmp cbda             ;goto48 (clean exit)
9276 ;
9277 goto45:
9278 C91B F6 00 08        ...   ldab 0008
9279 C91E 26 03           &.    bne 03
9280 C920 7E CA 5F        ~._   jmp ca5f             ;goto49
9281 C923 F6 00 17        ...   ldab 0017
9282 C926 C4 04           ..    andb #04
9283 C928 26 03           &.    bne 03
9284 C92A 7E CA 5F        ~._   jmp ca5f             ;goto49
9285 C92D F6 00 17        ...   ldab 0017
9286 C930 C4 08           ..    andb #08
9287 C932 26 03           &.    bne 03
9288 C934 7E CA 5F        ~._   jmp ca5f             ;goto49
9289 C937 F6 10 2F        ../   ldab 102f    ; read SCI data
9290 C93A C1 FF           ..    cmpb #ff
9291 C93C 27 07           '.    beq 07       ; to c945
9292 C93E F6 00 08        ...   ldab 0008
9293 C941 C1 0E           ..    cmpb #0e     ; if > 14
9294 C943 25 12           %.    bcs 12       ; to c957
9295 C945 CE 00 17        ...   ldx #0017
9296 C948 1D 00 04        ...   bclr 00,x, #04
9297 C94B 7F 00 08        ...   clr 0008
9298 C94E BD CE 48        ..H   jsr ce48             ;jump48
9299 C951 7F 00 2C        ..,   clr 002c
9300 C954 7E CA 5C        ~.\   jmp ca5c             ;goto50 - clean exit
9301 ;
9302 C957 F6 00 08        ...   ldab 0008
9303 C95A 4F              O     clra
9304 C95B BD FE 16        ...   jsr fe16             ;jump2
9305 C95E 00 01 00 0C     .
9306 C962 CA 59           .Y    ; inc 0008 and clean exit
9307 C964 C9 7E           .~    ; read byte into 0bc2
9308 C966 C9 87           ..    ; read byte into 0bc3 & ^10 and stuff
9309 C968 C9 DF           ..    ; read byte into 0bc4 & stuff
9310 C96A C9 F3           ..    ; read byte into 0bc5 & stuff
9311 C96C CA 07           ..    ; read byte into 0bc6 & stuff
9312 C96E CA 1B           ..    ; read byte into 0bc7 only
9313 C970 CA 23           .#    ; read byte into 0bc8 only
9314 C972 CA 2B           .+    ; read byte into 0bc9 only
9315 C974 CA 33           .3    ; read byte into 0bca only
9316 C976 CA 3B           .;    ; read byte into 0bcb only
9317 C978 CA 43           .C    ; read byte into 0bcc only
9318 C97A CA 4B           .K    ; read byte into 0bcd only
9319 C97C CA 53           .S    ; read byte into 0bce only
9320 C97E F6 10 2F        ../   ldab 102f    ; read SCI data
9321 C981 F7 0B C2        ...   stab 0bc2
9322 C984 7E CA 59        ~.Y   jmp ca59             ;goto51 - inc 0008 and exit
9323 ;
9324 C987 F6 10 2F        ../   ldab 102f    ; read SCI data
9325 C98A F7 0B E3        ...   stab 0be3
9326 C98D F6 10 2F        ../   ldab 102f    ; read SCI data
9327 C990 C4 0F           ..    andb #0f
9328 C992 C1 01           ..    cmpb #01
9329 C994 26 07           &.    bne 07         ; to c99d
9330 C996 C6 02           ..    ldab #02
9331 C998 F7 00 13        ...   stab 0013
9332 C99B 20 1B            .    bra 1b         ; to c9b8
9333 C99D C1 02           ..    cmpb #02
9334 C99F 26 07           &.    bne 07         ; to c9a8
9335 C9A1 C6 04           ..    ldab #04
9336 C9A3 F7 00 13        ...   stab 0013
9337 C9A6 20 10            .    bra 10         ; to c9b8
9338 C9A8 C1 03           ..    cmpb #03
9339 C9AA 26 07           &.    bne 07         ; to c9b3
9340 C9AC C6 08           ..    ldab #08
9341 C9AE F7 00 13        ...   stab 0013
9342 C9B1 20 05            .    bra 05         ; to c9b8
9343 C9B3 C6 01           ..    ldab #01
9344 C9B5 F7 00 13        ...   stab 0013
9345 C9B8 F6 10 2F        ../   ldab 102f    ; read SCI data
9346 C9BB C4 F0           ..    andb #f0
9347 C9BD 54              T     lsrb
9348 C9BE 54              T     lsrb
9349 C9BF 54              T     lsrb
9350 C9C0 54              T     lsrb
9351 C9C1 F7 0B C3        ...   stab 0bc3
9352 C9C4 F6 0B C2        ...   ldab 0bc2
9353 C9C7 F7 0B AA        ...   stab 0baa
9354 ;;0baa^:=pow(10,0bc3^)  0bc3 is the top 4 bits from the serial port.
9355 ;while 0bc3^<>0
9356 ;  obaa^:=0baa^*10
9357 ;  obc3^:=0bc3-1
9358 ;endwhile
9359 C9CA F6 0B C3        ...   ldab 0bc3
9360 C9CD 27 0E           '.    beq c9dd
9361 C9CF F6 0B AA        ...   ldab 0baa
9362 C9D2 86 0A           ..    ldaa #0a
9363 C9D4 3D              =     mul
9364 C9D5 F7 0B AA        ...   stab 0baa
9365 C9D8 7A 0B C3        z..   dec 0bc3
9366 C9DB 20 ED            .    bra c9ca
9367 ;
9368 C9DD 20 7A            z    bra 7a       ;goto51 - inc 0008 & clean exit
9369 ;
9370 C9DF F6 10 2F        ../   ldab 102f    ; read SCI data
9371 C9E2 F7 0B C4        ...   stab 0bc4
9372 C9E5 F6 0B C4        ...   ldab 0bc4
9373 C9E8 C1 80           ..    cmpb #80
9374 C9EA 26 05           &.    bne 05
9375 C9EC C6 0F           ..    ldab #0f
9376 C9EE F7 0B C4        ...   stab 0bc4
9377 C9F1 20 66            f    bra 66       ;goto51 - inc 0008 & clean exit
9378 ;
9379 C9F3 F6 10 2F        ../   ldab 102f    ; read SCI data
9380 C9F6 F7 0B C5        ...   stab 0bc5
9381 C9F9 F6 0B C5        ...   ldab 0bc5
9382 C9FC C1 80           ..    cmpb #80
9383 C9FE 26 05           &.    bne 05
9384 CA00 C6 0F           ..    ldab #0f
9385 CA02 F7 0B C5        ...   stab 0bc5
9386 CA05 20 52            R    bra 52       ;goto51 - inc 0008 & clean exit
9387 ;
9388 CA07 F6 10 2F        ../   ldab 102f    ; read SCI data
9389 CA0A F7 0B C6        ...   stab 0bc6
9390 CA0D F6 0B C6        ...   ldab 0bc6
9391 CA10 C1 80           ..    cmpb #80
9392 CA12 26 05           &.    bne ca19
9393 CA14 C6 0F           ..    ldab #0f
9394 CA16 F7 0B C6        ...   stab 0bc6
9395 CA19 20 3E            >    bra 3e       ;goto51 - inc 0008 & clean exit
9396 ;
9397 ; read byte of data into 0bc7 - 0bce
9398 CA1B F6 10 2F        ../   ldab 102f    ; read SCI data
9399 CA1E F7 0B C7        ...   stab 0bc7
9400 CA21 20 36            6    bra 36
9401 ;
9402 CA23 F6 10 2F        ../   ldab 102f    ; read SCI data
9403 CA26 F7 0B C8        ...   stab 0bc8
9404 CA29 20 2E            .    bra 2e
9405 ;
9406 CA2B F6 10 2F        ../   ldab 102f    ; read SCI data
9407 CA2E F7 0B C9        ...   stab 0bc9
9408 CA31 20 26            &    bra 26
9409 ;
9410 CA33 F6 10 2F        ../   ldab 102f    ; read SCI data
9411 CA36 F7 0B CA        ...   stab 0bca
9412 CA39 20 1E            .    bra 1e
9413 ;
9414 CA3B F6 10 2F        ../   ldab 102f    ; read SCI data
9415 CA3E F7 0B CB        ...   stab 0bcb
9416 CA41 20 16            .    bra 16
9417 ;
9418 CA43 F6 10 2F        ../   ldab 102f    ; read SCI data
9419 CA46 F7 0B CC        ...   stab 0bcc
9420 CA49 20 0E            .    bra 0e
9421 ;
9422 CA4B F6 10 2F        ../   ldab 102f    ; read SCI data
9423 CA4E F7 0B CD        ...   stab 0bcd
9424 CA51 20 06            .    bra 06
9425 ;
9426 CA53 F6 10 2F        ../   ldab 102f    ; read SCI data
9427 CA56 F7 0B CE        ...   stab 0bce
9428 goto51:
9429 CA59 7C 00 08        |..   inc 0008
9430 goto50:
9431 CA5C 7E CB DA        ~..   jmp cbda             ;goto48 (clean exit)
9432 ;
9433 goto49:
9434 CA5F F6 10 2F        ../   ldab 102f    ; read SCI data
9435 CA62 C4 EF           ..    andb #ef     ; 11101111
9436 CA64 C1 E2           ..    cmpb #e2     ; 11100010
9437 CA66 26 1A           &.    bne 1a       ; if no match, to ca82
9438 CA68 CE 00 17        ...   ldx #0017
9439 CA6B 1C 00 08        ...   bset 00,x, #08
9440 CA6E CE 00 17        ...   ldx #0017
9441 CA71 1C 00 04        ...   bset 00,x, #04
9442 CA74 C6 01           ..    ldab #01
9443 CA76 F7 00 08        ...   stab 0008
9444 CA79 CE 0B C1        ...   ldx #0bc1
9445 CA7C 1D 00 01        ...   bclr 00,x, #01
9446 CA7F 7E CB DA        ~..   jmp cbda             ;goto48 (clean exit)
9447 ;
9448 CA82 F6 10 2F        ../   ldab 102f    ; read SCI data
9449 CA85 C4 02           ..    andb #02
9450 CA87 27 03           '.    beq 03       ; if bit is set then
9451 CA89 7E CB 6C        ~.l   jmp cb6c             ; goto52
9452 CA8C F6 10 2F        ../   ldab 102f    ; read SCI data
9453 CA8F 2C 38           ,8    bge 38       ; if bit 7 unset, to cac9
9454 CA91 F6 00 17        ...   ldab 0017
9455 CA94 C4 08           ..    andb #08
9456 CA96 26 31           &1    bne 31
9457 CA98 F6 10 2F        ../   ldab 102f    ; read SCI data
9458 CA9B C4 78           .x    andb #78     ; 01111000
9459 CA9D 54              T     lsrb
9460 CA9E 54              T     lsrb
9461 CA9F 54              T     lsrb
9462 CAA0 4F              O     clra
9463 CAA1 C3 0B C7        ...   addd #0bc7
9464 CAA4 8F              .     xgdx
9465 CAA5 E6 00           ..    ldab 00,x
9466 CAA7 4F              O     clra
9467 CAA8 37              7     pshb
9468 CAA9 36              6     psha
9469 CAAA F6 0B AA        ...   ldab 0baa
9470 CAAD 4F              O     clra
9471 CAAE BD FB BA        ...   jsr fbba             ;jump38 - multiply?
9472 CAB1 F3 00 40        ..@   addd 0040
9473 CAB4 FD 00 40        ..@   std 0040
9474 CAB7 CE 00 1B        ...   ldx #001b
9475 CABA 1C 00           ..    bset 00,x, #20
9476 CABD CE 00 1B        ...   ldx #001b
9477 CAC0 1D 00 40        ...   bclr 00,x, #40
9478 CAC3 7F 00 25        ..%   clr 0025
9479 CAC6 7E CB 64        ~.d   jmp cb64             ;goto53
9480 ;
9481 CAC9 F6 00 17        ...   ldab 0017
9482 CACC C4 08           ..    andb #08
9483 CACE 26 4A           &J    bne 4a       ;to cb1a
9484 CAD0 F6 10 2F        ../   ldab 102f    ; read SCI data
9485 CAD3 C4 60           .`    andb #60     ; 01100000
9486 CAD5 54              T     lsrb         ;  ^^^^
9487 CAD6 54              T     lsrb
9488 CAD7 54              T     lsrb
9489 CAD8 4F              O     clra
9490 CAD9 C3 0B C7        ...   addd #0bc7
9491 CADC 8F              .     xgdx
9492 CADD E6 00           ..    ldab 00,x
9493 CADF 4F              O     clra
9494 CAE0 37              7     pshb
9495 CAE1 36              6     psha
9496 CAE2 F6 0B AA        ...   ldab 0baa
9497 CAE5 4F              O     clra
9498 CAE6 BD FB BA        ...   jsr fbba             ;jump38 - multiply?
9499 CAE9 FD 0B BD        ...   std 0bbd
9500 CAEC FC 0B BD        ...   ldd 0bbd
9501 CAEF F3 00 40        ..@   addd 0040
9502 CAF2 FD 00 40        ..@   std 0040
9503 CAF5 F6 00 21        ..!   ldab 0021
9504 CAF8 C4 F8           ..    andb #f8     ; 11111000
9505 CAFA 37              7     pshb
9506 CAFB F6 10 2F        ../   ldab 102f    ; read SCI data
9507 CAFE C4 1C           ..    andb #1c     ; 00011100
9508 CB00 54              T     lsrb
9509 CB01 54              T     lsrb
9510 CB02 30              0     tsx
9511 CB03 EA 00           ..    orb 00,x     ; or lower 3 bits with 0021
9512 CB05 31              1     ins
9513 CB06 F7 00 21        ..!   stab 0021
9514 CB09 F6 10 2F        ../   ldab 102f    ; read SCI data
9515 CB0C F7 0B BC        ...   stab 0bbc
9516 CB0F CE 00 1B        ...   ldx #001b
9517 CB12 1D 00 40        ..    bclr 00,x, #40
9518 CB15 7F 00 25        ..%   clr 0025
9519 CB18 20 4A            J    bra 4a       ;goto53 - more cleanups and exit
9520 ;
9521 CB1A F6 10 2F        ../   ldab 102f    ; read SCI data
9522 CB1D C4 E0           ..    andb #e0     ; 11100000
9523 CB1F 54              T     lsrb
9524 CB20 54              T     lsrb
9525 CB21 54              T     lsrb
9526 CB22 54              T     lsrb
9527 CB23 54              T     lsrb          ; shr5
9528 CB24 4F              O     clra
9529 CB25 C3 0B C7        ...   addd #0bc7
9530 CB28 8F              .     xgdx
9531 CB29 E6 00           ..    ldab 00,x
9532 CB2B 4F              O     clra
9533 CB2C 37              7     pshb
9534 CB2D 36              6     psha
9535 CB2E F6 0B AA        ...   ldab 0baa
9536 CB31 4F              O     clra
9537 CB32 BD FB BA        ...   jsr fbba             ;jump38 - multiply?
9538 CB35 FD 0B BD        ...   std 0bbd
9539 CB38 FC 0B BD        ...   ldd 0bbd
9540 CB3B F3 00 40        ..@   addd 0040
9541 CB3E FD 00 40        ..@   std 0040
9542 CB41 F6 00 21        ..!   ldab 0021
9543 CB44 C4 F8           ..    andb #f8
9544 CB46 37              7     pshb
9545 CB47 F6 10 2F        ../   ldab 102f    ; read SCI data
9546 CB4A C4 1C           ..    andb #1c
9547 CB4C 54              T     lsrb
9548 CB4D 54              T     lsrb
9549 CB4E 30              0     tsx
9550 CB4F EA 00           ..    orb 00,x
9551 CB51 31              1     ins
9552 CB52 F7 00 21        ..!   stab 0021
9553 CB55 F6 10 2F        ../   ldab 102f    ; read SCI data
9554 CB58 F7 0B BC        ...   stab 0bbc
9555 CB5B CE 00 1B        ...   ldx #001b
9556 CB5E 1D 00 40        ...   bclr 00,x, #40
9557 CB61 7F 00 25        ..%   clr 0025
9558 goto53: ; more cleanups and exit
9559 CB64 7F 00 2C        ..,   clr 002c
9560 CB67 7F 00 3A        ..:   clr 003a
9561 CB6A 20 6E            n    bra 6e       ; to cbda - cleanup and exit
9562 goto52:
9563 CB6C F6 10 2F        ../   ldab 102f    ; read SCI data
9564 CB6F C4 03           ..    andb #03
9565 CB71 C1 02           ..    cmpb #02
9566 CB73 26 0F           &.    bne 0f       ; to bc84
9567 CB75 F6 00 21        ..!   ldab 0021
9568 CB78 C4 08           ..    andb #08
9569 CB7A 27 08           '.    beq 08
9570 CB7C CE 00 21        ..!   ldx #0021
9571 CB7F 1C 00 10        ...   bset 00,x, #10
9572 CB82 20 56            V    bra 56       ; to cbda - cleanup and exit
9573 ;
9574 CB84 F6 10 2F        ../   ldab 102f    ; read SCI data
9575 CB87 C4 EF           ..    andb #ef     ; 11101111
9576 CB89 C1 E3           ..    cmpb #e3     ; 11100111
9577 CB8B 26 08           &.    bne 08       ; to cb95
9578 CB8D CE 0B C1        ...   ldx #0bc1
9579 CB90 1D 00 02        ...   bclr 00,x, #02
9580 CB93 20 45            E    bra 45
9581 ;
9582 CB95 F6 10 2F        ../   ldab 102f    ; read SCI data
9583 CB98 C4 EF           ..    andb #ef     ; 11101111
9584 CB9A C1 63           .c    cmpb #63     ; 01101110
9585 CB9C 26 1C           &.    bne 1c       ; to cbba
9586 CB9E CE 0B C1        ...   ldx #0bc1
9587 CBA1 1D 00 01        ...   bclr 00,x, #01
9588 CBA4 F6 0B C0        ...   ldab 0bc0
9589 CBA7 C4 01           ..    andb #01
9590 CBA9 27 0D           '.    beq 0d       ; to cbb8
9591 CBAB F6 0B C0        ...   ldab 0bc0
9592 CBAE C4 04           ..    andb #04
9593 CBB0 27 06           '.    beq 06       ; to cbb8
9594 CBB2 CE 0B C1        ...   ldx #0bc1
9595 CBB5 1D 00 02        ...   bclr 00,x, #02
9596 CBB8 20 20                 bra 20       ;goto48 - cleanup & exit
9597 ;
9598 CBBA F6 10 2F        ../   ldab 102f    ; read SCI data
9599 CBBD C4 EF           ..    andb #ef     ; 11101111
9600 CBBF C1 67           .g    cmpb #67     ; 01100111
9601 CBC1 26 08           &.    bne 08       ; to cbcb
9602 CBC3 CE 0B C1        ...   ldx #0bc1
9603 CBC6 1C 00           ..    bset 00,x, #20
9604 CBC9 20 0F                 bra 0f       ;goto48 - cleanup & exit
9605 ;
9606 CBCB F6 10 2F        ../   ldab 102f    ; read SCI data
9607 CBCE C4 EF           ..    andb #ef     ; 11101111
9608 CBD0 C1 27           .'    cmpb #27     ; 00100111
9609 CBD2 26 06           &.    bne 06       ;goto48 - cleanup & exit
9610
9611 CBD4 CE 0B C1        ...   ldx #0bc1
9612 CBD7 1C 00 10        ...   bset 00,x, #10
9613 goto48: ; cleanup and exit
9614 CBDA CE 00 1A        ...   ldx #001a
9615 CBDD 1C 00 02        ...   bset 00,x, #02
9616 CBE0 F6 00 1A        ...   ldab 001a
9617 CBE3 F7 30 00        .0.   stab 3000    ; changer send' high
9618 CBE6 F6 00 17        ...   ldab 0017
9619 CBE9 C4 04           ..    andb #04
9620 CBEB 26 05           &.    bne 05       ; to cbf2
9621 CBED C6 06           ..    ldab #06
9622 CBEF F7 00 07        ...   stab 0007
9623 CBF2 F6 00 26        ..&   ldab 0026    ; 0026 ~= 0026
9624 CBF5 53              S     comb
9625 CBF6 F7 00 26        ..&   stab 0026
9626 CBF9 7F 00 3D        ..=   clr 003d
9627 CBFC 7E CE 46        ~.F   jmp ce46             ;goto47 (exit)
9628 ;
9629 goto44:
9630 CBFF F6 0B C0        ...   ldab 0bc0
9631 CC02 C4 02           ..    andb #02
9632 CC04 26 03           &.    bne 03
9633 CC06 7E CE 3B        ~.;   jmp ce3b             ;goto54  - swallow 2 bytes & exit
9634 CC09 F6 10 2F        ../   ldab 102f    ; read SCI data
9635 CC0C C4 E0           ..    andb #e0
9636 CC0E C1 20           .     cmpb #20
9637 CC10 27 03           '.    beq 03
9638 CC12 7E CE 3B        ~.;   jmp ce3b             ;goto54  - swallow 2 bytes & exit
9639 CC15 C6 32           .2    ldab #32     ; 50
9640 CC17 F7 00 2F        ../   stab 002f
9641 CC1A CE 00 1B        ...   ldx #001b
9642 CC1D 1C 00 02        ...   bset 00,x, #02
9643 CC20 F6 10 2E        ...   ldab 102e    ; SCI status
9644 CC23 C4 02           ..    andb #02     ; test for Framing Error
9645 CC25 26 08           &.    bne 08
9646 CC27 BD C7 C0        ...   jsr c7c0             ;jump49 - parity test
9647 CC2A 83 00 00        ...   subd #0000
9648 CC2D 26 0F           &.    bne 0f       ; if failed, to cc3e
9649 CC2F F6 10 2F        ../   ldab 102f    ; read SCI data
9650 CC32 30              0     tsx
9651 CC33 E7 00           ..    stab 00,x
9652 CC35 CC 00 FF        ...   ldd #00ff
9653 CC38 BD C7 E7        ...   jsr c7e7             ;jump37 - send #FF to coin mech
9654 CC3B 7E CE 39        ~.9   jmp ce39             ;goto55 - exit
9655 ;
9656 CC3E F6 10 2F        ../   ldab 102f    ; read SCI data
9657 CC41 C1 3F           .?    cmpb #3f     ; 00111111
9658 CC43 26 0A           &.    bne 0a       ; to cc4f
9659 CC45 F6 00 43        ..C   ldab 0043
9660 CC48 4F              O     clra
9661 CC49 BD C7 E7        ...   jsr c7e7             ;jump37 - send 0043 to coin mech - retry?
9662 CC4C 7E CE 39        ~.9   jmp ce39             ;goto55 - exit
9663 ;
9664 CC4F F6 00 08        ...   ldab 0008
9665 CC52 26 03           &.    bne 03
9666 CC54 7E CD 94        ~..   jmp cd94             ;goto56
9667 CC57 F6 10 2F        ../   ldab 102f    ; read SCI data
9668 CC5A C4 F0           ..    andb #f0
9669 CC5C C1 20           .     cmpb #20
9670 CC5E 27 03           '.    beq 03
9671 CC60 7E CD 94        ~..   jmp cd94             ;goto56
9672 CC63 F6 10 2F        ../   ldab 102f    ; read SCI data
9673 CC66 C4 0F           ..    andb #0f
9674 CC68 30              0     tsx
9675 CC69 E7 00           ..    stab 00,x
9676 CC6B F6 00 08        ...   ldab 0008
9677 CC6E 4F              O     clra
9678 CC6F BD FE 16        ...   jsr fe16             ;jump2
9679 CC72 00 01 00 07     .     ; array data for jump2
9680 CC76 CD 7A           .     ; if 0008 == 9, clr 0008, 002c. else inc 0008, send #00 to coin mech
9681 CC78 CC 88           ..    ; if 0017&#1 sp=>0076, else sp=>0040, then same as above
9682 CC7A CC A2           ..    ; if 0017&#1 0076+=sp<<4, else 0040+=sp<<4, then same as above
9683 CC7C CC CA           ..    ; if 0017&#1 0076+=sp<<8, else 0040+=sp<<8, then same as above
9684 CC7E CC EE           ..    ; if 0017&#1 0076+=sp<<16, else 0040+=sp<16, then same as above
9685 CC80 CD 19           ..    ; 0baa = sp, then same as above
9686 CC82 CD 21           .     ; 0baa = sp<<4, then same as above
9687 CC83 CD 30           !.    ; 0013 = sp, then same as above
9688 CC85 CD 38           0     ; read byte & #01,
9689 ;
9690 CC88 F6 00 17        ...   ldab 0017
9691 CC8B C4 01           ..    andb #01
9692 CC8D 27 09           '.    beq 09       ; to cc98
9693 CC8F 30              0     tsx
9694 CC90 E6 00           ..    ldab 00,x
9695 CC92 4F              O     clra
9696 CC93 FD 00 76        ..v   std 0076
9697 CC96 20 07            .    bra 07       ; to cc9f
9698 CC98 30              0     tsx
9699 CC99 E6 00           ..    ldab 00,x
9700 CC9B 4F              O     clra
9701 CC9C FD 00 40        ..@   std 0040
9702 CC9F 7E CD 7A        ~.z   jmp cd7a             ;goto57
9703 ;
9704 CCA2 F6 00 17        ...   ldab 0017
9705 CCA5 C4 01           ..    andb #01
9706 CCA7 27 10           '.    beq 10       ; to ccb9
9707 CCA9 30              0     tsx
9708 CCAA E6 00           ..    ldab 00,x
9709 CCAC 4F              O     clra
9710 CCAD 05              .     asld
9711 CCAE 05              .     asld
9712 CCAF 05              .     asld
9713 CCB0 05              .     asld
9714 CCB1 F3 00 76        ..v   addd 0076
9715 CCB4 FD 00 76        ..v   std 0076
9716 CCB7 20 0E            .    bra 0e       ; to ccc7
9717 CCB9 30              0     tsx
9718 CCBA E6 00           ..    ldab 00,x
9719 CCBC 4F              O     clra
9720 CCBD 05              .     asld
9721 CCBE 05              .     asld
9722 CCBF 05              .     asld
9723 CCC0 05              .     asld
9724 CCC1 F3 00 40        ..@   addd 0040
9725 CCC4 FD 00 40        ..@   std 0040
9726 CCC7 7E CD 7A        ~.z   jmp cd7a             ;goto57
9727 ;
9728 CCCA F6 00 17        ...   ldab 0017
9729 CCCD C4 01           ..    andb #01
9730 CCCF 27 0E           '.    beq 0e       ; to ccdf
9731 CCD1 30              0     tsx
9732 CCD2 E6 00           ..    ldab 00,x
9733 CCD4 4F              O     clra
9734 CCD5 17              .     tba
9735 CCD6 5F              _     clrb
9736 CCD7 F3 00 76        ..v   addd 0076
9737 CCDA FD 00 76        ..v   std 0076
9738 CCDD 20 0C            .    bra 0c       ; to cceb
9739 CCDF 30              0     tsx
9740 CCE0 E6 00           ..    ldab 00,x
9741 CCE2 4F              O     clra
9742 CCE3 17              .     tba
9743 CCE4 5F              _     clrb
9744 CCE5 F3 00 40        ..@   addd 0040
9745 CCE8 FD 00 40        ..@   std 0040
9746 CCEB 7E CD 7A        ~.z   jmp cd7a             ;goto57
9747 ;
9748 CCEE F6 00 17        ...   ldab 0017
9749 CCF1 C4 01           ..    andb #01
9750 CCF3 27 12           '.    beq 12     ; to cd07
9751 CCF5 30              0     tsx
9752 CCF6 E6 00           ..    ldab 00,x
9753 CCF8 4F              O     clra
9754 CCF9 17              .     tba
9755 CCFA 48              H     asla
9756 CCFB 48              H     asla
9757 CCFC 48              H     asla
9758 CCFD 48              H     asla
9759 CCFE 5F              _     clrb
9760 CCFF F3 00 76        ..v   addd 0076
9761 CD02 FD 00 76        ..v   std 0076
9762 CD05 20 10            .    bra 10     ; to cd17
9763 CD07 30              0     tsx
9764 CD08 E6 00           ..    ldab 00,x
9765 CD0A 4F              O     clra
9766 CD0B 17              .     tba
9767 CD0C 48              H     asla
9768 CD0D 48              H     asla
9769 CD0E 48              H     asla
9770 CD0F 48              H     asla
9771 CD10 5F              _     clrb
9772 CD11 F3 00 40        ..@   addd 0040
9773 CD14 FD 00 40        ..@   std 0040
9774 CD17 20 61            a    bra 61
9775 ;
9776 CD19 30              0     tsx
9777 CD1A E6 00           ..    ldab 00,x
9778 CD1C F7 0B AA        ...   stab 0baa
9779 CD1F 20 59            Y    bra 59 ; to cd7a - goto57
9780 ;
9781 CD21 30              0     tsx
9782 CD22 E6 00           ..    ldab 00,x
9783 CD24 58              X     aslb
9784 CD25 58              X     aslb
9785 CD26 58              X     aslb
9786 CD27 58              X     aslb
9787 CD28 FB 0B AA        ...   addb 0baa
9788 CD2B F7 0B AA        ...   stab 0baa
9789 CD2E 20 4A            J    bra 4a ; to cd7a - goto57
9790 ;
9791 CD30 30              0     tsx
9792 CD31 E6 00           ..    ldab 00,x
9793 CD33 F7 00 13        ...   stab 0013
9794 CD36 20 42            B    bra 42 ; to cd7a - goto57
9795 ;
9796 CD38 F6 10 2F        ../   ldab 102f    ; read SCI data
9797 CD3B C4 01           ..    andb #01
9798 CD3D 27 08           '.    beq 08          ; to cd47
9799 CD3F CE 00 21        ..!   ldx #0021
9800 CD42 1C 00 40        ...   bset 00,x, #40
9801 CD45 20 06            .    bra 06          ; to cd4d
9802 CD47 CE 00 21        ..!   ldx #0021
9803 CD4A 1D 00 40        ...   bclr 00,x, #40
9804 ;
9805 CD4D F6 00 17        ...   ldab 0017
9806 CD50 C4 01           ..    andb #01
9807 CD52 27 17           '.    beq 17     ; to cd6b
9808 CD54 F6 0B AA        ...   ldab 0baa
9809 CD57 4F              O     clra
9810 CD58 37              7     pshb
9811 CD59 36              6     psha
9812 CD5A FC 00 76        ..v   ldd 0076
9813 CD5D BD FB BA        ...   jsr fbba             ;jump38 - multiply?
9814 CD60 FD 00 76        ..v   std 0076     ; 0076 *= 0baa
9815 CD63 CE 00 17        ...   ldx #0017
9816 CD66 1D 00 01        ...   bclr 00,x, #01
9817 CD69 20 0F            .    bra 0f       ;goto57 - send byte & exit
9818 CD6B F6 0B AA        ...   ldab 0baa
9819 CD6E 4F              O     clra
9820 CD6F 37              7     pshb
9821 CD70 36              6     psha
9822 CD71 FC 00 40        ..@   ldd 0040
9823 CD74 BD FB BA        ...   jsr fbba             ;jump38 - multiply?
9824 CD77 FD 00 40        ..@   std 0040     ; 0040 *= 0baa
9825 goto57:  ; sends the byte, clearing the counter if its the 8th byte
9826 CD7A F6 00 08        ...   ldab 0008
9827 CD7D C1 09           ..    cmpb #09
9828 CD7F 26 08           &.    bne 08
9829 CD81 7F 00 2C        ..,   clr 002c
9830 CD84 7F 00 08        ...   clr 0008
9831 CD87 20 03            .    bra 03
9832 CD89 7C 00 08        |..   inc 0008
9833 CD8C 5F              _     clrb
9834 CD8D 4F              O     clra
9835 CD8E BD C7 E7        ...   jsr c7e7             ;jump37 - send byte to coin mech
9836 CD91 7E CE 39        ~.9   jmp ce39             ;goto55 - exit
9837 goto56:
9838 CD94 F6 10 2F        ../   ldab 102f    ; read SCI data
9839 CD97 4F              O     clra
9840 CD98 BD FE 32        ..2   jsr fe32             ;jump25
9841 CD9B CD B1 00 31     ...1  ; 49 "1"
9842 CD9F CD DB 00 01     ....  ; 50 "2"
9843 CDA3 CE 20 00 01     . ..  ; 51 "3"
9844 CDA7 CE 28 00 05     .(..  ; 56 "8"
9845 CDAB CE 34 FF C8     .4..  ; 0
9846 CDAF 00 00           ..    ; end of array data
9847 CDB1 F6 00 21        ..!   ldab 0021
9848 CDB4 2C 08           ,.    bge 08
9849 CDB6 CC 00 80        ...   ldd #0080
9850 CDB9 BD C7 E7        ...   jsr c7e7             ;jump37 - send byte to coin mech
9851 CDBC 20 1B            .    bra 1b
9852 CDBE 5F              _     clrb
9853 CDBF 4F              O     clra
9854 CDC0 BD C7 E7        ...   jsr c7e7             ;jump37 - send byte to coin mech
9855 CDC3 F6 00 1F        ...   ldab 001f
9856 CDC6 C4 08           ..    andb #08
9857 CDC8 27 0C           '.    beq 0c
9858 CDCA F6 0B C0        ...   ldab 0bc0
9859 CDCD C4 10           ..    andb #10
9860 CDCF 27 05           '.    beq 05
9861 CDD1 7C 00 75        |.u   inc 0075
9862 CDD4 20 03            .    bra 03
9863 CDD6 7F 00 75        ..u   clr 0075
9864 CDD9 20 5E            ^    bra 5e
9865 CDDB F6 00 1D        ...   ldab 001d
9866 CDDE C4 02           ..    andb #02
9867 CDE0 27 07           '.    beq 07
9868 CDE2 F6 00 19        ...   ldab 0019
9869 CDE5 C4 08           ..    andb #08
9870 CDE7 26 19           &.    bne 19
9871 CDE9 CC 00 FE        ...   ldd #00fe
9872 CDEC BD C7 E7        ...   jsr c7e7             ;jump37 - send byte to coin mech
9873 CDEF F6 00 1F        ...   ldab 001f
9874 CDF2 C4 08           ..    andb #08
9875 CDF4 27 0A           '.    beq 0a
9876 CDF6 F6 0B C0        ...   ldab 0bc0
9877 CDF9 C4 10           ..    andb #10
9878 CDFB 27 03           '.    beq 03
9879 CDFD 7C 00 75        |.u   inc 0075
9880 CE00 20 1C            .    bra 1c
9881 CE02 FC 00 44        ..D   ldd 0044
9882 CE05 37              7     pshb
9883 CE06 36              6     psha
9884 CE07 F6 0B AA        ...   ldab 0baa
9885 CE0A 4F              O     clra
9886 CE0B 38              8     pulx
9887 CE0C 8F              .     xgdx
9888 CE0D 02              .     idiv
9889 CE0E 8F              .     xgdx
9890 CE0F BD C7 E7        ...   jsr c7e7             ;jump37 - send byte to coin mech
9891 CE12 CE 00 19        ...   ldx #0019
9892 CE15 1D 00 08        ...   bclr 00,x, #08
9893 CE18 CE 00 1F        ...   ldx #001f
9894 CE1B 1C 00 08        ...   bset 00,x, #08
9895 CE1E 20 19            .    bra 19
9896 CE20 CE 00 1D        ...   ldx #001d
9897 CE23 1D 00 02        ...   bclr 00,x, #02
9898 CE26 20 11            .    bra 11
9899 CE28 C6 01           ..    ldab #01
9900 CE2A F7 00 08        ...   stab 0008
9901 CE2D 5F              _     clrb
9902 CE2E 4F              O     clra
9903 CE2F BD C7 E7        ...   jsr c7e7             ;jump37 - send byte to coin mech
9904 CE32 20 05            .    bra 05
9905 CE34 5F              _     clrb
9906 CE35 4F              O     clra
9907 CE36 BD C7 E7        ...   jsr c7e7             ;jump37 - send byte to coin mech
9908 goto55:
9909 CE39 20 0B            .    bra 0b       ; to ce46 (exit)
9910 goto54: ; just swallow two bytes?
9911 CE3B F6 10 2E        ...   ldab 102e    ; SCI Status
9912 CE3E 30              0     tsx
9913 CE3F E7 00           ..    stab 00,x
9914 CE41 F6 10 2F        ../   ldab 102f    ; read SCI data
9915 CE44 E7 00           ..    stab 00,x
9916 goto47:
9917 CE46 31              1     ins
9918 CE47 3B              ;     rti
9919
9920 jump48:
9921 CE48 F6 0B C4        ...   ldab 0bc4
9922 CE4B F1 0B C5        ...   cmpb 0bc5
9923 CE4E 25 53           %S    bcs 53
9924 CE50 F6 0B C5        ...   ldab 0bc5
9925 CE53 F1 0B C6        ...   cmpb 0bc6
9926 CE56 25 4B           %K    bcs 4b
9927 CE58 F6 0B C4        ...   ldab 0bc4
9928 CE5B 4F              O     clra
9929 CE5C C3 0B C7        ...   addd #0bc7
9930 CE5F 8F              .     xgdx
9931 CE60 E6 00           ..    ldab 00,x
9932 CE62 4F              O     clra
9933 CE63 FD 0B DD        ...   std 0bdd
9934 CE66 F6 0B C5        ...   ldab 0bc5
9935 CE69 4F              O     clra
9936 CE6A C3 0B C7        ...   addd #0bc7
9937 CE6D 8F              .     xgdx
9938 CE6E E6 00           ..    ldab 00,x
9939 CE70 4F              O     clra
9940 CE71 FD 0B DF        ...   std 0bdf
9941 CE74 F6 0B C6        ...   ldab 0bc6
9942 CE77 4F              O     clra
9943 CE78 C3 0B C7        ...   addd #0bc7
9944 CE7B 8F              .     xgdx
9945 CE7C E6 00           ..    ldab 00,x
9946 CE7E 4F              O     clra
9947 CE7F FD 0B E1        ...   std 0be1
9948 CE82 C6 01           ..    ldab #01
9949 CE84 F7 0B D7        ...   stab 0bd7
9950 CE87 C6 04           ..    ldab #04
9951 CE89 F7 0B D8        ...   stab 0bd8
9952 CE8C C6 02           ..    ldab #02
9953 CE8E F7 0B D9        ...   stab 0bd9
9954 CE91 C6 20           .     ldab #20
9955 CE93 F7 0B DA        ...   stab 0bda
9956 CE96 C6 08           ..    ldab #08
9957 CE98 F7 0B DB        ...   stab 0bdb
9958 CE9B C6 10           ..    ldab #10
9959 CE9D F7 0B DC        ...   stab 0bdc
9960 CEA0 7E D0 66        ~.f   jmp d066             ;goto58
9961 CEA3 F6 0B C4        ...   ldab 0bc4
9962 CEA6 F1 0B C6        ...   cmpb 0bc6
9963 CEA9 25 53           %S    bcs 53
9964 CEAB F6 0B C6        ...   ldab 0bc6
9965 CEAE F1 0B C5        ...   cmpb 0bc5
9966 CEB1 25 4B           %K    bcs 4b
9967 CEB3 F6 0B C4        ...   ldab 0bc4
9968 CEB6 4F              O     clra
9969 CEB7 C3 0B C7        ...   addd #0bc7
9970 CEBA 8F              .     xgdx
9971 CEBB E6 00           ..    ldab 00,x
9972 CEBD 4F              O     clra
9973 CEBE FD 0B DD        ...   std 0bdd
9974 CEC1 F6 0B C6        ...   ldab 0bc6
9975 CEC4 4F              O     clra
9976 CEC5 C3 0B C7        ...   addd #0bc7
9977 CEC8 8F              .     xgdx
9978 CEC9 E6 00           ..    ldab 00,x
9979 CECB 4F              O     clra
9980 CECC FD 0B DF        ...   std 0bdf
9981 CECF F6 0B C5        ...   ldab 0bc5
9982 CED2 4F              O     clra
9983 CED3 C3 0B C7        ...   addd #0bc7
9984 CED6 8F              .     xgdx
9985 CED7 E6 00           ..    ldab 00,x
9986 CED9 4F              O     clra
9987 CEDA FD 0B E1        ...   std 0be1
9988 CEDD C6 01           ..    ldab #01
9989 CEDF F7 0B D7        ...   stab 0bd7
9990 CEE2 C6 02           ..    ldab #02
9991 CEE4 F7 0B D8        ...   stab 0bd8
9992 CEE7 C6 04           ..    ldab #04
9993 CEE9 F7 0B D9        ...   stab 0bd9
9994 CEEC C6 20           .     ldab #20
9995 CEEE F7 0B DA        ...   stab 0bda
9996 CEF1 C6 10           ..    ldab #10
9997 CEF3 F7 0B DB        ...   stab 0bdb
9998 CEF6 C6 08           ..    ldab #08
9999 CEF8 F7 0B DC        ...   stab 0bdc
10000 CEFB 7E D0 66        ~.f   jmp d066             ;goto58
10001 CEFE F6 0B C5        ...   ldab 0bc5
10002 CF01 F1 0B C4        ...   cmpb 0bc4
10003 CF04 25 53           %S    bcs 53
10004 CF06 F6 0B C4        ...   ldab 0bc4
10005 CF09 F1 0B C6        ...   cmpb 0bc6
10006 CF0C 25 4B           %K    bcs 4b
10007 CF0E F6 0B C5        ...   ldab 0bc5
10008 CF11 4F              O     clra
10009 CF12 C3 0B C7        ...   addd #0bc7
10010 CF15 8F              .     xgdx
10011 CF16 E6 00           ..    ldab 00,x
10012 CF18 4F              O     clra
10013 CF19 FD 0B DD        ...   std 0bdd
10014 CF1C F6 0B C4        ...   ldab 0bc4
10015 CF1F 4F              O     clra
10016 CF20 C3 0B C7        ...   addd #0bc7
10017 CF23 8F              .     xgdx
10018 CF24 E6 00           ..    ldab 00,x
10019 CF26 4F              O     clra
10020 CF27 FD 0B DF        ...   std 0bdf
10021 CF2A F6 0B C6        ...   ldab 0bc6
10022 CF2D 4F              O     clra
10023 CF2E C3 0B C7        ...   addd #0bc7
10024 CF31 8F              .     xgdx
10025 CF32 E6 00           ..    ldab 00,x
10026 CF34 4F              O     clra
10027 CF35 FD 0B E1        ...   std 0be1
10028 CF38 C6 04           ..    ldab #04
10029 CF3A F7 0B D7        ...   stab 0bd7
10030 CF3D C6 01           ..    ldab #01
10031 CF3F F7 0B D8        ...   stab 0bd8
10032 CF42 C6 02           ..    ldab #02
10033 CF44 F7 0B D9        ...   stab 0bd9
10034 CF47 C6 08           ..    ldab #08
10035 CF49 F7 0B DA        ...   stab 0bda
10036 CF4C C6 20           .     ldab #20
10037 CF4E F7 0B DB        ...   stab 0bdb
10038 CF51 C6 10           ..    ldab #10
10039 CF53 F7 0B DC        ...   stab 0bdc
10040 CF56 7E D0 66        ~.f   jmp d066             ;goto58
10041 CF59 F6 0B C5        ...   ldab 0bc5
10042 CF5C F1 0B C6        ...   cmpb 0bc6
10043 CF5F 25 53           %S    bcs 53
10044 CF61 F6 0B C6        ...   ldab 0bc6
10045 CF64 F1 0B C4        ...   cmpb 0bc4
10046 CF67 25 4B           %K    bcs 4b
10047 CF69 F6 0B C5        ...   ldab 0bc5
10048 CF6C 4F              O     clra
10049 CF6D C3 0B C7        ...   addd #0bc7
10050 CF70 8F              .     xgdx
10051 CF71 E6 00           ..    ldab 00,x
10052 CF73 4F              O     clra
10053 CF74 FD 0B DD        ...   std 0bdd
10054 CF77 F6 0B C6        ...   ldab 0bc6
10055 CF7A 4F              O     clra
10056 CF7B C3 0B C7        ...   addd #0bc7
10057 CF7E 8F              .     xgdx
10058 CF7F E6 00           ..    ldab 00,x
10059 CF81 4F              O     clra
10060 CF82 FD 0B DF        ...   std 0bdf
10061 CF85 F6 0B C4        ...   ldab 0bc4
10062 CF88 4F              O     clra
10063 CF89 C3 0B C7        ...   addd #0bc7
10064 CF8C 8F              .     xgdx
10065 CF8D E6 00           ..    ldab 00,x
10066 CF8F 4F              O     clra
10067 CF90 FD 0B E1        ...   std 0be1
10068 CF93 C6 04           ..    ldab #04
10069 CF95 F7 0B D7        ...   stab 0bd7
10070 CF98 C6 02           ..    ldab #02
10071 CF9A F7 0B D8        ...   stab 0bd8
10072 CF9D C6 01           ..    ldab #01
10073 CF9F F7 0B D9        ...   stab 0bd9
10074 CFA2 C6 08           ..    ldab #08
10075 CFA4 F7 0B DA        ...   stab 0bda
10076 CFA7 C6 10           ..    ldab #10
10077 CFA9 F7 0B DB        ...   stab 0bdb
10078 CFAC C6 20           .     ldab #20
10079 CFAE F7 0B DC        ...   stab 0bdc
10080 CFB1 7E D0 66        ~.f   jmp d066             ;goto58
10081 CFB4 F6 0B C6        ...   ldab 0bc6
10082 CFB7 F1 0B C4        ...   cmpb 0bc4
10083 CFBA 25 52           %R    bcs 52
10084 CFBC F6 0B C4        ...   ldab 0bc4
10085 CFBF F1 0B C5        ...   cmpb 0bc5
10086 CFC2 25 4A           %J    bcs 4a
10087 CFC4 F6 0B C6        ...   ldab 0bc6
10088 CFC7 4F              O     clra
10089 CFC8 C3 0B C7        ...   addd #0bc7
10090 CFCB 8F              .     xgdx
10091 CFCC E6 00           ..    ldab 00,x
10092 CFCE 4F              O     clra
10093 CFCF FD 0B DD        ...   std 0bdd
10094 CFD2 F6 0B C4        ...   ldab 0bc4
10095 CFD5 4F              O     clra
10096 CFD6 C3 0B C7        ...   addd #0bc7
10097 CFD9 8F              .     xgdx
10098 CFDA E6 00           ..    ldab 00,x
10099 CFDC 4F              O     clra
10100 CFDD FD 0B DF        ...   std 0bdf
10101 CFE0 F6 0B C5        ...   ldab 0bc5
10102 CFE3 4F              O     clra
10103 CFE4 C3 0B C7        ...   addd #0bc7
10104 CFE7 8F              .     xgdx
10105 CFE8 E6 00           ..    ldab 00,x
10106 CFEA 4F              O     clra
10107 CFEB FD 0B E1        ...   std 0be1
10108 CFEE C6 02           ..    ldab #02
10109 CFF0 F7 0B D7        ...   stab 0bd7
10110 CFF3 C6 01           ..    ldab #01
10111 CFF5 F7 0B D8        ...   stab 0bd8
10112 CFF8 C6 04           ..    ldab #04
10113 CFFA F7 0B D9        ...   stab 0bd9
10114 CFFD C6 10           ..    ldab #10
10115 CFFF F7 0B DA        ...   stab 0bda
10116 D002 C6 20           .     ldab #20
10117 D004 F7 0B DB        ...   stab 0bdb
10118 D007 C6 08           ..    ldab #08
10119 D009 F7 0B DC        ...   stab 0bdc
10120 D00C 20 58            X    bra 58
10121 D00E F6 0B C6        ...   ldab 0bc6
10122 D011 F1 0B C5        ...   cmpb 0bc5
10123 D014 25 50           %P    bcs 50
10124 D016 F6 0B C5        ...   ldab 0bc5
10125 D019 F1 0B C4        ...   cmpb 0bc4
10126 D01C 25 48           %H    bcs 48
10127 D01E F6 0B C6        ...   ldab 0bc6
10128 D021 4F              O     clra
10129 D022 C3 0B C7        ...   addd #0bc7
10130 D025 8F              .     xgdx
10131 D026 E6 00           ..    ldab 00,x
10132 D028 4F              O     clra
10133 D029 FD 0B DD        ...   std 0bdd
10134 D02C F6 0B C5        ...   ldab 0bc5
10135 D02F 4F              O     clra
10136 D030 C3 0B C7        ...   addd #0bc7
10137 D033 8F              .     xgdx
10138 D034 E6 00           ..    ldab 00,x
10139 D036 4F              O     clra
10140 D037 FD 0B DF        ...   std 0bdf
10141 D03A F6 0B C4        ...   ldab 0bc4
10142 D03D 4F              O     clra
10143 D03E C3 0B C7        ...   addd #0bc7
10144 D041 8F              .     xgdx
10145 D042 E6 00           ..    ldab 00,x
10146 D044 4F              O     clra
10147 D045 FD 0B E1        ...   std 0be1
10148 D048 C6 02           ..    ldab #02
10149 D04A F7 0B D7        ...   stab 0bd7
10150 D04D C6 04           ..    ldab #04
10151 D04F F7 0B D8        ...   stab 0bd8
10152 D052 C6 01           ..    ldab #01
10153 D054 F7 0B D9        ...   stab 0bd9
10154 D057 C6 10           ..    ldab #10
10155 D059 F7 0B DA        ...   stab 0bda
10156 D05C C6 08           ..    ldab #08
10157 D05E F7 0B DB        ...   stab 0bdb
10158 D061 C6 20           .     ldab #20
10159 D063 F7 0B DC        ...   stab 0bdc
10160 goto58:
10161 D066 F6 0B AA        ...   ldab 0baa
10162 D069 4F              O     clra
10163 D06A 37              7     pshb
10164 D06B 36              6     psha
10165 D06C FC 0B DD        ...   ldd 0bdd
10166 D06F BD FB BA        ...   jsr fbba             ;jump38 - multiply?
10167 D072 FD 0B DD        ...   std 0bdd
10168 D075 F6 0B AA        ...   ldab 0baa
10169 D078 4F              O     clra
10170 D079 37              7     pshb
10171 D07A 36              6     psha
10172 D07B FC 0B DF        ...   ldd 0bdf
10173 D07E BD FB BA        ...   jsr fbba             ;jump38 - multiply?
10174 D081 FD 0B DF        ...   std 0bdf
10175 D084 F6 0B AA        ...   ldab 0baa
10176 D087 4F              O     clra
10177 D088 37              7     pshb
10178 D089 36              6     psha
10179 D08A FC 0B E1        ...   ldd 0be1
10180 D08D BD FB BA        ...   jsr fbba             ;jump38 - multiply?
10181 D090 FD 0B E1        ...   std 0be1
10182 D093 39              9     rts
10183
10184 jump66:
10185 ; initializes a big bunch of variables
10186 D094 34              4     des
10187 ; for i=0
10188 D095 30              0     tsx
10189 D096 6F 00           o.    clr 00,x
10190 ; while i <= 10
10191 D098 30              0     tsx
10192 D099 E6 00           ..    ldab 00,x
10193 D09B C1 10           ..    cmpb #10
10194 D09D 24 1B           $.    bcc 1b        ; to d0ba
10195 ; read memloc of b0c3+i
10196 D09F 30              0     tsx
10197 D0A0 E6 00           ..    ldab 00,x
10198 D0A2 4F              O     clra
10199 D0A3 C3 B0 C3        ...   addd #b0c3
10200 D0A6 8F              .     xgdx
10201 D0A7 E6 00           ..    ldab 00,x
10202 D0A9 37              7     pshb
10203 ; put value of that location into 0bc7+i
10204 D0AA 30              0     tsx
10205 D0AB E6 01           ..    ldab 01,x
10206 D0AD 4F              O     clra
10207 D0AE C3 0B C7        ...   addd #0bc7
10208 D0B1 8F              .     xgdx
10209 D0B2 33              3     pulb
10210 D0B3 E7 00           ..    stab 00,x
10211 ; loop
10212 D0B5 30              0     tsx
10213 D0B6 6C 00           l.    inc 00,x
10214 D0B8 20 DE            .    bra de        ; to d098
10215 ;
10216 D0BA C6 05           ..    ldab #05
10217 D0BC F7 0B AA        ...   stab 0baa
10218 D0BF C6 04           ..    ldab #04
10219 D0C1 F7 00 13        ...   stab 0013
10220 D0C4 C6 01           ..    ldab #01
10221 D0C6 F7 0B C4        ...   stab 0bc4
10222 D0C9 C6 03           ..    ldab #03
10223 D0CB F7 0B C5        ...   stab 0bc5
10224 D0CE C6 02           ..    ldab #02
10225 D0D0 F7 0B C6        ...   stab 0bc6
10226 D0D3 CC 00 19        ...   ldd #0019
10227 D0D6 FD 0B DD        ...   std 0bdd
10228 D0D9 CC 00 0A        ...   ldd #000a
10229 D0DC FD 0B DF        ...   std 0bdf
10230 D0DF CC 00 05        ...   ldd #0005
10231 D0E2 FD 0B E1        ...   std 0be1
10232 D0E5 C6 01           ..    ldab #01
10233 D0E7 F7 0B D7        ...   stab 0bd7
10234 D0EA C6 02           ..    ldab #02
10235 D0EC F7 0B D8        ...   stab 0bd8
10236 D0EF C6 04           ..    ldab #04
10237 D0F1 F7 0B D9        ...   stab 0bd9
10238 D0F4 C6 20           .     ldab #20
10239 D0F6 F7 0B DA        ...   stab 0bda
10240 D0F9 C6 10           ..    ldab #10
10241 D0FB F7 0B DB        ...   stab 0bdb
10242 D0FE C6 08           ..    ldab #08
10243 D100 F7 0B DC        ...   stab 0bdc
10244 D103 31              1     ins
10245 D104 39              9     rts
10246
10247 motors_off:
10248 ; turns all motors off
10249 D105 34              4     des
10250 D106 CE 00 1A        ...   ldx #001a
10251 D109 1C 00 80        ..    bset 00,x, #80
10252 D10C F6 00 1A        ..    ldab 001a
10253 D10F F7 30 00        .0.   stab 3000       ; motor rows off
10254 D112 C6 C8           ..    ldab #c8        ; loop of 200 - short delay
10255 D114 30              0     tsx
10256 D115 E7 00           ..    stab 00,x
10257 D117 30              0     tsx
10258 D118 E6 00           ..    ldab 00,x
10259 D11A C1 00           ..    cmpb #00
10260 D11C 23 05           #.    bls 05          ; to d123
10261 D11E 30              0     tsx
10262 D11F 6A 00           j.    dec 00,x
10263 D121 20 F4            .    bra f4          ; to d117
10264
10265 D123 CE 10 00        ...   ldx #1000
10266 D126 1C 00 40        ..    bset 00,x, #40  ; motor columns off
10267 D129 CE 00 14        ...   ldx #0014
10268 D12C 1D 00 20        ..    bclr 00,x, #20  ; motors col 8 off
10269 D12F CE 00 14        .     ldx #0014
10270 D132 1D 00 40        ..    bclr 00,x, #40  ; motors col 9 off
10271 D135 F6 00 14        ...   ldab 0014
10272 D138 F7 38 00        .8.   stab 3800       ; motors off
10273 D13B 31              1     ins
10274 D13C 39              9     rts
10275
10276 jump34:
10277 ; turn on the motor of the slot given in memory location 0006
10278 D13D F6 00 06        ...   ldab 0006
10279 D140 4F              O     clra
10280 D141 CE 00 0A        ...   ldx #000a
10281 D144 02              .     idiv
10282 D145 8F              .     xgdx
10283 D146 CB 01           ..    addb #01   ; we live in an odd world?
10284 D148 F7 00 5F        .._   stab 005f  ; slot number /10
10285 D14B F6 00 06        ...   ldab 0006
10286 D14E 4F              O     clra
10287 D14F CE 00 0A        ...   ldx #000a
10288 D152 02              .     idiv
10289 D153 F7 00 5E        ..^   stab 005e   ; slot number%10
10290 D156 F6 00 5E        ..^   ldab 005e
10291 D159 C1 05           ..    cmpb #05    ; there is not row 5
10292 D15B 23 03           #.    bls 03
10293 D15D 7A 00 5E        z.^   dec 005e    ; make it row 4
10294 D160 F6 00 5E        ..^   ldab 005e
10295 D163 4F              O     clra
10296 D164 C3 B1 23        ..#   addd #b123   ; powers of 2
10297 D167 8F              .     xgdx
10298 D168 E6 00           ..    ldab 00,x
10299 D16A 4F              O     clra
10300 D16B 37              7     pshb
10301 D16C 36              6     psha
10302 D16D F6 00 5F        .._   ldab 005f
10303 D170 4F              O     clra
10304 D171 C3 B1 23        ..#   addd #b123   ; powers of 2
10305 D174 8F              .     xgdx
10306 D175 E6 00           ..    ldab 00,x
10307 D177 4F              O     clra
10308 D178 17              .     tba
10309 D179 5F              _     clrb
10310 D17A 30              0     tsx
10311 D17B E3 00           ..    addd 00,x
10312 D17D 38              8     pulx
10313 D17E FD 00 58        ..X   std 0058
10314 ;
10315 ; i=0
10316 D181 7F 00 1C        ...   clr 001c
10317 ; while i < 16, do
10318 D184 F6 00 1C        ...   ldab 001c
10319 D187 C1 10           ..    cmpb #10
10320 D189 24 37           $7    bcc 37         ; to d1c2
10321 D18B F6 00 58        ..X   ldab 0058
10322 D18E 2C 0E           ,.    bge 0e         ; to d19e
10323 ;
10324 D190 CE 00 14        ...   ldx #0014
10325 D193 1C 00 10        ...   bset 00,x, #10
10326 D196 F6 00 14        ...   ldab 0014
10327 D199 F7 38 00        .8.   stab 3800      ; set high motor serial data
10328 D19C 20 0C            .    bra 0c         ; to d1aa
10329 ;
10330 D19E CE 00 14        ...   ldx #0014
10331 D1A1 1D 00 10        ..    bclr 00,x, #10
10332 D1A4 F6 00 14        ...   ldab 0014
10333 D1A7 F7 38 00        .8.   stab 3800      ; set low motor serial data
10334 ;
10335 ; send a clock pulse
10336 D1AA CE 10 00        ...   ldx #1000
10337 D1AD 1C 00 20        ..    bset 00,x, #20
10338 D1B0 CE 10 00         .    ldx #1000
10339 D1B3 1D 00           ..    bclr 00,x, #20
10340 ;
10341 ; get the next bit ready to send
10342 D1B6 FC 00 58        .     ldd 0058
10343 D1B9 05              .     asld
10344 D1BA FD 00 58        ..X   std 0058
10345 D1BD 7C 00 1C        |..   inc 001c
10346 D1C0 20 C2            .    bra c2
10347 ; if this is column 8 (9 for pascal programmers ;)
10348 D1C2 F6 00 5F        .._   ldab 005f
10349 D1C5 C1 09           ..    cmpb #09
10350 D1C7 26 0E           &.    bne 0e         ; to d1d7
10351 D1C9 CE 00 14        ...   ldx #0014
10352 D1CC 1C 00 20        ...   bset 00,x, #20
10353 D1CF F6 00 14        .     ldab 0014
10354 D1D2 F7 38 00        .8.   stab 3800      ; say its column 8
10355 D1D5 20 13            .    bra 13         ; to d1ea
10356 ; if this is column 9 (denoted as 10)
10357 D1D7 F6 00 5F        .._   ldab 005f
10358 D1DA C1 0A           ..    cmpb #0a
10359 D1DC 26 0C           &.    bne 0c
10360 D1DE CE 00 14        ...   ldx #0014
10361 D1E1 1C 00 40        ..    bset 00,x, #40 ; say its column 9
10362 D1E4 F6 00 14        ...   ldab 0014
10363 D1E7 F7 38 00        .8.   stab 3800
10364 ; clear the motor clock
10365 D1EA CE 10 00        ...   ldx #1000
10366 D1ED 1D 00 40        ..    bclr 00,x, #40 ; motor clock line low
10367 ; clear motor row output enable
10368 D1F0 CE 00 1A        ...   ldx #001a
10369 D1F3 1D 00           ..    bclr 00,x, #80
10370 D1F6 F6 00 1A        ...   ldab 001a
10371 D1F9 F7 30 00        .0.   stab 3000      ; motor driver outputs enable
10372 D1FC 39              9     rts
10373
10374 jump90:
10375 D1FD CC 40 00        .@.   ldd #4000
10376 D200 37              7     pshb
10377 D201 36              6     psha
10378 D202 F6 00 06        ...   ldab 0006
10379 D205 4F              O     clra
10380 D206 05              .     asld
10381 D207 C3 08 00        ...   addd #0800
10382 D20A 38              8     pulx
10383 D20B 8F              .     xgdx
10384 D20C AA 00           ..    ora 00,x
10385 D20E EA 01           ..    orb 01,x
10386 D210 ED 00           ..    std 00,x
10387 D212 39              9     rts
10388
10389 jump45:
10390 D213 F6 00 1F        ...   ldab 001f
10391 D216 C4 04           ..    andb #04
10392 D218 26 12           &.    bne 12
10393 D21A F6 0B C0        ...   ldab 0bc0
10394 D21D C4 10           ..    andb #10
10395 D21F 26 0B           &.    bne 0b
10396 D221 CE 00 00        ...   ldx #0000
10397 D224 3C              <     pshx
10398 D225 FC 00 44        ..D   ldd 0044
10399 D228 BD BE 9E        ...   jsr be9e             ;jump50
10400 D22B 38              8     pulx
10401 D22C BD D3 11        ...   jsr d311             ;jump30 - test position exists
10402 D22F 83 00 00        ...   subd #0000
10403 D232 27 13           '.    beq 13
10404 D234 F6 00 06        ...   ldab 0006
10405 D237 BD D4 68        ..h   jsr d468             ;jump51
10406 D23A 83 00 00        ...   subd #0000
10407 D23D 27 05           '.    beq 05
10408 D23F 8D BC           ..    bsr bc       ;jump90
10409 D241 BD D6 3C        ..<   jsr d63c             ;jump33
10410 D244 5F              _     clrb
10411 D245 4F              O     clra
10412 D246 39              9     rts
10413
10414 D247 BD D1 3D        ..=   jsr d13d             ;jump34 - motor on
10415 D24A C6 3C           .<    ldab #3c
10416 D24C F7 00 2E        ...   stab 002e
10417 D24F C6 41           .A    ldab #41
10418 D251 F7 00 31        ..1   stab 0031
10419 D254 CE 00 1B        ...   ldx #001b
10420 D257 1D 00 08        ...   bclr 00,x #08
10421 goto59:
10422 D25A F6 00 1B        ...   ldab 001b
10423 D25D C4 08           ..    andb #08
10424 D25F 26 22           &"    bne 22
10425 D261 F6 00 2E        ...   ldab 002e
10426 D264 C1 35           .5    cmpb #35
10427 D266 23 10           #.    bls 10
10428 D268 BD D5 70        ..p   jsr d570             ;jump35
10429 D26B 83 00 00        ...   subd #0000
10430 D26E 27 06           '.    beq 06
10431 D270 CE 00 1B        ...   ldx #001b
10432 D273 1C 00 08        ...   bset 00,x, #08
10433 D276 20 0B            .    bra 0b
10434 D278 BD D1 05        ...   jsr d105             ;motors_off
10435 D27B 8D 80           ..    bsr 80       ;jump90
10436 D27D BD D6 3C        ..<   jsr d63c             ;jump33
10437 D280 5F              _     clrb
10438 D281 4F              O     clra
10439 D282 39              9     rts
10440
10441 D283 F6 00 2E        ...   ldab 002e
10442 D286 C1 36           .6    cmpb #36
10443 D288 24 56           $V    bcc 56       ; to d2e0
10444 D28A BD D5 F7        ...   jsr d5f7             ;jump108
10445 D28D 83 00 00        ...   subd #0000
10446 D290 27 4E           'N    beq 4e       ; to d2e0
10447 D292 BD D5 B0        ...   jsr d5b0             ;jump31
10448 D295 83 00 00        ...   subd #0000
10449 D298 27 46           'F    beq 46       ; to d2e0
10450 D29A BD D1 05        ...   jsr d105             ;motors_off
10451 D29D F6 00 2E        ...   ldab 002e
10452 D2A0 C1 32           .2    cmpb #32
10453 D2A2 22 07           ".    bhi 07
10454 D2A4 8D 6B           .k    bsr dest 6b
10455 D2A6 83 00 00        ...   subd #0000
10456 D2A9 27 0C           '.    beq 0c
10457 D2AB BD D1 05        ...   jsr d105             ;motors_off
10458 D2AE BD D1 FD        ...   jsr d1fd             ;jump90
10459 D2B1 BD D6 3C        ..<   jsr d63c             ;jump33
10460 D2B4 5F              _     clrb
10461 D2B5 4F              O     clra
10462 D2B6 39              9     rts
10463
10464 D2B7 F6 00 06        ...   ldab 0006
10465 D2BA 4F              O     clra
10466 D2BB C3 0E 06        ...   addd #0e06
10467 D2BE 8F              .     xgdx
10468 D2BF 6C 00           l.    inc 00,x
10469 D2C1 F6 00 06        ...   ldab 0006
10470 D2C4 4F              O     clra
10471 D2C5 C3 0E 06        ...   addd #0e06
10472 D2C8 8F              .     xgdx
10473 D2C9 E6 00           ..    ldab 00,x
10474 D2CB C1 64           .d    cmpb #64
10475 D2CD 23 0D           #.    bls 0d
10476 D2CF 5F              _     clrb
10477 D2D0 37              7     pshb
10478 D2D1 F6 00 06        ...   ldab 0006
10479 D2D4 4F              O     clra
10480 D2D5 C3 0E 06        ...   addd #0e06
10481 D2D8 8F              .     xgdx
10482 D2D9 33              3     pulb
10483 D2DA E7 00           ..    stab 00,x
10484 D2DC CC 00 01        ...   ldd #0001
10485 D2DF 39              9     rts
10486
10487 D2E0 F6 00 2E        ...   ldab 002e
10488 D2E3 26 14           &.    bne 14
10489 D2E5 BD D5 F7        ...   jsr d5f7             ;jump108
10490 D2E8 83 00 00        ...   subd #0000
10491 D2EB 26 0C           &.    bne 0c
10492 D2ED BD D1 05        ...   jsr d105             ;motors_off
10493 D2F0 BD D1 FD        ...   jsr d1fd             ;jump90
10494 D2F3 BD D6 26        ..&   jsr d626             ;jump91
10495 D2F6 5F              _     clrb
10496 D2F7 4F              O     clra
10497 D2F8 39              9     rts
10498
10499 D2F9 F6 00 2E        ...   ldab 002e
10500 D2FC 26 0C           &.    bne 0c
10501 D2FE BD D1 05        ...   jsr d105             ;motors_off
10502 D301 BD D1 FD        ...   jsr d1fd             ;jump90
10503 D304 BD D6 3C        ..<   jsr d63c             ;jump33
10504 D307 5F              _     clrb
10505 D308 4F              O     clra
10506 D309 39              9     rts
10507
10508 D30A 7E D2 5A        ~.Z   jmp d25a             ;goto59
10509 D30D BD E6 1B        ...   jsr e61b             ;jump4
10510 D310 39              9     rts
10511
10512 jump30:
10513 ; tests to see if a motor exists here
10514 D311 BD D1 3D        ..=   jsr d13d             ;jump34 - motor on
10515 D314 7F 00 1C        ...   clr 001c
10516 D317 7F 00 18        ...   clr 0018
10517 D31A F6 10 0A        ...   ldab 100a
10518 D31D C4 02           ..    andb #02     ; motor overvoltage sense
10519 D31F 27 13           '.    beq 13       ; to d334
10520 D321 7C 00 1C        |..   inc 001c
10521 D324 F6 00 1C        ...   ldab 001c
10522 D327 C1 FF           ..    cmpb #ff
10523 D329 26 07           &.    bne 07
10524 D32B BD D1 05        ...   jsr d105             ;motors_off
10525 D32E CC 00 01        ...   ldd #0001
10526 D331 39              9     rts
10527 ;
10528 D332 20 10            .    bra 10      ; to d344
10529 D334 7C 00 18        |..   inc 0018
10530 D337 F6 00 18        ...   ldab 0018
10531 D33A C1 08           ..    cmpb #08
10532 D33C 26 06           &.    bne 06       ; continue
10533 D33E BD D1 05        ...   jsr d105             ;motors_off
10534 D341 5F              _     clrb
10535 D342 4F              O     clra
10536 D343 39              9     rts
10537 D344 20 D4            .    bra d4        ; continue
10538
10539 jump43:
10540 D346 3C              <     pshx
10541 D347 3C              <     pshx
10542 D348 3C              <     pshx
10543 D349 34              4     des
10544 D34A F6 0E 6D        ..m   ldab 0e6d
10545 D34D C1 01           ..    cmpb #01
10546 D34F 27 03           '.    beq 03
10547 D351 7E D4 07        ~..   jmp d407             ;goto60
10548 D354 F6 00 06        ...   ldab 0006
10549 D357 4F              O     clra
10550 D358 05              .     asld
10551 D359 C3 08 C8        ...   addd #08c8
10552 D35C 8F              .     xgdx
10553 D35D EC 00           ..    ldd 00,x
10554 D35F C4 7F           ..    andb #7f
10555 D361 4F              O     clra
10556 D362 FD 0E 6B        ..k   std 0e6b
10557 D365 7F 00 06        ...   clr 0006
10558 goto62:
10559 D368 F6 00 06        ...   ldab 0006
10560 D36B C1 3E           .>    cmpb #3e
10561 D36D 26 03           &.    bne 03
10562 D36F 7E D4 02        ~..   jmp d402             ;goto61
10563 D372 BD 97 6F        ..o   jsr 976f             ;jump41
10564 D375 F6 00 06        ...   ldab 0006
10565 D378 4F              O     clra
10566 D379 05              .     asld
10567 D37A C3 08 C8        ...   addd #08c8
10568 D37D 8F              .     xgdx
10569 D37E EC 00           ..    ldd 00,x
10570 D380 C4 7F           ..    andb #7f
10571 D382 4F              O     clra
10572 D383 B3 0E 6B        ..k   subd 0e6b
10573 D386 26 77           &w    bne 77
10574 D388 F6 00 06        ...   ldab 0006
10575 D38B 4F              O     clra
10576 D38C CE 00 0A        ...   ldx #000a
10577 D38F 02              .     idiv
10578 D390 30              0     tsx
10579 D391 E7 01           ..    stab 01,x
10580 D393 E6 01           ..    ldab 01,x
10581 D395 C1 01           ..    cmpb #01
10582 D397 26 07           &.    bne 07
10583 D399 C6 40           .@    ldab #40
10584 D39B 30              0     tsx
10585 D39C E7 00           ..    stab 00,x
10586 D39E 20 0C            .    bra 0c
10587 D3A0 30              0     tsx
10588 D3A1 E6 01           ..    ldab 01,x
10589 D3A3 C1 02           ..    cmpb #02
10590 D3A5 26 05           &.    bne 05
10591 D3A7 C6 80           ..    ldab #80
10592 D3A9 30              0     tsx
10593 D3AA E7 00           ..    stab 00,x
10594 D3AC BD D1 3D        ..=   jsr d13d             ;jump34 - motor on
10595 D3AF 5F              _     clrb
10596 D3B0 4F              O     clra
10597 D3B1 30              0     tsx
10598 D3B2 ED 03           ..    std 03,x
10599 ;look at the home sensors for this row.  If it is 0, increment 03/04 else
10600 ;decrement 03/05.   Do this 10 times.
10601 D3B4 CC 00 0A        ...   ldd #000a
10602 D3B7 ED 05           ..    std 05,x
10603 loop:
10604 D3B9 30              0     tsx
10605 D3BA EC 05           ..    ldd 05,x
10606 D3BC 2F 23           /#    ble 23       ; to D3E1
10607 D3BE F6 28 00        .(.   ldab 2800    ;snack motor home sensors
10608 D3C1 30              0     tsx
10609 D3C2 E4 00           ..    andb 00,x
10610 D3C4 26 09           &.    bne d3cf
10611 D3C6 30              0     tsx
10612 D3C7 6C 04           l.    inc 04,x
10613 D3C9 26 0C           &.    bne 0c
10614 D3CB 6C 03           l.    inc 03,x
10615 D3CD 20 08            .    bra d3d7
10616 D3CF 30              0     tsx
10617 D3D0 EC 03           ..    ldd 03,x
10618 D3D2 83 00 01        ...   subd #0001
10619 D3D5 ED 03           ..    std 03,x
10620 D3D7 30              0     tsx
10621 D3D8 EC 05           ..    ldd 05,x
10622 D3DA 83 00 01        ...   subd #0001
10623 D3DD ED 05           ..    std 05,x
10624 D3DF 20 D8            .    bra loop     ;d3b9
10625 D3E1 BD D1 05        ...   jsr d105             ;motors_off - turn motors off
10626 D3E4 30              0     tsx
10627 D3E5 EC 03           ..    ldd 03,x
10628 D3E7 2C 16           ,.    bge 16
10629 D3E9 F6 00 06        ...   ldab 0006
10630 D3EC 8D 7A           .z    bsr dest 7a
10631 D3EE 83 00 00        ...   subd #0000
10632 D3F1 27 0C           '.    beq 0c
10633 D3F3 BD D5 61        ..a   jsr d561             ;jump42
10634 D3F6 83 00 00        ...   subd #0000
10635 D3F9 26 04           &.    bne 04
10636 D3FB 5F              _     clrb
10637 D3FC 4F              O     clra
10638 D3FD 20 64            d    bra 64
10639 D3FF 7E D3 68        ~.h   jmp d368             ;goto62
10640 goto61:
10641 D402 CC 00 01        ...   ldd #0001
10642 D405 20 5C            \    bra 5c
10643 goto60:
10644 D407 F6 00 06        ...   ldab 0006
10645 D40A C1 13           ..    cmpb #13
10646 D40C 27 1C           '.    beq 1c
10647 D40E F6 00 06        ...   ldab 0006
10648 D411 C1 1D           ..    cmpb #1d
10649 D413 27 15           '.    beq 15
10650 D415 F6 00 06        ...   ldab 0006
10651 D418 C1 27           .'    cmpb #27
10652 D41A 27 0E           '.    beq 0e
10653 D41C F6 00 06        ...   ldab 0006
10654 D41F C1 31           .1    cmpb #31
10655 D421 27 07           '.    beq 07
10656 D423 F6 00 06        ...   ldab 0006
10657 D426 C1 3B           .;    cmpb #3b
10658 D428 26 37           &7    bne 37
10659 D42A BD D1 3D        ..=   jsr d13d             ;jump34 - motor on
10660 D42D 7F 00 1C        ...   clr 001c
10661 D430 7F 00 18        ...   clr 0018
10662 D433 F6 18 00        ...   ldab 1800
10663 D436 C4 40           .@    andb #40
10664 D438 26 14           &.    bne 14
10665 D43A 7C 00 1C        |..   inc 001c
10666 D43D F6 00 1C        ...   ldab 001c
10667 D440 C1 FF           ..    cmpb #ff
10668 D442 26 08           &.    bne 08
10669 D444 BD D1 05        ...   jsr d105             ;motors_off
10670 D447 CC 00 01        ...   ldd #0001
10671 D44A 20 17            .    bra 17
10672 D44C 20 11            .    bra 11
10673 D44E 7C 00 18        |..   inc 0018
10674 D451 F6 00 18        ...   ldab 0018
10675 D454 C1 08           ..    cmpb #08
10676 D456 26 07           &.    bne 07
10677 D458 BD D1 05        ...   jsr d105             ;motors_off
10678 D45B 5F              _     clrb
10679 D45C 4F              O     clra
10680 D45D 20 04            .    bra 04
10681 D45F 20 D2            .    bra d2
10682 D461 5F              _     clrb
10683 D462 4F              O     clra
10684 D463 38              8     pulx
10685 D464 38              8     pulx
10686 D465 38              8     pulx
10687 D466 31              1     ins
10688 D467 39              9     rts
10689
10690 jump51:
10691 D468 37              7     pshb
10692 D469 30              0     tsx
10693 D46A E6 00           ..    ldab 00,x
10694 D46C 4F              O     clra
10695 D46D 05              .     asld
10696 D46E C3 08 00        ...   addd #0800
10697 D471 8F              .     xgdx
10698 D472 EC 00           ..    ldd 00,x
10699 D474 5F              _     clrb
10700 D475 84 80           ..    anda #80
10701 D477 31              1     ins
10702 D478 39              9     rts
10703
10704 jump67:
10705 D479 7F 00 1C        ...   clr 001c
10706 D47C F6 00 1C        ...   ldab 001c
10707 D47F C1 64           .d    cmpb #64
10708 D481 24 1A           $.    bcc 1a
10709 D483 CC FF 7F        ...   ldd #ff7f
10710 D486 37              7     pshb
10711 D487 36              6     psha
10712 D488 F6 00 1C        ...   ldab 001c
10713 D48B 4F              O     clra
10714 D48C 05              .     asld
10715 D48D C3 08 C8        ...   addd #08c8
10716 D490 38              8     pulx
10717 D491 8F              .     xgdx
10718 D492 A4 00           ..    anda 00,x
10719 D494 E4 01           ..    andb 01,x
10720 D496 ED 00           ..    std 00,x
10721 D498 7C 00 1C        |..   inc 001c
10722 D49B 20 DF            .    bra df
10723 D49D 7F 00 05        ...   clr 0005
10724 goto65:
10725 D4A0 F6 00 05        ...   ldab 0005
10726 D4A3 C1 50           .P    cmpb #50
10727 D4A5 25 03           %.    bcs 03
10728 D4A7 7E D5 60        ~.`   jmp d560             ;goto63
10729 D4AA F6 00 05        ...   ldab 0005
10730 D4AD 4F              O     clra
10731 D4AE C3 B0 D3        ...   addd #b0d3
10732 D4B1 8F              .     xgdx
10733 D4B2 E6 00           ..    ldab 00,x
10734 D4B4 F7 00 06        ...   stab 0006
10735 D4B7 BD D3 11        ...   jsr d311             ;jump30 - test position exists
10736 D4BA 83 00 00        ...   subd #0000
10737 D4BD 27 03           '.    beq 03
10738 D4BF 7E D5 45        ~.E   jmp d545             ;goto64
10739 D4C2 F6 00 06        ...   ldab 0006
10740 D4C5 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
10741 D4C8 83 00 00        ...   subd #0000
10742 D4CB 26 78           &x    bne 78
10743 D4CD BD D5 B0        ...   jsr d5b0             ;jump31
10744 D4D0 83 00 00        ...   subd #0000
10745 D4D3 26 06           &.    bne 06
10746 D4D5 BD D1 FD        ...   jsr d1fd             ;jump90
10747 D4D8 BD D6 3C        ..<   jsr d63c             ;jump33
10748 D4DB CC 80 00        ...   ldd #8000
10749 D4DE 37              7     pshb
10750 D4DF 36              6     psha
10751 D4E0 F6 00 06        ...   ldab 0006
10752 D4E3 4F              O     clra
10753 D4E4 05              .     asld
10754 D4E5 C3 08 00        ...   addd #0800
10755 D4E8 38              8     pulx
10756 D4E9 8F              .     xgdx
10757 D4EA AA 00           ..    ora 00,x
10758 D4EC EA 01           ..    orb 01,x
10759 D4EE ED 00           ..    std 00,x
10760 D4F0 F6 00 06        ...   ldab 0006
10761 D4F3 4F              O     clra
10762 D4F4 05              .     asld
10763 D4F5 C3 08 00        ...   addd #0800
10764 D4F8 8F              .     xgdx
10765 D4F9 EC 00           ..    ldd 00,x
10766 D4FB C4 FF           ..    andb #ff
10767 D4FD 84 3F           .?    anda #3f
10768 D4FF 83 27 0F        .'.   subd #270f
10769 D502 23 1A           #.    bls 1a
10770 D504 BD D1 FD        ...   jsr d1fd             ;jump90
10771 D507 CC 01 00        ...   ldd #0100
10772 D50A 37              7     pshb
10773 D50B 36              6     psha
10774 D50C F6 00 06        ...   ldab 0006
10775 D50F 4F              O     clra
10776 D510 05              .     asld
10777 D511 C3 08 C8        ...   addd #08c8
10778 D514 38              8     pulx
10779 D515 8F              .     xgdx
10780 D516 AA 00           ..    ora 00,x
10781 D518 EA 01           ..    orb 01,x
10782 D51A ED 00           ..    std 00,x
10783 D51C 20 25            %    bra 25
10784 D51E F6 00 06        ...   ldab 0006
10785 D521 4F              O     clra
10786 D522 05              .     asld
10787 D523 C3 08 C8        ...   addd #08c8
10788 D526 8F              .     xgdx
10789 D527 EC 00           ..    ldd 00,x
10790 D529 C4 7F           ..    andb #7f
10791 D52B F7 00 06        ...   stab 0006
10792 D52E CC 00 80        ...   ldd #0080
10793 D531 37              7     pshb
10794 D532 36              6     psha
10795 D533 F6 00 06        ...   ldab 0006
10796 D536 4F              O     clra
10797 D537 05              .     asld
10798 D538 C3 08 C8        ...   addd #08c8
10799 D53B 38              8     pulx
10800 D53C 8F              .     xgdx
10801 D53D AA 00           ..    ora 00,x
10802 D53F EA 01           ..    orb 01,x
10803 D541 ED 00           ..    std 00,x
10804 D543 20 15            .    bra 15
10805 goto64:
10806 D545 CC 7F FF        ...   ldd #7fff
10807 D548 37              7     pshb
10808 D549 36              6     psha
10809 D54A F6 00 06        ...   ldab 0006
10810 D54D 4F              O     clra
10811 D54E 05              .     asld
10812 D54F C3 08 00        ...   addd #0800
10813 D552 38              8     pulx
10814 D553 8F              .     xgdx
10815 D554 A4 00           ..    anda 00,x
10816 D556 E4 01           ..    andb 01,x
10817 D558 ED 00           ..    std 00,x
10818 D55A 7C 00 05        |..   inc 0005
10819 D55D 7E D4 A0        ~..   jmp d4a0             ;goto65
10820 goto63:
10821 D560 39              9     rts
10822
10823 jump42:
10824 D561 F6 00 06        ...   ldab 0006
10825 D564 4F              O     clra
10826 D565 05              .     asld
10827 D566 C3 08 00        ...   addd #0800
10828 D569 8F              .     xgdx
10829 D56A EC 00           ..    ldd 00,x
10830 D56C 5F              _     clrb
10831 D56D 84 40           .@    anda #40
10832 D56F 39              9     rts
10833
10834 ;Look at the home sensor for the row of this slot.  If it isn't 0 within 5
10835 ;loops, return 1 (fault?), else return 0 (OK?).
10836 ;005f is the row number in this routine.  scratch variable?
10837 ;looks like 0006 is the slot number.
10838 ;this is called twice
10839 jump35:
10840 D570 F6 00 06        ...   ldab 0006
10841 D573 4F              O     clra
10842 D574 CE 00 0A        ...   ldx #000a
10843 D577 02              .     idiv
10844 D578 F7 00 5F        .._   stab 005f
10845 D57B F6 00 5F        .._   ldab 005f
10846 D57E C1 05           ..    cmpb #05
10847 D580 23 03           #.    bls d585
10848 D582 7A 00 5F        z._   dec 005f
10849 D585 F6 00 5F        .._   ldab 005f    ;row number
10850 D588 4F              O     clra
10851 D589 C3 B1 23        ..#   addd #b123
10852 D58C 8F              .     xgdx
10853 D58D E6 00           ..    ldab 00,x    ;get bit for this row
10854 D58F F7 00 5E        ..^   stab 005e
10855 D592 7F 00 1C        ...   clr 001c
10856 loop:
10857 D595 F6 28 00        .(.   ldab 2800    ;snack motor home sensors
10858 D598 F4 00 5E        ..^   andb 005e    ;check home sensor for this row
10859 D59B 27 10           '.    beq d5ad
10860 D59D 7C 00 1C        |..   inc 001c
10861 D5A0 F6 00 1C        ...   ldab 001c
10862 D5A3 C1 05           ..    cmpb #05
10863 D5A5 26 04           &.    bne d5ab
10864 D5A7 CC 00 01        ...   ldd #0001
10865 D5AA 39              9     rts
10866
10867 D5AB 20 E8            .    bra loop     ;d595
10868 D5AD 5F              _     clrb
10869 D5AE 4F              O     clra
10870 D5AF 39              9     rts
10871
10872 ;This does almost the same - check the home sensor for this row (slot number
10873 ;is in 0006) up to 5 times.  If it is 1, return 0.  If it stays 0, return 0.
10874 ;(this is the reverse of the routine above).  But also check bit 0 of 100a.
10875 ;If it is ever 0, return 0.
10876 ;005f is the row number
10877 ;005e is the bit mask for this row
10878 jump31:
10879 D5B0 F6 00 06        ...   ldab 0006
10880 D5B3 4F              O     clra
10881 D5B4 CE 00 0A        ...   ldx #000a
10882 D5B7 02              .     idiv
10883 D5B8 F7 00 5F        .._   stab 005f
10884 D5BB F6 00 5F        .._   ldab 005f
10885 D5BE C1 05           ..    cmpb #05
10886 D5C0 23 03           #.    bls 03
10887 D5C2 7A 00 5F        z._   dec 005f
10888 D5C5 F6 00 5F        .._   ldab 005f
10889 D5C8 4F              O     clra
10890 D5C9 C3 B1 23        ..#   addd #b123
10891 D5CC 8F              .     xgdx
10892 D5CD E6 00           ..    ldab 00,x
10893 D5CF F7 00 5E        ..^   stab 005e
10894 D5D2 7F 00 1C        ...   clr 001c
10895 loop:
10896 D5D5 F6 28 00        .(.   ldab 2800    ;snack motor home sensors
10897 D5D8 F4 00 5E        ..^   andb 005e
10898 D5DB 26 17           &.    bne d5f4
10899 D5DD F6 10 0A        ...   ldab 100a
10900 D5E0 C4 01           ..    andb #01
10901 D5E2 27 10           '.    beq d5f4
10902 D5E4 7C 00 1C        |..   inc 001c
10903 D5E7 F6 00 1C        ...   ldab 001c
10904 D5EA C1 05           ..    cmpb #05
10905 D5EC 26 04           &.    bne d5f2
10906 D5EE CC 00 01        ...   ldd #0001
10907 D5F1 39              9     rts
10908
10909 D5F2 20 E1            .    bra loop     ;d5d5
10910 D5F4 5F              _     clrb
10911 D5F5 4F              O     clra
10912 D5F6 39              9     rts
10913
10914 jump108:
10915 D5F7 C6 07           ..    ldab #07
10916 D5F9 F7 00 1C        ...   stab 001c
10917 D5FC 7F 00 18        ...   clr 0018
10918 ;
10919 D5FF F6 00 1C        ...   ldab 001c
10920 D602 27 1E           '.    beq 1e        ; to d620
10921 D604 7A 00 1C        z..   dec 001c
10922 D607 F6 10 0A        ...   ldab 100a
10923 D60A C4 01           ..    andb #01
10924 D60C 26 12           &.    bne 12        ; to d620
10925 D60E C6 07           ..    ldab #07
10926 D610 F7 00 1C        ...   stab 001c
10927 D613 7C 00 18        |..   inc 0018
10928 D616 F6 00 18        ...   ldab 0018
10929 D619 C1 05           ..    cmpb #05
10930 D61B 26 03           &.    bne 03
10931 D61D 5F              _     clrb
10932 D61E 4F              O     clra
10933 D61F 39              9     rts
10934 ;
10935 D620 20 DD            .    bra dd        ; to d5ff
10936 D622 CC 00 01        ...   ldd #0001
10937 D625 39              9     rts
10938
10939 jump91:
10940 ; ORs memory location 08c8+(slotnum*2) with #0200
10941 D626 CC 02 00        ...   ldd #0200
10942 D629 37              7     pshb
10943 D62A 36              6     psha
10944 D62B F6 00 06        ...   ldab 0006
10945 D62E 4F              O     clra
10946 D62F 05              .     asld
10947 D630 C3 08 C8        ...   addd #08c8
10948 D633 38              8     pulx
10949 D634 8F              .     xgdx
10950 D635 AA 00           ..    ora 00,x
10951 D637 EA 01           ..    orb 01,x
10952 D639 ED 00           ..    std 00,x
10953 D63B 39              9     rts
10954
10955 jump33:
10956 ; ORs memory location 08c8+(slotnum*2) with #0400
10957 D63C CC 04 00        ...   ldd #0400
10958 D63F 37              7     pshb
10959 D640 36              6     psha
10960 D641 F6 00 06        ...   ldab 0006
10961 D644 4F              O     clra
10962 D645 05              .     asld
10963 D646 C3 08 C8        ...   addd #08c8
10964 D649 38              8     pulx
10965 D64A 8F              .     xgdx
10966 D64B AA 00           ..    ora 00,x
10967 D64D EA 01           ..    orb 01,x
10968 D64F ED 00           ..    std 00,x
10969 D651 39              9     rts
10970
10971 jump5:
10972 ; Sends a pulse to the bill acceptor
10973 D652 CE 00 1A        ...   ldx #001a
10974 D655 1C 00 01        ..    bset 00,x, #01
10975 D658 F6 00 1A        ...   ldab 001a
10976 D65B F7 30 00        .0.   stab 3000
10977 D65E CE 00 14        ...   ldx #0014
10978 D661 1D 00 01        ..    bclr 00,x, #01
10979 D664 F6 00 14        ...   ldab 0014
10980 D667 F7 38 00        .8.   stab 3800
10981 D66A 39              9     rts
10982
10983 jump107:
10984 D66B F6 0B C0        ...   ldab 0bc0
10985 D66E C4 08           ..    andb #08
10986 D670 27 07           '.    beq 07
10987 D672 F6 00 7D        ..}   ldab 007d
10988 D675 27 02           '.    beq 02
10989 D677 20 F9            .    bra f9
10990 D679 F6 00 15        ...   ldab 0015
10991 D67C 2D 77           -w    blt 77
10992 D67E FC 00 40        ..@   ldd 0040
10993 D681 F3 00 3E        ..>   addd 003e
10994 D684 B3 00 0F        ...   subd 000f
10995 D687 24 4F           $O    bcc 4f
10996 D689 F6 0B C0        ...   ldab 0bc0
10997 D68C C4 01           ..    andb #01
10998 D68E 26 07           &.    bne 07
10999 D690 F6 0B C0        ...   ldab 0bc0
11000 D693 C4 04           ..    andb #04
11001 D695 27 0C           '.    beq 0c
11002 D697 CE 00 1A        ...   ldx #001a
11003 D69A 1D 00 01        ..    bclr 00,x, #01
11004 D69D F6 00 1A        ...   ldab 001a
11005 D6A0 F7 30 00        .0.   stab 3000    ; changer accept' line
11006 D6A3 F6 0B C0        ...   ldab 0bc0
11007 D6A6 C4 08           ..    andb #08
11008 D6A8 27 20           '     beq 20
11009 D6AA F6 0C D9        ...   ldab 0cd9
11010 D6AD C1 03           ..    cmpb #03
11011 D6AF 23 19           #.    bls 19
11012 D6B1 FC 0B EF        ...   ldd 0bef
11013 D6B4 83 00 64        ..d   subd #0064
11014 D6B7 25 11           %.    bcs 11
11015 D6B9 CE 00 14        ...   ldx #0014
11016 D6BC 1C 00 02        ..    bset 00,x, #02
11017 D6BF F6 00 14        ...   ldab 0014
11018 D6C2 F7 38 00        .8.   stab 3800    ; bill acceptor
11019 D6C5 BD C0 E0        ...   jsr c0e0             ;jump94
11020 D6C8 20 0C            .    bra 0c
11021 D6CA CE 00 14        ...   ldx #0014
11022 D6CD 1D 00 01        ..    bclr 00,x, #01
11023 D6D0 F6 00 14        ...   ldab 0014
11024 D6D3 F7 38 00        .8.   stab 3800
11025 D6D6 20 05            .    bra 05
11026 D6D8 BD D6 52        ..R   jsr d652             ;jump5
11027 D6DB 8D 53           .S    bsr dest 53
11028 D6DD F6 0B C0        ...   ldab 0bc0
11029 D6E0 C4 08           ..    andb #08
11030 D6E2 27 11           '.    beq 11
11031 D6E4 F6 0B C0        ...   ldab 0bc0
11032 D6E7 C4 40           .@    andb #40
11033 D6E9 27 0A           '.    beq 0a
11034 D6EB F6 00 15        ...   ldab 0015
11035 D6EE C4 01           ..    andb #01
11036 D6F0 27 03           '.    beq 03
11037 D6F2 BD C0 E0        ...   jsr c0e0             ;jump94
11038 D6F5 39              9     rts
11039
11040 jump106:
11041 D6F6 F6 0C DB        ...   ldab 0cdb
11042 D6F9 4F              O     clra
11043 D6FA 37              7     pshb
11044 D6FB 36              6     psha
11045 D6FC FC 0B DD        ...   ldd 0bdd
11046 D6FF BD FB BA        ...   jsr fbba             ;jump38 - multiply?
11047 D702 FD 0C EB        ...   std 0ceb
11048 D705 F6 0C DA        ...   ldab 0cda
11049 D708 4F              O     clra
11050 D709 37              7     pshb
11051 D70A 36              6     psha
11052 D70B FC 0B DF        ...   ldd 0bdf
11053 D70E BD FB BA        ...   jsr fbba             ;jump38 - multiply?
11054 D711 FD 0C ED        ...   std 0ced
11055 D714 F6 0C D9        ...   ldab 0cd9
11056 D717 4F              O     clra
11057 D718 37              7     pshb
11058 D719 36              6     psha
11059 D71A FC 0B E1        ...   ldd 0be1
11060 D71D BD FB BA        ...   jsr fbba             ;jump38 - multiply?
11061 D720 FD 0C EF        ...   std 0cef
11062 D723 FC 0C EB        ...   ldd 0ceb
11063 D726 F3 0C ED        ...   addd 0ced
11064 D729 F3 0C EF        ...   addd 0cef
11065 D72C FD 0B EF        ...   std 0bef
11066 D72F 39              9     rts
11067
11068 jump202:
11069 D730 F6 00 15        ...   ldab 0015
11070 D733 C4 1F           ..    andb #1f
11071 D735 27 49           'I    beq 49
11072 D737 FC 00 40        ..@   ldd 0040
11073 D73A F3 00 3E        ..>   addd 003e
11074 D73D B3 0B EF        ...   subd 0bef
11075 D740 23 19           #.    bls 19
11076 D742 CC B0 6B        ..k   ldd #b06b    ; "NO CHANGE"
11077 D745 BD C0 BA        ...   jsr c0ba             ;display:
11078 D748 CC 01 F4        ...   ldd #01f4
11079 D74B BD E5 71        ..q   jsr e571             ;msdelay
11080 D74E BD C5 D3        ...   jsr c5d3             ;jump6
11081 D751 CC 01 F4        ...   ldd #01f4
11082 D754 BD E5 71        ..q   jsr e571             ;msdelay
11083 D757 CC 00 01        ...   ldd #0001
11084 D75A 39              9     rts
11085 ;
11086 D75B F6 00 15        ...   ldab 0015
11087 D75E C4 04           ..    andb #04
11088 D760 27 1E           '.    beq 1e
11089 D762 F6 0E 6E        ..n   ldab 0e6e
11090 D765 26 19           &.    bne 19
11091 D767 CC B0 76        ..v   ldd #b076    ; "NO FIVES"
11092 D76A BD C0 BA        ...   jsr c0ba             ;display:
11093 D76D CC 01 F4        ...   ldd #01f4
11094 D770 BD E5 71        ..q   jsr e571             ;msdelay
11095 D773 BD C5 D3        ...   jsr c5d3             ;jump6
11096 D776 CC 01 F4        ...   ldd #01f4
11097 D779 BD E5 71        ..q   jsr e571             ;msdelay
11098 D77C CC 00 01        ...   ldd #0001
11099 D77F 39              9     rts
11100 ;
11101 D780 5F              _     clrb
11102 D781 4F              O     clra
11103 D782 39              9     rts
11104
11105 jump44:
11106 D783 F6 00 06        ...   ldab 0006
11107 D786 4F              O     clra
11108 D787 CE 00 0A        ...   ldx #000a
11109 D78A 02              .     idiv
11110 D78B C1 04           ..    cmpb #04
11111 D78D 26 0E           &.    bne 0e
11112 D78F F6 00 1D        ...   ldab 001d
11113 D792 C4 04           ..    andb #04
11114 D794 27 03           '.    beq 03
11115 D796 5F              _     clrb
11116 D797 4F              O     clra
11117 D798 39              9     rts
11118
11119 D799 CC 00 01        ...   ldd #0001
11120 D79C 39              9     rts
11121
11122 D79D 5F              _     clrb
11123 D79E 4F              O     clra
11124 D79F 39              9     rts
11125
11126 is_invalid_slot:
11127 ; validates a slot number? (return 1 if invalid)
11128 ; let i = number on stack
11129 ; if i in [9, 69, 79, 89, 99], return 1
11130 ; if 0e6d!=1 return 0
11131 ; if i%10 not in [1,2] return 1
11132 ; if i < 11 return 1
11133 ; if i <= 62 return 0
11134 ; return 1
11135 D7A0 37              7     pshb
11136 D7A1 30              0     tsx
11137 D7A2 E6 00           ..    ldab 00,x
11138 D7A4 C1 09           ..    cmpb #09     ; 9
11139 D7A6 27 18           '.    beq 18       ; to d7c0 (returns 1)
11140 D7A8 E6 00           ..    ldab 00,x
11141 D7AA C1 45           .E    cmpb #45     ; 69
11142 D7AC 27 12           '.    beq 12       ; to d7c0 (returns 1)
11143 D7AE E6 00           ..    ldab 00,x
11144 D7B0 C1 4F           .O    cmpb #4f     ; 79
11145 D7B2 27 0C           '.    beq 0c       ; to d7c0 (returns 1)
11146 D7B4 E6 00           ..    ldab 00,x
11147 D7B6 C1 59           .Y    cmpb #59     ; 89
11148 D7B8 27 06           '.    beq 06       ; to d7c0 (returns 1)
11149 D7BA E6 00           ..    ldab 00,x
11150 D7BC C1 63           .c    cmpb #63     ; 99 (also returns 1)
11151 D7BE 26 05           &.    bne 05       ; to d7c5 if not equal
11152 D7C0 CC 00 01        ...   ldd #0001
11153 D7C3 20 38            8    bra 38       ; to d7fd (return 1)
11154 D7C5 F6 0E 6D        ..m   ldab 0e6d
11155 D7C8 C1 01           ..    cmpb #01
11156 D7CA 26 2F           &/    bne 2f       ;to d7fb (return 0)
11157 D7CC 30              0     tsx
11158 D7CD E6 00           ..    ldab 00,x
11159 D7CF 4F              O     clra
11160 D7D0 CE 00 0A        ...   ldx #000a
11161 D7D3 02              .     idiv
11162 D7D4 C1 01           ..    cmpb #01
11163 D7D6 27 11           '.    beq 11      ;to d7e9 if num%10==1
11164 D7D8 30              0     tsx
11165 D7D9 E6 00           ..    ldab 00,x
11166 D7DB 4F              O     clra
11167 D7DC CE 00 0A        ...   ldx #000a
11168 D7DF 02              .     idiv
11169 D7E0 C1 02           ..    cmpb #02
11170 D7E2 27 05           '.    beq 05      ;to d7e9 if num%10==2
11171 D7E4 CC 00 01        ...   ldd #0001
11172 D7E7 20 14            .    bra 14      ; to d7fd (return 1)
11173 D7E9 30              0     tsx
11174 D7EA E6 00           ..    ldab 00,x
11175 D7EC C1 0B           ..    cmpb #0b    ; < 11
11176 D7EE 25 06           %.    bcs 06      ; return 1
11177 D7F0 E6 00           ..    ldab 00,x
11178 D7F2 C1 3E           .>    cmpb #3e    ; <= 62
11179 D7F4 23 05           #.    bls 05      ; return 0
11180 D7F6 CC 00 01        ...   ldd #0001
11181 D7F9 20 02            .    bra 02
11182 D7FB 5F              _     clrb
11183 D7FC 4F              O     clra
11184 D7FD 31              1     ins
11185 D7FE 39              9     rts
11186
11187 jump80:
11188 D7FF 7F 00 1C        ...   clr 001c
11189 D802 F6 00 1C        ...   ldab 001c
11190 D805 4F              O     clra
11191 D806 B3 00 4D        ..M   subd 004d
11192 D809 24 05           $.    bcc 05
11193 D80B 7C 00 1C        |..   inc 001c
11194 D80E 20 F2            .    bra f2
11195 D810 F6 00 1C        ...   ldab 001c
11196 D813 4F              O     clra
11197 D814 05              .     asld
11198 D815 C3 0D 1F        ...   addd #0d1f
11199 D818 8F              .     xgdx
11200 D819 EC 00           ..    ldd 00,x
11201 D81B 83 FF FF        ...   subd #ffff
11202 D81E 26 10           &.    bne 10
11203 D820 5F              _     clrb
11204 D821 4F              O     clra
11205 D822 37              7     pshb
11206 D823 36              6     psha
11207 D824 F6 00 1C        ...   ldab 001c
11208 D827 4F              O     clra
11209 D828 05              .     asld
11210 D829 C3 0D 1F        ...   addd #0d1f
11211 D82C 38              8     pulx
11212 D82D 8F              .     xgdx
11213 D82E ED 00           ..    std 00,x
11214 D830 F6 00 1C        ...   ldab 001c
11215 D833 4F              O     clra
11216 D834 05              .     asld
11217 D835 C3 0D 1F        ...   addd #0d1f
11218 D838 8F              .     xgdx
11219 D839 6C 01           l.    inc 01,x
11220 D83B 26 02           &.    bne 02
11221 D83D 6C 00           l.    inc 00,x
11222 D83F 39              9     rts
11223
11224 jump105:
11225 D840 FC 00 44        ..D   ldd 0044
11226 D843 26 03           &.    bne 03
11227 D845 7E D8 D2        ~..   jmp d8d2             ;goto66
11228 D848 FC 00 44        ..D   ldd 0044
11229 D84B 37              7     pshb
11230 D84C 36              6     psha
11231 D84D 4F              O     clra
11232 D84E 5F              _     clrb
11233 D84F 37              7     pshb
11234 D850 36              6     psha
11235 D851 CC 0D EB        ...   ldd #0deb
11236 D854 BD FB DF        ...   jsr fbdf             ;jump46
11237 D857 31              1     ins
11238 D858 31              1     ins
11239 D859 FE 0D ED        ...   ldx 0ded
11240 D85C 3C              <     pshx
11241 D85D FC 0D EB        ...   ldd 0deb
11242 D860 37              7     pshb
11243 D861 36              6     psha
11244 D862 CE E1 00        ...   ldx #e100
11245 D865 3C              <     pshx
11246 D866 CC 05 F5        ...   ldd #05f5
11247 D869 37              7     pshb
11248 D86A 36              6     psha
11249 D86B 30              0     tsx
11250 D86C EC 06           ..    ldd 06,x
11251 D86E A3 02           ..    subd 02,x
11252 D870 EC 04           ..    ldd 04,x
11253 D872 E2 01           ..    sbcb 01,x
11254 D874 A2 00           ..    sbca 00,x
11255 D876 38              8     pulx
11256 D877 38              8     pulx
11257 D878 38              8     pulx
11258 D879 38              8     pulx
11259 D87A 25 11           %.    bcs 11
11260 D87C CE 1F 00        ...   ldx #1f00
11261 D87F 3C              <     pshx
11262 D880 CC FA 0A        ...   ldd #fa0a
11263 D883 37              7     pshb
11264 D884 36              6     psha
11265 D885 CC 0D EB        ...   ldd #0deb
11266 D888 BD FB DF        ...   jsr fbdf             ;jump46
11267 D88B 31              1     ins
11268 D88C 31              1     ins
11269 D88D FC 00 44        ..D   ldd 0044
11270 D890 37              7     pshb
11271 D891 36              6     psha
11272 D892 4F              O     clra
11273 D893 5F              _     clrb
11274 D894 37              7     pshb
11275 D895 36              6     psha
11276 D896 CC 0D E7        ...   ldd #0de7
11277 D899 BD FB DF        ...   jsr fbdf             ;jump46
11278 D89C 31              1     ins
11279 D89D 31              1     ins
11280 D89E FE 0D E9        ...   ldx 0de9
11281 D8A1 3C              <     pshx
11282 D8A2 FC 0D E7        ...   ldd 0de7
11283 D8A5 37              7     pshb
11284 D8A6 36              6     psha
11285 D8A7 CE E1 00        ...   ldx #e100
11286 D8AA 3C              <     pshx
11287 D8AB CC 05 F5        ...   ldd #05f5
11288 D8AE 37              7     pshb
11289 D8AF 36              6     psha
11290 D8B0 30              0     tsx
11291 D8B1 EC 06           ..    ldd 06,x
11292 D8B3 A3 02           ..    subd 02,x
11293 D8B5 EC 04           ..    ldd 04,x
11294 D8B7 E2 01           ..    sbcb 01,x
11295 D8B9 A2 00           ..    sbca 00,x
11296 D8BB 38              8     pulx
11297 D8BC 38              8     pulx
11298 D8BD 38              8     pulx
11299 D8BE 38              8     pulx
11300 D8BF 25 11           %.    bcs 11
11301 D8C1 CE 1F 00        ...   ldx #1f00
11302 D8C4 3C              <     pshx
11303 D8C5 CC FA 0A        ...   ldd #fa0a
11304 D8C8 37              7     pshb
11305 D8C9 36              6     psha
11306 D8CA CC 0D E7        ...   ldd #0de7
11307 D8CD BD FB DF        ...   jsr fbdf             ;jump46
11308 D8D0 31              1     ins
11309 D8D1 31              1     ins
11310 goto66:
11311 D8D2 39              9     rts
11312
11313 jump84:
11314 ;500 ms delay
11315 D8D3 7F 00 18        ...   clr 0018
11316 D8D6 F6 00 18        ...   ldab 0018
11317 D8D9 C1 10           ..    cmpb #10
11318 D8DB 24 0B           $.    bcc 0b
11319 D8DD CC 00 32        ..2   ldd #0032
11320 D8E0 BD E5 71        ..q   jsr e571             ;msdelay
11321 D8E3 7C 00 18        |..   inc 0018
11322 D8E6 20 EE            .    bra ee
11323 D8E8 39              9     rts
11324
11325 jump92:
11326 D8E9 F6 00 2B        ..+   ldab 002b
11327 D8EC C1 00           ..    cmpb #00
11328 D8EE 26 18           &.    bne 18
11329 D8F0 CC AD 84        ...   ldd #ad84    ; "  PULSE  "
11330 D8F3 BD C0 BA        ...   jsr c0ba             ;display:
11331 D8F6 8D DB           ..    bsr dest db
11332 D8F8 CC AD 8F        ...   ldd #ad8f    ; "  EXTRA  "
11333 D8FB BD C0 BA        ...   jsr c0ba             ;display:
11334 D8FE 8D D3           ..    bsr dest d3
11335 D900 CC AD 9A        ...   ldd #ad9a    ; "SELECTION"
11336 D903 BD C0 BA        ...   jsr c0ba             ;display:
11337 D906 20 4E            N    bra 4e
11338 D908 C1 01           ..    cmpb #01
11339 D90A 26 18           &.    bne 18
11340 D90C CC AD 63        ..c   ldd #ad63    ; "  BITTE  "
11341 D90F BD C0 BA        ...   jsr c0ba             ;display:
11342 D912 8D BF           ..    bsr dest bf
11343 D914 CC AD 6E        ..n   ldd #ad6e    ; "  ANDERE  "
11344 D917 BD C0 BA        ...   jsr c0ba             ;display:
11345 D91A 8D B7           ..    bsr dest b7
11346 D91C CC AD 79        ..y   ldd #ad79    ; "   WAHL   "
11347 D91F BD C0 BA        ...   jsr c0ba             ;display:
11348 D922 20 32            2    bra 32
11349 D924 C1 02           ..    cmpb #02
11350 D926 26 18           &.    bne 18
11351 D928 CC AD 42        ..B   ldd #ad42
11352 D92B BD C0 BA        ...   jsr c0ba             ;display:
11353 D92E 8D A3           ..    bsr dest a3
11354 D930 CC AD 4D        ..M   ldd #ad4d
11355 D933 BD C0 BA        ...   jsr c0ba             ;display:
11356 D936 8D 9B           ..    bsr dest 9b
11357 D938 CC AD 58        ..X   ldd #ad58
11358 D93B BD C0 BA        ...   jsr c0ba             ;display:
11359 D93E 20 16            .    bra 16
11360 D940 CC AD 21        ..!   ldd #ad21
11361 D943 BD C0 BA        ...   jsr c0ba             ;display:
11362 D946 8D 8B           ..    bsr dest 8b
11363 D948 CC AD 2C        ..,   ldd #ad2c
11364 D94B BD C0 BA        ...   jsr c0ba             ;display:
11365 D94E 8D 83           ..    bsr dest 83
11366 D950 CC AD 37        ..7   ldd #ad37
11367 D953 BD C0 BA        ...   jsr c0ba             ;display:
11368 D956 BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
11369 D959 39              9     rts
11370
11371 jump123:
11372 D95A F6 00 06        ...   ldab 0006
11373 D95D F1 0B AF        ...   cmpb 0baf
11374 D960 26 0D           &.    bne 0d
11375 D962 BD D7 FF        ...   jsr d7ff             ;jump80
11376 D965 F6 0B B4        ...   ldab 0bb4
11377 D968 F7 00 06        ...   stab 0006
11378 D96B 8D 55           .U    bsr dest 55
11379 D96D 20 52            R    bra 52
11380 D96F F6 00 06        ...   ldab 0006
11381 D972 F1 0B AE        ...   cmpb 0bae
11382 D975 26 0D           &.    bne 0d
11383 D977 BD D7 FF        ...   jsr d7ff             ;jump80
11384 D97A F6 0B B3        ...   ldab 0bb3
11385 D97D F7 00 06        ...   stab 0006
11386 D980 8D 40           .@    bsr dest 40
11387 D982 20 3D            =    bra 3d
11388 D984 F6 00 06        ...   ldab 0006
11389 D987 F1 0B AD        ...   cmpb 0bad
11390 D98A 26 0D           &.    bne 0d
11391 D98C BD D7 FF        ...   jsr d7ff             ;jump80
11392 D98F F6 0B B2        ...   ldab 0bb2
11393 D992 F7 00 06        ...   stab 0006
11394 D995 8D 2B           .+    bsr dest 2b
11395 D997 20 28            (    bra 28
11396 D999 F6 00 06        ...   ldab 0006
11397 D99C F1 0B AC        ...   cmpb 0bac
11398 D99F 26 0D           &.    bne 0d
11399 D9A1 BD D7 FF        ...   jsr d7ff             ;jump80
11400 D9A4 F6 0B B1        ...   ldab 0bb1
11401 D9A7 F7 00 06        ...   stab 0006
11402 D9AA 8D 16           ..    bsr dest 16
11403 D9AC 20 13            .    bra 13
11404 D9AE F6 00 06        ...   ldab 0006
11405 D9B1 F1 0B AB        ...   cmpb 0bab
11406 D9B4 26 0B           &.    bne 0b
11407 D9B6 BD D7 FF        ...   jsr d7ff             ;jump80
11408 D9B9 F6 0B B0        ...   ldab 0bb0
11409 D9BC F7 00 06        ...   stab 0006
11410 D9BF 8D 01           ..    bsr dest 01
11411 D9C1 39              9     rts
11412
11413 D9C2 CC 03 E8        ...   ldd #03e8
11414 D9C5 BD E5 71        ..q   jsr e571             ;msdelay
11415 D9C8 BD D7 83        ...   jsr d783             ;jump44
11416 D9CB 83 00 00        ...   subd #0000
11417 D9CE 27 0B           '.    beq 0b
11418 D9D0 7F 00 06        ...   clr 0006
11419 D9D3 5F              _     clrb
11420 D9D4 4F              O     clra
11421 D9D5 FD 00 4D        ..M   std 004d
11422 D9D8 7E DA 63        ~.c   jmp da63             ;goto67
11423 D9DB BD D2 13        ...   jsr d213             ;jump45
11424 D9DE 83 00 00        ...   subd #0000
11425 D9E1 26 0A           &.    bne 0a
11426 D9E3 7F 00 06        ...   clr 0006
11427 D9E6 5F              _     clrb
11428 D9E7 4F              O     clra
11429 D9E8 FD 00 4D        ..M   std 004d
11430 D9EB 20 76            v    bra 76
11431 D9ED FC 0D 0B        ...   ldd 0d0b
11432 D9F0 83 FF FF        ...   subd #ffff
11433 D9F3 26 05           &.    bne 05
11434 D9F5 5F              _     clrb
11435 D9F6 4F              O     clra
11436 D9F7 FD 0D 0B        ...   std 0d0b
11437 D9FA FE 0D 0B        ...   ldx 0d0b
11438 D9FD 08              .     inx
11439 D9FE FF 0D 0B        ...   stx 0d0b
11440 DA01 F6 00 06        ...   ldab 0006
11441 DA04 4F              O     clra
11442 DA05 05              .     asld
11443 DA06 C3 08 C8        ...   addd #08c8
11444 DA09 8F              .     xgdx
11445 DA0A EC 00           ..    ldd 00,x
11446 DA0C C4 7F           ..    andb #7f
11447 DA0E 4F              O     clra
11448 DA0F FD 00 4D        ..M   std 004d
11449 DA12 F6 00 06        ...   ldab 0006
11450 DA15 4F              O     clra
11451 DA16 05              .     asld
11452 DA17 C3 08 00        ...   addd #0800
11453 DA1A 8F              .     xgdx
11454 DA1B EC 00           ..    ldd 00,x
11455 DA1D C4 FF           ..    andb #ff
11456 DA1F 84 3F           .?    anda #3f
11457 DA21 37              7     pshb
11458 DA22 36              6     psha
11459 DA23 4F              O     clra
11460 DA24 5F              _     clrb
11461 DA25 37              7     pshb
11462 DA26 36              6     psha
11463 DA27 CC 0D 17        ...   ldd #0d17
11464 DA2A BD FB DF        ...   jsr fbdf             ;jump46
11465 DA2D 31              1     ins
11466 DA2E 31              1     ins
11467 DA2F FE 0D 19        ...   ldx 0d19
11468 DA32 3C              <     pshx
11469 DA33 FC 0D 17        ...   ldd 0d17
11470 DA36 37              7     pshb
11471 DA37 36              6     psha
11472 DA38 CE E1 00        ...   ldx #e100
11473 DA3B 3C              <     pshx
11474 DA3C CC 05 F5        ...   ldd #05f5
11475 DA3F 37              7     pshb
11476 DA40 36              6     psha
11477 DA41 30              0     tsx
11478 DA42 EC 06           ..    ldd 06,x
11479 DA44 A3 02           ..    subd 02,x
11480 DA46 EC 04           ..    ldd 04,x
11481 DA48 E2 01           ..    sbcb 01,x
11482 DA4A A2 00           ..    sbca 00,x
11483 DA4C 38              8     pulx
11484 DA4D 38              8     pulx
11485 DA4E 38              8     pulx
11486 DA4F 38              8     pulx
11487 DA50 25 11           %.    bcs 11
11488 DA52 CE 1F 00        ...   ldx #1f00
11489 DA55 3C              <     pshx
11490 DA56 CC FA 0A        ...   ldd #fa0a
11491 DA59 37              7     pshb
11492 DA5A 36              6     psha
11493 DA5B CC 0D 17        ...   ldd #0d17
11494 DA5E BD FB DF        ...   jsr fbdf             ;jump46
11495 DA61 31              1     ins
11496 DA62 31              1     ins
11497 goto67:
11498 DA63 39              9     rts
11499
11500 jump122:
11501 DA64 FE 0B B9        ...   ldx 0bb9
11502 DA67 08              .     inx
11503 DA68 FF 0B B9        ...   stx 0bb9
11504 DA6B FC 0B B5        ...   ldd 0bb5
11505 DA6E CE 00 32        ..2   ldx #0032
11506 DA71 02              .     idiv
11507 DA72 8F              .     xgdx
11508 DA73 37              7     pshb
11509 DA74 36              6     psha
11510 DA75 CC 00 C3        ...   ldd #00c3
11511 DA78 BD FB BA        ...   jsr fbba             ;jump38
11512 DA7B B3 0B B9        ...   subd 0bb9
11513 DA7E 24 05           $.    bcc 05
11514 DA80 5F              _     clrb
11515 DA81 4F              O     clra
11516 DA82 FD 0B B9        ...   std 0bb9
11517 DA85 FC 0B B9        ...   ldd 0bb9
11518 DA88 37              7     pshb
11519 DA89 36              6     psha
11520 DA8A CC 00 0A        ...   ldd #000a
11521 DA8D BD FB BA        ...   jsr fbba             ;jump38
11522 DA90 37              7     pshb
11523 DA91 36              6     psha
11524 DA92 FC 0B B5        ...   ldd 0bb5
11525 DA95 CE 00 32        ..2   ldx #0032
11526 DA98 02              .     idiv
11527 DA99 8F              .     xgdx
11528 DA9A 38              8     pulx
11529 DA9B 8F              .     xgdx
11530 DA9C 02              .     idiv
11531 DA9D 8F              .     xgdx
11532 DA9E 37              7     pshb
11533 DA9F 36              6     psha
11534 DAA0 CC 00 0A        ...   ldd #000a
11535 DAA3 BD FB BA        ...   jsr fbba             ;jump38
11536 DAA6 CE 00 0A        ...   ldx #000a
11537 DAA9 02              .     idiv
11538 DAAA 8F              .     xgdx
11539 DAAB FD 00 4A        ..J   std 004a
11540 DAAE FC 00 4A        ..J   ldd 004a
11541 DAB1 BD FE 32        ..2   jsr fe32             ;jump25
11542 DAB4 DA CA 00 6E     ...n  ; 110
11543 DAB8 DA CA 02 80     ....  ; 750
11544 DABC DA CA 01 C2     ....  ; 1200
11545 DAC0 DA CA 01 C2     ....  ; 1650
11546 DAC4 DB 43 F9 8E     ....  ; 0
11547 DAC8 00 00           ..    ; end of array data
11548 DACA FC 0D 07        ...   ldd 0d07
11549 DACD 83 FF FF        ...   subd #ffff
11550 DAD0 26 05           &.    bne 05
11551 DAD2 5F              _     clrb
11552 DAD3 4F              O     clra
11553 DAD4 FD 0D 07        ...   std 0d07
11554 DAD7 FE 0D 07        ...   ldx 0d07
11555 DADA 08              .     inx
11556 DADB FF 0D 07        ...   stx 0d07
11557 DADE F6 00 06        ...   ldab 0006
11558 DAE1 4F              O     clra
11559 DAE2 05              .     asld
11560 DAE3 C3 08 00        ...   addd #0800
11561 DAE6 8F              .     xgdx
11562 DAE7 EC 00           ..    ldd 00,x
11563 DAE9 C4 FF           ..    andb #ff
11564 DAEB 84 3F           .?    anda #3f
11565 DAED 37              7     pshb
11566 DAEE 36              6     psha
11567 DAEF 4F              O     clra
11568 DAF0 5F              _     clrb
11569 DAF1 37              7     pshb
11570 DAF2 36              6     psha
11571 DAF3 CC 0D 0F        ...   ldd #0d0f
11572 DAF6 BD FB DF        ...   jsr fbdf             ;jump46
11573 DAF9 31              1     ins
11574 DAFA 31              1     ins
11575 DAFB FE 0D 11        ...   ldx 0d11
11576 DAFE 3C              <     pshx
11577 DAFF FC 0D 0F        ...   ldd 0d0f
11578 DB02 37              7     pshb
11579 DB03 36              6     psha
11580 DB04 CE E1 00        ...   ldx #e100
11581 DB07 3C              <     pshx
11582 DB08 CC 05 F5        ...   ldd #05f5
11583 DB0B 37              7     pshb
11584 DB0C 36              6     psha
11585 DB0D 30              0     tsx
11586 DB0E EC 06           ..    ldd 06,x
11587 DB10 A3 02           ..    subd 02,x
11588 DB12 EC 04           ..    ldd 04,x
11589 DB14 E2 01           ..    sbcb 01,x
11590 DB16 A2 00           ..    sbca 00,x
11591 DB18 38              8     pulx
11592 DB19 38              8     pulx
11593 DB1A 38              8     pulx
11594 DB1B 38              8     pulx
11595 DB1C 25 11           %.    bcs 11
11596 DB1E CE 1F 00        ...   ldx #1f00
11597 DB21 3C              <     pshx
11598 DB22 CC FA 0A        ...   ldd #fa0a
11599 DB25 37              7     pshb
11600 DB26 36              6     psha
11601 DB27 CC 0D 0F        ...   ldd #0d0f
11602 DB2A BD FB DF        ...   jsr fbdf             ;jump46
11603 DB2D 31              1     ins
11604 DB2E 31              1     ins
11605 DB2F 5F              _     clrb
11606 DB30 4F              O     clra
11607 DB31 FD 00 44        ..D   std 0044
11608 DB34 CE 00 1B        ...   ldx #001b
11609 DB37 1D 00 01        ...   bclr 00,x, #01
11610 DB3A 7F 00 4F        ..O   clr 004f
11611 DB3D CE 00 11        ...   ldx #0011
11612 DB40 1C 00 10        ...   bset 00,x, #10
11613 DB43 39              9     rts
11614
11615 jump104:
11616 ; say thankyou?
11617 DB44 F6 00 2B        ..+   ldab 002b
11618 DB47 C1 00           ..    cmpb #00
11619 DB49 26 08           &.    bne 08
11620 DB4B CC AC DF        ...   ldd #acdf
11621 DB4E BD C0 BA        ...   jsr c0ba             ;display:
11622 DB51 20 1E            .    bra 1e
11623 DB53 C1 01           ..    cmpb #01
11624 DB55 26 08           &.    bne 08
11625 DB57 CC AC D4        ...   ldd #acd4    ; "CHANGE"
11626 DB5A BD C0 BA        ...   jsr c0ba             ;display:
11627 DB5D 20 12            .    bra 12
11628 DB5F C1 02           ..    cmpb #02
11629 DB61 26 08           &.    bne 08
11630 DB63 CC AC EA        ...   ldd #acea
11631 DB66 BD C0 BA        ...   jsr c0ba             ;display:
11632 DB69 20 06            .    bra 06
11633 DB6B CC AC D4        ...   ldd #acd4
11634 DB6E BD C0 BA        ...   jsr c0ba             ;display:
11635 DB71 BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
11636 DB74 CE 00 01        ...   ldx #0001
11637 DB77 3C              <     pshx
11638 DB78 FC 00 40        ..@   ldd 0040
11639 DB7B F3 00 3E        ..>   addd 003e
11640 DB7E BD BE 9E        ...   jsr be9e             ;jump50
11641 DB81 38              8     pulx
11642 DB82 FC 00 40        ..@   ldd 0040
11643 DB85 27 05           '.    beq 05
11644 DB87 BD C4 56        ..V   jsr c456             ;jump47
11645 DB8A 20 06            .    bra 06
11646 DB8C CC 02 58        ..X   ldd #0258
11647 DB8F BD E5 71        ..q   jsr e571             ;msdelay
11648 DB92 FC 00 3E        ..>   ldd 003e
11649 DB95 27 03           '.    beq 03
11650 DB97 BD C5 D3        ...   jsr c5d3             ;jump6
11651 DB9A F6 00 2B        ..+   ldab 002b
11652 DB9D C1 00           ..    cmpb #00
11653 DB9F 26 08           &.    bne 08
11654 DBA1 CC AD 16        ...   ldd #ad16    ; "GRACIAS"
11655 DBA4 BD C0 BA        ...   jsr c0ba             ;display:
11656 DBA7 20 1E            .    bra 1e
11657 DBA9 C1 01           ..    cmpb #01
11658 DBAB 26 08           &.    bne 08
11659 DBAD CC AD 0B        ...   ldd #ad0b    ; "DANKE"
11660 DBB0 BD C0 BA        ...   jsr c0ba             ;display:
11661 DBB3 20 12            .    bra 12
11662 DBB5 C1 02           ..    cmpb #02
11663 DBB7 26 08           &.    bne 08
11664 DBB9 CC AD 00        ...   ldd #ad00    ; "MERCI"
11665 DBBC BD C0 BA        ...   jsr c0ba             ;display:
11666 DBBF 20 06            .    bra 06
11667 DBC1 CC AC F5        ...   ldd #acf5    ; "THANKS"
11668 DBC4 BD C0 BA        ...   jsr c0ba             ;display:
11669 DBC7 BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
11670 DBCA 39              9     rts
11671
11672 jump121:
11673 DBCB F6 00 1B        ...   ldab 001b
11674 DBCE C4 01           ..    andb #01
11675 DBD0 26 03           &.    bne 03
11676 DBD2 7E DC 98        ~..   jmp dc98             ;goto68
11677 DBD5 F6 00 06        ...   ldab 0006
11678 DBD8 4F              O     clra
11679 DBD9 05              .     asld
11680 DBDA C3 08 C8        ...   addd #08c8
11681 DBDD 8F              .     xgdx
11682 DBDE EC 00           ..    ldd 00,x
11683 DBE0 84 08           ..    anda #08
11684 DBE2 26 03           &.    bne 03
11685 DBE4 7E DC 98        ~..   jmp dc98             ;goto68
11686 DBE7 BD D7 FF        ...   jsr d7ff             ;jump80
11687 DBEA CC 03 E8        ...   ldd #03e8
11688 DBED BD E5 71        ..q   jsr e571             ;msdelay
11689 DBF0 BD D3 46        ..F   jsr d346             ;jump43
11690 DBF3 83 00 00        ...   subd #0000
11691 DBF6 26 08           &.    bne 08
11692 DBF8 BD D7 83        ...   jsr d783             ;jump44
11693 DBFB 83 00 00        ...   subd #0000
11694 DBFE 27 17           '.    beq 17
11695 DC00 5F              _     clrb
11696 DC01 4F              O     clra
11697 DC02 FD 00 4D        ..M   std 004d
11698 DC05 FC 00 44        ..D   ldd 0044
11699 DC08 F3 0B B7        ...   addd 0bb7
11700 DC0B 04              .     lsrd
11701 DC0C F3 00 40        ..@   addd 0040
11702 DC0F B3 0B B7        ...   subd 0bb7
11703 DC12 FD 00 40        ..@   std 0040
11704 DC15 20 78            x    bra 78
11705 DC17 BD D2 13        ...   jsr d213             ;jump45
11706 DC1A 83 00 00        ...   subd #0000
11707 DC1D 26 17           &.    bne 17
11708 DC1F 5F              _     clrb
11709 DC20 4F              O     clra
11710 DC21 FD 00 4D        ..M   std 004d
11711 DC24 FC 00 44        ..D   ldd 0044
11712 DC27 F3 0B B7        ...   addd 0bb7
11713 DC2A 04              .     lsrd
11714 DC2B F3 00 40        ..@   addd 0040
11715 DC2E B3 0B B7        ...   subd 0bb7
11716 DC31 FD 00 40        ..@   std 0040
11717 DC34 20 59            Y    bra 59
11718 DC36 FC 0D 09        ...   ldd 0d09
11719 DC39 83 FF FF        ...   subd #ffff
11720 DC3C 26 05           &.    bne 05
11721 DC3E 5F              _     clrb
11722 DC3F 4F              O     clra
11723 DC40 FD 0D 09        ...   std 0d09
11724 DC43 FE 0D 09        ...   ldx 0d09
11725 DC46 08              .     inx
11726 DC47 FF 0D 09        ...   stx 0d09
11727 DC4A FC 0B B7        ...   ldd 0bb7
11728 DC4D 37              7     pshb
11729 DC4E 36              6     psha
11730 DC4F 4F              O     clra
11731 DC50 5F              _     clrb
11732 DC51 37              7     pshb
11733 DC52 36              6     psha
11734 DC53 CC 0D 13        ...   ldd #0d13
11735 DC56 BD FB DF        ...   jsr fbdf             ;jump46
11736 DC59 31              1     ins
11737 DC5A 31              1     ins
11738 DC5B FE 0D 15        ...   ldx 0d15
11739 DC5E 3C              <     pshx
11740 DC5F FC 0D 13        ...   ldd 0d13
11741 DC62 37              7     pshb
11742 DC63 36              6     psha
11743 DC64 CE E1 00        ...   ldx #e100
11744 DC67 3C              <     pshx
11745 DC68 CC 05 F5        ...   ldd #05f5
11746 DC6B 37              7     pshb
11747 DC6C 36              6     psha
11748 DC6D 30              0     tsx
11749 DC6E EC 06           ..    ldd 06,x
11750 DC70 A3 02           ..    subd 02,x
11751 DC72 EC 04           ..    ldd 04,x
11752 DC74 E2 01           ..    sbcb 01,x
11753 DC76 A2 00           ..    sbca 00,x
11754 DC78 38              8     pulx
11755 DC79 38              8     pulx
11756 DC7A 38              8     pulx
11757 DC7B 38              8     pulx
11758 DC7C 25 11           %.    bcs 11
11759 DC7E CE 1F 00        ...   ldx #1f00
11760 DC81 3C              <     pshx
11761 DC82 CC FA 0A        ...   ldd #fa0a
11762 DC85 37              7     pshb
11763 DC86 36              6     psha
11764 DC87 CC 0D 13        ...   ldd #0d13
11765 DC8A BD FB DF        ...   jsr fbdf             ;jump46
11766 DC8D 31              1     ins
11767 DC8E 31              1     ins
11768 DC8F CE 00 1B        ...   ldx #001b
11769 DC92 1D 00 01        ...   bclr 00,x, #01
11770 DC95 7F 00 4F        ..O   clr 004f
11771 goto68:
11772 DC98 F6 00 11        ...   ldab 0011
11773 DC9B C4 08           ..    andb #08
11774 DC9D 26 03           &.    bne 03
11775 DC9F BD D9 5A        ..Z   jsr d95a             ;jump123
11776 DCA2 39              9     rts
11777
11778 jump29:
11779 DCA3 CE 0B BC        ...   ldx #0bbc
11780 DCA6 1D 00 1C        ..    bclr 00,x, #1c
11781 DCA9 F6 0B BC        ..    ldab 0bbc
11782 DCAB C4 03           ...   andb #03
11783 DCAE 26 48           &H    bne 48
11784 DCB0 FC 0B BD        ...   ldd 0bbd
11785 DCB3 37              7     pshb
11786 DCB4 36              6     psha
11787 DCB5 4F              O     clra
11788 DCB6 5F              _     clrb
11789 DCB7 37              7     pshb
11790 DCB8 36              6     psha
11791 DCB9 CC 0D F7        ...   ldd #0df7
11792 DCBC BD FB DF        ...   jsr fbdf             ;jump46
11793 DCBF 31              1     ins
11794 DCC0 31              1     ins
11795 DCC1 FE 0D F9        ...   ldx 0df9
11796 DCC4 3C              <     pshx
11797 DCC5 FC 0D F7        ...   ldd 0df7
11798 DCC8 37              7     pshb
11799 DCC9 36              6     psha
11800 DCCA CE E1 00        ...   ldx #e100
11801 DCCD 3C              <     pshx
11802 DCCE CC 05 F5        ...   ldd #05f5
11803 DCD1 37              7     pshb
11804 DCD2 36              6     psha
11805 DCD3 30              0     tsx
11806 DCD4 EC 06           ..    ldd 06,x
11807 DCD6 A3 02           ..    subd 02,x
11808 DCD8 EC 04           ..    ldd 04,x
11809 DCDA E2 01           ..    sbcb 01,x
11810 DCDC A2 00           ..    sbca 00,x
11811 DCDE 38              8     pulx
11812 DCDF 38              8     pulx
11813 DCE0 38              8     pulx
11814 DCE1 38              8     pulx
11815 DCE2 25 11           %.    bcs 11
11816 DCE4 CE 1F 00        ...   ldx #1f00
11817 DCE7 3C              <     pshx
11818 DCE8 CC FA 0A        ...   ldd #fa0a
11819 DCEB 37              7     pshb
11820 DCEC 36              6     psha
11821 DCED CC 0D F7        ...   ldd #0df7
11822 DCF0 BD FB DF        ...   jsr fbdf             ;jump46
11823 DCF3 31              1     ins
11824 DCF4 31              1     ins
11825 DCF5 7E DD D4        ~..   jmp ddd4             ;goto69
11826 DCF8 F6 0B BC        ...   ldab 0bbc
11827 DCFB C4 03           ..    andb #03
11828 DCFD C1 01           ..    cmpb #01
11829 DCFF 27 03           '.    beq 03
11830 DD01 7E DD D4        ~..   jmp ddd4             ;goto69
11831 DD04 F6 0B BC        ...   ldab 0bbc
11832 DD07 C4 E0           ..    andb #e0
11833 DD09 54              T     lsrb
11834 DD0A 54              T     lsrb
11835 DD0B 54              T     lsrb
11836 DD0C 54              T     lsrb
11837 DD0D 54              T     lsrb
11838 DD0E F7 0B BC        ...   stab 0bbc
11839 DD11 F6 0B BC        ...   ldab 0bbc
11840 DD14 F1 0B C4        ...   cmpb 0bc4
11841 DD17 26 33           &3    bne 33
11842 DD19 F6 0B D7        ...   ldab 0bd7
11843 DD1C C1 01           ..    cmpb #01
11844 DD1E 26 0A           &.    bne 0a
11845 DD20 7C 0C DB        |..   inc 0cdb
11846 DD23 C6 03           ..    ldab #03
11847 DD25 F7 00 48        ..H   stab 0048
11848 DD28 20 20                 bra 20
11849 DD2A F6 0B D8        ...   ldab 0bd8
11850 DD2D C1 01           ..    cmpb #01
11851 DD2F 26 0A           &.    bne 0a
11852 DD31 7C 0C DA        |..   inc 0cda
11853 DD34 C6 02           ..    ldab #02
11854 DD36 F7 00 48        ..H   stab 0048
11855 DD39 20 0F            .    bra 0f
11856 DD3B F6 0B D9        ...   ldab 0bd9
11857 DD3E C1 01           ..    cmpb #01
11858 DD40 26 08           &.    bne 08
11859 DD42 7C 0C D9        |..   inc 0cd9
11860 DD45 C6 01           ..    ldab #01
11861 DD47 F7 00 48        ..H   stab 0048
11862 DD4A 20 74            t    bra 74
11863 DD4C F6 0B BC        ...   ldab 0bbc
11864 DD4F F1 0B C5        ...   cmpb 0bc5
11865 DD52 26 33           &3    bne 33
11866 DD54 F6 0B D7        ...   ldab 0bd7
11867 DD57 C1 04           ..    cmpb #04
11868 DD59 26 0A           &.    bne 0a
11869 DD5B 7C 0C DB        |..   inc 0cdb
11870 DD5E C6 03           ..    ldab #03
11871 DD60 F7 00 48        ..H   stab 0048
11872 DD63 20 20                 bra 20
11873 DD65 F6 0B D8        ...   ldab 0bd8
11874 DD68 C1 04           ..    cmpb #04
11875 DD6A 26 0A           &.    bne 0a
11876 DD6C 7C 0C DA        |..   inc 0cda
11877 DD6F C6 02           ..    ldab #02
11878 DD71 F7 00 48        ..H   stab 0048
11879 DD74 20 0F            .    bra 0f
11880 DD76 F6 0B D9        ...   ldab 0bd9
11881 DD79 C1 04           ..    cmpb #04
11882 DD7B 26 08           &.    bne 08
11883 DD7D 7C 0C D9        |..   inc 0cd9
11884 DD80 C6 01           ..    ldab #01
11885 DD82 F7 00 48        ..H   stab 0048
11886 DD85 20 39            9    bra 39
11887 DD87 F6 0B BC        ...   ldab 0bbc
11888 DD8A F1 0B C6        ...   cmpb 0bc6
11889 DD8D 26 31           &1    bne 31
11890 DD8F F6 0B D7        ...   ldab 0bd7
11891 DD92 C1 02           ..    cmpb #02
11892 DD94 26 0A           &.    bne 0a
11893 DD96 7C 0C DB        |..   inc 0cdb
11894 DD99 C6 03           ..    ldab #03
11895 DD9B F7 00 48        ..H   stab 0048
11896 DD9E 20 20                 bra 20
11897 DDA0 F6 0B D8        ...   ldab 0bd8
11898 DDA3 C1 02           ..    cmpb #02
11899 DDA5 26 0A           &.    bne 0a
11900 DDA7 7C 0C DA        |..   inc 0cda
11901 DDAA C6 02           ..    ldab #02
11902 DDAC F7 00 48        ..H   stab 0048
11903 DDAF 20 0F            .    bra 0f
11904 DDB1 F6 0B D9        ...   ldab 0bd9
11905 DDB4 C1 02           ..    cmpb #02
11906 DDB6 26 08           &.    bne 08
11907 DDB8 7C 0C D9        |..   inc 0cd9
11908 DDBB C6 01           ..    ldab #01
11909 DDBD F7 00 48        ..H   stab 0048
11910 DDC0 F6 00 17        ...   ldab 0017
11911 DDC3 C4 08           ..    andb #08
11912 DDC5 26 0D           &.    bne 0d
11913 DDC7 F6 0B BC        ...   ldab 0bbc
11914 DDCA 26 08           &.    bne 08
11915 DDCC 7C 0C DC        |..   inc 0cdc
11916 DDCF C6 04           ..    ldab #04
11917 DDD1 F7 00 48        ..H   stab 0048
11918 goto69:
11919 DDD4 39              9     rts
11920
11921 jump120:
11922 DDD5 BD BE 69        ..i   jsr be69             ;displayreset
11923 DDD8 C6 03           ..    ldab #03
11924 DDDA F7 00 1C        ...   stab 001c
11925 DDDD F6 00 1C        ...   ldab 001c
11926 DDE0 C1 0D           ..    cmpb #0d
11927 DDE2 24 1C           $.    bcc 1c
11928 DDE4 F6 00 1C        ...   ldab 001c
11929 DDE7 4F              O     clra
11930 DDE8 C3 0C B9        ...   addd #0cb9
11931 DDEB 8F              .     xgdx
11932 DDEC E6 00           ..    ldab 00,x
11933 DDEE 37              7     pshb
11934 DDEF CC 0B 9C        ...   ldd #0b9c
11935 DDF2 F0 00 1C        ...   subb 001c
11936 DDF5 82 00           ..    sbca #00
11937 DDF7 8F              .     xgdx
11938 DDF8 33              3     pulb
11939 DDF9 E7 00           ..    stab 00,x
11940 DDFB 7C 00 1C        |..   inc 001c
11941 DDFE 20 DD            .    bra dd
11942 DE00 BD BE 10        ...   jsr be10             ;jump88
11943 DE03 C6 14           ..    ldab #14
11944 DE05 F7 00 2C        ..,   stab 002c
11945 DE08 39              9     rts
11946
11947 dump119:
11948 DE09 CC 0B 9A        ...   ldd #0b9a
11949 DE0C BD C0 BA        ...   jsr c0ba             ;display:
11950 DE0F C6 14           ..    ldab #14
11951 DE11 F7 00 2C        ..,   stab 002c
11952 DE14 39              9     rts
11953
11954 dump118:
11955 DE15 F6 00 1B        ...   ldab 001b
11956 DE18 C4 01           ..    andb #01
11957 DE1A 26 03           &.    bne 03
11958 DE1C 7E DE A4        ~..   jmp dea4             ;goto70
11959 DE1F F6 00 06        ...   ldab 0006
11960 DE22 4F              O     clra
11961 DE23 05              .     asld
11962 DE24 C3 08 C8        ...   addd #08c8
11963 DE27 8F              .     xgdx
11964 DE28 EC 00           ..    ldd 00,x
11965 DE2A 84 08           ..    anda #08
11966 DE2C 27 76           'v    beq 76
11967 DE2E F6 00 11        ...   ldab 0011
11968 DE31 C4 08           ..    andb #08
11969 DE33 26 33           &3    bne 33
11970 DE35 F6 00 06        ...   ldab 0006
11971 DE38 F1 0B AF        ...   cmpb 0baf
11972 DE3B 27 20           '     beq 20
11973 DE3D F6 00 06        ...   ldab 0006
11974 DE40 F1 0B AE        ...   cmpb 0bae
11975 DE43 27 18           '.    beq 18
11976 DE45 F6 00 06        ...   ldab 0006
11977 DE48 F1 0B AD        ...   cmpb 0bad
11978 DE4B 27 10           '.    beq 10
11979 DE4D F6 00 06        ...   ldab 0006
11980 DE50 F1 0B AC        ...   cmpb 0bac
11981 DE53 27 08           '.    beq 08
11982 DE55 F6 00 06        ...   ldab 0006
11983 DE58 F1 0B AB        ...   cmpb 0bab
11984 DE5B 26 0B           &.    bne 0b
11985 DE5D CE 00 1B        ...   ldx #001b
11986 DE60 1D 00 01        ...   bclr 00,x, #01
11987 DE63 7F 00 4F        ..O   clr 004f
11988 DE66 20 3C            <    bra 3c
11989 DE68 FC 00 44        ..D   ldd 0044
11990 DE6B B3 0B B7        ...   subd 0bb7
11991 DE6E 23 2B           #+    bls 2b
11992 DE70 FC 00 40        ..@   ldd 0040
11993 DE73 F3 00 3E        ..>   addd 003e
11994 DE76 37              7     pshb
11995 DE77 36              6     psha
11996 DE78 FC 00 44        ..D   ldd 0044
11997 DE7B B3 0B B7        ...   subd 0bb7
11998 DE7E F3 00 44        ..D   addd 0044
11999 DE81 30              0     tsx
12000 DE82 A3 00           ..    subd 00,x
12001 DE84 31              1     ins
12002 DE85 31              1     ins
12003 DE86 22 13           ".    bhi 13
12004 DE88 FC 0B B7        ...   ldd 0bb7
12005 DE8B 27 0E           '.    beq 0e
12006 DE8D FC 00 44        ..D   ldd 0044
12007 DE90 B3 0B B7        ...   subd 0bb7
12008 DE93 F3 00 44        ..D   addd 0044
12009 DE96 FD 00 44        ..D   std 0044
12010 DE99 20 09            .    bra 09
12011 DE9B CE 00 1B        ...   ldx #001b
12012 DE9E 1D 00 01        ...   bclr 00,x, #01
12013 DEA1 7F 00 4F        ..O   clr 004f
12014 goto70:
12015 DEA4 39              9     rts
12016
12017 dump117:
12018 DEA5 F6 00 2B        ..+   ldab 002b
12019 DEA8 C1 00           ..    cmpb #00
12020 DEAA 26 0D           &.    bne 0d
12021 DEAC CE 00 12        ...   ldx #0012
12022 DEAF 3C              <     pshx
12023 DEB0 CC AE 7E        ..~   ldd #ae7e
12024 DEB3 BD C0 2E        ...   jsr c02e             ;jump71
12025 DEB6 38              8     pulx
12026 DEB7 20 2D            -    bra 2d
12027 DEB9 C1 01           ..    cmpb #01
12028 DEBB 26 0D           &.    bne 0d
12029 DEBD CE 00 0F        ...   ldx #000f
12030 DEC0 3C              <     pshx
12031 DEC1 CC AE 6D        ..m   ldd #ae6d    ; something german
12032 DEC4 BD C0 2E        ...   jsr c02e             ;jump71
12033 DEC7 38              8     pulx
12034 DEC8 20 1C            .    bra 1c
12035 DECA C1 02           ..    cmpb #02
12036 DECC 26 0D           &.    bne 0d
12037 DECE CE 00 10        ...   ldx #0010
12038 DED1 3C              <     pshx
12039 DED2 CC AE 5B        ..[   ldd #ae5b
12040 DED5 BD C0 2E        ...   jsr c02e             ;jump71
12041 DED8 38              8     pulx
12042 DED9 20 0B            .    bra 0b
12043 DEDB CE 00 15        ...   ldx #0015
12044 DEDE 3C              <     pshx
12045 DEDF CC AE 44        ..D   ldd #ae44
12046 DEE2 BD C0 2E        ...   jsr c02e             ;jump71
12047 DEE5 38              8     pulx
12048 DEE6 39              9     rts
12049
12050 jump116:
12051 ; revolves around coinage
12052 DEE7 F6 0B C0        ...   ldab 0bc0
12053 DEEA C4 01           ..    andb #01
12054 DEEC 26 07           &.    bne 07
12055 DEEE F6 0B C0        ...   ldab 0bc0
12056 DEF1 C4 04           ..    andb #04
12057 DEF3 27 15           '.    beq 15
12058 DEF5 C6 FF           ..    ldab #ff
12059 DEF7 F7 0B BC        ...   stab 0bbc
12060 DEFA F6 00 15        ...   ldab 0015
12061 DEFD 2D 03           -.    blt 03
12062 DEFF BD C6 7D        ..}   jsr c67d             ;jump124 - chat to changer
12063 DF02 BD D6 6B        ..k   jsr d66b             ;jump107 - chat to bill acceptor
12064 DF05 BD DC A3        ...   jsr dca3             ;jump29
12065 DF08 20 25            %    bra 25
12066 DF0A F6 0B C0        ...   ldab 0bc0
12067 DF0D C4 02           ..    andb #02
12068 DF0F 27 1E           '.    beq 1e
12069 DF11 F6 00 2F        ../   ldab 002f
12070 DF14 26 19           &.    bne 19
12071 DF16 F6 00 1B        ...   ldab 001b
12072 DF19 C4 02           ..    andb #02
12073 DF1B 26 12           &.    bne 12
12074 DF1D CC 00 FF        ...   ldd #00ff
12075 DF20 BD C7 E7        ...   jsr c7e7             ;jump37
12076 DF23 CE 00 1B        ...   ldx #001b
12077 DF26 1C 00 02        ..    bset 00,x, #02
12078 DF29 CE 0B C1        ...   ldx #0bc1
12079 DF2C 1C 00 04        ..    bset 00,x, #04
12080 DF2F F6 00 21        ..!   ldab 0021
12081 DF32 C4 20           .     andb #20
12082 DF34 27 07           '.    beq 07
12083 ;
12084 DF36 BD D6 52        ..R   jsr d652             ;jump5
12085 DF39 BD DE A5        ...   jsr dea5             ;jump117
12086 DF3C 39              9     rts
12087 ;
12088 DF3D F6 00 4F        ..O   ldab 004f
12089 DF40 26 06           &.    bne 06
12090 DF42 CE 00 1B        ...   ldx #001b
12091 DF45 1D 00 01        ...   bclr 00,x, #01
12092 DF48 F6 00 25        ..%   ldab 0025
12093 DF4B 26 20           &     bne 20
12094 DF4D F6 00 1B        ...   ldab 001b
12095 DF50 C4 40           .@    andb #40
12096 DF52 27 19           '.    beq 19
12097 DF54 BD D6 52        ..R   jsr d652             ;jump5
12098 DF57 FC 00 40        ..@   ldd 0040
12099 DF5A 26 05           &.    bne 05
12100 DF5C FC 00 3E        ..>   ldd 003e
12101 DF5F 27 03           '.    beq 03
12102 DF61 BD DB 44        ..D   jsr db44             ;jump104
12103 DF64 BD D6 6B        ..k   jsr d66b             ;jump107
12104 DF67 CE 00 1B        ...   ldx #001b
12105 DF6A 1D 00 40        ...   bclr 00,x, #40
12106 DF6D F6 00 2C        ..,   ldab 002c
12107 DF70 27 03           '.    beq 03
12108 DF72 7E E0 66        ~.f   jmp e066             ;goto71
12109 DF75 F6 00 34        ..4   ldab 0034
12110 DF78 26 0B           &.    bne 0b
12111 DF7A BD BE 69        ..i   jsr be69             ;displayreset
12112 DF7D C6 32           .2    ldab #32
12113 DF7F F7 00 34        ..4   stab 0034
12114 DF82 7E E0 63        ~.c   jmp e063             ;goto72
12115 DF85 FC 00 40        ..@   ldd 0040
12116 DF88 26 05           &.    bne 05
12117 DF8A FC 00 3E        ..>   ldd 003e
12118 DF8D 27 16           '.    beq 16
12119 DF8F CE 00 01        ...   ldx #0001
12120 DF92 3C              <     pshx
12121 DF93 FC 00 40        ..@   ldd 0040
12122 DF96 F3 00 3E        ..>   addd 003e
12123 DF99 BD BE 9E        ...   jsr be9e             ;jump50
12124 DF9C 38              8     pulx
12125 DF9D C6 05           ..    ldab #05
12126 DF9F F7 00 2C        ..,   stab 002c
12127 DFA2 7E E0 63        ~.c   jmp e063             ;goto72
12128 DFA5 F6 0C D9        ...   ldab 0cd9
12129 DFA8 C1 04           ..    cmpb #04
12130 DFAA 24 07           $.    bcc 07
12131 DFAC F6 0B C0        ...   ldab 0bc0
12132 DFAF C4 01           ..    andb #01
12133 DFB1 26 07           &.    bne 07
12134 DFB3 F6 00 21        ..!   ldab 0021
12135 DFB6 C4 40           .@    andb #40
12136 DFB8 27 43           'C    beq 43
12137 DFBA F6 00 2B        ..+   ldab 002b
12138 DFBD C1 00           ..    cmpb #00
12139 DFBF 26 0D           &.    bne 0d
12140 DFC1 CE 00 19        ...   ldx #0019
12141 DFC4 3C              <     pshx
12142 DFC5 CC AD E7        ...   ldd #ade7
12143 DFC8 BD C0 2E        ...   jsr c02e             ;jump71
12144 DFCB 38              8     pulx
12145 DFCC 20 2D            -    bra 2d
12146 DFCE C1 01           ..    cmpb #01
12147 DFD0 26 0D           &.    bne 0d
12148 DFD2 CE 00 12        ...   ldx #0012
12149 DFD5 3C              <     pshx
12150 DFD6 CC AD D3        ...   ldd #add3    ; more german
12151 DFD9 BD C0 2E        ...   jsr c02e             ;jump71
12152 DFDC 38              8     pulx
12153 DFDD 20 1C            .    bra 1c
12154 DFDF C1 02           ..    cmpb #02
12155 DFE1 26 0D           &.    bne 0d
12156 DFE3 CE 00 19        ...   ldx #0019
12157 DFE6 3C              <     pshx
12158 DFE7 CC AD B8        ...   ldd #adb8
12159 DFEA BD C0 2E        ...   jsr c02e             ;jump71
12160 DFED 38              8     pulx
12161 DFEE 20 0B            .    bra 0b
12162 DFF0 CE 00 11        ...   ldx #0011    ; length of
12163 DFF3 3C              <     pshx
12164 DFF4 CC AD A5        ...   ldd #ada5    ; " EXACT COINS ONLY "
12165 DFF7 BD C0 2E        ...   jsr c02e             ;jump71 - display
12166 DFFA 38              8     pulx
12167 DFFB 20 66            f    bra 66
12168 DFFD F6 0B C0        ...   ldab 0bc0
12169 E000 C4 08           ..    andb #08
12170 E002 27 52           'R    beq 52
12171 E004 F6 0B C1        ...   ldab 0bc1
12172 E007 C4 08           ..    andb #08
12173 E009 26 08           &.    bne 08
12174 E00B FC 0B EF        ...   ldd 0bef
12175 E00E 83 00 64        ..d   subd #0064
12176 E011 24 43           $C    bcc 43
12177 E013 F6 00 2B        ..+   ldab 002b
12178 E016 C1 00           ..    cmpb #00
12179 E018 26 0D           &.    bne 0d
12180 E01A CE 00 12        ...   ldx #0012
12181 E01D 3C              <     pshx
12182 E01E CC AE 30        ..0   ldd #ae30
12183 E021 BD C0 2E        ...   jsr c02e             ;jump71
12184 E024 38              8     pulx
12185 E025 20 2D            -    bra 2d
12186 E027 C1 01           ..    cmpb #01
12187 E029 26 0D           &.    bne 0d
12188 E02B CE 00 0B        ...   ldx #000b
12189 E02E 3C              <     pshx
12190 E02F CC AE 23        ..#   ldd #ae23
12191 E032 BD C0 2E        ...   jsr c02e             ;jump71
12192 E035 38              8     pulx
12193 E036 20 1C            .    bra 1c
12194 E038 C1 02           ..    cmpb #02
12195 E03A 26 0D           &.    bne 0d
12196 E03C CE 00 12        ...   ldx #0012
12197 E03F 3C              <     pshx
12198 E040 CC AE 0F        ...   ldd #ae0f
12199 E043 BD C0 2E        ...   jsr c02e             ;jump71
12200 E046 38              8     pulx
12201 E047 20 0B            .    bra 0b
12202 E049 CE 00 0B        ...   ldx #000b
12203 E04C 3C              <     pshx
12204 E04D CC AE 02        ...   ldd #ae02
12205 E050 BD C0 2E        ...   jsr c02e             ;jump71
12206 E053 38              8     pulx
12207 E054 20 0D            .    bra 0d
12208 E056 F6 0B BF        ...   ldab 0bbf
12209 E059 4F              O     clra
12210 E05A 37              7     pshb
12211 E05B 36              6     psha
12212 E05C CC 09 93        ...   ldd #0993
12213 E05F BD C0 2E        ...   jsr c02e             ;jump71
12214 E062 38              8     pulx
12215 goto72:
12216 E063 7E E5 6A        ~.j   jmp e56a             ;goto73
12217 goto71:
12218 E066 F6 00 06        ...   ldab 0006
12219 E069 26 03           &.    bne 03
12220 E06B 7E E5 6A        ~.j   jmp e56a             ;goto73
12221 E06E CE 00 1D        ...   ldx #001d
12222 E071 1C 00 40        ...   bset 00,x, #40
12223 E074 BD E7 C7        ...   jsr e7c7             ;jump114
12224 E077 F6 00 06        ...   ldab 0006
12225 E07A C1 59           .Y    cmpb #59
12226 E07C 26 06           &.    bne 06
12227 E07E BD DE 09        ...   jsr de09             ;jump119
12228 E081 7E E5 5E        ~.^   jmp e55e             ;goto74
12229 E084 F6 00 06        ...   ldab 0006
12230 E087 BD D4 68        ..h   jsr d468             ;jump51
12231 E08A 83 00 00        ...   subd #0000
12232 E08D 27 18           '.    beq 18
12233 E08F BD D5 61        ..a   jsr d561             ;jump42
12234 E092 83 00 00        ...   subd #0000
12235 E095 26 10           &.    bne 10
12236 E097 BD D3 46        ..F   jsr d346             ;jump43
12237 E09A 83 00 00        ...   subd #0000
12238 E09D 26 08           &.    bne 08
12239 E09F BD D7 83        ...   jsr d783             ;jump44
12240 E0A2 83 00 00        ...   subd #0000
12241 E0A5 27 09           '.    beq 09
12242 E0A7 BD E5 D1        ...   jsr e5d1             ;jump52
12243 E0AA BD D8 E9        ...   jsr d8e9             ;jump92
12244 E0AD 7E E5 5E        ~.^   jmp e55e             ;goto74
12245 E0B0 F6 00 06        ...   ldab 0006
12246 E0B3 4F              O     clra
12247 E0B4 05              .     asld
12248 E0B5 C3 08 00        ...   addd #0800
12249 E0B8 8F              .     xgdx
12250 E0B9 EC 00           ..    ldd 00,x
12251 E0BB C4 FF           ..    andb #ff
12252 E0BD 84 3F           .?    anda #3f
12253 E0BF FD 00 44        ..D   std 0044
12254 E0C2 F6 00 06        ...   ldab 0006
12255 E0C5 4F              O     clra
12256 E0C6 05              .     asld
12257 E0C7 C3 08 C8        ...   addd #08c8
12258 E0CA 8F              .     xgdx
12259 E0CB EC 00           ..    ldd 00,x
12260 E0CD C4 7F           ..    andb #7f
12261 E0CF 4F              O     clra
12262 E0D0 FD 00 4D        ..M   std 004d
12263 E0D3 F6 0B C0        ...   ldab 0bc0
12264 E0D6 2C 05           ,.    bge 05
12265 E0D8 5F              _     clrb
12266 E0D9 4F              O     clra
12267 E0DA FD 00 44        ..D   std 0044
12268 E0DD F6 0B C0        ...   ldab 0bc0
12269 E0E0 C4 02           ..    andb #02
12270 E0E2 26 03           &.    bne 03
12271 E0E4 BD DE 15        ...   jsr de15             ;dump118
12272 E0E7 F6 00 11        ...   ldab 0011
12273 E0EA C4 20           .     andb #20
12274 E0EC 26 1A           &.    bne 1a
12275 E0EE F6 0B C0        ...   ldab 0bc0
12276 E0F1 C4 02           ..    andb #02
12277 E0F3 26 13           &.    bne 13
12278 E0F5 FC 00 40        ..@   ldd 0040
12279 E0F8 F3 00 3E        ..>   addd 003e
12280 E0FB B3 00 44        ..D   subd 0044
12281 E0FE 25 08           %.    bcs 08
12282 E100 F6 0B C0        ...   ldab 0bc0
12283 E103 2D 03           -.    blt 03
12284 E105 BD DA 64        ..d   jsr da64             ;jump122
12285 E108 FC 00 40        ..@   ldd 0040
12286 E10B F3 00 3E        ..>   addd 003e
12287 E10E B3 00 44        ..D   subd 0044
12288 E111 24 50           $P    bcc 50
12289 E113 F6 0B C0        ...   ldab 0bc0
12290 E116 C4 10           ..    andb #10
12291 E118 26 49           &I    bne 49
12292 E11A F6 00 2B        ..+   ldab 002b
12293 E11D C1 00           ..    cmpb #00
12294 E11F 26 08           &.    bne 08
12295 E121 CC AC C9        ...   ldd #acc9
12296 E124 BD C0 BA        ...   jsr c0ba             ;display:
12297 E127 20 1E            .    bra 1e
12298 E129 C1 01           ..    cmpb #01
12299 E12B 26 08           &.    bne 08
12300 E12D CC AC BE        ...   ldd #acbe
12301 E130 BD C0 BA        ...   jsr c0ba             ;display:
12302 E133 20 12            .    bra 12
12303 E135 C1 02           ..    cmpb #02
12304 E137 26 08           &.    bne 08
12305 E139 CC AC B3        ...   ldd #acb3
12306 E13C BD C0 BA        ...   jsr c0ba             ;display:
12307 E13F 20 06            .    bra 06
12308 E141 CC AC A8        ...   ldd #aca8
12309 E144 BD C0 BA        ...   jsr c0ba             ;display:
12310 E147 BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
12311 E14A CE 00 00        ...   ldx #0000
12312 E14D 3C              <     pshx
12313 E14E FC 00 44        ..D   ldd 0044
12314 E151 BD BE 9E        ...   jsr be9e             ;jump50
12315 E154 38              8     pulx
12316 E155 BD E5 D1        ...   jsr e5d1             ;jump52
12317 E158 BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
12318 E15B C6 0C           ..    ldab #0c
12319 E15D F7 00 2C        ..,   stab 002c
12320 E160 7E E5 5E        ~.^   jmp e55e             ;goto74
12321 E163 F6 0B C0        ...   ldab 0bc0
12322 E166 C4 01           ..    andb #01
12323 E168 26 11           &.    bne 11
12324 E16A F6 0B C0        ...   ldab 0bc0
12325 E16D C4 04           ..    andb #04
12326 E16F 26 0A           &.    bne 0a
12327 E171 F6 0B C0        ...   ldab 0bc0
12328 E174 C4 0F           ..    andb #0f
12329 E176 27 03           '.    beq 03
12330 E178 7E E3 35        ~.5   jmp e335             ;goto75
12331 E17B FC 00 40        ..@   ldd 0040
12332 E17E F3 00 3E        ..>   addd 003e
12333 E181 B3 00 44        ..D   subd 0044
12334 E184 FD 10 16        ...   std 1016
12335 E187 F6 00 15        ...   ldab 0015
12336 E18A C4 01           ..    andb #01
12337 E18C 27 08           '.    beq 08
12338 E18E FC 10 16        ...   ldd 1016
12339 E191 83 00 64        ..d   subd #0064
12340 E194 25 3C           %<    bcs 3c
12341 E196 F6 00 15        ...   ldab 0015
12342 E199 C4 02           ..    andb #02
12343 E19B 27 08           '.    beq 08
12344 E19D FC 10 16        ...   ldd 1016
12345 E1A0 83 00 C8        ...   subd #00c8
12346 E1A3 25 2D           %-    bcs 2d
12347 E1A5 F6 00 15        ...   ldab 0015
12348 E1A8 C4 04           ..    andb #04
12349 E1AA 27 08           '.    beq 08
12350 E1AC FC 10 16        ...   ldd 1016
12351 E1AF 83 01 F4        ...   subd #01f4
12352 E1B2 25 1E           %.    bcs 1e
12353 E1B4 F6 00 15        ...   ldab 0015
12354 E1B7 C4 08           ..    andb #08
12355 E1B9 27 08           '.    beq 08
12356 E1BB FC 10 16        ...   ldd 1016
12357 E1BE 83 03 E8        ...   subd #03e8
12358 E1C1 25 0F           %.    bcs 0f
12359 E1C3 F6 00 15        ...   ldab 0015
12360 E1C6 C4 10           ..    andb #10
12361 E1C8 27 13           '.    beq 13
12362 E1CA FC 10 16        ...   ldd 1016
12363 E1CD 83 07 D0        ...   subd #07d0
12364 E1D0 24 0B           $.    bcc 0b
12365 E1D2 BD C0 E0        ...   jsr c0e0             ;jump94
12366 E1D5 83 00 00        ...   subd #0000
12367 E1D8 26 01           &.    bne 01
12368 ;
12369 E1DA 39              9     rts
12370 ;
12371 E1DB 20 03            .    bra 03
12372 E1DD BD C5 D3        ...   jsr c5d3             ;jump6
12373 E1E0 BD D6 52        ..R   jsr d652             ;jump5
12374 E1E3 FC 00 40        ..@   ldd 0040
12375 E1E6 B3 00 44        ..D   subd 0044
12376 E1E9 F3 00 3E        ..>   addd 003e
12377 E1EC FD 00 40        ..@   std 0040
12378 E1EF 5F              _     clrb
12379 E1F0 4F              O     clra
12380 E1F1 FD 00 3E        ..>   std 003e
12381 E1F4 CE 00 1B        ...   ldx #001b
12382 E1F7 1C 00 80        ..    bset 00,x, #80
12383 E1F9 BD D2 13        ..    jsr d213     ;jump45
12384 E1FC 83 00 00        ...   subd #0000
12385 E200 26 12           &.    bne 12
12386 E202 BD E5 D1        ...   jsr e5d1             ;jump52
12387 E205 BD D8 E9        ...   jsr d8e9             ;jump92
12388 E208 FC 00 40        ..@   ldd 0040
12389 E20B F3 00 44        ..D   addd 0044
12390 E20E FD 00 40        ..@   std 0040
12391 E211 7E E3 29        ~.)   jmp e329             ;goto92
12392 E214 BD DB CB        ...   jsr dbcb             ;jump121
12393 E217 F6 00 1B        ...   ldab 001b
12394 E21A C4 20           .     andb #20
12395 E21C 27 45           'E    beq 45
12396 E21E FC 00 44        ..D   ldd 0044
12397 E221 37              7     pshb
12398 E222 36              6     psha
12399 E223 4F              O     clra
12400 E224 5F              _     clrb
12401 E225 37              7     pshb
12402 E226 36              6     psha
12403 E227 CC 0D FB        ...   ldd #0dfb
12404 E22A BD FB DF        ...   jsr fbdf             ;jump46
12405 E22D 31              1     ins
12406 E22E 31              1     ins
12407 E22F FE 0D FD        ...   ldx 0dfd
12408 E232 3C              <     pshx
12409 E233 FC 0D FB        ...   ldd 0dfb
12410 E236 37              7     pshb
12411 E237 36              6     psha
12412 E238 CE E1 00        ...   ldx #e100
12413 E23B 3C              <     pshx
12414 E23C CC 05 F5        ...   ldd #05f5
12415 E23F 37              7     pshb
12416 E240 36              6     psha
12417 E241 30              0     tsx
12418 E242 EC 06           ..    ldd 06,x
12419 E244 A3 02           ..    subd 02,x
12420 E246 EC 04           ..    ldd 04,x
12421 E248 E2 01           ..    sbcb 01,x
12422 E24A A2 00           ..    sbca 00,x
12423 E24C 38              8     pulx
12424 E24D 38              8     pulx
12425 E24E 38              8     pulx
12426 E24F 38              8     pulx
12427 E250 25 11           %.    bcs 11
12428 E252 CE 1F 00        ...   ldx #1f00
12429 E255 3C              <     pshx
12430 E256 CC FA 0A        ...   ldd #fa0a
12431 E259 37              7     pshb
12432 E25A 36              6     psha
12433 E25B CC 0D FB        ...   ldd #0dfb
12434 E25E BD FB DF        ...   jsr fbdf             ;jump46
12435 E261 31              1     ins
12436 E262 31              1     ins
12437 E263 F6 0B C0        ...   ldab 0bc0
12438 E266 2C 78           ,x    bge 78
12439 E268 F6 00 06        ...   ldab 0006
12440 E26B 4F              O     clra
12441 E26C 05              .     asld
12442 E26D C3 08 00        ...   addd #0800
12443 E270 8F              .     xgdx
12444 E271 EC 00           ..    ldd 00,x
12445 E273 C4 FF           ..    andb #ff
12446 E275 26 02           &.    bne 02
12447 E277 84 3F           .?    anda #3f
12448 E279 27 65           'e    beq 65
12449 E27B FC 0D 0D        ...   ldd 0d0d
12450 E27E 83 FF FF        ...   subd #ffff
12451 E281 26 05           &.    bne 05
12452 E283 5F              _     clrb
12453 E284 4F              O     clra
12454 E285 FD 0D 0D        ...   std 0d0d
12455 E288 FE 0D 0D        ...   ldx 0d0d
12456 E28B 08              .     inx
12457 E28C FF 0D 0D        ...   stx 0d0d
12458 E28F F6 00 06        ...   ldab 0006
12459 E292 4F              O     clra
12460 E293 05              .     asld
12461 E294 C3 08 00        ...   addd #0800
12462 E297 8F              .     xgdx
12463 E298 EC 00           ..    ldd 00,x
12464 E29A C4 FF           ..    andb #ff
12465 E29C 84 3F           .?    anda #3f
12466 E29E 37              7     pshb
12467 E29F 36              6     psha
12468 E2A0 4F              O     clra
12469 E2A1 5F              _     clrb
12470 E2A2 37              7     pshb
12471 E2A3 36              6     psha
12472 E2A4 CC 0D 1B        ...   ldd #0d1b
12473 E2A7 BD FB DF        ...   jsr fbdf             ;jump46
12474 E2AA 31              1     ins
12475 E2AB 31              1     ins
12476 E2AC FE 0D 1D        ...   ldx 0d1d
12477 E2AF 3C              <     pshx
12478 E2B0 FC 0D 1B        ...   ldd 0d1b
12479 E2B3 37              7     pshb
12480 E2B4 36              6     psha
12481 E2B5 CE E1 00        ...   ldx #e100
12482 E2B8 3C              <     pshx
12483 E2B9 CC 05 F5        ...   ldd #05f5
12484 E2BC 37              7     pshb
12485 E2BD 36              6     psha
12486 E2BE 30              0     tsx
12487 E2BF EC 06           ..    ldd 06,x
12488 E2C1 A3 02           ..    subd 02,x
12489 E2C3 EC 04           ..    ldd 04,x
12490 E2C5 E2 01           ..    sbcb 01,x
12491 E2C7 A2 00           ..    sbca 00,x
12492 E2C9 38              8     pulx
12493 E2CA 38              8     pulx
12494 E2CB 38              8     pulx
12495 E2CC 38              8     pulx
12496 E2CD 25 11           %.    bcs 11
12497 E2CF CE 1F 00        ...   ldx #1f00
12498 E2D2 3C              <     pshx
12499 E2D3 CC FA 0A        ...   ldd #fa0a
12500 E2D6 37              7     pshb
12501 E2D7 36              6     psha
12502 E2D8 CC 0D 1B        ...   ldd #0d1b
12503 E2DB BD FB DF        ...   jsr fbdf             ;jump46
12504 E2DE 31              1     ins
12505 E2DF 31              1     ins
12506 E2E0 F6 00 11        ...   ldab 0011
12507 E2E3 C4 10           ..    andb #10
12508 E2E5 26 14           &.    bne 14
12509 E2E7 FC 00 40        ..@   ldd 0040
12510 E2EA 27 0F           '.    beq 0f
12511 E2EC FC 00 40        ..@   ldd 0040
12512 E2EF B3 00 50        ..P   subd 0050
12513 E2F2 24 15           $.    bcc 15
12514 E2F4 F6 00 11        ...   ldab 0011
12515 E2F7 C4 10           ..    andb #10
12516 E2F9 26 0E           &.    bne 0e
12517 E2FB BD DB 44        ..D   jsr db44             ;jump104
12518 E2FE CE 00 1B        ...   ldx #001b
12519 E301 1D 00 40        ...   bclr 00,x, #40
12520 E304 7F 00 25        ..%   clr 0025
12521 E307 20 1A            .    bra 1a
12522 E309 7F 00 2C        ..,   clr 002c
12523 E30C CC 01 F4        ...   ldd #01f4
12524 E30F BD E5 71        ..q   jsr e571             ;msdelay
12525 E312 BD E5 AA        ...   jsr e5aa             ;jump12
12526 E315 BD D8 E9        ...   jsr d8e9             ;jump92
12527 E318 CE 00 1B        ...   ldx #001b
12528 E31B 1C 00 40        ...   bset 00,x, #40
12529 E31E C6 0A           ..    ldab #0a
12530 E320 F7 00 25        ..%   stab 0025
12531 E323 BD D7 FF        ...   jsr d7ff             ;jump80
12532 E326 BD D8 40        ..@   jsr d840             ;jump105
12533 goto92:
12534 E329 BD E8 9A        ...   jsr e89a             ;jump68
12535 E32C CE 0B C1        ...   ldx #0bc1
12536 E32F 1D 00 08        ...   bclr 00,x, #08
12537 E332 7E E5 5E        ~.^   jmp e55e             ;goto74
12538 goto75:
12539 E335 F6 0B C0        ...   ldab 0bc0
12540 E338 C4 02           ..    andb #02
12541 E33A 26 03           &.    bne 03
12542 E33C 7E E5 5E        ~.^   jmp e55e             ;goto74
12543 E33F 5F              _     clrb
12544 E340 4F              O     clra
12545 E341 FD 00 76        ..v   std 0076
12546 E344 CE 00 17        ...   ldx #0017
12547 E347 1D 00 01        ...   bclr 00,x, #01
12548 E34A CE 00 17        ...   ldx #0017
12549 E34D 1D 00 02        ...   bclr 00,x, #02
12550 E350 FC 00 44        ..D   ldd 0044
12551 E353 26 1C           &.    bne 1c
12552 E355 F6 0B C0        ...   ldab 0bc0
12553 E358 C4 10           ..    andb #10
12554 E35A 26 08           &.    bne 08
12555 E35C CE 00 21        ..!   ldx #0021
12556 E35F 1C 00           ..    bset add,x 00,x
12557 E361 80 20           .     suba #20
12558 E363 0B              .     sev
12559 E364 CE 00 21        ..!   ldx #0021
12560 E367 1D 00           ..    bclr add,x 00,x
12561 E369 80 C6           ..    suba #c6
12562 E36B 05              .     asld
12563 E36C F7 00 75        ..u   stab 0075
12564 E36F 20 57            W    bra 57
12565 E371 F6 0B C0        ...   ldab 0bc0
12566 E374 C4 10           ..    andb #10
12567 E376 27 50           'P    beq 50
12568 E378 FC 00 40        ..@   ldd 0040
12569 E37B 26 4B           &K    bne 4b
12570 E37D F6 0B C0        ...   ldab 0bc0
12571 E380 C4 20           .     andb #20
12572 E382 27 3E           '>    beq 3e
12573 E384 CE 00 17        ...   ldx #0017
12574 E387 1C 00 01        ...   bset 00,x, #01
12575 E38A F6 00 2B        ..+   ldab 002b
12576 E38D C1 00           ..    cmpb #00
12577 E38F 26 08           &.    bne 08
12578 E391 CC AC C9        ...   ldd #acc9    ; "  PRECIO  "
12579 E394 BD C0 BA        ...   jsr c0ba             ;display:
12580 E397 20 1E            .    bra 1e
12581 E399 C1 01           ..    cmpb #01
12582 E39B 26 08           &.    bne 08
12583 E39D CC AC BE        ...   ldd #acbe    ; "  PRIES  "
12584 E3A0 BD C0 BA        ...   jsr c0ba             ;display:
12585 E3A3 20 12            .    bra 12
12586 E3A5 C1 02           ..    cmpb #02
12587 E3A7 26 08           &.    bne 08
12588 E3A9 CC AC B3        ...   ldd #acb3    ; "  PRIX   "
12589 E3AC BD C0 BA        ...   jsr c0ba             ;display:
12590 E3AF 20 06            .    bra 06
12591 E3B1 CC AC A8        ...   ldd #aca8    ; "  PRICE  "
12592 E3B4 BD C0 BA        ...   jsr c0ba             ;display:
12593 E3B7 BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
12594 E3BA CE 00 17        ...   ldx #0017
12595 E3BD 1C 00 02        ...   bset 00,x, #02
12596 E3C0 20 06            .    bra 06
12597 E3C2 CE 00 1F        ...   ldx #001f
12598 E3C5 1C 00 08        ...   bset 00,x, #08
12599 E3C8 CE 00 1D        ...   ldx #001d
12600 E3CB 1C 00 02        ...   bset 00,x, #02
12601 E3CE CE 00 19        ...   ldx #0019
12602 E3D1 1C 00 08        ...   bset 00,x, #08
12603 E3D4 C6 32           .2    ldab #32
12604 E3D6 F7 00 31        ..1   stab 0031
12605 E3D9 C6 19           ..    ldab #19
12606 E3DB F7 00 36        ..6   stab 0036
12607 goto77:
12608 E3DE F6 00 1D        ...   ldab 001d
12609 E3E1 C4 02           ..    andb #02
12610 E3E3 26 03           &.    bne 03
12611 E3E5 7E E4 6E        ~.n   jmp e46e             ;goto76
12612 E3E8 F6 00 75        ..u   ldab 0075
12613 E3EB C1 04           ..    cmpb #04
12614 E3ED 22 05           ".    bhi 05
12615 E3EF F6 00 36        ..6   ldab 0036
12616 E3F2 26 3C           &<    bne 3c
12617 E3F4 7F 00 06        ...   clr 0006
12618 E3F7 5F              _     clrb
12619 E3F8 4F              O     clra
12620 E3F9 FD 00 76        ..v   std 0076
12621 E3FC 7F 00 2E        ...   clr 002e
12622 E3FF 7F 00 2C        ..,   clr 002c
12623 E402 7F 00 75        ..u   clr 0075
12624 E405 CE 00 17        ...   ldx #0017
12625 E408 1D 00 01        ...   bclr 00,x, #01
12626 E40B CE 00 19        ...   ldx #0019
12627 E40E 1D 00 08        ...   bclr 00,x, #08
12628 E411 CE 00 1B        ...   ldx #001b
12629 E414 1D 00           ..    bclr add,x 00,x
12630 E416 80 CE           ..    suba #ce
12631 E418 00              .     test
12632 E419 1D 1D 00        ...   bclr 1d,x, #00
12633 E41C 40              @     nega
12634 E41D CE 00 1D        ...   ldx #001d
12635 E420 1D 00 02        ...   bclr 00,x, #02
12636 E423 CE 00 1F        ...   ldx #001f
12637 E426 1D 00 08        ...   bclr 00,x, #08
12638 E429 CE 00 21        ..!   ldx #0021
12639 E42C 1D 00           ..    bclr add,x 00,x
12640 E42E 80 39           .9    suba #39
12641 E430 F6 0B C0        ...   ldab 0bc0
12642 E433 C4 20           .     andb #20
12643 E435 27 34           '4    beq 34
12644 E437 F6 00 17        ...   ldab 0017
12645 E43A C4 01           ..    andb #01
12646 E43C 26 2D           &-    bne 2d
12647 E43E F6 00 17        ...   ldab 0017
12648 E441 C4 02           ..    andb #02
12649 E443 27 26           '&    beq 26
12650 E445 CE 00 00        ...   ldx #0000
12651 E448 3C              <     pshx
12652 E449 FC 00 76        ..v   ldd 0076
12653 E44C BD BE 9E        ...   jsr be9e             ;jump50
12654 E44F 38              8     pulx
12655 E450 FC 00 76        ..v   ldd 0076
12656 E453 26 06           &.    bne 06
12657 E455 CE 00 17        ...   ldx #0017
12658 E458 1D 00 02        ...   bclr 00,x, #02
12659 E45B F6 00 17        ...   ldab 0017
12660 E45E C4 02           ..    andb #02
12661 E460 27 09           '.    beq 09
12662 E462 BD E5 D1        ...   jsr e5d1             ;jump52
12663 E465 CE 00 17        ...   ldx #0017
12664 E468 1D 00 02        ...   bclr 00,x, #02
12665 E46B 7E E3 DE        ~..   jmp e3de             ;goto77
12666 goto76:
12667 E46E CE 00 21        ..!   ldx #0021
12668 E471 1D 00           ..    bclr add,x 00,x
12669 E473 80 CE           ..    suba #ce
12670 E475 00              .     test
12671 E476 1F 1D 00 08     ....  brclr 1d,x 00 08
12672 E47A BD D2 13        ...   jsr d213             ;jump45
12673 E47D 83 00 00        ...   subd #0000
12674 E480 26 0F           &.    bne 0f
12675 E482 CC 00 80        ...   ldd #0080
12676 E485 BD C7 E7        ...   jsr c7e7             ;jump37
12677 E488 BD E5 D1        ...   jsr e5d1             ;jump52
12678 E48B BD D8 E9        ...   jsr d8e9             ;jump92
12679 E48E 7E E5 5E        ~.^   jmp e55e             ;goto74
12680 E491 F6 00 2B        ..+   ldab 002b
12681 E494 C1 00           ..    cmpb #00
12682 E496 26 08           &.    bne 08
12683 E498 CC AD 16        ...   ldd #ad16
12684 E49B BD C0 BA        ...   jsr c0ba             ;display:
12685 E49E 20 1E            .    bra 1e
12686 E4A0 C1 01           ..    cmpb #01
12687 E4A2 26 08           &.    bne 08
12688 E4A4 CC AD 0B        ...   ldd #ad0b
12689 E4A7 BD C0 BA        ...   jsr c0ba             ;display:
12690 E4AA 20 12            .    bra 12
12691 E4AC C1 02           ..    cmpb #02
12692 E4AE 26 08           &.    bne 08
12693 E4B0 CC AD 00        ...   ldd #ad00
12694 E4B3 BD C0 BA        ...   jsr c0ba             ;display:
12695 E4B6 20 06            .    bra 06
12696 E4B8 CC AC F5        ...   ldd #acf5
12697 E4BB BD C0 BA        ...   jsr c0ba             ;display:
12698 E4BE BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
12699 E4C1 CE 00 01        ...   ldx #0001
12700 E4C4 3C              <     pshx
12701 E4C5 FC 00 40        ..@   ldd 0040
12702 E4C8 BD BE 9E        ...   jsr be9e             ;jump50
12703 E4CB 38              8     pulx
12704 E4CC 5F              _     clrb
12705 E4CD 4F              O     clra
12706 E4CE BD C7 E7        ...   jsr c7e7             ;jump37
12707 E4D1 F6 0B C0        ...   ldab 0bc0
12708 E4D4 2D 03           -.    blt 03
12709 E4D6 7E E5 58        ~.X   jmp e558             ;goto78
12710 E4D9 F6 0B C0        ...   ldab 0bc0
12711 E4DC C4 10           ..    andb #10
12712 E4DE 26 78           &x    bne 78
12713 E4E0 F6 00 06        ...   ldab 0006
12714 E4E3 4F              O     clra
12715 E4E4 05              .     asld
12716 E4E5 C3 08 00        ...   addd #0800
12717 E4E8 8F              .     xgdx
12718 E4E9 EC 00           ..    ldd 00,x
12719 E4EB C4 FF           ..    andb #ff
12720 E4ED 26 02           &.    bne 02
12721 E4EF 84 3F           .?    anda #3f
12722 E4F1 27 65           'e    beq 65
12723 E4F3 FC 0D 0D        ...   ldd 0d0d
12724 E4F6 83 FF FF        ...   subd #ffff
12725 E4F9 26 05           &.    bne 05
12726 E4FB 5F              _     clrb
12727 E4FC 4F              O     clra
12728 E4FD FD 0D 0D        ...   std 0d0d
12729 E500 FE 0D 0D        ...   ldx 0d0d
12730 E503 08              .     inx
12731 E504 FF 0D 0D        ...   stx 0d0d
12732 E507 F6 00 06        ...   ldab 0006
12733 E50A 4F              O     clra
12734 E50B 05              .     asld
12735 E50C C3 08 00        ...   addd #0800
12736 E50F 8F              .     xgdx
12737 E510 EC 00           ..    ldd 00,x
12738 E512 C4 FF           ..    andb #ff
12739 E514 84 3F           .?    anda #3f
12740 E516 37              7     pshb
12741 E517 36              6     psha
12742 E518 4F              O     clra
12743 E519 5F              _     clrb
12744 E51A 37              7     pshb
12745 E51B 36              6     psha
12746 E51C CC 0D 1B        ...   ldd #0d1b
12747 E51F BD FB DF        ...   jsr fbdf             ;jump46
12748 E522 31              1     ins
12749 E523 31              1     ins
12750 E524 FE 0D 1D        ...   ldx 0d1d
12751 E527 3C              <     pshx
12752 E528 FC 0D 1B        ...   ldd 0d1b
12753 E52B 37              7     pshb
12754 E52C 36              6     psha
12755 E52D CE E1 00        ...   ldx #e100
12756 E530 3C              <     pshx
12757 E531 CC 05 F5        ...   ldd #05f5
12758 E534 37              7     pshb
12759 E535 36              6     psha
12760 E536 30              0     tsx
12761 E537 EC 06           ..    ldd 06,x
12762 E539 A3 02           ..    subd 02,x
12763 E53B EC 04           ..    ldd 04,x
12764 E53D E2 01           ..    sbcb 01,x
12765 E53F A2 00           ..    sbca 00,x
12766 E541 38              8     pulx
12767 E542 38              8     pulx
12768 E543 38              8     pulx
12769 E544 38              8     pulx
12770 E545 25 11           %.    bcs 11
12771 E547 CE 1F 00        ...   ldx #1f00
12772 E54A 3C              <     pshx
12773 E54B CC FA 0A        ...   ldd #fa0a
12774 E54E 37              7     pshb
12775 E54F 36              6     psha
12776 E550 CC 0D 1B        ...   ldd #0d1b
12777 E553 BD FB DF        ...   jsr fbdf             ;jump46
12778 E556 31              1     ins
12779 E557 31              1     ins
12780 goto78:
12781 E558 BD D7 FF        ...   jsr d7ff             ;jump80
12782 E55B BD D8 40        ..@   jsr d840             ;jump105
12783 goto74:
12784 E55E 7F 00 06        ...   clr 0006
12785 E561 7F 00 2E        ...   clr 002e
12786 E564 CE 00 1B        ...   ldx #001b
12787 E567 1D 00 80        ..    bclr 00,x, #80
12788 ;goto73
12789 E56A CE 00 1D        ...   ldx #001d
12790 E56C 1D 00 40        ..    bclr 00,x, #40
12791 E570 39              9     rts
12792
12793 ;!!! Is this a delay routine?  It gets called between displaying strings
12794 ;on startup.  Looks like a delay.  e61b just stores 0a at 0031 and returns.
12795 msdelay:
12796 ; appears to delay for roughly D milliseconds.
12797 E571 37              7     pshb
12798 E572 36              6     psha
12799 E573 34              4     des
12800 E574 30              0     tsx
12801 E575 EC 01           ..    ldd 01,x
12802 E577 83 00 01        ...   subd #0001
12803 E57A ED 01           ..    std 01,x
12804 E57C 2D 15           -.    blt 15       ; to e593
12805 E57E C6 41           .A    ldab #41
12806 E580 30              0     tsx
12807 E581 E7 00           ..    stab 00,x
12808 E583 30              0     tsx
12809 E584 E6 00           ..    ldab 00,x
12810 E586 6A 00           j.    dec 00,x
12811 E588 C1 00           ..    cmpb #00
12812 E58A 23 02           #.    bls 02
12813 E58C 20 F5            .    bra f5       ; to e583
12814 E58E BD E6 1B        ...   jsr e61b             ;jump4
12815 E591 20 E1            .    bra e1       ; to e574
12816 E593 38              8     pulx         ;this must just be a standard 'pull 3
12817 E594 31              1     ins          ;bytes and I don't care where they go'
12818                                         ;to clean up the stack.
12819 E595 39              9     rts
12820
12821 jump115:
12822 ; A short delay - counts to 32 in a stack variable. (about 100ms?)
12823 E596 34              4     des
12824 E597 C6 32           .2    ldab #32
12825 E599 30              0     tsx
12826 E59A E7 00           ..    stab 00,x
12827 E59C 30              0     tsx
12828 E59D E6 00           ..    ldab 00,x
12829 E59F C1 00           ..    cmpb #00
12830 E5A1 23 05           #.    bls e5a8
12831 E5A3 30              0     tsx
12832 E5A4 6A 00           j.    dec 00,x
12833 E5A6 20 F4            .    bra e59c
12834 E5A8 31              1     ins
12835 E5A9 39              9     rts
12836
12837 jump12:
12838 E5AA F6 00 33        ..3   ldab 0033
12839 E5AD 27 0C           '.    beq 0c      ; to e5bb
12840 E5AF F6 00 29        ..)   ldab 0029   ; key state
12841 E5B2 27 05           '.    beq 05      ; to e5b9 (out)
12842 E5B4 C6 02           ..    ldab #02
12843 E5B6 F7 00 33        ..3   stab 0033
12844 E5B9 20 15            .    bra 15      ; to e5d0 (out)
12845 E5BB C6 03           ..    ldab #03
12846 E5BD F7 00 32        ..2   stab 0032
12847 E5C0 FC 00 3B        ..;   ldd 003b
12848 E5C3 27 06           '.    beq 06      ; to e5cb
12849 E5C5 CC 02 33        ..3   ldd #0233
12850 E5C8 FD 00 3B        ..;   std 003b
12851 E5CB C6 02           ..    ldab #02
12852 E5CD F7 00 33        ..3   stab 0033
12853 E5D0 39              9     rts
12854
12855 jump52:
12856 E5D1 C6 0B           ..    ldab #0b    ; 1011
12857 E5D3 F7 00 32        ..2   stab 0032
12858 E5D6 39              9     rts
12859
12860 jump69:
12861 ; tests an internal switch or input line
12862 ; Parameters: Port Address in D, bit mask on stack
12863 ; Return value:
12864 E5D7 37              7     pshb
12865 E5D8 36              6     psha
12866 ; make some stack space
12867 E5D9 3C              <     pshx
12868 E5DA 3C              <     pshx
12869 E5DB 5F              _     clrb
12870 E5DC 4F              O     clra
12871 E5DD 30              0     tsx
12872 ; 00,x on stack - number of hits
12873 E5DE ED 00           ..    std 00,x
12874 ; we call i = 02,x. let i = 64
12875 E5E0 CC 00 64        ..d   ldd #0064
12876 E5E3 ED 02           ..    std 02,x
12877 ; break if i <= 0
12878 E5E5 30              0     tsx
12879 E5E6 EC 02           ..    ldd 02,x
12880 E5E8 2F 21           /!    ble 21     ; to e60b
12881 ; we call j = 04,x. let j = initial value of D
12882 E5EA 30              0     tsx
12883 E5EB EE 04           ..    ldx 04,x
12884 E5ED E6 00           ..    ldab 00,x
12885 E5EF 30              0     tsx
12886 E5F0 E4 09           ..    andb 09,x
12887 E5F2 27 05           '.    beq 05     ; to e5f9 if bit cleared
12888 E5F4 38              8     pulx
12889 E5F5 08              .     inx        ; increment number of hits
12890 E5F6 3C              <     pshx
12891 E5F7 20 08            .    bra 08     ; to e601
12892 E5F9 30              0     tsx
12893 E5FA EC 00           ..    ldd 00,x
12894 E5FC 83 00 01        ...   subd #0001 ; decrement number of hits
12895 E5FF ED 00           ..    std 00,x
12896 E601 30              0     tsx
12897 E602 EC 02           ..    ldd 02,x
12898 E604 83 00 01        ...   subd #0001  ; i--
12899 E607 ED 02           ..    std 02,x
12900 E609 20 DA            .    bra da      ; to e5e5
12901 ; end of loop
12902 ; return 1 iff the key was pressed
12903 E60B 30              0     tsx
12904 E60C EC 00           ..    ldd 00,x
12905 E60E 2F 04           /.    ble 04      ; to e614 if -ve
12906 E610 5F              _     clrb
12907 E611 4F              O     clra
12908 E612 20 03            .    bra 03      ; to e617
12909 E614 CC 00 01        ...   ldd #0001
12910 E617 38              8     pulx
12911 E618 38              8     pulx
12912 E619 38              8     pulx
12913 E61A 39              9     rts
12914
12915 jump4:
12916 E61B C6 0A           ..    ldab #0a
12917 E61D F7 00 31        ..1   stab 0031
12918 E620 39              9     rts
12919
12920 jump56:
12921 E621 38              8     pulx
12922 E622 37              7     pshb
12923 E623 36              6     psha
12924 E624 3C              <     pshx
12925 E625 BD BE 4B        ..K   jsr be4b             ;displayblank
12926 E628 30              0     tsx
12927 E629 EC 04           ..    ldd 04,x
12928 E62B 37              7     pshb
12929 E62C 36              6     psha
12930 E62D EC 02           ..    ldd 02,x
12931 E62F 37              7     pshb
12932 E630 36              6     psha
12933 E631 CE 96 80        ...   ldx #9680
12934 E634 3C              <     pshx
12935 E635 CC 00 98        ...   ldd #0098
12936 E638 BD FC 4C        ..L   jsr fc4c             ;jump83
12937 E63B 31              1     ins
12938 E63C 33              3     pulb
12939 E63D CB 30           .0    addb #30
12940 E63F F7 0B 97        ...   stab 0b97
12941 E642 30              0     tsx
12942 E643 EC 04           ..    ldd 04,x
12943 E645 37              7     pshb
12944 E646 36              6     psha
12945 E647 EC 02           ..    ldd 02,x
12946 E649 37              7     pshb
12947 E64A 36              6     psha
12948 E64B CE 96 80        ...   ldx #9680
12949 E64E 3C              <     pshx
12950 E64F CC 00 98        ...   ldd #0098
12951 E652 BD FC 5C        ..\   jsr fc5c             ;jump82
12952 E655 37              7     pshb
12953 E656 36              6     psha
12954 E657 CE 42 40        .B@   ldx #4240
12955 E65A 3C              <     pshx
12956 E65B CC 00 0F        ...   ldd #000f
12957 E65E BD FC 4C        ..L   jsr fc4c             ;jump83
12958 E661 31              1     ins
12959 E662 33              3     pulb
12960 E663 CB 30           .0    addb #30
12961 E665 F7 0B 96        ...   stab 0b96
12962 E668 30              0     tsx
12963 E669 EC 04           ..    ldd 04,x
12964 E66B 37              7     pshb
12965 E66C 36              6     psha
12966 E66D EC 02           ..    ldd 02,x
12967 E66F 37              7     pshb
12968 E670 36              6     psha
12969 E671 CE 42 40        .B@   ldx #4240
12970 E674 3C              <     pshx
12971 E675 CC 00 0F        ...   ldd #000f
12972 E678 BD FC 5C        ..\   jsr fc5c             ;jump82
12973 E67B 37              7     pshb
12974 E67C 36              6     psha
12975 E67D CE 86 A0        ...   ldx #86a0
12976 E680 3C              <     pshx
12977 E681 CC 00 01        ...   ldd #0001
12978 E684 BD FC 4C        ..L   jsr fc4c             ;jump83
12979 E687 31              1     ins
12980 E688 33              3     pulb
12981 E689 CB 30           .0    addb #30
12982 E68B F7 0B 95        ...   stab 0b95
12983 E68E 30              0     tsx
12984 E68F EC 04           ..    ldd 04,x
12985 E691 37              7     pshb
12986 E692 36              6     psha
12987 E693 EC 02           ..    ldd 02,x
12988 E695 37              7     pshb
12989 E696 36              6     psha
12990 E697 CE 86 A0        ...   ldx #86a0
12991 E69A 3C              <     pshx
12992 E69B CC 00 01        ...   ldd #0001
12993 E69E BD FC 5C        ..\   jsr fc5c             ;jump82
12994 E6A1 37              7     pshb
12995 E6A2 36              6     psha
12996 E6A3 CE 27 10        .'.   ldx #2710
12997 E6A6 3C              <     pshx
12998 E6A7 CC 00 00        ...   ldd #0000
12999 E6AA BD FC 4C        ..L   jsr fc4c             ;jump83
13000 E6AD 31              1     ins
13001 E6AE 33              3     pulb
13002 E6AF CB 30           .0    addb #30
13003 E6B1 F7 0B 94        ...   stab 0b94
13004 E6B4 30              0     tsx
13005 E6B5 EC 04           ..    ldd 04,x
13006 E6B7 37              7     pshb
13007 E6B8 36              6     psha
13008 E6B9 EC 02           ..    ldd 02,x
13009 E6BB 37              7     pshb
13010 E6BC 36              6     psha
13011 E6BD CE 27 10        .'.   ldx #2710
13012 E6C0 3C              <     pshx
13013 E6C1 CC 00 00        ...   ldd #0000
13014 E6C4 BD FC 5C        ..\   jsr fc5c             ;jump82
13015 E6C7 37              7     pshb
13016 E6C8 36              6     psha
13017 E6C9 CE 03 E8        ...   ldx #03e8
13018 E6CC 3C              <     pshx
13019 E6CD CC 00 00        ...   ldd #0000
13020 E6D0 BD FC 4C        ..L   jsr fc4c             ;jump83
13021 E6D3 31              1     ins
13022 E6D4 33              3     pulb
13023 E6D5 CB 30           .0    addb #30
13024 E6D7 F7 0B 93        ...   stab 0b93
13025 E6DA 30              0     tsx
13026 E6DB EC 04           ..    ldd 04,x
13027 E6DD 37              7     pshb
13028 E6DE 36              6     psha
13029 E6DF EC 02           ..    ldd 02,x
13030 E6E1 37              7     pshb
13031 E6E2 36              6     psha
13032 E6E3 CE 03 E8        ...   ldx #03e8
13033 E6E6 3C              <     pshx
13034 E6E7 CC 00 00        ...   ldd #0000
13035 E6EA BD FC 5C        ..\   jsr fc5c             ;jump82
13036 E6ED 37              7     pshb
13037 E6EE 36              6     psha
13038 E6EF CE 00 64        ..d   ldx #0064
13039 E6F2 3C              <     pshx
13040 E6F3 CC 00 00        ...   ldd #0000
13041 E6F6 BD FC 4C        ..L   jsr fc4c             ;jump83
13042 E6F9 31              1     ins
13043 E6FA 33              3     pulb
13044 E6FB CB 30           .0    addb #30
13045 E6FD F7 0B 92        ...   stab 0b92
13046 E700 30              0     tsx
13047 E701 EC 04           ..    ldd 04,x
13048 E703 37              7     pshb
13049 E704 36              6     psha
13050 E705 EC 02           ..    ldd 02,x
13051 E707 37              7     pshb
13052 E708 36              6     psha
13053 E709 CE 00 64        ..d   ldx #0064
13054 E70C 3C              <     pshx
13055 E70D CC 00 00        ...   ldd #0000
13056 E710 BD FC 5C        ..\   jsr fc5c             ;jump82
13057 E713 37              7     pshb
13058 E714 36              6     psha
13059 E715 CE 00 0A        ...   ldx #000a
13060 E718 3C              <     pshx
13061 E719 CC 00 00        ...   ldd #0000
13062 E71C BD FC 4C        ..L   jsr fc4c             ;jump83
13063 E71F 31              1     ins
13064 E720 33              3     pulb
13065 E721 CB 30           .0    addb #30
13066 E723 F7 0B 91        ...   stab 0b91
13067 E726 30              0     tsx
13068 E727 EC 04           ..    ldd 04,x
13069 E729 37              7     pshb
13070 E72A 36              6     psha
13071 E72B EC 02           ..    ldd 02,x
13072 E72D 37              7     pshb
13073 E72E 36              6     psha
13074 E72F CE 00 0A        ...   ldx #000a
13075 E732 3C              <     pshx
13076 E733 CC 00 00        ...   ldd #0000
13077 E736 BD FC 5C        ..\   jsr fc5c             ;jump82
13078 E739 31              1     ins
13079 E73A 33              3     pulb
13080 E73B CB 30           .0    addb #30
13081 E73D F7 0B 90        ...   stab 0b90
13082 E740 38              8     pulx
13083 E741 31              1     ins
13084 E742 31              1     ins
13085 E743 6E 00           n.    jmp 00,x
13086
13087 jump55:
13088 ; number to string. number is <= 99999. puts it into 0057, 005a, 005d-005f
13089 E745 37              7     pshb
13090 E746 36              6     psha
13091 E747 30              0     tsx
13092 E748 EC 00           ..    ldd 00,x
13093 E74A CE 27 10        .'.   ldx #2710   ; 10000
13094 E74D 02              .     idiv
13095 E74E 8F              .     xgdx
13096 E74F CB 30           .0    addb #30
13097 E751 F7 00 57        ..W   stab 0057   ; num/10000 => 0057
13098 E754 30              0     tsx
13099 E755 EC 00           ..    ldd 00,x
13100 E757 CE 27 10        .'.   ldx #2710   ; 10000
13101 E75A 02              .     idiv
13102 E75B CE 03 E8        ...   ldx #03e8
13103 E75E 02              .     idiv
13104 E75F 8F              .     xgdx
13105 E760 CB 30           .0    addb #30
13106 E762 F7 00 5A        ..Z   stab 005a   ; num%10000/1000 => 005a
13107 E765 30              0     tsx
13108 E766 EC 00           ..    ldd 00,x
13109 E768 CE 03 E8        ...   ldx #03e8
13110 E76B 02              .     idiv
13111 E76C CE 00 64        ..d   ldx #0064
13112 E76F 02              .     idiv
13113 E770 8F              .     xgdx
13114 E771 CB 30           .0    addb #30
13115 E773 F7 00 5D        ..]   stab 005d  ; num%1000/100 => 005d
13116 E776 30              0     tsx
13117 E777 EC 00           ..    ldd 00,x
13118 E779 CE 00 64        ..d   ldx #0064
13119 E77C 02              .     idiv
13120 E77D CE 00 0A        ...   ldx #000a
13121 E780 02              .     idiv
13122 E781 8F              .     xgdx
13123 E782 CB 30           .0    addb #30
13124 E784 F7 00 5E        ..^   stab 005e  ; num%100/10 => 005e
13125 E787 30              0     tsx
13126 E788 EC 00           ..    ldd 00,x
13127 E78A CE 00 0A        ...   ldx #000a
13128 E78D 02              .     idiv
13129 E78E CB 30           .0    addb #30
13130 E790 F7 00 5F        .._   stab 005f ; num%10 => 005f
13131 E793 38              8     pulx
13132 E794 39              9     rts
13133
13134 jump54:
13135 ; number to string. number is <= 999. puts it into 005d-005f
13136 E795 37              7     pshb
13137 E796 36              6     psha
13138 E797 30              0     tsx
13139 E798 E6 01           ..    ldab 01,x
13140 E79A 4F              O     clra
13141 E79B CE 00 64        ..d   ldx #0064   ; /100
13142 E79E 02              .     idiv
13143 E79F 8F              .     xgdx
13144 E7A0 CB 30           .0    addb #30    ; make it a digit
13145 E7A2 F7 00 5D        ..]   stab 005d
13146 E7A5 30              0     tsx
13147 E7A6 E6 01           ..    ldab 01,x
13148 E7A8 4F              O     clra
13149 E7A9 CE 00 64        ..d   ldx #0064
13150 E7AC 02              .     idiv
13151 E7AD 4F              O     clra
13152 E7AE CE 00 0A        ...   ldx #000a
13153 E7B1 02              .     idiv
13154 E7B2 8F              .     xgdx
13155 E7B3 CB 30           .0    addb #30    ; %100 / 10 -> digit
13156 E7B5 F7 00 5E        ..^   stab 005e
13157 E7B8 30              0     tsx
13158 E7B9 E6 01           ..    ldab 01,x
13159 E7BB 4F              O     clra
13160 E7BC CE 00 0A        ...   ldx #000a
13161 E7BF 02              .     idiv
13162 E7C0 CB 30           .0    addb #30
13163 E7C2 F7 00 5F        .._   stab 005f    ; %10
13164 E7C5 38              8     pulx
13165 E7C6 39              9     rts
13166
13167 jump114:
13168 E7C7 F6 00 06        ...   ldab 0006
13169 E7CA 4F              O     clra
13170 E7CB CE 00 05        ...   ldx #0005
13171 E7CE 02              .     idiv
13172 E7CF 5D              ]     tstb
13173 E7D0 26 03           &.    bne 03
13174 E7D2 7E E8 99        ~..   jmp e899             ;goto79
13175 E7D5 F6 00 06        ...   ldab 0006
13176 E7D8 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
13177 E7DB 83 00 00        ...   subd #0000
13178 E7DE 27 03           '.    beq 03
13179 E7E0 7E E8 99        ~..   jmp e899             ;goto79
13180 E7E3 F6 00 06        ...   ldab 0006
13181 E7E6 4F              O     clra
13182 E7E7 05              .     asld
13183 E7E8 C3 08 00        ...   addd #0800
13184 E7EB 8F              .     xgdx
13185 E7EC EC 00           ..    ldd 00,x
13186 E7EE C4 FF           ..    andb #ff
13187 E7F0 84 3F           .?    anda #3f
13188 E7F2 FD 10 16        ...   std 1016
13189 E7F5 F6 00 06        ...   ldab 0006
13190 E7F8 4F              O     clra
13191 E7F9 05              .     asld
13192 E7FA C3 0B F1        ...   addd #0bf1
13193 E7FD 8F              .     xgdx
13194 E7FE EC 00           ..    ldd 00,x
13195 E800 C4 FF           ..    andb #ff
13196 E802 84 3F           .?    anda #3f
13197 E804 FD 10 18        ...   std 1018
13198 E807 FC 10 16        ...   ldd 1016
13199 E80A 83 00 00        ...   subd #0000
13200 E80D 25 08           %.    bcs 08
13201 E80F FC 10 16        ...   ldd 1016
13202 E812 83 27 0F        .'.   subd #270f
13203 E815 23 35           #5    bls 35
13204 E817 F6 00 06        ...   ldab 0006
13205 E81A BD D4 68        ..h   jsr d468             ;jump51
13206 E81D 83 00 00        ...   subd #0000
13207 E820 27 2A           '*    beq 2a
13208 E822 CC 01 00        ...   ldd #0100
13209 E825 37              7     pshb
13210 E826 36              6     psha
13211 E827 F6 00 06        ...   ldab 0006
13212 E82A 4F              O     clra
13213 E82B 05              .     asld
13214 E82C C3 08 C8        ...   addd #08c8
13215 E82F 38              8     pulx
13216 E830 8F              .     xgdx
13217 E831 AA 00           ..    ora 00,x
13218 E833 EA 01           ..    orb 01,x
13219 E835 ED 00           ..    std 00,x
13220 E837 CC 40 00        .@.   ldd #4000
13221 E83A 37              7     pshb
13222 E83B 36              6     psha
13223 E83C F6 00 06        ...   ldab 0006
13224 E83F 4F              O     clra
13225 E840 05              .     asld
13226 E841 C3 08 00        ...   addd #0800
13227 E844 38              8     pulx
13228 E845 8F              .     xgdx
13229 E846 AA 00           ..    ora 00,x
13230 E848 EA 01           ..    orb 01,x
13231 E84A ED 00           ..    std 00,x
13232 E84C CE 10 16        ...   ldx #1016
13233 E84F 1D 00           ..    bclr add,x 00,x
13234 E851 C0 FC           ..    subb #fc
13235 E853 10              .     sba
13236 E854 18              .     illegal
13237 E855 43              C     coma
13238 E856 53              S     comb
13239 E857 FD 10 18        ...   std 1018
13240 E85A CE 10 18        ...   ldx #1018
13241 E85D 1D 00           ..    bclr add,x 00,x
13242 E85F C0 FC           ..    subb #fc
13243 E861 10              .     sba
13244 E862 16              .     tab
13245 E863 37              7     pshb
13246 E864 36              6     psha
13247 E865 FC 10 18        ...   ldd 1018
13248 E868 30              0     tsx
13249 E869 A3 00           ..    subd 00,x
13250 E86B 31              1     ins
13251 E86C 31              1     ins
13252 E86D 27 2A           '*    beq 2a
13253 E86F CC 01 00        ...   ldd #0100
13254 E872 37              7     pshb
13255 E873 36              6     psha
13256 E874 F6 00 06        ...   ldab 0006
13257 E877 4F              O     clra
13258 E878 05              .     asld
13259 E879 C3 08 C8        ...   addd #08c8
13260 E87C 38              8     pulx
13261 E87D 8F              .     xgdx
13262 E87E AA 00           ..    ora 00,x
13263 E880 EA 01           ..    orb 01,x
13264 E882 ED 00           ..    std 00,x
13265 E884 CC 40 00        .@.   ldd #4000
13266 E887 37              7     pshb
13267 E888 36              6     psha
13268 E889 F6 00 06        ...   ldab 0006
13269 E88C 4F              O     clra
13270 E88D 05              .     asld
13271 E88E C3 08 00        ...   addd #0800
13272 E891 38              8     pulx
13273 E892 8F              .     xgdx
13274 E893 AA 00           ..    ora 00,x
13275 E895 EA 01           ..    orb 01,x
13276 E897 ED 00           ..    std 00,x
13277 goto79:
13278 E899 39              9     rts
13279
13280 jump68:
13281 E89A 5F              _     clrb
13282 E89B 4F              O     clra
13283 E89C FD 00 0F        ...   std 000f
13284 E89F CC 3F FF        .?.   ldd #3fff
13285 E8A2 FD 00 50        ..P   std 0050
13286 E8A5 7F 00 06        ...   clr 0006
13287 E8A8 F6 00 06        ...   ldab 0006
13288 E8AB C1 64           .d    cmpb #64
13289 E8AD 24 64           $d    bcc 64
13290 E8AF F6 00 06        ...   ldab 0006
13291 E8B2 4F              O     clra
13292 E8B3 CE 00 05        ...   ldx #0005
13293 E8B6 02              .     idiv
13294 E8B7 5D              ]     tstb
13295 E8B8 27 54           'T    beq 54
13296 E8BA F6 00 06        ...   ldab 0006
13297 E8BD BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
13298 E8C0 83 00 00        ...   subd #0000
13299 E8C3 26 49           &I    bne 49
13300 E8C5 F6 00 06        ...   ldab 0006
13301 E8C8 4F              O     clra
13302 E8C9 05              .     asld
13303 E8CA C3 08 00        ...   addd #0800
13304 E8CD 8F              .     xgdx
13305 E8CE EC 00           ..    ldd 00,x
13306 E8D0 C4 FF           ..    andb #ff
13307 E8D2 84 3F           .?    anda #3f
13308 E8D4 FD 10 16        ...   std 1016
13309 E8D7 FC 10 16        ...   ldd 1016
13310 E8DA 83 27 10        .'.   subd #2710
13311 E8DD 24 2F           $/    bcc 2f
13312 E8DF F6 00 06        ...   ldab 0006
13313 E8E2 BD D4 68        ..h   jsr d468             ;jump51
13314 E8E5 83 00 00        ...   subd #0000
13315 E8E8 27 24           '$    beq 24
13316 E8EA BD D5 61        ..a   jsr d561             ;jump42
13317 E8ED 83 00 00        ...   subd #0000
13318 E8F0 26 1C           &.    bne 1c
13319 E8F2 FC 10 16        ...   ldd 1016
13320 E8F5 B3 00 0F        ...   subd 000f
13321 E8F8 23 06           #.    bls 06
13322 E8FA FC 10 16        ...   ldd 1016
13323 E8FD FD 00 0F        ...   std 000f
13324 E900 FC 10 16        ...   ldd 1016
13325 E903 B3 00 50        ..P   subd 0050
13326 E906 24 06           $.    bcc 06
13327 E908 FC 10 16        ...   ldd 1016
13328 E90B FD 00 50        ..P   std 0050
13329 E90E 7C 00 06        |..   inc 0006
13330 E911 20 95            .    bra 95
13331 E913 FC 0B B7        ...   ldd 0bb7
13332 E916 27 12           '.    beq 12
13333 E918 FC 00 0F        ...   ldd 000f
13334 E91B B3 0B B7        ...   subd 0bb7
13335 E91E 23 0A           #.    bls 0a
13336 E920 FC 00 0F        ...   ldd 000f
13337 E923 05              .     asld
13338 E924 B3 0B B7        ...   subd 0bb7
13339 E927 FD 00 0F        ...   std 000f
13340 E92A 39              9     rts
13341
13342 jump103:
13343 E92B 34              4     des
13344 E92C 30              0     tsx
13345 E92D 6F 00           o.    clr 00,x
13346 E92F 30              0     tsx
13347 E930 E6 00           ..    ldab 00,x
13348 E932 C1 64           .d    cmpb #64
13349 E934 24 15           $.    bcc 15
13350 E936 5F              _     clrb
13351 E937 4F              O     clra
13352 E938 37              7     pshb
13353 E939 36              6     psha
13354 E93A 30              0     tsx
13355 E93B E6 02           ..    ldab 02,x
13356 E93D 4F              O     clra
13357 E93E 05              .     asld
13358 E93F C3 0D 1F        ...   addd #0d1f
13359 E942 38              8     pulx
13360 E943 8F              .     xgdx
13361 E944 ED 00           ..    std 00,x
13362 E946 30              0     tsx
13363 E947 6C 00           l.    inc 00,x
13364 E949 20 E4            .    bra e4
13365 E94B 4F              O     clra
13366 E94C 5F              _     clrb
13367 E94D FD 0D F9        ...   std 0df9
13368 E950 FD 0D F7        ...   std 0df7
13369 E953 4F              O     clra
13370 E954 5F              _     clrb
13371 E955 FD 0D F5        ...   std 0df5
13372 E958 FD 0D F3        ...   std 0df3
13373 E95B 4F              O     clra
13374 E95C 5F              _     clrb
13375 E95D FD 0D F1        ...   std 0df1
13376 E960 FD 0D EF        ...   std 0def
13377 E963 4F              O     clra
13378 E964 5F              _     clrb
13379 E965 FD 0D FD        ...   std 0dfd
13380 E968 FD 0D FB        ...   std 0dfb
13381 E96B 4F              O     clra
13382 E96C 5F              _     clrb
13383 E96D FD 0D E9        ...   std 0de9
13384 E970 FD 0D E7        ...   std 0de7
13385 E973 5F              _     clrb
13386 E974 4F              O     clra
13387 E975 FD 0C DD        ...   std 0cdd
13388 E978 5F              _     clrb
13389 E979 4F              O     clra
13390 E97A FD 0C DF        ...   std 0cdf
13391 E97D 5F              _     clrb
13392 E97E 4F              O     clra
13393 E97F FD 0C E1        ...   std 0ce1
13394 E982 5F              _     clrb
13395 E983 4F              O     clra
13396 E984 FD 0C E3        ...   std 0ce3
13397 E987 5F              _     clrb
13398 E988 4F              O     clra
13399 E989 FD 0C E5        ...   std 0ce5
13400 E98C 4F              O     clra
13401 E98D 5F              _     clrb
13402 E98E FD 0C F5        ...   std 0cf5
13403 E991 FD 0C F3        ...   std 0cf3
13404 E994 4F              O     clra
13405 E995 5F              _     clrb
13406 E996 FD 0C F9        ...   std 0cf9
13407 E999 FD 0C F7        ...   std 0cf7
13408 E99C 4F              O     clra
13409 E99D 5F              _     clrb
13410 E99E FD 0C FD        ...   std 0cfd
13411 E9A1 FD 0C FB        ...   std 0cfb
13412 E9A4 4F              O     clra
13413 E9A5 5F              _     clrb
13414 E9A6 FD 0D 01        ...   std 0d01
13415 E9A9 FD 0C FF        ...   std 0cff
13416 E9AC 4F              O     clra
13417 E9AD 5F              _     clrb
13418 E9AE FD 0D 05        ...   std 0d05
13419 E9B1 FD 0D 03        ...   std 0d03
13420 E9B4 5F              _     clrb
13421 E9B5 4F              O     clra
13422 E9B6 FD 0D 07        ...   std 0d07
13423 E9B9 5F              _     clrb
13424 E9BA 4F              O     clra
13425 E9BB FD 0D 09        ...   std 0d09
13426 E9BE 5F              _     clrb
13427 E9BF 4F              O     clra
13428 E9C0 FD 0D 0B        ...   std 0d0b
13429 E9C3 5F              _     clrb
13430 E9C4 4F              O     clra
13431 E9C5 FD 0D 0D        ...   std 0d0d
13432 E9C8 4F              O     clra
13433 E9C9 5F              _     clrb
13434 E9CA FD 0D 11        ...   std 0d11
13435 E9CD FD 0D 0F        ...   std 0d0f
13436 E9D0 4F              O     clra
13437 E9D1 5F              _     clrb
13438 E9D2 FD 0D 15        ...   std 0d15
13439 E9D5 FD 0D 13        ...   std 0d13
13440 E9D8 4F              O     clra
13441 E9D9 5F              _     clrb
13442 E9DA FD 0D 19        ...   std 0d19
13443 E9DD FD 0D 17        ...   std 0d17
13444 E9E0 4F              O     clra
13445 E9E1 5F              _     clrb
13446 E9E2 FD 0D 1D        ...   std 0d1d
13447 E9E5 FD 0D 1B        ...   std 0d1b
13448 E9E8 31              1     ins
13449 E9E9 39              9     rts
13450
13451 jump113:
13452 E9EA 7F 00 06        ...   clr 0006
13453 E9ED F6 00 06        ...   ldab 0006
13454 E9F0 C1 64           .d    cmpb #64
13455 E9F2 24 64           $d    bcc 64
13456 E9F4 F6 00 06        ...   ldab 0006
13457 E9F7 4F              O     clra
13458 E9F8 CE 00 05        ...   ldx #0005
13459 E9FB 02              .     idiv
13460 E9FC 5D              ]     tstb
13461 E9FD 27 54           'T    beq 54
13462 E9FF CC BF FF        ...   ldd #bfff
13463 EA02 37              7     pshb
13464 EA03 36              6     psha
13465 EA04 F6 00 06        ...   ldab 0006
13466 EA07 4F              O     clra
13467 EA08 05              .     asld
13468 EA09 C3 08 00        ...   addd #0800
13469 EA0C 38              8     pulx
13470 EA0D 8F              .     xgdx
13471 EA0E A4 00           ..    anda 00,x
13472 EA10 E4 01           ..    andb 01,x
13473 EA12 ED 00           ..    std 00,x
13474 EA14 CC FE FF        ...   ldd #feff
13475 EA17 37              7     pshb
13476 EA18 36              6     psha
13477 EA19 F6 00 06        ...   ldab 0006
13478 EA1C 4F              O     clra
13479 EA1D 05              .     asld
13480 EA1E C3 08 C8        ...   addd #08c8
13481 EA21 38              8     pulx
13482 EA22 8F              .     xgdx
13483 EA23 A4 00           ..    anda 00,x
13484 EA25 E4 01           ..    andb 01,x
13485 EA27 ED 00           ..    std 00,x
13486 EA29 CC FD FF        ...   ldd #fdff
13487 EA2C 37              7     pshb
13488 EA2D 36              6     psha
13489 EA2E F6 00 06        ...   ldab 0006
13490 EA31 4F              O     clra
13491 EA32 05              .     asld
13492 EA33 C3 08 C8        ...   addd #08c8
13493 EA36 38              8     pulx
13494 EA37 8F              .     xgdx
13495 EA38 A4 00           ..    anda 00,x
13496 EA3A E4 01           ..    andb 01,x
13497 EA3C ED 00           ..    std 00,x
13498 EA3E CC FB FF        ...   ldd #fbff
13499 EA41 37              7     pshb
13500 EA42 36              6     psha
13501 EA43 F6 00 06        ...   ldab 0006
13502 EA46 4F              O     clra
13503 EA47 05              .     asld
13504 EA48 C3 08 C8        ...   addd #08c8
13505 EA4B 38              8     pulx
13506 EA4C 8F              .     xgdx
13507 EA4D A4 00           ..    anda 00,x
13508 EA4F E4 01           ..    andb 01,x
13509 EA51 ED 00           ..    std 00,x
13510 EA53 7C 00 06        |..   inc 0006
13511 EA56 20 95            .    bra 95
13512 EA58 39              9     rts
13513
13514 jump65:
13515 EA59 34              4     des
13516 ; test PE2 - remote no-sale switch.
13517 EA5A CE 00 04        ...   ldx #0004
13518 EA5D 3C              <     pshx
13519 EA5E CC 10 0A        ...   ldd #100a
13520 EA61 BD E5 D7        ...   jsr e5d7             ;jump69 - test input line
13521 EA64 38              8     pulx
13522 EA65 83 00 00        ...   subd #0000
13523 EA68 27 3F           '?    beq 3f       ; to eaa9 if off
13524
13525 ; test internal mode switch (bit 1 of 1800)
13526 EA6A CE 00 01        ...   ldx #0001
13527 EA6D 3C              <     pshx
13528 EA6E CC 18 00        ...   ldd #1800
13529 EA71 BD E5 D7        ...   jsr e5d7             ;jump69 - test input line
13530 EA74 38              8     pulx
13531 EA75 83 00 00        ...   subd #0000
13532 EA78 27 2F           '/    beq 2f       ; to eaa9 if off
13533
13534 ; both no-sale & mode switches held.
13535
13536 ; 1000-unit delay
13537 EA7A CC 03 E8        ...   ldd #03e8
13538 EA7D BD E5 71        ..q   jsr e571             ;msdelay
13539
13540 EA80 7F 0B A8        ...   clr 0ba8
13541
13542 ; blink "SECURE OFF" until mode switch is released
13543 EA83 F6 18 00        ...   ldab 1800
13544 EA86 C4 01           ..    andb #01
13545 EA88 26 1C           &.    bne 1c       ; to eaa4 (loop until released)
13546
13547 ; blank display
13548 EA8A BD BE 4B        ..K   jsr be4b             ;displayblank (blank display buffer)
13549 EA8D 0F              .     sei
13550 EA8E BD BE 01        ...   jsr be01             ;jump70 (commit to display)
13551 EA91 0E              .     cli
13552
13553 ; 500-unit delay
13554 EA92 CC 01 F4        ...   ldd #01f4
13555 EA95 BD E5 71        ..q   jsr e571             ;msdelay
13556
13557 EA98 CC AF D1        ...   ldd #afd1    ; "SECURE OFF"
13558 EA9B BD C0 BA        ...   jsr c0ba             ;display:
13559
13560 ; 500-unit delay
13561 EA9E CC 01 F4        ...   ldd #01f4
13562 EAA1 BD E5 71        ..q   jsr e571             ;msdelay
13563 ; loop
13564 EAA4 20 DD            .    bra dd       ; to ea83
13565 EAA6 BD BE 69        ..i   jsr be69             ;displayreset
13566
13567 ; no sale switch or internal mode switch on
13568
13569 ; fiddle with the bill acceptor
13570 EAA9 C6 01           ..    ldab #01
13571 EAAB F7 00 14        ...   stab 0014
13572 EAAE F6 00 14        ...   ldab 0014
13573 EAB1 F7 38 00        .8.   stab 3800
13574
13575 ; 30-unit delay
13576 EAB4 CC 00 1E        ...   ldd #001e
13577 EAB7 BD E5 71        ..q   jsr e571             ;msdelay
13578
13579 ; more bill acceptor fiddling & tests
13580 EABA CE 00 01        ...   ldx #0001
13581 EABD 3C              <     pshx
13582 EABE CC 10 00        ...   ldd #1000
13583 EAC1 BD E5 D7        ...   jsr e5d7             ;jump69 - test input line
13584 EAC4 38              8     pulx
13585 EAC5 83 00 00        ...   subd #0000
13586 EAC8 27 10           '.    beq 10
13587 EACA CE 00 02        ...   ldx #0002
13588 EACD 3C              <     pshx
13589 EACE CC 10 00        ...   ldd #1000
13590 EAD1 BD E5 D7        ...   jsr e5d7             ;jump69 - test input line
13591 EAD4 38              8     pulx
13592 EAD5 83 00 00        ...   subd #0000
13593 EAD8 27 03           '.    beq 03
13594 ; we've decided if we have a bill acceptor. if not, skip this bit
13595 EADA 7E ED F8        ~..   jmp edf8             ;goto80
13596 ; we have a bill acceptor - play some more
13597 EADD C6 02           ..    ldab #02
13598 EADF F7 00 14        ...   stab 0014
13599 EAE2 F6 00 14        ...   ldab 0014
13600 EAE5 F7 38 00        .8.   stab 3800
13601 EAE8 CC 00 1E        ...   ldd #001e
13602 EAEB BD E5 71        ..q   jsr e571             ;msdelay
13603 EAEE CE 00 01        ...   ldx #0001
13604 EAF1 3C              <     pshx
13605 EAF2 CC 10 00        ...   ldd #1000
13606 EAF5 BD E5 D7        ...   jsr e5d7             ;jump69 - test input line
13607 EAF8 38              8     pulx
13608 EAF9 83 00 00        ...   subd #0000
13609 EAFC 26 10           &.    bne 10
13610 EAFE CE 00 02        ...   ldx #0002
13611 EB01 3C              <     pshx
13612 EB02 CC 10 00        ...   ldd #1000
13613 EB05 BD E5 D7        ...   jsr e5d7             ;jump69 - test input line
13614 EB08 38              8     pulx
13615 EB09 83 00 00        ...   subd #0000
13616 EB0C 26 03           &.    bne 03
13617 EB0E 7E ED F8        ~..   jmp edf8             ;goto80 - something about the bill validator failed. skip it.
13618 EB11 CC 5A 5A        .ZZ   ldd #5a5a
13619 EB14 FD 10 16        ...   std 1016
13620 EB17 CC B1 39        ..9   ldd #b139    ;"**********"
13621 EB1A BD C0 BA        ...   jsr c0ba             ;display:
13622 EB1D CC 07 D0        ...   ldd #07d0
13623 EB20 BD E5 71        ..q   jsr e571             ;msdelay
13624 EB23 CC B1 44        ..D   ldd #b144    ;"OOOOOOOOOO"
13625 EB26 BD C0 BA        ...   jsr c0ba             ;display:
13626 EB29 CC 07 D0        ...   ldd #07d0
13627 EB2C BD E5 71        ..q   jsr e571             ;msdelay
13628 EB2F CC 00 14        ...   ldd #0014
13629 EB32 FD 00 3B        ..;   std 003b
13630 EB35 FC 00 3B        ..;   ldd 003b
13631 EB38 27 47           'G    beq 47
13632 ; draws a sequence of 10 dots ..... along the display.
13633 EB3A 30              0     tsx
13634 EB3B 6F 00           o.    clr 00,x
13635 EB3D 30              0     tsx
13636 EB3E E6 00           ..    ldab 00,x
13637 EB40 C1 0A           ..    cmpb #0a
13638 EB42 24 3B           $;    bcc 3b
13639 EB44 BD BE 4B        ..K   jsr be4b             ;displayblank
13640 EB47 C6 2E           ..    ldab #2e
13641 EB49 37              7     pshb
13642 EB4A 30              0     tsx
13643 EB4B E6 01           ..    ldab 01,x
13644 EB4D 4F              O     clra
13645 EB4E C3 0B 90        ...   addd #0b90
13646 EB51 8F              .     xgdx
13647 EB52 33              3     pulb
13648 EB53 E7 00           ..    stab 00,x
13649 EB55 0F              .     sei
13650 EB56 BD BE 69        ..i   jsr be69             ;displayreset
13651 EB59 CE 10 28        ..(   ldx #1028
13652 EB5C 1C 00 40        ..    bset 00,x, #40  ; tweak the clock phase
13653 EB5F CE 00 01        ...   ldx #0001
13654 EB62 3C              <     pshx
13655 EB63 CC 00 20        ..    ldd #0020
13656 EB66 BD BD B5        ...   jsr bdb5             ;jump78 - send display byte
13657 EB69 38              8     pulx
13658 EB6A CE 10 28        ..(   ldx #1028
13659 EB6D 1D 00 40        ..@   bclr 00,x, #40  ; tweak the clock phase back
13660 EB70 BD BE 10        ...   jsr be10             ;jump88
13661 EB73 0E              .     cli
13662 EB74 CC 00 07        ...   ldd #0007
13663 EB77 BD E5 71        ..q   jsr e571             ;msdelay 7-unit delay
13664 EB7A 30              0     tsx
13665 EB7B 6C 00           l.    inc 00,x
13666 EB7D 20 BE            .    bra be
13667 EB7F 20 B4            .    bra b4
13668 EB81 BD BE 69        ..i   jsr be69             ;displayreset
13669 EB84 CC 08 00        ...   ldd #0800
13670 EB87 FD 00 73        ..s   std 0073
13671 EB8A FC 00 73        ..s   ldd 0073
13672 EB8D 83 0F FF        ...   subd #0fff
13673 EB90 22 10           ".    bhi 10       ; to eba2
13674 EB92 C6 AA           ..    ldab #aa
13675 EB94 FE 00 73        ..s   ldx 0073
13676 EB97 E7 00           ..    stab 00,x
13677 EB99 FE 00 73        ..s   ldx 0073
13678 EB9C 08              .     inx
13679 EB9D FF 00 73        ..s   stx 0073
13680 EBA0 20 E8            .    bra e8
13681 EBA2 CC 08 00        ...   ldd #0800
13682 EBA5 FD 00 73        ..s   std 0073
13683 EBA8 FC 00 73        ..s   ldd 0073
13684 EBAB 83 0F FF        ...   subd #0fff
13685 EBAE 22 1A           ".    bhi 1a
13686 EBB0 FE 00 73        ..s   ldx 0073
13687 EBB3 E6 00           ..    ldab 00,x
13688 EBB5 C1 AA           ..    cmpb #aa
13689 EBB7 27 08           '.    beq 08
13690 EBB9 CE 10 16        ...   ldx #1016
13691 EBBC 1D 00 FF        ..    bclr 00,x, #FF
13692 EBBF 20 09           ..    bra 09
13693 EBC1 FE 00 73        ..s   ldx 0073
13694 EBC4 08              .     inx
13695 EBC5 FF 00 73        ..s   stx 0073
13696 EBC8 20 DE            .    bra de
13697 EBCA CC 08 00        ...   ldd #0800
13698 EBCD FD 00 73        ..s   std 0073
13699 EBD0 FC 00 73        ..s   ldd 0073
13700 EBD3 83 0F FF        ...   subd #0fff
13701 EBD6 22 10           ".    bhi 10
13702 EBD8 C6 55           .U    ldab #55
13703 EBDA FE 00 73        ..s   ldx 0073
13704 EBDD E7 00           ..    stab 00,x
13705 EBDF FE 00 73        ..s   ldx 0073
13706 EBE2 08              .     inx
13707 EBE3 FF 00 73        ..s   stx 0073
13708 EBE6 20 E8            .    bra e8
13709 EBE8 CC 08 00        ...   ldd #0800
13710 EBEB FD 00 73        ..s   std 0073
13711 EBEE FC 00 73        ..s   ldd 0073
13712 EBF1 83 0F FF        ...   subd #0fff
13713 EBF4 22 1A           ".    bhi 1a
13714 EBF6 FE 00 73        ..s   ldx 0073
13715 EBF9 E6 00           ..    ldab 00,x
13716 EBFB C1 55           .U    cmpb #55
13717 EBFD 27 08           '.    beq 08
13718 EBFF CE 10 16        ...   ldx #1016
13719 EC02 1D 00 FF        ...   bclr 00,x #ff
13720 EC05 20 09            .    bra 09
13721 EC07 FE 00 73        ..s   ldx 0073
13722 EC0A 08              .     inx
13723 EC0B FF 00 73        ..s   stx 0073
13724 EC0E 20 DE            .    bra de
13725 EC10 CC 08 00        ...   ldd #0800
13726 EC13 FD 00 73        ..s   std 0073
13727 EC16 FC 00 73        ..s   ldd 0073
13728 EC19 83 0F FF        ...   subd #0fff
13729 EC1C 22 0F           ".    bhi 0f
13730 EC1E 5F              _     clrb
13731 EC1F FE 00 73        ..s   ldx 0073
13732 EC22 E7 00           ..    stab 00,x
13733 EC24 FE 00 73        ..s   ldx 0073
13734 EC27 08              .     inx
13735 EC28 FF 00 73        ..s   stx 0073
13736 EC2B 20 E9            .    bra e9
13737 EC2D 7F 00 06        ...   clr 0006
13738 EC30 F6 00 06        ...   ldab 0006
13739 EC33 C1 64           .d    cmpb #64
13740 EC35 24 4D           $M    bcc 4d
13741 EC37 F6 00 06        ...   ldab 0006
13742 EC3A 4F              O     clra
13743 EC3B CE 00 05        ...   ldx #0005
13744 EC3E 02              .     idiv
13745 EC3F 5D              ]     tstb
13746 EC40 27 3D           '=    beq 3d
13747 EC42 CC 00 32        ..2   ldd #0032
13748 EC45 37              7     pshb
13749 EC46 36              6     psha
13750 EC47 F6 00 06        ...   ldab 0006
13751 EC4A 4F              O     clra
13752 EC4B 05              .     asld
13753 EC4C C3 08 00        ...   addd #0800
13754 EC4F 38              8     pulx
13755 EC50 8F              .     xgdx
13756 EC51 ED 00           ..    std 00,x
13757 EC53 F6 00 06        ...   ldab 0006
13758 EC56 4F              O     clra
13759 EC57 05              .     asld
13760 EC58 C3 08 00        ...   addd #0800
13761 EC5B 8F              .     xgdx
13762 EC5C EC 00           ..    ldd 00,x
13763 EC5E 43              C     coma
13764 EC5F 53              S     comb
13765 EC60 37              7     pshb
13766 EC61 36              6     psha
13767 EC62 F6 00 06        ...   ldab 0006
13768 EC65 4F              O     clra
13769 EC66 05              .     asld
13770 EC67 C3 0B F1        ...   addd #0bf1
13771 EC6A 38              8     pulx
13772 EC6B 8F              .     xgdx
13773 EC6C ED 00           ..    std 00,x
13774 EC6E CC 08 01        ...   ldd #0801
13775 EC71 37              7     pshb
13776 EC72 36              6     psha
13777 EC73 F6 00 06        ...   ldab 0006
13778 EC76 4F              O     clra
13779 EC77 05              .     asld
13780 EC78 C3 08 C8        ...   addd #08c8
13781 EC7B 38              8     pulx
13782 EC7C 8F              .     xgdx
13783 EC7D ED 00           ..    std 00,x
13784 EC7F 7C 00 06        |..   inc 0006
13785 EC82 20 AC            .    bra ac
13786 EC84 C6 1D           ..    ldab #1d
13787 EC86 F7 0B BF        ...   stab 0bbf
13788 EC89 30              0     tsx
13789 EC8A 6F 00           o.    clr 00,x
13790 EC8C F6 0B BF        ...   ldab 0bbf
13791 EC8F 4F              O     clra
13792 EC90 C3 00 02        ...   addd #0002
13793 EC93 37              7     pshb
13794 EC94 36              6     psha
13795 EC95 30              0     tsx
13796 EC96 E6 02           ..    ldab 02,x
13797 EC98 4F              O     clra
13798 EC99 A3 00           ..    subd 00,x
13799 EC9B 31              1     ins
13800 EC9C 31              1     ins
13801 EC9D 2C 1B           ,.    bge 1b
13802 EC9F 30              0     tsx
13803 ECA0 E6 00           ..    ldab 00,x
13804 ECA2 4F              O     clra
13805 ECA3 C3 B1 D0        ...   addd #b1d0
13806 ECA6 8F              .     xgdx
13807 ECA7 E6 00           ..    ldab 00,x
13808 ECA9 37              7     pshb
13809 ECAA 30              0     tsx
13810 ECAB E6 01           ..    ldab 01,x
13811 ECAD 4F              O     clra
13812 ECAE C3 09 93        ...   addd #0993
13813 ECB1 8F              .     xgdx
13814 ECB2 33              3     pulb
13815 ECB3 E7 00           ..    stab 00,x
13816 ECB5 30              0     tsx
13817 ECB6 6C 00           l.    inc 00,x
13818 ECB8 20 D2            .    bra d2
13819 ECBA 7F 0B A8        ...   clr 0ba8
13820 ECBD CC 00 32        ..2   ldd #0032
13821 ECC0 FD 0B B5        ...   std 0bb5
13822 ECC3 5F              _     clrb
13823 ECC4 4F              O     clra
13824 ECC5 FD 0B B7        ...   std 0bb7
13825 ECC8 7F 00 06        ...   clr 0006
13826 ECCB BD A6 4E        ..N   jsr a64e             ;jump135
13827 ECCE C6 09           ..    ldab #09
13828 ECD0 F7 0B C0        ...   stab 0bc0
13829 ECD3 7F 0E 6D        ..m   clr 0e6d
13830 ECD6 C6 01           ..    ldab #01
13831 ECD8 F7 0E 6E        ..n   stab 0e6e
13832 ECDB 30              0     tsx
13833 ECDC 6F 00           o.    clr 00,x
13834 ECDE 30              0     tsx
13835 ECDF E6 00           ..    ldab 00,x
13836 ECE1 C1 0F           ..    cmpb #0f
13837 ECE3 24 21           $!    bcc 21
13838 ECE5 C6 30           .0    ldab #30
13839 ECE7 37              7     pshb
13840 ECE8 30              0     tsx
13841 ECE9 E6 01           ..    ldab 01,x
13842 ECEB 4F              O     clra
13843 ECEC C3 0C B9        ...   addd #0cb9
13844 ECEF 8F              .     xgdx
13845 ECF0 33              3     pulb
13846 ECF1 E7 00           ..    stab 00,x
13847 ECF3 C6 30           .0    ldab #30
13848 ECF5 37              7     pshb
13849 ECF6 30              0     tsx
13850 ECF7 E6 01           ..    ldab 01,x
13851 ECF9 4F              O     clra
13852 ECFA C3 0C C9        ...   addd #0cc9
13853 ECFD 8F              .     xgdx
13854 ECFE 33              3     pulb
13855 ECFF E7 00           ..    stab 00,x
13856 ED01 30              0     tsx
13857 ED02 6C 00           l.    inc 00,x
13858 ED04 20 D8            .    bra d8
13859 ED06 30              0     tsx
13860 ED07 6F 00           o.    clr 00,x
13861 ED09 30              0     tsx
13862 ED0A E6 00           ..    ldab 00,x
13863 ED0C C1 0B           ..    cmpb #0b
13864 ED0E 24 12           $.    bcc 12
13865 ED10 5F              _     clrb
13866 ED11 37              7     pshb
13867 ED12 30              0     tsx
13868 ED13 E6 01           ..    ldab 01,x
13869 ED15 4F              O     clra
13870 ED16 C3 0B E4        ...   addd #0be4
13871 ED19 8F              .     xgdx
13872 ED1A 33              3     pulb
13873 ED1B E7 00           ..    stab 00,x
13874 ED1D 30              0     tsx
13875 ED1E 6C 00           l.    inc 00,x
13876 ED20 20 E7            .    bra e7
13877 ED22 4F              O     clra
13878 ED23 5F              _     clrb
13879 ED24 FD 0D F9        ...   std 0df9
13880 ED27 FD 0D F7        ...   std 0df7
13881 ED2A 4F              O     clra
13882 ED2B 5F              _     clrb
13883 ED2C FD 0D F5        ...   std 0df5
13884 ED2F FD 0D F3        ...   std 0df3
13885 ED32 7F 0C D9        ...   clr 0cd9
13886 ED35 7F 0C DA        ...   clr 0cda
13887 ED38 7F 0C DB        ...   clr 0cdb
13888 ED3B 7F 0C DC        ...   clr 0cdc
13889 ED3E 4F              O     clra
13890 ED3F 5F              _     clrb
13891 ED40 FD 0D F1        ...   std 0df1
13892 ED43 FD 0D EF        ...   std 0def
13893 ED46 4F              O     clra
13894 ED47 5F              _     clrb
13895 ED48 FD 0D FD        ...   std 0dfd
13896 ED4B FD 0D FB        ...   std 0dfb
13897 ED4E 4F              O     clra
13898 ED4F 5F              _     clrb
13899 ED50 FD 0D E9        ...   std 0de9
13900 ED53 FD 0D E7        ...   std 0de7
13901 ED56 4F              O     clra
13902 ED57 5F              _     clrb
13903 ED58 FD 0D ED        ...   std 0ded
13904 ED5B FD 0D EB        ...   std 0deb
13905 ED5E 5F              _     clrb
13906 ED5F 4F              O     clra
13907 ED60 FD 0C DD        ...   std 0cdd
13908 ED63 5F              _     clrb
13909 ED64 4F              O     clra
13910 ED65 FD 0C DF        ...   std 0cdf
13911 ED68 5F              _     clrb
13912 ED69 4F              O     clra
13913 ED6A FD 0C E1        ...   std 0ce1
13914 ED6D 5F              _     clrb
13915 ED6E 4F              O     clra
13916 ED6F FD 0C E3        ...   std 0ce3
13917 ED72 5F              _     clrb
13918 ED73 4F              O     clra
13919 ED74 FD 0C E5        ...   std 0ce5
13920 ED77 4F              O     clra
13921 ED78 5F              _     clrb
13922 ED79 FD 0C F5        ...   std 0cf5
13923 ED7C FD 0C F3        ...   std 0cf3
13924 ED7F 4F              O     clra
13925 ED80 5F              _     clrb
13926 ED81 FD 0C F9        ...   std 0cf9
13927 ED84 FD 0C F7        ...   std 0cf7
13928 ED87 4F              O     clra
13929 ED88 5F              _     clrb
13930 ED89 FD 0C FD        ...   std 0cfd
13931 ED8C FD 0C FB        ...   std 0cfb
13932 ED8F 4F              O     clra
13933 ED90 5F              _     clrb
13934 ED91 FD 0D 01        ...   std 0d01
13935 ED94 FD 0C FF        ...   std 0cff
13936 ED97 4F              O     clra
13937 ED98 5F              _     clrb
13938 ED99 FD 0D 05        ...   std 0d05
13939 ED9C FD 0D 03        ...   std 0d03
13940 ED9F 5F              _     clrb
13941 EDA0 4F              O     clra
13942 EDA1 FD 0D 07        ...   std 0d07
13943 EDA4 5F              _     clrb
13944 EDA5 4F              O     clra
13945 EDA6 FD 0D 09        ...   std 0d09
13946 EDA9 5F              _     clrb
13947 EDAA 4F              O     clra
13948 EDAB FD 0D 0B        ...   std 0d0b
13949 EDAE 5F              _     clrb
13950 EDAF 4F              O     clra
13951 EDB0 FD 0D 0D        ...   std 0d0d
13952 EDB3 4F              O     clra
13953 EDB4 5F              _     clrb
13954 EDB5 FD 0D 11        ...   std 0d11
13955 EDB8 FD 0D 0F        ...   std 0d0f
13956 EDBB 4F              O     clra
13957 EDBC 5F              _     clrb
13958 EDBD FD 0D 15        ...   std 0d15
13959 EDC0 FD 0D 13        ...   std 0d13
13960 EDC3 4F              O     clra
13961 EDC4 5F              _     clrb
13962 EDC5 FD 0D 19        ...   std 0d19
13963 EDC8 FD 0D 17        ...   std 0d17
13964 EDCB 4F              O     clra
13965 EDCC 5F              _     clrb
13966 EDCD FD 0D 1D        ...   std 0d1d
13967 EDD0 FD 0D 1B        ...   std 0d1b
13968 EDD3 7F 0B AF        ...   clr 0baf
13969 EDD6 7F 0B AE        ...   clr 0bae
13970 EDD9 7F 0B AD        ...   clr 0bad
13971 EDDC 7F 0B AC        ...   clr 0bac
13972 EDDF 7F 0B AB        ...   clr 0bab
13973 EDE2 7F 0B B4        ...   clr 0bb4
13974 EDE5 7F 0B B3        ...   clr 0bb3
13975 EDE8 7F 0B B2        ...   clr 0bb2
13976 EDEB 7F 0B B1        ...   clr 0bb1
13977 EDEE 7F 0B B0        ...   clr 0bb0
13978 EDF1 C6 05           ..    ldab #05
13979 EDF3 F7 08 00        ...   stab 0800
13980 EDF6 8D 21           .!    bsr dest 21
13981 goto80:
13982 ; switch things off
13983 EDF8 7F 00 14        ...   clr 0014
13984 EDFB F6 00 14        ...   ldab 0014
13985 EDFE F7 38 00        .8.   stab 3800
13986 EE01 31              1     ins
13987 EE02 39              9     rts
13988
13989 jump36:
13990 ; writes msg to screen for 1.5s
13991 EE03 37              7     pshb
13992 EE04 36              6     psha
13993 EE05 30              0     tsx
13994 EE06 EC 00           ..    ldd 00,x
13995 EE08 BD C0 BA        ...   jsr c0ba             ;display:
13996 EE0B CE 10 16        ...   ldx #1016
13997 EE0E 1D 01 FF        ..    bclr 01,x, #ff
13998 EE11 CC 05 DC        ...   ldd #05dc    ; 1500
13999 EE14 BD E5 71        ...   jsr e571     ;msdelay
14000 EE17 38              8     pulx
14001 EE18 39              9     rts
14002
14003
14004 EE19 BD E5 D1        ...   jsr e5d1             ;jump52
14005 goto81:
14006 ; this the diagnostic function activated when the "test harness"
14007 ; is connected
14008 EE1C CE 10 16        ...   ldx #1016
14009 EE1F 1D 01           ..    bclr 01,x, #ff
14010 EE21 CE 10 16        ..    ldx #1016
14011 EE25 1C 01 5A        ...   bset 01,x, #5A
14012 EE28 F6 10 16        ...   ldab 1016
14013 EE2B 26 0C           &.    bne 0c       ; to ee39
14014 EE2D CC B1 4F        ..O   ldd #b14f    ;"RAM   FAIL"
14015 EE30 BD C0 BA        ...   jsr c0ba             ;display:
14016 EE33 CC 05 DC        ...   ldd #05dc
14017 EE36 BD E5 71        ..q   jsr e571             ;msdelay
14018 ; i=4
14019 EE39 C6 04           ..    ldab #04
14020 EE3B F7 00 1C        ...   stab 001c
14021 ; i <= 7
14022 EE3E F6 00 1C        ...   ldab 001c
14023 EE41 C1 07           ..    cmpb #07
14024 EE43 24 57           $W    bcc 57       ; to ee9c (break out)
14025 EE45 F6 00 1C        ...   ldab 001c
14026 EE48 4F              O     clra
14027 EE49 C3 B1 23        ..#   addd #b123   ; power of 2
14028 EE4C 8F              .     xgdx
14029 EE4D E6 00           ..    ldab 00,x
14030 EE4F 53              S     comb
14031 EE50 F4 00 1A        ...   andb 001a
14032 EE53 F7 00 1A        ...   stab 001a
14033 EE56 F6 00 1A        ...   ldab 001a
14034 EE59 F7 30 00        .0.   stab 3000    ; set coin bit active (low)
14035 EE5C CC 00 0A        ...   ldd #000a
14036 EE5F BD E5 71        ..q   jsr e571             ;msdelay
14037 EE62 F6 18 00        ...   ldab 1800
14038 EE65 2C 07           ,.    bge 07       ; to ee6e
14039 EE67 CC B1 5A        ..Z   ldd #b15a    ; "P2    FAIL"
14040 EE6A 8D 97           ..    bsr dest 97  ; display to ee03
14041 EE6C 20 2E            .    bra 2e       ; to ee9c
14042 EE6E F6 00 1C        ...   ldab 001c
14043 EE71 4F              O     clra
14044 EE72 C3 B1 23        ..#   addd #b123   ; powers of 2
14045 EE75 8F              .     xgdx
14046 EE76 E6 00           ..    ldab 00,x
14047 EE78 FA 00 1A        ...   orb 001a
14048 EE7B F7 00 1A        ...   stab 001a
14049 EE7E F6 00 1A        ...   ldab 001a
14050 EE81 F7 30 00        .0.   stab 3000    ; set coin bit inactive (high)
14051 EE84 CC 00 0A        ...   ldd #000a
14052 EE87 BD E5 71        ..q   jsr e571             ;msdelay
14053 EE8A F6 18 00        ...   ldab 1800    ; if changer int'
14054 EE8D 2D 08           -.    blt 08       ; ee97
14055 EE8F CC B1 5A        ..Z   ldd #b15a    ; "P2 FAIL"
14056 EE92 BD EE 03        ...   jsr ee03             ;jump36
14057 EE95 20 05            .    bra 05       ; to ee9c
14058 EE97 7C 00 1C        |..   inc 001c
14059 EE9A 20 A2            .    bra a2       ; to ee3e
14060 ;
14061 EE9C CE 10 00        ...   ldx #1000
14062 EE9F 1C 00 08        ...   bset 00,x, #08 ; talk to coin mech
14063 EEA2 CE 10 08        ...   ldx #1008
14064 EEA5 1C 00 02        ...   bset 00,x, #02 ; set rx of sci
14065 EEA8 CE 00 1A        ...   ldx #001a
14066 EEAB 1C 00 40        ...   bset 00,x, #40
14067 EEAE F6 00 1A        ...   ldab 001a
14068 EEB1 F7 30 00        .0.   stab 3000    ; unset $1.00 line
14069 EEB4 CC 00 0A        ...   ldd #000a
14070 EEB7 BD E5 71        ..q   jsr e571             ;msdelay
14071 EEBA F6 10 08        ...   ldab 1008
14072 EEBD C4 01           ..    andb #01     ; tests tx of sci
14073 EEBF 26 06           &.    bne 06       ; to eec7
14074 EEC1 CC B1 5A        ..Z   ldd #b15a    ; "P2    FAIL"
14075 EEC4 BD EE 03        ...   jsr ee03             ;jump36
14076 EEC7 CE 00 1A        ...   ldx #001a
14077 EECA 1D 00 40        ...   bclr 00,x, #40
14078 EECD F6 00 1A        ...   ldab 001a
14079 EED0 F7 30 00        .0.   stab 3000    ; set $1.00 line
14080 EED3 CC 00 0A        ...   ldd #000a
14081 EED6 BD E5 71        ..q   jsr e571             ;msdelay
14082 ;
14083 EED9 F6 10 08        ...   ldab 1008
14084 EEDC C4 01           ..    andb #01     ; tests txt of sci
14085 EEDE 27 06           '.    beq 06       ; to eee6
14086 EEE0 CC B1 5A        ..Z   ldd #b15a    ; "P2    FAIL"
14087 EEE3 BD EE 03        ...   jsr ee03             ;jump36
14088 EEE6 CE 00 1A        ...   ldx #001a
14089 EEE9 1C 00 02        ...   bset 00,x, #02
14090 EEEC F6 00 1A        ...   ldab 001a
14091 EEEF F7 30 00        .0.   stab 3000    ; ditto for $0.25
14092 EEF2 CC 00 0A        ...   ldd #000a
14093 EEF5 BD E5 71        ..q   jsr e571             ;msdelay
14094 EEF8 F6 10 00        ...   ldab 1000
14095 EEFB C4 04           ..    andb #04
14096 EEFD 26 06           &.    bne 06
14097 EEFF CC B1 65        ..e   ldd #b165
14098 EF02 BD EE 03        ...   jsr ee03             ;jump36
14099 EF05 CE 00 1A        ...   ldx #001a
14100 EF08 1D 00 02        ...   bclr 00,x, #02
14101 EF0B F6 00 1A        ...   ldab 001a
14102 EF0E F7 30 00        .0.   stab 3000    ; ditto for $0.25
14103 EF11 CC 00 0A        ...   ldd #000a
14104 EF14 BD E5 71        ..q   jsr e571             ;msdelay
14105 ;
14106 EF17 F6 10 00        ...   ldab 1000
14107 EF1A C4 04           ..    andb #04     ; coin dispenser pin6
14108 EF1C 27 06           '.    beq 06
14109 EF1E CC B1 65        ..e   ldd #b165    ; "P2-P3 FAIL"
14110 EF21 BD EE 03        ...   jsr ee03             ;jump36
14111 EF24 CE 00 1A        ...   ldx #001a
14112 EF27 1C 00 01        ...   bset 00,x, #01
14113 EF2A F6 00 1A        ...   ldab 001a
14114 EF2D F7 30 00        .0.   stab 3000    ; send line of changer
14115 EF30 CC 00 0A        ...   ldd #000a
14116 EF33 BD E5 71        ..q   jsr e571             ;msdelay
14117 ;
14118 EF36 F6 18 00        ...   ldab 1800
14119 EF39 C4 20           .     andb #20     ; test door switch
14120 EF3B 26 06           &.    bne 06
14121 EF3D CC B1 70        ..p   ldd #b170    ; "P2-P8 FAIL"
14122 EF40 BD EE 03        ...   jsr ee03             ;jump36
14123 EF43 CE 00 1A        ...   ldx #001a
14124 EF46 1D 00 01        ...   bclr 00,x, #01
14125 EF49 F6 00 1A        ...   ldab 001a
14126 EF4C F7 30 00        .0.   stab 3000    ; unset send line of changer
14127 EF4F CC 00 0A        ...   ldd #000a
14128 EF52 BD E5 71        ..q   jsr e571             ;msdelay
14129 EF55 F6 18 00        ...   ldab 1800
14130 EF58 C4 20           .     andb #20     ; test door again?
14131 EF5A 27 06           '.    beq 06
14132 EF5C CC B1 70        ..p   ldd #b170    ; "P2-P8 FAIL"
14133 EF5F BD EE 03        ...   jsr ee03             ;jump36
14134 EF62 CE 00 1A        ...   ldx #001a
14135 EF65 1C 00 04        ...   bset 00,x, #04 ; reset changer
14136 EF68 F6 00 1A        ...   ldab 001a
14137 EF6B F7 30 00        .0.   stab 3000
14138 EF6E CC 00 0A        ...   ldd #000a
14139 EF71 BD E5 71        ..q   jsr e571             ;msdelay
14140 EF74 F6 10 0A        ...   ldab 100a
14141 EF77 C4 04           ..    andb #04     ; test no-sale switch
14142 EF79 26 06           &.    bne 06
14143 EF7B CC B1 7B        ..{   ldd #b17b    ; "P2-P9 FAIL"
14144 EF7E BD EE 03        ...   jsr ee03             ;jump36
14145 EF81 CE 00 1A        ...   ldx #001a
14146 EF84 1D 00 04        ...   bclr 00,x, #04
14147 EF87 F6 00 1A        ...   ldab 001a
14148 EF8A F7 30 00        .0.   stab 3000    ;snack motor drivers serial data is bit 7
14149 EF8D CC 00 0A        ...   ldd #000a
14150 EF90 BD E5 71        ..q   jsr e571             ;msdelay
14151 EF93 F6 10 0A        ...   ldab 100a
14152 EF96 C4 04           ..    andb #04
14153 EF98 27 06           '.    beq 06
14154 EF9A CC B1 7B        ..{   ldd #b17b    ; "P2-P9 FAIL"
14155 EF9D BD EE 03        ...   jsr ee03             ;jump36
14156 EFA0 CE 10 00        ...   ldx #1000
14157 EFA3 1C 00 08        ...   bset 00,x, #08
14158 EFA6 CE 00 1A        ...   ldx #001a
14159 EFA9 1C 00 40        ...   bset 00,x, #40
14160 EFAC F6 00 1A        ...   ldab 001a
14161 EFAF F7 30 00        .0.   stab 3000
14162 EFB2 CE 10 08        ...   ldx #1008
14163 EFB5 1C 00 02        ...   bset 00,x, #02 ; keypad data
14164 EFB8 CC 00 0A        ...   ldd #000a
14165 EFBB BD E5 71        ..q   jsr e571             ;msdelay
14166 EFBE F6 10 08        ...   ldab 1008
14167 EFC1 C4 01           ..    andb #01
14168 EFC3 26 06           &.    bne 06
14169 EFC5 CC B1 86        ...   ldd #b186    ; "P3-P4 FAIL"
14170 EFC8 BD EE 03        ...   jsr ee03             ;jump36
14171 EFCB CE 10 08        ...   ldx #1008
14172 EFCE 1D 00 02        ...   bclr 00,x, #02
14173 EFD1 CC 00 0A        ...   ldd #000a
14174 EFD4 BD E5 71        ..q   jsr e571             ;msdelay
14175 EFD7 F6 10 08        ...   ldab 1008
14176 EFDA C4 01           ..    andb #01
14177 EFDC 27 06           '.    beq 06
14178 EFDE CC B1 86        ...   ldd #b186     ; "P3-P4 FAIL"
14179 EFE1 BD EE 03        ...   jsr ee03             ;jump36
14180 EFE4 CE 10 00        ...   ldx #1000
14181 EFE7 1D 00 08        ...   bclr 00,x, #08
14182 EFEA CE 10 08        ...   ldx #1008
14183 EFED 1C 00 02        ...   bset 00,x, #02
14184 EFF0 CC 00 0A        ...   ldd #000a
14185 EFF3 BD E5 71        ..q   jsr e571             ;msdelay
14186 EFF6 F6 10 08        ...   ldab 1008
14187 EFF9 C4 01           ..    andb #01
14188 EFFB 26 06           &.    bne 06
14189 EFFD CC B1 91        ...   ldd #b191    ; "P5   FAIL"
14190 F000 BD EE 03        ...   jsr ee03             ;jump36
14191 F003 CE 10 08        ...   ldx #1008
14192 F006 1D 00 02        ...   bclr 00,x, #02
14193 F009 CC 00 0A        ...   ldd #000a
14194 F00C BD E5 71        ..q   jsr e571             ;msdelay
14195 F00F F6 10 08        ...   ldab 1008
14196 F012 C4 01           ..    andb #01
14197 F014 27 06           '.    beq 06
14198 F016 CC B1 91        ...   ldd #b191
14199 F019 BD EE 03        ...   jsr ee03             ;jump36
14200 F01C CE 00 14        ...   ldx #0014
14201 F01F 1C 00           ..    bset add,x 00,x
14202 F021 20 F6            .    bra f6
14203 F023 00              .     test
14204 F024 14              .     bset
14205 F025 F7 38 00        .8.   stab 3800
14206 F028 CC 00 0A        ...   ldd #000a
14207 F02B BD E5 71        ..q   jsr e571             ;msdelay
14208 F02E F6 20 00        . .   ldab 2000
14209 F031 C4 40           .@    andb #40
14210 F033 26 06           &.    bne 06
14211 F035 CC B1 9C        ...   ldd #b19c
14212 F038 BD EE 03        ...   jsr ee03             ;jump36
14213 F03B CE 00 14        ...   ldx #0014
14214 F03E 1D 00           ..    bclr add,x 00,x
14215 F040 20 F6            .    bra f6
14216 F042 00              .     test
14217 F043 14              .     bset
14218 F044 F7 38 00        .8.   stab 3800
14219 F047 CC 00 0A        ...   ldd #000a
14220 F04A BD E5 71        ..q   jsr e571             ;msdelay
14221 F04D F6 20 00        . .   ldab 2000
14222 F050 C4 40           .@    andb #40
14223 F052 27 06           '.    beq 06
14224 F054 CC B1 9C        ...   ldd #b19c
14225 F057 BD EE 03        ...   jsr ee03             ;jump36
14226 F05A CE 00 14        ...   ldx #0014
14227 F05D 1C 00 40        ...   bset 00,x, #40
14228 F060 F6 00 14        ...   ldab 0014
14229 F063 F7 38 00        .8.   stab 3800
14230 F066 CC 00 0A        ...   ldd #000a
14231 F069 BD E5 71        ..q   jsr e571             ;msdelay
14232 F06C F6 20 00        . .   ldab 2000
14233 F06F 2C 06           ,.    bge 06
14234 F071 CC B1 9C        ...   ldd #b19c
14235 F074 BD EE 03        ...   jsr ee03             ;jump36
14236 F077 CE 00 14        ...   ldx #0014
14237 F07A 1D 00 40        ...   bclr 00,x, #40
14238 F07D F6 00 14        ...   ldab 0014
14239 F080 F7 38 00        .8.   stab 3800
14240 F083 CC 00 0A        ...   ldd #000a
14241 F086 BD E5 71        ..q   jsr e571             ;msdelay
14242 F089 F6 20 00        . .   ldab 2000
14243 F08C 2D 06           -.    blt 06
14244 F08E CC B1 9C        ...   ldd #b19c
14245 F091 BD EE 03        ...   jsr ee03             ;jump36
14246 F094 7F 00 61        ..a   clr 0061
14247 F097 F6 00 61        ..a   ldab 0061
14248 F09A C1 08           ..    cmpb #08
14249 F09C 24 22           $"    bcc 22
14250 F09E F6 00 61        ..a   ldab 0061
14251 F0A1 4F              O     clra
14252 F0A2 C3 B1 C8        ...   addd #b1c8
14253 F0A5 8F              .     xgdx
14254 F0A6 E6 00           ..    ldab 00,x
14255 F0A8 F7 00 06        ...   stab 0006
14256 F0AB BD D3 11        ...   jsr d311             ;jump30 - test position exists
14257 F0AE 83 00 00        ...   subd #0000
14258 F0B1 27 08           '.    beq 08
14259 F0B3 CC B1 A7        ...   ldd #b1a7
14260 F0B6 BD EE 03        ...   jsr ee03             ;jump36
14261 F0B9 20 05            .    bra 05
14262 F0BB 7C 00 61        |.a   inc 0061
14263 F0BE 20 D7            .    bra d7
14264 F0C0 7F 00 61        ..a   clr 0061
14265 F0C3 F6 00 61        ..a   ldab 0061
14266 F0C6 C1 08           ..    cmpb #08
14267 F0C8 24 2B           $+    bcc 2b
14268 F0CA F6 00 61        ..a   ldab 0061
14269 F0CD 4F              O     clra
14270 F0CE C3 B1 C8        ...   addd #b1c8
14271 F0D1 8F              .     xgdx
14272 F0D2 E6 00           ..    ldab 00,x
14273 F0D4 F7 00 06        ...   stab 0006
14274 F0D7 BD D1 3D        ..=   jsr d13d             ;jump34 - motor on
14275 F0DA BD D5 70        ..p   jsr d570             ;jump35
14276 F0DD 83 00 00        ...   subd #0000
14277 F0E0 26 0B           &.    bne 0b
14278 F0E2 BD D1 05        ...   jsr d105             ;motors_off
14279 F0E5 CC B1 B2        ...   ldd #b1b2
14280 F0E8 BD EE 03        ...   jsr ee03             ;jump36
14281 F0EB 20 08            .    bra 08
14282 F0ED BD D1 05        ...   jsr d105             ;motors_off
14283 F0F0 7C 00 61        |.a   inc 0061
14284 F0F3 20 CE            .    bra ce
14285 F0F5 7F 00 61        ..a   clr 0061
14286 F0F8 F6 00 61        ..a   ldab 0061
14287 F0FB C1 05           ..    cmpb #05
14288 F0FD 24 45           $E    bcc 45
14289 F0FF F6 00 61        ..a   ldab 0061
14290 F102 4F              O     clra
14291 F103 C3 B1 C8        ...   addd #b1c8
14292 F106 8F              .     xgdx
14293 F107 E6 00           ..    ldab 00,x
14294 F109 F7 00 06        ...   stab 0006
14295 F10C BD D1 3D        ..=   jsr d13d             ;jump34 - motor on
14296 F10F CC 00 0A        ...   ldd #000a
14297 F112 BD E5 71        ..q   jsr e571             ;msdelay
14298 F115 F6 18 00        ...   ldab 1800
14299 F118 C4 40           .@    andb #40
14300 F11A 26 0B           &.    bne 0b
14301 F11C BD D1 05        ...   jsr d105             ;motors_off
14302 F11F CC B1 B2        ...   ldd #b1b2
14303 F122 BD EE 03        ...   jsr ee03             ;jump36
14304 F125 20 1D            .    bra 1d
14305 F127 BD D1 05        ...   jsr d105             ;motors_off
14306 F12A CC 00 0A        ...   ldd #000a
14307 F12D BD E5 71        ..q   jsr e571             ;msdelay
14308 F130 F6 18 00        ...   ldab 1800
14309 F133 C4 40           .@    andb #40
14310 F135 27 08           '.    beq 08
14311 F137 CC B1 B2        ...   ldd #b1b2
14312 F13A BD EE 03        ...   jsr ee03             ;jump36
14313 F13D 20 05            .    bra 05
14314 F13F 7C 00 61        |.a   inc 0061
14315 F142 20 B4            .    bra b4
14316 F144 FC 10 16        ...   ldd 1016
14317 F147 83 5A 5A        .ZZ   subd #5a5a
14318 F14A 26 0C           &.    bne 0c
14319 F14C CC B1 BD        ...   ldd #b1bd    ; " PASSED "
14320 F14F BD C0 BA        ...   jsr c0ba             ;display:
14321 F152 CC 05 DC        ...   ldd #05dc
14322 F155 BD E5 71        ..q   jsr e571             ;msdelay
14323 F158 7E EE 1C        ~..   jmp ee1c             ;goto81
14324
14325 ;send a byte to the printer?
14326 ;it calls c7e7, which does things with the serial port
14327 jump53:
14328 F15B 37              7     pshb
14329 F15C 36              6     psha
14330 F15D F6 00 19        ...   ldab 0019
14331 F160 C4 40           .@    andb #40
14332 F162 26 5B           &[    bne 5b
14333 F164 C6 FF           ..    ldab #ff
14334 F166 F7 00 39        ..9   stab 0039
14335 F169 F6 20 00        . .   ldab 2000
14336 F16C 2C 11           ,.    bge 11
14337 F16E F6 20 00        . .   ldab 2000
14338 F171 C4 40           .@    andb #40
14339 F173 27 0A           '.    beq 0a
14340 F175 F6 00 39        ..9   ldab 0039
14341 F178 27 05           '.    beq 05
14342 F17A BD E6 1B        ...   jsr e61b             ;jump4
14343 F17D 20 EA            .    bra ea
14344 F17F F6 00 39        ..9   ldab 0039
14345 F182 26 08           &.    bne 08
14346 F184 CE 00 19        ...   ldx #0019
14347 F187 1C 00 40        ...   bset 00,x, #40
14348 F18A 20 33            3    bra 33
14349 F18C F6 20 00        . .   ldab 2000
14350 F18F C4 40           .@    andb #40
14351 F191 27 2C           ',    beq 2c
14352 F193 F6 00 1D        ...   ldab 001d
14353 F196 C4 01           ..    andb #01
14354 F198 27 1E           '.    beq 1e
14355 F19A 30              0     tsx
14356 F19B E6 01           ..    ldab 01,x
14357 F19D C1 30           .0    cmpb #30
14358 F19F 26 08           &.    bne 08
14359 F1A1 CC 00 20        ..    ldd #0020
14360 F1A4 BD C7 E7        ...   jsr c7e7             ;jump37
14361 F1A7 20 0D            .    bra 0d
14362 F1A9 30              0     tsx
14363 F1AA E6 01           ..    ldab 01,x
14364 F1AC 4F              O     clra
14365 F1AD BD C7 E7        ...   jsr c7e7             ;jump37
14366 F1B0 CE 00 1D        ...   ldx #001d
14367 F1B3 1D 00 01        ...   bclr 00,x, #01
14368 F1B6 20 07            .    bra 07
14369 F1B8 30              0     tsx
14370 F1B9 E6 01           ..    ldab 01,x
14371 F1BB 4F              O     clra
14372 F1BC BD C7 E7        ...   jsr c7e7             ;jump37
14373 F1BF 38              8     pulx
14374 F1C0 39              9     rts
14375
14376 jump59:
14377 F1C1 37              7     pshb
14378 F1C2 36              6     psha
14379 F1C3 F6 20 00        . .   ldab 2000
14380 F1C6 C4 40           .@    andb #40
14381 F1C8 27 1C           '.    beq 1c
14382 F1CA 7F 00 18        ...   clr 0018
14383 F1CD F6 00 18        ...   ldab 0018
14384 F1D0 30              0     tsx
14385 F1D1 E1 05           ..    cmpb 05,x
14386 F1D3 24 11           $.    bcc 11
14387 F1D5 30              0     tsx
14388 F1D6 EE 00           ..    ldx 00,x
14389 F1D8 E6 00           ..    ldab 00,x
14390 F1DA 4F              O     clra
14391 F1DB BD F1 5B        ..[   jsr f15b             ;jump53
14392 F1DE 38              8     pulx
14393 F1DF 08              .     inx
14394 F1E0 3C              <     pshx
14395 F1E1 7C 00 18        |..   inc 0018
14396 F1E4 20 E7            .    bra e7
14397 F1E6 38              8     pulx
14398 F1E7 39              9     rts
14399
14400 ;send a string to the printer.  D is a pointer to a string
14401 jump57:
14402 F1E8 37              7     pshb
14403 F1E9 36              6     psha
14404 F1EA F6 20 00        . .   ldab 2000
14405 F1ED C4 40           .@    andb #40
14406 F1EF 27 1B           '.    beq 1b
14407 F1F1 CC 00 20        ..    ldd #0020
14408 F1F4 BD F1 5B        ..[   jsr f15b             ;jump53
14409 F1F7 30              0     tsx
14410 F1F8 EE 00           ..    ldx 00,x
14411 F1FA E6 00           ..    ldab 00,x
14412 F1FC 27 0E           '.    beq 0e
14413 F1FE 30              0     tsx
14414 F1FF EE 00           ..    ldx 00,x
14415 F201 E6 00           ..    ldab 00,x
14416 F203 4F              O     clra
14417 F204 BD F1 5B        ..[   jsr f15b             ;jump53
14418 F207 38              8     pulx
14419 F208 08              .     inx
14420 F209 3C              <     pshx
14421 F20A 20 EB            .    bra eb
14422 F20C 38              8     pulx
14423 F20D 39              9     rts
14424
14425 jump62:
14426 F20E 37              7     pshb
14427 F20F 36              6     psha
14428 F210 F6 20 00        . .   ldab 2000
14429 F213 C4 40           .@    andb #40
14430 F215 27 34           '4    beq 34
14431 F217 CE 00 1D        ...   ldx #001d
14432 F21A 1C 00 01        ...   bset 00,x, #01
14433 F21D 30              0     tsx
14434 F21E E6 01           ..    ldab 01,x
14435 F220 4F              O     clra
14436 F221 BD E7 95        ...   jsr e795             ;jump54 - number to string
14437 F224 F6 00 5D        ..]   ldab 005d
14438 F227 4F              O     clra
14439 F228 BD F1 5B        ..[   jsr f15b             ;jump53
14440 F22B F6 00 5E        ..^   ldab 005e
14441 F22E 4F              O     clra
14442 F22F BD F1 5B        ..[   jsr f15b             ;jump53
14443 F232 CE 00 1D        ...   ldx #001d
14444 F235 1D 00 01        ...   bclr 00,x, #01
14445 F238 F6 00 5F        .._   ldab 005f
14446 F23B 4F              O     clra
14447 F23C BD F1 5B        ..[   jsr f15b             ;jump53
14448 F23F CC 00 20        ..    ldd #0020
14449 F242 BD F1 5B        ..[   jsr f15b             ;jump53
14450 F245 CC 00 20        ..    ldd #0020
14451 F248 BD F1 5B        ..[   jsr f15b             ;jump53
14452 F24B 38              8     pulx
14453 F24C 39              9     rts
14454
14455 jump58:
14456 F24D 37              7     pshb
14457 F24E 36              6     psha
14458 F24F F6 20 00        . .   ldab 2000
14459 F252 C4 40           .@    andb #40
14460 F254 27 41           'A    beq 41
14461 F256 CE 00 1D        ...   ldx #001d
14462 F259 1C 00 01        ...   bset 00,x, #01
14463 F25C 30              0     tsx
14464 F25D EC 00           ..    ldd 00,x
14465 F25F BD E7 45        ..E   jsr e745             ;jump55 - number to string
14466 F262 F6 00 57        ..W   ldab 0057
14467 F265 4F              O     clra
14468 F266 BD F1 5B        ..[   jsr f15b             ;jump53
14469 F269 F6 00 5A        ..Z   ldab 005a
14470 F26C 4F              O     clra
14471 F26D BD F1 5B        ..[   jsr f15b             ;jump53
14472 F270 F6 00 5D        ..]   ldab 005d
14473 F273 4F              O     clra
14474 F274 BD F1 5B        ..[   jsr f15b             ;jump53
14475 F277 F6 00 5E        ..^   ldab 005e
14476 F27A 4F              O     clra
14477 F27B BD F1 5B        ..[   jsr f15b             ;jump53
14478 F27E CE 00 1D        ...   ldx #001d
14479 F281 1D 00 01        ...   bclr 00,x, #01
14480 F284 F6 00 5F        .._   ldab 005f
14481 F287 4F              O     clra
14482 F288 BD F1 5B        ..[   jsr f15b             ;jump53
14483 F28B CC 00 20        ..    ldd #0020
14484 F28E BD F1 5B        ..[   jsr f15b             ;jump53
14485 F291 CC 00 20        ..    ldd #0020
14486 F294 BD F1 5B        ..[   jsr f15b             ;jump53
14487 F297 38              8     pulx
14488 F298 39              9     rts
14489
14490 jump61
14491 jump61::
14492 F299 37              7     pshb
14493 F29A 36              6     psha
14494 F29B F6 20 00        . .   ldab 2000
14495 F29E C4 40           .@    andb #40
14496 F2A0 27 7B           '{    beq 7b
14497 F2A2 F6 00 17        ...   ldab 0017
14498 F2A5 C4 08           ..    andb #08
14499 F2A7 26 06           &.    bne 06
14500 F2A9 CC 00 24        ..$   ldd #0024
14501 F2AC BD F1 5B        ..[   jsr f15b             ;jump53
14502 F2AF CE 00 1D        ...   ldx #001d
14503 F2B2 1C 00 01        ...   bset 00,x, #01
14504 F2B5 30              0     tsx
14505 F2B6 EC 00           ..    ldd 00,x
14506 F2B8 BD E7 45        ..E   jsr e745             ;jump55 - number to string
14507 F2BB F6 00 57        ..W   ldab 0057
14508 F2BE 4F              O     clra
14509 F2BF BD F1 5B        ..[   jsr f15b             ;jump53
14510 F2C2 F6 00 5A        ..Z   ldab 005a
14511 F2C5 4F              O     clra
14512 F2C6 BD F1 5B        ..[   jsr f15b             ;jump53
14513 F2C9 F6 00 13        ...   ldab 0013
14514 F2CC C1 08           ..    cmpb #08
14515 F2CE 26 0C           &.    bne 0c
14516 F2D0 CC 00 2E        ...   ldd #002e
14517 F2D3 BD F1 5B        ..[   jsr f15b             ;jump53
14518 F2D6 CE 00 1D        ...   ldx #001d
14519 F2D9 1D 00 01        ...   bclr 00,x, #01
14520 F2DC F6 00 5D        ..]   ldab 005d
14521 F2DF 4F              O     clra
14522 F2E0 BD F1 5B        ..[   jsr f15b             ;jump53
14523 F2E3 F6 00 13        ...   ldab 0013
14524 F2E6 C1 04           ..    cmpb #04
14525 F2E8 26 0C           &.    bne 0c
14526 F2EA CC 00 2E        ...   ldd #002e
14527 F2ED BD F1 5B        ..[   jsr f15b             ;jump53
14528 F2F0 CE 00 1D        ...   ldx #001d
14529 F2F3 1D 00 01        ...   bclr 00,x, #01
14530 F2F6 F6 00 5E        ..^   ldab 005e
14531 F2F9 4F              O     clra
14532 F2FA BD F1 5B        ..[   jsr f15b             ;jump53
14533 F2FD F6 00 13        ...   ldab 0013
14534 F300 C1 02           ..    cmpb #02
14535 F302 26 06           &.    bne 06
14536 F304 CC 00 2E        ...   ldd #002e
14537 F307 BD F1 5B        ..[   jsr f15b             ;jump53
14538 F30A CE 00 1D        ...   ldx #001d
14539 F30D 1D 00 01        ...   bclr 00,x, #01
14540 F310 F6 00 5F        .._   ldab 005f
14541 F313 4F              O     clra
14542 F314 BD F1 5B        ..[   jsr f15b             ;jump53
14543 F317 CC 00 0A        ...   ldd #000a
14544 F31A BD F1 5B        ..[   jsr f15b             ;jump53
14545 F31D 38              8     pulx
14546 F31E 39              9     rts
14547
14548 jump60:
14549 F31F 38              8     pulx
14550 F320 37              7     pshb
14551 F321 36              6     psha
14552 F322 3C              <     pshx
14553 F323 F6 20 00        . .   ldab 2000
14554 F326 C4 40           .@    andb #40
14555 F328 26 03           &.    bne 03
14556 F32A 7E F3 BC        ~..   jmp f3bc             ;goto82
14557 F32D F6 00 17        ...   ldab 0017
14558 F330 C4 08           ..    andb #08
14559 F332 26 06           &.    bne 06
14560 F334 CC 00 24        ..$   ldd #0024
14561 F337 BD F1 5B        ..[   jsr f15b             ;jump53
14562 F33A CE 00 1D        ...   ldx #001d
14563 F33D 1C 00 01        ...   bset 00,x, #01
14564 F340 30              0     tsx
14565 F341 EC 04           ..    ldd 04,x
14566 F343 37              7     pshb
14567 F344 36              6     psha
14568 F345 EC 02           ..    ldd 02,x
14569 F347 BD E6 21        ..!   jsr e621             ;jump56
14570 F34A 38              8     pulx
14571 F34B C6 07           ..    ldab #07
14572 F34D F7 00 18        ...   stab 0018
14573 F350 F6 00 18        ...   ldab 0018
14574 F353 C1 FF           ..    cmpb #ff
14575 F355 24 5F           $_    bcc 5f
14576 F357 F6 00 18        ...   ldab 0018
14577 F35A 4F              O     clra
14578 F35B C3 0B 90        ...   addd #0b90
14579 F35E 8F              .     xgdx
14580 F35F E6 00           ..    ldab 00,x
14581 F361 4F              O     clra
14582 F362 BD F1 5B        ..[   jsr f15b             ;jump53
14583 F365 F6 00 18        ...   ldab 0018
14584 F368 C1 03           ..    cmpb #03
14585 F36A 26 15           &.    bne 15
14586 F36C F6 00 13        ...   ldab 0013
14587 F36F C1 08           ..    cmpb #08
14588 F371 26 0C           &.    bne 0c
14589 F373 CC 00 2E        ...   ldd #002e
14590 F376 BD F1 5B        ..[   jsr f15b             ;jump53
14591 F379 CE 00 1D        ...   ldx #001d
14592 F37C 1D 00 01        ...   bclr 00,x, #01
14593 F37F 20 30            0    bra 30
14594 F381 C1 02           ..    cmpb #02
14595 F383 26 15           &.    bne 15
14596 F385 F6 00 13        ...   ldab 0013
14597 F388 C1 04           ..    cmpb #04
14598 F38A 26 0C           &.    bne 0c
14599 F38C CC 00 2E        ...   ldd #002e
14600 F38F BD F1 5B        ..[   jsr f15b             ;jump53
14601 F392 CE 00 1D        ...   ldx #001d
14602 F395 1D 00 01        ...   bclr 00,x, #01
14603 F398 20 17            .    bra 17
14604 F39A C1 01           ..    cmpb #01
14605 F39C 26 13           &.    bne 13
14606 F39E F6 00 13        ...   ldab 0013
14607 F3A1 C1 02           ..    cmpb #02
14608 F3A3 26 06           &.    bne 06
14609 F3A5 CC 00 2E        ...   ldd #002e
14610 F3A8 BD F1 5B        ..[   jsr f15b             ;jump53
14611 F3AB CE 00 1D        ...   ldx #001d
14612 F3AE 1D 00 01        ...   bclr 00,x, #01
14613 F3B1 7A 00 18        z..   dec 0018
14614 F3B4 20 9A            .    bra 9a
14615 F3B6 CC 00 0A        ...   ldd #000a
14616 F3B9 BD F1 5B        ..[   jsr f15b             ;jump53
14617 goto82:
14618 F3BC 38              8     pulx
14619 F3BD 31              1     ins
14620 F3BE 31              1     ins
14621 F3BF 6E 00           n.    jmp 00,x
14622
14623 jump63:
14624 F3C1 37              7     pshb
14625 F3C2 36              6     psha
14626 F3C3 F6 20 00        . .   ldab 2000
14627 F3C6 C4 40           .@    andb #40
14628 F3C8 27 49           'I    beq 49
14629 F3CA CC B4 71        ..q   ldd #b471    "    CODE "
14630 F3CD BD F1 E8        ...   jsr f1e8             ;jump57
14631 F3D0 30              0     tsx
14632 F3D1 E6 01           ..    ldab 01,x
14633 F3D3 4F              O     clra
14634 F3D4 CE 00 0A        ...   ldx #000a
14635 F3D7 02              .     idiv
14636 F3D8 8F              .     xgdx
14637 F3D9 CB 30           .0    addb #30
14638 F3DB F7 00 5E        ..^   stab 005e
14639 F3DE 30              0     tsx
14640 F3DF E6 01           ..    ldab 01,x
14641 F3E1 4F              O     clra
14642 F3E2 CE 00 0A        ...   ldx #000a
14643 F3E5 02              .     idiv
14644 F3E6 CB 30           .0    addb #30
14645 F3E8 F7 00 5F        .._   stab 005f    ;5e and 5f now param in ascii
14646 F3EB F6 00 5E        ..^   ldab 005e
14647 F3EE 4F              O     clra
14648 F3EF BD F1 5B        ..[   jsr f15b             ;jump53
14649 F3F2 F6 00 5F        .._   ldab 005f
14650 F3F5 4F              O     clra
14651 F3F6 BD F1 5B        ..[   jsr f15b             ;jump53
14652 F3F9 CC B4 7B        ..{   ldd #b47b    "VENDS - "
14653 F3FC BD F1 E8        ...   jsr f1e8             ;jump57
14654 F3FF 30              0     tsx
14655 F400 E6 01           ..    ldab 01,x
14656 F402 4F              O     clra
14657 F403 05              .     asld
14658 F404 C3 0D 1F        ...   addd #0d1f
14659 F407 8F              .     xgdx
14660 F408 EC 00           ..    ldd 00,x
14661 F40A BD F2 4D        ..M   jsr f24d             ;jump58
14662 F40D CC 00 0A        ...   ldd #000a
14663 F410 BD F1 5B        ..[   jsr f15b             ;jump53
14664 F413 38              8     pulx
14665 F414 39              9     rts
14666
14667 jump112:
14668 F415 F6 0B C0        ...   ldab 0bc0
14669 F418 C4 02           ..    andb #02
14670 F41A 27 15           '.    beq 15
14671 F41C CE 00 21        ..!   ldx #0021
14672 F41F 1C 00           ..    bset 00,x, #80
14673 F421 F6 00 1D        ..    ldab 001d
14674 F424 C4 02           ..    andb #02
14675 F427 27 02           '.    beq 02
14676 F429 20 F7            .    bra f7
14677 F42B CE 00 21        ..!   ldx #0021
14678 F42E 1D 00           ..    bclr 00,x, #80
14679 F430 C6 10           ..    ldab #10
14680 F433 F7 10 2C        ..,   stab 102c ; set 9N1
14681 F436 C6 2E           ..    ldab #2e
14682 F438 F7 10 2D        ..-   stab 102d    ; enable SCI transmission
14683 F43B C6 05           ..    ldab #05
14684 F43D F7 10 2B        ..+   stab 102b    ; 2400 baud
14685 F440 CC 03 E8        ...   ldd #03e8
14686 F443 BD E5 71        ..q   jsr e571             ;msdelay
14687 F446 CE 10 00        ...   ldx #1000
14688 F449 1D 00 08        ...   bclr 00,x, #08  ; talk to ze printer
14689 F44C CE 00 19        ...   ldx #0019
14690 F44F 1D 00 40        ...   bclr 00,x, #40
14691 F452 CE 00 1D        ...   ldx #001d
14692 F455 1D 00 01        ...   bclr 00,x, #01
14693 F458 CC 00 18        ...   ldd #0018
14694 F45B BD F1 5B        ..[   jsr f15b             ;jump53
14695 F45E CC B2 1B        ...   ldd #b21b    "         ROWE  INTERNATIONAL"
14696 F461 BD F1 E8        ...   jsr f1e8             ;jump57
14697 F464 CC 00 0A        ...   ldd #000a
14698 F467 BD F1 5B        ..[   jsr f15b             ;jump53
14699 F46A CC B2 38        ..8   ldd #b238    "         -------------------"
14700 F46D BD F1 E8        ...   jsr f1e8             ;jump57
14701 F470 CC 00 0A        ...   ldd #000a
14702 F473 BD F1 5B        ..[   jsr f15b             ;jump53
14703 F476 CC B2 56        ..V   ldd #b256
14704 F479 BD F1 E8        ...   jsr f1e8             ;jump57
14705 F47C CC 00 0A        ...   ldd #000a
14706 F47F BD F1 5B        ..[   jsr f15b             ;jump53
14707 F482 CC 00 0A        ...   ldd #000a
14708 F485 BD F1 5B        ..[   jsr f15b             ;jump53
14709 F488 CC B2 75        ..u   ldd #b275
14710 F48B BD F1 E8        ...   jsr f1e8             ;jump57
14711 F48E CC 00 0A        ...   ldd #000a
14712 F491 BD F1 5B        ..[   jsr f15b             ;jump53
14713 F494 CC B2 38        ..8   ldd #b238
14714 F497 BD F1 E8        ...   jsr f1e8             ;jump57
14715 F49A CC 00 0A        ...   ldd #000a
14716 F49D BD F1 5B        ..[   jsr f15b             ;jump53
14717 F4A0 CC 00 0A        ...   ldd #000a
14718 F4A3 BD F1 5B        ..[   jsr f15b             ;jump53
14719 F4A6 CC B2 90        ...   ldd #b290
14720 F4A9 BD F1 E8        ...   jsr f1e8             ;jump57
14721 F4AC CE 00 0A        ...   ldx #000a
14722 F4AF 3C              <     pshx
14723 F4B0 CC 0C BC        ...   ldd #0cbc
14724 F4B3 BD F1 C1        ...   jsr f1c1             ;jump59
14725 F4B6 38              8     pulx
14726 F4B7 CC 00 0A        ...   ldd #000a
14727 F4BA BD F1 5B        ..[   jsr f15b             ;jump53
14728 F4BD CC B2 A2        ...   ldd #b2a2
14729 F4C0 BD F1 E8        ...   jsr f1e8             ;jump57
14730 F4C3 CE 00 0A        ...   ldx #000a
14731 F4C6 3C              <     pshx
14732 F4C7 CC 0C CC        ...   ldd #0ccc
14733 F4CA BD F1 C1        ...   jsr f1c1             ;jump59
14734 F4CD 38              8     pulx
14735 F4CE CC 00 0A        ...   ldd #000a
14736 F4D1 BD F1 5B        ..[   jsr f15b             ;jump53
14737 F4D4 CC B2 B4        ...   ldd #b2b4
14738 F4D7 BD F1 E8        ...   jsr f1e8             ;jump57
14739 F4DA FC 0C E7        ...   ldd 0ce7
14740 F4DD BD F2 4D        ..M   jsr f24d             ;jump58
14741 F4E0 CC 00 0A        ...   ldd #000a
14742 F4E3 BD F1 5B        ..[   jsr f15b             ;jump53
14743 F4E6 CC 00 0A        ...   ldd #000a
14744 F4E9 BD F1 5B        ..[   jsr f15b             ;jump53
14745 F4EC CC B2 C6        ...   ldd #b2c6
14746 F4EF BD F1 E8        ...   jsr f1e8             ;jump57
14747 F4F2 FE 0D E9        ...   ldx 0de9
14748 F4F5 3C              <     pshx
14749 F4F6 FC 0D E7        ...   ldd 0de7
14750 F4F9 BD F3 1F        ...   jsr f31f             ;jump60
14751 F4FC 38              8     pulx
14752 F4FD CC B2 D8        ...   ldd #b2d8
14753 F500 BD F1 E8        ...   jsr f1e8             ;jump57
14754 F503 FE 0D ED        ...   ldx 0ded
14755 F506 3C              <     pshx
14756 F507 FC 0D EB        ...   ldd 0deb
14757 F50A BD F3 1F        ...   jsr f31f             ;jump60
14758 F50D 38              8     pulx
14759 F50E CC B2 EA        ...   ldd #b2ea
14760 F511 BD F1 E8        ...   jsr f1e8             ;jump57
14761 F514 FE 0D F1        ...   ldx 0df1
14762 F517 3C              <     pshx
14763 F518 FC 0D EF        ...   ldd 0def
14764 F51B BD F3 1F        ...   jsr f31f             ;jump60
14765 F51E 38              8     pulx
14766 F51F CC B2 FC        ...   ldd #b2fc
14767 F522 BD F1 E8        ...   jsr f1e8             ;jump57
14768 F525 FE 0D F9        ...   ldx 0df9
14769 F528 3C              <     pshx
14770 F529 FC 0D F7        ...   ldd 0df7
14771 F52C BD F3 1F        ...   jsr f31f             ;jump60
14772 F52F 38              8     pulx
14773 F530 CC B3 0E        ...   ldd #b30e
14774 F533 BD F1 E8        ...   jsr f1e8             ;jump57
14775 F536 FE 0D FD        ...   ldx 0dfd
14776 F539 3C              <     pshx
14777 F53A FC 0D FB        ...   ldd 0dfb
14778 F53D BD F3 1F        ...   jsr f31f             ;jump60
14779 F540 38              8     pulx
14780 F541 CC 00 0A        ...   ldd #000a
14781 F544 BD F1 5B        ..[   jsr f15b             ;jump53
14782 F547 CC B3 20        ..    ldd #b320
14783 F54A BD F1 E8        ...   jsr f1e8             ;jump57
14784 F54D CC 00 0A        ...   ldd #000a
14785 F550 BD F1 5B        ..[   jsr f15b             ;jump53
14786 F553 CC B3 31        ..1   ldd #b331
14787 F556 BD F1 E8        ...   jsr f1e8             ;jump57
14788 F559 FE 0D F5        ...   ldx 0df5
14789 F55C 3C              <     pshx
14790 F55D FC 0D F3        ...   ldd 0df3
14791 F560 BD F3 1F        ...   jsr f31f             ;jump60
14792 F563 38              8     pulx
14793 F564 CC B3 4A        ..J   ldd #b34a
14794 F567 BD F1 E8        ...   jsr f1e8             ;jump57
14795 F56A FC 0C DD        ...   ldd 0cdd
14796 F56D BD F2 4D        ..M   jsr f24d             ;jump58
14797 F570 FE 0C F5        ...   ldx 0cf5
14798 F573 3C              <     pshx
14799 F574 FC 0C F3        ...   ldd 0cf3
14800 F577 BD F3 1F        ...   jsr f31f             ;jump60
14801 F57A 38              8     pulx
14802 F57B CC B3 5C        ..\   ldd #b35c
14803 F57E BD F1 E8        ...   jsr f1e8             ;jump57
14804 F581 FC 0C DF        ...   ldd 0cdf
14805 F584 BD F2 4D        ..M   jsr f24d             ;jump58
14806 F587 FE 0C F9        ...   ldx 0cf9
14807 F58A 3C              <     pshx
14808 F58B FC 0C F7        ...   ldd 0cf7
14809 F58E BD F3 1F        ...   jsr f31f             ;jump60
14810 F591 38              8     pulx
14811 F592 CC B3 6E        ..n   ldd #b36e
14812 F595 BD F1 E8        ...   jsr f1e8             ;jump57
14813 F598 FC 0C E1        ...   ldd 0ce1
14814 F59B BD F2 4D        ..M   jsr f24d             ;jump58
14815 F59E FE 0C FD        ...   ldx 0cfd
14816 F5A1 3C              <     pshx
14817 F5A2 FC 0C FB        ...   ldd 0cfb
14818 F5A5 BD F3 1F        ...   jsr f31f             ;jump60
14819 F5A8 38              8     pulx
14820 F5A9 CC B3 80        ...   ldd #b380
14821 F5AC BD F1 E8        ...   jsr f1e8             ;jump57
14822 F5AF FC 0C E3        ...   ldd 0ce3
14823 F5B2 BD F2 4D        ..M   jsr f24d             ;jump58
14824 F5B5 FE 0D 01        ...   ldx 0d01
14825 F5B8 3C              <     pshx
14826 F5B9 FC 0C FF        ...   ldd 0cff
14827 F5BC BD F3 1F        ...   jsr f31f             ;jump60
14828 F5BF 38              8     pulx
14829 F5C0 CC B3 92        ...   ldd #b392
14830 F5C3 BD F1 E8        ...   jsr f1e8             ;jump57
14831 F5C6 FC 0C E5        ...   ldd 0ce5
14832 F5C9 BD F2 4D        ..M   jsr f24d             ;jump58
14833 F5CC FE 0D 05        ...   ldx 0d05
14834 F5CF 3C              <     pshx
14835 F5D0 FC 0D 03        ...   ldd 0d03
14836 F5D3 BD F3 1F        ...   jsr f31f             ;jump60
14837 F5D6 38              8     pulx
14838 F5D7 CC 00 0A        ...   ldd #000a
14839 F5DA BD F1 5B        ..[   jsr f15b             ;jump53
14840 F5DD CC B3 A4        ...   ldd #b3a4
14841 F5E0 BD F1 E8        ...   jsr f1e8             ;jump57
14842 F5E3 CC 00 0A        ...   ldd #000a
14843 F5E6 BD F1 5B        ..[   jsr f15b             ;jump53
14844 F5E9 CC B3 B3        ...   ldd #b3b3
14845 F5EC BD F1 E8        ...   jsr f1e8             ;jump57
14846 F5EF FC 0C F1        ...   ldd 0cf1
14847 F5F2 BD F2 99        ...   jsr f299             ;jump61
14848 F5F5 CC B3 CA        ...   ldd #b3ca
14849 F5F8 BD F1 E8        ...   jsr f1e8             ;jump57
14850 F5FB F6 0C DC        ...   ldab 0cdc
14851 F5FE 4F              O     clra
14852 F5FF BD F2 0E        ...   jsr f20e             ;jump62
14853 F602 FC 0C E9        ...   ldd 0ce9
14854 F605 BD F2 99        ...   jsr f299             ;jump61
14855 F608 CC B3 DC        ...   ldd #b3dc
14856 F60B BD F1 E8        ...   jsr f1e8             ;jump57
14857 F60E F6 0C DB        ...   ldab 0cdb
14858 F611 4F              O     clra
14859 F612 BD F2 0E        ...   jsr f20e             ;jump62
14860 F615 FC 0C EB        ...   ldd 0ceb
14861 F618 BD F2 99        ...   jsr f299             ;jump61
14862 F61B CC B3 EE        ...   ldd #b3ee
14863 F61E BD F1 E8        ...   jsr f1e8             ;jump57
14864 F621 F6 0C DA        ...   ldab 0cda
14865 F624 4F              O     clra
14866 F625 BD F2 0E        ...   jsr f20e             ;jump62
14867 F628 FC 0C ED        ...   ldd 0ced
14868 F62B BD F2 99        ...   jsr f299             ;jump61
14869 F62E CC B4 00        ...   ldd #b400
14870 F631 BD F1 E8        ...   jsr f1e8             ;jump57
14871 F634 F6 0C D9        ...   ldab 0cd9
14872 F637 4F              O     clra
14873 F638 BD F2 0E        ...   jsr f20e             ;jump62
14874 F63B FC 0C EF        ...   ldd 0cef
14875 F63E BD F2 99        ...   jsr f299             ;jump61
14876 F641 CC 00 0A        ...   ldd #000a
14877 F644 BD F1 5B        ..[   jsr f15b             ;jump53
14878 F647 CC B4 12        ...   ldd #b412
14879 F64A BD F1 E8        ...   jsr f1e8             ;jump57
14880 F64D FC 0D 07        ...   ldd 0d07
14881 F650 BD F2 4D        ..M   jsr f24d             ;jump58
14882 F653 FE 0D 11        ...   ldx 0d11
14883 F656 3C              <     pshx
14884 F657 FC 0D 0F        ...   ldd 0d0f
14885 F65A BD F3 1F        ...   jsr f31f             ;jump60
14886 F65D 38              8     pulx
14887 F65E CC B4 24        ..$   ldd #b424
14888 F661 BD F1 E8        ...   jsr f1e8             ;jump57
14889 F664 FC 0D 09        ...   ldd 0d09
14890 F667 BD F2 4D        ..M   jsr f24d             ;jump58
14891 F66A FE 0D 15        ...   ldx 0d15
14892 F66D 3C              <     pshx
14893 F66E FC 0D 13        ...   ldd 0d13
14894 F671 BD F3 1F        ...   jsr f31f             ;jump60
14895 F674 38              8     pulx
14896 F675 CC B4 36        ..6   ldd #b436
14897 F678 BD F1 E8        ...   jsr f1e8             ;jump57
14898 F67B FC 0D 0B        ...   ldd 0d0b
14899 F67E BD F2 4D        ..M   jsr f24d             ;jump58
14900 F681 FE 0D 19        ...   ldx 0d19
14901 F684 3C              <     pshx
14902 F685 FC 0D 17        ...   ldd 0d17
14903 F688 BD F3 1F        ...   jsr f31f             ;jump60
14904 F68B 38              8     pulx
14905 F68C CC B4 48        ..H   ldd #b448
14906 F68F BD F1 E8        ...   jsr f1e8             ;jump57
14907 F692 FC 0D 0D        ...   ldd 0d0d
14908 F695 BD F2 4D        ..M   jsr f24d             ;jump58
14909 F698 FE 0D 1D        ...   ldx 0d1d
14910 F69B 3C              <     pshx
14911 F69C FC 0D 1B        ...   ldd 0d1b
14912 F69F BD F3 1F        ...   jsr f31f             ;jump60
14913 F6A2 38              8     pulx
14914 F6A3 CC 00 0A        ...   ldd #000a
14915 F6A6 BD F1 5B        ..[   jsr f15b             ;jump53
14916 F6A9 CC B4 5A        ..Z   ldd #b45a
14917 F6AC BD F1 E8        ...   jsr f1e8             ;jump57
14918 F6AF CC 00 0A        ...   ldd #000a
14919 F6B2 BD F1 5B        ..[   jsr f15b             ;jump53
14920 F6B5 C6 01           ..    ldab #01
14921 F6B7 F7 00 54        ..T   stab 0054
14922 F6BA F6 00 54        ..T   ldab 0054
14923 F6BD C1 63           .c    cmpb #63
14924 F6BF 22 1B           ".    bhi 1b
14925 F6C1 F6 00 54        ..T   ldab 0054
14926 F6C4 4F              O     clra
14927 F6C5 05              .     asld
14928 F6C6 C3 08 C8        ...   addd #08c8
14929 F6C9 8F              .     xgdx
14930 F6CA EC 00           ..    ldd 00,x
14931 F6CC C4 80           ..    andb #80
14932 F6CE 27 07           '.    beq 07
14933 F6D0 F6 00 54        ..T   ldab 0054
14934 F6D3 4F              O     clra
14935 F6D4 BD F3 C1        ...   jsr f3c1             ;jump63
14936 F6D7 7C 00 54        |.T   inc 0054
14937 F6DA 20 DE            .    bra de
14938 F6DC CC 00 0A        ...   ldd #000a
14939 F6DF BD F1 5B        ..[   jsr f15b             ;jump53
14940 F6E2 F6 00 19        ...   ldab 0019
14941 F6E5 C4 40           .@    andb #40
14942 F6E7 26 07           &.    bne 07
14943 F6E9 FE 0C E7        ...   ldx 0ce7
14944 F6EC 08              .     inx
14945 F6ED FF 0C E7        ...   stx 0ce7
14946 F6F0 CE 00 1D        ...   ldx #001d
14947 F6F3 1D 00 01        ...   bclr 00,x, #01
14948 F6F6 CC 03 E8        ...   ldd #03e8
14949 F6F9 BD E5 71        ..q   jsr e571             ;msdelay
14950 F6FC C6 03           ..    ldab #03
14951 F6FE F7 10 2B        ..+   stab 102b         ; back to 9600 baud
14952 F701 CE 10 00        ...   ldx #1000
14953 F704 1C 00 08        ...   bset 00,x, #08    ; set back to coin mech
14954 F707 F6 0B C0        ...   ldab 0bc0
14955 F70A C4 02           ..    andb #02
14956 F70C 27 06           '.    beq 06
14957 F70E CC 00 80        ...   ldd #0080
14958 F711 BD C7 E7        ...   jsr c7e7             ;jump37
14959 F714 7F 00 38        ..8   clr 0038
14960 F717 39              9     rts
14961
14962 rti:
14963 F718 3C              <     pshx
14964 F719 F6 0B C0        ...   ldab 0bc0
14965 F71C C4 08           ..    andb #08
14966 F71E 27 03           '.    beq 03
14967 F720 BD C3 25        ..%   jsr c325             ;jump64
14968 F723 7C 00 0C        |..   inc 000c
14969 F726 F6 00 0C        ...   ldab 000c
14970 F729 C1 02           ..    cmpb #02
14971 F72B 26 13           &.    bne 13
14972 F72D 7F 00 0C        ...   clr 000c
14973 F730 F6 00 07        ...   ldab 0007
14974 F733 27 03           '.    beq 03
14975 F735 7A 00 07        z..   dec 0007
14976 F738 F6 00 00        ...   ldab 0000
14977 F73B 27 03           '.    beq 03
14978 F73D 7A 00 00        z..   dec 0000
14979 F740 7C 00 0B        |..   inc 000b
14980 F743 F6 00 0B        ...   ldab 000b
14981 F746 C1 08           ..    cmpb #08
14982 F748 26 37           &7    bne 37      ; to f781
14983 F74A 7F 00 0B        ...   clr 000b
14984 F74D FC 00 3B        ..;   ldd 003b
14985 F750 27 07           '.    beq 07
14986 F752 FE 00 3B        ..;   ldx 003b
14987 F755 09              .     dex
14988 F756 FF 00 3B        ..;   stx 003b
14989 F759 CC 00 2C        ..,   ldd #002c
14990 F75C 30              0     tsx
14991 F75D ED 00           ..    std 00,x
14992 F75F 30              0     tsx
14993 F760 EC 00           ..    ldd 00,x
14994 F762 37              7     pshb
14995 F763 36              6     psha
14996 F764 CC 00 3A        ..:   ldd #003a
14997 F767 30              0     tsx
14998 F768 A3 00           ..    subd 00,x
14999 F76A 31              1     ins
15000 F76B 31              1     ins
15001 F76C 25 13           %.    bcs 13
15002 F76E 30              0     tsx
15003 F76F EE 00           ..    ldx 00,x
15004 F771 E6 00           ..    ldab 00,x
15005 F773 27 07           '.    beq 07
15006 F775 30              0     tsx
15007 F776 EE 00           ..    ldx 00,x
15008 F778 6A 00           j.    dec 00,x
15009 F77A E6 00           ..    ldab 00,x
15010 F77C 38              8     pulx
15011 F77D 08              .     inx
15012 F77E 3C              <     pshx
15013 F77F 20 DE            .    bra de             ; to f75f
15014 ;
15015 F781 F6 00 32        ..2   ldab 0032
15016 F784 27 07           '.    beq 07             ; to f78d
15017 F786 F6 00 32        ..2   ldab 0032
15018 F789 C4 02           ..    andb #02
15019 F78B 26 08           &.    bne 08             ; to f795
15020 ;
15021 F78D CE 10 00        ...   ldx #1000          ; chime off
15022 F790 1D 00 10        ..    bclr 00,x, #10
15023 F793 20 0D            .    bra 0d             ; to f7a2
15024 ;
15025 F795 F6 00 32        ..2   ldab 0032
15026 F798 C4 01           ..    andb #01
15027 F79A 26 06           &.    bne 06             ; to f7a2
15028 F79C CE 10 00        ...   ldx #1000          ; chime on
15029 F79F 1C 00 10        ..    bset 00,x, #10
15030 ;
15031 F7A2 7C 00 4C        |.L   inc 004c
15032 F7A5 F6 00 4C        ..L   ldab 004c
15033 F7A8 C1 4B           .K    cmpb #4b
15034 F7AA 26 13           &.    bne 13
15035 F7AC 7F 00 4C        ..L   clr 004c
15036 F7AF F6 00 4F        ..O   ldab 004f
15037 F7B2 27 03           '.    beq 03
15038 F7B4 7A 00 4F        z.O   dec 004f
15039 F7B7 F6 00 25        ..%   ldab 0025
15040 F7BA 27 03           '.    beq 03
15041 F7BC 7A 00 25        z.%   dec 0025
15042 F7BF F6 00 31        ..1   ldab 0031
15043 F7C2 26 03           &.    bne 03
15044 F7C4 BD FE 69        ..i   jsr fe69             ;inhibit interrupts
15045 F7C7 F6 00 7F        ...   ldab 007f
15046 F7CA 27 03           '.    beq 03
15047 F7CC BD FE 69        ..i   jsr fe69             ;inhibit interrupts
15048 F7CF C6 40           .@    ldab #40
15049 F7D1 F7 10 25        ..%   stab 1025    ; notify end of RTI period
15050 F7D4 38              8     pulx
15051 F7D5 3B              ;     rti
15052
15053 main:
15054 ;
15055 F7D6 7F 00 14        ...   clr 0014     ;0 -> 0014
15056 ;
15057 ; clears the bits of U14 flipflop
15058 F7D9 5F              _     clrb         ;0 -> B
15059 F7DA F7 38 00        .8.   stab 3800    ;B -> 3800
15060 ;
15061 F7DD C6 7F           ..    ldab #7f     ;7F -> B
15062 F7DF F7 00 1A        ...   stab 001a    ;B -> 001a
15063 ;
15064 ; set changer outputs all on, row motors off
15065 F7E2 C6 7F           ..    ldab #7f     ;7F -> B
15066 F7E4 F7 30 00        .0.   stab 3000    ;
15067 ;
15068 ; sets priority select bits 0-3 (elevates interrupt priority of all interrupts)
15069 F7E7 C6 07           ..    ldab #07     ;7 -> B
15070 F7E9 F7 10 3C        ..<   stab 103c
15071 ;
15072 ; Set PA7 output, PA3 input, RT clock rate to 314 Hz (4.9152Mhz / 2^14)
15073 F7EC C6 81           ..    ldab #81     ;81 -> B
15074 F7EE F7 10 26        ..&   stab 1026
15075 ;
15076 ; clear ADC register
15077 F7F1 5F              _     clrb         ;0 -> B
15078 F7F2 F7 10 30        ..0   stab 1030
15079 ;
15080 ; talk to coin mech, beep, tie clock motors & display reset high (off)
15081 F7F5 C6 C8           ..    ldab #c8     ;c8 -> B ; 11001000
15082 F7F7 F7 10 00        ...   stab 1000 ; to port A
15083 ;
15084 ; sets PortD directions. XXX: Why is PD2 an output?
15085 F7FA C6 3E           .>    ldab #3e     ;3e -> B 00111110
15086 F7FC F7 10 09        ...   stab 1009 ; port D DDR
15087 ;
15088 ; make PortD pins open-drain, set clock polarity
15089 F7FF C6 12           ..    ldab #12     ;12 -> B
15090 F801 F7 10 28        ..(   stab 1028 ; SPCR 00101000
15091 ;
15092 ; initialize the display
15093 F804 BD BE 69        ..i   jsr be69             ;displayreset
15094 ;
15095 ; initialize the bill validator
15096 F807 BD EA 59        ..Y   jsr ea59             ;jump65
15097 ;
15098 F80A CC 00 64        ..d   ldd #0064    ; 100-unit delay
15099 F80D BD E5 71        ..q   jsr e571             ;msdelay
15100 ; lotsa text
15101 F810 CC B1 EF        ...   ldd #b1ef    " ROWE INT "
15102 F813 BD C0 BA        ...   jsr c0ba             ;display:
15103 F816 CC 01 F4        ...   ldd #01f4    ; 500-unit delay
15104 F819 BD E5 71        ..q   jsr e571             ;msdelay
15105 F81C CC B1 FA        ...   ldd #b1fa    "COPYRIGHT "
15106 F81F BD C0 BA        ...   jsr c0ba             ;display:
15107 F822 CC 01 F4        ...   ldd #01f4
15108 F825 BD E5 71        ..q   jsr e571             ;msdelay
15109 F828 CC B2 05        ...   ldd #b205    "   1993   "
15110 F82B BD C0 BA        ...   jsr c0ba             ;display:
15111 F82E CC 01 F4        ...   ldd #01f4
15112 F831 BD E5 71        ..q   jsr e571             ;msdelay
15113 F834 CC B2 10        ...   ldd #b210    "5900 VER 5"
15114 F837 BD C0 BA        ...   jsr c0ba             ;display:
15115 F83A CC 00 0A        ...   ldd #000a
15116 F83D BD E5 71        ..q   jsr e571             ;msdelay
15117 ;
15118 ;
15119 F840 7F 00 7F        ...   clr 007f
15120 F843 7F 00 21        ..!   clr 0021
15121 F846 7F 00 1F        ...   clr 001f
15122 F849 7F 00 1D        ...   clr 001d
15123 F84C 7F 00 1B        ...   clr 001b
15124 F84F 7F 00 19        ...   clr 0019
15125 ;
15126 F852 F6 0B C0        ...   ldab 0bc0
15127 F855 C4 01           ..    andb #01
15128 F857 27 08           '.    beq 08           ; to f861
15129 F859 CE 0B C1        ...   ldx #0bc1
15130 F85C 1C 00 01        ...   bset 00,x, #01   ; set changer powerup fail
15131 F85F 20 06            .    bra 06           ; to f867
15132 F861 CE 0B C1        ...   ldx #0bc1
15133 F864 1D 00 01        ...   bclr 00,x, #01   ; clear changer powerup fail
15134 ;
15135 F867 F6 0B C0        ...   ldab 0bc0
15136 F86A C4 04           ..    andb #04
15137 F86C 27 08           '.    beq 08           ; to f876
15138 F86E CE 0B C1        ...   ldx #0bc1
15139 F871 1C 00 02        ...   bset 00,x, #02   ; set card powerup fail
15140 F874 20 06            .    bra 06           ; to f87c
15141 F876 CE 0B C1        ...   ldx #0bc1
15142 F879 1D 00 02        ..    bclr 00,x, #02   ; clear card powerup fail
15143 F87C CE 0B C1        ...   ldx #0bc1
15144 F87F 1D 00 04        ..    bclr 00,x, #04    ; clear link powerup fail
15145 F882 F6 0B C0        ...   ldab 0bc0
15146 F885 C4 02           ..    andb #02
15147 F887 27 2D           '-    beq 2d        ; to f8b6
15148 F889 C6 3C           .<    ldab #3c
15149 F88B F7 00 31        ..1   stab 0031
15150 F88E 0E              .     cli
15151 F88F CC 00 FF        ...   ldd #00ff
15152 F892 BD C7 E7        ...   jsr c7e7             ;jump37
15153 F895 5F              _     clrb
15154 F896 4F              O     clra
15155 F897 FD 00 40        ..@   std 0040
15156 F89A C6 10           ..    ldab #10
15157 F89C F7 10 2C        ..,   stab 102c    ; set 9N1
15158 F89F C6 2E           ..    ldab #2e
15159 F8A1 F7 10 2D        ..-   stab 102d    ; enable SCI transmission
15160 F8A4 C6 03           ..    ldab #03
15161 F8A6 F7 10 2B        ..+   stab 102b    ; set 9600 baud
15162 F8A9 C6 46           .F    ldab #46     ; 70
15163 F8AB F7 00 2F        ../   stab 002f
15164 F8AE CC 07 D0        ...   ldd #07d0
15165 F8B1 BD E5 71        ..q   jsr e571             ;msdelay
15166 F8B4 20 2B            +    bra 2b       ; to f8e1
15167 F8B6 BD D0 94        ...   jsr d094             ;jump66 - init variables
15168 F8B9 C6 27           .'    ldab #27
15169 F8BB F7 10 2D        ..-   stab 102d    ; disable SCI transmission
15170 F8BE C6 07           ..    ldab #07
15171 F8C0 F7 10 2B        ..+   stab 102b    ; set 600 baud
15172 ; reset the changer
15173 F8C3 CE 00 1A        ...   ldx #001a
15174 F8C6 1C 00 04        ..    bset 00,x, #04
15175 F8C9 F6 00 1A        ...   ldab 001a
15176 F8CC F7 30 00        .0.   stab 3000    ; reset the changer
15177 F8CF CC 07 D0        ...   ldd #07d0
15178 F8D2 BD E5 71        ..q   jsr e571             ;msdelay
15179 F8D5 CE 00 1A        ...   ldx #001a
15180 F8D8 1D 00 04        ..    bclr 00,x, #04
15181 F8DB F6 00 1A        ...   ldab 001a
15182 F8DE F7 30 00        .0.   stab 3000    ; pull reset line back
15183 ;
15184 F8E1 7F 0E 6A        ..j   clr 0e6a
15185 F8E4 BD D4 79        ..y   jsr d479             ;jump67
15186 F8E7 BD E8 9A        ...   jsr e89a             ;jump68
15187 F8EA 7F 00 06        ...   clr 0006
15188 F8ED CE 00 1D        ...   ldx #001d
15189 F8F0 1C 00 10        ..    bset 00,x, #10
15190 F8F3 CC 05 DC        ...   ldd #05dc
15191 F8F6 BD E5 71        ..q   jsr e571             ;msdelay
15192 F8F9 C6 1E           ..    ldab #1e
15193 F8FB F7 00 35        ..5   stab 0035
15194 F8FE 0E              .     cli
15195 ;
15196 ; begin of main loop
15197 goto85:
15198 F8FF BD E6 1B        ...   jsr e61b             ;jump4 set 0031 to 10
15199 F902 BD D1 05        ...   jsr d105             ;motors_off
15200 F905 F6 10 0A        ...   ldab 100a
15201 F908 C4 08           ..    andb #08     ; 24VUN line too low
15202 F90A 27 46           'F    beq 46       ; to f952
15203 F90C F6 10 0A        ...   ldab 100a
15204 F90F C4 08           ..    andb #08
15205 F911 27 11           '.    beq 11       ; to f924
15206 F913 CE 00 1A        ...   ldx #001a
15207 F916 1C 00 04        ..    bset 00,x, #04
15208 F919 F6 00 1A        ...   ldab 001a
15209 F91C F7 30 00        .0.   stab 3000    ; changer reset
15210 F91F BD E6 1B        ...   jsr e61b             ;jump4 put #0a => 0031
15211 F922 20 E8            .    bra e8       ; to f90c
15212 ;
15213 F924 BD D0 94        ...   jsr d094             ;jump66 - reset some variables to defaults?
15214 F927 F6 0B C0        ...   ldab 0bc0
15215 F92A C4 01           ..    andb #01
15216 F92C 27 06           '.    beq 06
15217 F92E CE 0B C1        ...   ldx #0bc1
15218 F931 1C 00 01        ..    bset 00,x, #01 ; set changer powerup fail
15219 F934 F6 0B C0        ...   ldab 0bc0
15220 F937 C4 04           ..    andb #04
15221 F939 27 06           '.    beq 06
15222 F93B CE 0B C1        ...   ldx #0bc1
15223 F93E 1C 00 02        ..    bset 00,x, #02 ; set card powerup fail
15224 F941 CE 00 1A        ...   ldx #001a
15225 F944 1D 00 04        ..    bclr 00,x, #04
15226 F947 F6 00 1A        ...   ldab 001a
15227 F94A F7 30 00        .0.   stab 3000   ; clear send & reset lines
15228 F94D C6 1E           ..    ldab #1e
15229 F94F F7 00 35        ..5   stab 0035
15230 ;
15231 F952 F6 0B C0        ...   ldab 0bc0
15232 F955 C4 08           ..    andb #08
15233 F957 27 16           '.    beq 16       ; to f96f
15234 F959 CE 00 02        ...   ldx #0002
15235 F95C 3C              <     pshx
15236 F95D CC 10 00        ...   ldd #1000
15237 F960 BD E5 D7        ...   jsr e5d7             ;jump69 - poll bill validator
15238 F963 38              8     pulx
15239 F964 83 00 00        ...   subd #0000
15240 F967 27 06           '.    beq 06
15241 F969 CE 0B C1        ...   ldx #0bc1
15242 F96C 1C 00 08        ..    bset 00,x, #08 ; set bill error bit
15243 ;
15244 F96F F6 0B C1        ...   ldab 0bc1
15245 F972 C4 07           ..    andb #07     ; test for power failures
15246 F974 27 0D           '.    beq 0d       ; to f983
15247 F976 F6 00 35        ..5   ldab 0035
15248 F979 26 08           &.    bne 08
15249 F97B CE 00 21        ..!   ldx #0021
15250 F97E 1C 00 20        ..    bset 00,x, #20
15251 F981 20 06           ..    bra 06       ; to f989
15252 ;
15253 F983 CE 00 21        ..!   ldx #0021
15254 F986 1D 00 20        ..    bclr 00,x, #20
15255 F989 BD BB 63         .    jsr bb63     ;jump200 - read the keypad
15256 F98C BD B8 00        ...   jsr b800     ;jump201 - interpret the keys and write to the display
15257 F98F F6 0B C0        ...   ldab 0bc0
15258 F992 C4 01           ..    andb #01
15259 F994 27 0B           '.    beq 0b
15260 F996 FC 00 40        ..@   ldd 0040
15261 F999 F3 00 3E        ..>   addd 003e
15262 F99C 26 03           &.    bne 03
15263 F99E BD D6 F6        ...   jsr d6f6             ;jump106
15264 F9A1 F6 00 12        ...   ldab 0012
15265 F9A4 C4 20           .     andb #20     ; test door switch
15266 F9A6 27 08           '.    beq 08
15267 F9A8 F6 00 35        ..5   ldab 0035
15268 F9AB 26 03           &.    bne 03
15269 F9AD 7E FA 79        ~.y   jmp fa79             ;goto83
15270 F9B0 CE 00 1F        ...   ldx #001f
15271 F9B3 1D 00 04        ...   bclr 00,x, #04
15272 F9B6 CE 00 1D        ...   ldx #001d
15273 F9B9 1C 00 10        ...   bset 00,x, #10
15274 F9BC F6 00 1F        ...   ldab 001f
15275 F9BF C4 20           .     andb #20
15276 F9C1 26 03           &.    bne 03
15277 F9C3 7E FA 74        ~.t   jmp fa74             ;goto84
15278 F9C6 F6 0B C0        ...   ldab 0bc0
15279 F9C9 C4 01           ..    andb #01
15280 F9CB 27 08           '.    beq 08
15281 F9CD CE 0B C1        ...   ldx #0bc1
15282 F9D0 1C 00 01        ...   bset 00,x, #01   ; set changer powerup error
15283 F9D3 20 06            .    bra 06
15284 F9D5 CE 0B C1        ...   ldx #0bc1
15285 F9D8 1D 00 01        ...   bclr 00,x, #01   ; unset changer powerup error
15286 F9DB F6 0B C0        ...   ldab 0bc0
15287 F9DE C4 04           ..    andb #04
15288 F9E0 27 08           '.    beq 08
15289 F9E2 CE 0B C1        ...   ldx #0bc1
15290 F9E5 1C 00 02        ...   bset 00,x, #02   ; set card powerup error
15291 F9E8 20 06            .    bra 06
15292 F9EA CE 0B C1        ...   ldx #0bc1
15293 F9ED 1D 00 02        ...   bclr 00,x, #02   ; unset card powerup error
15294 F9F0 CE 0B C1        ...   ldx #0bc1
15295 F9F3 1D 00 04        ...   bclr 00,x, #04   ; unset link powerup error
15296 F9F6 CE 00 1B        ...   ldx #001b
15297 F9F9 1D 00 02        ...   bclr 00,x, #02
15298 F9FC F6 0B C0        ...   ldab 0bc0
15299 F9FF C4 02           ..    andb #02
15300 FA01 27 27           ''    beq 27
15301 FA03 C6 3C           .<    ldab #3c
15302 FA05 F7 00 31        ..1   stab 0031
15303 FA08 0E              .     cli
15304 FA09 CC 00 FF        ...   ldd #00ff
15305 FA0C BD C7 E7        ...   jsr c7e7             ;jump37 - send #ff to coin mech
15306 FA0F 5F              _     clrb
15307 FA10 4F              O     clra
15308 FA11 FD 00 40        ..@   std 0040
15309 FA14 C6 10           ..    ldab #10
15310 FA16 F7 10 2C        ..,   stab 102c    ; set 9N1
15311 FA19 C6 2E           ..    ldab #2e
15312 FA1B F7 10 2D        ..-   stab 102d    ; enable SCI transmission
15313 FA1E C6 03           ..    ldab #03
15314 FA20 F7 10 2B        ..+   stab 102b    ; 9600 baud
15315 FA23 C6 46           .F    ldab #46     ; 70
15316 FA25 F7 00 2F        ../   stab 002f
15317 FA28 20 31            1    bra 31
15318 FA2A CE 00 21        ..!   ldx #0021
15319 FA2D 1D 00 40        ...   bclr 00,x, #40
15320 FA30 BD D0 94        ...   jsr d094             ;jump66 - init variables
15321 FA33 C6 27           .'    ldab #27
15322 FA35 F7 10 2D        ..-   stab 102d    ; disable SCI transmission
15323 FA38 C6 07           ..    ldab #07
15324 FA3A F7 10 2B        ..+   stab 102b     ; 600 baud
15325 FA3D CE 00 1A        ...   ldx #001a
15326 FA40 1C 00 04        ...   bset 00,x, #04
15327 FA43 F6 00 1A        ...   ldab 001a
15328 FA46 F7 30 00        .0.   stab 3000    ; changer reset line high
15329 FA49 CC 00 32        ..2   ldd #0032
15330 FA4C BD E5 71        ..q   jsr e571             ;msdelay
15331 FA4F CE 00 1A        ...   ldx #001a
15332 FA52 1D 00 04        ...   bclr 00,x, #04
15333 FA55 F6 00 1A        ...   ldab 001a
15334 FA58 F7 30 00        .0.   stab 3000    ; changer reset line low
15335 FA5B BD D4 79        ..y   jsr d479             ;jump67
15336 FA5E BD E8 9A        ...   jsr e89a             ;jump68
15337 FA61 BD BE 69        ..i   jsr be69             ;displayreset
15338 FA64 7F 00 06        ...   clr 0006
15339 FA67 CE 00 1F        ...   ldx #001f
15340 FA6A 1D 00           ..    bclr add,x 00,x
15341 FA6C 20 C6            .    bra c6
15342 FA6E 1E F7 00 35     ...5  brset f7,x 00 35
15343 FA72 20 03            .    bra 03
15344 goto84:
15345 FA74 BD DE E7        ...   jsr dee7             ;jump116
15346 FA77 20 66            f    bra 66
15347 goto83:
15348 FA79 F6 00 12        ...   ldab 0012
15349 FA7C C4 20           .     andb #20
15350 FA7E 27 5F           '_    beq 5f
15351 FA80 F6 00 1F        ...   ldab 001f
15352 FA83 C4 20           .     andb #20
15353 FA85 26 03           &.    bne 03
15354 FA87 BD E5 AA        ...   jsr e5aa             ;jump12
15355 FA8A CE 00 1F        ...   ldx #001f
15356 FA8D 1C 00           ..    bset 00,x, #20
15357 FA8F F6 00 12        ...   ldab 0012
15358 FA93 C4 01           ..    andb #01
15359 FA95 26 33           &3    bne 33
15360 FA97 F6 00 1D        ...   ldab 001d
15361 FA9A C4 08           ..    andb #08
15362 FA9C 27 2A           '*    beq 2a        ; to fac8, to fad0
15363 FA9E F6 00 1F        ...   ldab 001f
15364 FAA1 C4 04           ..    andb #04
15365 FAA3 26 14           &.    bne 14
15366 FAA5 CE 00 1F        ...   ldx #001f
15367 FAA8 1C 00 04        ...   bset 00,x, #04
15368 FAAB CE 00 1F        ...   ldx #001f
15369 FAAE 1C 00           ..    bset 00,x, #80
15370 FAB0 CC 02 33        ..    ldd #0233
15371 FAB4 FD 00 3B        ..;   std 003b
15372 FAB7 20 09            .    bra 09       ; to fac2
15373 ;
15374 FAB9 BD E5 AA        ...   jsr e5aa             ;jump12
15375 FABC CE 00 1F        ...   ldx #001f
15376 FABF 1D 00 04        ...   bclr 00,x, #04
15377 FAC2 CE 00 1D        ...   ldx #001d
15378 FAC5 1D 00 08        ...   bclr 00,x, #08
15379 FAC8 20 06            .    bra 06       ; to fad0
15380 FACA CE 00 1D        ...   ldx #001d
15381 FACD 1C 00 08        ...   bset 00,x, #08
15382 FAD0 F6 00 1F        ...   ldab 001f
15383 FAD3 C4 04           ..    andb #04
15384 FAD5 26 05           &.    bne 05       ; to fadc - service menu
15385 FAD7 BD 81 00        ...   jsr 8100             ;jump72 - preservice menu?
15386 FADA 20 03            .    bra 03
15387 FADC BD 84 A0        ...   jsr 84a0             ;jump73
15388 FADF 7E F8 FF        ~..   jmp f8ff             ;goto85
15389 ; main should never return in theory.
15390
15391
15392 ; error interrupts (see vectors at end)
15393 FAE2 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15394 FAE5 BD C0 BA        ...   jsr c0ba             ;display:
15395 FAE8 CC 07 D0        ...   ldd #07d0
15396 FAEB BD E5 71        ..q   jsr e571             ;msdelay
15397 FAEE 3B              ;     rti
15398 FAEF CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15399 FAF2 BD C0 BA        ...   jsr c0ba             ;display:
15400 FAF5 CC 07 D0        ...   ldd #07d0
15401 FAF8 BD E5 71        ..q   jsr e571             ;msdelay
15402 FAFB 3B              ;     rti
15403 FAFC CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15404 FAFF BD C0 BA        ...   jsr c0ba             ;display:
15405 FB02 CC 07 D0        ...   ldd #07d0
15406 FB05 BD E5 71        ..q   jsr e571             ;msdelay
15407 FB08 3B              ;     rti
15408 FB09 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15409 FB0C BD C0 BA        ...   jsr c0ba             ;display:
15410 FB0F CC 07 D0        ...   ldd #07d0
15411 FB12 BD E5 71        ..q   jsr e571             ;msdelay
15412 FB15 3B              ;     rti
15413 FB16 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15414 FB19 BD C0 BA        ...   jsr c0ba             ;display:
15415 FB1C CC 07 D0        ...   ldd #07d0
15416 FB1F BD E5 71        ..q   jsr e571             ;msdelay
15417 FB22 3B              ;     rti
15418 FB23 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15419 FB26 BD C0 BA        ...   jsr c0ba             ;display:
15420 FB29 CC 07 D0        ...   ldd #07d0
15421 FB2C BD E5 71        ..q   jsr e571             ;msdelay
15422 FB2F 3B              ;     rti
15423 FB30 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15424 FB33 BD C0 BA        ...   jsr c0ba             ;display:
15425 FB36 CC 07 D0        ...   ldd #07d0
15426 FB39 BD E5 71        ..q   jsr e571             ;msdelay
15427 FB3C 3B              ;     rti
15428 FB3D CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15429 FB40 BD C0 BA        ...   jsr c0ba             ;display:
15430 FB43 CC 07 D0        ...   ldd #07d0
15431 FB46 BD E5 71        ..q   jsr e571             ;msdelay
15432 FB49 3B              ;     rti
15433 FB4A CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15434 FB4D BD C0 BA        ...   jsr c0ba             ;display:
15435 FB50 CC 07 D0        ...   ldd #07d0
15436 FB53 BD E5 71        ..q   jsr e571             ;msdelay
15437 FB56 3B              ;     rti
15438 FB57 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15439 FB5A BD C0 BA        ...   jsr c0ba             ;display:
15440 FB5D CC 07 D0        ...   ldd #07d0
15441 FB60 BD E5 71        ..q   jsr e571             ;msdelay
15442 FB63 3B              ;     rti
15443 FB64 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15444 FB67 BD C0 BA        ...   jsr c0ba             ;display:
15445 FB6A CC 07 D0        ...   ldd #07d0
15446 FB6D BD E5 71        ..q   jsr e571             ;msdelay
15447 FB70 3B              ;     rti
15448 FB71 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15449 FB74 BD C0 BA        ...   jsr c0ba             ;display:
15450 FB77 CC 07 D0        ...   ldd #07d0
15451 FB7A BD E5 71        ..q   jsr e571             ;msdelay
15452 FB7D 3B              ;     rti
15453 FB7E CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15454 FB81 BD C0 BA        ...   jsr c0ba             ;display:
15455 FB84 CC 07 D0        ...   ldd #07d0
15456 FB87 BD E5 71        ..q   jsr e571             ;msdelay
15457 FB8A 3B              ;     rti
15458 FB8B CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15459 FB8E BD C0 BA        ...   jsr c0ba             ;display:
15460 FB91 CC 07 D0        ...   ldd #07d0
15461 FB94 BD E5 71        ..q   jsr e571             ;msdelay
15462 FB97 3B              ;     rti
15463 FB98 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15464 FB9B BD C0 BA        ...   jsr c0ba             ;display:
15465 FB9E CC 07 D0        ...   ldd #07d0
15466 FBA1 BD E5 71        ..q   jsr e571             ;msdelay
15467 FBA4 3B              ;     rti
15468 FBA5 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15469 FBA8 BD C0 BA        ...   jsr c0ba             ;display:
15470 FBAB CC 07 D0        ...   ldd #07d0
15471 FBAE BD E5 71        ..q   jsr e571             ;msdelay
15472 FBB1 3B              ;     rti
15473 FBB2 BD FE 69        ..i   jsr fe69             ;inhibit interrupts
15474 FBB5 3B              ;     rti
15475 FBB6 BD FE 69        ..i   jsr fe69             ;inhibit interrupts
15476 FBB9 3B              ;     rti
15477
15478 jump38:
15479 ; passed a u16 on the stack, i, and a u16 in D, j
15480 ; multiplication funciton of some sort?
15481 FBBA 3C              <     pshx
15482 FBBB 37              7     pshb
15483 FBBC 30              0     tsx
15484 FBBD E6 06           ..    ldab 06,x   ; lower 8-bits of i
15485 FBBF 3D              =     mul         ; A*B => D
15486 FBC0 A6 00           ..    ldaa 00,x
15487 FBC2 37              7     pshb
15488 FBC3 E6 05           ..    ldab 05,x
15489 FBC5 3D              =     mul
15490 FBC6 32              2     pula
15491 FBC7 1B              .     aba
15492 FBC8 33              3     pulb
15493 FBC9 36              6     psha
15494 FBCA A6 06           ..    ldaa 06,x
15495 FBCC 3D              =     mul
15496 FBCD 37              7     pshb
15497 FBCE AB 00           ..    adda 00,x
15498 FBD0 36              6     psha
15499 FBD1 EC 03           ..    ldd 03,x
15500 FBD3 ED 05           ..    std 05,x
15501 FBD5 38              8     pulx
15502 FBD6 8F              .     xgdx
15503 FBD7 83 00 00        ...   subd #0000
15504 FBDA 31              1     ins
15505 FBDB 38              8     pulx
15506 FBDC 31              1     ins
15507 FBDD 31              1     ins
15508 FBDE 39              9     rts
15509
15510 jump46:
15511 FBDF BD FB E8        ...   jsr fbe8             ;jump86
15512 FBE2 BD FC 25        ..%   jsr fc25             ;jump85
15513 FBE5 7E FC 04        ~..   jmp fc04             ;goto87
15514
15515 jump86:
15516 FBE8 3C              <     pshx
15517 FBE9 8F              .     xgdx
15518 FBEA EC 02           ..    ldd 02,x
15519 FBEC 37              7     pshb
15520 FBED 36              6     psha
15521 FBEE EC 00           ..    ldd 00,x
15522 FBF0 37              7     pshb
15523 FBF1 36              6     psha
15524 FBF2 34              4     des
15525 FBF3 34              4     des
15526 FBF4 34              4     des
15527 FBF5 34              4     des
15528 FBF6 3C              <     pshx
15529 FBF7 30              0     tsx
15530 FBF8 EC 12           ..    ldd 12,x
15531 FBFA ED 04           ..    std 04,x
15532 FBFC EC 0C           ..    ldd 0c,x
15533 FBFE ED 02           ..    std 02,x
15534 FC00 EC 10           ..    ldd 10,x
15535 FC02 38              8     pulx
15536 FC03 39              9     rts
15537
15538 goto87:
15539 FC04 ED 00           ..    std 00,x
15540 FC06 3C              <     pshx
15541 FC07 30              0     tsx
15542 FC08 EC 08           ..    ldd 08,x
15543 FC0A ED 0A           ..    std 0a,x
15544 FC0C EC 02           ..    ldd 02,x
15545 FC0E ED 0C           ..    std 0c,x
15546 FC10 38              8     pulx
15547 FC11 ED 02           ..    std 02,x
15548 FC13 EC 00           ..    ldd 00,x
15549 FC15 26 06           &.    bne 06
15550 FC17 6D 02           m.    tst 02,x
15551 FC19 26 02           &.    bne 02
15552 FC1B 6D 03           m.    tst 03,x
15553 FC1D 31              1     ins
15554 FC1E 31              1     ins
15555 FC1F 38              8     pulx
15556 FC20 31              1     ins
15557 FC21 31              1     ins
15558 FC22 31              1     ins
15559 FC23 31              1     ins
15560 FC24 39              9     rts
15561
15562 jump85:
15563 FC25 3C              <     pshx
15564 FC26 30              0     tsx
15565 FC27 E3 06           ..    addd 06,x
15566 FC29 37              7     pshb
15567 FC2A 36              6     psha
15568 FC2B EC 02           ..    ldd 02,x
15569 FC2D ED 06           ..    std 06,x
15570 FC2F EC 04           ..    ldd 04,x
15571 FC31 E3 08           ..    addd 08,x
15572 FC33 ED 08           ..    std 08,x
15573 FC35 32              2     pula
15574 FC36 33              3     pulb
15575 FC37 C9 00           ..    adcb #00
15576 FC39 89 00           ..    adca #00
15577 FC3B 83 00 00        ...   subd #0000
15578 FC3E 26 06           &.    bne 06
15579 FC40 6D 08           m.    tst 08,x
15580 FC42 26 02           &.    bne 02
15581 FC44 6D 09           m.    tst 09,x
15582 FC46 38              8     pulx
15583 FC47 31              1     ins
15584 FC48 31              1     ins
15585 FC49 31              1     ins
15586 FC4A 31              1     ins
15587 FC4B 39              9     rts
15588
15589 jump83:
15590 FC4C 3C              <     pshx
15591 FC4D 3C              <     pshx
15592 FC4E 37              7     pshb
15593 FC4F 36              6     psha
15594 FC50 3C              <     pshx
15595 FC51 3C              <     pshx
15596 FC52 3C              <     pshx
15597 FC53 18 3C           .<    pshy
15598 FC55 30              0     tsx
15599 FC56 4F              O     clra
15600 FC57 A7 04           ..    staa 04,x
15601 FC59 7E FC 6D        ~.m   jmp fc6d             ;goto88
15602
15603 jump82:
15604 FC5C 3C              <     pshx
15605 FC5D 3C              <     pshx
15606 FC5E 37              7     pshb
15607 FC5F 36              6     psha
15608 FC60 3C              <     pshx
15609 FC61 3C              <     pshx
15610 FC62 3C              <     pshx
15611 FC63 18 3C           .<    pshy
15612 FC65 30              0     tsx
15613 FC66 86 01           ..    ldaa #01
15614 FC68 A7 04           ..    staa 04,x
15615 FC6A 7E FC 6D        ~.m   jmp fc6d             ;goto88
15616 goto88:
15617 FC6D 1A EE 0E        ...   ldy 0e,x
15618 FC70 EC 08           ..    ldd 08,x
15619 FC72 ED 0E           ..    std 0e,x
15620 FC74 EC 14           ..    ldd 14,x
15621 FC76 ED 0C           ..    std 0c,x
15622 FC78 EC 12           ..    ldd 12,x
15623 FC7A ED 0A           ..    std 0a,x
15624 FC7C 1A EF 12        ...   sty 12,x
15625 FC7F 4F              O     clra
15626 FC80 5F              _     clrb
15627 FC81 ED 08           ..    std 08,x
15628 FC83 ED 06           ..    std 06,x
15629 FC85 EC 0A           ..    ldd 0a,x
15630 FC87 1A A3 0E        ...   cmpd 0e,x
15631 FC8A 22 23           "#    bhi 23
15632 FC8C 27 15           '.    beq 15
15633 FC8E 1E 04 01 08     ....  brset 04,x 01 08
15634 FC92 CC 00 00        ...   ldd #0000
15635 FC95 ED 14           ..    std 14,x
15636 FC97 7E FE 04        ~..   jmp fe04             ;goto89
15637 FC9A EC 0C           ..    ldd 0c,x
15638 FC9C ED 14           ..    std 14,x
15639 FC9E EC 0A           ..    ldd 0a,x
15640 FCA0 7E FD E3        ~..   jmp fde3             ;goto90
15641 FCA3 83 00 00        ...   subd #0000
15642 FCA6 27 12           '.    beq 12
15643 FCA8 EC 0C           ..    ldd 0c,x
15644 FCAA 1A A3 10        ...   cmpd 10,x
15645 FCAD 25 DF           %.    bcs df
15646 FCAF 6D 0E           m.    tst 0e,x
15647 FCB1 26 70           &p    bne 70
15648 FCB3 6D 0F           m.    tst 0f,x
15649 FCB5 27 1A           '.    beq 1a
15650 FCB7 7E FD A4        ~..   jmp fda4             ;goto91
15651 FCBA 3C              <     pshx
15652 FCBB 3C              <     pshx
15653 FCBC 18 38           .8    puly
15654 FCBE EC 0C           ..    ldd 0c,x
15655 FCC0 EE 10           ..    ldx 10,x
15656 FCC2 02              .     idiv
15657 FCC3 18 1E 04 01 01  ..... brset 04,y 01 01
15658 FCC8 8F              .     xgdx
15659 FCC9 38              8     pulx
15660 FCCA ED 14           ..    std 14,x
15661 FCCC 4F              O     clra
15662 FCCD 5F              _     clrb
15663 FCCE 7E FD E3        ~..   jmp fde3             ;goto90
15664 FCD1 3C              <     pshx
15665 FCD2 3C              <     pshx
15666 FCD3 18 38           .8    puly
15667 FCD5 EC 0A           ..    ldd 0a,x
15668 FCD7 EE 10           ..    ldx 10,x
15669 FCD9 3C              <     pshx
15670 FCDA 02              .     idiv
15671 FCDB CD EF 0A        ...   stx 02x,y
15672 FCDE 38              8     pulx
15673 FCDF 3C              <     pshx
15674 FCE0 03              .     fdiv
15675 FCE1 CD EF 0E        ...   stx 02x,y
15676 FCE4 38              8     pulx
15677 FCE5 18 E3 0C        ...   addd 0c,y
15678 FCE8 24 1B           $.    bcc 1b
15679 FCEA 18 ED 0C        ...   std 0c,y
15680 FCED 4F              O     clra
15681 FCEE C6 01           ..    ldab #01
15682 FCF0 3C              <     pshx
15683 FCF1 03              .     fdiv
15684 FCF2 8F              .     xgdx
15685 FCF3 18 E3 0E        ...   addd 0e,y
15686 FCF6 24 03           $.    bcc 03
15687 FCF8 18 6C 0A        .l.   inc 0a,y
15688 FCFB 18 ED 0E        ...   std 0e,y
15689 FCFE 8F              .     xgdx
15690 FCFF 38              8     pulx
15691 FD00 18 E3 0C        ...   addd 0c,y
15692 FD03 25 E5           %.    bcs e5
15693 FD05 02              .     idiv
15694 FD06 8F              .     xgdx
15695 FD07 18 E3 0E        ...   addd 0e,y
15696 FD0A 24 03           $.    bcc 03
15697 FD0C 18 6C 0A        .l.   inc 0a,y
15698 FD0F 18 1F 04 01 07  ..... brclr 04,y 01 07
15699 FD14 8F              .     xgdx
15700 FD15 18 6F 0A        .o.   clr 0a,y
15701 FD18 18 6F 0B        .o.   clr 0b,y
15702 FD1B 38              8     pulx
15703 FD1C ED 14           ..    std 14,x
15704 FD1E EC 0A           ..    ldd 0a,x
15705 FD20 7E FD E3        ~..   jmp fde3             ;goto90
15706 FD23 86 08           ..    ldaa #08
15707 FD25 A7 05           ..    staa 05,x
15708 FD27 69              i     rol
15709 FD28 0D              .     sec
15710 FD29 69              i     rol
15711 FD2A 0C              .     clc
15712 FD2B 69              i     rol
15713 FD2C 0B              .     sev
15714 FD2D 69              i     rol
15715 FD2E 0A              .     clv
15716 FD2F 69              i     rol
15717 FD30 09              .     dex
15718 FD31 EC 0B           ..    ldd 0b,x
15719 FD33 A3 10           ..    subd 10,x
15720 FD35 ED 14           ..    std 14,x
15721 FD37 EC 09           ..    ldd 09,x
15722 FD39 E2 0F           ..    sbcb 0f,x
15723 FD3B A2 0E           ..    sbca 0e,x
15724 FD3D 25 06           %.    bcs 06
15725 FD3F ED 09           ..    std 09,x
15726 FD41 EC 14           ..    ldd 14,x
15727 FD43 ED 0B           ..    std 0b,x
15728 FD45 6A 05           j.    dec 05,x
15729 FD47 26 DE           &.    bne de
15730 FD49 69              i     rol
15731 FD4A 0D              .     sec
15732 FD4B 1F 04 01 09     ....  brclr 04,x 01 09
15733 FD4F EC 0B           ..    ldd 0b,x
15734 FD51 ED 14           ..    std 14,x
15735 FD53 EC 09           ..    ldd 09,x
15736 FD55 7E FD E3        ~..   jmp fde3             ;goto90
15737 FD58 4F              O     clra
15738 FD59 E6 0D           ..    ldab 0d,x
15739 FD5B 53              S     comb
15740 FD5C ED 14           ..    std 14,x
15741 FD5E 5F              _     clrb
15742 FD5F 7E FD E3        ~..   jmp fde3             ;goto90
15743 FD62 86 10           ..    ldaa #10
15744 FD64 A7 05           ..    staa 05,x
15745 FD66 69              i     rol
15746 FD67 0D              .     sec
15747 FD68 69              i     rol
15748 FD69 0C              .     clc
15749 FD6A 69              i     rol
15750 FD6B 0B              .     sev
15751 FD6C 69              i     rol
15752 FD6D 0A              .     clv
15753 FD6E 69              i     rol
15754 FD6F 09              .     dex
15755 FD70 69              i     rol
15756 FD71 08              .     inx
15757 FD72 EC 0A           ..    ldd 0a,x
15758 FD74 A3 10           ..    subd 10,x
15759 FD76 ED 14           ..    std 14,x
15760 FD78 EC 08           ..    ldd 08,x
15761 FD7A E2 0F           ..    sbcb 0f,x
15762 FD7C 82 00           ..    sbca #00
15763 FD7E 25 06           %.    bcs 06
15764 FD80 ED 08           ..    std 08,x
15765 FD82 EC 14           ..    ldd 14,x
15766 FD84 ED 0A           ..    std 0a,x
15767 FD86 6A 05           j.    dec 05,x
15768 FD88 26 DC           &.    bne dc
15769 FD8A 69              i     rol
15770 FD8B 0D              .     sec
15771 FD8C 69              i     rol
15772 FD8D 0C              .     clc
15773 FD8E 1F 04 01 08     ....  brclr 04,x 01 08
15774 FD92 EC 0A           ..    ldd 0a,x
15775 FD94 ED 14           ..    std 14,x
15776 FD96 EC 08           ..    ldd 08,x
15777 FD98 20 49            I    bra 49
15778 FD9A EC 0C           ..    ldd 0c,x
15779 FD9C 43              C     coma
15780 FD9D 53              S     comb
15781 FD9E ED 14           ..    std 14,x
15782 FDA0 4F              O     clra
15783 FDA1 5F              _     clrb
15784 FDA2 20 3F            ?    bra 3f
15785 goto91:
15786 FDA4 2B BC           +.    bmi bc
15787 FDA6 86 10           ..    ldaa #10
15788 FDA8 A7 05           ..    staa 05,x
15789 FDAA 69              i     rol
15790 FDAB 0D              .     sec
15791 FDAC 69              i     rol
15792 FDAD 0C              .     clc
15793 FDAE 69              i     rol
15794 FDAF 0B              .     sev
15795 FDB0 69              i     rol
15796 FDB1 0A              .     clv
15797 FDB2 69              i     rol
15798 FDB3 07              .     tpa
15799 FDB4 EC 0A           ..    ldd 0a,x
15800 FDB6 A3 10           ..    subd 10,x
15801 FDB8 ED 14           ..    std 14,x
15802 FDBA A6 07           ..    ldaa 07,x
15803 FDBC A2 0F           ..    sbca 0f,x
15804 FDBE 25 06           %.    bcs 06
15805 FDC0 A7 07           ..    staa 07,x
15806 FDC2 EC 14           ..    ldd 14,x
15807 FDC4 ED 0A           ..    std 0a,x
15808 FDC6 6A 05           j.    dec 05,x
15809 FDC8 26 E0           &.    bne e0
15810 FDCA 69              i     rol
15811 FDCB 0D              .     sec
15812 FDCC 69              i     rol
15813 FDCD 0C              .     clc
15814 FDCE 1F 04 01 09     ....  brclr 04,x 01 09
15815 FDD2 EC 0A           ..    ldd 0a,x
15816 FDD4 ED 14           ..    std 14,x
15817 FDD6 4F              O     clra
15818 FDD7 E6 07           ..    ldab 07,x
15819 FDD9 20 08            .    bra 08
15820 FDDB EC 0C           ..    ldd 0c,x
15821 FDDD 43              C     coma
15822 FDDE 53              S     comb
15823 FDDF ED 14           ..    std 14,x
15824 FDE1 4F              O     clra
15825 FDE2 5F              _     clrb
15826 goto90:
15827 FDE3 1F 04 80 12     ....  brclr 04,x 80 12
15828 FDE7 43              C     coma
15829 FDE8 53              S     comb
15830 FDE9 63 14           c.    com 14,x
15831 FDEB 63 15           c.    com 15,x
15832 FDED 6C 15           l.    inc 15,x
15833 FDEF 26 08           &.    bne 08
15834 FDF1 6C 14           l.    inc 14,x
15835 FDF3 26 04           &.    bne 04
15836 FDF5 5C              \     incb
15837 FDF6 26 01           &.    bne 01
15838 FDF8 4C              L     inca
15839 FDF9 83 00 00        ...   subd #0000
15840 FDFC 26 06           &.    bne 06
15841 FDFE 6D 14           m.    tst 14,x
15842 FE00 26 02           &.    bne 02
15843 FE02 6D 15           m.    tst 15,x
15844 goto89:
15845 FE04 18 38           .8    puly
15846 FE06 38              8     pulx
15847 FE07 31              1     ins
15848 FE08 31              1     ins
15849 FE09 31              1     ins
15850 FE0A 31              1     ins
15851 FE0B 31              1     ins
15852 FE0C 31              1     ins
15853 FE0D 31              1     ins
15854 FE0E 31              1     ins
15855 FE0F 31              1     ins
15856 FE10 31              1     ins
15857 FE11 31              1     ins
15858 FE12 31              1     ins
15859 FE13 31              1     ins
15860 FE14 31              1     ins
15861 FE15 39              9     rts
15862
15863 jump2:
15864 ; passed a structure (in code following the call to jump2) and a number D
15865 ; popular D candidates come from $48, $42, $9, $a, etc...
15866 ; D must be between 0 and len, inclusive.
15867 ; structure {
15868 ;    u16 var1, len;
15869 ;    u16 jmplocs[len+2];
15870 ; }
15871 FE16 38              8     pulx
15872 FE17 A3 00           ..    subd 00,x     ; D -= var1
15873 FE19 2D 05           -.    blt 05        ; if D<0, to fe20, where D=-1
15874 FE1B 1A A3 02        ...   cmpd 02,x     ;
15875 FE1E 2F 03           /.    ble 03        ; if D > len, D=-1, else to fe23
15876 FE20 CC FF FF        ...   ldd #ffff
15877 FE23 3C              <     pshx          ; push return ptr back onto stack
15878 FE24 05              .     asld          ; D *= 2
15879 FE25 30              0     tsx
15880 FE26 E3 00           ..    addd 00,x     ; D += return-ptr
15881 FE28 C3 00 06        ...   addd #0006    ;        + 6
15882 FE2B 8F              .     xgdx
15883 FE2C EC 00           ..    ldd 00,x      ; return ptr = jmplocs[orig D]
15884 FE2E 30              0     tsx
15885 FE2F ED 00           ..    std 00,x
15886 FE31 39              9     rts
15887
15888 jump25:
15889 ; this looks like a switch statement
15890 ; we're passed an array of 4-byte items... this is passed in the code segment
15891 ; we take the return address and start counting until we hit a double zero.
15892 ; hence much of the code following this call in a standard disassembly is garbage
15893 ; we also look at D - common values passed to use are contents of $9, $12, $15, $4A or the SCI $102f
15894 FE32 38              8     pulx
15895 FE33 6D 04           m.    tst 04,x
15896 FE35 26 04           &.    bne 04     ; to fe3b if this is not the last one
15897 FE37 6D 05           m.    tst 05,x   ; double check it really is last one.
15898 FE39 27 0A           '.    beq 0a     ; to fe45
15899 FE3B A3 02           ..    subd 02,x  ; subtract lower order bits from D
15900 FE3D 27 06           '.    beq 06     ; to fe45
15901 FE3F 08              .     inx        ; move the array index up one
15902 FE40 08              .     inx
15903 FE41 08              .     inx
15904 FE42 08              .     inx
15905 FE43 20 EE            .    bra ee     ; to fe33
15906 FE45 EE 00           ..    ldx 00,x   ; return to our destination address
15907 FE47 6E 00           n.    jmp 00,x
15908
15909         reset:
15910
15911 ; Enable the Real-time Interrupt (periodic hw interrupt)
15912 FE49 86 40           .@    ldaa #40     ;40 -> A
15913 FE4B B7 10 24        ..$   staa 1024    ;A -> 1024
15914 ; Enable the ADC & configure IRQ' for edge-sensitive only operation
15915 FE4E 86 A0           ..    ldaa #a0     ;a0 -> A
15916 FE50 B7 10 39        ..9   staa 1039    ;A -> 1039
15917 ; Set a stack pointer?
15918 FE53 8E 00 EF        ...   lds #00ef
15919 ; Zero out the first 128 bytes of ram.
15920 FE56 CE 00 00        ...   ldx #0000    ;wipe 0000-007f  X=0000
15921 FE59 8C 00 80        ...   cpx #0080    ;loop: if X = 0080
15922 FE5C 24 05           $.    bcc fe63     ;        finished
15923 FE5E 6F 00           o.    clr 00,x     ;      else: load addr X with 0
15924 FE60 08              .     inx          ;        increment X
15925 FE61 20 F6            .    bra fe59     ;repeat
15926
15927 ; Jump to main procedure
15928 FE63 BD F7 D6        ...   jsr f7d6     ;goto main:
15929 FE66 7E FE 6D        ~.m   jmp fe6d     ; goto91
15930
15931 ; Reboot function for when things go astray?
15932 FE69 0F              .     sei          ;inhibit interrupts
15933 FE6A 7E FE 49        ~.I   jmp fe49     ;goto reset:
15934
15935 ; loop forever - called after main is exited.
15936 goto91:
15937 FE6D 20 FE            .    bra fe6d     ;loop forever
15938                                         ;[SAF] - wait for interrupts?
15939
15940 FE6F FF FF FF        ...   stx ffff
15941 FE72 FF FF FF        ...   stx ffff
15942 FE75 FF FF FF        ...   stx ffff
15943 FE78 FF FF FF        ...   stx ffff
15944 FE7B FF FF FF        ...   stx ffff
15945 FE7E FF FF FF        ...   stx ffff
15946 FE81 FF FF FF        ...   stx ffff
15947 FE84 FF FF FF        ...   stx ffff
15948 FE87 FF FF FF        ...   stx ffff
15949 FE8A FF FF FF        ...   stx ffff
15950 FE8D FF FF FF        ...   stx ffff
15951 FE90 FF FF FF        ...   stx ffff
15952 FE93 FF FF FF        ...   stx ffff
15953 FE96 FF FF FF        ...   stx ffff
15954 FE99 FF FF FF        ...   stx ffff
15955 FE9C FF FF FF        ...   stx ffff
15956 FE9F FF FF FF        ...   stx ffff
15957 FEA2 FF FF FF        ...   stx ffff
15958 FEA5 FF FF FF        ...   stx ffff
15959 FEA8 FF FF FF        ...   stx ffff
15960 FEAB FF FF FF        ...   stx ffff
15961 FEAE FF FF FF        ...   stx ffff
15962 FEB1 FF FF FF        ...   stx ffff
15963 FEB4 FF FF FF        ...   stx ffff
15964 FEB7 FF FF FF        ...   stx ffff
15965 FEBA FF FF FF        ...   stx ffff
15966 FEBD FF FF FF        ...   stx ffff
15967 FEC0 FF FF FF        ...   stx ffff
15968 FEC3 FF FF FF        ...   stx ffff
15969 FEC6 FF FF FF        ...   stx ffff
15970 FEC9 FF FF FF        ...   stx ffff
15971 FECC FF FF FF        ...   stx ffff
15972 FECF FF FF FF        ...   stx ffff
15973 FED2 FF FF FF        ...   stx ffff
15974 FED5 FF FF FF        ...   stx ffff
15975 FED8 FF FF FF        ...   stx ffff
15976 FEDB FF FF FF        ...   stx ffff
15977 FEDE FF FF FF        ...   stx ffff
15978 FEE1 FF FF FF        ...   stx ffff
15979 FEE4 FF FF FF        ...   stx ffff
15980 FEE7 FF FF FF        ...   stx ffff
15981 FEEA FF FF FF        ...   stx ffff
15982 FEED FF FF FF        ...   stx ffff
15983 FEF0 FF FF FF        ...   stx ffff
15984 FEF3 FF FF FF        ...   stx ffff
15985 FEF6 FF FF FF        ...   stx ffff
15986 FEF9 FF FF FF        ...   stx ffff
15987 FEFC FF FF FF        ...   stx ffff
15988 FEFF FF FF FF        ...   stx ffff
15989 FF02 FF FF FF        ...   stx ffff
15990 FF05 FF FF FF        ...   stx ffff
15991 FF08 FF FF FF        ...   stx ffff
15992 FF0B FF FF FF        ...   stx ffff
15993 FF0E FF FF FF        ...   stx ffff
15994 FF11 FF FF FF        ...   stx ffff
15995 FF14 FF FF FF        ...   stx ffff
15996 FF17 FF FF FF        ...   stx ffff
15997 FF1A FF FF FF        ...   stx ffff
15998 FF1D FF FF FF        ...   stx ffff
15999 FF20 FF FF FF        ...   stx ffff
16000 FF23 FF FF FF        ...   stx ffff
16001 FF26 FF FF FF        ...   stx ffff
16002 FF29 FF FF FF        ...   stx ffff
16003 FF2C FF FF FF        ...   stx ffff
16004 FF2F FF FF FF        ...   stx ffff
16005 FF32 FF FF FF        ...   stx ffff
16006 FF35 FF FF FF        ...   stx ffff
16007 FF38 FF FF FF        ...   stx ffff
16008 FF3B FF FF FF        ...   stx ffff
16009 FF3E FF FF FF        ...   stx ffff
16010 FF41 FF FF FF        ...   stx ffff
16011 FF44 FF FF FF        ...   stx ffff
16012 FF47 FF FF FF        ...   stx ffff
16013 FF4A FF FF FF        ...   stx ffff
16014 FF4D FF FF FF        ...   stx ffff
16015 FF50 FF FF FF        ...   stx ffff
16016 FF53 FF FF FF        ...   stx ffff
16017 FF56 FF FF FF        ...   stx ffff
16018 FF59 FF FF FF        ...   stx ffff
16019 FF5C FF FF FF        ...   stx ffff
16020 FF5F FF FF FF        ...   stx ffff
16021 FF62 FF FF FF        ...   stx ffff
16022 FF65 FF FF FF        ...   stx ffff
16023 FF68 FF FF FF        ...   stx ffff
16024 FF6B FF FF FF        ...   stx ffff
16025 FF6E FF FF FF        ...   stx ffff
16026 FF71 FF FF FF        ...   stx ffff
16027 FF74 FF FF FF        ...   stx ffff
16028 FF77 FF FF FF        ...   stx ffff
16029 FF7A FF FF FF        ...   stx ffff
16030 FF7D FF FF FF        ...   stx ffff
16031 FF80 FF FF FF        ...   stx ffff
16032 FF83 FF FF FF        ...   stx ffff
16033 FF86 FF FF FF        ...   stx ffff
16034 FF89 FF FF FF        ...   stx ffff
16035 FF8C FF FF FF        ...   stx ffff
16036 FF8F FF FF FF        ...   stx ffff
16037 FF92 FF FF FF        ...   stx ffff
16038 FF95 FF FF FF        ...   stx ffff
16039 FF98 FF FF FF        ...   stx ffff
16040 FF9B FF FF FF        ...   stx ffff
16041 FF9E FF FF FF        ...   stx ffff
16042 FFA1 FF FF FF        ...   stx ffff
16043 FFA4 FF FF FF        ...   stx ffff
16044 FFA7 FF FF FF        ...   stx ffff
16045 FFAA FF FF FF        ...   stx ffff
16046 FFAD FF FF FF        ...   stx ffff
16047 FFB0 FF FF FF        ...   stx ffff
16048 FFB3 FF FF FF        ...   stx ffff
16049 FFB6 FF FF FF        ...   stx ffff
16050 FFB9 FF FF FF        ...   stx ffff
16051 FFBC FF FF FF        ...   stx ffff
16052 FFBF FF FF FF        ...   stx ffff
16053 FFC2 FF FF FF        ...   stx ffff
16054 FFC5 FF FF FF        ...   stx ffff
16055 FFC8 FF FF FF        ...   stx ffff
16056 FFCB FF FF FF        ...   stx ffff
16057 FFCE FF FF FF        ...   stx ffff
16058 FFD1 FF FF FF        ...   stx ffff
16059 FFD4 FF FF
16060
16061 FFD6    ;vectors
16062         .word   c81c    ; SCI serial system (generic)  - goes to sciinterrupt
16063         .word   fae2    ; SPI serial transfer complete - flashes *** ERROR *** for a second
16064         .word   faef    ; Pulse accumulator input edge - flashes *** ERROR *** for a second
16065         .word   fafc    ; Pulse accumulator overflow   - flashes *** ERROR *** for a second
16066         .word   fb09    ; Timer overflow               - flashes *** ERROR *** for a second
16067         .word   fb16    ; Timer input capture 4        - flashes *** ERROR *** for a second
16068         .word   fb23    ; Timer output compare 4       - flashes *** ERROR *** for a second
16069         .word   fb30    ; Timer output compare 3       - flashes *** ERROR *** for a second
16070         .word   fb3d    ; Timer output compare 2       - flashes *** ERROR *** for a second
16071         .word   fb4a    ; Timer output compare 1       - flashes *** ERROR *** for a second
16072         .word   fb57    ; Timer input capture 3        - flashes *** ERROR *** for a second
16073         .word   fb64    ; Timer input capture 2        - flashes *** ERROR *** for a second
16074         .word   fb71    ; Timer input capture 1        - flashes *** ERROR *** for a second
16075         .word   f718    ; RT interrupt                 - does something useful :) (goto rti)
16076         .word   fb7e    ; IRQ pin                      - flashes *** ERROR *** for a second
16077         .word   fb8b    ; XIRQ pin                     - flashes *** ERROR *** for a second
16078         .word   fb98    ; software interrupt           - flashes *** ERROR *** for a second
16079         .word   fba5    ; illegal opcode trap          - flashes *** ERROR *** for a second
16080         .word   fbb2    ; watchdog reset               - reboot
16081         .word   fbb6    ; clock monitor reset          - reboot
16082         .word   fe49    ; reset                        - reboot
16083 \1a