ROM-2003/vend.asm

   1 ;0000   set to 1 at the end of a keypad read and turned off at the next rti
   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   what byte of the packet we've read up to
   8 ;0009
   9 ;000a
  10 ;000c
  11 ;0012   another buffer for 1800 - what change to give?
  12 ;0013
  13 ;0014   buffer for 3800 register
  14 ;0015
  15 ;0016   new key state (cf 0029)
  16 ;0017   bits 5-7 used mostly
  17 ;0018
  18 ;0019
  19 ;001a   buffer for 3000 register - initialised to 7F
  20 ;001b   bit 3 - denote motor fault?
  21 ;001c   used for loop variables
  22 ;001d
  23 ;001f   display related? bit 2.  bit 4 denotes service mode
  24 ;0021   lower 3 bits taken from SCI data somewhere
  25 ;       bit 5 denotes machine out of order
  26 ;0023   buffer for 1800
  27 ;0026   used exclusively in SCI interrupt handler
  28 ;0029   previous key state (cf 0016)
  29 ;002c   inhibits display writes?
  30 ;0032   to do with the beeper (see jump52)
  31 ;0033
  32 ;0035   only ever contains #1e
  33 ;003b   commonly contains $0233
  34 ;003d
  35 ;003e   mask for 0040? (see f996)
  36 ;003f
  37 ;0040
  38 ;0042   current key press
  39 ;0048   error status
  40 ;004a
  41 ;0052   win-a-snack odds (in ram)
  42 ;0054   0..100
  43 ;0056   last known keypad row 1 state
  44 ;005b   last known keypad row 0 state
  45 ;005a - result of number to string operations (jump55)
  46 ;    005f
  47 ;0067   working space of 0bc0
  48 ;0073
  49 ;0076-0077 word
  50 ;007f
  51 ;00c8
  52 ;0800   motor information array - each is a 16-bit value
  53 ;
  54 ;08c8   array of prices of each slot??
  55 ;0993   custom message?
  56 ;0b90 - 0b99 display buffer (backwards)
  57 ;0b9a - some sort of id? press 89 on the machine
  58 ;0baa
  59 ;0bae
  60 ;0bb5   win-a-snack odds (is this in NVRAM?)
  61 ;0bbd
  62 ;0bd8   related to 0017 and 0021 (only lower 3 bits used)
  63 ;0bd9   also related
  64 ;0bc0   machine peripheral configuration flags
  65 ;         bit0: have dumb mech
  66 ;         bit1: have a changer
  67 ;         bit2: have card reader
  68 ;         bit3: have bill validator
  69 ;         bit4: link master - price holding enabled
  70 ;         bit5: link master - price display enabled
  71 ;         bit6: have $1 changer
  72 ;         bit7: free vend
  73 ;0bc1   error status:  (from jump72)
  74 ;         bit0: changer powerup
  75 ;         bit1: card powerup
  76 ;         bit2: link powerup
  77 ;         bit3: bill error
  78 ;         bit4: coin jam
  79 ;         bit5: bad sensor
  80 ;         bit6: tube error
  81 ;
  82 ; SCI read buffer:
  83 ;
  84 ;0bc2  multiplied by 10^0bc3 and stored into 0baa
  85 ;0bc3  10 is raise to the power of this number shr 4, and multiplied by 0baa
  86 ;0bc4  index of something
  87 ;0bc5  index of something else
  88 ;0bc6  index of another thing
  89 ;0bc7 word number of something
  90 ;0bc8
  91 ;0bc9 word number of something else
  92 ;0bca
  93 ;0bcb word number of another thing
  94 ;0bcc
  95 ;0bcd word number of another else
  96 ;0bce
  97 ;
  98 ;0bc4   array index into 0bc7
  99 ;0bc5
 100 ;0bc6   another array index into 0bc7
 101 ;0bc7 word array
 102 ;
 103 ;0bdd   value of coin mech quarters
 104 ;0bdf   value of coin mech dimes
 105 ;0be1   value of coin mech nickels
 106
 107 ;
 108 ;0bd7   init'd to 0x01
 109 ;0bd8   init'd to 0x04
 110 ;0bd9   init'd to 0x02
 111 ;0bda   init'd to 0x20
 112 ;0bdb   init'd to 0x08
 113 ;0bdc   init'd to 0x10
 114 ;
 115 ;0cbc   serial number (string)
 116 ;0ccc   machine ID (string)
 117 ;0ce7   audit number (word)
 118 ;
 119 ;0cd9   counter of something - reset to 4 on some serial input
 120 ;0cda   counter of something - reset to 4 on some serial input
 121 ;0cdb   also counts something - reset to 4 on some serial input
 122
 123 ;0ce9   value or number of $1 coins
 124 ;0ceb   value or number of 20c coins
 125 ;0ced   value or number of 10c coins
 126 ;0cef   value or number of 5c coins
 127
 128 ;0cdc   number of value of $1 coins
 129 ;0cdb   number or value of 20c coin
 130 ;0cda   number or value of 10c coins
 131 ;0cd9   number or value of 5c coins
 132
 133 ;0dff - 0e04 keypad buffer - most recent in 0e04
 134 ;0e05   array index of the array to follow
 135 ;0e06 - ?? array of digits*10
 136 ;1000
 137 ;1009
 138 ;1016 - timer output compare 1 register
 139 ;1026
 140 ;1028   SPCR (Serial Peripheral Control Register)
 141 ;1030
 142 ;103c
 143
 144
 145
 146 ;0800 - 0x0fff memory bank 2k
 147 ;
 148 ;1800  Internal switches
 149 ;   7 changer INT'
 150 ;   6 Sold out.
 151 ;   5 Door open
 152 ;   4 $0.05
 153 ;   3 $0.10
 154 ;   2 $0.25
 155 ;   1 $1
 156 ;   0 Mode
 157 ;2000  Misc inputs
 158 ;   7 R2 of MAX232
 159 ;   6 Printer DSR
 160 ;   5 Win-a-snack
 161 ;   4 Multi
 162 ;   3 Promotional
 163 ;   2 Force?
 164 ;   1 Language selection
 165 ;   0 Language selection
 166 ;Rows are numbered 1-9, skipping 5.  There is no row 5.
 167 ;2800   home sensors
 168 ;       7  row 9
 169 ;       6  row 8
 170 ;       5  row 7
 171 ;       4  row 6
 172 ;       3  row 4
 173 ;       2  row 3
 174 ;       1  row 2
 175 ;       0  row 1
 176 ;Motor driver data is sent cols 7, 6, 5, 4, 3, 2, 1, 0 rows 9, 8, 7, 6, 4, 3, 2
 177 ;1.  Cols 8 and 9 are separate outputs (they ran out of driver chip outputs).
 178 ;Motor driver column output enable is PA6
 179 ;Motor driver serial clock is PA5
 180 ;It looks like motor overcurrent sense is on PE1 (PE1 will be low if a motor
 181 ;is drawing too much current)
 182 ; the changer speaks at 600 baud, where as the coin validator speaks
 183 ; 9600 baud. and printer at 2400.
 184 ;3000   changer outputs
 185 ;       7  motor driver row output enable
 186 ;       6  /$1.00
 187 ;       5  /$.25
 188 ;       4  /$.10
 189 ;       3  /$.05
 190 ;       2  RESET
 191 ;       1  /SEND
 192 ;       0  /ACCEPT
 193 ;3800   misc outputs
 194 ;       7  not used
 195 ;       6  col 9 motor driver
 196 ;       5  col 8 motor driver
 197 ;       4  motor driver serial data
 198 ;       3  display write (clock) enable (active high)
 199 ;       2  keypad strobe
 200 ;       1  note acceptor connector
 201 ;       0  note acceptor connector
 202
 203 ;-------
 204 ; Ports
 205 ;-------
 206
 207 ; PortA - Data: 0x1000, DDR for PA7 & PA3 in 0x1026
 208 ; PA7 display reset (active low)
 209 ; PA6 enables motor column drivers (when low)
 210 ; PA5 clocks snack motor drivers (U16 5890 = serial-input latched source drivers (latch unused))
 211 ; PA4 beepy thang (active high)
 212 ; PA3 high - talking to coin vendie, low - talking to printer. (through PD1)
 213 ; PA2 coin dispenser pin 6 (does what???)
 214 ; PA1 bill validator 2
 215 ; PA0 bill validator 1
 216
 217 ; PortB - not used directly
 218 ; PB7 Address lines 8-15
 219 ; PB6
 220 ; PB5
 221 ; PB4
 222 ; PB3
 223 ; PB2
 224 ; PB1
 225 ; PB0
 226
 227 ; PortC - Data: 0x1003, Latch: 0x1005, DDR: 0x1007
 228 ; PC7 Data Bus 0-7 / Address bus 0-7
 229 ; PC6
 230 ; PC5
 231 ; PC4
 232 ; PC3
 233 ; PC2
 234 ; PC1
 235 ; PC0
 236
 237 ; PortD - Data: 0x1008, DDR: 0x1009
 238 ; PD7 n/c
 239 ; PD6 n/c
 240 ; PD5 keypad row select (output)
 241 ; PD4 SPI - keypad & display clock signal (output)
 242 ; PD3 display data (output)
 243 ; PD2 keypad data (input)
 244 ; PD1 RX of SCI - to coin disp or printer depending on PA3
 245 ; PD0 TX of SCI - to coin disp or printer depending on PA3
 246
 247 ; PortE - Data: 0x100A
 248 ; PE7 <unused>
 249 ; PE6 <unused>
 250 ; PE5 <unused>
 251 ; PE4 <unused>
 252 ; PE3 goes high when 24VUN line is *really* low (like 20V)
 253 ; PE2 remote no-sale switch (active low)
 254 ; PE1 motor overvoltage sense (active high)
 255 ; PE0 motor overcurrent sense (active low)
 256
 257 ; Current status:
 258 ;  JSR mapped out
 259 ;  JMP mapped out
 260
 261 ; TODO:
 262
 263 8000 43              C     coma
 264 8001 20 50            P    bra 50
 265 8003 4F              O     clra
 266 8004 57              W     asrb
 267 8005 45              E     illegal
 268 8006 52              R     illegal
 269 8007 20 43            C    bra 43
 270 8009 4F              O     clra
 271 800A 4D              M     tsta
 272 800B 50              P     negb
 273 800C 41              A     illegal
 274 800D 4E              N     illegal
 275 800E 59              Y     rolb
 276 800F 00              .     test
 277 8010 43              C     coma
 278 8011 4F              O     clra
 279 8012 50              P     negb
 280 8013 59              Y     rolb
 281 8014 52              R     illegal
 282 8015 49              I     rola
 283 8016 47              G     asra
 284 8017 48              H     asla
 285 8018 54              T     lsrb
 286 8019 20 31            1    bra 31
 287 801B 39              9     rts
 288 801C 39              9     rts
 289 801D 33              3     pulb
 290 801E 20 00            .    bra 00
 291 8020 20 20                 bra 20
 292 8022 20 20                 bra 20
 293 8024 20 20                 bra 20
 294 8026 20 20                 bra 20
 295 8028 20 20                 bra 20
 296 802A 20 20                 bra 20
 297 802C 20 20                 bra 20
 298 802E 20 00            .    bra 00
 299 8030 56              V     rorb
 300 8031 45              E     illegal
 301 8032 4E              N     illegal
 302 8033 44              D     lsra
 303 8034 49              I     rola
 304 8035 4E              N     illegal
 305 8036 47              G     asra
 306 8037 20 4D            M    bra 4d
 307 8039 41              A     illegal
 308 803A 43              C     coma
 309 803B 48              H     asla
 310 803C 49              I     rola
 311 803D 4E              N     illegal
 312 803E 45              E     illegal
 313 803F 00              .     test
 314 8040 53              S     comb
 315 8041 4F              O     clra
 316 8042 46              F     rora
 317 8043 54              T     lsrb
 318 8044 57              W     asrb
 319 8045 41              A     illegal
 320 8046 52              R     illegal
 321 8047 45              E     illegal
 322 8048 20 57            W    bra 57
 323 804A 52              R     illegal
 324 804B 4F              O     clra
 325 804C 54              T     lsrb
 326 804D 45              E     illegal
 327 804E 20 00            .    bra 00
 328 8050 42              B     illegal
 329 8051 59              Y     rolb
 330 8052 20 42            B    bra 42
 331 8054 52              R     illegal
 332 8055 45              E     illegal
 333 8056 54              T     lsrb
 334 8057 20 42            B    bra 42
 335 8059 4F              O     clra
 336 805A 52              R     illegal
 337 805B 45              E     illegal
 338 805C 4E              N     illegal
 339 805D 2E 20           .     bgt 20
 340 805F 00              .     test
 341 8060 20 20                 bra 20
 342 8062 20 20                 bra 20
 343 8064 20 20                 bra 20
 344 8066 20 20                 bra 20
 345 8068 20 20                 bra 20
 346 806A 20 20                 bra 20
 347 806C 20 20                 bra 20
 348 806E 20 00            .    bra 00
 349 8070 50              P     negb
 350 8071 52              R     illegal
 351 8072 4F              O     clra
 352 8073 47              G     asra
 353 8074 52              R     illegal
 354 8075 41              A     illegal
 355 8076 4D              M     tsta
 356 8077 20 46            F    bra 46
 357 8079 4F              O     clra
 358 807A 52              R     illegal
 359 807B 20 54            T    bra 54
 360 807D 48              H     asla
 361 807E 45              E     illegal
 362 807F 00              .     test
 363 8080 35              5     txs
 364 8081 30              0     tsx
 365 8082 35              5     txs
 366 8083 20 41            A    bra 41
 367 8085 4E              N     illegal
 368 8086 44              D     lsra
 369 8087 20 35            5    bra 35
 370 8089 39              9     rts
 371 808A 30              0     tsx
 372 808B 30              0     tsx
 373 808C 2E 20           .     bgt 20
 374 808E 20 00            .    bra 00
 375 8090 20 20                 bra 20
 376 8092 20 20                 bra 20
 377 8094 20 20                 bra 20
 378 8096 20 20                 bra 20
 379 8098 20 20                 bra 20
 380 809A 20 20                 bra 20
 381 809C 20 20                 bra 20
 382 809E 20 00            .    bra 00
 383 80A0 50              P     negb
 384 80A1 41              A     illegal
 385 80A2 52              R     illegal
 386 80A3 54              T     lsrb
 387 80A4 20 4E            N    bra 4e
 388 80A6 55              U     illegal
 389 80A7 4D              M     tsta
 390 80A8 42              B     illegal
 391 80A9 45              E     illegal
 392 80AA 52              R     illegal
 393 80AB 3A              :     abx
 394 80AC 20 20                 bra 20
 395 80AE 20 00            .    bra 00
 396 80B0 39              9     rts
 397 80B1 33              3     pulb
 398 80B2 37              7     pshb
 399 80B3 2D 33           -3    blt 33
 400 80B5 30              0     tsx
 401 80B6 30              0     tsx
 402 80B7 30              0     tsx
 403 80B8 31              1     ins
 404 80B9 20 56            V    bra 56
 405 80BB 45              E     illegal
 406 80BC 52              R     illegal
 407 80BD 20 35            5    bra 35
 408 80BF 00              .     test
 409 80C0 43              C     coma
 410 80C1 48              H     asla
 411 80C2 45              E     illegal
 412 80C3 43              C     coma
 413 80C4 4B              K     illegal
 414 80C5 53              S     comb
 415 80C6 55              U     illegal
 416 80C7 4D              M     tsta
 417 80C8 20 45            E    bra 45
 418 80CA 4E              N     illegal
 419 80CB 44              D     lsra
 420 80CC 3A              :     abx
 421 80CD 30              0     tsx
 422 80CE 30              0     tsx
 423 80CF 00              .     test
 424 80D0 20 20                 bra 20
 425 80D2 20 20                 bra 20
 426 80D4 20 20                 bra 20
 427 80D6 20 20                 bra 20
 428 80D8 20 20                 bra 20
 429 80DA 20 20                 bra 20
 430 80DC 20 20                 bra 20
 431 80DE 20 00            .    bra 00
 432 80E0 20 20                 bra 20
 433 80E2 20 20                 bra 20
 434 80E4 20 20                 bra 20
 435 80E6 20 20                 bra 20
 436 80E8 20 20                 bra 20
 437 80EA 20 20                 bra 20
 438 80EC 20 20                 bra 20
 439 80EE 20 00            .    bra 00
 440 80F0 20 20                 bra 20
 441 80F2 20 20                 bra 20
 442 80F4 20 20                 bra 20
 443 80F6 20 20                 bra 20
 444 80F8 00              .     test
 445 80F9 20 0C            .    bra 0c
 446 80FB 93 73 00        .s.   subd 73
 447 80FE 01              .     nop
 448 80FF 05              .     asld
 449
 450 jump72:
 451 ; initial menu when door opens?
 452 8100 F6 00 1D        ...   ldab 001d
 453 8103 C4 10           ..    andb #10
 454 8105 27 3D           '=    beq 3d       ; to 8144
 455 8107 BD D6 52        ..R   jsr d652             ;jump5
 456 810A CE 00 1D        ...   ldx #001d
 457 810D 1D 00 10        ...   bclr 00,x, #10
 458 8110 CE 00 1D        ...   ldx #001d
 459 8113 1C 00 80        ..    bset 00,x, #80
 460 8116 7F 00 42        ..    clr 0042
 461 8119 7F 00 60        ..`   clr 0060
 462 811C 7F 00 48        ..H   clr 0048
 463 811F 7F 00 38        ..8   clr 0038
 464 8122 F6 0B A8        ...   ldab 0ba8
 465 8125 27 08           '.    beq 08
 466 8127 CE 0B A9        ...   ldx #0ba9
 467 812A 1C 00 02        ..    bset 00,x, #02
 468 812D 20 06            .    bra 06
 469 812F CE 0B A9        ...   ldx #0ba9
 470 8132 1D 00 02        ...   bclr 00,x, #02
 471 8135 7F 0E 00        ...   clr 0e00
 472 8138 7F 0E 01        ...   clr 0e01
 473 813B 7F 0E 02        ...   clr 0e02
 474 813E 7F 0E 03        ...   clr 0e03
 475 8141 7F 0E 04        ...   clr 0e04
 476 ;
 477 8144 F6 00 42        ..B   ldab 0042
 478 8147 C1 0B           ..    cmpb #0b
 479 8149 26 0F           &.    bne 0f
 480 814B BD AB 89        ...   jsr ab89             ;jump7
 481 814E 7F 00 19        ...   clr 0019
 482 8151 7F 00 60        ..`   clr 0060
 483 8154 7F 00 42        ..B   clr 0042
 484 8157 BD E6 1B        ...   jsr e61b             ;jump4
 485 815A F6 0B A8        ...   ldab 0ba8
 486 815D 26 03           &.    bne 03
 487 815F 7E 81 EF        ~..   jmp 81ef             ;goto1
 488 8162 F6 00 60        ..`   ldab 0060
 489 8165 C1 04           ..    cmpb #04
 490 8167 24 28           $(    bcc 28
 491 8169 F6 00 42        ..B   ldab 0042
 492 816C 27 21           '!    beq 21
 493 816E F6 00 42        ..B   ldab 0042
 494 8171 C1 0A           ..    cmpb #0a
 495 8173 26 03           &.    bne 03
 496 8175 7F 00 42        ..B   clr 0042
 497 8178 F6 00 42        ..B   ldab 0042
 498 817B CB 30           .0    addb #30
 499 817D 37              7     pshb
 500 817E F6 00 60        ..`   ldab 0060
 501 8181 4F              O     clra
 502 8182 C3 00 62        ..b   addd #0062
 503 8185 8F              .     xgdx
 504 8186 33              3     pulb
 505 8187 E7 00           ..    stab 00,x
 506 8189 7F 00 42        ..B   clr 0042
 507 818C 7C 00 60        |.`   inc 0060
 508 818F 20 5C            \    bra 5c
 509 8191 F6 00 62        ..b   ldab 0062
 510 8194 F1 0B A4        ...   cmpb 0ba4
 511 8197 26 3D           &=    bne 3d
 512 8199 F6 00 63        ..c   ldab 0063
 513 819C F1 0B A5        ...   cmpb 0ba5
 514 819F 26 35           &5    bne 35
 515 81A1 F6 00 64        ..d   ldab 0064
 516 81A4 F1 0B A6        ...   cmpb 0ba6
 517 81A7 26 2D           &-    bne 2d
 518 81A9 F6 00 65        ..e   ldab 0065
 519 81AC F1 0B A7        ...   cmpb 0ba7
 520 81AF 26 25           &%    bne 25
 521 81B1 CE 0B A9        ...   ldx #0ba9
 522 81B4 1D 00 02        ...   bclr 00,x, #02
 523 81B7 CE 00 1F        ...   ldx #001f
 524 81BA 1C 00 04        ..    bset 00,x, #04
 525 81BD CE 00 1F        ...   ldx #001f
 526 81C0 1C 00 80        ...   bset 00,x, #80
 527 81C3 CE 00 1D        ...   ldx #001d
 528 81C5 1C 00 10        ...   bset 00,x, #10
 529 81C9 CC 02 33        ..3   ldd #0233
 530 81CC FD 00 3B        ..;   std 003b
 531 81CF C6 05           ..    ldab #05
 532 81D1 F7 00 38        ..8   stab 0038
 533 81D4 20 17            .    bra 17
 534 81D6 7F 00 42        ..B   clr 0042
 535 81D9 7F 00 60        ..`   clr 0060
 536 81DC BD BE 69        ..i   jsr be69         ;displayreset
 537 81DF BD BE 4B        ..K   jsr be4b         ;displayblank
 538 81E2 CC B0 81        ...   ldd #b081    ;"NO  ACCESS"
 539 81E5 BD C0 BA        ...   jsr c0ba         ;display:
 540 81E8 C6 0A           ..    ldab #0a
 541 81EA F7 00 38        ..8   stab 0038
 542 81ED 20 03            .    bra 03
 543 goto1:
 544 81EF 7F 00 42        ..B   clr 0042
 545 81F2 F6 00 38        ..8   ldab 0038
 546 81F5 27 03           '.    beq 03
 547 81F7 7E 84 9F        ~..   jmp 849f             ;goto2
 548 81FA BD BE 4B        ..K   jsr be4b             ;displayblank
 549 81FD F6 00 48        ..H   ldab 0048
 550 8200 26 03           &.    bne 03
 551 8202 BD AB A2        ...   jsr aba2             ;jump8
 552 8205 F6 00 48        ..H   ldab 0048
 553 8208 4F              O     clra
 554 8209 BD FE 16        ...   jsr fe16             ;jump2
 555 820C 00 00                 ; hmmm.
 556 820E 00 0D           ....  ; list len-2
 557 8210 84 9F           ..
 558 8212 82 2E           ..
 559 8214 82 50           .P
 560 8216 82 B7           ..
 561 8218 82 D9           ..
 562 821A 83 40           .@
 563 821C 83 62           ..
 564 821E 83 A5           ..
 565 8220 82 C2           ..
 566 8222 83 DF           ..
 567 8224 83 FC           ..
 568 8226 84 19           ..
 569 8228 84 35           .5
 570 822A 84 51           .Q
 571 822C 84 78           .x    ; end of jump2 data
 572 822E F6 00 19        ...   ldab 0019
 573 8231 C4 01           ..    andb #01
 574 8233 27 13           '.    beq 13
 575 8235 CC AF F2        ...   ldd #aff2    ;"OVER CRNT="
 576 8238 BD C0 BA        ...   jsr c0ba             ;display:
 577 823B C6 0A           ..    ldab #0a
 578 823D F7 00 38        ..8   stab 0038
 579 8240 7F 00 54        ..T   clr 0054
 580 8243 7C 00 48        |.H   inc 0048
 581 8246 20 05            .    bra 05
 582 8248 C6 02           ..    ldab #02
 583 824A F7 00 48        ..H   stab 0048
 584 824D 7E 84 9F        ~..   jmp 849f             ;goto2
 585 8250 F6 00 54        ..T   ldab 0054
 586 8253 4F              O     clra
 587 8254 CE 00 05        ...   ldx #0005
 588 8257 02              .     idiv
 589 8258 5D              ]     tstb
 590 8259 27 4C           'L    beq 4c
 591 825B F6 00 54        ..T   ldab 0054
 592 825E F7 00 06        ...   stab 0006
 593 8261 F6 00 06        ...   ldab 0006
 594 8264 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
 595 8267 83 00 00        ...   subd #0000
 596 826A 27 15           '.    beq 15
 597 826C CC 7F FF        ...   ldd #7fff
 598 826F 37              7     pshb
 599 8270 36              6     psha
 600 8271 F6 00 06        ...   ldab 0006
 601 8274 4F              O     clra
 602 8275 05              .     asld
 603 8276 C3 08 00        ...   addd #0800
 604 8279 38              8     pulx
 605 827A 8F              .     xgdx
 606 827B A4 00           ..    anda 00,x
 607 827D E4 01           ..    andb 01,x
 608 827F ED 00           ..    std 00,x
 609 8281 F6 00 54        ..T   ldab 0054
 610 8284 4F              O     clra
 611 8285 05              .     asld
 612 8286 C3 08 00        ...   addd #0800
 613 8289 8F              .     xgdx
 614 828A EC 00           ..    ldd 00,x
 615 828C 84 80           ..    anda #80
 616 828E 27 17           '.    beq 17
 617 8290 F6 00 54        ..T   ldab 0054
 618 8293 4F              O     clra
 619 8294 05              .     asld
 620 8295 C3 08 C8        ...   addd #08c8
 621 8298 8F              .     xgdx
 622 8299 EC 00           ..    ldd 00,x
 623 829B 84 02           ..    anda #02
 624 829D 27 08           '.    beq 08
 625 829F BD 98 A5        ...   jsr 98a5             ;jump11
 626 82A2 C6 0A           ..    ldab #0a
 627 82A4 F7 00 38        ..8   stab 0038
 628 82A7 7C 00 54        |.T   inc 0054
 629 82AA F6 00 54        ..T   ldab 0054
 630 82AD C1 64           .d    cmpb #64
 631 82AF 26 03           &.    bne 03
 632 82B1 7C 00 48        |.H   inc 0048
 633 82B4 7E 84 9F        ~..   jmp 849f             ;goto2
 634 82B7 F6 00 19        ...   ldab 0019
 635 82BA C4 02           ..    andb #02
 636 82BC 27 13           '.    beq 13
 637 82BE CC AF FD        ...   ldd #affd    "HOME FAIL="
 638 82C1 BD C0 BA        ...   jsr c0ba             ;display:
 639 82C4 C6 0A           ..    ldab #0a
 640 82C6 F7 00 38        ..8   stab 0038
 641 82C9 7F 00 54        ..T   clr 0054
 642 82CC 7C 00 48        |.H   inc 0048
 643 82CF 20 05            .    bra 05
 644 82D1 C6 04           ..    ldab #04
 645 82D3 F7 00 48        ..H   stab 0048
 646 82D6 7E 84 9F        ~..   jmp 849f             ;goto2
 647 82D9 F6 00 54        ..T   ldab 0054
 648 82DC 4F              O     clra
 649 82DD CE 00 05        ...   ldx #0005
 650 82E0 02              .     idiv
 651 82E1 5D              ]     tstb
 652 82E2 27 4C           'L    beq 4c
 653 82E4 F6 00 54        ..T   ldab 0054
 654 82E7 F7 00 06        ...   stab 0006
 655 82EA F6 00 06        ...   ldab 0006
 656 82ED BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
 657 82F0 83 00 00        ...   subd #0000
 658 82F3 27 15           '.    beq 15
 659 82F5 CC 7F FF        ...   ldd #7fff
 660 82F8 37              7     pshb
 661 82F9 36              6     psha
 662 82FA F6 00 06        ...   ldab 0006
 663 82FD 4F              O     clra
 664 82FE 05              .     asld
 665 82FF C3 08 00        ...   addd #0800
 666 8302 38              8     pulx
 667 8303 8F              .     xgdx
 668 8304 A4 00           ..    anda 00,x
 669 8306 E4 01           ..    andb 01,x
 670 8308 ED 00           ..    std 00,x
 671 830A F6 00 54        ..T   ldab 0054
 672 830D 4F              O     clra
 673 830E 05              .     asld
 674 830F C3 08 00        ...   addd #0800
 675 8312 8F              .     xgdx
 676 8313 EC 00           ..    ldd 00,x
 677 8315 84 80           ..    anda #80
 678 8317 27 17           '.    beq 17
 679 8319 F6 00 54        ..T   ldab 0054
 680 831C 4F              O     clra
 681 831D 05              .     asld
 682 831E C3 08 C8        ...   addd #08c8
 683 8321 8F              .     xgdx
 684 8322 EC 00           ..    ldd 00,x
 685 8324 84 04           ..    anda #04
 686 8326 27 08           '.    beq 08
 687 8328 BD 98 A5        ...   jsr 98a5             ;jump11
 688 832B C6 0A           ..    ldab #0a
 689 832D F7 00 38        ..8   stab 0038
 690 8330 7C 00 54        |.T   inc 0054
 691 8333 F6 00 54        ..T   ldab 0054
 692 8336 C1 64           .d    cmpb #64
 693 8338 26 03           &.    bne 03
 694 833A 7C 00 48        |.H   inc 0048
 695 833D 7E 84 9F        ~..   jmp 849f             ;goto2
 696 8340 F6 00 19        ...   ldab 0019
 697 8343 C4 04           ..    andb #04
 698 8345 27 13           '.    beq 13
 699 8347 CC B0 08        ...   ldd #b008    ; "CHK PRICES"
 700 834A BD C0 BA        ...   jsr c0ba             ;display:
 701 834D C6 0A           ..    ldab #0a
 702 834F F7 00 38        ..8   stab 0038
 703 8352 7F 00 54        ..T   clr 0054
 704 8355 7C 00 48        |.H   inc 0048
 705 8358 20 05            .    bra 05
 706 835A C6 06           ..    ldab #06
 707 835C F7 00 48        ..H   stab 0048
 708 835F 7E 84 9F        ~..   jmp 849f             ;goto2
 709 8362 F6 00 54        ..T   ldab 0054
 710 8365 4F              O     clra
 711 8366 CE 00 05        ...   ldx #0005
 712 8369 02              .     idiv
 713 836A 5D              ]     tstb
 714 836B 27 28           '(    beq 28
 715 836D F6 00 54        ..T   ldab 0054
 716 8370 F7 00 06        ...   stab 0006
 717 8373 F6 00 06        ...   ldab 0006
 718 8376 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
 719 8379 83 00 00        ...   subd #0000
 720 837C 26 17           &.    bne 17
 721 837E F6 00 54        ..T   ldab 0054
 722 8381 4F              O     clra
 723 8382 05              .     asld
 724 8383 C3 08 C8        ...   addd #08c8
 725 8386 8F              .     xgdx
 726 8387 EC 00           ..    ldd 00,x
 727 8389 84 01           ..    anda #01
 728 838B 27 08           '.    beq 08
 729 838D BD 98 A5        ...   jsr 98a5             ;jump11
 730 8390 C6 0A           ..    ldab #0a
 731 8392 F7 00 38        ..8   stab 0038
 732 8395 7C 00 54        |.T   inc 0054
 733 8398 F6 00 54        ..T   ldab 0054
 734 839B C1 64           .d    cmpb #64
 735 839D 26 03           &.    bne 03
 736 839F 7C 00 48        |.H   inc 0048
 737 83A2 7E 84 9F        ~..   jmp 849f             ;goto2
 738 ;
 739 83A5 F6 0B C1        ...   ldab 0bc1
 740 83A8 C4 01           ..    andb #01
 741 83AA 27 10           '.    beq 10
 742 83AC CC B0 34        ..4   ldd #b034    "CHGR PWRUP"
 743 83AF BD C0 BA        ...   jsr c0ba             ;display:
 744 83B2 7C 00 48        |.H   inc 0048
 745 83B5 C6 0A           ..    ldab #0a
 746 83B7 F7 00 38        ..8   stab 0038
 747 83BA 20 03            .    bra 03
 748 83BC 7C 00 48        |.H   inc 0048
 749 83BF 7E 84 9F        ~..   jmp 849f             ;goto2
 750 83C2 F6 0B C1        ...   ldab 0bc1
 751 83C5 C4 02           ..    andb #02
 752 83C7 27 10           '.    beq 10
 753 83C9 CC B0 4A        ..J   ldd #b04a    "CARD PWRUP"
 754 83CC BD C0 BA        ...   jsr c0ba             ;display:
 755 83CF 7C 00 48        |.H   inc 0048
 756 83D2 C6 0A           ..    ldab #0a
 757 83D4 F7 00 38        ..8   stab 0038
 758 83D7 20 03            .    bra 03
 759 83D9 7C 00 48        |.H   inc 0048
 760 83DC 7E 84 9F        ~..   jmp 849f             ;goto2
 761 83DF F6 0B C1        ...   ldab 0bc1
 762 83E2 C4 04           ..    andb #04
 763 83E4 27 10           '.    beq 10
 764 83E6 CC B0 3F        ..?   ldd #b03f    "LINK PWRUP"
 765 83E9 BD C0 BA        ...   jsr c0ba             ;display:
 766 83EC 7C 00 48        |.H   inc 0048
 767 83EF C6 0A           ..    ldab #0a
 768 83F1 F7 00 38        ..8   stab 0038
 769 83F4 20 03            .    bra 03
 770 83F6 7C 00 48        |.H   inc 0048
 771 83F9 7E 84 9F        ~..   jmp 849f             ;goto2
 772 83FC F6 0B C1        ...   ldab 0bc1
 773 83FF C4 10           ..    andb #10
 774 8401 27 10           '.    beq 10
 775 8403 CC B0 1E        ...   ldd #b01e    "COIN   JAM"
 776 8406 BD C0 BA        ...   jsr c0ba             ;display:
 777 8409 7C 00 48        |.H   inc 0048
 778 840C C6 0A           ..    ldab #0a
 779 840E F7 00 38        ..8   stab 0038
 780 8411 20 03            .    bra 03
 781 8413 7C 00 48        |.H   inc 0048
 782 8416 7E 84 9F        ~..   jmp 849f             ;goto2
 783 8419 F6 0B C1        ...   ldab 0bc1
 784 841C C4 20           .     andb #20
 785 841E 27 10           '.    beq 10
 786 8420 CC B0 29        ..)   ldd #b029    "BAD SENSOR"
 787 8423 BD C0 BA        ...   jsr c0ba             ;display:
 788 8426 7C 00 48        |.H   inc 0048
 789 8429 C6 0A           ..    ldab #0a
 790 842B F7 00 38        ..8   stab 0038
 791 842E 20 03            .    bra 03
 792 8430 7C 00 48        |.H   inc 0048
 793 8433 20 6A            j    bra 6a
 794 8435 F6 0B C1        ...   ldab 0bc1
 795 8438 C4 08           ..    andb #08
 796 843A 27 10           '.    beq 10
 797 843C CC B0 55        ..U   ldd #b055    "BILL ERROR"
 798 843F BD C0 BA        ...   jsr c0ba             ;display:
 799 8442 7C 00 48        |.H   inc 0048
 800 8445 C6 0A           ..    ldab #0a
 801 8447 F7 00 38        ..8   stab 0038
 802 844A 20 03            .    bra 03
 803 844C 7C 00 48        |.H   inc 0048
 804 844F 20 4E            N    bra 4e
 805 8451 F6 0B C1        ...   ldab 0bc1
 806 8454 C4 40           .@    andb #40
 807 8456 27 10           '.    beq 10
 808 8458 CC B0 60        ..`   ldd #b060    "TUBE ERROR"
 809 845B BD C0 BA        ...   jsr c0ba             ;display:
 810 845E 7F 00 48        ..H   clr 0048
 811 8461 C6 0A           ..    ldab #0a
 812 8463 F7 00 38        ..8   stab 0038
 813 8466 20 0E            .    bra 0e
 814 8468 7F 00 48        ..H   clr 0048
 815 846B CC B0 13        ...   ldd #b013    "HIT RESET "
 816 846E BD C0 BA        ...   jsr c0ba              ;display:
 817 8471 C6 0A           ..    ldab #0a
 818 8473 F7 00 38        ..8   stab 0038
 819 8476 20 27            '    bra 27       ; to 849f (exit)
 820 8478 F6 00 1D        ...   ldab 001d
 821 847B 2C 0E           ,.    bge 0e
 822 847D CC AE A8        ...   ldd #aea8    "  SYSTEM  "
 823 8480 BD C0 BA        ...   jsr c0ba             ;display:
 824 8483 CE 00 1D        ...   ldx #001d
 825 8486 1D 00 80        ..    bclr 00,x, #80
 826 8489 20 0C           .     bra 0c       ; to 8496
 827 848B CC AE B3        ...   ldd #aeb3    "    OK    "
 828 848E BD C0 BA        ...   jsr c0ba             ;display:
 829 8491 CE 00 1D        ...   ldx #001d
 830 8494 1C 00 80        ..    bset 00,x, #80
 831 8496 C6 0F           ..    ldab #0f
 832 8499 F7 00 38        ..8   stab 0038
 833 849C 7F 00 48        ..H   clr 0048
 834 goto2:
 835 849F 39              9     rts
 836
 837 jump73:
 838 ; service mode menu?
 839 84A0 FC 00 3B        ..;   ldd 003b
 840 84A3 26 03           &.    bne 03
 841 84A5 7E 85 96        ~..   jmp 8596             ;goto3
 842 84A8 F6 00 1F        ...   ldab 001f
 843 84AB 2C 40           ,@    bge 40
 844 84AD BD D6 52        ..R   jsr d652             ;jump5
 845 84B0 7F 00 42        ..B   clr 0042
 846 84B3 7F 00 09        ...   clr 0009
 847 84B6 7F 00 0A        ...   clr 000a
 848 84B9 7F 00 06        ...   clr 0006
 849 84BC 5F              _     clrb
 850 84BD 4F              O     clra
 851 84BE FD 00 40        ..@   std 0040
 852 84C1 5F              _     clrb
 853 84C2 4F              O     clra
 854 84C3 FD 00 3E        ..>   std 003e
 855 84C6 BD E5 AA        ...   jsr e5aa             ;jump12
 856 84C9 CE 00 1F        ...   ldx #001f
 857 84CC 1D 00 80        ..    bclr 00,x, #80
 858 84CF CE 00 1F        ..    ldx #001f
 859 84D2 1C 00 02        ....  bset 00,x, #02
 860 84D5 CE 00 1D        ...   ldx #001d
 861 84D8 1C 00 10        ..    bset 00,x, #10
 862 84DB CE 00 17        ...   ldx #0017
 863 84DE 1D 00 20        ..    bclr 00,x, #20
 864 84E0 CE 00 17         .    ldx #0017
 865 84E4 1D 00 40        ..    bclr 00,x, #40
 866 84E7 CE 00 17        ...   ldx #0017
 867 84EA 1D 00 80        ..    bclr 00,x, #80
 868 84EC F6 0B A9        ...   ldab 0ba9
 869 84F0 C4 02           ..    andb #02
 870 84F2 27 20           '     beq 20       ; to 8414
 871 84F4 F6 00 42        ..B   ldab 0042
 872 84F7 4F              O     clra
 873 84F8 C3 0B E4        ...   addd #0be4
 874 84FB 8F              .     xgdx
 875 84FC E6 00           ..    ldab 00,x
 876 84FE 27 14           '.    beq 14
 877 8500 BD BE 4B        ..K   jsr be4b             ;displayblank
 878 8503 CC B0 81        ...   ldd #b081    ;"NO  ACCESS"
 879 8506 BD C0 BA        ...   jsr c0ba             ;display:
 880 8509 CC 02 58        ..X   ldd #0258    ;600
 881 850C BD E5 71        ..q   jsr e571             ;msdelay
 882 850F BD 85 AF        ...   jsr 85af             ;jump14
 883 8512 20 6C            l    bra 6c       ; to 8580
 884 ;
 885 8514 F6 00 42        ..B   ldab 0042
 886 8517 4F              O     clra
 887 8518 BD FE 16        ...   jsr fe16             ;jump2
 888 851B 00 00           .
 889 851C 00 0B           .
 890 851F 85 80           ..    ; default action - leave menu?
 891 8521 85 39           .9    ; 0 - no key pressed
 892 8523 85 4A           .J    ; key 1 - changer loading & calibration
 893 8525 85 4F           .O    ; key 2 - win-a-snack odds programming
 894 8527 85 54           .T    ; key 3 - set pricing
 895 8529 85 59           .Y    ; key 4 - smart shopping discount
 896 852B 85 5E           .^    ; key 5 - manual peripheral config
 897 852D 85 63           .c    ; key 6 - promo vend-pair programming
 898 852F 85 68           .h    ; key 7 - POS message & serial id
 899 8531 85 6D           .m    ; key 8 - print info
 900 8533 85 72           .r    ; key 9 - security code programming
 901 8535 85 77           .w    ; key 0 - motor menu
 902 8537 85 7C           .|    ; reset key -
 903 ;
 904 8539 CC AE 92        ...   ldd #ae92    "-         "
 905 853C BD C0 BA        ...   jsr c0ba         ;display:
 906 853F 7F 00 42        ..B   clr 0042
 907 8542 CE 00 1F        ...   ldx #001f
 908 8545 1C 00 02        ..    bset 00,x, #02
 909 8548 20 36            6    bra 36
 910 854A BD 86 84        ...   jsr 8684             ;jump15
 911 854D 20 31            1    bra 31
 912 854F BD 88 2E        ...   jsr 882e             ;jump16
 913 8552 20 2C            ,    bra 2c
 914 8554 BD 88 B8        ...   jsr 88b8             ;jump17
 915 8557 20 27            '    bra 27
 916 8559 BD 8C B4        ...   jsr 8cb4             ;jump18
 917 855C 20 22            "    bra 22
 918 855E BD 8E 35        ..5   jsr 8e35             ;jump19
 919 8561 20 1D            .    bra 1d
 920 8563 BD 8F 0D        ...   jsr 8f0d             ;jump20
 921 8566 20 18            .    bra 18
 922 8568 BD 90 D1        ...   jsr 90d1             ;jump21
 923 856B 20 13            .    bra 13
 924 856D BD 92 EE        ...   jsr 92ee             ;jump22
 925 8570 20 0E            .    bra 0e
 926 8572 BD 93 A5        ...   jsr 93a5             ;jump23
 927 8575 20 09            .    bra 09
 928 8577 BD 94 DD        ...   jsr 94dd             ;jump24
 929 857A 20 04            .    bra 04
 930 857C 8D 31           .1    bsr 31       ;jump14
 931 857E 20 00            .    bra 00
 932 ;
 933 8580 7F 00 0A        ...   clr 000a
 934 8583 F6 00 42        ..B   ldab 0042
 935 8586 C1 0A           ..    cmpb #0a
 936 8588 27 0A           '.    beq 0a
 937 858A F6 00 42        ..B   ldab 0042
 938 858D C1 07           ..    cmpb #07
 939 858F 27 03           '.    beq 03
 940 8591 7F 00 09        ...   clr 0009
 941 8594 20 18            .    bra 18
 942 goto3:
 943 8596 CE 00 1F        ...   ldx #001f
 944 8599 1D 00 04        ...   bclr 00,x, #04
 945 859C CE 00 1F        ...   ldx #001f
 946 859F 1C 00           ..    bset 00,x, #80
 947 85A2 CE 00 1D        ...   ldx #001d
 948 85A5 1C 00 10        ...   bset 00,x, #10
 949 85A8 BD BE 69        ..i   jsr be69             ;displayreset
 950 85AB BD E5 AA        ...   jsr e5aa             ;jump12
 951 85AE 39              9     rts
 952
 953 jump14:
 954 85AF 7F 00 42        ..B   clr 0042
 955 85B2 7F 00 06        ...   clr 0006
 956 85B5 CE 00 1F        ...   ldx #001f
 957 85B8 1C 00 02        ..    bset 00,x, #02
 958 85BB BD BE 69        ..i   jsr be69             ;displayreset
 959 85BE 39              9     rts
 960
 961 jump28:
 962 ; drop some change out of the changer?
 963 85BF F6 00 12        ...   ldab 0012
 964 85C2 C4 1E           ..    andb #1e     ; 00011110
 965 85C4 4F              O     clra
 966 85C5 BD FE 32        ..2   jsr fe32             ;jump25
 967 85C8 85 DE 00 0E     ....  ; 14  000 0111 0
 968 85CC 86 08 00 08     ....  ; 22  000 1011 0
 969 85D0 86 32 00 04     ....  ; 26  000 1101 0
 970 85D4 86 5C 00 02     ....  ; 28  000 1110 0
 971 85D8 86 83 FF E4     ....  ; 0
 972 85DC 00 00           ..    ; end of array
 973 85DE F6 0B DC        ...   ldab 0bdc
 974 85E1 F7 00 01        ...   stab 0001
 975 85E4 BD C4 30        ..0   jsr c430             ;jump26
 976 85E7 C6 01           ..    ldab #01
 977 85E9 F7 00 48        ..H   stab 0048
 978 85EC 7F 00 2C        ..,   clr 002c
 979 85EF F6 0C D9        ...   ldab 0cd9
 980 85F2 27 03           '.    beq 03
 981 85F4 7A 0C D9        z..   dec 0cd9     ; decrement number of 5c coins
 982 85F7 BD 97 F6        ...   jsr 97f6             ;jump27
 983 85FA CC 01 5E        ..^   ldd #015e
 984 85FD BD E5 71        ..q   jsr e571             ;msdelay
 985 8600 CC 02 33        ..3   ldd #0233
 986 8603 FD 00 3B        ..;   std 003b
 987 8606 20 7B            {    bra 7b
 988 8608 F6 0B DB        ...   ldab 0bdb
 989 860B F7 00 01        ...   stab 0001
 990 860E BD C4 30        ..0   jsr c430             ;jump26
 991 8611 C6 02           ..    ldab #02
 992 8613 F7 00 48        ..H   stab 0048
 993 8616 7F 00 2C        ..,   clr 002c
 994 8619 F6 0C DA        ...   ldab 0cda
 995 861C 27 03           '.    beq 03
 996 861E 7A 0C DA        z..   dec 0cda     ; decrement number of 10c coins
 997 8621 BD 97 F6        ...   jsr 97f6             ;jump27
 998 8624 CC 01 5E        ..^   ldd #015e
 999 8627 BD E5 71        ..q   jsr e571             ;msdelay
1000 862A CC 02 33        ..3   ldd #0233
1001 862D FD 00 3B        ..;   std 003b
1002 8630 20 51            Q    bra 51
1003 8632 F6 0B DA        ...   ldab 0bda
1004 8635 F7 00 01        ...   stab 0001
1005 8638 BD C4 30        ..0   jsr c430             ;jump26
1006 863B C6 03           ..    ldab #03
1007 863D F7 00 48        ..H   stab 0048
1008 8640 7F 00 2C        ..,   clr 002c
1009 8643 F6 0C DB        ...   ldab 0cdb
1010 8646 27 03           '.    beq 03
1011 8648 7A 0C DB        z..   dec 0cdb     ; decrement number of 20c coins
1012 864B BD 97 F6        ...   jsr 97f6             ;jump27
1013 864E CC 01 5E        ..^   ldd #015e
1014 8651 BD E5 71        ..q   jsr e571             ;msdelay
1015 8654 CC 02 33        ..3   ldd #0233
1016 8657 FD 00 3B        ..;   std 003b
1017 865A 20 27            '    bra 27
1018 865C C6 40           .@    ldab #40
1019 865E F7 00 01        ...   stab 0001
1020 8661 BD C4 30        ..0   jsr c430             ;jump26
1021 8664 C6 04           ..    ldab #04
1022 8666 F7 00 48        ..H   stab 0048
1023 8669 7F 00 2C        ..,   clr 002c
1024 866C F6 0C DC        ...   ldab 0cdc
1025 866F 27 03           '.    beq 03
1026 8671 7A 0C DC        z..   dec 0cdc     ; decrement number of $1 coins
1027 8674 BD 97 F6        ...   jsr 97f6             ;jump27
1028 8677 CC 01 5E        ..^   ldd #015e
1029 867A BD E5 71        ..q   jsr e571             ;msdelay
1030 867D CC 02 33        ..3   ldd #0233
1031 8680 FD 00 3B        ..;   std 003b
1032 8683 39              9     rts
1033
1034 jump15:
1035 ; changer load & calibrate menu
1036 8684 F6 00 1F        ...   ldab 001f
1037 8687 C4 02           ..    andb #02
1038 8689 27 2B           '+    beq 2b
1039 868B CE 00 1F        ...   ldx #001f
1040 868E 1D 00 02        ...   bclr 00,x, #02
1041 8691 C6 01           ..    ldab #01
1042 8693 F7 00 48        ..H   stab 0048
1043 8696 F6 0B C0        ...   ldab 0bc0
1044 8699 C4 01           ..    andb #01
1045 869B 27 16           '.    beq 16
1046 869D C6 27           .'    ldab #27
1047 869F F7 10 2D        ..-   stab 102d    ; disable SCI transmission
1048 86A2 C6 07           ..    ldab #07
1049 86A4 F7 10 2B        ..+   stab 102b    ; 600 baud
1050 86A7 CE 00 1A        ...   ldx #001a
1051 86AA 1D 00 01        ..    bclr 00,x, #01
1052 86AD F6 00 1A        ...   ldab 001a
1053 86B0 F7 30 00        .0.   stab 3000    ; changer accept on
1054 86B3 7E 87 E8        ~..   jmp 87e8             ;goto4
1055 86B6 F6 00 09        ...   ldab 0009
1056 86B9 4F              O     clra
1057 86BA BD FE 32        ..2   jsr fe32             ;jump25
1058 86BD 86 D7 00 00     ....  ; no key
1059 86C1 87 39 00 01     ....  ; key 1
1060 86C5 87 75 00 01     ....  ; key 2
1061 86C9 87 C5 00 08     ....  ; key 0
1062 86CD 87 D9 00 01     ....  ; key reset
1063 86D1 87 E8 FF F5     ....  ; no key
1064 86D5 00 00           ..    ; end of array data
1065 86D7 C6 FF           ..    ldab #ff
1066 86D9 F7 0B BC        ...   stab 0bbc
1067 86DC F6 18 00        ...   ldab 1800
1068 86DF 2D 29           -)    blt 29
1069 86E1 F6 00 07        ...   ldab 0007
1070 86E4 26 24           &$    bne 24
1071 86E6 CE 00 1A        ...   ldx #001a
1072 86E9 1D 00 02        ..    bclr 00,x, #02
1073 86EC F6 00 1A        ...   ldab 001a
1074 86EF F7 30 00        .0.   stab 3000    ; send msg to changer?
1075 86F2 CC 00 32        ..2   ldd #0032
1076 86F5 BD E5 71        ..q   jsr e571             ;msdelay
1077 86F8 CE 00 1A        ...   ldx #001a
1078 86FB 1C 00 02        ..    bset 00,x, #02
1079 86FE F6 00 1A        ...   ldab 001a
1080 8701 F7 30 00        .0.   stab 3000    ; turn changer send line off
1081 8704 CC 02 33        ..3   ldd #0233
1082 8707 FD 00 3B        ..;   std 003b
1083 870A 5F              _     clrb
1084 870B 4F              O     clra
1085 870C FD 00 40        ..@   std 0040
1086 870F 5F              _     clrb
1087 8710 4F              O     clra
1088 8711 FD 00 3E        ..>   std 003e
1089 8714 F6 0B C0        ...   ldab 0bc0
1090 8717 C4 01           ..    andb #01
1091 8719 27 03           '.    beq 03
1092 871B BD 85 BF        ...   jsr 85bf             ;jump28
1093 871E BD DC A3        ...   jsr dca3             ;jump29
1094 8721 BD 97 F6        ...   jsr 97f6             ;jump27
1095 8724 CE 00 17        ...   ldx #0017
1096 8727 1D 00           ..    bclr add,x 00,x
1097 8729 20 CE            .    bra ce
1098 872B 00              .     test
1099 872C 17              .     tba
1100 872D 1D 00 40        ...   bclr 00,x, #40
1101 8730 CE 00 17        ...   ldx #0017
1102 8733 1D 00           ..    bclr add,x 00,x
1103 8735 80 7E           .~    suba #7e
1104 8737 87              .     illegal
1105 8738 E8 F6           ..    eorb f6,x
1106 873A 00              .     test
1107 873B 36              6     psha
1108 873C 26 2F           &/    bne 2f
1109 873E F6 00 48        ..H   ldab 0048
1110 8741 4F              O     clra
1111 8742 BD FE 16        ...   jsr fe16             ;jump2
1112 8745 00 01 00 03     .     ; data for jump2
1113 8749 87 65           .
1114 874B 87 53           .
1115 874D 87 58           .
1116 874F 87 5D           .
1117 8751 87 62           .     ; end of data
1118 8753 7C 0C D9        |..   inc 0cd9
1119 8756 20 0D            .    bra 0d
1120 8758 7C 0C DA        |..   inc 0cda
1121 875B 20 08            .    bra 08
1122 875D 7C 0C DB        |..   inc 0cdb
1123 8760 20 03            .    bra 03
1124 8762 7C 0C DC        |..   inc 0cdc
1125 8765 BD 97 F6        ...   jsr 97f6             ;jump27
1126 8768 C6 02           ..    ldab #02
1127 876A F7 00 36        ..6   stab 0036
1128 876D CE 00 1B        ...   ldx #001b
1129 8770 1C 00 10        ...   bset 00,x, #10
1130 8773 20 73            s    bra 73
1131 8775 F6 00 36        ..6   ldab 0036
1132 8778 26 43           &C    bne 43
1133 877A F6 00 48        ..H   ldab 0048
1134 877D 4F              O     clra
1135 877E BD FE 16        ...   jsr fe16             ;jump2
1136 8781 00              .     test
1137 8782 01              .     nop
1138 8783 00              .     test
1139 8784 03              .     fdiv
1140 8785 87              .     illegal
1141 8786 B5 87 8F        ...   bita 878f
1142 8789 87              .     illegal
1143 878A 99 87 A3        ...   adca 87
1144 878D 87              .     illegal
1145 878E AD F6           ..    jsr f6,x
1146 8790 0C              .     clc
1147 8791 D9 27 03        .'.   adcb 27
1148 8794 7A 0C D9        z..   dec 0cd9
1149 8797 20 1C            .    bra 1c
1150 8799 F6 0C DA        ...   ldab 0cda
1151 879C 27 03           '.    beq 03
1152 879E 7A 0C DA        z..   dec 0cda
1153 87A1 20 12            .    bra 12
1154 87A3 F6 0C DB        ...   ldab 0cdb
1155 87A6 27 03           '.    beq 03
1156 87A8 7A 0C DB        z..   dec 0cdb
1157 87AB 20 08            .    bra 08
1158 87AD F6 0C DC        ...   ldab 0cdc
1159 87B0 27 03           '.    beq 03
1160 87B2 7A 0C DC        z..   dec 0cdc
1161 87B5 BD 97 F6        ...   jsr 97f6             ;jump27
1162 87B8 C6 02           ..    ldab #02
1163 87BA F7 00 36        ..6   stab 0036
1164 87BD CE 00 1B        ...   ldx #001b
1165 87C0 1C 00 10        ...   bset 00,x, #10
1166 87C3 20 23            #    bra 23
1167 87C5 7C 00 48        |.H   inc 0048
1168 87C8 F6 00 48        ..H   ldab 0048
1169 87CB C1 04           ..    cmpb #04
1170 87CD 23 05           #.    bls 05
1171 87CF C6 01           ..    ldab #01
1172 87D1 F7 00 48        ..H   stab 0048
1173 87D4 BD 97 F6        ...   jsr 97f6             ;jump27
1174 87D7 20 0F            .    bra 0f
1175 87D9 CE 00 1A        ...   ldx #001a
1176 87DC 1C 00 01        ..    bset 00,x, #01
1177 87DF F6 00 1A        ...   ldab 001a
1178 87E2 F7 30 00        .0.   stab 3000    ; turn changer accept line off
1179 87E5 BD 85 AF        ...   jsr 85af             ;jump14
1180 goto4:
1181 87E8 39              9     rts
1182
1183 jump74:
1184 ;motor count procedure
1185 87E9 7F 00 05        ...   clr 0005
1186 87EC 7F 00 54        ..T   clr 0054
1187 87EF F6 00 54        ..T   ldab 0054
1188 87F2 C1 50           .P    cmpb #50     ; 80 entries in lookup table
1189 87F4 24 2E           $.    bcc 2e       ; to 8824
1190 87F6 F6 00 54        ..T   ldab 0054
1191 87F9 4F              O     clra
1192 87FA C3 B0 D3        ...   addd #b0d3   ; lookup table
1193 87FD 8F              .     xgdx
1194 87FE E6 00           ..    ldab 00,x
1195 8800 F7 00 06        ...   stab 0006
1196 8803 F6 00 06        ...   ldab 0006
1197 8806 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
1198 8809 83 00 00        ...   subd #0000
1199 880C 26 11           &.    bne 11
1200 880E BD D3 11        ...   jsr d311             ;jump30 - test it
1201 8811 83 00 00        ...   subd #0000
1202 8814 26 03           &.    bne 03
1203 8816 7C 00 05        |..   inc 0005
1204 8819 CC 00 05        ...   ldd #0005
1205 881C BD E5 71        ..q   jsr e571             ;msdelay
1206 881F 7C 00 54        |.T   inc 0054
1207 8822 20 CB            .    bra cb
1208 8824 BD 99 81        ...   jsr 9981             ;jump144 - write "MOTORS XX" (from 0005)
1209 8827 CC 07 D0        ...   ldd #07d0
1210 882A BD E5 71        ..q   jsr e571             ;msdelay
1211 882D 39              9     rts
1212
1213 jump16:
1214 882E F6 00 1F        ...   ldab 001f
1215 8831 C4 02           ..    andb #02
1216 8833 27 12           '.    beq 12
1217 8835 FC 0B B5        ...   ldd 0bb5
1218 8838 C4 FF           ..    andb #ff
1219 883A 84 01           ..    anda #01
1220 883C FD 00 52        ..R   std 0052
1221 883F CE 00 1F        ...   ldx #001f
1222 8842 1D 00 02        ...   bclr 00,x, #02
1223 8845 20 70            p    bra 70
1224 8847 F6 00 09        ...   ldab 0009
1225 884A 4F              O     clra
1226 884B BD FE 32        ..2   jsr fe32             ;jump25
1227 884E 88 68 00 00     ....  ; cancel.
1228 8852 88 6D 00 01     ....  ; key 1 - increment
1229 8856 88 83 00 01     ....  ; key 2 - decrement
1230 885A 88 A7 00 08     ....  ; key 0 - saving
1231 885E 88 B4 00 01     ....  ; reset
1232 8862 88 B7 FF F5     ....  ; no key - return
1233 8866 00 00           ....  ; end of array data
1234 ;
1235 8868 BD 9A 05        ...   jsr 9a05             ;jump102 - write ODDS 1/
1236 886B 20 4A            J    bra 4a       ; to 88b7 - return
1237 ; increment 50
1238 886D FC 00 52        ..R   ldd 0052
1239 8870 83 01 F4        ...   subd #01f4   ; 500
1240 8873 24 09           $.    bcc 09       ; dont let them go above 500
1241 8875 FC 00 52        ..R   ldd 0052
1242 8878 C3 00 32        ..2   addd #0032   ; +50
1243 887B FD 00 52        ..R   std 0052
1244 887E BD 9A 05        ...   jsr 9a05             ;jump102 - write ODDS 1/
1245 8881 20 34            4    bra 34
1246 ;
1247 8883 FC 00 52        ..R   ldd 0052
1248 8886 83 00 32        ..2   subd #0032   ; 50
1249 8889 23 17           #.    bls 17       ; dont let them go below 50
1250 888B FC 00 52        ..R   ldd 0052
1251 888E C3 FF CE        ...   addd #ffce   ; -50
1252 8891 FD 00 52        ..R   std 0052
1253 8894 FC 00 52        ..R   ldd 0052
1254 8897 83 00 32        ..2   subd #0032   ; 50
1255 889A 24 06           $.    bcc 06
1256 889C CC 00 32        ..2   ldd #0032   ; 100
1257 889F FD 00 52        ..R   std 0052
1258 88A2 BD 9A 05        ...   jsr 9a05             ;jump102 - write ODDS 1/
1259 88A5 20 10            .    bra 10
1260 ;
1261 88A7 BD A3 7C        ..|   jsr a37c             ;jump141 - save
1262 88AA 5F              _     clrb
1263 88AB 4F              O     clra
1264 88AC FD 0B B9        ...   std 0bb9
1265 88AF BD 85 AF        ...   jsr 85af             ;jump14
1266 88B2 20 03            .    bra 03
1267 88B4 BD 85 AF        ...   jsr 85af             ;jump14
1268 88B7 39              9     rts
1269
1270 jump17:
1271 ; set pricing
1272 88B8 F6 00 1F        ...   ldab 001f
1273 88BB C4 02           ..    andb #02
1274 88BD 26 0A           &.    bne 0a
1275 88BF F6 00 3A        ..:   ldab 003a
1276 88C2 26 28           &(    bne 28
1277 88C4 F6 00 1D        ...   ldab 001d
1278 88C7 2D 23           -#    blt 23
1279 88C9 7F 00 2C        ..,   clr 002c
1280 88CC CC AE 9D        ...   ldd #ae9d    "SET PRICE?"
1281 88CF BD C0 BA        ...   jsr c0ba             ;display:
1282 88D2 CE 00 1F        ...   ldx #001f
1283 88D5 1D 00 02        ..    bclr 00,x, #02
1284 88D8 CE 00 1F        ...   ldx #001f
1285 88DB 1D 00 40        ..    bclr 00,x, #40
1286 88DE CE 00 1D        ...   ldx #001d
1287 88E1 1D 00 80        ..    bclr 00,x, #80
1288 88E4 7F 00 54        ...   clr 0054
1289 88E7 C6 32           .2    ldab #32
1290 88E9 F7 00 3A        ..:   stab 003a
1291 88EC F6 00 09        ...   ldab 0009
1292 88EF 26 03           &.    bne 03
1293 88F1 7E 89 E1        ~..   jmp 89e1             ;goto5
1294 88F4 F6 00 1D        ...   ldab 001d
1295 88F7 2C 03           ,.    bge 03
1296 88F9 7E 89 E1        ~..   jmp 89e1             ;goto5
1297 88FC F6 00 09        ...   ldab 0009
1298 88FF C1 0B           ..    cmpb #0b
1299 8901 26 06           &.    bne 06
1300 8903 BD 85 AF        ...   jsr 85af             ;jump14
1301 8906 7E 89 DE        ~..   jmp 89de             ;goto6
1302 8909 F6 00 54        ..T   ldab 0054
1303 890C 26 26           &&    bne 26
1304 890E BD BE 4B        ..K   jsr be4b             ;displayblank
1305 8911 F6 00 09        ...   ldab 0009
1306 8914 C1 0A           ..    cmpb #0a
1307 8916 26 03           &.    bne 03
1308 8918 7F 00 09        ...   clr 0009
1309 891B F6 00 09        ...   ldab 0009
1310 891E CB 30           .0    addb #30
1311 8920 37              7     pshb
1312 8921 CC 0B 95        ...   ldd #0b95
1313 8924 F0 00 54        ..T   subb 0054
1314 8927 82 00           ..    sbca #00
1315 8929 8F              .     xgdx
1316 892A 33              3     pulb
1317 892B E7 00           ..    stab 00,x
1318 892D C6 32           .2    ldab #32
1319 892F F7 00 3A        ..:   stab 003a
1320 8932 20 37            7    bra 37
1321 8934 F6 00 54        ..T   ldab 0054
1322 8937 C1 01           ..    cmpb #01
1323 8939 26 27           &'    bne 27
1324 893B F6 00 09        ...   ldab 0009
1325 893E C1 05           ..    cmpb #05
1326 8940 27 20           '     beq 20
1327 8942 F6 00 09        ...   ldab 0009
1328 8945 C1 0A           ..    cmpb #0a
1329 8947 27 19           '.    beq 19
1330 8949 F6 00 09        ...   ldab 0009
1331 894C CB 30           .0    addb #30
1332 894E 37              7     pshb
1333 894F CC 0B 95        ...   ldd #0b95
1334 8952 F0 00 54        ..T   subb 0054
1335 8955 82 00           ..    sbca #00
1336 8957 8F              .     xgdx
1337 8958 33              3     pulb
1338 8959 E7 00           ..    stab 00,x
1339 895B C6 32           .2    ldab #32
1340 895D F7 00 3A        ..:   stab 003a
1341 8960 20 09            .    bra 09
1342 8962 CE 00 1F        ...   ldx #001f
1343 8965 1C 00 02        ..    bset 00,x, #02
1344 8968 7F 00 3A        ..:   clr 003a
1345 896B BD BE 01        ...   jsr be01             ;jump70
1346 896E 7C 00 54        |.T   inc 0054
1347 8971 F6 00 54        ..T   ldab 0054
1348 8974 C1 02           ..    cmpb #02
1349 8976 26 60           &`    bne 60
1350 8978 CE 00 1D        ...   ldx #001d
1351 897B 1C 00 80        ..    bset 00,x, #80
1352 897E F6 0B 94        ..    ldab 0b94
1353 8980 CB D0           ..    addb #d0     ; -48 (unmake it a digit)
1354 8983 37              7     pshb
1355 8984 F6 0B 95        ...   ldab 0b95
1356 8987 CB D0           ..    addb #d0     ; -48 (unmake it a digit)
1357 8989 86 0A           ..    ldaa #0a
1358 898B 3D              =     mul
1359 898C 30              0     tsx
1360 898D EB 00           ..    addb 00,x
1361 898F 31              1     ins
1362 8990 F7 00 06        ...   stab 0006
1363 8993 C6 32           .2    ldab #32
1364 8995 F7 00 3A        ..:   stab 003a
1365 8998 F6 00 06        ...   ldab 0006
1366 899B BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
1367 899E 83 00 00        ...   subd #0000
1368 89A1 26 27           &'    bne 27       ; to 89ca
1369 89A3 BD D3 11        ...   jsr d311             ;jump30 - test position exists
1370 89A6 83 00 00        ...   subd #0000
1371 89A9 26 0B           &.    bne 0b
1372 89AB CE 00 1F        ...   ldx #001f
1373 89AE 1C 00 40        ..    bset 00,x, #40
1374 89B1 BD 8C 73        ..s   jsr 8c73             ;jump75
1375 89B4 20 0F            .    bra 0f
1376 89B6 CE 00 1F        ...   ldx #001f
1377 89B9 1D 00 40        ..    bclr 00,x, #40
1378 89BC CC 2A FF        .*.   ldd #2aff    ; 00101010 11111111
1379 89BF FD 00 27        ..'   std 0027
1380 89C2 BD A3 85        ...   jsr a385             ;jump40
1381 89C5 BD 9A 47        ..G   jsr 9a47             ;jump39
1382 89C8 20 0C            .    bra 0c
1383 ;
1384 89CA CE 00 1D        ...   ldx #001d
1385 89CD 1D 00           ..    bclr 00,x, #80
1386 89D0 CE 00 1F        ...   ldx #001f
1387 89D3 1C 00 02        ...   bset 00,x, #02
1388 89D6 20 06            .    bra 06
1389 89D8 CE 00 1D        ...   ldx #001d
1390 89DB 1D 00 80        ...   bclr 00,x, #80
1391 ;goto6
1392 89DE 7E 8C 72        .~    jmp 8c72     ;goto7 (exit)
1393 ;goto5
1394 89E1 F6 00 1D        ...   ldab 001d
1395 89E4 2D 03           -.    blt 03
1396 89E6 7E 8C 72        ~.r   jmp 8c72             ;goto7 (exit)
1397 89E9 F6 00 09        ...   ldab 0009
1398 89EC 4F              O     clra
1399 89ED BD FE 16        ...   jsr fe16             ;jump2
1400 89F0 00 00 00 0B     ....  ; params to jump2
1401 89F4 8C 72           ..    ; default action
1402 89F6 8A 0E           ..    ; 0 - display price on screen?
1403 89F8 8A 14           ..    ; 1 -
1404 89FA 8A AA           ..
1405 89FC 8B 5E           .^
1406 89FE 8B 9E           ..
1407 8A00 8B DB           ..
1408 8A02 8C 72           ..
1409 8A04 8C 72           ..
1410 8A06 8C 72           ..
1411 8A08 8B FC           ..
1412 8A0A 8C 67           ..
1413 8A0C 8C 6F           ..
1414 8A0E BD 9A 47        ..    jsr 9a47    ;jump39
1415 8A11 7E 8C 72        ...   jmp 8c72    ;goto7 (exit)
1416 8A14 F6 00 36        ...   ldab 0036
1417 8A17 27 03           '.    beq 03
1418 8A19 7E 8A 9B        ~..   jmp 8a9b             ;goto8
1419 8A1C F6 00 1F        ...   ldab 001f
1420 8A1F C4 40           .@    andb #40
1421 8A21 27 78           'x    beq 78
1422 8A23 F6 0B C0        ...   ldab 0bc0
1423 8A26 C4 02           ..    andb #02
1424 8A28 27 52           'R    beq 52
1425 8A2A F6 0B AA        ...   ldab 0baa
1426 8A2D C1 32           .2    cmpb #32
1427 8A2F 24 22           $"    bcc 22
1428 8A31 F6 0B AA        ...   ldab 0baa
1429 8A34 4F              O     clra
1430 8A35 F3 00 27        ..'   addd 0027
1431 8A38 FD 00 27        ..'   std 0027
1432 8A3B F6 0B AA        ...   ldab 0baa
1433 8A3E 4F              O     clra
1434 8A3F 37              7     pshb
1435 8A40 36              6     psha
1436 8A41 CC 00 FA        ...   ldd #00fa    ; 250 or -6
1437 8A44 BD FB BA        ...   jsr fbba             ;jump38 - multiply?
1438 8A47 B3 00 27        ..'   subd 0027
1439 8A4A 24 05           $.    bcc 05
1440 8A4C 5F              _     clrb
1441 8A4D 4F              O     clra
1442 8A4E FD 00 27        ..'   std 0027
1443 8A51 20 27            '    bra 27
1444 8A53 F6 0B AA        ...   ldab 0baa
1445 8A56 C1 32           .2    cmpb #32
1446 8A58 26 20           &     bne 20
1447 8A5A F6 0B AA        ...   ldab 0baa
1448 8A5D 4F              O     clra
1449 8A5E F3 00 27        ..'   addd 0027
1450 8A61 FD 00 27        ..'   std 0027
1451 8A64 F6 0B AA        ...   ldab 0baa
1452 8A67 4F              O     clra
1453 8A68 37              7     pshb
1454 8A69 36              6     psha
1455 8A6A CC 00 C7        ...   ldd #00c7    ; 199
1456 8A6D BD FB BA        ...   jsr fbba             ;jump38
1457 8A70 B3 00 27        ..'   subd 0027
1458 8A73 24 05           $.    bcc 05
1459 8A75 5F              _     clrb
1460 8A76 4F              O     clra
1461 8A77 FD 00 27        ..'   std 0027
1462 8A7A 20 17            .    bra 17
1463 8A7C F6 0B AA        ...   ldab 0baa
1464 8A7F 4F              O     clra
1465 8A80 F3 00 27        ..'   addd 0027
1466 8A83 FD 00 27        ..'   std 0027
1467 8A86 FC 00 27        ..'   ldd 0027
1468 8A89 83 27 0F        .'.   subd #270f
1469 8A8C 23 05           #.    bls 05
1470 8A8E 5F              _     clrb
1471 8A8F 4F              O     clra
1472 8A90 FD 00 27        ..'   std 0027
1473 8A93 BD 9A 47        ..G   jsr 9a47             ;jump39
1474 8A96 C6 02           ..    ldab #02
1475 8A98 F7 00 36        ..6   stab 0036
1476 goto8:
1477 8A9B CE 00 1B        ...   ldx #001b
1478 8A9E 1C 00 10        ...   bset 00,x, #10
1479 8AA1 CC 02 33        ..3   ldd #0233
1480 8AA4 FD 00 3B        ..;   std 003b
1481 8AA7 7E 8C 72        ~.r   jmp 8c72             ;goto7 (exit)
1482 ;
1483 8AAA F6 00 36        ..6   ldab 0036
1484 8AAD 27 03           '.    beq 03
1485 8AAF 7E 8B 4F        ~.O   jmp 8b4f             ;goto9
1486 8AB2 F6 00 1F        ...   ldab 001f
1487 8AB5 C4 40           .@    andb #40
1488 8AB7 26 03           &.    bne 03
1489 8AB9 7E 8B 4F        ~.O   jmp 8b4f             ;goto9
1490 8ABC F6 0B C0        ...   ldab 0bc0
1491 8ABF C4 02           ..    andb #02
1492 8AC1 27 57           'W    beq 57
1493 8AC3 FC 00 27        ..'   ldd 0027
1494 8AC6 26 18           &.    bne 18
1495 8AC8 F6 0B AA        ...   ldab 0baa
1496 8ACB C1 32           .2    cmpb #32
1497 8ACD 24 11           $.    bcc 11
1498 8ACF F6 0B AA        ...   ldab 0baa
1499 8AD2 4F              O     clra
1500 8AD3 37              7     pshb
1501 8AD4 36              6     psha
1502 8AD5 CC 00 FA        ...   ldd #00fa    ; 250
1503 8AD8 BD FB BA        ...   jsr fbba             ;jump38
1504 8ADB FD 00 27        ..'   std 0027
1505 8ADE 20 38            8    bra 38
1506 8AE0 FC 00 27        ..'   ldd 0027
1507 8AE3 26 18           &.    bne 18
1508 8AE5 F6 0B AA        ...   ldab 0baa
1509 8AE8 C1 32           .2    cmpb #32
1510 8AEA 26 11           &.    bne 11
1511 8AEC F6 0B AA        ...   ldab 0baa
1512 8AEF 4F              O     clra
1513 8AF0 37              7     pshb
1514 8AF1 36              6     psha
1515 8AF2 CC 00 C7        ...   ldd #00c7    ; 199
1516 8AF5 BD FB BA        ...   jsr fbba             ;jump38
1517 8AF8 FD 00 27        ..'   std 0027
1518 8AFB 20 1B            .    bra 1b
1519 8AFD F6 0B AA        ...   ldab 0baa
1520 8B00 4F              O     clra
1521 8B01 B3 00 27        ..'   subd 0027
1522 8B04 22 0D           ".    bhi 0d
1523 8B06 FC 00 27        ..'   ldd 0027
1524 8B09 F0 0B AA        ...   subb 0baa
1525 8B0C 82 00           ..    sbca #00
1526 8B0E FD 00 27        ..'   std 0027
1527 8B11 20 05            .    bra 05
1528 8B13 5F              _     clrb
1529 8B14 4F              O     clra
1530 8B15 FD 00 27        ..'   std 0027
1531 8B18 20 2D            -    bra 2d
1532 8B1A FC 00 27        ..'   ldd 0027
1533 8B1D 26 0D           &.    bne 0d
1534 8B1F CC 27 10        .'.   ldd #2710
1535 8B22 F0 0B AA        ...   subb 0baa
1536 8B25 82 00           ..    sbca #00
1537 8B27 FD 00 27        ..'   std 0027
1538 8B2A 20 1B            .    bra 1b
1539 8B2C F6 0B AA        ...   ldab 0baa
1540 8B2F 4F              O     clra
1541 8B30 B3 00 27        ..'   subd 0027
1542 8B33 22 0D           ".    bhi 0d
1543 8B35 FC 00 27        ..'   ldd 0027
1544 8B38 F0 0B AA        ...   subb 0baa
1545 8B3B 82 00           ..    sbca #00
1546 8B3D FD 00 27        ..'   std 0027
1547 8B40 20 05            .    bra 05
1548 8B42 5F              _     clrb
1549 8B43 4F              O     clra
1550 8B44 FD 00 27        ..'   std 0027
1551 8B47 BD 9A 47        ..G   jsr 9a47             ;jump39
1552 8B4A C6 02           ..    ldab #02
1553 8B4C F7 00 36        ..6   stab 0036
1554 goto9:
1555 8B4F CE 00 1B        ...   ldx #001b
1556 8B52 1C 00 10        ..    bset 00,x, #10
1557 8B55 CC 02 33        ..3   ldd #0233
1558 8B58 FD 00 3B        ..;   std 003b
1559 8B5B 7E 8C 72        ~.r   jmp 8c72             ;goto7 (exit)
1560 8B5E F6 00 36        ..6   ldab 0036
1561 8B61 26 2C           &,    bne 2c
1562 8B63 F6 00 1F        ...   ldab 001f
1563 8B66 C4 40           .@    andb #40
1564 8B68 27 25           '%    beq 25
1565 8B6A FC 00 46        ..F   ldd 0046
1566 8B6D 83 00 64        ..d   subd #0064
1567 8B70 24 15           $.    bcc 15
1568 8B72 FE 00 46        ..F   ldx 0046
1569 8B75 08              .     inx
1570 8B76 FF 00 46        ..F   stx 0046
1571 8B79 FC 00 46        ..F   ldd 0046
1572 8B7C 83 00 64        ..d   subd #0064
1573 8B7F 25 06           %.    bcs 06
1574 8B81 CC 00 01        ...   ldd #0001
1575 8B84 FD 00 46        ..F   std 0046
1576 8B87 BD 9A 47        ..G   jsr 9a47             ;jump39
1577 8B8A C6 02           ..    ldab #02
1578 8B8C F7 00 36        ..6   stab 0036
1579 8B8F CE 00 1B        ...   ldx #001b
1580 8B92 1C 00 10        ..    bset 00,x, #10
1581 8B95 CC 02 33        ..3   ldd #0233
1582 8B98 FD 00 3B        ..;   std 003b
1583 8B9B 7E 8C 72        ~.r   jmp 8c72             ;goto7 (exit)
1584 8B9E F6 00 36        ..6   ldab 0036
1585 8BA1 26 29           &)    bne 29
1586 8BA3 F6 00 1F        ...   ldab 001f
1587 8BA6 C4 40           .@    andb #40
1588 8BA8 27 22           '"    beq 22
1589 8BAA FC 00 46        ..F   ldd 0046
1590 8BAD 83 00 00        ...   subd #0000
1591 8BB0 23 12           #.    bls 12
1592 8BB2 FE 00 46        ..F   ldx 0046
1593 8BB5 09              .     dex
1594 8BB6 FF 00 46        ..F   stx 0046
1595 8BB9 FC 00 46        ..F   ldd 0046
1596 8BBC 26 06           &.    bne 06
1597 8BBE CC 00 63        ..c   ldd #0063
1598 8BC1 FD 00 46        ..F   std 0046
1599 8BC4 BD 9A 47        ..G   jsr 9a47             ;jump39
1600 8BC7 C6 02           ..    ldab #02
1601 8BC9 F7 00 36        ..6   stab 0036
1602 8BCC CE 00 1B        ...   ldx #001b
1603 8BCF 1C 00 10        ...   bset 00,x, #10
1604 8BD2 CC 02 33        ..3   ldd #0233
1605 8BD5 FD 00 3B        ..;   std 003b
1606 8BD8 7E 8C 72        ~.r   jmp 8c72             ;goto7 (exit)
1607 8BDB F6 00 1F        ...   ldab 001f
1608 8BDE C4 40           .@    andb #40
1609 8BE0 27 15           '.    beq 15
1610 8BE2 F6 00 19        ...   ldab 0019
1611 8BE5 C4 10           ..    andb #10
1612 8BE7 27 08           '.    beq 08
1613 8BE9 CE 00 19        ...   ldx #0019
1614 8BEC 1D 00 10        ...   bclr 00,x, #10
1615 8BEF 20 06            .    bra 06
1616 8BF1 CE 00 19        ...   ldx #0019
1617 8BF4 1C 00 10        ...   bset 00,x, #10
1618 8BF7 BD 9A 47        ..G   jsr 9a47             ;jump39
1619 8BFA 20 76            v    bra 76
1620 8BFC BD A3 85        ...   jsr a385             ;jump40
1621 8BFF F6 00 06        ...   ldab 0006
1622 8C02 C1 64           .d    cmpb #64
1623 8C04 24 24           $$    bcc 24
1624 8C06 BD 97 6F        ..o   jsr 976f             ;jump41
1625 8C09 F6 00 06        ...   ldab 0006
1626 8C0C BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
1627 8C0F 83 00 00        ...   subd #0000
1628 8C12 27 16           '.    beq 16
1629 8C14 F6 00 06        ...   ldab 0006
1630 8C17 C1 09           ..    cmpb #09
1631 8C19 26 03           &.    bne 03
1632 8C1B BD 97 6F        ..o   jsr 976f             ;jump41
1633 8C1E F6 00 06        ...   ldab 0006
1634 8C21 C1 45           .E    cmpb #45
1635 8C23 26 05           &.    bne 05
1636 8C25 C6 01           ..    ldab #01
1637 8C27 F7 00 06        ...   stab 0006
1638 8C2A F6 0E 6D        ..m   ldab 0e6d
1639 8C2D C1 01           ..    cmpb #01
1640 8C2F 26 11           &.    bne 11
1641 8C31 F6 00 06        ...   ldab 0006
1642 8C34 4F              O     clra
1643 8C35 05              .     asld
1644 8C36 C3 08 C8        ...   addd #08c8
1645 8C39 8F              .     xgdx
1646 8C3A EC 00           ..    ldd 00,x
1647 8C3C C4 7F           ..    andb #7f
1648 8C3E 4F              O     clra
1649 8C3F FD 00 46        ..F   std 0046
1650 8C42 BD D3 11        ...   jsr d311             ;jump30 - test position exists
1651 8C45 83 00 00        ...   subd #0000
1652 8C48 26 12           &.    bne 12
1653 8C4A CE 00 1F        ...   ldx #001f
1654 8C4D 1C 00 40        ...   bset 00,x, #40
1655 8C50 FC 00 27        ..'   ldd 0027
1656 8C53 83 27 0F        .'.   subd #270f
1657 8C56 23 02           #.    bls 02
1658 8C58 8D 19           ..    bsr dest 19
1659 8C5A 20 06            .    bra 06
1660 8C5C CE 00 1F        ...   ldx #001f
1661 8C5F 1D 00 40        ...   bclr 00,x, #40
1662 8C62 BD 9A 47        ..G   jsr 9a47             ;jump39
1663 8C65 20 0B            .    bra 0b
1664 8C67 BD A3 85        ...   jsr a385             ;jump40
1665 8C6A BD 85 AF        ...   jsr 85af             ;jump14
1666 8C6D 20 03            .    bra 03
1667 8C6F BD 85 AF        ...   jsr 85af             ;jump14
1668 goto7:
1669 8C72 39              9     rts
1670
1671 jump75:
1672 ;fetches a price for the given slot?
1673 8C73 F6 00 06        ...   ldab 0006
1674 8C76 4F              O     clra
1675 8C77 05              .     asld
1676 8C78 C3 08 00        ...   addd #0800
1677 8C7B 8F              .     xgdx
1678 8C7C EC 00           ..    ldd 00,x
1679 8C7E C4 FF           ..    andb #ff
1680 8C80 84 3F           .?    anda #3f
1681 8C82 FD 00 27        ..'   std 0027
1682 8C85 F6 00 06        ...   ldab 0006
1683 8C88 4F              O     clra
1684 8C89 05              .     asld
1685 8C8A C3 08 C8        ...   addd #08c8
1686 8C8D 8F              .     xgdx
1687 8C8E EC 00           ..    ldd 00,x
1688 8C90 C4 7F           ..    andb #7f
1689 8C92 4F              O     clra
1690 8C93 FD 00 46        ..F   std 0046
1691 8C96 F6 00 06        ...   ldab 0006
1692 8C99 4F              O     clra
1693 8C9A 05              .     asld
1694 8C9B C3 08 C8        ...   addd #08c8
1695 8C9E 8F              .     xgdx
1696 8C9F EC 00           ..    ldd 00,x
1697 8CA1 84 08           ..    anda #08
1698 8CA3 27 08           '.    beq 08
1699 8CA5 CE 00 19        ...   ldx #0019
1700 8CA8 1C 00 10        ...   bset 00,x, #10
1701 8CAB 20 06            .    bra 06
1702 8CAD CE 00 19        ...   ldx #0019
1703 8CB0 1D 00 10        ...   bclr 00,x, #10
1704 8CB3 39              9     rts
1705
1706 jump18:
1707 ; program smart shopping discount
1708 8CB4 F6 00 1F        ...   ldab 001f
1709 8CB7 C4 02           ..    andb #02
1710 8CB9 27 12           '.    beq 12
1711 8CBB FC 0B B7        ...   ldd 0bb7
1712 8CBE FD 00 0D        ...   std 000d
1713 8CC1 CE 00 1F        ...   ldx #001f
1714 8CC4 1D 00 02        ...   bclr 00,x, #02
1715 8CC7 7F 00 36        ..6   clr 0036
1716 8CCA 7E 8E 34        ~.4   jmp 8e34             ;goto10
1717 8CCD F6 00 09        ...   ldab 0009
1718 8CD0 4F              O     clra
1719 8CD1 BD FE 32        ..2   jsr fe32             ;jump25
1720 8CD4 8C EE 00 00     ....  ; array data for jump25
1721 8CD8 8C F4 00 01     ....
1722 8CDC 8D 80 00 01     ....
1723 8CE0 8E 29 00 08     .)..
1724 8CE4 8E 31 00 01     .1..
1725 8CE8 8E 34 FF F5     .4.
1726 8CEC 00 00           ...   ; end of array data
1727 8CEE BD 9B 63        ..c   jsr 9b63             ;jump101
1728 8CF1 7E 8E 34        ~.4   jmp 8e34             ;goto10
1729 8CF4 F6 00 36        ..6   ldab 0036
1730 8CF7 26 78           &x    bne 78
1731 8CF9 F6 0B C0        ...   ldab 0bc0
1732 8CFC C4 02           ..    andb #02
1733 8CFE 27 52           'R    beq 52
1734 8D00 F6 0B AA        ...   ldab 0baa
1735 8D03 C1 32           .2    cmpb #32
1736 8D05 24 22           $"    bcc 22
1737 8D07 F6 0B AA        ...   ldab 0baa
1738 8D0A 4F              O     clra
1739 8D0B F3 00 0D        ...   addd 000d
1740 8D0E FD 00 0D        ...   std 000d
1741 8D11 F6 0B AA        ...   ldab 0baa
1742 8D14 4F              O     clra
1743 8D15 37              7     pshb
1744 8D16 36              6     psha
1745 8D17 CC 00 FA        ...   ldd #00fa    ; 250
1746 8D1A BD FB BA        ...   jsr fbba             ;jump38
1747 8D1D B3 00 0D        ...   subd 000d
1748 8D20 24 05           $.    bcc 05
1749 8D22 5F              _     clrb
1750 8D23 4F              O     clra
1751 8D24 FD 00 0D        ...   std 000d
1752 8D27 20 27            '    bra 27
1753 8D29 F6 0B AA        ...   ldab 0baa
1754 8D2C C1 32           .2    cmpb #32
1755 8D2E 26 20           &     bne 20
1756 8D30 F6 0B AA        ...   ldab 0baa
1757 8D33 4F              O     clra
1758 8D34 F3 00 0D        ...   addd 000d
1759 8D37 FD 00 0D        ...   std 000d
1760 8D3A F6 0B AA        ...   ldab 0baa
1761 8D3D 4F              O     clra
1762 8D3E 37              7     pshb
1763 8D3F 36              6     psha
1764 8D40 CC 00 C7        ...   ldd #00c7    ; 199
1765 8D43 BD FB BA        ...   jsr fbba             ;jump38
1766 8D46 B3 00 0D        ...   subd 000d
1767 8D49 24 05           $.    bcc 05
1768 8D4B 5F              _     clrb
1769 8D4C 4F              O     clra
1770 8D4D FD 00 0D        ...   std 000d
1771 8D50 20 17            .    bra 17
1772 8D52 F6 0B AA        ...   ldab 0baa
1773 8D55 4F              O     clra
1774 8D56 F3 00 0D        ...   addd 000d
1775 8D59 FD 00 0D        ...   std 000d
1776 8D5C FC 00 0D        ...   ldd 000d
1777 8D5F 83 27 0F        .'.   subd #270f
1778 8D62 23 05           #.    bls 05
1779 8D64 5F              _     clrb
1780 8D65 4F              O     clra
1781 8D66 FD 00 0D        ...   std 000d
1782 8D69 BD 9B 63        ..c   jsr 9b63             ;jump101
1783 8D6C C6 02           ..    ldab #02
1784 8D6E F7 00 36        ..6   stab 0036
1785 8D71 CE 00 1B        ...   ldx #001b
1786 8D74 1C 00 10        ..    bset 00,x, #10
1787 8D77 CC 02 33        ..3   ldd #0233
1788 8D7A FD 00 3B        ..;   std 003b
1789 8D7D 7E 8E 34        ~.4   jmp 8e34             ;goto10
1790 8D80 F6 00 36        ..6   ldab 0036
1791 8D83 27 03           '.    beq 03
1792 8D85 7E 8E 1B        ~..   jmp 8e1b             ;goto11
1793 8D88 F6 0B C0        ...   ldab 0bc0
1794 8D8B C4 02           ..    andb #02
1795 8D8D 27 57           'W    beq 57
1796 8D8F FC 00 0D        ...   ldd 000d
1797 8D92 26 18           &.    bne 18
1798 8D94 F6 0B AA        ...   ldab 0baa
1799 8D97 C1 32           .2    cmpb #32
1800 8D99 24 11           $.    bcc 11
1801 8D9B F6 0B AA        ...   ldab 0baa
1802 8D9E 4F              O     clra
1803 8D9F 37              7     pshb
1804 8DA0 36              6     psha
1805 8DA1 CC 00 FA        ...   ldd #00fa    ; 250
1806 8DA4 BD FB BA        ...   jsr fbba             ;jump38
1807 8DA7 FD 00 0D        ...   std 000d
1808 8DAA 20 38            8    bra 38
1809 8DAC FC 00 0D        ...   ldd 000d
1810 8DAF 26 18           &.    bne 18
1811 8DB1 F6 0B AA        ...   ldab 0baa
1812 8DB4 C1 32           .2    cmpb #32
1813 8DB6 26 11           &.    bne 11
1814 8DB8 F6 0B AA        ...   ldab 0baa
1815 8DBB 4F              O     clra
1816 8DBC 37              7     pshb
1817 8DBD 36              6     psha
1818 8DBE CC 00 C7        ...   ldd #00c7    ; 199
1819 8DC1 BD FB BA        ...   jsr fbba             ;jump38
1820 8DC4 FD 00 0D        ...   std 000d
1821 8DC7 20 1B            .    bra 1b
1822 8DC9 F6 0B AA        ...   ldab 0baa
1823 8DCC 4F              O     clra
1824 8DCD B3 00 0D        ...   subd 000d
1825 8DD0 22 0D           ".    bhi 0d
1826 8DD2 FC 00 0D        ...   ldd 000d
1827 8DD5 F0 0B AA        ...   subb 0baa
1828 8DD8 82 00           ..    sbca #00
1829 8DDA FD 00 0D        ...   std 000d
1830 8DDD 20 05            .    bra 05
1831 8DDF 5F              _     clrb
1832 8DE0 4F              O     clra
1833 8DE1 FD 00 0D        ...   std 000d
1834 8DE4 20 2D            -    bra 2d
1835 8DE6 FC 00 0D        ...   ldd 000d
1836 8DE9 26 0D           &.    bne 0d
1837 8DEB CC 27 10        .'.   ldd #2710
1838 8DEE F0 0B AA        ...   subb 0baa
1839 8DF1 82 00           ..    sbca #00
1840 8DF3 FD 00 0D        ...   std 000d
1841 8DF6 20 1B            .    bra 1b
1842 8DF8 F6 0B AA        ...   ldab 0baa
1843 8DFB 4F              O     clra
1844 8DFC B3 00 0D        ...   subd 000d
1845 8DFF 22 0D           ".    bhi 0d
1846 8E01 FC 00 0D        ...   ldd 000d
1847 8E04 F0 0B AA        ...   subb 0baa
1848 8E07 82 00           ..    sbca #00
1849 8E09 FD 00 0D        ...   std 000d
1850 8E0C 20 05            .    bra 05
1851 8E0E 5F              _     clrb
1852 8E0F 4F              O     clra
1853 8E10 FD 00 0D        ...   std 000d
1854 8E13 BD 9B 63        ..c   jsr 9b63             ;jump101
1855 8E16 C6 02           ..    ldab #02
1856 8E18 F7 00 36        ..6   stab 0036
1857 goto11:
1858 8E1B CE 00 1B        ...   ldx #001b
1859 8E1E 1C 00 10        ...   bset 00,x, #10
1860 8E21 CC 02 33        ..3   ldd #0233
1861 8E24 FD 00 3B        ..;   std 003b
1862 8E27 20 0B            .    bra 0b
1863 8E29 BD A4 4F        ..O   jsr a44f             ;jump140
1864 8E2C BD 85 AF        ...   jsr 85af             ;jump14
1865 8E2F 20 03            .    bra 03
1866 8E31 BD 85 AF        ...   jsr 85af             ;jump14
1867 goto10:
1868 8E34 39              9     rts
1869
1870 jump19:
1871 ; manual peripheral config menu
1872 8E35 F6 00 1F        ...   ldab 001f
1873 8E38 C4 02           ..    andb #02
1874 8E3A 27 1E           '.    beq 1e
1875 8E3C 7F 00 48        ..H   clr 0048
1876 8E3F F6 0B C0        ...   ldab 0bc0
1877 8E42 F7 00 67        ..g   stab 0067
1878 8E45 F6 0E 6D        ..m   ldab 0e6d
1879 8E48 F7 0E 6F        ..o   stab 0e6f
1880 8E4B F6 0E 6E        ..n   ldab 0e6e
1881 8E4E F7 0E 70        ..p   stab 0e70
1882 8E51 CE 00 1F        ...   ldx #001f
1883 8E54 1D 00 02        ...   bclr 00,x, #02
1884 8E57 7E 8F 0C        ~..   jmp 8f0c             ;goto12
1885 8E5A F6 00 09        ...   ldab 0009
1886 8E5D 4F              O     clra
1887 8E5E BD FE 32        ..2   jsr fe32             ;jump25
1888 8E61 8E 7B 00 00     .{..  ; no key
1889 8E65 8E 81 00 01     ....  ; key 1 - toggle?
1890 8E69 8E 87 00 04     ....  ; key 5 - save and next
1891 8E6D 8F 01 00 05     ....  ; key 0 - exit
1892 8E71 8F 09 00 01     ....  ; key reset - exit
1893 8E75 8F 0C FF F5     ....  ; default
1894 8E79 00 00           ..    ; end of array data
1895 ;
1896 8E7B BD 9C 15        ...   jsr 9c15             ;jump111 - write the option name
1897 8E7E 7E 8F 0C        ~..   jmp 8f0c             ;goto12
1898 ;
1899 8E81 BD A7 5F        .._   jsr a75f             ;jump133
1900 8E84 7E 8F 0C        ~..   jmp 8f0c             ;goto12
1901 ;
1902 8E87 F6 00 48        ..H   ldab 0048
1903 8E8A C1 08           ..    cmpb #08
1904 8E8C 25 05           %.    bcs 05
1905 8E8E F6 00 67        ..g   ldab 0067
1906 8E91 2D 03           -.    blt 03
1907 8E93 BD A4 59        ..Y   jsr a459             ;jump110
1908 8E96 F6 00 48        ..H   ldab 0048
1909 8E99 C1 0A           ..    cmpb #0a
1910 8E9B 24 5F           $_    bcc 5f
1911 8E9D 7C 00 48        |.H   inc 0048
1912 8EA0 F6 00 48        ..H   ldab 0048
1913 8EA3 C1 01           ..    cmpb #01
1914 8EA5 26 0F           &.    bne 0f
1915 ;
1916 8EA7 F6 00 67        ..g   ldab 0067
1917 8EAA C4 02           ..    andb #02
1918 8EAC 26 08           &.    bne 08
1919 8EAE F6 00 48        ..H   ldab 0048
1920 8EB1 CB 02           ..    addb #02
1921 8EB3 F7 00 48        ..H   stab 0048
1922 ;
1923 8EB6 F6 00 48        ..H   ldab 0048
1924 8EB9 C1 02           ..    cmpb #02
1925 8EBB 26 0A           &.    bne 0a
1926 8EBD F6 00 67        ..g   ldab 0067
1927 8EC0 C4 10           ..    andb #10
1928 8EC2 26 03           &.    bne 03
1929 8EC4 7C 00 48        |.H   inc 0048
1930 8EC7 F6 00 48        ..H   ldab 0048
1931 8ECA C1 06           ..    cmpb #06
1932 8ECC 26 0F           &.    bne 0f
1933 8ECE F6 00 67        ..g   ldab 0067
1934 8ED1 C4 08           ..    andb #08
1935 8ED3 26 08           &.    bne 08
1936 8ED5 C6 02           ..    ldab #02
1937 8ED7 FB 00 48        ..H   addb 0048
1938 8EDA F7 00 48        ..H   stab 0048
1939 8EDD F6 00 48        ..H   ldab 0048
1940 8EE0 C1 0A           ..    cmpb #0a
1941 8EE2 26 08           &.    bne 08
1942 8EE4 F6 00 67        ..g   ldab 0067
1943 8EE7 2D 03           -.    blt 03
1944 8EE9 7C 00 48        |.H   inc 0048
1945 8EEC F6 00 48        ..H   ldab 0048
1946 8EEF C1 0A           ..    cmpb #0a
1947 8EF1 23 09           #.    bls 09
1948 8EF3 7F 00 48        ..H   clr 0048
1949 8EF6 F6 0B C0        ...   ldab 0bc0
1950 8EF9 F7 00 67        ..g   stab 0067
1951 8EFC BD 9C 15        ...   jsr 9c15             ;jump111 - write the next option
1952 8EFF 20 0B            .    bra 0b
1953 ;
1954 8F01 BD A4 59        ..Y   jsr a459             ;jump110
1955 8F04 BD 85 AF        ...   jsr 85af             ;jump14
1956 8F07 20 03            .    bra 03
1957 8F09 BD 85 AF        ...   jsr 85af             ;jump14
1958 goto12:
1959 8F0C 39              9     rts
1960
1961 jump20:
1962 ; promotional vend-pair programming (buy one thing get another free?)
1963 8F0D F6 00 1F        ...   ldab 001f
1964 8F10 C4 02           ..    andb #02
1965 8F12 27 1D           '.    beq 1d
1966 8F14 C6 01           ..    ldab #01
1967 8F16 F7 00 22        .."   stab 0022
1968 8F19 F6 0B AF        ...   ldab 0baf
1969 8F1C F7 00 24        ..$   stab 0024
1970 8F1F F6 0B B4        ...   ldab 0bb4
1971 8F22 F7 00 2A        ..*   stab 002a
1972 8F25 CE 00 1F        ...   ldx #001f
1973 8F28 1D 00 02        ..    bclr 00,x, #02
1974 8F2B 7F 00 36        ..6   clr 0036
1975 8F2E 7E 90 D0        ~..   jmp 90d0             ;goto13
1976 8F31 F6 00 09        ...   ldab 0009
1977 8F34 4F              O     clra
1978 8F35 BD FE 16        ...   jsr fe16             ;jump2
1979 8F38 00 00 00 0B     ....  ; params for jump2
1980 8F3C 90 D0           ..
1981 8F3E 8F 56           ..
1982 8F40 8F 5C           ..
1983 8F42 8F B3           ..
1984 8F44 90 0C           ..
1985 8F46 90 62           ..
1986 8F48 90 BA           ..
1987 8F4A 90 DO           ..
1988 8F4C 90 D0           ..
1989 8F4E 90 D0           ..
1990 8F50 90 DO           ..
1991 8F52 90 C5           ..
1992 8F54 90 CD           ..
1993 8F56 BD 9D 2A        ..*   jsr 9d2a             ;jump89
1994 8F59 7E 90 D0        ~..   jmp 90d0             ;goto13
1995 8F5C F6 00 36        ..6   ldab 0036
1996 8F5F 26 43           &C    bne 43
1997 8F61 F6 00 24        ..$   ldab 0024
1998 8F64 C1 64           .d    cmpb #64
1999 8F66 24 34           $4    bcc 34
2000 8F68 7C 00 24        |.$   inc 0024
2001 8F6B F6 00 24        ..$   ldab 0024
2002 8F6E F7 00 06        ...   stab 0006
2003 8F71 F6 00 06        ...   ldab 0006
2004 8F74 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
2005 8F77 83 00 00        ...   subd #0000
2006 8F7A 27 03           '.    beq 03
2007 8F7C 7C 00 24        |.$   inc 0024
2008 8F7F F6 00 24        ..$   ldab 0024
2009 8F82 C1 64           .d    cmpb #64
2010 8F84 26 03           &.    bne 03
2011 8F86 7F 00 24        ..$   clr 0024
2012 8F89 F6 00 24        ..$   ldab 0024
2013 8F8C 4F              O     clra
2014 8F8D CE 00 05        ...   ldx #0005
2015 8F90 02              .     idiv
2016 8F91 5D              ]     tstb
2017 8F92 26 08           &.    bne 08
2018 8F94 F6 00 24        ..$   ldab 0024
2019 8F97 27 03           '.    beq 03
2020 8F99 7C 00 24        |.$   inc 0024
2021 8F9C BD 9D 2A        ..*   jsr 8d2a             ;jump89
2022 8F9F C6 02           ..    ldab #02
2023 8FA1 F7 00 36        ..6   stab 0036
2024 8FA4 CE 00 1B        ...   ldx #001b
2025 8FA7 1C 00 10        ...   bset 00,x, #10
2026 8FAA CC 02 33        ..3   ldd #0233
2027 8FAD FD 00 3B        ..;   std 003b
2028 8FB0 7E 90 D0        ~..   jmp 90d0             ;goto13
2029 8FB3 F6 00 36        ..6   ldab 0036
2030 8FB6 26 45           &E    bne 45
2031 8FB8 F6 00 24        ..$   ldab 0024
2032 8FBB C1 00           ..    cmpb #00
2033 8FBD 23 2C           #,    bls 2c
2034 8FBF 7A 00 24        z.$   dec 0024
2035 8FC2 F6 00 24        ..$   ldab 0024
2036 8FC5 4F              O     clra
2037 8FC6 CE 00 05        ...   ldx #0005
2038 8FC9 02              .     idiv
2039 8FCA 5D              ]     tstb
2040 8FCB 26 08           &.    bne 08
2041 8FCD F6 00 24        ..$   ldab 0024
2042 8FD0 27 03           '.    beq 03
2043 8FD2 7A 00 24        z.$   dec 0024
2044 8FD5 F6 00 24        ..$   ldab 0024
2045 8FD8 F7 00 06        ...   stab 0006
2046 8FDB F6 00 06        ...   ldab 0006
2047 8FDE BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
2048 8FE1 83 00 00        ...   subd #0000
2049 8FE4 27 03           '.    beq 03
2050 8FE6 7A 00 24        z.$   dec 0024
2051 8FE9 20 0A            .    bra 0a
2052 8FEB F6 00 24        ..$   ldab 0024
2053 8FEE 26 05           &.    bne 05
2054 8FF0 C6 62           .b    ldab #62
2055 8FF2 F7 00 24        ..$   stab 0024
2056 8FF5 BD 9D 2A        ..*   jsr 9d2a             ;jump89
2057 8FF8 C6 02           ..    ldab #02
2058 8FFA F7 00 36        ..6   stab 0036
2059 8FFD CE 00 1B        ...   ldx #001b
2060 9000 1C 00 10        ...   bset 00,x, #10
2061 9003 CC 02 33        ..3   ldd #0233
2062 9006 FD 00 3B        ..;   std 003b
2063 9009 7E 90 D0        ~..   jmp 90d0             ;goto13
2064 900C F6 00 36        ..6   ldab 0036
2065 900F 26 43           &C    bne 43
2066 9011 F6 00 2A        ..*   ldab 002a
2067 9014 C1 64           .d    cmpb #64
2068 9016 24 34           $4    bcc 34
2069 9018 7C 00 2A        |.*   inc 002a
2070 901B F6 00 2A        ..*   ldab 002a
2071 901E F7 00 06        ...   stab 0006
2072 9021 F6 00 06        ...   ldab 0006
2073 9024 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
2074 9027 83 00 00        ...   subd #0000
2075 902A 27 03           '.    beq 03
2076 902C 7C 00 2A        |.*   inc 002a
2077 902F F6 00 2A        ..*   ldab 002a
2078 9032 C1 64           .d    cmpb #64
2079 9034 26 03           &.    bne 03
2080 9036 7F 00 2A        ..*   clr 002a
2081 9039 F6 00 2A        ..*   ldab 002a
2082 903C 4F              O     clra
2083 903D CE 00 05        ...   ldx #0005
2084 9040 02              .     idiv
2085 9041 5D              ]     tstb
2086 9042 26 08           &.    bne 08
2087 9044 F6 00 2A        ..*   ldab 002a
2088 9047 27 03           '.    beq 03
2089 9049 7C 00 2A        |.*   inc 002a
2090 904C BD 9D 2A        ..*   jsr 9d2a             ;jump89
2091 904F C6 02           ..    ldab #02
2092 9051 F7 00 36        ..6   stab 0036
2093 9054 CE 00 1B        ...   ldx #001b
2094 9057 1C 00 10        ...   bset 00,x, #10
2095 905A CC 02 33        ..3   ldd #0233
2096 905D FD 00 3B        ..;   std 003b
2097 9060 20 6E            n    bra 6e
2098 9062 F6 00 36        ..6   ldab 0036
2099 9065 26 45           &E    bne 45
2100 9067 F6 00 2A        ..*   ldab 002a
2101 906A C1 00           ..    cmpb #00
2102 906C 23 2C           #,    bls 2c
2103 906E 7A 00 2A        z.*   dec 002a
2104 9071 F6 00 2A        ..*   ldab 002a
2105 9074 4F              O     clra
2106 9075 CE 00 05        ...   ldx #0005
2107 9078 02              .     idiv
2108 9079 5D              ]     tstb
2109 907A 26 08           &.    bne 08
2110 907C F6 00 2A        ..*   ldab 002a
2111 907F 27 03           '.    beq 03
2112 9081 7A 00 2A        z.*   dec 002a
2113 9084 F6 00 2A        ..*   ldab 002a
2114 9087 F7 00 06        ...   stab 0006
2115 908A F6 00 06        ...   ldab 0006
2116 908D BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
2117 9090 83 00 00        ...   subd #0000
2118 9093 27 03           '.    beq 03
2119 9095 7A 00 2A        z.*   dec 002a
2120 9098 20 0A            .    bra 0a
2121 909A F6 00 2A        ..*   ldab 002a
2122 909D 26 05           &.    bne 05
2123 909F C6 62           .b    ldab #62
2124 90A1 F7 00 2A        ..*   stab 002a
2125 90A4 BD 9D 2A        ..*   jsr 9d2a             ;jump89
2126 90A7 C6 02           ..    ldab #02
2127 90A9 F7 00 36        ..6   stab 0036
2128 90AC CE 00 1B        ...   ldx #001b
2129 90AF 1C 00 10        ...   bset 00,x, #10
2130 90B2 CC 02 33        ..3   ldd #0233
2131 90B5 FD 00 3B        ..;   std 003b
2132 90B8 20 16            .    bra 16
2133 90BA BD A5 1E        ...   jsr a51e             ;jump109
2134 90BD BD AA 9A        ...   jsr aa9a             ;jump127
2135 90C0 BD 9D 2A        ..*   jsr 9d2a             ;jump89
2136 90C3 20 0B            .    bra 0b
2137 90C5 BD A5 1E        ...   jsr a51e             ;jump109
2138 90C8 BD 85 AF        ...   jsr 85af             ;jump14
2139 90CB 20 03            .    bra 03
2140 90CD BD 85 AF        ...   jsr 85af             ;jump14
2141 goto13:
2142 90D0 39              9     rts
2143
2144 jump21:
2145 ; pos message & serial id
2146 90D1 F6 00 1F        ...   ldab 001f
2147 90D4 C4 02           ..    andb #02
2148 90D6 27 14           '.    beq 14
2149 90D8 CE 00 1F        ...   ldx #001f
2150 90DB 1D 00 02        ...   bclr 00,x, #02
2151 90DE CE 00 19        ...   ldx #0019
2152 90E1 1C 00           ..    bset add,x 00,x
2153 90E3 80 7F           ..    suba #7f
2154 90E5 00              .     test
2155 90E6 09              .     dex
2156 90E7 7F 00 0A        ...   clr 000a
2157 90EA 20 40            @    bra 40
2158 90EC F6 00 09        ...   ldab 0009
2159 90EF 4F              O     clra
2160 90F0 BD FE 32        ..2   jsr fe32             ;jump25
2161 90F3 91 0D 00 00     ....  ; array data for jump25
2162 90F7 91 15 00 01     ....
2163 90FB 91 19 00 01     ....
2164 90FF 91 1E 00 01     ....
2165 9103 91 23 00 08     .#..
2166 9107 91 26 FF F5     .&..
2167 910B 00 00           ..    ; end of array data
2168 910D CC B0 AD        ...   ldd #b0ad    ; "PROGRAM  ?"
2169 9110 BD C0 BA        ...   jsr c0ba             ;display:
2170 9113 20 17            .    bra 17
2171 9115 8D 16           ..    bsr dest 16
2172 9117 20 13            .    bra 13
2173 9119 BD 91 C6        ...   jsr 91c6             ;jump76
2174 911C 20 0E            .    bra 0e
2175 911E BD 92 5A        ..Z   jsr 925a             ;jump149
2176 9121 20 09            .    bra 09
2177 9123 BD 85 AF        ...   jsr 85af             ;jump14
2178 9126 7F 00 09        ...   clr 0009
2179 9129 7F 00 0A        ...   clr 000a
2180 912C 39              9     rts
2181
2182 912D F6 00 19        ...   ldab 0019
2183 9130 2C 28           ,(    bge 28
2184 9132 BD A9 CF        ...   jsr a9cf             ;jump131
2185 9135 C6 50           .P    ldab #50
2186 9137 F7 0A 90        ...   stab 0a90
2187 913A C6 20           .     ldab #20
2188 913C F7 0B 8D        ...   stab 0b8d
2189 913F C6 20           .     ldab #20
2190 9141 F7 0B 8E        ...   stab 0b8e
2191 9144 C6 28           .(    ldab #28
2192 9146 F7 0B 8F        ...   stab 0b8f
2193 9149 7F 00 54        ..T   clr 0054
2194 914C 7F 00 60        ..`   clr 0060
2195 914F CE 00 19        ...   ldx #0019
2196 9152 1D 00           ..    bclr add,x 00,x
2197 9154 80 7F           ..    suba #7f
2198 9156 00              .     test
2199 9157 36              6     psha
2200 9158 20 6B            k    bra 6b
2201 915A F6 00 0A        ...   ldab 000a
2202 915D 4F              O     clra
2203 915E BD FE 16        ...   jsr fe16             ;jump2
2204 9161 00              .     test
2205 9162 00              .     test
2206 9163 00              .     test
2207 9164 0B              .     sev
2208 9165 91 C5 91        ...   cmpa c5
2209 9168 7F 91 84        ...   clr 9184
2210 916B 91 89 91        ...   cmpa 89
2211 916E 8E 91 9F        ...   lds #919f
2212 9171 91 B0 91        ...   cmpa b0
2213 9174 C5 91           ..    bitb #91
2214 9176 C5 91           ..    bitb #91
2215 9178 C5 91           ..    bitb #91
2216 917A B5 91 BA        ...   bita 91ba
2217 917D 91 C2 BD        ...   cmpa c2
2218 9180 9D 7E 20        .~    jsr 7e
2219 9183 41              A     illegal
2220 9184 BD A8 64        ..d   jsr a864             ;jump99
2221 9187 20 3C            <    bra 3c
2222 9189 BD A8 D5        ...   jsr a8d5             ;jump97
2223 918C 20 37            7    bra 37
2224 918E BD A8 96        ...   jsr a896             ;jump98
2225 9191 CE 00 1B        ...   ldx #001b
2226 9194 1C 00 10        ...   bset 00,x, #10
2227 9197 CC 02 33        ..3   ldd #0233
2228 919A FD 00 3B        ..;   std 003b
2229 919D 20 26            &    bra 26
2230 919F BD A8 E5        ...   jsr a8e5             ;jump96
2231 91A2 CE 00 1B        ...   ldx #001b
2232 91A5 1C 00 10        ...   bset 00,x, #10
2233 91A8 CC 02 33        ..3   ldd #0233
2234 91AB FD 00 3B        ..;   std 003b
2235 91AE 20 15            .    bra 15
2236 91B0 BD A9 21        ..!   jsr a921             ;jump95
2237 91B3 20 10            .    bra 10
2238 91B5 BD A9 7A        ..z   jsr a97a             ;jump132
2239 91B8 20 0B            .    bra 0b
2240 91BA BD A5 7D        ..}   jsr a57d             ;jump139
2241 91BD BD 85 AF        ...   jsr 85af             ;jump14
2242 91C0 20 03            .    bra 03
2243 91C2 BD 85 AF        ...   jsr 85af             ;jump14
2244 91C5 39              9     rts
2245
2246 jump76:
2247 91C6 F6 00 19        ...   ldab 0019
2248 91C9 2C 28           ,(    bge 28
2249 91CB BD AA 0A        ...   jsr aa0a             ;jump130
2250 91CE C6 53           .S    ldab #53     ; "S"
2251 91D0 F7 0A 90        ...   stab 0a90
2252 91D3 C6 20           .     ldab #20     ; " "
2253 91D5 F7 0A 9D        ...   stab 0a9d
2254 91D8 C6 20           .     ldab #20     ; " "
2255 91DA F7 0A 9E        ...   stab 0a9e
2256 91DD C6 28           .(    ldab #28     ; "("
2257 91DF F7 0A 9F        ...   stab 0a9f
2258 91E2 7F 00 54        ..T   clr 0054
2259 91E5 7F 00 60        ..`   clr 0060
2260 91E8 CE 00 19        ...   ldx #0019
2261 91EB 1D 00           ..    bclr add,x 00,x
2262 91ED 80 7F           ..    suba #7f
2263 91EF 00              .     test
2264 91F0 36              6     psha
2265 91F1 20 66            f    bra 66
2266 91F3 F6 00 0A        ...   ldab 000a
2267 91F6 4F              O     clra
2268 91F7 BD FE 16        ...   jsr fe16             ;jump2
2269 91FA 00 00 00 08     .
2270 91FE 92 59           ..
2271 9200 92 18           ..
2272 9202 92 1D           ..
2273 9204 92 22           ..
2274 9206 92 27           ..
2275 9208 92 38           ..
2276 920A 92 49           ..
2277 920C 92 59           ..
2278 920E 92 59           ..
2279 9210 92 59           ..
2280 9212 92 59           ..
2281 9214 92 4E           ..
2282 9216 92 56           ..
2283 9218 BD 9D 7E        ..    jsr 9d7e
2284 921B 20 3C           .~    bra 3c
2285 921D BD A8 64        ..d   jsr a864             ;jump99
2286 9220 20 37            7    bra 37
2287 9222 BD A8 D5        ...   jsr a8d5             ;jump97
2288 9225 20 32            2    bra 32
2289 9227 BD A8 96        ...   jsr a896             ;jump98
2290 922A CE 00 1B        ...   ldx #001b
2291 922D 1C 00 10        ...   bset 00,x, #10
2292 9230 CC 02 33        ..3   ldd #0233
2293 9233 FD 00 3B        ..;   std 003b
2294 9236 20 21            !    bra 21
2295 9238 BD A8 E5        ...   jsr a8e5             ;jump96
2296 923B CE 00 1B        ...   ldx #001b
2297 923E 1C 00 10        ...   bset 00,x, #10
2298 9241 CC 02 33        ..3   ldd #0233
2299 9244 FD 00 3B        ..;   std 003b
2300 9247 20 10            .    bra 10
2301 9249 BD A9 21        ..!   jsr a921             ;jump95
2302 924C 20 0B            .    bra 0b
2303 924E BD A5 AC        ...   jsr a5ac             ;jump138
2304 9251 BD 85 AF        ...   jsr 85af             ;jump14
2305 9254 20 03            .    bra 03
2306 9256 BD 85 AF        ...   jsr 85af             ;jump14
2307 9259 39              9     rts
2308
2309 jump149:
2310 925A F6 00 19        ...   ldab 0019
2311 925D 2C 28           ,(    bge 28
2312 925F BD AA 3F        ..?   jsr aa3f             ;jump129
2313 9262 C6 49           .I    ldab #49
2314 9264 F7 0A 90        ...   stab 0a90
2315 9267 C6 20           .     ldab #20
2316 9269 F7 0A 9D        ...   stab 0a9d
2317 926C C6 20           .     ldab #20
2318 926E F7 0A 9E        ...   stab 0a9e
2319 9271 C6 28           .(    ldab #28
2320 9273 F7 0A 9F        ...   stab 0a9f
2321 9276 7F 00 54        ..T   clr 0054
2322 9279 7F 00 60        ..`   clr 0060
2323 927C CE 00 19        ...   ldx #0019
2324 927F 1D 00           ..    bclr add,x 00,x
2325 9281 80 7F           ..    suba #7f
2326 9283 00              .     test
2327 9284 36              6     psha
2328 9285 20 66            f    bra 66
2329 9287 F6 00 0A        ...   ldab 000a
2330 928A 4F              O     clra
2331 928B BD FE 16        ...   jsr fe16             ;jump2
2332 928E 00              .     test
2333 928F 00              .     test
2334 9290 00              .     test
2335 9291 0B              .     sev
2336 9292 92 ED 92        ...   sbca ed
2337 9295 AC 92           ..    cpx 92,x
2338 9297 B1 92 B6        ...   cmpa 92b6
2339 929A 92 BB 92        ...   sbca bb
2340 929D CC 92 DD        ...   ldd #92dd
2341 92A0 92 ED 92        ...   sbca ed
2342 92A3 ED 92           ..    std 92,x
2343 92A5 ED 92           ..    std 92,x
2344 92A7 ED 92           ..    std 92,x
2345 92A9 E2 92           ..    sbcb 92,x
2346 92AB EA BD           ..    orb bd,x
2347 92AD 9D 7E 20        .~    jsr 7e
2348 92B0 3C              <     pshx
2349 92B1 BD A8 64        ..d   jsr a864             ;jump99
2350 92B4 20 37            7    bra 37
2351 92B6 BD A8 D5        ...   jsr a8d5             ;jump97
2352 92B9 20 32            2    bra 32
2353 92BB BD A8 96        ...   jsr a896             ;jump98
2354 92BE CE 00 1B        ...   ldx #001b
2355 92C1 1C 00 10        ...   bset 00,x, #10
2356 92C4 CC 02 33        ..3   ldd #0233
2357 92C7 FD 00 3B        ..;   std 003b
2358 92CA 20 21            !    bra 21
2359 92CC BD A8 E5        ...   jsr a8e5             ;jump96
2360 92CF CE 00 1B        ...   ldx #001b
2361 92D2 1C 00 10        ...   bset 00,x, #10
2362 92D5 CC 02 33        ..3   ldd #0233
2363 92D8 FD 00 3B        ..;   std 003b
2364 92DB 20 10            .    bra 10
2365 92DD BD A9 21        ..!   jsr a921             ;jump95
2366 92E0 20 0B            .    bra 0b
2367 92E2 BD A5 D5        ...   jsr a5d5             ;jump137
2368 92E5 BD 85 AF        ...   jsr 85af             ;jump14
2369 92E8 20 03            .    bra 03
2370 92EA BD 85 AF        ...   jsr 85af             ;jump14
2371 92ED 39              9     rts
2372
2373 jump22:
2374 ; print info
2375 92EE F6 0C DC        ...   ldab 0cdc
2376 92F1 4F              O     clra
2377 92F2 37              7     pshb
2378 92F3 36              6     psha
2379 92F4 CC 00 64        ..d   ldd #0064    ; 100
2380 92F7 BD FB BA        ...   jsr fbba             ;jump38 - multiplication
2381 92FA FD 0C E9        ...   std 0ce9
2382 92FD BD D6 F6        ...   jsr d6f6             ;jump106
2383 9300 FC 0C E9        ...   ldd 0ce9
2384 9303 F3 0B EF        ...   addd 0bef
2385 9306 FD 0C F1        ...   std 0cf1
2386 9309 FE 0C F5        ...   ldx 0cf5
2387 930C 3C              <     pshx
2388 930D FC 0C F3        ...   ldd 0cf3
2389 9310 37              7     pshb
2390 9311 36              6     psha
2391 9312 FE 0C F9        ...   ldx 0cf9
2392 9315 3C              <     pshx
2393 9316 FC 0C F7        ...   ldd 0cf7
2394 9319 BD FC 25        ..%   jsr fc25             ;jump85
2395 931C 37              7     pshb
2396 931D 36              6     psha
2397 931E FE 0C FD        ...   ldx 0cfd
2398 9321 3C              <     pshx
2399 9322 FC 0C FB        ...   ldd 0cfb
2400 9325 BD FC 25        ..%   jsr fc25             ;jump85
2401 9328 37              7     pshb
2402 9329 36              6     psha
2403 932A FE 0D 01        ...   ldx 0d01
2404 932D 3C              <     pshx
2405 932E FC 0C FF        ...   ldd 0cff
2406 9331 BD FC 25        ..%   jsr fc25             ;jump85
2407 9334 37              7     pshb
2408 9335 36              6     psha
2409 9336 FE 0D 05        ...   ldx 0d05
2410 9339 3C              <     pshx
2411 933A FC 0D 03        ...   ldd 0d03
2412 933D BD FC 25        ..%   jsr fc25             ;jump85
2413 9340 FD 0D F3        ...   std 0df3
2414 9343 32              2     pula
2415 9344 33              3     pulb
2416 9345 FD 0D F5        ...   std 0df5
2417 9348 FE 0D F9        ...   ldx 0df9
2418 934B 3C              <     pshx
2419 934C FC 0D F7        ...   ldd 0df7
2420 934F 37              7     pshb
2421 9350 36              6     psha
2422 9351 FE 0D F5        ...   ldx 0df5
2423 9354 3C              <     pshx
2424 9355 FC 0D F3        ...   ldd 0df3
2425 9358 BD FC 25        ..%   jsr fc25             ;jump85
2426 935B FD 0D EF        ...   std 0def
2427 935E 32              2     pula
2428 935F 33              3     pulb
2429 9360 FD 0D F1        ...   std 0df1
2430 9363 F6 20 00        . .   ldab 2000
2431 9366 C4 40           .@    andb #40
2432 9368 27 37           '7    beq 37
2433 936A F6 00 1F        ...   ldab 001f
2434 936D C4 02           ..    andb #02
2435 936F 27 1F           '.    beq 1f
2436 9371 BD 97 E9        ...   jsr 97e9             ;jump147 - print the report
2437 9374 CE 00 1F        ...   ldx #001f
2438 9377 1D 00 02        ...   bclr 00,x, #02
2439 937A CE 00 1F        ...   ldx #001f
2440 937D 1D 00 10        ...   bclr 00,x, #10
2441 9380 CC 02 33        ..3   ldd #0233
2442 9383 FD 00 3B        ..;   std 003b
2443 9386 7F 00 09        ...   clr 0009
2444 9389 C6 92           ..    ldab #92
2445 938B F7 00 48        ..H   stab 0048
2446 938E 20 0F            .    bra 0f
2447 9390 F6 00 19        ...   ldab 0019
2448 9393 C4 40           .@    andb #40
2449 9395 26 05           &.    bne 05
2450 9397 BD 98 BF        ...   jsr 98bf             ;jump146
2451 939A 20 03            .    bra 03
2452 939C BD 85 AF        ...   jsr 85af             ;jump14
2453 939F 20 03            .    bra 03
2454 93A1 BD 98 FF        ...   jsr 98ff             ;jump145
2455 93A4 39              9     rts
2456
2457 jump23:
2458 ; program security code menu
2459 93A5 F6 00 1F        ...   ldab 001f
2460 93A8 C4 02           ..    andb #02
2461 93AA 26 0A           &.    bne 0a
2462 93AC F6 00 3A        ..:   ldab 003a
2463 93AF 26 2B           &+    bne 2b
2464 93B1 F6 00 1D        ...   ldab 001d
2465 93B4 2D 26           -&    blt 26
2466 93B6 CC AF BB        ...   ldd #afbb    ;"ENTER CODE"
2467 93B9 BD C0 BA        ...   jsr c0ba             ;display:
2468 93BC CE 00 1F        ...   ldx #001f
2469 93BF 1D 00 02        ...   bclr 00,x, #02
2470 93C2 CE 00 1D        ...   ldx #001d
2471 93C5 1D 00           ..    bclr add,x 00,x
2472 93C7 80 C6           ..    suba #c6
2473 93C9 32              2     pula
2474 93CA F7 00 3A        ..:   stab 003a
2475 93CD F6 0B A8        ...   ldab 0ba8
2476 93D0 F7 00 66        ..f   stab 0066
2477 93D3 BD AA 74        ..t   jsr aa74             ;jump128
2478 93D6 7F 00 48        ..H   clr 0048
2479 93D9 7F 00 54        ..T   clr 0054
2480 93DC F6 00 09        ...   ldab 0009
2481 93DF 26 03           &.    bne 03
2482 93E1 7E 94 92        ~..   jmp 9492             ;goto14
2483 93E4 F6 00 1D        ...   ldab 001d
2484 93E7 2C 03           ,.    bge 03
2485 93E9 7E 94 92        ~..   jmp 9492             ;goto14
2486 93EC F6 00 09        ...   ldab 0009
2487 93EF C1 0B           ..    cmpb #0b
2488 93F1 26 06           &.    bne 06
2489 93F3 BD 85 AF        ...   jsr 85af             ;jump14
2490 93F6 7E 94 90        ~..   jmp 9490             ;goto15
2491 93F9 F6 00 09        ...   ldab 0009
2492 93FC C1 0A           ..    cmpb #0a
2493 93FE 26 03           &.    bne 03
2494 9400 7F 00 09        ...   clr 0009
2495 9403 F6 00 09        ...   ldab 0009
2496 9406 CB 30           .0    addb #30
2497 9408 37              7     pshb
2498 9409 F6 00 54        ..T   ldab 0054
2499 940C 4F              O     clra
2500 940D C3 00 62        ..b   addd #0062
2501 9410 8F              .     xgdx
2502 9411 33              3     pulb
2503 9412 E7 00           ..    stab 00,x
2504 9414 BD BE 4B        ..K   jsr be4b             ;displayblank
2505 9417 F6 00 54        ..T   ldab 0054
2506 941A 26 06           &.    bne 06
2507 941C F6 00 62        ..b   ldab 0062
2508 941F F7 0B 96        ...   stab 0b96
2509 9422 F6 00 54        ..T   ldab 0054
2510 9425 C1 01           ..    cmpb #01
2511 9427 26 0C           &.    bne 0c
2512 9429 F6 00 62        ..b   ldab 0062
2513 942C F7 0B 96        ...   stab 0b96
2514 942F F6 00 63        ..c   ldab 0063
2515 9432 F7 0B 95        ...   stab 0b95
2516 9435 F6 00 54        ..T   ldab 0054
2517 9438 C1 02           ..    cmpb #02
2518 943A 26 12           &.    bne 12
2519 943C F6 00 62        ..b   ldab 0062
2520 943F F7 0B 96        ...   stab 0b96
2521 9442 F6 00 63        ..c   ldab 0063
2522 9445 F7 0B 95        ...   stab 0b95
2523 9448 F6 00 64        ..d   ldab 0064
2524 944B F7 0B 94        ...   stab 0b94
2525 944E F6 00 54        ..T   ldab 0054
2526 9451 C1 03           ..    cmpb #03
2527 9453 26 18           &.    bne 18
2528 9455 F6 00 62        ..b   ldab 0062
2529 9458 F7 0B 96        ...   stab 0b96
2530 945B F6 00 63        ..c   ldab 0063
2531 945E F7 0B 95        ...   stab 0b95
2532 9461 F6 00 64        ..d   ldab 0064
2533 9464 F7 0B 94        ...   stab 0b94
2534 9467 F6 00 65        ..e   ldab 0065
2535 946A F7 0B 93        ...   stab 0b93
2536 946D BD BE 01        ...   jsr be01             ;jump70
2537 9470 7C 00 54        |.T   inc 0054
2538 9473 F6 00 54        ..T   ldab 0054
2539 9476 C1 04           ..    cmpb #04
2540 9478 26 0B           &.    bne 0b
2541 947A CE 00 1D        ...   ldx #001d
2542 947D 1C 00           ..    bset add,x 00,x
2543 947F 80 BD           ..    suba #bd
2544 9481 A8 0F           ..    eora 0f,x
2545 9483 20 06            .    bra 06
2546 9485 CE 00 1D        ...   ldx #001d
2547 9488 1D 00           ..    bclr add,x 00,x
2548 948A 80 C6           ..    suba #c6
2549 948C 32              2     pula
2550 948D F7 00 3A        ..:   stab 003a
2551 goto15:
2552 9490 20 4A            J    bra 4a
2553 goto14:
2554 9492 F6 00 1D        ...   ldab 001d
2555 9495 2C 45           ,E    bge 45
2556 9497 F6 00 09        ...   ldab 0009
2557 949A 4F              O     clra
2558 949B BD FE 32        ..2   jsr fe32             ;jump25
2559 949E 94 B8 00 00     ....  ; array data for jump25
2560 94A2 94 BD 00 01     ....
2561 94A6 94 C2 00 04     ....
2562 94AA 94 D1 00 05     ....
2563 94AE 94 D9 00 01     ....
2564 94B2 94 DC FF F5     ....
2565 94B6 00 00           ..    ; end of array data
2566 94B8 BD 9E 0F        ...   jsr 9e0f             ;jump142
2567 94BB 20 1F            .    bra 1f
2568 94BD BD A7 1F        ...   jsr a71f             ;jump134
2569 94C0 20 1A            .    bra 1a
2570 94C2 7C 00 48        |.H   inc 0048
2571 94C5 F6 00 48        ..H   ldab 0048
2572 94C8 C1 0A           ..    cmpb #0a
2573 94CA 23 03           #.    bls 03
2574 94CC 7F 00 48        ..H   clr 0048
2575 94CF 20 0B            .    bra 0b
2576 94D1 BD A5 FE        ...   jsr a5fe             ;jump136
2577 94D4 BD 85 AF        ...   jsr 85af             ;jump14
2578 94D7 20 03            .    bra 03
2579 94D9 BD 85 AF        ...   jsr 85af             ;jump14
2580 94DC 39              9     rts
2581
2582 jump24:
2583 ; motor functions menu
2584 94DD F6 00 1F        ...   ldab 001f
2585 94E0 C4 02           ..    andb #02
2586 94E2 27 14           '.    beq 14
2587 94E4 CE 00 1F        ...   ldx #001f
2588 94E7 1D 00 02        ...   bclr 00,x, #02
2589 94EA CE 00 19        ...   ldx #0019
2590 94ED 1C 00 80        ..    bset 00,x, #80
2591 94EF 7F 00 09        ..    clr 0009
2592 94F3 7F 00 0A        ...   clr 000a
2593 94F6 20 46            F    bra 46
2594 94F8 F6 00 09        ...   ldab 0009
2595 94FB 4F              O     clra
2596 94FC BD FE 32        ..2   jsr fe32             ;jump25
2597 94FF 95 19 00 00     ....  ; no key
2598 9503 95 21 00 01     .!..  ; key 1 - motor count procedure
2599 9507 95 2C 00 01     .,..  ; key 2 - single test vend
2600 950B 95 30 00 01     .0..  ; key 3 - test vend everything
2601 950F 95 35 00 08     .5..  ; reset
2602 9513 95 38 FF F5     .8..
2603 9517 00 00           ..    ; end of array data
2604 9519 CC B0 A2        ...   ldd #b0a2    ; "MTR FUNCT?"
2605 951C BD C0 BA        ...   jsr c0ba             ;display:
2606 951F 20 1D            .    bra 1d
2607 9521 BD 87 E9        ...   jsr 87e9             ;jump74 - motor count procedure
2608 9524 CE 00 1F        ...   ldx #001f
2609 9527 1C 00 02        ...   bset 00,x, #02
2610 952A 20 12            .    bra 12
2611 952C 8D 11           ..    bsr dest 11  ;jump203 - test single vend
2612 952E 20 0E            .    bra 0e
2613 9530 BD 96 88        ...   jsr 9688             ;jump148 - test all vends
2614 9533 20 09            .    bra 09
2615 9535 BD 85 AF        ...   jsr 85af             ;jump14
2616 9538 7F 00 09        ...   clr 0009
2617 953B 7F 00 0A        ...   clr 000a
2618 953E 39              9     rts
2619
2620 jump203:
2621 ; test a single vend
2622 953F F6 00 19        ...   ldab 0019
2623 9542 2D 0A           -.    blt 0a
2624 9544 F6 00 3A        ..:   ldab 003a
2625 9547 26 22           &"    bne 22
2626 9549 F6 00 1D        ...   ldab 001d
2627 954C 2D 1D           -.    blt 1d
2628 954E 7F 00 2C        ..,   clr 002c
2629 9551 CC B0 B8        ...   ldd #b0b8    ; "SELECTION?"
2630 9554 BD C0 BA        ...   jsr c0ba             ;display:
2631 9557 CE 00 19        ...   ldx #0019
2632 955A 1D 00 80        ..    bclr 00,x, #80
2633 955D CE 00 1D        ..    ldx #001d
2634 9560 1D 00 80        ...   bclr 00,x, #80
2635 9562 7F 00 54        ..    clr 0054
2636 9566 C6 32           .2    ldab #32
2637 9568 F7 00 3A        ..:   stab 003a
2638 956B F6 00 0A        ...   ldab 000a
2639 956E 26 03           &.    bne 03
2640 9570 7E 96 5C        ~.\   jmp 965c             ;goto16
2641 9573 F6 00 1D        ...   ldab 001d
2642 9576 2C 03           ,.    bge 03
2643 9578 7E 96 5C        ~.\   jmp 965c             ;goto16
2644 957B F6 00 0A        ...   ldab 000a
2645 957E C1 0B           ..    cmpb #0b
2646 9580 26 09           &.    bne 09
2647 9582 CE 00 1F        ...   ldx #001f
2648 9585 1C 00 02        ...   bset 00,x, #02
2649 9588 7E 96 5A        ~.Z   jmp 965a             ;goto93
2650 958B F6 00 54        ..T   ldab 0054
2651 958E 26 26           &&    bne 26
2652 9590 BD BE 4B        ..K   jsr be4b             ;displayblank
2653 9593 F6 00 0A        ...   ldab 000a
2654 9596 C1 0A           ..    cmpb #0a
2655 9598 26 03           &.    bne 03
2656 959A 7F 00 0A        ...   clr 000a
2657 959D F6 00 0A        ...   ldab 000a
2658 95A0 CB 30           .0    addb #30
2659 95A2 37              7     pshb
2660 95A3 CC 0B 95        ...   ldd #0b95
2661 95A6 F0 00 54        ..T   subb 0054
2662 95A9 82 00           ..    sbca #00
2663 95AB 8F              .     xgdx
2664 95AC 33              3     pulb
2665 95AD E7 00           ..    stab 00,x
2666 95AF C6 32           .2    ldab #32
2667 95B1 F7 00 3A        ..:   stab 003a
2668 95B4 20 37            7    bra 37
2669 95B6 F6 00 54        ..T   ldab 0054
2670 95B9 C1 01           ..    cmpb #01
2671 95BB 26 27           &'    bne 27
2672 95BD F6 00 0A        ...   ldab 000a
2673 95C0 C1 05           ..    cmpb #05
2674 95C2 27 20           '     beq 20
2675 95C4 F6 00 0A        ...   ldab 000a
2676 95C7 C1 0A           ..    cmpb #0a
2677 95C9 27 19           '.    beq 19
2678 95CB F6 00 0A        ...   ldab 000a
2679 95CE CB 30           .0    addb #30
2680 95D0 37              7     pshb
2681 95D1 CC 0B 95        ...   ldd #0b95
2682 95D4 F0 00 54        ..T   subb 0054
2683 95D7 82 00           ..    sbca #00
2684 95D9 8F              .     xgdx
2685 95DA 33              3     pulb
2686 95DB E7 00           ..    stab 00,x
2687 95DD C6 32           .2    ldab #32
2688 95DF F7 00 3A        ..:   stab 003a
2689 95E2 20 09            .    bra 09
2690 95E4 CE 00 19        ...   ldx #0019
2691 95E7 1C 00 80        ..    bset 00,x, #80
2692 95E9 7F 00 3A        ..    clr 003a
2693 95ED BD BE 01        ...   jsr be01             ;jump70
2694 95F0 7C 00 54        |.T   inc 0054
2695 95F3 F6 00 54        ..T   ldab 0054
2696 95F6 C1 02           ..    cmpb #02
2697 95F8 26 5A           &Z    bne 5a
2698 95FA CE 00 1D        ...   ldx #001d
2699 95FD 1C 00           ..    bset add,x 00,x
2700 95FF 80 F6           ..    suba #f6
2701 9601 0B              .     sev
2702 9602 94 CB D0        ...   anda cb
2703 9605 37              7     pshb
2704 9606 F6 0B 95        ...   ldab 0b95
2705 9609 CB D0           ..    addb #d0
2706 960B 86 0A           ..    ldaa #0a
2707 960D 3D              =     mul
2708 960E 30              0     tsx
2709 960F EB 00           ..    addb 00,x
2710 9611 31              1     ins
2711 9612 F7 00 06        ...   stab 0006
2712 9615 C6 32           .2    ldab #32
2713 9617 F7 00 3A        ..:   stab 003a
2714 961A F6 00 06        ...   ldab 0006
2715 961D BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
2716 9620 83 00 00        ...   subd #0000
2717 9623 26 21           &!    bne 21
2718 9625 BD D3 11        ...   jsr d311             ;jump30 - test position exists
2719 9628 83 00 00        ...   subd #0000
2720 962B 26 0B           &.    bne 0b
2721 962D CE 00 1F        ...   ldx #001f
2722 9630 1C 00 40        ...   bset 00,x, #40
2723 9633 BD 8C 73        ..s   jsr 8c73             ;jump75
2724 9636 20 06            .    bra 06
2725 9638 CE 00 1F        ...   ldx #001f
2726 963B 1D 00 40        ...   bclr 00,x, #40
2727 963E 7F 00 2C        ..,   clr 002c
2728 9641 BD 9A 47        ..G   jsr 9a47             ;jump39 - display price on screen
2729 9644 20 0C            .    bra 0c
2730 9646 CE 00 1D        ...   ldx #001d
2731 9649 1D 00 80        ..    bclr 00,x, #80
2732 964C CE 00 19        ..    ldx #0019
2733 964F 1C 00 80        ..    bset 00,x, #80
2734 9652 20 06           .     bra 06
2735 9654 CE 00 1D        ...   ldx #001d
2736 9657 1D 00 80        ..    bclr 00,x, #80
2737 goto93:
2738 965A 20 2B           .     bra 2b
2739 goto16:
2740 965C F6 00           +.    bmi f6
2741 965D 00              .     test
2742 965E 1D 2C           .,    bclr add,x 2c,x
2743 9660 26 BD           &.    bne bd
2744 9662 D2 13 83        ...   sbcb 13
2745 9665 00              .     test
2746 9666 00              .     test
2747 9667 26 0F           &.    bne 0f
2748 9669 CC 00 64        ..d   ldd #0064
2749 966C BD E5 71        ..q   jsr e571             ;msdelay
2750 966F BD E5 D1        ...   jsr e5d1             ;jump52 - triple beep
2751 9672 CC 03 84        ...   ldd #0384
2752 9675 BD E5 71        ..q   jsr e571             ;msdelay
2753 9678 7F 00 2E        ...   clr 002e
2754 967B CE 00 1D        ...   ldx #001d
2755 967E 1D 00           ..    bclr add,x 00,x
2756 9680 80 CE           ..    suba #ce
2757 9682 00              .     test
2758 9683 1F 1C 00 02     ....  brclr 1c,x 00 02
2759 9687 39              9     rts
2760
2761 jump148:
2762 ;tests all vends
2763 9688 34              4     des
2764 9689 F6 00 19        ...   ldab 0019
2765 968C 2C 19           ,.    bge 19
2766 968E CE 00 19        ...   ldx #0019
2767 9691 1D 00 80        ..    bclr 00,x, #80
2768 9694 CC B0 97        ...   ldd #b097   ; "TEST  VEND"
2769 9697 BD C0 BA        ...   jsr c0ba    ; display
2770 969A C6 0A           ..    ldab #0a
2771 969C F7 00 38        ..8   stab 0038
2772 969F 7F 00 05        ...   clr 0005
2773 96A2 C6 01           ..    ldab #01
2774 96A4 F7 00 06        ...   stab 0006
2775 96A7 F6 00 0A        ...   ldab 000a
2776 96AA C1 0B           ..    cmpb #0b
2777 96AC 26 0C           &.    bne 0c      ; to 96ba
2778 96AE CC 02 33        ..3   ldd #0233
2779 96B1 FD 00 3B        ..;   std 003b
2780 96B4 CE 00 1F        ...   ldx #001f
2781 96B7 1C 00 02        ...   bset 00,x, #02
2782 96BA F6 00 38        ..8   ldab 0038
2783 96BD 27 03           '.    beq 03
2784 96BF 7E 97 6D        ~.m   jmp 976d             ;goto17 - return
2785 96C2 F6 00 06        ...   ldab 0006
2786 96C5 C1 63           .c    cmpb #63     ; exit if >63
2787 96C7 23 03           #.    bls 03
2788 96C9 7E 97 6D        ~.m   jmp 976d             ;goto17 - return
2789 96CC F6 00 06        ...   ldab 0006
2790 96CF C1 63           .c    cmpb #63
2791 96D1 26 0F           &.    bne 0f
2792 96D3 BD 99 C3        ...   jsr 99c3             ;jump143 - write "VENDS XXX" (from 0005)
2793 96D6 CC 07 D0        ...   ldd #07d0    ; 2000
2794 96D9 BD E5 71        ..q   jsr e571             ;msdelay
2795 96DC CE 00 1F        ...   ldx #001f
2796 96DF 1C 00 02        ...   bset 00,x, #02
2797 96E2 BD D3 11        ...   jsr d311             ;jump30 - test position exists
2798 96E5 83 00 00        ...   subd #0000
2799 96E8 26 0B           &.    bne 0b
2800 96EA CE 00 1F        ...   ldx #001f
2801 96ED 1C 00 40        ...   bset 00,x, #40
2802 96F0 BD 8C 73        ..s   jsr 8c73             ;jump75
2803 96F3 20 06            .    bra 06
2804 96F5 CE 00 1F        ...   ldx #001f
2805 96F8 1D 00 40        ...   bclr 00,x, #40
2806 96FB BD 9A 47        ..G   jsr 9a47             ;jump39
2807 96FE F6 00 06        ...   ldab 0006
2808 9701 C1 63           .c    cmpb #63
2809 9703 26 03           &.    bne 03
2810 9705 7F 00 2C        ..,   clr 002c
2811 9708 BD D2 13        ...   jsr d213             ;jump45
2812 970B 83 00 00        ...   subd #0000
2813 970E 27 03           '.    beq 03
2814 9710 7C 00 05        |..   inc 0005
2815 9713 7F 00 2E        ...   clr 002e
2816 9716 C6 05           ..    ldab #05
2817 9718 F7 00 38        ..8   stab 0038
2818 971B CC 02 33        ..3   ldd #0233
2819 971E FD 00 3B        ..;   std 003b
2820 9721 30              0     tsx
2821 9722 6F 00           o.    clr 00,x
2822 9724 F6 0E 6D        ..m   ldab 0e6d
2823 9727 27 0C           '.    beq 0c
2824 9729 F6 00 06        ...   ldab 0006
2825 972C C1 3E           .>    cmpb #3e
2826 972E 26 05           &.    bne 05
2827 9730 C6 01           ..    ldab #01
2828 9732 30              0     tsx
2829 9733 E7 00           ..    stab 00,x
2830 9735 8D 38           .8    bsr dest 38
2831 9737 F6 0E 6D        ..m   ldab 0e6d
2832 973A 27 0C           '.    beq 0c
2833 973C 30              0     tsx
2834 973D E6 00           ..    ldab 00,x
2835 973F C1 01           ..    cmpb #01
2836 9741 26 05           &.    bne 05
2837 9743 C6 45           .E    ldab #45
2838 9745 F7 00 06        ...   stab 0006
2839 9748 F6 00 06        ...   ldab 0006
2840 974B BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
2841 974E 83 00 00        ...   subd #0000
2842 9751 27 15           '.    beq 15
2843 9753 F6 00 06        ...   ldab 0006
2844 9756 C1 09           ..    cmpb #09
2845 9758 26 02           &.    bne 02
2846 975A 8D 13           ..    bsr dest 13
2847 975C F6 00 06        ...   ldab 0006
2848 975F C1 45           .E    cmpb #45
2849 9761 26 05           &.    bne 05
2850 9763 C6 63           .c    ldab #63
2851 9765 F7 00 06        ...   stab 0006
2852 9768 5F              _     clrb
2853 9769 4F              O     clra
2854 976A FD 00 40        ..@   std 0040
2855 goto17:
2856 976D 31              1     ins
2857 976E 39              9     rts
2858
2859 jump41:
2860 976F F6 0E 6D        ..m   ldab 0e6d
2861 9772 C1 01           ..    cmpb #01
2862 9774 26 41           &A    bne 41
2863 9776 F6 00 06        ...   ldab 0006
2864 9779 4F              O     clra
2865 977A CE 00 0A        ...   ldx #000a
2866 977D 02              .     idiv
2867 977E C1 01           ..    cmpb #01
2868 9780 26 05           &.    bne 05
2869 9782 7C 00 06        |..   inc 0006
2870 9785 20 1B            .    bra 1b
2871 9787 F6 00 06        ...   ldab 0006
2872 978A 4F              O     clra
2873 978B CE 00 0A        ...   ldx #000a
2874 978E 02              .     idiv
2875 978F C1 02           ..    cmpb #02
2876 9791 26 0A           &.    bne 0a
2877 9793 C6 09           ..    ldab #09
2878 9795 FB 00 06        ...   addb 0006
2879 9798 F7 00 06        ...   stab 0006
2880 979B 20 05            .    bra 05
2881 979D C6 0B           ..    ldab #0b
2882 979F F7 00 06        ...   stab 0006
2883 97A2 F6 00 06        ...   ldab 0006
2884 97A5 C1 3E           .>    cmpb #3e
2885 97A7 22 07           ".    bhi 07
2886 97A9 F6 00 06        ...   ldab 0006
2887 97AC C1 0B           ..    cmpb #0b
2888 97AE 24 05           $.    bcc 05
2889 97B0 C6 0B           ..    ldab #0b
2890 97B2 F7 00 06        ...   stab 0006
2891 97B5 20 31            1    bra 31
2892 97B7 F6 00 06        ...   ldab 0006
2893 97BA CB 0A           ..    addb #0a
2894 97BC F7 00 06        ...   stab 0006
2895 97BF F6 00 06        ...   ldab 0006
2896 97C2 C1 64           .d    cmpb #64
2897 97C4 23 22           #"    bls 22
2898 97C6 F6 00 06        ...   ldab 0006
2899 97C9 CB 9C           ..    addb #9c
2900 97CB CB 01           ..    addb #01
2901 97CD F7 00 06        ...   stab 0006
2902 97D0 F6 00 06        ...   ldab 0006
2903 97D3 C1 05           ..    cmpb #05
2904 97D5 26 05           &.    bne 05
2905 97D7 C6 06           ..    ldab #06
2906 97D9 F7 00 06        ...   stab 0006
2907 97DC F6 00 06        ...   ldab 0006
2908 97DF C1 0A           ..    cmpb #0a
2909 97E1 26 05           &.    bne 05
2910 97E3 C6 01           ..    ldab #01
2911 97E5 F7 00 06        ...   stab 0006
2912 97E8 39              9     rts
2913
2914 jump147:
2915 97E9 BD BE 4B        ..K   jsr be4b             ;displayblank
2916 97EC CC AF E7        ...   ldd #afe7    ; "-PRINTING-"
2917 97EF BD C0 BA        ...   jsr c0ba             ;display:
2918 97F2 BD F4 15        ...   jsr f415             ;jump112 - print a report
2919 97F5 39              9     rts
2920
2921 jump27:
2922 97F6 BD BE 4B        ..K   jsr be4b             ;displayblank
2923 97F9 F6 00 48        ..H   ldab 0048
2924 97FC 4F              O     clra
2925 97FD BD FE 16        ...   jsr fe16             ;jump2
2926 9800 00 01 00 03     .     test
2927 9804 98 80           ..
2928 9806 98 0E           ..
2929 9808 98 2B           ..
2930 980A 98 48           ..
2931 980C 98 65           ..
2932 980E F6 0C D9        ..    ldab 0cd9
2933 9811 4F              .     clra
2934 9812 BD E7 95        ...   jsr e795      ;jump54 - number to string
2935 9815 C6 4E           .N    ldab #4e
2936 9817 F7 0B 99        ...   stab 0b99
2937 981A C6 49           .I    ldab #49
2938 981C F7 0B 98        ...   stab 0b98
2939 981F C6 4B           .K    ldab #4b
2940 9821 F7 0B 97        ...   stab 0b97
2941 9824 C6 4C           .L    ldab #4c
2942 9826 F7 0B 96        ...   stab 0b96
2943 9829 20 55            U    bra 55
2944 982B F6 0C DA        ...   ldab 0cda
2945 982E 4F              O     clra
2946 982F BD E7 95        ...   jsr e795             ;jump54 - number to string
2947 9832 C6 44           .D    ldab #44
2948 9834 F7 0B 99        ...   stab 0b99
2949 9837 C6 49           .I    ldab #49
2950 9839 F7 0B 98        ...   stab 0b98
2951 983C C6 4D           .M    ldab #4d
2952 983E F7 0B 97        ...   stab 0b97
2953 9841 C6 45           .E    ldab #45
2954 9843 F7 0B 96        ...   stab 0b96
2955 9846 20 38            8    bra 38
2956 9848 F6 0C DB        ...   ldab 0cdb
2957 984B 4F              O     clra
2958 984C BD E7 95        ...   jsr e795             ;jump54 - number to string
2959 984F C6 51           .Q    ldab #51
2960 9851 F7 0B 99        ...   stab 0b99
2961 9854 C6 55           .U    ldab #55
2962 9856 F7 0B 98        ...   stab 0b98
2963 9859 C6 54           .T    ldab #54
2964 985B F7 0B 97        ...   stab 0b97
2965 985E C6 52           .R    ldab #52
2966 9860 F7 0B 96        ...   stab 0b96
2967 9863 20 1B            .    bra 1b
2968 9865 F6 0C DC        ...   ldab 0cdc
2969 9868 4F              O     clra
2970 9869 BD E7 95        ...   jsr e795             ;jump54 - number to string
2971 986C C6 44           .D    ldab #44     ; "D"
2972 986E F7 0B 99        ...   stab 0b99
2973 9871 C6 4F           .O    ldab #4f     ; "O"
2974 9873 F7 0B 98        ...   stab 0b98
2975 9876 C6 4C           .L    ldab #4c     ; "L"
2976 9878 F7 0B 97        ...   stab 0b97
2977 987B C6 52           .R    ldab #52     ; "R"
2978 987D F7 0B 96        ...   stab 0b96
2979 9880 C6 53           .S    ldab #53     ; "S"
2980 9882 F7 0B 95        ...   stab 0b95
2981 9885 C6 20           .     ldab #20     ; " "
2982 9887 F7 0B 94        ...   stab 0b94
2983 988A C6 20           .     ldab #20     ; " "
2984 988C F7 0B 93        ...   stab 0b93
2985 988F F6 00 5D        ..]   ldab 005d
2986 9892 F7 0B 92        ...   stab 0b92
2987 9895 F6 00 5E        ..^   ldab 005e    ; row number?
2988 9898 F7 0B 91        ...   stab 0b91
2989 989B F6 00 5F        .._   ldab 005f    ; column number?
2990 989E F7 0B 90        ...   stab 0b90
2991 98A1 BD BE 01        ...   jsr be01             ;jump70 - to disp buffer
2992 98A4 39              9     rts
2993
2994 jump11:
2995 ; prints contents of 0054 to display
2996 98A5 BD BE 4B        ..K   jsr be4b             ;displayblank
2997 98A8 F6 00 54        ..T   ldab 0054
2998 98AB 4F              O     clra
2999 98AC BD E7 95        ...   jsr e795             ; slot number to digits
3000 98AF F6 00 5E        ..^   ldab 005e
3001 98B2 F7 0B 95        ...   stab 0b95
3002 98B5 F6 00 5F        .._   ldab 005f
3003 98B8 F7 0B 94        ...   stab 0b94
3004 98BB BD BE 01        ...   jsr be01             ;jump70 - write to display
3005 98BE 39              9     rts
3006
3007 jump146:
3008 98BF F6 00 09        ...   ldab 0009
3009 98C2 C1 00           ..    cmpb #00
3010 98C4 26 05           &.    bne 05
3011 98C6 BD 9E 89        ...   jsr 9e89             ;jump100
3012 98C9 20 33            3    bra 33
3013 98CB C1 01           ..    cmpb #01
3014 98CD 26 1E           &.    bne 1e
3015 98CF F6 00 48        ..H   ldab 0048
3016 98D2 C1 92           ..    cmpb #92
3017 98D4 26 15           &.    bne 15
3018 98D6 F6 00 1F        ...   ldab 001f
3019 98D9 C4 10           ..    andb #10
3020 98DB 26 08           &.    bne 08
3021 98DD CE 00 1F        ...   ldx #001f
3022 98E0 1C 00 10        ...   bset 00,x, #10
3023 98E3 20 06            .    bra 06
3024 98E5 CE 00 1F        ...   ldx #001f
3025 98E8 1D 00 10        ...   bclr 00,x, #10
3026 98EB 20 11            .    bra 11
3027 98ED C1 0B           ..    cmpb #0b
3028 98EF 26 0D           &.    bne 0d
3029 98F1 F6 00 1F        ...   ldab 001f
3030 98F4 C4 10           ..    andb #10
3031 98F6 27 03           '.    beq 03
3032 98F8 BD E9 2B        ..+   jsr e92b             ;jump103
3033 98FB BD 85 AF        ...   jsr 85af             ;jump14
3034 98FE 39              9     rts
3035
3036 jump145:
3037 98FF F6 00 1F        ...   ldab 001f
3038 9902 C4 02           ..    andb #02
3039 9904 27 13           '.    beq 13
3040 9906 C6 01           ..    ldab #01
3041 9908 F7 00 48        ..H   stab 0048
3042 990B CE 00 1F        ...   ldx #001f
3043 990E 1D 00 10        ...   bclr 00,x, #10
3044 9911 CE 00 1F        ...   ldx #001f
3045 9914 1D 00 02        ...   bclr 00,x, #02
3046 9917 20 67            g    bra 67
3047 9919 F6 00 09        ...   ldab 0009
3048 991C 4F              O     clra
3049 991D BD FE 32        ..2   jsr fe32             ;jump25
3050 9920 99 36 00 00     .6..  ; array data for jump25
3051 9924 99 3B 00 01     .;..
3052 9928 99 59 00 09     .Y..
3053 992C 99 73 00 01     .s..
3054 9930 99 80 FF F5     ....
3055 9934 00 00           ..    ; end of array data
3056 9936 BD 9E 89        ...   jsr 9e89             ;jump100
3057 9939 20 45            E    bra 45
3058 993B F6 00 48        ..H   ldab 0048
3059 993E C1 92           ..    cmpb #92
3060 9940 26 15           &.    bne 15
3061 9942 F6 00 1F        ...   ldab 001f
3062 9945 C4 10           ..    andb #10
3063 9947 26 08           &.    bne 08
3064 9949 CE 00 1F        ...   ldx #001f
3065 994C 1C 00 10        ...   bset 00,x, #10
3066 994F 20 06            .    bra 06
3067 9951 CE 00 1F        ...   ldx #001f
3068 9954 1D 00 10        ...   bclr 00,x, #10
3069 9957 20 27            '    bra 27
3070 9959 7C 00 48        |.H   inc 0048
3071 995C F6 00 48        ..H   ldab 0048
3072 995F C1 92           ..    cmpb #92
3073 9961 23 0B           #.    bls 0b
3074 9963 C6 01           ..    ldab #01
3075 9965 F7 00 48        ..H   stab 0048
3076 9968 CE 00 1F        ...   ldx #001f
3077 996B 1D 00 10        ...   bclr 00,x, #10
3078 996E BD 9E 89        ...   jsr 9e89             ;jump100
3079 9971 20 0D            .    bra 0d
3080 9973 F6 00 1F        ...   ldab 001f
3081 9976 C4 10           ..    andb #10
3082 9978 27 03           '.    beq 03
3083 997A BD E9 2B        ..+   jsr e92b             ;jump103
3084 997D BD 85 AF        ...   jsr 85af             ;jump14
3085 9980 39              9     rts
3086
3087 jump144:
3088 ; writes "MOTORS XX" where XX is the slot number in 0005
3089 9981 BD BE 4B        ..K   jsr be4b             ;displayblank
3090 9984 F6 00 05        ...   ldab 0005
3091 9987 4F              O     clra
3092 9988 BD E7 95        ...   jsr e795             ;jump54 - number to string
3093 998B C6 4D           .M    ldab #4d     ; "M"
3094 998D F7 0B 99        ...   stab 0b99
3095 9990 C6 4F           .O    ldab #4f     ; "O"
3096 9992 F7 0B 98        ...   stab 0b98
3097 9995 C6 54           .T    ldab #54     ; "T"
3098 9997 F7 0B 97        ...   stab 0b97
3099 999A C6 4F           .O    ldab #4f     ; "O"
3100 999C F7 0B 96        ...   stab 0b96
3101 999F C6 52           .R    ldab #52     ; "R"
3102 99A1 F7 0B 95        ...   stab 0b95
3103 99A4 C6 53           .S    ldab #53     ; "S"
3104 99A6 F7 0B 94        ...   stab 0b94
3105 99A9 C6 20           .     ldab #20     ; " "
3106 99AB F7 0B 93        ...   stab 0b93
3107 99AE C6 20           .     ldab #20     ; " "
3108 99B0 F7 0B 92        ...   stab 0b92
3109 99B3 F6 00 5E        ..^   ldab 005e
3110 99B6 F7 0B 91        ...   stab 0b91
3111 99B9 F6 00 5F        .._   ldab 005f
3112 99BC F7 0B 90        ...   stab 0b90
3113 99BF BD BE 01        ...   jsr be01             ;jump70 - display
3114 99C2 39              9     rts
3115
3116 jump143:
3117 ; writes VENDS XX where XX is contents of 0005
3118 99C3 BD BE 4B        ..K   jsr be4b             ;displayblank
3119 99C6 F6 00 05        ...   ldab 0005
3120 99C9 4F              O     clra
3121 99CA BD E7 95        ...   jsr e795             ;jump54 - number to string
3122 99CD C6 56           .V    ldab #56     ; "V"
3123 99CF F7 0B 99        ...   stab 0b99
3124 99D2 C6 45           .E    ldab #45     ; "E"
3125 99D4 F7 0B 98        ...   stab 0b98
3126 99D7 C6 4E           .N    ldab #4e     ; "N"
3127 99D9 F7 0B 97        ...   stab 0b97
3128 99DC C6 44           .D    ldab #44     ; "D"
3129 99DE F7 0B 96        ...   stab 0b96
3130 99E1 C6 53           .S    ldab #53     ; "S"
3131 99E3 F7 0B 95        ...   stab 0b95
3132 99E6 C6 20           .     ldab #20     ; " "
3133 99E8 F7 0B 94        ...   stab 0b94
3134 99EB C6 20           .     ldab #20     ; " "
3135 99ED F7 0B 93        ...   stab 0b93
3136 99F0 C6 20           .     ldab #20     ; " "
3137 99F2 F7 0B 92        ...   stab 0b92
3138 99F5 F6 00 5E        ..^   ldab 005e
3139 99F8 F7 0B 91        ...   stab 0b91
3140 99FB F6 00 5F        .._   ldab 005f
3141 99FE F7 0B 90        ...   stab 0b90
3142 9A01 BD BE 01        ...   jsr be01             ;jump70
3143 9A04 39              9     rts
3144
3145 jump102:
3146 9A05 BD BE 4B        ..K   jsr be4b             ;displayblank
3147 9A08 FC 00 52        ..R   ldd 0052
3148 9A0B BD E7 45        ..E   jsr e745             ;jump55 - number to string
3149 9A0E C6 4F           .O    ldab #4f     ; "O"
3150 9A10 F7 0B 99        ...   stab 0b99
3151 9A13 C6 44           .D    ldab #44     ; "D"
3152 9A15 F7 0B 98        ...   stab 0b98
3153 9A18 C6 44           .D    ldab #44     ; "D"
3154 9A1A F7 0B 97        ...   stab 0b97
3155 9A1D C6 53           .S    ldab #53     ; "S"
3156 9A1F F7 0B 96        ...   stab 0b96
3157 9A22 C6 20           .     ldab #20     ; " "
3158 9A24 F7 0B 95        ...   stab 0b95
3159 9A27 C6 31           .1    ldab #31     ; "1"
3160 9A29 F7 0B 94        ...   stab 0b94
3161 9A2C C6 2F           ./    ldab #2f     ; "/"
3162 9A2E F7 0B 93        ...   stab 0b93
3163 9A31 F6 00 5D        ..]   ldab 005d
3164 9A34 F7 0B 92        ...   stab 0b92
3165 9A37 F6 00 5E        ..^   ldab 005e
3166 9A3A F7 0B 91        ...   stab 0b91
3167 9A3D F6 00 5F        .._   ldab 005f
3168 9A40 F7 0B 90        ...   stab 0b90
3169 9A43 BD BE 01        ...   jsr be01             ;jump70
3170 9A46 39              9     rts
3171
3172 jump39:
3173 ; write a slot, price, etc to screen.
3174 9A47 BD BE 4B        ..K   jsr be4b             ;displayblank
3175 9A4A F6 00 06        ...   ldab 0006
3176 9A4D 4F              O     clra
3177 9A4E BD E7 95        ...   jsr e795             ;jump54 - number to string
3178 9A51 F6 00 5E        ..^   ldab 005e
3179 9A54 F7 0B 99        ...   stab 0b99
3180 9A57 F6 00 5F        .._   ldab 005f
3181 9A5A F7 0B 98        ...   stab 0b98
3182 9A5D C6 20           .     ldab #20
3183 9A5F F7 0B 97        ...   stab 0b97
3184 9A62 F6 00 1F        ...   ldab 001f
3185 9A65 C4 40           .@    andb #40
3186 9A67 27 45           'E    beq 45
3187 9A69 FC 00 27        ..'   ldd 0027
3188 9A6C BD E7 45        ..E   jsr e745             ;jump55 - number to string
3189 9A6F F6 00 5A        ..Z   ldab 005a
3190 9A72 F7 0B 96        ...   stab 0b96
3191 9A75 F6 00 5D        ..]   ldab 005d
3192 9A78 F7 0B 95        ...   stab 0b95
3193 9A7B F6 00 5E        ..^   ldab 005e
3194 9A7E F7 0B 94        ...   stab 0b94
3195 9A81 F6 00 5F        .._   ldab 005f
3196 9A84 F7 0B 93        ...   stab 0b93
3197 9A87 F6 00 19        ...   ldab 0019
3198 9A8A C4 10           ..    andb #10
3199 9A8C 27 07           '.    beq 07
3200 9A8E C6 2A           .*    ldab #2a     ; '*'
3201 9A90 F7 0B 92        ...   stab 0b92
3202 9A93 20 05            .    bra 05
3203 9A95 C6 20           .     ldab #20
3204 9A97 F7 0B 92        ...   stab 0b92
3205 9A9A FC 00 46        ..F   ldd 0046
3206 9A9D BD E7 45        ..E   jsr e745             ;jump55 - number to string
3207 9AA0 F6 00 5E        ..^   ldab 005e
3208 9AA3 F7 0B 91        ...   stab 0b91
3209 9AA6 F6 00 5F        .._   ldab 005f
3210 9AA9 F7 0B 90        ...   stab 0b90
3211 9AAC 20 1E            .    bra 1e
3212 9AAE C6 58           .X    ldab #58   : "X"
3213 9AB0 F7 0B 96        ...   stab 0b96
3214 9AB3 C6 58           .X    ldab #58   : "X"
3215 9AB5 F7 0B 95        ...   stab 0b95
3216 9AB8 C6 58           .X    ldab #58   : "X"
3217 9ABA F7 0B 94        ...   stab 0b94
3218 9ABD C6 58           .X    ldab #58   : "X"
3219 9ABF F7 0B 93        ...   stab 0b93
3220 9AC2 C6 58           .X    ldab #58   : "X"
3221 9AC4 F7 0B 91        ...   stab 0b91
3222 9AC7 C6 58           .X    ldab #58   : "X"
3223 9AC9 F7 0B 90        ...   stab 0b90
3224 9ACC F6 00 13        ...   ldab 0013
3225 9ACF C1 01           ..    cmpb #01
3226 9AD1 23 4C           #L    bls 4c
3227 9AD3 F6 0B 91        ...   ldab 0b91
3228 9AD6 F7 0B 90        ...   stab 0b90
3229 9AD9 F6 0B 92        ...   ldab 0b92
3230 9ADC F7 0B 91        ...   stab 0b91
3231 9ADF F6 0B 93        ...   ldab 0b93
3232 9AE2 F7 0B 92        ...   stab 0b92
3233 9AE5 F6 0B 94        ...   ldab 0b94
3234 9AE8 F7 0B 93        ...   stab 0b93
3235 9AEB F6 00 13        ...   ldab 0013
3236 9AEE C1 02           ..    cmpb #02
3237 9AF0 26 07           &.    bne 07
3238 9AF2 C6 2E           ..    ldab #2e   ; "."
3239 9AF4 F7 0B 94        ...   stab 0b94
3240 9AF7 20 26            &    bra 26
3241 9AF9 C1 04           ..    cmpb #04
3242 9AFB 26 0D           &.    bne 0d
3243 9AFD F6 0B 95        ...   ldab 0b95
3244 9B00 F7 0B 94        ...   stab 0b94
3245 9B03 C6 2E           ..    ldab #2e   ; "."
3246 9B05 F7 0B 95        ...   stab 0b95
3247 9B08 20 15            .    bra 15
3248 9B0A C1 08           ..    cmpb #08
3249 9B0C 26 11           &.    bne 11
3250 9B0E F6 0B 95        ...   ldab 0b95
3251 9B11 F7 0B 94        ...   stab 0b94
3252 9B14 F6 0B 96        ...   ldab 0b96
3253 9B17 F7 0B 95        ...   stab 0b95
3254 9B1A C6 2E           ..    ldab #2e
3255 9B1C F7 0B 96        ...   stab 0b96
3256 9B1F F6 00 2C        ..,   ldab 002c
3257 9B22 26 3E           &>    bne 3e
3258 9B24 BD BE 69        ..i   jsr be69             ;displayreset
3259 9B27 F6 00 13        ...   ldab 0013
3260 9B2A C1 01           ..    cmpb #01
3261 9B2C 23 2C           #,    bls 2c
3262 9B2E CE 10 28        ..(   ldx #1028
3263 9B31 1C 00 40        ...   bset 00,x, #40 ; enable SPI
3264 9B34 F6 00 1F        ...   ldab 001f
3265 9B37 C4 40           .@    andb #40
3266 9B39 27 0E           '.    beq 0e
3267 9B3B CE 00 01        ...   ldx #0001
3268 9B3E 3C              <     pshx
3269 9B3F F6 00 5F        .._   ldab 005f
3270 9B42 4F              O     clra
3271 9B43 BD BD B5        ...   jsr bdb5             ;jump78
3272 9B46 38              8     pulx
3273 9B47 20 0B            .    bra 0b
3274 9B49 CE 00 01        ...   ldx #0001
3275 9B4C 3C              <     pshx
3276 9B4D CC 00 58        ..X   ldd #0058    ; 'X'
3277 9B50 BD BD B5        ...   jsr bdb5             ;jump78
3278 9B53 38              8     pulx
3279 9B54 CE 10 28        ..(   ldx #1028
3280 9B57 1D 00 40        ...   bclr 00,x, #40
3281 9B5A BD BE 10        ...   jsr be10             ;jump88
3282 9B5D C6 03           ..    ldab #03
3283 9B5F F7 00 2C        ..,   stab 002c
3284 9B62 39              9     rts
3285
3286 jump101:
3287 9B63 BD BE 4B        ..K   jsr be4b             ;displayblank
3288 9B66 FC 00 0D        ...   ldd 000d
3289 9B69 BD E7 45        ..E   jsr e745             ;jump55 - number to string
3290 9B6C C6 44           .D    ldab #44
3291 9B6E F7 0B 99        ...   stab 0b99
3292 9B71 C6 53           .S    ldab #53
3293 9B73 F7 0B 98        ...   stab 0b98
3294 9B76 C6 43           .C    ldab #43
3295 9B78 F7 0B 97        ...   stab 0b97
3296 9B7B C6 4E           .N    ldab #4e
3297 9B7D F7 0B 96        ...   stab 0b96
3298 9B80 C6 54           .T    ldab #54
3299 9B82 F7 0B 95        ...   stab 0b95
3300 9B85 C6 20           .     ldab #20
3301 9B87 F7 0B 94        ...   stab 0b94
3302 9B8A F6 00 5A        ..Z   ldab 005a
3303 9B8D F7 0B 93        ...   stab 0b93
3304 9B90 F6 00 5D        ..]   ldab 005d
3305 9B93 F7 0B 92        ...   stab 0b92
3306 9B96 F6 00 5E        ..^   ldab 005e
3307 9B99 F7 0B 91        ...   stab 0b91
3308 9B9C F6 00 5F        .._   ldab 005f
3309 9B9F F7 0B 90        ...   stab 0b90
3310 9BA2 F6 00 13        ...   ldab 0013
3311 9BA5 C1 01           ..    cmpb #01
3312 9BA7 23 3C           #<    bls 3c
3313 9BA9 F6 0B 91        ...   ldab 0b91
3314 9BAC F7 0B 90        ...   stab 0b90
3315 9BAF F6 00 13        ...   ldab 0013
3316 9BB2 C1 02           ..    cmpb #02
3317 9BB4 26 07           &.    bne 07
3318 9BB6 C6 2E           ..    ldab #2e
3319 9BB8 F7 0B 91        ...   stab 0b91
3320 9BBB 20 28            (    bra 28
3321 9BBD C1 04           ..    cmpb #04
3322 9BBF 26 0D           &.    bne 0d
3323 9BC1 F6 0B 92        ...   ldab 0b92
3324 9BC4 F7 0B 91        ...   stab 0b91
3325 9BC7 C6 2E           ..    ldab #2e
3326 9BC9 F7 0B 92        ...   stab 0b92
3327 9BCC 20 17            .    bra 17
3328 9BCE C1 08           ..    cmpb #08
3329 9BD0 26 13           &.    bne 13
3330 9BD2 F6 0B 92        ...   ldab 0b92
3331 9BD5 F7 0B 91        ...   stab 0b91
3332 9BD8 F6 0B 93        ...   ldab 0b93
3333 9BDB F7 0B 92        ...   stab 0b92
3334 9BDE C6 2E           ..    ldab #2e
3335 9BE0 F7 0B 93        ...   stab 0b93
3336 9BE3 20 00            .    bra 00
3337 9BE5 F6 00 2C        ..,   ldab 002c
3338 9BE8 26 2A           &*    bne 2a
3339 9BEA BD BE 69        ..i   jsr be69             ;displayreset
3340 9BED F6 00 13        ...   ldab 0013
3341 9BF0 C1 01           ..    cmpb #01
3342 9BF2 23 18           #.    bls 18
3343 9BF4 CE 10 28        ..(   ldx #1028
3344 9BF7 1C 00 40        ...   bset 00,x, #40
3345 9BFA CE 00 01        ...   ldx #0001
3346 9BFD 3C              <     pshx
3347 9BFE F6 00 5F        .._   ldab 005f
3348 9C01 4F              O     clra
3349 9C02 BD BD B5        ...   jsr bdb5             ;jump78
3350 9C05 38              8     pulx
3351 9C06 CE 10 28        ..(   ldx #1028
3352 9C09 1D 00 40        ...   bclr 00,x, #40
3353 9C0C BD BE 10        ...   jsr be10             ;jump88
3354 9C0F C6 03           ..    ldab #03
3355 9C11 F7 00 2C        ..,   stab 002c
3356 9C14 39              9     rts
3357
3358 jump111:
3359 9C15 BD BE 4B        ..K   jsr be4b             ;displayblank
3360 9C18 F6 00 48        ..H   ldab 0048
3361 9C1B 4F              O     clra
3362 9C1C BD FE 16        ...   jsr fe16             ;jump2
3363 9C1F 00 00 00 0A     .     0..10
3364 9C23 9D 29           .).   ;
3365 9C25 9C 3B           ;     ;
3366 9C27 9C 53           .S.   ;
3367 9C29 9C 6B           k     ;
3368 9C2B 9C 83           ...   ;
3369 9C2D 9C 9B           ...   ;
3370 9C2F 9C B2           ...   ;
3371 9C31 9C C9           ...   ;
3372 9C33 9C E0           ...   ;
3373 9C35 9C F7           ..    ;
3374 9C37 9D 0E           ...   ;
3375 9C39 9D 23           .#.   ;
3376 9C3B F6 00 67        .     ldab 0067
3377 9C3D C4 02           g.    andb #02
3378 9C40 27 08           '.    beq 08
3379 9C42 CC AF 00        ...   ldd #af00    ; "LNK MSTR Y"
3380 9C45 BD C0 BA        ...   jsr c0ba             ;display:
3381 9C48 20 06            .    bra 06
3382 9C4A CC AF 0B        ...   ldd #af0b    ; "LNK MSTR N"
3383 9C4D BD C0 BA        ...   jsr c0ba             ;display:
3384 9C50 7E 9D 29        ~.)   jmp 9d29             ;goto18
3385 ;
3386 9C53 F6 00 67        ..g   ldab 0067
3387 9C56 C4 10           ..    andb #10
3388 9C58 27 08           '.    beq 08
3389 9C5A CC AF 42        ..B   ldd #af42    ; "PRC HOLD Y"
3390 9C5D BD C0 BA        ...   jsr c0ba             ;display:
3391 9C60 20 06            .    bra 06
3392 9C62 CC AF 4D        ..M   ldd #af4d    ; "PRC HOLD N"
3393 9C65 BD C0 BA        ...   jsr c0ba             ;display:
3394 9C68 7E 9D 29        ~.)   jmp 9d29             ;goto18
3395 ;
3396 9C6B F6 00 67        ..g   ldab 0067
3397 9C6E C4 20           .     andb #20
3398 9C70 27 08           '.    beq 08
3399 9C72 CC AF 58        ..X   ldd #af58    ; "PRC DISP Y"
3400 9C75 BD C0 BA        ...   jsr c0ba             ;display:
3401 9C78 20 06            .    bra 06
3402 9C7A CC AF 63        ..c   ldd #af63    ; "PRC DISP N"
3403 9C7D BD C0 BA        ...   jsr c0ba             ;display:
3404 9C80 7E 9D 29        ~.)   jmp 9d29             ;goto18
3405 ;
3406 9C83 F6 00 67        ..g   ldab 0067
3407 9C86 C4 01           ..    andb #01
3408 9C88 27 08           '.    beq 08
3409 9C8A CC AE EA        ...   ldd #aeea    ; "DUMB MEC Y"
3410 9C8D BD C0 BA        ...   jsr c0ba             ;display:
3411 9C90 20 06            .    bra 06
3412 9C92 CC AE F5        ...   ldd #aef5    ; "DUMB MEC N"
3413 9C95 BD C0 BA        ...   jsr c0ba             ;display:
3414 9C98 7E 9D 29        ~.)   jmp 9d29             ;goto18
3415 9C9B F6 00 67        ..g   ldab 0067
3416 9C9E C4 04           ..    andb #04
3417 9CA0 27 08           '.    beq 08
3418 9CA2 CC AF 16        ...   ldd #af16    ; "CARD RDR Y"
3419 9CA5 BD C0 BA        ...   jsr c0ba             ;display:
3420 9CA8 20 06            .    bra 06
3421 9CAA CC AF 21        ..!   ldd #af21    ; "CARD RDR N"
3422 9CAD BD C0 BA        ...   jsr c0ba             ;display:
3423 9CB0 20 77            w    bra 77
3424 9CB2 F6 00 67        ..g   ldab 0067
3425 9CB5 C4 08           ..    andb #08
3426 9CB7 27 08           '.    beq 08
3427 9CB9 CC AF 2C        ..,   ldd #af2c    ; "BILL VAL Y"
3428 9CBC BD C0 BA        ...   jsr c0ba             ;display:
3429 9CBF 20 06            .    bra 06
3430 9CC1 CC AF 37        ..7   ldd #af37    ; "BILL VAL N"
3431 9CC4 BD C0 BA        ...   jsr c0ba             ;display:
3432 9CC7 20 60            `    bra 60
3433 9CC9 F6 00 67        ..g   ldab 0067
3434 9CCC C4 40           .@    andb #40
3435 9CCE 27 08           '.    beq 08
3436 9CD0 CC AF 84        ...   ldd #af84    ; "$1 CHNGR Y"
3437 9CD3 BD C0 BA        ...   jsr c0ba             ;display:
3438 9CD6 20 06            .    bra 06
3439 9CD8 CC AF 8F        ...   ldd #af8f    ; "$1 CHNGR N"
3440 9CDB BD C0 BA        ...   jsr c0ba             ;display:
3441 9CDE 20 49            I    bra 49
3442 9CE0 F6 0E 70        ..p   ldab 0e70
3443 9CE3 C1 01           ..    cmpb #01
3444 9CE5 26 08           &.    bne 08
3445 9CE7 CC AE BE        ...   ldd #aebe    ; "$5 ENABLE "
3446 9CEA BD C0 BA        ...   jsr c0ba             ;display:
3447 9CED 20 06            .    bra 06
3448 9CEF CC AE C9        ...   ldd #aec9    ; "$5 DISABLE"
3449 9CF2 BD C0 BA        ...   jsr c0ba             ;display:
3450 9CF5 20 32            2    bra 32
3451 9CF7 F6 0E 6F        ..o   ldab 0e6f
3452 9CFA C1 01           ..    cmpb #01
3453 9CFC 26 08           &.    bne 08
3454 9CFE CC AE D4        ...   ldd #aed4    ; "SODA VEND "
3455 9D01 BD C0 BA        ...   jsr c0ba             ;display:
3456 9D04 20 06            .    bra 06
3457 9D06 CC AE DF        ...   ldd #aedf    ; "SNACK VEND"
3458 9D09 BD C0 BA        ...   jsr c0ba             ;display:
3459 9D0C 20 1B            .    bra 1b
3460 9D0E F6 00 67        ..g   ldab 0067
3461 9D11 2C 08           ,.    bge 08
3462 9D13 CC AF 6E        ..n   ldd #af6e    ; "FREE VND Y"
3463 9D16 BD C0 BA        ...   jsr c0ba             ;display:
3464 9D19 20 06            .    bra 06
3465 9D1B CC AF 79        ..y   ldd #af79    ; "FREE VND N"
3466 9D1E BD C0 BA        ...   jsr c0ba             ;display:
3467 9D21 20 06            .    bra 06
3468 9D23 CC AF B0        ...   ldd #afb0    ; "HIT KEY "0""
3469 9D26 BD C0 BA        ...   jsr c0ba             ;display:
3470 goto18:
3471 9D29 39              9     rts
3472
3473 jump89:
3474 9D2A BD BE 4B        ..K   jsr be4b             ;displayblank
3475 9D2D F6 00 22        .."   ldab 0022
3476 9D30 4F              O     clra
3477 9D31 BD E7 95        ...   jsr e795             ;jump54 - number to string
3478 9D34 F6 00 5E        ..^   ldab 005e
3479 9D37 F7 0B 99        ...   stab 0b99
3480 9D3A F6 00 5F        .._   ldab 005f
3481 9D3D F7 0B 98        ...   stab 0b98
3482 9D40 C6 20           .     ldab #20
3483 9D42 F7 0B 97        ...   stab 0b97
3484 9D45 F6 00 24        ..$   ldab 0024
3485 9D48 4F              O     clra
3486 9D49 BD E7 95        ...   jsr e795             ;jump54 - number to string
3487 9D4C C6 50           .P    ldab #50
3488 9D4E F7 0B 96        ...   stab 0b96
3489 9D51 F6 00 5E        ..^   ldab 005e
3490 9D54 F7 0B 95        ...   stab 0b95
3491 9D57 F6 00 5F        .._   ldab 005f
3492 9D5A F7 0B 94        ...   stab 0b94
3493 9D5D C6 20           .     ldab #20
3494 9D5F F7 0B 93        ...   stab 0b93
3495 9D62 F6 00 2A        ..*   ldab 002a
3496 9D65 4F              O     clra
3497 9D66 BD E7 95        ...   jsr e795             ;jump54 - number to string
3498 9D69 C6 46           .F    ldab #46
3499 9D6B F7 0B 92        ...   stab 0b92
3500 9D6E F6 00 5E        ..^   ldab 005e
3501 9D71 F7 0B 91        ...   stab 0b91
3502 9D74 F6 00 5F        .._   ldab 005f
3503 9D77 F7 0B 90        ...   stab 0b90
3504 9D7A BD BE 01        ...   jsr be01             ;jump70
3505 9D7D 39              9     rts
3506
3507 9D7E BD BE 4B        ..K   jsr be4b             ;displayblank
3508 9D81 F6 00 60        ..`   ldab 0060
3509 9D84 4F              O     clra
3510 9D85 C3 0A 90        ...   addd #0a90
3511 9D88 8F              .     xgdx
3512 9D89 E6 00           ..    ldab 00,x
3513 9D8B F7 0B 99        ...   stab 0b99
3514 9D8E F6 00 60        ..`   ldab 0060
3515 9D91 4F              O     clra
3516 9D92 C3 0A 91        ...   addd #0a91
3517 9D95 8F              .     xgdx
3518 9D96 E6 00           ..    ldab 00,x
3519 9D98 F7 0B 98        ...   stab 0b98
3520 9D9B F6 00 60        ..`   ldab 0060
3521 9D9E 4F              O     clra
3522 9D9F C3 0A 92        ...   addd #0a92
3523 9DA2 8F              .     xgdx
3524 9DA3 E6 00           ..    ldab 00,x
3525 9DA5 F7 0B 97        ...   stab 0b97
3526 9DA8 F6 00 60        ..`   ldab 0060
3527 9DAB 4F              O     clra
3528 9DAC C3 0A 94        ...   addd #0a94
3529 9DAF 8F              .     xgdx
3530 9DB0 E6 00           ..    ldab 00,x
3531 9DB2 F7 0B 95        ...   stab 0b95
3532 9DB5 F6 00 60        ..`   ldab 0060
3533 9DB8 4F              O     clra
3534 9DB9 C3 0A 95        ...   addd #0a95
3535 9DBC 8F              .     xgdx
3536 9DBD E6 00           ..    ldab 00,x
3537 9DBF F7 0B 94        ...   stab 0b94
3538 9DC2 F6 00 60        ..`   ldab 0060
3539 9DC5 4F              O     clra
3540 9DC6 C3 0A 96        ...   addd #0a96
3541 9DC9 8F              .     xgdx
3542 9DCA E6 00           ..    ldab 00,x
3543 9DCC F7 0B 93        ...   stab 0b93
3544 9DCF C6 20           .     ldab #20
3545 9DD1 F7 0B 92        ...   stab 0b92
3546 9DD4 C6 20           .     ldab #20
3547 9DD6 F7 0B 91        ...   stab 0b91
3548 9DD9 F6 00 54        ..T   ldab 0054
3549 9DDC 4F              O     clra
3550 9DDD C3 B4 8F        ...   addd #b48f
3551 9DE0 8F              .     xgdx
3552 9DE1 E6 00           ..    ldab 00,x
3553 9DE3 F7 0B 90        ...   stab 0b90
3554 9DE6 F6 00 38        ..8   ldab 0038
3555 9DE9 C1 03           ..    cmpb #03
3556 9DEB 24 0F           $.    bcc 0f
3557 9DED F6 00 60        ..`   ldab 0060
3558 9DF0 4F              O     clra
3559 9DF1 C3 0A 93        ...   addd #0a93
3560 9DF4 8F              .     xgdx
3561 9DF5 E6 00           ..    ldab 00,x
3562 9DF7 F7 0B 96        ...   stab 0b96
3563 9DFA 20 05            .    bra 05
3564 9DFC C6 1F           ..    ldab #1f
3565 9DFE F7 0B 96        ...   stab 0b96
3566 9E01 BD BE 01        ...   jsr be01             ;jump70
3567 9E04 F6 00 38        ..8   ldab 0038
3568 9E07 26 05           &.    bne 05
3569 9E09 C6 05           ..    ldab #05
3570 9E0B F7 00 38        ..8   stab 0038
3571 9E0E 39              9     rts
3572
3573 jump142:
3574 9E0F BD BE 4B        ..K   jsr be4b             ;displayblank
3575 9E12 F6 00 48        ..H   ldab 0048
3576 9E15 26 15           &.    bne 15
3577 9E17 F6 00 66        ..f   ldab 0066
3578 9E1A 27 08           '.    beq 08
3579 9E1C CC AF C6        ...   ldd #afc6    ; "SECURE ON"
3580 9E1F BD C0 BA        ...   jsr c0ba             ;display:
3581 9E22 20 06            .    bra 06
3582 9E24 CC AF D1        ...   ldd #afd1    ; "SECURE OFF"
3583 9E27 BD C0 BA        ...   jsr c0ba             ;display:
3584 9E2A 20 5C            \    bra 5c
3585 9E2C C6 4D           .M    ldab #4d
3586 9E2E F7 0B 99        ...   stab 0b99
3587 9E31 C6 45           .E    ldab #45
3588 9E33 F7 0B 98        ...   stab 0b98
3589 9E36 C6 4E           .N    ldab #4e
3590 9E38 F7 0B 97        ...   stab 0b97
3591 9E3B C6 55           .U    ldab #55
3592 9E3D F7 0B 96        ...   stab 0b96
3593 9E40 C6 20           .     ldab #20
3594 9E42 F7 0B 95        ...   stab 0b95
3595 9E45 F6 00 48        ..H   ldab 0048
3596 9E48 CB 30           .0    addb #30
3597 9E4A F7 0B 94        ...   stab 0b94
3598 9E4D F6 00 48        ..H   ldab 0048
3599 9E50 C1 0A           ..    cmpb #0a
3600 9E52 26 05           &.    bne 05
3601 9E54 C6 30           .0    ldab #30
3602 9E56 F7 0B 94        ...   stab 0b94
3603 9E59 C6 20           .     ldab #20
3604 9E5B F7 0B 93        ...   stab 0b93
3605 9E5E C6 4F           .O    ldab #4f
3606 9E60 F7 0B 92        ...   stab 0b92
3607 9E63 F6 00 48        ..H   ldab 0048
3608 9E66 4F              O     clra
3609 9E67 C3 00 68        ..h   addd #0068
3610 9E6A 8F              .     xgdx
3611 9E6B E6 00           ..    ldab 00,x
3612 9E6D 27 0C           '.    beq 0c
3613 9E6F C6 4E           .N    ldab #4e
3614 9E71 F7 0B 91        ...   stab 0b91
3615 9E74 C6 20           .     ldab #20
3616 9E76 F7 0B 90        ...   stab 0b90
3617 9E79 20 0A            .    bra 0a
3618 9E7B C6 46           .F    ldab #46
3619 9E7D F7 0B 91        ...   stab 0b91
3620 9E80 C6 46           .F    ldab #46
3621 9E82 F7 0B 90        ...   stab 0b90
3622 9E85 BD BE 01        ...   jsr be01             ;jump70
3623 9E88 39              9     rts
3624
3625 jump100:
3626 ; print out information to display
3627 9E89 BD BE 4B        ..K   jsr be4b             ;displayblank
3628 9E8C F6 00 48        ..H   ldab 0048
3629 9E8F 4F              O     clra
3630 9E90 BD FE 16        ...   jsr fe16             ;jump2
3631 9E93 00 01 00 2D     .     ; 45 choices here
3632 9E97 A1 C4           -.    ;
3633 9E99 9E F5           ..    ;
3634 9E9B 9E FE           ..    ;
3635 9E9D 9F 07           ..    ;
3636 9E9F 9F 10           ..    ;
3637 9EA1 9F 19           ..    ;
3638 9EA3 9F 3B           ;.    ;
3639 9EA5 9F 44           .D.   ;
3640 9EA7 9F 52           R     ;
3641 9EA9 9F 5B           .[.   ;
3642 9EAB 9F 69           i     ;
3643 9EAD 9F 72           .r.   ;
3644 9EBF 9F 80           ..    ;
3645 9EB1 9F 89           ..    ;
3646 9EB3 9F 97           ..    ;
3647 9EB5 9F A0           ...   ;
3648 9EB7 9F AE           ..    ;
3649 9EB9 9F B7           ...   ;
3650 9EBB 9F C5           ...   ;
3651 9EBD 9F DD           ...   ;
3652 9EBF 9F EB           ..    ;
3653 9EC1 A0 03           .     ;
3654 9EC3 A0 11           ..    ;
3655 9EC5 A0 29           .)    ;
3656 9EC7 A0 37           .7    ;
3657 9EC9 A0 54           .T    ;
3658 9ECB A0 62           .b    ;
3659 9ECD A0 7F           ..    ;
3660 9ECF A0 8D           ..    ;
3661 9ED1 A0 96           ..    ;
3662 9ED3 A0 A4           ..    ;
3663 9ED5 A0 AD           ..    ;
3664 9ED7 A0 BC           ..    ;
3665 9ED9 A0 C5           ..    ;
3666 9EDB A0 D4           ..    ;
3667 9EDD A0 DD           ..    ;
3668 9EDF A0 EC           ..    ;
3669 9EE1 A0 F5           ..    ;
3670 9EE3 A1 04           ..    ;
3671 9EE5 A1 26           .&    ;
3672 9EE7 A1 34           .4    ;
3673 9EE9 A1 55           .U    ;
3674 9EEB A1 62           .b    ;
3675 9EED A1 83           ..    ;
3676 9EEF A1 90           ..    ;
3677 9EF1 A1 B1           ..    ;
3678 9EF3 A1 BE           ..    ;
3679 9EF5 CC B2 90        ...   ldd #b290    ; "SERIAL #"
3680 9EF8 BD C0 BA        ...   jsr c0ba             ;display:
3681 9EFB 7E A1 C4        ~..   jmp a1c4             ;goto19
3682 9EFE CC 0C BC        ...   ldd #0cbc    ; serial number?
3683 9F01 BD C0 BA        ...   jsr c0ba             ;display:
3684 9F04 7E A1 C4        ~..   jmp a1c4             ;goto19
3685 9F07 CC B2 A2        ...   ldd #b2a2    ; "MACHINE ID"
3686 9F0A BD C0 BA        ...   jsr c0ba             ;display:
3687 9F0D 7E A1 C4        ~..   jmp a1c4             ;goto19
3688 9F10 CC 0C CC        ...   ldd #0ccc    ; machine id?
3689 9F13 BD C0 BA        ...   jsr c0ba             ;display:
3690 9F16 7E A1 C4        ~..   jmp a1c4             ;goto19
3691 9F19 C6 41           .A    ldab #41     ; "A"
3692 9F1B F7 0B 99        ...   stab 0b99
3693 9F1E C6 55           .U    ldab #55     ; "U"
3694 9F20 F7 0B 98        ...   stab 0b98
3695 9F23 C6 44           .D    ldab #44     ; "D"
3696 9F25 F7 0B 97        ...   stab 0b97
3697 9F28 C6 54           .T    ldab #54     ; "T"
3698 9F2A F7 0B 96        ...   stab 0b96
3699 9F2D CE 00 00        ...   ldx #0000
3700 9F30 3C              <     pshx
3701 9F31 FC 0C E7        ...   ldd 0ce7
3702 9F34 BD A2 D4        ...   jsr a2d4             ;jump79
3703 9F37 38              8     pulx
3704 9F38 7E A1 C4        ~..   jmp a1c4             ;goto19
3705 9F3B CC B2 C6        ...   ldd #b2c6    ; "SALES (R)   "
3706 9F3E BD C0 BA        ...   jsr c0ba             ;display:
3707 9F41 7E A1 C4        ~..   jmp a1c4             ;goto19
3708 9F44 FE 0D E9        ...   ldx 0de9
3709 9F47 3C              <     pshx
3710 9F48 FC 0D E7        ...   ldd 0de7
3711 9F4B BD A3 41        ..A   jsr a341             ;jump77
3712 9F4E 38              8     pulx
3713 9F4F 7E A1 C4        ~..   jmp a1c4             ;goto19
3714 9F52 CC B2 D8        ...   ldd #b2d8    ; "SALES (N)   "
3715 9F55 BD C0 BA        ...   jsr c0ba             ;display:
3716 9F58 7E A1 C4        ~..   jmp a1c4             ;goto19
3717 9F5B FE 0D ED        ...   ldx 0ded
3718 9F5E 3C              <     pshx
3719 9F5F FC 0D EB        ...   ldd 0deb
3720 9F62 BD A3 41        ..A   jsr a341             ;jump77
3721 9F65 38              8     pulx
3722 9F66 7E A1 C4        ~..   jmp a1c4             ;goto19
3723 9F69 CC B2 EA        ...   ldd #b2ea    ; "BAG TOTAL"
3724 9F6C BD C0 BA        ...   jsr c0ba             ;display:
3725 9F6F 7E A1 C4        ~..   jmp a1c4             ;goto19
3726 9F72 FE 0D F1        ...   ldx 0df1
3727 9F75 3C              <     pshx
3728 9F76 FC 0D EF        ...   ldd 0def
3729 9F79 BD A3 41        ..A   jsr a341             ;jump77
3730 9F7C 38              8     pulx
3731 9F7D 7E A1 C4        ~..   jmp a1c4             ;goto19
3732 9F80 CC B2 FC        ...   ldd #b2fc    ; "CASH BOX"
3733 9F83 BD C0 BA        ...   jsr c0ba             ;display:
3734 9F86 7E A1 C4        ~..   jmp a1c4             ;goto19
3735 9F89 FE 0D F9        ...   ldx 0df9
3736 9F8C 3C              <     pshx
3737 9F8D FC 0D F7        ...   ldd 0df7
3738 9F90 BD A3 41        ..A   jsr a341             ;jump77
3739 9F93 38              8     pulx
3740 9F94 7E A1 C4        ~..   jmp a1c4             ;goto19
3741 9F97 CC B3 0E        ...   ldd #b30e    ; "CARD SALES"
3742 9F9A BD C0 BA        ...   jsr c0ba             ;display:
3743 9F9D 7E A1 C4        ~..   jmp a1c4             ;goto19
3744 9FA0 FE 0D FD        ...   ldx 0dfd
3745 9FA3 3C              <     pshx
3746 9FA4 FC 0D FB        ...   ldd 0dfb
3747 9FA7 BD A3 41        ..A   jsr a341             ;jump77
3748 9FAA 38              8     pulx
3749 9FAB 7E A1 C4        ~..   jmp a1c4             ;goto19
3750 9FAE CC B3 35        ..5   ldd #b335    ; "BILL TOTAL"
3751 9FB1 BD C0 BA        ...   jsr c0ba             ;display:
3752 9FB4 7E A1 C4        ~..   jmp a1c4             ;goto19
3753 9FB7 FE 0D F5        ...   ldx 0df5
3754 9FBA 3C              <     pshx
3755 9FBB FC 0D F3        ...   ldd 0df3
3756 9FBE BD A3 41        ..A   jsr a341             ;jump77
3757 9FC1 38              8     pulx
3758 9FC2 7E A1 C4        ~..   jmp a1c4             ;goto19
3759 9FC5 C6 24           .$    ldab #24
3760 9FC7 F7 0B 99        ...   stab 0b99
3761 9FCA C6 31           .1    ldab #31
3762 9FCC F7 0B 98        ...   stab 0b98
3763 9FCF CE 00 00        ...   ldx #0000
3764 9FD2 3C              <     pshx
3765 9FD3 FC 0C DD        ...   ldd 0cdd
3766 9FD6 BD A2 D4        ...   jsr a2d4             ;jump79
3767 9FD9 38              8     pulx
3768 9FDA 7E A1 C4        ~..   jmp a1c4             ;goto19
3769 9FDD FE 0C F5        ...   ldx 0cf5
3770 9FE0 3C              <     pshx
3771 9FE1 FC 0C F3        ...   ldd 0cf3
3772 9FE4 BD A3 41        ..A   jsr a341             ;jump77
3773 9FE7 38              8     pulx
3774 9FE8 7E A1 C4        ~..   jmp a1c4             ;goto19
3775 9FEB C6 24           .$    ldab #24
3776 9FED F7 0B 99        ...   stab 0b99
3777 9FF0 C6 32           .2    ldab #32
3778 9FF2 F7 0B 98        ...   stab 0b98
3779 9FF5 CE 00 00        ...   ldx #0000
3780 9FF8 3C              <     pshx
3781 9FF9 FC 0C DF        ...   ldd 0cdf
3782 9FFC BD A2 D4        ...   jsr a2d4             ;jump79
3783 9FFF 38              8     pulx
3784 A000 7E A1 C4        ~..   jmp a1c4             ;goto19
3785 A003 FE 0C F9        ...   ldx 0cf9
3786 A006 3C              <     pshx
3787 A007 FC 0C F7        ...   ldd 0cf7
3788 A00A BD A3 41        ..A   jsr a341             ;jump77
3789 A00D 38              8     pulx
3790 A00E 7E A1 C4        ~..   jmp a1c4             ;goto19
3791 A011 C6 24           .$    ldab #24
3792 A013 F7 0B 99        ...   stab 0b99
3793 A016 C6 35           .5    ldab #35
3794 A018 F7 0B 98        ...   stab 0b98
3795 A01B CE 00 00        ...   ldx #0000
3796 A01E 3C              <     pshx
3797 A01F FC 0C E1        ...   ldd 0ce1
3798 A022 BD A2 D4        ...   jsr a2d4             ;jump79
3799 A025 38              8     pulx
3800 A026 7E A1 C4        ~..   jmp a1c4             ;goto19
3801 A029 FE 0C FD        ...   ldx 0cfd
3802 A02C 3C              <     pshx
3803 A02D FC 0C FB        ...   ldd 0cfb
3804 A030 BD A3 41        ..A   jsr a341             ;jump77
3805 A033 38              8     pulx
3806 A034 7E A1 C4        ~..   jmp a1c4             ;goto19
3807 A037 C6 24           .$    ldab #24
3808 A039 F7 0B 99        ...   stab 0b99
3809 A03C C6 31           .1    ldab #31
3810 A03E F7 0B 98        ...   stab 0b98
3811 A041 C6 30           .0    ldab #30
3812 A043 F7 0B 97        ...   stab 0b97
3813 A046 CE 00 00        ...   ldx #0000
3814 A049 3C              <     pshx
3815 A04A FC 0C E3        ...   ldd 0ce3
3816 A04D BD A2 D4        ...   jsr a2d4             ;jump79
3817 A050 38              8     pulx
3818 A051 7E A1 C4        ~..   jmp a1c4             ;goto19
3819 A054 FE 0D 01        ...   ldx 0d01
3820 A057 3C              <     pshx
3821 A058 FC 0C FF        ...   ldd 0cff
3822 A05B BD A3 41        ..A   jsr a341             ;jump77
3823 A05E 38              8     pulx
3824 A05F 7E A1 C4        ~..   jmp a1c4             ;goto19
3825 A062 C6 24           .$    ldab #24
3826 A064 F7 0B 99        ...   stab 0b99
3827 A067 C6 32           .2    ldab #32
3828 A069 F7 0B 98        ...   stab 0b98
3829 A06C C6 30           .0    ldab #30
3830 A06E F7 0B 97        ...   stab 0b97
3831 A071 CE 00 00        ...   ldx #0000
3832 A074 3C              <     pshx
3833 A075 FC 0C E5        ...   ldd 0ce5
3834 A078 BD A2 D4        ...   jsr a2d4             ;jump79
3835 A07B 38              8     pulx
3836 A07C 7E A1 C4        ~..   jmp a1c4             ;goto19
3837 A07F FE 0D 05        ...   ldx 0d05
3838 A082 3C              <     pshx
3839 A083 FC 0D 03        ...   ldd 0d03
3840 A086 BD A3 41        ..A   jsr a341             ;jump77
3841 A089 38              8     pulx
3842 A08A 7E A1 C4        ~..   jmp a1c4             ;goto19
3843 A08D CC B3 B7        ...   ldd #b3b7    ; "TUBE TOTAL"
3844 A090 BD C0 BA        ...   jsr c0ba             ;display:
3845 A093 7E A1 C4        ~..   jmp a1c4             ;goto19
3846 A096 CE 00 01        ...   ldx #0001
3847 A099 3C              <     pshx
3848 A09A FC 0C F1        ...   ldd 0cf1
3849 A09D BD A2 D4        ...   jsr a2d4             ;jump79
3850 A0A0 38              8     pulx
3851 A0A1 7E A1 C4        ~..   jmp a1c4             ;goto19
3852 A0A4 CC B3 CE        ...   ldd #b3ce    ; "$1 COIN"
3853 A0A7 BD C0 BA        ...   jsr c0ba             ;display:
3854 A0AA 7E A1 C4        ~..   jmp a1c4             ;goto19
3855 A0AD FE 0C E9        ...   ldx 0ce9
3856 A0B0 3C              <     pshx
3857 A0B1 F6 0C DC        ...   ldab 0cdc
3858 A0B4 4F              O     clra
3859 A0B5 BD A3 1A        ...   jsr a31a             ;jump93
3860 A0B8 38              8     pulx
3861 A0B9 7E A1 C4        ~..   jmp a1c4             ;goto19
3862 A0BC CC B3 E0        ...   ldd #b3e0    ; "QUARTERS"
3863 A0BF BD C0 BA        ...   jsr c0ba             ;display:
3864 A0C2 7E A1 C4        ~..   jmp a1c4             ;goto19
3865 A0C5 FE 0C EB        ...   ldx 0ceb
3866 A0C8 3C              <     pshx
3867 A0C9 F6 0C DB        ...   ldab 0cdb
3868 A0CC 4F              O     clra
3869 A0CD BD A3 1A        ...   jsr a31a             ;jump93
3870 A0D0 38              8     pulx
3871 A0D1 7E A1 C4        ~..   jmp a1c4             ;goto19
3872 A0D4 CC B3 F2        ...   ldd #b3f2    ; "DIMES"
3873 A0D7 BD C0 BA        ...   jsr c0ba             ;display:
3874 A0DA 7E A1 C4        ~..   jmp a1c4             ;goto19
3875 A0DD FE 0C ED        ...   ldx 0ced
3876 A0E0 3C              <     pshx
3877 A0E1 F6 0C DA        ...   ldab 0cda
3878 A0E4 4F              O     clra
3879 A0E5 BD A3 1A        ...   jsr a31a             ;jump93
3880 A0E8 38              8     pulx
3881 A0E9 7E A1 C4        ~..   jmp a1c4             ;goto19
3882 A0EC CC B4 04        ...   ldd #b404    ; "NICKELS"
3883 A0EF BD C0 BA        ...   jsr c0ba             ;display:
3884 A0F2 7E A1 C4        ~..   jmp a1c4             ;goto19
3885 A0F5 FE 0C EF        ...   ldx 0cef
3886 A0F8 3C              <     pshx
3887 A0F9 F6 0C D9        ...   ldab 0cd9
3888 A0FC 4F              O     clra
3889 A0FD BD A3 1A        ...   jsr a31a             ;jump93
3890 A100 38              8     pulx
3891 A101 7E A1 C4        ~..   jmp a1c4             ;goto19
3892 A104 C6 57           .W    ldab #57
3893 A106 F7 0B 99        ...   stab 0b99
3894 A109 C6 53           .S    ldab #53
3895 A10B F7 0B 98        ...   stab 0b98
3896 A10E C6 4E           .N    ldab #4e
3897 A110 F7 0B 97        ...   stab 0b97
3898 A113 C6 4B           .K    ldab #4b
3899 A115 F7 0B 96        ...   stab 0b96
3900 A118 CE 00 00        ...   ldx #0000
3901 A11B 3C              <     pshx
3902 A11C FC 0D 07        ...   ldd 0d07
3903 A11F BD A2 D4        ...   jsr a2d4             ;jump79
3904 A122 38              8     pulx
3905 A123 7E A1 C4        ~..   jmp a1c4             ;goto19
3906 A126 FE 0D 11        ...   ldx 0d11
3907 A129 3C              <     pshx
3908 A12A FC 0D 0F        ...   ldd 0d0f
3909 A12D BD A3 41        ..A   jsr a341             ;jump77
3910 A130 38              8     pulx
3911 A131 7E A1 C4        ~..   jmp a1c4             ;goto19
3912 A134 C6 53           .S    ldab #53
3913 A136 F7 0B 99        ...   stab 0b99
3914 A139 C6 48           .H    ldab #48
3915 A13B F7 0B 98        ...   stab 0b98
3916 A13E C6 50           .P    ldab #50
3917 A140 F7 0B 97        ...   stab 0b97
3918 A143 C6 52           .R    ldab #52
3919 A145 F7 0B 96        ...   stab 0b96
3920 A148 CE 00 00        ...   ldx #0000
3921 A14B 3C              <     pshx
3922 A14C FC 0D 09        ...   ldd 0d09
3923 A14F BD A2 D4        ...   jsr a2d4             ;jump79
3924 A152 38              8     pulx
3925 A153 20 6F            o    bra 6f
3926 A155 FE 0D 15        ...   ldx 0d15
3927 A158 3C              <     pshx
3928 A159 FC 0D 13        ...   ldd 0d13
3929 A15C BD A3 41        ..A   jsr a341             ;jump77
3930 A15F 38              8     pulx
3931 A160 20 62            b    bra 62
3932 A162 C6 50           .P    ldab #50
3933 A164 F7 0B 99        ...   stab 0b99
3934 A167 C6 52           .R    ldab #52
3935 A169 F7 0B 98        ...   stab 0b98
3936 A16C C6 4D           .M    ldab #4d
3937 A16E F7 0B 97        ...   stab 0b97
3938 A171 C6 4F           .O    ldab #4f
3939 A173 F7 0B 96        ...   stab 0b96
3940 A176 CE 00 00        ...   ldx #0000
3941 A179 3C              <     pshx
3942 A17A FC 0D 0B        ...   ldd 0d0b
3943 A17D BD A2 D4        ...   jsr a2d4             ;jump79
3944 A180 38              8     pulx
3945 A181 20 41            A    bra 41
3946 A183 FE 0D 19        ...   ldx 0d19
3947 A186 3C              <     pshx
3948 A187 FC 0D 17        ...   ldd 0d17
3949 A18A BD A3 41        ..A   jsr a341             ;jump77
3950 A18D 38              8     pulx
3951 A18E 20 34            4    bra 34
3952 A190 C6 46           .F    ldab #46
3953 A192 F7 0B 99        ...   stab 0b99
3954 A195 C6 52           .R    ldab #52
3955 A197 F7 0B 98        ...   stab 0b98
3956 A19A C6 45           .E    ldab #45
3957 A19C F7 0B 97        ...   stab 0b97
3958 A19F C6 45           .E    ldab #45
3959 A1A1 F7 0B 96        ...   stab 0b96
3960 A1A4 CE 00 00        ...   ldx #0000
3961 A1A7 3C              <     pshx
3962 A1A8 FC 0D 0D        ...   ldd 0d0d
3963 A1AB BD A2 D4        ...   jsr a2d4             ;jump79
3964 A1AE 38              8     pulx
3965 A1AF 20 13            .    bra 13
3966 A1B1 FE 0D 1D        ...   ldx 0d1d
3967 A1B4 3C              <     pshx
3968 A1B5 FC 0D 1B        ...   ldd 0d1b
3969 A1B8 BD A3 41        ..A   jsr a341             ;jump77
3970 A1BB 38              8     pulx
3971 A1BC 20 06            .    bra 06
3972 A1BE CC B4 84        ...   ldd #b484    ; "VENDS/CODE"
3973 A1C1 BD C0 BA        ...   jsr c0ba             ;display:
3974 goto19:
3975 A1C4 F6 00 48        ..H   ldab 0048
3976 A1C7 C1 2E           ..    cmpb #2e
3977 A1C9 23 74           #t    bls 74
3978 A1CB F6 00 48        ..H   ldab 0048
3979 A1CE C1 92           ..    cmpb #92
3980 A1D0 24 6D           $m    bcc 6d
3981 A1D2 F6 00 48        ..H   ldab 0048
3982 A1D5 4F              O     clra
3983 A1D6 05              .     asld
3984 A1D7 C3 08 6C        ..l   addd #086c
3985 A1DA 8F              .     xgdx
3986 A1DB EC 00           ..    ldd 00,x
3987 A1DD C4 80           ..    andb #80
3988 A1DF 26 0E           &.    bne 0e
3989 A1E1 7C 00 48        |.H   inc 0048
3990 A1E4 F6 00 48        ..H   ldab 0048
3991 A1E7 C1 92           ..    cmpb #92
3992 A1E9 26 02           &.    bne 02
3993 A1EB 20 02            .    bra 02
3994 A1ED 20 E3            .    bra e3
3995 A1EF F6 00 48        ..H   ldab 0048
3996 A1F2 4F              O     clra
3997 A1F3 C3 FF D2        ...   addd #ffd2
3998 A1F6 BD E7 95        ...   jsr e795             ;jump54 - number to string
3999 A1F9 F6 00 5E        ..^   ldab 005e
4000 A1FC F7 0B 99        ...   stab 0b99
4001 A1FF F6 00 5F        .._   ldab 005f
4002 A202 F7 0B 98        ...   stab 0b98
4003 A205 F6 00 48        ..H   ldab 0048
4004 A208 4F              O     clra
4005 A209 05              .     asld
4006 A20A C3 0C C3        ...   addd #0cc3
4007 A20D 8F              .     xgdx
4008 A20E EC 00           ..    ldd 00,x
4009 A210 BD E7 45        ..E   jsr e745             ;jump55 - number to string
4010 A213 F6 00 57        ..W   ldab 0057
4011 A216 F7 0B 94        ...   stab 0b94
4012 A219 F6 00 5A        ..Z   ldab 005a
4013 A21C F7 0B 93        ...   stab 0b93
4014 A21F F6 00 5D        ..]   ldab 005d
4015 A222 F7 0B 92        ...   stab 0b92
4016 A225 F6 00 5E        ..^   ldab 005e
4017 A228 F7 0B 91        ...   stab 0b91
4018 A22B F6 00 5F        .._   ldab 005f
4019 A22E F7 0B 90        ...   stab 0b90
4020 A231 5F              _     clrb
4021 A232 4F              O     clra
4022 A233 8D 27           .'    bsr dest 27
4023 A235 F6 00 48        ..H   ldab 0048
4024 A238 C1 92           ..    cmpb #92
4025 A23A 26 03           &.    bne 03
4026 A23C 7F 00 2C        ..,   clr 002c
4027 A23F F6 00 48        ..H   ldab 0048
4028 A242 C1 92           ..    cmpb #92
4029 A244 26 15           &.    bne 15
4030 A246 F6 00 1F        ...   ldab 001f
4031 A249 C4 10           ..    andb #10
4032 A24B 27 08           '.    beq 08
4033 A24D CC AF 9A        ...   ldd #af9a    ; "CLR MIS Y"
4034 A250 BD C0 BA        ...   jsr c0ba             ;display:
4035 A253 20 06            .    bra 06
4036 A255 CC AF A5        ...   ldd #afa5    ; "CLR MIS N"
4037 A258 BD C0 BA        ...   jsr c0ba             ;display:
4038 A25B 39              9     rts
4039
4040 bigmodulus:
4041 A25C 37              7     pshb
4042 A25D 36              6     psha
4043 A25E F6 00 2C        ..,   ldab 002c
4044 A261 26 6F           &o    bne 6f
4045 A263 BD BE 69        ..i   jsr be69             ;displayreset
4046 A266 30              0     tsx
4047 A267 E6 01           ..    ldab 01,x
4048 A269 27 5F           '_    beq 5f
4049 A26B F6 00 13        ...   ldab 0013
4050 A26E C1 01           ..    cmpb #01
4051 A270 23 58           #X    bls 58
4052 A272 CE 10 28        ..(   ldx #1028
4053 A275 1C 00 40        ...   bset 00,x, #40
4054 A278 CE 00 01        ...   ldx #0001
4055 A27B 3C              <     pshx
4056 A27C F6 0B 90        ...   ldab 0b90
4057 A27F 4F              O     clra
4058 A280 BD BD B5        ...   jsr bdb5             ;jump78
4059 A283 38              8     pulx
4060 A284 CE 10 28        ..(   ldx #1028
4061 A287 1D 00 40        ...   bclr 00,x, #40
4062 A28A F6 0B 91        ...   ldab 0b91
4063 A28D F7 0B 90        ...   stab 0b90
4064 A290 F6 00 13        ...   ldab 0013
4065 A293 C1 02           ..    cmpb #02
4066 A295 26 07           &.    bne 07
4067 A297 C6 2E           ..    ldab #2e
4068 A299 F7 0B 91        ...   stab 0b91
4069 A29C 20 2C            ,    bra 2c
4070 A29E F6 00 13        ...   ldab 0013
4071 A2A1 C1 04           ..    cmpb #04
4072 A2A3 26 0D           &.    bne 0d
4073 A2A5 F6 0B 92        ...   ldab 0b92
4074 A2A8 F7 0B 91        ...   stab 0b91
4075 A2AB C6 2E           ..    ldab #2e
4076 A2AD F7 0B 92        ...   stab 0b92
4077 A2B0 20 18            .    bra 18
4078 A2B2 F6 00 13        ...   ldab 0013
4079 A2B5 C1 08           ..    cmpb #08
4080 A2B7 26 11           &.    bne 11
4081 A2B9 F6 0B 92        ...   ldab 0b92
4082 A2BC F7 0B 91        ...   stab 0b91
4083 A2BF F6 0B 93        ...   ldab 0b93
4084 A2C2 F7 0B 92        ...   stab 0b92
4085 A2C5 C6 2E           ..    ldab #2e
4086 A2C7 F7 0B 93        ...   stab 0b93
4087 A2CA BD BE 10        ...   jsr be10             ;jump88
4088 A2CD C6 03           ..    ldab #03
4089 A2CF F7 00 2C        ..,   stab 002c
4090 A2D2 38              8     pulx
4091 A2D3 39              9     rts
4092
4093 jump79:
4094 ; displays a price on screen?
4095 A2D4 37              7     pshb
4096 A2D5 36              6     psha
4097 A2D6 30              0     tsx
4098 A2D7 EC 00           ..    ldd 00,x
4099 A2D9 BD E7 45        ..E   jsr e745             ;jump55 - number to string
4100 A2DC F6 00 57        ..W   ldab 0057
4101 A2DF F7 0B 94        ...   stab 0b94
4102 A2E2 F6 00 5A        ..Z   ldab 005a
4103 A2E5 F7 0B 93        ...   stab 0b93
4104 A2E8 F6 00 5D        ..]   ldab 005d
4105 A2EB F7 0B 92        ...   stab 0b92
4106 A2EE F6 00 5E        ..^   ldab 005e
4107 A2F1 F7 0B 91        ...   stab 0b91
4108 A2F4 F6 00 5F        .._   ldab 005f
4109 A2F7 F7 0B 90        ...   stab 0b90
4110 A2FA 30              0     tsx
4111 A2FB E6 05           ..    ldab 05,x
4112 A2FD 27 14           '.    beq 14
4113 A2FF F6 00 17        ...   ldab 0017
4114 A302 C4 08           ..    andb #08
4115 A304 26 05           &.    bne 05       ; to a30b
4116 A306 C6 24           .$    ldab #24     ; "$"
4117 A308 F7 0B 95        ...   stab 0b95
4118 A30B CC 00 01        ...   ldd #0001
4119 A30E BD A2 5C        ..\   jsr a25c             ;bigmodulus
4120 A311 20 05            .    bra 05       ; return
4121 A313 5F              _     clrb
4122 A314 4F              O     clra
4123 A315 BD A2 5C        ..\   jsr a25c             ;bigmodulus
4124 A318 38              8     pulx
4125 A319 39              9     rts
4126
4127 jump93:
4128 ; write number to display
4129 A31A 37              7     pshb
4130 A31B 36              6     psha
4131 A31C 30              0     tsx
4132 A31D E6 01           ..    ldab 01,x
4133 A31F 4F              O     clra
4134 A320 BD E7 95        ...   jsr e795             ;jump54 - number to string
4135 A323 F6 00 5D        ..]   ldab 005d
4136 A326 F7 0B 99        ...   stab 0b99
4137 A329 F6 00 5E        ..^   ldab 005e
4138 A32C F7 0B 98        ...   stab 0b98
4139 A32F F6 00 5F        .._   ldab 005f
4140 A332 F7 0B 97        ...   stab 0b97
4141 A335 CE 00 01        ...   ldx #0001
4142 A338 3C              <     pshx
4143 A339 30              0     tsx
4144 A33A EC 06           ..    ldd 06,x
4145 A33C 8D 96           ..    bsr dest 96
4146 A33E 38              8     pulx
4147 A33F 38              8     pulx
4148 A340 39              9     rts
4149
4150 jump77:
4151 A341 38              8     pulx
4152 A342 37              7     pshb
4153 A343 36              6     psha
4154 A344 3C              <     pshx
4155 A345 30              0     tsx
4156 A346 EC 04           ..    ldd 04,x
4157 A348 37              7     pshb
4158 A349 36              6     psha
4159 A34A EC 02           ..    ldd 02,x
4160 A34C BD E6 21        ..!   jsr e621             ;jump56 - write to display
4161 A34F 38              8     pulx
4162 A350 C6 20           .     ldab #20     ; " "
4163 A352 F7 0B 99        ...   stab 0b99
4164 A355 F6 00 17        ...   ldab 0017
4165 A358 C4 08           ..    andb #08
4166 A35A 26 05           &.    bne 05
4167 A35C C6 24           .$    ldab #24     ; "$"
4168 A35E F7 0B 98        ...   stab 0b98
4169 A361 CC 00 01        ...   ldd #0001
4170 A364 BD A2 5C        ..\   jsr a25c             ;bigmodulus
4171 A367 38              8     pulx
4172 A368 31              1     ins
4173 A369 31              1     ins
4174 A36A 6E 00           n.    jmp 00,x
4175
4176 jump81:
4177 A36C BD BE 4B        ..K   jsr be4b             ;displayblank
4178 A36F CC AF DC        ...   ldd #afdc    ; "- SAVING -"
4179 A372 BD C0 BA        ...   jsr c0ba             ;display:
4180 A375 CC 01 F4        ...   ldd #01f4
4181 A378 BD E5 71        ..q   jsr e571             ;msdelay
4182 A37B 39              9     rts
4183
4184 jump141:
4185 A37C FC 00 52        ..R   ldd 0052
4186 A37F FD 0B B5        ...   std 0bb5
4187 A382 8D E8           ..    bsr dest e8
4188 A384 39              9     rts
4189
4190 jump40:
4191 A385 F6 00 1F        ...   ldab 001f
4192 A388 C4 40           .@    andb #40
4193 A38A 27 73           's    beq 73
4194 A38C F6 00 06        ...   ldab 0006
4195 A38F 4F              O     clra
4196 A390 05              .     asld
4197 A391 C3 08 00        ...   addd #0800
4198 A394 8F              .     xgdx
4199 A395 EC 00           ..    ldd 00,x
4200 A397 5F              _     clrb
4201 A398 84 C0           ..    anda #c0
4202 A39A FA 00 28        ..(   orb 0028
4203 A39D BA 00 27        ..'   ora 0027
4204 A3A0 FD 00 27        ..'   std 0027
4205 A3A3 FC 00 27        ..'   ldd 0027
4206 A3A6 37              7     pshb
4207 A3A7 36              6     psha
4208 A3A8 F6 00 06        ...   ldab 0006
4209 A3AB 4F              O     clra
4210 A3AC 05              .     asld
4211 A3AD C3 08 00        ...   addd #0800
4212 A3B0 38              8     pulx
4213 A3B1 8F              .     xgdx
4214 A3B2 ED 00           ..    std 00,x
4215 A3B4 FC 00 27        ..'   ldd 0027
4216 A3B7 43              C     coma
4217 A3B8 53              S     comb
4218 A3B9 37              7     pshb
4219 A3BA 36              6     psha
4220 A3BB F6 00 06        ...   ldab 0006
4221 A3BE 4F              O     clra
4222 A3BF 05              .     asld
4223 A3C0 C3 0B F1        ...   addd #0bf1
4224 A3C3 38              8     pulx
4225 A3C4 8F              .     xgdx
4226 A3C5 ED 00           ..    std 00,x
4227 A3C7 F6 00 06        ...   ldab 0006
4228 A3CA 4F              O     clra
4229 A3CB 05              .     asld
4230 A3CC C3 08 C8        ...   addd #08c8
4231 A3CF 8F              .     xgdx
4232 A3D0 EC 00           ..    ldd 00,x
4233 A3D2 C4 80           ..    andb #80
4234 A3D4 84 F7           ..    anda #f7
4235 A3D6 FA 00 47        ..G   orb 0047
4236 A3D9 BA 00 46        ..F   ora 0046
4237 A3DC FD 00 46        ..F   std 0046
4238 A3DF F6 00 19        ...   ldab 0019
4239 A3E2 C4 10           ..    andb #10
4240 A3E4 27 06           '.    beq 06
4241 A3E6 CE 00 46        ..F   ldx #0046
4242 A3E9 1C 00 08        ...   bset 00,x, #08
4243 ; set memory location 08c8+(slotnum*2) to value of 0046
4244 A3EC FC 00 46        ..F   ldd 0046
4245 A3EF 37              7     pshb
4246 A3F0 36              6     psha
4247 A3F1 F6 00 06        ...   ldab 0006
4248 A3F4 4F              O     clra
4249 A3F5 05              .     asld
4250 A3F6 C3 08 C8        ...   addd #08c8
4251 A3F9 38              8     pulx
4252 A3FA 8F              .     xgdx
4253 A3FB ED 00           ..    std 00,x
4254 A3FD 20 22            "    bra 22
4255 A3FF CC 2A FF        .*.   ldd #2aff      ; 00101010 11111111
4256 A402 37              7     pshb
4257 A403 36              6     psha
4258 A404 F6 00 06        ...   ldab 0006
4259 A407 4F              O     clra
4260 A408 05              .     asld
4261 A409 C3 08 00        ...   addd #0800
4262 A40C 38              8     pulx
4263 A40D 8F              .     xgdx
4264 A40E ED 00           ..    std 00,x
4265 A410 CC D5 00        ...   ldd #d500
4266 A413 37              7     pshb
4267 A414 36              6     psha
4268 A415 F6 00 06        ...   ldab 0006
4269 A418 4F              O     clra
4270 A419 05              .     asld
4271 A41A C3 0B F1        ...   addd #0bf1
4272 A41D 38              8     pulx
4273 A41E 8F              .     xgdx
4274 A41F ED 00           ..    std 00,x
4275 A421 F6 00 1F        ...   ldab 001f
4276 A424 C4 40           .@    andb #40
4277 A426 27 26           '&    beq 26
4278 A428 F6 00 06        ...   ldab 0006
4279 A42B 4F              O     clra
4280 A42C 05              .     asld
4281 A42D C3 08 00        ...   addd #0800
4282 A430 8F              .     xgdx
4283 A431 EC 00           ..    ldd 00,x
4284 A433 C4 FF           ..    andb #ff
4285 A435 84 3F           .?    anda #3f
4286 A437 FD 00 27        ..'   std 0027
4287 A43A F6 00 06        ...   ldab 0006
4288 A43D 4F              O     clra
4289 A43E 05              .     asld
4290 A43F C3 08 C8        ...   addd #08c8
4291 A442 8F              .     xgdx
4292 A443 EC 00           ..    ldd 00,x
4293 A445 C4 7F           ..    andb #7f
4294 A447 4F              O     clra
4295 A448 FD 00 46        ..F   std 0046
4296 A44B BD A3 6C        ..l   jsr a36c             ;jump81
4297 A44E 39              9     rts
4298
4299 jump140:
4300 A44F FC 00 0D        ...   ldd 000d
4301 A452 FD 0B B7        ...   std 0bb7
4302 A455 BD A3 6C        ..l   jsr a36c             ;jump81
4303 A458 39              9     rts
4304
4305 jump110:
4306 ; some sort of defaults setting loading? plays with 0067 an awful lot
4307 A459 3C              <     pshx
4308 A45A F6 00 67        ..g   ldab 0067
4309 A45D C4 02           ..    andb #02
4310 A45F 27 08           '.    beq 08
4311 A461 CE 00 67        ..g   ldx #0067
4312 A464 1D 00 4D        ...   bclr 00,x, #4D
4313 A467 20 0C            .    bra 0c
4314 A469 CE 00 67        ..g   ldx #0067
4315 A46C 1D 00 10        ...   bclr 00,x, #10
4316 A46F CE 00 67        ..g   ldx #0067
4317 A472 1D 00           ..    bclr add,x 00,x
4318 A474 20 F6            .    bra f6
4319 A476 00              .     test
4320 A477 67 C4           g.    asr c4,x
4321 A479 10              .     sba
4322 A47A 26 06           &.    bne 06
4323 A47C CE 00 67        ..g   ldx #0067
4324 A47F 1D 00           ..    bclr add,x 00,x
4325 A481 20 F6            .    bra f6
4326 A483 00              .     test
4327 A484 67 C4           g.    asr c4,x
4328 A486 01              .     nop
4329 A487 27 14           '.    beq 14
4330 A489 CE 00 67        ..g   ldx #0067
4331 A48C 1D 00 02        ...   bclr 00,x, #02
4332 A48F CE 00 67        ..g   ldx #0067
4333 A492 1D 00 10        ...   bclr 00,x, #10
4334 A495 CE 00 67        ..g   ldx #0067
4335 A498 1D 00           ..    bclr add,x 00,x
4336 A49A 20 20                 bra 20
4337 A49C 06              .     tap
4338 A49D CE 00 67        ..g   ldx #0067
4339 A4A0 1D 00 08        ...   bclr 00,x, #08
4340 A4A3 F6 00 67        ..g   ldab 0067
4341 A4A6 C4 04           ..    andb #04
4342 A4A8 27 12           '.    beq 12
4343 A4AA CE 00 67        ..g   ldx #0067
4344 A4AD 1D 00 02        ...   bclr 00,x, #02
4345 A4B0 CE 00 67        ..g   ldx #0067
4346 A4B3 1D 00 10        ..    bclr 00,x, #10
4347 A4B6 CE 00 67        ..g   ldx #0067
4348 A4B9 1D 00 20        ..    bclr 00,x, #20
4349 A4BC F6 00 67        ...   ldab 0067
4350 A4BF C4 08           ..    andb #08
4351 A4C1 26 06           &.    bne 06
4352 A4C3 CE 00 67        ..g   ldx #0067
4353 A4C6 1D 00 40        ..@   bclr 00,x, #40
4354 A4C9 F6 00 67        ..g   ldab 0067
4355 A4CC F7 0B C0        ...   stab 0bc0
4356 A4CF F6 0E 70        ..p   ldab 0e70
4357 A4D2 F7 0E 6E        ..n   stab 0e6e
4358 A4D5 F6 0E 6D        ..m   ldab 0e6d
4359 A4D8 26 39           &9    bne 39
4360 A4DA F6 0E 6F        ..o   ldab 0e6f
4361 A4DD 27 34           '4    beq 34
4362 A4DF 7F 00 06        ...   clr 0006
4363 A4E2 F6 00 06        ...   ldab 0006
4364 A4E5 C1 3F           .?    cmpb #3f
4365 A4E7 24 2A           $*    bcc 2a
4366 A4E9 F6 00 06        ...   ldab 0006
4367 A4EC 4F              O     clra
4368 A4ED CE 00 05        ...   ldx #0005
4369 A4F0 02              .     idiv
4370 A4F1 5D              ]     tstb
4371 A4F2 27 1A           '.    beq 1a
4372 A4F4 F6 00 06        ...   ldab 0006
4373 A4F7 4F              O     clra
4374 A4F8 C3 08 00        ...   addd #0800
4375 A4FB 30              0     tsx
4376 A4FC ED 00           ..    std 00,x
4377 A4FE EC 00           ..    ldd 00,x
4378 A500 37              7     pshb
4379 A501 36              6     psha
4380 A502 F6 00 06        ...   ldab 0006
4381 A505 4F              O     clra
4382 A506 05              .     asld
4383 A507 C3 08 C8        ...   addd #08c8
4384 A50A 38              8     pulx
4385 A50B 8F              .     xgdx
4386 A50C ED 00           ..    std 00,x
4387 A50E 7C 00 06        |..   inc 0006
4388 A511 20 CF            .    bra cf
4389 A513 F6 0E 6F        ..o   ldab 0e6f
4390 A516 F7 0E 6D        ..m   stab 0e6d
4391 A519 BD A3 6C        ..l   jsr a36c             ;jump81
4392 A51C 38              8     pulx
4393 A51D 39              9     rts
4394
4395 jump109:
4396 A51E F6 00 22        .."   ldab 0022
4397 A521 4F              O     clra
4398 A522 BD FE 16        ...   jsr fe16             ;jump2
4399 A525 00              .     test
4400 A526 01              .     nop
4401 A527 00              .     test
4402 A528 04              .     lsrd
4403 A529 A5 79           .y    bita 79,x
4404 A52B A5 35           .5    bita 35,x
4405 A52D A5 43           .C    bita 43,x
4406 A52F A5 51           .Q    bita 51,x
4407 A531 A5 5F           ._    bita 5f,x
4408 A533 A5 6D           .m    bita 6d,x
4409 A535 F6 00 24        ..$   ldab 0024
4410 A538 F7 0B AF        ...   stab 0baf
4411 A53B F6 00 2A        ..*   ldab 002a
4412 A53E F7 0B B4        ...   stab 0bb4
4413 A541 20 36            6    bra 36
4414 A543 F6 00 24        ..$   ldab 0024
4415 A546 F7 0B AE        ...   stab 0bae
4416 A549 F6 00 2A        ..*   ldab 002a
4417 A54C F7 0B B3        ...   stab 0bb3
4418 A54F 20 28            (    bra 28
4419 A551 F6 00 24        ..$   ldab 0024
4420 A554 F7 0B AD        ...   stab 0bad
4421 A557 F6 00 2A        ..*   ldab 002a
4422 A55A F7 0B B2        ...   stab 0bb2
4423 A55D 20 1A            .    bra 1a
4424 A55F F6 00 24        ..$   ldab 0024
4425 A562 F7 0B AC        ...   stab 0bac
4426 A565 F6 00 2A        ..*   ldab 002a
4427 A568 F7 0B B1        ...   stab 0bb1
4428 A56B 20 0C            .    bra 0c
4429 A56D F6 00 24        ..$   ldab 0024
4430 A570 F7 0B AB        ...   stab 0bab
4431 A573 F6 00 2A        ..*   ldab 002a
4432 A576 F7 0B B0        ...   stab 0bb0
4433 A579 BD A3 6C        ..l   jsr a36c             ;jump81
4434 A57C 39              9     rts
4435
4436 jump139:
4437 A57D 7F 00 54        ..T   clr 0054
4438 A580 F6 00 54        ..T   ldab 0054
4439 A583 C1 FF           ..    cmpb #ff
4440 A585 24 1B           $.    bcc 1b
4441 A587 F6 00 54        ..T   ldab 0054
4442 A58A 4F              O     clra
4443 A58B C3 0A 90        ...   addd #0a90
4444 A58E 8F              .     xgdx
4445 A58F E6 00           ..    ldab 00,x
4446 A591 37              7     pshb
4447 A592 F6 00 54        ..T   ldab 0054
4448 A595 4F              O     clra
4449 A596 C3 09 90        ...   addd #0990
4450 A599 8F              .     xgdx
4451 A59A 33              3     pulb
4452 A59B E7 00           ..    stab 00,x
4453 A59D 7C 00 54        |.T   inc 0054
4454 A5A0 20 DE            .    bra de
4455 A5A2 F6 00 61        ..a   ldab 0061
4456 A5A5 F7 0B BF        ...   stab 0bbf
4457 A5A8 BD A3 6C        ..l   jsr a36c             ;jump81
4458 A5AB 39              9     rts
4459
4460 jump138:
4461 A5AC 7F 00 54        ..T   clr 0054
4462 A5AF F6 00 54        ..T   ldab 0054
4463 A5B2 C1 10           ..    cmpb #10
4464 A5B4 24 1B           $.    bcc 1b
4465 A5B6 F6 00 54        ..T   ldab 0054
4466 A5B9 4F              O     clra
4467 A5BA C3 0A 90        ...   addd #0a90
4468 A5BD 8F              .     xgdx
4469 A5BE E6 00           ..    ldab 00,x
4470 A5C0 37              7     pshb
4471 A5C1 F6 00 54        ..T   ldab 0054
4472 A5C4 4F              O     clra
4473 A5C5 C3 0C B9        ...   addd #0cb9
4474 A5C8 8F              .     xgdx
4475 A5C9 33              3     pulb
4476 A5CA E7 00           ..    stab 00,x
4477 A5CC 7C 00 54        |.T   inc 0054
4478 A5CF 20 DE            .    bra de
4479 A5D1 BD A3 6C        ..l   jsr a36c             ;jump81
4480 A5D4 39              9     rts
4481
4482 jump137:
4483 A5D5 7F 00 54        ..T   clr 0054
4484 A5D8 F6 00 54        ..T   ldab 0054
4485 A5DB C1 10           ..    cmpb #10
4486 A5DD 24 1B           $.    bcc 1b
4487 A5DF F6 00 54        ..T   ldab 0054
4488 A5E2 4F              O     clra
4489 A5E3 C3 0A 90        ...   addd #0a90
4490 A5E6 8F              .     xgdx
4491 A5E7 E6 00           ..    ldab 00,x
4492 A5E9 37              7     pshb
4493 A5EA F6 00 54        ..T   ldab 0054
4494 A5ED 4F              O     clra
4495 A5EE C3 0C C9        ...   addd #0cc9
4496 A5F1 8F              .     xgdx
4497 A5F2 33              3     pulb
4498 A5F3 E7 00           ..    stab 00,x
4499 A5F5 7C 00 54        |.T   inc 0054
4500 A5F8 20 DE            .    bra de
4501 A5FA BD A3 6C        ..l   jsr a36c             ;jump81
4502 A5FD 39              9     rts
4503
4504 jump136:
4505 A5FE 7F 00 54        ..T   clr 0054
4506 A601 F6 00 54        ..T   ldab 0054
4507 A604 C1 05           ..    cmpb #05
4508 A606 24 1B           $.    bcc 1b
4509 A608 F6 00 54        ..T   ldab 0054
4510 A60B 4F              O     clra
4511 A60C C3 00 62        ..b   addd #0062
4512 A60F 8F              .     xgdx
4513 A610 E6 00           ..    ldab 00,x
4514 A612 37              7     pshb
4515 A613 F6 00 54        ..T   ldab 0054
4516 A616 4F              O     clra
4517 A617 C3 0B A4        ...   addd #0ba4
4518 A61A 8F              .     xgdx
4519 A61B 33              3     pulb
4520 A61C E7 00           ..    stab 00,x
4521 A61E 7C 00 54        |.T   inc 0054
4522 A621 20 DE            .    bra de
4523 A623 7F 00 54        ..T   clr 0054
4524 A626 F6 00 54        ..T   ldab 0054
4525 A629 C1 0B           ..    cmpb #0b
4526 A62B 24 1B           $.    bcc 1b
4527 A62D F6 00 54        ..T   ldab 0054
4528 A630 4F              O     clra
4529 A631 C3 00 68        ..h   addd #0068
4530 A634 8F              .     xgdx
4531 A635 E6 00           ..    ldab 00,x
4532 A637 37              7     pshb
4533 A638 F6 00 54        ..T   ldab 0054
4534 A63B 4F              O     clra
4535 A63C C3 0B E4        ...   addd #0be4
4536 A63F 8F              .     xgdx
4537 A640 33              3     pulb
4538 A641 E7 00           ..    stab 00,x
4539 A643 7C 00 54        |.T   inc 0054
4540 A646 20 DE            .    bra de
4541 A648 8D 04           ..    bsr dest 04
4542 A64A BD A3 6C        ..l   jsr a36c             ;jump81
4543 A64D 39              9     rts
4544
4545 jump135:
4546 A64E BD AB 0C        ...   jsr ab0c             ;jump126
4547 A651 C6 20           .     ldab #20
4548 A653 F7 0B A3        ...   stab 0ba3
4549 A656 C6 20           .     ldab #20
4550 A658 F7 0B 9A        ...   stab 0b9a
4551 A65B C6 01           ..    ldab #01
4552 A65D F7 00 54        ..T   stab 0054
4553 goto21:
4554 A660 F6 00 54        ..T   ldab 0054
4555 A663 C1 09           ..    cmpb #09
4556 A665 25 03           %.    bcs 03
4557 A667 7E A7 1E        ~..   jmp a71e             ;goto20
4558 A66A F6 00 54        ..T   ldab 0054
4559 A66D 4F              O     clra
4560 A66E BD FE 16        ...   jsr fe16             ;jump2
4561 A671 00 01 00 07     .     test
4562 A675 A6 ED           ..
4563 A677 A6 87           ..
4564 A679 A6 95           ..
4565 A67B A6 A1           ..
4566 A67D A6 AF           ..
4567 A67F A6 BB           ..
4568 A681 A6 C9           ..
4569 A683 A6 D5           ..
4570 A685 A6 E3           ..
4571 A687 F6 00 62        ..b   ldab 0062
4572 A68A 54              T     lsrb
4573 A68B 54              T     lsrb
4574 A68C 54              T     lsrb
4575 A68D 54              T     lsrb
4576 A68E C8 04           ..    eorb #04
4577 A690 F7 00 5F        .._   stab 005f
4578 A693 20 58            X    bra 58
4579 A695 F6 00 62        ..b   ldab 0062
4580 A698 C4 0F           ..    andb #0f
4581 A69A C8 0D           ..    eorb #0d
4582 A69C F7 00 5F        .._   stab 005f
4583 A69F 20 4C            L    bra 4c
4584 A6A1 F6 00 63        ..c   ldab 0063
4585 A6A4 54              T     lsrb
4586 A6A5 54              T     lsrb
4587 A6A6 54              T     lsrb
4588 A6A7 54              T     lsrb
4589 A6A8 C8 04           ..    eorb #04
4590 A6AA F7 00 5F        .._   stab 005f
4591 A6AD 20 3E            >    bra 3e
4592 A6AF F6 00 63        ..c   ldab 0063
4593 A6B2 C4 0F           ..    andb #0f
4594 A6B4 C8 05           ..    eorb #05
4595 A6B6 F7 00 5F        .._   stab 005f
4596 A6B9 20 32            2    bra 32
4597 A6BB F6 00 64        ..d   ldab 0064
4598 A6BE 54              T     lsrb
4599 A6BF 54              T     lsrb
4600 A6C0 54              T     lsrb
4601 A6C1 54              T     lsrb
4602 A6C2 C8 05           ..    eorb #05
4603 A6C4 F7 00 5F        .._   stab 005f
4604 A6C7 20 24            $    bra 24
4605 A6C9 F6 00 64        ..d   ldab 0064
4606 A6CC C4 0F           ..    andb #0f
4607 A6CE C8 04           ..    eorb #04
4608 A6D0 F7 00 5F        .._   stab 005f
4609 A6D3 20 18            .    bra 18
4610 A6D5 F6 00 65        ..e   ldab 0065
4611 A6D8 54              T     lsrb
4612 A6D9 54              T     lsrb
4613 A6DA 54              T     lsrb
4614 A6DB 54              T     lsrb
4615 A6DC C8 05           ..    eorb #05
4616 A6DE F7 00 5F        .._   stab 005f
4617 A6E1 20 0A            .    bra 0a
4618 A6E3 F6 00 65        ..e   ldab 0065
4619 A6E6 C4 0F           ..    andb #0f
4620 A6E8 C8 03           ..    eorb #03
4621 A6EA F7 00 5F        .._   stab 005f
4622 A6ED F6 00 5F        .._   ldab 005f
4623 A6F0 C1 09           ..    cmpb #09
4624 A6F2 23 13           #.    bls 13
4625 A6F4 F6 00 5F        .._   ldab 005f
4626 A6F7 CB 37           .7    addb #37
4627 A6F9 37              7     pshb
4628 A6FA F6 00 54        ..T   ldab 0054
4629 A6FD 4F              O     clra
4630 A6FE C3 0B 9A        ...   addd #0b9a
4631 A701 8F              .     xgdx
4632 A702 33              3     pulb
4633 A703 E7 00           ..    stab 00,x
4634 A705 20 11            .    bra 11
4635 A707 F6 00 5F        .._   ldab 005f
4636 A70A CB 30           .0    addb #30
4637 A70C 37              7     pshb
4638 A70D F6 00 54        ..T   ldab 0054
4639 A710 4F              O     clra
4640 A711 C3 0B 9A        ...   addd #0b9a
4641 A714 8F              .     xgdx
4642 A715 33              3     pulb
4643 A716 E7 00           ..    stab 00,x
4644 A718 7C 00 54        |.T   inc 0054
4645 A71B 7E A6 60        ~.`   jmp a660             ;goto21
4646 goto20:
4647 A71E 39              9     rts
4648
4649 jump134:
4650 A71F F6 00 48        ..H   ldab 0048
4651 A722 26 11           &.    bne 11
4652 A724 F6 00 66        ..f   ldab 0066
4653 A727 26 07           &.    bne 07
4654 A729 C6 01           ..    ldab #01
4655 A72B F7 00 66        ..f   stab 0066
4656 A72E 20 03            .    bra 03
4657 A730 7F 00 66        ..f   clr 0066
4658 A733 20 29            )    bra 29
4659 A735 F6 00 48        ..H   ldab 0048
4660 A738 4F              O     clra
4661 A739 C3 00 68        ..h   addd #0068
4662 A73C 8F              .     xgdx
4663 A73D E6 00           ..    ldab 00,x
4664 A73F 26 10           &.    bne 10
4665 A741 C6 01           ..    ldab #01
4666 A743 37              7     pshb
4667 A744 F6 00 48        ..H   ldab 0048
4668 A747 4F              O     clra
4669 A748 C3 00 68        ..h   addd #0068
4670 A74B 8F              .     xgdx
4671 A74C 33              3     pulb
4672 A74D E7 00           ..    stab 00,x
4673 A74F 20 0D            .    bra 0d
4674 A751 5F              _     clrb
4675 A752 37              7     pshb
4676 A753 F6 00 48        ..H   ldab 0048
4677 A756 4F              O     clra
4678 A757 C3 00 68        ..h   addd #0068
4679 A75A 8F              .     xgdx
4680 A75B 33              3     pulb
4681 A75C E7 00           ..    stab 00,x
4682 A75E 39              9     rts
4683
4684 jump133:
4685 A75F F6 00 48        ..H   ldab 0048
4686 A762 4F              O     clra
4687 A763 BD FE 16        ...   jsr fe16             ;jump2
4688 A766 00 00 00 09     .     test
4689 A76A A7 DC           ..    ;
4690 A76C A7 80           ..    ;
4691 A76E A7 87           ..    ;
4692 A770 A7 8E           ..    ;
4693 A772 A7 95           ..    ;
4694 A774 A7 9C           ..    ;
4695 A776 A7 A3           ..    ;
4696 A778 A7 AA           ..    ;
4697 A77A A7 B1           ..    ;
4698 A77C A7 C4           ..    ;
4699 A77E A7 D7           ..    ;
4700 ;
4701 A780 C6 02           ..    ldab #02
4702 A782 F7 00 02        ...   stab 0002
4703 A785 20 55            U    bra 55
4704 ;
4705 A787 C6 10           ..    ldab #10
4706 A789 F7 00 02        ...   stab 0002
4707 A78C 20 4E            N    bra 4e
4708 A78E C6 20           .     ldab #20
4709 A790 F7 00 02        ...   stab 0002
4710 A793 20 47            G    bra 47
4711 A795 C6 01           ..    ldab #01
4712 A797 F7 00 02        ...   stab 0002
4713 A79A 20 40            @    bra 40
4714 A79C C6 04           ..    ldab #04
4715 A79E F7 00 02        ...   stab 0002
4716 A7A1 20 39            9    bra 39
4717 A7A3 C6 08           ..    ldab #08
4718 A7A5 F7 00 02        ...   stab 0002
4719 A7A8 20 32            2    bra 32
4720 A7AA C6 40           .@    ldab #40
4721 A7AC F7 00 02        ...   stab 0002
4722 A7AF 20 2B            +    bra 2b
4723 A7B1 F6 0E 70        ..p   ldab 0e70
4724 A7B4 C1 01           ..    cmpb #01
4725 A7B6 26 05           &.    bne 05
4726 A7B8 7F 0E 70        ..p   clr 0e70
4727 A7BB 20 05            .    bra 05
4728 A7BD C6 01           ..    ldab #01
4729 A7BF F7 0E 70        ..p   stab 0e70
4730 A7C2 20 18            .    bra 18
4731 A7C4 F6 0E 6F        ..o   ldab 0e6f
4732 A7C7 C1 01           ..    cmpb #01
4733 A7C9 26 05           &.    bne 05
4734 A7CB 7F 0E 6F        ..o   clr 0e6f
4735 A7CE 20 05            .    bra 05
4736 A7D0 C6 01           ..    ldab #01
4737 A7D2 F7 0E 6F        ..o   stab 0e6f
4738 A7D5 20 05            .    bra 05
4739 A7D7 C6 80           ..    ldab #80
4740 A7D9 F7 00 02        ...   stab 0002
4741 A7DC F6 00 48        ..H   ldab 0048
4742 A7DF C1 0A           ..    cmpb #0a
4743 A7E1 24 2B           $+    bcc 2b
4744 A7E3 F6 00 48        ..H   ldab 0048
4745 A7E6 C1 07           ..    cmpb #07
4746 A7E8 27 24           '$    beq 24
4747 A7EA F6 00 48        ..H   ldab 0048
4748 A7ED C1 08           ..    cmpb #08
4749 A7EF 27 1D           '.    beq 1d
4750 A7F1 F6 00 67        ..g   ldab 0067
4751 A7F4 F4 00 02        ...   andb 0002
4752 A7F7 26 0B           &.    bne 0b
4753 A7F9 F6 00 02        ...   ldab 0002
4754 A7FC FA 00 67        ..g   orb 0067
4755 A7FF F7 00 67        ..g   stab 0067
4756 A802 20 0A            .    bra 0a
4757 A804 F6 00 02        ...   ldab 0002
4758 A807 53              S     comb
4759 A808 F4 00 67        ..g   andb 0067
4760 A80B F7 00 67        ..g   stab 0067
4761 A80E 39              9     rts
4762
4763 A80F 7F 00 54        ..T   clr 0054
4764 A812 F6 00 54        ..T   ldab 0054
4765 A815 C1 04           ..    cmpb #04
4766 A817 24 4A           $J    bcc 4a
4767 A819 CC 01 F4        ...   ldd #01f4
4768 A81C BD E5 71        ..q   jsr e571             ;msdelay
4769 A81F F6 0B 93        ...   ldab 0b93
4770 A822 F7 00 5F        .._   stab 005f
4771 A825 F6 0B 94        ...   ldab 0b94
4772 A828 F7 00 5E        ..^   stab 005e
4773 A82B F6 0B 95        ...   ldab 0b95
4774 A82E F7 00 5D        ..]   stab 005d
4775 A831 F6 0B 96        ...   ldab 0b96
4776 A834 F7 00 5A        ..Z   stab 005a
4777 A837 BD BE 4B        ..K   jsr be4b             ;displayblank
4778 A83A BD BE 01        ...   jsr be01             ;jump70
4779 A83D CC 01 F4        ...   ldd #01f4
4780 A840 BD E5 71        ..q   jsr e571             ;msdelay
4781 A843 F6 00 5F        .._   ldab 005f
4782 A846 F7 0B 93        ...   stab 0b93
4783 A849 F6 00 5E        ..^   ldab 005e
4784 A84C F7 0B 94        ...   stab 0b94
4785 A84F F6 00 5D        ..]   ldab 005d
4786 A852 F7 0B 95        ...   stab 0b95
4787 A855 F6 00 5A        ..Z   ldab 005a
4788 A858 F7 0B 96        ...   stab 0b96
4789 A85B BD BE 01        ...   jsr be01             ;jump70
4790 A85E 7C 00 54        |.T   inc 0054
4791 A861 20 AF            .    bra af
4792 A863 39              9     rts
4793
4794 jump99:
4795 A864 F6 00 09        ...   ldab 0009
4796 A867 C1 01           ..    cmpb #01
4797 A869 26 20           &     bne 20
4798 A86B F6 00 61        ..a   ldab 0061
4799 A86E 4F              O     clra
4800 A86F C3 00 01        ...   addd #0001
4801 A872 37              7     pshb
4802 A873 36              6     psha
4803 A874 F6 00 60        ..`   ldab 0060
4804 A877 4F              O     clra
4805 A878 30              0     tsx
4806 A879 A3 00           ..    subd 00,x
4807 A87B 31              1     ins
4808 A87C 31              1     ins
4809 A87D 2C 0A           ,.    bge 0a
4810 A87F F6 00 60        ..`   ldab 0060
4811 A882 C1 F9           ..    cmpb #f9
4812 A884 24 03           $.    bcc 03
4813 A886 7C 00 60        |.`   inc 0060
4814 A889 20 0A            .    bra 0a
4815 A88B F6 00 60        ..`   ldab 0060
4816 A88E C1 09           ..    cmpb #09
4817 A890 24 03           $.    bcc 03
4818 A892 7C 00 60        |.`   inc 0060
4819 A895 39              9     rts
4820
4821 jump98:
4822 A896 F6 00 36        ..6   ldab 0036
4823 A899 26 39           &9    bne 39
4824 A89B F6 00 54        ..T   ldab 0054
4825 A89E C1 27           .'    cmpb #27
4826 A8A0 24 20           $     bcc 20
4827 A8A2 7C 00 54        |.T   inc 0054
4828 A8A5 F6 00 09        ...   ldab 0009
4829 A8A8 C1 01           ..    cmpb #01
4830 A8AA 26 0C           &.    bne 0c
4831 A8AC F6 00 54        ..T   ldab 0054
4832 A8AF C1 27           .'    cmpb #27
4833 A8B1 26 03           &.    bne 03
4834 A8B3 7F 00 54        ..T   clr 0054
4835 A8B6 20 0A            .    bra 0a
4836 A8B8 F6 00 54        ..T   ldab 0054
4837 A8BB C1 24           .$    cmpb #24
4838 A8BD 26 03           &.    bne 03
4839 A8BF 7F 00 54        ..T   clr 0054
4840 A8C2 F6 00 54        ..T   ldab 0054
4841 A8C5 4F              O     clra
4842 A8C6 C3 B4 8F        ...   addd #b48f
4843 A8C9 8F              .     xgdx
4844 A8CA E6 00           ..    ldab 00,x
4845 A8CC F7 0B 90        ...   stab 0b90
4846 A8CF C6 02           ..    ldab #02
4847 A8D1 F7 00 36        ..6   stab 0036
4848 A8D4 39              9     rts
4849
4850 jump97:
4851 A8D5 F6 00 60        ..`   ldab 0060
4852 A8D8 C1 00           ..    cmpb #00
4853 A8DA 23 05           #.    bls 05
4854 A8DC 7A 00 60        z.`   dec 0060
4855 A8DF 20 03            .    bra 03
4856 A8E1 7F 00 60        ..`   clr 0060
4857 A8E4 39              9     rts
4858
4859 jump96:
4860 A8E5 F6 00 36        ..6   ldab 0036
4861 A8E8 26 36           &6    bne 36
4862 A8EA F6 00 54        ..T   ldab 0054
4863 A8ED C1 00           ..    cmpb #00
4864 A8EF 25 1D           %.    bcs 1d
4865 A8F1 F6 00 54        ..T   ldab 0054
4866 A8F4 26 15           &.    bne 15
4867 A8F6 F6 00 09        ...   ldab 0009
4868 A8F9 C1 01           ..    cmpb #01
4869 A8FB 26 07           &.    bne 07
4870 A8FD C6 26           .&    ldab #26
4871 A8FF F7 00 54        ..T   stab 0054
4872 A902 20 05            .    bra 05
4873 A904 C6 23           .#    ldab #23
4874 A906 F7 00 54        ..T   stab 0054
4875 A909 20 03            .    bra 03
4876 A90B 7A 00 54        z.T   dec 0054
4877 A90E F6 00 54        ..T   ldab 0054
4878 A911 4F              O     clra
4879 A912 C3 B4 8F        ...   addd #b48f
4880 A915 8F              .     xgdx
4881 A916 E6 00           ..    ldab 00,x
4882 A918 F7 0B 90        ...   stab 0b90
4883 A91B C6 02           ..    ldab #02
4884 A91D F7 00 36        ..6   stab 0036
4885 A920 39              9     rts
4886
4887 jump95:
4888 A921 F6 0B 90        ...   ldab 0b90
4889 A924 F7 0B 96        ...   stab 0b96
4890 A927 F6 0B 96        ...   ldab 0b96
4891 A92A 37              7     pshb
4892 A92B F6 00 60        ..`   ldab 0060
4893 A92E 4F              O     clra
4894 A92F C3 0A 93        ...   addd #0a93
4895 A932 8F              .     xgdx
4896 A933 33              3     pulb
4897 A934 E7 00           ..    stab 00,x
4898 A936 F6 00 09        ...   ldab 0009
4899 A939 C1 01           ..    cmpb #01
4900 A93B 26 32           &2    bne 32
4901 A93D F6 00 61        ..a   ldab 0061
4902 A940 4F              O     clra
4903 A941 C3 00 01        ...   addd #0001
4904 A944 37              7     pshb
4905 A945 36              6     psha
4906 A946 F6 00 60        ..`   ldab 0060
4907 A949 4F              O     clra
4908 A94A 30              0     tsx
4909 A94B A3 00           ..    subd 00,x
4910 A94D 31              1     ins
4911 A94E 31              1     ins
4912 A94F 26 0A           &.    bne 0a
4913 A951 F6 00 60        ..`   ldab 0060
4914 A954 C1 FA           ..    cmpb #fa
4915 A956 24 03           $.    bcc 03
4916 A958 7C 00 61        |.a   inc 0061
4917 A95B F6 00 60        ..`   ldab 0060
4918 A95E F1 00 61        ..a   cmpb 0061
4919 A961 22 0A           ".    bhi 0a
4920 A963 F6 00 60        ..`   ldab 0060
4921 A966 C1 F9           ..    cmpb #f9
4922 A968 24 03           $.    bcc 03
4923 A96A 7C 00 60        |.`   inc 0060
4924 A96D 20 0A            .    bra 0a
4925 A96F F6 00 60        ..`   ldab 0060
4926 A972 C1 09           ..    cmpb #09
4927 A974 24 03           $.    bcc 03
4928 A976 7C 00 60        |.`   inc 0060
4929 A979 39              9     rts
4930
4931 jump132:
4932 A97A F6 00 60        ..`   ldab 0060
4933 A97D 26 24           &$    bne 24
4934 A97F F6 00 60        ..`   ldab 0060
4935 A982 CB 03           ..    addb #03
4936 A984 F7 00 54        ..T   stab 0054
4937 A987 F6 00 54        ..T   ldab 0054
4938 A98A C1 FF           ..    cmpb #ff
4939 A98C 24 13           $.    bcc 13
4940 A98E C6 20           .     ldab #20
4941 A990 37              7     pshb
4942 A991 F6 00 54        ..T   ldab 0054
4943 A994 4F              O     clra
4944 A995 C3 0A 90        ...   addd #0a90
4945 A998 8F              .     xgdx
4946 A999 33              3     pulb
4947 A99A E7 00           ..    stab 00,x
4948 A99C 7C 00 54        |.T   inc 0054
4949 A99F 20 E6            .    bra e6
4950 A9A1 20 22            "    bra 22
4951 A9A3 F6 00 60        ..`   ldab 0060
4952 A9A6 CB 04           ..    addb #04
4953 A9A8 F7 00 54        ..T   stab 0054
4954 A9AB F6 00 54        ..T   ldab 0054
4955 A9AE C1 FF           ..    cmpb #ff
4956 A9B0 24 13           $.    bcc 13
4957 A9B2 C6 20           .     ldab #20
4958 A9B4 37              7     pshb
4959 A9B5 F6 00 54        ..T   ldab 0054
4960 A9B8 4F              O     clra
4961 A9B9 C3 0A 90        ...   addd #0a90
4962 A9BC 8F              .     xgdx
4963 A9BD 33              3     pulb
4964 A9BE E7 00           ..    stab 00,x
4965 A9C0 7C 00 54        |.T   inc 0054
4966 A9C3 20 E6            .    bra e6
4967 A9C5 F6 00 60        ..`   ldab 0060
4968 A9C8 F7 00 61        ..a   stab 0061
4969 A9CB 7F 00 54        ..T   clr 0054
4970 A9CE 39              9     rts
4971
4972 jump131:
4973 A9CF C6 50           .P    ldab #50
4974 A9D1 F7 09 90        ...   stab 0990
4975 A9D4 C6 29           .)    ldab #29
4976 A9D6 F7 09 91        ...   stab 0991
4977 A9D9 C6 20           .     ldab #20
4978 A9DB F7 09 92        ...   stab 0992
4979 A9DE 7F 00 54        ..T   clr 0054
4980 A9E1 F6 00 54        ..T   ldab 0054
4981 A9E4 C1 FF           ..    cmpb #ff
4982 A9E6 24 1B           $.    bcc 1b
4983 A9E8 F6 00 54        ..T   ldab 0054
4984 A9EB 4F              O     clra
4985 A9EC C3 09 90        ...   addd #0990
4986 A9EF 8F              .     xgdx
4987 A9F0 E6 00           ..    ldab 00,x
4988 A9F2 37              7     pshb
4989 A9F3 F6 00 54        ..T   ldab 0054
4990 A9F6 4F              O     clra
4991 A9F7 C3 0A 90        ...   addd #0a90
4992 A9FA 8F              .     xgdx
4993 A9FB 33              3     pulb
4994 A9FC E7 00           ..    stab 00,x
4995 A9FE 7C 00 54        |.T   inc 0054
4996 AA01 20 DE            .    bra de
4997 AA03 F6 0B BF        ...   ldab 0bbf
4998 AA06 F7 00 61        ..a   stab 0061
4999 AA09 39              9     rts
5000
5001 jump130:
5002 AA0A C6 53           .S    ldab #53
5003 AA0C F7 0C B9        ...   stab 0cb9
5004 AA0F C6 29           .)    ldab #29
5005 AA11 F7 0C BA        ...   stab 0cba
5006 AA14 C6 20           .     ldab #20
5007 AA16 F7 0C BB        ...   stab 0cbb
5008 AA19 7F 00 54        ..T   clr 0054
5009 AA1C F6 00 54        ..T   ldab 0054
5010 AA1F C1 10           ..    cmpb #10
5011 AA21 24 1B           $.    bcc 1b
5012 AA23 F6 00 54        ..T   ldab 0054
5013 AA26 4F              O     clra
5014 AA27 C3 0C B9        ...   addd #0cb9
5015 AA2A 8F              .     xgdx
5016 AA2B E6 00           ..    ldab 00,x
5017 AA2D 37              7     pshb
5018 AA2E F6 00 54        ..T   ldab 0054
5019 AA31 4F              O     clra
5020 AA32 C3 0A 90        ...   addd #0a90
5021 AA35 8F              .     xgdx
5022 AA36 33              3     pulb
5023 AA37 E7 00           ..    stab 00,x
5024 AA39 7C 00 54        |.T   inc 0054
5025 AA3C 20 DE            .    bra de
5026 AA3E 39              9     rts
5027
5028 jump129:
5029 AA3F C6 49           .I    ldab #49
5030 AA41 F7 0C C9        ...   stab 0cc9
5031 AA44 C6 29           .)    ldab #29
5032 AA46 F7 0C CA        ...   stab 0cca
5033 AA49 C6 20           .     ldab #20
5034 AA4B F7 0C CB        ...   stab 0ccb
5035 AA4E 7F 00 54        ..T   clr 0054
5036 AA51 F6 00 54        ..T   ldab 0054
5037 AA54 C1 10           ..    cmpb #10
5038 AA56 24 1B           $.    bcc 1b
5039 AA58 F6 00 54        ..T   ldab 0054
5040 AA5B 4F              O     clra
5041 AA5C C3 0C C9        ...   addd #0cc9
5042 AA5F 8F              .     xgdx
5043 AA60 E6 00           ..    ldab 00,x
5044 AA62 37              7     pshb
5045 AA63 F6 00 54        ..T   ldab 0054
5046 AA66 4F              O     clra
5047 AA67 C3 0A 90        ...   addd #0a90
5048 AA6A 8F              .     xgdx
5049 AA6B 33              3     pulb
5050 AA6C E7 00           ..    stab 00,x
5051 AA6E 7C 00 54        |.T   inc 0054
5052 AA71 20 DE            .    bra de
5053 AA73 39              9     rts
5054
5055 jump128:
5056 AA74 7F 00 54        ..T   clr 0054
5057 AA77 F6 00 54        ..T   ldab 0054
5058 AA7A C1 0B           ..    cmpb #0b
5059 AA7C 24 1B           $.    bcc 1b
5060 AA7E F6 00 54        ..T   ldab 0054
5061 AA81 4F              O     clra
5062 AA82 C3 0B E4        ...   addd #0be4
5063 AA85 8F              .     xgdx
5064 AA86 E6 00           ..    ldab 00,x
5065 AA88 37              7     pshb
5066 AA89 F6 00 54        ..T   ldab 0054
5067 AA8C 4F              O     clra
5068 AA8D C3 00 68        ..h   addd #0068
5069 AA90 8F              .     xgdx
5070 AA91 33              3     pulb
5071 AA92 E7 00           ..    stab 00,x
5072 AA94 7C 00 54        |.T   inc 0054
5073 AA97 20 DE            .    bra de
5074 AA99 39              9     rts
5075
5076 jump127:
5077 AA9A F6 00 22        .."   ldab 0022
5078 AA9D C1 06           ..    cmpb #06
5079 AA9F 24 0F           $.    bcc 0f
5080 AAA1 7C 00 22        |."   inc 0022
5081 AAA4 F6 00 22        .."   ldab 0022
5082 AAA7 C1 05           ..    cmpb #05
5083 AAA9 23 05           #.    bls 05
5084 AAAB C6 01           ..    ldab #01
5085 AAAD F7 00 22        .."   stab 0022
5086 AAB0 F6 00 22        .."   ldab 0022
5087 AAB3 4F              O     clra
5088 AAB4 BD FE 16        ...   jsr fe16             ;jump2
5089 AAB7 00              .     test
5090 AAB8 01              .     nop
5091 AAB9 00              .     test
5092 AABA 04              .     lsrd
5093 AABB AB 0B           ..    adda 0b,x
5094 AABD AA C7           ..    ora c7,x
5095 AABF AA D5           ..    ora d5,x
5096 AAC1 AA E3           ..    ora e3,x
5097 AAC3 AA F1           ..    ora f1,x
5098 AAC5 AA FF           ..    ora ff,x
5099 AAC7 F6 0B AF        ...   ldab 0baf
5100 AACA F7 00 24        ..$   stab 0024
5101 AACD F6 0B B4        ...   ldab 0bb4
5102 AAD0 F7 00 2A        ..*   stab 002a
5103 AAD3 20 36            6    bra 36
5104 AAD5 F6 0B AE        ...   ldab 0bae
5105 AAD8 F7 00 24        ..$   stab 0024
5106 AADB F6 0B B3        ...   ldab 0bb3
5107 AADE F7 00 2A        ..*   stab 002a
5108 AAE1 20 28            (    bra 28
5109 AAE3 F6 0B AD        ...   ldab 0bad
5110 AAE6 F7 00 24        ..$   stab 0024
5111 AAE9 F6 0B B2        ...   ldab 0bb2
5112 AAEC F7 00 2A        ..*   stab 002a
5113 AAEF 20 1A            .    bra 1a
5114 AAF1 F6 0B AC        ...   ldab 0bac
5115 AAF4 F7 00 24        ..$   stab 0024
5116 AAF7 F6 0B B1        ...   ldab 0bb1
5117 AAFA F7 00 2A        ..*   stab 002a
5118 AAFD 20 0C            .    bra 0c
5119 AAFF F6 0B AB        ...   ldab 0bab
5120 AB02 F7 00 24        ..$   stab 0024
5121 AB05 F6 0B B0        ...   ldab 0bb0
5122 AB08 F7 00 2A        ..*   stab 002a
5123 AB0B 39              9     rts
5124
5125 jump126:
5126 AB0C C6 03           ..    ldab #03
5127 AB0E F7 00 18        ...   stab 0018
5128 AB11 7F 00 1C        ...   clr 001c
5129 AB14 F6 00 1C        ...   ldab 001c
5130 AB17 C1 04           ..    cmpb #04
5131 AB19 24 6D           $m    bcc 6d
5132 AB1B C6 07           ..    ldab #07
5133 AB1D F7 00 55        ..U   stab 0055
5134 AB20 7F 00 54        ..T   clr 0054
5135 AB23 F6 00 54        ..T   ldab 0054
5136 AB26 C1 08           ..    cmpb #08
5137 AB28 24 56           $V    bcc 56
5138 AB2A F6 00 1C        ...   ldab 001c
5139 AB2D 4F              O     clra
5140 AB2E C3 0B A4        ...   addd #0ba4
5141 AB31 8F              .     xgdx
5142 AB32 E6 00           ..    ldab 00,x
5143 AB34 37              7     pshb
5144 AB35 F6 00 54        ..T   ldab 0054
5145 AB38 4F              O     clra
5146 AB39 C3 B4 B7        ...   addd #b4b7
5147 AB3C 8F              .     xgdx
5148 AB3D E6 00           ..    ldab 00,x
5149 AB3F 30              0     tsx
5150 AB40 E4 00           ..    andb 00,x
5151 AB42 31              1     ins
5152 AB43 27 1A           '.    beq 1a
5153 AB45 F6 00 55        ..U   ldab 0055
5154 AB48 4F              O     clra
5155 AB49 C3 B4 B7        ...   addd #b4b7
5156 AB4C 8F              .     xgdx
5157 AB4D E6 00           ..    ldab 00,x
5158 AB4F 37              7     pshb
5159 AB50 F6 00 18        ...   ldab 0018
5160 AB53 4F              O     clra
5161 AB54 C3 00 62        ..b   addd #0062
5162 AB57 8F              .     xgdx
5163 AB58 33              3     pulb
5164 AB59 EA 00           ..    orb 00,x
5165 AB5B E7 00           ..    stab 00,x
5166 AB5D 20 19            .    bra 19
5167 AB5F F6 00 55        ..U   ldab 0055
5168 AB62 4F              O     clra
5169 AB63 C3 B4 B7        ...   addd #b4b7
5170 AB66 8F              .     xgdx
5171 AB67 E6 00           ..    ldab 00,x
5172 AB69 53              S     comb
5173 AB6A 37              7     pshb
5174 AB6B F6 00 18        ...   ldab 0018
5175 AB6E 4F              O     clra
5176 AB6F C3 00 62        ..b   addd #0062
5177 AB72 8F              .     xgdx
5178 AB73 33              3     pulb
5179 AB74 E4 00           ..    andb 00,x
5180 AB76 E7 00           ..    stab 00,x
5181 AB78 7A 00 55        z.U   dec 0055
5182 AB7B 7C 00 54        |.T   inc 0054
5183 AB7E 20 A3            .    bra a3
5184 AB80 7A 00 18        z..   dec 0018
5185 AB83 7C 00 1C        |..   inc 001c
5186 AB86 20 8C            .    bra 8c
5187 AB88 39              9     rts
5188
5189 jump7:
5190 AB89 CC B0 8C        ...   ldd #b08c    ; "NO ERRORS"
5191 AB8C BD C0 BA        ...   jsr c0ba             ;display:
5192 AB8F CC 01 F4        ...   ldd #01f4
5193 AB92 BD E5 71        ..q   jsr e571             ;msdelay
5194 AB95 BD D4 79        ..y   jsr d479             ;jump67
5195 AB98 BD E8 9A        ...   jsr e89a             ;jump68
5196 AB9B BD E9 EA        ...   jsr e9ea             ;jump113
5197 AB9E 7F 0B C1        ...   clr 0bc1     ; clear all errors
5198 ABA1 39              9     rts
5199
5200 jump8:
5201 ABA2 7F 00 05        ...   clr 0005
5202 goto24:
5203 ABA5 F6 00 05        ...   ldab 0005
5204 ABA8 C1 64           .d    cmpb #64
5205 ABAA 25 03           %.    bcs 03
5206 ABAC 7E AC 81        ~..   jmp ac81             ;goto22
5207 ABAF F6 00 05        ...   ldab 0005
5208 ABB2 F7 00 06        ...   stab 0006
5209 ABB5 F6 00 05        ...   ldab 0005
5210 ABB8 4F              O     clra
5211 ABB9 CE 00 05        ...   ldx #0005
5212 ABBC 02              .     idiv
5213 ABBD 5D              ]     tstb
5214 ABBE 26 03           &.    bne 03
5215 ABC0 7E AC 7B        ~.{   jmp ac7b             ;goto23
5216 ABC3 F6 00 06        ...   ldab 0006
5217 ABC6 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
5218 ABC9 83 00 00        ...   subd #0000
5219 ABCC 27 03           '.    beq 03
5220 ABCE 7E AC 7B        ~.{   jmp ac7b             ;goto23
5221 ABD1 BD D3 11        ...   jsr d311             ;jump30 - test position exists
5222 ABD4 83 00 00        ...   subd #0000
5223 ABD7 27 2B           '+    beq 2b
5224 ABD9 F6 00 05        ...   ldab 0005
5225 ABDC 4F              O     clra
5226 ABDD 05              .     asld
5227 ABDE C3 08 00        ...   addd #0800
5228 ABE1 8F              .     xgdx
5229 ABE2 EC 00           ..    ldd 00,x
5230 ABE4 C4 FF           ..    andb #ff
5231 ABE6 84 3F           .?    anda #3f
5232 ABE8 83 27 10        .'.   subd #2710   ; 10000
5233 ABEB 24 15           $.    bcc 15
5234 ABED CC 01 00        ...   ldd #0100
5235 ABF0 37              7     pshb
5236 ABF1 36              6     psha
5237 ABF2 F6 00 05        ...   ldab 0005
5238 ABF5 4F              O     clra
5239 ABF6 05              .     asld
5240 ABF7 C3 08 C8        ...   addd #08c8
5241 ABFA 38              8     pulx
5242 ABFB 8F              .     xgdx
5243 ABFC AA 00           ..    ora 00,x
5244 ABFE EA 01           ..    orb 01,x
5245 AC00 ED 00           ..    std 00,x
5246 AC02 20 29            )    bra 29
5247 AC04 F6 00 05        ...   ldab 0005
5248 AC07 4F              O     clra
5249 AC08 05              .     asld
5250 AC09 C3 08 00        ...   addd #0800
5251 AC0C 8F              .     xgdx
5252 AC0D EC 00           ..    ldd 00,x
5253 AC0F C4 FF           ..    andb #ff
5254 AC11 84 3F           .?    anda #3f
5255 AC13 83 27 0F        .'.   subd #270f
5256 AC16 23 15           #.    bls 15
5257 AC18 CC 01 00        ...   ldd #0100
5258 AC1B 37              7     pshb
5259 AC1C 36              6     psha
5260 AC1D F6 00 05        ...   ldab 0005
5261 AC20 4F              O     clra
5262 AC21 05              .     asld
5263 AC22 C3 08 C8        ...   addd #08c8
5264 AC25 38              8     pulx
5265 AC26 8F              .     xgdx
5266 AC27 AA 00           ..    ora 00,x
5267 AC29 EA 01           ..    orb 01,x
5268 AC2B ED 00           ..    std 00,x
5269 AC2D F6 00 05        ...   ldab 0005
5270 AC30 4F              O     clra
5271 AC31 05              .     asld
5272 AC32 C3 08 C8        ...   addd #08c8
5273 AC35 8F              .     xgdx
5274 AC36 EC 00           ..    ldd 00,x
5275 AC38 84 01           ..    anda #01
5276 AC3A 27 06           '.    beq 06
5277 AC3C CE 00 19        ...   ldx #0019
5278 AC3F 1C 00 04        ...   bset 00,x, #04
5279 AC42 F6 00 05        ...   ldab 0005
5280 AC45 4F              O     clra
5281 AC46 05              .     asld
5282 AC47 C3 08 00        ...   addd #0800
5283 AC4A 8F              .     xgdx
5284 AC4B EC 00           ..    ldd 00,x
5285 AC4D 84 80           ..    anda #80
5286 AC4F 27 2A           '*    beq 2a
5287 AC51 F6 00 05        ...   ldab 0005
5288 AC54 4F              O     clra
5289 AC55 05              .     asld
5290 AC56 C3 08 C8        ...   addd #08c8
5291 AC59 8F              .     xgdx
5292 AC5A EC 00           ..    ldd 00,x
5293 AC5C 84 02           ..    anda #02
5294 AC5E 27 06           '.    beq 06
5295 AC60 CE 00 19        ...   ldx #0019
5296 AC63 1C 00 01        ...   bset 00,x, #01
5297 AC66 F6 00 05        ...   ldab 0005
5298 AC69 4F              O     clra
5299 AC6A 05              .     asld
5300 AC6B C3 08 C8        ...   addd #08c8
5301 AC6E 8F              .     xgdx
5302 AC6F EC 00           ..    ldd 00,x
5303 AC71 84 04           ..    anda #04
5304 AC73 27 06           '.    beq 06
5305 AC75 CE 00 19        ...   ldx #0019
5306 AC78 1C 00 02        ...   bset 00,x, #02
5307 goto23:
5308 AC7B 7C 00 05        |..   inc 0005
5309 AC7E 7E AB A5        ~..   jmp aba5             ;goto24
5310 goto22:
5311 AC81 F6 00 19        ...   ldab 0019
5312 AC84 C4 07           ..    andb #07
5313 AC86 26 0A           &.    bne 0a
5314 AC88 F6 0B C1        ...   ldab 0bc1
5315 AC8B C4 7F           ..    andb #7f   ; have errors?
5316 AC8D 26 03           &.    bne 03
5317 AC8F 5F              _     clrb
5318 AC90 20 02            .    bra 02
5319 AC92 C6 01           ..    ldab #01
5320 AC94 5D              ]     tstb
5321 AC95 26 05           &.    bne 05
5322 AC97 C6 0D           ..    ldab #0d
5323 AC99 F7 00 48        ..H   stab 0048
5324 AC9C 39              9     rts
5325
5326 ; keypad map
5327 AC9D 08              .     inx
5328 AC9E 07              .     tpa
5329 AC9F 06              .     tap
5330 ACA0 05              .     asld
5331 ACA1 04              .     lsrd
5332 ACA2 03              .     fdiv
5333 ACA3 02              .     idiv
5334 ACA4 01              .     nop
5335 ACA5 0B              .     sev
5336 ACA6 0A              .     clv
5337 ACA7 09              .     dex
5338
5339 ACA8 20 20                 bra 20
5340 ACAA 50              P     negb
5341 ACAB 52              R     illegal
5342 ACAC 49              I     rola
5343 ACAD 43              C     coma
5344 ACAE 45              E     illegal
5345 ACAF 20 20                 bra 20
5346 ACB1 20 00            .    bra 00
5347 ACB3 20 20                 bra 20
5348 ACB5 20 50            P    bra 50
5349 ACB7 52              R     illegal
5350 ACB8 49              I     rola
5351 ACB9 58              X     aslb
5352 ACBA 20 20                 bra 20
5353 ACBC 20 00            .    bra 00
5354 ACBE 20 20                 bra 20
5355 ACC0 50              P     negb
5356 ACC1 52              R     illegal
5357 ACC2 45              E     illegal
5358 ACC3 49              I     rola
5359 ACC4 53              S     comb
5360 ACC5 20 20                 bra 20
5361 ACC7 20 00            .    bra 00
5362 ACC9 20 20                 bra 20
5363 ACCB 50              P     negb
5364 ACCC 52              R     illegal
5365 ACCD 45              E     illegal
5366 ACCE 43              C     coma
5367 ACCF 49              I     rola
5368 ACD0 4F              O     clra
5369 ACD1 20 20                 bra 20
5370 ACD3 00              .     test
5371 ACD4 20 20                 bra 20
5372 ACD6 43              C     coma
5373 ACD7 48              H     asla
5374 ACD8 41              A     illegal
5375 ACD9 4E              N     illegal
5376 ACDA 47              G     asra
5377 ACDB 45              E     illegal
5378 ACDC 20 20                 bra 20
5379 ACDE 00              .     test
5380 ACDF 20 20                 bra 20
5381 ACE1 43              C     coma
5382 ACE2 41              A     illegal
5383 ACE3 4D              M     tsta
5384 ACE4 42              B     illegal
5385 ACE5 49              I     rola
5386 ACE6 4F              O     clra
5387 ACE7 20 20                 bra 20
5388 ACE9 00              .     test
5389 ACEA 20 4D            M    bra 4d
5390 ACEC 4F              O     clra
5391 ACED 4E              N     illegal
5392 ACEE 4E              N     illegal
5393 ACEF 41              A     illegal
5394 ACF0 49              I     rola
5395 ACF1 45              E     illegal
5396 ACF2 20 20                 bra 20
5397 ACF4 00              .     test
5398 ACF5 20 20                 bra 20
5399 ACF7 54              T     lsrb
5400 ACF8 48              H     asla
5401 ACF9 41              A     illegal
5402 ACFA 4E              N     illegal
5403 ACFB 4B              K     illegal
5404 ACFC 53              S     comb
5405 ACFD 20 20                 bra 20
5406 ACFF 00              .     test
5407 AD00 20 20                 bra 20
5408 AD02 4D              M     tsta
5409 AD03 45              E     illegal
5410 AD04 52              R     illegal
5411 AD05 43              C     coma
5412 AD06 49              I     rola
5413 AD07 20 20                 bra 20
5414 AD09 20 00            .    bra 00
5415 AD0B 20 20                 bra 20
5416 AD0D 44              D     lsra
5417 AD0E 41              A     illegal
5418 AD0F 4E              N     illegal
5419 AD10 4B              K     illegal
5420 AD11 45              E     illegal
5421 AD12 20 20                 bra 20
5422 AD14 20 00            .    bra 00
5423 AD16 20 20                 bra 20
5424 AD18 47              G     asra
5425 AD19 52              R     illegal
5426 AD1A 41              A     illegal
5427 AD1B 43              C     coma
5428 AD1C 49              I     rola
5429 AD1D 41              A     illegal
5430 AD1E 53              S     comb
5431 AD1F 20 00            .    bra 00
5432 AD21 20 20                 bra 20
5433 AD23 53              S     comb
5434 AD24 45              E     illegal
5435 AD25 4C              L     inca
5436 AD26 45              E     illegal
5437 AD27 43              C     coma
5438 AD28 54              T     lsrb
5439 AD29 20 20                 bra 20
5440 AD2B 00              .     test
5441 AD2C 20 20                 bra 20
5442 AD2E 4F              O     clra
5443 AD2F 54              T     lsrb
5444 AD30 48              H     asla
5445 AD31 45              E     illegal
5446 AD32 52              R     illegal
5447 AD33 20 20                 bra 20
5448 AD35 20 00            .    bra 00
5449 AD37 20 20                 bra 20
5450 AD39 20 49            I    bra 49
5451 AD3B 54              T     lsrb
5452 AD3C 45              E     illegal
5453 AD3D 4D              M     tsta
5454 AD3E 20 20                 bra 20
5455 AD40 20 00            .    bra 00
5456 AD42 20 20                 bra 20
5457 AD44 46              F     rora
5458 AD45 41              A     illegal
5459 AD46 49              I     rola
5460 AD47 54              T     lsrb
5461 AD48 45              E     illegal
5462 AD49 53              S     comb
5463 AD4A 20 20                 bra 20
5464 AD4C 00              .     test
5465 AD4D 20 20                 bra 20
5466 AD4F 41              A     illegal
5467 AD50 55              U     illegal
5468 AD51 54              T     lsrb
5469 AD52 52              R     illegal
5470 AD53 45              E     illegal
5471 AD54 20 20                 bra 20
5472 AD56 20 00            .    bra 00
5473 AD58 20 20                 bra 20
5474 AD5A 43              C     coma
5475 AD5B 48              H     asla
5476 AD5C 4F              O     clra
5477 AD5D 49              I     rola
5478 AD5E 58              X     aslb
5479 AD5F 20 20                 bra 20
5480 AD61 20 00            .    bra 00
5481 AD63 20 20                 bra 20
5482 AD65 42              B     illegal
5483 AD66 49              I     rola
5484 AD67 54              T     lsrb
5485 AD68 54              T     lsrb
5486 AD69 45              E     illegal
5487 AD6A 20 20                 bra 20
5488 AD6C 20 00            .    bra 00
5489 AD6E 20 20                 bra 20
5490 AD70 41              A     illegal
5491 AD71 4E              N     illegal
5492 AD72 44              D     lsra
5493 AD73 45              E     illegal
5494 AD74 52              R     illegal
5495 AD75 45              E     illegal
5496 AD76 20 20                 bra 20
5497 AD78 00              .     test
5498 AD79 20 20                 bra 20
5499 AD7B 20 57            W    bra 57
5500 AD7D 41              A     illegal
5501 AD7E 48              H     asla
5502 AD7F 4C              L     inca
5503 AD80 20 20                 bra 20
5504 AD82 20 00            .    bra 00
5505 AD84 20 20                 bra 20
5506 AD86 50              P     negb
5507 AD87 55              U     illegal
5508 AD88 4C              L     inca
5509 AD89 53              S     comb
5510 AD8A 45              E     illegal
5511 AD8B 20 20                 bra 20
5512 AD8D 20 00            .    bra 00
5513 AD8F 20 20                 bra 20
5514 AD91 45              E     illegal
5515 AD92 58              X     aslb
5516 AD93 54              T     lsrb
5517 AD94 52              R     illegal
5518 AD95 41              A     illegal
5519 AD96 20 20                 bra 20
5520 AD98 20 00            .    bra 00
5521 AD9A 20 53            S    bra 53
5522 AD9C 45              E     illegal
5523 AD9D 4C              L     inca
5524 AD9E 45              E     illegal
5525 AD9F 43              C     coma
5526 ADA0 43              C     coma
5527 ADA1 49              I     rola
5528 ADA2 4F              O     clra
5529 ADA3 4E              N     illegal
5530 ADA4 00              .     test
5531 ADA5 20 45            E    bra 45
5532 ADA7 58              X     aslb
5533 ADA8 41              A     illegal
5534 ADA9 43              C     coma
5535 ADAA 54              T     lsrb
5536 ADAB 20 43            C    bra 43
5537 ADAD 4F              O     clra
5538 ADAE 49              I     rola
5539 ADAF 4E              N     illegal
5540 ADB0 53              S     comb
5541 ADB1 20 4F            O    bra 4f
5542 ADB3 4E              N     illegal
5543 ADB4 4C              L     inca
5544 ADB5 59              Y     rolb
5545 ADB6 20 00            .    bra 00
5546 ADB8 20 4D            M    bra 4d
5547 ADBA 4F              O     clra
5548 ADBB 4E              N     illegal
5549 ADBC 4E              N     illegal
5550 ADBD 41              A     illegal
5551 ADBE 49              I     rola
5552 ADBF 45              E     illegal
5553 ADC0 20 45            E    bra 45
5554 ADC2 58              X     aslb
5555 ADC3 41              A     illegal
5556 ADC4 43              C     coma
5557 ADC5 54              T     lsrb
5558 ADC6 45              E     illegal
5559 ADC7 20 53            S    bra 53
5560 ADC9 45              E     illegal
5561 ADCA 55              U     illegal
5562 ADCB 4C              L     inca
5563 ADCC 45              E     illegal
5564 ADCD 4D              M     tsta
5565 ADCE 45              E     illegal
5566 ADCF 4E              N     illegal
5567 ADD0 54              T     lsrb
5568 ADD1 20 00            .    bra 00
5569 ADD3 20 4E            N    bra 4e
5570 ADD5 49              I     rola
5571 ADD6 43              C     coma
5572 ADD7 48              H     asla
5573 ADD8 54              T     lsrb
5574 ADD9 20 55            U    bra 55
5575 ADDB 45              E     illegal
5576 ADDC 42              B     illegal
5577 ADDD 45              E     illegal
5578 ADDE 52              R     illegal
5579 ADDF 5A              Z     decb
5580 ADE0 41              A     illegal
5581 ADE1 48              H     asla
5582 ADE2 4C              L     inca
5583 ADE3 45              E     illegal
5584 ADE4 4E              N     illegal
5585 ADE5 20 00            .    bra 00
5586 ADE7 20 49            I    bra 49
5587 ADE9 4E              N     illegal
5588 ADEA 54              T     lsrb
5589 ADEB 52              R     illegal
5590 ADEC 4F              O     clra
5591 ADED 44              D     lsra
5592 ADEE 55              U     illegal
5593 ADEF 5A              Z     decb
5594 ADF0 43              C     coma
5595 ADF1 41              A     illegal
5596 ADF2 20 50            P    bra 50
5597 ADF4 52              R     illegal
5598 ADF5 45              E     illegal
5599 ADF6 43              C     coma
5600 ADF7 49              I     rola
5601 ADF8 4F              O     clra
5602 ADF9 20 45            E    bra 45
5603 ADFB 58              X     aslb
5604 ADFC 41              A     illegal
5605 ADFD 43              C     coma
5606 ADFE 54              T     lsrb
5607 ADFF 4F              O     clra
5608 AE00 20 00            .    bra 00
5609 AE02 20 43            C    bra 43
5610 AE04 4F              O     clra
5611 AE05 49              I     rola
5612 AE06 4E              N     illegal
5613 AE07 53              S     comb
5614 AE08 20 4F            O    bra 4f
5615 AE0A 4E              N     illegal
5616 AE0B 4C              L     inca
5617 AE0C 59              Y     rolb
5618 AE0D 20 00            .    bra 00
5619 AE0F 20 4D            M    bra 4d
5620 AE11 4F              O     clra
5621 AE12 4E              N     illegal
5622 AE13 4E              N     illegal
5623 AE14 41              A     illegal
5624 AE15 49              I     rola
5625 AE16 45              E     illegal
5626 AE17 20 53            S    bra 53
5627 AE19 45              E     illegal
5628 AE1A 55              U     illegal
5629 AE1B 4C              L     inca
5630 AE1C 45              E     illegal
5631 AE1D 4D              M     tsta
5632 AE1E 45              E     illegal
5633 AE1F 4E              N     illegal
5634 AE20 54              T     lsrb
5635 AE21 20 00            .    bra 00
5636 AE23 20 4E            N    bra 4e
5637 AE25 55              U     illegal
5638 AE26 52              R     illegal
5639 AE27 20 4D            M    bra 4d
5640 AE29 55              U     illegal
5641 AE2A 4E              N     illegal
5642 AE2B 5A              Z     decb
5643 AE2C 45              E     illegal
5644 AE2D 4E              N     illegal
5645 AE2E 20 00            .    bra 00
5646 AE30 20 4D            M    bra 4d
5647 AE32 4F              O     clra
5648 AE33 4E              N     illegal
5649 AE34 45              E     illegal
5650 AE35 44              D     lsra
5651 AE36 41              A     illegal
5652 AE37 20 55            U    bra 55
5653 AE39 4E              N     illegal
5654 AE3A 49              I     rola
5655 AE3B 43              C     coma
5656 AE3C 41              A     illegal
5657 AE3D 4D              M     tsta
5658 AE3E 45              E     illegal
5659 AE3F 4E              N     illegal
5660 AE40 54              T     lsrb
5661 AE41 45              E     illegal
5662 AE42 20 00            .    bra 00
5663 AE44 20 4D            M    bra 4d
5664 AE46 41              A     illegal
5665 AE47 43              C     coma
5666 AE48 48              H     asla
5667 AE49 49              I     rola
5668 AE4A 4E              N     illegal
5669 AE4B 45              E     illegal
5670 AE4C 20 4F            O    bra 4f
5671 AE4E 55              U     illegal
5672 AE4F 54              T     lsrb
5673 AE50 20 4F            O    bra 4f
5674 AE52 46              F     rora
5675 AE53 20 4F            O    bra 4f
5676 AE55 52              R     illegal
5677 AE56 44              D     lsra
5678 AE57 45              E     illegal
5679 AE58 52              R     illegal
5680 AE59 20 00            .    bra 00
5681 AE5B 20 48            H    bra 48
5682 AE5D 4F              O     clra
5683 AE5E 52              R     illegal
5684 AE5F 53              S     comb
5685 AE60 20 44            D    bra 44
5686 AE62 45              E     illegal
5687 AE63 20 53            S    bra 53
5688 AE65 45              E     illegal
5689 AE66 52              R     illegal
5690 AE67 56              V     rorb
5691 AE68 49              I     rola
5692 AE69 43              C     coma
5693 AE6A 45              E     illegal
5694 AE6B 20 00            .    bra 00
5695 AE6D 20 41            A    bra 41
5696 AE6F 55              U     illegal
5697 AE70 53              S     comb
5698 AE71 53              S     comb
5699 AE72 45              E     illegal
5700 AE73 52              R     illegal
5701 AE74 20 42            B    bra 42
5702 AE76 45              E     illegal
5703 AE77 54              T     lsrb
5704 AE78 52              R     illegal
5705 AE79 49              I     rola
5706 AE7A 45              E     illegal
5707 AE7B 42              B     illegal
5708 AE7C 20 00            .    bra 00
5709 AE7E 20 46            F    bra 46
5710 AE80 55              U     illegal
5711 AE81 45              E     illegal
5712 AE82 52              R     illegal
5713 AE83 41              A     illegal
5714 AE84 20 44            D    bra 44
5715 AE86 45              E     illegal
5716 AE87 20 53            S    bra 53
5717 AE89 45              E     illegal
5718 AE8A 52              R     illegal
5719 AE8B 56              V     rorb
5720 AE8C 49              I     rola
5721 AE8D 43              C     coma
5722 AE8E 49              I     rola
5723 AE8F 4F              O     clra
5724 AE90 20 00            .    bra 00
5725
5726 AE92 2D 20           -     blt 20
5727 AE94 20 20                 bra 20
5728 AE96 20 20                 bra 20
5729 AE98 20 20                 bra 20
5730 AE9A 20 20                 bra 20
5731 AE9C 00              .     test
5732
5733 AE9D 53              S     comb
5734 AE9E 45              E     illegal
5735 AE9F 54              T     lsrb
5736 AEA0 20 50            P    bra 50
5737 AEA2 52              R     illegal
5738 AEA3 49              I     rola
5739 AEA4 43              C     coma
5740 AEA5 45              E     illegal
5741 AEA6 3F              ?     swi
5742 AEA7 00              .     test
5743
5744 AEA8 20 20                 bra 20
5745 AEAA 53              S     comb
5746 AEAB 59              Y     rolb
5747 AEAC 53              S     comb
5748 AEAD 54              T     lsrb
5749 AEAE 45              E     illegal
5750 AEAF 4D              M     tsta
5751 AEB0 20 20                 bra 20
5752 AEB2 00              .     test
5753
5754 AEB3 20 20                 bra 20
5755 AEB5 20 20                 bra 20
5756 AEB7 4F              O     clra
5757 AEB8 4B              K     illegal
5758 AEB9 20 20                 bra 20
5759 AEBB 20 20                 bra 20
5760 AEBD 00              .     test
5761
5762 AEBE 24 35           $5    bcc 35
5763 AEC0 20 45            E    bra 45
5764 AEC2 4E              N     illegal
5765 AEC3 41              A     illegal
5766 AEC4 42              B     illegal
5767 AEC5 4C              L     inca
5768 AEC6 45              E     illegal
5769 AEC7 20 00            .    bra 00
5770
5771 AEC9 24 35           $5    bcc 35
5772 AECB 20 44            D    bra 44
5773 AECD 49              I     rola
5774 AECE 53              S     comb
5775 AECF 41              A     illegal
5776 AED0 42              B     illegal
5777 AED1 4C              L     inca
5778 AED2 45              E     illegal
5779 AED3 00              .     test
5780
5781 AED4 53              S     comb
5782 AED5 4F              O     clra
5783 AED6 44              D     lsra
5784 AED7 41              A     illegal
5785 AED8 20 56            V    bra 56
5786 AEDA 45              E     illegal
5787 AEDB 4E              N     illegal
5788 AEDC 44              D     lsra
5789 AEDD 20 00            .    bra 00
5790 AEDF 53              S     comb
5791 AEE0 4E              N     illegal
5792 AEE1 41              A     illegal
5793 AEE2 43              C     coma
5794 AEE3 4B              K     illegal
5795 AEE4 20 56            V    bra 56
5796 AEE6 45              E     illegal
5797 AEE7 4E              N     illegal
5798 AEE8 44              D     lsra
5799 AEE9 00              .     test
5800
5801 AEEA 44              D     lsra
5802 AEEB 55              U     illegal
5803 AEEC 4D              M     tsta
5804 AEED 42              B     illegal
5805 AEEE 20 4D            M    bra 4d
5806 AEF0 45              E     illegal
5807 AEF1 43              C     coma
5808 AEF2 20 59            Y    bra 59
5809 AEF4 00              .     test
5810 AEF5 44              D     lsra
5811 AEF6 55              U     illegal
5812 AEF7 4D              M     tsta
5813 AEF8 42              B     illegal
5814 AEF9 20 4D            M    bra 4d
5815 AEFB 45              E     illegal
5816 AEFC 43              C     coma
5817 AEFD 20 4E            N    bra 4e
5818 AEFF 00              .     test
5819 AF00 4C              L     inca
5820 AF01 4E              N     illegal
5821 AF02 4B              K     illegal
5822 AF03 20 4D            M    bra 4d
5823 AF05 53              S     comb
5824 AF06 54              T     lsrb
5825 AF07 52              R     illegal
5826 AF08 20 59            Y    bra 59
5827 AF0A 00              .     test
5828 AF0B 4C              L     inca
5829 AF0C 4E              N     illegal
5830 AF0D 4B              K     illegal
5831 AF0E 20 4D            M    bra 4d
5832 AF10 53              S     comb
5833 AF11 54              T     lsrb
5834 AF12 52              R     illegal
5835 AF13 20 4E            N    bra 4e
5836 AF15 00              .     test
5837 AF16 43              C     coma
5838 AF17 41              A     illegal
5839 AF18 52              R     illegal
5840 AF19 44              D     lsra
5841 AF1A 20 52            R    bra 52
5842 AF1C 44              D     lsra
5843 AF1D 52              R     illegal
5844 AF1E 20 59            Y    bra 59
5845 AF20 00              .     test
5846 AF21 43              C     coma
5847 AF22 41              A     illegal
5848 AF23 52              R     illegal
5849 AF24 44              D     lsra
5850 AF25 20 52            R    bra 52
5851 AF27 44              D     lsra
5852 AF28 52              R     illegal
5853 AF29 20 4E            N    bra 4e
5854 AF2B 00              .     test
5855 AF2C 42              B     illegal
5856 AF2D 49              I     rola
5857 AF2E 4C              L     inca
5858 AF2F 4C              L     inca
5859 AF30 20 56            V    bra 56
5860 AF32 41              A     illegal
5861 AF33 4C              L     inca
5862 AF34 20 59            Y    bra 59
5863 AF36 00              .     test
5864 AF37 42              B     illegal
5865 AF38 49              I     rola
5866 AF39 4C              L     inca
5867 AF3A 4C              L     inca
5868 AF3B 20 56            V    bra 56
5869 AF3D 41              A     illegal
5870 AF3E 4C              L     inca
5871 AF3F 20 4E            N    bra 4e
5872 AF41 00              .     test
5873 AF42 50              P     negb
5874 AF43 52              R     illegal
5875 AF44 43              C     coma
5876 AF45 20 48            H    bra 48
5877 AF47 4F              O     clra
5878 AF48 4C              L     inca
5879 AF49 44              D     lsra
5880 AF4A 20 59            Y    bra 59
5881 AF4C 00              .     test
5882 AF4D 50              P     negb
5883 AF4E 52              R     illegal
5884 AF4F 43              C     coma
5885 AF50 20 48            H    bra 48
5886 AF52 4F              O     clra
5887 AF53 4C              L     inca
5888 AF54 44              D     lsra
5889 AF55 20 4E            N    bra 4e
5890 AF57 00              .     test
5891 AF58 50              P     negb
5892 AF59 52              R     illegal
5893 AF5A 43              C     coma
5894 AF5B 20 44            D    bra 44
5895 AF5D 49              I     rola
5896 AF5E 53              S     comb
5897 AF5F 50              P     negb
5898 AF60 20 59            Y    bra 59
5899 AF62 00              .     test
5900 AF63 50              P     negb
5901 AF64 52              R     illegal
5902 AF65 43              C     coma
5903 AF66 20 44            D    bra 44
5904 AF68 49              I     rola
5905 AF69 53              S     comb
5906 AF6A 50              P     negb
5907 AF6B 20 4E            N    bra 4e
5908 AF6D 00              .     test
5909 AF6E 46              F     rora
5910 AF6F 52              R     illegal
5911 AF70 45              E     illegal
5912 AF71 45              E     illegal
5913 AF72 20 56            V    bra 56
5914 AF74 4E              N     illegal
5915 AF75 44              D     lsra
5916 AF76 20 59            Y    bra 59
5917 AF78 00              .     test
5918 AF79 46              F     rora
5919 AF7A 52              R     illegal
5920 AF7B 45              E     illegal
5921 AF7C 45              E     illegal
5922 AF7D 20 56            V    bra 56
5923 AF7F 4E              N     illegal
5924 AF80 44              D     lsra
5925 AF81 20 4E            N    bra 4e
5926 AF83 00              .     test
5927 AF84 24 31           $1    bcc 31
5928 AF86 20 43            C    bra 43
5929 AF88 48              H     asla
5930 AF89 4E              N     illegal
5931 AF8A 47              G     asra
5932 AF8B 52              R     illegal
5933 AF8C 20 59            Y    bra 59
5934 AF8E 00              .     test
5935 AF8F 24 31           $1    bcc 31
5936 AF91 20 43            C    bra 43
5937 AF93 48              H     asla
5938 AF94 4E              N     illegal
5939 AF95 47              G     asra
5940 AF96 52              R     illegal
5941 AF97 20 4E            N    bra 4e
5942 AF99 00              .     test
5943 AF9A 43              C     coma
5944 AF9B 4C              L     inca
5945 AF9C 52              R     illegal
5946 AF9D 20 4D            M    bra 4d
5947 AF9F 49              I     rola
5948 AFA0 53              S     comb
5949 AFA1 20 20                 bra 20
5950 AFA3 59              Y     rolb
5951 AFA4 00              .     test
5952 AFA5 43              C     coma
5953 AFA6 4C              L     inca
5954 AFA7 52              R     illegal
5955 AFA8 20 4D            M    bra 4d
5956 AFAA 49              I     rola
5957 AFAB 53              S     comb
5958 AFAC 20 20                 bra 20
5959 AFAE 4E              N     illegal
5960 AFAF 00              .     test
5961 AFB0 48              H     asla
5962 AFB1 49              I     rola
5963 AFB2 54              T     lsrb
5964 AFB3 20 4B            K    bra 4b
5965 AFB5 45              E     illegal
5966 AFB6 59              Y     rolb
5967 AFB7 22 30           "0    bhi 30
5968 AFB9 22 00           ".    bhi 00
5969 AFBB 45              E     illegal
5970 AFBC 4E              N     illegal
5971 AFBD 54              T     lsrb
5972 AFBE 45              E     illegal
5973 AFBF 52              R     illegal
5974 AFC0 20 43            C    bra 43
5975 AFC2 4F              O     clra
5976 AFC3 44              D     lsra
5977 AFC4 45              E     illegal
5978 AFC5 00              .     test
5979 AFC6 53              S     comb
5980 AFC7 45              E     illegal
5981 AFC8 43              C     coma
5982 AFC9 55              U     illegal
5983 AFCA 52              R     illegal
5984 AFCB 45              E     illegal
5985 AFCC 20 4F            O    bra 4f
5986 AFCE 4E              N     illegal
5987 AFCF 20 00            .    bra 00
5988 AFD1 53              S     comb
5989 AFD2 45              E     illegal
5990 AFD3 43              C     coma
5991 AFD4 55              U     illegal
5992 AFD5 52              R     illegal
5993 AFD6 45              E     illegal
5994 AFD7 20 4F            O    bra 4f
5995 AFD9 46              F     rora
5996 AFDA 46              F     rora
5997 AFDB 00              .     test
5998 AFDC 2D 20           -     blt 20
5999 AFDE 53              S     comb
6000 AFDF 41              A     illegal
6001 AFE0 56              V     rorb
6002 AFE1 49              I     rola
6003 AFE2 4E              N     illegal
6004 AFE3 47              G     asra
6005 AFE4 20 2D            -    bra 2d
6006 AFE6 00              .     test
6007 AFE7 2D 50           -P    blt 50
6008 AFE9 52              R     illegal
6009 AFEA 49              I     rola
6010 AFEB 4E              N     illegal
6011 AFEC 54              T     lsrb
6012 AFED 49              I     rola
6013 AFEE 4E              N     illegal
6014 AFEF 47              G     asra
6015 AFF0 2D 00           -.    blt 00
6016
6017 AFF2 4F              O     clra
6018 AFF3 56              V     rorb
6019 AFF4 45              E     illegal
6020 AFF5 52              R     illegal
6021 AFF6 20 43            C    bra 43
6022 AFF8 52              R     illegal
6023 AFF9 4E              N     illegal
6024 AFFA 54              T     lsrb
6025 AFFB 3D              =     mul
6026 AFFC 00              .     test
6027
6028 AFFD 48              H     asla
6029 AFFE 4F              O     clra
6030 AFFF 4D              M     tsta
6031 B000 45              E     illegal
6032 B001 20 46            F    bra 46
6033 B003 41              A     illegal
6034 B004 49              I     rola
6035 B005 4C              L     inca
6036 B006 3D              =     mul
6037 B007 00              .     test
6038 B008 43              C     coma
6039 B009 48              H     asla
6040 B00A 4B              K     illegal
6041 B00B 20 50            P    bra 50
6042 B00D 52              R     illegal
6043 B00E 49              I     rola
6044 B00F 43              C     coma
6045 B010 45              E     illegal
6046 B011 53              S     comb
6047 B012 00              .     test
6048
6049 B013 48              H     asla
6050 B014 49              I     rola
6051 B015 54              T     lsrb
6052 B016 20 52            R    bra 52
6053 B018 45              E     illegal
6054 B019 53              S     comb
6055 B01A 45              E     illegal
6056 B01B 54              T     lsrb
6057 B01C 20 00            .    bra 00
6058
6059 B01E 43              C     coma
6060 B01F 4F              O     clra
6061 B020 49              I     rola
6062 B021 4E              N     illegal
6063 B022 20 20                 bra 20
6064 B024 20 4A            J    bra 4a
6065 B026 41              A     illegal
6066 B027 4D              M     tsta
6067 B028 00              .     test
6068
6069 B029 42              B     illegal
6070 B02A 41              A     illegal
6071 B02B 44              D     lsra
6072 B02C 20 53            S    bra 53
6073 B02E 45              E     illegal
6074 B02F 4E              N     illegal
6075 B030 53              S     comb
6076 B031 4F              O     clra
6077 B032 52              R     illegal
6078 B033 00              .     test
6079
6080 B034 43              C     coma
6081 B035 48              H     asla
6082 B036 47              G     asra
6083 B037 52              R     illegal
6084 B038 20 50            P    bra 50
6085 B03A 57              W     asrb
6086 B03B 52              R     illegal
6087 B03C 55              U     illegal
6088 B03D 50              P     negb
6089 B03E 00              .     test
6090
6091 B03F 4C              L     inca
6092 B040 49              I     rola
6093 B041 4E              N     illegal
6094 B042 4B              K     illegal
6095 B043 20 50            P    bra 50
6096 B045 57              W     asrb
6097 B046 52              R     illegal
6098 B047 55              U     illegal
6099 B048 50              P     negb
6100 B049 00              .     test
6101
6102 B04A 43              C     coma
6103 B04B 41              A     illegal
6104 B04C 52              R     illegal
6105 B04D 44              D     lsra
6106 B04E 20 50            P    bra 50
6107 B050 57              W     asrb
6108 B051 52              R     illegal
6109 B052 55              U     illegal
6110 B053 50              P     negb
6111 B054 00              .     test
6112
6113 B055 42              B     illegal
6114 B056 49              I     rola
6115 B057 4C              L     inca
6116 B058 4C              L     inca
6117 B059 20 45            E    bra 45
6118 B05B 52              R     illegal
6119 B05C 52              R     illegal
6120 B05D 4F              O     clra
6121 B05E 52              R     illegal
6122 B05F 00              .     test
6123
6124 B060 54              T     lsrb
6125 B061 55              U     illegal
6126 B062 42              B     illegal
6127 B063 45              E     illegal
6128 B064 20 45            E    bra 45
6129 B066 52              R     illegal
6130 B067 52              R     illegal
6131 B068 4F              O     clra
6132 B069 52              R     illegal
6133 B06A 00              .     test
6134 B06B 4E              N     illegal
6135 B06C 4F              O     clra
6136 B06D 20 20                 bra 20
6137 B06F 43              C     coma
6138 B070 48              H     asla
6139 B071 41              A     illegal
6140 B072 4E              N     illegal
6141 B073 47              G     asra
6142 B074 45              E     illegal
6143 B075 00              .     test
6144 B076 20 4E            N    bra 4e
6145 B078 4F              O     clra
6146 B079 20 46            F    bra 46
6147 B07B 49              I     rola
6148 B07C 56              V     rorb
6149 B07D 45              E     illegal
6150 B07E 53              S     comb
6151 B07F 20 00            .    bra 00
6152
6153 B081 4E              N     illegal
6154 B082 4F              O     clra
6155 B083 20 20                 bra 20
6156 B085 41              A     illegal
6157 B086 43              C     coma
6158 B087 43              C     coma
6159 B088 45              E     illegal
6160 B089 53              S     comb
6161 B08A 53              S     comb
6162 B08B 00              .     test
6163 B08C 4E              N     illegal
6164 B08D 4F              O     clra
6165 B08E 20 20                 bra 20
6166 B090 45              E     illegal
6167 B091 52              R     illegal
6168 B092 52              R     illegal
6169 B093 4F              O     clra
6170 B094 52              R     illegal
6171 B095 53              S     comb
6172 B096 00              .     test
6173 B097 54              T     lsrb
6174 B098 45              E     illegal
6175 B099 53              S     comb
6176 B09A 54              T     lsrb
6177 B09B 20 20                 bra 20
6178 B09D 56              V     rorb
6179 B09E 45              E     illegal
6180 B09F 4E              N     illegal
6181 B0A0 44              D     lsra
6182 B0A1 00              .     test
6183 B0A2 4D              M     tsta
6184 B0A3 54              T     lsrb
6185 B0A4 52              R     illegal
6186 B0A5 20 46            F    bra 46
6187 B0A7 55              U     illegal
6188 B0A8 4E              N     illegal
6189 B0A9 43              C     coma
6190 B0AA 54              T     lsrb
6191 B0AB 3F              ?     swi
6192 B0AC 00              .     test
6193 B0AD 50              P     negb
6194 B0AE 52              R     illegal
6195 B0AF 4F              O     clra
6196 B0B0 47              G     asra
6197 B0B1 52              R     illegal
6198 B0B2 41              A     illegal
6199 B0B3 4D              M     tsta
6200 B0B4 20 20                 bra 20
6201 B0B6 3F              ?     swi
6202 B0B7 00              .     test
6203 B0B8 53              S     comb
6204 B0B9 45              E     illegal
6205 B0BA 4C              L     inca
6206 B0BB 45              E     illegal
6207 B0BC 43              C     coma
6208 B0BD 54              T     lsrb
6209 B0BE 49              I     rola
6210 B0BF 4F              O     clra
6211 B0C0 4E              N     illegal
6212 B0C1 3F              ?     swi
6213 B0C2 00              .     test
6214
6215 B0C3 14 00           .     ;20
6216 B0C5 14 C8           .     ;20 200
6217 B0C7 05 00           ..    ;05
6218 B0C9 05 00           .     ;05
6219 B0CB 02 00           .     ;02
6220 B0CD 02 00           .     ;02
6221 B0CF 01 00           .     ;01
6222 B0D1 01 00           .     ;01
6223
6224
6225
6226
6227
6228 ;
6229 ; here's a lookup table of some sort, for finding the slot
6230 ; numbers of each motor in turn
6231 ;
6232 ; 80 entries for 80 motors?
6233 ;
6234 B0D3 01              .     ;01
6235 B0D4 0C              .     ;12
6236 B0D5 17              .     ;23
6237 B0D6 22              .     ;34
6238 B0D7 2E              .     ;46
6239 B0D8 39              .     ;57
6240 B0D9 44              D     ;68
6241 B0DA 4F              O     ;79
6242 ;
6243 B0DB 0B              .     ;11
6244 B0DC 16              .     ;22
6245 B0DD 21              !     ;33
6246 B0DE 2C              .     ;44
6247 B0DF 38              8     ;56
6248 B0E0 43              C     ;67
6249 B0E1 4E              N     ;78
6250 B0E2 59              Y     ;89
6251 ;
6252 B0E3 15              .     ;21
6253 B0E4 20              .     ;32
6254 B0E5 2B              +     ;43
6255 B0E6 36              6     ;54
6256 B0E7 42              B     ;66
6257 B0E8 4D              M     ;77
6258 B0E9 58              X     ;88
6259 B0EA 63              c     ;99
6260 ;
6261 B0EB 1F              .     ;31
6262 B0EC 2A              *.    ;42
6263 B0ED 35              .     ;53
6264 B0EE 40              @     ;64
6265 B0EF 4C              L     ;76
6266 B0F0 57              W     ;87
6267 B0F1 62              b     ;98
6268 ;
6269 B0F2 09              .     ;09
6270 B0F3 29              )     ;41
6271 B0F4 34              .     ;52
6272 B0F5 3F              ?     ;63
6273 B0F6 4A              J     ;74
6274 B0F7 56              V     ;86
6275 B0F8 61              a     ;97
6276 ;
6277 B0F9 08              .     ;08
6278 B0FA 13              .     ;19
6279 B0FB 33              3     ;51
6280 B0FC 3E              >     ;62
6281 B0FD 49              I     ;73
6282 B0FE 54              T     ;84
6283 B0FF 60              `     ;96
6284 ;
6285 B000 07              .     ;07
6286 B101 12              .     ;18
6287 B102 1D              .     ;29
6288 B103 3D              .     ;61
6289 B104 48              .     ;72
6290 B105 53              S     ;83
6291 B106 5E              ^     ;94
6292 ;
6293 B107 06              .     ;06
6294 B108 11              .     ;17
6295 B109 1C              .     ;28
6296 B10A 27              .     ;39
6297 B10B 47              .     ;71
6298 B10C 52              R     ;82
6299 B10D 5D              ]     ;93
6300 ;
6301 B10E 04              .     ;04
6302 B10F 10              .     ;16
6303 B110 1B              .     ;27
6304 B111 26              &     ;38
6305 B111 31              &     ;49
6306 B113 51              Q     ;81
6307 B114 5C              \     ;92
6308 ;
6309 B115 03              .     ;03
6310 B116 0E              .     ;14
6311 B117 1A              .     ;26
6312 B118 25              %     ;37
6313 B119 30              %     ;48
6314 B11A 3B              ;     ;59
6315 B11B 5B              [     ;91
6316 ;
6317 B11C 02              .     ;02
6318 B11D 0D              .     ;13
6319 B11E 18              .     ;24
6320 B11F 24              $     ;36
6321 B120 2F              $     ;47
6322 B121 3A              :     ;58
6323 B122 45              E     ;69
6324
6325 table of powers of 2
6326
6327 B123 00 01 02 04 08
6328 B128 10 20 40 80
6329
6330 B12C 00
6331 B12D 00              .     test
6332 B12E 2A 2A           **    bpl 2a       ;"**ERROR***"
6333 B130 45              E     illegal
6334 B131 52              R     illegal
6335 B132 52              R     illegal
6336 B133 4F              O     clra
6337 B134 52              R     illegal
6338 B135 2A 2A           **    bpl 2a
6339 B137 2A 00           *.    bpl 00
6340
6341 B139 2A 2A           **    bpl 2a
6342 B13B 2A 2A           **    bpl 2a
6343 B13D 2A 2A           **    bpl 2a
6344 B13F 2A 2A           **    bpl 2a
6345 B141 2A 2A           **    bpl 2a
6346 B143 00              .     test
6347 B144 4F              O     clra
6348 B145 4F              O     clra
6349 B146 4F              O     clra
6350 B147 4F              O     clra
6351 B148 4F              O     clra
6352 B149 4F              O     clra
6353 B14A 4F              O     clra
6354 B14B 4F              O     clra
6355 B14C 4F              O     clra
6356 B14D 4F              O     clra
6357 B14E 00              .     test
6358 B14F 52              R     illegal
6359 B150 41              A     illegal
6360 B151 4D              M     tsta
6361 B152 20 20                 bra 20
6362 B154 20 46            F    bra 46
6363 B156 41              A     illegal
6364 B157 49              I     rola
6365 B158 4C              L     inca
6366 B159 00              .     test
6367 B15A 50              P     negb
6368 B15B 32              2     pula
6369 B15C 20 20                 bra 20
6370 B15E 20 20                 bra 20
6371 B160 46              F     rora
6372 B161 41              A     illegal
6373 B162 49              I     rola
6374 B163 4C              L     inca
6375 B164 00              .     test
6376 B165 50              P     negb
6377 B166 32              2     pula
6378 B167 2D 50           -P    blt 50
6379 B169 33              3     pulb
6380 B16A 20 46            F    bra 46
6381 B16C 41              A     illegal
6382 B16D 49              I     rola
6383 B16E 4C              L     inca
6384 B16F 00              .     test
6385 B170 50              P     negb
6386 B171 32              2     pula
6387 B172 2D 50           -P    blt 50
6388 B174 38              8     pulx
6389 B175 20 46            F    bra 46
6390 B177 41              A     illegal
6391 B178 49              I     rola
6392 B179 4C              L     inca
6393 B17A 00              .     test
6394 B17B 50              P     negb
6395 B17C 32              2     pula
6396 B17D 2D 50           -P    blt 50
6397 B17F 39              9     rts
6398
6399 B180 20 46            F    bra 46
6400 B182 41              A     illegal
6401 B183 49              I     rola
6402 B184 4C              L     inca
6403 B185 00              .     test
6404 B186 50              P     negb
6405 B187 33              3     pulb
6406 B188 2D 50           -P    blt 50
6407 B18A 34              4     des
6408 B18B 20 46            F    bra 46
6409 B18D 41              A     illegal
6410 B18E 49              I     rola
6411 B18F 4C              L     inca
6412 B190 00              .     test
6413 B191 50              P     negb
6414 B192 35              5     txs
6415 B193 20 20                 bra 20
6416 B195 20 20                 bra 20
6417 B197 46              F     rora
6418 B198 41              A     illegal
6419 B199 49              I     rola
6420 B19A 4C              L     inca
6421 B19B 00              .     test
6422 B19C 50              P     negb
6423 B19D 35              5     txs
6424 B19E 2D 50           -P    blt 50
6425 B1A0 37              7     pshb
6426 B1A1 20 46            F    bra 46
6427 B1A3 41              A     illegal
6428 B1A4 49              I     rola
6429 B1A5 4C              L     inca
6430 B1A6 00              .     test
6431 B1A7 50              P     negb
6432 B1A8 37              7     pshb
6433 B1A9 20 20                 bra 20
6434 B1AB 20 20                 bra 20
6435 B1AD 46              F     rora
6436 B1AE 41              A     illegal
6437 B1AF 49              I     rola
6438 B1B0 4C              L     inca
6439 B1B1 00              .     test
6440 B1B2 50              P     negb
6441 B1B3 37              7     pshb
6442 B1B4 2D 50           -P    blt 50
6443 B1B6 38              8     pulx
6444 B1B7 20 46            F    bra 46
6445 B1B9 41              A     illegal
6446 B1BA 49              I     rola
6447 B1BB 4C              L     inca
6448 B1BC 00              .     test
6449 B1BD 2D 20           -     blt 20
6450 B1BF 50              P     negb
6451 B1C0 41              A     illegal
6452 B1C1 53              S     comb
6453 B1C2 53              S     comb
6454 B1C3 45              E     illegal
6455 B1C4 44              D     lsra
6456 B1C5 20 2D            -    bra 2d
6457 B1C7 00              .     test
6458 B1C8 09              .     dex
6459 B1C9 12              .     brset
6460 B1CA 1B              .     aba
6461 B1CB 24 2C           $,    bcc 2c
6462 B1CD 35              5     txs
6463 B1CE 3E              >     wai
6464 B1CF 47              G     asra
6465 B1D0 54              T     lsrb
6466 B1D1 48              H     asla
6467 B1D2 41              A     illegal
6468 B1D3 4E              N     illegal
6469 B1D4 4B              K     illegal
6470 B1D5 20 59            Y    bra 59
6471 B1D7 4F              O     clra
6472 B1D8 55              U     illegal
6473 B1D9 20 46            F    bra 46
6474 B1DB 4F              O     clra
6475 B1DC 52              R     illegal
6476 B1DD 20 59            Y    bra 59
6477 B1DF 4F              O     clra
6478 B1E0 55              U     illegal
6479 B1E1 52              R     illegal
6480 B1E2 20 50            P    bra 50
6481 B1E4 41              A     illegal
6482 B1E5 54              T     lsrb
6483 B1E6 52              R     illegal
6484 B1E7 4F              O     clra
6485 B1E8 4E              N     illegal
6486 B1E9 41              A     illegal
6487 B1EA 47              G     asra
6488 B1EB 45              E     illegal
6489 B1EC 20 20                 bra 20
6490 B1EE 00              .     test
6491
6492 B1EF 20 52            R    bra 52
6493 B1F1 4F              O     clra
6494 B1F2 57              W     asrb
6495 B1F3 45              E     illegal
6496 B1F4 20 49            I    bra 49
6497 B1F6 4E              N     illegal
6498 B1F7 54              T     lsrb
6499 B1F8 20 00            .    bra 00
6500
6501 B1FA 43              C     coma
6502 B1FB 4F              O     clra
6503 B1FC 50              P     negb
6504 B1FD 59              Y     rolb
6505 B1FE 52              R     illegal
6506 B1FF 49              I     rola
6507 B200 47              G     asra
6508 B201 48              H     asla
6509 B202 54              T     lsrb
6510 B203 20 00            .    bra 00
6511
6512 B205 20 20                 bra 20
6513 B207 20 31            1    bra 31
6514 B209 39              9     rts
6515 B20A 39              9     rts
6516 B20B 33              3     pulb
6517 B20C 20 20                 bra 20
6518 B20E 20 00            .    bra 00
6519
6520 B210 35              5     txs
6521 B211 39              9     rts
6522 B212 30              0     tsx
6523 B213 30              0     tsx
6524 B214 20 56            V    bra 56
6525 B216 45              E     illegal
6526 B217 52              R     illegal
6527 B218 20 35            5    bra 35
6528 B21A 00              .     test
6529
6530 B21B 20 20                 bra 20
6531 B21D 20 20                 bra 20
6532 B21F 20 20                 bra 20
6533 B221 20 20                 bra 20
6534 B223 20 52            R    bra 52
6535 B225 4F              O     clra
6536 B226 57              W     asrb
6537 B227 45              E     illegal
6538 B228 20 20                 bra 20
6539 B22A 49              I     rola
6540 B22B 4E              N     illegal
6541 B22C 54              T     lsrb
6542 B22D 45              E     illegal
6543 B22E 52              R     illegal
6544 B22F 4E              N     illegal
6545 B230 41              A     illegal
6546 B231 54              T     lsrb
6547 B232 49              I     rola
6548 B233 4F              O     clra
6549 B234 4E              N     illegal
6550 B235 41              A     illegal
6551 B236 4C              L     inca
6552 B237 00              .     test
6553 B238 20 20                 bra 20
6554 B23A 20 20                 bra 20
6555 B23C 20 20                 bra 20
6556 B23E 20 20                 bra 20
6557 B240 2D 2D           --    blt 2d
6558 B242 2D 2D           --    blt 2d
6559 B244 2D 2D           --    blt 2d
6560 B246 2D 2D           --    blt 2d
6561 B248 2D 2D           --    blt 2d
6562 B24A 2D 2D           --    blt 2d
6563 B24C 2D 2D           --    blt 2d
6564 B24E 2D 2D           --    blt 2d
6565 B250 2D 2D           --    blt 2d
6566 B252 2D 2D           --    blt 2d
6567 B254 2D 00           -.    blt 00
6568 B256 20 20                 bra 20
6569 B258 20 20                 bra 20
6570 B25A 20 20                 bra 20
6571 B25C 20 20                 bra 20
6572 B25E 35              5     txs
6573 B25F 39              9     rts
6574 B260 30              0     tsx
6575 B261 30              0     tsx
6576 B262 20 53            S    bra 53
6577 B264 4F              O     clra
6578 B265 46              F     rora
6579 B266 54              T     lsrb
6580 B267 57              W     asrb
6581 B268 41              A     illegal
6582 B269 52              R     illegal
6583 B26A 45              E     illegal
6584 B26B 20 56            V    bra 56
6585 B26D 45              E     illegal
6586 B26E 52              R     illegal
6587 B26F 2E 20           .     bgt 20
6588 B271 35              5     txs
6589 B272 20 20                 bra 20
6590 B274 00              .     test
6591 B275 20 20                 bra 20
6592 B277 20 20                 bra 20
6593 B279 20 20                 bra 20
6594 B27B 20 20                 bra 20
6595 B27D 20 20                 bra 20
6596 B27F 20 41            A    bra 41
6597 B281 43              C     coma
6598 B282 43              C     coma
6599 B283 4F              O     clra
6600 B284 55              U     illegal
6601 B285 4E              N     illegal
6602 B286 54              T     lsrb
6603 B287 20 20                 bra 20
6604 B289 52              R     illegal
6605 B28A 45              E     illegal
6606 B28B 43              C     coma
6607 B28C 4F              O     clra
6608 B28D 52              R     illegal
6609 B28E 44              D     lsra
6610 B28F 00              .     test
6611 B290 53              S     comb
6612 B291 45              E     illegal
6613 B292 52              R     illegal
6614 B293 49              I     rola
6615 B294 41              A     illegal
6616 B295 4C              L     inca
6617 B296 20 20                 bra 20
6618 B298 23 20           #     bls 20
6619 B29A 20 20                 bra 20
6620 B29C 20 20                 bra 20
6621 B29E 20 2D            -    bra 2d
6622 B2A0 20 00            .    bra 00
6623 B2A2 4D              M     tsta
6624 B2A3 41              A     illegal
6625 B2A4 43              C     coma
6626 B2A5 48              H     asla
6627 B2A6 49              I     rola
6628 B2A7 4E              N     illegal
6629 B2A8 45              E     illegal
6630 B2A9 20 49            I    bra 49
6631 B2AB 44              D     lsra
6632 B2AC 20 20                 bra 20
6633 B2AE 20 20                 bra 20
6634 B2B0 20 2D            -    bra 2d
6635 B2B2 20 00            .    bra 00
6636 B2B4 41              A     illegal
6637 B2B5 55              U     illegal
6638 B2B6 44              D     lsra
6639 B2B7 49              I     rola
6640 B2B8 54              T     lsrb
6641 B2B9 20 4E            N    bra 4e
6642 B2BB 55              U     illegal
6643 B2BC 4D              M     tsta
6644 B2BD 42              B     illegal
6645 B2BE 45              E     illegal
6646 B2BF 52              R     illegal
6647 B2C0 20 20                 bra 20
6648 B2C2 20 20                 bra 20
6649 B2C4 20 00            .    bra 00
6650 B2C6 53              S     comb
6651 B2C7 41              A     illegal
6652 B2C8 4C              L     inca
6653 B2C9 45              E     illegal
6654 B2CA 53              S     comb
6655 B2CB 20 20                 bra 20
6656 B2CD 28 52           (R    bvc 52
6657 B2CF 29 20           )     bvs 20
6658 B2D1 20 20                 bra 20
6659 B2D3 20 20                 bra 20
6660 B2D5 2D 20           -     blt 20
6661 B2D7 00              .     test
6662 B2D8 53              S     comb
6663 B2D9 41              A     illegal
6664 B2DA 4C              L     inca
6665 B2DB 45              E     illegal
6666 B2DC 53              S     comb
6667 B2DD 20 20                 bra 20
6668 B2DF 28 4E           (N    bvc 4e
6669 B2E1 29 20           )     bvs 20
6670 B2E3 20 20                 bra 20
6671 B2E5 20 20                 bra 20
6672 B2E7 2D 20           -     blt 20
6673 B2E9 00              .     test
6674 B2EA 42              B     illegal
6675 B2EB 41              A     illegal
6676 B2EC 47              G     asra
6677 B2ED 20 54            T    bra 54
6678 B2EF 4F              O     clra
6679 B2F0 54              T     lsrb
6680 B2F1 41              A     illegal
6681 B2F2 4C              L     inca
6682 B2F3 20 20                 bra 20
6683 B2F5 20 20                 bra 20
6684 B2F7 20 20                 bra 20
6685 B2F9 2D 20           -     blt 20
6686 B2FB 00              .     test
6687 B2FC 43              C     coma
6688 B2FD 41              A     illegal
6689 B2FE 53              S     comb
6690 B2FF 48              H     asla
6691 B300 20 42            B    bra 42
6692 B302 4F              O     clra
6693 B303 58              X     aslb
6694 B304 20 20                 bra 20
6695 B306 20 20                 bra 20
6696 B308 20 20                 bra 20
6697 B30A 20 2D            -    bra 2d
6698 B30C 20 00            .    bra 00
6699 B30E 43              C     coma
6700 B30F 41              A     illegal
6701 B310 52              R     illegal
6702 B311 44              D     lsra
6703 B312 20 53            S    bra 53
6704 B314 41              A     illegal
6705 B315 4C              L     inca
6706 B316 45              E     illegal
6707 B317 53              S     comb
6708 B318 20 20                 bra 20
6709 B31A 20 20                 bra 20
6710 B31C 20 2D            -    bra 2d
6711 B31E 20 00            .    bra 00
6712 B320 42              B     illegal
6713 B321 49              I     rola
6714 B322 4C              L     inca
6715 B323 4C              L     inca
6716 B324 53              S     comb
6717 B325 20 49            I    bra 49
6718 B327 4E              N     illegal
6719 B328 20 53            S    bra 53
6720 B32A 54              T     lsrb
6721 B32B 41              A     illegal
6722 B32C 43              C     coma
6723 B32D 4B              K     illegal
6724 B32E 45              E     illegal
6725 B32F 52              R     illegal
6726 B330 00              .     test
6727 B331 20 20                 bra 20
6728 B333 20 20                 bra 20
6729 B335 42              B     illegal
6730 B336 49              I     rola
6731 B337 4C              L     inca
6732 B338 4C              L     inca
6733 B339 20 54            T    bra 54
6734 B33B 4F              O     clra
6735 B33C 54              T     lsrb
6736 B33D 41              A     illegal
6737 B33E 4C              L     inca
6738 B33F 20 2D            -    bra 2d
6739 B341 20 20                 bra 20
6740 B343 20 20                 bra 20
6741 B345 20 20                 bra 20
6742 B347 20 20                 bra 20
6743 B349 00              .     test
6744 B34A 20 20                 bra 20
6745 B34C 20 20                 bra 20
6746 B34E 4F              O     clra
6747 B34F 4E              N     illegal
6748 B350 45              E     illegal
6749 B351 53              S     comb
6750 B352 20 20                 bra 20
6751 B354 20 20                 bra 20
6752 B356 20 20                 bra 20
6753 B358 20 2D            -    bra 2d
6754 B35A 20 00            .    bra 00
6755 B35C 20 20                 bra 20
6756 B35E 20 20                 bra 20
6757 B360 54              T     lsrb
6758 B361 57              W     asrb
6759 B362 4F              O     clra
6760 B363 53              S     comb
6761 B364 20 20                 bra 20
6762 B366 20 20                 bra 20
6763 B368 20 20                 bra 20
6764 B36A 20 2D            -    bra 2d
6765 B36C 20 00            .    bra 00
6766 B36E 20 20                 bra 20
6767 B370 20 20                 bra 20
6768 B372 46              F     rora
6769 B373 49              I     rola
6770 B374 56              V     rorb
6771 B375 45              E     illegal
6772 B376 53              S     comb
6773 B377 20 20                 bra 20
6774 B379 20 20                 bra 20
6775 B37B 20 20                 bra 20
6776 B37D 2D 20           -     blt 20
6777 B37F 00              .     test
6778 B380 20 20                 bra 20
6779 B382 20 20                 bra 20
6780 B384 54              T     lsrb
6781 B385 45              E     illegal
6782 B386 4E              N     illegal
6783 B387 53              S     comb
6784 B388 20 20                 bra 20
6785 B38A 20 20                 bra 20
6786 B38C 20 20                 bra 20
6787 B38E 20 2D            -    bra 2d
6788 B390 20 00            .    bra 00
6789 B392 20 20                 bra 20
6790 B394 20 20                 bra 20
6791 B396 54              T     lsrb
6792 B397 57              W     asrb
6793 B398 45              E     illegal
6794 B399 4E              N     illegal
6795 B39A 54              T     lsrb
6796 B39B 49              I     rola
6797 B39C 45              E     illegal
6798 B39D 53              S     comb
6799 B39E 20 20                 bra 20
6800 B3A0 20 2D            -    bra 2d
6801 B3A2 20 00            .    bra 00
6802 B3A4 43              C     coma
6803 B3A5 4F              O     clra
6804 B3A6 49              I     rola
6805 B3A7 4E              N     illegal
6806 B3A8 53              S     comb
6807 B3A9 20 49            I    bra 49
6808 B3AB 4E              N     illegal
6809 B3AC 20 54            T    bra 54
6810 B3AE 55              U     illegal
6811 B3AF 42              B     illegal
6812 B3B0 45              E     illegal
6813 B3B1 53              S     comb
6814 B3B2 00              .     test
6815 B3B3 20 20                 bra 20
6816 B3B5 20 20                 bra 20
6817 B3B7 54              T     lsrb
6818 B3B8 55              U     illegal
6819 B3B9 42              B     illegal
6820 B3BA 45              E     illegal
6821 B3BB 20 54            T    bra 54
6822 B3BD 4F              O     clra
6823 B3BE 54              T     lsrb
6824 B3BF 41              A     illegal
6825 B3C0 4C              L     inca
6826 B3C1 20 2D            -    bra 2d
6827 B3C3 20 20                 bra 20
6828 B3C5 20 20                 bra 20
6829 B3C7 20 20                 bra 20
6830 B3C9 00              .     test
6831 B3CA 20 20                 bra 20
6832 B3CC 20 20                 bra 20
6833 B3CE 24 31           $1    bcc 31
6834 B3D0 20 43            C    bra 43
6835 B3D2 4F              O     clra
6836 B3D3 49              I     rola
6837 B3D4 4E              N     illegal
6838 B3D5 20 20                 bra 20
6839 B3D7 20 20                 bra 20
6840 B3D9 2D 20           -     blt 20
6841 B3DB 00              .     test
6842 B3DC 20 20                 bra 20
6843 B3DE 20 20                 bra 20
6844 B3E0 51              Q     illegal
6845 B3E1 55              U     illegal
6846 B3E2 41              A     illegal
6847 B3E3 52              R     illegal
6848 B3E4 54              T     lsrb
6849 B3E5 45              E     illegal
6850 B3E6 52              R     illegal
6851 B3E7 53              S     comb
6852 B3E8 20 20                 bra 20
6853 B3EA 20 2D            -    bra 2d
6854 B3EC 20 00            .    bra 00
6855 B3EE 20 20                 bra 20
6856 B3F0 20 20                 bra 20
6857 B3F2 44              D     lsra
6858 B3F3 49              I     rola
6859 B3F4 4D              M     tsta
6860 B3F5 45              E     illegal
6861 B3F6 53              S     comb
6862 B3F7 20 20                 bra 20
6863 B3F9 20 20                 bra 20
6864 B3FB 20 20                 bra 20
6865 B3FD 2D 20           -     blt 20
6866 B3FF 00              .     test
6867 B400 20 20                 bra 20
6868 B402 20 20                 bra 20
6869 B404 4E              N     illegal
6870 B405 49              I     rola
6871 B406 43              C     coma
6872 B407 4B              K     illegal
6873 B408 45              E     illegal
6874 B409 4C              L     inca
6875 B40A 53              S     comb
6876 B40B 20 20                 bra 20
6877 B40D 20 20                 bra 20
6878 B40F 2D 20           -     blt 20
6879 B411 00              .     test
6880 B412 57              W     asrb
6881 B413 49              I     rola
6882 B414 4E              N     illegal
6883 B415 2D 53           -S    blt 53
6884 B417 4E              N     illegal
6885 B418 4B              K     illegal
6886 B419 20 56            V    bra 56
6887 B41B 45              E     illegal
6888 B41C 4E              N     illegal
6889 B41D 44              D     lsra
6890 B41E 53              S     comb
6891 B41F 20 20                 bra 20
6892 B421 2D 20           -     blt 20
6893 B423 00              .     test
6894 B424 53              S     comb
6895 B425 48              H     asla
6896 B426 4F              O     clra
6897 B427 50              P     negb
6898 B428 50              P     negb
6899 B429 45              E     illegal
6900 B42A 52              R     illegal
6901 B42B 20 56            V    bra 56
6902 B42D 45              E     illegal
6903 B42E 4E              N     illegal
6904 B42F 44              D     lsra
6905 B430 53              S     comb
6906 B431 20 20                 bra 20
6907 B433 2D 20           -     blt 20
6908 B435 00              .     test
6909 B436 50              P     negb
6910 B437 52              R     illegal
6911 B438 4F              O     clra
6912 B439 4D              M     tsta
6913 B43A 4F              O     clra
6914 B43B 20 56            V    bra 56
6915 B43D 45              E     illegal
6916 B43E 4E              N     illegal
6917 B43F 44              D     lsra
6918 B440 53              S     comb
6919 B441 20 20                 bra 20
6920 B443 20 20                 bra 20
6921 B445 2D 20           -     blt 20
6922 B447 00              .     test
6923 B448 46              F     rora
6924 B449 52              R     illegal
6925 B44A 45              E     illegal
6926 B44B 45              E     illegal
6927 B44C 20 20                 bra 20
6928 B44E 56              V     rorb
6929 B44F 45              E     illegal
6930 B450 4E              N     illegal
6931 B451 44              D     lsra
6932 B452 53              S     comb
6933 B453 20 20                 bra 20
6934 B455 20 20                 bra 20
6935 B457 2D 20           -     blt 20
6936 B459 00              .     test
6937 B45A 56              V     rorb
6938 B45B 45              E     illegal
6939 B45C 4E              N     illegal
6940 B45D 44              D     lsra
6941 B45E 53              S     comb
6942 B45F 20 50            P    bra 50
6943 B461 45              E     illegal
6944 B462 52              R     illegal
6945 B463 20 50            P    bra 50
6946 B465 52              R     illegal
6947 B466 4F              O     clra
6948 B467 44              D     lsra
6949 B468 55              U     illegal
6950 B469 43              C     coma
6951 B46A 54              T     lsrb
6952 B46B 20 43            C    bra 43
6953 B46D 4F              O     clra
6954 B46E 44              D     lsra
6955 B46F 45              E     illegal
6956 B470 00              .     test
6957
6958 B471 20 20                 bra 20
6959 B473 20 20                 bra 20
6960 B475 43              C     coma
6961 B476 4F              O     clra
6962 B477 44              D     lsra
6963 B478 45              E     illegal
6964 B479 20 00            .    bra 00
6965 B47B 56              V     rorb
6966 B47C 45              E     illegal
6967 B47D 4E              N     illegal
6968 B47E 44              D     lsra
6969 B47F 53              S     comb
6970 B480 20 2D            -    bra 2d
6971 B482 20 00            .    bra 00
6972 B484 56              V     rorb
6973 B485 45              E     illegal
6974 B486 4E              N     illegal
6975 B487 44              D     lsra
6976 B488 53              S     comb
6977 B489 2F 43           /C    ble 43
6978 B48B 4F              O     clra
6979 B48C 44              D     lsra
6980 B48D 45              E     illegal
6981 B48E 00              .     test
6982 B48F 41              A     illegal
6983 B490 42              B     illegal
6984 B491 43              C     coma
6985 B492 44              D     lsra
6986 B493 45              E     illegal
6987 B494 46              F     rora
6988 B495 47              G     asra
6989 B496 48              H     asla
6990 B497 49              I     rola
6991 B498 4A              J     deca
6992 B499 4B              K     illegal
6993 B49A 4C              L     inca
6994 B49B 4D              M     tsta
6995 B49C 4E              N     illegal
6996 B49D 4F              O     clra
6997 B49E 50              P     negb
6998 B49F 51              Q     illegal
6999 B4A0 52              R     illegal
7000 B4A1 53              S     comb
7001 B4A2 54              T     lsrb
7002 B4A3 55              U     illegal
7003 B4A4 56              V     rorb
7004 B4A5 57              W     asrb
7005 B4A6 58              X     aslb
7006 B4A7 59              Y     rolb
7007 B4A8 5A              Z     decb
7008 B4A9 30              0     tsx
7009 B4AA 31              1     ins
7010 B4AB 32              2     pula
7011 B4AC 33              3     pulb
7012 B4AD 34              4     des
7013 B4AE 35              5     txs
7014 B4AF 36              6     psha
7015 B4B0 37              7     pshb
7016 B4B1 38              8     pulx
7017 B4B2 39              9     rts
7018 B4B3 24 2A           $*    bcc 2a
7019 B4B5 20 00            .    bra 00
7020 B4B7 01              .     nop
7021 B4B8 02              .     idiv
7022 B4B9 04              .     lsrd
7023 B4BA 08              .     inx
7024 B4BB 10              .     sba
7025 B4BC 20 40            @    bra 40
7026 B4BE 80 FF           ..    suba #ff
7027 B4C0 FF FF FF        ...   stx ffff
7028 B4C3 FF FF FF        ...   stx ffff
7029 B4C6 FF FF FF        ...   stx ffff
7030 B4C9 FF FF FF        ...   stx ffff
7031 B4CC FF FF FF        ...   stx ffff
7032 B4CF FF FF FF        ...   stx ffff
7033 B4D2 FF FF FF        ...   stx ffff
7034 B4D5 FF FF FF        ...   stx ffff
7035 B4D8 FF FF FF        ...   stx ffff
7036 B4DB FF FF FF        ...   stx ffff
7037 B4DE FF FF FF        ...   stx ffff
7038 B4E1 FF FF FF        ...   stx ffff
7039 B4E4 FF FF FF        ...   stx ffff
7040 B4E7 FF FF FF        ...   stx ffff
7041 B4EA FF FF FF        ...   stx ffff
7042 B4ED FF FF FF        ...   stx ffff
7043 B4F0 FF FF FF        ...   stx ffff
7044 B4F3 FF FF FF        ...   stx ffff
7045 B4F6 FF FF FF        ...   stx ffff
7046 B4F9 FF FF FF        ...   stx ffff
7047 B4FC FF FF FF        ...   stx ffff
7048 B4FF FF FF FF        ...   stx ffff
7049 B502 FF FF FF        ...   stx ffff
7050 B505 FF FF FF        ...   stx ffff
7051 B508 FF FF FF        ...   stx ffff
7052 B50B FF FF FF        ...   stx ffff
7053 B50E FF FF FF        ...   stx ffff
7054 B511 FF FF FF        ...   stx ffff
7055 B514 FF FF FF        ...   stx ffff
7056 B517 FF FF FF        ...   stx ffff
7057 B51A FF FF FF        ...   stx ffff
7058 B51D FF FF FF        ...   stx ffff
7059 B520 FF FF FF        ...   stx ffff
7060 B523 FF FF FF        ...   stx ffff
7061 B526 FF FF FF        ...   stx ffff
7062 B529 FF FF FF        ...   stx ffff
7063 B52C FF FF FF        ...   stx ffff
7064 B52F FF FF FF        ...   stx ffff
7065 B532 FF FF FF        ...   stx ffff
7066 B535 FF FF FF        ...   stx ffff
7067 B538 FF FF FF        ...   stx ffff
7068 B53B FF FF FF        ...   stx ffff
7069 B53E FF FF FF        ...   stx ffff
7070 B541 FF FF FF        ...   stx ffff
7071 B544 FF FF FF        ...   stx ffff
7072 B547 FF FF FF        ...   stx ffff
7073 B54A FF FF FF        ...   stx ffff
7074 B54D FF FF FF        ...   stx ffff
7075 B550 FF FF FF        ...   stx ffff
7076 B553 FF FF FF        ...   stx ffff
7077 B556 FF FF FF        ...   stx ffff
7078 B559 FF FF FF        ...   stx ffff
7079 B55C FF FF FF        ...   stx ffff
7080 B55F FF FF FF        ...   stx ffff
7081 B562 FF FF FF        ...   stx ffff
7082 B565 FF FF FF        ...   stx ffff
7083 B568 FF FF FF        ...   stx ffff
7084 B56B FF FF FF        ...   stx ffff
7085 B56E FF FF FF        ...   stx ffff
7086 B571 FF FF FF        ...   stx ffff
7087 B574 FF FF FF        ...   stx ffff
7088 B577 FF FF FF        ...   stx ffff
7089 B57A FF FF FF        ...   stx ffff
7090 B57D FF FF FF        ...   stx ffff
7091 B580 FF FF FF        ...   stx ffff
7092 B583 FF FF FF        ...   stx ffff
7093 B586 FF FF FF        ...   stx ffff
7094 B589 FF FF FF        ...   stx ffff
7095 B58C FF FF FF        ...   stx ffff
7096 B58F FF FF FF        ...   stx ffff
7097 B592 FF FF FF        ...   stx ffff
7098 B595 FF FF FF        ...   stx ffff
7099 B598 FF FF FF        ...   stx ffff
7100 B59B FF FF FF        ...   stx ffff
7101 B59E FF FF FF        ...   stx ffff
7102 B5A1 FF FF FF        ...   stx ffff
7103 B5A4 FF FF FF        ...   stx ffff
7104 B5A7 FF FF FF        ...   stx ffff
7105 B5AA FF FF FF        ...   stx ffff
7106 B5AD FF FF FF        ...   stx ffff
7107 B5B0 FF FF FF        ...   stx ffff
7108 B5B3 FF FF FF        ...   stx ffff
7109 B5B6 FF FF FF        ...   stx ffff
7110 B5B9 FF FF FF        ...   stx ffff
7111 B5BC FF FF FF        ...   stx ffff
7112 B5BF FF FF FF        ...   stx ffff
7113 B5C2 FF FF FF        ...   stx ffff
7114 B5C5 FF FF FF        ...   stx ffff
7115 B5C8 FF FF FF        ...   stx ffff
7116 B5CB FF FF FF        ...   stx ffff
7117 B5CE FF FF FF        ...   stx ffff
7118 B5D1 FF FF FF        ...   stx ffff
7119 B5D4 FF FF FF        ...   stx ffff
7120 B5D7 FF FF FF        ...   stx ffff
7121 B5DA FF FF FF        ...   stx ffff
7122 B5DD FF FF FF        ...   stx ffff
7123 B5E0 FF FF FF        ...   stx ffff
7124 B5E3 FF FF FF        ...   stx ffff
7125 B5E6 FF FF FF        ...   stx ffff
7126 B5E9 FF FF FF        ...   stx ffff
7127 B5EC FF FF FF        ...   stx ffff
7128 B5EF FF FF FF        ...   stx ffff
7129 B5F2 FF FF FF        ...   stx ffff
7130 B5F5 FF FF FF        ...   stx ffff
7131 B5F8 FF FF FF        ...   stx ffff
7132 B5FB FF FF FF        ...   stx ffff
7133 B5FE FF FF FF        ...   stx ffff
7134 B601 FF FF FF        ...   stx ffff
7135 B604 FF FF FF        ...   stx ffff
7136 B607 FF FF FF        ...   stx ffff
7137 B60A FF FF FF        ...   stx ffff
7138 B60D FF FF FF        ...   stx ffff
7139 B610 FF FF FF        ...   stx ffff
7140 B613 FF FF FF        ...   stx ffff
7141 B616 FF FF FF        ...   stx ffff
7142 B619 FF FF FF        ...   stx ffff
7143 B61C FF FF FF        ...   stx ffff
7144 B61F FF FF FF        ...   stx ffff
7145 B622 FF FF FF        ...   stx ffff
7146 B625 FF FF FF        ...   stx ffff
7147 B628 FF FF FF        ...   stx ffff
7148 B62B FF FF FF        ...   stx ffff
7149 B62E FF FF FF        ...   stx ffff
7150 B631 FF FF FF        ...   stx ffff
7151 B634 FF FF FF        ...   stx ffff
7152 B637 FF FF FF        ...   stx ffff
7153 B63A FF FF FF        ...   stx ffff
7154 B63D FF FF FF        ...   stx ffff
7155 B640 FF FF FF        ...   stx ffff
7156 B643 FF FF FF        ...   stx ffff
7157 B646 FF FF FF        ...   stx ffff
7158 B649 FF FF FF        ...   stx ffff
7159 B64C FF FF FF        ...   stx ffff
7160 B64F FF FF FF        ...   stx ffff
7161 B652 FF FF FF        ...   stx ffff
7162 B655 FF FF FF        ...   stx ffff
7163 B658 FF FF FF        ...   stx ffff
7164 B65B FF FF FF        ...   stx ffff
7165 B65E FF FF FF        ...   stx ffff
7166 B661 FF FF FF        ...   stx ffff
7167 B664 FF FF FF        ...   stx ffff
7168 B667 FF FF FF        ...   stx ffff
7169 B66A FF FF FF        ...   stx ffff
7170 B66D FF FF FF        ...   stx ffff
7171 B670 FF FF FF        ...   stx ffff
7172 B673 FF FF FF        ...   stx ffff
7173 B676 FF FF FF        ...   stx ffff
7174 B679 FF FF FF        ...   stx ffff
7175 B67C FF FF FF        ...   stx ffff
7176 B67F FF FF FF        ...   stx ffff
7177 B682 FF FF FF        ...   stx ffff
7178 B685 FF FF FF        ...   stx ffff
7179 B688 FF FF FF        ...   stx ffff
7180 B68B FF FF FF        ...   stx ffff
7181 B68E FF FF FF        ...   stx ffff
7182 B691 FF FF FF        ...   stx ffff
7183 B694 FF FF FF        ...   stx ffff
7184 B697 FF FF FF        ...   stx ffff
7185 B69A FF FF FF        ...   stx ffff
7186 B69D FF FF FF        ...   stx ffff
7187 B6A0 FF FF FF        ...   stx ffff
7188 B6A3 FF FF FF        ...   stx ffff
7189 B6A6 FF FF FF        ...   stx ffff
7190 B6A9 FF FF FF        ...   stx ffff
7191 B6AC FF FF FF        ...   stx ffff
7192 B6AF FF FF FF        ...   stx ffff
7193 B6B2 FF FF FF        ...   stx ffff
7194 B6B5 FF FF FF        ...   stx ffff
7195 B6B8 FF FF FF        ...   stx ffff
7196 B6BB FF FF FF        ...   stx ffff
7197 B6BE FF FF FF        ...   stx ffff
7198 B6C1 FF FF FF        ...   stx ffff
7199 B6C4 FF FF FF        ...   stx ffff
7200 B6C7 FF FF FF        ...   stx ffff
7201 B6CA FF FF FF        ...   stx ffff
7202 B6CD FF FF FF        ...   stx ffff
7203 B6D0 FF FF FF        ...   stx ffff
7204 B6D3 FF FF FF        ...   stx ffff
7205 B6D6 FF FF FF        ...   stx ffff
7206 B6D9 FF FF FF        ...   stx ffff
7207 B6DC FF FF FF        ...   stx ffff
7208 B6DF FF FF FF        ...   stx ffff
7209 B6E2 FF FF FF        ...   stx ffff
7210 B6E5 FF FF FF        ...   stx ffff
7211 B6E8 FF FF FF        ...   stx ffff
7212 B6EB FF FF FF        ...   stx ffff
7213 B6EE FF FF FF        ...   stx ffff
7214 B6F1 FF FF FF        ...   stx ffff
7215 B6F4 FF FF FF        ...   stx ffff
7216 B6F7 FF FF FF        ...   stx ffff
7217 B6FA FF FF FF        ...   stx ffff
7218 B6FD FF FF FF        ...   stx ffff
7219 B700 FF FF FF        ...   stx ffff
7220 B703 FF FF FF        ...   stx ffff
7221 B706 FF FF FF        ...   stx ffff
7222 B709 FF FF FF        ...   stx ffff
7223 B70C FF FF FF        ...   stx ffff
7224 B70F FF FF FF        ...   stx ffff
7225 B712 FF FF FF        ...   stx ffff
7226 B715 FF FF FF        ...   stx ffff
7227 B718 FF FF FF        ...   stx ffff
7228 B71B FF FF FF        ...   stx ffff
7229 B71E FF FF FF        ...   stx ffff
7230 B721 FF FF FF        ...   stx ffff
7231 B724 FF FF FF        ...   stx ffff
7232 B727 FF FF FF        ...   stx ffff
7233 B72A FF FF FF        ...   stx ffff
7234 B72D FF FF FF        ...   stx ffff
7235 B730 FF FF FF        ...   stx ffff
7236 B733 FF FF FF        ...   stx ffff
7237 B736 FF FF FF        ...   stx ffff
7238 B739 FF FF FF        ...   stx ffff
7239 B73C FF FF FF        ...   stx ffff
7240 B73F FF FF FF        ...   stx ffff
7241 B742 FF FF FF        ...   stx ffff
7242 B745 FF FF FF        ...   stx ffff
7243 B748 FF FF FF        ...   stx ffff
7244 B74B FF FF FF        ...   stx ffff
7245 B74E FF FF FF        ...   stx ffff
7246 B751 FF FF FF        ...   stx ffff
7247 B754 FF FF FF        ...   stx ffff
7248 B757 FF FF FF        ...   stx ffff
7249 B75A FF FF FF        ...   stx ffff
7250 B75D FF FF FF        ...   stx ffff
7251 B760 FF FF FF        ...   stx ffff
7252 B763 FF FF FF        ...   stx ffff
7253 B766 FF FF FF        ...   stx ffff
7254 B769 FF FF FF        ...   stx ffff
7255 B76C FF FF FF        ...   stx ffff
7256 B76F FF FF FF        ...   stx ffff
7257 B772 FF FF FF        ...   stx ffff
7258 B775 FF FF FF        ...   stx ffff
7259 B778 FF FF FF        ...   stx ffff
7260 B77B FF FF FF        ...   stx ffff
7261 B77E FF FF FF        ...   stx ffff
7262 B781 FF FF FF        ...   stx ffff
7263 B784 FF FF FF        ...   stx ffff
7264 B787 FF FF FF        ...   stx ffff
7265 B78A FF FF FF        ...   stx ffff
7266 B78D FF FF FF        ...   stx ffff
7267 B790 FF FF FF        ...   stx ffff
7268 B793 FF FF FF        ...   stx ffff
7269 B796 FF FF FF        ...   stx ffff
7270 B799 FF FF FF        ...   stx ffff
7271 B79C FF FF FF        ...   stx ffff
7272 B79F FF FF FF        ...   stx ffff
7273 B7A2 FF FF FF        ...   stx ffff
7274 B7A5 FF FF FF        ...   stx ffff
7275 B7A8 FF FF FF        ...   stx ffff
7276 B7AB FF FF FF        ...   stx ffff
7277 B7AE FF FF FF        ...   stx ffff
7278 B7B1 FF FF FF        ...   stx ffff
7279 B7B4 FF FF FF        ...   stx ffff
7280 B7B7 FF FF FF        ...   stx ffff
7281 B7BA FF FF FF        ...   stx ffff
7282 B7BD FF FF FF        ...   stx ffff
7283 B7C0 FF FF FF        ...   stx ffff
7284 B7C3 FF FF FF        ...   stx ffff
7285 B7C6 FF FF FF        ...   stx ffff
7286 B7C9 FF FF FF        ...   stx ffff
7287 B7CC FF FF FF        ...   stx ffff
7288 B7CF FF FF FF        ...   stx ffff
7289 B7D2 FF FF FF        ...   stx ffff
7290 B7D5 FF FF FF        ...   stx ffff
7291 B7D8 FF FF FF        ...   stx ffff
7292 B7DB FF FF FF        ...   stx ffff
7293 B7DE FF FF FF        ...   stx ffff
7294 B7E1 FF FF FF        ...   stx ffff
7295 B7E4 FF FF FF        ...   stx ffff
7296 B7E7 FF FF FF        ...   stx ffff
7297 B7EA FF FF FF        ...   stx ffff
7298 B7ED FF FF FF        ...   stx ffff
7299 B7F0 FF FF FF        ...   stx ffff
7300 B7F3 FF FF FF        ...   stx ffff
7301 B7F6 FF FF FF        ...   stx ffff
7302 B7F9 FF FF FF        ...   stx ffff
7303 B7FC FF FF FF        ...   stx ffff
7304 B7FF FF              .
7305
7306 jump201:
7307 B800 34              .     des
7308 B801 F6 0E 6D        ...   ldab 0e6d
7309 B804 C1 01           ..    cmpb #01
7310 B806 27 03           '.    beq 03
7311 B808 7E B9 2A        ~.*   jmp b92a             ;goto25
7312 B80B F6 0E 02        ...   ldab 0e02
7313 B80E C1 05           ..    cmpb #05     ; was the 3rd last keypress a 5?
7314 B810 27 03           '.    beq 03
7315 B812 7E B9 2A        ~.*   jmp b92a             ;goto25
7316 B815 F6 0E 03        ...   ldab 0e03
7317 B818 C1 05           ..    cmpb #05     ; was the 2nd last keypress a 5?
7318 B81A 27 03           '.    beq 03
7319 B81C 7E B9 2A        ~.*   jmp b92a             ;goto25
7320 B81F F6 0E 04        ...   ldab 0e04
7321 B822 C1 05           ..    cmpb #05     ; was the last keypress a 5?
7322 B824 27 03           '.    beq 03
7323 B826 7E B9 2A        ~.*   jmp b92a             ;goto25
7324 B829 F6 00 12        ...   ldab 0012
7325 B82C C4 20           .     andb #20     ; test the door switch
7326 B82E 27 03           '.    beq 03
7327 B830 7E B9 2A        ~.*   jmp b92a             ;goto25
7328 B833 30              0     tsx
7329 B834 6F 00           o.    clr 00,x
7330 B836 F6 0E 6A        ..j   ldab 0e6a
7331 B839 C1 00           ..    cmpb #00
7332 B83B 22 33           "3    bhi 33
7333 B83D C6 64           .d    ldab #64
7334 B83F F7 0E 6A        ..j   stab 0e6a
7335 B842 7C 0E 05        |..   inc 0e05
7336 B845 F6 0E 05        ...   ldab 0e05
7337 B848 C1 64           .d    cmpb #64
7338 B84A 23 03           #.    bls 03
7339 B84C 7F 0E 05        ...   clr 0e05
7340 B84F F6 0E 05        ...   ldab 0e05
7341 B852 BD D4 68        ..h   jsr d468             ;jump51
7342 B855 83 00 00        ...   subd #0000
7343 B858 27 0B           '.    beq 0b
7344 B85A F6 0E 05        ...   ldab 0e05
7345 B85D BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
7346 B860 83 00 00        ...   subd #0000
7347 B863 27 09           '.    beq 09
7348 B865 30              0     tsx
7349 B866 6C 00           l.    inc 00,x
7350 B868 E6 00           ..    ldab 00,x
7351 B86A C1 6E           .n    cmpb #6e     ; 110 or 01101110
7352 B86C 2D D4           -.    blt d4
7353 B86E 20 0A            .    bra 0a
7354 B870 F6 0E 6A        ..j   ldab 0e6a
7355 B873 C1 00           ..    cmpb #00
7356 B875 23 03           #.    bls 03
7357 B877 7A 0E 6A        z.j   dec 0e6a
7358 B87A F6 0E 05        ...   ldab 0e05
7359 B87D BD D4 68        ..h   jsr d468             ;jump51
7360 B880 83 00 00        ...   subd #0000
7361 B883 26 03           &.    bne 03
7362 B885 7E B9 0A        ~..   jmp b90a             ;goto26
7363 B888 F6 0E 05        ...   ldab 0e05
7364 B88B BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
7365 B88E 83 00 00        ...   subd #0000
7366 B891 26 77           &w    bne 77
7367 B893 BD BE 4B        ..K   jsr be4b             ;displayblank
7368 B896 C6 20           .     ldab #20    ; " "
7369 B898 F7 0B 9A        ...   stab 0b9a
7370 B89B C6 20           .     ldab #20    ; " "
7371 B89D F7 0B 99        ...   stab 0b99
7372 B8A0 C6 20           .     ldab #20    ; " "
7373 B8A2 F7 0B 98        ...   stab 0b98
7374 B8A5 F6 0E 05        ...   ldab 0e05   ; array index/10
7375 B8A8 4F              O     clra
7376 B8A9 CE 00 0A        ...   ldx #000a
7377 B8AC 02              .     idiv
7378 B8AD 8F              .     xgdx
7379 B8AE CB 30           .0    addb #30    ; make it a digit
7380 B8B0 F7 0B 97        ...   stab 0b97
7381 B8B3 F6 0E 05        ...   ldab 0e05   ; array index%10
7382 B8B6 4F              O     clra
7383 B8B7 CE 00 0A        ...   ldx #000a
7384 B8BA 02              .     idiv
7385 B8BB CB 30           .0    addb #30     ; make it a digit
7386 B8BD F7 0B 96        ...   stab 0b96
7387 B8C0 C6 20           .     ldab #20     ; " "
7388 B8C2 F7 0B 95        ...   stab 0b95
7389 B8C5 C6 20           .     ldab #20     ; " "
7390 B8C7 F7 0B 94        ...   stab 0b94
7391 B8CA F6 0E 05        ...   ldab 0e05    ; array[index]/10
7392 B8CD 4F              O     clra
7393 B8CE C3 0E 06        ...   addd #0e06
7394 B8D1 8F              .     xgdx
7395 B8D2 E6 00           ..    ldab 00,x
7396 B8D4 4F              O     clra
7397 B8D5 CE 00 0A        ...   ldx #000a
7398 B8D8 02              .     idiv
7399 B8D9 8F              .     xgdx
7400 B8DA CB 30           .0    addb #30     ; make it a digit
7401 B8DC F7 0B 93        ...   stab 0b93
7402 B8DF F6 0E 05        ...   ldab 0e05    ; array[index]%10
7403 B8E2 4F              O     clra
7404 B8E3 C3 0E 06        ...   addd #0e06
7405 B8E6 8F              .     xgdx
7406 B8E7 E6 00           ..    ldab 00,x
7407 B8E9 4F              O     clra
7408 B8EA CE 00 0A        ...   ldx #000a
7409 B8ED 02              .     idiv
7410 B8EE CB 30           .0    addb #30     ; make it a digit
7411 B8F0 F7 0B 92        ...   stab 0b92
7412 B8F3 C6 20           .     ldab #20     ; " "
7413 B8F5 F7 0B 91        ...   stab 0b91
7414 B8F8 C6 20           .     ldab #20     ; " "
7415 B8FA F7 0B 90        ...   stab 0b90
7416 B8FD 7F 00 2C        ..,   clr 002c
7417 B900 BD BE 01        ...   jsr be01             ;jump70
7418 B903 C6 0A           ..    ldab #0a
7419 B905 F7 00 2C        ..,   stab 002c
7420 B908 20 1D            .    bra 1d
7421 goto26:
7422 B90A BD BE 4B        ..K   jsr be4b             ;displayblank
7423 B90D C6 57           .W    ldab #57     ; "W"
7424 B90F F7 0B 96        ...   stab 0b96
7425 B912 C6 42           .B    ldab #42     ; "B"
7426 B914 F7 0B 95        ...   stab 0b95
7427 B917 C6 42           .B    ldab #42     ; "B"
7428 B919 F7 0B 94        ...   stab 0b94
7429 B91C 7F 00 2C        ..,   clr 002c
7430 B91F BD BE 01        ...   jsr be01             ;jump70 write to display
7431 B922 C6 0A           ..    ldab #0a
7432 B924 F7 00 2C        ..,   stab 002c
7433 B927 7E BA 81        ~..   jmp ba81             ;goto27 - return
7434 goto25:
7435 B92A F6 0E 6D        ..m   ldab 0e6d
7436 B92D C1 01           ..    cmpb #01
7437 B92F 27 03           '.    beq 03
7438 B931 7E BA 81        ~..   jmp ba81             ;goto27 - return
7439 B934 F6 0E 00        ...   ldab 0e00
7440 B937 C1 05           ..    cmpb #05
7441 B939 27 03           '.    beq 03
7442 B93B 7E BA 81        ~..   jmp ba81             ;goto27 - return
7443 B93E F6 0E 01        ...   ldab 0e01
7444 B941 C1 05           ..    cmpb #05
7445 B943 27 03           '.    beq 03
7446 B945 7E BA 81        ~..   jmp ba81             ;goto27 - return
7447 B948 F6 0E 02        ...   ldab 0e02
7448 B94B C1 05           ..    cmpb #05
7449 B94D 27 03           '.    beq 03
7450 B94F 7E BA 81        ~..   jmp ba81             ;goto27 - return
7451 B952 F6 00 12        ...   ldab 0012
7452 B955 C4 20           .     andb #20     ; test the door switch
7453 B957 26 03           &.    bne 03
7454 B959 7E BA 81        ~..   jmp ba81             ;goto27 - return
7455 B95C F6 0E 04        ...   ldab 0e04
7456 B95F C1 05           ..    cmpb #05
7457 B961 26 79           &y    bne 79
7458 B963 F6 0E 03        ...   ldab 0e03
7459 B966 C1 05           ..    cmpb #05
7460 B968 26 72           &r    bne 72
7461 B96A 30              0     tsx
7462 B96B 6F 00           o.    clr 00,x
7463 B96D 30              0     tsx
7464 B96E E6 00           ..    ldab 00,x
7465 B970 C1 64           .d    cmpb #64
7466 B972 2C 16           ,.    bge 16
7467 B974 5F              _     clrb
7468 B975 37              7     pshb
7469 B976 30              0     tsx
7470 B977 E6 01           ..    ldab 01,x
7471 B979 4F              O     clra
7472 B97A 5D              ]     tstb
7473 B97B 2C 01           ,.    bge 01
7474 B97D 4A              J     deca
7475 B97E C3 0E 06        ...   addd #0e06
7476 B981 8F              .     xgdx
7477 B982 33              3     pulb
7478 B983 E7 00           ..    stab 00,x
7479 B985 30              0     tsx
7480 B986 6C 00           l.    inc 00,x
7481 B988 20 E3            .    bra e3
7482 B98A 7F 0D FF        ...   clr 0dff
7483 B98D 7F 0E 00        ...   clr 0e00
7484 B990 7F 0E 01        ...   clr 0e01
7485 B993 7F 0E 02        ...   clr 0e02
7486 B996 7F 0E 03        ...   clr 0e03
7487 B999 7F 0E 04        ...   clr 0e04
7488 B99C C6 41           .A    ldab #41   ; "A"
7489 B99E F7 0B 99        ...   stab 0b99
7490 B9A1 C6 4C           .L    ldab #4c   ; "L"
7491 B9A3 F7 0B 98        ...   stab 0b98
7492 B9A6 C6 4C           .L    ldab #4c   ; "L"
7493 B9A8 F7 0B 97        ...   stab 0b97
7494 B9AB C6 20           .     ldab #20   ; " "
7495 B9AD F7 0B 96        ...   stab 0b96
7496 B9B0 C6 43           .C    ldab #43   ; "C"
7497 B9B2 F7 0B 95        ...   stab 0b95
7498 B9B5 C6 4C           .L    ldab #4c   ; "L"
7499 B9B7 F7 0B 94        ...   stab 0b94
7500 B9BA C6 45           .E    ldab #45   ; "E"
7501 B9BC F7 0B 93        ...   stab 0b93
7502 B9BF C6 41           .A    ldab #41   ; "A"
7503 B9C1 F7 0B 92        ...   stab 0b92
7504 B9C4 C6 52           .R    ldab #52   ; "R"
7505 B9C6 F7 0B 91        ...   stab 0b91
7506 B9C9 C6 20           .     ldab #20   ; " "
7507 B9CB F7 0B 90        ...   stab 0b90
7508 B9CE 7F 00 2C        ..,   clr 002c
7509 B9D1 BD BE 01        ...   jsr be01             ;jump70 - display
7510 B9D4 C6 1E           ..    ldab #1e
7511 B9D6 F7 00 2C        ..,   stab 002c
7512 B9D9 7E BA 81        ~..   jmp ba81             ;goto27 - return
7513 ;
7514 B9DC F6 0E 04        ...   ldab 0e04
7515 B9DF C1 01           ..    cmpb #01
7516 B9E1 27 0A           '.    beq 0a
7517 B9E3 F6 0E 04        ...   ldab 0e04
7518 B9E6 C1 02           ..    cmpb #02
7519 B9E8 27 03           '.    beq 03
7520 B9EA 7E BA 81        ~..   jmp ba81             ;goto27 - return
7521 ;
7522 B9ED F6 0E 03        ...   ldab 0e03
7523 B9F0 C1 00           ..    cmpb #00
7524 B9F2 22 03           ".    bhi 03
7525 B9F4 7E BA 81        ~..   jmp ba81             ;goto27 - return
7526 ;
7527 B9F7 F6 0E 03        ...   ldab 0e03
7528 B9FA C1 05           ..    cmpb #05
7529 B9FC 26 03           &.    bne 03
7530 B9FE 7E BA 81        ~..   jmp ba81             ;goto27 - return
7531 ;
7532 BA01 F6 0E 03        ...   ldab 0e03
7533 BA04 C1 07           ..    cmpb #07
7534 BA06 24 79           $y    bcc 79
7535 BA08 F6 0E 03        ...   ldab 0e03  ; prevkey*10+key
7536 BA0B 86 0A           ..    ldaa #0a
7537 BA0D 3D              =     mul
7538 BA0E FB 0E 04        ...   addb 0e04
7539 BA11 30              0     tsx
7540 BA12 E7 00           ..    stab 00,x
7541 BA14 E6 00           ..    ldab 00,x
7542 BA16 C1 64           .d    cmpb #64
7543 BA18 2C 67           ,g    bge 67
7544 BA1A E6 00           ..    ldab 00,x
7545 BA1C 2D 63           -c    blt 63
7546 BA1E 5F              _     clrb
7547 BA1F 37              7     pshb
7548 BA20 30              0     tsx
7549 BA21 E6 01           ..    ldab 01,x
7550 BA23 4F              O     clra
7551 BA24 5D              ]     tstb
7552 BA25 2C 01           ,.    bge 01
7553 BA27 4A              J     deca
7554 BA28 C3 0E 06        ...   addd #0e06
7555 BA2B 8F              .     xgdx
7556 BA2C 33              3     pulb
7557 BA2D E7 00           ..    stab 00,x
7558 BA2F F6 0E 03        ...   ldab 0e03
7559 BA32 CB 30           .0    addb #30    ; +48 (make an ascii digit)
7560 BA34 F7 0B 99        ...   stab 0b99
7561 BA37 F6 0E 04        ...   ldab 0e04
7562 BA3A CB 30           .0    addb #30    ; +48 (make an ascii digit)
7563 BA3C F7 0B 98        ...   stab 0b98
7564 BA3F C6 20           .     ldab #20    ; " "
7565 BA41 F7 0B 97        ...   stab 0b97
7566 BA44 C6 43           .C    ldab #43    ; "C"
7567 BA46 F7 0B 96        ...   stab 0b96
7568 BA49 C6 4C           .L    ldab #4c    ; "L"
7569 BA4B F7 0B 95        ...   stab 0b95
7570 BA4E C6 45           .E    ldab #45    ; "E"
7571 BA50 F7 0B 94        ...   stab 0b94
7572 BA53 C6 41           .A    ldab #41    ; "A"
7573 BA55 F7 0B 93        ...   stab 0b93
7574 BA58 C6 52           .R    ldab #52    ; "R"
7575 BA5A F7 0B 92        ...   stab 0b92
7576 BA5D C6 45           .E    ldab #45    ; "E"
7577 BA5F F7 0B 91        ...   stab 0b91
7578 BA62 C6 44           .D    ldab #44    ; "D"
7579 BA64 F7 0B 90        ...   stab 0b90
7580 BA67 7F 0E 00        ...   clr 0e00
7581 BA6A 7F 0E 01        ...   clr 0e01
7582 BA6D 7F 0E 02        ...   clr 0e02
7583 BA70 7F 0E 03        ...   clr 0e03
7584 BA73 7F 0E 04        ...   clr 0e04
7585 BA76 7F 00 2C        ..,   clr 002c
7586 BA79 BD BE 01        ...   jsr be01             ;jump70 - display
7587 BA7C C6 1E           ..    ldab #1e
7588 BA7E F7 00 2C        ..,   stab 002c
7589 goto27:
7590 BA81 31              1     ins
7591 BA82 39              9     rts
7592
7593 jump125:
7594 ; reads the keypad state into 005b & 0056
7595 ; it looks like it returns without doing anything if the
7596 ; no sale switch is pressed, but I haven't looked closely
7597 BA83 F6 18 00        ...   ldab 1800
7598 BA86 C4 7F           ..    andb #7f
7599 BA88 F7 00 23        ..#   stab 0023
7600 BA8B F6 00 23        ..#   ldab 0023
7601 BA8E F1 00 12        ...   cmpb 0012   ; door buffers - debouncing it?
7602 BA91 27 06           '.    beq 06
7603 BA93 F6 00 23        ..#   ldab 0023
7604 BA96 F7 00 12        ...   stab 0012
7605 BA99 F6 20 00        . .   ldab 2000
7606 BA9C F1 00 20        ..    cmpb 0020
7607 BA9F 27 08           '.    beq 08
7608 BAA1 F6 20 00        . .   ldab 2000
7609 BAA4 F7 00 20        ..    stab 0020
7610 BAA7 20 0E            .    bra 0e
7611 BAA9 F6 00 20        ..    ldab 0020
7612 BAAC F7 00 11        ...   stab 0011
7613 BAAF F6 00 11        ...   ldab 0011
7614 BAB2 C4 03           ..    andb #03
7615 BAB4 F7 00 2B        ..+   stab 002b
7616 BAB7 F6 00 1B        ...   ldab 001b
7617 BABA C4 04           ..    andb #04
7618 BABC 37              7     pshb
7619 BABD F6 10 0A        ...   ldab 100a   ; PortE
7620 BAC0 C4 04           ..    andb #04    ; no sale switch (active low)
7621 BAC2 30              0     tsx
7622 BAC3 E0 00           ..    subb 00,x
7623 BAC5 31              1     ins
7624 BAC6 27 17           '.    beq 17
7625 BAC8 F6 10 0A        ...   ldab 100a   ; PortE
7626 BACB C4 04           ..    andb #04    : no sale switch (active low)
7627 BACD 27 08           '.    beq 08
7628 BACF CE 00 1B        ...   ldx #001b
7629 BAD2 1C 00 04        ..    bset 00,x, #04
7630 BAD5 20 06            .    bra 06
7631 BAD7 CE 00 1B        ...   ldx #001b
7632 BADA 1D 00 04        ..    bclr 00,x, #04
7633 BADD 20 15            .    bra 15
7634 BADF F6 10 0A        ...   ldab 100a   ; PortE
7635 BAE2 C4 04           ..    andb #04    ; no sale switch (active low)
7636 BAE4 27 08           '.    beq 08
7637 BAE6 CE 00 1D        ...   ldx #001d
7638 BAE9 1C 00 04        ..    bset 00,x, #04
7639 BAEC 20 06            .    bra 06
7640 BAEE CE 00 1D        ...   ldx #001d
7641 BAF1 1D 00 04        ..    bclr 00,x, #04
7642 BAF4 CE 10 08        ...   ldx #1008        : PortD
7643 BAF7 1D 00 20        ...   bclr 00,x, #20   ; select keypad row 0
7644 BAF9 CE 10 28        ...   ldx #1028
7645 BAFC 1C 00 40        ...   bset 00,x #40    ; enable SPI
7646
7647 BB00 CE 00 14        ...   ldx #0014        ; keypad strobe:
7648 BB03 1C 00 04        ..    bset 00,x, #04   ; resets the keypad
7649 BB06 F6 00 14        ...   ldab 0014        ; shift register
7650 BB09 F7 38 00        .8.   stab 3800        ; ready for a new
7651 BB0C CE 00 14        ...   ldx #0014        ; read
7652 BB0F 1D 00 04        ..    bclr 00,x, #04
7653 BB12 F6 00 14        ...   ldab 0014
7654 BB15 F7 38 00        .8.   stab 3800
7655
7656 BB18 CE 00 00        ...   ldx #0000
7657 BB1B 3C              <     pshx
7658 BB1C 5F              _     clrb
7659 BB1D 4F              O     clra
7660 BB1E BD BD B5        ...   jsr bdb5             ;jump78 - reads the keypad inputs into X
7661 BB21 38              8     pulx
7662 BB22 F7 00 5B        ..[   stab 005b
7663
7664 BB25 CE 10 28        ..(   ldx #1028
7665 BB28 1D 00 40        ..    bclr 00,x, #40  ; disable SPI
7666
7667 BB2B CE 10 08        ...   ldx #1008
7668 BB2E 1C 00 20        ..    bset 00,x, #20  ; select keypad row 1
7669
7670 BB30 CE 10 28        ...   ldx #1028
7671 BB33 1C 00 40        ...   bset 00,x, #40  ; enable the SPI
7672
7673 BB37 CE 00 14        ...   ldx #0014
7674 BB3A 1C 00 04        ..    bset 00,x, #04  ; keypad strobe
7675 BB3D F6 00 14        ...   ldab 0014
7676 BB40 F7 38 00        .8.   stab 3800
7677 BB43 CE 00 14        ...   ldx #0014
7678 BB46 1D 00 04        ..    bclr 00,x, #04
7679 BB49 F6 00 14        ...   ldab 0014
7680 BB4C F7 38 00        .8.   stab 3800
7681
7682 BB4F CE 00 00        ...   ldx #0000
7683 BB52 3C              <     pshx
7684 BB53 5F              _     clrb
7685 BB54 4F              O     clra
7686 BB55 BD BD B5        ...   jsr bdb5             ;jump78  - read the keypad
7687 BB58 38              8     pulx
7688 BB59 F7 00 56        ..V   stab 0056
7689 BB5C CE 10 28        ..(   ldx #1028
7690 BB5F 1D 00 40        ..    bclr 00,x, #40
7691 BB62 39              9     rts
7692
7693 jump200:
7694 BB63 F6 00 00        ...   ldab 0000
7695 BB66 27 03           '.    beq 03
7696 BB68 7E BD B4        ~..   jmp bdb4             ;goto28
7697 BB6B F6 00 2E        ...   ldab 002e
7698 BB6E 27 03           '.    beq 03
7699 BB70 7E BD B4        ~..   jmp bdb4             ;goto28
7700 BB73 BD BA 83        ...   jsr ba83             ;jump125 - read keypad
7701 ; has a key been pressed?
7702 BB76 F6 00 5B        ..[   ldab 005b
7703 BB79 F1 00 56        ..V   cmpb 0056
7704 BB7C 26 0B           &.    bne 0b       ; to bb89
7705 BB7E F6 00 56        ..V   ldab 0056
7706 BB81 27 06           '.    beq 06       ; to bb89
7707 BB83 7F 00 29        ..)   clr 0029     ; to key pressed
7708 BB86 7E BD AF        ~..   jmp bdaf             ;goto29 (bail)
7709 ; find keypad number
7710 BB89 F6 00 5B        ..[   ldab 005b    ; is row0 = 0
7711 BB8C 27 34           '4    beq 34       ; if so, to bbc2
7712 BB8E F6 00 5B        ..[   ldab 005b
7713 BB91 F7 00 5F        .._   stab 005f
7714 BB94 7F 00 1C        ...   clr 001c     ; i=0
7715 ;
7716 BB97 F6 00 1C        ...   ldab 001c
7717 BB9A C1 08           ..    cmpb #08     ; if i >= 8
7718 BB9C 24 15           $.    bcc 15       ; to bbb3 (break)
7719 BB9E F6 00 5F        .._   ldab 005f
7720 BBA1 C4 01           ..    andb #01
7721 BBA3 27 02           '.    beq 02
7722 BBA5 20 0C            .    bra 0c       ; to bbb3
7723 BBA7 F6 00 5F        .._   ldab 005f
7724 BBAA 54              T     lsrb         ; ready to test next bit
7725 BBAB F7 00 5F        .._   stab 005f
7726 BBAE 7C 00 1C        |..   inc 001c
7727 BBB1 20 E4            .    bra e4       ; to bb97
7728 ; look up i in the keypad map
7729 BBB3 F6 00 1C        ...   ldab 001c
7730 BBB6 4F              O     clra
7731 BBB7 C3 AC 9D        ...   addd #ac9d   ; keypad mapping
7732 BBBA 8F              .     xgdx
7733 BBBB E6 00           ..    ldab 00,x
7734 BBBD F7 00 16        ...   stab 0016
7735 BBC0 20 3C            <    bra 3c       ; to bbfe
7736 ; test row 1 - ditto
7737 BBC2 F6 00 56        ..V   ldab 0056
7738 BBC5 27 34           '4    beq 34
7739 BBC7 F6 00 56        ..V   ldab 0056
7740 BBCA F7 00 5F        .._   stab 005f
7741 BBCD 7F 00 1C        ...   clr 001c
7742 BBD0 F6 00 1C        ...   ldab 001c
7743 BBD3 C1 08           ..    cmpb #08
7744 BBD5 24 15           $.    bcc 15
7745 BBD7 F6 00 5F        .._   ldab 005f
7746 BBDA C4 01           ..    andb #01
7747 BBDC 27 02           '.    beq 02
7748 BBDE 20 0C            .    bra 0c       ; to bbec
7749 BBE0 F6 00 5F        .._   ldab 005f
7750 BBE3 54              T     lsrb
7751 BBE4 F7 00 5F        .._   stab 005f
7752 BBE7 7C 00 1C        |..   inc 001c
7753 BBEA 20 E4            .    bra e4
7754 BBEC F6 00 1C        ...   ldab 001c
7755 ; look up in map
7756 BBEF 4F              O     clra
7757 BBF0 C3 AC A0        ...   addd #aca0
7758 BBF3 8F              .     xgdx
7759 BBF4 E6 00           ..    ldab 00,x
7760 BBF6 F7 00 16        ...   stab 0016
7761 BBF9 20 03            .    bra 03
7762 BBFB 7F 00 16        ...   clr 0016
7763 ;
7764 BBFE F6 00 5B        ..[   ldab 005b
7765 BC01 FA 00 56        ..V   orb 0056
7766 BC04 F7 00 5F        .._   stab 005f
7767 BC07 7F 00 5E        ..^   clr 005e
7768 BC0A 7F 00 1C        ...   clr 001c
7769 BC0D F6 00 1C        ...   ldab 001c
7770 BC10 C1 08           ..    cmpb #08
7771 BC12 24 16           $.    bcc 16
7772 BC14 F6 00 5F        .._   ldab 005f
7773 BC17 C4 01           ..    andb #01
7774 BC19 27 03           '.    beq 03
7775 BC1B 7C 00 5E        |.^   inc 005e
7776 BC1E F6 00 5F        .._   ldab 005f
7777 BC21 54              T     lsrb
7778 BC22 F7 00 5F        .._   stab 005f
7779 BC25 7C 00 1C        |..   inc 001c
7780 BC28 20 E3            .    bra e3
7781 BC2A F6 00 5E        ..^   ldab 005e
7782 BC2D C1 01           ..    cmpb #01
7783 BC2F 22 05           ".    bhi 05
7784 BC31 F6 00 16        ...   ldab 0016
7785 BC34 26 0F           &.    bne 0f
7786 BC36 7F 00 29        ..)   clr 0029
7787 BC39 CE 00 1B        ...   ldx #001b
7788 BC3C 1C 00 10        ...   bset 00,x, #10
7789 BC3F 7F 00 37        ..7   clr 0037
7790 BC42 7E BD AF        ~..   jmp bdaf             ;goto29 (bail)
7791 BC45 F6 00 16        ...   ldab 0016    ; key release or debounce?
7792 BC48 F1 00 29        ..)   cmpb 0029
7793 BC4B 27 2D           '-    beq 2d
7794 BC4D F6 00 16        ...   ldab 0016
7795 BC50 F7 00 29        ..)   stab 0029
7796 BC53 F6 0E 00        ...   ldab 0e00     ; this is the key buffer?
7797 BC56 F7 0D FF        ...   stab 0dff
7798 BC59 F6 0E 01        ...   ldab 0e01
7799 BC5C F7 0E 00        ...   stab 0e00
7800 BC5F F6 0E 02        ...   ldab 0e02
7801 BC62 F7 0E 01        ...   stab 0e01
7802 BC65 F6 0E 03        ...   ldab 0e03
7803 BC68 F7 0E 02        ...   stab 0e02
7804 BC6B F6 0E 04        ...   ldab 0e04
7805 BC6E F7 0E 03        ...   stab 0e03
7806 BC71 F6 00 29        ..)   ldab 0029
7807 BC74 F7 0E 04        ...   stab 0e04
7808 BC77 7E BD AF        ~..   jmp bdaf             ;goto29 (bail)
7809 BC7A F6 00 12        ...   ldab 0012
7810 BC7D C4 20           .     andb #20     ; test door switch
7811 BC7F 27 3B           ';    beq 3b       ; to bcbc
7812 BC81 F6 00 29        ..)   ldab 0029
7813 BC84 27 33           '3    beq 33
7814 BC86 F6 00 1B        ...   ldab 001b
7815 BC89 C4 10           ..    andb #10
7816 BC8B 27 2C           ',    beq 2c
7817 BC8D F6 00 42        ..B   ldab 0042
7818 BC90 27 15           '.    beq 15
7819 BC92 F6 00 09        ...   ldab 0009
7820 BC95 27 08           '.    beq 08
7821 BC97 F6 00 29        ..)   ldab 0029
7822 BC9A F7 00 0A        ...   stab 000a
7823 BC9D 20 06            .    bra 06
7824 BC9F F6 00 29        ..)   ldab 0029
7825 BCA2 F7 00 09        ...   stab 0009
7826 BCA5 20 06            .    bra 06
7827 BCA7 F6 00 29        ..)   ldab 0029
7828 BCAA F7 00 42        ..B   stab 0042
7829 BCAD BD E5 AA        ...   jsr e5aa             ;jump12
7830 BCB0 7F 00 2C        ..,   clr 002c
7831 BCB3 CE 00 1B        ...   ldx #001b
7832 BCB6 1D 00 10        ...   bclr 00,x, #10
7833 BCB9 7E BD AF        ~..   jmp bdaf             ;goto29 (bail)
7834 ;
7835 BCBC F6 00 1B        ...   ldab 001b
7836 BCBF C4 10           ..    andb #10
7837 BCC1 26 03           &.    bne 03
7838 BCC3 7E BD 91        ~..   jmp bd91             ;goto30
7839 BCC6 F6 00 21        ..!   ldab 0021
7840 BCC9 C4 20           .     andb #20
7841 BCCB 27 03           '.    beq 03
7842 BCCD 7E BD 91        ~..   jmp bd91             ;goto30
7843 BCD0 F6 00 29        ..)   ldab 0029
7844 BCD3 C1 0B           ..    cmpb #0b
7845 BCD5 26 03           &.    bne 03
7846 BCD7 7E BD 5C        ~.\   jmp bd5c             ;goto31
7847 BCDA 7F 00 49        ..I   clr 0049
7848 BCDD F6 00 3A        ..:   ldab 003a
7849 BCE0 26 32           &2    bne 32
7850 BCE2 F6 00 29        ..)   ldab 0029
7851 BCE5 C1 0A           ..    cmpb #0a
7852 BCE7 26 05           &.    bne 05
7853 BCE9 7F 00 1E        ...   clr 001e
7854 BCEC 20 06            .    bra 06
7855 BCEE F6 00 29        ..)   ldab 0029
7856 BCF1 F7 00 1E        ...   stab 001e
7857 BCF4 C6 32           .2    ldab #32
7858 BCF6 F7 00 3A        ..:   stab 003a
7859 BCF9 BD BE 4B        ..K   jsr be4b             ;displayblank
7860 BCFC F6 00 1E        ...   ldab 001e
7861 BCFF CB 30           .0    addb #30
7862 BD01 F7 0B 95        ...   stab 0b95
7863 BD04 BD E5 AA        ...   jsr e5aa             ;jump12
7864 BD07 7F 00 2C        ..,   clr 002c
7865 BD0A BD BE 01        ...   jsr be01             ;jump70
7866 BD0D C6 32           .2    ldab #32
7867 BD0F F7 00 2C        ..,   stab 002c
7868 BD12 20 46            F    bra 46
7869 BD14 F6 00 29        ..)   ldab 0029
7870 BD17 C1 05           ..    cmpb #05
7871 BD19 27 07           '.    beq 07
7872 BD1B F6 00 29        ..)   ldab 0029
7873 BD1E C1 0A           ..    cmpb #0a
7874 BD20 26 05           &.    bne 05
7875 BD22 7F 00 2C        ..,   clr 002c
7876 BD25 20 2D            -    bra 2d
7877 BD27 F6 00 1E        ...   ldab 001e
7878 BD2A 58              X     aslb
7879 BD2B 58              X     aslb
7880 BD2C 58              X     aslb
7881 BD2D F7 00 06        ...   stab 0006
7882 BD30 F6 00 1E        ...   ldab 001e
7883 BD33 58              X     aslb
7884 BD34 FB 00 06        ...   addb 0006
7885 BD37 F7 00 06        ...   stab 0006
7886 BD3A F6 00 29        ..)   ldab 0029
7887 BD3D FB 00 06        ...   addb 0006
7888 BD40 F7 00 06        ...   stab 0006
7889 BD43 F6 00 29        ..)   ldab 0029
7890 BD46 CB 30           .0    addb #30
7891 BD48 F7 0B 94        ...   stab 0b94
7892 BD4B BD BE 01        ...   jsr be01             ;jump70
7893 BD4E CE 00 1B        ...   ldx #001b
7894 BD51 1D 00 40        ...   bclr 00,x, #40
7895 BD54 7F 00 3A        ..:   clr 003a
7896 BD57 BD E5 AA        ...   jsr e5aa             ;jump12
7897 BD5A 20 2D            -    bra 2d
7898 goto31:
7899 BD5C C6 19           ..    ldab #19
7900 BD5E F7 00 37        ..7   stab 0037
7901 BD61 F6 00 3A        ..:   ldab 003a
7902 BD64 27 08           '.    beq 08
7903 BD66 7F 00 3A        ..:   clr 003a
7904 BD69 7F 00 2C        ..,   clr 002c
7905 BD6C 20 18            .    bra 18
7906 BD6E 7C 00 49        |.I   inc 0049
7907 BD71 F6 00 49        ..I   ldab 0049
7908 BD74 C1 02           ..    cmpb #02
7909 BD76 25 0E           %.    bcs 0e
7910 BD78 7F 00 49        ..I   clr 0049
7911 BD7B CE 00 1B        ...   ldx #001b
7912 BD7E 1C 00 01        ...   bset 00,x, #01
7913 BD81 C6 3C           .<    ldab #3c
7914 BD83 F7 00 4F        ..O   stab 004f
7915 BD86 BD E5 AA        ...   jsr e5aa             ;jump12
7916 BD89 CE 00 1B        ...   ldx #001b
7917 BD8C 1D 00 10        ...   bclr 00,x, #10
7918 BD8F 20 1E            .    bra 1e
7919 goto30:
7920 BD91 F6 00 1B        ...   ldab 001b
7921 BD94 C4 10           ..    andb #10
7922 BD96 26 17           &.    bne 17
7923 BD98 F6 00 29        ..)   ldab 0029
7924 BD9B C1 0B           ..    cmpb #0b
7925 BD9D 26 10           &.    bne 10
7926 BD9F F6 00 37        ..7   ldab 0037
7927 BDA2 26 0B           &.    bne 0b
7928 BDA4 BD DD D5        ...   jsr ddd5             ;jump120
7929 BDA7 7F 00 49        ..I   clr 0049
7930 BDAA C6 14           ..    ldab #14
7931 BDAC F7 00 2C        ..,   stab 002c
7932 goto29:
7933 BDAF C6 01           ..    ldab #01
7934 BDB1 F7 00 00        ...   stab 0000
7935 goto28:
7936 BDB4 39              9     rts
7937
7938 jump78:
7939 ; start/finish sending a byte to the display
7940 ; stack parameter - 0 to disable display clock (for reading keypad), 1 to enable
7941 ; lower 8-bits of D - byte to write to display.
7942 ; bytes with bit 7 unset are characters (0-127)
7943 ; bytes with bit 7 set are control commands.
7944 ; this probably also reads the keypad simultaneously
7945 BDB5 37              7     pshb
7946 BDB6 36              6     psha
7947 BDB7 3C              <     pshx
7948 BDB8 5F              _     clrb
7949 BDB9 4F              O     clra
7950 BDBA 30              0     tsx
7951 BDBB ED 00           ..    std 00,x
7952 BDBD E6 07           ..    ldab 07,x
7953 BDBF 27 0E           '.    beq 0e     ; to bdcf if 0
7954 BDC1 CE 00 14        ...   ldx #0014
7955 BDC4 1C 00 08        ...   bset 00,x, #08
7956 BDC7 F6 00 14        ...   ldab 0014
7957 BDCA F7 38 00        .8.   stab 3800  ; enable display clock line
7958 BDCD 20 0C            .    bra 0c     ; to bddb
7959 BDCF CE 00 14        ...   ldx #0014
7960 BDD2 1D 00 08        ...   bclr 00,x, #08
7961 BDD5 F6 00 14        ...   ldab 0014
7962 BDD8 F7 38 00        .8.   stab 3800  ; disable display clock line
7963 BDDB 30              0     tsx
7964 BDDC E6 03           ..    ldab 03,x
7965 BDDE F7 10 2A        ..*   stab 102a  ; write to spdr
7966 BDE1 F6 10 29        ..)   ldab 1029  ; read spsr
7967 BDE4 2D 0F           -.    blt 0f     ; exit sub if SPI complete
7968 BDE6 38              8     pulx
7969 BDE7 08              .     inx
7970 BDE8 3C              <     pshx
7971 BDE9 30              0     tsx
7972 BDEA EC 00           ..    ldd 00,x
7973 BDEC 83 FF FF        ...   subd #ffff ; put a really long timeout on the action
7974 BDEF 26 02           &.    bne 02
7975 BDF1 20 02            .    bra 02
7976 BDF3 20 EC            .    bra ec     ; loop a while back to bde1
7977 BDF5 F6 10 2A        ..*   ldab 102a  ; reading SPSR (just done) & SPDR clears SPIF
7978 BDF8 30              0     tsx
7979 BDF9 E7 03           ..    stab 03,x
7980 BDFB E6 03           ..    ldab 03,x  ; return contents of spdr - keypad data!
7981 BDFD 4F              O     clra
7982 BDFE 38              8     pulx
7983 BDFF 38              8     pulx
7984 BE00 39              9     rts
7985
7986 jump70:
7987 ; Write a string in the display buffer at 0x0b90 to the display
7988 BE01 F6 00 2C        ..,   ldab 002c
7989 BE04 26 09           &.    bne 09        ; to be0f - ret if mem 0x2c != 0
7990 BE06 8D 61           .a    bsr dest 61   ; to displayreset - reset display
7991 BE08 8D 06           ..    bsr dest 06   ; to jump88 - commit to display
7992 BE0A C6 03           ..    ldab #03
7993 BE0C F7 00 2C        ..,   stab 002c
7994 BE0F 39              9     rts
7995
7996 jump88:
7997 ; writes the display buffer (at 0b90-0b99) to the display
7998 ; enable the SPI system
7999 BE10 CE 10 28        ..(   ldx #1028
8000 BE13 1C 00 40        ..@   bset 00,x, #40
8001 ; loop to 10
8002 BE16 7F 00 1C        ...   clr 001c
8003 BE19 F6 00 1C        ...   ldab 001c
8004 BE1C C1 0A           ..    cmpb #0a
8005 BE1E 24 19           $.    bcc 19        ; to be39
8006 BE20 CE 00 01        ...   ldx #0001
8007 BE23 3C              <     pshx
8008 BE24 F6 00 1C        ...   ldab 001c
8009 BE27 4F              O     clra
8010 BE28 C3 0B 90        ...   addd #0b90
8011 BE2B 8F              .     xgdx
8012 BE2C E6 00           ..    ldab 00,x
8013 BE2E C4 7F           ..    andb #7f      ; make sure we don't send a control command
8014 BE30 4F              O     clra
8015 BE31 8D 82           ..    bsr dest 82   ; to jump78
8016 BE33 38              8     pulx
8017 BE34 7C 00 1C        |..   inc 001c
8018 BE37 20 E0            .    bra e0        ; to be19
8019 BE39 CE 00 01        ...   ldx #0001
8020 BE3C 3C              <     pshx
8021 BE3D CC 00 FF        ...   ldd #00ff
8022 BE40 BD BD B5        ...   jsr bdb5             ;jump78
8023 BE43 38              8     pulx
8024 ; disable the SPI system
8025 BE44 CE 10 28        ..(   ldx #1028
8026 BE47 1D 00 40        ..@   bclr 00,x, #40
8027 BE4A 39              9     rts
8028
8029 displayblank:
8030 ; stores 0x20 into memory locations 0b90-0b99
8031 ; "blanks out" (with spaces) the display buffer
8032 BE4B 7F 00 1C        ...   clr 001c
8033 BE4E F6 00 1C        ...   ldab 001c
8034 BE51 C1 0A           ..    cmpb #0a
8035 BE53 24 13           $.    bcc 13       ; to be68 - rts
8036 BE55 C6 20           .     ldab #20
8037 BE57 37              7     pshb
8038 BE58 F6 00 1C        ...   ldab 001c
8039 BE5B 4F              O     clra
8040 BE5C C3 0B 90        ...   addd #0b90
8041 BE5F 8F              .     xgdx
8042 BE60 33              3     pulb
8043 BE61 E7 00           ..    stab 00,x
8044 BE63 7C 00 1C        |..   inc 001c
8045 BE66 20 E6            .    bra e6       ; to be4e
8046 BE68 39              9     rts
8047
8048 displayreset:
8049 ; Reset the display
8050 ; Clear bit 7 of PortA - display reset (active low)
8051 BE69 CE 10 00        ...   ldx #1000
8052 BE6C 1D 00 80        ..    bclr x,#80
8053 BE6F BD E5 96        ...   jsr e596             ;jump115 - 100ms delay
8054 ; Clear bit 7 of PortA - reset line back to high
8055 BE72 CE 10 00        ...   ldx #1000
8056 BE75 1C 00 80        ..    bset 00,x, #80
8057
8058 ; set SPI enable
8059 BE78 CE 10 28        ...   ldx #1028
8060 BE7B 1C 00 40        ...   bset 00,x, #40
8061
8062 BE7E BD E5 96        ...   jsr e596             ;jump115 - 100ms delay
8063
8064 ; tell the display controller there are 10 digits
8065 BE81 CE 00 01        ...   ldx #0001
8066 BE84 3C              <     pshx
8067 BE85 CC 00 CA        ...   ldd #00ca    ;11001010
8068 BE88 BD BD B5        ...   jsr bdb5             ;jump78
8069 BE8B 38              8     pulx
8070
8071 ; set brightness to 100%
8072 BE8C CE 00 01        ...   ldx #0001
8073 BE8F 3C              <     pshx
8074 BE90 CC 00 E0        ...   ldd #00e0    ;11100000
8075 BE93 BD BD B5        ...   jsr bdb5             ;jump78
8076 BE96 38              8     pulx
8077
8078 ; revert SPI enable
8079 BE97 CE 10 28        ..(   ldx #1028
8080 BE9A 1D 00 40        ...   bclr 00,x, #40
8081 BE9D 39              9     rts
8082
8083
8084
8085 jump50:
8086 ; writes a slot and price to the screen?
8087 BE9E 37              7     pshb
8088 BE9F 36              6     psha
8089 BEA0 8D A9           ..    bsr a9 ; to be4b - displayblank
8090 BEA2 30              0     tsx
8091 BEA3 E6 05           ..    ldab 05,x
8092 BEA5 26 1B           &.    bne 1b
8093 BEA7 F6 00 06        ...   ldab 0006
8094 BEAA 4F              O     clra
8095 BEAB CE 00 0A        ...   ldx #000a
8096 BEAE 02              .     idiv
8097 BEAF 8F              .     xgdx
8098 BEB0 CB 30           .0    addb #30
8099 BEB2 F7 0B 99        ...   stab 0b99   ; write slotnumber/10
8100 BEB5 F6 00 06        ...   ldab 0006
8101 BEB8 4F              O     clra
8102 BEB8 CE 00 0A        ...   ldx #000a
8103 BEBC 02              .     idiv
8104 BEBD CB 30           .0    addb #30
8105 BEBF F7 0B 98        ...   stab 0b98   ; write slotnumber%10
8106 BEC2 30              0     tsx
8107 BEC3 EC 00           ..    ldd 00,x
8108 BEC5 C4 FF           ..    andb #ff
8109 BEC7 84 3F           .?    anda #3f
8110 BEC9 ED 00           ..    std 00,x
8111 BECB EC 00           ..    ldd 00,x
8112 BECD CE 03 E8        ...   ldx #03e8   ; / 1000
8113 BED0 02              .     idiv
8114 BED1 8F              .     xgdx
8115 BED2 CB 30           .0    addb #30
8116 BED4 37              7     pshb
8117 BED5 30              0     tsx
8118 BED6 E6 06           ..    ldab 06,x
8119 BED8 4F              O     clra
8120 BED9 C3 0B 95        ...   addd #0b95
8121 BEDC 8F              .     xgdx
8122 BEDD 33              3     pulb
8123 BEDE E7 00           ..    stab 00,x    ; write MSB dollars
8124 BEE0 30              0     tsx
8125 BEE1 EC 00           ..    ldd 00,x
8126 BEE3 CE 03 E8        ...   ldx #03e8    ; %1000
8127 BEE6 02              .     idiv
8128 BEE7 CE 00 64        ..d   ldx #0064    ; /100
8129 BEEA 02              .     idiv
8130 BEEB 8F              .     xgdx
8131 BEEC CB 30           .0    addb #30
8132 BEEE 37              7     pshb
8133 BEEF 30              0     tsx
8134 BEF0 E6 06           ..    ldab 06,x
8135 BEF2 4F              O     clra
8136 BEF3 C3 0B 94        ...   addd #0b94   ; write LSB dollars
8137 BEF6 8F              .     xgdx
8138 BEF7 33              3     pulb
8139 BEF8 E7 00           ..    stab 00,x
8140 BEFA 30              0     tsx
8141 BEFB EC 00           ..    ldd 00,x
8142 BEFD CE 00 64        ..d   ldx #0064    ; %100
8143 BF00 02              .     idiv
8144 BF01 CE 00 0A        ...   ldx #000a    ; /10
8145 BF04 02              .     idiv
8146 BF05 8F              .     xgdx
8147 BF06 CB 30           .0    addb #30
8148 BF08 37              7     pshb
8149 BF09 30              0     tsx
8150 BF0A E6 06           ..    ldab 06,x
8151 BF0C 4F              O     clra
8152 BF0D C3 0B 93        ...   addd #0b93   ; write MSB cents
8153 BF10 8F              .     xgdx
8154 BF11 33              3     pulb
8155 BF12 E7 00           ..    stab 00,x
8156 BF14 30              0     tsx
8157 BF15 EC 00           ..    ldd 00,x
8158 BF17 CE 00 0A        ...   ldx #000a
8159 BF1A 02              .     idiv
8160 BF1B CB 30           .0    addb #30
8161 BF1D 37              7     pshb
8162 BF1E 30              0     tsx
8163 BF1F E6 06           ..    ldab 06,x
8164 BF21 4F              O     clra
8165 BF22 C3 0B 92        ...   addd #0b92    ; write LSB cents
8166 BF25 8F              .     xgdx
8167 BF26 33              3     pulb
8168 BF27 E7 00           ..    stab 00,x
8169 BF29 F6 00 13        ...   ldab 0013
8170 BF2C C1 01           ..    cmpb #01
8171 BF2E 22 03           ".    bhi 03
8172 BF30 7E BF DE        ~..   jmp bfde             ;goto32
8173 BF33 30              0     tsx
8174 BF34 E6 05           ..    ldab 05,x
8175 BF36 4F              O     clra
8176 BF37 C3 0B 92        ...   addd #0b92
8177 BF3A 8F              .     xgdx
8178 BF3B E6 00           ..    ldab 00,x
8179 BF3D 37              7     pshb
8180 BF3E 30              0     tsx
8181 BF3F E6 06           ..    ldab 06,x
8182 BF41 4F              O     clra
8183 BF42 C3 0B 91        ...   addd #0b91
8184 BF45 8F              .     xgdx
8185 BF46 33              3     pulb
8186 BF47 E7 00           ..    stab 00,x
8187 BF49 30              0     tsx
8188 BF4A E6 05           ..    ldab 05,x
8189 BF4C 4F              O     clra
8190 BF4D C3 0B 93        ...   addd #0b93
8191 BF50 8F              .     xgdx
8192 BF51 E6 00           ..    ldab 00,x
8193 BF53 37              7     pshb
8194 BF54 30              0     tsx
8195 BF55 E6 06           ..    ldab 06,x
8196 BF57 4F              O     clra
8197 BF58 C3 0B 92        ...   addd #0b92
8198 BF5B 8F              .     xgdx
8199 BF5C 33              3     pulb
8200 BF5D E7 00           ..    stab 00,x
8201 BF5F F6 00 13        ...   ldab 0013
8202 BF62 C1 02           ..    cmpb #02
8203 BF64 26 10           &.    bne 10
8204 BF66 C6 2E           ..    ldab #2e
8205 BF68 37              7     pshb
8206 BF69 30              0     tsx
8207 BF6A E6 06           ..    ldab 06,x
8208 BF6C 4F              O     clra
8209 BF6D C3 0B 93        ...   addd #0b93
8210 BF70 8F              .     xgdx
8211 BF71 33              3     pulb
8212 BF72 E7 00           ..    stab 00,x
8213 BF74 20 68            h    bra 68     ;goto32
8214 ;
8215 BF76 C1 04           ..    cmpb #04
8216 BF78 26 26           &&    bne 26
8217 BF7A 30              0     tsx
8218 BF7B E6 05           ..    ldab 05,x
8219 BF7D 4F              O     clra
8220 BF7E C3 0B 94        ...   addd #0b94
8221 BF81 8F              .     xgdx
8222 BF82 E6 00           ..    ldab 00,x
8223 BF84 37              7     pshb
8224 BF85 30              0     tsx
8225 BF86 E6 06           ..    ldab 06,x
8226 BF88 4F              O     clra
8227 BF89 C3 0B 93        ...   addd #0b93
8228 BF8C 8F              .     xgdx
8229 BF8D 33              3     pulb
8230 BF8E E7 00           ..    stab 00,x
8231 BF90 C6 2E           ..    ldab #2e   ; "."
8232 BF92 37              7     pshb
8233 BF93 30              0     tsx
8234 BF94 E6 06           ..    ldab 06,x
8235 BF96 4F              O     clra
8236 BF97 C3 0B 94        ...   addd #0b94
8237 BF9A 8F              .     xgdx
8238 BF9B 33              3     pulb
8239 BF9C E7 00           ..    stab 00,x
8240 BF9E 20 3E            >    bra 3e
8241 BFA0 C1 08           ..    cmpb #08
8242 BFA2 26 3A           &:    bne 3a
8243 BFA4 30              0     tsx
8244 BFA5 E6 05           ..    ldab 05,x
8245 BFA7 4F              O     clra
8246 BFA8 C3 0B 94        ...   addd #0b94
8247 BFAB 8F              .     xgdx
8248 BFAC E6 00           ..    ldab 00,x
8249 BFAE 37              7     pshb
8250 BFAF 30              0     tsx
8251 BFB0 E6 06           ..    ldab 06,x
8252 BFB2 4F              O     clra
8253 BFB3 C3 0B 93        ...   addd #0b93
8254 BFB6 8F              .     xgdx
8255 BFB7 33              3     pulb
8256 BFB8 E7 00           ..    stab 00,x
8257 BFBA 30              0     tsx
8258 BFBB E6 05           ..    ldab 05,x
8259 BFBD 4F              O     clra
8260 BFBE C3 0B 95        ...   addd #0b95
8261 BFC1 8F              .     xgdx
8262 BFC2 E6 00           ..    ldab 00,x
8263 BFC4 37              7     pshb
8264 BFC5 30              0     tsx
8265 BFC6 E6 06           ..    ldab 06,x
8266 BFC8 4F              O     clra
8267 BFC9 C3 0B 94        ...   addd #0b94
8268 BFCC 8F              .     xgdx
8269 BFCD 33              3     pulb
8270 BFCE E7 00           ..    stab 00,x
8271 BFD0 C6 2E           ..    ldab #2e   ; "."
8272 BFD2 37              7     pshb
8273 BFD3 30              0     tsx
8274 BFD4 E6 06           ..    ldab 06,x
8275 BFD6 4F              O     clra
8276 BFD7 C3 0B 95        ...   addd #0b95
8277 BFDA 8F              .     xgdx
8278 BFDB 33              3     pulb
8279 BFDC E7 00           ..    stab 00,x
8280 goto32:
8281 BFDE F6 0B C0        ...   ldab 0bc0
8282 BFE1 C4 01           ..    andb #01
8283 BFE3 26 0E           &.    bne 0e      ; to bff3
8284 BFE5 F6 0B C0        ...   ldab 0bc0
8285 BFE8 C4 04           ..    andb #04
8286 BFEA 26 07           &.    bne 07      ; to bff3
8287 BFEC F6 0B C0        ...   ldab 0bc0
8288 BFEF C4 08           ..    andb #08
8289 BFF1 27 15           '.    beq 15      ; to c008
8290 BFF3 F6 00 17        ...   ldab 0017
8291 BFF6 C4 08           ..    andb #08
8292 BFF8 26 0E           &.    bne 0e      ; to c008
8293 ; plonk a dollar sign somewhere
8294 BFFA C6 24           .$    ldab #24    ; "$"
8295 BFFC 37              7     pshb
8296 BFFD 30              0     tsx
8297 BFFE E6 06           ..    ldab 06,x
8298 C000 4F              O     clra
8299 C001 C3 0B 96        ...   addd #0b96
8300 C004 8F              .     xgdx
8301 C005 33              3     pulb
8302 C006 E7 00           ..    stab 00,x
8303 C008 BD BE 69        ..i   jsr be69             ;displayreset
8304 C00B F6 00 13        ...   ldab 0013
8305 C00E C1 01           ..    cmpb #01
8306 C010 23 17           #.    bls 17
8307 C012 CE 10 28        ..(   ldx #1028
8308 C015 1C 00 40        ...   bset 00,x, #40 ; enable SPI send
8309 C018 CE 00 01        ...   ldx #0001
8310 C01B 3C              <     pshx
8311 C01C CC 00 20        ..    ldd #0020
8312 C01F BD BD B5        ...   jsr bdb5             ;jump78 - send space to display
8313 C022 38              8     pulx
8314 C023 CE 10 28        ..(   ldx #1028      ; disable SPI send
8315 C026 1D 00 40        ...   bclr 00,x, #40
8316 C029 BD BE 10        ...   jsr be10             ;jump88 - write buffer to display
8317 C02C 38              8     pulx
8318 C02D 39              9     rts
8319
8320 jump71:
8321 ; part of the display: function abstraction
8322 ; D points to a string, and the stack contains the length of the message
8323 ; Also seems to handle scrolling of long strings?
8324 C02E 37              7     pshb
8325 C02F 36              6     psha
8326 C030 3C              <     pshx
8327 ; need 002c to be zero to display stuff
8328 C031 F6 00 2C        ..,   ldab 002c
8329 C034 27 03           '.    beq 03
8330 C036 7E C0 B7        ~..   jmp c0b7             ;goto33 (bail out)
8331 ; if (0003 >= D)
8332 C039 FC 00 03        ...   ldd 0003
8333 C03C 30              0     tsx
8334 C03D A3 02           ..    subd 02,x
8335 C03F 25 0A           %.    bcs 0a       ; to c04b
8336 ;
8337 C041 E6 07           ..    ldab 07,x
8338 C043 4F              O     clra
8339 C044 E3 02           ..    addd 02,x
8340 C046 B3 00 03        ...   subd 0003
8341 C049 24 06           $.    bcc 06       ; to c051
8342 ; else
8343 C04B 30              0     tsx
8344 C04C EC 02           ..    ldd 02,x
8345 C04E FD 00 03        ...   std 0003
8346 C051 FE 00 03        ...   ldx 0003
8347 C054 08              .     inx
8348 C055 FF 00 03        ...   stx 0003
8349 C058 09              .     dex
8350 C059 8F              .     xgdx
8351 C05A 30              0     tsx
8352 C05B ED 00           ..    std 00,x
8353 C05D C6 09           ..    ldab #09
8354 C05F F7 00 18        ...   stab 0018
8355 C062 F6 00 18        ...   ldab 0018
8356 C065 C1 FF           ..    cmpb #ff
8357 C067 24 46           $F    bcc 46       ; to c0af (jump 70 - write string)
8358 C069 30              0     tsx
8359 C06A E6 07           ..    ldab 07,x
8360 C06C 4F              O     clra
8361 C06D E3 02           ..    addd 02,x
8362 C06F A3 00           ..    subd 00,x
8363 C071 24 05           $.    bcc 05
8364 C073 30              0     tsx
8365 C074 EC 02           ..    ldd 02,x
8366 C076 ED 00           ..    std 00,x
8367 C078 30              0     tsx
8368 C079 EE 00           ..    ldx 00,x
8369 C07B E6 00           ..    ldab 00,x
8370 C07D C1 40           .@    cmpb #40
8371 C07F 24 13           $.    bcc 13
8372 C081 30              0     tsx
8373 C082 EE 00           ..    ldx 00,x
8374 C084 E6 00           ..    ldab 00,x
8375 C086 37              7     pshb
8376 C087 F6 00 18        ...   ldab 0018
8377 C08A 4F              O     clra
8378 C08B C3 0B 90        ...   addd #0b90
8379 C08E 8F              .     xgdx
8380 C08F 33              3     pulb
8381 C090 E7 00           ..    stab 00,x
8382 C092 20 13            .    bra 13
8383 C094 30              0     tsx
8384 C095 EE 00           ..    ldx 00,x
8385 C097 E6 00           ..    ldab 00,x
8386 C099 CB C0           ..    addb #c0
8387 C09B 37              7     pshb
8388 C09C F6 00 18        ...   ldab 0018
8389 C09F 4F              O     clra
8390 C0A0 C3 0B 90        ...   addd #0b90
8391 C0A3 8F              .     xgdx
8392 C0A4 33              3     pulb
8393 C0A5 E7 00           ..    stab 00,x
8394 C0A7 38              8     pulx
8395 C0A8 08              .     inx
8396 C0A9 3C              <     pshx
8397 C0AA 7A 00 18        z..   dec 0018
8398 C0AD 20 B3            .    bra b3
8399 C0AF BD BE 01        ...   jsr be01             ;jump70
8400 C0B2 C6 03           ..    ldab #03
8401 C0B4 F7 00 2C        ..,   stab 002c
8402 goto33:
8403 C0B7 38              8     pulx
8404 C0B8 38              8     pulx
8405 C0B9 39              9     rts
8406
8407 ;Display a string.  D points to the string, which is NULL-terminated
8408 ;
8409 display:
8410 C0BA 37              7     pshb
8411 C0BB 36              6     psha
8412 C0BC F6 00 1F        ...   ldab 001f
8413 C0BF C4 04           ..    andb #04
8414 C0C1 26 03           &.    bne 03
8415 C0C3 7F 00 2C        ..,   clr 002c
8416 C0C6 F6 00 2C        ..,   ldab 002c
8417 C0C9 26 13           &.    bne 13      ; to c0de
8418 C0CB 5F              _     clrb
8419 C0CC 4F              O     clra
8420 C0CD FD 00 03        ...   std 0003
8421 C0D0 7F 00 2C        ..,   clr 002c
8422 C0D3 CE 00 09        ...   ldx #0009
8423 C0D6 3C              <     pshx
8424 C0D7 30              0     tsx
8425 C0D8 EC 02           ..    ldd 02,x
8426 C0DA BD C0 2E        ...   jsr c02e             ;jump71
8427 C0DD 38              8     pulx
8428 C0DE 38              8     pulx
8429 C0DF 39              9     rts
8430
8431 jump94:
8432 C0E0 F6 00 15        ...   ldab 0015
8433 C0E3 2C 02           ,.    bge 02
8434 C0E5 20 F9            .    bra f9
8435 C0E7 CE 00 1D        ...   ldx #001d
8436 C0EA 1C 00 20        ..    bset 00,x, #20
8437 C0ED BD D7 30         .    jsr d730       ;jump202
8438 C0EE 83 00 00        .0.   subd #0000
8439 C0F3 27 09           '.    beq 09
8440 C0F5 CE 00 1D        ...   ldx #001d
8441 C0F8 1D 00 20        ..    bclr 00,x, #20
8442 C0FB 5F              .     clrb
8443 C0FC 4F              O     clra
8444 C0FD 39              9     rts
8445 ;
8446 C0FE CE 00 14        ...   ldx #0014
8447 C101 1C 00 01        ...   bset 00,x, #01
8448 C104 F6 00 14        ...   ldab 0014
8449 C107 F7 38 00        .8.   stab 3800    ; note acceptor business
8450 C10A F6 00 15        ...   ldab 0015
8451 C10D C4 1F           ..    andb #1f
8452 C10F 26 03           &.    bne 03
8453 C111 7E C3 1B        ~..   jmp c31b             ;goto34
8454 C114 C6 14           ..    ldab #14
8455 C116 F7 00 31        ..1   stab 0031
8456 C119 F6 00 15        ...   ldab 0015
8457 C11C 2D 15           -.    blt 15
8458 C11E F6 00 31        ..1   ldab 0031
8459 C121 C1 0A           ..    cmpb #0a
8460 C123 22 0C           ".    bhi 0c
8461 C125 BD C5 D3        ...   jsr c5d3             ;jump6
8462 C128 CE 00 1D        ...   ldx #001d
8463 C12B 1D 00 20        ..    bclr 00,x, #20
8464 C12D 5F              _     clrb
8465 C12F 4F              O     clra
8466 C130 39              9     rts
8467 ;
8468 C131 20 E6            .    bra e6
8469 C133 FC 00 3E        ..>   ldd 003e
8470 C136 F3 00 40        ..@   addd 0040
8471 C139 FD 00 40        ..@   std 0040
8472 C13C 5F              _     clrb
8473 C13D 4F              O     clra
8474 C13E FD 00 3E        ..>   std 003e
8475 C141 F6 00 15        ...   ldab 0015
8476 C144 C4 1F           ..    andb #1f
8477 C146 4F              O     clra
8478 C147 BD FE 32        ..2   jsr fe32             ;jump25
8479 C14A C1 64 00 01     ....  ; array data for jump25
8480 C14E C1 BA 00 01     ....
8481 C152 C2 10 00 02     ....
8482 C156 C2 66 00 04     .f..
8483 C15A C2 BB 00 08     ....
8484 C15E C3 0E FF F0     ....
8485 C162 00 00           ..    ; end of array data
8486 C164 FC 0C DD        ...   ldd 0cdd
8487 C167 83 FF FF        ...   subd #ffff
8488 C16A 26 05           &.    bne 05
8489 C16C 5F              _     clrb
8490 C16D 4F              O     clra
8491 C16E FD 0C DD        ...   std 0cdd
8492 C171 FE 0C DD        ...   ldx 0cdd
8493 C174 08              .     inx
8494 C175 FF 0C DD        ...   stx 0cdd
8495 C178 CE 00 64        ..d   ldx #0064
8496 C17B 3C              <     pshx
8497 C17C CC 00 00        ...   ldd #0000
8498 C17F 37              7     pshb
8499 C180 36              6     psha
8500 C181 CC 0C F3        ...   ldd #0cf3
8501 C184 BD FB DF        ...   jsr fbdf             ;jump46
8502 C187 31              1     ins
8503 C188 31              1     ins
8504 C189 FE 0C F5        ...   ldx 0cf5
8505 C18C 3C              <     pshx
8506 C18D FC 0C F3        ...   ldd 0cf3
8507 C190 37              7     pshb
8508 C191 36              6     psha
8509 C192 CE FF 9C        ...   ldx #ff9c
8510 C195 3C              <     pshx
8511 C196 CC 00 63        ..c   ldd #0063
8512 C199 30              0     tsx
8513 C19A A3 02           ..    subd 02,x
8514 C19C 32              2     pula
8515 C19D 33              3     pulb
8516 C19E 26 02           &.    bne 02
8517 C1A0 A3 04           ..    subd 04,x
8518 C1A2 38              8     pulx
8519 C1A3 38              8     pulx
8520 C1A4 24 11           $.    bcc 11
8521 C1A6 CE 00 64        ..d   ldx #0064
8522 C1A9 3C              <     pshx
8523 C1AA CC FF 9C        ...   ldd #ff9c
8524 C1AD 37              7     pshb
8525 C1AE 36              6     psha
8526 C1AF CC 0C F3        ...   ldd #0cf3
8527 C1B2 BD FB DF        ...   jsr fbdf             ;jump46
8528 C1B5 31              1     ins
8529 C1B6 31              1     ins
8530 C1B7 7E C3 0E        ~..   jmp c30e             ;goto35
8531 C1BA FC 0C DF        ...   ldd 0cdf
8532 C1BD 83 FF FF        ...   subd #ffff
8533 C1C0 26 05           &.    bne 05
8534 C1C2 5F              _     clrb
8535 C1C3 4F              O     clra
8536 C1C4 FD 0C DF        ...   std 0cdf
8537 C1C7 FE 0C DF        ...   ldx 0cdf
8538 C1CA 08              .     inx
8539 C1CB FF 0C DF        ...   stx 0cdf
8540 C1CE CE 00 C8        ...   ldx #00c8
8541 C1D1 3C              <     pshx
8542 C1D2 CC 00 00        ...   ldd #0000
8543 C1D5 37              7     pshb
8544 C1D6 36              6     psha
8545 C1D7 CC 0C F7        ...   ldd #0cf7
8546 C1DA BD FB DF        ...   jsr fbdf             ;jump46
8547 C1DD 31              1     ins
8548 C1DE 31              1     ins
8549 C1DF FE 0C F9        ...   ldx 0cf9
8550 C1E2 3C              <     pshx
8551 C1E3 FC 0C F7        ...   ldd 0cf7
8552 C1E6 37              7     pshb
8553 C1E7 36              6     psha
8554 C1E8 CE FF 38        ..8   ldx #ff38     ; -200
8555 C1EB 3C              <     pshx
8556 C1EC CC 00 C7        ...   ldd #00c7
8557 C1EF 30              0     tsx
8558 C1F0 A3 02           ..    subd 02,x
8559 C1F2 32              2     pula
8560 C1F3 33              3     pulb
8561 C1F4 26 02           &.    bne 02
8562 C1F6 A3 04           ..    subd 04,x
8563 C1F8 38              8     pulx
8564 C1F9 38              8     pulx
8565 C1FA 24 11           $.    bcc 11
8566 C1FC CE 00 C8        ...   ldx #00c8    ; 200
8567 C1FF 3C              <     pshx
8568 C200 CC FF 38        ..8   ldd #ff38    ; -200
8569 C203 37              7     pshb
8570 C204 36              6     psha
8571 C205 CC 0C F7        ...   ldd #0cf7
8572 C208 BD FB DF        ...   jsr fbdf             ;jump46
8573 C20B 31              1     ins
8574 C20C 31              1     ins
8575 C20D 7E C3 0E        ~..   jmp c30e             ;goto35
8576 C210 FC 0C E1        ...   ldd 0ce1
8577 C213 83 FF FF        ...   subd #ffff
8578 C216 26 05           &.    bne 05
8579 C218 5F              _     clrb
8580 C219 4F              O     clra
8581 C21A FD 0C E1        ...   std 0ce1
8582 C21D FE 0C E1        ...   ldx 0ce1
8583 C220 08              .     inx
8584 C221 FF 0C E1        ...   stx 0ce1
8585 C224 CE 01 F4        ...   ldx #01f4
8586 C227 3C              <     pshx
8587 C228 CC 00 00        ...   ldd #0000
8588 C22B 37              7     pshb
8589 C22C 36              6     psha
8590 C22D CC 0C FB        ...   ldd #0cfb
8591 C230 BD FB DF        ...   jsr fbdf             ;jump46
8592 C233 31              1     ins
8593 C234 31              1     ins
8594 C235 FE 0C FD        ...   ldx 0cfd
8595 C238 3C              <     pshx
8596 C239 FC 0C FB        ...   ldd 0cfb
8597 C23C 37              7     pshb
8598 C23D 36              6     psha
8599 C23E CE FE 0C        ...   ldx #fe0c
8600 C241 3C              <     pshx
8601 C242 CC 01 F3        ...   ldd #01f3
8602 C245 30              0     tsx
8603 C246 A3 02           ..    subd 02,x
8604 C248 32              2     pula
8605 C249 33              3     pulb
8606 C24A 26 02           &.    bne 02
8607 C24C A3 04           ..    subd 04,x
8608 C24E 38              8     pulx
8609 C24F 38              8     pulx
8610 C250 24 11           $.    bcc 11
8611 C252 CE 01 F4        ...   ldx #01f4
8612 C255 3C              <     pshx
8613 C256 CC FE 0C        ...   ldd #fe0c
8614 C259 37              7     pshb
8615 C25A 36              6     psha
8616 C25B CC 0C FB        ...   ldd #0cfb
8617 C25E BD FB DF        ...   jsr fbdf             ;jump46
8618 C261 31              1     ins
8619 C262 31              1     ins
8620 C263 7E C3 0E        ~..   jmp c30e             ;goto35
8621 C266 FC 0C E3        ...   ldd 0ce3
8622 C269 83 FF FF        ...   subd #ffff
8623 C26C 26 05           &.    bne 05
8624 C26E 5F              _     clrb
8625 C26F 4F              O     clra
8626 C270 FD 0C E3        ...   std 0ce3
8627 C273 FE 0C E3        ...   ldx 0ce3
8628 C276 08              .     inx
8629 C277 FF 0C E3        ...   stx 0ce3
8630 C27A CE 03 E8        ...   ldx #03e8
8631 C27D 3C              <     pshx
8632 C27E CC 00 00        ...   ldd #0000
8633 C281 37              7     pshb
8634 C282 36              6     psha
8635 C283 CC 0C FF        ...   ldd #0cff
8636 C286 BD FB DF        ...   jsr fbdf             ;jump46
8637 C289 31              1     ins
8638 C28A 31              1     ins
8639 C28B FE 0D 01        ...   ldx 0d01
8640 C28E 3C              <     pshx
8641 C28F FC 0C FF        ...   ldd 0cff
8642 C292 37              7     pshb
8643 C293 36              6     psha
8644 C294 CE FC 18        ...   ldx #fc18    ; -1000
8645 C297 3C              <     pshx
8646 C298 CC 03 E7        ...   ldd #03e7
8647 C29B 30              0     tsx
8648 C29C A3 02           ..    subd 02,x
8649 C29E 32              2     pula
8650 C29F 33              3     pulb
8651 C2A0 26 02           &.    bne 02
8652 C2A2 A3 04           ..    subd 04,x
8653 C2A4 38              8     pulx
8654 C2A5 38              8     pulx
8655 C2A6 24 11           $.    bcc 11
8656 C2A8 CE 03 E8        ...   ldx #03e8    ; 1000
8657 C2AB 3C              <     pshx
8658 C2AC CC FC 18        ...   ldd #fc18    ; -1000
8659 C2AF 37              7     pshb
8660 C2B0 36              6     psha
8661 C2B1 CC 0C FF        ...   ldd #0cff
8662 C2B4 BD FB DF        ...   jsr fbdf             ;jump46
8663 C2B7 31              1     ins
8664 C2B8 31              1     ins
8665 C2B9 20 53            S    bra 53
8666 C2BB FC 0C E5        ...   ldd 0ce5
8667 C2BE 83 C3 4F        ..O   subd #c34f   ; 49999
8668 C2C1 26 05           &.    bne 05
8669 C2C3 5F              _     clrb
8670 C2C4 4F              O     clra
8671 C2C5 FD 0C E5        ...   std 0ce5
8672 C2C8 FE 0C E5        ...   ldx 0ce5
8673 C2CB 08              .     inx
8674 C2CC FF 0C E5        ...   stx 0ce5
8675 C2CF CE 07 D0        ...   ldx #07d0    ; 2000
8676 C2D2 3C              <     pshx
8677 C2D3 CC 00 00        ...   ldd #0000
8678 C2D6 37              7     pshb
8679 C2D7 36              6     psha
8680 C2D8 CC 0D 03        ...   ldd #0d03    ; 3331
8681 C2DB BD FB DF        ...   jsr fbdf             ;jump46
8682 C2DE 31              1     ins
8683 C2DF 31              1     ins
8684 C2E0 FE 0D 05        ...   ldx 0d05
8685 C2E3 3C              <     pshx
8686 C2E4 FC 0D 03        ...   ldd 0d03
8687 C2E7 37              7     pshb
8688 C2E8 36              6     psha
8689 C2E9 CE D9 30        ..0   ldx #d930    ; -9936
8690 C2EC 3C              <     pshx
8691 C2ED CC 05 F5        ...   ldd #05f5    ; 1525
8692 C2F0 30              0     tsx
8693 C2F1 A3 02           ..    subd 02,x
8694 C2F3 32              2     pula
8695 C2F4 33              3     pulb
8696 C2F5 26 02           &.    bne 02
8697 C2F7 A3 04           ..    subd 04,x
8698 C2F9 38              8     pulx
8699 C2FA 38              8     pulx
8700 C2FB 24 11           $.    bcc 11
8701 C2FD CE 26 D0        .&.   ldx #26d0    ; 9936
8702 C300 3C              <     pshx
8703 C301 CC FA 0A        ...   ldd #fa0a    ; -1526
8704 C304 37              7     pshb
8705 C305 36              6     psha
8706 C306 CC 0D 03        ...   ldd #0d03    ; 3331
8707 C309 BD FB DF        ...   jsr fbdf             ;jump46
8708 C30C 31              1     ins
8709 C30D 31              1     ins
8710 goto35:
8711 C30E F6 00 15        ...   ldab 0015
8712 C311 2C 02           ,.    bge 02
8713 C313 20 F9            .    bra f9
8714 C315 CE 00 15        ...   ldx #0015
8715 C318 1D 00 1F        ..    bclr 00,x, #1f
8716 goto34:
8717 C31B CE 00 1D        ...   ldx #001d
8718 C31E 1D 00 20        ..    bclr 00,x, #20
8719 C320 CC 00 01         .    ldd #0001
8720 C324 39              9     rts
8721
8722 jump64:
8723 ; has a good long chat to the bill validator
8724 C325 F6 10 00        ...   ldab 1000
8725 C328 C4 01           ..    andb #01
8726 C32A 26 13           &.    bne 13
8727 C32C 7C 00 7D        |.}   inc 007d
8728 C32F F6 00 7D        ..}   ldab 007d
8729 C332 C1 05           ..    cmpb #05
8730 C334 23 03           #.    bls 03
8731 C336 7F 00 7D        ..}   clr 007d
8732 C339 7F 00 7E        ..~   clr 007e
8733 C33C 7E C4 2F        ~./   jmp c42f             ;goto36
8734 C33F 7C 00 7E        |.~   inc 007e
8735 C342 F6 00 7E        ..~   ldab 007e
8736 C345 C1 07           ..    cmpb #07
8737 C347 23 17           #.    bls 17
8738 C349 7F 00 7D        ..}   clr 007d
8739 C34C 7F 00 7E        ..~   clr 007e
8740 C34F 7F 00 7C        ..|   clr 007c
8741 C352 F6 00 15        ...   ldab 0015
8742 C355 2C 03           ,.    bge 03
8743 C357 7F 00 2C        ..,   clr 002c
8744 C35A CE 00 15        ...   ldx #0015
8745 C35D 1D 00 80        ..    bclr 00,x, #80
8746 C35F F6 00 7E        ...   ldab 007e
8747 C363 26 03           ..    bne 03     ; to c368
8748 C365 7E C4 2F        ~./   jmp c42f             ;goto36
8749 C368 F6 00 7D        ..}   ldab 007d
8750 C36B C1 01           ..    cmpb #01
8751 C36D 22 03           ".    bhi 03
8752 C36F 7E C4 2F        ~./   jmp c42f             ;goto36
8753 C372 CE 00 15        ...   ldx #0015
8754 C375 1C 00 80        ..    bset 00,x, #80
8755 C378 CE 0B C1        ...   ldx #0bc1
8756 C37B 1D 00 08        ..    bclr 00,x #08   ; clear bill error bit
8757 C37E F6 00 1D        ...   ldab 001d
8758 C381 C4 20           .     andb #20
8759 C383 27 03           '.    beq 03
8760 C385 7E C4 29        ~.)   jmp c429             ;goto38
8761 C388 C6 02           ..    ldab #02
8762 C38A F7 00 2C        ..,   stab 002c
8763 C38D 7F 00 3A        ..:   clr 003a
8764 C390 CE 00 1B        ...   ldx #001b
8765 C393 1D 00 40        ..    bclr 00,x, #40
8766 C396 7F 00 25        ..%   clr 0025
8767 C399 CE 00 21        ..!   ldx #0021
8768 C39C 1D 00 08        ...   bclr 00,x, #08
8769 C39F CE 00 14        ...   ldx #0014
8770 C3A2 1D 00 01        ..    bclr 00,x, #01
8771 C3A5 F6 00 14        ...   ldab 0014
8772 C3A8 F7 38 00        .8.   stab 3800        ; note acceptor business
8773 C3AB 7C 00 7C        |.|   inc 007c
8774 C3AE CE 00 15        ...   ldx #0015
8775 C3B1 1D 00 1F        ..    bclr 00,x, #1f
8776 C3B4 F6 00 7C        ..|   ldab 007c
8777 C3B7 C1 01           ..    cmpb #01
8778 C3B9 26 0E           &.    bne 0e
8779 C3BB CE 00 15        ...   ldx #0015
8780 C3BE 1C 00 01        ..    bset 00,x, #01
8781 C3C1 CC 00 64        ..d   ldd #0064
8782 C3C4 FD 00 3E        ..>   std 003e
8783 C3C7 20 60            `    bra 60
8784 C3C9 F6 00 7C        ..|   ldab 007c
8785 C3CC C1 02           ..    cmpb #02
8786 C3CE 26 0E           &.    bne 0e
8787 C3D0 CE 00 15        ...   ldx #0015
8788 C3D3 1C 00 02        ..    bset 00,x, #02
8789 C3D6 CC 00 C8        ...   ldd #00c8
8790 C3D9 FD 00 3E        ..>   std 003e
8791 C3DC 20 4B            K    bra 4b
8792 C3DE F6 00 7C        ..|   ldab 007c
8793 C3E1 C1 02           ..    cmpb #02
8794 C3E3 23 15           #.    bls 15
8795 C3E5 F6 00 7C        ..|   ldab 007c
8796 C3E8 C1 06           ..    cmpb #06
8797 C3EA 24 0E           $.    bcc 0e
8798 C3EC CE 00 15        ...   ldx #0015
8799 C3EF 1C 00           ..    bset 00,x, #04
8800 C3F2 CC 01 F4        ...   ldd #01f4
8801 C3F5 FD 00 3E        ..>   std 003e
8802 C3F8 20 2F            /    bra 2f
8803 C3FA F6 00 7C        ..|   ldab 007c
8804 C3FD C1 05           ..    cmpb #05
8805 C3FF 23 15           #.    bls 15
8806 C401 F6 00 7C        ..|   ldab 007c
8807 C404 C1 0B           ..    cmpb #0b
8808 C406 24 0E           $.    bcc 0e
8809 C408 CE 00 15        ...   ldx #0015
8810 C40B 1C 00 08        ..    bset 00,x, #08
8811 C40E CC 03 E8        ...   ldd #03e8
8812 C411 FD 00 3E        ..>   std 003e
8813 C414 20 13            .    bra 13      ; to c429
8814 C416 F6 00 7C        ..|   ldab 007c
8815 C419 C1 0B           ..    cmpb #0b
8816 C41B 23 0C           #.    bls 0c
8817 C41D CE 00 15        ...   ldx #0015
8818 C420 1C 00 10        ..    bset 00,x, #10
8819 C423 CC 07 D0        ...   ldd #07d0
8820 C426 FD 00 3E        ..>   std 003e
8821 goto38:
8822 C429 7F 00 7D        ..}   clr 007d
8823 C42C 7F 00 7E        ..~   clr 007e
8824 goto36:
8825 C42F 39              9     rts
8826
8827 jump26:
8828 ; tweaks the changer output lines (at 3000) that correspond with the bitmask of
8829 ; 0001. It pulls the lines with 1 set in the bitmask low (active) for 100ms
8830 C430 F6 00 01        ...   ldab 0001
8831 C433 53              S     comb
8832 C434 F4 00 1A        ...   andb 001a    ; 0x3000 buffer - changer outputs
8833 C437 F7 00 1A        ...   stab 001a
8834 C43A F6 00 1A        ...   ldab 001a
8835 C43D F7 30 00        .0.   stab 3000    ; coin mask
8836 C440 CC 00 64        ..d   ldd #0064
8837 C443 BD E5 71        ..q   jsr e571             ;msdelay
8838 C446 F6 00 01        ...   ldab 0001
8839 C449 FA 00 1A        ...   orb 001a
8840 C44C F7 00 1A        ...   stab 001a
8841 C44F F6 00 1A        ...   ldab 001a
8842 C452 F7 30 00        .0.   stab 3000    ; changer outputs again
8843 C455 39              9     rts
8844
8845 jump47:
8846 ; coin have something to do with coin counting?
8847 C456 FC 00 40        ..@   ldd 0040
8848 C459 26 03           &.    bne 03
8849 C45B 7E C5 C6        ~..   jmp c5c6             ;goto39 - unset 0x30 in 0021 & return
8850 C45E CE 00 1A        ...   ldx #001a
8851 C461 1C 00 01        ..    bset 00,x, #01
8852 C464 F6 00 1A        ...   ldab 001a
8853 C467 F7 30 00        .0.   stab 3000    ; changer accept off
8854 C46A CC 03 E8        ...   ldd #03e8    ; 1000
8855 C46D BD E5 71        ..q   jsr e571             ;msdelay
8856 goto42:
8857 C470 FC 00 40        ..@   ldd 0040
8858 C473 83 00 00        ...   subd #0000
8859 C476 22 03           ".    bhi 03
8860 C478 7E C5 B0        ~..   jmp c5b0             ;goto40
8861 C47B F6 00 1B        ...   ldab 001b
8862 C47E C4 20           .     andb #20
8863 C480 27 1B           '.    beq 1b
8864 C482 FC 00 40        ..@   ldd 0040
8865 C485 83 03 E8        ...   subd #03e8
8866 C488 25 13           %.    bcs 13
8867 C48A C6 28           .(    ldab #28
8868 C48C F7 00 01        ...   stab 0001
8869 C48F CC FC 18        ...   ldd #fc18
8870 C492 F3 00 40        ..@   addd 0040
8871 C495 FD 00 40        ..@   std 0040
8872 C498 8D 96           ..    bsr dest 96
8873 C49A 7E C5 7C        ~.|   jmp c57c             ;goto41
8874 C49D F6 00 1B        ...   ldab 001b
8875 C4A0 C4 20           .     andb #20
8876 C4A2 27 1C           '.    beq 1c
8877 C4A4 FC 00 40        ..@   ldd 0040
8878 C4A7 83 00 64        ..d   subd #0064
8879 C4AA 25 14           %.    bcs 14
8880 C4AC C6 30           .0    ldab #30
8881 C4AE F7 00 01        ...   stab 0001
8882 C4B1 CC FF 9C        ...   ldd #ff9c
8883 C4B4 F3 00 40        ..@   addd 0040
8884 C4B7 FD 00 40        ..@   std 0040
8885 C4BA BD C4 30        ..0   jsr c430             ;jump26
8886 C4BD 7E C5 7C        ~.|   jmp c57c             ;goto41
8887 C4C0 FC 0B DD        ...   ldd 0bdd
8888 C4C3 27 3C           '<    beq 3c
8889 C4C5 FC 00 40        ..@   ldd 0040
8890 C4C8 B3 0B DD        ...   subd 0bdd
8891 C4CB 25 34           %4    bcs 34
8892 C4CD F6 0C DB        ...   ldab 0cdb
8893 C4D0 26 07           &.    bne 07
8894 C4D2 F6 00 1B        ...   ldab 001b
8895 C4D5 C4 20           .     andb #20
8896 C4D7 27 28           '(    beq 28
8897 C4D9 FC 0B DD        ...   ldd 0bdd
8898 C4DC 53              S     comb
8899 C4DD 43              C     coma
8900 C4DE F9 00 41        ..A   adcb 0041
8901 C4E1 B9 00 40        ..@   adca 0040
8902 C4E4 FD 00 40        ..@   std 0040
8903 C4E7 F6 0B DA        ...   ldab 0bda
8904 C4EA F7 00 01        ...   stab 0001
8905 C4ED BD C4 30        ..0   jsr c430             ;jump26
8906 C4F0 F6 00 1B        ...   ldab 001b
8907 C4F3 C4 20           .     andb #20
8908 C4F5 26 08           &.    bne 08
8909 C4F7 F6 0C DB        ...   ldab 0cdb
8910 C4FA 27 03           '.    beq 03
8911 C4FC 7A 0C DB        z..   dec 0cdb
8912 C4FF 20 7B            {    bra 7b
8913 C501 FC 0B DF        ...   ldd 0bdf
8914 C504 27 3C           '<    beq 3c
8915 C506 FC 00 40        ..@   ldd 0040
8916 C509 B3 0B DF        ...   subd 0bdf
8917 C50C 25 34           %4    bcs 34
8918 C50E F6 0C DA        ...   ldab 0cda
8919 C511 26 07           &.    bne 07
8920 C513 F6 00 1B        ...   ldab 001b
8921 C516 C4 20           .     andb #20
8922 C518 27 28           '(    beq 28
8923 C51A FC 0B DF        ...   ldd 0bdf
8924 C51D 53              S     comb
8925 C51E 43              C     coma
8926 C51F F9 00 41        ..A   adcb 0041
8927 C522 B9 00 40        ..@   adca 0040
8928 C525 FD 00 40        ..@   std 0040
8929 C528 F6 0B DB        ...   ldab 0bdb
8930 C52B F7 00 01        ...   stab 0001
8931 C52E BD C4 30        ..0   jsr c430             ;jump26
8932 C531 F6 00 1B        ...   ldab 001b
8933 C534 C4 20           .     andb #20
8934 C536 26 08           &.    bne 08
8935 C538 F6 0C DA        ...   ldab 0cda
8936 C53B 27 03           '.    beq 03
8937 C53D 7A 0C DA        z..   dec 0cda
8938 C540 20 3A            :    bra 3a
8939 C542 FC 0B E1        ...   ldd 0be1
8940 C545 27 30           '0    beq 30
8941 C547 FC 00 40        ..@   ldd 0040
8942 C54A B3 0B E1        ...   subd 0be1
8943 C54D 25 28           %(    bcs 28
8944 C54F FC 0B E1        ...   ldd 0be1
8945 C552 53              S     comb
8946 C553 43              C     coma
8947 C554 F9 00 41        ..A   adcb 0041
8948 C557 B9 00 40        ..@   adca 0040
8949 C55A FD 00 40        ..@   std 0040
8950 C55D F6 0B DC        ...   ldab 0bdc
8951 C560 F7 00 01        ...   stab 0001
8952 C563 BD C4 30        ..0   jsr c430             ;jump26
8953 C566 F6 00 1B        ...   ldab 001b
8954 C569 C4 20           .     andb #20
8955 C56B 26 08           &.    bne 08
8956 C56D F6 0C D9        ...   ldab 0cd9
8957 C570 27 03           '.    beq 03
8958 C572 7A 0C D9        z..   dec 0cd9
8959 C575 20 05            .    bra 05
8960 C577 5F              _     clrb
8961 C578 4F              O     clra
8962 C579 FD 00 40        ..@   std 0040
8963 goto41:
8964 C57C CC 01 2C        ..,   ldd #012c    ;300 ms
8965 C57F BD E5 71        ..q   jsr e571             ;msdelay
8966 C582 F6 00 1B        ...   ldab 001b
8967 C585 C4 20           .     andb #20
8968 C587 26 24           &$    bne 24
8969 C589 CE 00 1A        ...   ldx #001a
8970 C58C 1D 00 01        ..    bclr 00,x, #01
8971 C58F F6 00 1A        ...   ldab 001a
8972 C592 F7 30 00        .0.   stab 3000    ; changer accept' low
8973 C595 CC 00 0C        ...   ldd #000c    ; 12 ms
8974 C598 BD E5 71        ..q   jsr e571             ;msdelay
8975 C59B CE 00 1A        ...   ldx #001a
8976 C59E 1C 00 01        ..    bset 00,x, #01
8977 C5A1 F6 00 1A        ...   ldab 001a
8978 C5A4 F7 30 00        .0.   stab 3000    ; changer accept' high
8979 C5A7 CC 00 23        ..#   ldd #0023
8980 C5AA BD E5 71        ..q   jsr e571             ;msdelay
8981 C5AD 7E C4 70        ~.p   jmp c470             ;goto42 - loop
8982 goto40:
8983 C5B0 F6 0B C0        ...   ldab 0bc0
8984 C5B3 C4 04           ..    andb #04
8985 C5B5 27 0F           '.    beq 0f
8986 C5B7 F6 00 1B        ...   ldab 001b
8987 C5BA C4 20           .     andb #20
8988 C5BC 27 08           '.    beq 08
8989 C5BE C6 38           .8    ldab #38
8990 C5C0 F7 00 01        ...   stab 0001
8991 C5C3 BD C4 30        ..0   jsr c430             ;jump26
8992 goto39:
8993 C5C6 CE 00 21        ..!   ldx #0021
8994 C5C9 1D 00 10        ...   bclr 00,x, #10
8995 C5CC CE 00 1B        ...   ldx #001b
8996 C5CF 1D 00           ..    bclr 00,x, #20
8997 C5D2 39              .     rts
8998
8999 jump6:
9000 C5D3 F6 00 15        ...   ldab 0015
9001 C5D6 C4 1F           ..    andb #1f
9002 C5D8 26 03           &.    bne 03
9003 C5DA 7E C6 7C        ~.|   jmp c67c             ;goto43
9004 C5DD CC 00 C8        ...   ldd #00c8
9005 C5E0 BD E5 71        ..q   jsr e571             ;msdelay
9006 C5E3 FC 00 3E        ..>   ldd 003e
9007 C5E6 27 58           'X    beq 58
9008 C5E8 F6 00 15        ...   ldab 0015
9009 C5EB C4 1F           ..    andb #1f
9010 C5ED 4F              O     clra
9011 C5EE BD FE 32        ..2   jsr fe32             ;jump25
9012 C5F1 C6 0B 00 01     ..    ; array data for jump25
9013 C5F5 C6 16 00 01     ..
9014 C5F9 C6 21 00 02     .!
9015 C5FD C6 2C 00 04     .,
9016 C601 C6 37 00 08     .7
9017 C605 C6 40 FF F0     .@
9018 C609 00 00           ..    ;end of array data
9019 C60B CC FF 9C        ...   ldd #ff9c
9020 C60E F3 00 3E        ..>   addd 003e
9021 C611 FD 00 3E        ..>   std 003e
9022 C614 20 2A            *    bra 2a
9023 C616 CC FF 38        ..8   ldd #ff38
9024 C619 F3 00 3E        ..>   addd 003e
9025 C61C FD 00 3E        ..>   std 003e
9026 C61F 20 1F            .    bra 1f
9027 C621 CC FE 0C        ...   ldd #fe0c
9028 C624 F3 00 3E        ..>   addd 003e
9029 C627 FD 00 3E        ..>   std 003e
9030 C62A 20 14            .    bra 14
9031 C62C CC FC 18        ...   ldd #fc18
9032 C62F F3 00 3E        ..>   addd 003e
9033 C632 FD 00 3E        ..>   std 003e
9034 C635 20 09            .    bra 09
9035 C637 CC F8 30        ..0   ldd #f830
9036 C63A F3 00 3E        ..>   addd 003e
9037 C63D FD 00 3E        ..>   std 003e
9038 C640 CE 00 14        ...   ldx #0014
9039 C643 1D 00 02        ...   bclr 00,x, #02
9040 C646 F6 00 14        ...   ldab 0014
9041 C649 F7 38 00        .8.   stab 3800    ; bill acceptor
9042 C64C CC 00 1E        ...   ldd #001e
9043 C64F BD E5 71        ..q   jsr e571             ;msdelay
9044 C652 CE 00 15        ...   ldx #0015
9045 C655 1D 00           ..    bclr add,x 00,x
9046 C657 1F CE 00 14     ....  brclr ce,x 00 14
9047 C65B 1C 00 02        ...   bset 00,x, #02
9048 C65E F6 00 14        ...   ldab 0014
9049 C661 F7 38 00        .8.   stab 3800    ; bill acceptor
9050 C664 CC 00 19        ...   ldd #0019
9051 C667 BD E5 71        ..q   jsr e571             ;msdelay
9052 C66A CE 00 14        ...   ldx #0014
9053 C66D 1C 00 01        ..    bset 00,x, #01
9054 C670 F6 00 14        ...   ldab 0014
9055 C673 F7 38 00        .8.   stab 3800    ; bill acceptor
9056 C676 CC 00 19        ...   ldd #0019
9057 C679 BD E5 71        ..q   jsr e571             ;msdelay
9058 goto43:
9059 C67C 39              9     rts
9060
9061 jump124:
9062 ; chat to changer
9063 C67D F6 00 30        ..0   ldab 0030
9064 C680 26 55           &U    bne 55       ; to c6d7
9065 C682 F6 0B C0        ...   ldab 0bc0
9066 C685 C4 04           ..    andb #04     ; have a card reader
9067 C687 26 4E           &N    bne 4e       ; to c6d7
9068 C689 C6 27           .'    ldab #27
9069 C68B F7 10 2D        ..-   stab 102d    ; disable SCI transmission
9070 C68E C6 07           ..    ldab #07
9071 C690 F7 10 2B        ..+   stab 102b    ; 600 baud
9072 C693 CE 00 1A        ...   ldx #001a
9073 C696 1C 00           ..    bset 00,x, #04
9074 C699 F6 00 1A        ...   ldab 001a
9075 C69C F7 30 00        .0.   stab 3000    ; keypad strobe
9076 C69F CC 00 14        ...   ldd #0014
9077 C6A2 BD E5 71        ..q   jsr e571             ;msdelay
9078 C6A5 F6 0B C0        ...   ldab 0bc0
9079 C6A8 C4 01           ..    andb #01     ; have a dumb mech
9080 C6AA 27 06           '.    beq 06
9081 C6AC CE 0B C1        ...   ldx #0bc1
9082 C6AF 1C 00 01        ...   bset 00,x, #01 ; set changer powerup error bit
9083 C6B2 F6 0B C0        ...   ldab 0bc0
9084 C6B5 C4 04           ..    andb #04
9085 C6B7 27 06           '.    beq 06
9086 C6B9 CE 0B C1        ...   ldx #0bc1
9087 C6BC 1C 00 02        ...   bset 00,x, #02 ; set card powerup error bit
9088 C6BF CE 00 1A        ...   ldx #001a
9089 C6C2 1D 00 04        ...   bclr 00,x, #04  ; keypad strobe finish
9090 C6C5 F6 00 1A        ...   ldab 001a
9091 C6C8 F7 30 00        .0.   stab 3000
9092 C6CB C6 96           ..    ldab #96
9093 C6CD F7 00 30        ..0   stab 0030
9094 C6D0 C6 1E           ..    ldab #1e
9095 C6D2 F7 00 35        ..5   stab 0035
9096 C6D5 20 5D            ]    bra 5d
9097 ;
9098 C6D7 F6 18 00        ...   ldab 1800
9099 C6DA 2D 2A           -*    blt 2a
9100 C6DC F6 00 07        ...   ldab 0007
9101 C6DF 26 25           &%    bne 25
9102 C6E1 CE 00 1A        ...   ldx #001a
9103 C6E4 1D 00 02        ...   bclr 00,x, #02
9104 C6E7 F6 00 1A        ...   ldab 001a
9105 C6EA F7 30 00        .0.   stab 3000       ; changer send' low
9106 C6ED C6 64           .d    ldab #64
9107 C6EF F7 00 2D        ..-   stab 002d
9108 C6F2 CC 00 32        ..2   ldd #0032
9109 C6F5 BD E5 71        ..q   jsr e571             ;msdelay
9110 C6F8 CE 00 1A        ...   ldx #001a
9111 C6FB 1C 00 02        ...   bset 00,x, #02
9112 C6FE F6 00 1A        ...   ldab 001a
9113 C701 F7 30 00        .0.   stab 3000       ; changer send' high
9114 C704 20 2E            .    bra 2e
9115 C706 F6 00 2D        ..-   ldab 002d
9116 C709 26 29           &)    bne 29
9117 C70B CE 00 1A        ...   ldx #001a
9118 C70E 1D 00 01        ...   bclr 00,x, #01
9119 C711 F6 00 1A        ...   ldab 001a
9120 C714 F7 30 00        .0.   stab 3000     ; changer accept' low
9121 C717 CC 00 0C        ...   ldd #000c
9122 C71A BD E5 71        ..q   jsr e571             ;msdelay
9123 C71D CE 00 1A        ...   ldx #001a
9124 C720 1C 00 01        ...   bset 00,x, #01
9125 C723 F6 00 1A        ...   ldab 001a
9126 C726 F7 30 00        .0.   stab 3000     ; changer accept' high
9127 C729 CC 00 23        ..#   ldd #0023
9128 C72C BD E5 71        ..q   jsr e571             ;msdelay
9129 C72F C6 64           .d    ldab #64
9130 C731 F7 00 2D        ..-   stab 002d
9131 C734 F6 00 21        ..!   ldab 0021
9132 C737 C4 10           ..    andb #10
9133 C739 27 45           'E    beq 45
9134 C73B F6 00 11        ...   ldab 0011
9135 C73E C4 04           ..    andb #04
9136 C740 26 1A           &.    bne 1a
9137 C742 FC 00 40        ..@   ldd 0040
9138 C745 F3 00 3E        ..>   addd 003e
9139 C748 B3 00 50        ..P   subd 0050
9140 C74B 25 0F           %.    bcs 0f
9141 C74D F6 0B C0        ...   ldab 0bc0
9142 C750 C4 04           ..    andb #04
9143 C752 26 08           &.    bne 08
9144 C754 CE 00 21        ..!   ldx #0021
9145 C757 1D 00 10        ...   bclr 00,x, #10
9146 C75A 20 24            $    bra 24
9147 C75C F6 0B C0        ...   ldab 0bc0
9148 C75F C4 08           ..    andb #08
9149 C761 27 03           '.    beq 03
9150 C763 BD C5 D3        ...   jsr c5d3             ;jump6
9151 C766 FC 0B DD        ...   ldd 0bdd
9152 C769 26 12           &.    bne 12
9153 C76B FC 0B DF        ...   ldd 0bdf
9154 C76E 26 0D           &.    bne 0d
9155 C770 FC 0B E1        ...   ldd 0be1
9156 C773 26 08           &.    bne 08
9157 C775 CE 00 21        ..!   ldx #0021
9158 C778 1D 00 10        ...   bclr 00,x, #10
9159 C77B 20 03            .    bra 03
9160 C77D BD C4 56        ..V   jsr c456             ;jump47
9161 C780 F6 00 15        ...   ldab 0015
9162 C783 2D 08           -.    blt 08
9163 C785 CE 00 21        ..!   ldx #0021
9164 C788 1C 00 08        ...   bset 00,x, #08
9165 C78B 20 06            .    bra 06
9166 C78D CE 00 21        ..!   ldx #0021
9167 C790 1D 00 08        ...   bclr 00,x, #08
9168 C793 39              9     rts
9169
9170 ;proc(a,b) var local
9171 ;local=0
9172 ;while b<>0
9173 ;
9174 ;endwhile
9175 ;return local
9176
9177 ; tests parity?
9178 C794 37              7     pshb
9179 C795 36              6     psha
9180 C796 34              4     des          ;stack: 0=local, 1=A, 2=B
9181 C797 30              0     tsx
9182 C798 6F 00           o.    clr 00,x
9183 loop:
9184 C79A 30              0     tsx
9185 C79B E6 02           ..    ldab 02,x
9186 C79D 27 1A           '.    beq exit     ;c7b9
9187 C79F 30              0     tsx
9188 C7A0 1F 02 01 0D     ....  brclr 02,x 01 skip   ;c7b1
9189 C7A4 30              0     tsx
9190 C7A5 E6 00           ..    ldab 00,x
9191 C7A7 27 05           '.    beq else     ;c7ae
9192 C7A9 30              0     tsx
9193 C7AA 6A 00           j.    dec 00,x
9194 C7AC 20 03            .    bra skip     ;c7b1
9195 else:
9196 C7AE 30              0     tsx
9197 C7AF 6C 00           l.    inc 00,x
9198 skip:
9199 C7B1 30              0     tsx
9200 C7B2 E6 02           ..    ldab 02,x
9201 C7B4 54              T     lsrb
9202 C7B5 E7 02           ..    stab 02,x
9203 C7B7 20 E1            .    bra loop     ;c79a
9204 exit:
9205 C7B9 30              0     tsx
9206 C7BA E6 00           ..    ldab 00,x
9207 C7BC 4F              O     clra
9208 C7BD 38              8     pulx
9209 C7BE 31              1     ins
9210 C7BF 39              9     rts
9211
9212 jump49:
9213 ; parity tester. returns 0 if good
9214 C7C0 F6 10 2F        ../   ldab 102f            ; sci data
9215 C7C3 4F              O     clra
9216 C7C4 8D CE           ..    bsr c794         ; parity test?
9217 C7C6 83 00 00        ...   subd #0000
9218 C7C9 27 05           '.    beq 05
9219 C7CB F6 10 2C        ..,   ldab 102c        ; test the 9th bit
9220 C7CE 2D 10           -.    blt 10           ; to c7e0
9221 C7D0 F6 10 2F        ../   ldab 102f            ; sci data
9222 C7D3 4F              O     clra
9223 C7D4 8D BE           ..    bsr c794         ; parity test?
9224 C7D6 83 00 00        ...   subd #0000
9225 C7D9 26 09           &.    bne 09           ; to c7e4
9226 C7DB F6 10 2C        ..,   ldab 102c        ; test the 9th bit
9227 C7DE 2D 04           -.    blt 04
9228 C7E0 CC 00 01        ...   ldd #0001        ; return 1
9229 C7E3 39              9     rts
9230 ; return 0
9231 C7E4 5F              _     clrb
9232 C7E5 4F              O     clra
9233 C7E6 39              9     rts
9234
9235
9236 ;this might send a byte to the serial port
9237 jump37:
9238 C7E7 37              7     pshb
9239 C7E8 36              6     psha
9240 C7E9 C6 32           .2    ldab #32    ; 50 00110010
9241 C7EB F7 00 31        ..1   stab 0031
9242 C7EE 30              0     tsx
9243 C7EF E6 01           ..    ldab 01,x
9244 C7F1 F7 00 43        ..C   stab 0043
9245 ; poll the TD register empty flag until it's set
9246 C7F4 F6 10 2E        ...   ldab 102e
9247 C7F7 2D 02           -.    blt 02      ; transmit data register empty
9248 C7F9 20 F9            .    bra f9      ; to c7f4
9249 ;
9250 C7FB 30              0     tsx
9251 C7FC E6 01           ..    ldab 01,x
9252 C7FE 4F              O     clra
9253 C7FF 8D 93           ..    bsr 93 ; to c794 - generate parity bit?
9254 C801 83 00 00        ...   subd #0000
9255 C804 27 08           '.    beq 08
9256 C806 CE 10 2C        ..,   ldx #102c
9257 C809 1C 00 40        ...   bset 00,x, #40   ; set the 9th bit
9258 C80C 20 06            .    bra 06
9259 C80E CE 10 2C        ..,   ldx #102c    ;SCI control 1
9260 C811 1D 00 40        ...   bclr 00,x, #40   ; clear the 9th bit
9261 C814 30              0     tsx
9262 C815 E6 01           ..    ldab 01,x
9263 C817 F7 10 2F        ../   stab 102f     ; send to serial port
9264 C81A 38              8     pulx
9265 C81B 39              9     rts
9266
9267
9268
9269
9270 sciinterrupt:
9271 C81C 34              4     des
9272 ; make sure this interrupt is valid
9273 C81D F6 0B C0        ...   ldab 0bc0
9274 C820 C4 01           ..    andb #01     ; do we have a dumb mech?
9275 C822 26 0A           &.    bne 0a       ; if so, to c82e
9276 ;
9277 C824 F6 0B C0        ...   ldab 0bc0
9278 C827 C4 04           ..    andb #04     ; do we have a card reader?
9279 C829 26 03           &.    bne 03       ; if so, to c82e
9280 C82B 7E CB FF        ~..   jmp cbff             ; else to goto44
9281 ;
9282 C82E C6 96           ..    ldab #96     ; 150
9283 C830 F7 00 30        ..0   stab 0030    ; changer related still?
9284 C833 F6 10 2E        ...   ldab 102e    ; SCI status
9285 C836 C4 02           ..    andb #02     ; test for Framing Error
9286 C838 26 0B           &.    bne 0b       ; if so, to c845
9287 C83A F6 10 2F        ../   ldab 102f    ; read SCI data
9288 C83D F1 00 26        ..&   cmpb 0026
9289 C840 26 03           &.    bne 03
9290 C842 7E C9 1B        ~..   jmp c91b             ;goto45
9291 ;
9292 C845 F6 10 2F        ../   ldab 102f    ; read SCI data
9293 C848 C4 63           .c    andb #63     ; 01100110
9294 C84A C1 23           .#    cmpb #23     ; 00100110
9295 C84C 27 03           '.    beq 03
9296 C84E 7E C8 E7        ~..   jmp c8e7             ;goto46 - pulse send' of changer
9297 ; doesnt return
9298 C851 F6 00 1A        ...   ldab 001a    ; register 3000 buffer
9299 C854 C4 01           ..    andb #01     ; accept' line of changer
9300 C856 26 03           &.    bne 03
9301 C858 7E C8 E7        ~..   jmp c8e7             ;goto46 - pulse send' of changer
9302 ; doesnt return
9303 C85B F6 00 21        ..!   ldab 0021
9304 C85E C4 F8           ..    andb #f8     ; 11111000
9305 C860 37              7     pshb
9306 C861 F6 10 2F        ../   ldab 102f    ; read SCI data
9307 C864 C4 1C           ..    andb #1c     ; 00011100
9308 C866 54              T     lsrb         ;    ^^^
9309 C867 54              T     lsrb         ; get these bits out
9310 C868 30              0     tsx
9311 C869 EA 00           ..    orb 00,x     ; or it with the thing just above
9312 C86B 31              1     ins
9313 C86C F7 00 21        ..!   stab 0021
9314 C86F F6 00 21        ..!   ldab 0021
9315 C872 F4 0B D7        ...   andb 0bd7    ; if (0021 & 0bd7)
9316 C875 27 08           '.    beq 08       ; is false
9317 C877 CE 00 17        ...   ldx #0017
9318 C87A 1C 00 20        ..    bset 00,x, #20
9319 C87C 20 18                 bra 18
9320 C87F F6 00 17        ...   ldab 0017    ; if true
9321 C882 C4 20           .     andb #20
9322 C884 27 11           '.    beq 11       ; if unset to c897 (break out of if)
9323 C886 CE 00 17        ...   ldx #0017
9324 C889 1D 00           ..    bclr 00,x, #20
9325 C88C C6 04            .    andb #04
9326 C88E F7 0C DB        ...   stab 0cdb
9327 C891 CE 0B C1        ...   ldx #0bc1
9328 C894 1C 00 40        ...   bset 00,x, #40 ; set tube error
9329 ;
9330 C897 F6 00 21        ..!   ldab 0021
9331 C89A F4 0B D8        ...   andb 0bd8
9332 C89D 27 08           '.    beq 08           ; to c8a7
9333 C89F CE 00 17        ...   ldx #0017
9334 C8A2 1C 00 40        ...   bset 00,x, #40
9335 C8A5 20 18            .    bra 18           ; to c8cf
9336 ;
9337 C8A7 F6 00 17        ...   ldab 0017
9338 C8AA C4 40           .@    andb #40
9339 C8AC 27 11           '.    beq 11            ; to c8bf if unset
9340 C8AE CE 00 17        ...   ldx #0017
9341 C8B1 1D 00 40        ...   bclr 00,x, #40
9342 C8B4 C6 04           ..    ldab #04
9343 C8B6 F7 0C DA        ...   stab 0cda
9344 C8B9 CE 0B C1        ...   ldx #0bc1
9345 C8BC 1C 00 40        ...   bset 00,x, #40 ; set tube error
9346 ; if 0021 & 0bd9, then set bit 7 of 0017, else unset it.
9347 C8BF F6 00 21        ..!   ldab 0021
9348 C8C2 F4 0B D9        ...   andb 0bd9
9349 C8C5 27 08           '.    beq 08
9350 C8C7 CE 00 17        ...   ldx #0017
9351 C8CA 1C 00 80        ..    bset 00,x, #80
9352 C8CC 20 16           .     bra 16     ; to c8e5
9353 ;
9354 C8CF F6 00 17        ...   ldab 0017
9355 C8D2 2C 11           ,.    bge 11     ; to c8e5
9356 C8D4 CE 00 17        ...   ldx #0017
9357 C8D7 1D 00           ..    bclr 00,x, #80
9358 ; set counter to 4?
9359 C8D9 C6 04           ..    ldab #04
9360 C8DC F7 0C D9        ...   stab 0cd9
9361 ; set tube error bit
9362 C8DF CE 0B C1        ...   ldx #0bc1
9363 C8E2 1C 00 40        ...   bset 00,x, #40 ; set tube error bit
9364 C8E5 20 31            1    bra 31          ; to c918
9365 ;
9366 goto46: ; pulse the send' line of the changer
9367 C8E7 F6 10 2F        ../   ldab 102f    ; read SCI data
9368 C8EA F7 00 26        ..&   stab 0026
9369 C8ED CE 00 1A        ...   ldx #001a
9370 C8F0 1C 00 02        ...   bset 00,x, #02
9371 C8F3 F6 00 1A        ...   ldab 001a
9372 C8F6 F7 30 00        .0.   stab 3000    ; changer send' high
9373 C8F9 F6 00 3D        ..=   ldab 003d
9374 C8FC C4 04           ..    andb #04
9375 C8FE 26 18           &.    bne 18       ; to c918
9376 C900 CC 00 03        ...   ldd #0003
9377 C903 BD E5 71        ..q   jsr e571             ;msdelay
9378 C906 CE 00 1A        ...   ldx #001a
9379 C909 1D 00 02        ...   bclr 00,x, #02
9380 C90C F6 00 1A        ...   ldab 001a
9381 C90F F7 30 00        .0.   stab 3000    ; changer send' low
9382 C912 7C 00 3D        |.=   inc 003d
9383 C915 7E CE 46        ~.F   jmp ce46             ;goto47 (exit)
9384 C918 7E CB DA        ~..   jmp cbda             ;goto48 (clean exit)
9385 ;
9386 goto45:
9387 C91B F6 00 08        ...   ldab 0008
9388 C91E 26 03           &.    bne 03
9389 C920 7E CA 5F        ~._   jmp ca5f             ;goto49
9390 C923 F6 00 17        ...   ldab 0017
9391 C926 C4 04           ..    andb #04
9392 C928 26 03           &.    bne 03
9393 C92A 7E CA 5F        ~._   jmp ca5f             ;goto49
9394 C92D F6 00 17        ...   ldab 0017
9395 C930 C4 08           ..    andb #08
9396 C932 26 03           &.    bne 03
9397 C934 7E CA 5F        ~._   jmp ca5f             ;goto49
9398 C937 F6 10 2F        ../   ldab 102f    ; read SCI data
9399 C93A C1 FF           ..    cmpb #ff
9400 C93C 27 07           '.    beq 07       ; to c945
9401 C93E F6 00 08        ...   ldab 0008
9402 C941 C1 0E           ..    cmpb #0e     ; if > 14
9403 C943 25 12           %.    bcs 12       ; to c957
9404 C945 CE 00 17        ...   ldx #0017
9405 C948 1D 00 04        ...   bclr 00,x, #04
9406 C94B 7F 00 08        ...   clr 0008
9407 C94E BD CE 48        ..H   jsr ce48             ;jump48 - update values?
9408 C951 7F 00 2C        ..,   clr 002c
9409 C954 7E CA 5C        ~.\   jmp ca5c             ;goto50 - clean exit
9410 ;
9411 C957 F6 00 08        ...   ldab 0008
9412 C95A 4F              O     clra
9413 C95B BD FE 16        ...   jsr fe16             ;jump2
9414 C95E 00 01 00 0C     .
9415 C962 CA 59           .Y    ; inc 0008 and clean exit
9416 C964 C9 7E           .~    ; read byte into 0bc2
9417 C966 C9 87           ..    ; read byte into 0bc3 & ^10 and stuff
9418 C968 C9 DF           ..    ; read byte into 0bc4 & stuff
9419 C96A C9 F3           ..    ; read byte into 0bc5 & stuff
9420 C96C CA 07           ..    ; read byte into 0bc6 & stuff
9421 C96E CA 1B           ..    ; read byte into 0bc7 only
9422 C970 CA 23           .#    ; read byte into 0bc8 only
9423 C972 CA 2B           .+    ; read byte into 0bc9 only
9424 C974 CA 33           .3    ; read byte into 0bca only
9425 C976 CA 3B           .;    ; read byte into 0bcb only
9426 C978 CA 43           .C    ; read byte into 0bcc only
9427 C97A CA 4B           .K    ; read byte into 0bcd only
9428 C97C CA 53           .S    ; read byte into 0bce only
9429 C97E F6 10 2F        ../   ldab 102f    ; read SCI data
9430 C981 F7 0B C2        ...   stab 0bc2
9431 C984 7E CA 59        ~.Y   jmp ca59             ;goto51 - inc 0008 and exit
9432 ;
9433 C987 F6 10 2F        ../   ldab 102f    ; read SCI data
9434 C98A F7 0B E3        ...   stab 0be3
9435 C98D F6 10 2F        ../   ldab 102f    ; read SCI data
9436 C990 C4 0F           ..    andb #0f
9437 C992 C1 01           ..    cmpb #01
9438 C994 26 07           &.    bne 07         ; to c99d
9439 C996 C6 02           ..    ldab #02
9440 C998 F7 00 13        ...   stab 0013
9441 C99B 20 1B            .    bra 1b         ; to c9b8
9442 C99D C1 02           ..    cmpb #02
9443 C99F 26 07           &.    bne 07         ; to c9a8
9444 C9A1 C6 04           ..    ldab #04
9445 C9A3 F7 00 13        ...   stab 0013
9446 C9A6 20 10            .    bra 10         ; to c9b8
9447 C9A8 C1 03           ..    cmpb #03
9448 C9AA 26 07           &.    bne 07         ; to c9b3
9449 C9AC C6 08           ..    ldab #08
9450 C9AE F7 00 13        ...   stab 0013
9451 C9B1 20 05            .    bra 05         ; to c9b8
9452 C9B3 C6 01           ..    ldab #01
9453 C9B5 F7 00 13        ...   stab 0013
9454 C9B8 F6 10 2F        ../   ldab 102f    ; read SCI data
9455 C9BB C4 F0           ..    andb #f0
9456 C9BD 54              T     lsrb
9457 C9BE 54              T     lsrb
9458 C9BF 54              T     lsrb
9459 C9C0 54              T     lsrb
9460 C9C1 F7 0B C3        ...   stab 0bc3
9461 C9C4 F6 0B C2        ...   ldab 0bc2
9462 C9C7 F7 0B AA        ...   stab 0baa
9463 ;;0baa^:=pow(10,0bc3^)  0bc3 is the top 4 bits from the serial port.
9464 ;while 0bc3^<>0
9465 ;  obaa^:=0baa^*10
9466 ;  obc3^:=0bc3-1
9467 ;endwhile
9468 C9CA F6 0B C3        ...   ldab 0bc3
9469 C9CD 27 0E           '.    beq c9dd
9470 C9CF F6 0B AA        ...   ldab 0baa
9471 C9D2 86 0A           ..    ldaa #0a
9472 C9D4 3D              =     mul
9473 C9D5 F7 0B AA        ...   stab 0baa
9474 C9D8 7A 0B C3        z..   dec 0bc3
9475 C9DB 20 ED            .    bra c9ca
9476 ;
9477 C9DD 20 7A            z    bra 7a       ;goto51 - inc 0008 & clean exit
9478 ;
9479 C9DF F6 10 2F        ../   ldab 102f    ; read SCI data
9480 C9E2 F7 0B C4        ...   stab 0bc4
9481 C9E5 F6 0B C4        ...   ldab 0bc4
9482 C9E8 C1 80           ..    cmpb #80     ; if == 128
9483 C9EA 26 05           &.    bne 05
9484 C9EC C6 0F           ..    ldab #0f     ; put 15 => 0bc4
9485 C9EE F7 0B C4        ...   stab 0bc4
9486 C9F1 20 66            f    bra 66       ;goto51 - inc 0008 & clean exit
9487 ;
9488 C9F3 F6 10 2F        ../   ldab 102f    ; read SCI data
9489 C9F6 F7 0B C5        ...   stab 0bc5
9490 C9F9 F6 0B C5        ...   ldab 0bc5
9491 C9FC C1 80           ..    cmpb #80
9492 C9FE 26 05           &.    bne 05
9493 CA00 C6 0F           ..    ldab #0f
9494 CA02 F7 0B C5        ...   stab 0bc5
9495 CA05 20 52            R    bra 52       ;goto51 - inc 0008 & clean exit
9496 ;
9497 CA07 F6 10 2F        ../   ldab 102f    ; read SCI data
9498 CA0A F7 0B C6        ...   stab 0bc6
9499 CA0D F6 0B C6        ...   ldab 0bc6
9500 CA10 C1 80           ..    cmpb #80
9501 CA12 26 05           &.    bne ca19
9502 CA14 C6 0F           ..    ldab #0f
9503 CA16 F7 0B C6        ...   stab 0bc6
9504 CA19 20 3E            >    bra 3e       ;goto51 - inc 0008 & clean exit
9505 ;
9506 ; read byte of data into 0bc7 - 0bce
9507 CA1B F6 10 2F        ../   ldab 102f    ; read SCI data
9508 CA1E F7 0B C7        ...   stab 0bc7
9509 CA21 20 36            6    bra 36
9510 ;
9511 CA23 F6 10 2F        ../   ldab 102f    ; read SCI data
9512 CA26 F7 0B C8        ...   stab 0bc8
9513 CA29 20 2E            .    bra 2e
9514 ;
9515 CA2B F6 10 2F        ../   ldab 102f    ; read SCI data
9516 CA2E F7 0B C9        ...   stab 0bc9
9517 CA31 20 26            &    bra 26
9518 ;
9519 CA33 F6 10 2F        ../   ldab 102f    ; read SCI data
9520 CA36 F7 0B CA        ...   stab 0bca
9521 CA39 20 1E            .    bra 1e
9522 ;
9523 CA3B F6 10 2F        ../   ldab 102f    ; read SCI data
9524 CA3E F7 0B CB        ...   stab 0bcb
9525 CA41 20 16            .    bra 16
9526 ;
9527 CA43 F6 10 2F        ../   ldab 102f    ; read SCI data
9528 CA46 F7 0B CC        ...   stab 0bcc
9529 CA49 20 0E            .    bra 0e
9530 ;
9531 CA4B F6 10 2F        ../   ldab 102f    ; read SCI data
9532 CA4E F7 0B CD        ...   stab 0bcd
9533 CA51 20 06            .    bra 06
9534 ;
9535 CA53 F6 10 2F        ../   ldab 102f    ; read SCI data
9536 CA56 F7 0B CE        ...   stab 0bce
9537 goto51:
9538 CA59 7C 00 08        |..   inc 0008
9539 goto50:
9540 CA5C 7E CB DA        ~..   jmp cbda             ;goto48 (clean exit)
9541 ;
9542 goto49:
9543 CA5F F6 10 2F        ../   ldab 102f    ; read SCI data
9544 CA62 C4 EF           ..    andb #ef     ; 11101111
9545 CA64 C1 E2           ..    cmpb #e2     ; 11100010
9546 CA66 26 1A           &.    bne 1a       ; if no match, to ca82
9547 CA68 CE 00 17        ...   ldx #0017
9548 CA6B 1C 00 08        ...   bset 00,x, #08
9549 CA6E CE 00 17        ...   ldx #0017
9550 CA71 1C 00 04        ...   bset 00,x, #04
9551 CA74 C6 01           ..    ldab #01
9552 CA76 F7 00 08        ...   stab 0008
9553 CA79 CE 0B C1        ...   ldx #0bc1
9554 CA7C 1D 00 01        ...   bclr 00,x, #01  ; clear card powerup error bit
9555 CA7F 7E CB DA        ~..   jmp cbda             ;goto48 (clean exit)
9556 ;
9557 CA82 F6 10 2F        ../   ldab 102f    ; read SCI data
9558 CA85 C4 02           ..    andb #02
9559 CA87 27 03           '.    beq 03       ; if bit is set then
9560 CA89 7E CB 6C        ~.l   jmp cb6c             ; goto52
9561 CA8C F6 10 2F        ../   ldab 102f    ; read SCI data
9562 CA8F 2C 38           ,8    bge 38       ; if bit 7 unset, to cac9
9563 CA91 F6 00 17        ...   ldab 0017
9564 CA94 C4 08           ..    andb #08
9565 CA96 26 31           &1    bne 31
9566 CA98 F6 10 2F        ../   ldab 102f    ; read SCI data
9567 CA9B C4 78           .x    andb #78     ; 01111000
9568 CA9D 54              T     lsrb
9569 CA9E 54              T     lsrb
9570 CA9F 54              T     lsrb
9571 CAA0 4F              O     clra
9572 CAA1 C3 0B C7        ...   addd #0bc7
9573 CAA4 8F              .     xgdx
9574 CAA5 E6 00           ..    ldab 00,x
9575 CAA7 4F              O     clra
9576 CAA8 37              7     pshb
9577 CAA9 36              6     psha
9578 CAAA F6 0B AA        ...   ldab 0baa
9579 CAAD 4F              O     clra
9580 CAAE BD FB BA        ...   jsr fbba             ;jump38 - multiply?
9581 CAB1 F3 00 40        ..@   addd 0040
9582 CAB4 FD 00 40        ..@   std 0040
9583 CAB7 CE 00 1B        ...   ldx #001b
9584 CABA 1C 00           ..    bset 00,x, #20
9585 CABD CE 00 1B        ...   ldx #001b
9586 CAC0 1D 00 40        ...   bclr 00,x, #40
9587 CAC3 7F 00 25        ..%   clr 0025
9588 CAC6 7E CB 64        ~.d   jmp cb64             ;goto53 - cleanup & exit
9589 ;
9590 CAC9 F6 00 17        ...   ldab 0017
9591 CACC C4 08           ..    andb #08
9592 CACE 26 4A           &J    bne 4a       ;to cb1a
9593 CAD0 F6 10 2F        ../   ldab 102f    ; read SCI data
9594 CAD3 C4 60           .`    andb #60     ; 01100000
9595 CAD5 54              T     lsrb         ;  ^^^^
9596 CAD6 54              T     lsrb
9597 CAD7 54              T     lsrb
9598 CAD8 4F              O     clra
9599 CAD9 C3 0B C7        ...   addd #0bc7
9600 CADC 8F              .     xgdx
9601 CADD E6 00           ..    ldab 00,x
9602 CADF 4F              O     clra
9603 CAE0 37              7     pshb
9604 CAE1 36              6     psha
9605 CAE2 F6 0B AA        ...   ldab 0baa
9606 CAE5 4F              O     clra
9607 CAE6 BD FB BA        ...   jsr fbba             ;jump38 - multiply?
9608 CAE9 FD 0B BD        ...   std 0bbd
9609 CAEC FC 0B BD        ...   ldd 0bbd
9610 CAEF F3 00 40        ..@   addd 0040
9611 CAF2 FD 00 40        ..@   std 0040
9612 CAF5 F6 00 21        ..!   ldab 0021
9613 CAF8 C4 F8           ..    andb #f8     ; 11111000
9614 CAFA 37              7     pshb
9615 CAFB F6 10 2F        ../   ldab 102f    ; read SCI data
9616 CAFE C4 1C           ..    andb #1c     ; 00011100
9617 CB00 54              T     lsrb
9618 CB01 54              T     lsrb
9619 CB02 30              0     tsx
9620 CB03 EA 00           ..    orb 00,x     ; or lower 3 bits with 0021
9621 CB05 31              1     ins
9622 CB06 F7 00 21        ..!   stab 0021
9623 CB09 F6 10 2F        ../   ldab 102f    ; read SCI data
9624 CB0C F7 0B BC        ...   stab 0bbc
9625 CB0F CE 00 1B        ...   ldx #001b
9626 CB12 1D 00 40        ..    bclr 00,x, #40
9627 CB15 7F 00 25        ..%   clr 0025
9628 CB18 20 4A            J    bra 4a       ;goto53 - more cleanups and exit
9629 ;
9630 CB1A F6 10 2F        ../   ldab 102f    ; read SCI data
9631 CB1D C4 E0           ..    andb #e0     ; 11100000
9632 CB1F 54              T     lsrb
9633 CB20 54              T     lsrb
9634 CB21 54              T     lsrb
9635 CB22 54              T     lsrb
9636 CB23 54              T     lsrb          ; shr5
9637 CB24 4F              O     clra
9638 CB25 C3 0B C7        ...   addd #0bc7
9639 CB28 8F              .     xgdx
9640 CB29 E6 00           ..    ldab 00,x
9641 CB2B 4F              O     clra
9642 CB2C 37              7     pshb
9643 CB2D 36              6     psha
9644 CB2E F6 0B AA        ...   ldab 0baa
9645 CB31 4F              O     clra
9646 CB32 BD FB BA        ...   jsr fbba             ;jump38 - multiply?
9647 CB35 FD 0B BD        ...   std 0bbd
9648 CB38 FC 0B BD        ...   ldd 0bbd
9649 CB3B F3 00 40        ..@   addd 0040
9650 CB3E FD 00 40        ..@   std 0040
9651 CB41 F6 00 21        ..!   ldab 0021
9652 CB44 C4 F8           ..    andb #f8
9653 CB46 37              7     pshb
9654 CB47 F6 10 2F        ../   ldab 102f    ; read SCI data
9655 CB4A C4 1C           ..    andb #1c
9656 CB4C 54              T     lsrb
9657 CB4D 54              T     lsrb
9658 CB4E 30              0     tsx
9659 CB4F EA 00           ..    orb 00,x
9660 CB51 31              1     ins
9661 CB52 F7 00 21        ..!   stab 0021
9662 CB55 F6 10 2F        ../   ldab 102f    ; read SCI data
9663 CB58 F7 0B BC        ...   stab 0bbc
9664 CB5B CE 00 1B        ...   ldx #001b
9665 CB5E 1D 00 40        ...   bclr 00,x, #40
9666 CB61 7F 00 25        ..%   clr 0025
9667 goto53: ; more cleanups and exit
9668 CB64 7F 00 2C        ..,   clr 002c
9669 CB67 7F 00 3A        ..:   clr 003a
9670 CB6A 20 6E            n    bra 6e       ; to cbda - cleanup and exit
9671 goto52:
9672 CB6C F6 10 2F        ../   ldab 102f    ; read SCI data
9673 CB6F C4 03           ..    andb #03
9674 CB71 C1 02           ..    cmpb #02
9675 CB73 26 0F           &.    bne 0f       ; to bc84
9676 CB75 F6 00 21        ..!   ldab 0021
9677 CB78 C4 08           ..    andb #08
9678 CB7A 27 08           '.    beq 08
9679 CB7C CE 00 21        ..!   ldx #0021
9680 CB7F 1C 00 10        ...   bset 00,x, #10
9681 CB82 20 56            V    bra 56       ;goto48 - cleanup and exit
9682 ;
9683 CB84 F6 10 2F        ../   ldab 102f    ; read SCI data
9684 CB87 C4 EF           ..    andb #ef     ; 11101111
9685 CB89 C1 E3           ..    cmpb #e3     ; 11100111
9686 CB8B 26 08           &.    bne 08       ; to cb95
9687 CB8D CE 0B C1        ...   ldx #0bc1
9688 CB90 1D 00 02        ...   bclr 00,x, #02  ; clear card powerup error bit
9689 CB93 20 45            E    bra 45       ;goto48 - cleanup and exit
9690 ;
9691 ; this could be the coin mech powerup message?
9692 CB95 F6 10 2F        ../   ldab 102f    ; read SCI data
9693 CB98 C4 EF           ..    andb #ef     ; 11101111
9694 CB9A C1 63           .c    cmpb #63     ; 01101110
9695 CB9C 26 1C           &.    bne 1c       ; to cbba
9696 CB9E CE 0B C1        ...   ldx #0bc1    ; clear changer powerup error bit
9697 CBA1 1D 00 01        ...   bclr 00,x, #01
9698 CBA4 F6 0B C0        ...   ldab 0bc0
9699 CBA7 C4 01           ..    andb #01     ; do we have a changer?
9700 CBA9 27 0D           '.    beq 0d       ; to cbb8 - cleanup & exit
9701 CBAB F6 0B C0        ...   ldab 0bc0
9702 CBAE C4 04           ..    andb #04     ; if we don't have a card reader, we don't have an error reading from it. duh.
9703 CBB0 27 06           '.    beq 06       ; to cbb8
9704 CBB2 CE 0B C1        ...   ldx #0bc1
9705 CBB5 1D 00 02        ...   bclr 00,x, #02  ; clear card powerup error bit
9706 CBB8 20 20                 bra 20       ;goto48 - cleanup & exit
9707 ;
9708 ; the coin mech is telling us it has a bad sensor
9709 CBBA F6 10 2F        ../   ldab 102f    ; read SCI data
9710 CBBD C4 EF           ..    andb #ef     ; 11101111
9711 CBBF C1 67           .g    cmpb #67     ; 01100111
9712 CBC1 26 08           &.    bne 08       ; to cbcb
9713 CBC3 CE 0B C1        ...   ldx #0bc1
9714 CBC6 1C 00           ..    bset 00,x, #20 ; set bad sensor error bit
9715 CBC9 20 0F                 bra 0f       ;goto48 - cleanup & exit
9716 ;
9717 CBCB F6 10 2F        ../   ldab 102f    ; read SCI data
9718 CBCE C4 EF           ..    andb #ef     ; 11101111
9719 CBD0 C1 27           .'    cmpb #27     ; 00100111
9720 CBD2 26 06           &.    bne 06       ;goto48 - cleanup & exit
9721 ;
9722 CBD4 CE 0B C1        ...   ldx #0bc1 ; set coin jam error bit
9723 CBD7 1C 00 10        ...   bset 00,x, #10
9724 goto48: ; cleanup and exit
9725 CBDA CE 00 1A        ...   ldx #001a
9726 CBDD 1C 00 02        ...   bset 00,x, #02
9727 CBE0 F6 00 1A        ...   ldab 001a
9728 CBE3 F7 30 00        .0.   stab 3000    ; changer send' high
9729 CBE6 F6 00 17        ...   ldab 0017
9730 CBE9 C4 04           ..    andb #04
9731 CBEB 26 05           &.    bne 05       ; to cbf2
9732 CBED C6 06           ..    ldab #06
9733 CBEF F7 00 07        ...   stab 0007
9734 CBF2 F6 00 26        ..&   ldab 0026    ; 0026 ~= 0026
9735 CBF5 53              S     comb
9736 CBF6 F7 00 26        ..&   stab 0026
9737 CBF9 7F 00 3D        ..=   clr 003d
9738 CBFC 7E CE 46        ~.F   jmp ce46             ;goto47 (exit)
9739 ;
9740 ;
9741 ;
9742 ;
9743 ;
9744 goto44:
9745 CBFF F6 0B C0        ...   ldab 0bc0    ; do we have a changer?
9746 CC02 C4 02           ..    andb #02
9747 CC04 26 03           &.    bne 03       ; if so, swallow & exit
9748 CC06 7E CE 3B        ~.;   jmp ce3b             ; goto54  - swallow a byte & exit
9749 ;
9750 CC09 F6 10 2F        ../   ldab 102f    ; read SCI data
9751 CC0C C4 E0           ..    andb #e0     ; 11100000
9752 CC0E C1 20           .     cmpb #20     ; 00100000
9753 CC10 27 03           '.    beq 03
9754 CC12 7E CE 3B        ~.;   jmp ce3b             ;goto54  - swallow a byte & exit
9755 ;
9756 CC15 C6 32           .2    ldab #32     ; 50  00110010
9757 CC17 F7 00 2F        ../   stab 002f
9758 CC1A CE 00 1B        ...   ldx #001b    ; say we have a link master?
9759 CC1D 1C 00 02        ...   bset 00,x, #02
9760 CC20 F6 10 2E        ...   ldab 102e    ; SCI status
9761 CC23 C4 02           ..    andb #02     ; test for Framing Error
9762 CC25 26 08           &.    bne 08
9763 CC27 BD C7 C0        ...   jsr c7c0             ;jump49 - parity test
9764 CC2A 83 00 00        ...   subd #0000
9765 CC2D 26 0F           &.    bne 0f       ; if failed, to cc3e
9766 CC2F F6 10 2F        ../   ldab 102f    ; read SCI data
9767 CC32 30              0     tsx
9768 CC33 E7 00           ..    stab 00,x
9769 CC35 CC 00 FF        ...   ldd #00ff
9770 CC38 BD C7 E7        ...   jsr c7e7             ;jump37 - send #FF to coin mech
9771 CC3B 7E CE 39        ~.9   jmp ce39             ;goto55 - exit
9772 ;
9773 CC3E F6 10 2F        ../   ldab 102f    ; read SCI data
9774 CC41 C1 3F           .?    cmpb #3f     ; 00111111
9775 CC43 26 0A           &.    bne 0a       ; to cc4f
9776 CC45 F6 00 43        ..C   ldab 0043
9777 CC48 4F              O     clra
9778 CC49 BD C7 E7        ...   jsr c7e7             ;jump37 - send 0043 to coin mech - retry?
9779 CC4C 7E CE 39        ~.9   jmp ce39             ;goto55 - exit
9780 ;
9781 CC4F F6 00 08        ...   ldab 0008
9782 CC52 26 03           &.    bne 03
9783 CC54 7E CD 94        ~..   jmp cd94             ;goto56
9784 ;
9785 CC57 F6 10 2F        ../   ldab 102f    ; read SCI data
9786 CC5A C4 F0           ..    andb #f0     ; 11110000
9787 CC5C C1 20           .     cmpb #20     ; 00100000
9788 CC5E 27 03           '.    beq 03
9789 CC60 7E CD 94        ~..   jmp cd94             ;goto56
9790 CC63 F6 10 2F        ../   ldab 102f    ; read SCI data
9791 CC66 C4 0F           ..    andb #0f
9792 CC68 30              0     tsx
9793 CC69 E7 00           ..    stab 00,x
9794 CC6B F6 00 08        ...   ldab 0008
9795 CC6E 4F              O     clra
9796 CC6F BD FE 16        ...   jsr fe16             ;jump2
9797 CC72 00 01 00 07     .     ; array data for jump2
9798 CC76 CD 7A           .     ; if 0008 == 9, clr 0008, 002c. else inc 0008, send #00 to coin mech
9799 CC78 CC 88           ..    ; if 0017&#1 sp=>0076, else sp=>0040, then same as above
9800 CC7A CC A2           ..    ; if 0017&#1 0076+=sp<<4, else 0040+=sp<<4, then same as above
9801 CC7C CC CA           ..    ; if 0017&#1 0076+=sp<<8, else 0040+=sp<<8, then same as above
9802 CC7E CC EE           ..    ; if 0017&#1 0076+=sp<<16, else 0040+=sp<16, then same as above
9803 CC80 CD 19           ..    ; 0baa = sp, then same as above
9804 CC82 CD 21           .     ; 0baa = sp<<4, then same as above
9805 CC83 CD 30           !.    ; 0013 = sp, then same as above
9806 CC85 CD 38           0     ; read byte & #01,
9807 ;
9808 CC88 F6 00 17        ...   ldab 0017
9809 CC8B C4 01           ..    andb #01
9810 CC8D 27 09           '.    beq 09       ; to cc98
9811 CC8F 30              0     tsx
9812 CC90 E6 00           ..    ldab 00,x
9813 CC92 4F              O     clra
9814 CC93 FD 00 76        ..v   std 0076
9815 CC96 20 07            .    bra 07       ; to cc9f
9816 CC98 30              0     tsx
9817 CC99 E6 00           ..    ldab 00,x
9818 CC9B 4F              O     clra
9819 CC9C FD 00 40        ..@   std 0040
9820 CC9F 7E CD 7A        ~.z   jmp cd7a             ;goto57
9821 ;
9822 CCA2 F6 00 17        ...   ldab 0017
9823 CCA5 C4 01           ..    andb #01
9824 CCA7 27 10           '.    beq 10       ; to ccb9
9825 CCA9 30              0     tsx
9826 CCAA E6 00           ..    ldab 00,x
9827 CCAC 4F              O     clra
9828 CCAD 05              .     asld
9829 CCAE 05              .     asld
9830 CCAF 05              .     asld
9831 CCB0 05              .     asld
9832 CCB1 F3 00 76        ..v   addd 0076
9833 CCB4 FD 00 76        ..v   std 0076
9834 CCB7 20 0E            .    bra 0e       ; to ccc7
9835 CCB9 30              0     tsx
9836 CCBA E6 00           ..    ldab 00,x
9837 CCBC 4F              O     clra
9838 CCBD 05              .     asld
9839 CCBE 05              .     asld
9840 CCBF 05              .     asld
9841 CCC0 05              .     asld
9842 CCC1 F3 00 40        ..@   addd 0040
9843 CCC4 FD 00 40        ..@   std 0040
9844 CCC7 7E CD 7A        ~.z   jmp cd7a             ;goto57
9845 ;
9846 CCCA F6 00 17        ...   ldab 0017
9847 CCCD C4 01           ..    andb #01
9848 CCCF 27 0E           '.    beq 0e       ; to ccdf
9849 CCD1 30              0     tsx
9850 CCD2 E6 00           ..    ldab 00,x
9851 CCD4 4F              O     clra
9852 CCD5 17              .     tba
9853 CCD6 5F              _     clrb
9854 CCD7 F3 00 76        ..v   addd 0076
9855 CCDA FD 00 76        ..v   std 0076
9856 CCDD 20 0C            .    bra 0c       ; to cceb
9857 CCDF 30              0     tsx
9858 CCE0 E6 00           ..    ldab 00,x
9859 CCE2 4F              O     clra
9860 CCE3 17              .     tba
9861 CCE4 5F              _     clrb
9862 CCE5 F3 00 40        ..@   addd 0040
9863 CCE8 FD 00 40        ..@   std 0040
9864 CCEB 7E CD 7A        ~.z   jmp cd7a             ;goto57
9865 ;
9866 CCEE F6 00 17        ...   ldab 0017
9867 CCF1 C4 01           ..    andb #01
9868 CCF3 27 12           '.    beq 12     ; to cd07
9869 CCF5 30              0     tsx
9870 CCF6 E6 00           ..    ldab 00,x
9871 CCF8 4F              O     clra
9872 CCF9 17              .     tba
9873 CCFA 48              H     asla
9874 CCFB 48              H     asla
9875 CCFC 48              H     asla
9876 CCFD 48              H     asla
9877 CCFE 5F              _     clrb
9878 CCFF F3 00 76        ..v   addd 0076
9879 CD02 FD 00 76        ..v   std 0076
9880 CD05 20 10            .    bra 10     ; to cd17
9881 CD07 30              0     tsx
9882 CD08 E6 00           ..    ldab 00,x
9883 CD0A 4F              O     clra
9884 CD0B 17              .     tba
9885 CD0C 48              H     asla
9886 CD0D 48              H     asla
9887 CD0E 48              H     asla
9888 CD0F 48              H     asla
9889 CD10 5F              _     clrb
9890 CD11 F3 00 40        ..@   addd 0040
9891 CD14 FD 00 40        ..@   std 0040
9892 CD17 20 61            a    bra 61
9893 ;
9894 CD19 30              0     tsx
9895 CD1A E6 00           ..    ldab 00,x
9896 CD1C F7 0B AA        ...   stab 0baa
9897 CD1F 20 59            Y    bra 59 ; to cd7a - goto57
9898 ;
9899 CD21 30              0     tsx
9900 CD22 E6 00           ..    ldab 00,x
9901 CD24 58              X     aslb
9902 CD25 58              X     aslb
9903 CD26 58              X     aslb
9904 CD27 58              X     aslb
9905 CD28 FB 0B AA        ...   addb 0baa
9906 CD2B F7 0B AA        ...   stab 0baa
9907 CD2E 20 4A            J    bra 4a ; to cd7a - goto57
9908 ;
9909 CD30 30              0     tsx
9910 CD31 E6 00           ..    ldab 00,x
9911 CD33 F7 00 13        ...   stab 0013
9912 CD36 20 42            B    bra 42 ; to cd7a - goto57
9913 ;
9914 CD38 F6 10 2F        ../   ldab 102f    ; read SCI data
9915 CD3B C4 01           ..    andb #01
9916 CD3D 27 08           '.    beq 08          ; to cd47
9917 CD3F CE 00 21        ..!   ldx #0021
9918 CD42 1C 00 40        ...   bset 00,x, #40
9919 CD45 20 06            .    bra 06          ; to cd4d
9920 CD47 CE 00 21        ..!   ldx #0021
9921 CD4A 1D 00 40        ...   bclr 00,x, #40
9922 ;
9923 CD4D F6 00 17        ...   ldab 0017
9924 CD50 C4 01           ..    andb #01
9925 CD52 27 17           '.    beq 17     ; to cd6b
9926 CD54 F6 0B AA        ...   ldab 0baa
9927 CD57 4F              O     clra
9928 CD58 37              7     pshb
9929 CD59 36              6     psha
9930 CD5A FC 00 76        ..v   ldd 0076
9931 CD5D BD FB BA        ...   jsr fbba             ;jump38 - multiply?
9932 CD60 FD 00 76        ..v   std 0076     ; 0076 *= 0baa
9933 CD63 CE 00 17        ...   ldx #0017
9934 CD66 1D 00 01        ...   bclr 00,x, #01
9935 CD69 20 0F            .    bra 0f       ;goto57 - send byte & exit
9936 CD6B F6 0B AA        ...   ldab 0baa
9937 CD6E 4F              O     clra
9938 CD6F 37              7     pshb
9939 CD70 36              6     psha
9940 CD71 FC 00 40        ..@   ldd 0040
9941 CD74 BD FB BA        ...   jsr fbba             ;jump38 - multiply?
9942 CD77 FD 00 40        ..@   std 0040     ; 0040 *= 0baa
9943 goto57:  ; sends the byte, clearing the counter if its the 8th byte
9944 CD7A F6 00 08        ...   ldab 0008
9945 CD7D C1 09           ..    cmpb #09
9946 CD7F 26 08           &.    bne 08
9947 CD81 7F 00 2C        ..,   clr 002c
9948 CD84 7F 00 08        ...   clr 0008
9949 CD87 20 03            .    bra 03
9950 CD89 7C 00 08        |..   inc 0008
9951 CD8C 5F              _     clrb
9952 CD8D 4F              O     clra
9953 CD8E BD C7 E7        ...   jsr c7e7             ;jump37 - send byte to coin mech
9954 CD91 7E CE 39        ~.9   jmp ce39             ;goto55 - exit
9955 goto56:
9956 CD94 F6 10 2F        ../   ldab 102f    ; read SCI data
9957 CD97 4F              O     clra
9958 CD98 BD FE 32        ..2   jsr fe32             ;jump25
9959 CD9B CD B1 00 31     ...1  ; 49 "1"
9960 CD9F CD DB 00 01     ....  ; 50 "2"
9961 CDA3 CE 20 00 01     . ..  ; 51 "3"
9962 CDA7 CE 28 00 05     .(..  ; 56 "8"
9963 CDAB CE 34 FF C8     .4..  ; 0
9964 CDAF 00 00           ..    ; end of array data
9965 CDB1 F6 00 21        ..!   ldab 0021
9966 CDB4 2C 08           ,.    bge 08
9967 CDB6 CC 00 80        ...   ldd #0080
9968 CDB9 BD C7 E7        ...   jsr c7e7             ;jump37 - send byte to coin mech
9969 CDBC 20 1B            .    bra 1b
9970 CDBE 5F              _     clrb
9971 CDBF 4F              O     clra
9972 CDC0 BD C7 E7        ...   jsr c7e7             ;jump37 - send byte to coin mech
9973 CDC3 F6 00 1F        ...   ldab 001f
9974 CDC6 C4 08           ..    andb #08
9975 CDC8 27 0C           '.    beq 0c
9976 CDCA F6 0B C0        ...   ldab 0bc0
9977 CDCD C4 10           ..    andb #10     ; have link master price holding
9978 CDCF 27 05           '.    beq 05
9979 CDD1 7C 00 75        |.u   inc 0075
9980 CDD4 20 03            .    bra 03
9981 CDD6 7F 00 75        ..u   clr 0075
9982 CDD9 20 5E            ^    bra 5e
9983 CDDB F6 00 1D        ...   ldab 001d
9984 CDDE C4 02           ..    andb #02
9985 CDE0 27 07           '.    beq 07
9986 CDE2 F6 00 19        ...   ldab 0019
9987 CDE5 C4 08           ..    andb #08
9988 CDE7 26 19           &.    bne 19
9989 CDE9 CC 00 FE        ...   ldd #00fe
9990 CDEC BD C7 E7        ...   jsr c7e7             ;jump37 - send #fe to coin mech
9991 CDEF F6 00 1F        ...   ldab 001f
9992 CDF2 C4 08           ..    andb #08
9993 CDF4 27 0A           '.    beq 0a
9994 CDF6 F6 0B C0        ...   ldab 0bc0
9995 CDF9 C4 10           ..    andb #10     ; have link master price holding
9996 CDFB 27 03           '.    beq 03
9997 CDFD 7C 00 75        |.u   inc 0075
9998 CE00 20 1C            .    bra 1c
9999 CE02 FC 00 44        ..D   ldd 0044
10000 CE05 37              7     pshb
10001 CE06 36              6     psha
10002 CE07 F6 0B AA        ...   ldab 0baa
10003 CE0A 4F              O     clra
10004 CE0B 38              8     pulx
10005 CE0C 8F              .     xgdx
10006 CE0D 02              .     idiv
10007 CE0E 8F              .     xgdx
10008 CE0F BD C7 E7        ...   jsr c7e7             ;jump37 - send byte to coin mech
10009 CE12 CE 00 19        ...   ldx #0019
10010 CE15 1D 00 08        ...   bclr 00,x, #08
10011 CE18 CE 00 1F        ...   ldx #001f
10012 CE1B 1C 00 08        ...   bset 00,x, #08
10013 CE1E 20 19            .    bra 19
10014 CE20 CE 00 1D        ...   ldx #001d
10015 CE23 1D 00 02        ...   bclr 00,x, #02
10016 CE26 20 11            .    bra 11
10017 CE28 C6 01           ..    ldab #01
10018 CE2A F7 00 08        ...   stab 0008
10019 CE2D 5F              _     clrb
10020 CE2E 4F              O     clra
10021 CE2F BD C7 E7        ...   jsr c7e7             ;jump37 - send byte to coin mech
10022 CE32 20 05            .    bra 05
10023 CE34 5F              _     clrb
10024 CE35 4F              O     clra
10025 CE36 BD C7 E7        ...   jsr c7e7             ;jump37 - send byte to coin mech
10026 goto55:
10027 CE39 20 0B            .    bra 0b       ; to ce46 (exit)
10028 goto54: ; just swallow a byte?
10029 CE3B F6 10 2E        ...   ldab 102e    ; SCI Status
10030 CE3E 30              0     tsx
10031 CE3F E7 00           ..    stab 00,x    ; store into stack variable
10032 CE41 F6 10 2F        ../   ldab 102f    ; read SCI data
10033 CE44 E7 00           ..    stab 00,x
10034 goto47:
10035 CE46 31              1     ins
10036 CE47 3B              ;     rti
10037
10038 jump48:
10039 ;
10040 CE48 F6 0B C4        ...   ldab 0bc4
10041 CE4B F1 0B C5        ...   cmpb 0bc5
10042 CE4E 25 53           %S    bcs 53     ; if 0bc4 < 0bc5 to cea3
10043 CE50 F6 0B C5        ...   ldab 0bc5
10044 CE53 F1 0B C6        ...   cmpb 0bc6
10045 CE56 25 4B           %K    bcs 4b     ; if 0bc5 < 0bc6 to cea3
10046 ; so here we have 0bc6 < 0bc5 < 0bc4
10047 CE58 F6 0B C4        ...   ldab 0bc4
10048 CE5B 4F              O     clra
10049 CE5C C3 0B C7        ...   addd #0bc7
10050 CE5F 8F              .     xgdx
10051 CE60 E6 00           ..    ldab 00,x
10052 CE62 4F              O     clra
10053 CE63 FD 0B DD        ...   std 0bdd
10054 CE66 F6 0B C5        ...   ldab 0bc5
10055 CE69 4F              O     clra
10056 CE6A C3 0B C7        ...   addd #0bc7
10057 CE6D 8F              .     xgdx
10058 CE6E E6 00           ..    ldab 00,x
10059 CE70 4F              O     clra
10060 CE71 FD 0B DF        ...   std 0bdf
10061 CE74 F6 0B C6        ...   ldab 0bc6
10062 CE77 4F              O     clra
10063 CE78 C3 0B C7        ...   addd #0bc7
10064 CE7B 8F              .     xgdx
10065 CE7C E6 00           ..    ldab 00,x
10066 CE7E 4F              O     clra
10067 CE7F FD 0B E1        ...   std 0be1
10068 CE82 C6 01           ..    ldab #01
10069 CE84 F7 0B D7        ...   stab 0bd7
10070 CE87 C6 04           ..    ldab #04
10071 CE89 F7 0B D8        ...   stab 0bd8
10072 CE8C C6 02           ..    ldab #02
10073 CE8E F7 0B D9        ...   stab 0bd9
10074 CE91 C6 20           .     ldab #20
10075 CE93 F7 0B DA        ...   stab 0bda
10076 CE96 C6 08           ..    ldab #08
10077 CE98 F7 0B DB        ...   stab 0bdb
10078 CE9B C6 10           ..    ldab #10
10079 CE9D F7 0B DC        ...   stab 0bdc
10080 CEA0 7E D0 66        ~.f   jmp d066             ;goto58 - multiply & exit
10081 ;
10082 CEA3 F6 0B C4        ...   ldab 0bc4
10083 CEA6 F1 0B C6        ...   cmpb 0bc6
10084 CEA9 25 53           %S    bcs 53     ; if 0bc4 < 0bc6 to cefe
10085 CEAB F6 0B C6        ...   ldab 0bc6
10086 CEAE F1 0B C5        ...   cmpb 0bc5
10087 CEB1 25 4B           %K    bcs 4b     ; if 0bc6 < 0bc5 to cefe
10088 ; so here we have 0bc5 < 0bc6 < 0bc4
10089 CEB3 F6 0B C4        ...   ldab 0bc4
10090 CEB6 4F              O     clra
10091 CEB7 C3 0B C7        ...   addd #0bc7
10092 CEBA 8F              .     xgdx
10093 CEBB E6 00           ..    ldab 00,x
10094 CEBD 4F              O     clra
10095 CEBE FD 0B DD        ...   std 0bdd
10096 CEC1 F6 0B C6        ...   ldab 0bc6
10097 CEC4 4F              O     clra
10098 CEC5 C3 0B C7        ...   addd #0bc7
10099 CEC8 8F              .     xgdx
10100 CEC9 E6 00           ..    ldab 00,x
10101 CECB 4F              O     clra
10102 CECC FD 0B DF        ...   std 0bdf
10103 CECF F6 0B C5        ...   ldab 0bc5
10104 CED2 4F              O     clra
10105 CED3 C3 0B C7        ...   addd #0bc7
10106 CED6 8F              .     xgdx
10107 CED7 E6 00           ..    ldab 00,x
10108 CED9 4F              O     clra
10109 CEDA FD 0B E1        ...   std 0be1
10110 CEDD C6 01           ..    ldab #01
10111 CEDF F7 0B D7        ...   stab 0bd7
10112 CEE2 C6 02           ..    ldab #02
10113 CEE4 F7 0B D8        ...   stab 0bd8
10114 CEE7 C6 04           ..    ldab #04
10115 CEE9 F7 0B D9        ...   stab 0bd9
10116 CEEC C6 20           .     ldab #20
10117 CEEE F7 0B DA        ...   stab 0bda
10118 CEF1 C6 10           ..    ldab #10
10119 CEF3 F7 0B DB        ...   stab 0bdb
10120 CEF6 C6 08           ..    ldab #08
10121 CEF8 F7 0B DC        ...   stab 0bdc
10122 CEFB 7E D0 66        ~.f   jmp d066             ;goto58 - multiply and exit
10123 ;
10124 CEFE F6 0B C5        ...   ldab 0bc5
10125 CF01 F1 0B C4        ...   cmpb 0bc4
10126 CF04 25 53           %S    bcs 53    ; if 0bc5 < 0bc4 to cf59
10127 CF06 F6 0B C4        ...   ldab 0bc4
10128 CF09 F1 0B C6        ...   cmpb 0bc6
10129 CF0C 25 4B           %K    bcs 4b    ; if 0bc4 < 0bc6 to cf59
10130 ; so here we have 0bc6 < 0bc4 < 0bc5
10131 CF0E F6 0B C5        ...   ldab 0bc5
10132 CF11 4F              O     clra
10133 CF12 C3 0B C7        ...   addd #0bc7
10134 CF15 8F              .     xgdx
10135 CF16 E6 00           ..    ldab 00,x
10136 CF18 4F              O     clra
10137 CF19 FD 0B DD        ...   std 0bdd
10138 CF1C F6 0B C4        ...   ldab 0bc4
10139 CF1F 4F              O     clra
10140 CF20 C3 0B C7        ...   addd #0bc7
10141 CF23 8F              .     xgdx
10142 CF24 E6 00           ..    ldab 00,x
10143 CF26 4F              O     clra
10144 CF27 FD 0B DF        ...   std 0bdf
10145 CF2A F6 0B C6        ...   ldab 0bc6
10146 CF2D 4F              O     clra
10147 CF2E C3 0B C7        ...   addd #0bc7
10148 CF31 8F              .     xgdx
10149 CF32 E6 00           ..    ldab 00,x
10150 CF34 4F              O     clra
10151 CF35 FD 0B E1        ...   std 0be1
10152 CF38 C6 04           ..    ldab #04
10153 CF3A F7 0B D7        ...   stab 0bd7
10154 CF3D C6 01           ..    ldab #01
10155 CF3F F7 0B D8        ...   stab 0bd8
10156 CF42 C6 02           ..    ldab #02
10157 CF44 F7 0B D9        ...   stab 0bd9
10158 CF47 C6 08           ..    ldab #08
10159 CF49 F7 0B DA        ...   stab 0bda
10160 CF4C C6 20           .     ldab #20
10161 CF4E F7 0B DB        ...   stab 0bdb
10162 CF51 C6 10           ..    ldab #10
10163 CF53 F7 0B DC        ...   stab 0bdc
10164 CF56 7E D0 66        ~.f   jmp d066             ;goto58 - multiply and exit
10165 ;
10166 CF59 F6 0B C5        ...   ldab 0bc5
10167 CF5C F1 0B C6        ...   cmpb 0bc6
10168 CF5F 25 53           %S    bcs 53     ; if 0bc5 < 0bc6 to cfb4
10169 CF61 F6 0B C6        ...   ldab 0bc6
10170 CF64 F1 0B C4        ...   cmpb 0bc4
10171 CF67 25 4B           %K    bcs 4b     ; if 0bc6 < 0bc4 to cfb4
10172 ; so here we have 0bc4 < 0bc6 < 0bc5
10173 CF69 F6 0B C5        ...   ldab 0bc5
10174 CF6C 4F              O     clra
10175 CF6D C3 0B C7        ...   addd #0bc7
10176 CF70 8F              .     xgdx
10177 CF71 E6 00           ..    ldab 00,x
10178 CF73 4F              O     clra
10179 CF74 FD 0B DD        ...   std 0bdd
10180 CF77 F6 0B C6        ...   ldab 0bc6
10181 CF7A 4F              O     clra
10182 CF7B C3 0B C7        ...   addd #0bc7
10183 CF7E 8F              .     xgdx
10184 CF7F E6 00           ..    ldab 00,x
10185 CF81 4F              O     clra
10186 CF82 FD 0B DF        ...   std 0bdf
10187 CF85 F6 0B C4        ...   ldab 0bc4
10188 CF88 4F              O     clra
10189 CF89 C3 0B C7        ...   addd #0bc7
10190 CF8C 8F              .     xgdx
10191 CF8D E6 00           ..    ldab 00,x
10192 CF8F 4F              O     clra
10193 CF90 FD 0B E1        ...   std 0be1
10194 CF93 C6 04           ..    ldab #04
10195 CF95 F7 0B D7        ...   stab 0bd7
10196 CF98 C6 02           ..    ldab #02
10197 CF9A F7 0B D8        ...   stab 0bd8
10198 CF9D C6 01           ..    ldab #01
10199 CF9F F7 0B D9        ...   stab 0bd9
10200 CFA2 C6 08           ..    ldab #08
10201 CFA4 F7 0B DA        ...   stab 0bda
10202 CFA7 C6 10           ..    ldab #10
10203 CFA9 F7 0B DB        ...   stab 0bdb
10204 CFAC C6 20           .     ldab #20
10205 CFAE F7 0B DC        ...   stab 0bdc
10206 CFB1 7E D0 66        ~.f   jmp d066             ;goto58 - multiply and exit
10207 ;
10208 CFB4 F6 0B C6        ...   ldab 0bc6
10209 CFB7 F1 0B C4        ...   cmpb 0bc4
10210 CFBA 25 52           %R    bcs 52    ; if 0bc6 < 0bc4 to d00e
10211 CFBC F6 0B C4        ...   ldab 0bc4
10212 CFBF F1 0B C5        ...   cmpb 0bc5
10213 CFC2 25 4A           %J    bcs 4a    ; if 0bc4 < 0bc5 to d00e
10214 ; so here we have 0bc5 < 0bc4 < 0bc6
10215 CFC4 F6 0B C6        ...   ldab 0bc6
10216 CFC7 4F              O     clra
10217 CFC8 C3 0B C7        ...   addd #0bc7
10218 CFCB 8F              .     xgdx
10219 CFCC E6 00           ..    ldab 00,x
10220 CFCE 4F              O     clra
10221 CFCF FD 0B DD        ...   std 0bdd
10222 CFD2 F6 0B C4        ...   ldab 0bc4
10223 CFD5 4F              O     clra
10224 CFD6 C3 0B C7        ...   addd #0bc7
10225 CFD9 8F              .     xgdx
10226 CFDA E6 00           ..    ldab 00,x
10227 CFDC 4F              O     clra
10228 CFDD FD 0B DF        ...   std 0bdf
10229 CFE0 F6 0B C5        ...   ldab 0bc5
10230 CFE3 4F              O     clra
10231 CFE4 C3 0B C7        ...   addd #0bc7
10232 CFE7 8F              .     xgdx
10233 CFE8 E6 00           ..    ldab 00,x
10234 CFEA 4F              O     clra
10235 CFEB FD 0B E1        ...   std 0be1
10236 CFEE C6 02           ..    ldab #02
10237 CFF0 F7 0B D7        ...   stab 0bd7
10238 CFF3 C6 01           ..    ldab #01
10239 CFF5 F7 0B D8        ...   stab 0bd8
10240 CFF8 C6 04           ..    ldab #04
10241 CFFA F7 0B D9        ...   stab 0bd9
10242 CFFD C6 10           ..    ldab #10
10243 CFFF F7 0B DA        ...   stab 0bda
10244 D002 C6 20           .     ldab #20
10245 D004 F7 0B DB        ...   stab 0bdb
10246 D007 C6 08           ..    ldab #08
10247 D009 F7 0B DC        ...   stab 0bdc
10248 D00C 20 58            X    bra 58      ;goto58 - multiply and exit
10249 ;
10250 ; we know that 0bc4 < 0bc5 < 0bc6
10251 D00E F6 0B C6        ...   ldab 0bc6
10252 D011 F1 0B C5        ...   cmpb 0bc5
10253 D014 25 50           %P    bcs 50
10254 D016 F6 0B C5        ...   ldab 0bc5
10255 D019 F1 0B C4        ...   cmpb 0bc4
10256 D01C 25 48           %H    bcs 48
10257 D01E F6 0B C6        ...   ldab 0bc6
10258 D021 4F              O     clra
10259 D022 C3 0B C7        ...   addd #0bc7
10260 D025 8F              .     xgdx
10261 D026 E6 00           ..    ldab 00,x
10262 D028 4F              O     clra
10263 D029 FD 0B DD        ...   std 0bdd
10264 D02C F6 0B C5        ...   ldab 0bc5
10265 D02F 4F              O     clra
10266 D030 C3 0B C7        ...   addd #0bc7
10267 D033 8F              .     xgdx
10268 D034 E6 00           ..    ldab 00,x
10269 D036 4F              O     clra
10270 D037 FD 0B DF        ...   std 0bdf
10271 D03A F6 0B C4        ...   ldab 0bc4
10272 D03D 4F              O     clra
10273 D03E C3 0B C7        ...   addd #0bc7
10274 D041 8F              .     xgdx
10275 D042 E6 00           ..    ldab 00,x
10276 D044 4F              O     clra
10277 D045 FD 0B E1        ...   std 0be1
10278 D048 C6 02           ..    ldab #02
10279 D04A F7 0B D7        ...   stab 0bd7
10280 D04D C6 04           ..    ldab #04
10281 D04F F7 0B D8        ...   stab 0bd8
10282 D052 C6 01           ..    ldab #01
10283 D054 F7 0B D9        ...   stab 0bd9
10284 D057 C6 10           ..    ldab #10
10285 D059 F7 0B DA        ...   stab 0bda
10286 D05C C6 08           ..    ldab #08
10287 D05E F7 0B DB        ...   stab 0bdb
10288 D061 C6 20           .     ldab #20
10289 D063 F7 0B DC        ...   stab 0bdc   ;goto58 - multiply and exit
10290 ;
10291 goto58:
10292 D066 F6 0B AA        ...   ldab 0baa
10293 D069 4F              O     clra
10294 D06A 37              7     pshb
10295 D06B 36              6     psha
10296 D06C FC 0B DD        ...   ldd 0bdd
10297 D06F BD FB BA        ...   jsr fbba             ;jump38 - multiply?
10298 D072 FD 0B DD        ...   std 0bdd
10299 D075 F6 0B AA        ...   ldab 0baa
10300 D078 4F              O     clra
10301 D079 37              7     pshb
10302 D07A 36              6     psha
10303 D07B FC 0B DF        ...   ldd 0bdf
10304 D07E BD FB BA        ...   jsr fbba             ;jump38 - multiply?
10305 D081 FD 0B DF        ...   std 0bdf
10306 D084 F6 0B AA        ...   ldab 0baa
10307 D087 4F              O     clra
10308 D088 37              7     pshb
10309 D089 36              6     psha
10310 D08A FC 0B E1        ...   ldd 0be1
10311 D08D BD FB BA        ...   jsr fbba             ;jump38 - multiply?
10312 D090 FD 0B E1        ...   std 0be1
10313 D093 39              9     rts
10314
10315 jump66:
10316 ; initializes a big bunch of variables
10317 D094 34              4     des
10318 ; for i=0
10319 D095 30              0     tsx
10320 D096 6F 00           o.    clr 00,x
10321 ; while i <= 10
10322 D098 30              0     tsx
10323 D099 E6 00           ..    ldab 00,x
10324 D09B C1 10           ..    cmpb #10
10325 D09D 24 1B           $.    bcc 1b        ; to d0ba
10326 ; read memloc of b0c3+i
10327 D09F 30              0     tsx
10328 D0A0 E6 00           ..    ldab 00,x
10329 D0A2 4F              O     clra
10330 D0A3 C3 B0 C3        ...   addd #b0c3
10331 D0A6 8F              .     xgdx
10332 D0A7 E6 00           ..    ldab 00,x
10333 D0A9 37              7     pshb
10334 ; put value of that location into 0bc7+i
10335 D0AA 30              0     tsx
10336 D0AB E6 01           ..    ldab 01,x
10337 D0AD 4F              O     clra
10338 D0AE C3 0B C7        ...   addd #0bc7
10339 D0B1 8F              .     xgdx
10340 D0B2 33              3     pulb
10341 D0B3 E7 00           ..    stab 00,x
10342 ; loop
10343 D0B5 30              0     tsx
10344 D0B6 6C 00           l.    inc 00,x
10345 D0B8 20 DE            .    bra de        ; to d098
10346 ;
10347 D0BA C6 05           ..    ldab #05
10348 D0BC F7 0B AA        ...   stab 0baa
10349 D0BF C6 04           ..    ldab #04
10350 D0C1 F7 00 13        ...   stab 0013
10351 D0C4 C6 01           ..    ldab #01
10352 D0C6 F7 0B C4        ...   stab 0bc4
10353 D0C9 C6 03           ..    ldab #03
10354 D0CB F7 0B C5        ...   stab 0bc5
10355 D0CE C6 02           ..    ldab #02
10356 D0D0 F7 0B C6        ...   stab 0bc6
10357 D0D3 CC 00 19        ...   ldd #0019    ; 25
10358 D0D6 FD 0B DD        ...   std 0bdd
10359 D0D9 CC 00 0A        ...   ldd #000a    ; 10
10360 D0DC FD 0B DF        ...   std 0bdf
10361 D0DF CC 00 05        ...   ldd #0005    ; 5
10362 D0E2 FD 0B E1        ...   std 0be1
10363 D0E5 C6 01           ..    ldab #01
10364 D0E7 F7 0B D7        ...   stab 0bd7
10365 D0EA C6 02           ..    ldab #02
10366 D0EC F7 0B D8        ...   stab 0bd8
10367 D0EF C6 04           ..    ldab #04
10368 D0F1 F7 0B D9        ...   stab 0bd9
10369 D0F4 C6 20           .     ldab #20
10370 D0F6 F7 0B DA        ...   stab 0bda
10371 D0F9 C6 10           ..    ldab #10
10372 D0FB F7 0B DB        ...   stab 0bdb
10373 D0FE C6 08           ..    ldab #08
10374 D100 F7 0B DC        ...   stab 0bdc
10375 D103 31              1     ins
10376 D104 39              9     rts
10377
10378 motors_off:
10379 ; turns all motors off
10380 D105 34              4     des
10381 D106 CE 00 1A        ...   ldx #001a
10382 D109 1C 00 80        ..    bset 00,x, #80
10383 D10C F6 00 1A        ..    ldab 001a
10384 D10F F7 30 00        .0.   stab 3000       ; motor rows off
10385 D112 C6 C8           ..    ldab #c8        ; loop of 200 - short delay
10386 D114 30              0     tsx
10387 D115 E7 00           ..    stab 00,x
10388 D117 30              0     tsx
10389 D118 E6 00           ..    ldab 00,x
10390 D11A C1 00           ..    cmpb #00
10391 D11C 23 05           #.    bls 05          ; to d123
10392 D11E 30              0     tsx
10393 D11F 6A 00           j.    dec 00,x
10394 D121 20 F4            .    bra f4          ; to d117
10395
10396 D123 CE 10 00        ...   ldx #1000
10397 D126 1C 00 40        ..    bset 00,x, #40  ; motor columns off
10398 D129 CE 00 14        ...   ldx #0014
10399 D12C 1D 00 20        ..    bclr 00,x, #20  ; motors col 8 off
10400 D12F CE 00 14        .     ldx #0014
10401 D132 1D 00 40        ..    bclr 00,x, #40  ; motors col 9 off
10402 D135 F6 00 14        ...   ldab 0014
10403 D138 F7 38 00        .8.   stab 3800       ; motors off
10404 D13B 31              1     ins
10405 D13C 39              9     rts
10406
10407 jump34:
10408 ; turn on the motor of the slot given in memory location 0006
10409 D13D F6 00 06        ...   ldab 0006
10410 D140 4F              O     clra
10411 D141 CE 00 0A        ...   ldx #000a
10412 D144 02              .     idiv
10413 D145 8F              .     xgdx
10414 D146 CB 01           ..    addb #01   ; we live in an odd world?
10415 D148 F7 00 5F        .._   stab 005f  ; slot number /10
10416 D14B F6 00 06        ...   ldab 0006
10417 D14E 4F              O     clra
10418 D14F CE 00 0A        ...   ldx #000a
10419 D152 02              .     idiv
10420 D153 F7 00 5E        ..^   stab 005e   ; slot number%10
10421 D156 F6 00 5E        ..^   ldab 005e
10422 D159 C1 05           ..    cmpb #05    ; there is not row 5
10423 D15B 23 03           #.    bls 03
10424 D15D 7A 00 5E        z.^   dec 005e    ; make it row 4
10425 D160 F6 00 5E        ..^   ldab 005e
10426 D163 4F              O     clra
10427 D164 C3 B1 23        ..#   addd #b123   ; powers of 2
10428 D167 8F              .     xgdx
10429 D168 E6 00           ..    ldab 00,x
10430 D16A 4F              O     clra
10431 D16B 37              7     pshb
10432 D16C 36              6     psha
10433 D16D F6 00 5F        .._   ldab 005f
10434 D170 4F              O     clra
10435 D171 C3 B1 23        ..#   addd #b123   ; powers of 2
10436 D174 8F              .     xgdx
10437 D175 E6 00           ..    ldab 00,x
10438 D177 4F              O     clra
10439 D178 17              .     tba
10440 D179 5F              _     clrb
10441 D17A 30              0     tsx
10442 D17B E3 00           ..    addd 00,x
10443 D17D 38              8     pulx
10444 D17E FD 00 58        ..X   std 0058
10445 ;
10446 ; i=0
10447 D181 7F 00 1C        ...   clr 001c
10448 ; while i < 16, do
10449 D184 F6 00 1C        ...   ldab 001c
10450 D187 C1 10           ..    cmpb #10
10451 D189 24 37           $7    bcc 37         ; to d1c2
10452 D18B F6 00 58        ..X   ldab 0058
10453 D18E 2C 0E           ,.    bge 0e         ; to d19e
10454 ;
10455 D190 CE 00 14        ...   ldx #0014
10456 D193 1C 00 10        ...   bset 00,x, #10
10457 D196 F6 00 14        ...   ldab 0014
10458 D199 F7 38 00        .8.   stab 3800      ; set high motor serial data
10459 D19C 20 0C            .    bra 0c         ; to d1aa
10460 ;
10461 D19E CE 00 14        ...   ldx #0014
10462 D1A1 1D 00 10        ..    bclr 00,x, #10
10463 D1A4 F6 00 14        ...   ldab 0014
10464 D1A7 F7 38 00        .8.   stab 3800      ; set low motor serial data
10465 ;
10466 ; send a clock pulse
10467 D1AA CE 10 00        ...   ldx #1000
10468 D1AD 1C 00 20        ..    bset 00,x, #20
10469 D1B0 CE 10 00         .    ldx #1000
10470 D1B3 1D 00           ..    bclr 00,x, #20
10471 ;
10472 ; get the next bit ready to send
10473 D1B6 FC 00 58        .     ldd 0058
10474 D1B9 05              .     asld
10475 D1BA FD 00 58        ..X   std 0058
10476 D1BD 7C 00 1C        |..   inc 001c
10477 D1C0 20 C2            .    bra c2
10478 ; if this is column 8 (9 for pascal programmers ;)
10479 D1C2 F6 00 5F        .._   ldab 005f
10480 D1C5 C1 09           ..    cmpb #09
10481 D1C7 26 0E           &.    bne 0e         ; to d1d7
10482 D1C9 CE 00 14        ...   ldx #0014
10483 D1CC 1C 00 20        ...   bset 00,x, #20
10484 D1CF F6 00 14        .     ldab 0014
10485 D1D2 F7 38 00        .8.   stab 3800      ; say its column 8
10486 D1D5 20 13            .    bra 13         ; to d1ea
10487 ; if this is column 9 (denoted as 10)
10488 D1D7 F6 00 5F        .._   ldab 005f
10489 D1DA C1 0A           ..    cmpb #0a
10490 D1DC 26 0C           &.    bne 0c
10491 D1DE CE 00 14        ...   ldx #0014
10492 D1E1 1C 00 40        ..    bset 00,x, #40 ; say its column 9
10493 D1E4 F6 00 14        ...   ldab 0014
10494 D1E7 F7 38 00        .8.   stab 3800
10495 ; clear the motor clock
10496 D1EA CE 10 00        ...   ldx #1000
10497 D1ED 1D 00 40        ..    bclr 00,x, #40 ; motor clock line low
10498 ; clear motor row output enable
10499 D1F0 CE 00 1A        ...   ldx #001a
10500 D1F3 1D 00           ..    bclr 00,x, #80
10501 D1F6 F6 00 1A        ...   ldab 001a
10502 D1F9 F7 30 00        .0.   stab 3000      ; motor driver outputs enable
10503 D1FC 39              9     rts
10504
10505 jump90:
10506 D1FD CC 40 00        .@.   ldd #4000
10507 D200 37              7     pshb
10508 D201 36              6     psha
10509 D202 F6 00 06        ...   ldab 0006
10510 D205 4F              O     clra
10511 D206 05              .     asld
10512 D207 C3 08 00        ...   addd #0800
10513 D20A 38              8     pulx
10514 D20B 8F              .     xgdx
10515 D20C AA 00           ..    ora 00,x
10516 D20E EA 01           ..    orb 01,x
10517 D210 ED 00           ..    std 00,x
10518 D212 39              9     rts
10519
10520 jump45:
10521 D213 F6 00 1F        ...   ldab 001f
10522 D216 C4 04           ..    andb #04
10523 D218 26 12           &.    bne 12
10524 D21A F6 0B C0        ...   ldab 0bc0
10525 D21D C4 10           ..    andb #10     ; have link master price holding
10526 D21F 26 0B           &.    bne 0b
10527 D221 CE 00 00        ...   ldx #0000
10528 D224 3C              <     pshx
10529 D225 FC 00 44        ..D   ldd 0044
10530 D228 BD BE 9E        ...   jsr be9e             ;jump50 - write slot & price to screen?
10531 D22B 38              8     pulx
10532 D22C BD D3 11        ...   jsr d311             ;jump30 - test position exists
10533 D22F 83 00 00        ...   subd #0000
10534 D232 27 13           '.    beq 13
10535 D234 F6 00 06        ...   ldab 0006
10536 D237 BD D4 68        ..h   jsr d468             ;jump51 - lookup in 0800 table & and with 8000
10537 D23A 83 00 00        ...   subd #0000
10538 D23D 27 05           '.    beq 05
10539 D23F 8D BC           ..    bsr bc       ;jump90
10540 D241 BD D6 3C        ..<   jsr d63c             ;jump33
10541 D244 5F              _     clrb
10542 D245 4F              O     clra
10543 D246 39              9     rts
10544
10545 D247 BD D1 3D        ..=   jsr d13d             ;jump34 - motor on
10546 D24A C6 3C           .<    ldab #3c
10547 D24C F7 00 2E        ...   stab 002e
10548 D24F C6 41           .A    ldab #41
10549 D251 F7 00 31        ..1   stab 0031
10550 D254 CE 00 1B        ...   ldx #001b
10551 D257 1D 00 08        ...   bclr 00,x #08
10552 goto59:
10553 D25A F6 00 1B        ...   ldab 001b
10554 D25D C4 08           ..    andb #08
10555 D25F 26 22           &"    bne 22
10556 D261 F6 00 2E        ...   ldab 002e
10557 D264 C1 35           .5    cmpb #35
10558 D266 23 10           #.    bls 10
10559 D268 BD D5 70        ..p   jsr d570             ;jump35
10560 D26B 83 00 00        ...   subd #0000
10561 D26E 27 06           '.    beq 06
10562 D270 CE 00 1B        ...   ldx #001b
10563 D273 1C 00 08        ...   bset 00,x, #08
10564 D276 20 0B            .    bra 0b
10565 D278 BD D1 05        ...   jsr d105             ;motors_off
10566 D27B 8D 80           ..    bsr 80       ;jump90
10567 D27D BD D6 3C        ..<   jsr d63c             ;jump33
10568 D280 5F              _     clrb
10569 D281 4F              O     clra
10570 D282 39              9     rts
10571
10572 D283 F6 00 2E        ...   ldab 002e
10573 D286 C1 36           .6    cmpb #36
10574 D288 24 56           $V    bcc 56       ; to d2e0
10575 D28A BD D5 F7        ...   jsr d5f7             ;jump108
10576 D28D 83 00 00        ...   subd #0000
10577 D290 27 4E           'N    beq 4e       ; to d2e0
10578 D292 BD D5 B0        ...   jsr d5b0             ;jump31
10579 D295 83 00 00        ...   subd #0000
10580 D298 27 46           'F    beq 46       ; to d2e0
10581 D29A BD D1 05        ...   jsr d105             ;motors_off
10582 D29D F6 00 2E        ...   ldab 002e
10583 D2A0 C1 32           .2    cmpb #32
10584 D2A2 22 07           ".    bhi 07
10585 D2A4 8D 6B           .k    bsr dest 6b
10586 D2A6 83 00 00        ...   subd #0000
10587 D2A9 27 0C           '.    beq 0c
10588 D2AB BD D1 05        ...   jsr d105             ;motors_off
10589 D2AE BD D1 FD        ...   jsr d1fd             ;jump90
10590 D2B1 BD D6 3C        ..<   jsr d63c             ;jump33
10591 D2B4 5F              _     clrb
10592 D2B5 4F              O     clra
10593 D2B6 39              9     rts
10594
10595 D2B7 F6 00 06        ...   ldab 0006
10596 D2BA 4F              O     clra
10597 D2BB C3 0E 06        ...   addd #0e06
10598 D2BE 8F              .     xgdx
10599 D2BF 6C 00           l.    inc 00,x
10600 D2C1 F6 00 06        ...   ldab 0006
10601 D2C4 4F              O     clra
10602 D2C5 C3 0E 06        ...   addd #0e06
10603 D2C8 8F              .     xgdx
10604 D2C9 E6 00           ..    ldab 00,x
10605 D2CB C1 64           .d    cmpb #64
10606 D2CD 23 0D           #.    bls 0d
10607 D2CF 5F              _     clrb
10608 D2D0 37              7     pshb
10609 D2D1 F6 00 06        ...   ldab 0006
10610 D2D4 4F              O     clra
10611 D2D5 C3 0E 06        ...   addd #0e06
10612 D2D8 8F              .     xgdx
10613 D2D9 33              3     pulb
10614 D2DA E7 00           ..    stab 00,x
10615 D2DC CC 00 01        ...   ldd #0001
10616 D2DF 39              9     rts
10617
10618 D2E0 F6 00 2E        ...   ldab 002e
10619 D2E3 26 14           &.    bne 14
10620 D2E5 BD D5 F7        ...   jsr d5f7             ;jump108
10621 D2E8 83 00 00        ...   subd #0000
10622 D2EB 26 0C           &.    bne 0c
10623 D2ED BD D1 05        ...   jsr d105             ;motors_off
10624 D2F0 BD D1 FD        ...   jsr d1fd             ;jump90
10625 D2F3 BD D6 26        ..&   jsr d626             ;jump91
10626 D2F6 5F              _     clrb
10627 D2F7 4F              O     clra
10628 D2F8 39              9     rts
10629
10630 D2F9 F6 00 2E        ...   ldab 002e
10631 D2FC 26 0C           &.    bne 0c
10632 D2FE BD D1 05        ...   jsr d105             ;motors_off
10633 D301 BD D1 FD        ...   jsr d1fd             ;jump90
10634 D304 BD D6 3C        ..<   jsr d63c             ;jump33
10635 D307 5F              _     clrb
10636 D308 4F              O     clra
10637 D309 39              9     rts
10638
10639 D30A 7E D2 5A        ~.Z   jmp d25a             ;goto59
10640 D30D BD E6 1B        ...   jsr e61b             ;jump4
10641 D310 39              9     rts
10642
10643 jump30:
10644 ; tests to see if a motor exists here
10645 D311 BD D1 3D        ..=   jsr d13d             ;jump34 - motor on
10646 D314 7F 00 1C        ...   clr 001c
10647 D317 7F 00 18        ...   clr 0018
10648 D31A F6 10 0A        ...   ldab 100a
10649 D31D C4 02           ..    andb #02     ; motor overvoltage sense
10650 D31F 27 13           '.    beq 13       ; to d334
10651 D321 7C 00 1C        |..   inc 001c
10652 D324 F6 00 1C        ...   ldab 001c
10653 D327 C1 FF           ..    cmpb #ff
10654 D329 26 07           &.    bne 07
10655 D32B BD D1 05        ...   jsr d105             ;motors_off
10656 D32E CC 00 01        ...   ldd #0001
10657 D331 39              9     rts
10658 ;
10659 D332 20 10            .    bra 10      ; to d344
10660 D334 7C 00 18        |..   inc 0018
10661 D337 F6 00 18        ...   ldab 0018
10662 D33A C1 08           ..    cmpb #08
10663 D33C 26 06           &.    bne 06       ; continue
10664 D33E BD D1 05        ...   jsr d105             ;motors_off
10665 D341 5F              _     clrb
10666 D342 4F              O     clra
10667 D343 39              9     rts
10668 D344 20 D4            .    bra d4        ; continue
10669
10670 jump43:
10671 D346 3C              <     pshx
10672 D347 3C              <     pshx
10673 D348 3C              <     pshx
10674 D349 34              4     des
10675 D34A F6 0E 6D        ..m   ldab 0e6d
10676 D34D C1 01           ..    cmpb #01
10677 D34F 27 03           '.    beq 03
10678 D351 7E D4 07        ~..   jmp d407             ;goto60
10679 D354 F6 00 06        ...   ldab 0006
10680 D357 4F              O     clra
10681 D358 05              .     asld
10682 D359 C3 08 C8        ...   addd #08c8
10683 D35C 8F              .     xgdx
10684 D35D EC 00           ..    ldd 00,x
10685 D35F C4 7F           ..    andb #7f
10686 D361 4F              O     clra
10687 D362 FD 0E 6B        ..k   std 0e6b
10688 D365 7F 00 06        ...   clr 0006
10689 goto62:
10690 D368 F6 00 06        ...   ldab 0006
10691 D36B C1 3E           .>    cmpb #3e
10692 D36D 26 03           &.    bne 03
10693 D36F 7E D4 02        ~..   jmp d402             ;goto61
10694 D372 BD 97 6F        ..o   jsr 976f             ;jump41
10695 D375 F6 00 06        ...   ldab 0006
10696 D378 4F              O     clra
10697 D379 05              .     asld
10698 D37A C3 08 C8        ...   addd #08c8
10699 D37D 8F              .     xgdx
10700 D37E EC 00           ..    ldd 00,x
10701 D380 C4 7F           ..    andb #7f
10702 D382 4F              O     clra
10703 D383 B3 0E 6B        ..k   subd 0e6b
10704 D386 26 77           &w    bne 77
10705 D388 F6 00 06        ...   ldab 0006
10706 D38B 4F              O     clra
10707 D38C CE 00 0A        ...   ldx #000a
10708 D38F 02              .     idiv
10709 D390 30              0     tsx
10710 D391 E7 01           ..    stab 01,x
10711 D393 E6 01           ..    ldab 01,x
10712 D395 C1 01           ..    cmpb #01
10713 D397 26 07           &.    bne 07
10714 D399 C6 40           .@    ldab #40
10715 D39B 30              0     tsx
10716 D39C E7 00           ..    stab 00,x
10717 D39E 20 0C            .    bra 0c
10718 D3A0 30              0     tsx
10719 D3A1 E6 01           ..    ldab 01,x
10720 D3A3 C1 02           ..    cmpb #02
10721 D3A5 26 05           &.    bne 05
10722 D3A7 C6 80           ..    ldab #80
10723 D3A9 30              0     tsx
10724 D3AA E7 00           ..    stab 00,x
10725 D3AC BD D1 3D        ..=   jsr d13d             ;jump34 - motor on
10726 D3AF 5F              _     clrb
10727 D3B0 4F              O     clra
10728 D3B1 30              0     tsx
10729 D3B2 ED 03           ..    std 03,x
10730 ;look at the home sensors for this row.  If it is 0, increment 03/04 else
10731 ;decrement 03/05.   Do this 10 times.
10732 D3B4 CC 00 0A        ...   ldd #000a
10733 D3B7 ED 05           ..    std 05,x
10734 loop:
10735 D3B9 30              0     tsx
10736 D3BA EC 05           ..    ldd 05,x
10737 D3BC 2F 23           /#    ble 23       ; to D3E1
10738 D3BE F6 28 00        .(.   ldab 2800    ;snack motor home sensors
10739 D3C1 30              0     tsx
10740 D3C2 E4 00           ..    andb 00,x
10741 D3C4 26 09           &.    bne d3cf
10742 D3C6 30              0     tsx
10743 D3C7 6C 04           l.    inc 04,x
10744 D3C9 26 0C           &.    bne 0c
10745 D3CB 6C 03           l.    inc 03,x
10746 D3CD 20 08            .    bra d3d7
10747 D3CF 30              0     tsx
10748 D3D0 EC 03           ..    ldd 03,x
10749 D3D2 83 00 01        ...   subd #0001
10750 D3D5 ED 03           ..    std 03,x
10751 D3D7 30              0     tsx
10752 D3D8 EC 05           ..    ldd 05,x
10753 D3DA 83 00 01        ...   subd #0001
10754 D3DD ED 05           ..    std 05,x
10755 D3DF 20 D8            .    bra loop     ;d3b9
10756 D3E1 BD D1 05        ...   jsr d105             ;motors_off - turn motors off
10757 D3E4 30              0     tsx
10758 D3E5 EC 03           ..    ldd 03,x
10759 D3E7 2C 16           ,.    bge 16
10760 D3E9 F6 00 06        ...   ldab 0006
10761 D3EC 8D 7A           .z    bsr dest 7a
10762 D3EE 83 00 00        ...   subd #0000
10763 D3F1 27 0C           '.    beq 0c
10764 D3F3 BD D5 61        ..a   jsr d561             ;jump42
10765 D3F6 83 00 00        ...   subd #0000
10766 D3F9 26 04           &.    bne 04
10767 D3FB 5F              _     clrb
10768 D3FC 4F              O     clra
10769 D3FD 20 64            d    bra 64
10770 D3FF 7E D3 68        ~.h   jmp d368             ;goto62
10771 goto61:
10772 D402 CC 00 01        ...   ldd #0001
10773 D405 20 5C            \    bra 5c
10774 goto60:
10775 D407 F6 00 06        ...   ldab 0006
10776 D40A C1 13           ..    cmpb #13
10777 D40C 27 1C           '.    beq 1c
10778 D40E F6 00 06        ...   ldab 0006
10779 D411 C1 1D           ..    cmpb #1d
10780 D413 27 15           '.    beq 15
10781 D415 F6 00 06        ...   ldab 0006
10782 D418 C1 27           .'    cmpb #27
10783 D41A 27 0E           '.    beq 0e
10784 D41C F6 00 06        ...   ldab 0006
10785 D41F C1 31           .1    cmpb #31
10786 D421 27 07           '.    beq 07
10787 D423 F6 00 06        ...   ldab 0006
10788 D426 C1 3B           .;    cmpb #3b
10789 D428 26 37           &7    bne 37
10790 D42A BD D1 3D        ..=   jsr d13d             ;jump34 - motor on
10791 D42D 7F 00 1C        ...   clr 001c
10792 D430 7F 00 18        ...   clr 0018
10793 D433 F6 18 00        ...   ldab 1800
10794 D436 C4 40           .@    andb #40
10795 D438 26 14           &.    bne 14
10796 D43A 7C 00 1C        |..   inc 001c
10797 D43D F6 00 1C        ...   ldab 001c
10798 D440 C1 FF           ..    cmpb #ff
10799 D442 26 08           &.    bne 08
10800 D444 BD D1 05        ...   jsr d105             ;motors_off
10801 D447 CC 00 01        ...   ldd #0001
10802 D44A 20 17            .    bra 17
10803 D44C 20 11            .    bra 11
10804 D44E 7C 00 18        |..   inc 0018
10805 D451 F6 00 18        ...   ldab 0018
10806 D454 C1 08           ..    cmpb #08
10807 D456 26 07           &.    bne 07
10808 D458 BD D1 05        ...   jsr d105             ;motors_off
10809 D45B 5F              _     clrb
10810 D45C 4F              O     clra
10811 D45D 20 04            .    bra 04
10812 D45F 20 D2            .    bra d2
10813 D461 5F              _     clrb
10814 D462 4F              O     clra
10815 D463 38              8     pulx
10816 D464 38              8     pulx
10817 D465 38              8     pulx
10818 D466 31              1     ins
10819 D467 39              9     rts
10820
10821 jump51:
10822 D468 37              7     pshb
10823 D469 30              0     tsx
10824 D46A E6 00           ..    ldab 00,x
10825 D46C 4F              O     clra
10826 D46D 05              .     asld
10827 D46E C3 08 00        ...   addd #0800
10828 D471 8F              .     xgdx
10829 D472 EC 00           ..    ldd 00,x
10830 D474 5F              _     clrb
10831 D475 84 80           ..    anda #80
10832 D477 31              1     ins
10833 D478 39              9     rts
10834
10835 jump67:
10836 D479 7F 00 1C        ...   clr 001c
10837 ; begin loop
10838 D47C F6 00 1C        ...   ldab 001c
10839 D47F C1 64           .d    cmpb #64   ; to 100
10840 D481 24 1A           $.    bcc 1a     ; to d49d
10841 D483 CC FF 7F        ...   ldd #ff7f
10842 D486 37              7     pshb
10843 D487 36              6     psha
10844 D488 F6 00 1C        ...   ldab 001c
10845 D48B 4F              O     clra
10846 D48C 05              .     asld
10847 D48D C3 08 C8        ...   addd #08c8
10848 D490 38              8     pulx
10849 D491 8F              .     xgdx
10850 D492 A4 00           ..    anda 00,x
10851 D494 E4 01           ..    andb 01,x
10852 D496 ED 00           ..    std 00,x
10853 D498 7C 00 1C        |..   inc 001c
10854 D49B 20 DF            .    bra df  ; to d47c
10855 D49D 7F 00 05        ...   clr 0005
10856 goto65: ; begin motor count loop
10857 D4A0 F6 00 05        ...   ldab 0005
10858 D4A3 C1 50           .P    cmpb #50     ; 80
10859 D4A5 25 03           %.    bcs 03
10860 D4A7 7E D5 60        ~.`   jmp d560             ;goto63 - exit
10861 D4AA F6 00 05        ...   ldab 0005
10862 D4AD 4F              O     clra
10863 D4AE C3 B0 D3        ...   addd #b0d3   ;motor lookup table
10864 D4B1 8F              .     xgdx
10865 D4B2 E6 00           ..    ldab 00,x
10866 D4B4 F7 00 06        ...   stab 0006
10867 D4B7 BD D3 11        ...   jsr d311             ;jump30 - test position exists
10868 D4BA 83 00 00        ...   subd #0000
10869 D4BD 27 03           '.    beq 03
10870 D4BF 7E D5 45        ~.E   jmp d545             ;goto64
10871 D4C2 F6 00 06        ...   ldab 0006
10872 D4C5 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
10873 D4C8 83 00 00        ...   subd #0000
10874 D4CB 26 78           &x    bne 78
10875 D4CD BD D5 B0        ...   jsr d5b0             ;jump31
10876 D4D0 83 00 00        ...   subd #0000
10877 D4D3 26 06           &.    bne 06
10878 D4D5 BD D1 FD        ...   jsr d1fd             ;jump90
10879 D4D8 BD D6 3C        ..<   jsr d63c             ;jump33
10880 D4DB CC 80 00        ...   ldd #8000
10881 D4DE 37              7     pshb
10882 D4DF 36              6     psha
10883 D4E0 F6 00 06        ...   ldab 0006
10884 D4E3 4F              O     clra
10885 D4E4 05              .     asld
10886 D4E5 C3 08 00        ...   addd #0800
10887 D4E8 38              8     pulx
10888 D4E9 8F              .     xgdx
10889 D4EA AA 00           ..    ora 00,x
10890 D4EC EA 01           ..    orb 01,x
10891 D4EE ED 00           ..    std 00,x
10892 D4F0 F6 00 06        ...   ldab 0006
10893 D4F3 4F              O     clra
10894 D4F4 05              .     asld
10895 D4F5 C3 08 00        ...   addd #0800
10896 D4F8 8F              .     xgdx
10897 D4F9 EC 00           ..    ldd 00,x
10898 D4FB C4 FF           ..    andb #ff
10899 D4FD 84 3F           .?    anda #3f
10900 D4FF 83 27 0F        .'.   subd #270f
10901 D502 23 1A           #.    bls 1a
10902 D504 BD D1 FD        ...   jsr d1fd             ;jump90
10903 D507 CC 01 00        ...   ldd #0100
10904 D50A 37              7     pshb
10905 D50B 36              6     psha
10906 D50C F6 00 06        ...   ldab 0006
10907 D50F 4F              O     clra
10908 D510 05              .     asld
10909 D511 C3 08 C8        ...   addd #08c8
10910 D514 38              8     pulx
10911 D515 8F              .     xgdx
10912 D516 AA 00           ..    ora 00,x
10913 D518 EA 01           ..    orb 01,x
10914 D51A ED 00           ..    std 00,x
10915 D51C 20 25            %    bra 25
10916 D51E F6 00 06        ...   ldab 0006
10917 D521 4F              O     clra
10918 D522 05              .     asld
10919 D523 C3 08 C8        ...   addd #08c8
10920 D526 8F              .     xgdx
10921 D527 EC 00           ..    ldd 00,x
10922 D529 C4 7F           ..    andb #7f
10923 D52B F7 00 06        ...   stab 0006
10924 D52E CC 00 80        ...   ldd #0080
10925 D531 37              7     pshb
10926 D532 36              6     psha
10927 D533 F6 00 06        ...   ldab 0006
10928 D536 4F              O     clra
10929 D537 05              .     asld
10930 D538 C3 08 C8        ...   addd #08c8
10931 D53B 38              8     pulx
10932 D53C 8F              .     xgdx
10933 D53D AA 00           ..    ora 00,x
10934 D53F EA 01           ..    orb 01,x
10935 D541 ED 00           ..    std 00,x
10936 D543 20 15            .    bra 15
10937 goto64: ; mark a motor position as valid?
10938 D545 CC 7F FF        ...   ldd #7fff
10939 D548 37              7     pshb
10940 D549 36              6     psha
10941 D54A F6 00 06        ...   ldab 0006
10942 D54D 4F              O     clra
10943 D54E 05              .     asld
10944 D54F C3 08 00        ...   addd #0800
10945 D552 38              8     pulx
10946 D553 8F              .     xgdx
10947 D554 A4 00           ..    anda 00,x
10948 D556 E4 01           ..    andb 01,x
10949 D558 ED 00           ..    std 00,x
10950 D55A 7C 00 05        |..   inc 0005
10951 D55D 7E D4 A0        ~..   jmp d4a0             ;goto65 - loop again
10952 goto63:
10953 D560 39              9     rts
10954
10955 jump42:
10956 D561 F6 00 06        ...   ldab 0006
10957 D564 4F              O     clra
10958 D565 05              .     asld
10959 D566 C3 08 00        ...   addd #0800
10960 D569 8F              .     xgdx
10961 D56A EC 00           ..    ldd 00,x
10962 D56C 5F              _     clrb
10963 D56D 84 40           .@    anda #40
10964 D56F 39              9     rts
10965
10966 ;Look at the home sensor for the row of this slot.  If it isn't 0 within 5
10967 ;loops, return 1 (fault?), else return 0 (OK?).
10968 ;005f is the row number in this routine.  scratch variable?
10969 ;looks like 0006 is the slot number.
10970 ;this is called twice
10971 jump35:
10972 D570 F6 00 06        ...   ldab 0006
10973 D573 4F              O     clra
10974 D574 CE 00 0A        ...   ldx #000a
10975 D577 02              .     idiv
10976 D578 F7 00 5F        .._   stab 005f
10977 D57B F6 00 5F        .._   ldab 005f
10978 D57E C1 05           ..    cmpb #05
10979 D580 23 03           #.    bls d585
10980 D582 7A 00 5F        z._   dec 005f
10981 D585 F6 00 5F        .._   ldab 005f    ;row number
10982 D588 4F              O     clra
10983 D589 C3 B1 23        ..#   addd #b123
10984 D58C 8F              .     xgdx
10985 D58D E6 00           ..    ldab 00,x    ;get bit for this row
10986 D58F F7 00 5E        ..^   stab 005e
10987 D592 7F 00 1C        ...   clr 001c
10988 loop:
10989 D595 F6 28 00        .(.   ldab 2800    ;snack motor home sensors
10990 D598 F4 00 5E        ..^   andb 005e    ;check home sensor for this row
10991 D59B 27 10           '.    beq d5ad
10992 D59D 7C 00 1C        |..   inc 001c
10993 D5A0 F6 00 1C        ...   ldab 001c
10994 D5A3 C1 05           ..    cmpb #05
10995 D5A5 26 04           &.    bne d5ab
10996 D5A7 CC 00 01        ...   ldd #0001
10997 D5AA 39              9     rts
10998
10999 D5AB 20 E8            .    bra loop     ;d595
11000 D5AD 5F              _     clrb
11001 D5AE 4F              O     clra
11002 D5AF 39              9     rts
11003
11004 ;This does almost the same - check the home sensor for this row (slot number
11005 ;is in 0006) up to 5 times.  If it is 1, return 0.  If it stays 0, return 0.
11006 ;(this is the reverse of the routine above).  But also check bit 0 of 100a.
11007 ;If it is ever 0, return 0.
11008 ;005f is the row number
11009 ;005e is the bit mask for this row
11010 jump31:
11011 D5B0 F6 00 06        ...   ldab 0006
11012 D5B3 4F              O     clra
11013 D5B4 CE 00 0A        ...   ldx #000a
11014 D5B7 02              .     idiv
11015 D5B8 F7 00 5F        .._   stab 005f
11016 D5BB F6 00 5F        .._   ldab 005f
11017 D5BE C1 05           ..    cmpb #05
11018 D5C0 23 03           #.    bls 03
11019 D5C2 7A 00 5F        z._   dec 005f
11020 D5C5 F6 00 5F        .._   ldab 005f
11021 D5C8 4F              O     clra
11022 D5C9 C3 B1 23        ..#   addd #b123
11023 D5CC 8F              .     xgdx
11024 D5CD E6 00           ..    ldab 00,x
11025 D5CF F7 00 5E        ..^   stab 005e
11026 D5D2 7F 00 1C        ...   clr 001c
11027 loop:
11028 D5D5 F6 28 00        .(.   ldab 2800    ;snack motor home sensors
11029 D5D8 F4 00 5E        ..^   andb 005e
11030 D5DB 26 17           &.    bne d5f4
11031 D5DD F6 10 0A        ...   ldab 100a
11032 D5E0 C4 01           ..    andb #01
11033 D5E2 27 10           '.    beq d5f4
11034 D5E4 7C 00 1C        |..   inc 001c
11035 D5E7 F6 00 1C        ...   ldab 001c
11036 D5EA C1 05           ..    cmpb #05
11037 D5EC 26 04           &.    bne d5f2
11038 D5EE CC 00 01        ...   ldd #0001
11039 D5F1 39              9     rts
11040
11041 D5F2 20 E1            .    bra loop     ;d5d5
11042 D5F4 5F              _     clrb
11043 D5F5 4F              O     clra
11044 D5F6 39              9     rts
11045
11046 jump108:
11047 D5F7 C6 07           ..    ldab #07
11048 D5F9 F7 00 1C        ...   stab 001c
11049 D5FC 7F 00 18        ...   clr 0018
11050 ;
11051 D5FF F6 00 1C        ...   ldab 001c
11052 D602 27 1E           '.    beq 1e        ; to d620
11053 D604 7A 00 1C        z..   dec 001c
11054 D607 F6 10 0A        ...   ldab 100a
11055 D60A C4 01           ..    andb #01
11056 D60C 26 12           &.    bne 12        ; to d620
11057 D60E C6 07           ..    ldab #07
11058 D610 F7 00 1C        ...   stab 001c
11059 D613 7C 00 18        |..   inc 0018
11060 D616 F6 00 18        ...   ldab 0018
11061 D619 C1 05           ..    cmpb #05
11062 D61B 26 03           &.    bne 03
11063 D61D 5F              _     clrb
11064 D61E 4F              O     clra
11065 D61F 39              9     rts
11066 ;
11067 D620 20 DD            .    bra dd        ; to d5ff
11068 D622 CC 00 01        ...   ldd #0001
11069 D625 39              9     rts
11070
11071 jump91:
11072 ; ORs memory location 08c8+(slotnum*2) with #0200
11073 D626 CC 02 00        ...   ldd #0200
11074 D629 37              7     pshb
11075 D62A 36              6     psha
11076 D62B F6 00 06        ...   ldab 0006
11077 D62E 4F              O     clra
11078 D62F 05              .     asld
11079 D630 C3 08 C8        ...   addd #08c8
11080 D633 38              8     pulx
11081 D634 8F              .     xgdx
11082 D635 AA 00           ..    ora 00,x
11083 D637 EA 01           ..    orb 01,x
11084 D639 ED 00           ..    std 00,x
11085 D63B 39              9     rts
11086
11087 jump33:
11088 ; ORs memory location 08c8+(slotnum*2) with #0400
11089 D63C CC 04 00        ...   ldd #0400
11090 D63F 37              7     pshb
11091 D640 36              6     psha
11092 D641 F6 00 06        ...   ldab 0006
11093 D644 4F              O     clra
11094 D645 05              .     asld
11095 D646 C3 08 C8        ...   addd #08c8
11096 D649 38              8     pulx
11097 D64A 8F              .     xgdx
11098 D64B AA 00           ..    ora 00,x
11099 D64D EA 01           ..    orb 01,x
11100 D64F ED 00           ..    std 00,x
11101 D651 39              9     rts
11102
11103 jump5:
11104 ; Sends a pulse to the bill acceptor
11105 D652 CE 00 1A        ...   ldx #001a
11106 D655 1C 00 01        ..    bset 00,x, #01
11107 D658 F6 00 1A        ...   ldab 001a
11108 D65B F7 30 00        .0.   stab 3000
11109 D65E CE 00 14        ...   ldx #0014
11110 D661 1D 00 01        ..    bclr 00,x, #01
11111 D664 F6 00 14        ...   ldab 0014
11112 D667 F7 38 00        .8.   stab 3800
11113 D66A 39              9     rts
11114
11115 jump107:
11116 D66B F6 0B C0        ...   ldab 0bc0
11117 D66E C4 08           ..    andb #08   ; we have a bill validator?
11118 D670 27 07           '.    beq 07     ; if not, to d679
11119 D672 F6 00 7D        ..}   ldab 007d
11120 D675 27 02           '.    beq 02
11121 D677 20 F9            .    bra f9     ; to d672 - wait for a bill?
11122 D679 F6 00 15        ...   ldab 0015
11123 D67C 2D 77           -w    blt 77     ; return
11124 D67E FC 00 40        ..@   ldd 0040
11125 D681 F3 00 3E        ..>   addd 003e
11126 D684 B3 00 0F        ...   subd 000f
11127 D687 24 4F           $O    bcc 4f
11128 D689 F6 0B C0        ...   ldab 0bc0
11129 D68C C4 01           ..    andb #01
11130 D68E 26 07           &.    bne 07
11131 D690 F6 0B C0        ...   ldab 0bc0
11132 D693 C4 04           ..    andb #04
11133 D695 27 0C           '.    beq 0c
11134 D697 CE 00 1A        ...   ldx #001a
11135 D69A 1D 00 01        ..    bclr 00,x, #01
11136 D69D F6 00 1A        ...   ldab 001a
11137 D6A0 F7 30 00        .0.   stab 3000    ; changer accept' line
11138 D6A3 F6 0B C0        ...   ldab 0bc0
11139 D6A6 C4 08           ..    andb #08
11140 D6A8 27 20           '     beq 20
11141 D6AA F6 0C D9        ...   ldab 0cd9
11142 D6AD C1 03           ..    cmpb #03
11143 D6AF 23 19           #.    bls 19
11144 D6B1 FC 0B EF        ...   ldd 0bef
11145 D6B4 83 00 64        ..d   subd #0064
11146 D6B7 25 11           %.    bcs 11
11147 D6B9 CE 00 14        ...   ldx #0014
11148 D6BC 1C 00 02        ..    bset 00,x, #02
11149 D6BF F6 00 14        ...   ldab 0014
11150 D6C2 F7 38 00        .8.   stab 3800    ; bill acceptor
11151 D6C5 BD C0 E0        ...   jsr c0e0             ;jump94
11152 D6C8 20 0C            .    bra 0c
11153 D6CA CE 00 14        ...   ldx #0014
11154 D6CD 1D 00 01        ..    bclr 00,x, #01
11155 D6D0 F6 00 14        ...   ldab 0014
11156 D6D3 F7 38 00        .8.   stab 3800
11157 D6D6 20 05            .    bra 05
11158 D6D8 BD D6 52        ..R   jsr d652             ;jump5
11159 D6DB 8D 53           .S    bsr dest 53
11160 D6DD F6 0B C0        ...   ldab 0bc0
11161 D6E0 C4 08           ..    andb #08
11162 D6E2 27 11           '.    beq 11
11163 D6E4 F6 0B C0        ...   ldab 0bc0
11164 D6E7 C4 40           .@    andb #40
11165 D6E9 27 0A           '.    beq 0a
11166 D6EB F6 00 15        ...   ldab 0015
11167 D6EE C4 01           ..    andb #01
11168 D6F0 27 03           '.    beq 03
11169 D6F2 BD C0 E0        ...   jsr c0e0             ;jump94
11170 D6F5 39              9     rts
11171
11172 jump106:
11173 ; puts (0cdb+0bdd)+(0cda*0bdf)+(0cd9*0be1) => 0bef
11174 ; calculates how much money we have in the coin mech!!!!
11175 D6F6 F6 0C DB        ...   ldab 0cdb
11176 D6F9 4F              O     clra
11177 D6FA 37              7     pshb
11178 D6FB 36              6     psha
11179 D6FC FC 0B DD        ...   ldd 0bdd
11180 D6FF BD FB BA        ...   jsr fbba             ;jump38 - multiply?
11181 D702 FD 0C EB        ...   std 0ceb     ; 0cdb * 0bdd => 0ceb
11182 D705 F6 0C DA        ...   ldab 0cda
11183 D708 4F              O     clra
11184 D709 37              7     pshb
11185 D70A 36              6     psha
11186 D70B FC 0B DF        ...   ldd 0bdf
11187 D70E BD FB BA        ...   jsr fbba             ;jump38 - multiply?
11188 D711 FD 0C ED        ...   std 0ced     ; 0cda * 0bdf => 0ced
11189 D714 F6 0C D9        ...   ldab 0cd9
11190 D717 4F              O     clra
11191 D718 37              7     pshb
11192 D719 36              6     psha
11193 D71A FC 0B E1        ...   ldd 0be1
11194 D71D BD FB BA        ...   jsr fbba             ;jump38 - multiply?
11195 D720 FD 0C EF        ...   std 0cef     ; 0cd9 * 0be1 => 0cef
11196 D723 FC 0C EB        ...   ldd 0ceb
11197 D726 F3 0C ED        ...   addd 0ced
11198 D729 F3 0C EF        ...   addd 0cef
11199 D72C FD 0B EF        ...   std 0bef     ; 0ceb+0ced+0cef => 0bef
11200 D72F 39              9     rts
11201
11202 jump202:
11203 D730 F6 00 15        ...   ldab 0015
11204 D733 C4 1F           ..    andb #1f
11205 D735 27 49           'I    beq 49
11206 D737 FC 00 40        ..@   ldd 0040
11207 D73A F3 00 3E        ..>   addd 003e
11208 D73D B3 0B EF        ...   subd 0bef
11209 D740 23 19           #.    bls 19
11210 D742 CC B0 6B        ..k   ldd #b06b    ; "NO CHANGE"
11211 D745 BD C0 BA        ...   jsr c0ba             ;display:
11212 D748 CC 01 F4        ...   ldd #01f4
11213 D74B BD E5 71        ..q   jsr e571             ;msdelay
11214 D74E BD C5 D3        ...   jsr c5d3             ;jump6
11215 D751 CC 01 F4        ...   ldd #01f4
11216 D754 BD E5 71        ..q   jsr e571             ;msdelay
11217 D757 CC 00 01        ...   ldd #0001
11218 D75A 39              9     rts
11219 ;
11220 D75B F6 00 15        ...   ldab 0015
11221 D75E C4 04           ..    andb #04
11222 D760 27 1E           '.    beq 1e
11223 D762 F6 0E 6E        ..n   ldab 0e6e
11224 D765 26 19           &.    bne 19
11225 D767 CC B0 76        ..v   ldd #b076    ; "NO FIVES"
11226 D76A BD C0 BA        ...   jsr c0ba             ;display:
11227 D76D CC 01 F4        ...   ldd #01f4
11228 D770 BD E5 71        ..q   jsr e571             ;msdelay
11229 D773 BD C5 D3        ...   jsr c5d3             ;jump6
11230 D776 CC 01 F4        ...   ldd #01f4
11231 D779 BD E5 71        ..q   jsr e571             ;msdelay
11232 D77C CC 00 01        ...   ldd #0001
11233 D77F 39              9     rts
11234 ;
11235 D780 5F              _     clrb
11236 D781 4F              O     clra
11237 D782 39              9     rts
11238
11239 jump44:
11240 D783 F6 00 06        ...   ldab 0006
11241 D786 4F              O     clra
11242 D787 CE 00 0A        ...   ldx #000a
11243 D78A 02              .     idiv
11244 D78B C1 04           ..    cmpb #04
11245 D78D 26 0E           &.    bne 0e
11246 D78F F6 00 1D        ...   ldab 001d
11247 D792 C4 04           ..    andb #04
11248 D794 27 03           '.    beq 03
11249 D796 5F              _     clrb
11250 D797 4F              O     clra
11251 D798 39              9     rts
11252
11253 D799 CC 00 01        ...   ldd #0001
11254 D79C 39              9     rts
11255
11256 D79D 5F              _     clrb
11257 D79E 4F              O     clra
11258 D79F 39              9     rts
11259
11260 is_invalid_slot:
11261 ; validates a slot number? (return 1 if invalid)
11262 ; let i = number on stack
11263 ; if i in [9, 69, 79, 89, 99], return 1
11264 ; if 0e6d!=1 return 0
11265 ; if i%10 not in [1,2] return 1
11266 ; if i < 11 return 1
11267 ; if i <= 62 return 0
11268 ; return 1
11269 D7A0 37              7     pshb
11270 D7A1 30              0     tsx
11271 D7A2 E6 00           ..    ldab 00,x
11272 D7A4 C1 09           ..    cmpb #09     ; 9
11273 D7A6 27 18           '.    beq 18       ; to d7c0 (returns 1)
11274 D7A8 E6 00           ..    ldab 00,x
11275 D7AA C1 45           .E    cmpb #45     ; 69
11276 D7AC 27 12           '.    beq 12       ; to d7c0 (returns 1)
11277 D7AE E6 00           ..    ldab 00,x
11278 D7B0 C1 4F           .O    cmpb #4f     ; 79
11279 D7B2 27 0C           '.    beq 0c       ; to d7c0 (returns 1)
11280 D7B4 E6 00           ..    ldab 00,x
11281 D7B6 C1 59           .Y    cmpb #59     ; 89
11282 D7B8 27 06           '.    beq 06       ; to d7c0 (returns 1)
11283 D7BA E6 00           ..    ldab 00,x
11284 D7BC C1 63           .c    cmpb #63     ; 99 (also returns 1)
11285 D7BE 26 05           &.    bne 05       ; to d7c5 if not equal
11286 D7C0 CC 00 01        ...   ldd #0001
11287 D7C3 20 38            8    bra 38       ; to d7fd (return 1)
11288 D7C5 F6 0E 6D        ..m   ldab 0e6d
11289 D7C8 C1 01           ..    cmpb #01
11290 D7CA 26 2F           &/    bne 2f       ;to d7fb (return 0)
11291 D7CC 30              0     tsx
11292 D7CD E6 00           ..    ldab 00,x
11293 D7CF 4F              O     clra
11294 D7D0 CE 00 0A        ...   ldx #000a
11295 D7D3 02              .     idiv
11296 D7D4 C1 01           ..    cmpb #01
11297 D7D6 27 11           '.    beq 11      ;to d7e9 if num%10==1
11298 D7D8 30              0     tsx
11299 D7D9 E6 00           ..    ldab 00,x
11300 D7DB 4F              O     clra
11301 D7DC CE 00 0A        ...   ldx #000a
11302 D7DF 02              .     idiv
11303 D7E0 C1 02           ..    cmpb #02
11304 D7E2 27 05           '.    beq 05      ;to d7e9 if num%10==2
11305 D7E4 CC 00 01        ...   ldd #0001
11306 D7E7 20 14            .    bra 14      ; to d7fd (return 1)
11307 D7E9 30              0     tsx
11308 D7EA E6 00           ..    ldab 00,x
11309 D7EC C1 0B           ..    cmpb #0b    ; < 11
11310 D7EE 25 06           %.    bcs 06      ; return 1
11311 D7F0 E6 00           ..    ldab 00,x
11312 D7F2 C1 3E           .>    cmpb #3e    ; <= 62
11313 D7F4 23 05           #.    bls 05      ; return 0
11314 D7F6 CC 00 01        ...   ldd #0001
11315 D7F9 20 02            .    bra 02
11316 D7FB 5F              _     clrb
11317 D7FC 4F              O     clra
11318 D7FD 31              1     ins
11319 D7FE 39              9     rts
11320
11321 jump80:
11322 D7FF 7F 00 1C        ...   clr 001c
11323 D802 F6 00 1C        ...   ldab 001c
11324 D805 4F              O     clra
11325 D806 B3 00 4D        ..M   subd 004d
11326 D809 24 05           $.    bcc 05
11327 D80B 7C 00 1C        |..   inc 001c
11328 D80E 20 F2            .    bra f2
11329 D810 F6 00 1C        ...   ldab 001c
11330 D813 4F              O     clra
11331 D814 05              .     asld
11332 D815 C3 0D 1F        ...   addd #0d1f
11333 D818 8F              .     xgdx
11334 D819 EC 00           ..    ldd 00,x
11335 D81B 83 FF FF        ...   subd #ffff
11336 D81E 26 10           &.    bne 10
11337 D820 5F              _     clrb
11338 D821 4F              O     clra
11339 D822 37              7     pshb
11340 D823 36              6     psha
11341 D824 F6 00 1C        ...   ldab 001c
11342 D827 4F              O     clra
11343 D828 05              .     asld
11344 D829 C3 0D 1F        ...   addd #0d1f
11345 D82C 38              8     pulx
11346 D82D 8F              .     xgdx
11347 D82E ED 00           ..    std 00,x
11348 D830 F6 00 1C        ...   ldab 001c
11349 D833 4F              O     clra
11350 D834 05              .     asld
11351 D835 C3 0D 1F        ...   addd #0d1f
11352 D838 8F              .     xgdx
11353 D839 6C 01           l.    inc 01,x
11354 D83B 26 02           &.    bne 02
11355 D83D 6C 00           l.    inc 00,x
11356 D83F 39              9     rts
11357
11358 jump105:
11359 D840 FC 00 44        ..D   ldd 0044
11360 D843 26 03           &.    bne 03
11361 D845 7E D8 D2        ~..   jmp d8d2             ;goto66
11362 D848 FC 00 44        ..D   ldd 0044
11363 D84B 37              7     pshb
11364 D84C 36              6     psha
11365 D84D 4F              O     clra
11366 D84E 5F              _     clrb
11367 D84F 37              7     pshb
11368 D850 36              6     psha
11369 D851 CC 0D EB        ...   ldd #0deb
11370 D854 BD FB DF        ...   jsr fbdf             ;jump46
11371 D857 31              1     ins
11372 D858 31              1     ins
11373 D859 FE 0D ED        ...   ldx 0ded
11374 D85C 3C              <     pshx
11375 D85D FC 0D EB        ...   ldd 0deb
11376 D860 37              7     pshb
11377 D861 36              6     psha
11378 D862 CE E1 00        ...   ldx #e100
11379 D865 3C              <     pshx
11380 D866 CC 05 F5        ...   ldd #05f5
11381 D869 37              7     pshb
11382 D86A 36              6     psha
11383 D86B 30              0     tsx
11384 D86C EC 06           ..    ldd 06,x
11385 D86E A3 02           ..    subd 02,x
11386 D870 EC 04           ..    ldd 04,x
11387 D872 E2 01           ..    sbcb 01,x
11388 D874 A2 00           ..    sbca 00,x
11389 D876 38              8     pulx
11390 D877 38              8     pulx
11391 D878 38              8     pulx
11392 D879 38              8     pulx
11393 D87A 25 11           %.    bcs 11
11394 D87C CE 1F 00        ...   ldx #1f00
11395 D87F 3C              <     pshx
11396 D880 CC FA 0A        ...   ldd #fa0a
11397 D883 37              7     pshb
11398 D884 36              6     psha
11399 D885 CC 0D EB        ...   ldd #0deb
11400 D888 BD FB DF        ...   jsr fbdf             ;jump46
11401 D88B 31              1     ins
11402 D88C 31              1     ins
11403 D88D FC 00 44        ..D   ldd 0044
11404 D890 37              7     pshb
11405 D891 36              6     psha
11406 D892 4F              O     clra
11407 D893 5F              _     clrb
11408 D894 37              7     pshb
11409 D895 36              6     psha
11410 D896 CC 0D E7        ...   ldd #0de7
11411 D899 BD FB DF        ...   jsr fbdf             ;jump46
11412 D89C 31              1     ins
11413 D89D 31              1     ins
11414 D89E FE 0D E9        ...   ldx 0de9
11415 D8A1 3C              <     pshx
11416 D8A2 FC 0D E7        ...   ldd 0de7
11417 D8A5 37              7     pshb
11418 D8A6 36              6     psha
11419 D8A7 CE E1 00        ...   ldx #e100    ; 57600
11420 D8AA 3C              <     pshx
11421 D8AB CC 05 F5        ...   ldd #05f5
11422 D8AE 37              7     pshb
11423 D8AF 36              6     psha
11424 D8B0 30              0     tsx
11425 D8B1 EC 06           ..    ldd 06,x
11426 D8B3 A3 02           ..    subd 02,x
11427 D8B5 EC 04           ..    ldd 04,x
11428 D8B7 E2 01           ..    sbcb 01,x
11429 D8B9 A2 00           ..    sbca 00,x
11430 D8BB 38              8     pulx
11431 D8BC 38              8     pulx
11432 D8BD 38              8     pulx
11433 D8BE 38              8     pulx
11434 D8BF 25 11           %.    bcs 11
11435 D8C1 CE 1F 00        ...   ldx #1f00
11436 D8C4 3C              <     pshx
11437 D8C5 CC FA 0A        ...   ldd #fa0a
11438 D8C8 37              7     pshb
11439 D8C9 36              6     psha
11440 D8CA CC 0D E7        ...   ldd #0de7
11441 D8CD BD FB DF        ...   jsr fbdf             ;jump46
11442 D8D0 31              1     ins
11443 D8D1 31              1     ins
11444 goto66:
11445 D8D2 39              9     rts
11446
11447 jump84:
11448 ;500 ms delay
11449 D8D3 7F 00 18        ...   clr 0018
11450 D8D6 F6 00 18        ...   ldab 0018
11451 D8D9 C1 10           ..    cmpb #10
11452 D8DB 24 0B           $.    bcc 0b
11453 D8DD CC 00 32        ..2   ldd #0032
11454 D8E0 BD E5 71        ..q   jsr e571             ;msdelay
11455 D8E3 7C 00 18        |..   inc 0018
11456 D8E6 20 EE            .    bra ee
11457 D8E8 39              9     rts
11458
11459 jump92:
11460 ; displays select other item
11461 D8E9 F6 00 2B        ..+   ldab 002b
11462 D8EC C1 00           ..    cmpb #00
11463 D8EE 26 18           &.    bne 18
11464 D8F0 CC AD 84        ...   ldd #ad84    ; "  PULSE  "
11465 D8F3 BD C0 BA        ...   jsr c0ba             ;display:
11466 D8F6 8D DB           ..    bsr dest db
11467 D8F8 CC AD 8F        ...   ldd #ad8f    ; "  EXTRA  "
11468 D8FB BD C0 BA        ...   jsr c0ba             ;display:
11469 D8FE 8D D3           ..    bsr dest d3
11470 D900 CC AD 9A        ...   ldd #ad9a    ; "SELECTION"
11471 D903 BD C0 BA        ...   jsr c0ba             ;display:
11472 D906 20 4E            N    bra 4e
11473 D908 C1 01           ..    cmpb #01
11474 D90A 26 18           &.    bne 18
11475 D90C CC AD 63        ..c   ldd #ad63    ; "  BITTE  "
11476 D90F BD C0 BA        ...   jsr c0ba             ;display:
11477 D912 8D BF           ..    bsr dest bf
11478 D914 CC AD 6E        ..n   ldd #ad6e    ; "  ANDERE  "
11479 D917 BD C0 BA        ...   jsr c0ba             ;display:
11480 D91A 8D B7           ..    bsr dest b7
11481 D91C CC AD 79        ..y   ldd #ad79    ; "   WAHL   "
11482 D91F BD C0 BA        ...   jsr c0ba             ;display:
11483 D922 20 32            2    bra 32
11484 D924 C1 02           ..    cmpb #02
11485 D926 26 18           &.    bne 18
11486 D928 CC AD 42        ..B   ldd #ad42    ; "FAITES"
11487 D92B BD C0 BA        ...   jsr c0ba             ;display:
11488 D92E 8D A3           ..    bsr dest a3
11489 D930 CC AD 4D        ..M   ldd #ad4d    ; "AURTE"
11490 D933 BD C0 BA        ...   jsr c0ba             ;display:
11491 D936 8D 9B           ..    bsr dest 9b
11492 D938 CC AD 58        ..X   ldd #ad58    ; "CHOIX"
11493 D92B BD C0 BA        ...   jsr c0ba             ;display:
11494 D93E 20 16            .    bra 16
11495 D940 CC AD 21        ..!   ldd #ad21    ; "SELECT "
11496 D943 BD C0 BA        ...   jsr c0ba             ;display:
11497 D946 8D 8B           ..    bsr dest 8b
11498 D948 CC AD 2C        ..,   ldd #ad2c    ; "OTHER"
11499 D94B BD C0 BA        ...   jsr c0ba             ;display:
11500 D94E 8D 83           ..    bsr dest 83
11501 D950 CC AD 37        ..7   ldd #ad37    ; "ITEM"
11502 D953 BD C0 BA        ...   jsr c0ba             ;display:
11503 D956 BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
11504 D959 39              9     rts
11505
11506 jump123:
11507 D95A F6 00 06        ...   ldab 0006
11508 D95D F1 0B AF        ...   cmpb 0baf
11509 D960 26 0D           &.    bne 0d       ; to d984
11510 D962 BD D7 FF        ...   jsr d7ff             ;jump80
11511 D965 F6 0B B4        ...   ldab 0bb4
11512 D968 F7 00 06        ...   stab 0006
11513 D96B 8D 55           .U    bsr 55       ;jump205
11514 D96D 20 52            R    bra 52       ; exit
11515 D96F F6 00 06        ...   ldab 0006
11516 D972 F1 0B AE        ...   cmpb 0bae
11517 D975 26 0D           &.    bne 0d       ; to d984
11518 D977 BD D7 FF        ...   jsr d7ff             ;jump80
11519 D97A F6 0B B3        ...   ldab 0bb3
11520 D97D F7 00 06        ...   stab 0006
11521 D980 8D 40           .@    bsr 40       ;jump205
11522 D982 20 3D            =    bra 3d
11523 D984 F6 00 06        ...   ldab 0006
11524 D987 F1 0B AD        ...   cmpb 0bad
11525 D98A 26 0D           &.    bne 0d
11526 D98C BD D7 FF        ...   jsr d7ff             ;jump80
11527 D98F F6 0B B2        ...   ldab 0bb2
11528 D992 F7 00 06        ...   stab 0006
11529 D995 8D 2B           .+    bsr 2b       ;jump205
11530 D997 20 28            (    bra 28
11531 D999 F6 00 06        ...   ldab 0006
11532 D99C F1 0B AC        ...   cmpb 0bac
11533 D99F 26 0D           &.    bne 0d
11534 D9A1 BD D7 FF        ...   jsr d7ff             ;jump80
11535 D9A4 F6 0B B1        ...   ldab 0bb1
11536 D9A7 F7 00 06        ...   stab 0006
11537 D9AA 8D 16           ..    bsr 16       ;jump205
11538 D9AC 20 13            .    bra 13
11539 D9AE F6 00 06        ...   ldab 0006
11540 D9B1 F1 0B AB        ...   cmpb 0bab
11541 D9B4 26 0B           &.    bne 0b
11542 D9B6 BD D7 FF        ...   jsr d7ff             ;jump80
11543 D9B9 F6 0B B0        ...   ldab 0bb0
11544 D9BC F7 00 06        ...   stab 0006
11545 D9BF 8D 01           ..    bsr 01       ;jump205
11546 D9C1 39              9     rts
11547
11548 jump205:
11549 D9C2 CC 03 E8        ...   ldd #03e8
11550 D9C5 BD E5 71        ..q   jsr e571             ;msdelay
11551 D9C8 BD D7 83        ...   jsr d783             ;jump44
11552 D9CB 83 00 00        ...   subd #0000
11553 D9CE 27 0B           '.    beq 0b
11554 D9D0 7F 00 06        ...   clr 0006
11555 D9D3 5F              _     clrb
11556 D9D4 4F              O     clra
11557 D9D5 FD 00 4D        ..M   std 004d
11558 D9D8 7E DA 63        ~.c   jmp da63             ;goto67
11559 D9DB BD D2 13        ...   jsr d213             ;jump45
11560 D9DE 83 00 00        ...   subd #0000
11561 D9E1 26 0A           &.    bne 0a
11562 D9E3 7F 00 06        ...   clr 0006
11563 D9E6 5F              _     clrb
11564 D9E7 4F              O     clra
11565 D9E8 FD 00 4D        ..M   std 004d
11566 D9EB 20 76            v    bra 76
11567 D9ED FC 0D 0B        ...   ldd 0d0b
11568 D9F0 83 FF FF        ...   subd #ffff
11569 D9F3 26 05           &.    bne 05
11570 D9F5 5F              _     clrb
11571 D9F6 4F              O     clra
11572 D9F7 FD 0D 0B        ...   std 0d0b
11573 D9FA FE 0D 0B        ...   ldx 0d0b
11574 D9FD 08              .     inx
11575 D9FE FF 0D 0B        ...   stx 0d0b
11576 DA01 F6 00 06        ...   ldab 0006
11577 DA04 4F              O     clra
11578 DA05 05              .     asld
11579 DA06 C3 08 C8        ...   addd #08c8
11580 DA09 8F              .     xgdx
11581 DA0A EC 00           ..    ldd 00,x
11582 DA0C C4 7F           ..    andb #7f
11583 DA0E 4F              O     clra
11584 DA0F FD 00 4D        ..M   std 004d
11585 DA12 F6 00 06        ...   ldab 0006
11586 DA15 4F              O     clra
11587 DA16 05              .     asld
11588 DA17 C3 08 00        ...   addd #0800
11589 DA1A 8F              .     xgdx
11590 DA1B EC 00           ..    ldd 00,x
11591 DA1D C4 FF           ..    andb #ff
11592 DA1F 84 3F           .?    anda #3f
11593 DA21 37              7     pshb
11594 DA22 36              6     psha
11595 DA23 4F              O     clra
11596 DA24 5F              _     clrb
11597 DA25 37              7     pshb
11598 DA26 36              6     psha
11599 DA27 CC 0D 17        ...   ldd #0d17
11600 DA2A BD FB DF        ...   jsr fbdf             ;jump46
11601 DA2D 31              1     ins
11602 DA2E 31              1     ins
11603 DA2F FE 0D 19        ...   ldx 0d19
11604 DA32 3C              <     pshx
11605 DA33 FC 0D 17        ...   ldd 0d17
11606 DA36 37              7     pshb
11607 DA37 36              6     psha
11608 DA38 CE E1 00        ...   ldx #e100
11609 DA3B 3C              <     pshx
11610 DA3C CC 05 F5        ...   ldd #05f5
11611 DA3F 37              7     pshb
11612 DA40 36              6     psha
11613 DA41 30              0     tsx
11614 DA42 EC 06           ..    ldd 06,x
11615 DA44 A3 02           ..    subd 02,x
11616 DA46 EC 04           ..    ldd 04,x
11617 DA48 E2 01           ..    sbcb 01,x
11618 DA4A A2 00           ..    sbca 00,x
11619 DA4C 38              8     pulx
11620 DA4D 38              8     pulx
11621 DA4E 38              8     pulx
11622 DA4F 38              8     pulx
11623 DA50 25 11           %.    bcs 11
11624 DA52 CE 1F 00        ...   ldx #1f00
11625 DA55 3C              <     pshx
11626 DA56 CC FA 0A        ...   ldd #fa0a
11627 DA59 37              7     pshb
11628 DA5A 36              6     psha
11629 DA5B CC 0D 17        ...   ldd #0d17
11630 DA5E BD FB DF        ...   jsr fbdf             ;jump46
11631 DA61 31              1     ins
11632 DA62 31              1     ins
11633 goto67:
11634 DA63 39              9     rts
11635
11636 jump122:
11637 DA64 FE 0B B9        ...   ldx 0bb9
11638 DA67 08              .     inx
11639 DA68 FF 0B B9        ...   stx 0bb9
11640 DA6B FC 0B B5        ...   ldd 0bb5
11641 DA6E CE 00 32        ..2   ldx #0032
11642 DA71 02              .     idiv
11643 DA72 8F              .     xgdx
11644 DA73 37              7     pshb
11645 DA74 36              6     psha
11646 DA75 CC 00 C3        ...   ldd #00c3    ; 195
11647 DA78 BD FB BA        ...   jsr fbba             ;jump38 - multiply?
11648 DA7B B3 0B B9        ...   subd 0bb9
11649 DA7E 24 05           $.    bcc 05
11650 DA80 5F              _     clrb
11651 DA81 4F              O     clra
11652 DA82 FD 0B B9        ...   std 0bb9
11653 DA85 FC 0B B9        ...   ldd 0bb9
11654 DA88 37              7     pshb
11655 DA89 36              6     psha
11656 DA8A CC 00 0A        ...   ldd #000a    ; 10
11657 DA8D BD FB BA        ...   jsr fbba             ;jump38 - multiply?
11658 DA90 37              7     pshb
11659 DA91 36              6     psha
11660 DA92 FC 0B B5        ...   ldd 0bb5
11661 DA95 CE 00 32        ..2   ldx #0032
11662 DA98 02              .     idiv
11663 DA99 8F              .     xgdx
11664 DA9A 38              8     pulx
11665 DA9B 8F              .     xgdx
11666 DA9C 02              .     idiv
11667 DA9D 8F              .     xgdx
11668 DA9E 37              7     pshb
11669 DA9F 36              6     psha
11670 DAA0 CC 00 0A        ...   ldd #000a    ; 10
11671 DAA3 BD FB BA        ...   jsr fbba             ;jump38 - multiply?
11672 DAA6 CE 00 0A        ...   ldx #000a
11673 DAA9 02              .     idiv
11674 DAAA 8F              .     xgdx
11675 DAAB FD 00 4A        ..J   std 004a
11676 DAAE FC 00 4A        ..J   ldd 004a
11677 DAB1 BD FE 32        ..2   jsr fe32             ;jump25
11678 DAB4 DA CA 00 6E     ...n  ; 110
11679 DAB8 DA CA 02 80     ....  ; 750
11680 DABC DA CA 01 C2     ....  ; 1200
11681 DAC0 DA CA 01 C2     ....  ; 1650
11682 DAC4 DB 43 F9 8E     ....  ; 0
11683 DAC8 00 00           ..    ; end of array data
11684 DACA FC 0D 07        ...   ldd 0d07
11685 DACD 83 FF FF        ...   subd #ffff
11686 DAD0 26 05           &.    bne 05
11687 DAD2 5F              _     clrb
11688 DAD3 4F              O     clra
11689 DAD4 FD 0D 07        ...   std 0d07
11690 DAD7 FE 0D 07        ...   ldx 0d07
11691 DADA 08              .     inx
11692 DADB FF 0D 07        ...   stx 0d07
11693 DADE F6 00 06        ...   ldab 0006
11694 DAE1 4F              O     clra
11695 DAE2 05              .     asld
11696 DAE3 C3 08 00        ...   addd #0800
11697 DAE6 8F              .     xgdx
11698 DAE7 EC 00           ..    ldd 00,x
11699 DAE9 C4 FF           ..    andb #ff
11700 DAEB 84 3F           .?    anda #3f
11701 DAED 37              7     pshb
11702 DAEE 36              6     psha
11703 DAEF 4F              O     clra
11704 DAF0 5F              _     clrb
11705 DAF1 37              7     pshb
11706 DAF2 36              6     psha
11707 DAF3 CC 0D 0F        ...   ldd #0d0f
11708 DAF6 BD FB DF        ...   jsr fbdf             ;jump46
11709 DAF9 31              1     ins
11710 DAFA 31              1     ins
11711 DAFB FE 0D 11        ...   ldx 0d11
11712 DAFE 3C              <     pshx
11713 DAFF FC 0D 0F        ...   ldd 0d0f
11714 DB02 37              7     pshb
11715 DB03 36              6     psha
11716 DB04 CE E1 00        ...   ldx #e100
11717 DB07 3C              <     pshx
11718 DB08 CC 05 F5        ...   ldd #05f5
11719 DB0B 37              7     pshb
11720 DB0C 36              6     psha
11721 DB0D 30              0     tsx
11722 DB0E EC 06           ..    ldd 06,x
11723 DB10 A3 02           ..    subd 02,x
11724 DB12 EC 04           ..    ldd 04,x
11725 DB14 E2 01           ..    sbcb 01,x
11726 DB16 A2 00           ..    sbca 00,x
11727 DB18 38              8     pulx
11728 DB19 38              8     pulx
11729 DB1A 38              8     pulx
11730 DB1B 38              8     pulx
11731 DB1C 25 11           %.    bcs 11
11732 DB1E CE 1F 00        ...   ldx #1f00
11733 DB21 3C              <     pshx
11734 DB22 CC FA 0A        ...   ldd #fa0a
11735 DB25 37              7     pshb
11736 DB26 36              6     psha
11737 DB27 CC 0D 0F        ...   ldd #0d0f
11738 DB2A BD FB DF        ...   jsr fbdf             ;jump46
11739 DB2D 31              1     ins
11740 DB2E 31              1     ins
11741 DB2F 5F              _     clrb
11742 DB30 4F              O     clra
11743 DB31 FD 00 44        ..D   std 0044
11744 DB34 CE 00 1B        ...   ldx #001b
11745 DB37 1D 00 01        ...   bclr 00,x, #01
11746 DB3A 7F 00 4F        ..O   clr 004f
11747 DB3D CE 00 11        ...   ldx #0011
11748 DB40 1C 00 10        ...   bset 00,x, #10
11749 DB43 39              9     rts
11750
11751 jump104:
11752 ; say thankyou?
11753 DB44 F6 00 2B        ..+   ldab 002b
11754 DB47 C1 00           ..    cmpb #00
11755 DB49 26 08           &.    bne 08
11756 DB4B CC AC DF        ...   ldd #acdf
11757 DB4E BD C0 BA        ...   jsr c0ba             ;display:
11758 DB51 20 1E            .    bra 1e
11759 DB53 C1 01           ..    cmpb #01
11760 DB55 26 08           &.    bne 08
11761 DB57 CC AC D4        ...   ldd #acd4    ; "CHANGE"
11762 DB5A BD C0 BA        ...   jsr c0ba             ;display:
11763 DB5D 20 12            .    bra 12
11764 DB5F C1 02           ..    cmpb #02
11765 DB61 26 08           &.    bne 08
11766 DB63 CC AC EA        ...   ldd #acea
11767 DB66 BD C0 BA        ...   jsr c0ba             ;display:
11768 DB69 20 06            .    bra 06
11769 DB6B CC AC D4        ...   ldd #acd4
11770 DB6E BD C0 BA        ...   jsr c0ba             ;display:
11771 DB71 BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
11772 DB74 CE 00 01        ...   ldx #0001
11773 DB77 3C              <     pshx
11774 DB78 FC 00 40        ..@   ldd 0040
11775 DB7B F3 00 3E        ..>   addd 003e
11776 DB7E BD BE 9E        ...   jsr be9e             ;jump50
11777 DB81 38              8     pulx
11778 DB82 FC 00 40        ..@   ldd 0040
11779 DB85 27 05           '.    beq 05
11780 DB87 BD C4 56        ..V   jsr c456             ;jump47
11781 DB8A 20 06            .    bra 06
11782 DB8C CC 02 58        ..X   ldd #0258
11783 DB8F BD E5 71        ..q   jsr e571             ;msdelay
11784 DB92 FC 00 3E        ..>   ldd 003e
11785 DB95 27 03           '.    beq 03
11786 DB97 BD C5 D3        ...   jsr c5d3             ;jump6
11787 DB9A F6 00 2B        ..+   ldab 002b
11788 DB9D C1 00           ..    cmpb #00
11789 DB9F 26 08           &.    bne 08
11790 DBA1 CC AD 16        ...   ldd #ad16    ; "GRACIAS"
11791 DBA4 BD C0 BA        ...   jsr c0ba             ;display:
11792 DBA7 20 1E            .    bra 1e
11793 DBA9 C1 01           ..    cmpb #01
11794 DBAB 26 08           &.    bne 08
11795 DBAD CC AD 0B        ...   ldd #ad0b    ; "DANKE"
11796 DBB0 BD C0 BA        ...   jsr c0ba             ;display:
11797 DBB3 20 12            .    bra 12
11798 DBB5 C1 02           ..    cmpb #02
11799 DBB7 26 08           &.    bne 08
11800 DBB9 CC AD 00        ...   ldd #ad00    ; "MERCI"
11801 DBBC BD C0 BA        ...   jsr c0ba             ;display:
11802 DBBF 20 06            .    bra 06
11803 DBC1 CC AC F5        ...   ldd #acf5    ; "THANKS"
11804 DBC4 BD C0 BA        ...   jsr c0ba             ;display:
11805 DBC7 BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
11806 DBCA 39              9     rts
11807
11808 jump121:
11809 DBCB F6 00 1B        ...   ldab 001b
11810 DBCE C4 01           ..    andb #01
11811 DBD0 26 03           &.    bne 03
11812 DBD2 7E DC 98        ~..   jmp dc98             ;goto68
11813 DBD5 F6 00 06        ...   ldab 0006
11814 DBD8 4F              O     clra
11815 DBD9 05              .     asld
11816 DBDA C3 08 C8        ...   addd #08c8
11817 DBDD 8F              .     xgdx
11818 DBDE EC 00           ..    ldd 00,x
11819 DBE0 84 08           ..    anda #08
11820 DBE2 26 03           &.    bne 03
11821 DBE4 7E DC 98        ~..   jmp dc98             ;goto68
11822 DBE7 BD D7 FF        ...   jsr d7ff             ;jump80
11823 DBEA CC 03 E8        ...   ldd #03e8
11824 DBED BD E5 71        ..q   jsr e571             ;msdelay
11825 DBF0 BD D3 46        ..F   jsr d346             ;jump43
11826 DBF3 83 00 00        ...   subd #0000
11827 DBF6 26 08           &.    bne 08
11828 DBF8 BD D7 83        ...   jsr d783             ;jump44
11829 DBFB 83 00 00        ...   subd #0000
11830 DBFE 27 17           '.    beq 17
11831 DC00 5F              _     clrb
11832 DC01 4F              O     clra
11833 DC02 FD 00 4D        ..M   std 004d
11834 DC05 FC 00 44        ..D   ldd 0044
11835 DC08 F3 0B B7        ...   addd 0bb7
11836 DC0B 04              .     lsrd
11837 DC0C F3 00 40        ..@   addd 0040
11838 DC0F B3 0B B7        ...   subd 0bb7
11839 DC12 FD 00 40        ..@   std 0040
11840 DC15 20 78            x    bra 78
11841 DC17 BD D2 13        ...   jsr d213             ;jump45
11842 DC1A 83 00 00        ...   subd #0000
11843 DC1D 26 17           &.    bne 17
11844 DC1F 5F              _     clrb
11845 DC20 4F              O     clra
11846 DC21 FD 00 4D        ..M   std 004d
11847 DC24 FC 00 44        ..D   ldd 0044
11848 DC27 F3 0B B7        ...   addd 0bb7
11849 DC2A 04              .     lsrd
11850 DC2B F3 00 40        ..@   addd 0040
11851 DC2E B3 0B B7        ...   subd 0bb7
11852 DC31 FD 00 40        ..@   std 0040
11853 DC34 20 59            Y    bra 59
11854 DC36 FC 0D 09        ...   ldd 0d09
11855 DC39 83 FF FF        ...   subd #ffff
11856 DC3C 26 05           &.    bne 05
11857 DC3E 5F              _     clrb
11858 DC3F 4F              O     clra
11859 DC40 FD 0D 09        ...   std 0d09
11860 DC43 FE 0D 09        ...   ldx 0d09
11861 DC46 08              .     inx
11862 DC47 FF 0D 09        ...   stx 0d09
11863 DC4A FC 0B B7        ...   ldd 0bb7
11864 DC4D 37              7     pshb
11865 DC4E 36              6     psha
11866 DC4F 4F              O     clra
11867 DC50 5F              _     clrb
11868 DC51 37              7     pshb
11869 DC52 36              6     psha
11870 DC53 CC 0D 13        ...   ldd #0d13
11871 DC56 BD FB DF        ...   jsr fbdf             ;jump46
11872 DC59 31              1     ins
11873 DC5A 31              1     ins
11874 DC5B FE 0D 15        ...   ldx 0d15
11875 DC5E 3C              <     pshx
11876 DC5F FC 0D 13        ...   ldd 0d13
11877 DC62 37              7     pshb
11878 DC63 36              6     psha
11879 DC64 CE E1 00        ...   ldx #e100
11880 DC67 3C              <     pshx
11881 DC68 CC 05 F5        ...   ldd #05f5
11882 DC6B 37              7     pshb
11883 DC6C 36              6     psha
11884 DC6D 30              0     tsx
11885 DC6E EC 06           ..    ldd 06,x
11886 DC70 A3 02           ..    subd 02,x
11887 DC72 EC 04           ..    ldd 04,x
11888 DC74 E2 01           ..    sbcb 01,x
11889 DC76 A2 00           ..    sbca 00,x
11890 DC78 38              8     pulx
11891 DC79 38              8     pulx
11892 DC7A 38              8     pulx
11893 DC7B 38              8     pulx
11894 DC7C 25 11           %.    bcs 11
11895 DC7E CE 1F 00        ...   ldx #1f00
11896 DC81 3C              <     pshx
11897 DC82 CC FA 0A        ...   ldd #fa0a
11898 DC85 37              7     pshb
11899 DC86 36              6     psha
11900 DC87 CC 0D 13        ...   ldd #0d13
11901 DC8A BD FB DF        ...   jsr fbdf             ;jump46
11902 DC8D 31              1     ins
11903 DC8E 31              1     ins
11904 DC8F CE 00 1B        ...   ldx #001b
11905 DC92 1D 00 01        ...   bclr 00,x, #01
11906 DC95 7F 00 4F        ..O   clr 004f
11907 goto68:
11908 DC98 F6 00 11        ...   ldab 0011
11909 DC9B C4 08           ..    andb #08
11910 DC9D 26 03           &.    bne 03
11911 DC9F BD D9 5A        ..Z   jsr d95a             ;jump123
11912 DCA2 39              9     rts
11913
11914 jump29:
11915 DCA3 CE 0B BC        ...   ldx #0bbc
11916 DCA6 1D 00 1C        ..    bclr 00,x, #1c
11917 DCA9 F6 0B BC        ..    ldab 0bbc
11918 DCAB C4 03           ...   andb #03
11919 DCAE 26 48           &H    bne 48
11920 DCB0 FC 0B BD        ...   ldd 0bbd
11921 DCB3 37              7     pshb
11922 DCB4 36              6     psha
11923 DCB5 4F              O     clra
11924 DCB6 5F              _     clrb
11925 DCB7 37              7     pshb
11926 DCB8 36              6     psha
11927 DCB9 CC 0D F7        ...   ldd #0df7
11928 DCBC BD FB DF        ...   jsr fbdf             ;jump46
11929 DCBF 31              1     ins
11930 DCC0 31              1     ins
11931 DCC1 FE 0D F9        ...   ldx 0df9
11932 DCC4 3C              <     pshx
11933 DCC5 FC 0D F7        ...   ldd 0df7
11934 DCC8 37              7     pshb
11935 DCC9 36              6     psha
11936 DCCA CE E1 00        ...   ldx #e100
11937 DCCD 3C              <     pshx
11938 DCCE CC 05 F5        ...   ldd #05f5  ; 100000000
11939 DCD1 37              7     pshb
11940 DCD2 36              6     psha
11941 DCD3 30              0     tsx
11942 DCD4 EC 06           ..    ldd 06,x
11943 DCD6 A3 02           ..    subd 02,x
11944 DCD8 EC 04           ..    ldd 04,x
11945 DCDA E2 01           ..    sbcb 01,x
11946 DCDC A2 00           ..    sbca 00,x
11947 DCDE 38              8     pulx
11948 DCDF 38              8     pulx
11949 DCE0 38              8     pulx
11950 DCE1 38              8     pulx
11951 DCE2 25 11           %.    bcs 11
11952 DCE4 CE 1F 00        ...   ldx #1f00
11953 DCE7 3C              <     pshx
11954 DCE8 CC FA 0A        ...   ldd #fa0a
11955 DCEB 37              7     pshb
11956 DCEC 36              6     psha
11957 DCED CC 0D F7        ...   ldd #0df7
11958 DCF0 BD FB DF        ...   jsr fbdf             ;jump46
11959 DCF3 31              1     ins
11960 DCF4 31              1     ins
11961 DCF5 7E DD D4        ~..   jmp ddd4             ;goto69
11962 DCF8 F6 0B BC        ...   ldab 0bbc
11963 DCFB C4 03           ..    andb #03
11964 DCFD C1 01           ..    cmpb #01
11965 DCFF 27 03           '.    beq 03
11966 DD01 7E DD D4        ~..   jmp ddd4             ;goto69
11967 DD04 F6 0B BC        ...   ldab 0bbc
11968 DD07 C4 E0           ..    andb #e0
11969 DD09 54              T     lsrb
11970 DD0A 54              T     lsrb
11971 DD0B 54              T     lsrb
11972 DD0C 54              T     lsrb
11973 DD0D 54              T     lsrb
11974 DD0E F7 0B BC        ...   stab 0bbc
11975 DD11 F6 0B BC        ...   ldab 0bbc
11976 DD14 F1 0B C4        ...   cmpb 0bc4
11977 DD17 26 33           &3    bne 33
11978 DD19 F6 0B D7        ...   ldab 0bd7
11979 DD1C C1 01           ..    cmpb #01
11980 DD1E 26 0A           &.    bne 0a
11981 DD20 7C 0C DB        |..   inc 0cdb
11982 DD23 C6 03           ..    ldab #03
11983 DD25 F7 00 48        ..H   stab 0048
11984 DD28 20 20                 bra 20
11985 DD2A F6 0B D8        ...   ldab 0bd8
11986 DD2D C1 01           ..    cmpb #01
11987 DD2F 26 0A           &.    bne 0a
11988 DD31 7C 0C DA        |..   inc 0cda
11989 DD34 C6 02           ..    ldab #02
11990 DD36 F7 00 48        ..H   stab 0048
11991 DD39 20 0F            .    bra 0f
11992 DD3B F6 0B D9        ...   ldab 0bd9
11993 DD3E C1 01           ..    cmpb #01
11994 DD40 26 08           &.    bne 08
11995 DD42 7C 0C D9        |..   inc 0cd9
11996 DD45 C6 01           ..    ldab #01
11997 DD47 F7 00 48        ..H   stab 0048
11998 DD4A 20 74            t    bra 74
11999 DD4C F6 0B BC        ...   ldab 0bbc
12000 DD4F F1 0B C5        ...   cmpb 0bc5
12001 DD52 26 33           &3    bne 33
12002 DD54 F6 0B D7        ...   ldab 0bd7
12003 DD57 C1 04           ..    cmpb #04
12004 DD59 26 0A           &.    bne 0a
12005 DD5B 7C 0C DB        |..   inc 0cdb
12006 DD5E C6 03           ..    ldab #03
12007 DD60 F7 00 48        ..H   stab 0048
12008 DD63 20 20                 bra 20
12009 DD65 F6 0B D8        ...   ldab 0bd8
12010 DD68 C1 04           ..    cmpb #04
12011 DD6A 26 0A           &.    bne 0a
12012 DD6C 7C 0C DA        |..   inc 0cda
12013 DD6F C6 02           ..    ldab #02
12014 DD71 F7 00 48        ..H   stab 0048
12015 DD74 20 0F            .    bra 0f
12016 DD76 F6 0B D9        ...   ldab 0bd9
12017 DD79 C1 04           ..    cmpb #04
12018 DD7B 26 08           &.    bne 08
12019 DD7D 7C 0C D9        |..   inc 0cd9
12020 DD80 C6 01           ..    ldab #01
12021 DD82 F7 00 48        ..H   stab 0048
12022 DD85 20 39            9    bra 39
12023 DD87 F6 0B BC        ...   ldab 0bbc
12024 DD8A F1 0B C6        ...   cmpb 0bc6
12025 DD8D 26 31           &1    bne 31
12026 DD8F F6 0B D7        ...   ldab 0bd7
12027 DD92 C1 02           ..    cmpb #02
12028 DD94 26 0A           &.    bne 0a
12029 DD96 7C 0C DB        |..   inc 0cdb
12030 DD99 C6 03           ..    ldab #03
12031 DD9B F7 00 48        ..H   stab 0048
12032 DD9E 20 20                 bra 20
12033 DDA0 F6 0B D8        ...   ldab 0bd8
12034 DDA3 C1 02           ..    cmpb #02
12035 DDA5 26 0A           &.    bne 0a
12036 DDA7 7C 0C DA        |..   inc 0cda
12037 DDAA C6 02           ..    ldab #02
12038 DDAC F7 00 48        ..H   stab 0048
12039 DDAF 20 0F            .    bra 0f
12040 DDB1 F6 0B D9        ...   ldab 0bd9
12041 DDB4 C1 02           ..    cmpb #02
12042 DDB6 26 08           &.    bne 08
12043 DDB8 7C 0C D9        |..   inc 0cd9
12044 DDBB C6 01           ..    ldab #01
12045 DDBD F7 00 48        ..H   stab 0048
12046 DDC0 F6 00 17        ...   ldab 0017
12047 DDC3 C4 08           ..    andb #08
12048 DDC5 26 0D           &.    bne 0d
12049 DDC7 F6 0B BC        ...   ldab 0bbc
12050 DDCA 26 08           &.    bne 08
12051 DDCC 7C 0C DC        |..   inc 0cdc
12052 DDCF C6 04           ..    ldab #04
12053 DDD1 F7 00 48        ..H   stab 0048
12054 goto69:
12055 DDD4 39              9     rts
12056
12057 jump120:
12058 DDD5 BD BE 69        ..i   jsr be69             ;displayreset
12059 DDD8 C6 03           ..    ldab #03
12060 DDDA F7 00 1C        ...   stab 001c
12061 DDDD F6 00 1C        ...   ldab 001c
12062 DDE0 C1 0D           ..    cmpb #0d
12063 DDE2 24 1C           $.    bcc 1c
12064 DDE4 F6 00 1C        ...   ldab 001c
12065 DDE7 4F              O     clra
12066 DDE8 C3 0C B9        ...   addd #0cb9
12067 DDEB 8F              .     xgdx
12068 DDEC E6 00           ..    ldab 00,x
12069 DDEE 37              7     pshb
12070 DDEF CC 0B 9C        ...   ldd #0b9c
12071 DDF2 F0 00 1C        ...   subb 001c
12072 DDF5 82 00           ..    sbca #00
12073 DDF7 8F              .     xgdx
12074 DDF8 33              3     pulb
12075 DDF9 E7 00           ..    stab 00,x
12076 DDFB 7C 00 1C        |..   inc 001c
12077 DDFE 20 DD            .    bra dd
12078 DE00 BD BE 10        ...   jsr be10             ;jump88
12079 DE03 C6 14           ..    ldab #14
12080 DE05 F7 00 2C        ..,   stab 002c
12081 DE08 39              9     rts
12082
12083 jump119:
12084 DE09 CC 0B 9A        ...   ldd #0b9a    ; machine id?
12085 DE0C BD C0 BA        ...   jsr c0ba             ;display:
12086 DE0F C6 14           ..    ldab #14
12087 DE11 F7 00 2C        ..,   stab 002c
12088 DE14 39              9     rts
12089
12090 jump118:
12091 DE15 F6 00 1B        ...   ldab 001b
12092 DE18 C4 01           ..    andb #01
12093 DE1A 26 03           &.    bne 03
12094 DE1C 7E DE A4        ~..   jmp dea4             ;goto70 - return
12095 DE1F F6 00 06        ...   ldab 0006
12096 DE22 4F              O     clra
12097 DE23 05              .     asld
12098 DE24 C3 08 C8        ...   addd #08c8
12099 DE27 8F              .     xgdx
12100 DE28 EC 00           ..    ldd 00,x
12101 DE2A 84 08           ..    anda #08
12102 DE2C 27 76           'v    beq 76
12103 DE2E F6 00 11        ...   ldab 0011
12104 DE31 C4 08           ..    andb #08
12105 DE33 26 33           &3    bne 33          ; to de68
12106 DE35 F6 00 06        ...   ldab 0006
12107 DE38 F1 0B AF        ...   cmpb 0baf
12108 DE3B 27 20           '     beq 20          ; to de5d
12109 DE3D F6 00 06        ...   ldab 0006
12110 DE40 F1 0B AE        ...   cmpb 0bae
12111 DE43 27 18           '.    beq 18          ; to de5d
12112 DE45 F6 00 06        ...   ldab 0006
12113 DE48 F1 0B AD        ...   cmpb 0bad
12114 DE4B 27 10           '.    beq 10          ; to de5d
12115 DE4D F6 00 06        ...   ldab 0006
12116 DE50 F1 0B AC        ...   cmpb 0bac
12117 DE53 27 08           '.    beq 08          ; to de5d
12118 DE55 F6 00 06        ...   ldab 0006
12119 DE58 F1 0B AB        ...   cmpb 0bab
12120 DE5B 26 0B           &.    bne 0b          ; to de68
12121 ;
12122 DE5D CE 00 1B        ...   ldx #001b
12123 DE60 1D 00 01        ...   bclr 00,x, #01
12124 DE63 7F 00 4F        ..O   clr 004f
12125 DE66 20 3C            <    bra 3c          ; return
12126 ;
12127 DE68 FC 00 44        ..D   ldd 0044
12128 DE6B B3 0B B7        ...   subd 0bb7
12129 DE6E 23 2B           #+    bls 2b          ; to de99 - return
12130 DE70 FC 00 40        ..@   ldd 0040
12131 DE73 F3 00 3E        ..>   addd 003e
12132 DE76 37              7     pshb
12133 DE77 36              6     psha
12134 DE78 FC 00 44        ..D   ldd 0044
12135 DE7B B3 0B B7        ...   subd 0bb7
12136 DE7E F3 00 44        ..D   addd 0044
12137 DE81 30              0     tsx
12138 DE82 A3 00           ..    subd 00,x
12139 DE84 31              1     ins
12140 DE85 31              1     ins
12141 DE86 22 13           ".    bhi 13        ; to de9b
12142 DE88 FC 0B B7        ...   ldd 0bb7
12143 DE8B 27 0E           '.    beq 0e        ; to de9b
12144 DE8D FC 00 44        ..D   ldd 0044
12145 DE90 B3 0B B7        ...   subd 0bb7
12146 DE93 F3 00 44        ..D   addd 0044
12147 DE96 FD 00 44        ..D   std 0044
12148 DE99 20 09            .    bra 09        ; return
12149 ;
12150 DE9B CE 00 1B        ...   ldx #001b
12151 DE9E 1D 00 01        ...   bclr 00,x, #01
12152 DEA1 7F 00 4F        ..O   clr 004f
12153 goto70:
12154 DEA4 39              9     rts
12155
12156 jump117:
12157 ; machine out of order display?
12158 DEA5 F6 00 2B        ..+   ldab 002b
12159 DEA8 C1 00           ..    cmpb #00
12160 DEAA 26 0D           &.    bne 0d
12161 DEAC CE 00 12        ...   ldx #0012
12162 DEAF 3C              <     pshx
12163 DEB0 CC AE 7E        ..~   ldd #ae7e
12164 DEB3 BD C0 2E        ...   jsr c02e             ;jump71
12165 DEB6 38              8     pulx
12166 DEB7 20 2D            -    bra 2d
12167 DEB9 C1 01           ..    cmpb #01
12168 DEBB 26 0D           &.    bne 0d
12169 DEBD CE 00 0F        ...   ldx #000f
12170 DEC0 3C              <     pshx
12171 DEC1 CC AE 6D        ..m   ldd #ae6d    ; something german
12172 DEC4 BD C0 2E        ...   jsr c02e             ;jump71
12173 DEC7 38              8     pulx
12174 DEC8 20 1C            .    bra 1c
12175 DECA C1 02           ..    cmpb #02
12176 DECC 26 0D           &.    bne 0d
12177 DECE CE 00 10        ...   ldx #0010
12178 DED1 3C              <     pshx
12179 DED2 CC AE 5B        ..[   ldd #ae5b    ; more german
12180 DED5 BD C0 2E        ...   jsr c02e             ;jump71
12181 DED8 38              8     pulx
12182 DED9 20 0B            .    bra 0b
12183 DEDB CE 00 15        ...   ldx #0015
12184 DEDE 3C              <     pshx
12185 DEDF CC AE 44        ..D   ldd #ae44    ; "MACHINE OUT OF ORDER"
12186 DEE2 BD C0 2E        ...   jsr c02e             ;jump71
12187 DEE5 38              8     pulx
12188 DEE6 39              9     rts
12189
12190 jump116:
12191 ; revolves around coinage
12192 DEE7 F6 0B C0        ...   ldab 0bc0
12193 DEEA C4 01           ..    andb #01    ; have a dumb mech
12194 DEEC 26 07           &.    bne 07      ; to def5
12195 DEEE F6 0B C0        ...   ldab 0bc0
12196 DEF1 C4 04           ..    andb #04    ; have a card reader
12197 DEF3 27 15           '.    beq 15      ; if not to df0a
12198 ; have dumb mech:
12199 DEF5 C6 FF           ..    ldab #ff
12200 DEF7 F7 0B BC        ...   stab 0bbc
12201 DEFA F6 00 15        ...   ldab 0015
12202 DEFD 2D 03           -.    blt 03       ; to df02
12203 DEFF BD C6 7D        ..}   jsr c67d             ;jump124 - chat to changer
12204 DF02 BD D6 6B        ..k   jsr d66b             ;jump107 - chat to bill acceptor
12205 DF05 BD DC A3        ...   jsr dca3             ;jump29
12206 DF08 20 25            %    bra 25       ; to df2f
12207 ; test the link master?
12208 DF0A F6 0B C0        ...   ldab 0bc0
12209 DF0D C4 02           ..    andb #02     ;have link master
12210 DF0F 27 1E           '.    beq 1e       ; to df2f
12211 DF11 F6 00 2F        ../   ldab 002f
12212 DF14 26 19           &.    bne 19       ; to df2f
12213 DF16 F6 00 1B        ...   ldab 001b
12214 DF19 C4 02           ..    andb #02
12215 DF1B 26 12           &.    bne 12       ; to df2f
12216 DF1D CC 00 FF        ...   ldd #00ff
12217 DF20 BD C7 E7        ...   jsr c7e7             ;jump37 - send to serial port
12218 DF23 CE 00 1B        ...   ldx #001b
12219 DF26 1C 00 02        ..    bset 00,x, #02
12220 DF29 CE 0B C1        ...   ldx #0bc1
12221 DF2C 1C 00 04        ..    bset 00,x, #04 ; set link powerup error bit
12222 ;
12223 DF2F F6 00 21        ..!   ldab 0021
12224 DF32 C4 20           .     andb #20
12225 DF34 27 07           '.    beq 07
12226 ;
12227 DF36 BD D6 52        ..R   jsr d652             ;jump5 - pulse bill acceptor
12228 DF39 BD DE A5        ...   jsr dea5             ;jump117 - machine out of order?
12229 DF3C 39              9     rts
12230 ;
12231 DF3D F6 00 4F        ..O   ldab 004f
12232 DF40 26 06           &.    bne 06
12233 DF42 CE 00 1B        ...   ldx #001b
12234 DF45 1D 00 01        ...   bclr 00,x, #01
12235 DF48 F6 00 25        ..%   ldab 0025
12236 DF4B 26 20           &     bne 20
12237 DF4D F6 00 1B        ...   ldab 001b
12238 DF50 C4 40           .@    andb #40
12239 DF52 27 19           '.    beq 19
12240 DF54 BD D6 52        ..R   jsr d652             ;jump5 - pulse bill acceptor
12241 DF57 FC 00 40        ..@   ldd 0040
12242 DF5A 26 05           &.    bne 05
12243 DF5C FC 00 3E        ..>   ldd 003e
12244 DF5F 27 03           '.    beq 03
12245 DF61 BD DB 44        ..D   jsr db44             ;jump104 - say thanks
12246 DF64 BD D6 6B        ..k   jsr d66b             ;jump107
12247 DF67 CE 00 1B        ...   ldx #001b
12248 DF6A 1D 00 40        ...   bclr 00,x, #40
12249 DF6D F6 00 2C        ..,   ldab 002c
12250 DF70 27 03           '.    beq 03
12251 DF72 7E E0 66        ~.f   jmp e066             ;goto71
12252 DF75 F6 00 34        ..4   ldab 0034
12253 DF78 26 0B           &.    bne 0b
12254 DF7A BD BE 69        ..i   jsr be69             ;displayreset
12255 DF7D C6 32           .2    ldab #32
12256 DF7F F7 00 34        ..4   stab 0034
12257 DF82 7E E0 63        ~.c   jmp e063             ;goto72
12258 DF85 FC 00 40        ..@   ldd 0040
12259 DF88 26 05           &.    bne 05
12260 DF8A FC 00 3E        ..>   ldd 003e
12261 DF8D 27 16           '.    beq 16
12262 DF8F CE 00 01        ...   ldx #0001
12263 DF92 3C              <     pshx
12264 DF93 FC 00 40        ..@   ldd 0040
12265 DF96 F3 00 3E        ..>   addd 003e
12266 DF99 BD BE 9E        ...   jsr be9e             ;jump50
12267 DF9C 38              8     pulx
12268 DF9D C6 05           ..    ldab #05
12269 DF9F F7 00 2C        ..,   stab 002c
12270 DFA2 7E E0 63        ~.c   jmp e063             ;goto72
12271 DFA5 F6 0C D9        ...   ldab 0cd9
12272 DFA8 C1 04           ..    cmpb #04
12273 DFAA 24 07           $.    bcc 07
12274 DFAC F6 0B C0        ...   ldab 0bc0
12275 DFAF C4 01           ..    andb #01    ; have a dumb mech
12276 DFB1 26 07           &.    bne 07
12277 DFB3 F6 00 21        ..!   ldab 0021
12278 DFB6 C4 40           .@    andb #40
12279 DFB8 27 43           'C    beq 43
12280 DFBA F6 00 2B        ..+   ldab 002b
12281 DFBD C1 00           ..    cmpb #00
12282 DFBF 26 0D           &.    bne 0d
12283 DFC1 CE 00 19        ...   ldx #0019
12284 DFC4 3C              <     pshx
12285 DFC5 CC AD E7        ...   ldd #ade7    ; "INTRODUZCA"
12286 DFC8 BD C0 2E        ...   jsr c02e             ;jump71
12287 DFCB 38              8     pulx
12288 DFCC 20 2D            -    bra 2d
12289 DFCE C1 01           ..    cmpb #01
12290 DFD0 26 0D           &.    bne 0d
12291 DFD2 CE 00 12        ...   ldx #0012
12292 DFD5 3C              <     pshx
12293 DFD6 CC AD D3        ...   ldd #add3    ; "NICT UEBERZAHLEN"
12294 DFD9 BD C0 2E        ...   jsr c02e             ;jump71
12295 DFDC 38              8     pulx
12296 DFDD 20 1C            .    bra 1c
12297 DFDF C1 02           ..    cmpb #02
12298 DFE1 26 0D           &.    bne 0d
12299 DFE3 CE 00 19        ...   ldx #0019
12300 DFE6 3C              <     pshx
12301 DFE7 CC AD B8        ...   ldd #adb8    ; "MONNAIE EXACT"
12302 DFEA BD C0 2E        ...   jsr c02e             ;jump71
12303 DFED 38              8     pulx
12304 DFEE 20 0B            .    bra 0b
12305 DFF0 CE 00 11        ...   ldx #0011    ; length of
12306 DFF3 3C              <     pshx
12307 DFF4 CC AD A5        ...   ldd #ada5    ; " EXACT COINS ONLY "
12308 DFF7 BD C0 2E        ...   jsr c02e             ;jump71 - display
12309 DFFA 38              8     pulx
12310 DFFB 20 66            f    bra 66
12311 DFFD F6 0B C0        ...   ldab 0bc0
12312 E000 C4 08           ..    andb #08     ; have link master price holding
12313 E002 27 52           'R    beq 52
12314 E004 F6 0B C1        ...   ldab 0bc1
12315 E007 C4 08           ..    andb #08    ; test bill error bit
12316 E009 26 08           &.    bne 08
12317 E00B FC 0B EF        ...   ldd 0bef
12318 E00E 83 00 64        ..d   subd #0064
12319 E011 24 43           $C    bcc 43
12320 E013 F6 00 2B        ..+   ldab 002b
12321 E016 C1 00           ..    cmpb #00
12322 E018 26 0D           &.    bne 0d
12323 E01A CE 00 12        ...   ldx #0012
12324 E01D 3C              <     pshx
12325 E01E CC AE 30        ..0   ldd #ae30    ; "MONEDA UNICAMENTE"
12326 E021 BD C0 2E        ...   jsr c02e             ;jump71
12327 E024 38              8     pulx
12328 E025 20 2D            -    bra 2d
12329 E027 C1 01           ..    cmpb #01
12330 E029 26 0D           &.    bne 0d
12331 E02B CE 00 0B        ...   ldx #000b
12332 E02E 3C              <     pshx
12333 E02F CC AE 23        ..#   ldd #ae23    ; "NUR MUNZEN"
12334 E032 BD C0 2E        ...   jsr c02e             ;jump71
12335 E035 38              8     pulx
12336 E036 20 1C            .    bra 1c
12337 E038 C1 02           ..    cmpb #02
12338 E03A 26 0D           &.    bne 0d
12339 E03C CE 00 12        ...   ldx #0012
12340 E03F 3C              <     pshx
12341 E040 CC AE 0F        ...   ldd #ae0f    ; "MONNAIES SEULEMENT"
12342 E043 BD C0 2E        ...   jsr c02e             ;jump71
12343 E046 38              8     pulx
12344 E047 20 0B            .    bra 0b
12345 E049 CE 00 0B        ...   ldx #000b
12346 E04C 3C              <     pshx
12347 E04D CC AE 02        ...   ldd #ae02    ; "COINS ONLY"
12348 E050 BD C0 2E        ...   jsr c02e             ;jump71
12349 E053 38              8     pulx
12350 E054 20 0D            .    bra 0d
12351 E056 F6 0B BF        ...   ldab 0bbf
12352 E059 4F              O     clra
12353 E05A 37              7     pshb
12354 E05B 36              6     psha
12355 E05C CC 09 93        ...   ldd #0993    ; some custom message?
12356 E05F BD C0 2E        ...   jsr c02e             ;jump71
12357 E062 38              8     pulx
12358 goto72:
12359 E063 7E E5 6A        ~.j   jmp e56a             ;goto73
12360 goto71:
12361 E066 F6 00 06        ...   ldab 0006
12362 E069 26 03           &.    bne 03
12363 E06B 7E E5 6A        ~.j   jmp e56a             ;goto73
12364 E06E CE 00 1D        ...   ldx #001d
12365 E071 1C 00 40        ...   bset 00,x, #40
12366 E074 BD E7 C7        ...   jsr e7c7             ;jump114
12367 E077 F6 00 06        ...   ldab 0006
12368 E07A C1 59           .Y    cmpb #59     ; 89
12369 E07C 26 06           &.    bne 06
12370 E07E BD DE 09        ...   jsr de09             ;jump119  - display machine id
12371 E081 7E E5 5E        ~.^   jmp e55e             ;goto74
12372 E084 F6 00 06        ...   ldab 0006
12373 E087 BD D4 68        ..h   jsr d468             ;jump51
12374 E08A 83 00 00        ...   subd #0000
12375 E08D 27 18           '.    beq 18
12376 E08F BD D5 61        ..a   jsr d561             ;jump42
12377 E092 83 00 00        ...   subd #0000
12378 E095 26 10           &.    bne 10
12379 E097 BD D3 46        ..F   jsr d346             ;jump43
12380 E09A 83 00 00        ...   subd #0000
12381 E09D 26 08           &.    bne 08
12382 E09F BD D7 83        ...   jsr d783             ;jump44
12383 E0A2 83 00 00        ...   subd #0000
12384 E0A5 27 09           '.    beq 09
12385 E0A7 BD E5 D1        ...   jsr e5d1             ;jump52 - triple beep
12386 E0AA BD D8 E9        ...   jsr d8e9             ;jump92
12387 E0AD 7E E5 5E        ~.^   jmp e55e             ;goto74
12388 E0B0 F6 00 06        ...   ldab 0006
12389 E0B3 4F              O     clra
12390 E0B4 05              .     asld
12391 E0B5 C3 08 00        ...   addd #0800
12392 E0B8 8F              .     xgdx
12393 E0B9 EC 00           ..    ldd 00,x
12394 E0BB C4 FF           ..    andb #ff
12395 E0BD 84 3F           .?    anda #3f
12396 E0BF FD 00 44        ..D   std 0044
12397 E0C2 F6 00 06        ...   ldab 0006
12398 E0C5 4F              O     clra
12399 E0C6 05              .     asld
12400 E0C7 C3 08 C8        ...   addd #08c8
12401 E0CA 8F              .     xgdx
12402 E0CB EC 00           ..    ldd 00,x
12403 E0CD C4 7F           ..    andb #7f
12404 E0CF 4F              O     clra
12405 E0D0 FD 00 4D        ..M   std 004d
12406 E0D3 F6 0B C0        ...   ldab 0bc0
12407 E0D6 2C 05           ,.    bge 05      ; free vend
12408 E0D8 5F              _     clrb
12409 E0D9 4F              O     clra
12410 E0DA FD 00 44        ..D   std 0044
12411 E0DD F6 0B C0        ...   ldab 0bc0
12412 E0E0 C4 02           ..    andb #02    ; have a changer
12413 E0E2 26 03           &.    bne 03
12414 E0E4 BD DE 15        ...   jsr de15             ;jump118
12415 E0E7 F6 00 11        ...   ldab 0011
12416 E0EA C4 20           .     andb #20
12417 E0EC 26 1A           &.    bne 1a
12418 E0EE F6 0B C0        ...   ldab 0bc0
12419 E0F1 C4 02           ..    andb #02    ; have a changer
12420 E0F3 26 13           &.    bne 13
12421 E0F5 FC 00 40        ..@   ldd 0040
12422 E0F8 F3 00 3E        ..>   addd 003e
12423 E0FB B3 00 44        ..D   subd 0044
12424 E0FE 25 08           %.    bcs 08
12425 E100 F6 0B C0        ...   ldab 0bc0
12426 E103 2D 03           -.    blt 03      ; no free vend
12427 E105 BD DA 64        ..d   jsr da64             ;jump122
12428 E108 FC 00 40        ..@   ldd 0040
12429 E10B F3 00 3E        ..>   addd 003e
12430 E10E B3 00 44        ..D   subd 0044
12431 E111 24 50           $P    bcc 50
12432 E113 F6 0B C0        ...   ldab 0bc0
12433 E116 C4 10           ..    andb #10     ; have link master price holding
12434 E118 26 49           &I    bne 49
12435 E11A F6 00 2B        ..+   ldab 002b
12436 E11D C1 00           ..    cmpb #00
12437 E11F 26 08           &.    bne 08
12438 E121 CC AC C9        ...   ldd #acc9    ; "PRECIO"
12439 E124 BD C0 BA        ...   jsr c0ba             ;display:
12440 E127 20 1E            .    bra 1e
12441 E129 C1 01           ..    cmpb #01
12442 E12B 26 08           &.    bne 08
12443 E12D CC AC BE        ...   ldd #acbe    ; "PREIS"
12444 E130 BD C0 BA        ...   jsr c0ba             ;display:
12445 E133 20 12            .    bra 12
12446 E135 C1 02           ..    cmpb #02
12447 E137 26 08           &.    bne 08
12448 E139 CC AC B3        ...   ldd #acb3    ; "PRIX"
12449 E13C BD C0 BA        ...   jsr c0ba             ;display:
12450 E13F 20 06            .    bra 06
12451 E141 CC AC A8        ...   ldd #aca8    ; "PRICE"
12452 E144 BD C0 BA        ...   jsr c0ba             ;display:
12453 E147 BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
12454 E14A CE 00 00        ...   ldx #0000
12455 E14D 3C              <     pshx
12456 E14E FC 00 44        ..D   ldd 0044
12457 E151 BD BE 9E        ...   jsr be9e             ;jump50
12458 E154 38              8     pulx
12459 E155 BD E5 D1        ...   jsr e5d1             ;jump52 - triple beep
12460 E158 BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
12461 E15B C6 0C           ..    ldab #0c
12462 E15D F7 00 2C        ..,   stab 002c
12463 E160 7E E5 5E        ~.^   jmp e55e             ;goto74
12464 E163 F6 0B C0        ...   ldab 0bc0
12465 E166 C4 01           ..    andb #01     ; have a dumb mech
12466 E168 26 11           &.    bne 11
12467 E16A F6 0B C0        ...   ldab 0bc0
12468 E16D C4 04           ..    andb #04     ; have a card reader
12469 E16F 26 0A           &.    bne 0a
12470 E171 F6 0B C0        ...   ldab 0bc0
12471 E174 C4 0F           ..    andb #0f     ; have any coin input mechanism
12472 E176 27 03           '.    beq 03
12473 E178 7E E3 35        ~.5   jmp e335             ;goto75
12474 E17B FC 00 40        ..@   ldd 0040
12475 E17E F3 00 3E        ..>   addd 003e
12476 E181 B3 00 44        ..D   subd 0044
12477 E184 FD 10 16        ...   std 1016
12478 E187 F6 00 15        ...   ldab 0015
12479 E18A C4 01           ..    andb #01
12480 E18C 27 08           '.    beq 08
12481 E18E FC 10 16        ...   ldd 1016
12482 E191 83 00 64        ..d   subd #0064  ; 100
12483 E194 25 3C           %<    bcs 3c
12484 E196 F6 00 15        ...   ldab 0015
12485 E199 C4 02           ..    andb #02
12486 E19B 27 08           '.    beq 08
12487 E19D FC 10 16        ...   ldd 1016
12488 E1A0 83 00 C8        ...   subd #00c8  ; 200
12489 E1A3 25 2D           %-    bcs 2d
12490 E1A5 F6 00 15        ...   ldab 0015
12491 E1A8 C4 04           ..    andb #04
12492 E1AA 27 08           '.    beq 08
12493 E1AC FC 10 16        ...   ldd 1016
12494 E1AF 83 01 F4        ...   subd #01f4  ; 500
12495 E1B2 25 1E           %.    bcs 1e
12496 E1B4 F6 00 15        ...   ldab 0015
12497 E1B7 C4 08           ..    andb #08
12498 E1B9 27 08           '.    beq 08
12499 E1BB FC 10 16        ...   ldd 1016
12500 E1BE 83 03 E8        ...   subd #03e8  ; 1000
12501 E1C1 25 0F           %.    bcs 0f
12502 E1C3 F6 00 15        ...   ldab 0015
12503 E1C6 C4 10           ..    andb #10
12504 E1C8 27 13           '.    beq 13
12505 E1CA FC 10 16        ...   ldd 1016
12506 E1CD 83 07 D0        ...   subd #07d0  ; 2000
12507 E1D0 24 0B           $.    bcc 0b
12508 E1D2 BD C0 E0        ...   jsr c0e0             ;jump94
12509 E1D5 83 00 00        ...   subd #0000
12510 E1D8 26 01           &.    bne 01
12511 ;
12512 E1DA 39              9     rts
12513 ;
12514 E1DB 20 03            .    bra 03
12515 E1DD BD C5 D3        ...   jsr c5d3             ;jump6
12516 E1E0 BD D6 52        ..R   jsr d652             ;jump5
12517 E1E3 FC 00 40        ..@   ldd 0040
12518 E1E6 B3 00 44        ..D   subd 0044
12519 E1E9 F3 00 3E        ..>   addd 003e
12520 E1EC FD 00 40        ..@   std 0040
12521 E1EF 5F              _     clrb
12522 E1F0 4F              O     clra
12523 E1F1 FD 00 3E        ..>   std 003e
12524 E1F4 CE 00 1B        ...   ldx #001b
12525 E1F7 1C 00 80        ..    bset 00,x, #80
12526 E1F9 BD D2 13        ..    jsr d213     ;jump45
12527 E1FC 83 00 00        ...   subd #0000
12528 E200 26 12           &.    bne 12
12529 E202 BD E5 D1        ...   jsr e5d1             ;jump52 - triple beep
12530 E205 BD D8 E9        ...   jsr d8e9             ;jump92 - "SELECT OTHER ITEM"
12531 E208 FC 00 40        ..@   ldd 0040
12532 E20B F3 00 44        ..D   addd 0044
12533 E20E FD 00 40        ..@   std 0040
12534 E211 7E E3 29        ~.)   jmp e329             ;goto92
12535 E214 BD DB CB        ...   jsr dbcb             ;jump121
12536 E217 F6 00 1B        ...   ldab 001b
12537 E21A C4 20           .     andb #20
12538 E21C 27 45           'E    beq 45
12539 E21E FC 00 44        ..D   ldd 0044
12540 E221 37              7     pshb
12541 E222 36              6     psha
12542 E223 4F              O     clra
12543 E224 5F              _     clrb
12544 E225 37              7     pshb
12545 E226 36              6     psha
12546 E227 CC 0D FB        ...   ldd #0dfb
12547 E22A BD FB DF        ...   jsr fbdf             ;jump46
12548 E22D 31              1     ins
12549 E22E 31              1     ins
12550 E22F FE 0D FD        ...   ldx 0dfd
12551 E232 3C              <     pshx
12552 E233 FC 0D FB        ...   ldd 0dfb
12553 E236 37              7     pshb
12554 E237 36              6     psha
12555 E238 CE E1 00        ...   ldx #e100
12556 E23B 3C              <     pshx
12557 E23C CC 05 F5        ...   ldd #05f5
12558 E23F 37              7     pshb
12559 E240 36              6     psha
12560 E241 30              0     tsx
12561 E242 EC 06           ..    ldd 06,x
12562 E244 A3 02           ..    subd 02,x
12563 E246 EC 04           ..    ldd 04,x
12564 E248 E2 01           ..    sbcb 01,x
12565 E24A A2 00           ..    sbca 00,x
12566 E24C 38              8     pulx
12567 E24D 38              8     pulx
12568 E24E 38              8     pulx
12569 E24F 38              8     pulx
12570 E250 25 11           %.    bcs 11
12571 E252 CE 1F 00        ...   ldx #1f00
12572 E255 3C              <     pshx
12573 E256 CC FA 0A        ...   ldd #fa0a
12574 E259 37              7     pshb
12575 E25A 36              6     psha
12576 E25B CC 0D FB        ...   ldd #0dfb
12577 E25E BD FB DF        ...   jsr fbdf             ;jump46
12578 E261 31              1     ins
12579 E262 31              1     ins
12580 E263 F6 0B C0        ...   ldab 0bc0
12581 E266 2C 78           ,x    bge 78       ; free vend
12582 E268 F6 00 06        ...   ldab 0006
12583 E26B 4F              O     clra
12584 E26C 05              .     asld
12585 E26D C3 08 00        ...   addd #0800
12586 E270 8F              .     xgdx
12587 E271 EC 00           ..    ldd 00,x
12588 E273 C4 FF           ..    andb #ff
12589 E275 26 02           &.    bne 02
12590 E277 84 3F           .?    anda #3f
12591 E279 27 65           'e    beq 65
12592 E27B FC 0D 0D        ...   ldd 0d0d
12593 E27E 83 FF FF        ...   subd #ffff
12594 E281 26 05           &.    bne 05
12595 E283 5F              _     clrb
12596 E284 4F              O     clra
12597 E285 FD 0D 0D        ...   std 0d0d
12598 E288 FE 0D 0D        ...   ldx 0d0d
12599 E28B 08              .     inx
12600 E28C FF 0D 0D        ...   stx 0d0d
12601 E28F F6 00 06        ...   ldab 0006
12602 E292 4F              O     clra
12603 E293 05              .     asld
12604 E294 C3 08 00        ...   addd #0800
12605 E297 8F              .     xgdx
12606 E298 EC 00           ..    ldd 00,x
12607 E29A C4 FF           ..    andb #ff
12608 E29C 84 3F           .?    anda #3f
12609 E29E 37              7     pshb
12610 E29F 36              6     psha
12611 E2A0 4F              O     clra
12612 E2A1 5F              _     clrb
12613 E2A2 37              7     pshb
12614 E2A3 36              6     psha
12615 E2A4 CC 0D 1B        ...   ldd #0d1b
12616 E2A7 BD FB DF        ...   jsr fbdf             ;jump46
12617 E2AA 31              1     ins
12618 E2AB 31              1     ins
12619 E2AC FE 0D 1D        ...   ldx 0d1d
12620 E2AF 3C              <     pshx
12621 E2B0 FC 0D 1B        ...   ldd 0d1b
12622 E2B3 37              7     pshb
12623 E2B4 36              6     psha
12624 E2B5 CE E1 00        ...   ldx #e100
12625 E2B8 3C              <     pshx
12626 E2B9 CC 05 F5        ...   ldd #05f5
12627 E2BC 37              7     pshb
12628 E2BD 36              6     psha
12629 E2BE 30              0     tsx
12630 E2BF EC 06           ..    ldd 06,x
12631 E2C1 A3 02           ..    subd 02,x
12632 E2C3 EC 04           ..    ldd 04,x
12633 E2C5 E2 01           ..    sbcb 01,x
12634 E2C7 A2 00           ..    sbca 00,x
12635 E2C9 38              8     pulx
12636 E2CA 38              8     pulx
12637 E2CB 38              8     pulx
12638 E2CC 38              8     pulx
12639 E2CD 25 11           %.    bcs 11
12640 E2CF CE 1F 00        ...   ldx #1f00
12641 E2D2 3C              <     pshx
12642 E2D3 CC FA 0A        ...   ldd #fa0a
12643 E2D6 37              7     pshb
12644 E2D7 36              6     psha
12645 E2D8 CC 0D 1B        ...   ldd #0d1b
12646 E2DB BD FB DF        ...   jsr fbdf             ;jump46
12647 E2DE 31              1     ins
12648 E2DF 31              1     ins
12649 E2E0 F6 00 11        ...   ldab 0011
12650 E2E3 C4 10           ..    andb #10
12651 E2E5 26 14           &.    bne 14
12652 E2E7 FC 00 40        ..@   ldd 0040
12653 E2EA 27 0F           '.    beq 0f
12654 E2EC FC 00 40        ..@   ldd 0040
12655 E2EF B3 00 50        ..P   subd 0050
12656 E2F2 24 15           $.    bcc 15
12657 E2F4 F6 00 11        ...   ldab 0011
12658 E2F7 C4 10           ..    andb #10
12659 E2F9 26 0E           &.    bne 0e
12660 E2FB BD DB 44        ..D   jsr db44             ;jump104 - say thanks
12661 E2FE CE 00 1B        ...   ldx #001b
12662 E301 1D 00 40        ...   bclr 00,x, #40
12663 E304 7F 00 25        ..%   clr 0025
12664 E307 20 1A            .    bra 1a
12665 E309 7F 00 2C        ..,   clr 002c
12666 E30C CC 01 F4        ...   ldd #01f4
12667 E30F BD E5 71        ..q   jsr e571             ;msdelay
12668 E312 BD E5 AA        ...   jsr e5aa             ;jump12
12669 E315 BD D8 E9        ...   jsr d8e9             ;jump92
12670 E318 CE 00 1B        ...   ldx #001b
12671 E31B 1C 00 40        ...   bset 00,x, #40
12672 E31E C6 0A           ..    ldab #0a
12673 E320 F7 00 25        ..%   stab 0025
12674 E323 BD D7 FF        ...   jsr d7ff             ;jump80
12675 E326 BD D8 40        ..@   jsr d840             ;jump105
12676 goto92:
12677 E329 BD E8 9A        ...   jsr e89a             ;jump68
12678 E32C CE 0B C1        ...   ldx #0bc1
12679 E32F 1D 00 08        ...   bclr 00,x, #08  ; clear bill error bit
12680 E332 7E E5 5E        ~.^   jmp e55e             ;goto74
12681 goto75:
12682 E335 F6 0B C0        ...   ldab 0bc0
12683 E338 C4 02           ..    andb #02     ; have a changer
12684 E33A 26 03           &.    bne 03
12685 E33C 7E E5 5E        ~.^   jmp e55e             ;goto74
12686 E33F 5F              _     clrb
12687 E340 4F              O     clra
12688 E341 FD 00 76        ..v   std 0076
12689 E344 CE 00 17        ...   ldx #0017
12690 E347 1D 00 01        ...   bclr 00,x, #01
12691 E34A CE 00 17        ...   ldx #0017
12692 E34D 1D 00 02        ...   bclr 00,x, #02
12693 E350 FC 00 44        ..D   ldd 0044
12694 E353 26 1C           &.    bne 1c
12695 E355 F6 0B C0        ...   ldab 0bc0
12696 E358 C4 10           ..    andb #10      ; have link master price holding
12697 E35A 26 08           &.    bne 08
12698 E35C CE 00 21        ..!   ldx #0021
12699 E35F 1C 00           ..    bset add,x 00,x
12700 E361 80 20           .     suba #20
12701 E363 0B              .     sev
12702 E364 CE 00 21        ..!   ldx #0021
12703 E367 1D 00           ..    bclr add,x 00,x
12704 E369 80 C6           ..    suba #c6
12705 E36B 05              .     asld
12706 E36C F7 00 75        ..u   stab 0075
12707 E36F 20 57            W    bra 57
12708 E371 F6 0B C0        ...   ldab 0bc0
12709 E374 C4 10           ..    andb #10      ; have link master price holding
12710 E376 27 50           'P    beq 50
12711 E378 FC 00 40        ..@   ldd 0040
12712 E37B 26 4B           &K    bne 4b
12713 E37D F6 0B C0        ...   ldab 0bc0
12714 E380 C4 20           .     andb #20      ; have link master price holding - price display
12715 E382 27 3E           '>    beq 3e
12716 E384 CE 00 17        ...   ldx #0017
12717 E387 1C 00 01        ...   bset 00,x, #01
12718 E38A F6 00 2B        ..+   ldab 002b
12719 E38D C1 00           ..    cmpb #00
12720 E38F 26 08           &.    bne 08
12721 E391 CC AC C9        ...   ldd #acc9    ; "  PRECIO  "
12722 E394 BD C0 BA        ...   jsr c0ba             ;display:
12723 E397 20 1E            .    bra 1e
12724 E399 C1 01           ..    cmpb #01
12725 E39B 26 08           &.    bne 08
12726 E39D CC AC BE        ...   ldd #acbe    ; "  PRIES  "
12727 E3A0 BD C0 BA        ...   jsr c0ba             ;display:
12728 E3A3 20 12            .    bra 12
12729 E3A5 C1 02           ..    cmpb #02
12730 E3A7 26 08           &.    bne 08
12731 E3A9 CC AC B3        ...   ldd #acb3    ; "  PRIX   "
12732 E3AC BD C0 BA        ...   jsr c0ba             ;display:
12733 E3AF 20 06            .    bra 06
12734 E3B1 CC AC A8        ...   ldd #aca8    ; "  PRICE  "
12735 E3B4 BD C0 BA        ...   jsr c0ba             ;display:
12736 E3B7 BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
12737 E3BA CE 00 17        ...   ldx #0017
12738 E3BD 1C 00 02        ...   bset 00,x, #02
12739 E3C0 20 06            .    bra 06
12740 E3C2 CE 00 1F        ...   ldx #001f
12741 E3C5 1C 00 08        ...   bset 00,x, #08
12742 E3C8 CE 00 1D        ...   ldx #001d
12743 E3CB 1C 00 02        ...   bset 00,x, #02
12744 E3CE CE 00 19        ...   ldx #0019
12745 E3D1 1C 00 08        ...   bset 00,x, #08
12746 E3D4 C6 32           .2    ldab #32
12747 E3D6 F7 00 31        ..1   stab 0031
12748 E3D9 C6 19           ..    ldab #19
12749 E3DB F7 00 36        ..6   stab 0036
12750 goto77:
12751 E3DE F6 00 1D        ...   ldab 001d
12752 E3E1 C4 02           ..    andb #02
12753 E3E3 26 03           &.    bne 03
12754 E3E5 7E E4 6E        ~.n   jmp e46e             ;goto76
12755 E3E8 F6 00 75        ..u   ldab 0075
12756 E3EB C1 04           ..    cmpb #04
12757 E3ED 22 05           ".    bhi 05
12758 E3EF F6 00 36        ..6   ldab 0036
12759 E3F2 26 3C           &<    bne 3c
12760 E3F4 7F 00 06        ...   clr 0006
12761 E3F7 5F              _     clrb
12762 E3F8 4F              O     clra
12763 E3F9 FD 00 76        ..v   std 0076
12764 E3FC 7F 00 2E        ...   clr 002e
12765 E3FF 7F 00 2C        ..,   clr 002c
12766 E402 7F 00 75        ..u   clr 0075
12767 E405 CE 00 17        ...   ldx #0017
12768 E408 1D 00 01        ...   bclr 00,x, #01
12769 E40B CE 00 19        ...   ldx #0019
12770 E40E 1D 00 08        ...   bclr 00,x, #08
12771 E411 CE 00 1B        ...   ldx #001b
12772 E414 1D 00           ..    bclr add,x 00,x
12773 E416 80 CE           ..    suba #ce
12774 E418 00              .     test
12775 E419 1D 1D 00        ...   bclr 1d,x, #00
12776 E41C 40              @     nega
12777 E41D CE 00 1D        ...   ldx #001d
12778 E420 1D 00 02        ...   bclr 00,x, #02
12779 E423 CE 00 1F        ...   ldx #001f
12780 E426 1D 00 08        ...   bclr 00,x, #08
12781 E429 CE 00 21        ..!   ldx #0021
12782 E42C 1D 00           ..    bclr add,x 00,x
12783 E42E 80 39           .9    suba #39
12784 E430 F6 0B C0        ...   ldab 0bc0
12785 E433 C4 20           .     andb #20     ; link master - price display
12786 E435 27 34           '4    beq 34
12787 E437 F6 00 17        ...   ldab 0017
12788 E43A C4 01           ..    andb #01
12789 E43C 26 2D           &-    bne 2d
12790 E43E F6 00 17        ...   ldab 0017
12791 E441 C4 02           ..    andb #02
12792 E443 27 26           '&    beq 26
12793 E445 CE 00 00        ...   ldx #0000
12794 E448 3C              <     pshx
12795 E449 FC 00 76        ..v   ldd 0076
12796 E44C BD BE 9E        ...   jsr be9e             ;jump50
12797 E44F 38              8     pulx
12798 E450 FC 00 76        ..v   ldd 0076
12799 E453 26 06           &.    bne 06
12800 E455 CE 00 17        ...   ldx #0017
12801 E458 1D 00 02        ...   bclr 00,x, #02
12802 E45B F6 00 17        ...   ldab 0017
12803 E45E C4 02           ..    andb #02
12804 E460 27 09           '.    beq 09
12805 E462 BD E5 D1        ...   jsr e5d1             ;jump52 - triple beep
12806 E465 CE 00 17        ...   ldx #0017
12807 E468 1D 00 02        ...   bclr 00,x, #02
12808 E46B 7E E3 DE        ~..   jmp e3de             ;goto77
12809 goto76:
12810 E46E CE 00 21        ..!   ldx #0021
12811 E471 1D 00           ..    bclr add,x 00,x
12812 E473 80 CE           ..    suba #ce
12813 E475 00              .     test
12814 E476 1F 1D 00 08     ....  brclr 1d,x 00 08
12815 E47A BD D2 13        ...   jsr d213             ;jump45
12816 E47D 83 00 00        ...   subd #0000
12817 E480 26 0F           &.    bne 0f
12818 E482 CC 00 80        ...   ldd #0080
12819 E485 BD C7 E7        ...   jsr c7e7             ;jump37 - send to serial port
12820 E488 BD E5 D1        ...   jsr e5d1             ;jump52 - triple beep
12821 E48B BD D8 E9        ...   jsr d8e9             ;jump92
12822 E48E 7E E5 5E        ~.^   jmp e55e             ;goto74
12823 E491 F6 00 2B        ..+   ldab 002b
12824 E494 C1 00           ..    cmpb #00
12825 E496 26 08           &.    bne 08
12826 E498 CC AD 16        ...   ldd #ad16    ; "GRACIAS"
12827 E49B BD C0 BA        ...   jsr c0ba             ;display:
12828 E49E 20 1E            .    bra 1e
12829 E4A0 C1 01           ..    cmpb #01
12830 E4A2 26 08           &.    bne 08
12831 E4A4 CC AD 0B        ...   ldd #ad0b    ; "DANKE"
12832 E4A7 BD C0 BA        ...   jsr c0ba             ;display:
12833 E4AA 20 12            .    bra 12
12834 E4AC C1 02           ..    cmpb #02
12835 E4AE 26 08           &.    bne 08
12836 E4B0 CC AD 00        ...   ldd #ad00    ; "MERCI"
12837 E4B3 BD C0 BA        ...   jsr c0ba             ;display:
12838 E4B6 20 06            .    bra 06
12839 E4B8 CC AC F5        ...   ldd #acf5    ; "THANKS"
12840 E4BB BD C0 BA        ...   jsr c0ba             ;display:
12841 E4BE BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
12842 E4C1 CE 00 01        ...   ldx #0001
12843 E4C4 3C              <     pshx
12844 E4C5 FC 00 40        ..@   ldd 0040
12845 E4C8 BD BE 9E        ...   jsr be9e             ;jump50
12846 E4CB 38              8     pulx
12847 E4CC 5F              _     clrb
12848 E4CD 4F              O     clra
12849 E4CE BD C7 E7        ...   jsr c7e7             ;jump37 - send to serial port
12850 E4D1 F6 0B C0        ...   ldab 0bc0
12851 E4D4 2D 03           -.    blt 03       ; free vend
12852 E4D6 7E E5 58        ~.X   jmp e558             ;goto78 if not
12853 E4D9 F6 0B C0        ...   ldab 0bc0
12854 E4DC C4 10           ..    andb #10     ; link master - price holding
12855 E4DE 26 78           &x    bne 78
12856 E4E0 F6 00 06        ...   ldab 0006
12857 E4E3 4F              O     clra
12858 E4E4 05              .     asld
12859 E4E5 C3 08 00        ...   addd #0800
12860 E4E8 8F              .     xgdx
12861 E4E9 EC 00           ..    ldd 00,x
12862 E4EB C4 FF           ..    andb #ff
12863 E4ED 26 02           &.    bne 02
12864 E4EF 84 3F           .?    anda #3f
12865 E4F1 27 65           'e    beq 65
12866 E4F3 FC 0D 0D        ...   ldd 0d0d
12867 E4F6 83 FF FF        ...   subd #ffff
12868 E4F9 26 05           &.    bne 05
12869 E4FB 5F              _     clrb
12870 E4FC 4F              O     clra
12871 E4FD FD 0D 0D        ...   std 0d0d
12872 E500 FE 0D 0D        ...   ldx 0d0d
12873 E503 08              .     inx
12874 E504 FF 0D 0D        ...   stx 0d0d
12875 E507 F6 00 06        ...   ldab 0006
12876 E50A 4F              O     clra
12877 E50B 05              .     asld
12878 E50C C3 08 00        ...   addd #0800
12879 E50F 8F              .     xgdx
12880 E510 EC 00           ..    ldd 00,x
12881 E512 C4 FF           ..    andb #ff
12882 E514 84 3F           .?    anda #3f
12883 E516 37              7     pshb
12884 E517 36              6     psha
12885 E518 4F              O     clra
12886 E519 5F              _     clrb
12887 E51A 37              7     pshb
12888 E51B 36              6     psha
12889 E51C CC 0D 1B        ...   ldd #0d1b
12890 E51F BD FB DF        ...   jsr fbdf             ;jump46
12891 E522 31              1     ins
12892 E523 31              1     ins
12893 E524 FE 0D 1D        ...   ldx 0d1d
12894 E527 3C              <     pshx
12895 E528 FC 0D 1B        ...   ldd 0d1b
12896 E52B 37              7     pshb
12897 E52C 36              6     psha
12898 E52D CE E1 00        ...   ldx #e100
12899 E530 3C              <     pshx
12900 E531 CC 05 F5        ...   ldd #05f5
12901 E534 37              7     pshb
12902 E535 36              6     psha
12903 E536 30              0     tsx
12904 E537 EC 06           ..    ldd 06,x
12905 E539 A3 02           ..    subd 02,x
12906 E53B EC 04           ..    ldd 04,x
12907 E53D E2 01           ..    sbcb 01,x
12908 E53F A2 00           ..    sbca 00,x
12909 E541 38              8     pulx
12910 E542 38              8     pulx
12911 E543 38              8     pulx
12912 E544 38              8     pulx
12913 E545 25 11           %.    bcs 11
12914 E547 CE 1F 00        ...   ldx #1f00
12915 E54A 3C              <     pshx
12916 E54B CC FA 0A        ...   ldd #fa0a
12917 E54E 37              7     pshb
12918 E54F 36              6     psha
12919 E550 CC 0D 1B        ...   ldd #0d1b
12920 E553 BD FB DF        ...   jsr fbdf             ;jump46
12921 E556 31              1     ins
12922 E557 31              1     ins
12923 goto78:
12924 E558 BD D7 FF        ...   jsr d7ff             ;jump80
12925 E55B BD D8 40        ..@   jsr d840             ;jump105
12926 goto74:
12927 E55E 7F 00 06        ...   clr 0006
12928 E561 7F 00 2E        ...   clr 002e
12929 E564 CE 00 1B        ...   ldx #001b
12930 E567 1D 00 80        ..    bclr 00,x, #80
12931 ;goto73
12932 E56A CE 00 1D        ...   ldx #001d
12933 E56C 1D 00 40        ..    bclr 00,x, #40
12934 E570 39              9     rts
12935
12936 ;!!! Is this a delay routine?  It gets called between displaying strings
12937 ;on startup.  Looks like a delay.  e61b just stores 0a at 0031 and returns.
12938 msdelay:
12939 ; appears to delay for roughly D milliseconds.
12940 E571 37              7     pshb
12941 E572 36              6     psha
12942 E573 34              4     des
12943 E574 30              0     tsx
12944 E575 EC 01           ..    ldd 01,x
12945 E577 83 00 01        ...   subd #0001
12946 E57A ED 01           ..    std 01,x
12947 E57C 2D 15           -.    blt 15       ; to e593
12948 E57E C6 41           .A    ldab #41
12949 E580 30              0     tsx
12950 E581 E7 00           ..    stab 00,x
12951 E583 30              0     tsx
12952 E584 E6 00           ..    ldab 00,x
12953 E586 6A 00           j.    dec 00,x
12954 E588 C1 00           ..    cmpb #00
12955 E58A 23 02           #.    bls 02
12956 E58C 20 F5            .    bra f5       ; to e583
12957 E58E BD E6 1B        ...   jsr e61b             ;jump4
12958 E591 20 E1            .    bra e1       ; to e574
12959 E593 38              8     pulx         ;this must just be a standard 'pull 3
12960 E594 31              1     ins          ;bytes and I don't care where they go'
12961                                         ;to clean up the stack.
12962 E595 39              9     rts
12963
12964 jump115:
12965 ; A short delay - counts to 32 in a stack variable. (about 100ms?)
12966 E596 34              4     des
12967 E597 C6 32           .2    ldab #32
12968 E599 30              0     tsx
12969 E59A E7 00           ..    stab 00,x
12970 E59C 30              0     tsx
12971 E59D E6 00           ..    ldab 00,x
12972 E59F C1 00           ..    cmpb #00
12973 E5A1 23 05           #.    bls e5a8
12974 E5A3 30              0     tsx
12975 E5A4 6A 00           j.    dec 00,x
12976 E5A6 20 F4            .    bra e59c
12977 E5A8 31              1     ins
12978 E5A9 39              9     rts
12979
12980 jump12:
12981 ; beep if keypressed?
12982 E5AA F6 00 33        ..3   ldab 0033
12983 E5AD 27 0C           '.    beq 0c      ; to e5bb
12984 E5AF F6 00 29        ..)   ldab 0029   ; key state
12985 E5B2 27 05           '.    beq 05      ; to e5b9 (out)
12986 E5B4 C6 02           ..    ldab #02
12987 E5B6 F7 00 33        ..3   stab 0033
12988 E5B9 20 15            .    bra 15      ; to e5d0 (out)
12989 E5BB C6 03           ..    ldab #03    ; beep
12990 E5BD F7 00 32        ..2   stab 0032
12991 E5C0 FC 00 3B        ..;   ldd 003b
12992 E5C3 27 06           '.    beq 06      ; to e5cb
12993 E5C5 CC 02 33        ..3   ldd #0233
12994 E5C8 FD 00 3B        ..;   std 003b
12995 E5CB C6 02           ..    ldab #02    ; make a beep
12996 E5CD F7 00 33        ..3   stab 0033
12997 E5D0 39              9     rts
12998
12999 jump52:
13000 ; signifies a triple beep?
13001 E5D1 C6 0B           ..    ldab #0b    ; 1011
13002 E5D3 F7 00 32        ..2   stab 0032
13003 E5D6 39              9     rts
13004
13005 jump69:
13006 ; tests an internal switch or input line
13007 ; Parameters: Port Address in D, bit mask on stack
13008 ; Return value:
13009 E5D7 37              7     pshb
13010 E5D8 36              6     psha
13011 ; make some stack space
13012 E5D9 3C              <     pshx
13013 E5DA 3C              <     pshx
13014 E5DB 5F              _     clrb
13015 E5DC 4F              O     clra
13016 E5DD 30              0     tsx
13017 ; 00,x on stack - number of hits
13018 E5DE ED 00           ..    std 00,x
13019 ; we call i = 02,x. let i = 64
13020 E5E0 CC 00 64        ..d   ldd #0064
13021 E5E3 ED 02           ..    std 02,x
13022 ; break if i <= 0
13023 E5E5 30              0     tsx
13024 E5E6 EC 02           ..    ldd 02,x
13025 E5E8 2F 21           /!    ble 21     ; to e60b
13026 ; we call j = 04,x. let j = initial value of D
13027 E5EA 30              0     tsx
13028 E5EB EE 04           ..    ldx 04,x
13029 E5ED E6 00           ..    ldab 00,x
13030 E5EF 30              0     tsx
13031 E5F0 E4 09           ..    andb 09,x
13032 E5F2 27 05           '.    beq 05     ; to e5f9 if bit cleared
13033 E5F4 38              8     pulx
13034 E5F5 08              .     inx        ; increment number of hits
13035 E5F6 3C              <     pshx
13036 E5F7 20 08            .    bra 08     ; to e601
13037 E5F9 30              0     tsx
13038 E5FA EC 00           ..    ldd 00,x
13039 E5FC 83 00 01        ...   subd #0001 ; decrement number of hits
13040 E5FF ED 00           ..    std 00,x
13041 E601 30              0     tsx
13042 E602 EC 02           ..    ldd 02,x
13043 E604 83 00 01        ...   subd #0001  ; i--
13044 E607 ED 02           ..    std 02,x
13045 E609 20 DA            .    bra da      ; to e5e5
13046 ; end of loop
13047 ; return 1 iff the key was pressed
13048 E60B 30              0     tsx
13049 E60C EC 00           ..    ldd 00,x
13050 E60E 2F 04           /.    ble 04      ; to e614 if -ve
13051 E610 5F              _     clrb
13052 E611 4F              O     clra
13053 E612 20 03            .    bra 03      ; to e617
13054 E614 CC 00 01        ...   ldd #0001
13055 E617 38              8     pulx
13056 E618 38              8     pulx
13057 E619 38              8     pulx
13058 E61A 39              9     rts
13059
13060 jump4:
13061 E61B C6 0A           ..    ldab #0a
13062 E61D F7 00 31        ..1   stab 0031
13063 E620 39              9     rts
13064
13065 jump56:
13066 ; writes a really big number to the display
13067 E621 38              8     pulx
13068 E622 37              7     pshb
13069 E623 36              6     psha
13070 E624 3C              <     pshx
13071 E625 BD BE 4B        ..K   jsr be4b             ;displayblank
13072 E628 30              0     tsx
13073 E629 EC 04           ..    ldd 04,x
13074 E62B 37              7     pshb
13075 E62C 36              6     psha
13076 E62D EC 02           ..    ldd 02,x
13077 E62F 37              7     pshb
13078 E630 36              6     psha
13079 E631 CE 96 80        ...   ldx #9680    ;38528
13080 E634 3C              <     pshx
13081 E635 CC 00 98        ...   ldd #0098    ;152
13082 E638 BD FC 4C        ..L   jsr fc4c             ;bigdivide
13083 E63B 31              1     ins
13084 E63C 33              3     pulb
13085 E63D CB 30           .0    addb #30     ; make it a digit
13086 E63F F7 0B 97        ...   stab 0b97
13087 ;
13088 E642 30              0     tsx
13089 E643 EC 04           ..    ldd 04,x
13090 E645 37              7     pshb
13091 E646 36              6     psha
13092 E647 EC 02           ..    ldd 02,x
13093 E649 37              7     pshb
13094 E64A 36              6     psha
13095 E64B CE 96 80        ...   ldx #9680    ;38528
13096 E64E 3C              <     pshx
13097 E64F CC 00 98        ...   ldd #0098    ;152
13098 E652 BD FC 5C        ..\   jsr fc5c             ;bigmodulus
13099 E655 37              7     pshb
13100 E656 36              6     psha
13101 E657 CE 42 40        .B@   ldx #4240    ;16960
13102 E65A 3C              <     pshx
13103 E65B CC 00 0F        ...   ldd #000f    ;15
13104 E65E BD FC 4C        ..L   jsr fc4c             ;bigdivide
13105 E661 31              1     ins
13106 E662 33              3     pulb
13107 E663 CB 30           .0    addb #30
13108 E665 F7 0B 96        ...   stab 0b96
13109 ;
13110 E668 30              0     tsx
13111 E669 EC 04           ..    ldd 04,x
13112 E66B 37              7     pshb
13113 E66C 36              6     psha
13114 E66D EC 02           ..    ldd 02,x
13115 E66F 37              7     pshb
13116 E670 36              6     psha
13117 E671 CE 42 40        .B@   ldx #4240    ;16960
13118 E674 3C              <     pshx
13119 E675 CC 00 0F        ...   ldd #000f    ;15
13120 E678 BD FC 5C        ..\   jsr fc5c             ;bigmodulus
13121 E67B 37              7     pshb
13122 E67C 36              6     psha
13123 E67D CE 86 A0        ...   ldx #86a0    ;34464
13124 E680 3C              <     pshx
13125 E681 CC 00 01        ...   ldd #0001    ;1
13126 E684 BD FC 4C        ..L   jsr fc4c             ;bigdivide
13127 E687 31              1     ins
13128 E688 33              3     pulb
13129 E689 CB 30           .0    addb #30
13130 E68B F7 0B 95        ...   stab 0b95
13131 ;
13132 E68E 30              0     tsx
13133 E68F EC 04           ..    ldd 04,x
13134 E691 37              7     pshb
13135 E692 36              6     psha
13136 E693 EC 02           ..    ldd 02,x
13137 E695 37              7     pshb
13138 E696 36              6     psha
13139 E697 CE 86 A0        ...   ldx #86a0    ;34464
13140 E69A 3C              <     pshx
13141 E69B CC 00 01        ...   ldd #0001    ;1
13142 E69E BD FC 5C        ..\   jsr fc5c             ;bigmodulus
13143 E6A1 37              7     pshb
13144 E6A2 36              6     psha
13145 E6A3 CE 27 10        .'.   ldx #2710    ;10000
13146 E6A6 3C              <     pshx
13147 E6A7 CC 00 00        ...   ldd #0000
13148 E6AA BD FC 4C        ..L   jsr fc4c             ;bigdivide
13149 E6AD 31              1     ins
13150 E6AE 33              3     pulb
13151 E6AF CB 30           .0    addb #30
13152 E6B1 F7 0B 94        ...   stab 0b94
13153 ;
13154 E6B4 30              0     tsx
13155 E6B5 EC 04           ..    ldd 04,x
13156 E6B7 37              7     pshb
13157 E6B8 36              6     psha
13158 E6B9 EC 02           ..    ldd 02,x
13159 E6BB 37              7     pshb
13160 E6BC 36              6     psha
13161 E6BD CE 27 10        .'.   ldx #2710    ;10000
13162 E6C0 3C              <     pshx
13163 E6C1 CC 00 00        ...   ldd #0000
13164 E6C4 BD FC 5C        ..\   jsr fc5c             ;bigmodulus
13165 E6C7 37              7     pshb
13166 E6C8 36              6     psha
13167 E6C9 CE 03 E8        ...   ldx #03e8    ;1000
13168 E6CC 3C              <     pshx
13169 E6CD CC 00 00        ...   ldd #0000
13170 E6D0 BD FC 4C        ..L   jsr fc4c             ;bigdivide
13171 E6D3 31              1     ins
13172 E6D4 33              3     pulb
13173 E6D5 CB 30           .0    addb #30
13174 E6D7 F7 0B 93        ...   stab 0b93
13175 ;
13176 ;
13177 E6DA 30              0     tsx
13178 E6DB EC 04           ..    ldd 04,x
13179 E6DD 37              7     pshb
13180 E6DE 36              6     psha
13181 E6DF EC 02           ..    ldd 02,x
13182 E6E1 37              7     pshb
13183 E6E2 36              6     psha
13184 E6E3 CE 03 E8        ...   ldx #03e8    ;1000
13185 E6E6 3C              <     pshx
13186 E6E7 CC 00 00        ...   ldd #0000
13187 E6EA BD FC 5C        ..\   jsr fc5c             ;bigmodulus
13188 E6ED 37              7     pshb
13189 E6EE 36              6     psha
13190 E6EF CE 00 64        ..d   ldx #0064    ;100
13191 E6F2 3C              <     pshx
13192 E6F3 CC 00 00        ...   ldd #0000
13193 E6F6 BD FC 4C        ..L   jsr fc4c             ;bigdivide
13194 E6F9 31              1     ins
13195 E6FA 33              3     pulb
13196 E6FB CB 30           .0    addb #30
13197 E6FD F7 0B 92        ...   stab 0b92
13198 ;
13199 E700 30              0     tsx
13200 E701 EC 04           ..    ldd 04,x
13201 E703 37              7     pshb
13202 E704 36              6     psha
13203 E705 EC 02           ..    ldd 02,x
13204 E707 37              7     pshb
13205 E708 36              6     psha
13206 E709 CE 00 64        ..d   ldx #0064    ;100
13207 E70C 3C              <     pshx
13208 E70D CC 00 00        ...   ldd #0000
13209 E710 BD FC 5C        ..\   jsr fc5c             ;bigmodulus
13210 E713 37              7     pshb
13211 E714 36              6     psha
13212 E715 CE 00 0A        ...   ldx #000a    ;10
13213 E718 3C              <     pshx
13214 E719 CC 00 00        ...   ldd #0000
13215 E71C BD FC 4C        ..L   jsr fc4c             ;bigdivide
13216 E71F 31              1     ins
13217 E720 33              3     pulb
13218 E721 CB 30           .0    addb #30
13219 E723 F7 0B 91        ...   stab 0b91
13220 ;
13221 E726 30              0     tsx
13222 E727 EC 04           ..    ldd 04,x
13223 E729 37              7     pshb
13224 E72A 36              6     psha
13225 E72B EC 02           ..    ldd 02,x
13226 E72D 37              7     pshb
13227 E72E 36              6     psha
13228 E72F CE 00 0A        ...   ldx #000a    ;10
13229 E732 3C              <     pshx
13230 E733 CC 00 00        ...   ldd #0000
13231 E736 BD FC 5C        ..\   jsr fc5c             ;bigmodulus
13232 E739 31              1     ins
13233 E73A 33              3     pulb
13234 E73B CB 30           .0    addb #30
13235 E73D F7 0B 90        ...   stab 0b90
13236 ;
13237 E740 38              8     pulx
13238 E741 31              1     ins
13239 E742 31              1     ins
13240 E743 6E 00           n.    jmp 00,x
13241
13242 jump55:
13243 ; number to string. number is <= 99999. puts it into 0057, 005a, 005d-005f
13244 E745 37              7     pshb
13245 E746 36              6     psha
13246 E747 30              0     tsx
13247 E748 EC 00           ..    ldd 00,x
13248 E74A CE 27 10        .'.   ldx #2710   ; 10000
13249 E74D 02              .     idiv
13250 E74E 8F              .     xgdx
13251 E74F CB 30           .0    addb #30
13252 E751 F7 00 57        ..W   stab 0057   ; num/10000 => 0057
13253 E754 30              0     tsx
13254 E755 EC 00           ..    ldd 00,x
13255 E757 CE 27 10        .'.   ldx #2710   ; 10000
13256 E75A 02              .     idiv
13257 E75B CE 03 E8        ...   ldx #03e8
13258 E75E 02              .     idiv
13259 E75F 8F              .     xgdx
13260 E760 CB 30           .0    addb #30
13261 E762 F7 00 5A        ..Z   stab 005a   ; num%10000/1000 => 005a
13262 E765 30              0     tsx
13263 E766 EC 00           ..    ldd 00,x
13264 E768 CE 03 E8        ...   ldx #03e8
13265 E76B 02              .     idiv
13266 E76C CE 00 64        ..d   ldx #0064
13267 E76F 02              .     idiv
13268 E770 8F              .     xgdx
13269 E771 CB 30           .0    addb #30
13270 E773 F7 00 5D        ..]   stab 005d  ; num%1000/100 => 005d
13271 E776 30              0     tsx
13272 E777 EC 00           ..    ldd 00,x
13273 E779 CE 00 64        ..d   ldx #0064
13274 E77C 02              .     idiv
13275 E77D CE 00 0A        ...   ldx #000a
13276 E780 02              .     idiv
13277 E781 8F              .     xgdx
13278 E782 CB 30           .0    addb #30
13279 E784 F7 00 5E        ..^   stab 005e  ; num%100/10 => 005e
13280 E787 30              0     tsx
13281 E788 EC 00           ..    ldd 00,x
13282 E78A CE 00 0A        ...   ldx #000a
13283 E78D 02              .     idiv
13284 E78E CB 30           .0    addb #30
13285 E790 F7 00 5F        .._   stab 005f ; num%10 => 005f
13286 E793 38              8     pulx
13287 E794 39              9     rts
13288
13289 jump54:
13290 ; number to string. number is <= 999. puts it into 005d-005f
13291 E795 37              7     pshb
13292 E796 36              6     psha
13293 E797 30              0     tsx
13294 E798 E6 01           ..    ldab 01,x
13295 E79A 4F              O     clra
13296 E79B CE 00 64        ..d   ldx #0064   ; /100
13297 E79E 02              .     idiv
13298 E79F 8F              .     xgdx
13299 E7A0 CB 30           .0    addb #30    ; make it a digit
13300 E7A2 F7 00 5D        ..]   stab 005d
13301 E7A5 30              0     tsx
13302 E7A6 E6 01           ..    ldab 01,x
13303 E7A8 4F              O     clra
13304 E7A9 CE 00 64        ..d   ldx #0064
13305 E7AC 02              .     idiv
13306 E7AD 4F              O     clra
13307 E7AE CE 00 0A        ...   ldx #000a
13308 E7B1 02              .     idiv
13309 E7B2 8F              .     xgdx
13310 E7B3 CB 30           .0    addb #30    ; %100 / 10 -> digit
13311 E7B5 F7 00 5E        ..^   stab 005e
13312 E7B8 30              0     tsx
13313 E7B9 E6 01           ..    ldab 01,x
13314 E7BB 4F              O     clra
13315 E7BC CE 00 0A        ...   ldx #000a
13316 E7BF 02              .     idiv
13317 E7C0 CB 30           .0    addb #30
13318 E7C2 F7 00 5F        .._   stab 005f    ; %10
13319 E7C5 38              8     pulx
13320 E7C6 39              9     rts
13321
13322 jump114:
13323 E7C7 F6 00 06        ...   ldab 0006
13324 E7CA 4F              O     clra
13325 E7CB CE 00 05        ...   ldx #0005
13326 E7CE 02              .     idiv
13327 E7CF 5D              ]     tstb
13328 E7D0 26 03           &.    bne 03
13329 E7D2 7E E8 99        ~..   jmp e899             ;goto79
13330 E7D5 F6 00 06        ...   ldab 0006
13331 E7D8 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
13332 E7DB 83 00 00        ...   subd #0000
13333 E7DE 27 03           '.    beq 03
13334 E7E0 7E E8 99        ~..   jmp e899             ;goto79
13335 E7E3 F6 00 06        ...   ldab 0006
13336 E7E6 4F              O     clra
13337 E7E7 05              .     asld
13338 E7E8 C3 08 00        ...   addd #0800
13339 E7EB 8F              .     xgdx
13340 E7EC EC 00           ..    ldd 00,x
13341 E7EE C4 FF           ..    andb #ff
13342 E7F0 84 3F           .?    anda #3f
13343 E7F2 FD 10 16        ...   std 1016
13344 E7F5 F6 00 06        ...   ldab 0006
13345 E7F8 4F              O     clra
13346 E7F9 05              .     asld
13347 E7FA C3 0B F1        ...   addd #0bf1
13348 E7FD 8F              .     xgdx
13349 E7FE EC 00           ..    ldd 00,x
13350 E800 C4 FF           ..    andb #ff
13351 E802 84 3F           .?    anda #3f
13352 E804 FD 10 18        ...   std 1018
13353 E807 FC 10 16        ...   ldd 1016
13354 E80A 83 00 00        ...   subd #0000
13355 E80D 25 08           %.    bcs 08
13356 E80F FC 10 16        ...   ldd 1016
13357 E812 83 27 0F        .'.   subd #270f
13358 E815 23 35           #5    bls 35
13359 E817 F6 00 06        ...   ldab 0006
13360 E81A BD D4 68        ..h   jsr d468             ;jump51
13361 E81D 83 00 00        ...   subd #0000
13362 E820 27 2A           '*    beq 2a
13363 E822 CC 01 00        ...   ldd #0100
13364 E825 37              7     pshb
13365 E826 36              6     psha
13366 E827 F6 00 06        ...   ldab 0006
13367 E82A 4F              O     clra
13368 E82B 05              .     asld
13369 E82C C3 08 C8        ...   addd #08c8
13370 E82F 38              8     pulx
13371 E830 8F              .     xgdx
13372 E831 AA 00           ..    ora 00,x
13373 E833 EA 01           ..    orb 01,x
13374 E835 ED 00           ..    std 00,x
13375 E837 CC 40 00        .@.   ldd #4000
13376 E83A 37              7     pshb
13377 E83B 36              6     psha
13378 E83C F6 00 06        ...   ldab 0006
13379 E83F 4F              O     clra
13380 E840 05              .     asld
13381 E841 C3 08 00        ...   addd #0800
13382 E844 38              8     pulx
13383 E845 8F              .     xgdx
13384 E846 AA 00           ..    ora 00,x
13385 E848 EA 01           ..    orb 01,x
13386 E84A ED 00           ..    std 00,x
13387 E84C CE 10 16        ...   ldx #1016
13388 E84F 1D 00 C0        ..    bclr 00,x, #c0
13389 E852 FC 10 18        ..    ldd 1018
13390 E855 43              C     coma
13391 E856 53              S     comb
13392 E857 FD 10 18        ...   std 1018
13393 E85A CE 10 18        ...   ldx #1018
13394 E85D 1D 00 C0        ..    bclr 00,x, #c0
13395 E85F FC 10 16        ..    ldd 1016
13396 E863 37              7     pshb
13397 E864 36              6     psha
13398 E865 FC 10 18        ...   ldd 1018
13399 E868 30              0     tsx
13400 E869 A3 00           ..    subd 00,x
13401 E86B 31              1     ins
13402 E86C 31              1     ins
13403 E86D 27 2A           '*    beq 2a
13404 E86F CC 01 00        ...   ldd #0100
13405 E872 37              7     pshb
13406 E873 36              6     psha
13407 E874 F6 00 06        ...   ldab 0006
13408 E877 4F              O     clra
13409 E878 05              .     asld
13410 E879 C3 08 C8        ...   addd #08c8
13411 E87C 38              8     pulx
13412 E87D 8F              .     xgdx
13413 E87E AA 00           ..    ora 00,x
13414 E880 EA 01           ..    orb 01,x
13415 E882 ED 00           ..    std 00,x
13416 E884 CC 40 00        .@.   ldd #4000
13417 E887 37              7     pshb
13418 E888 36              6     psha
13419 E889 F6 00 06        ...   ldab 0006
13420 E88C 4F              O     clra
13421 E88D 05              .     asld
13422 E88E C3 08 00        ...   addd #0800
13423 E891 38              8     pulx
13424 E892 8F              .     xgdx
13425 E893 AA 00           ..    ora 00,x
13426 E895 EA 01           ..    orb 01,x
13427 E897 ED 00           ..    std 00,x
13428 goto79:
13429 E899 39              9     rts
13430
13431 jump68:
13432 E89A 5F              _     clrb
13433 E89B 4F              O     clra
13434 E89C FD 00 0F        ...   std 000f
13435 E89F CC 3F FF        .?.   ldd #3fff
13436 E8A2 FD 00 50        ..P   std 0050
13437 E8A5 7F 00 06        ...   clr 0006
13438 ;
13439 E8A8 F6 00 06        ...   ldab 0006
13440 E8AB C1 64           .d    cmpb #64    ; 100
13441 E8AD 24 64           $d    bcc 64      ; to e913 - break
13442 ;
13443 E8AF F6 00 06        ...   ldab 0006
13444 E8B2 4F              O     clra
13445 E8B3 CE 00 05        ...   ldx #0005
13446 E8B6 02              .     idiv
13447 E8B7 5D              ]     tstb
13448 E8B8 27 54           'T    beq 54       ; to e90e - continue
13449 ;
13450 E8BA F6 00 06        ...   ldab 0006
13451 E8BD BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
13452 E8C0 83 00 00        ...   subd #0000
13453 E8C3 26 49           &I    bne 49       ; continue
13454 ;
13455 E8C5 F6 00 06        ...   ldab 0006
13456 E8C8 4F              O     clra
13457 E8C9 05              .     asld
13458 E8CA C3 08 00        ...   addd #0800
13459 E8CD 8F              .     xgdx
13460 E8CE EC 00           ..    ldd 00,x
13461 E8D0 C4 FF           ..    andb #ff
13462 E8D2 84 3F           .?    anda #3f
13463 E8D4 FD 10 16        ...   std 1016
13464 E8D7 FC 10 16        ...   ldd 1016
13465 E8DA 83 27 10        .'.   subd #2710   ; 10000
13466 E8DD 24 2F           $/    bcc 2f       ; to e90e - continue
13467 E8DF F6 00 06        ...   ldab 0006
13468 E8E2 BD D4 68        ..h   jsr d468             ;jump51 - test bit 6 of array[0006] at 0800
13469 E8E5 83 00 00        ...   subd #0000
13470 E8E8 27 24           '$    beq 24       ; to e90e - continue
13471 E8EA BD D5 61        ..a   jsr d561             ;jump42 - test bit 7 of array[0006] at 0800
13472 E8ED 83 00 00        ...   subd #0000
13473 E8F0 26 1C           &.    bne 1c       ; to e90e - continue
13474 E8F2 FC 10 16        ...   ldd 1016
13475 E8F5 B3 00 0F        ...   subd 000f
13476 E8F8 23 06           #.    bls 06
13477 E8FA FC 10 16        ...   ldd 1016
13478 E8FD FD 00 0F        ...   std 000f
13479 E900 FC 10 16        ...   ldd 1016
13480 E903 B3 00 50        ..P   subd 0050
13481 E906 24 06           $.    bcc 06
13482 E908 FC 10 16        ...   ldd 1016
13483 E90B FD 00 50        ..P   std 0050
13484 ;
13485 E90E 7C 00 06        |..   inc 0006
13486 E911 20 95            .    bra 95      ; to e8a8
13487 ;
13488 E913 FC 0B B7        ...   ldd 0bb7
13489 E916 27 12           '.    beq 12
13490 E918 FC 00 0F        ...   ldd 000f
13491 E91B B3 0B B7        ...   subd 0bb7
13492 E91E 23 0A           #.    bls 0a
13493 E920 FC 00 0F        ...   ldd 000f
13494 E923 05              .     asld
13495 E924 B3 0B B7        ...   subd 0bb7
13496 E927 FD 00 0F        ...   std 000f
13497 E92A 39              9     rts
13498
13499 jump103:
13500 E92B 34              4     des
13501 E92C 30              0     tsx
13502 E92D 6F 00           o.    clr 00,x
13503 E92F 30              0     tsx
13504 E930 E6 00           ..    ldab 00,x
13505 E932 C1 64           .d    cmpb #64
13506 E934 24 15           $.    bcc 15
13507 E936 5F              _     clrb
13508 E937 4F              O     clra
13509 E938 37              7     pshb
13510 E939 36              6     psha
13511 E93A 30              0     tsx
13512 E93B E6 02           ..    ldab 02,x
13513 E93D 4F              O     clra
13514 E93E 05              .     asld
13515 E93F C3 0D 1F        ...   addd #0d1f
13516 E942 38              8     pulx
13517 E943 8F              .     xgdx
13518 E944 ED 00           ..    std 00,x
13519 E946 30              0     tsx
13520 E947 6C 00           l.    inc 00,x
13521 E949 20 E4            .    bra e4
13522 E94B 4F              O     clra
13523 E94C 5F              _     clrb
13524 E94D FD 0D F9        ...   std 0df9
13525 E950 FD 0D F7        ...   std 0df7
13526 E953 4F              O     clra
13527 E954 5F              _     clrb
13528 E955 FD 0D F5        ...   std 0df5
13529 E958 FD 0D F3        ...   std 0df3
13530 E95B 4F              O     clra
13531 E95C 5F              _     clrb
13532 E95D FD 0D F1        ...   std 0df1
13533 E960 FD 0D EF        ...   std 0def
13534 E963 4F              O     clra
13535 E964 5F              _     clrb
13536 E965 FD 0D FD        ...   std 0dfd
13537 E968 FD 0D FB        ...   std 0dfb
13538 E96B 4F              O     clra
13539 E96C 5F              _     clrb
13540 E96D FD 0D E9        ...   std 0de9
13541 E970 FD 0D E7        ...   std 0de7
13542 E973 5F              _     clrb
13543 E974 4F              O     clra
13544 E975 FD 0C DD        ...   std 0cdd
13545 E978 5F              _     clrb
13546 E979 4F              O     clra
13547 E97A FD 0C DF        ...   std 0cdf
13548 E97D 5F              _     clrb
13549 E97E 4F              O     clra
13550 E97F FD 0C E1        ...   std 0ce1
13551 E982 5F              _     clrb
13552 E983 4F              O     clra
13553 E984 FD 0C E3        ...   std 0ce3
13554 E987 5F              _     clrb
13555 E988 4F              O     clra
13556 E989 FD 0C E5        ...   std 0ce5
13557 E98C 4F              O     clra
13558 E98D 5F              _     clrb
13559 E98E FD 0C F5        ...   std 0cf5
13560 E991 FD 0C F3        ...   std 0cf3
13561 E994 4F              O     clra
13562 E995 5F              _     clrb
13563 E996 FD 0C F9        ...   std 0cf9
13564 E999 FD 0C F7        ...   std 0cf7
13565 E99C 4F              O     clra
13566 E99D 5F              _     clrb
13567 E99E FD 0C FD        ...   std 0cfd
13568 E9A1 FD 0C FB        ...   std 0cfb
13569 E9A4 4F              O     clra
13570 E9A5 5F              _     clrb
13571 E9A6 FD 0D 01        ...   std 0d01
13572 E9A9 FD 0C FF        ...   std 0cff
13573 E9AC 4F              O     clra
13574 E9AD 5F              _     clrb
13575 E9AE FD 0D 05        ...   std 0d05
13576 E9B1 FD 0D 03        ...   std 0d03
13577 E9B4 5F              _     clrb
13578 E9B5 4F              O     clra
13579 E9B6 FD 0D 07        ...   std 0d07
13580 E9B9 5F              _     clrb
13581 E9BA 4F              O     clra
13582 E9BB FD 0D 09        ...   std 0d09
13583 E9BE 5F              _     clrb
13584 E9BF 4F              O     clra
13585 E9C0 FD 0D 0B        ...   std 0d0b
13586 E9C3 5F              _     clrb
13587 E9C4 4F              O     clra
13588 E9C5 FD 0D 0D        ...   std 0d0d
13589 E9C8 4F              O     clra
13590 E9C9 5F              _     clrb
13591 E9CA FD 0D 11        ...   std 0d11
13592 E9CD FD 0D 0F        ...   std 0d0f
13593 E9D0 4F              O     clra
13594 E9D1 5F              _     clrb
13595 E9D2 FD 0D 15        ...   std 0d15
13596 E9D5 FD 0D 13        ...   std 0d13
13597 E9D8 4F              O     clra
13598 E9D9 5F              _     clrb
13599 E9DA FD 0D 19        ...   std 0d19
13600 E9DD FD 0D 17        ...   std 0d17
13601 E9E0 4F              O     clra
13602 E9E1 5F              _     clrb
13603 E9E2 FD 0D 1D        ...   std 0d1d
13604 E9E5 FD 0D 1B        ...   std 0d1b
13605 E9E8 31              1     ins
13606 E9E9 39              9     rts
13607
13608 jump113:
13609 E9EA 7F 00 06        ...   clr 0006
13610 E9ED F6 00 06        ...   ldab 0006
13611 E9F0 C1 64           .d    cmpb #64
13612 E9F2 24 64           $d    bcc 64
13613 E9F4 F6 00 06        ...   ldab 0006
13614 E9F7 4F              O     clra
13615 E9F8 CE 00 05        ...   ldx #0005
13616 E9FB 02              .     idiv
13617 E9FC 5D              ]     tstb
13618 E9FD 27 54           'T    beq 54
13619 E9FF CC BF FF        ...   ldd #bfff
13620 EA02 37              7     pshb
13621 EA03 36              6     psha
13622 EA04 F6 00 06        ...   ldab 0006
13623 EA07 4F              O     clra
13624 EA08 05              .     asld
13625 EA09 C3 08 00        ...   addd #0800
13626 EA0C 38              8     pulx
13627 EA0D 8F              .     xgdx
13628 EA0E A4 00           ..    anda 00,x
13629 EA10 E4 01           ..    andb 01,x
13630 EA12 ED 00           ..    std 00,x
13631 EA14 CC FE FF        ...   ldd #feff
13632 EA17 37              7     pshb
13633 EA18 36              6     psha
13634 EA19 F6 00 06        ...   ldab 0006
13635 EA1C 4F              O     clra
13636 EA1D 05              .     asld
13637 EA1E C3 08 C8        ...   addd #08c8
13638 EA21 38              8     pulx
13639 EA22 8F              .     xgdx
13640 EA23 A4 00           ..    anda 00,x
13641 EA25 E4 01           ..    andb 01,x
13642 EA27 ED 00           ..    std 00,x
13643 EA29 CC FD FF        ...   ldd #fdff
13644 EA2C 37              7     pshb
13645 EA2D 36              6     psha
13646 EA2E F6 00 06        ...   ldab 0006
13647 EA31 4F              O     clra
13648 EA32 05              .     asld
13649 EA33 C3 08 C8        ...   addd #08c8
13650 EA36 38              8     pulx
13651 EA37 8F              .     xgdx
13652 EA38 A4 00           ..    anda 00,x
13653 EA3A E4 01           ..    andb 01,x
13654 EA3C ED 00           ..    std 00,x
13655 EA3E CC FB FF        ...   ldd #fbff
13656 EA41 37              7     pshb
13657 EA42 36              6     psha
13658 EA43 F6 00 06        ...   ldab 0006
13659 EA46 4F              O     clra
13660 EA47 05              .     asld
13661 EA48 C3 08 C8        ...   addd #08c8
13662 EA4B 38              8     pulx
13663 EA4C 8F              .     xgdx
13664 EA4D A4 00           ..    anda 00,x
13665 EA4F E4 01           ..    andb 01,x
13666 EA51 ED 00           ..    std 00,x
13667 EA53 7C 00 06        |..   inc 0006
13668 EA56 20 95            .    bra 95
13669 EA58 39              9     rts
13670
13671 jump65:
13672 EA59 34              4     des
13673 ; test PE2 - remote no-sale switch.
13674 EA5A CE 00 04        ...   ldx #0004
13675 EA5D 3C              <     pshx
13676 EA5E CC 10 0A        ...   ldd #100a
13677 EA61 BD E5 D7        ...   jsr e5d7             ;jump69 - test input line
13678 EA64 38              8     pulx
13679 EA65 83 00 00        ...   subd #0000
13680 EA68 27 3F           '?    beq 3f       ; to eaa9 if off
13681 ;
13682 ; test internal mode switch (bit 1 of 1800)
13683 EA6A CE 00 01        ...   ldx #0001
13684 EA6D 3C              <     pshx
13685 EA6E CC 18 00        ...   ldd #1800
13686 EA71 BD E5 D7        ...   jsr e5d7             ;jump69 - test input line
13687 EA74 38              8     pulx
13688 EA75 83 00 00        ...   subd #0000
13689 EA78 27 2F           '/    beq 2f       ; to eaa9 if off
13690 ;
13691 ; both no-sale & mode switches held.
13692 ;
13693 ; 1000-unit delay
13694 EA7A CC 03 E8        ...   ldd #03e8
13695 EA7D BD E5 71        ..q   jsr e571             ;msdelay
13696 ;
13697 EA80 7F 0B A8        ...   clr 0ba8
13698 ;
13699 ; blink "SECURE OFF" until mode switch is released
13700 EA83 F6 18 00        ...   ldab 1800
13701 EA86 C4 01           ..    andb #01
13702 EA88 26 1C           &.    bne 1c       ; to eaa4 (loop until released)
13703 ;
13704 ; blank display
13705 EA8A BD BE 4B        ..K   jsr be4b             ;displayblank (blank display buffer)
13706 EA8D 0F              .     sei
13707 EA8E BD BE 01        ...   jsr be01             ;jump70 (commit to display)
13708 EA91 0E              .     cli
13709 ;
13710 ; 500-unit delay
13711 EA92 CC 01 F4        ...   ldd #01f4
13712 EA95 BD E5 71        ..q   jsr e571             ;msdelay
13713 ;
13714 EA98 CC AF D1        ...   ldd #afd1    ; "SECURE OFF"
13715 EA9B BD C0 BA        ...   jsr c0ba             ;display:
13716 ;
13717 ; 500-unit delay
13718 EA9E CC 01 F4        ...   ldd #01f4
13719 EAA1 BD E5 71        ..q   jsr e571             ;msdelay
13720 ; loop
13721 EAA4 20 DD            .    bra dd       ; to ea83
13722 EAA6 BD BE 69        ..i   jsr be69             ;displayreset
13723 ;
13724 ; no sale switch or internal mode switch on
13725 ;
13726 ; fiddle with the bill acceptor
13727 EAA9 C6 01           ..    ldab #01
13728 EAAB F7 00 14        ...   stab 0014
13729 EAAE F6 00 14        ...   ldab 0014
13730 EAB1 F7 38 00        .8.   stab 3800
13731 ;
13732 ; 30-unit delay
13733 EAB4 CC 00 1E        ...   ldd #001e
13734 EAB7 BD E5 71        ..q   jsr e571             ;msdelay
13735 ;
13736 ; more bill acceptor fiddling & tests
13737 EABA CE 00 01        ...   ldx #0001
13738 EABD 3C              <     pshx
13739 EABE CC 10 00        ...   ldd #1000
13740 EAC1 BD E5 D7        ...   jsr e5d7             ;jump69 - test input line
13741 EAC4 38              8     pulx
13742 EAC5 83 00 00        ...   subd #0000
13743 EAC8 27 10           '.    beq 10
13744 EACA CE 00 02        ...   ldx #0002
13745 EACD 3C              <     pshx
13746 EACE CC 10 00        ...   ldd #1000
13747 EAD1 BD E5 D7        ...   jsr e5d7             ;jump69 - test input line
13748 EAD4 38              8     pulx
13749 EAD5 83 00 00        ...   subd #0000
13750 EAD8 27 03           '.    beq 03
13751 ; we've decided if we have a bill acceptor. if not, skip this bit
13752 EADA 7E ED F8        ~..   jmp edf8             ;goto80
13753 ; we have a bill acceptor - play some more
13754 EADD C6 02           ..    ldab #02
13755 EADF F7 00 14        ...   stab 0014
13756 EAE2 F6 00 14        ...   ldab 0014
13757 EAE5 F7 38 00        .8.   stab 3800
13758 EAE8 CC 00 1E        ...   ldd #001e
13759 EAEB BD E5 71        ..q   jsr e571             ;msdelay
13760 EAEE CE 00 01        ...   ldx #0001
13761 EAF1 3C              <     pshx
13762 EAF2 CC 10 00        ...   ldd #1000
13763 EAF5 BD E5 D7        ...   jsr e5d7             ;jump69 - test input line
13764 EAF8 38              8     pulx
13765 EAF9 83 00 00        ...   subd #0000
13766 EAFC 26 10           &.    bne 10
13767 EAFE CE 00 02        ...   ldx #0002
13768 EB01 3C              <     pshx
13769 EB02 CC 10 00        ...   ldd #1000
13770 EB05 BD E5 D7        ...   jsr e5d7             ;jump69 - test input line
13771 EB08 38              8     pulx
13772 EB09 83 00 00        ...   subd #0000
13773 EB0C 26 03           &.    bne 03
13774 EB0E 7E ED F8        ~..   jmp edf8             ;goto80 - something about the bill validator failed. skip it.
13775 EB11 CC 5A 5A        .ZZ   ldd #5a5a    ; 23130
13776 EB14 FD 10 16        ...   std 1016
13777 EB17 CC B1 39        ..9   ldd #b139    ;"**********"
13778 EB1A BD C0 BA        ...   jsr c0ba             ;display:
13779 EB1D CC 07 D0        ...   ldd #07d0
13780 EB20 BD E5 71        ..q   jsr e571             ;msdelay
13781 EB23 CC B1 44        ..D   ldd #b144    ;"OOOOOOOOOO"
13782 EB26 BD C0 BA        ...   jsr c0ba             ;display:
13783 EB29 CC 07 D0        ...   ldd #07d0
13784 EB2C BD E5 71        ..q   jsr e571             ;msdelay
13785 EB2F CC 00 14        ...   ldd #0014
13786 EB32 FD 00 3B        ..;   std 003b
13787 EB35 FC 00 3B        ..;   ldd 003b
13788 EB38 27 47           'G    beq 47
13789 ; draws a sequence of 10 dots ..... along the display.
13790 EB3A 30              0     tsx
13791 EB3B 6F 00           o.    clr 00,x
13792 EB3D 30              0     tsx
13793 EB3E E6 00           ..    ldab 00,x
13794 EB40 C1 0A           ..    cmpb #0a
13795 EB42 24 3B           $;    bcc 3b
13796 EB44 BD BE 4B        ..K   jsr be4b             ;displayblank
13797 EB47 C6 2E           ..    ldab #2e
13798 EB49 37              7     pshb
13799 EB4A 30              0     tsx
13800 EB4B E6 01           ..    ldab 01,x
13801 EB4D 4F              O     clra
13802 EB4E C3 0B 90        ...   addd #0b90
13803 EB51 8F              .     xgdx
13804 EB52 33              3     pulb
13805 EB53 E7 00           ..    stab 00,x
13806 EB55 0F              .     sei
13807 EB56 BD BE 69        ..i   jsr be69             ;displayreset
13808 EB59 CE 10 28        ..(   ldx #1028
13809 EB5C 1C 00 40        ..    bset 00,x, #40  ; tweak the clock phase
13810 EB5F CE 00 01        ...   ldx #0001
13811 EB62 3C              <     pshx
13812 EB63 CC 00 20        ..    ldd #0020
13813 EB66 BD BD B5        ...   jsr bdb5             ;jump78 - send display byte
13814 EB69 38              8     pulx
13815 EB6A CE 10 28        ..(   ldx #1028
13816 EB6D 1D 00 40        ..@   bclr 00,x, #40  ; tweak the clock phase back
13817 EB70 BD BE 10        ...   jsr be10             ;jump88
13818 EB73 0E              .     cli
13819 EB74 CC 00 07        ...   ldd #0007
13820 EB77 BD E5 71        ..q   jsr e571             ;msdelay 7-unit delay
13821 EB7A 30              0     tsx
13822 EB7B 6C 00           l.    inc 00,x
13823 EB7D 20 BE            .    bra be
13824 EB7F 20 B4            .    bra b4
13825 EB81 BD BE 69        ..i   jsr be69             ;displayreset
13826 EB84 CC 08 00        ...   ldd #0800
13827 EB87 FD 00 73        ..s   std 0073
13828 EB8A FC 00 73        ..s   ldd 0073
13829 EB8D 83 0F FF        ...   subd #0fff
13830 EB90 22 10           ".    bhi 10       ; to eba2
13831 EB92 C6 AA           ..    ldab #aa
13832 EB94 FE 00 73        ..s   ldx 0073
13833 EB97 E7 00           ..    stab 00,x
13834 EB99 FE 00 73        ..s   ldx 0073
13835 EB9C 08              .     inx
13836 EB9D FF 00 73        ..s   stx 0073
13837 EBA0 20 E8            .    bra e8
13838 EBA2 CC 08 00        ...   ldd #0800
13839 EBA5 FD 00 73        ..s   std 0073
13840 EBA8 FC 00 73        ..s   ldd 0073
13841 EBAB 83 0F FF        ...   subd #0fff
13842 EBAE 22 1A           ".    bhi 1a
13843 EBB0 FE 00 73        ..s   ldx 0073
13844 EBB3 E6 00           ..    ldab 00,x
13845 EBB5 C1 AA           ..    cmpb #aa
13846 EBB7 27 08           '.    beq 08
13847 EBB9 CE 10 16        ...   ldx #1016     ; timer output compare register
13848 EBBC 1D 00 FF        ..    bclr 00,x, #FF
13849 EBBF 20 09           ..    bra 09
13850 EBC1 FE 00 73        ..s   ldx 0073
13851 EBC4 08              .     inx
13852 EBC5 FF 00 73        ..s   stx 0073
13853 EBC8 20 DE            .    bra de
13854 EBCA CC 08 00        ...   ldd #0800
13855 EBCD FD 00 73        ..s   std 0073
13856 EBD0 FC 00 73        ..s   ldd 0073
13857 EBD3 83 0F FF        ...   subd #0fff
13858 EBD6 22 10           ".    bhi 10
13859 EBD8 C6 55           .U    ldab #55
13860 EBDA FE 00 73        ..s   ldx 0073
13861 EBDD E7 00           ..    stab 00,x
13862 EBDF FE 00 73        ..s   ldx 0073
13863 EBE2 08              .     inx
13864 EBE3 FF 00 73        ..s   stx 0073
13865 EBE6 20 E8            .    bra e8
13866 EBE8 CC 08 00        ...   ldd #0800
13867 EBEB FD 00 73        ..s   std 0073
13868 EBEE FC 00 73        ..s   ldd 0073
13869 EBF1 83 0F FF        ...   subd #0fff
13870 EBF4 22 1A           ".    bhi 1a
13871 EBF6 FE 00 73        ..s   ldx 0073
13872 EBF9 E6 00           ..    ldab 00,x
13873 EBFB C1 55           .U    cmpb #55
13874 EBFD 27 08           '.    beq 08
13875 EBFF CE 10 16        ...   ldx #1016
13876 EC02 1D 00 FF        ...   bclr 00,x #ff
13877 EC05 20 09            .    bra 09
13878 EC07 FE 00 73        ..s   ldx 0073
13879 EC0A 08              .     inx
13880 EC0B FF 00 73        ..s   stx 0073
13881 EC0E 20 DE            .    bra de
13882 EC10 CC 08 00        ...   ldd #0800
13883 EC13 FD 00 73        ..s   std 0073
13884 EC16 FC 00 73        ..s   ldd 0073
13885 EC19 83 0F FF        ...   subd #0fff
13886 EC1C 22 0F           ".    bhi 0f
13887 EC1E 5F              _     clrb
13888 EC1F FE 00 73        ..s   ldx 0073
13889 EC22 E7 00           ..    stab 00,x
13890 EC24 FE 00 73        ..s   ldx 0073
13891 EC27 08              .     inx
13892 EC28 FF 00 73        ..s   stx 0073
13893 EC2B 20 E9            .    bra e9
13894 EC2D 7F 00 06        ...   clr 0006
13895 EC30 F6 00 06        ...   ldab 0006
13896 EC33 C1 64           .d    cmpb #64
13897 EC35 24 4D           $M    bcc 4d
13898 EC37 F6 00 06        ...   ldab 0006
13899 EC3A 4F              O     clra
13900 EC3B CE 00 05        ...   ldx #0005
13901 EC3E 02              .     idiv
13902 EC3F 5D              ]     tstb
13903 EC40 27 3D           '=    beq 3d
13904 EC42 CC 00 32        ..2   ldd #0032
13905 EC45 37              7     pshb
13906 EC46 36              6     psha
13907 EC47 F6 00 06        ...   ldab 0006
13908 EC4A 4F              O     clra
13909 EC4B 05              .     asld
13910 EC4C C3 08 00        ...   addd #0800
13911 EC4F 38              8     pulx
13912 EC50 8F              .     xgdx
13913 EC51 ED 00           ..    std 00,x
13914 EC53 F6 00 06        ...   ldab 0006
13915 EC56 4F              O     clra
13916 EC57 05              .     asld
13917 EC58 C3 08 00        ...   addd #0800
13918 EC5B 8F              .     xgdx
13919 EC5C EC 00           ..    ldd 00,x
13920 EC5E 43              C     coma
13921 EC5F 53              S     comb
13922 EC60 37              7     pshb
13923 EC61 36              6     psha
13924 EC62 F6 00 06        ...   ldab 0006
13925 EC65 4F              O     clra
13926 EC66 05              .     asld
13927 EC67 C3 0B F1        ...   addd #0bf1
13928 EC6A 38              8     pulx
13929 EC6B 8F              .     xgdx
13930 EC6C ED 00           ..    std 00,x
13931 EC6E CC 08 01        ...   ldd #0801
13932 EC71 37              7     pshb
13933 EC72 36              6     psha
13934 EC73 F6 00 06        ...   ldab 0006
13935 EC76 4F              O     clra
13936 EC77 05              .     asld
13937 EC78 C3 08 C8        ...   addd #08c8
13938 EC7B 38              8     pulx
13939 EC7C 8F              .     xgdx
13940 EC7D ED 00           ..    std 00,x
13941 EC7F 7C 00 06        |..   inc 0006
13942 EC82 20 AC            .    bra ac
13943 EC84 C6 1D           ..    ldab #1d
13944 EC86 F7 0B BF        ...   stab 0bbf
13945 EC89 30              0     tsx
13946 EC8A 6F 00           o.    clr 00,x
13947 EC8C F6 0B BF        ...   ldab 0bbf
13948 EC8F 4F              O     clra
13949 EC90 C3 00 02        ...   addd #0002
13950 EC93 37              7     pshb
13951 EC94 36              6     psha
13952 EC95 30              0     tsx
13953 EC96 E6 02           ..    ldab 02,x
13954 EC98 4F              O     clra
13955 EC99 A3 00           ..    subd 00,x
13956 EC9B 31              1     ins
13957 EC9C 31              1     ins
13958 EC9D 2C 1B           ,.    bge 1b
13959 EC9F 30              0     tsx
13960 ECA0 E6 00           ..    ldab 00,x
13961 ECA2 4F              O     clra
13962 ECA3 C3 B1 D0        ...   addd #b1d0   ; "THANK YOU FOR YOUR PATRONAGE"
13963 ECA6 8F              .     xgdx
13964 ECA7 E6 00           ..    ldab 00,x
13965 ECA9 37              7     pshb
13966 ECAA 30              0     tsx
13967 ECAB E6 01           ..    ldab 01,x
13968 ECAD 4F              O     clra
13969 ECAE C3 09 93        ...   addd #0993
13970 ECB1 8F              .     xgdx
13971 ECB2 33              3     pulb
13972 ECB3 E7 00           ..    stab 00,x
13973 ECB5 30              0     tsx
13974 ECB6 6C 00           l.    inc 00,x
13975 ECB8 20 D2            .    bra d2
13976 ECBA 7F 0B A8        ...   clr 0ba8
13977 ECBD CC 00 32        ..2   ldd #0032
13978 ECC0 FD 0B B5        ...   std 0bb5
13979 ECC3 5F              _     clrb
13980 ECC4 4F              O     clra
13981 ECC5 FD 0B B7        ...   std 0bb7
13982 ECC8 7F 00 06        ...   clr 0006
13983 ECCB BD A6 4E        ..N   jsr a64e             ;jump135
13984 ECCE C6 09           ..    ldab #09
13985 ECD0 F7 0B C0        ...   stab 0bc0    ; defaults to having a bill validator & dumb mech
13986 ECD3 7F 0E 6D        ..m   clr 0e6d
13987 ECD6 C6 01           ..    ldab #01
13988 ECD8 F7 0E 6E        ..n   stab 0e6e
13989 ECDB 30              0     tsx
13990 ECDC 6F 00           o.    clr 00,x
13991 ECDE 30              0     tsx
13992 ECDF E6 00           ..    ldab 00,x
13993 ECE1 C1 0F           ..    cmpb #0f
13994 ECE3 24 21           $!    bcc 21
13995 ECE5 C6 30           .0    ldab #30
13996 ECE7 37              7     pshb
13997 ECE8 30              0     tsx
13998 ECE9 E6 01           ..    ldab 01,x
13999 ECEB 4F              O     clra
14000 ECEC C3 0C B9        ...   addd #0cb9
14001 ECEF 8F              .     xgdx
14002 ECF0 33              3     pulb
14003 ECF1 E7 00           ..    stab 00,x
14004 ECF3 C6 30           .0    ldab #30
14005 ECF5 37              7     pshb
14006 ECF6 30              0     tsx
14007 ECF7 E6 01           ..    ldab 01,x
14008 ECF9 4F              O     clra
14009 ECFA C3 0C C9        ...   addd #0cc9
14010 ECFD 8F              .     xgdx
14011 ECFE 33              3     pulb
14012 ECFF E7 00           ..    stab 00,x
14013 ED01 30              0     tsx
14014 ED02 6C 00           l.    inc 00,x
14015 ED04 20 D8            .    bra d8
14016 ED06 30              0     tsx
14017 ED07 6F 00           o.    clr 00,x
14018 ;
14019 ED09 30              0     tsx
14020 ED0A E6 00           ..    ldab 00,x
14021 ED0C C1 0B           ..    cmpb #0b
14022 ED0E 24 12           $.    bcc 12 ; to ed22
14023 ED10 5F              _     clrb
14024 ED11 37              7     pshb
14025 ED12 30              0     tsx
14026 ED13 E6 01           ..    ldab 01,x
14027 ED15 4F              O     clra
14028 ED16 C3 0B E4        ...   addd #0be4
14029 ED19 8F              .     xgdx
14030 ED1A 33              3     pulb
14031 ED1B E7 00           ..    stab 00,x
14032 ED1D 30              0     tsx
14033 ED1E 6C 00           l.    inc 00,x
14034 ED20 20 E7            .    bra e7
14035 ; clear stuff ready for test harness?
14036 ED22 4F              O     clra
14037 ED23 5F              _     clrb
14038 ED24 FD 0D F9        ...   std 0df9
14039 ED27 FD 0D F7        ...   std 0df7
14040 ED2A 4F              O     clra
14041 ED2B 5F              _     clrb
14042 ED2C FD 0D F5        ...   std 0df5
14043 ED2F FD 0D F3        ...   std 0df3
14044 ED32 7F 0C D9        ...   clr 0cd9
14045 ED35 7F 0C DA        ...   clr 0cda
14046 ED38 7F 0C DB        ...   clr 0cdb
14047 ED3B 7F 0C DC        ...   clr 0cdc
14048 ED3E 4F              O     clra
14049 ED3F 5F              _     clrb
14050 ED40 FD 0D F1        ...   std 0df1
14051 ED43 FD 0D EF        ...   std 0def
14052 ED46 4F              O     clra
14053 ED47 5F              _     clrb
14054 ED48 FD 0D FD        ...   std 0dfd
14055 ED4B FD 0D FB        ...   std 0dfb
14056 ED4E 4F              O     clra
14057 ED4F 5F              _     clrb
14058 ED50 FD 0D E9        ...   std 0de9
14059 ED53 FD 0D E7        ...   std 0de7
14060 ED56 4F              O     clra
14061 ED57 5F              _     clrb
14062 ED58 FD 0D ED        ...   std 0ded
14063 ED5B FD 0D EB        ...   std 0deb
14064 ED5E 5F              _     clrb
14065 ED5F 4F              O     clra
14066 ED60 FD 0C DD        ...   std 0cdd
14067 ED63 5F              _     clrb
14068 ED64 4F              O     clra
14069 ED65 FD 0C DF        ...   std 0cdf
14070 ED68 5F              _     clrb
14071 ED69 4F              O     clra
14072 ED6A FD 0C E1        ...   std 0ce1
14073 ED6D 5F              _     clrb
14074 ED6E 4F              O     clra
14075 ED6F FD 0C E3        ...   std 0ce3
14076 ED72 5F              _     clrb
14077 ED73 4F              O     clra
14078 ED74 FD 0C E5        ...   std 0ce5
14079 ED77 4F              O     clra
14080 ED78 5F              _     clrb
14081 ED79 FD 0C F5        ...   std 0cf5
14082 ED7C FD 0C F3        ...   std 0cf3
14083 ED7F 4F              O     clra
14084 ED80 5F              _     clrb
14085 ED81 FD 0C F9        ...   std 0cf9
14086 ED84 FD 0C F7        ...   std 0cf7
14087 ED87 4F              O     clra
14088 ED88 5F              _     clrb
14089 ED89 FD 0C FD        ...   std 0cfd
14090 ED8C FD 0C FB        ...   std 0cfb
14091 ED8F 4F              O     clra
14092 ED90 5F              _     clrb
14093 ED91 FD 0D 01        ...   std 0d01
14094 ED94 FD 0C FF        ...   std 0cff
14095 ED97 4F              O     clra
14096 ED98 5F              _     clrb
14097 ED99 FD 0D 05        ...   std 0d05
14098 ED9C FD 0D 03        ...   std 0d03
14099 ED9F 5F              _     clrb
14100 EDA0 4F              O     clra
14101 EDA1 FD 0D 07        ...   std 0d07
14102 EDA4 5F              _     clrb
14103 EDA5 4F              O     clra
14104 EDA6 FD 0D 09        ...   std 0d09
14105 EDA9 5F              _     clrb
14106 EDAA 4F              O     clra
14107 EDAB FD 0D 0B        ...   std 0d0b
14108 EDAE 5F              _     clrb
14109 EDAF 4F              O     clra
14110 EDB0 FD 0D 0D        ...   std 0d0d
14111 EDB3 4F              O     clra
14112 EDB4 5F              _     clrb
14113 EDB5 FD 0D 11        ...   std 0d11
14114 EDB8 FD 0D 0F        ...   std 0d0f
14115 EDBB 4F              O     clra
14116 EDBC 5F              _     clrb
14117 EDBD FD 0D 15        ...   std 0d15
14118 EDC0 FD 0D 13        ...   std 0d13
14119 EDC3 4F              O     clra
14120 EDC4 5F              _     clrb
14121 EDC5 FD 0D 19        ...   std 0d19
14122 EDC8 FD 0D 17        ...   std 0d17
14123 EDCB 4F              O     clra
14124 EDCC 5F              _     clrb
14125 EDCD FD 0D 1D        ...   std 0d1d
14126 EDD0 FD 0D 1B        ...   std 0d1b
14127 EDD3 7F 0B AF        ...   clr 0baf
14128 EDD6 7F 0B AE        ...   clr 0bae
14129 EDD9 7F 0B AD        ...   clr 0bad
14130 EDDC 7F 0B AC        ...   clr 0bac
14131 EDDF 7F 0B AB        ...   clr 0bab
14132 EDE2 7F 0B B4        ...   clr 0bb4
14133 EDE5 7F 0B B3        ...   clr 0bb3
14134 EDE8 7F 0B B2        ...   clr 0bb2
14135 EDEB 7F 0B B1        ...   clr 0bb1
14136 EDEE 7F 0B B0        ...   clr 0bb0
14137 EDF1 C6 05           ..    ldab #05
14138 EDF3 F7 08 00        ...   stab 0800
14139 EDF6 8D 21           .!    bsr 21 ;jump204 - test harness function
14140 goto80:
14141 ; switch things off (motors, display clock, keypad strobe)
14142 EDF8 7F 00 14        ...   clr 0014
14143 EDFB F6 00 14        ...   ldab 0014
14144 EDFE F7 38 00        .8.   stab 3800
14145 EE01 31              1     ins
14146 EE02 39              9     rts
14147
14148 jump36:
14149 ; writes msg to screen for 1.5s
14150 EE03 37              7     pshb
14151 EE04 36              6     psha
14152 EE05 30              0     tsx
14153 EE06 EC 00           ..    ldd 00,x
14154 EE08 BD C0 BA        ...   jsr c0ba             ;display:
14155 EE0B CE 10 16        ...   ldx #1016
14156 EE0E 1D 01 FF        ..    bclr 01,x, #ff
14157 EE11 CC 05 DC        ...   ldd #05dc    ; 1500
14158 EE14 BD E5 71        ...   jsr e571     ;msdelay
14159 EE17 38              8     pulx
14160 EE18 39              9     rts
14161
14162 jump204:
14163 EE19 BD E5 D1        ...   jsr e5d1             ;jump52 - triple beep
14164 goto81:
14165 ; this the diagnostic function activated when the "test harness"
14166 ; is connected
14167 EE1C CE 10 16        ...   ldx #1016
14168 EE1F 1D 01           ..    bclr 01,x, #ff
14169 EE21 CE 10 16        ..    ldx #1016
14170 EE25 1C 01 5A        ...   bset 01,x, #5A
14171 EE28 F6 10 16        ...   ldab 1016
14172 EE2B 26 0C           &.    bne 0c       ; to ee39
14173 EE2D CC B1 4F        ..O   ldd #b14f    ;"RAM   FAIL"
14174 EE30 BD C0 BA        ...   jsr c0ba             ;display:
14175 EE33 CC 05 DC        ...   ldd #05dc
14176 EE36 BD E5 71        ..q   jsr e571             ;msdelay
14177 ; i=4
14178 EE39 C6 04           ..    ldab #04
14179 EE3B F7 00 1C        ...   stab 001c
14180 ; i <= 7
14181 EE3E F6 00 1C        ...   ldab 001c
14182 EE41 C1 07           ..    cmpb #07
14183 EE43 24 57           $W    bcc 57       ; to ee9c (break out)
14184 EE45 F6 00 1C        ...   ldab 001c
14185 EE48 4F              O     clra
14186 EE49 C3 B1 23        ..#   addd #b123   ; power of 2
14187 EE4C 8F              .     xgdx
14188 EE4D E6 00           ..    ldab 00,x
14189 EE4F 53              S     comb
14190 EE50 F4 00 1A        ...   andb 001a
14191 EE53 F7 00 1A        ...   stab 001a
14192 EE56 F6 00 1A        ...   ldab 001a
14193 EE59 F7 30 00        .0.   stab 3000    ; set coin bit active (low)
14194 EE5C CC 00 0A        ...   ldd #000a
14195 EE5F BD E5 71        ..q   jsr e571             ;msdelay
14196 EE62 F6 18 00        ...   ldab 1800
14197 EE65 2C 07           ,.    bge 07       ; to ee6e
14198 EE67 CC B1 5A        ..Z   ldd #b15a    ; "P2    FAIL"
14199 EE6A 8D 97           ..    bsr dest 97  ; display to ee03
14200 EE6C 20 2E            .    bra 2e       ; to ee9c
14201 EE6E F6 00 1C        ...   ldab 001c
14202 EE71 4F              O     clra
14203 EE72 C3 B1 23        ..#   addd #b123   ; powers of 2
14204 EE75 8F              .     xgdx
14205 EE76 E6 00           ..    ldab 00,x
14206 EE78 FA 00 1A        ...   orb 001a
14207 EE7B F7 00 1A        ...   stab 001a
14208 EE7E F6 00 1A        ...   ldab 001a
14209 EE81 F7 30 00        .0.   stab 3000    ; set coin bit inactive (high)
14210 EE84 CC 00 0A        ...   ldd #000a
14211 EE87 BD E5 71        ..q   jsr e571             ;msdelay
14212 EE8A F6 18 00        ...   ldab 1800    ; if changer int'
14213 EE8D 2D 08           -.    blt 08       ; ee97
14214 EE8F CC B1 5A        ..Z   ldd #b15a    ; "P2 FAIL"
14215 EE92 BD EE 03        ...   jsr ee03             ;jump36
14216 EE95 20 05            .    bra 05       ; to ee9c
14217 EE97 7C 00 1C        |..   inc 001c
14218 EE9A 20 A2            .    bra a2       ; to ee3e
14219 ;
14220 EE9C CE 10 00        ...   ldx #1000
14221 EE9F 1C 00 08        ...   bset 00,x, #08 ; talk to coin mech
14222 EEA2 CE 10 08        ...   ldx #1008
14223 EEA5 1C 00 02        ...   bset 00,x, #02 ; set rx of sci
14224 EEA8 CE 00 1A        ...   ldx #001a
14225 EEAB 1C 00 40        ...   bset 00,x, #40
14226 EEAE F6 00 1A        ...   ldab 001a
14227 EEB1 F7 30 00        .0.   stab 3000    ; unset $1.00 line
14228 EEB4 CC 00 0A        ...   ldd #000a
14229 EEB7 BD E5 71        ..q   jsr e571             ;msdelay
14230 EEBA F6 10 08        ...   ldab 1008
14231 EEBD C4 01           ..    andb #01     ; tests tx of sci
14232 EEBF 26 06           &.    bne 06       ; to eec7
14233 EEC1 CC B1 5A        ..Z   ldd #b15a    ; "P2    FAIL"
14234 EEC4 BD EE 03        ...   jsr ee03             ;jump36
14235 EEC7 CE 00 1A        ...   ldx #001a
14236 EECA 1D 00 40        ...   bclr 00,x, #40
14237 EECD F6 00 1A        ...   ldab 001a
14238 EED0 F7 30 00        .0.   stab 3000    ; set $1.00 line
14239 EED3 CC 00 0A        ...   ldd #000a
14240 EED6 BD E5 71        ..q   jsr e571             ;msdelay
14241 ;
14242 EED9 F6 10 08        ...   ldab 1008
14243 EEDC C4 01           ..    andb #01     ; tests txt of sci
14244 EEDE 27 06           '.    beq 06       ; to eee6
14245 EEE0 CC B1 5A        ..Z   ldd #b15a    ; "P2    FAIL"
14246 EEE3 BD EE 03        ...   jsr ee03             ;jump36
14247 EEE6 CE 00 1A        ...   ldx #001a
14248 EEE9 1C 00 02        ...   bset 00,x, #02
14249 EEEC F6 00 1A        ...   ldab 001a
14250 EEEF F7 30 00        .0.   stab 3000    ; ditto for $0.25
14251 EEF2 CC 00 0A        ...   ldd #000a
14252 EEF5 BD E5 71        ..q   jsr e571             ;msdelay
14253 EEF8 F6 10 00        ...   ldab 1000
14254 EEFB C4 04           ..    andb #04
14255 EEFD 26 06           &.    bne 06
14256 EEFF CC B1 65        ..e   ldd #b165
14257 EF02 BD EE 03        ...   jsr ee03             ;jump36
14258 EF05 CE 00 1A        ...   ldx #001a
14259 EF08 1D 00 02        ...   bclr 00,x, #02
14260 EF0B F6 00 1A        ...   ldab 001a
14261 EF0E F7 30 00        .0.   stab 3000    ; ditto for $0.25
14262 EF11 CC 00 0A        ...   ldd #000a
14263 EF14 BD E5 71        ..q   jsr e571             ;msdelay
14264 ;
14265 EF17 F6 10 00        ...   ldab 1000
14266 EF1A C4 04           ..    andb #04     ; coin dispenser pin6
14267 EF1C 27 06           '.    beq 06
14268 EF1E CC B1 65        ..e   ldd #b165    ; "P2-P3 FAIL"
14269 EF21 BD EE 03        ...   jsr ee03             ;jump36
14270 EF24 CE 00 1A        ...   ldx #001a
14271 EF27 1C 00 01        ...   bset 00,x, #01
14272 EF2A F6 00 1A        ...   ldab 001a
14273 EF2D F7 30 00        .0.   stab 3000    ; send line of changer
14274 EF30 CC 00 0A        ...   ldd #000a
14275 EF33 BD E5 71        ..q   jsr e571             ;msdelay
14276 ;
14277 EF36 F6 18 00        ...   ldab 1800
14278 EF39 C4 20           .     andb #20     ; test door switch
14279 EF3B 26 06           &.    bne 06
14280 EF3D CC B1 70        ..p   ldd #b170    ; "P2-P8 FAIL"
14281 EF40 BD EE 03        ...   jsr ee03             ;jump36
14282 EF43 CE 00 1A        ...   ldx #001a
14283 EF46 1D 00 01        ...   bclr 00,x, #01
14284 EF49 F6 00 1A        ...   ldab 001a
14285 EF4C F7 30 00        .0.   stab 3000    ; unset send line of changer
14286 EF4F CC 00 0A        ...   ldd #000a
14287 EF52 BD E5 71        ..q   jsr e571             ;msdelay
14288 EF55 F6 18 00        ...   ldab 1800
14289 EF58 C4 20           .     andb #20     ; test door again?
14290 EF5A 27 06           '.    beq 06
14291 EF5C CC B1 70        ..p   ldd #b170    ; "P2-P8 FAIL"
14292 EF5F BD EE 03        ...   jsr ee03             ;jump36
14293 EF62 CE 00 1A        ...   ldx #001a
14294 EF65 1C 00 04        ...   bset 00,x, #04 ; reset changer
14295 EF68 F6 00 1A        ...   ldab 001a
14296 EF6B F7 30 00        .0.   stab 3000
14297 EF6E CC 00 0A        ...   ldd #000a
14298 EF71 BD E5 71        ..q   jsr e571             ;msdelay
14299 EF74 F6 10 0A        ...   ldab 100a
14300 EF77 C4 04           ..    andb #04     ; test no-sale switch
14301 EF79 26 06           &.    bne 06
14302 EF7B CC B1 7B        ..{   ldd #b17b    ; "P2-P9 FAIL"
14303 EF7E BD EE 03        ...   jsr ee03             ;jump36
14304 EF81 CE 00 1A        ...   ldx #001a
14305 EF84 1D 00 04        ...   bclr 00,x, #04
14306 EF87 F6 00 1A        ...   ldab 001a
14307 EF8A F7 30 00        .0.   stab 3000    ;snack motor drivers serial data is bit 7
14308 EF8D CC 00 0A        ...   ldd #000a
14309 EF90 BD E5 71        ..q   jsr e571             ;msdelay
14310 EF93 F6 10 0A        ...   ldab 100a
14311 EF96 C4 04           ..    andb #04
14312 EF98 27 06           '.    beq 06
14313 EF9A CC B1 7B        ..{   ldd #b17b    ; "P2-P9 FAIL"
14314 EF9D BD EE 03        ...   jsr ee03             ;jump36
14315 EFA0 CE 10 00        ...   ldx #1000
14316 EFA3 1C 00 08        ...   bset 00,x, #08
14317 EFA6 CE 00 1A        ...   ldx #001a
14318 EFA9 1C 00 40        ...   bset 00,x, #40
14319 EFAC F6 00 1A        ...   ldab 001a
14320 EFAF F7 30 00        .0.   stab 3000
14321 EFB2 CE 10 08        ...   ldx #1008
14322 EFB5 1C 00 02        ...   bset 00,x, #02 ; keypad data
14323 EFB8 CC 00 0A        ...   ldd #000a
14324 EFBB BD E5 71        ..q   jsr e571             ;msdelay
14325 EFBE F6 10 08        ...   ldab 1008
14326 EFC1 C4 01           ..    andb #01
14327 EFC3 26 06           &.    bne 06
14328 EFC5 CC B1 86        ...   ldd #b186    ; "P3-P4 FAIL"
14329 EFC8 BD EE 03        ...   jsr ee03             ;jump36
14330 EFCB CE 10 08        ...   ldx #1008
14331 EFCE 1D 00 02        ...   bclr 00,x, #02
14332 EFD1 CC 00 0A        ...   ldd #000a
14333 EFD4 BD E5 71        ..q   jsr e571             ;msdelay
14334 EFD7 F6 10 08        ...   ldab 1008
14335 EFDA C4 01           ..    andb #01
14336 EFDC 27 06           '.    beq 06
14337 EFDE CC B1 86        ...   ldd #b186     ; "P3-P4 FAIL"
14338 EFE1 BD EE 03        ...   jsr ee03             ;jump36
14339 EFE4 CE 10 00        ...   ldx #1000
14340 EFE7 1D 00 08        ...   bclr 00,x, #08
14341 EFEA CE 10 08        ...   ldx #1008
14342 EFED 1C 00 02        ...   bset 00,x, #02
14343 EFF0 CC 00 0A        ...   ldd #000a
14344 EFF3 BD E5 71        ..q   jsr e571             ;msdelay
14345 EFF6 F6 10 08        ...   ldab 1008
14346 EFF9 C4 01           ..    andb #01
14347 EFFB 26 06           &.    bne 06
14348 EFFD CC B1 91        ...   ldd #b191    ; "P5   FAIL"
14349 F000 BD EE 03        ...   jsr ee03             ;jump36
14350 F003 CE 10 08        ...   ldx #1008
14351 F006 1D 00 02        ...   bclr 00,x, #02
14352 F009 CC 00 0A        ...   ldd #000a
14353 F00C BD E5 71        ..q   jsr e571             ;msdelay
14354 F00F F6 10 08        ...   ldab 1008
14355 F012 C4 01           ..    andb #01
14356 F014 27 06           '.    beq 06
14357 F016 CC B1 91        ...   ldd #b191
14358 F019 BD EE 03        ...   jsr ee03             ;jump36
14359 F01C CE 00 14        ...   ldx #0014
14360 F01F 1C 00           ..    bset add,x 00,x
14361 F021 20 F6            .    bra f6
14362 F023 00              .     test
14363 F024 14              .     bset
14364 F025 F7 38 00        .8.   stab 3800
14365 F028 CC 00 0A        ...   ldd #000a
14366 F02B BD E5 71        ..q   jsr e571             ;msdelay
14367 F02E F6 20 00        . .   ldab 2000
14368 F031 C4 40           .@    andb #40
14369 F033 26 06           &.    bne 06
14370 F035 CC B1 9C        ...   ldd #b19c
14371 F038 BD EE 03        ...   jsr ee03             ;jump36
14372 F03B CE 00 14        ...   ldx #0014
14373 F03E 1D 00           ..    bclr add,x 00,x
14374 F040 20 F6            .    bra f6
14375 F042 00              .     test
14376 F043 14              .     bset
14377 F044 F7 38 00        .8.   stab 3800
14378 F047 CC 00 0A        ...   ldd #000a
14379 F04A BD E5 71        ..q   jsr e571             ;msdelay
14380 F04D F6 20 00        . .   ldab 2000
14381 F050 C4 40           .@    andb #40
14382 F052 27 06           '.    beq 06
14383 F054 CC B1 9C        ...   ldd #b19c
14384 F057 BD EE 03        ...   jsr ee03             ;jump36
14385 F05A CE 00 14        ...   ldx #0014
14386 F05D 1C 00 40        ...   bset 00,x, #40
14387 F060 F6 00 14        ...   ldab 0014
14388 F063 F7 38 00        .8.   stab 3800
14389 F066 CC 00 0A        ...   ldd #000a
14390 F069 BD E5 71        ..q   jsr e571             ;msdelay
14391 F06C F6 20 00        . .   ldab 2000
14392 F06F 2C 06           ,.    bge 06
14393 F071 CC B1 9C        ...   ldd #b19c
14394 F074 BD EE 03        ...   jsr ee03             ;jump36
14395 F077 CE 00 14        ...   ldx #0014
14396 F07A 1D 00 40        ...   bclr 00,x, #40
14397 F07D F6 00 14        ...   ldab 0014
14398 F080 F7 38 00        .8.   stab 3800
14399 F083 CC 00 0A        ...   ldd #000a
14400 F086 BD E5 71        ..q   jsr e571             ;msdelay
14401 F089 F6 20 00        . .   ldab 2000
14402 F08C 2D 06           -.    blt 06
14403 F08E CC B1 9C        ...   ldd #b19c
14404 F091 BD EE 03        ...   jsr ee03             ;jump36
14405 F094 7F 00 61        ..a   clr 0061
14406 F097 F6 00 61        ..a   ldab 0061
14407 F09A C1 08           ..    cmpb #08
14408 F09C 24 22           $"    bcc 22
14409 F09E F6 00 61        ..a   ldab 0061
14410 F0A1 4F              O     clra
14411 F0A2 C3 B1 C8        ...   addd #b1c8
14412 F0A5 8F              .     xgdx
14413 F0A6 E6 00           ..    ldab 00,x
14414 F0A8 F7 00 06        ...   stab 0006
14415 F0AB BD D3 11        ...   jsr d311             ;jump30 - test position exists
14416 F0AE 83 00 00        ...   subd #0000
14417 F0B1 27 08           '.    beq 08
14418 F0B3 CC B1 A7        ...   ldd #b1a7
14419 F0B6 BD EE 03        ...   jsr ee03             ;jump36
14420 F0B9 20 05            .    bra 05
14421 F0BB 7C 00 61        |.a   inc 0061
14422 F0BE 20 D7            .    bra d7
14423 F0C0 7F 00 61        ..a   clr 0061
14424 F0C3 F6 00 61        ..a   ldab 0061
14425 F0C6 C1 08           ..    cmpb #08
14426 F0C8 24 2B           $+    bcc 2b
14427 F0CA F6 00 61        ..a   ldab 0061
14428 F0CD 4F              O     clra
14429 F0CE C3 B1 C8        ...   addd #b1c8
14430 F0D1 8F              .     xgdx
14431 F0D2 E6 00           ..    ldab 00,x
14432 F0D4 F7 00 06        ...   stab 0006
14433 F0D7 BD D1 3D        ..=   jsr d13d             ;jump34 - motor on
14434 F0DA BD D5 70        ..p   jsr d570             ;jump35
14435 F0DD 83 00 00        ...   subd #0000
14436 F0E0 26 0B           &.    bne 0b
14437 F0E2 BD D1 05        ...   jsr d105             ;motors_off
14438 F0E5 CC B1 B2        ...   ldd #b1b2
14439 F0E8 BD EE 03        ...   jsr ee03             ;jump36
14440 F0EB 20 08            .    bra 08
14441 F0ED BD D1 05        ...   jsr d105             ;motors_off
14442 F0F0 7C 00 61        |.a   inc 0061
14443 F0F3 20 CE            .    bra ce
14444 F0F5 7F 00 61        ..a   clr 0061
14445 F0F8 F6 00 61        ..a   ldab 0061
14446 F0FB C1 05           ..    cmpb #05
14447 F0FD 24 45           $E    bcc 45
14448 F0FF F6 00 61        ..a   ldab 0061
14449 F102 4F              O     clra
14450 F103 C3 B1 C8        ...   addd #b1c8
14451 F106 8F              .     xgdx
14452 F107 E6 00           ..    ldab 00,x
14453 F109 F7 00 06        ...   stab 0006
14454 F10C BD D1 3D        ..=   jsr d13d             ;jump34 - motor on
14455 F10F CC 00 0A        ...   ldd #000a
14456 F112 BD E5 71        ..q   jsr e571             ;msdelay
14457 F115 F6 18 00        ...   ldab 1800
14458 F118 C4 40           .@    andb #40
14459 F11A 26 0B           &.    bne 0b
14460 F11C BD D1 05        ...   jsr d105             ;motors_off
14461 F11F CC B1 B2        ...   ldd #b1b2
14462 F122 BD EE 03        ...   jsr ee03             ;jump36
14463 F125 20 1D            .    bra 1d
14464 F127 BD D1 05        ...   jsr d105             ;motors_off
14465 F12A CC 00 0A        ...   ldd #000a
14466 F12D BD E5 71        ..q   jsr e571             ;msdelay
14467 F130 F6 18 00        ...   ldab 1800
14468 F133 C4 40           .@    andb #40
14469 F135 27 08           '.    beq 08
14470 F137 CC B1 B2        ...   ldd #b1b2
14471 F13A BD EE 03        ...   jsr ee03             ;jump36
14472 F13D 20 05            .    bra 05
14473 F13F 7C 00 61        |.a   inc 0061
14474 F142 20 B4            .    bra b4
14475 F144 FC 10 16        ...   ldd 1016
14476 F147 83 5A 5A        .ZZ   subd #5a5a
14477 F14A 26 0C           &.    bne 0c
14478 F14C CC B1 BD        ...   ldd #b1bd    ; " PASSED "
14479 F14F BD C0 BA        ...   jsr c0ba             ;display:
14480 F152 CC 05 DC        ...   ldd #05dc
14481 F155 BD E5 71        ..q   jsr e571             ;msdelay
14482 F158 7E EE 1C        ~..   jmp ee1c             ;goto81
14483
14484 jump53:
14485 ;send a byte to the printer
14486 ;it calls c7e7, which does things with the serial port
14487 F15B 37              7     pshb
14488 F15C 36              6     psha
14489 F15D F6 00 19        ...   ldab 0019
14490 F160 C4 40           .@    andb #40
14491 F162 26 5B           &[    bne 5b
14492 F164 C6 FF           ..    ldab #ff
14493 F166 F7 00 39        ..9   stab 0039
14494 F169 F6 20 00        . .   ldab 2000
14495 F16C 2C 11           ,.    bge 11
14496 F16E F6 20 00        . .   ldab 2000
14497 F171 C4 40           .@    andb #40
14498 F173 27 0A           '.    beq 0a
14499 F175 F6 00 39        ..9   ldab 0039
14500 F178 27 05           '.    beq 05
14501 F17A BD E6 1B        ...   jsr e61b             ;jump4
14502 F17D 20 EA            .    bra ea
14503 F17F F6 00 39        ..9   ldab 0039
14504 F182 26 08           &.    bne 08
14505 F184 CE 00 19        ...   ldx #0019
14506 F187 1C 00 40        ...   bset 00,x, #40
14507 F18A 20 33            3    bra 33
14508 F18C F6 20 00        . .   ldab 2000
14509 F18F C4 40           .@    andb #40
14510 F191 27 2C           ',    beq 2c
14511 F193 F6 00 1D        ...   ldab 001d
14512 F196 C4 01           ..    andb #01
14513 F198 27 1E           '.    beq 1e
14514 F19A 30              0     tsx
14515 F19B E6 01           ..    ldab 01,x
14516 F19D C1 30           .0    cmpb #30
14517 F19F 26 08           &.    bne 08
14518 F1A1 CC 00 20        ..    ldd #0020
14519 F1A4 BD C7 E7        ...   jsr c7e7             ;jump37 - send to serial port
14520 F1A7 20 0D            .    bra 0d
14521 F1A9 30              0     tsx
14522 F1AA E6 01           ..    ldab 01,x
14523 F1AC 4F              O     clra
14524 F1AD BD C7 E7        ...   jsr c7e7             ;jump37 - send to serial port
14525 F1B0 CE 00 1D        ...   ldx #001d
14526 F1B3 1D 00 01        ...   bclr 00,x, #01
14527 F1B6 20 07            .    bra 07
14528 F1B8 30              0     tsx
14529 F1B9 E6 01           ..    ldab 01,x
14530 F1BB 4F              O     clra
14531 F1BC BD C7 E7        ...   jsr c7e7             ;jump37 - send to serial port
14532 F1BF 38              8     pulx
14533 F1C0 39              9     rts
14534
14535 jump59:
14536 F1C1 37              7     pshb
14537 F1C2 36              6     psha
14538 F1C3 F6 20 00        . .   ldab 2000
14539 F1C6 C4 40           .@    andb #40
14540 F1C8 27 1C           '.    beq 1c
14541 F1CA 7F 00 18        ...   clr 0018
14542 F1CD F6 00 18        ...   ldab 0018
14543 F1D0 30              0     tsx
14544 F1D1 E1 05           ..    cmpb 05,x
14545 F1D3 24 11           $.    bcc 11
14546 F1D5 30              0     tsx
14547 F1D6 EE 00           ..    ldx 00,x
14548 F1D8 E6 00           ..    ldab 00,x
14549 F1DA 4F              O     clra
14550 F1DB BD F1 5B        ..[   jsr f15b             ;jump53
14551 F1DE 38              8     pulx
14552 F1DF 08              .     inx
14553 F1E0 3C              <     pshx
14554 F1E1 7C 00 18        |..   inc 0018
14555 F1E4 20 E7            .    bra e7
14556 F1E6 38              8     pulx
14557 F1E7 39              9     rts
14558
14559 ;send a string to the printer.  D is a pointer to a string
14560 jump57:
14561 F1E8 37              7     pshb
14562 F1E9 36              6     psha
14563 F1EA F6 20 00        . .   ldab 2000
14564 F1ED C4 40           .@    andb #40
14565 F1EF 27 1B           '.    beq 1b
14566 F1F1 CC 00 20        ..    ldd #0020
14567 F1F4 BD F1 5B        ..[   jsr f15b             ;jump53
14568 F1F7 30              0     tsx
14569 F1F8 EE 00           ..    ldx 00,x
14570 F1FA E6 00           ..    ldab 00,x
14571 F1FC 27 0E           '.    beq 0e
14572 F1FE 30              0     tsx
14573 F1FF EE 00           ..    ldx 00,x
14574 F201 E6 00           ..    ldab 00,x
14575 F203 4F              O     clra
14576 F204 BD F1 5B        ..[   jsr f15b             ;jump53
14577 F207 38              8     pulx
14578 F208 08              .     inx
14579 F209 3C              <     pshx
14580 F20A 20 EB            .    bra eb
14581 F20C 38              8     pulx
14582 F20D 39              9     rts
14583
14584 jump62:
14585 F20E 37              7     pshb
14586 F20F 36              6     psha
14587 F210 F6 20 00        . .   ldab 2000
14588 F213 C4 40           .@    andb #40
14589 F215 27 34           '4    beq 34
14590 F217 CE 00 1D        ...   ldx #001d
14591 F21A 1C 00 01        ...   bset 00,x, #01
14592 F21D 30              0     tsx
14593 F21E E6 01           ..    ldab 01,x
14594 F220 4F              O     clra
14595 F221 BD E7 95        ...   jsr e795             ;jump54 - number to string
14596 F224 F6 00 5D        ..]   ldab 005d
14597 F227 4F              O     clra
14598 F228 BD F1 5B        ..[   jsr f15b             ;jump53
14599 F22B F6 00 5E        ..^   ldab 005e
14600 F22E 4F              O     clra
14601 F22F BD F1 5B        ..[   jsr f15b             ;jump53
14602 F232 CE 00 1D        ...   ldx #001d
14603 F235 1D 00 01        ...   bclr 00,x, #01
14604 F238 F6 00 5F        .._   ldab 005f
14605 F23B 4F              O     clra
14606 F23C BD F1 5B        ..[   jsr f15b             ;jump53
14607 F23F CC 00 20        ..    ldd #0020
14608 F242 BD F1 5B        ..[   jsr f15b             ;jump53
14609 F245 CC 00 20        ..    ldd #0020
14610 F248 BD F1 5B        ..[   jsr f15b             ;jump53
14611 F24B 38              8     pulx
14612 F24C 39              9     rts
14613
14614 jump58:
14615 F24D 37              7     pshb
14616 F24E 36              6     psha
14617 F24F F6 20 00        . .   ldab 2000
14618 F252 C4 40           .@    andb #40
14619 F254 27 41           'A    beq 41
14620 F256 CE 00 1D        ...   ldx #001d
14621 F259 1C 00 01        ...   bset 00,x, #01
14622 F25C 30              0     tsx
14623 F25D EC 00           ..    ldd 00,x
14624 F25F BD E7 45        ..E   jsr e745             ;jump55 - number to string
14625 F262 F6 00 57        ..W   ldab 0057
14626 F265 4F              O     clra
14627 F266 BD F1 5B        ..[   jsr f15b             ;jump53
14628 F269 F6 00 5A        ..Z   ldab 005a
14629 F26C 4F              O     clra
14630 F26D BD F1 5B        ..[   jsr f15b             ;jump53
14631 F270 F6 00 5D        ..]   ldab 005d
14632 F273 4F              O     clra
14633 F274 BD F1 5B        ..[   jsr f15b             ;jump53
14634 F277 F6 00 5E        ..^   ldab 005e
14635 F27A 4F              O     clra
14636 F27B BD F1 5B        ..[   jsr f15b             ;jump53
14637 F27E CE 00 1D        ...   ldx #001d
14638 F281 1D 00 01        ...   bclr 00,x, #01
14639 F284 F6 00 5F        .._   ldab 005f
14640 F287 4F              O     clra
14641 F288 BD F1 5B        ..[   jsr f15b             ;jump53
14642 F28B CC 00 20        ..    ldd #0020
14643 F28E BD F1 5B        ..[   jsr f15b             ;jump53
14644 F291 CC 00 20        ..    ldd #0020
14645 F294 BD F1 5B        ..[   jsr f15b             ;jump53
14646 F297 38              8     pulx
14647 F298 39              9     rts
14648
14649 jump61:
14650 F299 37              7     pshb
14651 F29A 36              6     psha
14652 F29B F6 20 00        . .   ldab 2000
14653 F29E C4 40           .@    andb #40    ; printer DSR
14654 F2A0 27 7B           '{    beq 7b
14655 F2A2 F6 00 17        ...   ldab 0017
14656 F2A5 C4 08           ..    andb #08
14657 F2A7 26 06           &.    bne 06
14658 F2A9 CC 00 24        ..$   ldd #0024    ; "$"
14659 F2AC BD F1 5B        ..[   jsr f15b             ;jump53
14660 F2AF CE 00 1D        ...   ldx #001d
14661 F2B2 1C 00 01        ...   bset 00,x, #01
14662 F2B5 30              0     tsx
14663 F2B6 EC 00           ..    ldd 00,x
14664 F2B8 BD E7 45        ..E   jsr e745             ;jump55 - number to string
14665 F2BB F6 00 57        ..W   ldab 0057
14666 F2BE 4F              O     clra
14667 F2BF BD F1 5B        ..[   jsr f15b             ;jump53 - byte to printer
14668 F2C2 F6 00 5A        ..Z   ldab 005a
14669 F2C5 4F              O     clra
14670 F2C6 BD F1 5B        ..[   jsr f15b             ;jump53 - byte to printer
14671 F2C9 F6 00 13        ...   ldab 0013
14672 F2CC C1 08           ..    cmpb #08
14673 F2CE 26 0C           &.    bne 0c
14674 F2D0 CC 00 2E        ...   ldd #002e
14675 F2D3 BD F1 5B        ..[   jsr f15b             ;jump53 - byte to printer
14676 F2D6 CE 00 1D        ...   ldx #001d
14677 F2D9 1D 00 01        ...   bclr 00,x, #01
14678 F2DC F6 00 5D        ..]   ldab 005d
14679 F2DF 4F              O     clra
14680 F2E0 BD F1 5B        ..[   jsr f15b             ;jump53 - byte to printer
14681 F2E3 F6 00 13        ...   ldab 0013
14682 F2E6 C1 04           ..    cmpb #04
14683 F2E8 26 0C           &.    bne 0c
14684 F2EA CC 00 2E        ...   ldd #002e
14685 F2ED BD F1 5B        ..[   jsr f15b             ;jump53 - byte to printer
14686 F2F0 CE 00 1D        ...   ldx #001d
14687 F2F3 1D 00 01        ...   bclr 00,x, #01
14688 F2F6 F6 00 5E        ..^   ldab 005e
14689 F2F9 4F              O     clra
14690 F2FA BD F1 5B        ..[   jsr f15b             ;jump53 - byte to printer
14691 F2FD F6 00 13        ...   ldab 0013
14692 F300 C1 02           ..    cmpb #02
14693 F302 26 06           &.    bne 06
14694 F304 CC 00 2E        ...   ldd #002e
14695 F307 BD F1 5B        ..[   jsr f15b             ;jump53 - byte to printer
14696 F30A CE 00 1D        ...   ldx #001d
14697 F30D 1D 00 01        ...   bclr 00,x, #01
14698 F310 F6 00 5F        .._   ldab 005f
14699 F313 4F              O     clra
14700 F314 BD F1 5B        ..[   jsr f15b             ;jump53 - byte to printer
14701 F317 CC 00 0A        ...   ldd #000a
14702 F31A BD F1 5B        ..[   jsr f15b             ;jump53 - byte to printer
14703 F31D 38              8     pulx
14704 F31E 39              9     rts
14705
14706 jump60:
14707 F31F 38              8     pulx
14708 F320 37              7     pshb
14709 F321 36              6     psha
14710 F322 3C              <     pshx
14711 F323 F6 20 00        . .   ldab 2000
14712 F326 C4 40           .@    andb #40     ; printer dsr
14713 F328 26 03           &.    bne 03
14714 F32A 7E F3 BC        ~..   jmp f3bc             ;goto82
14715 F32D F6 00 17        ...   ldab 0017
14716 F330 C4 08           ..    andb #08
14717 F332 26 06           &.    bne 06
14718 F334 CC 00 24        ..$   ldd #0024    ; "$"
14719 F337 BD F1 5B        ..[   jsr f15b             ;jump53 - byte to printer
14720 F33A CE 00 1D        ...   ldx #001d
14721 F33D 1C 00 01        ...   bset 00,x, #01
14722 F340 30              0     tsx
14723 F341 EC 04           ..    ldd 04,x
14724 F343 37              7     pshb
14725 F344 36              6     psha
14726 F345 EC 02           ..    ldd 02,x
14727 F347 BD E6 21        ..!   jsr e621             ;jump56 - write to display
14728 F34A 38              8     pulx
14729 F34B C6 07           ..    ldab #07
14730 F34D F7 00 18        ...   stab 0018
14731 F350 F6 00 18        ...   ldab 0018
14732 F353 C1 FF           ..    cmpb #ff
14733 F355 24 5F           $_    bcc 5f
14734 F357 F6 00 18        ...   ldab 0018
14735 F35A 4F              O     clra
14736 F35B C3 0B 90        ...   addd #0b90
14737 F35E 8F              .     xgdx
14738 F35F E6 00           ..    ldab 00,x
14739 F361 4F              O     clra
14740 F362 BD F1 5B        ..[   jsr f15b             ;jump53
14741 F365 F6 00 18        ...   ldab 0018
14742 F368 C1 03           ..    cmpb #03
14743 F36A 26 15           &.    bne 15
14744 F36C F6 00 13        ...   ldab 0013
14745 F36F C1 08           ..    cmpb #08
14746 F371 26 0C           &.    bne 0c
14747 F373 CC 00 2E        ...   ldd #002e
14748 F376 BD F1 5B        ..[   jsr f15b             ;jump53
14749 F379 CE 00 1D        ...   ldx #001d
14750 F37C 1D 00 01        ...   bclr 00,x, #01
14751 F37F 20 30            0    bra 30
14752 F381 C1 02           ..    cmpb #02
14753 F383 26 15           &.    bne 15
14754 F385 F6 00 13        ...   ldab 0013
14755 F388 C1 04           ..    cmpb #04
14756 F38A 26 0C           &.    bne 0c
14757 F38C CC 00 2E        ...   ldd #002e
14758 F38F BD F1 5B        ..[   jsr f15b             ;jump53
14759 F392 CE 00 1D        ...   ldx #001d
14760 F395 1D 00 01        ...   bclr 00,x, #01
14761 F398 20 17            .    bra 17
14762 F39A C1 01           ..    cmpb #01
14763 F39C 26 13           &.    bne 13
14764 F39E F6 00 13        ...   ldab 0013
14765 F3A1 C1 02           ..    cmpb #02
14766 F3A3 26 06           &.    bne 06
14767 F3A5 CC 00 2E        ...   ldd #002e
14768 F3A8 BD F1 5B        ..[   jsr f15b             ;jump53
14769 F3AB CE 00 1D        ...   ldx #001d
14770 F3AE 1D 00 01        ...   bclr 00,x, #01
14771 F3B1 7A 00 18        z..   dec 0018
14772 F3B4 20 9A            .    bra 9a
14773 F3B6 CC 00 0A        ...   ldd #000a
14774 F3B9 BD F1 5B        ..[   jsr f15b             ;jump53
14775 goto82:
14776 F3BC 38              8     pulx
14777 F3BD 31              1     ins
14778 F3BE 31              1     ins
14779 F3BF 6E 00           n.    jmp 00,x
14780
14781 jump63:
14782 F3C1 37              7     pshb
14783 F3C2 36              6     psha
14784 F3C3 F6 20 00        . .   ldab 2000
14785 F3C6 C4 40           .@    andb #40
14786 F3C8 27 49           'I    beq 49
14787 F3CA CC B4 71        ..q   ldd #b471    "    CODE "
14788 F3CD BD F1 E8        ...   jsr f1e8             ;jump57
14789 F3D0 30              0     tsx
14790 F3D1 E6 01           ..    ldab 01,x
14791 F3D3 4F              O     clra
14792 F3D4 CE 00 0A        ...   ldx #000a
14793 F3D7 02              .     idiv
14794 F3D8 8F              .     xgdx
14795 F3D9 CB 30           .0    addb #30
14796 F3DB F7 00 5E        ..^   stab 005e
14797 F3DE 30              0     tsx
14798 F3DF E6 01           ..    ldab 01,x
14799 F3E1 4F              O     clra
14800 F3E2 CE 00 0A        ...   ldx #000a
14801 F3E5 02              .     idiv
14802 F3E6 CB 30           .0    addb #30
14803 F3E8 F7 00 5F        .._   stab 005f    ;5e and 5f now param in ascii
14804 F3EB F6 00 5E        ..^   ldab 005e
14805 F3EE 4F              O     clra
14806 F3EF BD F1 5B        ..[   jsr f15b             ;jump53
14807 F3F2 F6 00 5F        .._   ldab 005f
14808 F3F5 4F              O     clra
14809 F3F6 BD F1 5B        ..[   jsr f15b             ;jump53
14810 F3F9 CC B4 7B        ..{   ldd #b47b    "VENDS - "
14811 F3FC BD F1 E8        ...   jsr f1e8             ;jump57
14812 F3FF 30              0     tsx
14813 F400 E6 01           ..    ldab 01,x
14814 F402 4F              O     clra
14815 F403 05              .     asld
14816 F404 C3 0D 1F        ...   addd #0d1f
14817 F407 8F              .     xgdx
14818 F408 EC 00           ..    ldd 00,x
14819 F40A BD F2 4D        ..M   jsr f24d             ;jump58
14820 F40D CC 00 0A        ...   ldd #000a
14821 F410 BD F1 5B        ..[   jsr f15b             ;jump53
14822 F413 38              8     pulx
14823 F414 39              9     rts
14824
14825 jump112:
14826 ; print a report to printer
14827 F415 F6 0B C0        ...   ldab 0bc0
14828 F418 C4 02           ..    andb #02
14829 F41A 27 15           '.    beq 15
14830 F41C CE 00 21        ..!   ldx #0021
14831 F41F 1C 00           ..    bset 00,x, #80
14832 F421 F6 00 1D        ..    ldab 001d
14833 F424 C4 02           ..    andb #02
14834 F427 27 02           '.    beq 02
14835 F429 20 F7            .    bra f7
14836 F42B CE 00 21        ..!   ldx #0021
14837 F42E 1D 00           ..    bclr 00,x, #80
14838 F430 C6 10           ..    ldab #10
14839 F433 F7 10 2C        ..,   stab 102c ; set 9N1
14840 F436 C6 2E           ..    ldab #2e
14841 F438 F7 10 2D        ..-   stab 102d    ; enable SCI transmission
14842 F43B C6 05           ..    ldab #05
14843 F43D F7 10 2B        ..+   stab 102b    ; 2400 baud
14844 F440 CC 03 E8        ...   ldd #03e8
14845 F443 BD E5 71        ..q   jsr e571             ;msdelay
14846 F446 CE 10 00        ...   ldx #1000
14847 F449 1D 00 08        ...   bclr 00,x, #08  ; talk to ze printer
14848 F44C CE 00 19        ...   ldx #0019
14849 F44F 1D 00 40        ...   bclr 00,x, #40
14850 F452 CE 00 1D        ...   ldx #001d
14851 F455 1D 00 01        ...   bclr 00,x, #01
14852 F458 CC 00 18        ...   ldd #0018
14853 F45B BD F1 5B        ..[   jsr f15b             ;jump53
14854 F45E CC B2 1B        ...   ldd #b21b    "         ROWE  INTERNATIONAL"
14855 F461 BD F1 E8        ...   jsr f1e8             ;jump57
14856 F464 CC 00 0A        ...   ldd #000a    ; new line
14857 F467 BD F1 5B        ..[   jsr f15b             ;jump53
14858 F46A CC B2 38        ..8   ldd #b238    "         -------------------"
14859 F46D BD F1 E8        ...   jsr f1e8             ;jump57
14860 F470 CC 00 0A        ...   ldd #000a    ; new line
14861 F473 BD F1 5B        ..[   jsr f15b             ;jump53
14862 F476 CC B2 56        ..V   ldd #b256    ; "5900 SOFTWARE VER 5"
14863 F479 BD F1 E8        ...   jsr f1e8             ;jump57
14864 F47C CC 00 0A        ...   ldd #000a    ; new line
14865 F47F BD F1 5B        ..[   jsr f15b             ;jump53
14866 F482 CC 00 0A        ...   ldd #000a    ; new line
14867 F485 BD F1 5B        ..[   jsr f15b             ;jump53
14868 F488 CC B2 75        ..u   ldd #b275    ; ACCOUNT RECORD
14869 F48B BD F1 E8        ...   jsr f1e8             ;jump57
14870 F48E CC 00 0A        ...   ldd #000a    ; new line
14871 F491 BD F1 5B        ..[   jsr f15b             ;jump53
14872 F494 CC B2 38        ..8   ldd #b238    ; --------------------
14873 F497 BD F1 E8        ...   jsr f1e8             ;jump57
14874 F49A CC 00 0A        ...   ldd #000a    ; new line
14875 F49D BD F1 5B        ..[   jsr f15b             ;jump53
14876 F4A0 CC 00 0A        ...   ldd #000a    ; new line
14877 F4A3 BD F1 5B        ..[   jsr f15b             ;jump53
14878 F4A6 CC B2 90        ...   ldd #b290    ; SERIAL #
14879 F4A9 BD F1 E8        ...   jsr f1e8             ;jump57
14880 F4AC CE 00 0A        ...   ldx #000a
14881 F4AF 3C              <     pshx
14882 F4B0 CC 0C BC        ...   ldd #0cbc    ; serial number
14883 F4B3 BD F1 C1        ...   jsr f1c1             ;jump59
14884 F4B6 38              8     pulx
14885 F4B7 CC 00 0A        ...   ldd #000a
14886 F4BA BD F1 5B        ..[   jsr f15b             ;jump53
14887 F4BD CC B2 A2        ...   ldd #b2a2    ; "MACHINE ID"
14888 F4C0 BD F1 E8        ...   jsr f1e8             ;jump57
14889 F4C3 CE 00 0A        ...   ldx #000a
14890 F4C6 3C              <     pshx
14891 F4C7 CC 0C CC        ...   ldd #0ccc
14892 F4CA BD F1 C1        ...   jsr f1c1             ;jump59
14893 F4CD 38              8     pulx
14894 F4CE CC 00 0A        ...   ldd #000a
14895 F4D1 BD F1 5B        ..[   jsr f15b             ;jump53
14896 F4D4 CC B2 B4        ...   ldd #b2b4    ; "AUDIT NUMBER"
14897 F4D7 BD F1 E8        ...   jsr f1e8             ;jump57
14898 F4DA FC 0C E7        ...   ldd 0ce7
14899 F4DD BD F2 4D        ..M   jsr f24d             ;jump58 - convert to string
14900 F4E0 CC 00 0A        ...   ldd #000a
14901 F4E3 BD F1 5B        ..[   jsr f15b             ;jump53
14902 F4E6 CC 00 0A        ...   ldd #000a
14903 F4E9 BD F1 5B        ..[   jsr f15b             ;jump53
14904 F4EC CC B2 C6        ...   ldd #b2c6    ; "SALES (R)
14905 F4EF BD F1 E8        ...   jsr f1e8             ;jump57
14906 F4F2 FE 0D E9        ...   ldx 0de9
14907 F4F5 3C              <     pshx
14908 F4F6 FC 0D E7        ...   ldd 0de7
14909 F4F9 BD F3 1F        ...   jsr f31f             ;jump60
14910 F4FC 38              8     pulx
14911 F4FD CC B2 D8        ...   ldd #b2d8    ; "SALES (N)
14912 F500 BD F1 E8        ...   jsr f1e8             ;jump57
14913 F503 FE 0D ED        ...   ldx 0ded
14914 F506 3C              <     pshx
14915 F507 FC 0D EB        ...   ldd 0deb
14916 F50A BD F3 1F        ...   jsr f31f             ;jump60
14917 F50D 38              8     pulx
14918 F50E CC B2 EA        ...   ldd #b2ea
14919 F511 BD F1 E8        ...   jsr f1e8             ;jump57
14920 F514 FE 0D F1        ...   ldx 0df1
14921 F517 3C              <     pshx
14922 F518 FC 0D EF        ...   ldd 0def
14923 F51B BD F3 1F        ...   jsr f31f             ;jump60
14924 F51E 38              8     pulx
14925 F51F CC B2 FC        ...   ldd #b2fc
14926 F522 BD F1 E8        ...   jsr f1e8             ;jump57
14927 F525 FE 0D F9        ...   ldx 0df9
14928 F528 3C              <     pshx
14929 F529 FC 0D F7        ...   ldd 0df7
14930 F52C BD F3 1F        ...   jsr f31f             ;jump60
14931 F52F 38              8     pulx
14932 F530 CC B3 0E        ...   ldd #b30e
14933 F533 BD F1 E8        ...   jsr f1e8             ;jump57
14934 F536 FE 0D FD        ...   ldx 0dfd
14935 F539 3C              <     pshx
14936 F53A FC 0D FB        ...   ldd 0dfb
14937 F53D BD F3 1F        ...   jsr f31f             ;jump60
14938 F540 38              8     pulx
14939 F541 CC 00 0A        ...   ldd #000a
14940 F544 BD F1 5B        ..[   jsr f15b             ;jump53
14941 F547 CC B3 20        ..    ldd #b320
14942 F54A BD F1 E8        ...   jsr f1e8             ;jump57
14943 F54D CC 00 0A        ...   ldd #000a
14944 F550 BD F1 5B        ..[   jsr f15b             ;jump53
14945 F553 CC B3 31        ..1   ldd #b331
14946 F556 BD F1 E8        ...   jsr f1e8             ;jump57
14947 F559 FE 0D F5        ...   ldx 0df5
14948 F55C 3C              <     pshx
14949 F55D FC 0D F3        ...   ldd 0df3
14950 F560 BD F3 1F        ...   jsr f31f             ;jump60
14951 F563 38              8     pulx
14952 F564 CC B3 4A        ..J   ldd #b34a
14953 F567 BD F1 E8        ...   jsr f1e8             ;jump57
14954 F56A FC 0C DD        ...   ldd 0cdd
14955 F56D BD F2 4D        ..M   jsr f24d             ;jump58
14956 F570 FE 0C F5        ...   ldx 0cf5
14957 F573 3C              <     pshx
14958 F574 FC 0C F3        ...   ldd 0cf3
14959 F577 BD F3 1F        ...   jsr f31f             ;jump60
14960 F57A 38              8     pulx
14961 F57B CC B3 5C        ..\   ldd #b35c
14962 F57E BD F1 E8        ...   jsr f1e8             ;jump57
14963 F581 FC 0C DF        ...   ldd 0cdf
14964 F584 BD F2 4D        ..M   jsr f24d             ;jump58
14965 F587 FE 0C F9        ...   ldx 0cf9
14966 F58A 3C              <     pshx
14967 F58B FC 0C F7        ...   ldd 0cf7
14968 F58E BD F3 1F        ...   jsr f31f             ;jump60
14969 F591 38              8     pulx
14970 F592 CC B3 6E        ..n   ldd #b36e
14971 F595 BD F1 E8        ...   jsr f1e8             ;jump57
14972 F598 FC 0C E1        ...   ldd 0ce1
14973 F59B BD F2 4D        ..M   jsr f24d             ;jump58
14974 F59E FE 0C FD        ...   ldx 0cfd
14975 F5A1 3C              <     pshx
14976 F5A2 FC 0C FB        ...   ldd 0cfb
14977 F5A5 BD F3 1F        ...   jsr f31f             ;jump60
14978 F5A8 38              8     pulx
14979 F5A9 CC B3 80        ...   ldd #b380
14980 F5AC BD F1 E8        ...   jsr f1e8             ;jump57
14981 F5AF FC 0C E3        ...   ldd 0ce3
14982 F5B2 BD F2 4D        ..M   jsr f24d             ;jump58
14983 F5B5 FE 0D 01        ...   ldx 0d01
14984 F5B8 3C              <     pshx
14985 F5B9 FC 0C FF        ...   ldd 0cff
14986 F5BC BD F3 1F        ...   jsr f31f             ;jump60
14987 F5BF 38              8     pulx
14988 F5C0 CC B3 92        ...   ldd #b392
14989 F5C3 BD F1 E8        ...   jsr f1e8             ;jump57
14990 F5C6 FC 0C E5        ...   ldd 0ce5
14991 F5C9 BD F2 4D        ..M   jsr f24d             ;jump58
14992 F5CC FE 0D 05        ...   ldx 0d05
14993 F5CF 3C              <     pshx
14994 F5D0 FC 0D 03        ...   ldd 0d03
14995 F5D3 BD F3 1F        ...   jsr f31f             ;jump60
14996 F5D6 38              8     pulx
14997 F5D7 CC 00 0A        ...   ldd #000a
14998 F5DA BD F1 5B        ..[   jsr f15b             ;jump53
14999 F5DD CC B3 A4        ...   ldd #b3a4
15000 F5E0 BD F1 E8        ...   jsr f1e8             ;jump57
15001 F5E3 CC 00 0A        ...   ldd #000a
15002 F5E6 BD F1 5B        ..[   jsr f15b             ;jump53
15003 F5E9 CC B3 B3        ...   ldd #b3b3
15004 F5EC BD F1 E8        ...   jsr f1e8             ;jump57
15005 F5EF FC 0C F1        ...   ldd 0cf1
15006 F5F2 BD F2 99        ...   jsr f299             ;jump61
15007 F5F5 CC B3 CA        ...   ldd #b3ca
15008 F5F8 BD F1 E8        ...   jsr f1e8             ;jump57
15009 F5FB F6 0C DC        ...   ldab 0cdc
15010 F5FE 4F              O     clra
15011 F5FF BD F2 0E        ...   jsr f20e             ;jump62
15012 F602 FC 0C E9        ...   ldd 0ce9
15013 F605 BD F2 99        ...   jsr f299             ;jump61
15014 F608 CC B3 DC        ...   ldd #b3dc
15015 F60B BD F1 E8        ...   jsr f1e8             ;jump57
15016 F60E F6 0C DB        ...   ldab 0cdb
15017 F611 4F              O     clra
15018 F612 BD F2 0E        ...   jsr f20e             ;jump62
15019 F615 FC 0C EB        ...   ldd 0ceb
15020 F618 BD F2 99        ...   jsr f299             ;jump61
15021 F61B CC B3 EE        ...   ldd #b3ee
15022 F61E BD F1 E8        ...   jsr f1e8             ;jump57
15023 F621 F6 0C DA        ...   ldab 0cda
15024 F624 4F              O     clra
15025 F625 BD F2 0E        ...   jsr f20e             ;jump62
15026 F628 FC 0C ED        ...   ldd 0ced
15027 F62B BD F2 99        ...   jsr f299             ;jump61
15028 F62E CC B4 00        ...   ldd #b400
15029 F631 BD F1 E8        ...   jsr f1e8             ;jump57
15030 F634 F6 0C D9        ...   ldab 0cd9
15031 F637 4F              O     clra
15032 F638 BD F2 0E        ...   jsr f20e             ;jump62
15033 F63B FC 0C EF        ...   ldd 0cef
15034 F63E BD F2 99        ...   jsr f299             ;jump61
15035 F641 CC 00 0A        ...   ldd #000a
15036 F644 BD F1 5B        ..[   jsr f15b             ;jump53
15037 F647 CC B4 12        ...   ldd #b412
15038 F64A BD F1 E8        ...   jsr f1e8             ;jump57
15039 F64D FC 0D 07        ...   ldd 0d07
15040 F650 BD F2 4D        ..M   jsr f24d             ;jump58
15041 F653 FE 0D 11        ...   ldx 0d11
15042 F656 3C              <     pshx
15043 F657 FC 0D 0F        ...   ldd 0d0f
15044 F65A BD F3 1F        ...   jsr f31f             ;jump60
15045 F65D 38              8     pulx
15046 F65E CC B4 24        ..$   ldd #b424
15047 F661 BD F1 E8        ...   jsr f1e8             ;jump57
15048 F664 FC 0D 09        ...   ldd 0d09
15049 F667 BD F2 4D        ..M   jsr f24d             ;jump58
15050 F66A FE 0D 15        ...   ldx 0d15
15051 F66D 3C              <     pshx
15052 F66E FC 0D 13        ...   ldd 0d13
15053 F671 BD F3 1F        ...   jsr f31f             ;jump60
15054 F674 38              8     pulx
15055 F675 CC B4 36        ..6   ldd #b436
15056 F678 BD F1 E8        ...   jsr f1e8             ;jump57
15057 F67B FC 0D 0B        ...   ldd 0d0b
15058 F67E BD F2 4D        ..M   jsr f24d             ;jump58
15059 F681 FE 0D 19        ...   ldx 0d19
15060 F684 3C              <     pshx
15061 F685 FC 0D 17        ...   ldd 0d17
15062 F688 BD F3 1F        ...   jsr f31f             ;jump60
15063 F68B 38              8     pulx
15064 F68C CC B4 48        ..H   ldd #b448
15065 F68F BD F1 E8        ...   jsr f1e8             ;jump57
15066 F692 FC 0D 0D        ...   ldd 0d0d
15067 F695 BD F2 4D        ..M   jsr f24d             ;jump58
15068 F698 FE 0D 1D        ...   ldx 0d1d
15069 F69B 3C              <     pshx
15070 F69C FC 0D 1B        ...   ldd 0d1b
15071 F69F BD F3 1F        ...   jsr f31f             ;jump60
15072 F6A2 38              8     pulx
15073 F6A3 CC 00 0A        ...   ldd #000a
15074 F6A6 BD F1 5B        ..[   jsr f15b             ;jump53
15075 F6A9 CC B4 5A        ..Z   ldd #b45a
15076 F6AC BD F1 E8        ...   jsr f1e8             ;jump57
15077 F6AF CC 00 0A        ...   ldd #000a
15078 F6B2 BD F1 5B        ..[   jsr f15b             ;jump53
15079 F6B5 C6 01           ..    ldab #01
15080 F6B7 F7 00 54        ..T   stab 0054
15081 F6BA F6 00 54        ..T   ldab 0054
15082 F6BD C1 63           .c    cmpb #63
15083 F6BF 22 1B           ".    bhi 1b
15084 F6C1 F6 00 54        ..T   ldab 0054
15085 F6C4 4F              O     clra
15086 F6C5 05              .     asld
15087 F6C6 C3 08 C8        ...   addd #08c8
15088 F6C9 8F              .     xgdx
15089 F6CA EC 00           ..    ldd 00,x
15090 F6CC C4 80           ..    andb #80
15091 F6CE 27 07           '.    beq 07
15092 F6D0 F6 00 54        ..T   ldab 0054
15093 F6D3 4F              O     clra
15094 F6D4 BD F3 C1        ...   jsr f3c1             ;jump63
15095 F6D7 7C 00 54        |.T   inc 0054
15096 F6DA 20 DE            .    bra de
15097 F6DC CC 00 0A        ...   ldd #000a
15098 F6DF BD F1 5B        ..[   jsr f15b             ;jump53
15099 F6E2 F6 00 19        ...   ldab 0019
15100 F6E5 C4 40           .@    andb #40
15101 F6E7 26 07           &.    bne 07
15102 F6E9 FE 0C E7        ...   ldx 0ce7     ;increment the audit number?
15103 F6EC 08              .     inx
15104 F6ED FF 0C E7        ...   stx 0ce7
15105 F6F0 CE 00 1D        ...   ldx #001d
15106 F6F3 1D 00 01        ...   bclr 00,x, #01
15107 F6F6 CC 03 E8        ...   ldd #03e8
15108 F6F9 BD E5 71        ..q   jsr e571             ;msdelay
15109 F6FC C6 03           ..    ldab #03
15110 F6FE F7 10 2B        ..+   stab 102b         ; back to 9600 baud
15111 F701 CE 10 00        ...   ldx #1000
15112 F704 1C 00 08        ...   bset 00,x, #08    ; set back to coin mech
15113 F707 F6 0B C0        ...   ldab 0bc0
15114 F70A C4 02           ..    andb #02
15115 F70C 27 06           '.    beq 06
15116 F70E CC 00 80        ...   ldd #0080
15117 F711 BD C7 E7        ...   jsr c7e7             ;jump37 - send to serial port
15118 F714 7F 00 38        ..8   clr 0038
15119 F717 39              9     rts
15120
15121 rti:
15122 F718 3C              <     pshx
15123 F719 F6 0B C0        ...   ldab 0bc0    ; if we have a bill validator
15124 F71C C4 08           ..    andb #08
15125 F71E 27 03           '.    beq 03
15126 F720 BD C3 25        ..%   jsr c325             ;jump64 - go query the bill validator
15127 F723 7C 00 0C        |..   inc 000c
15128 F726 F6 00 0C        ...   ldab 000c
15129 F729 C1 02           ..    cmpb #02
15130 F72B 26 13           &.    bne 13
15131 F72D 7F 00 0C        ...   clr 000c
15132 F730 F6 00 07        ...   ldab 0007
15133 F733 27 03           '.    beq 03
15134 F735 7A 00 07        z..   dec 0007
15135 F738 F6 00 00        ...   ldab 0000
15136 F73B 27 03           '.    beq 03
15137 F73D 7A 00 00        z..   dec 0000
15138 F740 7C 00 0B        |..   inc 000b
15139 F743 F6 00 0B        ...   ldab 000b
15140 F746 C1 08           ..    cmpb #08
15141 F748 26 37           &7    bne 37      ; to f781
15142 F74A 7F 00 0B        ...   clr 000b
15143 F74D FC 00 3B        ..;   ldd 003b
15144 F750 27 07           '.    beq 07
15145 F752 FE 00 3B        ..;   ldx 003b
15146 F755 09              .     dex
15147 F756 FF 00 3B        ..;   stx 003b
15148 F759 CC 00 2C        ..,   ldd #002c
15149 F75C 30              0     tsx
15150 F75D ED 00           ..    std 00,x
15151 F75F 30              0     tsx
15152 F760 EC 00           ..    ldd 00,x
15153 F762 37              7     pshb
15154 F763 36              6     psha
15155 F764 CC 00 3A        ..:   ldd #003a
15156 F767 30              0     tsx
15157 F768 A3 00           ..    subd 00,x
15158 F76A 31              1     ins
15159 F76B 31              1     ins
15160 F76C 25 13           %.    bcs 13
15161 F76E 30              0     tsx
15162 F76F EE 00           ..    ldx 00,x
15163 F771 E6 00           ..    ldab 00,x
15164 F773 27 07           '.    beq 07
15165 F775 30              0     tsx
15166 F776 EE 00           ..    ldx 00,x
15167 F778 6A 00           j.    dec 00,x
15168 F77A E6 00           ..    ldab 00,x
15169 F77C 38              8     pulx
15170 F77D 08              .     inx
15171 F77E 3C              <     pshx
15172 F77F 20 DE            .    bra de             ; to f75f
15173 ;
15174 F781 F6 00 32        ..2   ldab 0032
15175 F784 27 07           '.    beq 07             ; to f78d
15176 F786 F6 00 32        ..2   ldab 0032
15177 F789 C4 02           ..    andb #02
15178 F78B 26 08           &.    bne 08             ; to f795
15179 ;
15180 F78D CE 10 00        ...   ldx #1000          ; chime off
15181 F790 1D 00 10        ..    bclr 00,x, #10
15182 F793 20 0D            .    bra 0d             ; to f7a2
15183 ;
15184 F795 F6 00 32        ..2   ldab 0032
15185 F798 C4 01           ..    andb #01
15186 F79A 26 06           &.    bne 06             ; to f7a2
15187 F79C CE 10 00        ...   ldx #1000          ; chime on
15188 F79F 1C 00 10        ..    bset 00,x, #10
15189 ;
15190 F7A2 7C 00 4C        |.L   inc 004c
15191 F7A5 F6 00 4C        ..L   ldab 004c
15192 F7A8 C1 4B           .K    cmpb #4b
15193 F7AA 26 13           &.    bne 13    ; to f7bf
15194 F7AC 7F 00 4C        ..L   clr 004c
15195 F7AF F6 00 4F        ..O   ldab 004f
15196 F7B2 27 03           '.    beq 03
15197 F7B4 7A 00 4F        z.O   dec 004f
15198 ;
15199 F7B7 F6 00 25        ..%   ldab 0025
15200 F7BA 27 03           '.    beq 03
15201 F7BC 7A 00 25        z.%   dec 0025
15202 ;
15203 F7BF F6 00 31        ..1   ldab 0031
15204 F7C2 26 03           &.    bne 03
15205 F7C4 BD FE 69        ..i   jsr fe69             ;reset
15206 ;
15207 F7C7 F6 00 7F        ...   ldab 007f
15208 F7CA 27 03           '.    beq 03
15209 F7CC BD FE 69        ..i   jsr fe69             ;reset
15210 ;
15211 F7CF C6 40           .@    ldab #40
15212 F7D1 F7 10 25        ..%   stab 1025    ; notify end of RTI period
15213 F7D4 38              8     pulx
15214 F7D5 3B              ;     rti
15215
15216 main:
15217 ;
15218 F7D6 7F 00 14        ...   clr 0014     ;0 -> 0014
15219 ;
15220 ; clears the bits of U14 flipflop
15221 F7D9 5F              _     clrb         ;0 -> B
15222 F7DA F7 38 00        .8.   stab 3800    ;B -> 3800
15223 ;
15224 F7DD C6 7F           ..    ldab #7f     ;7F -> B
15225 F7DF F7 00 1A        ...   stab 001a    ;B -> 001a
15226 ;
15227 ; set changer outputs all on, row motors off
15228 F7E2 C6 7F           ..    ldab #7f     ;7F -> B
15229 F7E4 F7 30 00        .0.   stab 3000    ;
15230 ;
15231 ; sets priority select bits 0-3 (elevates interrupt priority of all interrupts)
15232 F7E7 C6 07           ..    ldab #07     ;7 -> B
15233 F7E9 F7 10 3C        ..<   stab 103c
15234 ;
15235 ; Set PA7 output, PA3 input, RT clock rate to 314 Hz (4.9152Mhz / 2^14)
15236 F7EC C6 81           ..    ldab #81     ;81 -> B
15237 F7EE F7 10 26        ..&   stab 1026
15238 ;
15239 ; clear ADC register
15240 F7F1 5F              _     clrb         ;0 -> B
15241 F7F2 F7 10 30        ..0   stab 1030
15242 ;
15243 ; talk to coin mech, beep, tie clock motors & display reset high (off)
15244 F7F5 C6 C8           ..    ldab #c8     ;c8 -> B ; 11001000
15245 F7F7 F7 10 00        ...   stab 1000 ; to port A
15246 ;
15247 ; sets PortD directions. XXX: Why is PD2 an output?
15248 F7FA C6 3E           .>    ldab #3e     ;3e -> B 00111110
15249 F7FC F7 10 09        ...   stab 1009 ; port D DDR
15250 ;
15251 ; make PortD pins open-drain, set clock polarity
15252 F7FF C6 12           ..    ldab #12     ;12 -> B
15253 F801 F7 10 28        ..(   stab 1028 ; SPCR 00101000
15254 ;
15255 ; initialize the display
15256 F804 BD BE 69        ..i   jsr be69             ;displayreset
15257 ;
15258 ; initialize the bill validator & more stuff
15259 F807 BD EA 59        ..Y   jsr ea59             ;jump65
15260 ;
15261 F80A CC 00 64        ..d   ldd #0064    ; 100-unit delay
15262 F80D BD E5 71        ..q   jsr e571             ;msdelay
15263 ; lotsa text
15264 F810 CC B1 EF        ...   ldd #b1ef    " ROWE INT "
15265 F813 BD C0 BA        ...   jsr c0ba             ;display:
15266 F816 CC 01 F4        ...   ldd #01f4    ; 500-unit delay
15267 F819 BD E5 71        ..q   jsr e571             ;msdelay
15268 F81C CC B1 FA        ...   ldd #b1fa    "COPYRIGHT "
15269 F81F BD C0 BA        ...   jsr c0ba             ;display:
15270 F822 CC 01 F4        ...   ldd #01f4
15271 F825 BD E5 71        ..q   jsr e571             ;msdelay
15272 F828 CC B2 05        ...   ldd #b205    "   1993   "
15273 F82B BD C0 BA        ...   jsr c0ba             ;display:
15274 F82E CC 01 F4        ...   ldd #01f4
15275 F831 BD E5 71        ..q   jsr e571             ;msdelay
15276 F834 CC B2 10        ...   ldd #b210    "5900 VER 5"
15277 F837 BD C0 BA        ...   jsr c0ba             ;display:
15278 F83A CC 00 0A        ...   ldd #000a
15279 F83D BD E5 71        ..q   jsr e571             ;msdelay
15280 ;
15281 ;
15282 F840 7F 00 7F        ...   clr 007f
15283 F843 7F 00 21        ..!   clr 0021
15284 F846 7F 00 1F        ...   clr 001f
15285 F849 7F 00 1D        ...   clr 001d
15286 F84C 7F 00 1B        ...   clr 001b
15287 F84F 7F 00 19        ...   clr 0019
15288 ;
15289 F852 F6 0B C0        ...   ldab 0bc0
15290 F855 C4 01           ..    andb #01
15291 F857 27 08           '.    beq 08           ; to f861
15292 F859 CE 0B C1        ...   ldx #0bc1
15293 F85C 1C 00 01        ...   bset 00,x, #01   ; set changer powerup fail
15294 F85F 20 06            .    bra 06           ; to f867
15295 F861 CE 0B C1        ...   ldx #0bc1
15296 F864 1D 00 01        ...   bclr 00,x, #01   ; clear changer powerup fail
15297 ;
15298 F867 F6 0B C0        ...   ldab 0bc0
15299 F86A C4 04           ..    andb #04
15300 F86C 27 08           '.    beq 08           ; to f876
15301 F86E CE 0B C1        ...   ldx #0bc1
15302 F871 1C 00 02        ...   bset 00,x, #02   ; set card powerup fail
15303 F874 20 06            .    bra 06           ; to f87c
15304 F876 CE 0B C1        ...   ldx #0bc1
15305 F879 1D 00 02        ..    bclr 00,x, #02   ; clear card powerup fail
15306 F87C CE 0B C1        ...   ldx #0bc1
15307 F87F 1D 00 04        ..    bclr 00,x, #04    ; clear link powerup fail
15308 F882 F6 0B C0        ...   ldab 0bc0
15309 F885 C4 02           ..    andb #02
15310 F887 27 2D           '-    beq 2d        ; to f8b6
15311 F889 C6 3C           .<    ldab #3c
15312 F88B F7 00 31        ..1   stab 0031
15313 F88E 0E              .     cli
15314 F88F CC 00 FF        ...   ldd #00ff
15315 F892 BD C7 E7        ...   jsr c7e7             ;jump37 - send to serial port
15316 F895 5F              _     clrb
15317 F896 4F              O     clra
15318 F897 FD 00 40        ..@   std 0040
15319 F89A C6 10           ..    ldab #10
15320 F89C F7 10 2C        ..,   stab 102c    ; set 9N1
15321 F89F C6 2E           ..    ldab #2e
15322 F8A1 F7 10 2D        ..-   stab 102d    ; enable SCI transmission
15323 F8A4 C6 03           ..    ldab #03
15324 F8A6 F7 10 2B        ..+   stab 102b    ; set 9600 baud
15325 F8A9 C6 46           .F    ldab #46     ; 70 01000110
15326 F8AB F7 00 2F        ../   stab 002f
15327 F8AE CC 07 D0        ...   ldd #07d0
15328 F8B1 BD E5 71        ..q   jsr e571             ;msdelay
15329 F8B4 20 2B            +    bra 2b       ; to f8e1
15330 F8B6 BD D0 94        ...   jsr d094             ;jump66 - init variables
15331 F8B9 C6 27           .'    ldab #27
15332 F8BB F7 10 2D        ..-   stab 102d    ; disable SCI transmission
15333 F8BE C6 07           ..    ldab #07
15334 F8C0 F7 10 2B        ..+   stab 102b    ; set 600 baud
15335 ; reset the changer
15336 F8C3 CE 00 1A        ...   ldx #001a
15337 F8C6 1C 00 04        ..    bset 00,x, #04
15338 F8C9 F6 00 1A        ...   ldab 001a
15339 F8CC F7 30 00        .0.   stab 3000    ; reset the changer
15340 F8CF CC 07 D0        ...   ldd #07d0
15341 F8D2 BD E5 71        ..q   jsr e571             ;msdelay
15342 F8D5 CE 00 1A        ...   ldx #001a
15343 F8D8 1D 00 04        ..    bclr 00,x, #04
15344 F8DB F6 00 1A        ...   ldab 001a
15345 F8DE F7 30 00        .0.   stab 3000    ; pull reset line back
15346 ;
15347 F8E1 7F 0E 6A        ..j   clr 0e6a
15348 F8E4 BD D4 79        ..y   jsr d479             ;jump67
15349 F8E7 BD E8 9A        ...   jsr e89a             ;jump68
15350 F8EA 7F 00 06        ...   clr 0006
15351 F8ED CE 00 1D        ...   ldx #001d
15352 F8F0 1C 00 10        ..    bset 00,x, #10
15353 F8F3 CC 05 DC        ...   ldd #05dc
15354 F8F6 BD E5 71        ..q   jsr e571             ;msdelay
15355 F8F9 C6 1E           ..    ldab #1e
15356 F8FB F7 00 35        ..5   stab 0035
15357 F8FE 0E              .     cli
15358 ;
15359 ; begin of main loop
15360 goto85:
15361 ; test power lines
15362 F8FF BD E6 1B        ...   jsr e61b             ;jump4 set 0031 to 10
15363 F902 BD D1 05        ...   jsr d105             ;motors_off
15364 F905 F6 10 0A        ...   ldab 100a
15365 F908 C4 08           ..    andb #08     ; 24VUN line too low
15366 F90A 27 46           'F    beq 46       ; to f952
15367 F90C F6 10 0A        ...   ldab 100a
15368 F90F C4 08           ..    andb #08
15369 F911 27 11           '.    beq 11       ; to f924
15370 F913 CE 00 1A        ...   ldx #001a
15371 F916 1C 00 04        ..    bset 00,x, #04
15372 F919 F6 00 1A        ...   ldab 001a
15373 F91C F7 30 00        .0.   stab 3000    ; changer reset
15374 F91F BD E6 1B        ...   jsr e61b             ;jump4 put #0a => 0031
15375 F922 20 E8            .    bra e8       ; to f90c
15376 ;
15377 F924 BD D0 94        ...   jsr d094             ;jump66 - reset some variables to defaults?
15378 F927 F6 0B C0        ...   ldab 0bc0
15379 F92A C4 01           ..    andb #01
15380 F92C 27 06           '.    beq 06
15381 F92E CE 0B C1        ...   ldx #0bc1
15382 F931 1C 00 01        ..    bset 00,x, #01 ; set changer powerup fail
15383 F934 F6 0B C0        ...   ldab 0bc0
15384 F937 C4 04           ..    andb #04
15385 F939 27 06           '.    beq 06
15386 F93B CE 0B C1        ...   ldx #0bc1
15387 F93E 1C 00 02        ..    bset 00,x, #02 ; set card powerup fail
15388 F941 CE 00 1A        ...   ldx #001a
15389 F944 1D 00 04        ..    bclr 00,x, #04
15390 F947 F6 00 1A        ...   ldab 001a
15391 F94A F7 30 00        .0.   stab 3000   ; clear send & reset lines
15392 F94D C6 1E           ..    ldab #1e
15393 F94F F7 00 35        ..5   stab 0035
15394 ;
15395 ; end of power line test
15396 ;
15397 ;
15398 ; chat to the bill validator if we need to
15399 ;
15400 F952 F6 0B C0        ...   ldab 0bc0
15401 F955 C4 08           ..    andb #08
15402 F957 27 16           '.    beq 16       ; to f96f if no bill validator
15403 F959 CE 00 02        ...   ldx #0002
15404 F95C 3C              <     pshx
15405 F95D CC 10 00        ...   ldd #1000
15406 F960 BD E5 D7        ...   jsr e5d7             ;jump69 - poll bill validator
15407 F963 38              8     pulx
15408 F964 83 00 00        ...   subd #0000
15409 F967 27 06           '.    beq 06
15410 F969 CE 0B C1        ...   ldx #0bc1
15411 F96C 1C 00 08        ..    bset 00,x, #08 ; set bill error bit
15412 ;
15413 F96F F6 0B C1        ...   ldab 0bc1
15414 F972 C4 07           ..    andb #07     ; was there a power failure?
15415 F974 27 0D           '.    beq 0d       ; to f983
15416 F976 F6 00 35        ..5   ldab 0035
15417 F979 26 08           &.    bne 08
15418 F97B CE 00 21        ..!   ldx #0021
15419 F97E 1C 00 20        ..    bset 00,x, #20
15420 F981 20 06           ..    bra 06       ; to f989
15421 ;
15422 ;
15423 F983 CE 00 21        ..!   ldx #0021
15424 F986 1D 00 20        ..    bclr 00,x, #20
15425 F989 BD BB 63         .    jsr bb63     ;jump200 - read the keypad
15426 F98C BD B8 00        ...   jsr b800     ;jump201 - interpret the keys and write to the display
15427 F98F F6 0B C0        ...   ldab 0bc0
15428 F992 C4 01           ..    andb #01
15429 F994 27 0B           '.    beq 0b
15430 F996 FC 00 40        ..@   ldd 0040
15431 F999 F3 00 3E        ..>   addd 003e
15432 F99C 26 03           &.    bne 03
15433 F99E BD D6 F6        ...   jsr d6f6             ;jump106
15434 F9A1 F6 00 12        ...   ldab 0012
15435 F9A4 C4 20           .     andb #20     ; test door switch
15436 F9A6 27 08           '.    beq 08       ; to f9b0
15437 F9A8 F6 00 35        ..5   ldab 0035
15438 F9AB 26 03           &.    bne 03
15439 F9AD 7E FA 79        ~.y   jmp fa79             ;goto83
15440 ;
15441 F9B0 CE 00 1F        ...   ldx #001f
15442 F9B3 1D 00 04        ...   bclr 00,x, #04
15443 F9B6 CE 00 1D        ...   ldx #001d
15444 F9B9 1C 00 10        ...   bset 00,x, #10
15445 F9BC F6 00 1F        ...   ldab 001f
15446 F9BF C4 20           .     andb #20
15447 F9C1 26 03           &.    bne 03
15448 F9C3 7E FA 74        ~.t   jmp fa74             ;goto84 if 001f&#20 is clear
15449 F9C6 F6 0B C0        ...   ldab 0bc0
15450 F9C9 C4 01           ..    andb #01
15451 F9CB 27 08           '.    beq 08
15452 F9CD CE 0B C1        ...   ldx #0bc1
15453 F9D0 1C 00 01        ...   bset 00,x, #01   ; set changer powerup error
15454 F9D3 20 06            .    bra 06
15455 F9D5 CE 0B C1        ...   ldx #0bc1
15456 F9D8 1D 00 01        ...   bclr 00,x, #01   ; unset changer powerup error
15457 F9DB F6 0B C0        ...   ldab 0bc0
15458 F9DE C4 04           ..    andb #04
15459 F9E0 27 08           '.    beq 08
15460 F9E2 CE 0B C1        ...   ldx #0bc1
15461 F9E5 1C 00 02        ...   bset 00,x, #02   ; set card powerup error
15462 F9E8 20 06            .    bra 06
15463 F9EA CE 0B C1        ...   ldx #0bc1
15464 F9ED 1D 00 02        ...   bclr 00,x, #02   ; unset card powerup error
15465 F9F0 CE 0B C1        ...   ldx #0bc1
15466 F9F3 1D 00 04        ...   bclr 00,x, #04   ; unset link powerup error
15467 F9F6 CE 00 1B        ...   ldx #001b
15468 F9F9 1D 00 02        ...   bclr 00,x, #02
15469 F9FC F6 0B C0        ...   ldab 0bc0
15470 F9FF C4 02           ..    andb #02
15471 FA01 27 27           ''    beq 27      ; to fa2a
15472 ;
15473 FA03 C6 3C           .<    ldab #3c    ; 62 00111100
15474 FA05 F7 00 31        ..1   stab 0031
15475 FA08 0E              .     cli
15476 FA09 CC 00 FF        ...   ldd #00ff
15477 FA0C BD C7 E7        ...   jsr c7e7             ;jump37 - send #ff to coin mech
15478 FA0F 5F              _     clrb
15479 FA10 4F              O     clra
15480 FA11 FD 00 40        ..@   std 0040
15481 FA14 C6 10           ..    ldab #10
15482 FA16 F7 10 2C        ..,   stab 102c    ; set 9N1
15483 FA19 C6 2E           ..    ldab #2e
15484 FA1B F7 10 2D        ..-   stab 102d    ; enable SCI transmission
15485 FA1E C6 03           ..    ldab #03
15486 FA20 F7 10 2B        ..+   stab 102b    ; 9600 baud
15487 FA23 C6 46           .F    ldab #46     ; 70  01000110
15488 FA25 F7 00 2F        ../   stab 002f
15489 FA28 20 31            1    bra 31       ; to  fa5b
15490 ;
15491 FA2A CE 00 21        ..!   ldx #0021
15492 FA2D 1D 00 40        ...   bclr 00,x, #40
15493 FA30 BD D0 94        ...   jsr d094             ;jump66 - init variables
15494 FA33 C6 27           .'    ldab #27
15495 FA35 F7 10 2D        ..-   stab 102d    ; disable SCI transmission
15496 FA38 C6 07           ..    ldab #07
15497 FA3A F7 10 2B        ..+   stab 102b     ; 600 baud
15498 FA3D CE 00 1A        ...   ldx #001a
15499 FA40 1C 00 04        ...   bset 00,x, #04
15500 FA43 F6 00 1A        ...   ldab 001a
15501 FA46 F7 30 00        .0.   stab 3000    ; changer reset line high
15502 FA49 CC 00 32        ..2   ldd #0032
15503 FA4C BD E5 71        ..q   jsr e571             ;msdelay
15504 FA4F CE 00 1A        ...   ldx #001a
15505 FA52 1D 00 04        ...   bclr 00,x, #04
15506 FA55 F6 00 1A        ...   ldab 001a
15507 FA58 F7 30 00        .0.   stab 3000    ; changer reset line low
15508 ;
15509 FA5B BD D4 79        ..y   jsr d479             ;jump67 - query all motors?
15510 FA5E BD E8 9A        ...   jsr e89a             ;jump68
15511 FA61 BD BE 69        ..i   jsr be69             ;displayreset
15512 FA64 7F 00 06        ...   clr 0006
15513 FA67 CE 00 1F        ...   ldx #001f
15514 FA6A 1D 00 20        ..    bclr 00,x, #20
15515 FA6D C6 1E            .    ldab #1e
15516 FA6F F7 00 35        ...5  stab 0035
15517 FA72 20 03            .    bra 03
15518 goto84:
15519 FA74 BD DE E7        ...   jsr dee7             ;jump116
15520 FA77 20 66            f    bra 66
15521 goto83:
15522 FA79 F6 00 12        ...   ldab 0012
15523 FA7C C4 20           .     andb #20
15524 FA7E 27 5F           '_    beq 5f       ; to fadf - restart loop
15525 FA80 F6 00 1F        ...   ldab 001f
15526 FA83 C4 20           .     andb #20
15527 FA85 26 03           &.    bne 03
15528 FA87 BD E5 AA        ...   jsr e5aa             ;jump12
15529 FA8A CE 00 1F        ...   ldx #001f
15530 FA8D 1C 00           ..    bset 00,x, #20
15531 FA8F F6 00 12        ...   ldab 0012
15532 FA93 C4 01           ..    andb #01
15533 FA95 26 33           &3    bne 33        ; to faca
15534 FA97 F6 00 1D        ...   ldab 001d
15535 FA9A C4 08           ..    andb #08
15536 FA9C 27 2A           '*    beq 2a        ; to fac8, to fad0
15537 FA9E F6 00 1F        ...   ldab 001f
15538 FAA1 C4 04           ..    andb #04
15539 FAA3 26 14           &.    bne 14        ; to fab9
15540 FAA5 CE 00 1F        ...   ldx #001f
15541 FAA8 1C 00 04        ...   bset 00,x, #04
15542 FAAB CE 00 1F        ...   ldx #001f
15543 FAAE 1C 00           ..    bset 00,x, #80
15544 FAB0 CC 02 33        ..    ldd #0233
15545 FAB4 FD 00 3B        ..;   std 003b
15546 FAB7 20 09            .    bra 09       ; to fac2
15547 ;
15548 FAB9 BD E5 AA        ...   jsr e5aa             ;jump12 - beep if key pressed?
15549 FABC CE 00 1F        ...   ldx #001f
15550 FABF 1D 00 04        ...   bclr 00,x, #04
15551 FAC2 CE 00 1D        ...   ldx #001d
15552 FAC5 1D 00 08        ...   bclr 00,x, #08
15553 FAC8 20 06            .    bra 06       ; to fad0
15554 ;
15555 FACA CE 00 1D        ...   ldx #001d
15556 FACD 1C 00 08        ...   bset 00,x, #08
15557 FAD0 F6 00 1F        ...   ldab 001f
15558 FAD3 C4 04           ..    andb #04
15559 FAD5 26 05           &.    bne 05       ; to fadc - service menu
15560 FAD7 BD 81 00        ...   jsr 8100             ;jump72 - preservice menu?
15561 FADA 20 03            .    bra 03
15562 FADC BD 84 A0        ...   jsr 84a0             ;jump73
15563 FADF 7E F8 FF        ~..   jmp f8ff             ;goto85
15564 ; main should never return in theory.
15565
15566
15567 ; error interrupts (see vectors at end)
15568 FAE2 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15569 FAE5 BD C0 BA        ...   jsr c0ba             ;display:
15570 FAE8 CC 07 D0        ...   ldd #07d0
15571 FAEB BD E5 71        ..q   jsr e571             ;msdelay
15572 FAEE 3B              ;     rti
15573 FAEF CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15574 FAF2 BD C0 BA        ...   jsr c0ba             ;display:
15575 FAF5 CC 07 D0        ...   ldd #07d0
15576 FAF8 BD E5 71        ..q   jsr e571             ;msdelay
15577 FAFB 3B              ;     rti
15578 FAFC CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15579 FAFF BD C0 BA        ...   jsr c0ba             ;display:
15580 FB02 CC 07 D0        ...   ldd #07d0
15581 FB05 BD E5 71        ..q   jsr e571             ;msdelay
15582 FB08 3B              ;     rti
15583 FB09 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15584 FB0C BD C0 BA        ...   jsr c0ba             ;display:
15585 FB0F CC 07 D0        ...   ldd #07d0
15586 FB12 BD E5 71        ..q   jsr e571             ;msdelay
15587 FB15 3B              ;     rti
15588 FB16 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15589 FB19 BD C0 BA        ...   jsr c0ba             ;display:
15590 FB1C CC 07 D0        ...   ldd #07d0
15591 FB1F BD E5 71        ..q   jsr e571             ;msdelay
15592 FB22 3B              ;     rti
15593 FB23 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15594 FB26 BD C0 BA        ...   jsr c0ba             ;display:
15595 FB29 CC 07 D0        ...   ldd #07d0
15596 FB2C BD E5 71        ..q   jsr e571             ;msdelay
15597 FB2F 3B              ;     rti
15598 FB30 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15599 FB33 BD C0 BA        ...   jsr c0ba             ;display:
15600 FB36 CC 07 D0        ...   ldd #07d0
15601 FB39 BD E5 71        ..q   jsr e571             ;msdelay
15602 FB3C 3B              ;     rti
15603 FB3D CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15604 FB40 BD C0 BA        ...   jsr c0ba             ;display:
15605 FB43 CC 07 D0        ...   ldd #07d0
15606 FB46 BD E5 71        ..q   jsr e571             ;msdelay
15607 FB49 3B              ;     rti
15608 FB4A CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15609 FB4D BD C0 BA        ...   jsr c0ba             ;display:
15610 FB50 CC 07 D0        ...   ldd #07d0
15611 FB53 BD E5 71        ..q   jsr e571             ;msdelay
15612 FB56 3B              ;     rti
15613 FB57 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15614 FB5A BD C0 BA        ...   jsr c0ba             ;display:
15615 FB5D CC 07 D0        ...   ldd #07d0
15616 FB60 BD E5 71        ..q   jsr e571             ;msdelay
15617 FB63 3B              ;     rti
15618 FB64 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15619 FB67 BD C0 BA        ...   jsr c0ba             ;display:
15620 FB6A CC 07 D0        ...   ldd #07d0
15621 FB6D BD E5 71        ..q   jsr e571             ;msdelay
15622 FB70 3B              ;     rti
15623 FB71 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15624 FB74 BD C0 BA        ...   jsr c0ba             ;display:
15625 FB77 CC 07 D0        ...   ldd #07d0
15626 FB7A BD E5 71        ..q   jsr e571             ;msdelay
15627 FB7D 3B              ;     rti
15628 FB7E CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15629 FB81 BD C0 BA        ...   jsr c0ba             ;display:
15630 FB84 CC 07 D0        ...   ldd #07d0
15631 FB87 BD E5 71        ..q   jsr e571             ;msdelay
15632 FB8A 3B              ;     rti
15633 FB8B CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15634 FB8E BD C0 BA        ...   jsr c0ba             ;display:
15635 FB91 CC 07 D0        ...   ldd #07d0
15636 FB94 BD E5 71        ..q   jsr e571             ;msdelay
15637 FB97 3B              ;     rti
15638 FB98 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15639 FB9B BD C0 BA        ...   jsr c0ba             ;display:
15640 FB9E CC 07 D0        ...   ldd #07d0
15641 FBA1 BD E5 71        ..q   jsr e571             ;msdelay
15642 FBA4 3B              ;     rti
15643 FBA5 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15644 FBA8 BD C0 BA        ...   jsr c0ba             ;display:
15645 FBAB CC 07 D0        ...   ldd #07d0
15646 FBAE BD E5 71        ..q   jsr e571             ;msdelay
15647 FBB1 3B              ;     rti
15648 FBB2 BD FE 69        ..i   jsr fe69             ;reset
15649 FBB5 3B              ;     rti
15650 FBB6 BD FE 69        ..i   jsr fe69             ;reset
15651 FBB9 3B              ;     rti
15652
15653 jump38:
15654 ; passed a u16 on the stack, i, and a u16 in D, j
15655 ; i *think* it multiplies i*j and returns it in D.
15656 ; but the assembly seems to have several off-by-one errors
15657 FBBA 3C              <     pshx
15658 FBBB 37              7     pshb
15659 FBBC 30              0     tsx
15660 FBBD E6 06           ..    ldab 06,x   ; lower 8-bits of i
15661 FBBF 3D              =     mul         ; A*B => D
15662 FBC0 A6 00           ..    ldaa 00,x
15663 FBC2 37              7     pshb
15664 FBC3 E6 05           ..    ldab 05,x   ; upper byte of return address??
15665 FBC5 3D              =     mul
15666 FBC6 32              2     pula
15667 FBC7 1B              .     aba         ; a now contains ad+bc
15668 FBC8 33              3     pulb
15669 FBC9 36              6     psha
15670 FBCA A6 06           ..    ldaa 06,x
15671 FBCC 3D              =     mul
15672 FBCD 37              7     pshb
15673 FBCE AB 00           ..    adda 00,x
15674 FBD0 36              6     psha
15675 FBD1 EC 03           ..    ldd 03,x    ; move saved value of X
15676 FBD3 ED 05           ..    std 05,x    ; into the return address???
15677 FBD5 38              8     pulx
15678 FBD6 8F              .     xgdx
15679 FBD7 83 00 00        ...   subd #0000
15680 FBDA 31              1     ins
15681 FBDB 38              8     pulx
15682 FBDC 31              1     ins
15683 FBDD 31              1     ins
15684 FBDE 39              9     rts
15685
15686 jump46:
15687 FBDF BD FB E8        ...   jsr fbe8             ;jump86
15688 FBE2 BD FC 25        ..%   jsr fc25             ;jump85
15689 FBE5 7E FC 04        ~..   jmp fc04             ;goto87
15690
15691 jump86:
15692 FBE8 3C              <     pshx
15693 FBE9 8F              .     xgdx
15694 FBEA EC 02           ..    ldd 02,x
15695 FBEC 37              7     pshb
15696 FBED 36              6     psha
15697 FBEE EC 00           ..    ldd 00,x
15698 FBF0 37              7     pshb
15699 FBF1 36              6     psha
15700 FBF2 34              4     des
15701 FBF3 34              4     des
15702 FBF4 34              4     des
15703 FBF5 34              4     des
15704 FBF6 3C              <     pshx
15705 FBF7 30              0     tsx
15706 FBF8 EC 12           ..    ldd 12,x
15707 FBFA ED 04           ..    std 04,x
15708 FBFC EC 0C           ..    ldd 0c,x
15709 FBFE ED 02           ..    std 02,x
15710 FC00 EC 10           ..    ldd 10,x
15711 FC02 38              8     pulx
15712 FC03 39              9     rts
15713
15714 goto87:
15715 FC04 ED 00           ..    std 00,x
15716 FC06 3C              <     pshx
15717 FC07 30              0     tsx
15718 FC08 EC 08           ..    ldd 08,x
15719 FC0A ED 0A           ..    std 0a,x
15720 FC0C EC 02           ..    ldd 02,x
15721 FC0E ED 0C           ..    std 0c,x
15722 FC10 38              8     pulx
15723 FC11 ED 02           ..    std 02,x
15724 FC13 EC 00           ..    ldd 00,x
15725 FC15 26 06           &.    bne 06
15726 FC17 6D 02           m.    tst 02,x
15727 FC19 26 02           &.    bne 02
15728 FC1B 6D 03           m.    tst 03,x
15729 FC1D 31              1     ins
15730 FC1E 31              1     ins
15731 FC1F 38              8     pulx
15732 FC20 31              1     ins
15733 FC21 31              1     ins
15734 FC22 31              1     ins
15735 FC23 31              1     ins
15736 FC24 39              9     rts
15737
15738 jump85:
15739 ; long addition function?
15740 FC25 3C              <     pshx
15741 FC26 30              0     tsx
15742 FC27 E3 06           ..    addd 06,x
15743 FC29 37              7     pshb
15744 FC2A 36              6     psha
15745 FC2B EC 02           ..    ldd 02,x
15746 FC2D ED 06           ..    std 06,x
15747 FC2F EC 04           ..    ldd 04,x
15748 FC31 E3 08           ..    addd 08,x
15749 FC33 ED 08           ..    std 08,x
15750 FC35 32              2     pula
15751 FC36 33              3     pulb
15752 FC37 C9 00           ..    adcb #00
15753 FC39 89 00           ..    adca #00
15754 FC3B 83 00 00        ...   subd #0000
15755 FC3E 26 06           &.    bne 06
15756 FC40 6D 08           m.    tst 08,x
15757 FC42 26 02           &.    bne 02
15758 FC44 6D 09           m.    tst 09,x
15759 FC46 38              8     pulx
15760 FC47 31              1     ins
15761 FC48 31              1     ins
15762 FC49 31              1     ins
15763 FC4A 31              1     ins
15764 FC4B 39              9     rts
15765
15766
15767
15768 ; bigdivide: and bigmodulus: are a division function and a remainder function
15769 ; for stupidly huge numbers.
15770 ;
15771 ;
15772 ; the number in D is prepended to the number at the top of the stack
15773 ; eg, 0x0f in D and 0x4240 on stack => 0x0f4240 = 1000000
15774 ;
15775 bigdivide:
15776 FC4C 3C              <     pshx
15777 FC4D 3C              <     pshx
15778 FC4E 37              7     pshb
15779 FC4F 36              6     psha
15780 FC50 3C              <     pshx
15781 FC51 3C              <     pshx
15782 FC52 3C              <     pshx
15783 FC53 18 3C           .<    pshy
15784 FC55 30              0     tsx
15785 FC56 4F              O     clra
15786 FC57 A7 04           ..    staa 04,x
15787 FC59 7E FC 6D        ~.m   jmp fc6d             ;goto88
15788
15789 bigmodulus:
15790 FC5C 3C              <     pshx
15791 FC5D 3C              <     pshx
15792 FC5E 37              7     pshb
15793 FC5F 36              6     psha
15794 FC60 3C              <     pshx
15795 FC61 3C              <     pshx
15796 FC62 3C              <     pshx
15797 FC63 18 3C           .<    pshy
15798 FC65 30              0     tsx
15799 FC66 86 01           ..    ldaa #01
15800 FC68 A7 04           ..    staa 04,x
15801 FC6A 7E FC 6D        ~.m   jmp fc6d             ;goto88
15802 ;
15803 goto88:
15804 FC6D 1A EE 0E        ...   ldy 0e,x
15805 FC70 EC 08           ..    ldd 08,x
15806 FC72 ED 0E           ..    std 0e,x
15807 FC74 EC 14           ..    ldd 14,x
15808 FC76 ED 0C           ..    std 0c,x
15809 FC78 EC 12           ..    ldd 12,x
15810 FC7A ED 0A           ..    std 0a,x
15811 FC7C 1A EF 12        ...   sty 12,x
15812 FC7F 4F              O     clra
15813 FC80 5F              _     clrb
15814 FC81 ED 08           ..    std 08,x
15815 FC83 ED 06           ..    std 06,x
15816 FC85 EC 0A           ..    ldd 0a,x
15817 FC87 1A A3 0E        ...   cmpd 0e,x
15818 FC8A 22 23           "#    bhi 23       ; to fcaf
15819 FC8C 27 15           '.    beq 15       ; to fca3
15820 ;
15821 FC8E 1E 04 01 08     ....  brset 04,x 01 08
15822 FC92 CC 00 00        ...   ldd #0000
15823 FC95 ED 14           ..    std 14,x
15824 FC97 7E FE 04        ~..   jmp fe04             ;goto89 - return
15825 FC9A EC 0C           ..    ldd 0c,x
15826 FC9C ED 14           ..    std 14,x
15827 FC9E EC 0A           ..    ldd 0a,x
15828 FCA0 7E FD E3        ~..   jmp fde3             ;goto90
15829 ;
15830 FCA3 83 00 00        ...   subd #0000
15831 FCA6 27 12           '.    beq 12       ; to fcba
15832 FCA8 EC 0C           ..    ldd 0c,x
15833 FCAA 1A A3 10        ...   cmpd 10,x
15834 FCAD 25 DF           %.    bcs df       ; to fc8e
15835 ;
15836 FCAF 6D 0E           m.    tst 0e,x
15837 FCB1 26 70           &p    bne 70       ; to fd23
15838 FCB3 6D 0F           m.    tst 0f,x
15839 FCB5 27 1A           '.    beq 1a       ; to fcd1
15840 FCB7 7E FD A4        ~..   jmp fda4             ;goto91
15841 ;
15842 FCBA 3C              <     pshx
15843 FCBB 3C              <     pshx
15844 FCBC 18 38           .8    puly
15845 FCBE EC 0C           ..    ldd 0c,x
15846 FCC0 EE 10           ..    ldx 10,x
15847 FCC2 02              .     idiv
15848 FCC3 18 1E 04 01 01  ..... brset 04,y 01 01
15849 FCC8 8F              .     xgdx
15850 FCC9 38              8     pulx
15851 FCCA ED 14           ..    std 14,x
15852 FCCC 4F              O     clra
15853 FCCD 5F              _     clrb
15854 FCCE 7E FD E3        ~..   jmp fde3             ;goto90
15855 ;
15856 FCD1 3C              <     pshx
15857 FCD2 3C              <     pshx
15858 FCD3 18 38           .8    puly
15859 FCD5 EC 0A           ..    ldd 0a,x
15860 FCD7 EE 10           ..    ldx 10,x
15861 FCD9 3C              <     pshx
15862 FCDA 02              .     idiv
15863 FCDB CD EF 0A        ...   stx 02x,y
15864 FCDE 38              8     pulx
15865 FCDF 3C              <     pshx
15866 FCE0 03              .     fdiv
15867 FCE1 CD EF 0E        ...   stx 02x,y
15868 FCE4 38              8     pulx
15869 FCE5 18 E3 0C        ...   addd 0c,y
15870 FCE8 24 1B           $.    bcc 1b      ; to fd05
15871 ;
15872 FCEA 18 ED 0C        ...   std 0c,y
15873 FCED 4F              O     clra
15874 FCEE C6 01           ..    ldab #01
15875 FCF0 3C              <     pshx
15876 FCF1 03              .     fdiv
15877 FCF2 8F              .     xgdx
15878 FCF3 18 E3 0E        ...   addd 0e,y
15879 FCF6 24 03           $.    bcc 03
15880 FCF8 18 6C 0A        .l.   inc 0a,y
15881 FCFB 18 ED 0E        ...   std 0e,y
15882 FCFE 8F              .     xgdx
15883 FCFF 38              8     pulx
15884 FD00 18 E3 0C        ...   addd 0c,y
15885 FD03 25 E5           %.    bcs e5      ; to fcea
15886 FD05 02              .     idiv
15887 ;
15888 FD06 8F              .     xgdx
15889 FD07 18 E3 0E        ...   addd 0e,y
15890 FD0A 24 03           $.    bcc 03
15891 FD0C 18 6C 0A        .l.   inc 0a,y
15892 FD0F 18 1F 04 01 07  ..... brclr 04,y 01 07
15893 FD14 8F              .     xgdx
15894 FD15 18 6F 0A        .o.   clr 0a,y
15895 FD18 18 6F 0B        .o.   clr 0b,y
15896 FD1B 38              8     pulx
15897 FD1C ED 14           ..    std 14,x
15898 FD1E EC 0A           ..    ldd 0a,x
15899 FD20 7E FD E3        ~..   jmp fde3             ;goto90
15900 ;
15901 FD23 86 08           ..    ldaa #08     ; for i = 8
15902 FD25 A7 05           ..    staa 05,x    ; do
15903 FD27 69 0D           i.    rol 0d,x
15904 FD29 69 0C           i.    rol 0c,x
15905 FD2B 69 0B           i.    rol 0b,x
15906 FD2D 69 0A           i.    rol 0a,x
15907 FD2F 69 09           i.    rol 09,x
15908 FD31 EC 0B           ..    ldd 0b,x
15909 FD33 A3 10           ..    subd 10,x
15910 FD35 ED 14           ..    std 14,x
15911 FD37 EC 09           ..    ldd 09,x
15912 FD39 E2 0F           ..    sbcb 0f,x
15913 FD3B A2 0E           ..    sbca 0e,x
15914 FD3D 25 06           %.    bcs 06       ; to fd45
15915 FD3F ED 09           ..    std 09,x
15916 FD41 EC 14           ..    ldd 14,x
15917 FD43 ED 0B           ..    std 0b,x
15918 FD45 6A 05           j.    dec 05,x     ; i--
15919 FD47 26 DE           &.    bne de       ; to fd27
15920 ;
15921 FD49 69 0D           i.    rol 0d,x
15922 FD4B 1F 04 01 09     ....  brclr 04,x 01 09  ; to fd58
15923 FD4F EC 0B           ..    ldd 0b,x
15924 FD51 ED 14           ..    std 14,x
15925 FD53 EC 09           ..    ldd 09,x
15926 FD55 7E FD E3        ~..   jmp fde3             ;goto90
15927 ;
15928 FD58 4F              O     clra
15929 FD59 E6 0D           ..    ldab 0d,x
15930 FD5B 53              S     comb
15931 FD5C ED 14           ..    std 14,x
15932 FD5E 5F              _     clrb
15933 FD5F 7E FD E3        ~..   jmp fde3             ;goto90
15934 ;
15935 FD62 86 10           ..    ldaa #10     ; for i = 16
15936 FD64 A7 05           ..    staa 05,x    ; do
15937 FD66 69 0D           i.    rol 0d,x
15938 FD68 69 0C           i.    rol 0c,x
15939 FD6A 69 0B           i.    rol 0b,x
15940 FD6C 69 0A           i.    rol 0a,x
15941 FD6E 69 09           i.    rol 09,x
15942 FD70 69 08           i.    rol 08,x
15943 FD72 EC 0A           ..    ldd 0a,x
15944 FD74 A3 10           ..    subd 10,x
15945 FD76 ED 14           ..    std 14,x
15946 FD78 EC 08           ..    ldd 08,x
15947 FD7A E2 0F           ..    sbcb 0f,x
15948 FD7C 82 00           ..    sbca #00
15949 FD7E 25 06           %.    bcs 06      ; continue
15950 FD80 ED 08           ..    std 08,x
15951 FD82 EC 14           ..    ldd 14,x
15952 FD84 ED 0A           ..    std 0a,x
15953 FD86 6A 05           j.    dec 05,x    ; i--
15954 FD88 26 DC           &.    bne dc      ; to fd66
15955 ;
15956 FD8A 69 0D           i.    rol 0d,x
15957 FD8C 69 0C           i.    rol 0c,x
15958 FD8E 1F 04 01 08     ....  brclr 04,x 01 08
15959 FD92 EC 0A           ..    ldd 0a,x
15960 FD94 ED 14           ..    std 14,x
15961 FD96 EC 08           ..    ldd 08,x
15962 FD98 20 49            I    bra 49      ;goto90
15963 FD9A EC 0C           ..    ldd 0c,x
15964 FD9C 43              C     coma
15965 FD9D 53              S     comb
15966 FD9E ED 14           ..    std 14,x
15967 FDA0 4F              O     clra
15968 FDA1 5F              _     clrb
15969 FDA2 20 3F            ?    bra 3f      ;goto90
15970 goto91:
15971 FDA4 2B BC           +.    bmi bc      ; to fd62 if minus
15972 FDA6 86 10           ..    ldaa #10    ; for i = 16
15973 FDA8 A7 05           ..    staa 05,x   ; do
15974 FDAA 69 0D           i     rol 0d,x
15975 FDAC 69 0C           i     rol 0c,x
15976 FDAE 69 0B           i     rol 08,x
15977 FDB0 69 0A           i     rol 0a,x
15978 FDB2 69 07           i     rol 07,x
15979 FDB4 EC 0A           ..    ldd 0a,x
15980 FDB6 A3 10           ..    subd 10,x
15981 FDB8 ED 14           ..    std 14,x
15982 FDBA A6 07           ..    ldaa 07,x
15983 FDBC A2 0F           ..    sbca 0f,x
15984 FDBE 25 06           %.    bcs 06     ;continue
15985 FDC0 A7 07           ..    staa 07,x
15986 FDC2 EC 14           ..    ldd 14,x
15987 FDC4 ED 0A           ..    std 0a,x
15988 FDC6 6A 05           j.    dec 05,x
15989 FDC8 26 E0           &.    bne e0     ;reloop
15990 ;
15991 FDCA 69 0D           i.    rol 0d,x
15992 FDCC 69 0C           i.    rol 0c,x
15993 FDCE 1F 04 01 09     ....  brclr 04,x 01 09 ;to fddb
15994 FDD2 EC 0A           ..    ldd 0a,x
15995 FDD4 ED 14           ..    std 14,x
15996 FDD6 4F              O     clra
15997 FDD7 E6 07           ..    ldab 07,x
15998 FDD9 20 08            .    bra 08     ;goto90
15999 ;
16000 FDDB EC 0C           ..    ldd 0c,x
16001 FDDD 43              C     coma
16002 FDDE 53              S     comb
16003 FDDF ED 14           ..    std 14,x
16004 FDE1 4F              O     clra
16005 FDE2 5F              _     clrb
16006 goto90:
16007 FDE3 1F 04 80 12     ....  brclr 04,x 80 12
16008 FDE7 43              C     coma
16009 FDE8 53              S     comb
16010 FDE9 63 14           c.    com 14,x
16011 FDEB 63 15           c.    com 15,x
16012 FDED 6C 15           l.    inc 15,x
16013 FDEF 26 08           &.    bne 08
16014 FDF1 6C 14           l.    inc 14,x
16015 FDF3 26 04           &.    bne 04
16016 FDF5 5C              \     incb
16017 FDF6 26 01           &.    bne 01
16018 FDF8 4C              L     inca
16019 FDF9 83 00 00        ...   subd #0000
16020 FDFC 26 06           &.    bne 06
16021 FDFE 6D 14           m.    tst 14,x
16022 FE00 26 02           &.    bne 02
16023 FE02 6D 15           m.    tst 15,x
16024 goto89:
16025 FE04 18 38           .8    puly
16026 FE06 38              8     pulx
16027 FE07 31              1     ins
16028 FE08 31              1     ins
16029 FE09 31              1     ins
16030 FE0A 31              1     ins
16031 FE0B 31              1     ins
16032 FE0C 31              1     ins
16033 FE0D 31              1     ins
16034 FE0E 31              1     ins
16035 FE0F 31              1     ins
16036 FE10 31              1     ins
16037 FE11 31              1     ins
16038 FE12 31              1     ins
16039 FE13 31              1     ins
16040 FE14 31              1     ins
16041 FE15 39              9     rts
16042
16043 jump2:
16044 ; passed a structure (in code following the call to jump2) and a number D
16045 ; popular D candidates come from $48, $42, $9, $a, etc...
16046 ; D must be between 0 and len, inclusive.
16047 ; structure {
16048 ;    u16 var1, len;
16049 ;    u16 jmplocs[len+2];
16050 ; }
16051 FE16 38              8     pulx
16052 FE17 A3 00           ..    subd 00,x     ; D -= var1
16053 FE19 2D 05           -.    blt 05        ; if D<0, to fe20, where D=-1
16054 FE1B 1A A3 02        ...   cmpd 02,x     ;
16055 FE1E 2F 03           /.    ble 03        ; if D > len, D=-1, else to fe23
16056 FE20 CC FF FF        ...   ldd #ffff
16057 FE23 3C              <     pshx          ; push return ptr back onto stack
16058 FE24 05              .     asld          ; D *= 2
16059 FE25 30              0     tsx
16060 FE26 E3 00           ..    addd 00,x     ; D += return-ptr
16061 FE28 C3 00 06        ...   addd #0006    ;        + 6
16062 FE2B 8F              .     xgdx
16063 FE2C EC 00           ..    ldd 00,x      ; return ptr = jmplocs[orig D]
16064 FE2E 30              0     tsx
16065 FE2F ED 00           ..    std 00,x
16066 FE31 39              9     rts
16067
16068 jump25:
16069 ; this looks like a switch statement
16070 ; we're passed an array of 4-byte items... this is passed in the code segment
16071 ; we take the return address and start counting until we hit a double zero.
16072 ; hence much of the code following this call in a standard disassembly is garbage
16073 ; we also look at D - common values passed to use are contents of $9, $12, $15, $4A or the SCI $102f
16074 FE32 38              8     pulx
16075 FE33 6D 04           m.    tst 04,x
16076 FE35 26 04           &.    bne 04     ; to fe3b if this is not the last one
16077 FE37 6D 05           m.    tst 05,x   ; double check it really is last one.
16078 FE39 27 0A           '.    beq 0a     ; to fe45
16079 FE3B A3 02           ..    subd 02,x  ; subtract lower order bits from D
16080 FE3D 27 06           '.    beq 06     ; to fe45
16081 FE3F 08              .     inx        ; move the array index up one
16082 FE40 08              .     inx
16083 FE41 08              .     inx
16084 FE42 08              .     inx
16085 FE43 20 EE            .    bra ee     ; to fe33
16086 FE45 EE 00           ..    ldx 00,x   ; return to our destination address
16087 FE47 6E 00           n.    jmp 00,x
16088
16089         reset:
16090
16091 ; Enable the Real-time Interrupt (periodic hw interrupt)
16092 FE49 86 40           .@    ldaa #40     ;40 -> A
16093 FE4B B7 10 24        ..$   staa 1024    ;A -> 1024
16094 ; Enable the ADC & configure IRQ' for edge-sensitive only operation
16095 FE4E 86 A0           ..    ldaa #a0     ;a0 -> A
16096 FE50 B7 10 39        ..9   staa 1039    ;A -> 1039
16097 ; Set a stack pointer?
16098 FE53 8E 00 EF        ...   lds #00ef
16099 ; Zero out the first 128 bytes of ram.
16100 FE56 CE 00 00        ...   ldx #0000    ;wipe 0000-007f  X=0000
16101 FE59 8C 00 80        ...   cpx #0080    ;loop: if X = 0080
16102 FE5C 24 05           $.    bcc fe63     ;        finished
16103 FE5E 6F 00           o.    clr 00,x     ;      else: load addr X with 0
16104 FE60 08              .     inx          ;        increment X
16105 FE61 20 F6            .    bra fe59     ;repeat
16106
16107 ; Jump to main procedure
16108 FE63 BD F7 D6        ...   jsr f7d6     ;goto main:
16109 FE66 7E FE 6D        ~.m   jmp fe6d     ; goto91
16110
16111 ; Reboot function for when things go astray?
16112 FE69 0F              .     sei          ;inhibit interrupts
16113 FE6A 7E FE 49        ~.I   jmp fe49     ;goto reset:
16114
16115 ; loop forever - called after main is exited.
16116 goto91:
16117 FE6D 20 FE            .    bra fe6d     ;loop forever
16118                                         ;[SAF] - wait for interrupts?
16119
16120 FE6F FF FF FF        ...   stx ffff
16121 FE72 FF FF FF        ...   stx ffff
16122 FE75 FF FF FF        ...   stx ffff
16123 FE78 FF FF FF        ...   stx ffff
16124 FE7B FF FF FF        ...   stx ffff
16125 FE7E FF FF FF        ...   stx ffff
16126 FE81 FF FF FF        ...   stx ffff
16127 FE84 FF FF FF        ...   stx ffff
16128 FE87 FF FF FF        ...   stx ffff
16129 FE8A FF FF FF        ...   stx ffff
16130 FE8D FF FF FF        ...   stx ffff
16131 FE90 FF FF FF        ...   stx ffff
16132 FE93 FF FF FF        ...   stx ffff
16133 FE96 FF FF FF        ...   stx ffff
16134 FE99 FF FF FF        ...   stx ffff
16135 FE9C FF FF FF        ...   stx ffff
16136 FE9F FF FF FF        ...   stx ffff
16137 FEA2 FF FF FF        ...   stx ffff
16138 FEA5 FF FF FF        ...   stx ffff
16139 FEA8 FF FF FF        ...   stx ffff
16140 FEAB FF FF FF        ...   stx ffff
16141 FEAE FF FF FF        ...   stx ffff
16142 FEB1 FF FF FF        ...   stx ffff
16143 FEB4 FF FF FF        ...   stx ffff
16144 FEB7 FF FF FF        ...   stx ffff
16145 FEBA FF FF FF        ...   stx ffff
16146 FEBD FF FF FF        ...   stx ffff
16147 FEC0 FF FF FF        ...   stx ffff
16148 FEC3 FF FF FF        ...   stx ffff
16149 FEC6 FF FF FF        ...   stx ffff
16150 FEC9 FF FF FF        ...   stx ffff
16151 FECC FF FF FF        ...   stx ffff
16152 FECF FF FF FF        ...   stx ffff
16153 FED2 FF FF FF        ...   stx ffff
16154 FED5 FF FF FF        ...   stx ffff
16155 FED8 FF FF FF        ...   stx ffff
16156 FEDB FF FF FF        ...   stx ffff
16157 FEDE FF FF FF        ...   stx ffff
16158 FEE1 FF FF FF        ...   stx ffff
16159 FEE4 FF FF FF        ...   stx ffff
16160 FEE7 FF FF FF        ...   stx ffff
16161 FEEA FF FF FF        ...   stx ffff
16162 FEED FF FF FF        ...   stx ffff
16163 FEF0 FF FF FF        ...   stx ffff
16164 FEF3 FF FF FF        ...   stx ffff
16165 FEF6 FF FF FF        ...   stx ffff
16166 FEF9 FF FF FF        ...   stx ffff
16167 FEFC FF FF FF        ...   stx ffff
16168 FEFF FF FF FF        ...   stx ffff
16169 FF02 FF FF FF        ...   stx ffff
16170 FF05 FF FF FF        ...   stx ffff
16171 FF08 FF FF FF        ...   stx ffff
16172 FF0B FF FF FF        ...   stx ffff
16173 FF0E FF FF FF        ...   stx ffff
16174 FF11 FF FF FF        ...   stx ffff
16175 FF14 FF FF FF        ...   stx ffff
16176 FF17 FF FF FF        ...   stx ffff
16177 FF1A FF FF FF        ...   stx ffff
16178 FF1D FF FF FF        ...   stx ffff
16179 FF20 FF FF FF        ...   stx ffff
16180 FF23 FF FF FF        ...   stx ffff
16181 FF26 FF FF FF        ...   stx ffff
16182 FF29 FF FF FF        ...   stx ffff
16183 FF2C FF FF FF        ...   stx ffff
16184 FF2F FF FF FF        ...   stx ffff
16185 FF32 FF FF FF        ...   stx ffff
16186 FF35 FF FF FF        ...   stx ffff
16187 FF38 FF FF FF        ...   stx ffff
16188 FF3B FF FF FF        ...   stx ffff
16189 FF3E FF FF FF        ...   stx ffff
16190 FF41 FF FF FF        ...   stx ffff
16191 FF44 FF FF FF        ...   stx ffff
16192 FF47 FF FF FF        ...   stx ffff
16193 FF4A FF FF FF        ...   stx ffff
16194 FF4D FF FF FF        ...   stx ffff
16195 FF50 FF FF FF        ...   stx ffff
16196 FF53 FF FF FF        ...   stx ffff
16197 FF56 FF FF FF        ...   stx ffff
16198 FF59 FF FF FF        ...   stx ffff
16199 FF5C FF FF FF        ...   stx ffff
16200 FF5F FF FF FF        ...   stx ffff
16201 FF62 FF FF FF        ...   stx ffff
16202 FF65 FF FF FF        ...   stx ffff
16203 FF68 FF FF FF        ...   stx ffff
16204 FF6B FF FF FF        ...   stx ffff
16205 FF6E FF FF FF        ...   stx ffff
16206 FF71 FF FF FF        ...   stx ffff
16207 FF74 FF FF FF        ...   stx ffff
16208 FF77 FF FF FF        ...   stx ffff
16209 FF7A FF FF FF        ...   stx ffff
16210 FF7D FF FF FF        ...   stx ffff
16211 FF80 FF FF FF        ...   stx ffff
16212 FF83 FF FF FF        ...   stx ffff
16213 FF86 FF FF FF        ...   stx ffff
16214 FF89 FF FF FF        ...   stx ffff
16215 FF8C FF FF FF        ...   stx ffff
16216 FF8F FF FF FF        ...   stx ffff
16217 FF92 FF FF FF        ...   stx ffff
16218 FF95 FF FF FF        ...   stx ffff
16219 FF98 FF FF FF        ...   stx ffff
16220 FF9B FF FF FF        ...   stx ffff
16221 FF9E FF FF FF        ...   stx ffff
16222 FFA1 FF FF FF        ...   stx ffff
16223 FFA4 FF FF FF        ...   stx ffff
16224 FFA7 FF FF FF        ...   stx ffff
16225 FFAA FF FF FF        ...   stx ffff
16226 FFAD FF FF FF        ...   stx ffff
16227 FFB0 FF FF FF        ...   stx ffff
16228 FFB3 FF FF FF        ...   stx ffff
16229 FFB6 FF FF FF        ...   stx ffff
16230 FFB9 FF FF FF        ...   stx ffff
16231 FFBC FF FF FF        ...   stx ffff
16232 FFBF FF FF FF        ...   stx ffff
16233 FFC2 FF FF FF        ...   stx ffff
16234 FFC5 FF FF FF        ...   stx ffff
16235 FFC8 FF FF FF        ...   stx ffff
16236 FFCB FF FF FF        ...   stx ffff
16237 FFCE FF FF FF        ...   stx ffff
16238 FFD1 FF FF FF        ...   stx ffff
16239 FFD4 FF FF
16240
16241 FFD6    ;vectors
16242         .word   c81c    ; SCI serial system (generic)  - goes to sciinterrupt
16243         .word   fae2    ; SPI serial transfer complete - flashes *** ERROR *** for a second
16244         .word   faef    ; Pulse accumulator input edge - flashes *** ERROR *** for a second
16245         .word   fafc    ; Pulse accumulator overflow   - flashes *** ERROR *** for a second
16246         .word   fb09    ; Timer overflow               - flashes *** ERROR *** for a second
16247         .word   fb16    ; Timer input capture 4        - flashes *** ERROR *** for a second
16248         .word   fb23    ; Timer output compare 4       - flashes *** ERROR *** for a second
16249         .word   fb30    ; Timer output compare 3       - flashes *** ERROR *** for a second
16250         .word   fb3d    ; Timer output compare 2       - flashes *** ERROR *** for a second
16251         .word   fb4a    ; Timer output compare 1       - flashes *** ERROR *** for a second
16252         .word   fb57    ; Timer input capture 3        - flashes *** ERROR *** for a second
16253         .word   fb64    ; Timer input capture 2        - flashes *** ERROR *** for a second
16254         .word   fb71    ; Timer input capture 1        - flashes *** ERROR *** for a second
16255         .word   f718    ; RT interrupt                 - does something useful :) (goto rti)
16256         .word   fb7e    ; IRQ pin                      - flashes *** ERROR *** for a second
16257         .word   fb8b    ; XIRQ pin                     - flashes *** ERROR *** for a second
16258         .word   fb98    ; software interrupt           - flashes *** ERROR *** for a second
16259         .word   fba5    ; illegal opcode trap          - flashes *** ERROR *** for a second
16260         .word   fbb2    ; watchdog reset               - reboot
16261         .word   fbb6    ; clock monitor reset          - reboot
16262         .word   fe49    ; reset                        - reboot
16263 \1a